Alias RQ requestchoice
lab redo
rq >env:ans title="FormatK  ŠNovember 1994 By Kenneth J. McCormick. All Rights Reserved." "SELECT A MODE " "FFS" "FFS Q" "FFS DC" "FFS DC Q" "INT" "INT Q" "INT DC" "INT DC Q" "BYE"

IF $ANS EQ "0"
 SKIP DONE
ENDIF


IF $ANS EQ "0"
 ECHO "SET TO INTERNATIONAL CACHE QUICK"
ENDIF

IF $ANS EQ "1"
 ECHO "SET TO FAST FILE SYSTEM NO CACHE"
SKIP NORMAL

ENDIF
IF $ANS EQ "2"
 ECHO "SET TO FAST FILE SYSTEM NO CACHE QUICK"
SKIP NORMAL

ENDIF
IF $ANS EQ "3"
 ECHO "SET TO FAST FILE SYSTEM CACHE - WARNING NEEDS WB3.0 AND ABOVE"
SKIP NORMAL

ENDIF
IF $ANS EQ "4"
 ECHO "SET TO FAST FILE SYSTEM CACHE QUICK - WARNING NEEDS WB3.0 AND ABOVE"
SKIP NORMAL

ENDIF
IF $ANS EQ "5"
 ECHO "SET TO INTERNATIONAL NO CACHE"
SKIP NORMAL

ENDIF
IF $ANS EQ "6"
 ECHO "SET TO INTERNATIONAL NO CACHE QUICK"
SKIP NORMAL

ENDIF
IF $ANS EQ "7"
 ECHO "SET TO INTERNATIONAL CACHE - WARNING NEEDS WB3.0 AND ABOVE"
SKIP NORMAL

ENDIF
IF $ANS EQ "8"
 ECHO "SET TO INTERNATIONAL CACHE Q - WARNING NEEDS WB3.0 AND ABOVE"
SKIP NORMAL

ENDIF

SKIP REDO BACK

LAB NORMAL
rq >env:answer title="FormatK" body="Select a Device OR WB Type" "DF0:" "DF1:" "BOTH:" "IBM" "WB2.0" "WB3.0" "ABORT" "BYE"
IF $ANSWER EQ "0"
SKIP DONE
ENDIF
IF $ANSWER EQ "1"
   IF $ANS EQ "1"
      FORMAT DRIVE DF0: NAME EMPTY0 FFS NODIRCACHE NOICONS
   ENDIF
   IF $ANS EQ "2"
      FORMAT DRIVE DF0: NAME EMPTY0 FFS NODIRCACHE NOICONS QUICK
   ENDIF
   IF $ANS EQ "3"
      FORMAT DRIVE DF0: NAME EMPTY0 FFS DIRCACHE NOICONS
   ENDIF
   IF $ANS EQ "4"
      FORMAT DRIVE DF0: NAME EMPTY0 FFS DIRCACHE NOICONS QUICK
   ENDIF
   IF $ANS EQ "5"
      FORMAT DRIVE DF0: NAME EMPTY0 INTL NODIRCACHE NOICONS
   ENDIF
   IF $ANS EQ "6"
      FORMAT DRIVE DF0: NAME EMPTY0 INTL NODIRCACHE NOICONS QUICK
   ENDIF
   IF $ANS EQ "7"
      FORMAT DRIVE DF0: NAME EMPTY0 INTL DIRCACHE NOICONS
   ENDIF
   IF $ANS EQ "8"
      FORMAT DRIVE DF0: NAME EMPTY0 INTL DIRCACHE NOICONS QUICK
   ENDIF
ENDIF

