home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 10 / mycd10.iso / progs / tun / dos / emul / mac.arc / TRANS.MAC < prev    next >
Encoding:
Text File  |  1995-06-26  |  683 b   |  38 lines
  1. # Characters sent by Host computer not displayed
  2. Title "File Transfert"
  3.  
  4. # Start
  5. Label BEGIN
  6. # Read password 
  7. ShowMessage
  8. ReadVar "Enter source file : " SOURCE
  9. ReadVar "Enter dest   file : " DEST
  10. HideMessage
  11. RcopyPut %SOURCE %DEST
  12. IfError TRANSFERTERROR
  13.  
  14. # Transfert done
  15. ShowMessage
  16. ClearMessage
  17. Echo -c "Transfert Done" 
  18. Sleep 3
  19. # Exit from the emulator
  20. Return
  21.  
  22. #Transfert error
  23. Label TRANSFERTERROR
  24. ShowMessage
  25. Echo "Error Transfering %FILE"
  26. ReadVar "Press Return to quit" ANSWER
  27. # Exit the emulator
  28. Return
  29.  
  30.  
  31. # No login 
  32. Label NOCONNECTION
  33. ShowMessage
  34. Echo "Communication failed"
  35. ReadVar "Press Return to quit" ANSWER
  36. # Exit the emulator
  37. exit
  38.