10 HIMEM:8156
20 POKE 232,220:POKE 233,31
30 FOR L=8156 TO 8175: READ B:POKE L,B:NEXT L
35 HGR:ROT=0:SCALE=5
40 FOR I=1 TO 1: XDRAW I AT 110,100:NEXT I
90 END
100 DATA 1,0,4,0,50,63,39,37,53,14
101 DATA 45,37,39,151,36,63,36,45,54,0