Set Lock$Dir <Obey$Dir>
Run <Obey$Dir>.^.^.!Run
|zip only works from current dir, so change dir:
Dir <QL$Dir>.Data
Run <Qlock$Dir>.SelectDir1
Back
|Disable <Esc> to avoid risk of remnant zip file:
FX200,1
Run <Lock$Dir>.!RunImage
Run <Lock$Dir>.!Run2
Echo
Echo Original copy destroyed!
