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