DataMuseum.dk

top - metrics - download

    Length: 3072 (0xc00)
    Types: TextFileVerbose
    Names: »adrjob«

└─⟦a41ae585a⟧ Bits:30001842 SW-save af projekt 1000, Alarm-system
    └─⟦72244f0ef⟧ 
        └─⟦this⟧ »adrjob« 

TextFileVerbose

job tele 4 400 devi 50 time 11 0
p=algol
begin
<****************************************************
* 
* funktion:   dette program bruges til udskrivning af
*             forskellige typer af adresselabels.
*
*             Der udskrives "antal" s{t. Typen styres
*             af variablen jobtype.
*
* programmeret juni 1980 af STB
*
*****************************************************>

integer i,antal,j,jobtype;

antal:=200;

jobtype:=4;

<* 
1: specifikationsmodtagere
2: G.K.Frolich
3: S|ren T. Lyngs|
4: J|rn Gj|rtz, Henrik Grouleff, Henning Andersen, JTAS
5: jtas, clemensborg
6: JTAS, Slet
*>

  
for j:=1 step 1 until antal do
case jobtype of
begin

<* 1:   specifikationsmodtagere  *>
begin
 
for i:=1 step 1 until 4 do
write(out,
false add 140,1,
 
case i of  (

<:
   Herr civilingeni|r
   A. Folmer Jensen,
   2. ingeni|rdistrikt,
   H.P.Hansensgade 21,
   6200    Aabenraa.
:>,

<:
   Herr telefoningeni|r
   H. B|nnergaard,
   KTAS,
   Rentemestervej 8,
   2400    K|benhavn NV.
:>,

<:
   Herr EDB-chef
   S|ren Jensen,
   JTAS,
   Sletvej 30,
   8310    ]rhus-Tranbjerg J.
:>,

<:
   Herr telefoningeni|r
   Erland Winterberg,
   PABC-kontoret,
   JTAS,
   Sletvej 30,
   8310    ]rhus-Tranbjerg J.
:>




));

write(out,false add 140,1,
<:
   Herr afdelingsingeni|r
   E. Mu:>, false add 136,1,  false add 126,1,
<:ller,
   FKT,
   Klingenberg,
   5000    Odense.
:>);

write(out,false add 140,1,
<:
   Herr civilingeni|r
   G.K.Fro:>, false add 136,1,  false add 126,1,
   <:lich,
   Svend Estridsensvej 14,
   4000    Roskilde.
:>);
end case 1;

<* 2: G.K.Frolich *>
begin
write(out, false add 140,1,
<:
   Herr civilingeni|r
   G.K. Fro:>, false add 136,1,  false add 126,1,
   <:lich,
   Svend Estridsensvej 14,
   4000    Roskilde.
:>);
end case 2;


<* 3: S|ren T. Lyngs| *>
begin
write(out, false add 140,1, 
<:
   S|ren T. Lyngs| A/S,
   \stmarken 4,
   2860    S|borg.


   Att.: A.W.Grove.
:>);
end case 3;


<* 4: J|rn Gj|rtz, Henrik Grouleff, Henning Andersen, JTAS *>
begin

for i:=1 step 1 until 3 do
write(out, false add 140, 1,
case i of (
<:
   Jydsk Telefon-Aktieselskab
   Sletvej 30
   8310    Tranbjerg
 
 
   Att.: J|rn Gj|rtz
:>,

<:
   Jydsk Telefon-Aktieselskab
   Sletvej 30
   8310    Tranbjerg
 
 
   Att.: Henrik Grouleff
:>,

<:
   Jydsk Telefon-Aktieselskab
   Sletvej 30
   8310    Tranbjerg
 
 
   Att.: Henning Andersen
         Laboratoriet
:>));

end case 4;

<* 5: JTAS, Clemensborg *>
write(out,false add 140,1,
<:
     Jydsk Telefon-Aktieselskab,
     Sct. Clemensborg,
     Clemens Torv,
     8100    ]rhus C.
:>);

<* 6: JTAS, Slet *>
write(out, false add 140,1,
<:
     Jydsk Telefon-Aktieselskab,
     Sletvej 30,
     8310    Tranbjerg J.
:>);


end case;
write(out,false add 140,3);

end
o ryf
p
o c
qume=copy ryf
finis
«eof»