10 HIMEM:8169
20 POKE 232,233:POKE 233,31
30 FOR L=8169 TO 8175: READ B:POKE L,B:NEXT L
35 HGR:ROT=1:SCALE=10
37 FOR I=1 TO 10
40 XDRAW 1 AT 100,100
50 NEXT
90 END
100 DATA 1,0,4,0,37,53,0