10 HIMEM:8165
20 POKE 232,229:POKE 233,31
30 FOR L=8165 TO 8175: READ B:POKE L,B:NEXT L
35 HGR:ROT=0:SCALE=2
40 FOR I=1 TO 1: XDRAW I AT I*10,100:NEXT I
90 END
100 DATA 1,0,4,0,39,44,149,43,54,63
101 DATA 0