Hello group!

I'm trying to find a way to disable the message "Press any key to
continue..." in a Universe NT system.

The messsage is displayed in a BASIC program. I have tried CRT @(0) in
various places in the program, but no luck. I can't use NOPAGE becasue
it is not a LIST or SORT.

Here is a sample of the program

HEADER := \PART NUMBER DESCRIPTION'L'\
HEADER := \--------------------------------- -- ----------\
HEADING HEADER
****
Here is BASIC commands with CRT functions.
The TERM command controls the page break and the heading.
***

I'm looking for a SYSTEM() command or something similar. Any
suggestions?

Peter

mdsi2000 wrote:
<snip>
Instead of "CRT @(0)", near the top of your code, where you initialize
everything else, before the HEADING statement, try "DUMMY = @(0,0)",
(without quotes).

--
Allen Egerton
aegerton at pobox dot com

term ,0

perhaps?

--
frosty
mdsi2000 wrote:

On Feb 6, 2:06 pm, Allen Egerton <aeger... (AT) pobox (DOT) com> wrote:
Allen,

Your suggestion did not work. I still get the "Press any key to
continue..." message. Here is what I did.

DUMMY = @(0,0)
HEADING HEADER
*
BREAK.SUB = ''
BREAK.LOC = ''
BREAK.PAY = ''

Is there a LOCAL or GLOBAL system variable?

Peter

On Feb 6, 2:47 pm, "frosty" <fros... (AT) bogus (DOT) tld> wrote:
Frosty,
That didn't work. I first tried it from TCL and this error.

32767.


Thanks,
Peter

I just tested Allen's @(0,0) and it works fine.

I wonder if it my be flavor dependent. I running uv 10.0 and information flavor

one other thing you can try is

RUN BP prgm_name_here NO.PAGE

Rich

mdsi2000 wrote:

ASSIGN 0 TO SYSTEM(1005)

Ed

"mdsi2000" <mdsi2000 (AT) yahoo (DOT) com> wrote

Rich,

That didn't work either. If you got the @(0,0) to work, I should be
able to do the same. Maybe if I place DUMMY = @(0,0) in various places
I'll get lucky.

Is there a TCL command I can type just before the HEADING command?

I'm thinking of just building a DATA stack with the letter "N" within
the program. But that will still display the first message. Not a good
solution either.

Thanks for the help,
Peter


On Feb 6, 3:31 pm, Richard Wilson <rwil... (AT) lakeside-systems (DOT) com>
wrote:

ok I testing in a pick flavor account

@(0,0) doesnt work
NO.PAGE doesnt work
ASSIGN 0 TO SYSTEM(1005) doesnt work

solution (get rid of heading logic, pick flavor is picky <g>)

PRINT @(-1)
PRINT \PART NUMBER DESCRIPTION\
PRINT \--------------------------------- -- ----------\

Rich

mdsi2000 wrote:

Richard and all,

I finally got this issue with the "Press any key to continue..."
resolved under Universe NT Pick flavor. The Pick flavor can not
disable this message the way the program was written. Writting a BASIC
program with a HEADING command is a must for this company.

Here is what I did so anybody that has this problem in the future can
resolve it. You will need to change your program flavor to Reality.
Then you can use one of these solutions:

@(0,0)
NO.PAGE
ASSIGN 0 TO SYSTEM(1005)

Here is the sample code:

$OPTIONS INFORMATION
....
....
....
DUMMY = @(0,0)
HEADING HEADER
....
....
....


Peter


On Feb 6, 4:33 pm, Richard Wilson <rwil... (AT) lakeside-systems (DOT) com>
wrote: