
new

10 s=48928:cls
100 rem
110 gosub 3000
999 end


1600 rem store a character c at x,y using oct
1610 poke s+1,c
1620 poke s+4,y
1630 poke s+5,x
1640 poke s+6,0
1660 poke s+8,3*16+5:rem oct aux ptr
1870 return


3000 rem - fun stuff
3010 for c=128 to 255
3020 x = c and 15
3030 y= int((c -128) / 8) +9
3040 gosub 1600
3050 next

3330 a$=inkey$
3340 a$=inkey$:if a$="" then 3340
3550 if a$<>"x" then 3340
3560 rem exit
3585 cls
3590 return

