{OVERLAY-DEMO
 written by Frank Riemenschneider
            Postfach 730309
            3000 Hannover 71}


{Das Programm f�llt per Zufallsgenerator ein Record
 des Typs Adresse mit ASCII-Zeichen und l�dt dann
 ein Programm "Test1" nach, welches auf diesen
 Record zugreifen wird, ohne ihn vorher initialisiert
 zu haben.}


uses dos,portovr;

type adresse = record
      vorname: string[10];
      nachname: string[10];
      strasse : string[10];
      plz : word;
      ort : string[10];
      telefon : longint;
end;
const
    zahl : byte = 10;
    meldung = 'Overlay-Fehler ! Bitte Taste dr�cken.';

var i,j : word;
    data : array[1..10] of adresse;
    f : boolean;
begin
    Randomize;
    for i:= 1 to zahl do begin
      data[i].vorname := '';
      data[i].nachname := '';
      data[i].ort := '';
      data[i].strasse := '';
      for j:= 1 to zahl do begin
        data[i].vorname := data[i].vorname + chr(65+random(26));
        data[i].nachname := data[i].nachname + chr(65+random(26));
        data[i].ort := data[i].ort + chr(65+random(26));
        data[i].strasse := data[i].strasse + chr(65+random(26));
      end;
      data[i].telefon := Round(1000*Random(4));
      data[i].plz := Round(1000*Random(4));
    end;
    for i:= 1 to zahl do begin
      writeln(data[i].vorname,' ',data[i].nachname);
      writeln(data[i].plz,' ',data[i].ort);
      writeln(data[i].strasse,' Telefon : ',data[i].telefon);
      writeln;
    end;
    f := speichern(i,f,sizeof(f),'a:\test1','c:\data');
    if NOT f then begin
      writeln(meldung);
      readln;
      halt;
    end;
end.