Syncing iOS iHP48 and HP50g

[Steve Simpkin]

I use the following HP 48/49/50 INOUT Program to help exchange programs from iHP48 to/from emulators on other platforms. See the following forum post.
https://www.hpmuseum.org/forum/thread-13...#pid123629

The HP-48/49/50 INOUT Utility program is used to convert an object to a string (and vice versa) for Import/Export to other HP RPL emulators. 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.

Edit: To expand on how I use the INOUT program to export an object from a source HP-48/49/50 emulator program (such as iHP48) to another HP-48/49/50 emulator program:
1. Recall the object to be copied onto Level 1 of the stack in the source emulator. This can be any object, even a DIR.
2. Run INOUT. This will convert the object on level 1 to a string.
3. Take a copy of the string on Level 1. For example on iHP48, tap the display to bring up the iHP48 menu and choose "Copy from iHP Stack".
4. Paste the string into an email and send it to myself.
5. Open the email on the target device that has a HP-48/49/50 emulator program.
6. Copy the string and paste it to Level 1 on the Stack of the target emulator. For example on iHP48, tap the display to bring up the iHP48 menu and choose "Paste into iHP Stack".
7. Run INOUT. This will convert the string on level 1 to an object again.
8. Store the object with its original name.


You can enter the INOUT program by hand on the source and target emulators. For a quicker method, I was able to take a copy of the INOUT program (see below) and paste it into the stack of the emulator. This resulted in a String object on level 1 that I then manually edited to delete the \<<, \>> and \-> sequences and replace them appropriate program delimiters and right arrow characters. It didn't take too long as there were not that many of them. I also had to delete the string delimiters. This left the correct program on the stack.

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