10-05-2005, 07:05 AM
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!
Who here is VERY good at troubleshooting QB programs?
|
10-05-2005, 07:05 AM
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!
10-06-2005, 12:28 AM
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 *****
10-06-2005, 01:02 AM
Don't worry, this is a regular program, not a game.
Not yet Snake! It's not over yet!
10-06-2005, 04:51 AM
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!
10-06-2005, 06:54 AM
[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 "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 "PRESS ANY KEY TO CONTINUE" SLEEP 40 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: 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 "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!
10-07-2005, 09:36 PM
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!
10-07-2005, 11:35 PM
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!
10-08-2005, 07:26 AM
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.
10-09-2005, 09:05 PM
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
Antoni
10-10-2005, 05:38 AM
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!
|
« Next Oldest | Next Newest »
|