home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / util / cli / dosk / commands / sortk < prev    next >
Encoding:
Text File  |  1995-01-04  |  3.0 KB  |  138 lines
  1. FAILAT 21
  2. SETENV COUNT 0
  3. LAB START
  4. ALIAS MV_K SYS:UTILITIES/MULTIVIEW
  5. requestchoice >env:OPT "SortK ©DECEMBER 1994 By Kenneth J. McCormick. All Rights Reserved." "Select Option " "FILE" "DIR" "LIST" "SIZE" "CASE" "NUMERIC" "BYE"
  6. IF $OPT EQ "0"
  7.    SKIP DONE
  8. ENDIF
  9. lab job
  10.    if $OPT eq "1"
  11.       REQUESTFILE >ENV:FILE1 TITLE="SORT FROM"
  12.    endif
  13.    if $opt eq "2"
  14.       REQUESTFILE >ENV:FILE1 TITLE="SORT FROM" DRAWERSONLY
  15.       CD $FILE1
  16.    endif
  17.    if $opt eq "3"
  18.       REQUESTFILE >ENV:FILE1 TITLE="SORT FROM" DRAWERSONLY
  19.       CD $FILE1
  20.    endif
  21.    if $opt eq "4"
  22.       REQUESTFILE >ENV:FILE1 TITLE="SORT FROM" DRAWERSONLY
  23.       CD $FILE1
  24.    endif
  25.    IF $OPT EQ "1"
  26.       COPY FROM $FILE1 TO RAM:TEMP_K2
  27.       SORT RAM:TEMP_K2 RAM:TEMP_K
  28.       MV_K RAM:TEMP_K
  29.       ENDIF
  30.    ENDIF
  31.    IF $OPT EQ "2"
  32.       DIR >RAM:TEMP_K2
  33.       CD RAM:
  34.       SORT TEMP_K2 TEMP_K
  35.       MV_K TEMP_K
  36.    ENDIF
  37.    IF $OPT EQ "3"
  38.       LIST >RAM:TEMP_K2
  39.       cd ram:
  40.       SORT TEMP_K2 TEMP_K
  41.       MV_K TEMP_K
  42.    ENDIF
  43.    IF $OPT EQ "4"
  44.       LIST > RAM:TEMP_K2
  45.       cd ram:
  46.       SORT TEMP_K2 TEMP_K COLSTART 28
  47.       MV_K TEMP_K
  48.    ENDIF
  49.    IF $OPT EQ "5"
  50.    requestchoice >env:FT "SortK" "SELECT TYPE" "FILE" "DIR" "LIST" "ABORT"
  51.    IF $FT EQ "0"
  52.       SKIP TEST
  53.    ENDIF
  54.    IF $FT EQ "1"
  55.       SKIP FILE
  56.    ENDIF
  57.    IF $FT EQ "2"
  58.       SKIP DIRY
  59.    ENDIF
  60.    IF $FT EQ "3"
  61.       SKIP LISTS
  62.    ENDIF
  63.    LAB FILE  
  64.       IF $FT EQ "1"
  65.          REQUESTFILE >ENV:FILE1 TITLE="SORT FROM"
  66.          CD RAM:
  67.          SORT $FILE1 TEMP_K CASE
  68.          MV_K TEMP_K
  69.          SKIP TEST
  70.       ENDIF
  71.    LAB DIRY
  72.       IF $FT EQ "2"
  73.          REQUESTFILE >ENV:FILE1 TITLE="SORT FROM" DRAWERSONLY
  74.          CD $FILE1
  75.          DIR >RAM:TEMP_K2
  76.          CD RAM:
  77.          SORT TEMP_K2 TEMP_K CASE
  78.          MV_K TEMP_K
  79.          SKIP TEST
  80.       ENDIF
  81.    LAB LISTS
  82.       IF $FT EQ "3"
  83.          REQUESTFILE >ENV:FILE1 TITLE="SORT FROM" DRAWERSONLY
  84.          CD $FILE1
  85.          LIST >RAM:TEMP_K2
  86.          CD RAM:
  87.          SORT TEMP_K2 TEMP_K CASE
  88.          MV_K TEMP_K
  89.          SKIP TEST
  90.       ENDIF
  91.    ENDIF
  92. IF $OPT EQ "6"
  93.    requestchoice >env:FT "SortK" "SELECT TYPE" "FILE" "DIR" "LIST" "ABORT"
  94.    IF $FT EQ "0"
  95.       SKIP TEST
  96.    ENDIF
  97.    IF $FT EQ "1"
  98.       SKIP FILEN
  99.    ENDIF
  100.    IF $FT EQ "2"
  101.       SKIP DIRYN
  102.    ENDIF
  103.    IF $FT EQ "3"
  104.       SKIP LISTSN
  105.    ENDIF
  106.  LAB FILEN
  107.   IF $FT EQ "1"
  108.          REQUESTFILE >ENV:FILE1 TITLE="SORT FROM"
  109.          SORT $FILE1 RAM:TEMP_K NUMERIC
  110.          CD RAM:
  111.          MV_K TEMP_K
  112.          SKIP TEST
  113.       ENDIF
  114.    LAB DIRYN
  115.       IF $FT EQ "2"
  116.          REQUESTFILE >ENV:FILE1 TITLE="SORT FROM" DRAWERSONLY
  117.          CD $FILE1
  118.          DIR >RAM:TEMP_K2
  119.          CD RAM:
  120.          SORT FROM TEMP_K2 TO TEMP_K NUMERIC
  121.          MV_K TEMP_K
  122.          SKIP TEST
  123.       ENDIF
  124.    LAB LISTSN
  125.       IF $FT EQ "3"
  126.          REQUESTFILE >ENV:FILE1 TITLE="SORT FROM" DRAWERSONLY
  127.          CD $FILE1
  128.          LIST >RAM:TEMP_K2
  129.          CD RAM:
  130.          SORT TEMP_K2 TEMP_K NUMERIC
  131.          MV_K TEMP_K
  132.        ENDIF
  133. ENDIF
  134. LAB TEST
  135. SKIP START BACK
  136. LAB DONE
  137. DELETE RAM:TEMP_K#? QUIET
  138.