DataMuseum.dk

top - metrics - download

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

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

TextFile

\f


page=algol list.yes
begin
integer c,i,l,p,t;
real date,time;  array name(1:2);
connectlso; if -,fpin then begin write(out,<:
***no input file in call:>); goto stop end;
readinfp(name,fpitems);    t:= 0;
if name(1)=real <:no:> then name(1):= name(1) shift 16 else
for c:= name(t//6+1) shift ((t mod 6)*8-40) extract 8
    while c>0 do t:= t+1;
systime(1,0,time); date:= systime(2,time,time);
connectinp(1); p:= 0; l:= 70;
rep:
if l>=65 then begin
  i:= 1; p:= p+1; l:= if p=1 then 0 else 1;
  write(out,ff,l,nl,2,<<dd dd dd>,date,sp,8,time,sp,
        40-t,string name(increase(i)),p,nl,2); l:= 4
end;
readchar(in,c); if c=10 then l:= l+1 else
if c=12 then begin
   if l>10 then begin
   l:= 70; repeat readchar(in,c) until c<>10;
   repeatchar(in) end;
goto rep end;
write(out,false add c,1); if c<>25 then goto rep;
stop: closeout end;
▶EOF◀