home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / util / misc / where_k / commands / unarck < prev    next >
Encoding:
Text File  |  1995-02-25  |  471 b   |  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.