home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol291 / mlabels.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1986-12-22  |  720 b   |  35 lines
  1. program MakeALable;
  2.  
  3.  type
  4.    Line = String[40];
  5.  
  6.  const
  7.    LabelLength = 6;
  8.  
  9.  var
  10.    X,Y,NumOfLabels : integer;
  11.    Lines           : array[1..LabelLength] of Line;
  12.    Ch              : char;
  13.  
  14.   begin
  15.     repeat
  16.       for X := 1 to LabelLength do
  17.         begin
  18.           write('Input Line ',X,' > ');
  19.           readln(Lines[X]);
  20.         end;
  21.       writeln;
  22.       write('How many Labels do you want? > ');
  23.       readln(NumOfLabels);
  24.       for Y := 1 to NumOfLabels do
  25.         begin
  26.           for X := 1 to LabelLength do writeln(lst,Lines[X]);
  27.         end;
  28.       writeln;
  29.       write('Do you want to do another label? [Y/N] : ');
  30.       read(kbd,Ch);
  31.       writeln;
  32.       writeln;
  33.     until not(Ch in ['Y','y']);
  34.     end.
  35.