DataMuseum.dk

top - metrics - download

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

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

TextFile

job save 200 stat 1 mounts 2 perm disc 5000 200 time 1 0 0,
output 100000
mode list.yes
work=copy savejob3447
changemt=algol

begin
integer
end_of_medium,
i1,
kolon,
m,mt,mtnr,
nl,
sidste_mtnr,semikolon,stjerne,
t,tegn,to_tegn;

integer field
aktuelle_mtnr;

real
dato_ident,seks_tegn,date,clock,base;

zone
work(128,1,stderror),
job_fil(128,1,stderror);

integer array
mt_tabel(1:10);

comment  initialisering;

m:=109;
t:=116;
stjerne:=42;
kolon:=58;
semikolon:=59;
dato_ident:=real <:dato :> add kolon;
end_of_medium:=25;
nl:=10;
mt:=m shift 12 + t;
aktuelle_mtnr:=0;

open(work,4,<:work:>,0);
open(job_fil,4,<:savejob3447:>,0);

comment central program lokke;

comment  les til dato;

tegn:=0;
seks_tegn:=0.0 shift 48;
for sekstegn:=sekstegn shift 8 add tegn while seks_tegn <> dato_ident do
begin
  readchar(work,tegn);
  write(jobfil,false add tegn,1);
end;
for i1:=readchar(work,tegn) while tegn <> semikolon do;
systime(1,0,base);
date:=systime(2,base,clock);
write(jobfil,<<   dd dd dd>,clock,date,false add semikolon,1);

les_neste_mtnr:

to_tegn:=tegn:=0;
for to_tegn:=to_tegn shift 12 + tegn while to_tegn <> mt  and tegn <> stjerne do
begin
  readchar(work,tegn);
  write(job_fil,false add tegn,1);
end kopier til <:mt:> eller nl;
if tegn <> stjerne then
begin
  aktuelle_mtnr:=aktuelle_mtnr + 2;
  mtnr:=0;
  for i1:=1 step 1 until 6 do
  begin
    readchar(work,tegn);
    mtnr:=mtnr*10 + (tegn - 48);
  end les mtnr;
  write(job_fil,<<zddddd>,mtnr);
  mt_tabel.aktuelle_mtnr:=mtnr;
goto les_neste_mtnr;
end indlesning afmtnr;
sidste_mtnr:=aktuelle_mtnr;

comment les til sidst benyttede mt-navn;

to_tegn:=tegn:=0;
for to_tegn:=to_tegn shift 12 + tegn while to_tegn<> mt do
begin
  readchar(work,tegn);
  write(job_fil,false add tegn,1);
end kopier til <:mt:>;
mtnr:=0;
for i1:=1 step 1 until 6 do
begin
  readchar(work,tegn);
  mtnr:=mtnr*10 + (tegn - 48);
end les mtnr;
aktuelle_mtnr:=0;
for aktuelle_mtnr:=aktuelle_mtnr + 2 while mt_tabel.aktuelle_mtnr <> mtnr do;
if aktuelle_mtnr = sidste_mtnr then aktuelle_mtnr:=0;
aktuelle_mtnr:=aktuelle_mtnr + 2;
write(job_fil,<<zddddd>,mt_tabel.aktuelle_mtnr);
tegn:=0;
to_tegn:=0;
for to_tegn:=to_tegn shift 12 add tegn while to_tegn <> mt do
begin
  readchar(work,tegn);
  write(jobfil,false add tegn,1);
end;
for i1:=1 step 1 until 6 do
readchar(work,tegn);
write(jobfil,<<zddddd>,mt_tabel.aktuelle_mtnr);
tegn:=0;
for tegn:=tegn while tegn <> end_of_medium do
begin
  readchar(work,tegn);
  write(job_fil,false add tegn,1);
end kopier resten af jobfilen;
close(work,true);
close(job_fil,true);

end

changemt
i savejob3447
end
finis
▶EOF◀