home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 9 / FreshFishVol9-CD2.bin / bbs / util / dosk-1.0.lha / DosK / Commands / CopyK < prev    next >
Text File  |  1995-01-04  |  894b  |  37 lines
  1. FAILAT 21
  2. alias rq requestfile
  3. alias rq2 requestfile
  4. alias rc requestchoice
  5. LAB MORE
  6. RC >ENV:ANS "CopyK ©November 1994 By Kenneth J. McCormick. All Rights Reserved" "SELECT BUTTON FOR COPY OPTION" "FROM" "TO" "ALL" "PRT" "SCREEN" "BYE"
  7. IF $ANS EQ "1"
  8. RQ >ENV:PICK TITLE="COPY FROM FILE(S),DIR,DEV" NEGATIVE="FORGET IT!!" MULTISELECT
  9. ENDIF
  10. IF $ANS EQ "2"
  11. RQ2 >ENV:PICK2 TITLE="COPY TO" NEGATIVE="FORGET IT!!"
  12. echo "COPY from" $pick "to" $pick2
  13. COPY FROM $PICK TO $PICK2 CLONE QUIET NOREQ
  14. ENDIF
  15. If $ANS EQ "3"
  16. RQ >ENV:DV1 TITLE="COPY FROM DEVICE" NEGATIVE="FORGET IT!!"
  17. RQ2 >ENV:DV2 TITLE="COPY TO DEVICE" NEGATIVE="FORGET IT!!" DRAWERSONLY
  18. COPY FROM $DV1 TO $DV2 ALL CLONE
  19. ENDIF
  20. if $ANS EQ "4"
  21. COPY FROM $PICK TO PRT:
  22. ENDIF
  23. IF $ANS EQ "5"
  24. SYS:UTILITIES/MULTIVIEW $PICK
  25. ENDIF
  26. if $ANS eq "0"
  27.   skip finish
  28. endif
  29. SKIP MORE BACK
  30. lab finish
  31. UNALIAS RQ
  32. UNALIAS RQ2
  33. UNALIAS RC
  34. UNALIAS DV1
  35. UNALIAS DV2
  36.  
  37.