home *** CD-ROM | disk | FTP | other *** search
/ Inside Multimedia 1995 August / IMM0895.ISO01.iso / magazin / optix / disk1 / optxppac.set / WAITMOUS.INC < prev    next >
Text File  |  1995-05-02  |  389b  |  23 lines
  1. procedure waitmouse
  2.  locals(x,y,k,flag)
  3.  
  4.  rem *** wartet darauf, daß die Maus bewegt, eine Maustaste
  5.  rem *** oder eine Keyboard-Taste gedrückt wird.
  6.  
  7.  x:=mousex
  8.  y:=mousey
  9.  k:=mousek
  10.  repeat
  11.    flag:=1
  12.    if mousex=x
  13.      if mousey=y
  14.        if mousek=k
  15.          if keypressed=0
  16.            flag:=0
  17.          endif
  18.        endif
  19.      endif
  20.    endif
  21.  until flag=1
  22. return
  23.