|
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: »tscopepr«
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
└─⟦4334b4c0b⟧
└─⟦this⟧ »tscopepr«
<*scope procedures
Anders Lindgård
1982-04-14*>
integer procedure scope_temp(name);
long array name;
begin
integer res;
integer array bases(1:8);
res:=permanent_entry(name,0);
if res=0 then
begin
system(11,0,bases);
res:=set_entry_base(name,bases(1),bases(2));
end;
scopetemp:=res;
end scope temp;
integer procedure scope_login(name);
long array name;
begin
integer res;
integer array bases(1:10);
long array aux(1:3);
long array field doc;
res:=permanent_entry(name,0);
if res=0 then
begin
system(11,0,bases);
res:=set_entry_base(name,bases(1),bases(2));
if res=0 then
begin
doc:=2;
res:=lookupentry(name,bases);
repeat res:=lookup_entry(bases.doc,bases);
until res<>0;
res:=permanent_aux_entry(name,bases.doc);
end;
end;
scopelogin:=res;
end scope login;
▶EOF◀