'===========================================================================
' Subject: ACCESSING ADLIB SOUND CARD        Date: 03-29-99 (23:21)       
' Author:  Nick Kochakian                    Code: QB, QBasic, PDS        
' Origin:  nickk@worldnet.att.net          Packet: SOUND.ABC
'===========================================================================
DECLARE SUB set.adlib (reg.port!, data.port!)
'ADLIB1.BAS
'
'This program will give you a basic overview of accessing the Adlib sound card
'This should be fully comptatble with any comptable Sound Blaster or
'equivalent sound card.
'
'3/29/99 By: - Nick Kochakian -
'
'web:    http://come.to/dn3
'e-mail: nickk@worldnet.att.net


PRINT "Playing tones 21 to 63"

FOR l = 21 TO 63
    set.adlib &HB0, l
    SOUND 0, 1 'This is for a little delay
NEXT l

set.adlib &HB0, &H11 'Turn the sound off

SUB set.adlib (reg.port, data.port)

OUT &H388, reg.port
OUT &H389, data.port

END SUB