home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / util / cli / dosk / commands / diskcopyk < prev    next >
Encoding:
Text File  |  1995-01-04  |  1.3 KB  |  66 lines
  1. FAILAT 21
  2. lab more
  3. REQUESTCHOICE >ENV:CHO1 "DiskcopyK ©November 1994 By Kenneth J. McCormick. All Rights Reserved." "SELECT DEVICE" "DF1 TO DF0" "DF0 TO DF1" "DF0 ONLY" "EXIT"
  4. IF $CHO1 EQ "0"
  5. SKIP DONE
  6. ENDIF
  7. REQUESTCHOICE >ENV:CHO2 "DiskCopyK" "SELECT AN OPTION" "START" "MULTI" "NOVERIFY MULTI" "NOVERIFY" "ABORT" "BYE"
  8. IF $CHO2 EQ "0"
  9. SKIP DONE
  10. ENDIF
  11. IF $CHO2 EQ "1"
  12.    IF $CHO1 EQ "1"
  13.       DISKCOPY DF1: TO DF0:
  14.    ENDIF
  15.    IF $CHO1 EQ "2"
  16.       DISKCOPY DF0: TO DF1:
  17.    ENDIF
  18.    IF $CHO1 EQ "3"
  19.       DISKCOPY DF0: TO DF0:
  20.    ENDIF
  21. ENDIF
  22. IF $CHO2 EQ "2"
  23.    IF $CHO1 EQ "1"
  24.       DISKCOPY DF1: TO DF0: MULTI
  25.    ENDIF
  26.    IF $CHO1 EQ "2"
  27.       DISKCOPY DF0: TO DF1: MULTI
  28.    ENDIF
  29.    IF $CHO1 EQ "3"
  30.       DISKCOPY DF0: TO DF0: MULTI
  31.    ENDIF
  32. ENDIF
  33. IF $CHO2 EQ "3"
  34.    IF $CHO1 EQ "1"
  35.       DISKCOPY DF1: TO DF0: NOVERIFY MULTI
  36.    ENDIF
  37.    IF $CHO1 EQ "2"
  38.       DISKCOPY DF0: TO DF1: NOVERIFY MULTI
  39.    ENDIF
  40.    IF $CHO1 EQ "3"
  41.       DISKCOPY DF0: TO DF0: NOVERIFY MULTI
  42.    ENDIF
  43. ENDIF
  44. IF $CHO2 EQ "4"
  45.    IF $CHO1 EQ "1"
  46.       DISKCOPY DF1: TO DF0: NOVERIFY
  47.    ENDIF
  48.    IF $CHO1 EQ "2"
  49.       DISKCOPY DF0: TO DF1: NOVERIFY
  50.    ENDIF
  51.    IF $CHO1 EQ "3"
  52.       DISKCOPY DF0: TO DF0: NOVERIFY
  53.    ENDIF
  54. ENDIF
  55. IF $CHO2 EQ "5"
  56. SKIP MORE BACK
  57. ENDIF
  58. IF $CHO2 EQ "6"
  59. SKIP DONE
  60. ENDIF
  61. DiskcopyK
  62. LAB DONE
  63. UNSETENV CHO1
  64. UNSETENV CHO2
  65.  
  66.