Re: I have tried coworkers, and the manual, but to no avail...

We use this c function to wait 30 seconds for a key to be pressed. When a key is pressed the value is returned to the calling 4GL. If no key is pressed in that time then return '.' to the 4GL. TomMartins wrote in message <1998041602424401.WAA10266@ladder01.news.aol.com>... > > What function can you call in 4gl that WAITS for a keystroke, and returns >the >key pressed? > >Thanks! begin 666 timeout.c M#0HO*@T*+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM M+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM#0H@1E5. M0U1)3TX@(" @.B!T:6UE;W5T*"D@(" @(" @(" @(" @(" @(" @(" @(" @ M(" @(" @(" @(" @(" @(" @(" @(" @(" @(" -"B!$15-#4DE05$E/3B Z M(%1H:7,@9G5N8W1I;VX@:7,@=7-E9"!T;R!R96%D(&$@8VAA<F%C=&5R(&9R M;VT@=&AE('1E<FUI;F%L( T*(" @(" @(" @(" @(" @86YD(')E='5R;B!I M="!T;R!T:&4@8V%L;&EN9R!F=6YT:6]N+B!)9B!A('!R97-E="!A;&%R;2 - M"B @(" @(" @(" @(" @('-I9VYA;',@82!T:6UE;W5T(&]R(&$@=7-E<B!D M969I;F5D('-I9VYA;"!I<R!R96-I979E9"!T:&5N#0H@(" @(" @(" @(" @ M("!T:&4@8VAA<F%C=&5R("(N(B!I<R!R971U<FYE9"!W:&EC:"!S:&]U;&0@ M8V%U<V4@=&AE('-C<F5E;B -"B @(" @(" @(" @(" @('1O(')E9G)E<V@N M($%N>2!S=6)S97%U96YT('-I9VYA;',@<VAO=6QD(&)E(&EG;F]R960N#0HM M+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM M+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2T-"BHO#0H-"G1I;65O M=70H;F]?;V9?<&%R86US*0T*#0H@("!I;G0@;F]?;V9?<&%R86US.PT*#0I[ M#0H@(" @:6YT(" @(')F<G-H*"D[#0H@(" @:6YT(" @(')E9G)E<VA?<F%T M93L-"@T*(" @('-I9VYA;"A324=!3%)-+')F<G-H*3L-"B @(" -"B @("!C M:%LQ73TG7# G.PT*#0H@(" @:68@*&YO7V]F7W!A<F%M<R ]/2 P*0T*(" @ M(" @(&%L87)M*#$R,"D[#0H@(" @96QS90T*(" @(" @('L-"B @(" @(" @ M("!P;W!I;G0H)G)E9G)E<VA?<F%T92D[#0H@(" @(" @(" @86QA<FTH<F5F M<F5S:%]R871E*3L-"B @(" @("!]#0H@(" @#0H@(" @8VA;,%T]9V5T8VAA M<B@I.PT*(" @('-I9VYA;"A324=!3%)-+"!324=?24=.*3L-"B @("!A;&%R M;2@P*3L-"B @("!R971Q=6]T92AC:"D[#0H@(" @<F5T=7)N*#$I.PT*?0T* M#0H-"B\\J#0HM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM M+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2T-"B!& M54Y#5$E/3B @(" Z(')F<G-H*"D@(" @(" @(" @(" @(" @(" @(" @(" @ M(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @( T*($1%4T-225!424]. M(#H@1&ES86)L92!S:6=N86P@<F5S<&]N<V5S(&%N9"!R971U<FX@(BXB('1O M(&-A;&QI;F<@9G5N8W1I;VX@(" @#0HM+2TM+2TM+2TM+2TM+2TM+2TM+2TM M+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM M+2TM+2TM+2TM+2T-"BHO#0H-"G)F<G-H*"D-"@T*>PT*(" @('-I9VYA;"A3 M24=!3%)-+"!324=?24=.*3L-"B @("!A;&%R;2@P*3L-"B @("!C:%LP73TG M+B<[#0H@(" @<F5T<75O=&4H8V@I.PT*(" @(')E='5R;B@Q*3L-"GT-"@T* ` end