Free42 LSTO REGS

[Epidiah]

It's a long, dark road, indeed!

Not to distract from any discussion about function-like routines--because if I'm honest, I find the prospect of a FLBL thrilling and looking at the 17 files states I've built around program themes it's clear this is the direction I'm naturally drifting toward--I wanted to sing the praises of LSTO REGS one more time.

This combo has made working with two matrices and moving data between them without disturbing the contents of REGS a bit of a breeze. Here's a quick one I whipped up that takes a vector and turns it into the main diagonal of a square matrix.

Code:

00 { 89-Byte Prgm }
01▸LBL "V→[\]"
02 LSTO "L"
03 LSTO "REGS"
04 R↓
05 LSTO "Y"
06 R↓
07 LSTO "Z"
08 R↓
09 LSTO "T"
10 R↓
11 DIM?
12 X<Y?
13 X<>Y
14 ENTER
15 NEWMAT
16 -1
17 RCL+ ST L
18 1ᴇ-3
19 ×
20 LSTO "#"
21 R↓
22 EDIT
23▸LBL 00
24 RCL IND "#"
25 →
26 ↓
27 ISG "#"
28 GTO 00
29 EXITALL
30 RCL "L"
31 STO ST L
32 R↓
33 RCL "T"
34 X<>Y
35 RCL "Z"
36 X<>Y
37 RCL "Y"
38 X<>Y
39 END

I'm throwing LSTO all over the place here to preserve the stack and the REGS, but the main thing is that I can have the program EDIT one matrix while another sits in REGS where I can pluck entries out of it at whim. That's so much easier than flopping back and forth, indexing one matrix after another, adjusting I and J each time.