
new

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

1000 rem given a, b, x, y, c$, put c$ at x,y
1010 rem no limits checks
1020 POKES+2,B
1030 POKES+3,A
1040 POKES+6,Y
1050 x1=x
1060 for mc =1 to len(c$)
1070 c=asc(mid$(c$,mc,1))
1080 POKES+1,C
1090 POKES+7,X:x=x+1
1100 POKES+8,1
1110 next
1120 x=x1:return


1500 rem store a character c,b,a at x,y
1510 POKES+1,C
1520 POKES+2,B
1530 POKES+3,A
1540 POKES+6,Y
1550 POKES+7,X
1560 POKES+8,1
1570 return

1600 rem store a character c,b,a 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
1710 poke s+1,b
1720 poke s+4,y
1730 poke s+5,x+128
1740 poke s+6,0
1760 poke s+8,3*16+5:rem oct aux ptr
1810 poke s+1,a
1820 poke s+4,y
1830 poke s+5,x+64
1840 poke s+6,0
1860 poke s+8,3*16+5:rem oct aux ptr
1870 return


3000 rem - fun stuff
3010 print"Input row to test (0-31)";:input r
3020 y=r and31
3030 cls
3040 a=15*16:b=1
3050 for x=0to63
3060 c=x+33
3070 gosub 1600
3080 next


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

