22 lines
802 B
Mathematica
22 lines
802 B
Mathematica
ONCOENA ;WISC/MLH-ONCOLOGY INSTALL-ENVIRONMENT CHECK HELPER
|
|
;;2.11;ONCOLOGY;;Mar 07, 1995
|
|
;
|
|
; 8/12/94 MLH ADDED this routine to bring ONCOENV into
|
|
; compliance with SACC limit of 5000 bytes
|
|
;
|
|
QNORSTG ; does user want to proceed w/o restaging?
|
|
W !!,"No restaging will be performed.",!
|
|
I 'OFST D ; on non-virgin install, make sure they want to skip restaging
|
|
. N DIR,Y
|
|
. S DIR("A")="Proceed with initialization",DIR(0)="Y"
|
|
. S DIR("?",1)="If you enter Y here, initialization will proceed without restaging."
|
|
. S DIR("?",2)=" "
|
|
. S DIR("?",3)="If you enter N here, initialization will cease. You may D ^ONCOINIT"
|
|
. S DIR("?",4)="to restart initialization at any time.",DIR("?")=" "
|
|
. D ^DIR
|
|
. I 'Y K DIFQ W !!,"Initialization aborted.",!!
|
|
. Q
|
|
;END IF
|
|
;
|
|
Q
|