10 HIMEM:8162
20 POKE 232,226:POKE 233,31
30 FOR L=8162 TO 8175: READ B:POKE L,B:NEXT L
35 HGR:ROT=0:SCALE=5
40 FOR I=1 TO 5: XDRAW 1 AT I*25,100:ROT=I*4:NEXT I
90 END
100 DATA 1,0,4,0,137,164,55,63,156,164
101 DATA 37,45,6,0