HP HP-67 - Page 245

Using the I-Register for Indirect Control 241
The following program uses the instruction to permit you to
key in a four-digit seed in any of three forms: nnnn, .nnnn, or nn.nn.
The seed is squared and the square truncated by the main part of the
program, and the resulting four-digit random number is displayed in
the form of the original seed: nnnn, .nnnn, or nn.nn.
A flowchart for the program might look like this:
Keyin Keyin Key in
number number number
nnnn. nnnn. nn.nn.
Start Start Start
Change to Change to
form nn.nn. form nn.nn.
| |
Store 1 Store 2 Store 3
inl-register inI-register. in I-register.
‘IA
>
Square
number.
Extract new
seed of
form .nnnn.
LBL 1 GTO () /LjL 3
I v |
Change to LBL 2 Change to
form nn.nn. form nnnn.
Stop Stop Stop