question about PEEK and POKE - hello need to know what this is doing

[bplus]

Code: QB64: [Select]

1. PRINT STR$((INT(RND * TIMER)) MOD 69 + 1); STR$((INT(RND * TIMER)) MOD 69 + 1); STR$((INT(RND * TIMER)) MOD 69 + 1); STR$((INT(RND * TIMER)) MOD 69 + 1); STR$((INT(RND * TIMER)) MOD 69 + 1); " Red Ball"; STR$((INT(RND * TIMER)) MOD 26 + 1)
2.  

Probably not always right but what are the odds?

About 86.3% Good!

Code: QB64: [Select]

1. 1 test$ = STR$((INT(RND * TIMER)) MOD 69 + 1) + STR$((INT(RND * TIMER)) MOD 69 + 1) + STR$((INT(RND * TIMER)) MOD 69 + 1) + STR$((INT(RND * TIMER)) MOD 69 + 1) + STR$((INT(RND * TIMER)) MOD 69 + 1) + " Red Ball" + STR$((INT(RND * TIMER)) MOD 26 + 1)
2. REDIM p$(0)
3. Split test$, " ", p$()
4. noGoodF = 0
5. FOR i = 1 TO 5
6.     PRINT p$(i); ", ";
7.     IF i > 1 THEN
8.         FOR j = 1 TO i - 1
9.             IF p$(i) = p$(j) THEN noGoodF = -1
10.         NEXT
11.     END IF
12. NEXT
13. IF noGoodF THEN
14.     PRINT "No Good": NoGood = NoGood + 1
15. ELSE
16.     PRINT "Good!": good = good + 1
17. END IF
18. testN = testN + 1
19. IF testN < 100000 THEN GOTO 1
20. PRINT "Good"; good; ", No Good"; NoGood
21.  
22. SUB Split (SplitMeString AS STRING, delim AS STRING, loadMeArray() AS STRING)
23.     DIM curpos AS LONG, arrpos AS LONG, LD AS LONG, dpos AS LONG 'fix use the Lbound the array already has
24.     curpos = 1: arrpos = LBOUND(loadMeArray): LD = LEN(delim)
25.     dpos = INSTR(curpos, SplitMeString, delim)
26.     DO UNTIL dpos = 0
27.         loadMeArray(arrpos) = MID$(SplitMeString, curpos, dpos - curpos)
28.         arrpos = arrpos + 1
29.         IF arrpos > UBOUND(loadMeArray) THEN REDIM _PRESERVE loadMeArray(LBOUND(loadMeArray) TO UBOUND(loadMeArray) + 1000) AS STRING
30.         curpos = dpos + LD
31.         dpos = INSTR(curpos, SplitMeString, delim)
32.     LOOP
33.     loadMeArray(arrpos) = MID$(SplitMeString, curpos)
34.     REDIM _PRESERVE loadMeArray(LBOUND(loadMeArray) TO arrpos) AS STRING 'get the ubound correct
35. END SUB
36.  
37.  
38.  

BTW it is 69 white balls
 https://www.google.com/search?client=opera&q=is+the+red+ball+of+power+ball+separate+from+the+other+69&sourceid=opera&ie=UTF-8&oe=UTF-8

The first five regular numbers, which are white balls, are drawn out of a drum with 69 balls; one Powerball, or red ball, is drawn from a separate drum with 26 balls. Matching all five regular numbers, or white balls, in any order and the red Powerball will win you the jackpot.Aug 15, 2017

[bplus]

Alas, I found a slight flaw with Split ;-(

Oh wait if I trimmed test$, yes I do have a value for first = lower bound index in array, OK :)

Code: QB64: [Select]

1. 1 test$ = STR$((INT(RND * TIMER)) MOD 69 + 1) + STR$((INT(RND * TIMER)) MOD 69 + 1) + STR$((INT(RND * TIMER)) MOD 69 + 1) + STR$((INT(RND * TIMER)) MOD 69 + 1) + STR$((INT(RND * TIMER)) MOD 69 + 1) + " Red Ball" + STR$((INT(RND * TIMER)) MOD 26 + 1)
2. REDIM p$(0)
3. Split _TRIM$(test$), " ", p$()
4. noGoodF = 0
5. FOR i = 0 TO 4
6.     PRINT p$(i); ", ";
7.     IF i > 0 THEN
8.         FOR j = 0 TO i - 1
9.             IF p$(i) = p$(j) THEN noGoodF = -1
10.         NEXT
11.     END IF
12. NEXT
13. IF noGoodF THEN
14.     PRINT "No Good": NoGood = NoGood + 1
15. ELSE
16.     PRINT "Good!": good = good + 1
17. END IF
18. testN = testN + 1
19. IF testN < 100000 THEN GOTO 1
20. PRINT "Good"; good; ", No Good"; NoGood
21.  
22. SUB Split (SplitMeString AS STRING, delim AS STRING, loadMeArray() AS STRING)
23.     DIM curpos AS LONG, arrpos AS LONG, LD AS LONG, dpos AS LONG 'fix use the Lbound the array already has
24.     curpos = 1: arrpos = LBOUND(loadMeArray): LD = LEN(delim)
25.     dpos = INSTR(curpos, SplitMeString, delim)
26.     DO UNTIL dpos = 0
27.         loadMeArray(arrpos) = MID$(SplitMeString, curpos, dpos - curpos)
28.         arrpos = arrpos + 1
29.         IF arrpos > UBOUND(loadMeArray) THEN REDIM _PRESERVE loadMeArray(LBOUND(loadMeArray) TO UBOUND(loadMeArray) + 1000) AS STRING
30.         curpos = dpos + LD
31.         dpos = INSTR(curpos, SplitMeString, delim)
32.     LOOP
33.     loadMeArray(arrpos) = MID$(SplitMeString, curpos)
34.     REDIM _PRESERVE loadMeArray(LBOUND(loadMeArray) TO arrpos) AS STRING 'get the ubound correct
35. END SUB
36.  

That's better use of split.