%%HP: T(3)A(R)F(.);
DIR
  DIST
    \<< CNT CLK *
CSND * 2 /
    \>>
  CSND 1125
  CLK
8.79120879121E-5
  CNT
    \<< HINIT DROP 1
WAIT "#" "R0171" 13
CHR + XMIT DROP
RDIF 2 2 SUB +
"R0173" 13 CHR +
XMIT DROP RDIF 1 2
SUB + "h" + LINIT
DROP OBJ\-> B\->R
    \>>
  LINIT
    \<< "W70FF" 13
CHR + XMIT DROP
RDIF
    \>>
  HINIT
    \<< "W70FFBF3F"
13 CHR + XMIT DROP
RDIF
    \>>
  RDIF
    \<< ""
      DO BUFLEN
DROP SRECV DROP +
      UNTIL DUP 13
CHR POS 0 >
      END
    \>>
END
