DataMuseum.dk

top - metrics - download

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

└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
    └─⟦4334b4c0b⟧ 
        └─⟦af373cc6d⟧ »rydiv« 
            └─⟦this⟧ 

TextFile

; ali
ryddiablo=set 60
permanent ryddiablo.13
ryddiablo=algol
program for printing on the diablo terminal
begin
integer p,pc,c,char,min,max;
boolean fin,all;

procedure wait_v;
begin
integer char;
outend(10);
stackcuri;
connectcuri(<:v:>);
readchar(in,char);
unstackcuri;
end wait_v;

all:=fin:=false;
readbfp(<:all:>,all);
pc:=0;
max:=min:=p:=1;
if all then max:=maxinteger;
if readifp(<:p:>,p) then min:=max:=p;
readifpnext(fpnr,max);
waitv;
for c:=readchar(in,char) while char<>25 and -,fin do
begin
  if char=95 then char:=32;
  if pc>=min and pc<=max then write(out, false add char,1);
  if char=12 then 
  begin
    pc:=pc+1;
    fin:=pc>max;
    if pc>min and -,fin then waitv;
  end;
  end;
endprogram(true);
end;
▶EOF◀