|
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: »getgirls«
└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ. Detaljer om "HC8000" projekt.
└─⟦0364f57e3⟧
└─⟦this⟧ »getgirls«
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
└─⟦b2ec5d50f⟧
└─⟦this⟧ »getgirls«
begin
zone z((4000+5)//6,1,bp);
procedure bp(z,s,b);
zone z; integer s,b;
if false add s then stderror(z,s,b);
integer file,i,j,space,char;
integer array table(0:255);
real array a(1:2);
ebcdictable(table);
intable(table);
open(z,18,<:neucctape:>,1 shift 7);
if system(4,1,a)<>4 shift 12+4 then alarm(<:call:>);
file:= a(1);
setposition(z,file,0);
space:= char:= 0;
for j:= readchar(z,i) while i<>'em',i do
begin
if char=0 then outchar(out,
if i='1' then 'ff' else
if i='+' then 'cr' else 'nl')
else
if i='sp' then space:= space+1 else
begin
if space>0 then
begin
write(out,"sp",space);
space:= 0
end;
outchar(out,i)
end;
if char=132 then space:= char:= 0 else char:= char+1
end
end
▶EOF◀