home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / comm / first110.zip / 1ST_110B.ZIP / SCRIPTS.ZIP / $$TELNET.SCR < prev    next >
Text File  |  1993-05-15  |  605b  |  25 lines
  1. '       ┌─────────────────────────────────┐
  2. '       │ PC Pursuit script for 1stReader │
  3. '       │ Written by Mark Herring         │
  4. '       │ May 15th, 1993                  │
  5. '       └─────────────────────────────────┘
  6.  
  7.  
  8. LOCKLINE 20 78
  9. LOOKFOR "NO CARRIER" ""
  10. RESET
  11. COMMENT "@DATE@ @TIME@  Calling Telenet"
  12. TRANSMIT "@^M"
  13. WAITFOR "@" 5
  14. IF FOUND=0 THEN GOTO DISCONNECT
  15. COMMENT "@DATE@ @TIME@  Disconnecting from @API$(108)"
  16. TRANSMIT "D^M"
  17. WAITFOR "@" 10
  18. SET_API$(126)="$$GOCITY.SCR"
  19. EXIT
  20.  
  21. :DISCONNECT
  22. PROMPT "Could not access TELENET - Disconnecting"
  23. SET_API(81)=-1
  24. PRINT "$TOP 1"
  25.