004 
            30.01.2011, 12:48 Uhr 
            runni 
            
 
 
  | 
          ups, vertauscht, leider schreibt der Hersteller nur das 704x288 einem  mögliche Auflösung ist bis max. 1024x1024..
 
 
 | Quellcode: |  {$I glib.lib} {$I dma.lib} {$I line.lib} type str=string[8];
  var    i:integer;
  procedure ScRead(name:str); type linep=array[1..40] of integer; var bildf:file of linep;     bild:linep; begin      Assign(bildf,name+'.scr');      rewrite(bildf);      for i:=0 to 287 do          begin               DmaRead(bild,i,1);               write(bildf,bild);          end;      close(bildf); end;
  begin      OpenGlib;      DeviceOn;      AbsolutOn;      WritingMode(3);      for i:=0 to 640 do                Line(0,0,i,576);      for i:=640 downto 0 do               Line(640,0,i,576);      ScRead('bild');      CloseGlib;
  end.
 
  |  
    |