Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Who here is VERY good at troubleshooting QB programs?
#1
If you've got the time and the patience then please PM me(it's a long program)!
Not yet Snake! It's not over yet!
Reply
#2
Quote:If you've got the time and the patience then please PM me(it's a long program)!
I think I'm pretty good at testing programs, EXCEPT GAME PROGRAMS, and except Freebasic programs. If you have one that you'd like me to check out, send me some specs on what it's supposed to do, and the code (as a .txt file) attached in an email to:
moneo@prodigy.net.mx
*****
Reply
#3
Don't worry, this is a regular program, not a game.
Not yet Snake! It's not over yet!
Reply
#4
Quote:If you've got the time and the patience then please PM me(it's a long program)!

You want this program of yours fixed, so instead of posting it here (or posting a link) for people to download, you tell people to pm you for the program. If the program is right here, anyone could troubleshoot it. I know most of us here know a thing or two about doing that. Why not just post it here or a link?
Jumping Jahoolipers!
Reply
#5
[code]

REM Lottery Probability
REM By Tom White
CLS
REM %=INTEGER
REM array declaration

DIM ENTRY1%(1 TO 10)
DIM ENTRY2%(1 TO 10)
DIM ENTRY3%(1 TO 10)
DIM ENTRY4%(1 TO 10)
DIM ENTRY5%(1 TO 10)
DIM ENTRY6%(1 TO 10)
DIM ENTRY7%(1 TO 10)
DIM ENTRY8%(1 TO 10)
DIM ENTRY9%(1 TO 10)
DIM ENTRY10%(1 TO 10)

ONES = 0
TWOS = 0
THREES = 0
FOURS = 0
FIVES = 0
SIXES = 0
SEVENS = 0
EIGHTS = 0
NINES = 0
TENS = 0
ELEVENS = 0
TWELVES = 0
THIRTEENS = 0
FOURTEENS = 0
FIFTEENS = 0
SIXTEENS = 0
SEVENTEENS = 0
EIGHTEENS = 0
NINETEENS = 0
TWENTIES = 0
TWENTY1 = 0
TWENTY2 = 0
TWENTY3 = 0
TWENTY4 = 0
TWENTY5 = 0
TWENTY6 = 0
TWENTY7 = 0
TWENTY8 = 0
TWENTY9 = 0
THIRTY = 0
THIRTY1 = 0
THIRTY2 = 0
THIRTY3 = 0
THIRTY4 = 0
THIRTY5 = 0
THIRTY6 = 0
THIRTY7 = 0
THIRTY8 = 0
THIRTY9 = 0
FOURTY = 0
FOURTY1 = 0
FOURTY2 = 0
FOURTY3 = 0
FOURTY4 = 0
FOURTY5 = 0
FOURTY6 = 0
FOURTY7 = 0
FOURTY8 = 0
FOURTY9 = 0
FIFTY = 0
FIFTY1 = 0
FIFTY2 = 0


PRINT "WELCOME TO MY LOTTERY PROBABILITY PROGRAM."
PRINT "THIS PROGRAM WILL BASICALLY TELL YOU WHICH NUMBERS COME UP THE MOST AND LEAST."
PRINT "I HAVE NO IDEA IF YOU'LL WIN OR NOT...IT'S SUPPOSEDLY RANDOM."
PRINT
PRINT "YOU CAN ENTER UP TO 10 SETS OF NUMBERS."
PRINT "YOU CAN ENTER A MAXIMUM OF 10 NUMBERS PER SET. IF THERE ARE LESS"
PRINT "THAN 10 NUMBERS PER SET, JUST USE 0'S FOR THOSE EXTRA SPACES"
PRINT
PRINT
PRINT
PRINT "PRESS ANY KEY TO CONTINUE"
SLEEP 40
PRINT
PRINT "LETS GET STARTED."
PLACE = 0
DO
IF PLACE = 0 THEN GOSUB HOME
IF PLACE = 1 THEN GOSUB NUMBERS
IF PLACE = 2 THEN GOSUB PROB
IF PLACE = 3 THEN GOSUB SAVE
IF PLACE = 4 THEN GOSUB LOAD
IF PLACE = 5 THEN END
LOOP

HOME:
PRINT
1 PRINT "MAIN"
PRINT "HERE ARE YOUR CHOICES"
PRINT "1. START PUTTING IN NUMBERS"
PRINT "2. SHOW PROBABILITIES"
PRINT "3. SAVE NUMBERS"
PRINT "4. LOAD NUMBERS"
PRINT "5. QUIT"
DO
INPUT PLACE
PLACE = INT(PLACE)
LOOP UNTIL (PLACE > 0) AND (PLACE < 6)
RETURN

NUMBERS:
PRINT
PRINT "I HAVEN'T REALLY MADE THIS DUMMY PROOF, SO IF YOU MESS UP, YOU'RE IN TROUBLE."
PRINT "SO REMEMBER...PLACE ZEROES INTO THE EXTRA SPACES. THERE ARE 10 SPACES IN ALL."
PRINT "AFTER EACH ENTRY PRESS ENTER. AND FOLLOW THE DIRECTIONS!"
INPUT "ENTER THE NUMBERS FOR THIS FIRST ENTRY, EACH FOLLOWED BY A COMMA, EXCEPT FOR THE LAST ONE"; A, B, C, D, E, F, G, H, I, J
ENTRY1(1) = A
ENTRY1(2) = B
ENTRY1(3) = C
ENTRY1(4) = D
ENTRY1(5) = E
ENTRY1(6) = F
ENTRY1(7) = G
ENTRY1(8) = H
ENTRY1(9) = I
ENTRY1(10) = J
DO
INPUT "DO YOU WANT TO STOP?(Y/N)"; DONE$
IF (DONE$ = "Y") THEN GOTO 1
LOOP UNTIL DONE$ = "N"
INPUT "ENTER THE NUMBERS FOR THIS ENTRY, EACH FOLLOWED BY A COMMA, EXCEPT THE LAST ONE"; A, B, C, D, E, F, G, H, I, J
ENTRY2(1) = A
ENTRY2(2) = B
ENTRY2(3) = C
ENTRY2(4) = D
ENTRY2(5) = E
ENTRY2(6) = F
ENTRY2(7) = G
ENTRY2(8) = H
ENTRY2(9) = I
ENTRY2(10) = J
DO
INPUT "DO YOU WANT TO STOP?(Y/N)"; DONE$
IF (DONE$ = "Y") THEN GOTO 1
LOOP UNTIL DONE$ = "N"
INPUT "ENTER THE NUMBERS FOR THIS ENTRY, EACH FOLLOWED BY A COMMA, EXCEPT THE LAST ONE"; A, B, C, D, E, F, G, H, I, J
ENTRY3(1) = A
ENTRY3(2) = B
ENTRY3(3) = C
ENTRY3(4) = D
ENTRY3(5) = E
ENTRY3(6) = F
ENTRY3(7) = G
ENTRY3(8) = H
ENTRY3(9) = I
ENTRY3(10) = J
DO
INPUT "DO YOU WANT TO STOP?(Y/N)"; DONE$
IF (DONE$ = "Y") THEN GOTO 1
LOOP UNTIL DONE$ = "N"
INPUT "ENTER THE NUMBERS FOR THIS ENTRY, EACH FOLLOWED BY A COMMA, EXCEPT THE LAST ONE"; A, B, C, D, E, F, G, H, I, J
ENTRY4(1) = A
ENTRY4(2) = B
ENTRY4(3) = C
ENTRY4(4) = D
ENTRY4(5) = E
ENTRY4(6) = F
ENTRY4(7) = G
ENTRY4(8) = H
ENTRY4(9) = I
ENTRY4(10) = J
DO
INPUT "DO YOU WANT TO STOP?(Y/N)"; DONE$
IF (DONE$ = "Y") THEN GOTO 1
LOOP UNTIL DONE$ = "N"
INPUT "ENTER THE NUMBERS FOR THIS ENTRY, EACH FOLLOWED BY A COMMA, EXCEPT THE LAST ONE"; A, B, C, D, E, F, G, H, I, J
ENTRY5(1) = A
ENTRY5(2) = B
ENTRY5(3) = C
ENTRY5(4) = D
ENTRY5(5) = E
ENTRY5(6) = F
ENTRY5(7) = G
ENTRY5(8) = H
ENTRY5(9) = I
ENTRY5(10) = J
DO
INPUT "DO YOU WANT TO STOP?(Y/N)"; DONE$
IF (DONE$ = "Y") THEN GOTO 1
LOOP UNTIL DONE$ = "N"
INPUT "ENTER THE NUMBERS FOR THIS ENTRY, EACH FOLLOWED BY A COMMA, EXCEPT THE LAST ONE"; A, B, C, D, E, F, G, H, I, J
ENTRY6(1) = A
ENTRY6(2) = B
ENTRY6(3) = C
ENTRY6(4) = D
ENTRY6(5) = E
ENTRY6(6) = F
ENTRY6(7) = G
ENTRY6(8) = H
ENTRY6(9) = I
ENTRY6(10) = J
DO
INPUT "DO YOU WANT TO STOP?(Y/N)"; DONE$
IF (DONE$ = "Y") THEN GOTO 1
LOOP UNTIL DONE$ = "N"
INPUT "ENTER THE NUMBERS FOR THIS ENTRY, EACH FOLLOWED BY A COMMA, EXCEPT THE LAST ONE"; A, B, C, D, E, F, G, H, I, J
ENTRY7(1) = A
ENTRY7(2) = B
ENTRY7(3) = C
ENTRY7(4) = D
ENTRY7(5) = E
ENTRY7(6) = F
ENTRY7(7) = G
ENTRY7(8) = H
ENTRY7(9) = I
ENTRY7(10) = J
DO
INPUT "DO YOU WANT TO STOP?(Y/N)"; DONE$
IF (DONE$ = "Y") THEN GOTO 1
LOOP UNTIL DONE$ = "N"
INPUT "ENTER THE NUMBERS FOR THIS ENTRY, EACH FOLLOWED BY A COMMA, EXCEPT THE LAST ONE"; A, B, C, D, E, F, G, H, I, J
ENTRY8(1) = A
ENTRY8(2) = B
ENTRY8(3) = C
ENTRY8(4) = D
ENTRY8(5) = E
ENTRY8(6) = F
ENTRY8(7) = G
ENTRY8(8) = H
ENTRY8(9) = I
ENTRY8(10) = J
DO
INPUT "DO YOU WANT TO STOP?(Y/N)"; DONE$
IF (DONE$ = "Y") THEN GOTO 1
LOOP UNTIL DONE$ = "N"
INPUT "ENTER THE NUMBERS FOR THIS ENTRY, EACH FOLLOWED BY A COMMA, EXCEPT THE LAST ONE"; A, B, C, D, E, F, G, H, I, J
ENTRY9(1) = A
ENTRY9(2) = B
ENTRY9(3) = C
ENTRY9(4) = D
ENTRY9(5) = E
ENTRY9(6) = F
ENTRY9(7) = G
ENTRY9(8) = H
ENTRY9(9) = I
ENTRY9(10) = J
DO
INPUT "DO YOU WANT TO STOP?(Y/N)"; DONE$
IF (DONE$ = "Y") THEN GOTO 1
LOOP UNTIL DONE$ = "N"
INPUT "ENTER THE NUMBERS FOR THIS FIRST ENTRY, EACH FOLLOWED BY A COMMA, EXCEPT THE LAST ONE"; A, B, C, D, E, F, G, H, I, J
ENTRY10(1) = A
ENTRY10(2) = B
ENTRY10(3) = C
ENTRY10(4) = D
ENTRY10(5) = E
ENTRY10(6) = F
ENTRY10(7) = G
ENTRY10(8) = H
ENTRY10(9) = I
ENTRY10(10) = J
PLACE = 0
RETURN

