home *** CD-ROM | disk | FTP | other *** search
/ Computer Club Elmshorn Atari PD / CCE_PD.iso / mac / 0700 / CCE_0708.ZIP / CCE_0708.PD / GFAHILFE / SRC_MS / GONG.LST < prev    next >
File List  |  1993-09-06  |  158b  |  9 lines
  1. > PROCEDURE gong
  2.   LOCAL mx&,my&,mb&,shift&
  3.   SOUND 1,15,#486
  4.   WAVE 1,1,1,8000,0
  5.   REPEAT
  6.     ~GRAF_MKSTATE(mx&,my&,mb&,shift&)
  7.   UNTIL mb&=0
  8. RETURN
  9.