Post by es5100 on Apr 24, 2013 3:13:15 GMT
I need some help here. I can get the program to print unique lotto numbers but it will not locate a specific number for me. I keep getting an error on line 31. This is not homework, just a little project I'm working on. Here it is:(copy it and try to run it):
CLS
COLOR 15, 1
1 REM lotto
20 DIM n(56)
21 INPUT "please type a random-number seed"; seed
25 RANDOMIZE seed 'initialize random number seed
30 FOR i = 1 TO 56
40 a = INT(RND(1) * 56) + 1
50 FOR j = 1 TO i
60 IF n(j) = a THEN GOTO 40
70 NEXT j
80 n(i) = a
90 NEXT i
100 FOR i = 1 TO 56
110 PRINT n(i);
120 NEXT i
125 PRINT
INPUT "what number do you want to search for?(enter 0 to quit)"; position
somenumber = CINT(position) 'change it to an integer
IF somenumber < 0 THEN somenumber = 1 'if it's less than 0, let it = 1
IF somenumber > 56 THEN somenumber = 56 'if it's bigget than 56,let it =56
PRINT "position containing"; somenumber; "are:";
FOR cnt = 1 TO 56
IF somenumber = somearray(cnt) THEN PRINT cnt;
NEXT cnt
PRINT "finish up"
CLS
COLOR 15, 1
1 REM lotto
20 DIM n(56)
21 INPUT "please type a random-number seed"; seed
25 RANDOMIZE seed 'initialize random number seed
30 FOR i = 1 TO 56
40 a = INT(RND(1) * 56) + 1
50 FOR j = 1 TO i
60 IF n(j) = a THEN GOTO 40
70 NEXT j
80 n(i) = a
90 NEXT i
100 FOR i = 1 TO 56
110 PRINT n(i);
120 NEXT i
125 PRINT
INPUT "what number do you want to search for?(enter 0 to quit)"; position
somenumber = CINT(position) 'change it to an integer
IF somenumber < 0 THEN somenumber = 1 'if it's less than 0, let it = 1
IF somenumber > 56 THEN somenumber = 56 'if it's bigget than 56,let it =56
PRINT "position containing"; somenumber; "are:";
FOR cnt = 1 TO 56
IF somenumber = somearray(cnt) THEN PRINT cnt;
NEXT cnt
PRINT "finish up"