Module: _wait      Library: Clipper 5.3


This module contains the following functions and procedures:

function __WAIT( Arg1 )

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