DataMuseum.dk

top - metrics - download

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

└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ.  Detaljer om "HC8000" projekt.
    └─⟦0364f57e3⟧ 
        └─⟦720b7e52e⟧ »calprog« 
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
    └─⟦4334b4c0b⟧ 
        └─⟦720b7e52e⟧ »calprog« 
            └─⟦this⟧ 

TextFile

;ali
clear printreals
printreals=set 60
permanent printreals.17
if list.yes
printreals=algol list.yes
printreals=algol
printreals
18 6 76
begin
integer res,first,last,segm,words;
array bs(1:3);
packtext(bs,<:unknown:>);
stackcuri;
readinfp(bs,1);
res:=connectcuri(bs);
if res<>0 then alarm(<:***input area :>,string inc(bs),res);
segm:=0;
readifp(<:segm:>,segm);
first:=1; last:=20; words:=5;
readifp(<:first:>,first);
readifp(<:last:>,last);
readifp(<:words:>,words);
setposition(in,0,segm);
inrec(in,first-1);
for first:=first step 1 until last do
begin
 inrec(in,1);
 write(out,false add 10,
  if (last-first)mod words=words-1 then 1 else 0,in(1));
  end;
unstackcuri;
end;
mode list.no 15.no
▶EOF◀