MODULE Test;   
 
 (* Test-Programm f�r GemImage-Moduln 
    Mit einer File-Select-Box kann ein 32KByte-Bild ausgew„hlt werden,
    das dann mit <BitImageSpeichern> als IMG-Bild gespeichert wird.
  
    (c) by JauTeam 1991
  *)
               
 FROM MOSGlobals IMPORT FileStr;     
 FROM Files      IMPORT File, Open, Access, Close;
 FROM Binary     IMPORT ReadLargeBlock;
 FROM Terminal   IMPORT WritePg;
 FROM XBIOS      IMPORT ScreenPhysicalBase;
 FROM GemImage   IMPORT BitImageSpeichern, SmallHeader;
 FROM JauGem     IMPORT GemInit, GemExit;
 FROM FileNames  IMPORT PathConc;
 FROM SYSTEM     IMPORT ADDRESS;
 FROM Strings    IMPORT Assign, Append;
 FROM Directory  IMPORT DefaultPath;
 FROM AESMisc    IMPORT SelectFile;
 
 VAR header           : SmallHeader;
     datei            : File;
     screen           : POINTER TO ARRAY [0..31999] OF SET OF [0..7];
     name,pfad,datname: FileStr;
     ok               : BOOLEAN;
     
 BEGIN
  GemInit; 
  name:='';
  Assign(DefaultPath(),pfad,ok);              
  Append('*.*',pfad,ok);
  SelectFile(pfad,name,ok);
  IF ok THEN
   screen:=ScreenPhysicalBase();
   datname:=PathConc(pfad,name);
   Open(datei,datname,readOnly);
   ReadLargeBlock(datei,screen^);
   Close(datei);
   WITH header DO
    version:=1;
    pixelbreite:=372;
    pixelhoehe:=372;
    bildbreite:=640;
    bildhoehe:=400;
   END(*WITH*);
  ok:= BitImageSpeichern(screen,header,'DEMO.IMG'); 
  END(*IF*);
  GemExit;  
 END Test.
