That's a very good idea that has been suggested before but haven't been done recently. There use to be a LP member named Mike that did something similar. He would find threads with systems and write them up in a inter-active e-book and sell them on his website. When he started using LP to advertise what he was offering on his website, he got the boot.

He may still be doing it, but I haven't heard anything about him in the last few years.

* you don't need to buy more tickets, just buy a winning ticket *

That's a very good idea that has been suggested before but haven't been done recently. There use to be a LP member named Mike that did something similar. He would find threads with systems and write them up in a inter-active e-book and sell them on his website. When he started using LP to advertise what he was offering on his website, he got the boot.

He may still be doing it, but I haven't heard anything about him in the last few years.

RJOh

I hope Todd finds the time to take up my offer, He is a very busy man though.

RL

Working on my Ph.D. "University of hard Knocks"

I will consider the opinion that my winnings are a product of chance if you are willing to consider

they are not. Many great discoveries come while searching for something else

mid-Ohio United States Member #9 March 24, 2001 19821 Posts Offline

Posted: July 14, 2010, 7:59 pm - IP Logged

Quote: Originally posted by RL-RANDOMLOGIC on July 14, 2010

RJOh

I hope Todd finds the time to take up my offer, He is a very busy man though.

RL

Sorry, I don't remember you making Todd an offer. He is a busy man and considering he doesn't make his living by running this website, he probably doesn't have the time to consider any offer that doesn't improve this website or benefits him personally.

* you don't need to buy more tickets, just buy a winning ticket *

OPEN "temp.txt" FOR INPUT AS #1 DO WHILE NOT EOF(1) LINE INPUT #1, set1$ lne = lne + 1 a$ = MID$(set1$, 1, 2) b$ = MID$(set1$, 4, 2) c$ = MID$(set1$, 7, 2) d$ = MID$(set1$, 10, 2) e$ = MID$(set1$, 13, 2) hit = 0 IF INSTR(BN$, a$) > 0 THEN hit = hit + 1 IF INSTR(BN$, b$) > 0 THEN hit = hit + 1 IF INSTR(BN$, c$) > 0 THEN hit = hit + 1 IF INSTR(BN$, d$) > 0 THEN hit = hit + 1 IF INSTR(BN$, e$) > 0 THEN hit = hit + 1 IF hit = 0 THEN h0 = h0 + 1 IF hit = 1 THEN h1 = h1 + 1 IF hit = 2 THEN h2 = h2 + 1 IF hit = 3 THEN h3 = h3 + 1 IF hit = 4 THEN h4 = h4 + 1 IF hit = 5 THEN h5 = h5 + 1 LOOP CLOSE LOCATE 1, 2: PRINT "total sets checked->"; lne; " " LOCATE 2, 2: PRINT "sets that had 0 BN ="; h0; " " LOCATE 3, 2: PRINT "sets that had 1 BN ="; h1; " " LOCATE 4, 2: PRINT "sets that had 2 BN ="; h2; " " LOCATE 5, 2: PRINT "sets that had 3 BN ="; h3; " " LOCATE 6, 2: PRINT "sets that had 4 BN ="; h4; " " LOCATE 7, 2: PRINT "sets that had 5 BN ="; h5; " " SYSTEM ___________________________________________________

Working on my Ph.D. "University of hard Knocks"

I will consider the opinion that my winnings are a product of chance if you are willing to consider

they are not. Many great discoveries come while searching for something else

OPEN "temp.txt" FOR INPUT AS #1 DO WHILE NOT EOF(1) LINE INPUT #1, set1$ lne = lne + 1 a$ = MID$(set1$, 1, 2) b$ = MID$(set1$, 4, 2) c$ = MID$(set1$, 7, 2) d$ = MID$(set1$, 10, 2) e$ = MID$(set1$, 13, 2) hit = 0 IF INSTR(BN$, a$) > 0 THEN hit = hit + 1 IF INSTR(BN$, b$) > 0 THEN hit = hit + 1 IF INSTR(BN$, c$) > 0 THEN hit = hit + 1 IF INSTR(BN$, d$) > 0 THEN hit = hit + 1 IF INSTR(BN$, e$) > 0 THEN hit = hit + 1 IF hit = 0 THEN h0 = h0 + 1 IF hit = 1 THEN h1 = h1 + 1 IF hit = 2 THEN h2 = h2 + 1 IF hit = 3 THEN h3 = h3 + 1 IF hit = 4 THEN h4 = h4 + 1 IF hit = 5 THEN h5 = h5 + 1 LOOP CLOSE LOCATE 1, 2: PRINT "total sets checked->"; lne; " " LOCATE 2, 2: PRINT "sets that had 0 BN ="; h0; " " LOCATE 3, 2: PRINT "sets that had 1 BN ="; h1; " " LOCATE 4, 2: PRINT "sets that had 2 BN ="; h2; " " LOCATE 5, 2: PRINT "sets that had 3 BN ="; h3; " " LOCATE 6, 2: PRINT "sets that had 4 BN ="; h4; " " LOCATE 7, 2: PRINT "sets that had 5 BN ="; h5; " " SYSTEM ___________________________________________________

Thanks RL. I input these

BN$=" 20 21 22 23 24"

and get this message

Total Sets Checked = 3286

sets that had 0 BN =1528 sets that had 1 BN = 1335 sets that had 2 BN = 387 sets that had 3 BN = 33 sets that had 4 BN = 3 sets that had 5 BN = 0

How do I know which of the umbers are in what set?

ORLANDO, FLORIDA United States Member #4924 June 3, 2004 5893 Posts Offline

Posted: July 15, 2010, 5:44 pm - IP Logged

Quote: Originally posted by PadawanLotto on July 15, 2010

Man, I must be missing something, I just get a blank blue window that saysC;\QBaisic\QBASIC.EXE. How do you get it to run?

Padawan, do you have all the files in the same folder, if so start qbasic, then File Open (your draw file) then F5. Make sure you have RL's file"BN.BAS" saved like so and in same folder. It's only been 30 years since I used basic. Where did they go?????