when ""
sc t
data 8
parity None
mode Call
wait delay 20

label hello
re ^ccd \mailbox|
wait delay 20
cl
me The HOME PC 'mailbox' directory contains the following files:
re ^cdir /s|

label srwait
ask Would you like to (S)end , (R)eceive or (C)hat ; S/R/C ?
if s jump filesend
if r jump filereceive
if c jump chat
jump srwait

label filesend
ask @a1 What file do you want to send (from AWAY to HOME) ? 
fk a2 "\mailbox"
if -[@a1] jump nothingtosend
re ^crb @a2\|
xb @a1
ju transfercomplete

label nothingtosend
me
The file you are trying to send does not exist.
.
ju transfercomplete

label filereceive
ask @a2 What file do you want to receive (from HOME to AWAY) ? 
fk a1 ""
when "not found" jump nofile
reply ^cif -[@a2] re @S6|||
wait delay 20
reply ^cxb @a2|
rb @a1\

label nofile
when -

label transfercomplete
ask Press any key to continue...
jump hello

label chat
me

** Connection held, everything you type will be transmitted
word for word to the HOME PC. To send a MIRROR command for execution
by the HOME PC: type {CTRL} C, then the command.

To terminate the call type   {ESC} bye {enter}
To send/receive file(s) type {ESC} DO FILETRAN {enter}

.
go l
end