IF $ANSWER EQ "2"
IF $ANS EQ "1"
      FORMAT DRIVE DF1: NAME EMPTY0 FFS NODIRCACHE NOICONS
   ENDIF
   IF $ANS EQ "2"
      FORMAT DRIVE DF1: NAME EMPTY0 FFS NODIRCACHE NOICONS QUICK
   ENDIF
   IF $ANS EQ "3"
      FORMAT DRIVE DF1: NAME EMPTY0 FFS DIRCACHE NOICONS
   ENDIF
   IF $ANS EQ "4"
      FORMAT DRIVE DF1: NAME EMPTY0 FFS DIRCACHE NOICONS QUICK
   ENDIF
   IF $ANS EQ "5"
      FORMAT DRIVE DF1: NAME EMPTY0 INTL NODIRCACHE NOICONS
   ENDIF
   IF $ANS EQ "6"
      FORMAT DRIVE DF1: NAME EMPTY0 INTL NODIRCACHE NOICONS QUICK
   ENDIF
   IF $ANS EQ "7"
      FORMAT DRIVE DF1: NAME EMPTY0 INTL DIRCACHE NOICONS
   ENDIF
   IF $ANS EQ "8"
      FORMAT DRIVE DF1: NAME EMPTY0 INTL DIRCACHE NOICONS QUICK
   ENDIF
ENDIF

IF $ANSWER EQ "3"
      RQ >ENV:MSG "FORMAT_K WARNING" "MULTIFORMAT CAN'T BE STOPPED" "CONTINUE" "ABORT"
      IF $MSG EQ "0"
         SKIP JUMP
      ENDIF
IF $ANS EQ "1"
      RUN FORMAT DRIVE DF0: NAME EMPTY0 FFS NODIRCACHE NOICONS
      RUN FORMAT DRIVE DF1: NAME EMPTY0 FFS NODIRCACHE NOICONS
   ENDIF
   IF $ANS EQ "2"
      RUN FORMAT DRIVE DF0: NAME EMPTY0 FFS NODIRCACHE NOICONS QUICK
      RUN FORMAT DRIVE DF1: NAME EMPTY0 FFS NODIRCACHE NOICONS QUICK
   ENDIF
   IF $ANS EQ "3"
      RUN FORMAT DRIVE DF0: NAME EMPTY0 FFS DIRCACHE NOICONS
      RUN FORMAT DRIVE DF1: NAME EMPTY0 FFS DIRCACHE NOICONS
   ENDIF
   IF $ANS EQ "4"
      RUN FORMAT DRIVE DF0: NAME EMPTY0 FFS DIRCACHE NOICONS QUICK
      RUN FORMAT DRIVE DF1: NAME EMPTY0 FFS DIRCACHE NOICONS QUICK
   ENDIF
   IF $ANS EQ "5"
      RUN FORMAT DRIVE DF0: NAME EMPTY0 INTL NODIRCACHE NOICONS
      RUN FORMAT DRIVE DF1: NAME EMPTY0 INTL NODIRCACHE NOICONS
   ENDIF
   IF $ANS EQ "6"
      RUN FORMAT DRIVE DF0: NAME EMPTY0 INTL NODIRCACHE NOICONS QUICK
      RUN FORMAT DRIVE DF1: NAME EMPTY0 INTL NODIRCACHE NOICONS QUICK
   ENDIF
   IF $ANS EQ "7"
      RUN FORMAT DRIVE DF0: NAME EMPTY0 INTL DIRCACHE NOICONS
      RUN FORMAT DRIVE DF1: NAME EMPTY0 INTL DIRCACHE NOICONS
   ENDIF
   IF $ANS EQ "8"
      RUN FORMAT DRIVE DF0: NAME EMPTY0 INTL DIRCACHE NOICONS QUICK
      RUN FORMAT DRIVE DF1: NAME EMPTY0 INTL DIRCACHE NOICONS QUICK
   ENDIF
ENDIF

IF $ANSWER EQ "4"
FORMAT DRIVE PC0: NAME IBM NOICONS
ENDIF
IF $ANSWER EQ "5"
FORMAT DRIVE DF0: NAME EMPTY0 FFS NOICONS
ENDIF
IF $ANSWER EQ "6"
FORMAT DRIVE DF0: NAME EMPTY0 FFS DIRCACHE NOICONS
ENDIF

IF $ANSWER EQ "7"
SKIP REDO BACK
ENDIF


IF $ANSWER EQ "0"
skip DONE
ENDIF

LAB JUMP
FormatK


LAB DONE
UNALIAS  requestchoice