%%HP: T(3)A(R)F(.);
\<< RCLF 2 GET
# FFFFFFh AND DUP
# FFFFh AND DUP
# FFh AND SWAP
# 100h / # 64h * +
B\->R SWAP # 10000h /
# 2h - # 4h / # 14h
SWAP - B\->R 1 - RCLF
2 # 0h PUT STOF
\>>