PROB:
PRINT "GETTING THE PROBABILITY OF THE NUMBERS(MOST COMMON)."
REM entry 1
FOR X = 1 TO 10
IF ENTRY1(X) = 1 THEN ONES = ONES + 1
IF ENTRY1(X) = 2 THEN TWOS = TWOS + 1
IF ENTRY1(X) = 3 THEN THREES = THREES + 1
IF ENTRY1(X) = 4 THEN FOURS = FOURS + 1
IF ENTRY1(X) = 5 THEN FIVES = FIVES + 1
IF ENTRY1(X) = 6 THEN SIXES = SIXES + 1
IF ENTRY1(X) = 7 THEN SEVENS = SEVENS + 1
IF ENTRY1(X) = 8 THEN EIGHTS = EIGHTS + 1
IF ENTRY1(X) = 9 THEN NINES = NINES + 1
IF ENTRY1(X) = 10 THEN TENS = TENS + 1
IF ENTRY1(X) = 11 THEN ELEVENS = ELEVENS + 1
IF ENTRY1(X) = 12 THEN TWELVES = TWELVES + 1
IF ENTRY1(X) = 13 THEN THIRTEENS = THIRTEENS + 1
IF ENTRY1(X) = 14 THEN FOURTEENS = FOURTEENS + 1
IF ENTRY1(X) = 15 THEN FIFTEENS = FIFTEENS + 1
IF ENTRY1(X) = 16 THEN SIXTEENS = SIXTEENS + 1
IF ENTRY1(X) = 17 THEN SEVENTEENS = SEVENTEENS + 1
IF ENTRY1(X) = 18 THEN EIGHTEENS = EIGHTEENS + 1
IF ENTRY1(X) = 19 THEN NINETEENS = NINETEENS + 1
IF ENTRY1(X) = 20 THEN TWENTIES = TWENTIES + 1
IF ENTRY1(X) = 21 THEN TWENTY1 = TWENTY1 + 1
IF ENTRY1(X) = 22 THEN TWENTY2 = TWENTY2 + 1
IF ENTRY1(X) = 23 THEN TWENTY3 = TWENTY3 + 1
IF ENTRY1(X) = 24 THEN TWENTY4 = TWENTY4 + 1
IF ENTRY1(X) = 25 THEN TWENTY5 = TWENTY5 + 1
IF ENTRY1(X) = 26 THEN TWENTY6 = TWENTY6 + 1
IF ENTRY1(X) = 27 THEN TWENTY7 = TWENTY7 + 1
IF ENTRY1(X) = 28 THEN TWENTY8 = TWENTY8 + 1
IF ENTRY1(X) = 29 THEN TWENTY9 = TWENTY9 + 1
IF ENTRY1(X) = 30 THEN THIRTY = THIRTY + 1
IF ENTRY1(X) = 31 THEN THIRTY1 = THIRTY1 + 1
IF ENTRY1(X) = 32 THEN THIRTY2 = THIRTY2 + 1
IF ENTRY1(X) = 33 THEN THIRTY3 = THIRTY3 + 1
IF ENTRY1(X) = 34 THEN THIRTY4 = THIRTY4 + 1
IF ENTRY1(X) = 35 THEN THIRTY5 = THIRTY5 + 1
IF ENTRY1(X) = 36 THEN THIRTY6 = THIRTY6 + 1
IF ENTRY1(X) = 37 THEN THIRTY7 = THIRTY7 + 1
IF ENTRY1(X) = 38 THEN THIRTY8 = THIRTY8 + 1
IF ENTRY1(X) = 39 THEN THIRTY9 = THIRTY9 + 1
IF ENTRY1(X) = 40 THEN FOURTY = FOURTY + 1
IF ENTRY1(X) = 41 THEN FOURTY1 = FOURTY1 + 1
IF ENTRY1(X) = 42 THEN FOURTY2 = FOURTY2 + 1
IF ENTRY1(X) = 43 THEN FOURTY3 = FOURTY3 + 1
IF ENTRY1(X) = 44 THEN FOURTY4 = FOURTY4 + 1
IF ENTRY1(X) = 45 THEN FOURTY5 = FOURTY5 + 1
IF ENTRY1(X) = 46 THEN FOURTY6 = FOURTY6 + 1
IF ENTRY1(X) = 47 THEN FOURTY7 = FOURTY7 + 1
IF ENTRY1(X) = 48 THEN FOURTY8 = FOURTY8 + 1
IF ENTRY1(X) = 49 THEN FOURTY9 = FOURTY9 + 1
IF ENTRY1(X) = 50 THEN FIFTY = FIFTY + 1
IF ENTRY1(X) = 51 THEN FIFTY1 = FIFTY1 + 1
IF ENTRY1(X) = 52 THEN FIFTY2 = FIFTY2 + 1
NEXT X
REM entry2
FOR X = 1 TO 10
IF ENTRY2(X) = 1 THEN ONES = ONES + 1
IF ENTRY2(X) = 2 THEN TWOS = TWOS + 1
IF ENTRY2(X) = 3 THEN THREES = THREES + 1
IF ENTRY2(X) = 4 THEN FOURS = FOURS + 1
IF ENTRY2(X) = 5 THEN FIVES = FIVES + 1
IF ENTRY2(X) = 6 THEN SIXES = SIXES + 1
IF ENTRY2(X) = 7 THEN SEVENS = SEVENS + 1
IF ENTRY2(X) = 8 THEN EIGHTS = EIGHTS + 1
IF ENTRY2(X) = 9 THEN NINES = NINES + 1
IF ENTRY2(X) = 10 THEN TENS = TENS + 1
IF ENTRY2(X) = 11 THEN ELEVENS = ELEVENS + 1
IF ENTRY2(X) = 12 THEN TWELVES = TWELVES + 1
IF ENTRY2(X) = 13 THEN THIRTEENS = THIRTEENS + 1
IF ENTRY2(X) = 14 THEN FOURTEENS = FOURTEENS + 1
IF ENTRY2(X) = 15 THEN FIFTEENS = FIFTEENS + 1
IF ENTRY2(X) = 16 THEN SIXTEENS = SIXTEENS + 1
IF ENTRY2(X) = 17 THEN SEVENTEENS = SEVENTEENS + 1
IF ENTRY2(X) = 18 THEN EIGHTEENS = EIGHTEENS + 1
IF ENTRY2(X) = 19 THEN NINETEENS = NINETEENS + 1
IF ENTRY2(X) = 20 THEN TWENTIES = TWENTIES + 1
IF ENTRY2(X) = 21 THEN TWENTY1 = TWENTY1 + 1
IF ENTRY2(X) = 22 THEN TWENTY2 = TWENTY2 + 1
IF ENTRY2(X) = 23 THEN TWENTY3 = TWENTY3 + 1
IF ENTRY2(X) = 24 THEN TWENTY4 = TWENTY4 + 1
IF ENTRY2(X) = 25 THEN TWENTY5 = TWENTY5 + 1
IF ENTRY2(X) = 26 THEN TWENTY6 = TWENTY6 + 1
IF ENTRY2(X) = 27 THEN TWENTY7 = TWENTY7 + 1
IF ENTRY2(X) = 28 THEN TWENTY8 = TWENTY8 + 1
IF ENTRY2(X) = 29 THEN TWENTY9 = TWENTY9 + 1
IF ENTRY2(X) = 30 THEN THIRTY = THIRTY + 1
IF ENTRY2(X) = 31 THEN THIRTY1 = THIRTY1 + 1
IF ENTRY2(X) = 32 THEN THIRTY2 = THIRTY2 + 1
IF ENTRY2(X) = 33 THEN THIRTY3 = THIRTY3 + 1
IF ENTRY2(X) = 34 THEN THIRTY4 = THIRTY4 + 1
IF ENTRY2(X) = 35 THEN THIRTY5 = THIRTY5 + 1
IF ENTRY2(X) = 36 THEN THIRTY6 = THIRTY6 + 1
IF ENTRY2(X) = 37 THEN THIRTY7 = THIRTY7 + 1
IF ENTRY2(X) = 38 THEN THIRTY8 = THIRTY8 + 1
IF ENTRY2(X) = 39 THEN THIRTY9 = THIRTY9 + 1
IF ENTRY2(X) = 40 THEN FOURTY = FOURTY + 1
IF ENTRY2(X) = 41 THEN FOURTY1 = FOURTY1 + 1
IF ENTRY2(X) = 42 THEN FOURTY2 = FOURTY2 + 1
IF ENTRY2(X) = 43 THEN FOURTY3 = FOURTY3 + 1
IF ENTRY2(X) = 44 THEN FOURTY4 = FOURTY4 + 1
IF ENTRY2(X) = 45 THEN FOURTY5 = FOURTY5 + 1
IF ENTRY2(X) = 46 THEN FOURTY6 = FOURTY6 + 1
IF ENTRY2(X) = 47 THEN FOURTY7 = FOURTY7 + 1
IF ENTRY2(X) = 48 THEN FOURTY8 = FOURTY8 + 1
IF ENTRY2(X) = 49 THEN FOURTY9 = FOURTY9 + 1
IF ENTRY2(X) = 50 THEN FIFTY = FIFTY + 1
IF ENTRY2(X) = 51 THEN FIFTY1 = FIFTY1 + 1
IF ENTRY2(X) = 52 THEN FIFTY2 = FIFTY2 + 1
NEXT X
REM entry3
FOR X = 1 TO 10
IF ENTRY3(X) = 1 THEN ONES = ONES + 1
IF ENTRY3(X) = 2 THEN TWOS = TWOS + 1
IF ENTRY3(X) = 3 THEN THREES = THREES + 1
IF ENTRY3(X) = 4 THEN FOURS = FOURS + 1
IF ENTRY3(X) = 5 THEN FIVES = FIVES + 1
IF ENTRY3(X) = 6 THEN SIXES = SIXES + 1
IF ENTRY3(X) = 7 THEN SEVENS = SEVENS + 1
IF ENTRY3(X) = 8 THEN EIGHTS = EIGHTS + 1
IF ENTRY3(X) = 9 THEN NINES = NINES + 1
IF ENTRY3(X) = 10 THEN TENS = TENS + 1
IF ENTRY3(X) = 11 THEN ELEVENS = ELEVENS + 1
IF ENTRY3(X) = 12 THEN TWELVES = TWELVES + 1
IF ENTRY3(X) = 13 THEN THIRTEENS = THIRTEENS + 1
IF ENTRY3(X) = 14 THEN FOURTEENS = FOURTEENS + 1
IF ENTRY3(X) = 15 THEN FIFTEENS = FIFTEENS + 1
IF ENTRY3(X) = 16 THEN SIXTEENS = SIXTEENS + 1
IF ENTRY3(X) = 17 THEN SEVENTEENS = SEVENTEENS + 1
IF ENTRY3(X) = 18 THEN EIGHTEENS = EIGHTEENS + 1
IF ENTRY3(X) = 19 THEN NINETEENS = NINETEENS + 1
IF ENTRY3(X) = 20 THEN TWENTIES = TWENTIES + 1
IF ENTRY3(X) = 21 THEN TWENTY1 = TWENTY1 + 1
IF ENTRY3(X) = 22 THEN TWENTY2 = TWENTY2 + 1
IF ENTRY3(X) = 23 THEN TWENTY3 = TWENTY3 + 1
IF ENTRY3(X) = 24 THEN TWENTY4 = TWENTY4 + 1
IF ENTRY3(X) = 25 THEN TWENTY5 = TWENTY5 + 1
IF ENTRY3(X) = 26 THEN TWENTY6 = TWENTY6 + 1
IF ENTRY3(X) = 27 THEN TWENTY7 = TWENTY7 + 1
IF ENTRY3(X) = 28 THEN TWENTY8 = TWENTY8 + 1
IF ENTRY3(X) = 29 THEN TWENTY9 = TWENTY9 + 1
IF ENTRY3(X) = 30 THEN THIRTY = THIRTY + 1
IF ENTRY3(X) = 31 THEN THIRTY1 = THIRTY1 + 1
IF ENTRY3(X) = 32 THEN THIRTY2 = THIRTY2 + 1
IF ENTRY3(X) = 33 THEN THIRTY3 = THIRTY3 + 1
IF ENTRY3(X) = 34 THEN THIRTY4 = THIRTY4 + 1
IF ENTRY3(X) = 35 THEN THIRTY5 = THIRTY5 + 1
IF ENTRY3(X) = 36 THEN THIRTY6 = THIRTY6 + 1
IF ENTRY3(X) = 37 THEN THIRTY7 = THIRTY7 + 1
IF ENTRY3(X) = 38 THEN THIRTY8 = THIRTY8 + 1
IF ENTRY3(X) = 39 THEN THIRTY9 = THIRTY9 + 1
IF ENTRY3(X) = 40 THEN FOURTY = FOURTY + 1
IF ENTRY3(X) = 41 THEN FOURTY1 = FOURTY1 + 1
IF ENTRY3(X) = 42 THEN FOURTY2 = FOURTY2 + 1
IF ENTRY3(X) = 43 THEN FOURTY3 = FOURTY3 + 1
IF ENTRY3(X) = 44 THEN FOURTY4 = FOURTY4 + 1
IF ENTRY3(X) = 45 THEN FOURTY5 = FOURTY5 + 1
IF ENTRY3(X) = 46 THEN FOURTY6 = FOURTY6 + 1
IF ENTRY3(X) = 47 THEN FOURTY7 = FOURTY7 + 1
IF ENTRY3(X) = 48 THEN FOURTY8 = FOURTY8 + 1
IF ENTRY3(X) = 49 THEN FOURTY9 = FOURTY9 + 1
IF ENTRY3(X) = 50 THEN FIFTY = FIFTY + 1
IF ENTRY3(X) = 51 THEN FIFTY1 = FIFTY1 + 1
IF ENTRY3(X) = 52 THEN FIFTY2 = FIFTY2 + 1
NEXT X
REM entry4
FOR X = 1 TO 10
IF ENTRY4(X) = 1 THEN ONES = ONES + 1
IF ENTRY4(X) = 2 THEN TWOS = TWOS + 1
IF ENTRY4(X) = 3 THEN THREES = THREES + 1
IF ENTRY4(X) = 4 THEN FOURS = FOURS + 1
IF ENTRY4(X) = 5 THEN FIVES = FIVES + 1
IF ENTRY4(X) = 6 THEN SIXES = SIXES + 1
IF ENTRY4(X) = 7 THEN SEVENS = SEVENS + 1
IF ENTRY4(X) = 8 THEN EIGHTS = EIGHTS + 1
IF ENTRY4(X) = 9 THEN NINES = NINES + 1
IF ENTRY4(X) = 10 THEN TENS = TENS + 1
IF ENTRY4(X) = 11 THEN ELEVENS = ELEVENS + 1
IF ENTRY4(X) = 12 THEN TWELVES = TWELVES + 1
IF ENTRY4(X) = 13 THEN THIRTEENS = THIRTEENS + 1
IF ENTRY4(X) = 14 THEN FOURTEENS = FOURTEENS + 1
IF ENTRY4(X) = 15 THEN FIFTEENS = FIFTEENS + 1
IF ENTRY4(X) = 16 THEN SIXTEENS = SIXTEENS + 1
IF ENTRY4(X) = 17 THEN SEVENTEENS = SEVENTEENS + 1
IF ENTRY4(X) = 18 THEN EIGHTEENS = EIGHTEENS + 1
IF ENTRY4(X) = 19 THEN NINETEENS = NINETEENS + 1
IF ENTRY4(X) = 20 THEN TWENTIES = TWENTIES + 1
IF ENTRY4(X) = 22 THEN TWENTY2 = TWENTY2 + 1
IF ENTRY4(X) = 23 THEN TWENTY3 = TWENTY3 + 1
IF ENTRY4(X) = 24 THEN TWENTY4 = TWENTY4 + 1
IF ENTRY4(X) = 25 THEN TWENTY5 = TWENTY5 + 1
IF ENTRY4(X) = 26 THEN TWENTY6 = TWENTY6 + 1
IF ENTRY4(X) = 27 THEN TWENTY7 = TWENTY7 + 1
IF ENTRY4(X) = 28 THEN TWENTY8 = TWENTY8 + 1
IF ENTRY4(X) = 29 THEN TWENTY9 = TWENTY9 + 1
IF ENTRY4(X) = 30 THEN THIRTY = THIRTY + 1
IF ENTRY4(X) = 31 THEN THIRTY1 = THIRTY1 + 1
IF ENTRY4(X) = 32 THEN THIRTY2 = THIRTY2 + 1
IF ENTRY4(X) = 33 THEN THIRTY3 = THIRTY3 + 1
IF ENTRY4(X) = 34 THEN THIRTY4 = THIRTY4 + 1
IF ENTRY4(X) = 35 THEN THIRTY5 = THIRTY5 + 1
IF ENTRY4(X) = 36 THEN THIRTY6 = THIRTY6 + 1
IF ENTRY4(X) = 37 THEN THIRTY7 = THIRTY7 + 1
IF ENTRY4(X) = 38 THEN THIRTY8 = THIRTY8 + 1
IF ENTRY4(X) = 39 THEN THIRTY9 = THIRTY9 + 1
IF ENTRY4(X) = 40 THEN FOURTY = FOURTY + 1
IF ENTRY4(X) = 41 THEN FOURTY1 = FOURTY1 + 1
IF ENTRY4(X) = 42 THEN FOURTY2 = FOURTY2 + 1
IF ENTRY4(X) = 43 THEN FOURTY3 = FOURTY3 + 1
IF ENTRY4(X) = 44 THEN FOURTY4 = FOURTY4 + 1
IF ENTRY4(X) = 45 THEN FOURTY5 = FOURTY5 + 1
IF ENTRY4(X) = 46 THEN FOURTY6 = FOURTY6 + 1
IF ENTRY4(X) = 47 THEN FOURTY7 = FOURTY7 + 1
IF ENTRY4(X) = 48 THEN FOURTY8 = FOURTY8 + 1
IF ENTRY4(X) = 49 THEN FOURTY9 = FOURTY9 + 1
IF ENTRY4(X) = 50 THEN FIFTY = FIFTY + 1
IF ENTRY4(X) = 51 THEN FIFTY1 = FIFTY1 + 1
IF ENTRY4(X) = 52 THEN FIFTY2 = FIFTY2 + 1
NEXT X
REM entry5
FOR X = 1 TO 10
IF ENTRY5(X) = 1 THEN ONES = ONES + 1
IF ENTRY5(X) = 2 THEN TWOS = TWOS + 1
IF ENTRY5(X) = 3 THEN THREES = THREES + 1
IF ENTRY5(X) = 4 THEN FOURS = FOURS + 1
IF ENTRY5(X) = 5 THEN FIVES = FIVES + 1
IF ENTRY5(X) = 6 THEN SIXES = SIXES + 1
IF ENTRY5(X) = 7 THEN SEVENS = SEVENS + 1
IF ENTRY5(X) = 8 THEN EIGHTS = EIGHTS + 1
IF ENTRY5(X) = 9 THEN NINES = NINES + 1
IF ENTRY5(X) = 10 THEN TENS = TENS + 1
IF ENTRY5(X) = 11 THEN ELEVENS = ELEVENS + 1
IF ENTRY5(X) = 12 THEN TWELVES = TWELVES + 1
IF ENTRY5(X) = 13 THEN THIRTEENS = THIRTEENS + 1
IF ENTRY5(X) = 14 THEN FOURTEENS = FOURTEENS + 1
IF ENTRY5(X) = 15 THEN FIFTEENS = FIFTEENS + 1
IF ENTRY5(X) = 16 THEN SIXTEENS = SIXTEENS + 1
IF ENTRY5(X) = 17 THEN SEVENTEENS = SEVENTEENS + 1
IF ENTRY5(X) = 18 THEN EIGHTEENS = EIGHTEENS + 1
IF ENTRY5(X) = 19 THEN NINETEENS = NINETEENS + 1
IF ENTRY5(X) = 20 THEN TWENTIES = TWENTIES + 1
IF ENTRY5(X) = 21 THEN TWENTY1 = TWENTY1 + 1
IF ENTRY5(X) = 22 THEN TWENTY2 = TWENTY2 + 1
IF ENTRY5(X) = 23 THEN TWENTY3 = TWENTY3 + 1
IF ENTRY5(X) = 24 THEN TWENTY4 = TWENTY4 + 1
IF ENTRY5(X) = 25 THEN TWENTY5 = TWENTY5 + 1
IF ENTRY5(X) = 26 THEN TWENTY6 = TWENTY6 + 1
IF ENTRY5(X) = 27 THEN TWENTY7 = TWENTY7 + 1
IF ENTRY5(X) = 28 THEN TWENTY8 = TWENTY8 + 1
IF ENTRY5(X) = 29 THEN TWENTY9 = TWENTY9 + 1
IF ENTRY5(X) = 30 THEN THIRTY = THIRTY + 1
IF ENTRY5(X) = 31 THEN THIRTY1 = THIRTY1 + 1
IF ENTRY5(X) = 32 THEN THIRTY2 = THIRTY2 + 1
IF ENTRY5(X) = 33 THEN THIRTY3 = THIRTY3 + 1
IF ENTRY5(X) = 34 THEN THIRTY4 = THIRTY4 + 1
IF ENTRY5(X) = 35 THEN THIRTY5 = THIRTY5 + 1
IF ENTRY5(X) = 36 THEN THIRTY6 = THIRTY6 + 1
IF ENTRY5(X) = 37 THEN THIRTY7 = THIRTY7 + 1
IF ENTRY5(X) = 38 THEN THIRTY8 = THIRTY8 + 1
IF ENTRY5(X) = 39 THEN THIRTY9 = THIRTY9 + 1
IF ENTRY5(X) = 40 THEN FOURTY = FOURTY + 1
IF ENTRY5(X) = 41 THEN FOURTY1 = FOURTY1 + 1
IF ENTRY5(X) = 42 THEN FOURTY2 = FOURTY2 + 1
IF ENTRY5(X) = 43 THEN FOURTY3 = FOURTY3 + 1
IF ENTRY5(X) = 44 THEN FOURTY4 = FOURTY4 + 1
IF ENTRY5(X) = 45 THEN FOURTY5 = FOURTY5 + 1
IF ENTRY5(X) = 46 THEN FOURTY6 = FOURTY6 + 1
IF ENTRY5(X) = 47 THEN FOURTY7 = FOURTY7 + 1
IF ENTRY5(X) = 48 THEN FOURTY8 = FOURTY8 + 1
IF ENTRY5(X) = 49 THEN FOURTY9 = FOURTY9 + 1
IF ENTRY5(X) = 50 THEN FIFTY = FIFTY + 1
IF ENTRY5(X) = 51 THEN FIFTY1 = FIFTY1 + 1
IF ENTRY5(X) = 52 THEN FIFTY2 = FIFTY2 + 1
NEXT X
REM entry6
FOR X = 1 TO 10
IF ENTRY6(X) = 1 THEN ONES = ONES + 1
IF ENTRY6(X) = 2 THEN TWOS = TWOS + 1
IF ENTRY6(X) = 3 THEN THREES = THREES + 1
IF ENTRY6(X) = 4 THEN FOURS = FOURS + 1
IF ENTRY6(X) = 5 THEN FIVES = FIVES + 1
IF ENTRY6(X) = 6 THEN SIXES = SIXES + 1
IF ENTRY6(X) = 7 THEN SEVENS = SEVENS + 1
IF ENTRY6(X) = 8 THEN EIGHTS = EIGHTS + 1
IF ENTRY6(X) = 9 THEN NINES = NINES + 1
IF ENTRY6(X) = 10 THEN TENS = TENS + 1
IF ENTRY6(X) = 11 THEN ELEVENS = ELEVENS + 1
IF ENTRY6(X) = 12 THEN TWELVES = TWELVES + 1
IF ENTRY6(X) = 13 THEN THIRTEENS = THIRTEENS + 1
IF ENTRY6(X) = 14 THEN FOURTEENS = FOURTEENS + 1
IF ENTRY6(X) = 15 THEN FIFTEENS = FIFTEENS + 1
IF ENTRY6(X) = 16 THEN SIXTEENS = SIXTEENS + 1
IF ENTRY6(X) = 17 THEN SEVENTEENS = SEVENTEENS + 1
IF ENTRY6(X) = 18 THEN EIGHTEENS = EIGHTEENS + 1
IF ENTRY6(X) = 19 THEN NINETEENS = NINETEENS + 1
IF ENTRY6(X) = 20 THEN TWENTIES = TWENTIES + 1
IF ENTRY6(X) = 21 THEN TWENTY1 = TWENTY1 + 1
IF ENTRY6(X) = 22 THEN TWENTY2 = TWENTY2 + 1
IF ENTRY6(X) = 23 THEN TWENTY3 = TWENTY3 + 1
IF ENTRY6(X) = 24 THEN TWENTY4 = TWENTY4 + 1
IF ENTRY6(X) = 25 THEN TWENTY5 = TWENTY5 + 1
IF ENTRY6(X) = 26 THEN TWENTY6 = TWENTY6 + 1
IF ENTRY6(X) = 27 THEN TWENTY7 = TWENTY7 + 1
IF ENTRY6(X) = 28 THEN TWENTY8 = TWENTY8 + 1
IF ENTRY6(X) = 29 THEN TWENTY9 = TWENTY9 + 1
IF ENTRY6(X) = 30 THEN THIRTY = THIRTY + 1
IF ENTRY6(X) = 31 THEN THIRTY1 = THIRTY1 + 1
IF ENTRY6(X) = 32 THEN THIRTY2 = THIRTY2 + 1
IF ENTRY6(X) = 33 THEN THIRTY3 = THIRTY3 + 1
IF ENTRY6(X) = 34 THEN THIRTY4 = THIRTY4 + 1
IF ENTRY6(X) = 35 THEN THIRTY5 = THIRTY5 + 1
IF ENTRY6(X) = 36 THEN THIRTY6 = THIRTY6 + 1
IF ENTRY6(X) = 37 THEN THIRTY7 = THIRTY7 + 1
IF ENTRY6(X) = 38 THEN THIRTY8 = THIRTY8 + 1
IF ENTRY6(X) = 39 THEN THIRTY9 = THIRTY9 + 1
IF ENTRY6(X) = 40 THEN FOURTY = FOURTY + 1
IF ENTRY6(X) = 41 THEN FOURTY1 = FOURTY1 + 1
IF ENTRY6(X) = 42 THEN FOURTY2 = FOURTY2 + 1
IF ENTRY6(X) = 43 THEN FOURTY3 = FOURTY3 + 1
IF ENTRY6(X) = 44 THEN FOURTY4 = FOURTY4 + 1
IF ENTRY6(X) = 45 THEN FOURTY5 = FOURTY5 + 1
IF ENTRY6(X) = 46 THEN FOURTY6 = FOURTY6 + 1
IF ENTRY6(X) = 47 THEN FOURTY7 = FOURTY7 + 1
IF ENTRY6(X) = 48 THEN FOURTY8 = FOURTY8 + 1
IF ENTRY6(X) = 49 THEN FOURTY9 = FOURTY9 + 1
IF ENTRY6(X) = 50 THEN FIFTY = FIFTY + 1
IF ENTRY6(X) = 51 THEN FIFTY1 = FIFTY1 + 1
IF ENTRY6(X) = 52 THEN FIFTY2 = FIFTY2 + 1
NEXT X
REM entry7
FOR X = 1 TO 10
IF ENTRY7(X) = 1 THEN ONES = ONES + 1
IF ENTRY7(X) = 2 THEN TWOS = TWOS + 1
IF ENTRY7(X) = 3 THEN THREES = THREES + 1
IF ENTRY7(X) = 4 THEN FOURS = FOURS + 1
IF ENTRY7(X) = 5 THEN FIVES = FIVES + 1
IF ENTRY7(X) = 6 THEN SIXES = SIXES + 1
IF ENTRY7(X) = 7 THEN SEVENS = SEVENS + 1
IF ENTRY7(X) = 8 THEN EIGHTS = EIGHTS + 1
IF ENTRY7(X) = 9 THEN NINES = NINES + 1
IF ENTRY7(X) = 10 THEN TENS = TENS + 1
IF ENTRY7(X) = 11 THEN ELEVENS = ELEVENS + 1
IF ENTRY7(X) = 12 THEN TWELVES = TWELVES + 1
IF ENTRY7(X) = 13 THEN THIRTEENS = THIRTEENS + 1
IF ENTRY7(X) = 14 THEN FOURTEENS = FOURTEENS + 1
IF ENTRY7(X) = 15 THEN FIFTEENS = FIFTEENS + 1
IF ENTRY7(X) = 16 THEN SIXTEENS = SIXTEENS + 1
IF ENTRY7(X) = 17 THEN SEVENTEENS = SEVENTEENS + 1
IF ENTRY7(X) = 18 THEN EIGHTEENS = EIGHTEENS + 1
IF ENTRY7(X) = 19 THEN NINETEENS = NINETEENS + 1
IF ENTRY7(X) = 20 THEN TWENTIES = TWENTIES + 1
IF ENTRY7(X) = 21 THEN TWENTY1 = TWENTY1 + 1
IF ENTRY7(X) = 22 THEN TWENTY2 = TWENTY2 + 1
IF ENTRY7(X) = 23 THEN TWENTY3 = TWENTY3 + 1
IF ENTRY7(X) = 24 THEN TWENTY4 = TWENTY4 + 1
IF ENTRY7(X) = 25 THEN TWENTY5 = TWENTY5 + 1
IF ENTRY7(X) = 26 THEN TWENTY6 = TWENTY6 + 1
IF ENTRY7(X) = 27 THEN TWENTY7 = TWENTY7 + 1
IF ENTRY7(X) = 28 THEN TWENTY8 = TWENTY8 + 1
IF ENTRY7(X) = 29 THEN TWENTY9 = TWENTY9 + 1
IF ENTRY7(X) = 30 THEN THIRTY = THIRTY + 1
IF ENTRY7(X) = 31 THEN THIRTY1 = THIRTY1 + 1
IF ENTRY7(X) = 32 THEN THIRTY2 = THIRTY2 + 1
IF ENTRY7(X) = 33 THEN THIRTY3 = THIRTY3 + 1
IF ENTRY7(X) = 34 THEN THIRTY4 = THIRTY4 + 1
IF ENTRY7(X) = 35 THEN THIRTY5 = THIRTY5 + 1
IF ENTRY7(X) = 36 THEN THIRTY6 = THIRTY6 + 1
IF ENTRY7(X) = 37 THEN THIRTY7 = THIRTY7 + 1
IF ENTRY7(X) = 38 THEN THIRTY8 = THIRTY8 + 1
IF ENTRY7(X) = 39 THEN THIRTY9 = THIRTY9 + 1
IF ENTRY7(X) = 40 THEN FOURTY = FOURTY + 1
IF ENTRY7(X) = 41 THEN FOURTY1 = FOURTY1 + 1
IF ENTRY7(X) = 42 THEN FOURTY2 = FOURTY2 + 1
IF ENTRY7(X) = 43 THEN FOURTY3 = FOURTY3 + 1
IF ENTRY7(X) = 44 THEN FOURTY4 = FOURTY4 + 1
IF ENTRY7(X) = 45 THEN FOURTY5 = FOURTY5 + 1
IF ENTRY7(X) = 46 THEN FOURTY6 = FOURTY6 + 1
IF ENTRY7(X) = 47 THEN FOURTY7 = FOURTY7 + 1
IF ENTRY7(X) = 48 THEN FOURTY8 = FOURTY8 + 1
IF ENTRY7(X) = 49 THEN FOURTY9 = FOURTY9 + 1
IF ENTRY7(X) = 50 THEN FIFTY = FIFTY + 1
IF ENTRY7(X) = 51 THEN FIFTY1 = FIFTY1 + 1
IF ENTRY7(X) = 52 THEN FIFTY2 = FIFTY2 + 1
NEXT X
REM entry8
FOR X = 1 TO 10
IF ENTRY8(X) = 1 THEN ONES = ONES + 1
IF ENTRY8(X) = 2 THEN TWOS = TWOS + 1
IF ENTRY8(X) = 3 THEN THREES = THREES + 1
IF ENTRY8(X) = 4 THEN FOURS = FOURS + 1
IF ENTRY8(X) = 5 THEN FIVES = FIVES + 1
IF ENTRY8(X) = 6 THEN SIXES = SIXES + 1
IF ENTRY8(X) = 7 THEN SEVENS = SEVENS + 1
IF ENTRY8(X) = 8 THEN EIGHTS = EIGHTS + 1
IF ENTRY8(X) = 9 THEN NINES = NINES + 1
IF ENTRY8(X) = 10 THEN TENS = TENS + 1
IF ENTRY8(X) = 11 THEN ELEVENS = ELEVENS + 1
IF ENTRY8(X) = 12 THEN TWELVES = TWELVES + 1
IF ENTRY8(X) = 13 THEN THIRTEENS = THIRTEENS + 1
IF ENTRY8(X) = 14 THEN FOURTEENS = FOURTEENS + 1
IF ENTRY8(X) = 15 THEN FIFTEENS = FIFTEENS + 1
IF ENTRY8(X) = 16 THEN SIXTEENS = SIXTEENS + 1
IF ENTRY8(X) = 17 THEN SEVENTEENS = SEVENTEENS + 1
IF ENTRY8(X) = 18 THEN EIGHTEENS = EIGHTEENS + 1
IF ENTRY8(X) = 19 THEN NINETEENS = NINETEENS + 1
IF ENTRY8(X) = 20 THEN TWENTIES = TWENTIES + 1
IF ENTRY8(X) = 21 THEN TWENTY1 = TWENTY1 + 1
IF ENTRY8(X) = 22 THEN TWENTY2 = TWENTY2 + 1
IF ENTRY8(X) = 23 THEN TWENTY3 = TWENTY3 + 1
IF ENTRY8(X) = 24 THEN TWENTY4 = TWENTY4 + 1
IF ENTRY8(X) = 25 THEN TWENTY5 = TWENTY5 + 1
IF ENTRY8(X) = 26 THEN TWENTY6 = TWENTY6 + 1
IF ENTRY8(X) = 27 THEN TWENTY7 = TWENTY7 + 1
IF ENTRY8(X) = 28 THEN TWENTY8 = TWENTY8 + 1
IF ENTRY8(X) = 29 THEN TWENTY9 = TWENTY9 + 1
IF ENTRY8(X) = 30 THEN THIRTY = THIRTY + 1
IF ENTRY8(X) = 31 THEN THIRTY1 = THIRTY1 + 1
IF ENTRY8(X) = 32 THEN THIRTY2 = THIRTY2 + 1
IF ENTRY8(X) = 33 THEN THIRTY3 = THIRTY3 + 1
IF ENTRY8(X) = 34 THEN THIRTY4 = THIRTY4 + 1
IF ENTRY8(X) = 35 THEN THIRTY5 = THIRTY5 + 1
IF ENTRY8(X) = 36 THEN THIRTY6 = THIRTY6 + 1
IF ENTRY8(X) = 37 THEN THIRTY7 = THIRTY7 + 1
IF ENTRY8(X) = 38 THEN THIRTY8 = THIRTY8 + 1
IF ENTRY8(X) = 39 THEN THIRTY9 = THIRTY9 + 1
IF ENTRY8(X) = 40 THEN FOURTY = FOURTY + 1
IF ENTRY8(X) = 41 THEN FOURTY1 = FOURTY1 + 1
IF ENTRY8(X) = 42 THEN FOURTY2 = FOURTY2 + 1
IF ENTRY8(X) = 43 THEN FOURTY3 = FOURTY3 + 1
IF ENTRY8(X) = 44 THEN FOURTY4 = FOURTY4 + 1
IF ENTRY8(X) = 45 THEN FOURTY5 = FOURTY5 + 1
IF ENTRY8(X) = 46 THEN FOURTY6 = FOURTY6 + 1
IF ENTRY8(X) = 47 THEN FOURTY7 = FOURTY7 + 1
IF ENTRY8(X) = 48 THEN FOURTY8 = FOURTY8 + 1
IF ENTRY8(X) = 49 THEN FOURTY9 = FOURTY9 + 1
IF ENTRY8(X) = 50 THEN FIFTY = FIFTY + 1
IF ENTRY8(X) = 51 THEN FIFTY1 = FIFTY1 + 1
IF ENTRY8(X) = 52 THEN FIFTY2 = FIFTY2 + 1
NEXT X
REM entry9
FOR X = 1 TO 10
IF ENTRY9(X) = 1 THEN ONES = ONES + 1
IF ENTRY9(X) = 2 THEN TWOS = TWOS + 1
IF ENTRY9(X) = 3 THEN THREES = THREES + 1
IF ENTRY9(X) = 4 THEN FOURS = FOURS + 1
IF ENTRY9(X) = 5 THEN FIVES = FIVES + 1
IF ENTRY9(X) = 6 THEN SIXES = SIXES + 1
IF ENTRY9(X) = 7 THEN SEVENS = SEVENS + 1
IF ENTRY9(X) = 8 THEN EIGHTS = EIGHTS + 1
IF ENTRY9(X) = 9 THEN NINES = NINES + 1
IF ENTRY9(X) = 10 THEN TENS = TENS + 1
IF ENTRY9(X) = 11 THEN ELEVENS = ELEVENS + 1
IF ENTRY9(X) = 12 THEN TWELVES = TWELVES + 1
IF ENTRY9(X) = 13 THEN THIRTEENS = THIRTEENS + 1
IF ENTRY9(X) = 14 THEN FOURTEENS = FOURTEENS + 1
IF ENTRY9(X) = 15 THEN FIFTEENS = FIFTEENS + 1
IF ENTRY9(X) = 16 THEN SIXTEENS = SIXTEENS + 1
IF ENTRY9(X) = 17 THEN SEVENTEENS = SEVENTEENS + 1
IF ENTRY9(X) = 18 THEN EIGHTEENS = EIGHTEENS + 1
IF ENTRY9(X) = 19 THEN NINETEENS = NINETEENS + 1
IF ENTRY9(X) = 20 THEN TWENTIES = TWENTIES + 1
IF ENTRY9(X) = 21 THEN TWENTY1 = TWENTY1 + 1
IF ENTRY9(X) = 22 THEN TWENTY2 = TWENTY2 + 1
IF ENTRY9(X) = 23 THEN TWENTY3 = TWENTY3 + 1
IF ENTRY9(X) = 24 THEN TWENTY4 = TWENTY4 + 1
IF ENTRY9(X) = 25 THEN TWENTY5 = TWENTY5 + 1
IF ENTRY9(X) = 26 THEN TWENTY6 = TWENTY6 + 1
IF ENTRY9(X) = 27 THEN TWENTY7 = TWENTY7 + 1
IF ENTRY9(X) = 28 THEN TWENTY8 = TWENTY8 + 1
IF ENTRY9(X) = 29 THEN TWENTY9 = TWENTY9 + 1
IF ENTRY9(X) = 30 THEN THIRTY = THIRTY + 1
IF ENTRY9(X) = 31 THEN THIRTY1 = THIRTY1 + 1
IF ENTRY9(X) = 32 THEN THIRTY2 = THIRTY2 + 1
IF ENTRY9(X) = 33 THEN THIRTY3 = THIRTY3 + 1
IF ENTRY9(X) = 34 THEN THIRTY4 = THIRTY4 + 1
IF ENTRY9(X) = 35 THEN THIRTY5 = THIRTY5 + 1
IF ENTRY9(X) = 36 THEN THIRTY6 = THIRTY6 + 1
IF ENTRY9(X) = 37 THEN THIRTY7 = THIRTY7 + 1
IF ENTRY9(X) = 38 THEN THIRTY8 = THIRTY8 + 1
IF ENTRY9(X) = 39 THEN THIRTY9 = THIRTY9 + 1
IF ENTRY9(X) = 40 THEN FOURTY = FOURTY + 1
IF ENTRY9(X) = 41 THEN FOURTY1 = FOURTY1 + 1
IF ENTRY9(X) = 42 THEN FOURTY2 = FOURTY2 + 1
IF ENTRY9(X) = 43 THEN FOURTY3 = FOURTY3 + 1
IF ENTRY9(X) = 44 THEN FOURTY4 = FOURTY4 + 1
IF ENTRY9(X) = 45 THEN FOURTY5 = FOURTY5 + 1
IF ENTRY9(X) = 46 THEN FOURTY6 = FOURTY6 + 1
IF ENTRY9(X) = 47 THEN FOURTY7 = FOURTY7 + 1
IF ENTRY9(X) = 48 THEN FOURTY8 = FOURTY8 + 1
IF ENTRY9(X) = 49 THEN FOURTY9 = FOURTY9 + 1
IF ENTRY9(X) = 50 THEN FIFTY = FIFTY + 1
IF ENTRY9(X) = 51 THEN FIFTY1 = FIFTY1 + 1
IF ENTRY9(X) = 52 THEN FIFTY2 = FIFTY2 + 1
NEXT X
REM entry10
FOR X = 1 TO 10
IF ENTRY10(X) = 1 THEN ONES = ONES + 1
IF ENTRY10(X) = 2 THEN TWOS = TWOS + 1
IF ENTRY10(X) = 3 THEN THREES = THREES + 1
IF ENTRY10(X) = 4 THEN FOURS = FOURS + 1
IF ENTRY10(X) = 5 THEN FIVES = FIVES + 1
IF ENTRY10(X) = 6 THEN SIXES = SIXES + 1
IF ENTRY10(X) = 7 THEN SEVENS = SEVENS + 1
IF ENTRY10(X) = 8 THEN EIGHTS = EIGHTS + 1
IF ENTRY10(X) = 9 THEN NINES = NINES + 1
IF ENTRY10(X) = 10 THEN TENS = TENS + 1
IF ENTRY10(X) = 11 THEN ELEVENS = ELEVENS + 1
IF ENTRY10(X) = 12 THEN TWELVES = TWELVES + 1
IF ENTRY10(X) = 13 THEN THIRTEENS = THIRTEENS + 1
IF ENTRY10(X) = 14 THEN FOURTEENS = FOURTEENS + 1
IF ENTRY10(X) = 15 THEN FIFTEENS = FIFTEENS + 1
IF ENTRY10(X) = 16 THEN SIXTEENS = SIXTEENS + 1
IF ENTRY10(X) = 17 THEN SEVENTEENS = SEVENTEENS + 1
IF ENTRY10(X) = 18 THEN EIGHTEENS = EIGHTEENS + 1
IF ENTRY10(X) = 19 THEN NINETEENS = NINETEENS + 1
IF ENTRY10(X) = 20 THEN TWENTIES = TWENTIES + 1
IF ENTRY10(X) = 21 THEN TWENTY1 = TWENTY1 + 1
IF ENTRY10(X) = 22 THEN TWENTY2 = TWENTY2 + 1
IF ENTRY10(X) = 23 THEN TWENTY3 = TWENTY3 + 1
IF ENTRY10(X) = 24 THEN TWENTY4 = TWENTY4 + 1
IF ENTRY10(X) = 25 THEN TWENTY5 = TWENTY5 + 1
IF ENTRY10(X) = 26 THEN TWENTY6 = TWENTY6 + 1
IF ENTRY10(X) = 27 THEN TWENTY7 = TWENTY7 + 1
IF ENTRY10(X) = 28 THEN TWENTY8 = TWENTY8 + 1
IF ENTRY10(X) = 29 THEN TWENTY9 = TWENTY9 + 1
IF ENTRY10(X) = 30 THEN THIRTY = THIRTY + 1
IF ENTRY10(X) = 31 THEN THIRTY1 = THIRTY1 + 1
IF ENTRY10(X) = 32 THEN THIRTY2 = THIRTY2 + 1
IF ENTRY10(X) = 33 THEN THIRTY3 = THIRTY3 + 1
IF ENTRY10(X) = 34 THEN THIRTY4 = THIRTY4 + 1
IF ENTRY10(X) = 35 THEN THIRTY5 = THIRTY5 + 1
IF ENTRY10(X) = 36 THEN THIRTY6 = THIRTY6 + 1
IF ENTRY10(X) = 37 THEN THIRTY7 = THIRTY7 + 1
IF ENTRY10(X) = 38 THEN THIRTY8 = THIRTY8 + 1
IF ENTRY10(X) = 39 THEN THIRTY9 = THIRTY9 + 1
IF ENTRY10(X) = 40 THEN FOURTY = FOURTY + 1
IF ENTRY10(X) = 41 THEN FOURTY1 = FOURTY1 + 1
IF ENTRY10(X) = 42 THEN FOURTY2 = FOURTY2 + 1
IF ENTRY10(X) = 43 THEN FOURTY3 = FOURTY3 + 1
IF ENTRY10(X) = 44 THEN FOURTY4 = FOURTY4 + 1
IF ENTRY10(X) = 45 THEN FOURTY5 = FOURTY5 + 1
IF ENTRY10(X) = 46 THEN FOURTY6 = FOURTY6 + 1
IF ENTRY10(X) = 47 THEN FOURTY7 = FOURTY7 + 1
IF ENTRY10(X) = 48 THEN FOURTY8 = FOURTY8 + 1
IF ENTRY10(X) = 49 THEN FOURTY9 = FOURTY9 + 1
IF ENTRY10(X) = 50 THEN FIFTY = FIFTY + 1
IF ENTRY10(X) = 51 THEN FIFTY1 = FIFTY1 + 1
IF ENTRY10(X) = 52 THEN FIFTY2 = FIFTY2 + 1
NEXT X
FIRST = 0
SECOND = 0
THIRD = 0
FOURTH = 0
FIFTH = 0
SIXTH = 0
SEVENTH = 0
EIGHTH = 0
NINETH = 0
TENTH = 0
PICKED = 0
N1 = 0
N2 = 0
N3 = 0
N4 = 0
N5 = 0
N6 = 0
N7 = 0
N8 = 0
N9 = 0
N10 = 0
N11 = 0
N12 = 0
N13 = 0
N14 = 0
N15 = 0
N16 = 0
N17 = 0
N18 = 0
N19 = 0
N20 = 0
N21 = 0
N22 = 0
N23 = 0
N24 = 0
N25 = 0
N26 = 0
N27 = 0
N28 = 0
N29 = 0
N30 = 0
N31 = 0
N32 = 0
N33 = 0
N34 = 0
N35 = 0
N36 = 0
N37 = 0
N38 = 0
N39 = 0
N40 = 0
N41 = 0
N42 = 0
N43 = 0
N44 = 0
N45 = 0
N46 = 0
N47 = 0
N48 = 0
N49 = 0
N50 = 0
N51 = 0
N52 = 0

