home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 15 / CDACTUAL15.iso / cdactual / program / pascal / JMICK11.ZIP / WRITBOX.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-11-22  |  807 b   |  43 lines
  1. Unit WritBox;
  2.  
  3.  
  4. INTERFACE
  5.  
  6. Procedure WriteBox(VAR Boxx; NumberOfElements : Integer;
  7.                    StartRow, StartCol : Byte);
  8.  
  9.  
  10.  
  11. IMPLEMENTATION
  12. Uses Crt;
  13.  
  14. {$I MICKEY11.INC}
  15.  
  16.  
  17. Procedure WriteBox(VAR Boxx; NumberOfElements : Integer;
  18.                    StartRow, StartCol : Byte);
  19.   type
  20.      StrArray = array [1..MAX_ARRAY_SIZE] of StringVar;
  21.  
  22.   var
  23.     CurrRow, CurrCol : Byte;
  24.     Indx             : Integer;
  25.     Aline            : StringVar;
  26.  
  27.   Begin {WriteBox}
  28.     CurrRow := StartRow;
  29.     CurrCol := StartCol;
  30.     Indx := 1;
  31.     While (Indx <= NumberOfElements) do
  32.       begin
  33.         GotoXY(CurrCol,CurrRow);
  34.         Aline := StrArray(Boxx)[Indx];
  35.         Write(Aline);
  36.         Inc(CurrRow);
  37.         Inc(Indx);
  38.       end;
  39.   End; { WriteBox }
  40.  
  41. Begin
  42. End.
  43.