DataMuseum.dk

top - metrics - download

    Length: 1536 (0x600)
    Types: TextFile
    Names: »gotest«

└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ.  Detaljer om "HC8000" projekt.
    └─⟦0364f57e3⟧ 
        └─⟦1248b0c55⟧ »gobib« 
            └─⟦this⟧ 

TextFile

test=algol list.yes

begin
integer i,j,l1,l2,scope;
integer array tail(1:20), bases(1:8);
array x,y,track(1:2);
array field disc;
zone z(128,1,stderror);
for i:=1 step 1 until 20 do tail(i):= 0;
system(11,i,bases);
name:
write(out,<:<10>Test track (in <>): :>); forceout(out);
readhead(in,track,1); readchar(in,i); i:= 1;
open(z,4,string track(increase(i)),0);
if monitor(76,z,0,tail)<>0 then begin
  write(out,<:segm: :>); forceout(out);
  read(in,i);
  comment old orders: read(in,tail(1))? tail(6):= systime(7,0,0.0)?
  readhead(in,x,1)?
  tail(2):= x(1) shift(-24) extract 24? tail(3):= x(1) extract 24;
  if create(z,i,tail)>0 then begin close(z,true); goto name end;
  monitor(76,z,0,tail);
end;
i:= tail(1) extract 3; l1:= tail(2); l2:= tail(3);
if l1=bases(3) and l2=bases(4) then scope:= if i=0 then 1 else 2 else
if l1=bases(5) and l2=bases(6) then scope:= if i=2 then 3 else 4 else
if l1=bases(7) and l2=bases(8) then scope:= 5 else
scope:= 6;
for j:=1 step 1 until 17 do
write(out,<<-ddddddddd>,tail(j),nl,if j mod 5=0 then 1 else 0);
disc:= 15; j:= 1;
write(out,nl,1,<<-dddddddd>,i,l1,l2,sp,5,
      string tail.disc(increase(j)),sp,5,case scope of
      (<:temp:>,<:login:>,<:day:>,<:user:>,<:project:>,<:***undef:>));
end;
▶EOF◀