5 PRINTCHR$(14):PRINTCHR$(8)
7 PRINT""
8 PRINT""
9 PRINT""
10 POKE52,48:POKE56,48:CLR
20 POKE56334,PEEK(56334)AND254
30 POKE1,PEEK(1)AND251
40 FORI=0TO1023:POKEI+12288,PEEK(I+2048+53248):NEXT
41 FORI=0TO7:POKE12288+512+25*8+I,PEEK(53248+512+2048+26*8+I):NEXT
42 FORI=0TO7:POKE12288+512+26*8+I,PEEK(53248+512+2048+25*8+I):NEXT
43 FORI=0TO7:POKE12288+25*8+I,PEEK(53248+2048+26*8+I):NEXT
44 FORI=0TO7:POKE12288+26*8+I,PEEK(53248+2048+25*8+I):NEXT
45 FORI=0TO7:READA:POKE12288+I,A:NEXT
46 FORI=0TO7:READA:POKE12288+122*8+I,A:NEXT
47 FORI=0TO7:READA:POKE12288+58*8+I,A:NEXT
48 FORI=0TO7:READA:POKE12288+27*8+I,A:NEXT
49 FORI=0TO7:POKE12288+42*8+I,PEEK(53248+2048+8+I):NEXT:POKE12288+42*8+1,102
50 FORI=0TO7:READA:POKE12288+64*8+I,A:NEXT
51 FORI=0TO7:POKE12288+60*8+I,PEEK(53248+2048+59*8+I):NEXT
52 FORI=0TO7:POKE12288+62*8+I,PEEK(53248+2048+58*8+I):NEXT
53 FORI=0TO7:READA:POKE12288+43*8+I,A:NEXT
54 FORI=0TO7:POKE12288+91*8+I,PEEK(53248+2048+63*8+I):NEXT
55 FORI=0TO7:POKE12288+28*8+I,PEEK(53248+2048+43*8+I):NEXT
59 POKE1,PEEK(1)OR4
60 POKE56334,PEEK(56334)OR1
70 POKE53272,(PEEK(53272)AND240)+12
100 DATA0,0,102,0,102,102,60,0,102,0,102,102,102,102,60,0
110 DATA0,0,102,60,102,102,60,0,102,60,102,102,102,102,60,0
120 DATA102,0,60,102,126,102,102,0,0,56,108,120,108,108,120,96
READY.