start tok64 d64-1fuRBJ
10 POKE53272,30:POKE998,1:GOSUB280:IFPEEK(2)=0THENGOSUB200:RESTORE:GOSUB280
20 GOSUB260:PRINT"{home}{reverse on} {reverse off}":q=65:POKE1204,64:GOSUB350:POKE55476,1:POKE999,0
30 GETa$:IFa$="{right}"THENPOKE1024+x+y,q:x=x+1:IFx>7THENx=0
40 IFa$="{left}"THENPOKE1024+x+y,q:x=x-1:IFx<0THENx=7
50 IFa$="{down}"THENPOKE1024+x+y,q:y=y+40:IFy>280THENy=0
60 IFa$="{up}"THENPOKE1024+x+y,q:y=y-40:IFy<0THENy=280
70 IFa$="+"ORa$=CHR$(219)THENPOKE1024+x+y,81:q=81:GOSUB170
80 IFa$="-"ORa$=CHR$(221)THENPOKE1024+x+y,65:q=65:GOSUB180
90 IFa$="b"ANDb=0THENb=1:a$="":GOSUB270:GOSUB340:GOSUB220
100 IFa$="b"ANDb=1THENb=0:GOSUB320:POKE1024,64:POKE55476,1:GOTO30
110 IFa$=CHR$(13)ANDb=1THENGOSUB250
120 IFa$="n"THENb=0:GOTO20
130 IFa$="s"THEN360
150 IFa$<>""THENq=PEEK(1024+x+y):POKE1024+x+y,160:GOTO30
160 GOTO30
170 POKE14848+y/40,PEEK(14848+y/40)OR2^(7-x):RETURN
180 POKE14848+y/40,PEEK(14848+y/40)AND255-(2^(7-x)):RETURN
200 POKE56333,127:POKE1,51:FORi=0TO256*8-1:POKEi+14336,PEEK(53248+i):NEXT
210 POKE1,55:POKE56333,129:POKE2,22:POKE43272,30:RETURN
220 PRINT"{clear}@abcdefg":PRINT"hijklmno":PRINT"pqrstuvx":PRINT"yz][{pound}^{arrow left} ":PRINT"!";
230 PRINTCHR$(34)"#$%&'(":PRINT")*+,-./0":PRINT"12345678":PRINT"9:;<=>? "
240 PRINT"{home}{reverse on} {reverse off}":q=0:x=0:y=0:RETURN
250 FORi=0TO7:POKE336+q*8+i,PEEK(14848+i):NEXT:POKE1024+x+y,q:RETURN
260 PRINT"{clear}{white}";:FORi=0TO7:PRINT"{^*8}":NEXT:x=0:y=0:RETURN
270 FORu=0TO40*7STEP40:FORi=0TO7:POKE8192+u+i,PEEK(1024+i+u):NEXT:NEXT:RETURN
280 FORi=14856TO14863:READa:POKEi,a:NEXT:FORi=27*8TO30*8-1:READa:POKE14336+i,a
290 NEXT:RETURN
300 DATA0,0,0,0,0,24,24,0,102,24,60,102,126,102,102,0
310 DATA102,60,102,102,102,102,60,0,24,24,60,102,126,102,102,0
320 PRINT"{clear}":FORi=0TO40*7STEP40:FORj=0TO7:POKE1024+i+j,PEEK(8192+i+j)
330 POKE55296+i+j,1:NEXT:NEXT:x=PEEK(1000):y=PEEK(1001)*40:q=PEEK(1002):RETURN
340 POKE1000,x:POKE1001,y/40:POKE1002,q:RETURN
350 FORi=14848TO14855:POKEi,0:NEXT:RETURN
360 INPUT"{home}{down*12}{reverse on}[r du s[ker";a$:IFa$<>"j"THENGOTO30
370 a=PEEK(998)+60000:POKE998,PEEK(998)+1:IFPEEK(998)=66THEN420
380 FORi=0TO7:a$=STR$(PEEK(14336+PEEK(999)*8+i)):a$=RIGHT$(a$,LEN(a$)-1)
390 b$=b$+a$+",":NEXT:POKE999,PEEK(999)+1
400 a$=STR$(a):a$=a$+"data"+b$:a$=LEFT$(a$,LEN(a$)-1):PRINT"{clear}{down*2}"a$
410 PRINT"goto370":POKE198,2:POKE631,13:POKE632,13:PRINT"{home}";:END
420 PRINT"{clear}{down*2}6{0*4}fori=14336to14847:reada:pokei,a:next:poke53272,30:return"
430 PRINT"goto440":POKE198,2:POKE631,13:POKE632,13:PRINT"{home}";:POKE999,1:END
440 PRINT"{clear}{down}":FORi=0TO8:PRINTPEEK(999)*10+i*10:NEXT:PRINT"goto440"
450 POKE999,PEEK(999)+9:POKE198,10:FORi=0TO9:POKE631+i,13:NEXT:PRINT"{home}";:END
stop tok64
(bastext 1.0)