Bob
Here is a Qbasic program that can be used to build a list of BN's. Qbasic is a program that was
included with older versions of windows and can still be downloaded from the net. I think!
Just copy and post the code below using notpad and save it as "BN.bas" . Place this file in the
same directory as the qbasic program. You will need a plain text file with all the draws for
the game you are building the list for. The format should be like the example below. Name
the draw file "temp.txt" or change the name in the Open statement to match your file.
next place the numbers you want to test in the string BN$ " ". You can use as few or many
as you want. Next change a few of the numbers in the BN$ string and rerun. do this until
you get very few hits of 2 or more for each run.
Run the program by pressing F5. I used QB for this example because it is very easy to use
and I think the free version can still be downloaded. This code will work with other basic
command line interpreters.
format of draw file.
01 03 19 30 36
01 06 19 30 36
01 09 11 30 36
01 09 13 30 36
03 06 19 30 36
03 09 10 31 36
03 09 10 33 36
03 09 11 30 36
03 09 13 30 36
03 09 19 30 36
03 09 30 31 36
06 09 10 31 36
06 09 10 33 36
06 09 11 30 36
06 09 13 30 36
06 09 30 31 36
___________________________________________________
CLS
BN$ = "01 05 07 13" '<--- add the best numbers to check here
lne = 0: h0 = 0: h1 = 0: h2 = 0: h3 = 0: h4 = 0: h5 = 0:
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
___________________________________________________