/* $VER: LhaView.rush V 1.0 (21.6.94)
             Written by LSI/AG!
*/

if( address() == "REXX" ) then address "RUSH.1"

options results

'getdirectory'
dir = result
if( right(dir, 1) ~= ":" ) then udir = dir || "/"
else udir = dir
'getdirectory other'
des = result
'getselected'
filename = result
address command 'lha v "'udir || filename'" >ram:t/temp.txt'
address command 'ppmore ram:t/temp.txt PS=RUSH.1'
address command 'delete ram:t/temp.txt'
if upper(des) = "RAM:T" then ende2()
ende:
exit
ende2:
'setactiveside OTHER'
setdirectory '"'des'"'
'setactiveside OTHER'
exit