implement GenCP;

include "sys.m";
include "draw.m";
include "gencp.b";

CHARSET : con "iso-8859-1";

cstab := array [] of {
	16r00,16r01,16r02,16r03,16r04,16r05,16r06,16r07,
	16r08,16r09,16r0a,16r0b,16r0c,16r0d,16r0e,16r0f,
	16r10,16r11,16r12,16r13,16r14,16r15,16r16,16r17,
	16r18,16r19,16r1a,16r1b,16r1c,16r1d,16r1e,16r1f,
	16r20,16r21,16r22,16r23,16r24,16r25,16r26,16r27,
	16r28,16r29,16r2a,16r2b,16r2c,16r2d,16r2e,16r2f,
	16r30,16r31,16r32,16r33,16r34,16r35,16r36,16r37,
	16r38,16r39,16r3a,16r3b,16r3c,16r3d,16r3e,16r3f,
	16r40,16r41,16r42,16r43,16r44,16r45,16r46,16r47,
	16r48,16r49,16r4a,16r4b,16r4c,16r4d,16r4e,16r4f,
	16r50,16r51,16r52,16r53,16r54,16r55,16r56,16r57,
	16r58,16r59,16r5a,16r5b,16r5c,16r5d,16r5e,16r5f,
	16r60,16r61,16r62,16r63,16r64,16r65,16r66,16r67,
	16r68,16r69,16r6a,16r6b,16r6c,16r6d,16r6e,16r6f,
	16r70,16r71,16r72,16r73,16r74,16r75,16r76,16r77,
	16r78,16r79,16r7a,16r7b,16r7c,16r7d,16r7e,16r7f,
	16r80,16r81,16r82,16r83,16r84,16r85,16r86,16r87,
	16r88,16r89,16r8a,16r8b,16r8c,16r8d,16r8e,16r8f,
	16r90,16r91,16r92,16r93,16r94,16r95,16r96,16r97,
	16r98,16r99,16r9a,16r9b,16r9c,16r9d,16r9e,16r9f,
	16ra0,16ra1,16ra2,16ra3,16ra4,16ra5,16ra6,16ra7,
	16ra8,16ra9,16raa,16rab,16rac,16rad,16rae,16raf,
	16rb0,16rb1,16rb2,16rb3,16rb4,16rb5,16rb6,16rb7,
	16rb8,16rb9,16rba,16rbb,16rbc,16rbd,16rbe,16rbf,
	16rc0,16rc1,16rc2,16rc3,16rc4,16rc5,16rc6,16rc7,
	16rc8,16rc9,16rca,16rcb,16rcc,16rcd,16rce,16rcf,
	16rd0,16rd1,16rd2,16rd3,16rd4,16rd5,16rd6,16rd7,
	16rd8,16rd9,16rda,16rdb,16rdc,16rdd,16rde,16rdf,
	16re0,16re1,16re2,16re3,16re4,16re5,16re6,16re7,
	16re8,16re9,16rea,16reb,16rec,16red,16ree,16ref,
	16rf0,16rf1,16rf2,16rf3,16rf4,16rf5,16rf6,16rf7,
	16rf8,16rf9,16rfa,16rfb,16rfc,16rfd,16rfe,16rff,
};