DataMuseum.dk

top - metrics - download

    Length: 1536 (0x600)
    Types: TextFile
    Names: »tosmess«

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

TextFile

(
mode list.yes
osmess=algol list.no
mode list.no
)
1982-03-25
begin
  integer array a(1:2),pr(1:30),b(1:1),c(1:1),table(0:127),
     M,A(1:8),buf(1:127);
  integer i,j,k,bno,faddr;
  real r;
  array m(1:30);
  long array field ll;
  ll:=2;
  for i:=0 step 1 until 31 do table(i):=8 shift 12 +i;
  for i:=32 step 1 until 127 do table(i):=6 shift 12 +i;
  intable(table);
  cleararray(m);
  k:=readstring(in,m,1);
  j:=readstring(in,m,k+1);
  m(k+j+1):=real <:<10><10>:>;
  M(1):=5 shift 12;
  M(2):=faddr:=first_addr(m);
  M(3):=faddr+60-2;
  bno:=0;
  system(5,74,a);
  system(5,a(1),b);
  system(5,a(2),c);
  for i:=b(1) step 2 until c(1) do
  begin
    system(5,i,pr);
    if pr(1)=84 then
    begin
      if pr.ll(1)=long <:termi:> add 'n' or
        pr.ll(1)=long <:conso:> add 'l' then
      begin
        bno:=bno+1;
        buf(bno):=send_message(pr.ll,M);
      end;
    end;
  end;
for i:=1 step 1 until bno do
begin
  if buf(i)>0 then wait_answer(buf(i),A);
end;
end;
▶EOF◀