home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / NUBYE / NUBY-SUP.LBR / TEST.BAS < prev    next >
BASIC Source File  |  2000-06-30  |  896b  |  34 lines
  1. 100    'August 18, 1985
  2. 110    '
  3. 120    'Short demonstration program to show the use of BDOS.ASM
  4. 130    'in conjunction with any of the versions of BYE that
  5. 140    'are set up as a CP/M RSX with extended BDOS calls for
  6. 150    'controlling the communications environment.
  7. 160    '
  8. 170    'Bill Bolton, Software Tools RCPM, Brisbane, Australia
  9. 180    'Phone +61-7-378-9530     1200/2400 bps
  10. 190    '
  11. 200    DEFINT A-Z
  12. 210    FUNC = 32:
  13.     VALUE = 241:
  14.     RESULT = 0
  15. 220    CALL BDOS(FUNC,VALUE,RESULT)    '<---- ask BYE if its there?
  16. 230    IF RESULT = 77 THEN
  17.         PRINT "BYE337/501 present"
  18.     ELSE
  19.         PRINT "Can't find BYE"
  20. 240    IF (RESULT = 77) THEN
  21.         FUNC = 65:
  22.         VALUE = 0:
  23.         RESULT = 0:
  24.         CALL BDOS(FUNC,VALUE,RESULT):
  25.         ONLINE = RESULT
  26.     ELSE
  27.         ONLINE = 1:
  28.         PRINT "Simulating Carrier Detect"
  29. 250    IF (ONLINE = 0) THEN
  30.         PRINT "Not On Line"
  31.     ELSE
  32.         PRINT "On Line"
  33. 260    END
  34.