home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / 1STDEAL.ZIP / 1ST-112.ZIP / SCRIPTS.ZIP / $$PCP.SCR < prev    next >
Encoding:
Text File  |  1993-05-23  |  1.3 KB  |  52 lines
  1. '       ┌─────────────────────────────────┐
  2. '       │ PC Pursuit script for 1stReader │
  3. '       │ Written by Mark Herring         │
  4. '       │ April 15, 1993                  │
  5. '       └─────────────────────────────────┘
  6.  
  7. LOCKLINE 20 78
  8. COMMENT "@DATE@ @TIME@  Connecting to PC Pursuit"
  9. PRINT "                       @X7F┌───────────────────────────────@X70┐@X07"
  10. PRINT "                       @X7F│@X70  1stReader PC Pursuit Script  │@X07"
  11. PRINT "                       @X7F└@X70───────────────────────────────┘@X07"
  12. PRINT "$TOP 4"
  13. CLS
  14.  
  15. :START
  16. IF WEEKDAY=7 GOTO BEGIN                        'Saturday is ok
  17. IF WEEKDAY=1 GOTO BEGIN                        'Sunday is ok too
  18. IF CHECKTIME(6:00,17:59) GOTO PRIME
  19.  
  20. :BEGIN
  21. COMMENT "@DATE@ @TIME@  Dialing PC Pursuit local access number"
  22. TRANSMIT "@API$(128) @API$(105)^M"
  23. WAITFOR "CONNECT|BUSY|NO CARRIER|TONE" 30
  24. IF FOUND=1 GOTO LOGIN
  25. PAUSE @API(265)
  26. GOTO START
  27.  
  28. :LOGIN
  29. PAUSE 1
  30. SET_API(194)=-1
  31. LOOKFOR "NO CARRIER" "(HANGUP)"
  32. TRANSMIT "@"
  33. PAUSE 1
  34. TRANSMIT "D^M
  35. WAITFOR "TELENET" 5
  36. IF FOUND=1 GOTO OK
  37. HANGUP
  38. GOTO BEGIN
  39.  
  40. :OK
  41. WAITFOR "TERMINAL=" 30
  42. TRANSMIT "D1^M"
  43. WAITFOR "@" 10
  44. RUN $$GOCITY.SCR CITY
  45.  
  46. :PRIME
  47. BEEP
  48. PROMPT "PC Pursuit prime time usage is not allowed"
  49. SET_API(81)=-1
  50. PRINT "$TOP 1"
  51.  
  52.