home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / util / cli / dosk / commands / joink < prev    next >
Encoding:
Text File  |  1995-01-04  |  483 b   |  19 lines
  1. FAILAT 21
  2. LAB START
  3. requestchoice >env:ans "JoinK ©November 1994 By Kenneth J. McCormick. All Rights Reserved." "PICK FILES TO JOIN" "FILE1" "FILE2" "TO" "BYE"
  4. IF $ANS EQ="0"
  5. SKIP DONE
  6. ENDIF
  7. IF $ANS EQ="1"
  8. REQUESTFILE >ENV:FILE title="PICK FILE(S)" MULTISELECT
  9. ENDIF
  10. IF $ANS EQ="2"
  11. REQUESTFILE >ENV:FILE2 title="PICK FILE(S)" MULTISELECT
  12. ENDIF
  13. IF $ANS EQ="3"
  14. REQUESTFILE >ENV:FNAME title="ENTER NAMEON BOTTOM LINE" SAVEMODE
  15. JOIN $FILE $FILE2 AS $FNAME
  16. ENDIF
  17. SKIP START BACK
  18. LAB DONE
  19.