DataMuseum.dk

top - metrics - download

    Length: 3072 (0xc00)
    Types: TextFile
    Names: »twritelabel«

└─⟦2c55ea56f⟧ Bits:30001844 SW-save af projekt 1000, Alarm-system
    └─⟦6b41451d2⟧ 
        └─⟦this⟧ »twritelabel« 

TextFile

job polm 6 600 time 11 0 perm disc 200 40 size 90000
mode list.yes
(
nameaddress = set 1 disc
nameout = set 0 disc
testout = set tw boss
if ok.no
finis
pipcode = pascal list.no
if ok.no
finis
pipcode
nameaddress = move nameout
scope user nameaddress
finis)

(****************************************************
*                                                   *
*      program writelabels                          *
*                                                   *
*      the program constructs the file nameaddress  *
*      from the file kartotek in a format prepared  *
*      for conversion on labels                     *
*                                                   *
****************************************************)


program writelabels(input="kartotek",output);
const
linelength = 56;

var
formatlines : integer;
i : integer;
finis : boolean;

procedure nameandaddr(var lines : integer; var finis : boolean);
var
i : integer;
ch : char;

begin
i := 0;
lines := 1;

write(output,"     ");

repeat
read(input,ch);
i := i+1;
if (ch = ",") or (eof(input)) then
begin
if not eof(input) then
begin
lines := lines+1;
write(output,",",nl,"    ");
end
else
begin
i := linelength;
finis := true;
end;
end
else
write(output,ch);
until i = linelength;

if eof(input) then finis := true 
else
begin
readln(input);
if not eof(input) then finis := false else finis := true;
end

end;   (* nameandaddr *)








(****************************************************
*                                                   *
*              main program                         *
*                                                   *
****************************************************)


begin
open(output,"nameout");
rewrite(output);
(* rewrite tout *)
reset(input);

for i := 1 to 5 do readln(input);

writeln(output,nl,nl,nl,nl,nl,nl,nl,nl);

repeat

nameandaddr(formatlines,finis);
case formatlines of
3: writeln(output,nl,nl,nl,nl,nl,nl,nl,nl,nl,nl,nl,nl,nl,nl,nl);
4: writeln(output,nl,nl,nl,nl,nl,nl,nl,nl,nl,nl,nl,nl,nl,nl);
5: writeln(output,nl,nl,nl,nl,nl,nl,nl,nl,nl,nl,nl,nl,nl);
6: writeln(output,nl,nl,nl,nl,nl,nl,nl,nl,nl,nl,nl,nl);
end
otherwise;

until finis;

close(output);

end.
▶EOF◀