home *** CD-ROM | disk | FTP | other *** search
/ Jason Aller Floppy Collection / 147.img / NETMAL46.ZIP / SCRIPTS.ZIP / QMODEM.SCR < prev    next >
Encoding:
Text File  |  1989-03-20  |  2.6 KB  |  83 lines
  1. ;
  2. ;  Qmodem SST 4.0 - QuickLearn Script generated at 19:17:00 on 03/19/89
  3. ;  May require editing before use.
  4. ;
  5. ;   Created by Elias Alvord for use with the NetMail network system.
  6. ;   This file should be edited for use with the hub you call to get
  7. ;   your mail.  This script file was used with the Evergreen PCBoard,
  8. ;   without any problem.  If you need help with the NetMail system,
  9. ;   or the NetMail Door, please contact Home DBA Software at 
  10. ;   (206)789-9302,.
  11. ;
  12. ;   To use this file with Qmodem SST 4.0 in your EVENT.SYS file,
  13. ;   have the command line say :
  14. ;
  15. ;      QMODEM /S=NETMAIL.SCR
  16. ;
  17. ;       This file will need to be edited for your particular system,
  18. ;       and HUB system.
  19. ;
  20. TurnON   8_BIT
  21. TurnOFF  LINEFEED
  22. TurnON   XON/XOFF
  23. TurnON   NOISE
  24. TurnON   MUSIC
  25. TurnON   SCROLL
  26. TurnOFF  PRINT
  27. TurnOFF  ECHO
  28. TurnOFF  SPLIT
  29. TurnOFF  BS_DEL
  30. ;
  31. TimeOut  300    ; Set Waitfor timeout to 5 minutes
  32. Waitfor  "OK"
  33. Delay    100
  34.  
  35. Dial     "2"
  36. Waitfor  "What is your first name?"
  37. Delay    100
  38.  
  39. FKey     1      ; F1 key macro for First and Last name, if you don't use
  40. ;                 macros, insert the line 'SEND     "<your name>^M" '
  41. ;                 The "^M" is a Carrage Return, and must be included!
  42. Waitfor  "Password (Dots will echo)?"
  43. Delay    100
  44.  
  45. FKey     2      ; F2 key macro for Password, insert password here as above.
  46. Waitfor  "Since 'Last Read' (Enter)=yes?"
  47. Delay    100
  48. Send     "^M"   ; Send a return
  49.  
  50. Waitfor  "Press (Enter) to continue?"
  51. Delay    100
  52. Send     "^M"   ; Send a return
  53.  
  54. Waitfor  "Tr/Protocol: Zmodem (DOOR"
  55. Delay    100
  56. Send     "open 4^M"   ;  Open door 4 (Netmail door).  May have to be changed.
  57.  
  58. Waitfor  "è"    ; Waitfor Zmodem prompt.
  59. Delay    100
  60.  
  61. Upload   Z D:\TEMP\UNKNOWN.OUT   ; Send BBSNAME.OUT file to system.
  62. Waitfor  "è"    ;  Waitfor Zmodem prompt.
  63. Delay    100
  64.  
  65. Download Z d:\temp\unknown.in    ; Receive BBSNAME.IN file to system.
  66. ;                                  Although Zmodem does not need a file name,
  67. ;                                  Qmodem needs a filename.  Any filename
  68. ;                                  will work, as this filename is basically
  69. ;                                  a NUL file.
  70. Waitfor  "min. left) Main Board Command?"
  71. Delay    100
  72. Send     "g^M"   ; Send 'g' to logoff PCBoard
  73.  
  74. Waitfor  "NO CARRIER"   ; Wait for modem signal.
  75. Delay    100
  76. Send     "atz^M"    ; Reset modem to NRAM defaults (As used with the HST)
  77.  
  78. Delay    1500       ; Wait for a sec or so...
  79. Send     "ath1m0^M"  ; Put the modem OFF-HOOK for further batch processing.
  80.  
  81. System   X   ; Exit to system leaving DTR alone.
  82. Exit            ; End of Script
  83.