Little problem(s) July 2022

[Thomas Klemm]

(07-06-2022 07:48 AM)Werner Wrote:  store one in REGS and EDIT/INDEX the other

Thanks a lot for the hint.
This appears to work:

Code:

00 { 49-Byte Prgm }
01▸LBL "FIND"
02 STO "REGS"
03 -
04 STO "N"
05 INDEX "N"
06 DIM?
07 -
08 1ᴇ3
09 ÷
10 SIGN
11▸LBL 00
12 RCL IND ST L
13 [FIND]
14 XEQ 01
15 R↓
16 ISG ST L
17 GTO 00
18 RTN
19▸LBL 01
20 RCLIJ
21 R↓
22 X<>Y
23 END

Example

17
[ 4x1 Matrix ]
XEQ "FIND"

Y: 4
X: 1