Module: _wait Library: Clipper 5.3
This module contains the following functions and procedures:
Note: Because this is raw decompiler output, the code is closer
to that seen in a .PPO file, rather than a .PRG file. In other
words, you must allow for the preprocessor conversions normally
performed based on the contents of STD.CH and other .CH files
#include "common.ch"
#include "inkey.ch"
//---------------------------------------------------[top]-
// __WAIT( Arg1 )
//
function __WAIT( Arg1 )
local Local1, Local2
if ( ISNIL( Arg1 ) )
? "Press any key to continue..."
else
? Arg1
endif
do while ( .T. )
Local1 := InKey(0)
if ( ( Local2 := SetKey(Local1) ) != Nil )
eval(Local2, procname(1), procline(1), "")
loop
endif
if ( Local1 >= 32 .AND. Local1 <= 255 )
?? Chr(Local1)
else
Local1 := 0
endif
exit
enddo
return Chr(Local1)
//---EOF
Use your Browser's BACK button to return to Function Listings