Special HP50G Program for replacing " or other signs

[grsbanks]

(11-06-2019 08:19 PM)BruceH Wrote:  Use these two programs originally by John H. Meyers.

I like the way this detects whether it's being used on a 48 or a 49/50 with the size of the list sent back by RCLF

If you squish the two programs together and preserve the flags and word size you get something like this:

'INOUT'

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
  \>>
\>>

Place the object to convert on level 1 of the stack and run 'INOUT'. If the object was a string then it'll convert it to an RPL object. If not, then it'll convert it to a string.