MAG Disk (Apr 1990) : ThingsToRead / Convert

.k dev
.def dev "df1:"
.bra {
.ket }
assign here: ""
makedir ram:temp
cd ram:temp
list >ram:x1 {dev}#?.arc nohead quick lformat "execute ram:x2 %s %s"
echo >ram:x2 ".k path,name*npkax <path><name>*nlharc a <name>.lzh #?*nfailat 5*nrename #?.arc.lzh #?.lzh*ndelete <path><name>*ncopy #?.lzh <path>*ndelete #?"
execute ram:x1
list >ram:x1 {dev}#?.zoo nohead quick lformat "execute ram:x2 %s %s"
echo >ram:x2 ".k path,name*nzoo x// <path><name>*nlharc -r a <name>.lzh #?*nfailat 5*nrename #?.zoo.lzh #?.lzh*ndelete <path><name>*ncopy #?.lzh <path>*ndelete #? all"
execute ram:x1
list >ram:x1 {dev}#?.pak nohead quick lformat "execute ram:x2 %s %s"
echo >ram:x2 ".k path,name*n<path><name>*nlharc a <name>.lzh #?*nfailat 5*nrename #?.pak.lzh #?.lzh*ndelete <path><name>*ncopy #?.lzh <path>*ndelete #?"
execute ram:x1
cd here:
assign here:
delete ram:(x1|x2|temp) all