home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 9 / FreshFishVol9-CD2.bin / bbs / util / dosk-1.0.lha / DosK / Commands / FormatK < prev    next >
Text File  |  1995-01-04  |  4KB  |  183 lines
  1.  
  2.  
  3. Alias RQ requestchoice
  4. lab redo
  5. 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"
  6.  
  7. IF $ANS EQ "0"
  8.  SKIP DONE
  9. ENDIF
  10.  
  11.  
  12. IF $ANS EQ "0"
  13.  ECHO "SET TO INTERNATIONAL CACHE QUICK"
  14. ENDIF
  15.  
  16. IF $ANS EQ "1"
  17.  ECHO "SET TO FAST FILE SYSTEM NO CACHE"
  18. SKIP NORMAL
  19.  
  20. ENDIF
  21. IF $ANS EQ "2"
  22.  ECHO "SET TO FAST FILE SYSTEM NO CACHE QUICK"
  23. SKIP NORMAL
  24.  
  25. ENDIF
  26. IF $ANS EQ "3"
  27.  ECHO "SET TO FAST FILE SYSTEM CACHE - WARNING NEEDS WB3.0 AND ABOVE"
  28. SKIP NORMAL
  29.  
  30. ENDIF
  31. IF $ANS EQ "4"
  32.  ECHO "SET TO FAST FILE SYSTEM CACHE QUICK - WARNING NEEDS WB3.0 AND ABOVE"
  33. SKIP NORMAL
  34.  
  35. ENDIF
  36. IF $ANS EQ "5"
  37.  ECHO "SET TO INTERNATIONAL NO CACHE"
  38. SKIP NORMAL
  39.  
  40. ENDIF
  41. IF $ANS EQ "6"
  42.  ECHO "SET TO INTERNATIONAL NO CACHE QUICK"
  43. SKIP NORMAL
  44.  
  45. ENDIF
  46. IF $ANS EQ "7"
  47.  ECHO "SET TO INTERNATIONAL CACHE - WARNING NEEDS WB3.0 AND ABOVE"
  48. SKIP NORMAL
  49.  
  50. ENDIF
  51. IF $ANS EQ "8"
  52.  ECHO "SET TO INTERNATIONAL CACHE Q - WARNING NEEDS WB3.0 AND ABOVE"
  53. SKIP NORMAL
  54.  
  55. ENDIF
  56.  
  57. SKIP REDO BACK
  58.  
  59. LAB NORMAL
  60. rq >env:answer title="FormatK" body="Select a Device OR WB Type" "DF0:" "DF1:" "BOTH:" "IBM" "WB2.0" "WB3.0" "ABORT" "BYE"
  61. IF $ANSWER EQ "0"
  62. SKIP DONE
  63. ENDIF
  64. IF $ANSWER EQ "1"
  65.    IF $ANS EQ "1"
  66.       FORMAT DRIVE DF0: NAME EMPTY0 FFS NODIRCACHE NOICONS
  67.    ENDIF
  68.    IF $ANS EQ "2"
  69.       FORMAT DRIVE DF0: NAME EMPTY0 FFS NODIRCACHE NOICONS QUICK
  70.    ENDIF
  71.    IF $ANS EQ "3"
  72.       FORMAT DRIVE DF0: NAME EMPTY0 FFS DIRCACHE NOICONS
  73.    ENDIF
  74.    IF $ANS EQ "4"
  75.       FORMAT DRIVE DF0: NAME EMPTY0 FFS DIRCACHE NOICONS QUICK
  76.    ENDIF
  77.    IF $ANS EQ "5"
  78.       FORMAT DRIVE DF0: NAME EMPTY0 INTL NODIRCACHE NOICONS
  79.    ENDIF
  80.    IF $ANS EQ "6"
  81.       FORMAT DRIVE DF0: NAME EMPTY0 INTL NODIRCACHE NOICONS QUICK
  82.    ENDIF
  83.    IF $ANS EQ "7"
  84.       FORMAT DRIVE DF0: NAME EMPTY0 INTL DIRCACHE NOICONS
  85.    ENDIF
  86.    IF $ANS EQ "8"
  87.       FORMAT DRIVE DF0: NAME EMPTY0 INTL DIRCACHE NOICONS QUICK
  88.    ENDIF
  89. ENDIF
  90.  
  91. IF $ANSWER EQ "2"
  92. IF $ANS EQ "1"
  93.       FORMAT DRIVE DF1: NAME EMPTY0 FFS NODIRCACHE NOICONS
  94.    ENDIF
  95.    IF $ANS EQ "2"
  96.       FORMAT DRIVE DF1: NAME EMPTY0 FFS NODIRCACHE NOICONS QUICK
  97.    ENDIF
  98.    IF $ANS EQ "3"
  99.       FORMAT DRIVE DF1: NAME EMPTY0 FFS DIRCACHE NOICONS
  100.    ENDIF
  101.    IF $ANS EQ "4"
  102.       FORMAT DRIVE DF1: NAME EMPTY0 FFS DIRCACHE NOICONS QUICK
  103.    ENDIF
  104.    IF $ANS EQ "5"
  105.       FORMAT DRIVE DF1: NAME EMPTY0 INTL NODIRCACHE NOICONS
  106.    ENDIF
  107.    IF $ANS EQ "6"
  108.       FORMAT DRIVE DF1: NAME EMPTY0 INTL NODIRCACHE NOICONS QUICK
  109.    ENDIF
  110.    IF $ANS EQ "7"
  111.       FORMAT DRIVE DF1: NAME EMPTY0 INTL DIRCACHE NOICONS
  112.    ENDIF
  113.    IF $ANS EQ "8"
  114.       FORMAT DRIVE DF1: NAME EMPTY0 INTL DIRCACHE NOICONS QUICK
  115.    ENDIF
  116. ENDIF
  117.  
  118. IF $ANSWER EQ "3"
  119.       RQ >ENV:MSG "FORMAT_K WARNING" "MULTIFORMAT CAN'T BE STOPPED" "CONTINUE" "ABORT"
  120.       IF $MSG EQ "0"
  121.          SKIP JUMP
  122.       ENDIF
  123. IF $ANS EQ "1"
  124.       RUN FORMAT DRIVE DF0: NAME EMPTY0 FFS NODIRCACHE NOICONS
  125.       RUN FORMAT DRIVE DF1: NAME EMPTY0 FFS NODIRCACHE NOICONS
  126.    ENDIF
  127.    IF $ANS EQ "2"
  128.       RUN FORMAT DRIVE DF0: NAME EMPTY0 FFS NODIRCACHE NOICONS QUICK
  129.       RUN FORMAT DRIVE DF1: NAME EMPTY0 FFS NODIRCACHE NOICONS QUICK
  130.    ENDIF
  131.    IF $ANS EQ "3"
  132.       RUN FORMAT DRIVE DF0: NAME EMPTY0 FFS DIRCACHE NOICONS
  133.       RUN FORMAT DRIVE DF1: NAME EMPTY0 FFS DIRCACHE NOICONS
  134.    ENDIF
  135.    IF $ANS EQ "4"
  136.       RUN FORMAT DRIVE DF0: NAME EMPTY0 FFS DIRCACHE NOICONS QUICK
  137.       RUN FORMAT DRIVE DF1: NAME EMPTY0 FFS DIRCACHE NOICONS QUICK
  138.    ENDIF
  139.    IF $ANS EQ "5"
  140.       RUN FORMAT DRIVE DF0: NAME EMPTY0 INTL NODIRCACHE NOICONS
  141.       RUN FORMAT DRIVE DF1: NAME EMPTY0 INTL NODIRCACHE NOICONS
  142.    ENDIF
  143.    IF $ANS EQ "6"
  144.       RUN FORMAT DRIVE DF0: NAME EMPTY0 INTL NODIRCACHE NOICONS QUICK
  145.       RUN FORMAT DRIVE DF1: NAME EMPTY0 INTL NODIRCACHE NOICONS QUICK
  146.    ENDIF
  147.    IF $ANS EQ "7"
  148.       RUN FORMAT DRIVE DF0: NAME EMPTY0 INTL DIRCACHE NOICONS
  149.       RUN FORMAT DRIVE DF1: NAME EMPTY0 INTL DIRCACHE NOICONS
  150.    ENDIF
  151.    IF $ANS EQ "8"
  152.       RUN FORMAT DRIVE DF0: NAME EMPTY0 INTL DIRCACHE NOICONS QUICK
  153.       RUN FORMAT DRIVE DF1: NAME EMPTY0 INTL DIRCACHE NOICONS QUICK
  154.    ENDIF
  155. ENDIF
  156.  
  157. IF $ANSWER EQ "4"
  158. FORMAT DRIVE PC0: NAME IBM NOICONS
  159. ENDIF
  160. IF $ANSWER EQ "5"
  161. FORMAT DRIVE DF0: NAME EMPTY0 FFS NOICONS
  162. ENDIF
  163. IF $ANSWER EQ "6"
  164. FORMAT DRIVE DF0: NAME EMPTY0 FFS DIRCACHE NOICONS
  165. ENDIF
  166.  
  167. IF $ANSWER EQ "7"
  168. SKIP REDO BACK
  169. ENDIF
  170.  
  171.  
  172. IF $ANSWER EQ "0"
  173. skip DONE
  174. ENDIF
  175.  
  176. LAB JUMP
  177. FormatK
  178.  
  179.  
  180. LAB DONE
  181. UNALIAS  requestchoice
  182.  
  183.