home *** CD-ROM | disk | FTP | other *** search
- 1 A=2337:E=PEEK(45)+PEEK(46)*256
- 2 F$="":FORI=1TO16:GOSUB13
- 3 F$=F$+A$:NEXT
- 4 FORI=16TO1STEP-1
- 5 IFMID$(F$,I,1)<>" "THENZ=I:I=0
- 6 NEXT:F$=LEFT$(F$,Z)
- 7 GOSUB13:L$=A$:GOSUB13:H$=A$
- 8 B=ASC(L$+CHR$(0))+256*ASC(H$+CHR$(0))
- 9 OPEN3,8,3,F$+",P,W"
- 10 FORI=1TOB:GOSUB13:PRINT#3,A$;:NEXT
- 11 CLOSE3:IFA<ETHEN2
- 12 PRINT"ALL DONE!":END
- 13 A$=CHR$(PEEK(A)):PRINTA:A=A+1:RETURN
-