Possible use of Tokenizer module for emitting calculator instructions

[Petr Schreiber]

I recently got into situation I wanted to write some code on my calculator, the problem is it does not support FOR/NEXT, only labels and jumps (it is very low level).
As the problem required 3 nested loops, this gets quite ugly to maintain.

The solution to this problem was to use power of ThinBASIC Tokenizer module, and automate the generation of FOR/NEXT equivalent code.
So as the input goes this:


FOR I = 1 TO 5
FOR J = 1 TO 10
FOR K = 1 TO 15

NEXT K
NEXT J
NEXT I


And the produced output is the following calculator program template (LBL = label, GTO = jump to label, STO = store value from stack to variable, RCL = get value from variable to stack, X<=Y? = compare stack values for X and Y register, and if the condition is valid perform next line, otherwise skip next line):


LBL 00
1
STO I
LBL 01
RCL I
5
X<=Y?
GTO 02
<Place FOR/NEXT body code here>
LBL 03
1
STO J
LBL 04
RCL J
10
X<=Y?
GTO 05
<Place FOR/NEXT body code here>
LBL 06
1
STO K
LBL 07
RCL K
15
X<=Y?
GTO 08
<Place FOR/NEXT body code here>
1
STO+ K
GTO 07
LBL 08
1
STO+ J
GTO 04
LBL 05
1
STO+ I
GTO 01
LBL 02


I realize this program is not of particular use for people without legacy HP calculator, but the point is that the Tokenizer module is very well suited for such a conversions. I would probably go crazy inventing that calculator code from the scratch, with script help it is very comfortable.

I attach the commented code for possible study.


Petr