Powerball Generator!

[Thomas Klemm]

A bit shorter:

Code:

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

Changes

The subroutine at LBL 00 generates a random number from 1 to X.
This makes the checks at the boundaries unnecessary.
I also use the register 00 instead of the global variable "CNT".
But that's more a matter of taste.
There's no obvious reason to store a result in the register 10 since it's never used.
So I removed it.
I also removed CLD since I don't think it's needed.
If the increment of a loop control number is 1, it can be omitted as it is the default.