💾 Archived View for mirrors.apple2.org.za › active › ftp.apple.asimov.net › images › communications … captured on 2023-01-29 at 06:30:46.

View Raw

More Information

-=-=-=-=-=-=-

LOAD XFER.UTIL
6170 ?:? "Press Return to begin, G)oodbye after transfer, or A)bort : ";:POKE VI,1: GOSUB 100: ON CR = 1 GOTO 6200
6175 IF I$ = "G" THEN FG=1: GOTO 6200
6390 IF ABS (PEEK (EM) - TL) < 1 OR FG = 1 THEN ?:?:? "Transfer successful.": GOTO 150
1435 IF I$ = "V" THEN 9800
9800 ONERR GOTO 9840
9810 ?:? "View text file online:": ?:? "Enter filename : ";: POKE VI,15: POKE UC,255: GOSUB 100: ON CR = 1 GOTO 1300
9820 XV$=I$
9823 X=1
9825 IF MID$ (I$,X,1) = "/" THEN 9850
9826 IF X = LEN (I$) THEN 9830
9830 ? D$ "TYPE";XV$: GOTO 1300
9840 ?:? "File not found.": GOTO 1300
9850 ?:? "Invalid filename.": GOTO 1300
1030 XA=22795-512: FF=XA+174
7020 X=PEEK (BA+70): POKE XA+263+1,X: POKE BA,72,X: CALL XA+125: CALL BA+88
SAVE XFER.UTIL