data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAKAAAAB4CAYAAAB1ovlvAAAQAElEQVR4AexdCXhU1dl+v9myr4QsJJgEBASRBmXT4oYCyvporS3aYm2R+mgfxAVq/VWwtaL2AYFHkQpCRaCtFFkFtb8/WwuisuMCYYkEKLIlYAIJIcl/3zO9k0mYyTLJzJ0Zbp6895zznfV+97vfOec7556xVJt/JgcM5IAF5p/JAQM5YAqggcw3qwZMATSlwFAOmAJoKPvNyk0BNGXAUA5cvgJoKNvNynUOmAKoc8J0DeGAKYCGsN2sVOdAkwXw4sWLOHnyJDZt2oR3330Xs2bNwowZMzBt2jRMnTrVhMmDJslAowXw3Llz+Oijj5SwzZ8/Hzt27EB0dDQ6d+6MHj164JZbbsFtt91mwuRBk2SgQQGsrKzEP//5T7z11lvYt28frr76agwbNgyDBw9Gr169kJ2djYyMDCQnJyMxMdGEyYMmyUC9Anjs2DHMnDkT33zzDfr06YOhQ4eiY8eOsNvtehduuqHHgaBqsVcB3L17N/72t7+hTZs2SvAyMzMhIkHVeLMxoc8BjwL46aefqm6X47vrrrsOFosF1dXVJkwetLgMXCKAe/bsUTPcvn37okuXLrVeMZHaGlDEDLszSMTkR1P5UUsAv/vuO6xevRp5eXlIS0tT0u5eILWgGa7hgMmP6hpmaD5f+OESQM52Fy1apGa17du314pr+v+KFSuUPZA2wfPnzze9gCDJsWrVKtd90PwUJM0Ky2a4BPCTTz5RGq979+4+3ygFcMqUKSAuXLgQspMW9gK8B6K8vDxk78PnBxnAjEoA+ZZ/+eWX6Nmzp5pwtET9tA3Gx8fXKioUA+FyH8HKeyWAGzZsULY9MjtYG2q2Kzw5YOHaLg3NV111VYt3Nfv378ejjz6KW2+9FQ888ACOHDnikYslJSWq2x4wYIBa0uNKC22QbJunDHv37sWvf/1r9O/fH7fffjt+97vf4cSJE7WSsuscM2YMiMWLF6OoqAj33nsv7rzzTnB4oCdmdzto0CDVxueeew7MJyJ6tOn6mQOW4uJicAKSk5OjxoCcyfgKkZoHx+U7rhGvXLkSBw4cwNq1a0HTDoXHvXyuL3fr1k0N+mkCOnjwoFpn/u1vf6tm40ePHq3Vrl/84hdK8D788EOwrPz8fCxcuFAtC27evNmVlnxbtmwZCNY9fPhwMP6rr75CRESEetnGjh2Lhx9+GBx+sI3z5s1T69qeBN+9zaa/5WzCFmq/yMhIOBwO9VBExGeXD4YPnqDG4zIeBYTairSqqipQgHQBoNZiHF8ALu9RWA4dOoSXXnpJteH7778HtRMN4SIClrVmzRoWpZYGOXalgMbGxoJl//KXv0RUVJTKa7PZVDpetm3bhsOHD6v16xEjRiA1NRXHjx/HkiVLGI2YmBjs2rUL//nPf5Qm5CxYRbhdRHzni4iZV8QzDyzsJlNSUlyag0LkK9yeF5588kk8+OCDoEln8uTJakmP8eyGKVD0jx8/XtVLP7tJdr1c8mO3OXr0aJJV18k2iogKT5o0Ca+++iq4I4fCxh05N9xwg4pjV862i4irXEYUFhaCQrh06VKlLSnsr7zyCqMUKIhdu3YF+TBnzhy1y0dFuF1YrolqxdeW5IOFYx5/TD449qMWoubh/kHOsPXnSYM3BYdbukizWq1KO1GL6ek5XmMcMXfuXLXbpkOHDrj//vsxatQosJvknkRqzbKyMiZTIJ0aTQX+e2nVqhWuueYaFaKGpUCyO1YE7ULTE7UwXw5q3SuuuEKjtuS/WZY3Dlg4IGf36y2Br3QKAQWDQsUyOnXqREeBXR3j2YWSQE1GrXj69Gn1hpHGeLoEx2hMw5dl4MCBShg5aaLmY1e/fv16JnOBGs4V0DyJiYnaFWqiwreXAbaNLkFzkd4Whlk2XRP+54CloqJCjf9auio+YAqMXi61oO7nA6d2pOYjjasmFAy+DAwTzE+XSEpKUvZJCtvXX39NkuqGOWHhOJJjP0X0cmFdjKJ2pEvoddNPHri3lRqadBP+5wDPhlEPt6WrYlfnXubWrVtdwfT0dOXnmIsedn/uAkqae3ruQyRty5YtdJCQkIBx48aBm2GpKd3TqgReLhRyPSoxMVH3qk8MdE1NIgWbrgn/c8DiryqorXQtwzHXzp07VVXsSjnGotA9/fTTisaLPmakn93hxIkT6VUz2pEjR6pZrj5UoHakNuOGWXa/+liSGdy1KMPewPbpcQ899JAyxDO8bt06NRum34T/OaA0oF6NriF0l3RPfk80pmVXRpdgl8bNrLdqRuibb75ZCRDpzz//vNK4nLHecccd4OyTdG6E4G5rpqdd8OzZsyTjtddeA7UVhS4vL0/RWDYnFtyryDJoiFYR2oV1sQ7N6/Wf7b/77rtB8xMT0WbJ2TrtlDQT9e7dm2QFd83IfCTqrje/GV+zS8YTL9xpFhGneYPMFHH6RZyuO83dL+I5nqsNTEdQ47Vt2xbszvgQqQ1pWqGBmQ2glhMRLF++HKSzKz1z5oxKT+3Gbppxjz32mJqYnDp1CjSR6BMECijTv/DCC5gwYQLuuusuVgtqW86O605EVOR/LyKixr1cBaEgk8y2F2tG+ffee0/ZHkkj3F8qEed9izhdxotc6he5lOaeVuTyiRe59F5FamhKA1IgyCC6OnwJv//++8rgyzLi4uLANWbObGn0pQb785//rLpUhpmGEBE888wzoIBRCBhXWlqqukGO/Si8NDbTZRdMoaHgMT21KLUdhe2NN95QZdCMQgHUhZ/aksZ23g/BOgn6c7TVn+3bt4Nt5BiU5d5zzz149tlnwTqZjuWIOBnGsA7m1/10zTBAPuhoLD8sTEgwI10dDIs4GU8aw3R1MCxyaTy1Fx8eQUHiQ6XwUFj4kKmh9FmviDM/y6JphsLD8jmOo1DQLsfJDLUQ0zCOYBxpLJszVqahoFErsgwKJ+kiokwvbAvBdjA/wfJERNkTmYdxzM9ZtV4e28R8pDM98+lgWMTZftIYpquDYREz3p0fup+uzh+XAJJYF0xUl+Ye9hRPGgWI4ENlegocuzcKIScfpBFMS1cH4yi0TMuHTiHT4+q6epl03cuhILIenc4y2Baibhl6PrZTr5euno5lMR9fKp3m7ur53WnufjO+ZizozhfdT/7UK4B6QtM1OeAvDpgC6C/OmuU2igOmADaKTWYif3EgfAXQXxwzy21RDrS4AHJTAc0lJhzK1mjyoX4+tKgAcqMp7Wbp/Kb4Yjnyd23F+tVL8fH7C7F60bsa5plYZPJgtRsPWkwAueOE+wpLS77HglnTMePxn+DDl36F/Pn/g2NL/oiTy1/W8IqJ5SYPTrrxwLUSQptMc8B133OlJVj41jRseXcS0kv3YWC24O5OUbinc7QJkwceZUCtBYuIWiIT8d3l2O+Tle9jz7I3cE1yFfrnRqFbqh1t421Ii7Ei1YTJAw8y0GIasLy8DLs3foJ0Rzn6ZDqQEWeFwyqwCKD9NxpVYkORLQVb427A+60fwF9TR2Ne+m8wJ+NxvJ3xhImGeRBSPGqxMeD50lKcPbgD7ZLsSI22QpM9NOXvvCUK6xIH4p2032iCNxJfJ/VFdEobdMrOQI/uebjl1n5NOvrVPC74tpDgl6UpQlJf2osXK1BVWoRWURbYmiB9VbBgfcIALEh7GAXxeejStSuGDhmEwcOGo3e/wcjt1R8Z7a4CjwDmTmgdiYmJame0GU5QfAhVfrSYAFZXVaG6ugoRVmgihUb9Hbena93rI9gf1w19evcGt191uqozHBFRKr+IQMQJEkScfhFh0BUnYobJEBFx8SRUwi0ngDw9FNW870ZhT3RXLGv1U2S2zdYEbxjaZGapfNUspwHwbae9sU2bNkhKTEBUhAMRNqsGizbuDE9E2CzYufnfKD7xnXrRG8OnUEjTYgKIJvxtje2D9fH90aXL1biu1/Vqi35js9PWGBsbi91bP8fMl57HhPsGYeKQXnhh0LV44U4NdMMRg3vi33Mm48TenUhNaQ19J3dj+Ras6VyzYDawvjemMfFM0xD2R3bCltjr1TkxPIO6ofTu8dR8NpsN6z9ahfkTxmLPgtfQ5uh2XG8vwu1x5zAgoQx3hCkGxpWi7/m9iJ77JI6//HNER0aEhRBaRESNG/igRZx+kUvdxsQzTX04YU/DmsQ7kZeXBx4BXF9aT3ExMTHY9/VufDh7Kir3b8NNrW24SbM15iXZcJVmb+wYb0WHMEZurBWJEYKy7WtQOH6gOtOGy5+eeBUqNJcGrE/7NSauoRuu0qYmHyT/GNlZbdR5MQ2l9xa/bvVKnN31b1yXbFPCFm8X2LWBhJUQKPMPJ+HhCu02FWvK8rfhwqFvlHVAEUL0ot+P35v/r4TbUW2LQPeefXyu64Jm7N63bTPaRAlyYi2I1KRMfC4t9DOeeGei63vmUL2bgAggjcx7orqgx39/c8RXZnG1pfTYIaRFWhCjqbzLWfjIw4rjh+m4hlAM8AMrHvBUH/ixF7+VYXqjERAB3Bx3k/amOtAmq22z7re6shrQDN6xNlFdLS7zPw6N3FnAj6f41SG/ua4P/PDqwIED7lkN8/tdACvFhn2RndCpYwd1k2QawQBdHY0KKztjtSl8ZJYH8KtCknn0SW5uLryBq0o633WX+XQ/3UCF/S6AxdZEVGkTkNycHN6TC/pNsiv44IMP1E+DuSI1jx6vedV/3bAiBs3F2IaQN0RzWlE3f6DCfhdA2v0i7DbYIyIv4Q+PWrv22mvVQeY84cBi8XtzLmlDYwiWmHhc8aePkTtrm4I1sXVjsplpGsEBvz/xbyPaIyXWXqspfLt4HAdPrP/hD38Im2Zc5tkxXF6jWyuxwYH42+5D+/n7ENmpB+xp2QpisRrcqvCp3mUH5C1RMHT4Emaeuii3RCAtxlaLzFMLeAjQ3LlzsXTp0lqzONZfK7GBgeypa5H+2OugwFWVnjGwJd6qrvYWETJ0ryshvAMRUcIhIgy6/CKewypRnUuF2BGZ0rYW1W63g4dN/uxnP9Nmx7W1Y62EBgdsaTmoOH4IBx/Kw7kdGwxuTXhW79KA1DzNgTf2XNQEMCIprVY0BTAhIQFlZWWu07RqJQiSwIm3xmvC110TwsIgaVH4NcPvY8BqiNfdLjzFikKPIP07u+Y9oLo6SFsXHM1qbiv8LoDNbaCZ3zcO0Lz1xBNPQAePmfOtJP/m8rsAUsPp4K3ofrp6mK47GEeQRlcHwyYu5YAn/tAozRNmdXDiZ9OsDXVz63npMo6ujkCE/S6AvAkdvDHdT7dumDR3NBTvntb0c7RQM1yIjIzEvn371A8zko/8Ici6W+BId+ebEeGACqD7zZr+wHCAp7xyfZjg8ceBqbXxtZgC2HhehWRKjgV5yitBf7DdhCECyPEIz2LWQabwmFz+7odOY5h0E+HNAb/bAT2xb8GCBejVq5cL3EbEPWr84Ii//cG44uJiT1lraAHwdVx2Ch2Xn1aIvWGIq8Z2f/lK0RgXe36JKwAACydJREFUkXO1i256ms4B10qIiEDEdzSlav6mB39uYdu2bfCGrl27gr8p15RyzbShxwFDNCA/KezSpQvqA1lZd1ZGWiCxd3gr7B2WXC/KC74MZJMaVReHLzTDeEOjCglQIkPGgLw3MonG0frA7eVMa6JxHKCdT0RQUFAA7nj2Bs6GuRzauFL9m8rvAkgt1lI4V1ICW1QsxL88CZnSLVbnLiOdvyKCDh06eN0Jre+QbteuHXJycrRVxmrD4XcBdH+aIrVFR6Rp4YL9e9EurxeibWIKocbY6G59XQKkBSGi8UWDw+EAERERoVz6CT2saz8RYTYXRAIfDqgA8k113a3maWq4dUYWhjz4CDJTkhGkm6e1u/L7v7MCsSD5x0+CHx85CVDCqPvpNpW/RqQPqACSKc2BPTIKmTnt0Hn6/0Eucwls/asXYYlLVj/Q2ByeGp3XNQtmQ/gG6PAlzDz+hIiAxmp7eg5y3/wc9tQr/FldUJZtiY5D5u8XI2nYw+APMnKmixD+c9kBeQ8i4hpH+BJmHn+DDOevWSIlC7mzt6Pdu/nIeX0jsqeuC29M34B2c7/ElX8tQFS3m0HDPVeU/M1vf5fv0oC65vPV9XdD3cunCYemBGqAclskrJkdENHumrCGI7sLiqts4MtHMwvXdt15Eqr+kBoDkslWqxX88JqHU0pVJbZt2oC/vz0Tb0/9E2ZNfjlsMXvKK1g0ZyaOHTqIhPg4siIs4HcB9FWjesonIuCnmxXl5Vi64C+Y8uj9WDj2PmyZOh75sybg4Jzfhy/m/gGn/jEVRYunIdpuQ3Z2thoueeJTKNGaJIC+vHIiNeNKkeb5uVmBGxcWvzMbH786HpH7PsONiRcxKMOGIZkODMkKY2TacXtyJdLz16LwV11ReaIQWVlZSghFmsdXEePy+10AW/Jt5FLTpjX/i01zJ6Ot5RxuTLXjmgQbMmOsaB1pQauI8EaSdn9RVgEunMe3Y26EVarBrwtbkseBLsvvAuiL1vSWhyfxf7bmYzi+P47uSTZkRFngsAK8CdEyXQ7QblP9V50vQcmnq5QAKkKIXvjsQqbpNDsc/WYXsqKtSNU0nrYiFzJt90dDi5bNACdl/ig7UGWGlABWVlTgQvFxpGhdUQS7okBxKUjrqTxXolomQt2vvMpMk5+fj/rAj5VOnz7tzGDwNaQEsKq6CqJBU36q2zWYd0FQfc1XcGwMv/ngaROtW7dGfeC40RRAcsxHuL3wPpbQ1GyhkZ4TCLaUv6NCIfMG7obR0zK9kfD7Sghv1BP4pj711FPgNyBXXnklunXrhmHDhqGwsFDt6vCUxyhGWWIS4MjSVltyusCepq0/W7SZj1GN8VIv+eUlyiuZeYyG6oJFnGMIEVF2JbZYpLbfE01ESHblUYE6FxFR8SI1LrcQ9ezZE0uWLEF6ejrGjBmD7t27gwdW9uvXT+3mFalJL+L01yna/0FN0DKf/zuuXHgAOTM2I3v6v5A7azs6LDqMuJt+5P/6m1CDiDQhtTOpiFzybEQCS1MCyLeATaJLePJ7ormnZbwnME1djBs3Tu1je/PNN5XQTZ06FevWrcOGDRvAdV5qxsjIyEs0oafy/UnLmrgIMT36Q3tK0BqD6ooL4J/YI5Dx1CxEXJnHYFBA53FTGqPnMdJVAtiURrdEWm4k4JLaqFGjtOdarWZuBw8eVL+eFBUVpY5s46pHS9Tlaxm2pDRE592isl88eQT5P85E/o/Scfi5uxSNl/SxM+iYaAYHDBHARYsWYefOnepo3pMnT4KzN94DtR93eVAIRUTFk24EHG074kLhHlw4uh/HZ45D9YUy1YxzO9ahuvKi8tsSzLOiFSOacTFEANleng1IrXf27FkGFVasWAHu9+OYUBEMvJzbuQEFj16Pgod7ouSzD10tsbXKgFhtKlxV5rTDqYCBF3ah/qre3+UaJoC8MWo8ukRBQQHGjx8Pdr2PP/646pq58YBxQQNN8NpOWulqzok5z7n8psc3DhgqgHqTN27ciIEDByrj6Y4dO0A7FTWkHh8MrjgikfvmZ7Cn56rmnP/qU5RsqhFGRQyiS3l5OX7wgx+4sHfv3iBqXU1TLFTfLYGaImv7Gip7xowZGDlyJDp16oRdu3YpIeQH6cXFxUoLuuevXXLgQrbEVLR752tN+HJUpeX7d6DwmaHKHywX8sm9LSKiNu7SxspvhbmBlydSuKdhHqPh+iZEpHn2H/cbc/eLeC6XaWiOmTJlCkaMGIEvvvgCKSkpOHPmDDhLFrk0H/MEGjQ8587ZCatmjGbdxavexrdP9AOqKhkMGohIrbY4HA5wTP3555+r83eoDWnack8kIpqFyVgYpgEnTJigfiOEv5A0b948cObLL954PJu3t9KdeYHwcwUk541PITYHoK1BH/nDT9WMGEF4cDl55okn/IZk//79IPghk3sa5jEahowBt27dioULFyrNR0G0Wq3KFlhSEhyzSvWQNO2Q/dpaiDb2Y/jI73+C0s8/ptdEC3LAEAF85JFH1C3k5OTgxRdfhN4Vv/7669BRrg2iVSKDLvH9RmhjvmxVe1X5eST0fwBtnp53CXQBVQnNS5M5YIgA6jPcSZMmgRpw8uTJmDZtWi3QBGPkjxdGd7vRxUxLRBRibxjiEaKZZlwJDfKwGzWo6mZXa4gAcrNkWVkZyDhv4KA5Pj6+2TfoawEVJw6j/MCuBgFtbOhrHWY+GLevkxMODpDrA80xRj2kU/P/iG/H3twgqsrOGdVEr/VyLE1rgjdw6VNEvOYPZITfNaCu4XhTup8umVCujfN0cA1Y99NlmN0w0xLM70RwMM7ZFqOvtXnBrwZ5BBstCfWBgpmYmAjyVQfvRPfTDVTY7wIoIsrWxBsScfpFhEFFFxHlkiDi9IsIg4ouIsolYffWLxCVnAqLMGTCGh2rmKALjIioD/fbt2+P+sADKpOTkxVfRUS5LEjE6RcRBhVdRJRLgojTLyIMKrqIKJcEEadfRBhUdBFRLgkiTr+IMKjoLjsgKbwRb2hMPNPUhbfyfKFHxcSi54ChSHJYtMbXrSlswo2+kaThj6jNG77wMljyWPS7ZYNEnJKp00Rqwg3F63n86ca3SkH/e3+O7Lzel70WtETFIrbPIBQVFfmT5X4v2yWArIlCRldHU8N6Pn+5Fs3kYbU70O6VlXCkXuGvaoK+XNHMQtnTN6CyWsJLAIOe81oDOXsur6hEzltb0HrUH2FV+/PsWkyY/4sF1vhWoIG8/fx9sLZuq1aPQv2ua2nAULmZwsJCnDpdhPjBo9F+7pfosOQ71y8XdVx+Ojz9y06i/fx8pD32OkovXFQfbnHzbqg8M2/tDEkBdDgciI2NBc00RN2hAsL0b8vmjdixbQuOHj2iTCjhcJshJ4C0X/FsvMqKC1j/0QeY8eKzeP6h+zD+/uF48qdDwxcjhmHlvNk4c+I7tM3KAu19YSeAwX5DZDqPnCjI34PZL0/EkmdH4/B70xG3ZTna7v0E7Q+sDV/sX4PMLYtwcfpoVHy1SW02jY6ODvZH1mD7/K4B2T22FPi9SNGpk1g8+w3s+cdMdI0sx4AMO/qlO3BTqh19W9vCGr1b2ZEh53HsDz9B0fKZ4C5nbthoKf4aUY7fBbDBV6AJCcjstatWIH/5O+iWYMV1yTZ1VFu8XRBlFUSGOSKsgM0C0Dp74u1nUfX9aaSmpiKU/1wrIc2V/kAw4WJFBXZuXItW1gp01gQwwSGXr0G6ugqnF01WkzGE8J9FRCDSfASCB2Xnz+N0wV5kRluhhC8QlQZxHed2/sv17PRmUpFwo0dD0NMb7f4/AAAA//+jPwMOAAAABklEQVQDAMHvrzDVa+UaAAAAAElFTkSuQmCC110i121I'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,iVBORw0KGgoAAAANSUhEUgAAAeAAAAFoCAYAAACPNyggAAAQAElEQVR4AezVC27kNhAEUCP3P3SC/NZeez6SSDWb9YJg1zsjkV2vDdQfH/4jQIAAAQIEbhdQwLeTu5AAAQIECHx8ZBew3wACBAgQIFAkoICL4F1LgAABAtkCCjh3/5ITIECAQKGAAi7EdzUBAgQI5Aoo4NzdZyeXngABAsUCCrh4Aa4nQIAAgUwBBZy5d6mzBaQnQGABAQW8wBKMQIAAAQJ5Ago4b+cSE8gWkJ7AIgIKeJFFGIMAAQIEsgQUcNa+pSVAIFtA+oUEFPBCyzAKAQIECOQIKOCcXUtKgACBbIHF0ivgxRZiHAIECBDIEFDAGXuWkgABAgQWE7i5gBdLbxwCBAgQIFAkoICL4F1LgAABAtkCCvjG/buKAAECBAj8J6CA/5PwNwECBAgQuFFAAd+InX2V9AQIECDwWUABf9bwMwECBAgQuElAAd8E7ZpsAekJECDwu4AC/l3EvwkQIECAwA0CCvgGZFcQyBaQngCBnwQU8E8qPiNAgAABApMFFPBkYMcTIJAtID2BRwIK+JGMzwkQIECAwEQBBTwR19EECBDIFpD+mYACfqbjOwIECBAgMElAAU+CdSwBAgQIZAu8Sq+AXwn5ngABAgQITBBQwBNQHUmAAAECBF4J7F3Ar9L7ngABAgQIFAko4CJ41xIgQIBAtoAC3nf/khEgQIDAwgIKeOHlGI0AAQIE9hVQwPvuNjuZ9AQIEFhcQAEvviDjESBAgMCeAgp4z71KlS0gPQECDQQUcIMlGZEAAQIE9hNQwPvtVCIC2QLSE2gioICbLMqYBAgQILCXgALea5/SECCQLSB9IwEF3GhZRiVAgACBfQQU8D67lIQAAQLZAs3SK+BmCzMuAQIECOwhoID32KMUBAgQINBMYHABN0tvXAIECBAgUCSggIvgXUuAAAEC2QIKeOD+HUWAAAECBN4VUMDvSnmOAAECBAgMFFDAAzGzj5KeAAECBI4IKOAjWp4lQIAAAQKDBBTwIEjHZAtIT4AAgaMCCviomOcJECBAgMAAAQU8ANERBLIFpCdA4IyAAj6j5h0CBAgQIHBRQAFfBPQ6AQLZAtITOCuggM/KeY8AAQIECFwQUMAX8LxKgACBbAHprwgo4Ct63iVAgAABAicFFPBJOK8RIECAQLbA1fQK+Kqg9wkQIECAwAkBBXwCzSsECBAgQOCqQO8Cvpre+wQIECBAoEhAARfBu5YAAQIEsgUUcN/9m5wAAQIEGgso4MbLMzoBAgQI9BVQwH13lz259AQIEGguoICbL9D4BAgQINBTQAH33JupswWkJ0BgAwEFvMESRSBAgACBfgIKuN/OTEwgW0B6ApsIKOBNFikGAQIECPQSUMC99mVaAgSyBaTfSEABb7RMUQgQIECgj4AC7rMrkxIgQCBbYLP0CnizhYpDgAABAj0EFHCPPZmSAAECBDYTOFjAm6UXhwABAgQIFAko4CJ41xIgQIBAtoACPrB/jxIgQIAAgVECCniUpHMIECBAgMABAQV8ACv7UekJECBAYKSAAh6p6SwCBAgQIPCmgAJ+E8pj2QLSEyBAYLSAAh4t6jwCBAgQIPCGgAJ+A8kjBLIFpCdAYIaAAp6h6kwCBAgQIPBCQAG/API1AQLZAtITmCWggGfJOpcAAQIECDwRUMBPcHxFgACBbAHpZwoo4Jm6ziZAgAABAg8EFPADGB8TIECAQLbA7PQKeLaw8wkQIECAwA8CCvgHFB8RIECAAIHZAmsX8Oz0zidAgAABAkUCCrgI3rUECBAgkC2ggNfdv8kIECBAYGMBBbzxckUjQIAAgXUFFPC6u8meTHoCBAhsLqCAN1+weAQIECCwpoACXnMvpsoWkJ4AgQABBRywZBEJECBAYD0BBbzeTkxEIFtAegIhAgo4ZNFiEiBAgMBaAgp4rX2YhgCBbAHpgwQUcNCyRSVAgACBdQQU8Dq7MAkBAgSyBcLSK+CwhYtLgAABAmsIKOA19mAKAgQIEAgT+K2Aw9KLS4AAAQIEigQUcBG8awkQIEAgW0ABf9q/HwkQIECAwF0CCvguafcQIECAAIFPAgr4E0b2j9ITIECAwJ0CCvhObXcRIECAAIF/BRTwvxD+yhaQngABAncLKOC7xd1HgAABAgT+ElDAfyH4n0C2gPQECFQIKOAKdXcSIECAQLyAAo7/FQBAIFtAegJVAgq4St69BAgQIBAtoICj1y88AQLZAtJXCijgSn13EyBAgECsgAKOXb3gBAgQyBaoTq+AqzfgfgIECBCIFFDAkWsXmgABAgSqBWoLuDq9+wkQIECAQJGAAi6Cdy0BAgQIZAso4Lr9u5kAAQIEggUUcPDyRSdAgACBOgEFXGeffbP0BAgQCBdQwOG/AOITIECAQI2AAq5xd2u2gPQECBD4UMB+CQgQIECAQIGAAi5AdyWBaAHhCRD4W0AB/83gDwIECBAgcK+AAr7X220ECGQLSE/gfwEF/D+FHwgQIECAwH0CCvg+azcRIEAgW0D6LwIK+AuHfxAgQIAAgXsEFPA9zm4hQIAAgWyBb+kV8DcSHxAgQIAAgfkCCni+sRsIECBAgMA3gagC/pbeBwQIECBAoEhAARfBu5YAAQIEsgUUcMz+BSVAgACBlQQU8ErbMAsBAgQIxAgo4JhVZweVngABAqsJKODVNmIeAgQIEIgQUMARaxYyW0B6AgRWFFDAK27FTAQIECCwvYAC3n7FAhLIFpCewKoCCnjVzZiLAAECBLYWUMBbr1c4AgSyBaRfWUABr7wdsxEgQIDAtgIKeNvVCkaAAIFsgdXTK+DVN2Q+AgQIENhSQAFvuVahCBAgQGB1gbkFvHp68xEgQIAAgSIBBVwE71oCBAgQyBZQwPP272QCBAgQIPBQQAE/pPEFAQIECBCYJ6CA59lmnyw9AQIECDwVUMBPeXxJgAABAgTmCCjgOa5OzRaQngABAi8FFPBLIg8QIECAAIHxAgp4vKkTCWQLSE+AwFsCCvgtJg8RIECAAIGxAgp4rKfTCBDIFpCewNsCCvhtKg8SIECAAIFxAgp4nKWTCBAgkC0g/SEBBXyIy8MECBAgQGCMgAIe4+gUAgQIEMgWOJxeAR8m8wIBAgQIELguoICvGzqBAAECBAgcFtiqgA+n9wIBAgQIECgSUMBF8K4lQIAAgWwBBbzN/gUhQIAAgU4CCrjTtsxKgAABAtsIKOBtVpkdRHoCBAh0E1DA3TZmXgIECBDYQkABb7FGIbIFpCdAoKOAAu64NTMTIECAQHsBBdx+hQIQyBaQnkBXAQXcdXPmJkCAAIHWAgq49foMT4BAtoD0nQUUcOftmZ0AAQIE2goo4LarMzgBAgSyBbqnV8DdN2h+AgQIEGgpoIBbrs3QBAgQINBd4FoBd09vfgIECBAgUCSggIvgXUuAAAEC2QIK+Pz+vUmAAAECBE4LKODTdF4kQIAAAQLnBRTwebvsN6UnQIAAgUsCCvgSn5cJECBAgMA5AQV8zs1b2QLSEyBA4LKAAr5M6AACBAgQIHBcQAEfN/MGgWwB6QkQGCKggIcwOoQAAQIECBwTUMDHvDxNgEC2gPQEhgko4GGUDiJAgAABAu8LKOD3rTxJgACBbAHphwoo4KGcDiNAgAABAu8JKOD3nDxFgAABAtkCw9Mr4OGkDiRAgAABAq8FFPBrI08QIECAAIHhAq0KeHh6BxIgQIAAgSIBBVwE71oCBAgQyBZQwG32b1ACBAgQ2ElAAe+0TVkIECBAoI2AAm6zquxBpSdAgMBuAgp4t43KQ4AAAQItBBRwizUZMltAegIEdhRQwDtuVSYCBAgQWF5AAS+/IgMSyBaQnsCuAgp4183KRYAAAQJLCyjgpddjOAIEsgWk31lAAe+8XdkIECBAYFkBBbzsagxGgACBbIHd0yvg3TcsHwECBAgsKaCAl1yLoQgQIEBgd4HnBbx7evkIECBAgECRgAIugnctAQIECGQLKODH+/cNAQIECBCYJqCAp9E6mAABAgQIPBZQwI9tsr+RngABAgSmCijgqbwOJ0CAAAECPwso4J9dfJotID0BAgSmCyjg6cQuIECAAAEC3wUU8HcTnxDIFpCeAIFbBBTwLcwuIUCAAAECXwUU8FcP/yJAIFtAegK3CSjg26hdRIAAAQIEfgko4F8WfiJAgEC2gPS3CijgW7ldRoAAAQIE/hFQwP84+JMAAQIEsgVuT6+Abyd3IQECBAgQ+PhQwH4LCBAgQIBAgcBSBVyQ35UECBAgQKBEQAGXsLuUAAECBNIFFPAyvwEGIUCAAIEkAQWctG1ZCRAgQGAZAQW8zCqyB5GeAAECaQIKOG3j8hIgQIDAEgIKeIk1GCJbQHoCBBIFFHDi1mUmQIAAgXIBBVy+AgMQyBaQnkCqgAJO3bzcBAgQIFAqoIBL+V1OgEC2gPTJAgo4efuyEyBAgECZgAIuo3cxAQIEsgXS0yvg9N8A+QkQIECgREABl7C7lAABAgSyBT4+FHD6b4D8BAgQIFAioIBL2F1KgAABAukCyQWcvnv5CRAgQKBQQAEX4ruaAAECBHIFFHDq7uUmQIAAgVIBBVzK73ICBAgQSBVQwKmbz84tPQECBMoFFHD5CgxAgAABAokCCjhx6zJnC0hPgMASAgp4iTUYggABAgTSBBRw2sblJZAtID2BZQQU8DKrMAgBAgQIJAko4KRty0qAQLaA9EsJKOCl1mEYAgQIEEgRUMApm5aTAAEC2QLLpVfAy63EQAQIECCQIKCAE7YsIwECBAgsJ3BrAS+X3kAECBAgQKBIQAEXwbuWAAECBLIFFPBt+3cRAQIECBD4JaCAf1n4iQABAgQI3CaggG+jzr5IegIECBD4KqCAv3r4FwECBAgQuEVAAd/C7JJsAekJECDwXUABfzfxCQECBAgQmC6ggKcTu4BAtoD0BAj8LKCAf3bxKQECBAgQmCqggKfyOpwAgWwB6Qk8FlDAj218Q4AAAQIEpgko4Gm0DiZAgEC2gPTPBRTwcx/fEiBAgACBKQIKeAqrQwkQIEAgW+B1egX82sgTBAgQIEBguIACHk7qQAIECBAg8Fpg5wJ+nd4TBAgQIECgSEABF8G7lgABAgSyBRTwrvuXiwABAgSWFlDAS6/HcAQIECCwq4AC3nWz2bmkJ0CAwPICCnj5FRmQAAECBHYUUMA7blWmbAHpCRBoIaCAW6zJkAQIECCwm4AC3m2j8hDIFpCeQBsBBdxmVQYlQIAAgZ0EFPBO25SFAIFsAelbCSjgVusyLAECBAjsIqCAd9mkHAQIEMgWaJdeAbdbmYEJECBAYAcBBbzDFmUgQIAAgXYCQwu4XXoDEyBAgACBIgEFXATvWgIECBDIFlDAw/bvIAIECBAg8L6AAn7fypMECBAgQGCYgAIeRpl9kPQECBAgcExAAR/z8jQBAgQIEBgioICHMDokW0B6AgQIHBdQwMfNvEGAAAECBC4LKODLhA4gkC0gPQECv+uE6gAAAkNJREFU5wQU8Dk3bxEgQIAAgUsCCvgSn5cJEMgWkJ7AeQEFfN7OmwQIECBA4LSAAj5N50UCBAhkC0h/TUABX/PzNgECBAgQOCWggE+xeYkAAQIEsgWup1fA1w2dQIAAAQIEDgso4MNkXiBAgAABAtcFOhfw9fROIECAAAECRQIKuAjetQQIECCQLaCAu+7f3AQIECDQWkABt16f4QkQIECgq4AC7rq57LmlJ0CAQHsBBdx+hQIQIECAQEcBBdxxa2bOFpCeAIEtBBTwFmsUggABAgS6CSjgbhszL4FsAekJbCOggLdZpSAECBAg0ElAAXfallkJEMgWkH4rAQW81TqFIUCAAIEuAgq4y6bMSYAAgWyB7dIr4O1WKhABAgQIdBBQwB22ZEYCBAgQ2E7gUAFvl14gAgQIECBQJKCAi+BdS4AAAQLZAgr47f17kAABAgQIjBNQwOMsnUSAAAECBN4WUMBvU2U/KD0BAgQIjBVQwGM9nUaAAAECBN4SUMBvMXkoW0B6AgQIjBdQwONNnUiAAAECBF4KKOCXRB4gkC0gPQECcwQU8BxXpxIgQIAAgacCCvgpjy8JEMgWkJ7APAEFPM/WyQQIECBA4KGAAn5I4wsCBAhkC0g/V0ABz/V1OgECBAgQ+FFAAf/I4kMCBAgQyBaYn14Bzzd2AwECBAgQ+CaggL+R+IAAAQIECMwXWLmA56d3AwECBAgQKBJQwEXwriVAgACBbAEFvOr+zUWAAAECWwso4K3XKxwBAgQIrCrwJwAAAP//lVwoVAAAAAZJREFUAwDU5ALRcl29HAAAAABJRU5ErkJggg==103.3.3.TIF B. See below.playingfalse3.3.3.53.3.3.TIF B. See below.playingfalse3.3.3.5X's turn?3.3.3.1 and 3.3.3.5
See 3.3.3.3 above for why we have to test PLAYING.available squares3.3.3 TIF A, here on down. See comment below.available squares1TIF 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.3: If the ninth move, the one that fills the board, causes a win, then the game isn't a tie even though no more moves are possible.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. 3.3.3.5: There are many ways to do this. The way shown here uses a /flag variable/, i.e., a variable whose value is true or false. In this case, PLAYING is true if further moves are allowed.3.3.3 TIF A
This is quite complicated!
We are asked to make a check, never mind details yet, after the eighth move, because that's when the last move is forced. But if the eighth move causes O to win (it has to be O because odd numbered moves are X and even numbered moves are O), then we shouldn't do this. That's why the IF around this code has to include a check of PLAYING.
If O didn't just win, then we are going to imagine filling the final square with X (because move 9, an odd-numbered move, is always X). But we're not really going to change what's on the board, just what's in the BOARD list. (Really we shouldn't even do that; we should copy the list and change the copy. But if the eighth move has just happened and X can win on the next move, it's okay that we've already marked that square as belonging to X; we'll do it again when player X actually clicks the square.)
It's just after the eighth move if there's exactly one number left in BOARD. We compute the list of numbers in BOARD, for two purposes: First we see if there's exactly one number. If so, we change that item of BOARD to X. Then, if X didn't win, we can announce a tie.
Note: The code from 3.3.3.1 that checks for a tie on the ninth move is now never going to succeed, because we're catching ties early. But there's no need to remove it, just in case a player manages to click the ninth square before we locate it. Maybe mark it as obsolete in a comment. true1,2,X,O,O,6,X,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