home *** CD-ROM | disk | FTP | other *** search
- 63990 poke828,169:poke829,0:poke830,76
- 63991 poke831,49:poke832,243:close4
- 63992 input"filename";f$:open4,8,4,f$:get#4,a$,a$:poke829,1:a$=""
- 63993 print"[147]poke812,60:poke813,3":ifa$>""then63995
- 63994 get#4,a$
- 63995 printa$;:ifa$<>chr$(13)then63994
- 63996 get#4,a$:a=0:ifst=0thena=asc(a$+chr$(0))
- 63997 print"a$=chr$("a"):goto63993
- 63998 [139]st[167][151]829,0:[160]4:[144]
- 63999 [151]198,3:[151]631,13:[151]632,13:[151]633,13:[153]"":[128]
-