home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / basic / bmag / carrier.bas < prev    next >
Encoding:
BASIC Source File  |  1994-04-15  |  1.1 KB  |  34 lines
  1. '─ Area: F-QUICKBASIC ─────────────────────────────────────────────────────────
  2. '  Msg#: 395                                          Date: 12 Apr 94  16:08:00
  3. '  From: Blair Colbey                                 Read: Yes    Replied: No 
  4. '    To: Tristan Miller                               Mark:                     
  5. '  Subj: Carrier Detect
  6. '──────────────────────────────────────────────────────────────────────────────
  7. 'If you don't have much space here is some code for you it will send
  8. 'information to the modem via(through) the fossil drive (x00 or bnu) it
  9. 'can use any com port. note: you have to have the qb.bi file loaded and
  10. 'have quickbasic loaded qb /lqb
  11.  
  12. '$INCLUDE: 'qb.bi'    edit path to suit
  13. CLS
  14. x = 1
  15. DO WHILE x <= 4
  16. IF x = 1 THEN g$ = "a"
  17. IF x = 2 THEN g$ = "t"
  18. IF x = 3 THEN g$ = "a"
  19. IF x = 4 THEN g$ = CHR$(13)
  20. ah = &H1
  21. al = ASC(g$)
  22. DIM a AS RegType
  23. DIM b AS RegType
  24. a.ax = ah * &H100
  25. a.ax = a.ax + al
  26. a.dx = &H0           'port number as set in x00 with xu.exe
  27. CALL INTERRUPT(&H14, a, b)
  28. PRINT a.ax
  29. PRINT a.dx
  30. PRINT b.ax
  31. PRINT b.dx
  32. x = x + 1
  33. LOOP
  34.