DataMuseum.dk

top - metrics - download

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

└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
    └─⟦4334b4c0b⟧ 
        └─⟦af373cc6d⟧ »rydiv« 
            └─⟦this⟧ 

TextFile

(mode list.yes
;ali time.300 lines.2500
lookup rydlist
if ok.yes
mode listing.yes
rydw=algol 
rydw
)
79 12 08
begin
integer array tail(1:10);
integer i;
array field nf;
real r;
algol list.off copy.ryproc;
algol list.off copy.alutproc;

boolean procedure operatorkey(b);
boolean b;
begin
integer res,pda;
integer array M(1:8);
array n(1:3);
pda:=system(6,res,n);
if res>0 then
begin
operatorkey:=true;
getevent(res);
sendanswer(res,1,M);
end else operatorkey:=false;
end;
nf:=2;
while -,operatorkey(true) and
  lookuptail(<:rydwhere:>,tail)=0 do
  begin
  write(out,"nl",1,string inc(tail.nf),"sp",2,
    <<dd dd dd>,systime(6,tail(6),r),<:.:>,r ,"sp",1,
    <<d>,tail(7)  extract 12,
    string atsym(tail(8) shift (-12) extract 12),"sp",1);
  writeroman(out,tail(8) extract 12);
  write(out,"sp",2);
  if tail(9)>0 then
  write(out,tail(9) shift (-12) extract 12,
     false add ryalf((tail(9) extract 12)*2),1);
  write(out,"sp",1);
  if tail(10)>0 then 
    write(out,tail(10) shift (-12) extract 12,
         false add ryalf((tail(10) extract 12)*2),1);
  outendcur(0);
  wait(2);
  end;
end;
mode list.no 10.no 15.no
▶EOF◀