Powerball Generator!

[Thomas Klemm]

If the result in "PBALL" is no longer needed, it can be converted into a [ 5×1 matrix ] and the storage of the Powerball lucky number is no longer necessary:

Code:

00 { 81-Byte Prgm }
01▸LBL "PBALL"
02 CLA
03 5
04 STO 00
05 1
06 DIM "PBALL"
07 INDEX "PBALL"
08▸LBL 01
09 RCL 00
10 1
11 STOIJ
12 69
13 XEQ 00
14 [FIND]
15 GTO 01
16 STOEL
17 ├" "
18 AIP
19 DSE 00
20 GTO 01
21 26
22 XEQ 00
23 ├" PB: "
24 AIP
25 AVIEW
26 RTN
27▸LBL 00
28 RAN
29 ×
30 IP
31 1
32 +
33 END

I also replaced ISG with DSE.