home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / procomm / apcp37.arc / APCP.ASP < prev    next >
Encoding:
Text File  |  1988-03-18  |  842 b   |  42 lines
  1. log close
  2. isfile "APCPSTRS"
  3. if not success
  4. clear
  5. box 08 00 16 79 07
  6. atsay 11 16 07 "The APCPSTRS control file is missing ..."
  7. atsay 12 16 07 "read the INSTALLATION and OPERATION sections in ..."
  8. atsay 13 16 07 "APCP.DOC ... "
  9. locate 17 00
  10. alarm
  11. exit
  12. endif
  13. fopeni "APCPSTRS" text
  14. fgets s1
  15. fclosei
  16. box   09 39 15 63 07
  17. atsay 10 44 07 "- APCP Request"
  18. atsay 12 42 07 "C - Select new CITY"
  19. atsay 13 42 07 "E - Select new EBBS"
  20. atsay 14 42 07 "Q - Terminate APCP"
  21. locate 10 42
  22. get s0 01
  23. clear
  24. switch s0
  25. case "C"
  26. substr s1 s1 00 04
  27. execute s1
  28. endcase
  29. case "E"
  30. substr s2 s1 04 05
  31. execute s2
  32. endcase
  33. endswitch
  34. box 00 00 02 79 07
  35. atsay 01 02 07 "APCP: Terminating ... PC-Pursuit disconnecting ..."
  36. hangup
  37. atsay 01 02 07 "APCP: Terminated ... PC-Pursuit is disconnected ... CIAO ..."
  38. locate 05 00
  39. exit
  40. return
  41. 
  42.