' *** ANY_KEY.LST *** 2nd GFA-Manual, page 8-13 FUNCTION any_key ' ' *** Wait for any keypress or mouse-click ' *** Call Function: ~@any_key ' {ADD(XBIOS(14,1),6)}=0 ! clear keyboard-buffer WHILE MOUSEK ! all mouse-buttons released? WEND REPEAT UNTIL LEN(INKEY$) OR MOUSEK RETURN -1 ENDFUNC ' ***** '