>* To use this file, type in some filenames into buffer|
>* and mark then using mouse, then run DO file|
>FK 5 ">WA ""computer"",30 ABORT|"|
>QUERY "What DL do you want|to download from?" $C|
>QUERY "What path do you|want to download to?" $P|
>* open block for input|
>OP BLK:|
>IF ~OP JMP ABORT|
>* If block open fails, abort|
>$A "$C|"|
>* note trick to append bar to C to generate A|
>FK 6 ">SE ""$A""|>WA ""$C"" 20|>IF ~WA GO 7|"|
>FK 7 ">SE ""$A""|>WA ""$C"" 30 ABORT|"|
>* use function keys as subroutines. Send DL nn, then check for DL nn|
>* if fails first time, try again. If fails 2nd time, abort|
>GO 6|
>DP $P|
>$D "|"|
>* use D as bar, or could use double quotes|
>L: CONT|
>IN $F|
>IF EOF JMP EXIT|
>IF ~F JMP CONT|
>* If F was blank, try again|
>SE dow $F$D|
>GO 5|
>SE $F$D|
>PA 3|
>JMP CONT|
>L: ABORT|
>TYPE There was a big problem - didn't work!|
>END|
>L: EXIT|
>TYPE It seemed to work|
>* To use this file, type in some filenames into buffer|
>* and mark then using mouse, then run DO file|
>FK 5 ">WA ""computer"",30 ABORT|"|
>QUERY "What DL do you want|to download from?" $C|
>QUERY "What path do you|want to download to?" $P|
>* open block for input|
>OP BLK:|
>IF ~OP JMP ABORT|
>* If block open fails, abort|
>$A "$C|"|
>* note trick to append bar to C to generate A|
>FK 6 ">SE ""$A""|>WA ""$C"" 20|>IF ~WA GO 7|"|
>FK 7 ">SE ""$A""|>WA ""$C"" 30 ABORT|"|
>* use function keys as subroutines. Send DL nn, then check for DL nn|
>* if fails first time, try again. If fails 2nd time, abort|
>GO 6|
>DP $P|
>$D "|"|
>* use D as bar, or could use double quotes|
>L: CONT|
>IN $F|
>IF EOF JMP EXIT|
>IF ~F JMP CONT|
>* If F was blank, try again|
>SE dow $F$D|
>GO 5|
>SE $F$D|
>PA 4|
>JMP CONT|
>L: ABORT|
>TYPE There was a big problem - didn't work!|
>END|
>L: EXIT|
>TYPE It seemed to work|