implement GenCP;

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

CHARSET : con "ibm850";

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,
16r00c7, 16r00fc, 16r00e9, 16r00e2, 16r00e4, 16r00e0, 16r00e5, 16r00e7, # latin-1 repertoire with forms 
16r00ea, 16r00eb, 16r00e8, 16r00ef, 16r00ee, 16r00ec, 16r00c4, 16r00c5,
16r00c9, 16r00e6, 16r00c6, 16r00f4, 16r00f6, 16r00f2, 16r00fb, 16r00f9,
16r00ff, 16r00d6, 16r00dc, 16r00f8, 16r00a3, 16r00d8, 16r00d7, 16r0192,
16r00e1, 16r00ed, 16r00f3, 16r00fa, 16r00f1, 16r00d1, 16r00aa, 16r00ba,
16r00bf, 16r00ae, 16r00ac, 16r00bd, 16r00bc, 16r00a1, 16r00ab, 16r00bb,
16r2591, 16r2592, 16r2593, 16r2502, 16r2524, 16r00c1, 16r00c2, 16r00c0,
16r00a9, 16r2563, 16r2551, 16r2557, 16r255d, 16r00a2, 16r00a5, 16r2510,
16r2514, 16r2534, 16r252c, 16r251c, 16r2500, 16r253c, 16r00e3, 16r00c3,
16r255a, 16r2554, 16r2569, 16r2566, 16r2560, 16r2550, 16r256c, 16r00a4,
16r00f0, 16r00d0, 16r00ca, 16r00cb, 16r00c8, 16r0131, 16r00cd, 16r00ce, 
16r00cf, 16r2518, 16r250c, 16r2588, 16r2584, 16r00a6, 16r00cc, 16r2580,
16r00d3, 16r00df, 16r00d4, 16r00d2, 16r00f5, 16r00d5, 16r00b5, 16r00fe,
16r00de, 16r00da, 16r00db, 16r00d9, 16r00fd, 16r00dd, 16r00af, 16r00b4,
16r00ad, 16r00b1, 16r2017, 16r00be, 16r00b6, 16r00a7, 16r00f7, 16r00b8,
16r00b0, 16r00a8, 16r00b7, 16r00b9, 16r00b3, 16r00b2, 16r220e, 16r00a0,
};