FOR Z = 1 TO 10

IF (PICKED < ONES) AND (N1 = 0) THEN
PICKED = 1
N1 = 1
END IF
IF (PICKED < TWOS) AND (N2 = 0) THEN
PICKED = 2
N2 = 1
END IF
IF (PICKED < THREES) AND (N3 = 0) THEN
PICKED = 3
N3 = 1
END IF
IF (PICKED < FOURS) AND (N4 = 0) THEN
PICKED = 4
N4 = 1
END IF
IF (PICKED < FIVES) AND (N5 = 0) THEN
PICKED = 5
N5 = 1
END IF
IF (PICKED < SIXES) AND (N6 = 0) THEN
PICKED = 6
N6 = 0
END IF
IF (PICKED < SEVENS) AND (N7 = 0) THEN
PICKED = 7
N7 = 1
END IF
IF (PICKED < EIGHTS) AND (N8 = 0) THEN
PICKED = 8
N8 = 1
END IF
IF (PICKED < NINES) AND (N9 = 0) THEN
PICKED = 9
N9 = 1
END IF
IF (PICKED < TENS) AND (N10 = 0) THEN
PICKED = 10
N10 = 1
END IF
IF (PICKED < ELEVENS) AND (N11 = 0) THEN
PICKED = 11
N11 = 1
END IF
IF (PICKED < TWELVES) AND (N12 = 0) THEN
PICKED = 12
N12 = 1
END IF
IF (PICKED < THIRTEENS) AND (N13 = 0) THEN
PICKED = 13
N13 = 1
END IF
IF (PICKED < FOURTEENS) AND (N14 = 0) THEN
PICKED = 14
N14 = 1
END IF
IF (PICKED < FIFTEENS) AND (N15 = 0) THEN
PICKED = 15
N15 = 1
END IF
IF (PICKED < SIXTEENS) AND (N16 = 0) THEN
PICKED = 16
N16 = 1
END IF
IF (PICKED < SEVENTEENS) AND (N17 = 0) THEN
PICKED = 17
N17 = 1
END IF
IF (PICKED < EIGHTEENS) AND (N18 = 0) THEN
PICKED = 18
N18 = 1
END IF
IF (PICKED < NINETEENS) AND (N19 = 0) THEN
PICKED = 19
N19 = 1
END IF
IF (PICKED < TWENTIES) AND (N20 = 0) THEN
PICKED = 20
N20 = 1
END IF
IF (PICKED < TWENTY1) AND (N21 = 0) THEN
PICKED = 21
N21 = 1
END IF
IF (PICKED < TWENTY2) AND (N22 = 0) THEN
PICKED = 21
N22 = 1
END IF
IF (PICKED < TWENTY3) AND (N23 = 0) THEN
PICKED = 23
N23 = 1
END IF
IF (PICKED < TWENTY4) AND (N24 = 0) THEN
PICKED = 24
N24 = 1
END IF
IF (PICKED < TWENTY5) AND ((FIRST > TWENTY5) OR (FIRST < TWENTY5)) AND ((SECOND > TWENTY5) OR (SECOND < TWENTY5)) AND ((THIRD > TWENTY5) OR (THIRD < TWENTY5)) AND ((FOURTH > TWENTY5) OR (FOURTH < TWENTY5)) AND ((FIFTH > TWENTY5) OR (FIFTH < TWENTY5)) AND ((SIXTH > TWENTY5) OR (SIXTH < TWENTY5)) AND ((SEVENTH > TWENTY5) OR (SEVENTH < TWENTY5)) AND ((EIGHTH > TWENTY5) OR (EIGHTH < TWENTY5)) AND ((NINETH > TWENTY5) OR (NINETH < TWENTY5)) AND ((TENTH > TWENTY5) OR (TENTH < TWENTY5)) THEN
PICKED = 25
END IF
IF (PICKED < TWENTY6) AND ((FIRST > TWENTY6) OR (FIRST < TWENTY6)) AND ((SECOND > TWENTY6) OR (SECOND < TWENTY6)) AND ((THIRD > TWENTY6) OR (THIRD < TWENTY6)) AND ((FOURTH > TWENTY6) OR (FOURTH < TWENTY6)) AND ((FIFTH > TWENTY6) OR (FIFTH < TWENTY6)) AND ((SIXTH > TWENTY6) OR (SIXTH < TWENTY6)) AND ((SEVENTH > TWENTY6) OR (SEVENTH < TWENTY6)) AND ((EIGHTH > TWENTY6) OR (EIGHTH < TWENTY6)) AND ((NINETH > TWENTY6) OR (NINETH < TWENTY6)) AND ((TENTH > TWENTY6) OR (TENTH < TWENTY6)) THEN
PICKED = 26
END IF
IF (PICKED < TWENTY7) AND ((FIRST > TWENTY7) OR (FIRST < TWENTY7)) AND ((SECOND > TWENTY7) OR (SECOND < TWENTY7)) AND ((THIRD > TWENTY7) OR (THIRD < TWENTY7)) AND ((FOURTH > TWENTY7) OR (FOURTH < TWENTY7)) AND ((FIFTH > TWENTY7) OR (FIFTH < TWENTY7)) AND ((SIXTH > TWENTY7) OR (SIXTH < TWENTY7)) AND ((SEVENTH > TWENTY7) OR (SEVENTH < TWENTY7)) AND ((EIGHTH > TWENTY7) OR (EIGHTH < TWENTY7)) AND ((NINETH > TWENTY7) OR (NINETH < TWENTY7)) AND ((TENTH > TWENTY7) OR (TENTH < TWENTY7)) THEN
PICKED = 27
END IF
IF (PICKED < TWENTY8) AND ((FIRST > TWENTY8) OR (FIRST < TWENTY8)) AND ((SECOND > TWENTY8) OR (SECOND < TWENTY8)) AND ((THIRD > TWENTY8) OR (THIRD < TWENTY8)) AND ((FOURTH > TWENTY8) OR (FOURTH < TWENTY8)) AND ((FIFTH > TWENTY8) OR (FIFTH < TWENTY8)) AND ((SIXTH > TWENTY8) OR (SIXTH < TWENTY8)) AND ((SEVENTH > TWENTY8) OR (SEVENTH < TWENTY8)) AND ((EIGHTH > TWENTY8) OR (EIGHTH < TWENTY8)) AND ((NINETH > TWENTY8) OR (NINETH < TWENTY8)) AND ((TENTH > TWENTY8) OR (TENTH < TWENTY8)) THEN
PICKED = 28
END IF
IF (PICKED < TWENTY9) AND ((FIRST > TWENTY9) OR (FIRST < TWENTY9)) AND ((SECOND > TWENTY9) OR (SECOND < TWENTY9)) AND ((THIRD > TWENTY9) OR (THIRD < TWENTY9)) AND ((FOURTH > TWENTY9) OR (FOURTH < TWENTY9)) AND ((FIFTH > TWENTY9) OR (FIFTH < TWENTY9)) AND ((SIXTH > TWENTY9) OR (SIXTH < TWENTY9)) AND ((SEVENTH > TWENTY9) OR (SEVENTH < TWENTY9)) AND ((EIGHTH > TWENTY9) OR (EIGHTH < TWENTY9)) AND ((NINETH > TWENTY9) OR (NINETH < TWENTY9)) AND ((TENTH > TWENTY9) OR (TENTH < TWENTY9)) THEN
PICKED = 29
END IF
IF (PICKED < THIRTY) AND ((FIRST > THIRTY) OR (FIRST < THIRTY)) AND ((SECOND > THIRTY) OR (SECOND < THIRTY)) AND ((THIRD > THIRTY) OR (THIRD < THIRTY)) AND ((FOURTH > THIRTY) OR (FOURTH < THIRTY)) AND ((FIFTH > THIRTY) OR (FIFTH < THIRTY)) AND ((SIXTH > THIRTY) OR (SIXTH < THIRTY)) AND ((SEVENTH > THIRTY) OR (SEVENTH < THIRTY)) AND ((EIGHTH > THIRTY) OR (EIGHTH < THIRTY)) AND ((NINETH > THIRTY) OR (NINETH < THIRTY)) AND ((TENTH > THIRTY) OR (TENTH < THIRTY)) THEN
PICKED = 30
END IF
IF (PICKED < THIRTY1) AND ((FIRST > THIRTY1) OR (FIRST < THIRTY1)) AND ((SECOND > THIRTY1) OR (SECOND < THIRTY1)) AND ((THIRD > THIRTY1) OR (THIRD < THIRTY1)) AND ((FOURTH > THIRTY1) OR (FOURTH < THIRTY1)) AND ((FIFTH > THIRTY1) OR (FIFTH < THIRTY1)) AND ((SIXTH > THIRTY1) OR (SIXTH < THIRTY1)) AND ((SEVENTH > THIRTY1) OR (SEVENTH < THIRTY1)) AND ((EIGHTH > THIRTY1) OR (EIGHTH < THIRTY1)) AND ((NINETH > THIRTY1) OR (NINETH < THIRTY1)) AND ((TENTH > THIRTY1) OR (TENTH < THIRTY1)) THEN
PICKED = 31
END IF
IF (PICKED < THIRTY2) AND ((FIRST > THIRTY2) OR (FIRST < THIRTY2)) AND ((SECOND > THIRTY2) OR (SECOND < THIRTY2)) AND ((THIRD > THIRTY2) OR (THIRD < THIRTY2)) AND ((FOURTH > THIRTY2) OR (FOURTH < THIRTY2)) AND ((FIFTH > THIRTY2) OR (FIFTH < THIRTY2)) AND ((SIXTH > THIRTY2) OR (SIXTH < THIRTY2)) AND ((SEVENTH > THIRTY2) OR (SEVENTH < THIRTY2)) AND ((EIGHTH > THIRTY2) OR (EIGHTH < THIRTY2)) AND ((NINETH > THIRTY2) OR (NINETH < THIRTY2)) AND ((TENTH > THIRTY2) OR (TENTH < THIRTY2)) THEN
PICKED = 32
END IF
IF (PICKED < THIRTY3) AND ((FIRST > THIRTY3) OR (FIRST < THIRTY3)) AND ((SECOND > THIRTY3) OR (SECOND < THIRTY3)) AND ((THIRD > THIRTY3) OR (THIRD < THIRTY3)) AND ((FOURTH > THIRTY3) OR (FOURTH < THIRTY3)) AND ((FIFTH > THIRTY3) OR (FIFTH < THIRTY3)) AND ((SIXTH > THIRTY3) OR (SIXTH < THIRTY3)) AND ((SEVENTH > THIRTY3) OR (SEVENTH < THIRTY3)) AND ((EIGHTH > THIRTY3) OR (EIGHTH < THIRTY3)) AND ((NINETH > THIRTY3) OR (NINETH < THIRTY3)) AND ((TENTH > THIRTY3) OR (TENTH < THIRTY3)) THEN
PICKED = 33
END IF
IF (PICKED < THIRTY4) AND ((FIRST > THIRTY4) OR (FIRST < THIRTY4)) AND ((SECOND > THIRTY4) OR (SECOND < THIRTY4)) AND ((THIRD > THIRTY4) OR (THIRD < THIRTY4)) AND ((FOURTH > THIRTY4) OR (FOURTH < THIRTY4)) AND ((FIFTH > THIRTY4) OR (FIFTH < THIRTY4)) AND ((SIXTH > THIRTY4) OR (SIXTH < THIRTY4)) AND ((SEVENTH > THIRTY4) OR (SEVENTH < THIRTY4)) AND ((EIGHTH > THIRTY4) OR (EIGHTH < THIRTY4)) AND ((NINETH > THIRTY4) OR (NINETH < THIRTY4)) AND ((TENTH > THIRTY4) OR (TENTH < THIRTY4)) THEN
PICKED = 34
END IF
IF (PICKED < THIRTY5) AND ((FIRST > THIRTY5) OR (FIRST < THIRTY5)) AND ((SECOND > THIRTY5) OR (SECOND < THIRTY5)) AND ((THIRD > THIRTY5) OR (THIRD < THIRTY5)) AND ((FOURTH > THIRTY5) OR (FOURTH < THIRTY5)) AND ((FIFTH > THIRTY5) OR (FIFTH < THIRTY5)) AND ((SIXTH > THIRTY5) OR (SIXTH < THIRTY5)) AND ((SEVENTH > THIRTY5) OR (SEVENTH < THIRTY5)) AND ((EIGHTH > THIRTY5) OR (EIGHTH < THIRTY5)) AND ((NINETH > THIRTY5) OR (NINETH < THIRTY5)) AND ((TENTH > THIRTY5) OR (TENTH < THIRTY5)) THEN
PICKED = 35
END IF
IF (PICKED < THIRTY6) AND ((FIRST > THIRTY6) OR (FIRST < THIRTY6)) AND ((SECOND > THIRTY6) OR (SECOND < THIRTY6)) AND ((THIRD > THIRTY6) OR (THIRD < THIRTY6)) AND ((FOURTH > THIRTY6) OR (FOURTH < THIRTY6)) AND ((FIFTH > THIRTY6) OR (FIFTH < THIRTY6)) AND ((SIXTH > THIRTY6) OR (SIXTH < THIRTY6)) AND ((SEVENTH > THIRTY6) OR (SEVENTH < THIRTY6)) AND ((EIGHTH > THIRTY6) OR (EIGHTH < THIRTY6)) AND ((NINETH > THIRTY6) OR (NINETH < THIRTY6)) AND ((TENTH > THIRTY6) OR (TENTH < THIRTY6)) THEN
PICKED = 36
END IF
IF (PICKED < THIRTY7) AND ((FIRST > THIRTY7) OR (FIRST < THIRTY7)) AND ((SECOND > THIRTY7) OR (SECOND < THIRTY7)) AND ((THIRD > THIRTY7) OR (THIRD < THIRTY7)) AND ((FOURTH > THIRTY7) OR (FOURTH < THIRTY7)) AND ((FIFTH > THIRTY7) OR (FIFTH < THIRTY7)) AND ((SIXTH > THIRTY7) OR (SIXTH < THIRTY7)) AND ((SEVENTH > THIRTY7) OR (SEVENTH < THIRTY7)) AND ((EIGHTH > THIRTY7) OR (EIGHTH < THIRTY7)) AND ((NINETH > THIRTY7) OR (NINETH < THIRTY7)) AND ((TENTH > THIRTY7) OR (TENTH < THIRTY7)) THEN
PICKED = 37
END IF
IF (PICKED < THIRTY8) AND ((FIRST > THIRTY8) OR (FIRST < THIRTY8)) AND ((SECOND > THIRTY8) OR (SECOND < THIRTY8)) AND ((THIRD > THIRTY8) OR (THIRD < THIRTY8)) AND ((FOURTH > THIRTY8) OR (FOURTH < THIRTY8)) AND ((FIFTH > THIRTY8) OR (FIFTH < THIRTY8)) AND ((SIXTH > THIRTY8) OR (SIXTH < THIRTY8)) AND ((SEVENTH > THIRTY8) OR (SEVENTH < THIRTY8)) AND ((EIGHTH > THIRTY8) OR (EIGHTH < THIRTY8)) AND ((NINETH > THIRTY8) OR (NINETH < THIRTY8)) AND ((TENTH > THIRTY8) OR (TENTH < THIRTY8)) THEN
PICKED = 38
END IF
IF (PICKED < THIRTY9) AND ((FIRST > THIRTY9) OR (FIRST < THIRTY9)) AND ((SECOND > THIRTY9) OR (SECOND < THIRTY9)) AND ((THIRD > THIRTY9) OR (THIRD < THIRTY9)) AND ((FOURTH > THIRTY9) OR (FOURTH < THIRTY9)) AND ((FIFTH > THIRTY9) OR (FIFTH < THIRTY9)) AND ((SIXTH > THIRTY9) OR (SIXTH < THIRTY9)) AND ((SEVENTH > THIRTY9) OR (SEVENTH < THIRTY9)) AND ((EIGHTH > THIRTY9) OR (EIGHTH < THIRTY9)) AND ((NINETH > THIRTY9) OR (NINETH < THIRTY9)) AND ((TENTH > THIRTY9) OR (TENTH < THIRTY9)) THEN
PICKED = 39
END IF
IF (PICKED < FOURTY) AND ((FIRST > FOURTY) OR (FIRST < FOURTY)) AND ((SECOND > FOURTY) OR (SECOND < FOURTY)) AND ((THIRD > FOURTY) OR (THIRD < FOURTY)) AND ((FOURTH > FOURTY) OR (FOURTH < FOURTY)) AND ((FIFTH > FOURTY) OR (FIFTH < FOURTY)) AND ((SIXTH > FOURTY) OR (SIXTH < FOURTY)) AND ((SEVENTH > FOURTY) OR (SEVENTH < FOURTY)) AND ((EIGHTH > FOURTY) OR (EIGHTH < FOURTY)) AND ((NINETH > FOURTY) OR (NINETH < FOURTY)) AND ((TENTH > FOURTY) OR (TENTH < FOURTY)) THEN
PICKED = 40
END IF
IF (PICKED < FOURTY1) AND ((FIRST > FOURTY1) OR (FIRST < FOURTY1)) AND ((SECOND > FOURTY1) OR (SECOND < FOURTY1)) AND ((THIRD > FOURTY1) OR (THIRD < FOURTY1)) AND ((FOURTH > FOURTY1) OR (FOURTH < FOURTY1)) AND ((FIFTH > FOURTY1) OR (FIFTH < FOURTY1)) AND ((SIXTH > FOURTY1) OR (SIXTH < FOURTY1)) AND ((SEVENTH > FOURTY1) OR (SEVENTH < FOURTY1)) AND ((EIGHTH > FOURTY1) OR (EIGHTH < FOURTY1)) AND ((NINETH > FOURTY1) OR (NINETH < FOURTY1)) AND ((TENTH > FOURTY1) OR (TENTH < FOURTY1)) THEN
PICKED = 41
END IF
IF (PICKED < FOURTY2) AND ((FIRST > FOURTY2) OR (FIRST < FOURTY2)) AND ((SECOND > FOURTY2) OR (SECOND < FOURTY2)) AND ((THIRD > FOURTY2) OR (THIRD < FOURTY2)) AND ((FOURTH > FOURTY2) OR (FOURTH < FOURTY2)) AND ((FIFTH > FOURTY2) OR (FIFTH < FOURTY2)) AND ((SIXTH > FOURTY2) OR (SIXTH < FOURTY2)) AND ((SEVENTH > FOURTY2) OR (SEVENTH < FOURTY2)) AND ((EIGHTH > FOURTY2) OR (EIGHTH < FOURTY2)) AND ((NINETH > FOURTY2) OR (NINETH < FOURTY2)) AND ((TENTH > FOURTY2) OR (TENTH < FOURTY2)) THEN
PICKED = 42
END IF
IF (PICKED < FOURTY3) AND ((FIRST > FOURTY3) OR (FIRST < FOURTY3)) AND ((SECOND > FOURTY3) OR (SECOND < FOURTY3)) AND ((THIRD > FOURTY3) OR (THIRD < FOURTY3)) AND ((FOURTH > FOURTY3) OR (FOURTH < FOURTY3)) AND ((FIFTH > FOURTY3) OR (FIFTH < FOURTY3)) AND ((SIXTH > FOURTY3) OR (SIXTH < FOURTY3)) AND ((SEVENTH > FOURTY3) OR (SEVENTH < FOURTY3)) AND ((EIGHTH > FOURTY3) OR (EIGHTH < FOURTY3)) AND ((NINETH > FOURTY3) OR (NINETH < FOURTY3)) AND ((TENTH > FOURTY3) OR (TENTH < FOURTY3)) THEN
PICKED = 43
END IF
IF (PICKED < FOURTY4) AND ((FIRST > FOURTY4) OR (FIRST < FOURTY4)) AND ((SECOND > FOURTY4) OR (SECOND < FOURTY4)) AND ((THIRD > FOURTY4) OR (THIRD < FOURTY4)) AND ((FOURTH > FOURTY4) OR (FOURTH < FOURTY4)) AND ((FIFTH > FOURTY4) OR (FIFTH < FOURTY4)) AND ((SIXTH > FOURTY4) OR (SIXTH < FOURTY4)) AND ((SEVENTH > FOURTY4) OR (SEVENTH < FOURTY4)) AND ((EIGHTH > FOURTY4) OR (EIGHTH < FOURTY4)) AND ((NINETH > FOURTY4) OR (NINETH < FOURTY4)) AND ((TENTH > FOURTY4) OR (TENTH < FOURTY4)) THEN
PICKED = 44
END IF
IF (PICKED < FOURTY5) AND ((FIRST > FOURTY5) OR (FIRST < FOURTY5)) AND ((SECOND > FOURTY5) OR (SECOND < FOURTY5)) AND ((THIRD > FOURTY5) OR (THIRD < FOURTY5)) AND ((FOURTH > FOURTY5) OR (FOURTH < FOURTY5)) AND ((FIFTH > FOURTY5) OR (FIFTH < FOURTY5)) AND ((SIXTH > FOURTY5) OR (SIXTH < FOURTY5)) AND ((SEVENTH > FOURTY5) OR (SEVENTH < FOURTY5)) AND ((EIGHTH > FOURTY5) OR (EIGHTH < FOURTY5)) AND ((NINETH > FOURTY5) OR (NINETH < FOURTY5)) AND ((TENTH > FOURTY5) OR (TENTH < FOURTY5)) THEN
PICKED = 45
END IF
IF (PICKED < FOURTY6) AND ((FIRST > FOURTY6) OR (FIRST < FOURTY6)) AND ((SECOND > FOURTY6) OR (SECOND < FOURTY6)) AND ((THIRD > FOURTY6) OR (THIRD < FOURTY6)) AND ((FOURTH > FOURTY6) OR (FOURTH < FOURTY6)) AND ((FIFTH > FOURTY6) OR (FIFTH < FOURTY6)) AND ((SIXTH > FOURTY6) OR (SIXTH < FOURTY6)) AND ((SEVENTH > FOURTY6) OR (SEVENTH < FOURTY6)) AND ((EIGHTH > FOURTY6) OR (EIGHTH < FOURTY6)) AND ((NINETH > FOURTY6) OR (NINETH < FOURTY6)) AND ((TENTH > FOURTY6) OR (TENTH < FOURTY6)) THEN
PICKED = 46
END IF
IF (PICKED < FOURTY7) AND ((FIRST > FOURTY7) OR (FIRST < FOURTY7)) AND ((SECOND > FOURTY7) OR (SECOND < FOURTY7)) AND ((THIRD > FOURTY7) OR (THIRD < FOURTY7)) AND ((FOURTH > FOURTY7) OR (FOURTH < FOURTY7)) AND ((FIFTH > FOURTY7) OR (FIFTH < FOURTY7)) AND ((SIXTH > FOURTY7) OR (SIXTH < FOURTY7)) AND ((SEVENTH > FOURTY7) OR (SEVENTH < FOURTY7)) AND ((EIGHTH > FOURTY7) OR (EIGHTH < FOURTY7)) AND ((NINETH > FOURTY7) OR (NINETH < FOURTY7)) AND ((TENTH > FOURTY7) OR (TENTH < FOURTY7)) THEN
PICKED = 47
END IF
IF (PICKED < FOURTY8) AND ((FIRST > FOURTY8) OR (FIRST < FOURTY8)) AND ((SECOND > FOURTY8) OR (SECOND < FOURTY8)) AND ((THIRD > FOURTY8) OR (THIRD < FOURTY8)) AND ((FOURTH > FOURTY8) OR (FOURTH < FOURTY8)) AND ((FIFTH > FOURTY8) OR (FIFTH < FOURTY8)) AND ((SIXTH > FOURTY8) OR (SIXTH < FOURTY8)) AND ((SEVENTH > FOURTY8) OR (SEVENTH < FOURTY8)) AND ((EIGHTH > FOURTY8) OR (EIGHTH < FOURTY8)) AND ((NINETH > FOURTY8) OR (NINETH < FOURTY8)) AND ((TENTH > FOURTY8) OR (TENTH < FOURTY8)) THEN
PICKED = 48
END IF
IF (PICKED < FOURTY9) AND ((FIRST > FOURTY9) OR (FIRST < FOURTY9)) AND ((SECOND > FOURTY9) OR (SECOND < FOURTY9)) AND ((THIRD > FOURTY9) OR (THIRD < FOURTY9)) AND ((FOURTH > FOURTY9) OR (FOURTH < FOURTY9)) AND ((FIFTH > FOURTY9) OR (FIFTH < FOURTY9)) AND ((SIXTH > FOURTY9) OR (SIXTH < FOURTY9)) AND ((SEVENTH > FOURTY9) OR (SEVENTH < FOURTY9)) AND ((EIGHTH > FOURTY9) OR (EIGHTH < FOURTY9)) AND ((NINETH > FOURTY9) OR (NINETH < FOURTY9)) AND ((TENTH > FOURTY9) OR (TENTH < FOURTY9)) THEN
PICKED = 49
END IF
IF (PICKED < FIFTY) AND ((FIRST > FIFTY) OR (FIRST < FIFTY)) AND ((SECOND > FIFTY) OR (SECOND < FIFTY)) AND ((THIRD > FIFTY) OR (THIRD < FIFTY)) AND ((FOURTH > FIFTY) OR (FOURTH < FIFTY)) AND ((FIFTH > FIFTY) OR (FIFTH < FIFTY)) AND ((SIXTH > FIFTY) OR (SIXTH < FIFTY)) AND ((SEVENTH > FIFTY) OR (SEVENTH < FIFTY)) AND ((EIGHTH > FIFTY) OR (EIGHTH < FIFTY)) AND ((NINETH > FIFTY) OR (NINETH < FIFTY)) AND ((TENTH > FIFTY) OR (TENTH < FIFTY)) THEN
PICKED = 50
END IF
IF (PICKED < FIFTY1) AND ((FIRST > FIFTY1) OR (FIRST < FIFTY1)) AND ((SECOND > FIFTY1) OR (SECOND < FIFTY1)) AND ((THIRD > FIFTY1) OR (THIRD < FIFTY1)) AND ((FOURTH > FIFTY1) OR (FOURTH < FIFTY1)) AND ((FIFTH > FIFTY1) OR (FIFTH < FIFTY1)) AND ((SIXTH > FIFTY1) OR (SIXTH < FIFTY1)) AND ((SEVEN
Not yet Snake! It's not over yet!
Reply
#6
Isn't there a way to shrink that using combination and permutation calculations? I'm not gonna bother considering this stuff cuz I really suck at it anyway.
am part of the legion of n00b. We are numerous if dumb. We will enslave you all!
Reply
#7
I don't know. This is the only way I saw to do it. If I can do the same thing and use less space, please let me know.
Not yet Snake! It's not over yet!
Reply
#8
HOLY ****!!!!!

I'm in HEAVEN!! I used to love fixing up these humongously redundant programs!

Try this:

IM ENTRY%(1 TO 10, 1 to 10)


also, instead of:

IF ENTRY7(X) = 1 THEN ONES = ONES + 1
IF ENTRY7(X) = 2 THEN TWOS = TWOS + 1
etc., etc.
IF ENTRY(X, N%) = N% THEN BLAH(N%) = BLAH(N%) + 1
Peace cannot be obtained without war. Why? If there is already peace, it is unnecessary for war. If there is no peace, there is already war."

Visit www.neobasic.net to see rubbish in all its finest.
Reply
#9
Liquid Snake:
You should really try to use more arrays and loops in your programs.
I have tried to shorten the program, just as an example. I have almost certainly broken something in the change, so it will need more debugging than your version...
Code:
REM Lottery Probability
REM By Tom White
CLS
REM %=INTEGER
REM array declaration
defint a-z

dim entry(1 to 10, 1 to 10)
dim x(1 to 52)
DIM NTH(1 to 10)
dim nx(1 to 52)
for i=1 to 52:x(i)=0:next


PRINT "WELCOME TO MY LOTTERY PROBABILITY PROGRAM."
PRINT "THIS PROGRAM WILL BASICALLY TELL YOU WHICH NUMBERS COME UP THE MOST AND LEAST."
PRINT "I HAVE NO IDEA IF YOU'LL WIN OR NOT...IT'S SUPPOSEDLY RANDOM."
PRINT
PRINT "YOU CAN ENTER UP TO 10 SETS OF NUMBERS."
PRINT "YOU CAN ENTER A MAXIMUM OF 10 NUMBERS PER SET. IF THERE ARE LESS"
PRINT "THAN 10 NUMBERS PER SET, JUST USE 0'S FOR THOSE EXTRA SPACES"
PRINT
PRINT
PRINT
PRINT "PRESS ANY KEY TO CONTINUE"
SLEEP 40
PRINT
PRINT "LETS GET STARTED."
PLACE = 0
DO
    IF PLACE = 0 THEN GOSUB HOME
    IF PLACE = 1 THEN GOSUB NUMBERS
    IF PLACE = 2 THEN GOSUB PROB
    IF PLACE = 3 THEN GOSUB SAVE
    IF PLACE = 4 THEN GOSUB LOAD
    IF PLACE = 5 THEN END
LOOP
'
'---------------------------------------------------------------------------------------------------
HOME:
    PRINT
    1 PRINT "MAIN"
    PRINT "HERE ARE YOUR CHOICES"
    PRINT "1. START PUTTING IN NUMBERS"
    PRINT "2. SHOW PROBABILITIES"
    PRINT "3. SAVE NUMBERS"
    PRINT "4. LOAD NUMBERS"
    PRINT "5. QUIT"
    DO
        INPUT PLACE
        PLACE = INT(PLACE)
    LOOP UNTIL (PLACE > 0) AND (PLACE < 6)
RETURN
'
'-------------------------------------------------------------------------------------------------------
NUMBERS:
    PRINT
    PRINT "I HAVEN'T REALLY MADE THIS DUMMY PROOF, SO IF YOU MESS UP, YOU'RE IN TROUBLE."
    PRINT "SO REMEMBER...PLACE ZEROES INTO THE EXTRA SPACES. THERE ARE 10 SPACES IN ALL."
    PRINT "AFTER EACH ENTRY PRESS ENTER. AND FOLLOW THE DIRECTIONS!"
    
    
    FOR I=1 TO 10
        INPUT "ENTER THE NUMBERS FOR THIS FIRST ENTRY, EACH FOLLOWED BY A COMMA, EXCEPT FOR THE LAST ONE"; A, B, C, D, E, F, G, H, I, J
        ENTRY(I,1) = A
        ENTRY(I,2) = B
        ENTRY(I,3) = C
        ENTRY(I,4) = D
        ENTRY(I,5) = E
        ENTRY(I,6) = F
        ENTRY(I,7) = G
        ENTRY(I,8) = H
        ENTRY(I,9) = I
        ENTRY(I,10) = J
        DO
            INPUT "DO YOU WANT TO STOP?(Y/N)"; DONE$
            IF (DONE$ = "Y") THEN GOTO 1
        LOOP UNTIL DONE$ = "N"
    NEXT
    PLACE = 0
RETURN
'
'
'-----------------------------------------------------------------------------------------------------------

PROB:
PRINT "GETTING THE PROBABILITY OF THE NUMBERS(MOST COMMON)."
REM ALL ENTRIES
FOR X1=1 TO 10
    FOR X = 1 TO 10
        x1=ENTRY(1,x)
        x(x1)=x(x1)+1
    NEXT X
NEXT X1
'
'
'
for i=1 to 10:
  nth(i)=0
next
PICKED = 0
for i=1 to 52
   nx(i)=0:
next

FOR Z = 1 TO 10
  
for i=1 to 24
   if (picked < x(i)) and (nx(i)=0) then
   picked=i :nx(i)=1
   end if
next
  
for i=25 to  52
   if (picked < x(i)) then
     flag=0
     for j=1 to 10
       if nth(j)=x(i) then flag=1:exit for
     next
     if flag=0 then picked=i
    end if
next  
            
nth(z)=picked

PRINT Z
PRINT PICKED
SLEEP 10
NEXT Z
PRINT "YOUR FIRST SET: ";"-";
for i=1 to 10
  print nth(i);"-";
next
PLACE = 0
RETURN
'
'
'-----------------------------------------------------------------------------------------------------------------
SAVE:
INPUT "ENTER A SMALL FILENAME"; FILENAME$
OPEN FILENAME$ FOR OUTPUT AS #1
for i=1 to 52
PRINT #1, x(i)
next
CLOSE
PLACE = 0
RETURN
'
'
'------------------------------------------------------------------------------------------------------------------
LOAD:
INPUT "WHAT IS YOUR FILE CALLED?"; FILENAME$
FILENAME$ = FILENAME$ + ".TXT"
OPEN FILENAME$ FOR INPUT AS #1
DO
IF EOF(1) = -1 THEN EXIT DO
for i=1 to 52
INPUT #1, x(i)
next
LOOP
CLOSE
PLACE = 0
RETURN
Antoni
Reply
#10
This was my first time experimenting with arrays in QB, so I didn't want everything to depend on arrays if it didn't work. I put like months into this back in I think Feb or March 2005. I can't even remember most of what I did. I could always use more space, I think I still need to make the save and load feature in it, so please continue to help.
Not yet Snake! It's not over yet!
Reply


Forum Jump:


Users browsing this thread: 1 Guest(s)