home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 9 / FreshFishVol9-CD2.bin / bbs / util / dosk-1.0.lha / DosK / Commands / RenameK < prev    next >
Text File  |  1995-01-04  |  550b  |  22 lines
  1. FAILAT 21
  2. LAB START
  3. requestchoice >env:cho "RenameK ©December 1994 By Kenneth J. McCormick. All Rights Reserved." "Select Options" "RENAME" "BYE"
  4.    IF $CHO EQ "0"
  5.       SKIP DONE
  6.    ENDIF
  7.    IF $CHO EQ "1"
  8.       REQUESTFILE >ENV:DEV1 TITLE="SELECT DIRECTORY OR FILE"
  9.       REQUESTFILE >ENV:DEV2 TITLE="ENTER NEW NAME" savemode
  10.       REQUESTCHOICE >ENV:CHO2 "RenameK" "DECISION TIME" "DOIT" "ABORT"
  11.       IF $CHO2 EQ "0"
  12.          SKIP START BACK
  13.       ENDIF
  14.       RENAME $DEV1 $DEV2
  15.    ENDIF
  16. SKIP START BACK
  17. LAB DONE
  18. UNSET CHO
  19. UNSET DEV1
  20. UNSET DEV2
  21.  
  22.