start tok64 d64-M0VSZy
0 POKE198,3:POKE631,83:POKE632,50:POKE633,47:INPUT"namn";ip$
1001 pt=.
1002 OPEN2,8,2,ip$+",s,r
1003 PRINT"{clear}{down*2}";:c$=CHR$(13):IFpt=.THEN1005
1004 FORrc=1TOptSTEP.:GET#2,a$:rc=rc-(a$=c$):NEXT
1005 FORi=1TO8:GET#2,a$:IFa$="{arrow left}"THENqt=1:GOTO1009
1006 GET#2,a$:PRINTa$;:IFa$<>c$THEN1006
1008 NEXT
1009 PRINT"1001pt="pt+8":ip$="CHR$(34)ip$
1010 PRINT"goto1001
1011 IFqt=1THENPRINT"{up}r=1001:goto1013
1012 PRINT"{home}";:CLOSE2:POKE198,10:FORi=1TO10:POKE630+i,13:NEXT:END
1013 PRINT"{clear}{down*2}";:FORi=rTOr+8:PRINTi:NEXT:PRINT"r="i":goto1013{home}";:POKE198,10
1014 FORi=1TO10:POKE630+i,13:NEXT
stop tok64
(bastext 1.0)