Unit Rahmen;
INterface
 USES crt;


 Procedure Rahme_ein
    (xAnfang, yAnfang, xEnde, yEnde : Byte );

 Procedure Rahme_doppelt
    (xAnfang, yAnfang, xEnde, yEnde : Byte );

{ Procedure Kasten_senkrecht
    (xAnfang, yAnfang, xEnde, yEnde, Schritt1, Schritt2 : Byte);}

IMPLEMENTATION

   Procedure Rahme_ein
    (xAnfang, yAnfang, xEnde, yEnde : Byte );

   VAR

     x,y : byte;

   BEGIN
     GOTOXY (xAnfang,yAnfang);
     WRITE (#218);
     FOR x:= xAnfang+1 TO xEnde-1 DO
       WRITE (#196);
     WRITE (#191);
     GOTOXY (xAnfang, yEnde);
     WRITE (#192);
     FOR x:= xAnfang+1 TO xEnde-1 DO
       WRITE (#196);
     WRITE (#217);
     FOR y:= yAnfang+1 TO yEnde-1 DO
     Begin
       GOTOXY (xAnfang,y);
       WRITE (#179);
       GOTOXY (xEnde,y);
       WRITE (#179);
     End
   END;         {RAHME_EIN!}

   Procedure Rahme_doppelt
    (xAnfang, yAnfang, xEnde, yEnde : Byte );

   VAR

     x,y : byte;

   BEGIN
     GOTOXY (xAnfang,yAnfang);
     WRITE (#201);
     FOR x:= xAnfang+1 TO xEnde-1 DO
       WRITE (#205);
     WRITE (#187);
     GOTOXY (xAnfang, yEnde);
     WRITE (#200);
     FOR x:= xAnfang+1 TO xEnde-1 DO
       WRITE (#205);
     WRITE (#188);
     FOR y:= yAnfang+1 TO yEnde-1 DO
     Begin
       GOTOXY (xAnfang,y);
       WRITE (#186);
       GOTOXY (xEnde,y);
       WRITE (#186);
     End
   END;         {RAHME_DOPPPELT!}
{   Procedure Kasten_senkrecht
    (xAnfang, yAnfang, xEnde, yEnde, Schritt1, Schritt2 : Byte );

   VAR

     x,y : byte;

   BEGIN
     GOTOXY (xAnfang,yAnfang);
     WRITE (#201);
     FOR x:= xAnfang+1 TO xEnde-1 DO
       WRITE (#205);
     WRITE (#187);
     GOTOXY (xAnfang, yEnde);
     WRITE (#200);
     FOR x:= xAnfang+1 TO xEnde-1 DO
       WRITE (#205);
     WRITE (#188);
     FOR y:= yAnfang+1 TO yEnde-1 DO
     Begin
       GOTOXY (xAnfang,y);
       WRITE (#186);
       GOTOXY (xEnde,y);
       WRITE (#186);
     End
    while  < 80 do
    begin
      inc();
      gotoxy(xAnfang + schritt1,yAnfang);
      write (#209);

   END;   }      {KASTEN_SENKRECHT!}

END.            {Unit RAHMEN}

{Dies ist der Bau einer TPU. Um sie abzusichern, gehe zu "Compile" und dr�cke
 "D" f�r Destination Disk. Dann nochmal ins Compile Men� und "Make".}