home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
AmigActive 19
/
AACD19.BIN
/
CDTools
/
S
/
UnLhA.awebrx
< prev
next >
Wrap
Text File
|
1999-12-15
|
360b
|
15 lines
/*
$VER: UnLhA.awebrx 1.0 (31.8.99) (c) Neil Bothwick, Wirenet
*/
address command
options results
ExtractPath = 'RAM:'
ExtractPath = AddPart(ExtractPath,'')
parse arg Archive
'LhA x "'Archive'" "'ExtractPath'"'
if RC > 0 then 'RequestChoice >NIL: "AmigActive CD" "An error occured while*Nextracting this archive" "OK"'
else 'rx REXX:AAShowDir' ExtractPath