Comment
===================================================

DM3 Menu Overlay * CopyRight 1989-90 By Marc Perkel

This is a File Compression Overlay fo DM3. This allows
you to compress marked files.

===================================================
EndComment

Var %CompressName %FullCompressName %EchoSt

if DosVersionString >= '3.30'
   %EchoSt = '@Echo Off'
else
   %EchoSt = 'Echo Off'
endif

if ColorScreen
   BoxHeaderColor Yellow Mag
   InverseColor Yellow Mag
   BoxBorderColor LGreen Brown
   BoxInsideColor Grey Brown
else
   BoxHeaderColor Black Grey
   InverseColor Black Grey
   BoxBorderColor White Black
   BoxInsideColor Grey Black
endif

ClearScreenOnExit Off
BlankTime = 10
BlankMessage = 'Executing DM3'

BoxHeader = ' Compress File Menu '
DrawBox 28 7 26 7
TextColor Yellow Brown
ClearLine 205
TextColor Grey Brown
UseArrows
CapsColor Yellow Brown

Writeln
Writeln '   ZIP Marked Files'
Writeln '   PKARC Marked Files'
Writeln '   ICE Marked Files'
Write   '   Self Extract ICE'

OnKey 'E'
  ME %MenuFileName

OnKey 'Z'
  |FileNameBox
  %EchoSt
  PKZIP -EX %CompressName @%1
  PKZIP -V %CompressName |MORE

OnKey 'P'
  |FileNameBox
  %EchoSt
  PKARC A %CompressName @%1
  PKARC V %CompressName |MORE

OnKey 'I'
  |FileNameBox
  %EchoSt
  TYPE %1|DOLIST ICE A %CompressName @L
  ICE V %CompressName |MORE

OnKey 'S'
  |FileNameBox
  |%FullCompressName = Left(%CompressName,pred(length(%CompressName))) + '.ICE'
  %EchoSt
  TYPE %1|SORT|DOLIST ICE A %CompressName @L
  ICE S %CompressName
  DEL %FullCompressName

Procedure FileNameBox
  BoxBorderColor LCyan Blue
  BoxInsideColor White Blue
  DrawBox 36 12 35 3
  TextColor White Blue
  Write ' File: '
  %CompressName = Readln + ' '
EndProc