home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / pb / library1 / rmex145.bas < prev    next >
Encoding:
BASIC Source File  |  1990-04-26  |  299 b   |  10 lines
  1.  
  2. StatusReg% = INP( &H61 )             'read value in port 61H
  3. StatusReg% = StatusReg% AND &H00FC
  4. 'mask value read in and make audible tone
  5. FOR J = 1 TO 1000
  6.   StatusReg% = StatusReg%  XOR 2     'toggle speaker
  7.   OUT &H61,StatusReg%                'output new status
  8.   DELAY .001
  9. NEXT J
  10. END