init dgs; 
window (0.0, 0.0, 13.5, 7.1); (*viewport (0.0,0.0,13.5,7.1); *) 
scale (1.0,1.0,0.0,0.0);
(*clear pixels;*)
 
karteikasten (1.0, 3.5, "Kartei A", "Wegner", "Herbert"); 
karteikasten (5.0, 0.5, "Kartei B", "Regmann", "Karin"); 
   
LET myname = "abb.1-1";
save pixels (myname + ".p"); 
FILE VAR f := sequential file (modify, myname + ".p"); 
to line (f, 1); insert record (f); 
write record (f, "#linefeed (0.8)#"); 
insert record (f); write record (f, myname); 
to eof (f); insert record (f); write record (f, myname); 
to line (f, 1);
(* 
pause (10000);
*)
PROC karteikasten (REAL CONST x, y, TEXT CONST name, t name, t vorname) : 
 
  move (x - 0.1, y); 
  draw (x + 3.6, y); 
  draw (x + 3.6, y + 1.0); 
  draw (x - 0.1, y + 1.0); 
  draw (x - 0.1, y); 
 
  move (x + 0.1, y + 1.1); 
  draw (x + 0.5, y + 1.5); 
  move (x + 0.1, y + 1.1); 
  draw (x + 3.6, y + 1.1);
  move (x - 0.1, y + 1.0); 
  draw (x + 0.5, y + 1.6); 
 
  move (x + 3.6, y); 
  draw (x + 5.2, y + 1.6); 
  draw (x + 5.2, y + 2.6); 
  draw (x + 3.6, y + 1.0); 
    move (x + 3.6, y + 1.1); draw (x + 5.0, y + 2.5); 
    move (x + 5.2, y + 2.6); draw (x + 5.0, y + 2.6); 
 
  move (x + 0.5, y + 1.1); 
  draw (x + 0.5, y + 2.5); 
  draw (x + 4.0, y + 2.5); 
  draw (x + 4.0, y + 1.5); 
  move (x + 0.5, y + 2.5); 
  draw (x + 1.5, y + 3.5); 
  draw (x + 5.0, y + 3.5); 
  draw (x + 5.0, y + 2.5); 
  move (x + 5.0, y + 3.5); 
  draw (x + 4.0, y + 2.5); 
  REAL VAR x off := 0.1; 
  WHILE x off < 1.0 REP 
    move (x + 0.5 + xoff, y + 2.5 + x off); 
    draw (x + 4.0 + xoff, y + 2.5 + xoff); 
    draw (x + 4.0 + xoff, y + 1.5 + xoff); 
    x off INCR 0.1 
  END REP; 
  font size (0.5); 
  font expansion (1.5); 
  move (x + 0.5, y + 0.2); draw (name); 
  font size (0.25);
  move (x + 0.7, y + 2.10); draw ("Name"); 
  move (x + 0.7, y + 1.65); draw ("Vorname"); 
  move (x + 0.7, y + 1.20); draw ("Strasse");
  move (x + 2.1, y + 2.10); draw (": " + t name); 
  move (x + 2.1, y + 1.65); draw (": " + t vorname); 
  move (x + 2.1, y + 1.20); draw (":");
 
END PROC karteikasten;