3H ~>F >~
J@d1 this program generates random lotto numbers.
n) written by Alan Sheehan. 28/10/1983.
x based on program LOTTAL
: X(5)
5 ::" LUCKY LOTTO NUMBERS ":
- :"How many games do you want to play?",C
' set minimum No. of games----------
C<4 C=4
# loop for total games----------
B=1 C
"Game Number";B;
generate numbers----------
N=0 5
X(N)=(*40+1)
N<1 280
J=0 N-1
X(N)=X(J) * J 230
J
N
"' sort numbers into order----------
,
S=0 4
6 M=0
@ I=0 5-(S+1)
J X(I)<=X(I+1) 380
T Y=X(I)
^ X(I)=X(I+1)
h X(I+1)=Y
r M=1
| I
M=0 *S 420
S
print numbers----------
A=0 5
(20+A*4);X(A);
A
B
0 "Do you want any more numbers? (y or n)";A1$
A1$="y" A1$="Y" 100
(