100 CALL COLOR(5,2,1)
110 CALL COLOR(6,2,1)
120 CALL COLOR(7,2,1)
130 CALL COLOR(8,2,1)
140 CALL COLOR(9,2,1)
150 CALL COLOR(10,2,1)
160 CALL COLOR(11,2,1)
170 CALL COLOR(12,2,1)
500 CALL CHAR(64,"00000103070F0F0F")
510 CALL CHAR(65,"7FFFF1FBFEFFFFFF")
520 CALL CHAR(66,"FECE2A33B5DDFFFF")
530 CALL CHAR(67,"FF351D1FBFBFBFFF")
540 CALL CHAR(68,"80C040E0F0F8FC3E")
550 CALL CHAR(72,"1F1F1F1F1F1F1F1F")
560 CALL CHAR(73,"FFFFF18080808080")
570 CALL CHAR(74,"FFFFFF0800000000")
580 CALL CHAR(75,"FCF0C00000000000")
590 CALL CHAR(76,"131B0F0F0D0F0F2F")
600 CALL CHAR(80,"1F1F1F1F1F3F2F27")
610 CALL CHAR(81,"80808080BFFFC3DF")
620 CALL CHAR(82,"000000000080C0E0")
630 CALL CHAR(83,"000000001F3F60FF")
640 CALL CHAR(84,"2D6F7F2DADEF7735")
650 CALL CHAR(88,"371F1F1F1F151515")
660 CALL CHAR(89,"FF6F3C011F000080")
670 CALL CHAR(90,"F1F1F0B030302020")
680 CALL CHAR(91,"FF6D3D180C000000")
690 CALL CHAR(92,"D797971707050505")
700 CALL CHAR(96,"150D070303030301")
710 CALL CHAR(97,"8080C1C6EDF9FBE7")
720 CALL CHAR(98,"21A100A0FBFEF8FF")
730 CALL CHAR(99,"003078CD0F071FFC")
740 CALL CHAR(100,"0614BCF8F8F8F8F8")
750 CALL CHAR(104,"0100000000000000")
760 CALL CHAR(105,"E7F3F35151292B17")
770 CALL CHAR(106,"04C0FFF0FFE03F3F")
780 CALL CHAR(107,"183020000001C183")
790 CALL CHAR(108,"707060E0E0C0C080")
800 CALL CHAR(112,"0C225BB387F3FB79")
810 CALL CHAR(113,"0E1E3FFBF1E1C0C0")
820 CALL CHAR(114,"60E0C0C0C0FE3F00")
830 CALL CHAR(115,"0307061C3870E000")
840 CALL CHAR(116,"8000000000000000")
850 CALL CHAR(120,"793F1E0000000000")
860 CALL CHAR(121,"8000000000000000")
900 PRINT "BCD                         JKL                         RST                         "
910 PRINT "Z[\                         bcd                         jkl                         "
920 PRINT "rst                         "
930 PRINT
940 PRINT
950 PRINT
960 PRINT
970 PRINT
980 PRINT
990 PRINT
1000 PRINT
1010 PRINT
1020 PRINT
1030 PRINT
1040 PRINT
1050 PRINT
1060 PRINT
1070 PRINT
1080 PRINT
1190 DATA 1,1,64,1,2,65,2,1,72,2,2,73,3,1,80,3,2,81,4,1,88,4,2,89
1200 DATA 5,1,96,5,2,97,6,1,104,6,2,105,7,1,112,7,2,113,8,1,120,8,2,121
1230 RESTORE 1190
1240 FOR FILL=1 TO 16
1250 READ Y,X,CP
1260 CALL VCHAR(Y,X,CP)
1270 NEXT FILL
1280 CALL KEY(0,K,S)
1290 IF S=0 THEN 1280
1300 CALL INIT
1320 CALL LOAD("DSK2.DUMPCB")
1330 CALL LINK("DUMP")
1660 END