home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / 1STDEAL.ZIP / 1ST-112.ZIP / SCRIPTS.ZIP / $$GOCITY.SCR < prev    next >
Encoding:
Text File  |  1993-05-23  |  1.3 KB  |  48 lines
  1. '       ┌──────────────────────────────────────┐
  2. '       │ PC Pursuit city script for 1stReader │
  3. '       │ Written by Mark Herring              │
  4. '       │ May 15th, 1993                       │
  5. '       └──────────────────────────────────────┘
  6.  
  7. LOCKLINE 20 78
  8. LOOKFOR "NO CARRIER" "(HANGUP)"
  9.  
  10. COMMENT "@DATE@ @TIME@  Connecting to PC Pursuit"
  11. PRINT "                    @X7F┌────────────────────────────────────@X70┐@X07"
  12. PRINT "                    @X7F│@X70  1stReader PC Pursuit City Script  │@X07"
  13. PRINT "                    @X7F└@X70────────────────────────────────────┘@X07"
  14. PRINT "$TOP 4"
  15. CLS
  16.  
  17. :CITY
  18. IF WEEKDAY=7 GOTO BEGIN                        'Saturday is ok
  19. IF WEEKDAY=1 GOTO BEGIN                        'Sunday is ok too
  20. IF CHECKTIME(5:00,17:59) GOTO PRIME
  21.  
  22. :BEGIN
  23. COMMENT "@DATE@ @TIME@  Transmitting PC Pursuit user id"
  24. TRANSMIT "C D/@API$(108)/@PCPCON@,@API$(106)^M"
  25. WAITFOR "PASSWORD =" 20
  26. COMMENT "@DATE@ @TIME@  Transmitting password"
  27. TRANSMIT "@API$(107)^M"
  28. WAITFOR "CONNECTED|BUSY"
  29. IF FOUND=1 GOTO DIAL
  30. GOTO CITY
  31.  
  32. :DIAL
  33. COMMENT "@DATE@ @TIME@  Connected to @API$(108)"
  34. SET_API(156)=0
  35. SET_API(171)=-1
  36. SET_API(204)=-1
  37. SET_API$(127)=$$TELNET.SCR
  38. PAUSE 1
  39. PRINT "$TOP 1"
  40. EXIT
  41.  
  42. :PRIME
  43. BEEP
  44. PROMPT "PC Pursuit prime time usage is not allowed"
  45. SET_API(81)=-1
  46. PRINT "$TOP 1"
  47.  
  48.