home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / modem / gtpcps4d.arc / PCP-DIAL.SCR < prev    next >
Encoding:
Text File  |  1988-05-02  |  1.7 KB  |  88 lines
  1. ;  GTPCP\V4.0 - PCP-DIAL SCRIPT by Perry Alexander - May 1988
  2. ;  GT Power Version 14 Script to Dial Selected PCP Node
  3. RMWIN
  4. SCREEN ON
  5.    MKWIN 10 5 70 16 "GTPCP Call Progress"
  6.    WRITELN
  7.    WRITE "  Dialing ................  "
  8.    WRITELN  %1
  9.    WRITE "  Baud Rate ..............  "
  10.    WRITE %2
  11.    WRITELN "00"
  12.    WRITE "  Number of Attempts .....  "
  13.    WRITELN %10
  14.    WRITE "  Call Results ...........  "
  15.    SCREEN OFF
  16. SEND "C D/"
  17. SEND %1
  18. SEND "/"
  19. SEND %2
  20. SEND ","
  21. FUNCTION KEY SHIFT 8
  22. WAIT FOR "PASSWORD ="
  23. FUNCTION KEY SHIFT 9
  24. GETLN V9
  25.    V10 ADD %10 1
  26.    SCREEN ON
  27.    WRITELN %9
  28.    WRITELN
  29.    WRITELN "         To return to Node Menu - Press [Ctl-K]   "
  30.    TWAIT 1000
  31. CASE %9 OF
  32.  ~ CONNECT
  33.    RMWIN
  34.    WRITELN
  35.    CLEAR
  36.    BEEP
  37.    SENDLN "I"
  38.    SENDLN "ATZ"
  39.    WAIT FOR "OK"
  40.    SENDLN
  41.    SENDLN "@"
  42.    WAIT FOR "@"
  43.    SENDLN "SET? 1:0,5:1,7:8"
  44.    WAIT FOR "@"
  45.    SENDLN "CONT"
  46.    CLEAR
  47.    RMWIN
  48.    WRITE   "          You are now connected to PC Pursuit Node "
  49.    WRITELN %1
  50.    WRITELN
  51.    WRITE   "          Please wait while directory is changed to "
  52.    WRITELN %1
  53.    WRITELN
  54.    EXCH %1
  55.    CLEAR
  56.    WRITELN
  57.    WRITELN "          To See Dialing Directory . . . . . . . . Press Alt-D  "
  58.    WRITELN "          To Return to Node Menu while on line . . Press Alt-X  "
  59.    WRITELN
  60.    ONLINE
  61.    CLEAR
  62.    BREAK
  63.    SENDLN "@"
  64.    WAIT FOR "@"
  65.    SENDLN "D"
  66.    WAIT FOR "DISCONN"
  67.    WAIT FOR "@"
  68.    CHAIN "PCP-NODE.SCR"
  69.  ~ BUSY
  70.    WAIT FOR "@"
  71.    CYCLE 70
  72.    CHAIN "PCP-NODE.SCR"
  73.  ~ NOT
  74.    CLEAR
  75.    WAIT FOR "@"
  76.    CYCLE 70
  77.    CHAIN "PCP-NODE.SCR"
  78.  ?
  79.    RMWIN
  80.    WRITELN
  81.    BEEP
  82.    BEEP
  83.    WRITE "  TELENET response unrecognized :   "
  84.    CHAIN "PCP-NODE.SCR"
  85. ESAC
  86.    RMWIN
  87.    CHAIN "PCP-NODE.SCR"
  88.