home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0020 - 0029 / ibm0020-0029 / ibm0028.tar / ibm0028 / BLST10_2.ZIP / BLASTDIR / HWSLAVE.SCR < prev    next >
Encoding:
Text File  |  1990-09-13  |  1.4 KB  |  61 lines
  1. #
  2. #    HWSLAVE.SCR - example file for operation as a slave 
  3. #              (direct connection).
  4. #
  5. #    09/10/90 - TSN
  6. #
  7. #    This script is an example of how to get your computer running
  8. #    BLAST II to act as a slave to a remote system which is hardwired
  9. #    to your PC.  For a particular application, the script may suffice 
  10. #    as-is, or you may need to alter and expand the script to fit your 
  11. #    needs.
  12. #
  13. #    If you have any questions concerning this script, please
  14. #    give us a call at CRG.
  15. #
  16. #    The logic of this script is as follows:
  17. #
  18. #        .BEGIN
  19. #
  20. #        Wait indefinitely for BLAST protocol
  21. #
  22. #        When BLAST protocol is detected enter FILETRANSFER
  23. #        mode on this computer.
  24. #
  25. #        ESC leaves filetransfer when the remote computer has
  26. #        completed all filetransfer functions.  
  27. #
  28. #        GOTO .BEGIN
  29. #
  30. #########################
  31. #
  32. .BEGIN
  33. #
  34.     set @MODEM = ""            # no modem type needed 
  35.     set @SYSTYPE = ""        # no system type needed 
  36. #
  37. # ****  Wait for BLAST protocol.
  38. #
  39.     clear
  40.     cursor 1,1
  41.     write "Waiting for protocol from remote system . . ."
  42.     ttrap  ";start" "ppp"        # wait for BLAST
  43. #
  44. # ****  BLAST is running on the remote machine
  45. #
  46.     clear
  47.     cursor 1,1
  48.     write "BLAST detected - now entering filetransfer."
  49.     FILETRANSFER            # enter FILETRANSFER mode
  50.     ESC                # and act as SLAVE
  51. #
  52. #
  53. #
  54.     clear
  55.     cursor 1,1
  56.     write "Exiting Filetransfer."
  57.     write "Resetting for next session."
  58.     goto .BEGIN    
  59.  
  60.  
  61.