home *** CD-ROM | disk | FTP | other *** search
/ Shareware Supreme Volume 6 #1 / swsii.zip / swsii / 199 / 4PHONE.ZIP / ATMODEM.ZIP / HOOK.BAS < prev    next >
Encoding:
BASIC Source File  |  1986-03-18  |  1.3 KB  |  34 lines
  1. 1  'This little routine will either take your modem phone line off the hook
  2. 2  '(callers get a busy signal), or hang up the phone line. Hayes standard
  3. 3  'modem commands are used.  
  4. 4  'The routine can be used by BBS operators to give callers a busy signal
  5. 5  'when the BBS is offline (for maintenance, etc.), instead of a ring.
  6. 6  '2/28/86, by Steve Clancy, M.L.S.
  7. 7  '
  8. 10 CLS: CLOSE: LOCATE 6,20: PRINT "HOOK.BAS  BY  MADISON BEAR GARDEN!!"
  9. 15 LOCATE 7,20: PRINT "-----------------------------------"
  10. 20 LET ES$ = "+++": LET OF$ = "ATM0H1": LET ONS$ = "ATH0"
  11. 25 LOCATE 10,20
  12. 30 PRINT "(1)  TAKE PHONE LINE OFF THE HOOK."
  13. 40 LOCATE 12,20
  14. 50 PRINT "(2)  HANG UP THE PHONE LINE."
  15. 55 LOCATE 20,10: PRINT "RESULT =->  "
  16. 60 LOCATE 15,10
  17. 70 INPUT "PLEASE ENTER  1  OR  2  =->  ", ANS$
  18. 80 IF ANS$ = "1" THEN GOSUB 1000 ELSE IF ANS$ = "2" THEN GOSUB 2000 ELSE 60
  19. 90 SYSTEM
  20. 1000 OPEN "COM1:" AS #1
  21. 1010 FOR N=1 TO 1000: NEXT
  22. 1020 PRINT #1, ESC$
  23. 1030 FOR N=1 TO 1000: NEXT
  24. 1040 PRINT #1, OF$: LOCATE 20,22: PRINT "LINE IS NOW BUSY!"
  25. 1050 RETURN
  26. 2000 OPEN "COM1:" AS #1
  27. 2010 FOR N=1 TO 1000: NEXT
  28. 2020 PRINT #1, ESC$
  29. 2030 FOR N=1 TO 1000: NEXT
  30. 2040 PRINT #1, ONS$: LOCATE 20,22: PRINT "LINE IS NOW HUNG UP!"
  31. 2050 CLOSE #1
  32. 2060 RETURN
  33. 
  34.