home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
utils
/
miscutil.zip
/
MIRRORDD.ZIP
/
XFER.XTS
< prev
Wrap
Text File
|
1987-07-11
|
1KB
|
107 lines
fk c5 ""
sc s
cls
me
(RECEIVE) RX XMODEM XX (XMIT)
RB XMODEM BATCH XB
RY YMODEM XY
RS YMODEM /SINGLE XS
RN YMODEM /NO ERROR CHECKING XN
GK/RK KERMIT SERVER/NONSERVER XK
RQ CROSSTALK XM
RH HAYES XH
.
label ask-rxg
ASK (R)eceive or (X)mit?
if -rxg Jump ASK-RXG
jump ask-@
label ask-R
Ask Which protocol?
if -xbysnkqh jump ask-r
jump ask-r@
label ask-x
ask Which protocol?
if -xbysnkmh jump ask-x
jump ask-x@
label ask-g
ask Which protocol? (Kermit only)
if -k jump ask-rxg
jump ask-g@
label ask-rx
fk c6 RX
jump xfer
label ask-rb
fk c6 Rb
jump xfer
label ask-ry
fk c6 Ry
jump xfer
label ask-rs
fk c6 Ry
fk c5 /s
jump xfer
label ask-rn
fk c6 Ry
jump xfer
fk c5 /n
label ask-rk
fk c6 Rk
jump xfer
label ask-rq
fk c6 Rq
jump xfer
label ask-rh
fk c6 Rh
jump xfer
label ask-xx
fk c6 xx
jump xfer
label ask-xb
fk c6 xb
jump xfer
label ask-xy
fk c6 xy
jump xfer
label ask-xs
fk c6 xy
fk c5 /s
jump xfer
label ask-xn
fk c6 xy
fk c5 /n
jump xfer
label ask-xk
fk c6 xk
jump xfer
label ask-xm
fk c6 xm
jump xfer
label ask-xh
fk c6 xh
jump xfer
label ask-gk
fk c6 gk
jump xfer
;
label xfer
ask @c7 Filename?
sc t
@c6 @c7 @c5
alarm
wait d 50
reply |
wait d 10
reply G|
wait d 10
reply N|
wait d 10
reply G|
wait d 10
reply Y|
wait d 10
reply N|
wait d 30
bye
label rturn
rturn