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 OPEN #1:"PIO.CR.LF"
1310 REM  OR EQUIVALENT RS232 FILE NAME
1320 PRINT #1:CHR$(27);"A";CHR$(8)
1330 FOR A=1 TO 32
1340 PRINT #1:CHR$(27);"K";CHR$(192);CHR$(0)
1350 FOR B=24 TO 1 STEP-1
1360 CALL GCHAR(B,A,[CHAR)
1370 IF CHAR<33 THEN 1500
1380 CALL CHARPAT(CHAR,DEF$)
1390 IF DEF$="0000000000000000" THEN 1500
1400 FOR SEG=16 TO 2 STEP-2
1410 HEX=ASC(SEG$(DEF$,SEG,1))
1420 GOSUB 1640
1430 PRINTDEF=HEX
1440 HEX=ASC(SEG$(DEF$,SEG-1,1))
1450 GOSUB 1640
1460 PRINTDEF=PRINTDEF+[HEX*16
1470 PRINT #1:CHR$(PRINTDEF);
1480 NEXT SEG
1490 GOTO 1540
1500 FOR J=1 TO 7
1510 PRINT #1:CHR$(0);
1520 NEXT J
1530 PRINT #1:CHR$(0)
1540 NEXT B
1550 PRINT #1:CHR$(13);CHR$(10)
1560 NEXT A
1570 PRINT #1:CHR$(27);"@"
1580 PRINT #1:CHR$(7)
1590 CLOSE #1
1600 REM  NOW GO WHERE YOU WISH
1610 REM  USING RETURN OR GO TO AS APPROPRIATE
1620 RETURN
1630 STOP
1640 HEX=HEX-48+(HEX>64)*7
1650 RETURN
1660 END
2000 END