start tok64 d64-4wLVrs
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}";:IFpt>0THENFORi=1TOpt:INPUT#2,a$:NEXT
1004 FORi=1TO5:FORj=.TO1STEP.:GET#2,a$:sr=st
1005 IFsr=.ANDa$<>CHR$(13)THENb$=b$+a$:NEXT
1006 PRINTb$:b$="":IFsr=.THENNEXTi
1007 PRINT"1001pt="pt+5":ip$="CHR$(34)ip$
1008 PRINT"goto1001
1009 IFst<>.ORsr<>.THENPRINT"{up}goto1011
1010 PRINT"{home}";:CLOSE2:POKE198,7:FORi=1TO7:POKE630+i,13:NEXT:END
1011 PRINT"{clear}";:FORi=1001TO1011:PRINTi:NEXT:PRINT"home+12*return!
stop tok64
(bastext 1.0)