10 MEMSET&HB00
20 CLS:WIDTH20,16
30 POKE&H11E,&HA:POKE&H11F,&H40
40 FORI=&HA40 TO&HAFF:READJ$:J=VAL("&H"+J$):POKEI,J:NEXT
50 LOCATE0,0,0
60 FORI=0TO79:READJ:PRINTCHR$(J);:NEXT
70 LOCATES0,0,0
80 LINE(0,0)-(119,0),PSET:LINE-(119,31),PSET:LINE-(0,31),PSET:LINE-(0,0),PSET
90 LINE(0,16)-(119,16),PSET:LINE(24,0)-(24,31),PSET:LINE(96,0)-(96,31),PSET
100 COPY
110 DATA 04,04,00,2C,1C,1C,0C,0C,0C,1C,3C,FE,FF,FF,FF,FF,FF,FF,A7,67,FE,FC,7D,71
120 DATA 61,47,0F,0F,07,07,03,03,08,00,A0,F0,C0,68,F8,FC,FC,FC,7C,7C,F8,7C,FE,FE
130 DATA FC,FE,FE,FC,FE,FE,FE,FF,FF,FF,FF,FE,FE,FE,FE,7E,AE,0E,0E,3E,1C,0C,0C,04
140 DATA 00,00,00,00,00,01,03,07,07,0F,1F,13,33,67,C9,C0,C0,C0,80,80,00,00,00,00
150 DATA 00,00,00,7C,7F,7F,7E,7E,FE,FC,FD,FD,FD,F3,EF,5F,1A,07,07,0F,1F,7F,1F,0F
160 DATA 0F,1F,0F,0F,0F,07,06,01,02,01,00,00,00,00,03,87,FF,FF,FF,7F,1F,1F,06,00
170 DATA 00,00,0F,3F,7F,7F,3F,07,00,18,00,00,00,00,30,70,78,78,7C,7C,FC,F0,60,00
180 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,03,00
190 DATA 232,233,234,235,224,225,226,227,228,229,230,231,232,233,234,235,224,225,226,227
200 DATA 243,244,245,253,253,236,237,238,239,240,241,242,243,244,245,253,253,236,237,238
210 DATA 253,250,251,253,253,253,253,246,247,253,248,249,253,250,251,253,253,253,253,246
220 DATA 253,253,253,253,253,253,253,255,253,253,253,253,253,253,253,253,253,253,253,255
230 RESTORE280
240 READI,J:IFI=0THENRESTORE290:GOTO260ELSESOUNDI,J
250 GOTO240
260 READI,J:IFI=0THENRESTORE290:GOTO240ELSESOUNDI+7,J
270 GOTO260
280 DATA 44,4,16,3,44,1,15,2,44,4,11,2,39,2,12,2,40,2,13,2,41,4
290 DATA 34,4,12,3,12,1,39,3,39,1,12,3,12,1,40,3,40,1,11,1,10,1,11,1,12,1,11,2,37,2,9,2,8,2,9,2,34,2
300 DATA 41,3,41,1,13,3,13,1,41,3,41,1,14,3,14,1,15,1,14,1,15,1,44,1,16,2,15,2,14,6,14,2
310 DATA 41,3,41,1,44,3,15,1,41,3,13,1,41,2,12,2,11,2,34,1,6,1,34,1,6,1,34,2,11,2,34,1,6,1,34,1,6,1,34,2
320 DATA 41,3,41,1,44,3,15,1,41,3,13,1,41,2,39,2,11,2,6,1,33,1,6,1,33,1,6,2,34,4
330 DATA 34,4,12,3,12,1,39,3,39,1,12,3,12,1,40,3,40,1,11,1,10,1,11,1,12,1,11,2,37,2,9,2,8,2,9,2,34,2
340 DATA 41,3,41,1,13,3,13,1,41,3,41,1,14,3,14,1,15,1,14,1,15,1,44,1,16,2,15,2,14,6,14,2
350 DATA 41,3,41,1,44,3,15,1,41,3,13,1,41,2,12,2,11,2,34,1,6,1,34,1,6,1,34,2,11,2,34,1,6,1,34,1,6,1,34,2
360 DATA 41,3,41,1,44,3,15,1,41,3,13,1,41,2,39,2,11,2,6,1,33,1,6,1,33,1,6,2,34,4
370 DATA 41,3,40,1,12,4,15,3,37,1,9,2,16,2,8,2,15,2,34,2,41,2,40,2,47,2,12,2,19,2
380 DATA 11,3,12,1,40,2,41,2,15,2,44,2,18,4,44,4,12,8,11,4
390 DATA 41,3,40,1,12,4,15,3,37,1,9,2,16,2,8,2,15,2,34,2,41,2,40,2,47,2,12,2,19,2
400 DATA 11,3,12,1,40,2,15,2,18,3,44,1,12,2,41,2,37,3,12,1,11,8,37,4
410 DATA 41,3,40,1,12,4,15,3,37,1,9,2,16,2,8,2,15,2,34,2,41,2,40,2,47,2,12,2,19,2
420 DATA 11,3,12,1,40,2,41,2,15,2,44,2,18,4,44,4,12,8,11,4
430 DATA 41,3,40,1,12,4,15,3,37,1,9,2,16,2,8,2,15,2,34,2,41,2,40,2,47,2,12,2,19,2
440 DATA 11,3,12,1,40,2,15,2,18,3,44,1,12,2,41,2,37,3,12,1,11,8,37,4
450 DATA 41,4,41,4,40,2,12,2,12,4,39,2,12,2,12,12,39,2,12,2,12,4,39,2,12,2,41,4,12,2,41,2,40,8,11,6
460 DATA 11,2,11,4,10,2,11,2,11,4,10,2,11,2,40,12,12,2,11,2,12,2,41,4,41,2,15,4,15,4
470 DATA 34,3,8,1,9,2,8,2,34,2,33,2,5,2,4,2
480 DATA 41,4,40,2,12,2,12,4,39,2,12,2,12,12,39,2,12,2,12,4,39,2,12,2,40,2,12,2,11,2,9,2,11,8,37,6
490 DATA 37,2,37,4,9,2,37,2,39,4,11,2,37,2,44,10,37,2,11,2,12,2,41,2,37,2,11,2,12,2,41,2,34,2,8,2,12,2,11,8,37,4
500 DATA 0,0,0,0