File is in WRQ label format.
----------------------------------------------------------
RUN JCW.UTIL.SYS,ASKOP;INFO=' ASK OPERATOR TO CONTINUE '
JCW ASKOP = 0 Operator replied NO
JCW ASKOP = 1 Operator replied Yes
END OF PROGRAM
----------------------------------------------------------
run jcw.util,help