%%HP: T(3)A(R)F(.);
\<<
  IF DUP # FFh >
  THEN # FFh AND
DUP # 100h * SWAP
# FFh XOR + GROUP
# 10000h * + CODE3
SWAP TRANSMIT
  ELSE DISPOFF DUP
# 100h * SWAP # FFh
XOR + CODE SWAP
GROUP # 10000h * +
TRANSMIT CODE2 # 0h
TRANSMIT DISPON
  END
\>>