home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 9 / FreshFishVol9-CD2.bin / bbs / util / dosk-1.0.lha / DosK / Commands / DirK < prev    next >
Text File  |  1995-01-04  |  2KB  |  100 lines
  1. UNSET FILENAME
  2. UNSETENV FILENAME
  3. prompt #S >env:PMT
  4. alias LB_K LIST NOHEAD BLOCK NODATES
  5. alias LND_K LIST NOHEAD DATES
  6. ALIAS MV_K SYS:UTILITIES/MULTIVIEW
  7. ALIAS DD_K DIR DIRS
  8. ALIAS DF_K DIR
  9. lab more
  10. requestfile >env:filename title="Select Vol or Directory" drawersonly
  11. cd $filename
  12. requestchoice >env:answer "DirK ©November 1994 By Kenneth J. McCormick. All Rights Reserved." "SELECT DESIRED ACTION BY CLICKING BUTTON" "DIR" "DIRS" "ALL" "INT" "LIST" "BLK" "DATE" "CPY" "DEL" "MV" "BYE"
  13. IF $ANSWER EQ "3"
  14. $PMT >RAM:FNAME
  15. DIR OPT A >RAM:OPTION
  16. JOIN RAM:FNAME RAM:OPTION AS RAM:DIRECTORY_INFO
  17. MV_K RAM:DIRECTORY_INFO
  18. ENDIF
  19. IF $ANSWER EQ "2"
  20. $PMT >RAM:FNAME
  21. DD_K >RAM:OPTION
  22. JOIN RAM:FNAME RAM:OPTION AS RAM:DIRECTORY_INFO
  23. MV_K RAM:DIRECTORY_INFO
  24. ENDIF
  25. IF $ANSWER EQ "1"
  26. $PMT >RAM:FNAME
  27. DF_K >RAM:OPTION
  28. JOIN RAM:FNAME RAM:OPTION AS RAM:DIRECTORY_INFO
  29. MV_K RAM:DIRECTORY_INFO
  30. ENDIF
  31. IF $ANSWER EQ "4"
  32. $PMT
  33. DIR INTER
  34. ENDIF
  35. IF $ANSWER EQ "5"
  36. $PMT >RAM:FNAME
  37. LIST >RAM:OPTION
  38. JOIN RAM:FNAME RAM:OPTION AS RAM:DIRECTORY_INFO
  39. MV_K RAM:DIRECTORY_INFO
  40. ENDIF
  41. IF $ANSWER EQ "6"
  42. $PMT >RAM:FNAME
  43. LB_K >RAM:OPTION
  44. JOIN RAM:FNAME RAM:OPTION AS RAM:DIRECTORY_INFO
  45. MV_K RAM:DIRECTORY_INFO
  46. ENDIF
  47. IF $ANSWER EQ "7"
  48. $PMT >RAM:FNAME
  49. LND_K >RAM:OPTION
  50. JOIN RAM:FNAME RAM:OPTION AS RAM:DIRECTORY_INFO
  51. MV_K RAM:DIRECTORY_INFO
  52. ENDIF
  53. IF $ANSWER EQ "8"
  54. requestfile >env:filename1 title="COPY FROM" POSITIVE="COPY" NEGATIVE="FORGET IT!!" MULTISELECT
  55. ECHO $FILENAME1
  56. requestfile >env:filename2 title="COPY TO" NEGATIVE="FORGET IT!!" drawersonly
  57. COPY $filename1 to $filename2
  58. lab reject
  59. skip back more
  60. ENDIF
  61. IF $ANSWER EQ "9"
  62. requestfile >env:filename title="DELETE File" POSITIVE="DELETE" NEGATIVE="OH GOD NO" MULTISELECT
  63. DELETE $filename
  64. ECHO $FILENAME
  65. skip back more
  66. ENDIF
  67. IF $ANSWER EQ "10"
  68.    IF EXISTS SYS:UTILITIES/MULTIVIEW
  69.      MV_K
  70.    ELSE
  71.      ECHO "MULTIVIEW NOT IN SYS:UTILITIES"
  72.    ENDIF
  73. ENDIF
  74. IF $ANSWER EQ "0"
  75. SKIP FIN
  76. ENDIF
  77. if exists ram:directory
  78. DELETE RAM:DIRECTORY_INFO QUIET
  79. endif
  80. if exists ram:option
  81. DELETE RAM:OPTION QUIET
  82. endif
  83. SKIP BACK MORE
  84. LAB FIN
  85. UNALIAS LB_K
  86. UNALIAS LND_K
  87. UNALIAS MV_K
  88. UNALIAS DD_K
  89. UNALIAS DF_K
  90. IF EXISTS RAM:FNAME
  91. DELETE RAM:FNAME QUIET
  92. ENDIF
  93. IF EXISTS RAM:OPTION
  94. DELETE RAM:OPTION QUIET
  95. ENDIF
  96. IF EXISTS RAM:DIRECTORY_INFO
  97. DELETE RAM:DIRECTORY_INFO QUIET
  98. ENDIF
  99. PROMPT "%N.%S>"
  100.