home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / util / cli / dosk / commands / cdk < prev    next >
Encoding:
Text File  |  1995-01-04  |  1.3 KB  |  67 lines
  1. failat 21
  2. prompt %S >env:PMT
  3. alias rq requestfile
  4. alias rc requestchoice
  5. alias MV_K Sys:Utilities/Multiview
  6. LAB MORE
  7. rc >env:ans "CdK ©November 1994 By Kenneth J. McCormick. All Rights Reserved" "SELECT A DIRECTORY BUTTON" "DIR UP" "ROOT" "SELECT" "SEE DIR" "DEFAULT" "BYE"
  8. IF $ANS EQ "1"
  9. CD /
  10. DIR >RAM:Cr2_K
  11. $pmt >ram:Cr1_K
  12. join ram:Cr1_K Ram:Cr2_K as ram:DIRECTORY
  13. MV_K RAM:DIRECTORY
  14. ENDIF
  15. IF $ANS EQ "2"
  16. CD :
  17. DIR >RAM:Cr2_K
  18. $pmt >ram:Cr1_K
  19. join ram:Cr1_K Ram:Cr2_K as ram:DIRECTORY
  20. MV_K Ram:DIRECTORY
  21. ENDIF
  22. IF $ANS EQ "3"
  23. RQ >ENV:PICK TITLE="SELECT DIRECTORY OR VOLUME" NEGATIVE="FORGET IT!!" DRAWERSONLY
  24.     IF $PICK EQ "0"
  25.        SKIP REDO
  26.      ELSE
  27.        CD $PICK
  28.         DIR >RAM:Cr2_K
  29.         $pmt >ram:Cr1_K
  30.         join ram:Cr1_K Ram:Cr2_K as ram:DIRECTORY
  31.         MV_K RAM:DIRECTORY
  32.      ENDIF
  33. ENDIF
  34. IF $ANS EQ "4"
  35. DIR >RAM:Cr2_K
  36. $pmt >ram:Cr1_K
  37. join ram:Cr1_K Ram:Cr2_K as ram:DIRECTORY
  38. MV_K RAM:DIRECTORY
  39. ENDIF
  40. IF $ANS EQ "5"
  41. CD SYS:
  42. DIR >RAM:Cr2_K
  43. $pmt >ram:Cr1_K
  44. join ram:Cr1_K Ram:Cr2_K as ram:DIRECTORY
  45. MV_K RAM:DIRECTORY
  46. ENDIF
  47. IF $ANS EQ "0"
  48. SKIP FIN
  49. ENDIF
  50. LAB REDO
  51. SKIP MORE BACK
  52. LAB FIN
  53. UNALIAS MV_K
  54. UNALIAS RC
  55. UNALIAS RQ
  56. IF EXISTS RAM:CR1_K
  57.    DELETE RAM:CR1_K QUIET
  58. ENDIF
  59. IF EXISTS RAM:CR2_K
  60.    DELETE RAM:CR2_K QUIET
  61. ENDIF
  62. IF EXISTS RAM:DIRECTORY
  63.    DELETE RAM:DIRECTORY QUIET
  64. ENDIF
  65. prompt "%N.%S>"
  66.  
  67.