home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / COMM / MISC / GT_PCP03.ZIP / DIAL-PCP.SCR next >
Encoding:
Text File  |  1991-11-28  |  5.1 KB  |  174 lines
  1. ;
  2. ;                 ┌──────────────────────────────────────────┐
  3. ;                 │  Dialing Directory Script for PCP calls  │
  4. ;                 │  by Dan Mancuso, Another BBS? (900/006)  │
  5. ;                 │  (c) 1991  Version 0.3     11/28/91 DJM  │
  6. ;                 └──────────────────────────────────────────┘
  7. ;
  8. ;           ┌┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┐
  9. ;           ├┼┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┼┤
  10. ;           ├┤                                                   ├┤
  11. ;           ├┤ THIS IS THE SCRIPT THAT SHOULD BE ENTERED AS YOUR ├┤
  12. ;           ├┤   DIALING SCRIPT IN THE PCPSTART.DIR DIRECTORY!   ├┤
  13. ;           ├┤                         ~~~~~~~~                  ├┤
  14. ;           ├┼┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┼┤
  15. ;           └┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┘
  16. ;
  17. ;          (c)1991 Dan Mancuso - Another BBS? (900/006) 505-255-3623
  18. ;            FREEWARE - But PLEASE register with above via NetMail
  19. ;
  20. ;
  21. ;    This script is to be used ONLY as the Dialing Script for your local
  22. ;    PCPursuit access node. It should be used as the dialing script in your
  23. ;    PCPSTART.DIR listing. It will dial your local PCP access and load your
  24. ;    LD dialing directory. Circular dialing will continue from there (You
  25. ;    must pre-mark all numbers you wish to dial in your PCP.DIR to save time
  26. ;    and prevent unnecessary PCP billings)
  27. ;
  28. ; -----------------------------------------------------------------------------
  29. ;                      Functions performed by PCP.KEY
  30. ; -----------------------------------------------------------------------------
  31. ;                                      |
  32. ;  ALT-1 = Connect to local PCP access | ALT-2 = Load and Display PCPSTART.DIR
  33. ;                                      |
  34. ;  ALT-3 = Begin PCP calls in Circular | ALT-4 = Load and Display PCP.DIR
  35. ;                                      |
  36. ;  ALT-5 = Typical PCBoard Login       | ALT-6 = Typical GT Login
  37. ;                                      |
  38. ;  ALT-7 = First Last                  | ALT-8 = GT Login (Bypass Bulletins)
  39. ;                                      |
  40. ;  ALT-9 = Password (with <CR>)        | ALT-10= Hang up on PCPursuit
  41. ;                                      |
  42. ; -----------------------------------------------------------------------------
  43. ;
  44. V1 = ""
  45. V29 = ""
  46. V28 = 0
  47. ;
  48. CLEAR
  49. SCREEN OFF
  50. CURSOR OFF
  51. QUIET OFF
  52. MKWIN 5 1 75 9 "GT 17.00 - PCP Dialing Script"
  53. SETCOLOR 14 0
  54. WRITELN "                                                                "
  55. WRITELN "     ▒▒▒▒  ▒▒▒  ▒▒▒  ▒    ▒▒▒ ▒   ▒ ▒▒▒▒▒      ▒▒▒▒▒ ▒▒▒▒▒ ▒▒▒▒▒"
  56. WRITELN "     ▒   ▒  ▒  ▒   ▒ ▒     ▒  ▒▒  ▒ ▒          ▒   ▒ ▒     ▒   ▒"
  57. WRITELN "     ▒   ▒  ▒  ▒▒▒▒▒ ▒     ▒  ▒ ▒ ▒ ▒▒▒▒▒      ▒▒▒▒▒ ▒     ▒▒▒▒▒"
  58. WRITELN "     ▒   ▒  ▒  ▒   ▒ ▒     ▒  ▒  ▒▒ ▒   ▒      ▒     ▒     ▒    "
  59. WRITELN "     ▒▒▒▒  ▒▒▒ ▒   ▒ ▒▒▒▒ ▒▒▒ ▒   ▒ ▒▒▒▒▒      ▒     ▒▒▒▒▒ ▒    "
  60. :RETRY
  61. V28 ADD %28 1
  62. V27 STR %28
  63. MKWIN 10 9 70 20 "PCP Call Information"
  64. WRITELN
  65. SETCOLOR 2 0
  66. WRITELN " Dialing local PCP Access number now... Please wait! "
  67. WRITELN
  68. SETCOLOR 3 0
  69.   WRITE " Attempt: "
  70. SETCOLOR 14 0
  71. WRITELN %27
  72. GOTOXY 16 10
  73. SETCOLOR 6 0
  74. WRITE "Press ["
  75. SETCOLOR 12 0
  76. WRITE "ESC"
  77. SETCOLOR 6 0
  78. WRITE "] to stop dialing"
  79. GOTOXY 1 6
  80. FLUSH
  81. ;
  82. ;   INITIALIZE MODEM - CHANGE STRING TO HOWEVER YOU LIKE TO INITIALIZE YOUR
  83. ;   MODEM (OR "COMMENT" OUT THE NEXT TWO LINES TO SKIP MODEM INITIAZE)
  84. ;   (MODEM SHOULD BE IN "VERBOSE RESULT" MODE (OR CHANGE "OK" TO "0")
  85. ;            {                          }
  86.     SENDLN AT V1 X4 E1 S11=55 S2=43 S0=0
  87.     WAIT FOR "OK"
  88. ;
  89. DIALER
  90. CASE %FAIL
  91.      TRUE
  92.          RMWIN
  93.          GOTO RETRY
  94. ESAC
  95. SETCOLOR 3 0
  96. WRITELN " Connected to PCPursuit... Setting Baud and Terminal ID "
  97. TWAIT 2000
  98. SEND "@"
  99. TWAIT 500
  100. SENDLN "D"
  101. WAIT 15 FOR "TERMINAL="
  102. CASE %FAIL OF
  103.      TRUE
  104.          SETCOLOR 14 4
  105.          WRITELN " No response from HUNT/CONFIRM "
  106.          GOTO QUIT
  107. ESAC
  108. TWAIT 500
  109. SENDLN "D1"
  110. WAIT 15 FOR "@"
  111. CASE %FAIL OF
  112.      TRUE
  113.      SETCOLOR 14 4
  114.      WRITELN " No response from TERMINAL TYPE ID "
  115.      GOTO QUIT
  116. ESAC
  117. SETCOLOR 15 0
  118. WRITELN
  119. WRITELN "            Ready to dial PCP remote site(s)     "
  120. WRITELN "          --) After this window disappears (--   "
  121. WRITELN "              Hit ALT-F3 to start dialing!       "
  122. ;
  123. ; THE FOLLOWING TWAIT CAN BE REDUCED AFTER YOU GET THE HANG OF THIS
  124. ;
  125. TWAIT 5000
  126. SET ONLINE TRUE
  127. ;
  128. WRITELN " ERROR 1 - YOU SHOULD NEVER SEE THIS - DIAL-PCP "
  129. ;
  130. :QUIT
  131. WRITELN
  132. CLEAR
  133. CASE %DCD OF
  134.      FALSE
  135.           SETCOLOR 14 4
  136.           WRITELN " There was NO carrier present! "
  137.           ALARM 5
  138.           GOTO NODCD
  139. ESAC
  140. SETCOLOR 12 0
  141. WRITELN  " Disconnecting from PC Pursuit..... "
  142. SENDLN
  143. SEND "@"
  144. TWAIT 500
  145. SENDLN
  146. WAIT FOR "@"
  147. TWAIT 500
  148. SEND "HANGUP"
  149. TWAIT 500
  150. SENDLN
  151. GETLN V29
  152. WRITELN
  153. SETCOLOR 15 0
  154. WRITELN  %29
  155. SETCOLOR 14 4
  156. WAIT 20 FOR "NO CARRIER"
  157.      CASE %FAIL OF
  158.           TRUE
  159.               HANG-UP
  160.      ESAC
  161. SET ONLINE FALSE
  162. ;
  163. WRITELN " ERROR 2 - YOU SHOULD NEVER SEE THIS - DIAL-PCP "
  164. ;
  165. :NODCD
  166. WRITELN
  167. SETCOLOR 3 0
  168. ALARM 10
  169. RMWIN
  170. SET ONLINE FALSE
  171. ;
  172. WRITELN " ERROR 3 - YOU SHOULD NEVER SEE THIS - DIAL-PCP "
  173. ;
  174.