data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAKAAAAB4CAYAAAB1ovlvAAAAAXNSR0IArs4c6QAAC1tJREFUeF7tnHlQ1dcVx78ssi/KIuASLApuREXGRqk1TqudWq3ruC9RK5EooU40NalpJ22nnelk2jHWBeuC4y5uxdE6U6dTNUaNS3RENIZNdkQeOxgXoHMufT8fvqQ//nhwBu65Mw7vPX/vfn/nnA/n3Ht/9+LU3NzcDGniASYPOAmATJ4XWeUBAVBAYPVAmwAsLS1FVVUVwsLCOvxmS0pK0L17d4SGhna4tgi2vwdMASwoKEBZWRmCgoLa/26+Q6G8vBw9e/ZE37592e5BhNvHA6YAXr58Gb169VLqGzduxIgRI+Dp6Ymamhr4+PiA5jAZGRmIjIzE9u3bcfbsWZUtHd2Ki4sRFxfn6G6lP2YPmAJ45swZDB48WN3mxYsXYbFY0KdPH1y/fh0LFizA+fPn4e7uDgLEyckJa9euRWVlpcPNun//PiZPnuzwfqVDXg+YAnj69GkDwPz8fJXdQkJCQOPC58+fq3HhkydP0Lt3b+zYsQPr169X7x3dCMApU6Y4ulvpj9kDpgCeOnUKQ4YMUaWWSi5lu45oVRUWNP5vhZIy67179zB16tSOkBaNDvSAKYBpaWlGBsw89gn65Z+BxS0MtcGvI6x3H4feamNjI/KyMzG0+jKc4ISA+BRU+fRTGpQBp02b5lA96YzfA6YAnjx5UmVAag+2xGOQ3wvUTN+E4OBg9dmjzAxkXf2PqSXeQaGInTJXjQ+fPXumrn91Zl1XV6c+L7t7CaO+/CNqYhajNmaJ+owy4IwZM0x15ILO5QFTAE+cOGGU4MxtKxEwIQG9Xx8DWhohgC7Ej8MYr/o2WR28JxO5uQ/Vuh5NZqwQ05cp+xGAOTk56mdkwWmER0SiesQiNbkhAGfOnNkmHbmo83jAFMDjx48bJTgrOQFOE99HU1MTfH19ER4ejssr4vCG73PDYt+x0+HWdyAsh/5s54WAXV8hL7/AADAwMNC4xt/fHxcuXICrqyuuXLmCd4c7q/+rHr7IKMGzZs3qPJ6VO22TB0wBPHr0qFGCs7e/A0xYp4DMy8tTAF55eyxG2wBIqoHz138rgD12EoD5oKw6e/ZsNamxNprkNDQ0qAxIa4w/9czGi8YXBoCUAek70rqWB0wBTE1NNTJg7o7VaPrRe+q9m5ubGst9kTDODkDP6B/gyd3P7TzVfcd95BcUoEePHqoEU9aztocPHxrLN7TQPazyM1WWK4ctMDLgnDlzupb3xRrzzQhHjhwxAHy4MxEvxq8xMqIau2VcQugzS5tcWRc3DxUVFejWrZuC18vLy/hebm4uCEJq/fr1w/CqS3YAzp07t006clHn8YBpBjx06NDLhejdSXg2LqkVgIXn01D2WRpgsq3Q28cHMR/tQnV1tXqUR+WWsqhtBiQIrQCOqP4cjU2NqIieb2TA+fNbXkvrOh4wBfDgwYMGgAUpv8Q3YxMREBCgnnxQifwy8ccY7fdyEkLlt1tIOGr+fdDOS77J6SgqLjFKsG0GpOxnmwEJQJrsWKLnGQDSoz9pXcsDpgDu37/fyHiFe9agIW4VYmNjUVRUpEC8nTQBo/1etPJK6Nq/o/Qvb9t5ymfbHRSXlBoAenh4tMqANLGxzYC2ANIkZNGilhmxtK7jAVMA9+3bZ2TA4r3voX7MOzh8+LCakUZHR+POmp+0AjDk3U/hGtgLRR/bz1i9t95BSWkpqM+lS5eq9T1rI/hsM2BM7WWVAcuHtIz76EnI4sWLu47nxRLlAVMA9+7dawBYsm8tat9YabxXYHwwHaM8Wp5gmDWfbekoLnlZgmnNzxZAawak5Z2RdVfsAFyypOWpiLSu4wFTAPfs2WOU4NL961A9Kr4VgIN6uOHptbOmHmnwC0Vl3xg1+aCxI2U/20kI7bR5FcDmpmY8HtKy9EIlmLKmtK7lAVMAU1JSDODKDv4KlbG/MB7NEUTpf12DiMcZpl5xdQa+l3IX2dk5oLEfbdmiSQgtQFM/BB9BSO8pA8bWX1Wvywa1lHIqwcuWLTPVkQs6lwdMAdy9e7cB4OND62GJWaa2xmdmZmLkyJF4sP7nrcaAgfM/gIt/EMqS19l5wn3TTZQ9LleTF1qIfvVEqG0GDL6fagfg8uXLO5d35W5NPWAK4M6dOw0ALUc+xOPhb+G1115DbW2t2oya+eE0u1lw4Lz3YTn8iZ2426c38LjcAppZL1y4UJXi72o9vzoKNAOlA1ue/1IGXLFihalBckHn8oApgLTL2bolvyL11ygbtkSB5+zsDD8/P2RvmNEKQJ/vT4Kzly9qzqfaeaLbxusot1SoDEqn3Wg8aG23bt0C/aMWExODSV45aEYzSqNeAhgfH9+5vCt3a+oBUwDpoJF1R3TVsY9QGr2o1STk+aE/oE/hDVMhusD9b7fUWM86BiSIbVtSUpJ6u2nTJoR9fUIBWBI509iOtXLlyjbpyEWdxwOmACYnJxvAVR//DYqHLFBbsWhjKW0qoANKjm60X9DreorqtjiyZRMqleCEhARHS0l/zB4wBXDr1q3GMkzNid+icNA8lZFoJ0t9fT0GDBhgmGDdovWqTdeuXVPHOW2XXeiw06RJk+Di4tLqcuo3OztbbUawBZCWYVatWsXsLpF3tAdMAdyyZYtRguv+8THyo+bg9u3bChJ6MkE7V6yNsuKBAwfUTukNGzaAvjtx4kQ8ePAAERERSE9PV+M7WoA+duwYaFZLe/+sjeCj2XVUVBQ8vtgFF1cXFPWfbpTg1atXO9p+6Y/ZA6YAbt682SjB9Wm/Q13Uz1Dt4q+OZj569EgdSLc22uVCu11ogjF+/HjcvHkTtOv56dOn6rpz584pIClT0pZ+2pJvXYqhck6gDhw4UEHod2MX+kcNRmH/loNIVIITExOZ3SXyjvaAKYA0IbAeSmo49XuEd6vBv0IXqoxGSzHWv5rwbTdGz3KvXr2qDpT/v8PqBF9WVpYq5/Tzm/w7mF1xAIUR0wwAqQRbJymOdoL0x+cBUwDpVJy3t7e6w+f//BPedM9B3gt/PPKKQGg7HMvMz8nCm65fK73C6LeQH/JD9ZrGm3Iqjg+U9lI2BZACT2eDqZQG+XrA887R9rqXVv06efVA3eCpagc1PTWhM8HWX4QOuQER6RAPmAJovQs6LER/hKij29ChQ1W5l9Y1PdBmALum+WIVtwcEQO4IaK4vAGoOALf5AiB3BDTXFwA1B4DbfAGQOwKa6wuAmgPAbb4AyB0BzfUFQM0B4DZfAOSOgOb6AqDmAHCbLwByR0BzfQFQcwC4zRcAuSOgub4AqDkA3OYLgNwR0FxfANQcAG7zBUDuCGiuLwBqDgC3+QIgdwQ01xcANQeA23wBkDsCmusLgJoDwG2+AMgdAc31BUDNAeA2XwDkjoDm+gKg5gBwmy8AckdAc30BUHMAuM0XALkjoLm+AKg5ANzmC4DcEdBcXwDUHABu8wVA7ghori8Aag4At/kCIHcENNcXADUHgNt8AZA7AprrC4CaA8BtvgDIHQHN9QVAzQHgNl8A5I6A5voCoOYAcJsvAHJHQHN9AVBzALjNFwC5I6C5vgCoOQDc5guA3BHQXF8A1BwAbvMFQO4IaK4vAGoOALf5AiB3BDTXFwA1B4DbfAGQOwKa6wuAmgPAbb4AyB0BzfUFQM0B4DZfAOSOgOb6AqDmAHCbLwByR0BzfQFQcwC4zRcAuSOgub4AqDkA3OYLgNwR0FxfANQcAG7zBUDuCGiuLwBqDgC3+QIgdwQ01xcANQeA23wBkDsCmusLgJoDwG2+AMgdAc31BUDNAeA2XwDkjoDm+gKg5gBwmy8AckdAc30BUHMAuM0XALkjoLm+AKg5ANzmC4DcEdBcXwDUHABu8wVA7ghori8Aag4At/kCIHcENNcXADUHgNv8/wKCZ57kZW2lkQAAAABJRU5ErkJggg==110i121I'm kind of bummed that I didn't find a beautiful one-line solution using FIND FIRST, but it just gives the value it finds, not the position in the list, which is what we need to find the line endpoints in WIN LINES. So it's a plain old fashioned FOR loop.data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAeAAAAFoCAYAAACPNyggAAAAAXNSR0IArs4c6QAADoVJREFUeF7t1cEJAAAIxDDdf2m3sJ+4wEEQuuMIECBAgACBd4F9XzRIgAABAgQIjAB7AgIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQICLAfIECAAAECgYAAB+gmCRAgQICAAPsBAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+wECBAgQIBAICHCAbpIAAQIECByxcQFpoRMBzwAAAABJRU5ErkJggg==10TIF B: First of all, we don't want Square, the sprite with nine clones to show the board, to move around. So I added another sprite, named Sprite. It's hidden, but can draw lines with its thick red pen. (Click on Sprite at the right to see its code.) The actual work is done in procedure DRAW WIN LINE. But instead of running DRAW WIN LINE in the Square sprite (this one), we TELL Sprite TO do it. We modify makeBoard for TIF B because drawn lines are behind sprites on the stage, so the win line is hidden by the board. To fix that, we apply a ghost effect (transparency) to the board sprites. The value 30 for the ghost effect was found by experiment. Any more and the board is too faint; any less and the line is.3.3.3.TIF B starts here. The instruction below only needs to be run once. It makes a list of the two endpoints of each of the lines to mark a win. It must be in the same order as POSSIBLE WINNING TRIPLES. playingfalseplayingfalseX's turn?available squaresavailable squares1true1,2,3,4,5,6,7,8,9true-100,50100,50-100,0100,0-100,-50100,-50-50,100-50,-1000,1000,-10050,10050,-100-100,100100,-100-100,-100100,100