(28/48/50) Dual Number Functions

[Gil]

The following precious program INOUT was once given to me by one of the HP Museum member:

Code:

\<< RCWS RCLF \-> ws f
  \<< 3 TRANSIO DUP TYPE 2
    IF ==
    THEN \->STR f SIZE 3 > # 2F34Dh # 3016Bh IFTE SYSEVAL + STR\->
    ELSE STD 64 STWS \->STR f SIZE 3 > # 2F34Fh # 2FEC9h IFTE SYSEVAL
    END ws STWS f STOF
  \>>
\>>