DataMuseum.dk

top - metrics - download

    Length: 768 (0x300)
    Types: TextFile
    Names: »ttestlan    «

└─⟦110021343⟧ Bits:30007476 RC8000 Backup tape fra HT's bus-radio system
    └─⟦a957ba283⟧ 
        └─⟦this⟧ »ttestlan    « 

TextFile

begin
long array navn(1:2);
integer array test(1:4);
long array field laf;

procedure lanname(lanmain,name);
  string          lanmain;
  long array              name;
begin
  zone z(1,1,stderror);
  integer array ia(1:12);
  integer i;
  long array field laf;

  open(z,0,lanmain,0);
  getshare6(z,ia,1);
  for i:= 4 step 1 until 11 do ia(i):=0;
  setshare6(z,ia,1);
  monitor(16,z,1,ia);
  monitor(18,z,1,ia);
  laf:= 8;
  tofrom(name,ia.laf,8);
end;

lanname(<:lanmain1:>,navn);
errorbits:= 0; laf:= 0;
if findfpparam(<:navn:>,false,test) > 0 then
begin
  if test.laf(1)<>navn(1) or test.laf(2)<>navn(2) then errorbits:=3;
end
else write(out,navn,"nl",1);
trapmode:= 1 shift 10;
end
▶EOF◀