home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / util / cli / dosk / commands / renamek < prev    next >
Encoding:
Text File  |  1995-01-04  |  550 b   |  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.