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 GOTO80 90 END 100 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 110 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 120 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 130 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 140 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 150 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 160 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 170 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 180 DATA 232,233,234,235,224,225,226,227,228,229,230,231,232,233,234,235,224,225,226,227 190 DATA 243,244,245,253,253,236,237,238,239,240,241,242,243,244,245,253,253,236,237,238 200 DATA 253,250,251,253,253,253,253,246,247,253,248,249,253,250,251,253,253,253,253,246 210 DATA 253,253,253,253,253,253,253,255,253,253,253,253,253,253,253,253,253,253,253,255