0 REM E.PROCIK

1 POKE 232,0: POKE 233,3: FOR I= 768 TO 815: READ V: POKE I,V: NEXT I: DATA 1,0,4,0,36,36,36,54,45,54,54,45,36,36,45,54,63,54,45,45,36,36,36,54,45,54,54,63:DATA 45,45,36,36,45,36,54,54,54,63,45,45,36,36,45,54,54,63,0,0

2 SCALE= 1:H = 10: HGR2: FOR R= 1 TO 63: HCOLOR= 3: ROT=R: DRAW 1 AT H,100: HCOLOR=0: DRAW 1 AT H,100:H = H + 2: NEXT R: FOR R = 48 TO 65: ROT=R: HCOLOR= 3: DRAW 1 AT H,100: HCOLOR= 0: DRAW 1 AT H,100: NEXT R: GOTO 2