Posted by Grant Foraker on January 19, 2005 at 09:11:48:
In Reply to: Re: QSPOOL run from QSTARTX in Comet2k5 posted by Barbara Brazil on January 19, 2005 at 08:49:41:
Took a look at my QSTARTX and the screen capture. Problem seems to be that SHUTDOWN did not exist for the ACTIVATE.
PRINT @(24,4);'ACTIVATED USER RESET'
PAUSE (DELAY)
3210!
OPEN (7) 'Z1'
OPEN (11) '#DOWN' ! USER CONTROL FILE
INQUIRE (11,2176) KEY = TERM$, EXCP = 9110 ! GET SHUTDOWN TIME
IF STRIP(UTIME$) EQ '' GOTO 3220 ! NO SHUTDOWN TIME
LET CMDFILE$ = UTIME$ ! PASS TIME TO SHUTDOWN
!
ACTIVATE ' ', 'SHUTDOWN' ! SET SHUTDOWN TIME
!
PRINT @(24,6);'ACTIVATED SHUTDOWN FOR ';UTIME$
PAUSE (DELAY)
GOTO 3230
!
3220!
PRINT @(24,6);'SHUTDOWN NOT ACTIVATED'
PAUSE (DELAY)