Program BorderDemo;
{$path "pascal:include/"; incl"intuition.lib" }
Var Win: ^Window;
    i: integer;

Procedure Recht(Rast:p_RastPort; X,Y,B,H: integer);
  Var Feld: Array[0..9] of integer;
      Bor: Border;
  Begin
    { Koordinaten initialisieren: }
    Feld[0]:=0;     Feld[1]:=0;   { Punkt links oben   }
    Feld[2]:=B;     Feld[3]:=0;         { rechts oben  }
    Feld[4]:=B;     Feld[5]:=H;         { rechts unten }
    Feld[6]:=0;     Feld[7]:=H;         { links unten  }
    Feld[8]:=0;     Feld[9]:=0;   { nochmal links oben }
    { Boderstruktur initialisieren: }
    Bor:=Border(0,0,   { keine Verschiebung }
                3,0,   { Farbe: rot }
                0,     { Modus: normal }
                5,     { fünf Paare für vier Linien }
                ^Feld, { Zeiger auf Koordinaten }
                Nil);  { kein weiteres Border }
    DrawBorder(Rast, ^Bor, X, Y)
  End;

Begin
 OpenLib(IntBase,'intuition.library',0);  { nie vergessen! }
 Win:=Open_Window(0,0,640,200,1,0,$1007,'Rahmem',Nil,100,100,640,200);
 For i:=1 to 10 Do   { zehn Rechtecke }
   Recht(Win^.RPort, 25+12*i, 15+5*i, 50+30*i, 15+10*i);
 Delay(8*50);     { acht Sekunden zum Bewundern }
 Close_Window(Win)
End.