%%HP: T(3)A(R)F(.);
DIR
  HEXDISP
    \<< "" 1 4
      START OVER 16
MOD 1 + DIGITS SWAP
GET SWAP + SWAP 16
/ IP SWAP
      NEXT SWAP
DROP "W740037" SWAP
+ 13 CHR + XMIT
DROP RDIF DROP
    \>>
  DIGITS { "3F"
"06" "5B" "4F" "66"
"6D" "7D" "07" "7F"
"6F" "77" "7C" "39"
"5E" "79" "71" }
  BANNER
    \<< { "00000000"
"3E540678"
"065B3900"
"7473667F"
"78747900" } SEQ
    \>>
  SEQ
    \<< OBJ\-> 1 SWAP
      START
"W740037" SWAP + 13
CHR + XMIT DROP
RDIF DROP 1 WAIT
      NEXT
    \>>
  RDIF
    \<< ""
      DO BUFLEN
DROP SRECV DROP +
      UNTIL DUP 13
CHR POS 0 >
      END
    \>>
END
