home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 10 / Fresh_Fish_10_2352.bin / new / util / misc / where_k / commands / unarck < prev    next >
Text File  |  1995-02-25  |  471b  |  23 lines
  1.  
  2. FAILAT 21
  3. LAB START
  4. UNSETENV FILES
  5. UNSETENV FILED
  6. UNSETENV CHO
  7. REQUESTCHOICE >ENV:CHO "UnarcK ©January 1995 By Kenneth J. McCormick. All Rights Reserved." "DECOMPRESS AN LHA FILE" "DECOMPRESS" "BYE"
  8. IF $CHO EQ "0"
  9.    SKIP FIN
  10. ENDIF
  11. IF $CHO EQ "1"
  12. REQUESTFILE >ENV:FILES TITLE="SELECT FILE TO UNarc"
  13. REQUESTFILE >ENV:FILED TITLE="SELECT DESTINATION" DRAWERSONLY
  14. LHA -X0 E $FILES $FILED
  15. ENDIF
  16. Wait 1 sec
  17. SKIP BACK START
  18. LAB FIN
  19. UNSETENV FILES
  20. UNSETENV FILED
  21. UNSETENV CHO
  22.  
  23.