10 MEMSET &H0B00
20 POKE &H011E,&H0A
30 POKE &H011F,&H40
40 FOR A%=&H0A40 TO &H0AFF STEP 6
50 READ C$
60 PRINT "POKING ";C$;" TO";A%
70 FOR O%=0 TO 2
80 READ B%:POKE A%+O%,B%
90 NEXT O%
100 FOR O%=3 TO 5
110 POKE A%+O%,0
120 NEXT O%
130 NEXT A%
140 FOR A%=224 TO 255
150 PRINT CHR$(A%);
160 IF A%=233 THEN PRINT
170 IF A%=243 THEN PRINT
180 NEXT A%
190 PRINT
200 FOR A%=32 TO 128
210 GOSUB 300
220 NEXT A%
230 FOR A%=129 TO 223
240 GOSUB 300
250 NEXT A%
260 FOR A%=224 TO 255
270 GOSUB 300
280 NEXT A%
290 END
300 REM
310 LET A$=CHR$(A%)
320 PRINT A%;A$
330 RETURN
340 REM
350 DATA "A",30,5,30
360 DATA "B",31,21,10
370 DATA "C",14,17,17
380 DATA "D",31,17,14
390 DATA "E",31,21,17
400 DATA "F",31,5,1
410 DATA "G",14,17,29
420 DATA "H",31,4,31
430 DATA "I",17,31,17
440 DATA "J",9,17,15
450 DATA "K",31,4,27
460 DATA "L",31,16,16
470 DATA "M",31,2,31
480 DATA "N",31,6,31
490 DATA "O",14,17,14
500 DATA "P",31,5,2
510 DATA "Q",14,17,30
520 DATA "R",31,5,26
530 DATA "S",18,21,9
540 DATA "T",1,31,1
550 DATA "U",31,16,31
560 DATA "V",15,16,15
570 DATA "W",31,8,31
580 DATA "X",27,4,27
590 DATA "Y",3,28,3
600 DATA "Z",25,21,19
610 DATA "0",14,21,14
620 DATA "1",18,31,16
630 DATA "2",18,25,22
640 DATA "3",17,21,10
650 DATA "4",7,28,4
660 DATA "5",23,21,9