|
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: »getmonster«
└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ. Detaljer om "HC8000" projekt.
└─⟦0364f57e3⟧
└─⟦this⟧ »getmonster«
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
└─⟦4334b4c0b⟧
└─⟦this⟧ »getmonster«
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
char:= char+1;
if char=80 then
begin
space:= char:= 0;
i:= 'nl'
end;
if i='sp' then space:= space+1 else
if char>72 then space:= 0 else
begin
write(out,"sp",space,false add i,1);
space:= 0
end
end
end
▶EOF◀