home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / gtscr12.arc / PURSUIT3.SCR < prev   
Encoding:
Text File  |  1987-05-31  |  806 b   |  45 lines
  1. CLEAR
  2. SEND "C DIAL"
  3. SEND %1
  4. SEND "/12,"
  5. SENDln %3
  6. Wait for "WORD ="
  7. SENDLN %4
  8. GETLN V9
  9. CASE %9 OF
  10.  ~ CONNECT
  11.    BEEP
  12.    SENDLN "ATZ"
  13.    WAIT FOR "OK"
  14.    SENDLN
  15.    SENDLN "@"
  16.    WAIT FOR "@"
  17.    SENDLN "SET? 1:0,5:1,7:8"
  18.    WAIT FOR "@"
  19.    SENDLN "CONT"
  20.    CLEAR
  21.    WRITE "You are now connected to "
  22.    WRITE %1
  23.    WRITELN "."
  24.    WRITE "Use ALT-D to access dialing directory -- "
  25.    WRITELN "Press Alt-X to return to the script."
  26.    WRITELN
  27.    ONLINE
  28.    CLEAR
  29.    SENDLN
  30.    SENDLN "@"
  31.    WAIT FOR "@"
  32.    SENDLN "D"
  33.    WAIT FOR "DISCONN"
  34.    WAIT FOR "@"
  35.  ~ BUSY
  36.    WAIT FOR "@"
  37.    writeln "   cycling...  Press Ctrl-K to return to city menu"
  38.    twait 2000
  39.    cycle 100
  40.    Chain "PURSUIT2.scr"
  41.  ?
  42.    WRITE "TELENET response unrecognized :"
  43. ESAC
  44. Chain "PURSUIT2.scr"
  45.