home *** CD-ROM | disk | FTP | other *** search
- .key options,archive,file,VERBOSE/S
- .bra {
- .ket }
- List >ENV:SIZ "{file}" lformat="%7l"
- Echo "$SIZ -> Evaluating -lh0- {file}"
- If "{VERBOSE}" EQ ""
- LZ -N -z a T:LH0.LZH "{file}"
- Else
- LZ >"CON:0/0/640/100/Evaluating -lh0-" -z a T:LH0.LZH "{file}"
- EndIf
- List >ENV:LH0 T:LH0.LZH lformat="%7l"
- Delete >NIL: T:LH0.LZH
- Echo "*E[A$SIZ -> Evaluating -lh1- {file}"
- If "{VERBOSE}" EQ ""
- LZ -N -Z a T:LH1.LZH "{file}"
- Else
- LZ >"CON:0/0/640/100/Evaluating -lh1-" -Z a T:LH1.LZH "{file}"
- EndIf
- List >ENV:LH1 T:LH1.LZH lformat="%7l"
- Delete >NIL: T:LH1.LZH
- Echo "*E[A$SIZ -> Evaluating -lh5- {file}"
- If "{VERBOSE}" EQ ""
- LZ -N -Z -2 a T:LH5.LZH "{file}"
- Else
- LZ >"CON:0/0/640/100/Evaluating -lh5-" -Z -2 a T:LH5.LZH "{file}"
- EndIf
- List >ENV:LH5 T:LH5.LZH lformat="%7l"
- Delete >NIL: T:LH5.LZH
- Eval >ENV:DIF $LH0 - $SIZ
- If "$LH5" GE "$LH0"
- If "$LH1" GE "$LH0"
- Eval >ENV:NEW $LH0 - $DIF
- Echo "*E[A$SIZ -> Storing -lh0-"
- If "{VERBOSE}" EQ ""
- LZ -N -wRAM: {options} -z a "{archive}.lzh" "{file}"
- Else
- LZ >"CON:0/0/640/100/Storing -lh0-" -wRAM: {options} -z a "{archive}.lzh" "{file}"
- EndIf
- Skip done
- EndIf
- EndIf
- If "$LH1" GT "$LH5"
- Eval >ENV:NEW $LH5 - $DIF
- Echo "*E[A$SIZ -> Freezing -lh5-"
- If "{VERBOSE}" EQ ""
- LZ -N -wRAM: {options} -Z -2 a "{archive}.lzh" "{file}"
- Else
- LZ >"CON:0/0/640/100/Freezing -lh5-" -wRAM: {options} -Z -2 a "{archive}.lzh" "{file}"
- EndIf
- Else
- Eval >ENV:NEW $LH1 - $DIF
- Echo "*E[A$SIZ -> Freezing -lh1-"
- If "{VERBOSE}" EQ ""
- LZ -N -wRAM: {options} -Z a "{archive}.lzh" "{file}"
- Else
- LZ >"CON:0/0/640/100/Freezing -lh1-" -wRAM: {options} -Z a "{archive}.lzh" "{file}"
- EndIf
- EndIf
- Lab done
- Echo "*E[A$SIZ -> $NEW "
- Unsetenv DIF
- Unsetenv SIZ
- Unsetenv NEW
- Unsetenv LH0
- Unsetenv LH1
- Unsetenv LH5
-