|
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: 768 (0x300) Types: TextFile Names: »tremove«
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ. └─⟦4334b4c0b⟧ └─⟦this⟧ »tremove«
mode list.yes (remove=algol list.yes connect.no global remove mode list.no) begin comment remove a visible entry; integer i,j,ol,ou,lb,ub,pda; integer array t(1:17); long array name(1:3); array field f; f:=0; initfp; pda:=owndescr; ol:=wordload(pda+68); ou:=wordload(pda+70); write(out,"nl",1,<:bases :>,ol,ou); for i:=1 step 1 until fpinareas do begin readinfp(name.f,i); j:=headandtail(name,t); if j=0 then begin setcatbase(pda,t(2),t(3)); removeentry(name); end; setcatbase(pda,ol,ou); end; end; ▶EOF◀