home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 1B / DATAFILE_PDCD1B.iso / _pocketbk / pocketbook / 001 / psionu_arc / MUTE.OPL < prev    next >
Text File  |  1991-04-22  |  122b  |  11 lines
  1. MUTE:
  2. PRINT"      <";
  3. IF PEEKB($A4)=0
  4.  POKEB $A4,1
  5.  PRINT"OFF>";
  6. ELSE
  7.  PRINT"ON>";
  8.  POKEB $A4,0
  9. ENDIF
  10. PAUSE -30
  11.