DataMuseum.dk

top - download

    Length: 3072 (0xc00)
    Types: TextFile
    Names: »thtlogo     «

└─⟦110021343⟧ Bits:30007476 RC8000 Backup tape fra HT's bus-radio system
    └─⟦a957ba283⟧ 
        └─ ⟦this⟧ »thtlogo     « 

TextFile

begin
  integer i;

  procedure cursor(z,linie,pos);
    value            linie,pos;
    zone           z;
    integer          linie,pos;
  begin
    if linie>0 and linie<25
       and pos>0 and pos<81 then
    begin
      write(z,"esc" add 128,1,<:Æ:>,
        <<d>,linie,<:;:>,pos,<:H:>);
    end;
  end cursor;

procedure vent(i);
  integer i;
begin
  integer array ia(1:12);
  zone z(1,1,stderror);

  open(z,0,<:clock:>,0);
  getshare6(z,ia,1);
  ia(4):=2 shift 12;
  ia(5):=i;
  ia(6):=0;
  setshare6(z,ia,1);
  monitor(16,z,1,ia);
  monitor(18,z,1,ia);
  close(z,true);
end;

procedure ht_symbol(z,r,c);
  zone              z;
  integer             r,c;
begin
  own integer seed;
  integer i;

  if r<1 or r>12 or c<1 or c>20 then
  begin
    if seed=0 then seed:=systime(7,0.0,0.0);
    r:= entier(random(seed)*12)+1;
    c:= entier(random(seed)*20)+1;
  end;

  write(out,"esc" add 128,1,<:ÆH:>,"esc" add 128,1,<:ÆJ:>);
  
  cursor(out,r+ 0,c+12); write(out,"@", 2);
  cursor(out,r+ 1,c+11); write(out,"@", 2);
  cursor(out,r+ 2,c+10); write(out,"@", 2);
  cursor(out,r+ 3,c+ 9); write(out,"@", 2);
  cursor(out,r+ 4,c+ 8); write(out,"@", 2);
  cursor(out,r+ 5,c+ 7); write(out,"@", 2);
  cursor(out,r+ 6,c+ 6); write(out,"@", 2);
  cursor(out,r+ 7,c+ 5); write(out,"@", 2);
  cursor(out,r+ 8,c+ 4); write(out,"@", 2);
  cursor(out,r+ 9,c+ 3); write(out,"@", 2);
  cursor(out,r+10,c+ 2); write(out,"@", 2);
  cursor(out,r+11,c+ 1); write(out,"@", 2);
  cursor(out,r+12,c+ 0); write(out,"@",13);
  cursor(out,r+11,c+12); write(out,"@", 2);
  cursor(out,r+10,c+13); write(out,"@", 2);
  cursor(out,r+ 9,c+14); write(out,"@", 2);
  cursor(out,r+ 8,c+15); write(out,"@",13);
  cursor(out,r+ 9,c+25); write(out,"@", 2);
  cursor(out,r+10,c+24); write(out,"@", 2);
  cursor(out,r+11,c+23); write(out,"@", 2);
  cursor(out,r+12,c+22); write(out,"@",13);
  cursor(out,r+11,c+34); write(out,"@", 2);
  cursor(out,r+10,c+35); write(out,"@", 2);
  cursor(out,r+ 9,c+36); write(out,"@", 2);
  cursor(out,r+ 8,c+37); write(out,"@", 2);
  cursor(out,r+ 7,c+38); write(out,"@", 2);
  cursor(out,r+ 6,c+39); write(out,"@", 2);
  cursor(out,r+ 5,c+40); write(out,"@", 2);
  cursor(out,r+ 4,c+41); write(out,"@",13);
  cursor(out,r+ 3,c+53); write(out,"@", 2);
  cursor(out,r+ 2,c+54); write(out,"@", 2);
  cursor(out,r+ 1,c+55); write(out,"@", 2);
  for i:= 34 step (-1) until 0 do
  begin
    cursor(out,r+ 0,c+23+i); write(out,"@", 1);
  end;
  cursor(out,r+ 1,c+22); write(out,"@", 2);
  cursor(out,r+ 2,c+21); write(out,"@", 2);
  cursor(out,r+ 3,c+20); write(out,"@", 2);
  cursor(out,r+ 4,c+19); write(out,"@",13);
  cursor(out,1,1);
end;

  htsymbol(out,6,10);
  setposition(out,0,0);
  vent(10);
  for i:=1 step 1 until 10 do
  begin
    htsymbol(out,0,0);
    setposition(out,0,0);
    vent(7);
  end;
  cursor(out,24,1);


  trapmode:= 1 shift 10;
end
▶EOF◀