home *** CD-ROM | disk | FTP | other *** search
/ HomeWare 14 / HOMEWARE14.bin / comms / icom0425.arj / PCP-ON.SCR < prev    next >
Text File  |  1994-04-25  |  2KB  |  68 lines
  1. ;----------------------------------------------------------------------------
  2. ; PCP-ON.SCR  Intellicomm v2 logon script for PC-Pursuit.
  3. ;
  4. ; Before using this script you must replace the information in the variables
  5. ; below with your proper PC-Pursuit logon iformation:
  6. ;----------------------------------------------------------------------------
  7.  
  8. variable UserID   "USERID"    ;enter PCP User ID between the quotes
  9. variable Password "PASSWORD"  ;enter PCP Password between the quotes
  10. variable Speed    "24"        ;24 = 2400 baud, 12 = 1200, 3 = 300
  11.  
  12. ;----------------------------------------------------------------------------
  13. ; You must then set up Intellicomm (and your BIFs) for use with PC Pursuit.
  14. ; The procedure is quite simple and is outlined in "LONG DISTANCE SERVICES"
  15. ; in the online help (see the Help Index).
  16. ;
  17. ; Nothing below this point should need changing.
  18. ;----------------------------------------------------------------------------
  19.  
  20. SENDCR:
  21. delay 10
  22. send "@D"
  23. waitfor "TERMINAL=" 10 SENDCR
  24. sendnc "D1"
  25.  
  26. SENDCR2:
  27. send ""
  28. waitfor "@" 10 SENDCR2
  29.  
  30. send "C D/" *[G]city "/" Speed "," UserID   ;C D/CITY/24,userid
  31.                                             ; *[G]city is defined in the BIF
  32. waitfor "PASSWORD ="
  33. send Password
  34.  
  35. when                                        ;clear all whens
  36. when "BUSY"          goto DISCONNECT
  37. when "NOT OPERATING" goto DISCONNECT
  38. when "NO CARRIER"    goto DISCONNECT
  39. waitfor "CONNECT" 45 DISCONNECT
  40.  
  41. send "SET? 1:0,5:1,7:8,12:1"
  42. send "RST? 5:1,12:1"
  43. send "CONT"
  44. delay 10
  45.  
  46. send "ATZ^M"          ;reset/wake up remote MODEM
  47. waitfor "OK"
  48. send "ATDT" *[G]phn1  ;send the BBS phone #, as defined in the BIF
  49.  
  50. when
  51. when "BUSY" goto SITEBUSY
  52. when "NO DIALTONE" goto SITEBUSY
  53. when "NO CARRIER" goto SITEBUSY
  54. waitfor "CONNECT" 45 SITEBUSY
  55. exit                  ;exit with no errorcode tells Icom to logon BBS now
  56.  
  57. SITEBUSY:
  58. send "^M@"
  59. when
  60. when "@" "D"
  61. waitfor "DISCONNECTED" 10
  62.  
  63. DISCONNECT:
  64. delay 20
  65. hangup
  66. exit 1                ;exit with > 0 errorcode tells Icom to cancel BBS logon
  67.                       ; but to try again later
  68.