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