home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / HCSNET2C.ZIP / GAP_ASP1.ASP < prev    next >
Encoding:
Text File  |  1992-10-30  |  2.3 KB  |  113 lines
  1. ;
  2. ; This script file courtesy of Paul Rino, SysOp
  3. ; The Software Cafe  *  Shreveport, LA. * (318)798-1008
  4. ;
  5. ; PROCOMM PLUS ASPECT script file - Edit Before Using!
  6. ;
  7. ; This is a generic script file for logging onto GAP BBS systems
  8. ; and transferring mail using GAPNET. Be sure you edit the file
  9. ; using the appropriate phone number, name, and password.
  10. ;
  11.  
  12. define PHONE1 "1-xxx-xxx-xxxx"
  13. proc main
  14.  
  15. ;
  16. ;  Sets a few Procomm Plus system parameters.
  17. ;  Turns Alarm OFF and sets maximum dialing attemps to 50.
  18. ;  Sets PAUSE between calls to 10 seconds.
  19. ;  Disables AUTO ZMODEM for using external dsz.
  20. ;  Valid values range from 0 to 999.
  21. ;
  22.  
  23. set ALARM OFF
  24. set MODEM MAXDIAL 50
  25. set MODEM CALLPAUSE 10
  26. set ZMODEM AUTODLOAD OFF
  27.  
  28. ;
  29. ;  Clears the screen, draws a blue box, and dials the number.
  30. ;
  31.  
  32. clear
  33. box 5 17 9 61 31
  34. fatsay 7 25 30 "Calling BBS For Mail Transfer"
  35. mdial PHONE1
  36.  
  37. ;
  38. ;  After x number of dialing attempts, Procomm Plus will exit.
  39. ;
  40.  
  41. if not connected
  42. quit
  43. endif
  44. pause 1
  45.  
  46. ;
  47. ;  Wait for GAP's ANSI detect message and does a quick log on.
  48. ;  Change "Yes :" to "No : " if for some strange reason you don't use ANSI.
  49. ;
  50.  
  51. Waitfor "Yes : "
  52. Transmit "N Q NS O^M"
  53.  
  54. ;
  55. ;  Logs on using FIRSTNAME LASTNAME PASSWORD. Edit before using!
  56. ;
  57.  
  58. Waitfor "Name : "
  59. Transmit "FIRSTNAME LASTNAME PASSWORD^M"
  60. Pause 1
  61.  
  62. ;
  63. ;  Invokes the QWK command at the prompt.
  64. ;
  65.  
  66. Waitfor "ommand : "
  67. Transmit "QWK^M"
  68. Pause 1
  69.  
  70. ;
  71. ;  Waits for the QWK command line and issues the [D] command.
  72. ;  Edit the dsz command line if your directory structure is different.
  73.  
  74. pause 1
  75. Waitfor "elp : "
  76. Transmit "D^M"
  77. Pause 1
  78. Waitfor "*" forever
  79. dos "dsz port 2 pB4096 ha on rz -m c:\gap\gapnet\qwk\hubname.qwk"
  80. Waitfor "ontinue"
  81. Transmit "^M"
  82.  
  83. ;
  84. ;  Waits for the QWK command line and issues the [U] command.
  85. ;  Edit the dsz command line if your directory structure is different.
  86. ;
  87.  
  88. Pause 1
  89. Waitfor "elp : "
  90. Transmit "U^M"
  91. Pause 1
  92. dos "dsz port 2 pB4096 ha on sz -m c:\gap\gapnet\rep\hubname.rep"
  93. Pause 1
  94. Waitfor "elp : "
  95.  
  96. ;
  97. ;  Issues the [Q] command to return to the Main Board
  98. ;  and then performs a quick logoff.
  99. ;
  100.  
  101. Transmit "q^M"
  102. Pause 1
  103. Waitfor "ommand : "
  104. Transmit "g q^M"
  105.  
  106. ;
  107. ;  Shuts down Procomm Plus and returns to DOS.
  108. ;
  109.  
  110. Waitfor "NO CARRIER"
  111. quit
  112. endproc
  113.