48g TEACH command and "Examples" directory

[franz.b]

(03-26-2024 01:32 AM)Steve Simpkin Wrote:  

(03-26-2024 12:07 AM)franz.b Wrote:  ...
But to use INOUT I had to write it by hand starting from scratch because the link version would have to be converted using INOUT itself... it's an unsolvable loop!

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

I don't use emulators, I have too many physical calculators...?‍♂️ I copy the texts and generate .txt files which I import via memory card, then I correct them with the calculator editor. In the case of INOUT it was really quick to write it from scratch, it's just a few commands, basically.