Mathematical System Tester v1
(Apache | Stormor) Tracciare le ultime 42 boules poi in base ai numeri che escono determinare se è o meno già uscito e giocare per interrompere la sequenza.
Mathematical System Tester v1.dgt
—
Xtreme,
41 KB (42699 bytes)
Contenuto del file
system "Mathematical System Tester v1"
{
*************************************
* System request by Apache *
* on the VIP Lounge *
*************************************
Rx-ed by St0rm0r
-------------------------------------
00-c0mpatible
-------------------------------------
Track the last 41 spins on a 0-wheel. (42 spins on a 00-wheel)
If the next spin is a repeat from the previous 41 spins: mark as '0'
If the next spin is not a repeat from the previous 41 spins: mark as '1'
Bet on the fact that (long) streaks of 0's and occurances of single 1's will be rare.
-------------------------------------
}
method "main"
begin
//do this once
while starting new session
begin
call "init"
exit
end
//do the tracking
track last number for record"N"data times record"tracking"layout
if record"tracking"layout count < record"N"data
begin
exit
end
track last number for 1 time record"last N"layout
if flag "start" false
begin
if record"sequence"layout count > 0
begin
put 0 record"count"data
put 0 record"sequence"layout index
loop until record"sequence"layout index = record"sequence"layout count
begin
add 1 record"count"data
add 1 record"sequence"layout index
end
copy record"sequence"layout record"reference"layout
end
else
begin
copy low record"reference"layout
end
call "update 250 sequence"
put 1 record"sequence"layout index
loop until record"sequence"layout index > record"sequence"layout count
begin
add 1 record"sequence"layout index
end
//--------------------
if record"wait1"data = 0
begin set flag "prepare to play L" true end
if record"wait2"data = 0
begin set flag "prepare to play W" true end
if net < 0
begin
if record"Loss1"data = 2 and flag "play L" true
begin
put 100% record"wait1"data record"store1"data
put 0 record"wait1"data
end
if record"Loss2"data = 2 and flag "play W" true
begin
put 100% record"wait2"data record"store2"data
put 0 record"wait2"data
end
if record"Loss1"data = 3
begin
set flag "keep betting1" true
duplicate record"numbers to play" record"keep on playing"
end
if record"Loss2"data = 3
begin
set flag "keep betting2" true
duplicate record"numbers to play" record"keep on playing"
end
end
if net > 0
begin
if record"Loss1"data = 2
begin
put 100% record"store1"data record"wait1"data
end
if record"Loss2"data = 2
begin
put 100% record"store2"data record"wait2"data
end
set flag "keep betting1" false
set flag "keep betting2" false
end
if record"last N"layout is found in record"numbers to play"layout
begin //W
//series continue
if record"reference"layout = black or record"reference"layout = low
begin
copy black record"sequence"layout
if flag "prepare to play W" true
begin
if record"trigger4"layout list has a pattern match in record"sequence"layout
begin
set flag "prepare to play W" false
set flag "play W" true
end
else
begin
set flag "prepare to play W" false
put 0 record"trigger3counter"data
end
end
end
//series break
if record"reference"layout = red
begin
put 100% record"count"data record"L"data index
add 1 record"L"data
clear record"sequence"layout
copy black record"sequence"layout
if flag "prepare to play L" false and flag "freeze" false
begin
if record"count"data >= record"L1"data
begin
add 1 record"trigger1counter"data
if record"trigger1counter"data >= record"wait1"data
begin
set flag "prepare to play L" true
put 0 record"trigger1counter"data
end
end
else
begin
put 0 record"trigger1counter"data
end
end
else
begin
if flag "prepare to play L" true
begin
if record"trigger2"layout list has a pattern match in record"sequence"layout
begin
set flag "prepare to play L" false
set flag "play L" true
end
else
begin
set flag "prepare to play L" false
end
end
end
if flag "prepare to play W" true
begin
if record"trigger4"layout list has a pattern match in record"sequence"layout
begin
set flag "prepare to play W" false
set flag "play W" true
end
end
set flag "freeze" false
set flag "freeze2" false
end
end
else
begin //L
//series continue
if record"reference"layout = red or record"reference"layout = low
begin
copy red record"sequence"layout
if flag "prepare to play L" true
begin
if record"trigger2"layout list has a pattern match in record"sequence"layout
begin
set flag "prepare to play L" false
set flag "play L" true
set flag "freeze" true
end
else
begin
set flag "prepare to play L" false
set flag "freeze" true
end
end
end
//series break
if record"reference"layout = black
begin
put 100% record"count"data record"W"data index
add 1 record"W"data
clear record"sequence"layout
copy red record"sequence"layout
if flag "prepare to play L" true
begin
if record"trigger2"layout list has a pattern match in record"sequence"layout
begin
set flag "prepare to play L" false
set flag "play L" true
end
end
if flag "prepare to play W" false and flag "freeze2" false
begin
if record"count"data = 1
begin
add 1 record"trigger3counter"data
if record"trigger3counter"data >= record"wait2"data
begin
set flag "prepare to play W" true
put 0 record"trigger3counter"data
end
end
else
begin
put 0 record"trigger3counter"data
end
end
else
begin
if flag "prepare to play W" true
begin
if record"trigger4"layout list has a pattern match in record"sequence"layout
begin
set flag "prepare to play W" false
set flag "play W" true
end
else
begin
set flag "prepare to play W" false
end
end
end
set flag "freeze" false
set flag "freeze2" false
end
end
end
call "get numbers to play"
add 100% net record"profit"data
if bankroll > record"high"data
begin
put 100% bankroll record"high"data
put 0 record"amount of numbers active"data
put 0 record"profit"data
end
if net < 0 and record"MM"data = 4 //Marti
begin
add 1 record"pro"data index
if record"pro"data index > record"pro"data count
begin
put 1 record"pro"data index
end
put 100% record"pro"data record"bet unit"data
end
if net > 0 and record"MM"data = 4
begin
put 1 record"pro"data index
put 100% record"pro"data record"bet unit"data
end
if record"MM"data = 3 //Enough
begin
if record"PT"data = 1 or record"PT"data = 3
begin
call "determine betting unit straight numbers"
end
if record"PT"data = 2 or record"PT"data = 3
begin
call "determine betting unit split numbers"
end
end
if net < 0 and record"MM"data = 2 //+1 on a loss
begin
add 1 record"base unit"data
end
if net > 0 and record"MM"data = 2
begin
if bankroll > record"high"data
begin
put 1 record"base unit"data
end
end
if record"MM"data = 1 //Flat
begin
put 1 record"bet unit"data
end
if flag "keep betting1" true or flag "play L" true or flag "keep betting2" true or
flag "play W" true
begin
if record"PT"data = 2 or record"PT"data = 3
begin
if flag "keep betting1" true or flag "keep betting2" true
begin
duplicate record"keep on playing" record"numbers to play"
end
call "generate split list"
end
end
//bet
if record"numbers to play"layout count > record"minimum #s"data and
record"numbers to play"layout count < record"maximum #s"data
begin
if flag "keep betting1" true
begin
if record"PT"data = 1 or record"PT"data = 3
begin
put 100% record"bet unit"data record"keep on playing" layout list
multiply by 100% record"base unit"data record"keep on playing" layout list
end
if record"PT"data = 2 or record"PT"data = 3
begin
call "bet splits"
end
end
else
begin
if flag "play L" true
begin
if record"PT"data = 1 or record"PT"data = 3
begin
put 100% record"bet unit"data record"numbers to play"layout list
multiply by 100% record"base unit"data record"numbers to play"layout list
end
if record"PT"data = 2 or record"PT"data = 3
begin
call "bet splits"
end
put 0 record"trigger1counter"data
set flag "prepare to play L" false
set flag "play L" false
set flag "freeze" true
end
end
if flag "keep betting2" true
begin
if record"PT"data = 1 or record"PT"data = 3
begin
put 100% record"bet unit"data record"keep on playing" layout list
multiply by 100% record"base unit"data record"keep on playing" layout list
end
if record"PT"data = 2 or record"PT"data = 3
begin
call "bet splits"
end
end
else
begin
if flag "play W" true
begin
if record"PT"data = 1 or record"PT"data = 3
begin
put 100% record"bet unit"data record"numbers to play"layout list
multiply by 100% record"base unit"data record"numbers to play"layout list
end
if record"PT"data = 2 or record"PT"data = 3
begin
call "bet splits"
end
put 0 record"trigger3counter"data
set flag "prepare to play W" false
set flag "play W" false
set flag "freeze2" true
end
end
end
end
// subroutines
method "bet splits"
begin
put 1 record"split numbers to play"layout index
loop until record"split numbers to play"layout index > record"split numbers to play"layout count
begin
if record"split numbers to play"layout is found in record"numbers"layout
begin put 1 record"split bet unit"data index end
if record"split numbers to play"layout is found in record"splits"layout
begin put 2 record"split bet unit"data index end
if record"split numbers to play"layout is found in record"streets"layout
begin put 3 record"split bet unit"data index end
if record"split numbers to play"layout is found in record"corners"layout
begin put 4 record"split bet unit"data index end
if record"split numbers to play"layout = Line(1-00)
begin put 5 record"split bet unit"data index end
if record"split numbers to play"layout is found in record"lines"layout
begin put 6 record"split bet unit"data index end
put 100% record"split bet unit"data record"split numbers to play"layout
multiply by 100% record"base unit"data record"split numbers to play"layout
add 1 record"split numbers to play"layout index
end
end
method "init"
begin
clear record"250 sequence"data
clear record"W"data
clear record"L"data
clear record"tracking"layout
clear record"numbers to play"layout
clear record"sequence"layout
set flag "start" true
group
begin
display "Mathematical System Tester v1"
display "--------------------------------------"
input dropdown "Wheel Type:
1:= single zero
2:= double zero" record"WT"data
input data "Track the last x spins: " record"N"data
display "(41 on 0-wheel, 42 on 00-wheel)"
display "--------------------------------------"
input data "A: Wait until " record"wait1"data
input dropdown "
1:=L(1)
2:=LL(2)
3:=LLL(3)
4:=LLLL(4)
5:=LLLLL(5)" record"L1"data
display "group(s) or longer showed consecutively."
display "B: Then bet as soon as 1 "
input dropdown "
1:=L(1)
2:=LL(2)
3:=LLL(3)
4:=LLLL(4)
5:=LLLLL(5)" record"L2"data
display "showed"
input dropdown "On a loss,
1:= start from A
2:= start from B
3:= keep betting until a win" record"Loss1"data
display "--------------------------------------"
input data "A: Wait until " record"wait2"data
display "single W group(s) showed consecutively."
display "B: Then bet as soon as 1 "
input dropdown "
1:=W(1)
2:=WW(2)
3:=WWW(3)" record"W2"data
display "showed"
input dropdown "On a loss,
1:= start from A
2:= start from B
3:= keep betting until a win" record"Loss2"data
display "--------------------------------------"
input data "Do not bet when less then x numbers are qualified" record"minimum #s"data
input data "Do not bet when more then x numbers are qualified" record"maximum #s"data
input drop down "Type of Play:
1:= play straight up numbers only
2:= use splits,streets,lines,corners to the maximum
3:= play both to see the decisions in action" record"PT"data
input dropdown "Money Management:
1:= always flat bet
2:= flat bet, increase base unit +1 after a losing game
3:= always bet just enough to be in profit in 1 hit
4:= marti 1,3,9,27,81" record"MM"data
end
if record"L2"data = 1 begin copy list [red] record"trigger2"layout end
if record"L2"data = 2 begin copy list [red,red] record"trigger2"layout end
if record"L2"data = 3 begin copy list [red,red,red] record"trigger2"layout end
if record"L2"data = 4 begin copy list [red,red,red,red] record"trigger2"layout end
if record"L2"data = 5 begin copy list [red,red,red,red,red] record"trigger2"layout end
if record"W2"data = 1 begin copy list [black] record"trigger4"layout end
if record"W2"data = 2 begin copy list [black,black] record"trigger4"layout end
if record"W2"data = 3 begin copy list [black,black,black] record"trigger4"layout end
put 0 record"trigger1counter"data
set flag "prepare to play L" false
put 0 record"trigger2counter"data
set flag "play L" false
set flag "freeze" false
set list [1,3,9,27,81] record"pro"data
put 0 record"trigger3counter"data
set flag "prepare to play W" false
set flag "play W" false
set flag "freeze2" false
if record"WT"data = 1
begin
load single wheel
if record"BS"data = 1
begin
copy list [number 0, number 1, number 2, number 3,number 4,number 5,number 6,
number 7,number 8,number 9,number 10,number 11,number 12,number 13,number 14,
number 15,number 16,number 17,number 18,number 19,number 20,number 21,number 22,
number 23,number 24,number 25,number 26,number 27,number 28,number 29,number 30,
number 31,number 32,number 33,number 34,number 35,number 36] to record"numbers"layout
end
else
begin
copy list [number 0,number 32,number 15,number 19,number 4,number 21,number 2,
number 25,number 17,number 34,number 6,number 27,number 13,number 36,number 11,
number 30,number 8,number 23,number 10,number 5,number 24,number 16, number 33,
number 1,number 20,number 14,number 31,number 9,number 22,number 18,number 29,
number 7,number 28,number 12,number 35,number 3, number 26] to record"numbers"layout
end
put 37 record"lenght"data
end
else
begin
load double wheel
if record"BS"data = 1
begin
copy list [number 00, number 0, number 1, number 2, number 3,number 4,number 5,number 6,
number 7,number 8,number 9,number 10,number 11,number 12,number 13,number 14,
number 15,number 16,number 17,number 18,number 19,number 20,number 21,number 22,
number 23,number 24,number 25,number 26,number 27,number 28,number 29,number 30,
number 31,number 32,number 33,number 34,number 35,number 36] to record"numbers"layout
end
else
begin
copy list [number 00, number 27, number 10, number 25, number 29,number 12,number 8,number 19,
number 31,number 18,number 6,number 21,number 33,number 16,number 4,number 23,
number 35,number 14,number 2,number 0,number 28,number 9,number 26,number 30,
number 11,number 7,number 20,number 32,number 17,number 5,number 22,number 34,
number 15,number 3,number 24,number 36,number 13,number 1] to record"numbers"layout
end
put 38 record"lenght"data
end
set list [36,18,12,9,7,6] record"return"data
put 100% bankroll record"high"data
put 0 record"profit"data
put 1 record"bet unit"data
set list [1,1,1,1,1,1] record"split bet unit"data
put 0 record"amount of numbers active"data
call "init splits"
put 1 record"base unit"data
end
method "get numbers to play"
begin
clear record"numbers to play"layout
put 1 record"tracking"layout index
loop until record"tracking"layout index > record"tracking"layout count
begin
if record"tracking"layout not found in record"numbers to play"layout
begin
copy record"tracking"layout record"numbers to play"layout
add 1 record"numbers to play"layout index
end
add 1 record"tracking"layout index
end
set flag "start" false
end
method "update 250 sequence"
begin
if record"250 sequence"data count < 250
begin
if record"last N"layout is found in record"numbers to play"layout
begin
put 1 record"250 sequence"data
end
else
begin
put 0 record"250 sequence"data
end
add 1 record"250 sequence"data index
end
else
begin
clear record"temp"data
put 2 record"250 sequence"data index
loop until record"250 sequence"data index > record"250 sequence"data count
begin
put 100% record"250 sequence"data record"temp"data
add 1 record"temp"data index
add 1 record"250 sequence"data index
end
if record"last N"layout is found in record"numbers to play"layout
begin
put 1 record"temp"data
end
else
begin
put 0 record"temp"data
end
duplicate record"temp" record"250 sequence"
end
end
method "goto end of play list"
begin
put 0 record"amount of numbers active"data
put 1 record"numbers to play"layout index
loop until record"numbers to play"layout index > record"numbers to play"layout count
begin
add 1 record"amount of numbers active"data
add 1 record"numbers to play"layout index
end
end
method "determine betting unit straight numbers"
begin
//determine amount of numbers to play
call "goto end of play list"
//calculate bet
put 100% record"profit"data record"count"data
put 0 record"bet unit"data
loop until record"count"data > 0
begin
subtract 100% record"amount of numbers active"data record"count"data
add 36 record"count"data
add 1 record"bet unit"data
end
end
method "calculate total bet"
begin
put 100% record"split bet unit"data index record"save"data
put 0 record"total bet"data
put 1 record"how many of each"data index
loop until record"how many of each"data index > record"how many of each"data count
begin
put 100% record"how many of each"data index record"split bet unit"data index
put 100% record"how many of each"data record"temp1"data
multiply by 100% record"split bet unit"data record"temp1"data
add 100% record"temp1"data record"total bet"data
add 1 record"how many of each"data index
end
put 100% record"save"data record"split bet unit"data index
end
method "determine betting unit split numbers"
begin
set list [1,1,1,1,1,1] record"split bet unit"data
//determine minimum needed for each type of bet
put 1 record"how many of each"data index
loop until record"how many of each"data index > record"how many of each"data count
begin
put 100% record"how many of each"data index record"hold"data
call "calculate total bet"
put 100% record"hold"data record"how many of each"data index
put 100% record"how many of each"data index record"split bet unit"data index
if record"how many of each"data > 0
begin
put 100% record"how many of each"data index record"return"data index
put 100% record"profit"data record"count"data
subtract 100% record"total bet"data record"count"data
put 0 record"split bet unit"data
loop until record"count"data > 0
begin
subtract 1 record"count"data
add 100% record"return"data record"count"data
add 1 record"split bet unit"data
end
end
else
begin
put 0 record"split bet unit"data
end
add 1 record"how many of each"data index
end
set flag "ok" false
loop until flag "ok" true
begin
set flag "ok" true
put 1 record"how many of each"data index
loop until record"how many of each"data index > record"how many of each"data count
begin
if record"how many of each"data > 0
begin
put 100% record"how many of each"data index record"split bet unit"data index
put 100% record"how many of each"data index record"return"data index
put 100% record"how many of each"data index record"hold"data
call "calculate total bet"
subtract 100% record"profit"data record"total bet"data
add 1 record"total bet"data
put 100% record"hold"data record"how many of each"data index
put 100% record"split bet unit"data record"temp1"data
multiply by 100% of record"return"data record"temp1"data
if record"temp1"data < record"total bet"data
begin
add 1 record"split bet unit"data
set flag "ok" false
end
end
add 1 record"how many of each"data index
end
end
end
method "generate split list"
begin
//convert "numbers to play" into 1)streets 2) lines 3) corners 4) splits in record"split numbers to play"layout
//Special: line (1-00)
if record"special1"layout is found in record"split numbers to play"layout and
record"special2"layout is found in record"split numbers to play"layout and
record"special3"layout is found in record"split numbers to play"layout and
record"special4"layout is found in record"split numbers to play"layout and
record"special5"layout is found in record"split numbers to play"layout
begin
clear record"temp"layout
put 1 record"split numbers to play"layout index
loop until record"split numbers to play"layout index > record"split numbers to play"layout count
begin
if record"split numbers to play"layout not = number 0 and
record"split numbers to play"layout not = number 00 and
record"split numbers to play"layout not = number 1 and
record"split numbers to play"layout not = number 2 and
record"split numbers to play"layout not = number 3
begin
copy record"split numbers to play"layout record"temp"layout
add 1 record"temp"layout index
end
add 1 record"split numbers to play"layout index
end
copy Line(1-00) record"temp"layout
duplicate record"temp" record"split numbers to play"
end
//streets
duplicate record"numbers to play" record"split numbers to play"
put 1 record"streets"layout index
loop until record"streets"layout index > record"streets"layout count
begin
put 100% record"streets"layout index record"streets1"layout index
put 100% record"streets"layout index record"streets2"layout index
put 100% record"streets"layout index record"streets3"layout index
if record"streets1"layout is found in record"split numbers to play"layout and
record"streets2"layout is found in record"split numbers to play"layout and
record"streets3"layout is found in record"split numbers to play"layout
begin
clear record"temp"layout
put 1 record"split numbers to play"layout index
loop until record"split numbers to play"layout index > record"split numbers to play"layout count
begin
if record"split numbers to play"layout not = record"streets1"layout and
record"split numbers to play"layout not = record"streets2"layout and
record"split numbers to play"layout not = record"streets3"layout
begin
copy record"split numbers to play"layout record"temp"layout
add 1 record"temp"layout index
end
add 1 record"split numbers to play"layout index
end
copy record"streets"layout record"temp"layout
duplicate record"temp" record"split numbers to play"
end
add 1 record"streets"layout index
end
//lines
put 1 record"lines"layout index
loop until record"lines"layout index > record"lines"layout count
begin
put 100% record"lines"layout index record"lines1"layout index
put 100% record"lines"layout index record"lines2"layout index
if record"lines1"layout is found in record"split numbers to play"layout and
record"lines2"layout is found in record"split numbers to play"layout
begin
clear record"temp"layout
put 1 record"split numbers to play"layout index
loop until record"split numbers to play"layout index > record"split numbers to play"layout count
begin
if record"split numbers to play"layout not = record"lines1"layout and
record"split numbers to play"layout not = record"lines2"layout
begin
copy record"split numbers to play"layout record"temp"layout
add 1 record"temp"layout index
end
add 1 record"split numbers to play"layout index
end
copy record"lines"layout record"temp"layout
duplicate record"temp" record"split numbers to play"
end
add 1 record"lines"layout index
end
//corners
put 1 record"corners"layout index
loop until record"corners"layout index > record"corners"layout count
begin
put 100% record"corners"layout index record"corners1"layout index
put 100% record"corners"layout index record"corners2"layout index
put 100% record"corners"layout index record"corners3"layout index
put 100% record"corners"layout index record"corners4"layout index
if record"corners1"layout is found in record"split numbers to play"layout and
record"corners2"layout is found in record"split numbers to play"layout and
record"corners3"layout is found in record"split numbers to play"layout and
record"corners4"layout is found in record"split numbers to play"layout
begin
clear record"temp"layout
put 1 record"split numbers to play"layout index
loop until record"split numbers to play"layout index > record"split numbers to play"layout count
begin
if record"split numbers to play"layout not = record"corners1"layout and
record"split numbers to play"layout not = record"corners2"layout and
record"split numbers to play"layout not = record"corners3"layout and
record"split numbers to play"layout not = record"corners4"layout
begin
copy record"split numbers to play"layout record"temp"layout
add 1 record"temp"layout index
end
add 1 record"split numbers to play"layout index
end
copy record"corners"layout record"temp"layout
duplicate record"temp" record"split numbers to play"
end
add 1 record"corners"layout index
end
//splits
put 1 record"splits"layout index
loop until record"splits"layout index > record"splits"layout count
begin
put 100% record"splits"layout index record"splits1"layout index
put 100% record"splits"layout index record"splits2"layout index
if record"splits1"layout is found in record"split numbers to play"layout and
record"splits2"layout is found in record"split numbers to play"layout
begin
clear record"temp"layout
put 1 record"split numbers to play"layout index
loop until record"split numbers to play"layout index > record"split numbers to play"layout count
begin
if record"split numbers to play"layout not = record"splits1"layout and
record"split numbers to play"layout not = record"splits2"layout
begin
copy record"split numbers to play"layout record"temp"layout
add 1 record"temp"layout index
end
add 1 record"split numbers to play"layout index
end
copy record"splits"layout record"temp"layout
duplicate record"temp" record"split numbers to play"
end
add 1 record"splits"layout index
end
set list [0,0,0,0,0,0] record"how many of each"data
put 1 record"split numbers to play"layout index
loop until record"split numbers to play"layout index > record"split numbers to play"layout count
begin
if record"split numbers to play"layout is found in record"numbers"layout
begin
put 1 record"how many of each"data index
add 1 record"how many of each"data
end
if record"split numbers to play"layout is found in record"splits"layout
begin
put 2 record"how many of each"data index
add 1 record"how many of each"data
end
if record"split numbers to play"layout is found in record"streets"layout
begin
put 3 record"how many of each"data index
add 1 record"how many of each"data
end
if record"split numbers to play"layout is found in record"corners"layout
begin
put 4 record"how many of each"data index
add 1 record"how many of each"data
end
if record"split numbers to play"layout = Line(1-00)
begin
put 5 record"how many of each"data index
add 1 record"how many of each"data
end
if record"split numbers to play"layout is found in record"lines"layout
begin
put 6 record"how many of each"data index
add 1 record"how many of each"data
end
add 1 record"split numbers to play"layout index
end
end
method "init splits"
begin
//special line(1-00)
copy number 0 record"special1"layout
copy number 00 record"special2"layout
copy number 1 record"special3"layout
copy number 2 record"special4"layout
copy number 3 record"special5"layout
//splits
if record"WT"data = 1
begin
copy list [Split(1-0),Split(2-0),Split(3-0),Split(1-2),Split(1-4),Split(2-3),
Split(2-5),Split(3-6),Split(4-5),Split(4-7),Split(5-6),Split(5-8),Split(6-9),Split(7-8),
Split(7-10),Split(8-9),Split(8-11),Split(9-12),Split(10-11),Split(10-13),Split(10-13),Split(11-12),
Split(11-14),Split(12-15),Split(13-14),Split(13-16),Split(14-15),Split(14-17),Split(15-18),Split(16-17),
Split(16-19),Split(17-18),Split(17-20),Split(18-21),Split(19-20),Split(19-22),
Split(20-21),Split(20-23),Split(21-24),Split(22-23),Split(22-25),Split(23-24),Split(23-26),
Split(24-27),Split(25-26),Split(25-28),Split(26-27),Split(26-29),Split(27-30),Split(28-29),
Split(28-31),Split(29-30),Split(29-30),Split(29-32),Split(30-33),Split(31-32),Split(31-34),
Split(32-33),Split(32-35),Split(33-36),Split(34-35),Split(35-36),Split(0-00),Split(3-00)] record"splits"layout
copy list [number 1,number 2,number 3,number 1,number 1,number 2,
number 2,number 3,number 4,number 4,number 5,number 5,number 6,number 7,
number 7,number 8,number 8,number 9,number 10,number 10,number 10,number 11,
number 11,number 12,number 13,number 13,number 14,number 14,number 15,number 16,
number 16,number 17,number 17,number 18,number 19,number 19,
number 20,number 20,number 21,number 22,number 22,number 23,number 23,
number 24,number 25,number 25,number 26,number 26,number 27,number 28,
number 28,number 29,number 29,number 29,number 30,number 31,number 31,
number 32,number 32,number 33,number 34,number 35,number 0,number 3] record"splits1"layout
copy list [number 0,number 0,number 0,number 2,number 4,number 3,
number 5,number 6,number 5,number 7,number 6,number 8,number 9,number 8,
number 10,number 9,number 11,number 12,number 11,number 13,number 13,number 12,
number 14,number 15,number 14,number 16,number 15,number 17,number 18,number 17,
number 19,number 18,number 20,number 21,number 20,number 22,
number 21,number 23,number 24,number 23,number 25,number 24,number 26,
number 27,number 26,number 28,number 27,number 29,number 30,number 29,
number 31,number 30,number 30,number 32,number 33,number 32,number 34,
number 33,number 35,number 36,number 35,number 36,number 00,number 00] record"splits2"layout
end
else
begin
copy list [Split(1-0),Split(1-2),Split(1-4),Split(2-3),
Split(2-5),Split(3-6),Split(4-5),Split(4-7),Split(5-6),Split(5-8),Split(6-9),Split(7-8),
Split(7-10),Split(8-9),Split(8-11),Split(9-12),Split(10-11),Split(10-13),Split(10-13),Split(11-12),
Split(11-14),Split(12-15),Split(13-14),Split(13-16),Split(14-15),Split(14-17),Split(15-18),Split(16-17),
Split(16-19),Split(17-18),Split(17-20),Split(18-21),Split(19-20),Split(19-22),
Split(20-21),Split(20-23),Split(21-24),Split(22-23),Split(22-25),Split(23-24),Split(23-26),
Split(24-27),Split(25-26),Split(25-28),Split(26-27),Split(26-29),Split(27-30),Split(28-29),
Split(28-31),Split(29-30),Split(29-30),Split(29-32),Split(30-33),Split(31-32),Split(31-34),
Split(32-33),Split(32-35),Split(33-36),Split(34-35),Split(35-36),Split(0-00),Split(3-00)] record"splits"layout
copy list [number 1,number 1,number 1,number 2,
number 2,number 3,number 4,number 4,number 5,number 5,number 6,number 7,
number 7,number 8,number 8,number 9,number 10,number 10,number 10,number 11,
number 11,number 12,number 13,number 13,number 14,number 14,number 15,number 16,
number 16,number 17,number 17,number 18,number 19,number 19,
number 20,number 20,number 21,number 22,number 22,number 23,number 23,
number 24,number 25,number 25,number 26,number 26,number 27,number 28,
number 28,number 29,number 29,number 29,number 30,number 31,number 31,
number 32,number 32,number 33,number 34,number 35,number 0,number 3] record"splits1"layout
copy list [number 0,number 2,number 4,number 3,
number 5,number 6,number 5,number 7,number 6,number 8,number 9,number 8,
number 10,number 9,number 11,number 12,number 11,number 13,number 13,number 12,
number 14,number 15,number 14,number 16,number 15,number 17,number 18,number 17,
number 19,number 18,number 20,number 21,number 20,number 22,
number 21,number 23,number 24,number 23,number 25,number 24,number 26,
number 27,number 26,number 28,number 27,number 29,number 30,number 29,
number 31,number 30,number 30,number 32,number 33,number 32,number 34,
number 33,number 35,number 36,number 35,number 36,number 00,number 00] record"splits2"layout
end
//streets
copy list [Street(1-3),Street(4-6),Street(7-9),Street(10-12),Street(13-15),
Street(16-18),Street(19-21),Street(22-24),Street(25-27),Street(28-30),
Street(31-33),Street(34-36),Corner(2:00),Street(00-3),Street(0-2)] record"streets"layout
copy list [number 1,number 4,number 7,number 10,number 13,number 16,
number 19,number 22,number 25,number 28,number 31,number 34,number 0,number 00,number 0] record"streets1"layout
copy list [number 2,number 5,number 8,number 11,number 14,number 17,
number 20,number 23,number 26,number 29,number 32,number 35,number 00,number 2,number 1] record"streets2"layout
copy list [number 3,number 6,number 9,number 12,number 15,number 18,
number 21,number 24,number 27,number 30,number 33,number 36,number 2,number 3,number 2] record"streets3"layout
//corners
if record"WT"data = 1
begin
copy list [Corner(1:5),Corner(2:6),Corner(4:8),Corner(5:9),Corner(7:11),
Corner(8:12),Corner(10:14),Corner(11:15),Corner(13:17),Corner(14:18),
Corner(16:20),Corner(17:21),Corner(19:23),Corner(20:24),Corner(22:26),
Corner(23:27),Corner(25:29),Corner(26:30),Corner(28:32),Corner(29:33),
Corner(31:35),Corner(32:36),Line(1-0)] record"corners"layout
copy list [number 1,number 2,number 4,number 5,number 7,number 8,number 10,
number 11,number 13,number 14,number 16,number 17,number 19,number 20,number 22,
number 23,number 25,number 26,number 28,number 29,number 31,number 32,number 0] record"corners1"layout
copy list [number 2,number 3,number 5,number 6,number 8,number 9,number 11,
number 12,number 14,number 15,number 17,number 18,number 20,number 21,number 23,
number 24,number 26,number 27,number 29,number 30,number 32,number 33,number 1] record"corners2"layout
copy list [number 4,number 5,number 7,number 8,number 10,number 11,number 13,
number 14,number 16,number 17,number 19,number 20,number 22,number 23,number 25,
number 26,number 28,number 29,number 31,number 32,number 34,number 35,number 2] record"corners3"layout
copy list [number 5,number 6,number 8,number 9,number 11,number 12,number 14,
number 15,number 17,number 18,number 20,number 21,number 23,number 24,number 26,
number 27,number 29,number 30,number 32,number 33,number 35,number 36,number 3] record"corners4"layout
end
else
begin
copy list [Corner(1:5),Corner(2:6),Corner(4:8),Corner(5:9),Corner(7:11),
Corner(8:12),Corner(10:14),Corner(11:15),Corner(13:17),Corner(14:18),
Corner(16:20),Corner(17:21),Corner(19:23),Corner(20:24),Corner(22:26),
Corner(23:27),Corner(25:29),Corner(26:30),Corner(28:32),Corner(29:33),
Corner(31:35),Corner(32:36)] record"corners"layout
copy list [number 1,number 2,number 4,number 5,number 7,number 8,number 10,
number 11,number 13,number 14,number 16,number 17,number 19,number 20,number 22,
number 23,number 25,number 26,number 28,number 29,number 31,number 32] record"corners1"layout
copy list [number 2,number 3,number 5,number 6,number 8,number 9,number 11,
number 12,number 14,number 15,number 17,number 18,number 20,number 21,number 23,
number 24,number 26,number 27,number 29,number 30,number 32,number 33] record"corners2"layout
copy list [number 4,number 5,number 7,number 8,number 10,number 11,number 13,
number 14,number 16,number 17,number 19,number 20,number 22,number 23,number 25,
number 26,number 28,number 29,number 31,number 32,number 34,number 35] record"corners3"layout
copy list [number 5,number 6,number 8,number 9,number 11,number 12,number 14,
number 15,number 17,number 18,number 20,number 21,number 23,number 24,number 26,
number 27,number 29,number 30,number 32,number 33,number 35,number 36] record"corners4"layout
end
//Lines
copy list [Line(1-6),Line(4-9),Line(7-12),Line(10-15),Line(13-18),Line(16-21),
Line(19-24),Line(22-27),Line(25-30),Line(28-33),Line(31-36)] record"lines"layout
copy list [Street(1-3),Street(4-6),Street(7-9),Street(10-12),Street(13-15),Street(16-18),
Street(19-21),Street(22-24),Street(25-27),Street(28-30),Street(31-33)] record"lines1"layout
copy list [Street(4-6),Street(7-9),Street(10-12),Street(13-15),Street(16-18),Street(19-21),
Street(22-24),Street(25-27),Street(28-30),Street(31-33),Street(34-36)] record"lines2"layout
end
