home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 June / PCWorld_1998-06_cd.bin / software / sharware / komunik / QMODEM / ALLSCRPT.ZIP / PURSUIT.SCR < prev    next >
Text File  |  1987-10-17  |  2KB  |  69 lines
  1. .PC PURSUIT SCRIPT LOGON FOR QMODEM VERSION 2.0
  2. .JOHN HODAL - SYSOP - LAKES REGION BBS (312) 223-9673
  3. .PC PURSUIT NODE CHICAGO
  4.  
  5. .This Script will log onto PC Pursuit, enter your phone, city you wish to call
  6. .and then answer Y to the wait
  7. .It will then await the call back and pick up the phone for you
  8. .All you need to do is enter your phone # and then make the changes for the
  9. .city and number you need to call
  10. .This script has been tested on a Hayes 1200 external and a US ROBOTICS Courier
  11.  
  12. .Set switches on Hayes External 1200 as follows
  13. .DUDUDDUD
  14. .12345678
  15.  
  16. Setcomm E                               Set baud 1200,7,N,1
  17. Waitfor 'Enter your 7-digit phone number (xxx-xxxx)'
  18.  
  19. Send '555-1212{'                        Insert your phone #
  20.  
  21.  
  22. Waitfor 'Which city do you wish to call?'
  23. Send 'HOUSTON{'                         Enter the PC Pursuit Code for the City
  24.  
  25. Waitfor 'Enter the phone number you wish to call (xxx-xxxx)
  26. Send '392-4249{'                        Enter the # you wish to call
  27.  
  28.  
  29. Waitfor 'Do you want to wait, or Restart (Y/N/R)?'
  30. Send 'Y{'                               Tell PCP that you want to go ahead
  31.  
  32. Waitfor 'Good bye!'
  33.  
  34. Note
  35. Waitfor 'NO CARRIER'                    Wait for Modem to Disconnect
  36. Beep 800
  37.  
  38. Timeout   60 HALT                       Wait 60 seconds for call back
  39. Setcomm F                               Set to 1200,8,N,1 (is this needed?)
  40. Note
  41. Note                       WAITING FOR CALL BACK
  42. Waitfor 'RING'                          PC Pursuit callback. Modem sends RING
  43.  
  44. Send 'ATA{'                             Tell Modem to Answer the phone
  45. Setcomm E                               Switch back to 1200,7,N,1
  46. Timeout 100 BUSY                        Set wait time to 100 Seconds or 10 trys
  47. Waitfor '3)'                            Wait for 3rd step in network connect
  48. Setcomm F
  49. Beep 400
  50. Beep 800
  51. Note
  52. Note                       CONNECTED!!!!
  53. Exit
  54.  
  55. HALT:
  56. Note
  57. Note                      NO CALL BACK WITHIN 60 SECONDS
  58. Exit
  59.  
  60.  
  61. BUSY:
  62. Beep 800
  63. Beep 400
  64. Note
  65. Note                     NO NETWORK CONNECTION
  66. Hangup                                  No answer.Disconnect modem
  67. Exit                                    Leave Script functions
  68.  
  69.