home *** CD-ROM | disk | FTP | other *** search
/ Share Gallery 1 / share_gal_1.zip / share_gal_1 / CO / CO003A.ZIP / GTPCPS4D.ARC / PCP-QUIT.SCR < prev    next >
Text File  |  1988-05-01  |  470b  |  22 lines
  1. ;  GTPCP\V4.0   PCP-QUIT SCRIPT
  2. ;  Perry Alexander - May 1988
  3. ;  GT Power Version 14
  4. ;  Script to Exit PCP
  5. ;
  6. CLEAR
  7. WRITELN  "    Changing back to the default dialing directory           "
  8. EXCH gt.dir
  9. WRITELN
  10. WRITELN  "    Disconnecting from PC Pursuit....please wait for beep.  "
  11. BREAK
  12. SENDLN "@"
  13. WAIT FOR "@"
  14. SENDLN "D"
  15. WAIT FOR "@"
  16. SENDLN "HANGUP"
  17. BEEP
  18. CLEAR
  19. WRITELN
  20. WRITELN  "    Disconnected .... press [Alt-D] for your default dir.  "
  21. WRITELN
  22.