home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-386-Vol-2of3.iso / c / cnet9302.zip / COLLNET.SCR < prev    next >
Text File  |  1993-02-03  |  3KB  |  137 lines
  1. ;  Qmodem Script file to make mail runs for CollNet(tm).
  2. ;
  3. ;  Edit these settings as you need.
  4. Graphics ANSI
  5. TurnOFF  ECHO
  6. TurnON   8_BIT
  7. TurnOFF  LINEFEED
  8. TurnON   XON/XOFF
  9. TurnON   NOISE
  10. TurnOFF  MUSIC
  11. TurnON   SCROLL
  12. TurnOFF  PRINT
  13. TurnOFF  SPLIT
  14. TurnON   STATUSLN
  15. TurnOFF  DOORWAY
  16.  
  17. ;  Variables
  18. String QWKFILE REPFILE QWKPATH REPPATH TELNUM LIMIT
  19. String XFER NAME HOSTNAME INITIAL
  20.  
  21.  
  22. ;  Initialize Variables   EDIT THESE VARIABLES AS NECESSARY
  23. Assign HOSTNAME "NJ Computer Connection"         ;Hub Name
  24. Assign QWKFILE  NJCC.QWK                         ;QWK file name
  25. Assign REPFILE  NJCC.REP                         ;REP file name
  26. Assign QWKPATH  C:\PCB\QNET3\QWK\                ;Path where QWK file will
  27.                                                  ;be downloaded to.
  28. Assign REPPATH  C:\PCB\QNET3\REP\                ;Path to REP file location
  29. Assign XFER     Z                                ;Tranfer protocol
  30. Assign NAME     "FIRST LAST PASS"                ;Edit with your first and
  31.                                                  ;last names and password.
  32. Assign TELNUM   "ATDT 895-0398^M"                ;The telephone number.
  33. Assign LIMIT    30                               ;# of times to dial
  34. Assign INITIAL  "ATZ^M"                          ;Modem Init String
  35. SetComm 38400 8 NONE 1                           ;Comm Parameters
  36.  
  37. ;Init the modem
  38. INIT:
  39. Delay  1000
  40. ASSIGN 0 $LIMIT
  41. ClrScr
  42. Display "Initializing Modem"
  43. Delay  1000
  44. Send   "$INITIAL"
  45. Waitfor "OK"
  46.  
  47. ;Call the board
  48. GETON:
  49. When
  50. When "BUSY"           AGAIN
  51. When "NO DIAL TONE"   AGAIN
  52. When "NO CARRIER"     AGAIN  
  53. Pause  2000
  54. Decr   0
  55. If    "$0" < "1" GETOUT
  56. Timeout 75 GETON
  57. ClrScr
  58. Displayln "Attempting to connect with $HOSTNAME"
  59. Displayln "Dial attempts left are $0"
  60. Displayln "Dial String: $TELNUM"
  61. Delay      100
  62. Send      "$TELNUM"
  63. Waitfor   "CONNECT"
  64. goto ONTHESYSTEM
  65.  
  66. AGAIN:
  67. Pause 1000
  68. Send "ATH1^M"
  69. Pause 9000
  70. Goto  GETON
  71.  
  72. ;When connected to the system
  73. ONTHESYSTEM:
  74. Waitfor "first name?"
  75. Send    "$NAME^M"
  76. Waitfor "[Y]"
  77. Send    "^M"
  78. WHEN "NO CARRIER"    GETOUT
  79.  
  80. ;Upload replies
  81. UPSECTION:
  82. WHEN 
  83. WHEN "NO CARRIER"   GETOUT
  84. WAITFOR "TOMCAT MENU"
  85. Delay 100
  86. Exist $REPPATH$REPFILE SENDEM
  87.  
  88. Goto DOWNSECTION
  89.  
  90. SENDEM:
  91. SEND "U^M"
  92. Delay 100
  93. Waitfor "Start"
  94. Pause 1000
  95. Upload $XFER $REPPATH$REPFILE
  96. When "Transfer UNSUCCESFUL!" UPSECTION
  97. DOS "DEL $REPPATH$REPFILE"
  98.  
  99. ;Download the QWK file
  100. DOWNSECTION:
  101. DL:
  102. Waitfor "TOMCAT MENU"
  103. Delay 100
  104. Send "D^M"
  105. When
  106. When "to download!"   ALLDONE
  107. When "NO CARRIER"     GETOUT
  108. WaitFor "oodbye when done"
  109. Delay 1000
  110. Send "Y^M"
  111. When
  112. When "Insufficient time" ALLDONE
  113. WaitFor "Start"
  114. Delay 100
  115. Download $XFER $QWKPATH$QWKFILE
  116. Delay 2000
  117.  
  118. ;DONE
  119.  
  120. ALLDONE:
  121. Waitfor "TOMCAT MENU"
  122. Delay 100
  123. Send "G^M"
  124.  
  125. Pause 5000
  126.  
  127. GETOUT:
  128. Hangup
  129. Send "ATZ^M^~^~^~^~^~^~ATH1M0^M"
  130. System Y
  131. Exit
  132.  
  133.  
  134.  
  135.  
  136.  
  137.