home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / FD212.ZIP / PCP.ZIP / PCP.SCR < prev   
Encoding:
Text File  |  1994-03-02  |  4.1 KB  |  151 lines
  1. ;  PCP script for FrontDoor 2.12 Shareware
  2. ;  Eric Larson, 1:2605/620.0, 8/11/91
  3. ;  Modified from script supplied in FD 1.99 documentation
  4. ;
  5. ;  Joaquim Homrighausen makes no claims of the accuracy, nor
  6. ;  does he take any responsibility for the information provided
  7. ;  in this file.
  8. ;
  9. ; You must modify this script in at least 3 places:
  10. ;
  11. ;       1: Indial Number
  12. ;       2: PCP ID Number
  13. ;       3: PCP Password
  14. ;
  15. ; You may also want to modify the script for your modem
  16. ; or types of systems you call. See notes in script.
  17. ; For further information, see PCP documentation on
  18. ; Net Exchange BBS. To connect to the Net Exchange, type
  19. ; "C PURSUIT" at the Telenet @ prompt.
  20. ;
  21.  
  22. debug     ON
  23. setport   2400  ; Redundant if you have locked your Fossil
  24.                 ; If you have a 1200 indial :-(, use 1200
  25.                 ; here and change the hunt-confirm sequence
  26.                 ; to @ wait 1 <CR>
  27. ;
  28. ; Users with MNP modems should disable MNP as the buffering
  29. ; combined with PCP's packet latency will cause block position
  30. ; errors during error recovery. For HST owners, use:
  31. ;
  32. send AT&M0<CR>
  33. waitfor OK
  34. ;
  35. ;  Others should adjust the above for their modem
  36. ;  non-buffered modem owners should comment out the
  37. ;  above two lines.
  38. ;
  39. ;----------------------------------
  40. ; Your Indial Phone Number Here
  41. ;----------------------------------
  42. ;
  43. send ATDT4795372<CR>
  44. ; send ATDT4795445<CR> ; official number
  45. ; 6406 5776 5355 5372 ; alternates
  46. ;
  47. ; If you are having difficulty with your indial line, call
  48. ; PCP customer service and they may be able to give you
  49. ; an alternate number that works better.
  50.  
  51. case
  52.      CONNECT        : >whackit
  53.      RING<CR>       : fail
  54.      BUSY<CR>       : fail
  55.      "NO "          : fail
  56.      @default       : fail
  57. endcase
  58.  
  59. :whackit                             ; Attempt to "wake-up" PCP
  60.      purgein                         ; Telenet recommends at least
  61.      wait      2                     ; a 200 ms pause between
  62.      send      @                     ; characters in the hunt-confirm sequence
  63.      wait      1                     ; change the @ to <CR> if you call
  64.      send      D                     ; a 1200 bps indial
  65.      wait      1
  66.      send      <CR>
  67.      waitfor   TERMINAL=
  68.      send      D3<CR>                   ; Preferred terminal type
  69.      waitfor   @
  70.  
  71. ;--------------------------
  72. ; Your ID and Password Here
  73. ;--------------------------
  74.  
  75. :outdial                                ; Dial PCP city
  76.      purgein
  77.      retrycount 5
  78.      send      C @OUTBOUND,YOURID471E<CR>  ; Your ID Here
  79.      waitfor   PASSWORD
  80.      send      KKKKKK<CR>             ; Your Password Here
  81.  
  82. CASE
  83.      CONNECT         : >local           ; Gotcha!
  84.      BUSY            : >outdial
  85.      "NOT "          : fail
  86.      @nocarrier      : fail
  87.      @default        : fail
  88. ENDCASE
  89.  
  90. :local                            ; Initialize Outdial
  91.      purgein
  92.      send <CR>
  93.      wait 1
  94.      send I<CR>
  95.      send ATZ|
  96.      timerset 15
  97.      waitfor OK
  98.      send @|
  99.      waitfor @
  100. ;
  101. ; Setup PADS
  102. ;
  103. ; Note - if you are calling a SEAdog system,
  104. ; change the SET and RST 5:1 and 12:1 to 5:0 and 12:0
  105. ; as SEAlink is not transparent to software flow control
  106. ;
  107. ; If you only call WaZoo systems, use 5:1 and 12:1 for
  108. ; fewer errors and greater reliability.
  109. ;
  110.  send SET?<sp>1:0,7:8<CR>
  111. ;
  112.  waitfor @
  113. ;
  114. ; send RST?5:1,12:1<CR>
  115. ;
  116. ;    waitfor @
  117.  
  118.      send CONT<CR>
  119.      send ATH0Z<CR>
  120.      waitfor OK|IDLE
  121.      send <ENQ><CR>                ; Turn on RV Mode
  122.      waitfor *
  123.  
  124.      purgein
  125.  
  126.      timerset 50
  127.      wait 2
  128.      send D@LOCALNUM<CR>
  129.  
  130.      purgein
  131.  
  132. case
  133.      ANS             : >landing
  134.      ONLINE          : >landing
  135.      BUSY            : fail
  136.      FAILED          : fail
  137.      "NO CARRIER"    : fail
  138.      "NO DIAL TONE"  : fail
  139.      "NO DTR"        : fail
  140.      VOICE           : fail
  141.      @default        : fail
  142.      @nocarrier      : fail
  143. endcase
  144.  
  145. :landing                           ; Landing on Pluto
  146.      wait 7                        ; wait for PCP messages to clear
  147.      purgein
  148.      session
  149.  
  150. ;end of file "pcp.scr"
  151.