home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 1B / DATAFILE_PDCD1B.iso / _pocketbk / pocketbook / 004 / ipc_zip / BEEPER.OPL next >
Text File  |  1991-09-03  |  94b  |  10 lines

  1. PROC beeper:
  2.     while 1
  3.         iowait
  4.         while peekw($28)
  5.             beep 1,300
  6.         endwh
  7.     endwh
  8. ENDP
  9.  
  10.