DataMuseum.dk

top - metrics - download

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

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

TextFile

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◀