100 CALL COLOR(1,2,1)
110 CALL COLOR(2,2,1)
120 CALL COLOR(3,2,1)
130 CALL COLOR(4,2,1)
140 CALL COLOR(5,2,1)
150 CALL COLOR(6,2,1)
160 CALL COLOR(7,2,1)

500 CALL CHAR(33,"0607070303010000")
510 CALL CHAR(34,"E1E16161B091DB4F")
520 CALL CHAR(35,"FFFEFEFFFEFEDF8F")
530 CALL CHAR(36,"FF0000FE7800FFFF")
540 CALL CHAR(37,"6080000000000000")
550 CALL CHAR(38,"3E3E3C3C3870F0E0")
560 CALL CHAR(39,"407C7E7F3F3F0F0F")
570 CALL CHAR(40,"7F7F3F3F1F1E98F8")
580 CALL CHAR(41,"C1C1800000000000")
590 CALL CHAR(42,"FEFF7F0100000000")
600 CALL CHAR(43,"00C1FFFF00000000")
610 CALL CHAR(44,"F8F0C08000000000")
620 CALL CHAR(47,"00000000000001FF")
630 CALL CHAR(48,"000000000000FFFF")
640 CALL CHAR(49,"00000000000080FF")
650 CALL CHAR(50,"0000000000000080")
660 CALL CHAR(52,"0101030303070707")
670 CALL CHAR(53,"FBFFFFFFFFFFFFFF")
680 CALL CHAR(54,"DEFFFFFFFFFFFFFF")
690 CALL CHAR(55,"FFFFFFFFFFFCF0C0")
700 CALL CHAR(56,"FFFFFFCF07030301")
710 CALL CHAR(57,"C0E0E0F0B838D898")
720 CALL CHAR(58,"070707070707070F")
730 CALL CHAR(59,"FCFCFCFCFCF8F8F8")
740 CALL CHAR(60,"00000000000038FF")
750 CALL CHAR(61,"000000000000003F")
760 CALL CHAR(62,"091D1D1D1D1D1DCD")
770 CALL CHAR(63,"FCFCFCFCFCF8F8EC")
780 CALL CHAR(64,"0F0F0F0F07060606")
790 CALL CHAR(65,"F9F8F8D8D8D8D8D8")
800 CALL CHAR(66,"CE00011F00000000")
810 CALL CHAR(67,"7E7E860606060604")
820 CALL CHAR(68,"1010000000000000")
830 CALL CHAR(69,"1E78781E00000000")
840 CALL CHAR(70,"C202020000000000")
850 CALL CHAR(71,"7C7C787878787868")
860 CALL CHAR(72,"3F3F3F1F0F0F0F07")
870 CALL CHAR(73,"F9F1F9FBC7C7C3C3")
880 CALL CHAR(74,"FFFFFFFFFF80C0F0")
890 CALL CHAR(75,"F0E0C000FFC00000")
900 CALL CHAR(76,"0F0707FF7C3870F0")
910 CALL CHAR(77,"FFFFFFFF1F1F1F3E")
920 CALL CHAR(78,"8080808080000000")
930 CALL CHAR(79,"0000030C163F5C40")
940 CALL CHAR(80,"0000C06030397FFF")
950 CALL CHAR(81,"6F3E3E7FFFFFF3E1")
960 CALL CHAR(82,"0F1C3C78F8F8F0F0")
970 CALL CHAR(83,"FE00000000000000")
980 CALL CHAR(84,"01010307070F3E7C")
990 CALL CHAR(85,"E0C0C0C080800000")
1100 PRINT "/00123-./00123-./00123-./001	
	
	

567894

567894

567894

567"
1110 PRINT "



<=>?:;<=>?:;<=>?:;<="
1120 PRINT "BCDEFG@ABCDEFG@ABCDEFG@ABCDE   IJKLMNHIJKLMNHIJKLMNHIJKL"
1130 PRINT " #$%&! #$%&! #$%&! #$%QRSTUOPQRSTUOPQRSTUOPQRST)*+,'()*+,'()*+,'()*+,"
1140 PRINT "/00123-./00123-./00123-./001	
	
	

567894

567894

567894

567"
1150 PRINT "



<=>?:;<=>?:;<=>?:;<="
1160 PRINT "BCDEFG@ABCDEFG@ABCDEFG@ABCDE   IJKLMNHIJKLMNHIJKLMNHIJKL"
1170 PRINT " #$%&! #$%&! #$%&! #$%QRSTUOPQRSTUOPQRSTUOPQRST"
1280 DATA 1,1,45,1,2,46,1,31,50,1,32,51,3,1,52,3,31,56,3,32,57,5,1,58
1290 DATA 5,2,59,5,31,62,5,32,63,7,1,64,7,2,65,7,31,70,7,32,71,9,2,72
1300 DATA 9,31,77,9,32,78,10,2,33,10,3,34,10,11,34,10,19,34,10,27,34,10,31,38
1310 DATA 11,1,79,11,2,80,11,31,85,12,1,39,12,2,40,13,1,45,13,2,46,13,31,50
1320 DATA 13,32,51,15,1,52,15,31,56,15,32,57,17,1,58,17,2,59,17,31,62,17,32,63
1330 DATA 19,1,64,19,2,65,19,31,70,19,32,71,21,2,72,21,31,77,21,32,78,22,2,33
1340 DATA 22,3,34,22,11,34,22,19,34,22,27,34,22,31,38,23,1,79,23,2,80,23,31,85
1350 DATA 24,1,39,24,2,40,24,3,41,24,4,42,24,5,43,24,6,44,24,9,39,24,10,40
1360 DATA 24,11,41,24,12,42,24,13,43,24,14,44,24,17,39,24,18,40,24,19,41,24,20,42
1370 DATA 24,21,43,24,22,44,24,25,39,24,26,40,24,27,41,24,28,42,24,29,43,24,30,44

1400 RESTORE 1280
1410 FOR FILL=1 TO 80
1420 READ Y,X,CP
1430 CALL VCHAR(Y,X,CP)
1440 NEXT FILL
1450 CALL KEY(0,K,S)
1460 IF S=0 THEN 1450
1470 END