DataMuseum.dk

top - metrics - download

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

└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
    └─⟦b2ec5d50f⟧ 
        └─⟦this⟧ »tprout« 

TextFile

printout=set 1
scope day printout
printout=algol list.yes connect.no
begin
integer i,j,char,sh,word,base;
array field f;
integer array field pda,outc;
integer field ul;
long array field t;
integer array c(1:1);
long array name(1:3);
f:=0;
readinfp(name.f,1);
ul:=26;
pda:=description(name);
if pda=0 then alarm(<:***:>,name,<: not a process:>);
redefarray (c,0,4000000);
base:=if readbfp(<:in:>,false,false) then -512 else 0;
outc:=c.pda.ul-512+base;
write(out,<:pda :>,pda,
  "nl",1,if base<>0 then <:in  :> else <:out :>,outc);
write(out,"nl",2);
for i:=1 step 1 until 256 do begin
word:=c.outc(i);
for sh:=-16,-8,0 do
begin
  char:=word shift sh extract 8;
  if char>9 and char<127 then outchar(out,char);
end sh;
end word;
end;
▶EOF◀