If Initializing script Then Clear all(checkstacks, checkstacknames) : Name checkstack0 as "Pointer to beginning of list" : Name checkstack1 as "Pointer to end of list" : cs0.beglist = 2 : cs1.endlist = 2 : Show message "This script plays a Labouchere strategy on the Field bet." & cr & cr & "Also known as a cross-out or cancellation system, Labouchere uses a list of numbers " & "such as 1,2,3,4 and determines the amount to wager by adding the first and last numbers in the list." & cr & cr & "When the bet wins, the first and last numbers are crossed off the list." & cr & cr & "When the bet loses, the amount lost is added as a new number to the end of the list." & cr & cr & "The system wins and starts over when all numbers have been crossed off the list." & cr & cr & "The maximum starting list length is 21" : "Get list amounts" : Checkstack(cs1.endlist) = input("Enter list amount #" & cs1.endlist - 1 & cr & "(enter zero to end the list)" & cr) : If checkstack(cs1.endlist) > 0 Then checkstackname(cs1.endlist) = checkstack(cs1.endlist) ' stores original value for resetting later If cs1.endlist < 21 Then Add 1 to cs1.endlist GoTo "Get list amounts" EndIf Else subtract 1 from cs1.endlist EndIf csn1 = cs1.endlist ' store end of list for resetting later GoTo "Figure and make next bet" EndIf If Field wins Then Add 1 to cs0.beglist : Subtract 1 from cs1.endlist ElseIf Field loses Then Add 1 to cs1.endlist : Checkstack(cs1.endlist) = last Field EndIf : "Check and reset progression" : If cs0.beglist > cs1.endlist Then Show message "The progression has been won and will start over now." : cs0.beglist = 2 : cs1.endlist = checkstackname1 : 'load original list amounts checkstack2 = checkstackname2 : checkstack3 = checkstackname3 : checkstack4 = checkstackname4 : checkstack5 = checkstackname5 : checkstack6 = checkstackname6 : checkstack7 = checkstackname7 : checkstack8 = checkstackname8 : checkstack9 = checkstackname9 : checkstack10 = checkstackname10 : checkstack11 = checkstackname11 : checkstack12 = checkstackname12 : checkstack13 = checkstackname13 : checkstack14 = checkstackname14 : checkstack15 = checkstackname15 : checkstack16 = checkstackname16 : checkstack17 = checkstackname17 : checkstack18 = checkstackname18 : checkstack19 = checkstackname19 : checkstack20 = checkstackname20 : checkstack21 = checkstackname21 : EndIf : "Figure and make next bet" : Bet Checkstack(cs0.beglist) on Field If cs1.endlist > cs0.beglist Then Add CheckStack(cs1.endlist) on Field EndIf