ref: 248c637d25154f762a7d675662c405a169594ca0
dir: /appl/lib/convcs/koi8-r.b/
implement GenCP; include "sys.m"; include "draw.m"; include "gencp.b"; CHARSET: con "koi8-r"; cstab := array [] of { 16r0000,16r0001,16r0002,16r0003,16r0004,16r0005,16r0006,16r0007, 16r0008,16r0009,16r000a,16r000b,16r000c,16r000d,16r000e,16r000f, 16r0010,16r0011,16r0012,16r0013,16r0014,16r0015,16r0016,16r0017, 16r0018,16r0019,16r001a,16r001b,16r001c,16r001d,16r001e,16r001f, 16r0020,16r0021,16r0022,16r0023,16r0024,16r0025,16r0026,16r0027, 16r0028,16r0029,16r002a,16r002b,16r002c,16r002d,16r002e,16r002f, 16r0030,16r0031,16r0032,16r0033,16r0034,16r0035,16r0036,16r0037, 16r0038,16r0039,16r003a,16r003b,16r003c,16r003d,16r003e,16r003f, 16r0040,16r0041,16r0042,16r0043,16r0044,16r0045,16r0046,16r0047, 16r0048,16r0049,16r004a,16r004b,16r004c,16r004d,16r004e,16r004f, 16r0050,16r0051,16r0052,16r0053,16r0054,16r0055,16r0056,16r0057, 16r0058,16r0059,16r005a,16r005b,16r005c,16r005d,16r005e,16r005f, 16r0060,16r0061,16r0062,16r0063,16r0064,16r0065,16r0066,16r0067, 16r0068,16r0069,16r006a,16r006b,16r006c,16r006d,16r006e,16r006f, 16r0070,16r0071,16r0072,16r0073,16r0074,16r0075,16r0076,16r0077, 16r0078,16r0079,16r007a,16r007b,16r007c,16r007d,16r007e,16r007f, 16r2500,16r2502,16r250c,16r2510,16r2514,16r2518,16r251c,16r2524, 16r252c,16r2534,16r253c,16r2580,16r2584,16r2588,16r258c,16r2590, 16r2591,16r2592,16r2593,16r2320,16r25a0,16r2219,16r221a,16r2248, 16r2264,16r2265,16r00a0,16r2321,16r00b0,16r00b2,16r00b7,16r00f7, 16r2550,16r2551,16r2552,16r0451,16r2553,16r2554,16r2555,16r2556, 16r2557,16r2558,16r2559,16r255a,16r255b,16r255c,16r255d,16r255e, 16r255f,16r2560,16r2561,16r0401,16r2562,16r2563,16r2564,16r2565, 16r2566,16r2567,16r2568,16r2569,16r256a,16r256b,16r256c,16r00a9, 16r044e,16r0430,16r0431,16r0446,16r0434,16r0435,16r0444,16r0433, 16r0445,16r0438,16r0439,16r043a,16r043b,16r043c,16r043d,16r043e, 16r043f,16r044f,16r0440,16r0441,16r0442,16r0443,16r0436,16r0432, 16r044c,16r044b,16r0437,16r0448,16r044d,16r0449,16r0447,16r044a, 16r042e,16r0410,16r0411,16r0426,16r0414,16r0415,16r0424,16r0413, 16r0425,16r0418,16r0419,16r041a,16r041b,16r041c,16r041d,16r041e, 16r041f,16r042f,16r0420,16r0421,16r0422,16r0423,16r0416,16r0412, 16r042c,16r042b,16r0417,16r0428,16r042d,16r0429,16r0427,16r042a, };