0 REM CUNIET1

1 HOME:HGR2:HGR:GOSUB2:GETA$:GOSUB2:P=8192:CALL62425:GOSUB2:FORI=1TO900:POKE49236,0:POKE-16336,0:POKE49237,0:NEXT:END:DATA 12,28,30,62,30,127,12,28,30,62,63,62,63,62,63,62,63,62,30,127,30,28,30,28,51,54,24,96,60,112,60,120,28,60,14,56,14,124

2 FORI=0TO12:READV:POKE8379+P+1024*I-8064*INT(I/8),V:READV:POKE8380+P+1024*I-8064*INT(I/8),V:NEXT:RETURN:DATA 15,126,127,31,31,30,56,60,96,56,120,24,28,60,12,48,30,120,30,124,30,62,14,56,30,28,63,126,123,127,246,158,112,60,96,56,60,24,14,60