<sr>CED i PowerPacker

<a>Szymon Liszewski

<txt>Jednâ z najpowaûniejszych wad CED-a jest to, ûe nie
potrafi on rozpakowywaê i pakowaê tekstów. Odczytywanie
spakowanych PowerPackerem tekstów moûna wprawdzie zaîatwiê
przez uûycie programu PPPatcher, ale nie kaûdy go ma (ja nie
mam). A co z zapisem spakowanych plików? Problem zaîatwiajâ
dwa krótkie skrypty w ARexxie. Niestety, jest to sposób
tylko dla "zasobnopamiëciowych", aby skrypty mogîy
zadziaîaê, w pamiëci MUSI sië znaleúê takûe PowerPacker (aby
zaoszczëdziê na pamiëci PP, moûna zikonifikowaê). Skrypty
najlepiej podpiâê pod klawisze funkcyjne. Oba skrypty
wymagajâ komendy Delete, która powinna byê rezydentna.

<txt>Listing 1:

<l>
/*  LoadPowerPacked.ced       */

/* (c) 1995 by Szymon Liszewski */


Options Results

Address "rexx_ced"


GetFilename

Name=Result


Address "POWERPACKER"


Overwrite On

DecrunchOnly ''name

Save 'T:Temp'


Address "rexx_ced"


Clear

Open 'T:Temp'


Address Command "Delete >NIL: T:Temp T:Temp.info"


Exit 0

<txt>Listing 2:

<l>/*  SavePowerPacked.ced       */

/* (c) 1995 by Szymon Liszewski */


Options Results

Address "rexx_ced"


GetFilename

Name=Result".pp"


Save As 'T:Temp'


Address "POWERPACKER"


Iconify

DataFile

EffBest

SpeedupLarge

Overwrite On


Load 'T:Temp'

Save ''Name


Address Command "Delete >NIL: T:Temp T:Temp.info"

Exit 0