home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1993 #2 / Image.iso / comm / infoterm.zip / HOST.SCR < prev    next >
Text File  |  1993-06-22  |  2KB  |  128 lines
  1. ;This is a host script file for InfoTerm Plus!
  2. ;
  3. ;Be SURE to change the com port, replace ALL "2"s with the right number
  4. ;
  5. ;This demonstration has no password. One can be added. Do not use unattended
  6. ;without a password!
  7. ;
  8. ; Note that "Demonstration" is spelled wrong below. the "AT" would have
  9. ; messed up the modem if it is hayes-compatible. I don't spell THAT bad ;).
  10. ;
  11. SEND %This is a demonstrasion host script file, HOST.SCR^M
  12. SEND %It is not intended for use as-is but it will work. Please feel free to^M
  13. SEND %revise or edit the script. As it comes, it is designed for COM port 2.^M
  14. HALF
  15. SEND ATS0=1^M
  16. WAITCARRIER
  17. FULL
  18. DELAY
  19. SEND Welcome to InfoTerm Plus Host!^M
  20. SEND ^M
  21. SEND (U)pload     (D)ownload     (L)ist files^M
  22. SEND (C)hat     (S)hell to DOS     (H)angup^M
  23. SEND Your Choise:
  24. PROMPT
  25.  
  26. IF L
  27. SEND FileSpec?:
  28. STRING
  29. SEND @DIR ~1 > COM2
  30. ENDIF
  31.  
  32. IF H
  33. HANGUP
  34. ENDIF
  35.  
  36. IF U
  37. GOTO 55
  38. ENDIF
  39.  
  40. IF D
  41. GOTO 90
  42. ENDIF
  43.  
  44. IF S
  45. SEND @COMMAND.COM >COM 2 <COM 2
  46. ENDIF
  47.  
  48. IF C
  49. SEND ^G^G^G^G^GChat Mode^M
  50. SEND To exit type "x" on a blank line^M
  51. SEND ^M
  52. WAIT ^Mx^M
  53. ENDIF
  54.  
  55. GOTO 10
  56.  
  57.  
  58.  
  59. ; This is the line that Upload goes to
  60. ; MANY more protocols can be added
  61. SEND Protocols:^M
  62. SEND [X]modem   [Y]modem   [Z]modem   [S]uper Zmodem [K]ermit   [J]modem^M
  63. SEND Your choise:
  64. PROMPT
  65.  
  66. IF X
  67. SEND @DSZ.COM PORT 2 RX
  68. ENDIF
  69.  
  70. IF Y
  71. SEND @DSZ.COM PORT 2 RB
  72. ENDIF
  73.  
  74. IF Z
  75. SEND @DSZ.COM PORT 2 RZ
  76. ENDIF
  77.  
  78. IF S
  79. SEND @SZMODEM PORT 2 RZ
  80. ENDIF
  81.  
  82. IF K
  83. SEND @PCKERMIT -l COM2 -r
  84. ENDIF
  85.  
  86. IF J
  87. SEND @JMODEM R2
  88. ENDIF
  89.  
  90. GOTO 10
  91.  
  92.  
  93.  
  94. ; This is the line that Download goes to
  95. ; MANY more protocols can be added
  96. SEND Filename:
  97. STRING
  98. SEND ^M^MProtocols:^M
  99. SEND [X]modem   [Y]modem   [Z]modem   [S]uper Zmodem   [K]ermit   [J]modem^M
  100. SEND Your choise:
  101. PROMPT
  102.  
  103. IF X
  104. SEND @DSZ PORT 2 SX ~1
  105. ENDIF
  106.  
  107. IF Y
  108. SEND @DSZ PORT 2 SB ~1
  109. ENDIF
  110.  
  111. IF Z
  112. SEND @DSZ PORT 2 SZ ~1
  113. ENDIF
  114.  
  115. IF S
  116. SEND @SZMODEM PORT 2 SZ ~1
  117. ENDIF
  118.  
  119. IF K
  120. SEND @PCKERMIT -l COM2 -s ~1
  121. ENDIF
  122.  
  123. IF J
  124. SEND @JMODEM S2 ~1
  125. ENDIF
  126.  
  127. GOTO 10
  128.