Here's another solution:
LOOP
INPUT VAR,-1
IF VAR THEN
INPUT TOUCH,1
IF TOUCH = 'X' THEN EXIT
END
REPEAT
----- Original Message -----
From: "Mark Johnson" <[EMAIL PROTECTED]>
To: "U2 Users Discussion List" <[EMAIL PROTECTED]>
Sent: Wednesday, April 28, 2004 10:41 PM
Subject: Re: Input weirdo...
> I have a new client that i've yet to be able to <break key> with over the
> modem. So if I'm running a program (readnext etc) but i want to break, I
> include this INCLUDE.
>
> IF SYSTEM(14) # 0 THEN
> INPUT A
> IF A="Q" THEN CLEARSELECT (sic) ; STOP
> IF A="D" THEN DEBUG
> END
>
> SYSTEM(14) is the length of the typeahead buffer. D3 for sure and possibly
> UV/UD.
> The CLEARSELECT is UV/UD specific.
>
> My 1 cent.
>
> ----- Original Message -----
> From: "Dennis Bartlett" <[EMAIL PROTECTED]>
> To: "'U2 Users Discussion List'" <[EMAIL PROTECTED]>
> Sent: Wednesday, April 28, 2004 10:54 AM
> Subject: Input weirdo...
>
>
> > We have a program looping through all data files searching
> > for something
> > - sometimes it gets to a file containing several million
> > records and
> > we'd like to be able to tell it to skip that file and
> > continue with the
> > next file. We've tried the following approaches with said
> > results:
> > (1) OPT.OUT = KEYIN() ; if OPT.OUT = 1 then EXIT
> > OPT.OUT = 0
> > the program sits waiting for input in every
> > iteration, ie every
> > record
> >
> > (2) INPUT OPT.OUT,-1 ; if OPT.OUT = 'S' then EXIT
> > OPT.OUT = 0
> > CLEARDATA
> > CLEARINPUT
> > the program works perfectly until an 'S' is entered
> > then skips
> > every file after that...
> >
> > HOWEVER, if I press Ctrl-Break, enter DEBUG, enter
> > C(ontinue),
> > the program continues as normal until another 'S' is
> > entered..
> >
> > Obviously the machine still has something in the input
> > buffer, despite
> > the CLEARDATA, something that gets whacked when debug hits
> > the scene...
> >
> > Any ideas?
> >
> >
> > --
> > u2-users mailing list
> > [EMAIL PROTECTED]
> > http://www.oliver.com/mailman/listinfo/u2-users
>
> --
> u2-users mailing list
> [EMAIL PROTECTED]
> http://www.oliver.com/mailman/listinfo/u2-users
>
--
u2-users mailing list
[EMAIL PROTECTED]
http://www.oliver.com/mailman/listinfo/u2-users
