home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 9 / FreshFishVol9-CD2.bin / bbs / util / dosk-1.0.lha / DosK / Commands / JoinK < prev    next >
Text File  |  1995-01-04  |  483b  |  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.