     E X T R A C T - E X T E N S I O N   V 1 . 0
     -------------------------------------------------------------------------- 
     Entpacken verschiedener Bildformate   -------  (C)'92 by Gnter Feldmann
     -------------------------------------------------------------------------- 
     Diese Extension ist eine Zusammenfgung der GEM-IMG-Extension V2.0 und
     der DEGAS-Extension V1.0
     Sollten Sie diese Extensions besitzen, lschen Sie diese und passen Sie
     evt.schon vorhandene Dateien mit diesen Befehlen an, da sich die Token fr
     die DEGAS-Extension gendert haben !

     1. Entpacken und Packen im IMG-Format
     ------------------------------------- 
     IMG EXTRACT quelladr,zieladr,breite,hhe

     Dieser Befehl entpackt ein an die quelladr geladenes IMG-Bild an die
     zieladr. breite und hhe geben die gewnschte Bildgre in Pixel an.
     Wollen Sie das gesamte Bild entpacken, geben Sie quelladr=Ladeadr und
     die zieladr an, sowie die gesamte breite und hhe des IMG-Bildes. Die
     Ausmae erfahren Sie aus dem IMG-Header : breite im 7.Wort und hhe im
     8.Wort des Headers.
     Sie knnen Bilder mit bis zu 4 Bitplanes entpacken !


     x=IMG COMPRESS (quelladr,ausschnittbreite,bildbreite,bildhhe,img-endadr)

     Diese Funktion packt ein an der quelladr beginnendes Bild in das IMG-Format
     beginned mit der endadr der Zielbank. ausschnittbreite ist eine Angabe in 
     Pixel, die bestimmt, wie breit der zu packende Ausschnitt sein soll.
     bildbreite und bildhhe sind Angaben zum zu packenden Vollbild.

     z.B.:     x=IMG COMPRESS(START(10),640,640,400,START(11)+LENGHT(11))
               (packen eines Monochrome-Screens)
               x=IMG COMPRESS(START(10)+180,320,200,START(11)+LENGTH(11))
               (packen eines Monochrom-Screens; Ausschnitt 160,2 to 480,202)
               x=IMG COMPRESS(START(10),320,320,200,START(11)+LENGTH(11))
               (packen eines LOW-RESOLUTION-Bildes)
               u.s.w.

     x gibt als Ergebnis die Startadresse des IMG-Bildes zurck oder -1 wenn
     ein Fehler auftrat.
     Speichern Sie das Beispiel : BSAVE "NAME.IMG",x to START(11)+LENGTH(11)



     2. Entpacken eines DEGAS(-ELITE)-Bildes im PC?-Format
     ----------------------------------------------------- 

     ELITE EXTRACT quelladr,zieladr

     Dieser Befehl entpackt ein an quelladr geladenes gepacktes DEGAS-Bild
     zur zieladr und stellt auch die Farbpalette entsprechend ein.