home *** CD-ROM | disk | FTP | other *** search
/ Boston 2 / boston-2.iso / DOS / PROGRAM / BASIC / POWBASIC / LIBRARY1 / EXAMP1.ZIP / RMEX145.BAS < prev    next >
BASIC Source File  |  1990-04-26  |  299b  |  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