DataMuseum.dk

top - metrics - download

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

└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ.  Detaljer om "HC8000" projekt.
    └─⟦0364f57e3⟧ 
        └─⟦e4d872f9f⟧ »cproc« 
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
    └─⟦b2ec5d50f⟧ 
        └─⟦e4d872f9f⟧ »cproc« 
            └─⟦this⟧ 

TextFile

getfpnames=set 5
global getfpnames
getfpnames=algol
external integer procedure getfpnames(h);
integer array h;
begin
integer i,j,k,c,char,items;
connectcuri(<:fpnames:>);
for k:=1,2,3 do
repeat c:=readchar(in,char)until char=10;
items:=0;
for i:=read(in,j) while i>0 do
begin
items:=items+1;
read(in,h(j));
end;
getfpnames:=items;
write(out,"*",1,items,"nl",1);
end;
end;
testgetfp=set 120
testgetfp=algol
begin
integer array h(0:99);
integer i,j;
getfpnames(h);
for i:=1 step 1 until 55 do write(out,"nl",if i mod 5=0 then 1 else 0,h(i));
end
testgetfp
▶EOF◀