
new

10 s=48928:cls
rem 20 poke s+1,0:poke s+8,128+4:rem set DOR to0
20 poke s+1,1:poke s+8,128+4:rem set DOR to1
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


3000 rem - fun stuff
3010 c=0:a=15*16:y=20:x=6
3020 for j=0 to 15
3030 b=j*16
3040 gosub 1500:x=x+1
3050 next j



3080 x=0:y=0:b=0:a=15*16
3090 for j=0 to 39
3100 x=j:c=j
3110 gosub 1500
3120 next


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

