home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 1B / DATAFILE_PDCD1B.iso / _pocketbk / pocketbook / 004 / oplexamp_z / BEEPER.OPL < prev    next >
Text File  |  1992-08-26  |  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.