|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 1536 (0x600)
Types: TextFile
Names: »tcarea«
└─⟦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⟧
;rc4000 5
mode listing.yes list.yes
cleararea=algol
1975-12-27
external
boolean procedure cleararea(file);
string file;
begin
boolean status;
integer result,segments,i;
integer array tail(1:10);
array name(1:3);
cleararray(name);
movestring(name,1,file);
result:=lookuptail(name,tail);
if result>0 or tail(1)<=0 then
begin
i:=1;
write(out,<:<10>**cleararea :>,string name(increase(i)),
<: entry:>);
if result=0 then write(out,<: size:>,tail(1)) else
write(out,<: lookup result :>,result);
end area improper
else
begin
result:=connectcuro(name);
segments:=tail(1);
status:=result=0 and segments>0;
if status then
begin
setposition(out,0,0);
outrec(out,128);
cleararray(out);
for segments:=segments-1 step -1 until 1 do outrec(out,128);
setposition(out,0,0);
unstackcuro;
end
else
begin
unstackcuro;
i:=1;
write(out,<:<10>**cleararea :>,string name(increase(i)),
result);
end;
end entry exist;
cleararea:=status;
end;
end
testclearar=set 50
testclearar=algol
begin
array file(1:3);
integer i,tobecleared;
initfp;
for tobecleared:=1 step 1 until fpinareas do
begin
readinfp(file,tobecleared);
i:=1;
cleararea(string file(increase(i)));
end;
end;
areatoclear=move tcarea
print areatoclear text integer 10.16 508.518
testclearar areatoclear
print areatoclear text integer 10.16 508.518
mode 15.no list.no
▶EOF◀