DataMuseum.dk

top - metrics - download

    Length: 2304 (0x900)
    Types: TextFile
    Names: »tinitgnavn  «

└─⟦cde9d517b⟧ Bits:30007477 RC8000 Backup tape fra HT's bus-radio system
    └─⟦6a563b143⟧ 
        └─⟦this⟧ »tinitgnavn  « 

TextFile

 
external
procedure initgnavn(garagenavn,garageomr,områdenavn);
long array garagenavn,områdenavn;
integer array garageomr;
begin
integer i,ant,ch,low_navn,up_navn,low_omr,up_omr,up_id;
zone z(128,1,stderror);
integer array kind(1:10);
long array val(1:10);
 
 
low_navn:=system(3,up_navn,garagenavn);
low_omr :=system(3,up_omr ,garageomr);
system(3,up_id,områdenavn);
 
if low_navn<>low_omr or up_navn<>up_omr or low_navn<>0 then
  system(9,0,<:<10>tabeller:>);
 
for i:= low_navn step 1 until up_navn do
begin
  garagenavn(i):= long<:___:>;
  garageomr(i) := 0;
end;
 
open(z,4,<:radionavne:>,0);
 
for ant:=readall(z,val,kind,1) while val(1)<>'em' do
begin
  if val(1)='nl' then
  else
  if kind(1)=2 and low_navn<=val(1) and val(1)<=up_navn and
     kind(2)=7 and kind(3)=6 and kind(4)=7 and kind(5)=6 and kind(6)>=7 then
  begin
    garagenavn(val(1)):= long<::>;
    garagenavn(val(1)):= val(3);
<*
    for i:= 40 step -8 until 24 do
    begin
      ch:= val(3) shift (-i) extract 8;
      garagenavn(val(1)):= garagenavn(val(1)) add
        ((if 'a'<=ch and ch<='å' then ch-('a'-'A') else ch) shift i);
    end;
*>
    for i:=1 step 1 until up_id do
      if val(5)=områdenavn(i) then garageomr(val(1)):= i;
    if garageomr(val(1))=0 then
      system(9,0*write(out,<:<10>*** initgnavn: ulovligt område: >,
                                string val(5)<10>:>),<:<10>tabeller:>);
  end
  else
    system(9,0*write(out,<:<10>*** initgnavn: ulovligt indhold i :>,
      <:radionavne<10>:>),<:<10>tabeller:>);
end;
  close(z,true);
 
     
end;
end
▶EOF◀