DataMuseum.dk

Presents historical artifacts from the history of:

RC4000/8000/9000

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about RC4000/8000/9000

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦b9955cd0d⟧ TextFile

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

Derivation

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

TextFile

; ali
lookup tqdtup
qdtup=set 60
permanent qdtup.13
qdtup=algol
begin
integer p,pc,c,char,char1,char2,char3;
boolean fin,all;
connectlso;
p:=1;
char1:=char2:=char3:=0;
for c:=readchar(in,char) while char<>25  do
begin
  if char=42 and char1=46 and (char2>=48 and char2<=57) then
  begin
   char2:=(p mod 10)+48;
   char3:=p//10;
   if char3=0 then char3:=32 else char3:=char3+48;
   p:=p+1;
  end;
  if char3>0 then write(out,false add char3,1);
  char3:=char2; char2:=char1; char1:=char;
  end;
write(out,false add char3,1,false add char2,1,false add char1,1);
closeout;
endprogram(true);
end;
▶EOF◀