home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / m / m003_1 / sdk_dos.ddi / BASIC / GENERAL / SBCBLST.BAS < prev    next >
Encoding:
BASIC Source File  |  1991-09-26  |  1.3 KB  |  54 lines
  1. '
  2. ' This program checks the BLASTER environment variable to determine the card
  3. ' settings and hence determine the features available.
  4. '
  5.  
  6. ' $INCLUDE: 'SBC.BI'
  7.  
  8.  
  9. CONST MAXCARD = 3
  10.  
  11. DIM CardType$ (MAXCARD), wFeature%
  12.  
  13. CardType$ (0) = "Sound Blaster"
  14. CardType$ (1) = "Sound Blaster Pro"
  15. CardType$ (2) = "Sound Blaster 2.0"
  16.  
  17.  
  18. IF (SBGETENV% = 0) THEN
  19.  
  20.     wFeature% = SBCHKCRD%
  21.  
  22.     IF (wFeature% <> 0) THEN
  23.  
  24.         IF SBTSTINT% THEN
  25.  
  26.             IF SBTSTDMA% >= 0 THEN
  27.                 PRINT CardType$(CARDID%-1);" card installed at :"
  28.                 PRINT TAB(5); "I/O address : "; HEX$ (IOADDX%); " Hex"
  29.                 PRINT TAB(5); "Interrupt   : "; INTNUM%
  30.                 PRINT TAB(5); "DMA Channel : "; DMACHL%
  31.                 PRINT
  32.  
  33.                 IF (wFeature% AND 2) <> 0 THEN
  34.                     PRINT "FM Music available."
  35.                 ENDIF
  36.  
  37.                 IF (wFeature% AND 4) <> 0 THEN
  38.                     PRINT "Creative Voice available."
  39.                 ENDIF
  40.             ELSE
  41.                 PRINT "Error on DMA channel."
  42.             ENDIF
  43.         ELSE
  44.             PRINT "Error on interrupt."
  45.         ENDIF
  46.     ELSE
  47.         PRINT "Sound Blaster Card not found or wrong I/O setting"
  48.     ENDIF
  49. ELSE
  50.     PRINT "BLASTER environment variable not set or incomplete or invalid."
  51. ENDIF
  52.  
  53. END
  54.