0001       EQUATE TRUE TO 1
0002       EQUATE FALSE TO 0
0003       PROMPT ""
0004       DUMMY = @(0,0)
0005 *
0006       WAIT = TRUE
0007       LOOP WHILE WAIT
0008          INPUT XYZ, -1
0009          IF (XYZ) THEN
0010             INPUT XYZ,1                  ; *  Eat the char
0011             WAIT = FALSE
0012          END ELSE
0013             SLEEP 1
0014             CRT OCONV(TIME(), "MTHS")
0015          END
0016       REPEAT
0017 *
0018       CRT "OUT OF LOOP"
0019       CRT 'BYE'

(Allen - Sent from my paperweight)

On Aug 9, 2013, at 4:04 PM, Bill Brutzman <bi...@hkmetalcraft.com> wrote:

> With Dynamic Connect... and UniBasic...
> 
> I need a screen that continuously displays time... as we have an inspection
> screen where press operators enter fresh data each hour.  Something like...
> 
>  loop                                    
> 
>    call *timeOfDay
>    call *displayOtherStuff
> 
>     input             thisKey, -1
> 
>  until (thisKey = '1')
> 
>     sleep
> 
>  repeat  
> 
>  gosub secondScreen
> 
> 
> 
> The trouble with this thing is... when a key is pressed... it wants to
> display the key on asubsequent screen.
> 
> I tried...    inputclear... but it is not doing what I want.
> 
> Suggestions would be appreciated.
> 
> --Bill
> 
> _______________________________________________
> U2-Users mailing list
> U2-Users@listserver.u2ug.org
> http://listserver.u2ug.org/mailman/listinfo/u2-users
_______________________________________________
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users

Reply via email to