SC1FONTS.BAS

10 SCREEN 1
20 LOCATE 0,10:PRINT "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
30 ST=ASC("A")*8
40 FOR I=0 TO 207
50  READ R$
60  VPOKE ST+I, VAL("&H"+R$)
70 NEXT I

71 VPOKE 8192+9, &H6B
72 VPOKE 8192+10, &H7C
73 VPOKE 8192+11, &H8E
74 VPOKE 8192+12, &H9F

1000 ' ABCDEFGHIJ
1000 DATA 02,06,0E,1E,3E,76,E6,76
1010 DATA FE,CC,D8,FE,CC,D8,F0,E0
1020 DATA 7E,FC,C0,C0,C0,C0,FC,7E
1030 DATA FE,FE,CC,D8,F0,E0,C0,80
1040 DATA FE,FE,00,FE,FE,00,FE,FE
1050 DATA FF,FE,C0,FC,F8,C0,C0,80
1060 DATA 7E,FC,C0,C0,C2,C6,FE,7F
1070 DATA C6,C6,C6,FE,FE,C6,C6,84
1080 DATA 38,38,38,38,38,38,30,20
1090 DATA 02,06,06,06,06,06,7E,FE
1100 '  KLMNOPQRST
1100 DATA CE,DC,F8,F0,F8,DC,CE,86
1110 DATA 40,C0,C0,C0,C0,C0,FE,FC
1120 DATA 82,C6,EE,FE,FE,D6,C6,C6
1130 DATA C6,E6,F6,FE,DE,CE,C6,42
1140 DATA 7C,FE,C6,C6,C6,C6,FE,7C
1150 DATA FC,FE,06,FE,FC,C0,C0,80
1160 DATA 7C,FE,C6,C6,D6,FE,7C,10
1170 DATA C8,DC,CE,DC,F8,DC,CE,86
1180 DATA FE,FE,80,FE,FE,02,FE,FE
1190 DATA FE,FC,30,30,30,30,30,20
1200 '  UVWX YZ
1200 DATA 82,C6,C6,C6,C6,C6,FE,7C
1210 DATA 03,06,CC,D8,F0,E0,C0,80
1220 DATA C6,C6,D6,FE,FE,EE,C6,82
1230 DATA 86,CE,FC,78,3C,7E,E6,C2
1240 DATA 87,CE,FC,78,30,30,30,20
1250 DATA 7E,FE,1C,38,70,E0,FE,FC