Hi all
I am not for or against this system, just posting a test. Here is some basic code anyone can use to
generate their own list provided they have a database/history file. I have annotated the code to
show each stage and also where values can be adjusted to try and improve hits. You should have
basic programming knowledge to run this code. Just copy and paste it into qbasic or something
similar like qb64 etc..
RL
'STAGE-1 ADD 222 TO CURRENT DRAWING
'STAGE-2 MIRROR IT
'STAGE-3 AND 777
'STAGE-4 ADD 999
'STAGE-5 MIRROR AGAIN
'STAGE-6 ADD 123
'STAGE-7 DIVIDE BY 3.14
'STAGE-8 MULTIPLY BY 6
DIM SET AS SINGLE
DIM LIST1(1 TO 1001) AS STRING
DIM LIST2(1 TO 1001) AS STRING
'LOAD ARRAY
L1=1
OPEN "YOUR DATABASE HERE" FOR INPUT AS #1 '<- ADD YOUR DATABASE
DO WHILE NOT EOF(1)
LINE INPUT #1, DAT1$
SETS$ = MID$(DAT1$,12,1)+MID$(DAT1$,15,1)+MID$(DAT1$,18,1) 'ADJUST FOR YOUR DATABASE
LIST2(L1)=SETS$
L1=L1+1
IF L1 > 1000 THEN EXIT DO
LOOP
CLOSE
'REVERSE DRAWS TO ASENDING ORDER IF NEEDED.
DO WHILE L1 >= 1
IF LIST2(L1) <> "" THEN LIST1(L1) = LIST2(L1)
L1=L1-1
LOOP
'RESULTS FILE
OPEN "RESULTS.TXT" FOR OUTPUT AS #1:CLOSE
OPEN "RESULTS.TXT" FOR APPEND AS #1
'MAIN CONVERSION LOOP
L1=1
DO
IF LIST1(L1) = "" THEN EXIT DO
'STAGE 1
N1=VAL(MID$(LIST1(L1),1,1)) + 2 '
N2=VAL(MID$(LIST1(L1),2,1)) + 2 ' "2" THIS VALUE CAN BE CHANGED TO ANOTHER VALUE TO CHANGE RESULTS
N3=VAL(MID$(LIST1(L1),3,1)) + 2 '
N1$=LTRIM$(STR$(N1))
N2$=LTRIM$(STR$(N2))
N3$=LTRIM$(STR$(N3))
IF N1 > 9 THEN N1 = VAL(MID$(N1$,1,1)) + VAL(MID$(N1$,2,1))
IF N2 > 9 THEN N2 = VAL(MID$(N2$,1,1)) + VAL(MID$(N2$,2,1))
IF N3 > 9 THEN N3 = VAL(MID$(N3$,1,1)) + VAL(MID$(N3$,2,1))
N1$=LTRIM$(STR$(N1))
N2$=LTRIM$(STR$(N2))
N3$=LTRIM$(STR$(N3))
N1=VAL(N1$)
N2=VAL(N2$)
N3=VAL(N3$)
'STAGE 2
IF N1 < 5 THEN N1=N1+5 ELSE N1=N1-5
IF N2 < 5 THEN N2=N2+5 ELSE N2=N2-5
IF N3 < 5 THEN N3=N3+5 ELSE N3=N3-5
N1$=LTRIM$(STR$(N1))
N2$=LTRIM$(STR$(N2))
N3$=LTRIM$(STR$(N3))
N1=VAL(N1$)
N2=VAL(N2$)
N3=VAL(N3$)
'STAGE 3,
N1=VAL(MID$(LIST1(L1),1,1)) + 7 '
N2=VAL(MID$(LIST1(L1),2,1)) + 7 ' "7" THIS VALUE CAN BE CHANGED TO ANOTHER VALUE TO CHANGE RESULTS
N3=VAL(MID$(LIST1(L1),3,1)) + 7 '
N1$=LTRIM$(STR$(N1))
N2$=LTRIM$(STR$(N2))
N3$=LTRIM$(STR$(N3))
IF N1 > 9 THEN N1 = VAL(MID$(N1$,1,1)) + VAL(MID$(N1$,2,1))
IF N2 > 9 THEN N2 = VAL(MID$(N2$,1,1)) + VAL(MID$(N2$,2,1))
IF N3 > 9 THEN N3 = VAL(MID$(N3$,1,1)) + VAL(MID$(N3$,2,1))
'STAGE 4,
N1=VAL(MID$(LIST1(L1),1,1)) + 9 '
N2=VAL(MID$(LIST1(L1),2,1)) + 9 ' "9" THIS VALUE CAN BE CHANGED TO ANOTHER VALUE TO CHANGE RESULTS
N3=VAL(MID$(LIST1(L1),3,1)) + 9 '
N1$=LTRIM$(STR$(N1))
N2$=LTRIM$(STR$(N2))
N3$=LTRIM$(STR$(N3))
'STAGE 5
IF N1 > 9 THEN N1 = VAL(MID$(N1$,1,1)) + VAL(MID$(N1$,2,1))
IF N2 > 9 THEN N2 = VAL(MID$(N2$,1,1)) + VAL(MID$(N2$,2,1))
IF N3 > 9 THEN N3 = VAL(MID$(N3$,1,1)) + VAL(MID$(N3$,2,1))
'STAGE 6
N1=VAL(MID$(LIST1(L1),1,1)) + 1 '
N2=VAL(MID$(LIST1(L1),2,1)) + 2 ' "123" THESE VALUE CAN BE CHANGED TO ANOTHER VALUE TO CHANGE RESULTS
N3=VAL(MID$(LIST1(L1),3,1)) + 3 '
N1$=LTRIM$(STR$(N1))
N2$=LTRIM$(STR$(N2))
N3$=LTRIM$(STR$(N3))
IF N1 > 9 THEN N1 = VAL(MID$(N1$,1,1)) + VAL(MID$(N1$,2,1))
IF N2 > 9 THEN N2 = VAL(MID$(N2$,1,1)) + VAL(MID$(N2$,2,1))
IF N3 > 9 THEN N3 = VAL(MID$(N3$,1,1)) + VAL(MID$(N3$,2,1))
N1$=LTRIM$(STR$(N1))
N2$=LTRIM$(STR$(N2))
N3$=LTRIM$(STR$(N3))
'STAGE 7
NEW$=N1$+N2$+N3$
SET=(VAL(NEW$)/3.14) '<- "3.14" THIS VALUE CAN BE CHANGED TO ANOTHER VALUE TO CHANGE RESULTS
'STAGE 8
SET=SET*6 ' <- "6" THIS VALUE CAN BE CHANGED TO ANOTHER VALUE TO CHANGE RESULTS
'GET FIRST 7 DIGITS
SET$=LTRIM$(RTRIM$(STR$(SET)))
IF INSTR(SET$,".") > 0 THEN SET$=MID$(SET$,1,INSTR(SET$,".")-1) + MID$(SET$,INSTR(SET$,".")+1,6)
SET$=MID$(SET$,1,7)
N1$=MID$(LIST1(L1+1),1,1)
N2$=MID$(LIST1(L1+1),2,1)
N3$=MID$(LIST1(L1+1),3,1)
SET1$=SET$
'CHECK STRAIGHT HITS
STR8$=LTRIM$(RTRIM$(LIST1(L1+1)))
IF INSTR(SET$,STR8$) > 0 THEN STRAIGHT=STRAIGHT+1
IF INSTR(SET$,STR8$) > 0 THEN STR1$="x" ELSE STR1$="-"
'CHECK FOR BOX HITS
HIT=0
IF INSTR(SET$,N1$) > 0 THEN HIT=HIT+1
IF INSTR(SET$,N2$) > 0 THEN HIT=HIT+1
IF INSTR(SET$,N3$) > 0 THEN HIT=HIT+1
IF HIT = 3 THEN BOX1$="x" ELSE BOX1$="-"
IF HIT = 3 THEN BOX=BOX+1
'PRINT TO FILE
PRINT #1, SET1$ + SPACE$(7-LEN(SET$)) + " " + LIST1(L1+1) + " Box hit -> " + BOX1$ + " Str8 -> " + STR1$
L1=L1+1
LOOP
CLOSE
'END MAIN CONVERSION LOOP
'FINISH AND PRINT RESULTS
PRINT "DRAWINGS TESTED ->"; L1; ""
PRINT "STRAIGHT HITS ->"; STRAIGHTS; ""
PRINT "BOX HITS ------>"; BOX; ""
PRINT "Press any key to quit"
sleep