home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / modem / gtpcps4d.arc / PCP-EXPC.SCR < prev    next >
Encoding:
Text File  |  1988-05-01  |  935 b   |  45 lines
  1. ;  GTPCP\V4.0 - PCP-EXPC SCRIPT
  2. ;  Perry Alexander - May 1988
  3. ;  GT Power Version 14
  4. ;  Script to Dial EXECPC BBS
  5. ;
  6. CLEAR
  7. SEND "C EXECPC,"
  8. FUNCTION KEY SHIFT 8
  9. WAIT FOR "WORD ="
  10. V10 ADD %10 1
  11. FUNCTION KEY SHIFT 9
  12. GETLN V9
  13. CASE %9 OF
  14.  ~ CONNECT
  15.    BEEP
  16.    WRITELN "You are now connected to Exec-PC"
  17.    WRITELN "Use ALT-X command to return to Node Menu after logging off bbs"
  18.    SENDLN
  19.    SENDLN
  20.    ONLINE
  21.    BREAK
  22.    SENDLN "@"
  23.    WAIT FOR "@"
  24.    SENDLN "D"
  25.    WAIT FOR "CONN"
  26.    WAIT FOR "@"
  27.    CHAIN "PCP-NODE.SCR"
  28.  ~ BUSY
  29.    CLEAR
  30.    WAIT FOR "@"
  31.    WRITELN
  32.    WRITE       "   Retrying ════════ EXEC-PC"
  33.    WRITE       "   Number of Attempts .....  "
  34.    WRITELN %10
  35.    WRITELN
  36.    WRITELN     "   To return to Node Menu - Press [Ctl-K] "
  37.    TWAIT 2000
  38.    CYCLE 100
  39.    CHAIN "PCP-NODE.SCR"
  40.  ?
  41.    WRITE "TELENET response unrecognized :"
  42.    CHAIN "PCP-NODE.SCR"
  43. ESAC
  44.    CHAIN "PCP-NODE.SCR"
  45.