DataMuseum.dk

top - metrics - download

    Length: 1536 (0x600)
    Types: TextFile
    Names: »tkomb«

└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
    └─⟦4334b4c0b⟧ 
        └─⟦ffd03c4b5⟧ »cdiv« 
            └─⟦this⟧ 

TextFile

(mode list.yes
o allist
lkj=lookup ptextline
if ok.no
contract from.hcøplib ptextline
komb=pascal list.yes
scope day komb
mode list.no
o c
finisb)
program komb(input,output);
const no=25;
      copies=4;
type textline=array Æ1..80Å of iso;
var i,j: integer;
tl: textline;
p: array Æ1..noÅ of textline;
copy: 1..copies;
(*$i ptextline*)

procedure writelines(l: integer);
var i: integer;
begin
  for i:=l downto 1 do writeln;
end;

procedure writecopy(t: textline);
var i: integer;
begin
  writeln(ff);
  writelines(2);
  writeln('Vuggestuerne                                         december 1980');
  writeln('Sofus Francks Vænge 4 og 12');
  writelines(5);
  writeln('Vi vil kontakte kommunalpolitiker:');
  writelines(2);
  writetextline(output,t);
  writelines(4);
  writeln('     navn                    addresse                       telefon');
  for i:=1 to 3 do
  begin
  writelines(2);
   writeln(' ',i:1,')');
  end;
  writelines(2);
  writeln('________________________ melder tilbage til forældrerådet ved:');
  writelines(2);
  writeln('________________________');
  writelines(4);
  writeln('Man bør lave aftalen med politikeren i perioden 2 - 12 januar 1981');
  writeln;
  writeln('Politikerens adresse og telefon bør checkes på rådhuset 192121');
end;
begin
  for i:=1 to no do
  begin
    readtextline(input,pÆiÅ);
    for copy:=1 to copies do writecopy(pÆiÅ);
    end;
 writeln(ff);
end.
▶EOF◀