data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAKAAAAB4CAYAAAB1ovlvAAALfElEQVR4Xu2deXBNWR7Hf5fUIEtNmNa2LrFvY2kkdqJjmdA0lTFMlalSZYaaajVVegiNaNEYMihKa62Njq1QFLoNYkQikV0iu+zLxFLGGgyKRsvU73TdM3mSyLsv9zmp+76/f5K8d87vd8/3fvK755x77rlaVVVVFcGggCIFNACoSHmEFQoAQICgVAEAqFR+BAeAYECpAgBQqfwIDgDBgFIFAKBS+REcAIIBpQoIAM+dO0e9e/cmTdOI56Xf9c/8/HwKDAxUKgSCq1FAi4iIqOrTp4+I3qlTJ6qoqKjzSJ4/f07Nmzd3ypEWFBQAQqco27idauXl5VV6xuvSpUudRztkyBAqLS2ly5cvOy1Ddu7cuXGrhaMzXQGtrKxM3gvu2rVrnQHGjx9PycnJlJOTY/pB6A7f9g/gtKBwrFQBraSkRGRA3fQ+oIq/3/YPoFQlBHeaAgJAHbpu3bpRVmqSGIi8C/Ns9b7N5Zzjw1xLAa2oqEj2AX/4dCh9OtiLYr0Dqf/sEKf09RJjztOUvFChsmfYNSouLpZxevTo4Vrqo7WkFRYWynQX89kI6jAyiPrNXiGl2RO6iJpn/6teqZoQ0azv86iwsFCW7dWrl4SLP7x9+7b4rk2bNvTeN2MEgEVFRbJ8z549642DAtZSQMvPz5cZ8OKiUTRxe5pN5iuY+yF182pq0+pOXydTxYLhNZR4b28p8Zxeu3btxHdNmjSR84pRUVE0aNAgevDggZjq4Z/BwcHE0y/6KJznImGupYCWl5cnM2Dc4tE04atUAQ0PCMrLy6n4T4Ooq50A/mpPiQBKB7D6QCYmJobmz58vfO/atYsePnxIS5YsEcDqps9HutYpcO3Warm5uTIDJizxp4CtySIj8YCA5/1K5/vaDWCr8GJxCR41ahSVlZXR69evZQaMjo6mgQMHCrWzsrKosrKSli1bRleuXJEZsG/fvq59Nlyw9VpOTo7MgIlLx9JHW5JsZCj/85AaANalU8vvikSfTs+Ar169kkU5A1Y3BnD58uWUm5srP+7Xr58LngLXbrKWlZUl5wGTPv+I/DcnSEU4E3bs2JHc3d3tUomzX/UpHL1vx5UZwOp/M4AhISGUnZ0tPmfr37+/XXFQyDoKaJmZmSIDMgTJywJo9MY40Todln0z/WhOZ/vu/7ptTqa7d+/KDMj3jnW7ePGiDZwM4MqVK8XlWI83YMAA6yiLltilgJaRkSEvwZdWjKeRYbF04MAB2rhxo7g8Xv/LSJtLcPcTt0hz+wUVf9KqRoBf/qOASkpKJIDPnj2TfcDY2Fib8vfu3aPQ0FDKzMyUn+t9RLuOHIUsoYCWnp4uAUwNmUAjNvzcV+MpER6h3lw4pkYfsPuxm1Qyo30NAby+zRODj9GjR4sBzJMnT+TlVc+A+uWWAVy9ejVlZGRIPzxNA3MtBbS0tDQ5Cr78xW9o6LooMQJ++fIlXbt2jf7zmb8NgD3+WSkUqi0Deu68IqZu9EHI48ePZQZkAKsbX6rXrl1rs7rG19fXtdRHa0lLTU2VGTB9VSANWXveRpbK4ADq6MH3Oeq3H9ddpEePHkkA+Xfd4uJ+7lvqxgCuW7eO0tLS5Gd+fn71B0EJSymgpaSkyAyYuXoy+X55zqaBnJXSk/8/Mq6r9U00jX5ya1anOPHx8Tbf3blzh9avX0+XLl2SA56hQ4daSlw0pn4FtOTkZJkBs778mAaFnrWp9e+/jqeBrdzq90RELb7OpqtXr8oMeP/+fVnvxYsXAjY2Bu3UqVMUFhZGKSkpssywYcPsioNC1lFAS0xMlBkwZ+1U+vCLM+Tj40Pz5s0T0ySVn0+06QN+sOZ7ch/gX2sf8E0AeaBR1zMmx44dEyPtpKQkmQFHjBhhHWXRErsU0BISEuQ8IAM4YOVpcZ928uTJAo6HywNtAOy8K4Oaer9PpTM/qBGg+fYsMXDRR8F8mWWrbZHriRMnaNOmTZSYmCjK8OgYANp1zixVSIuPj5eX4Ct/m0Z9l5+0WQ3z35DJdt+Ka/ZVJl2/fl1egm/dumWTARlMtoSEBOIMuGXLFvG7bnwPGeZaCmhxcXFyRXTe+un062U/2CjQ3+Mnuh0aZJcqt4NP0tOnT2VZDw+POusdP36ctm7dSjw40TOkDqhdwVDIEgposbGxMgMWhAVR76UnBBh8edy5cydNmTLFKQ1lALdt20bV5wf9/f2dEgtOG68CWkxMjASw8O+/pZ7Bx8QChJMnT9K0adNEn043fiSTL50bNmygOXPm0L59+wSoERERxHN4vJolPDycLly4IH5v3bq1+L02YwC3b99O1W/RjR071jSlGG5e6NAQ41F7Q6aG+K4QzwTwI60NsVWrVolzYkXToqOj5Si4eNPvqPuio+IBdZ4e4YEI3yrTFyakp6fTwoULiRcZ6H09vpfL3y9dupRWrFhBXl5esjw/yskroWvbaYFB3rFjhwBU/z4gIMA0jXmEzQtcG7LGkP8Bjx49Ss2a1T2/+bYD5jaePn2a9u7d63C7+DFYboNVn5nWoqKiZAYs2TyTsn1mEg8eOLMtXryYFixYIPtobdu2Fd95e3tTixYtiJ/h4GX3vNh0zJgxxHc7qsPG/7WcQWubihke9UfxTAjX1W3cuHEOn6g3KzKAM2bMaNCJ40FR9UGS0YM7ePAgnT9/vkEAchZljS0LYGRkpMyAZVt+T3/o50GrfpxGEydNccpTcQwjT8Fs9j4rAOQTpEM7YcIEo+e4zvIA0DQpnepICw8Pr+rQoYMIcu+b2fRJjxZODVjdOQMYGRkpPrpx4wbNnTvXtNgA0DQpnepI7I7FA4f27ds7LePVt9vWzZs3TYWPFQOATuXGNOeW3R8QAJrGiFMdAcC3yItBiFPZE84BIAB0PmVviQAAASAAdIYC6AM6Q1XzfSIDIgOaT5UBjwAQABrAxfyiABAAmk+VAY8AEAAawMX8ogAQAJpPlQGPABAAGsDF/KKWBXDq1KlinxpPT0+HVeMFrbwWr2lT2x1i7XXIS9H4Aa+G7PrFu0vs3r1bPOhlRbMsgPzQ+/Tp08WaRUdt+PDh4qk9Xo/niO3fv5/Onj1Lhw8fdqS6qMM7zvLbqaz6CgvLAoiJaIeZf6cVASD6gO8UuDeDAUAACACdoQAuwc5Q1XyfyIDIgOZTZcAjAASABnAxvygABIDmU2XAIwAEgAZwMb8oAASA5lNlwCMABIAGcDG/KAAEgOZTZcAjAASABnAxvygABIDmU2XAIwAEgAZwMb+opQGcNGlSg/YH5NdG8PZsbm72vabizdPDy7HOnDlDR44ccfjM8fv6eE2jZbdnExtEW9B4b0BeDMqbbTpqhw4doqCgILEezxHjN4Hy+5NnzZrlSHVRp6KigtasWUO8NtGKZukMiA0qGz+yABB9QKWUAkAACACdoQDWAzpDVfN9IgMiA5pPlQGPABAAGsDF/KIAEACaT5UBjwAQABrAxfyiABAAmk+VAY8AEAAawMX8ogAQAJpPlQGPABAAGsDF/KIAEACaT5UBjwAQABrAxfyiABAAmk+VAY+WBtDHx4cGDx5sQA7bory/IK8JdHd3d8gHv+ya9wfcs2ePQ/W5Er+lnt+4jgWpDkuopiK/CLuysrJBwdPS0sjPz89hH7wYlXc49fX1ddgHV+Q3z7ds2bJBPhprZctmwMYqOI7LVgEACCKUKgAAlcqP4AAQDChVAAAqlR/BASAYUKoAAFQqP4IDQDCgVAEAqFR+BAeAYECpAgBQqfwIDgDBgFIFAKBS+REcAIIBpQoAQKXyIzgABANKFQCASuVHcAAIBpQqAACVyo/gABAMKFUAACqVH8EBIBhQqgAAVCo/ggNAMKBUAQCoVH4EB4BgQKkCAFCp/AgOAMGAUgUAoFL5ERwAggGlCgBApfIjOAAEA0oVAIBK5UdwAAgGlCrwP5mNsBHmF6tZAAAAAElFTkSuQmCCdata:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAeAAAAFoCAYAAACPNyggAAAOhUlEQVR4Xu3VwQkAAAjEMN1/abewn7jAQRC64wgQIECAAIF3gX1fNEiAAAECBAiMAHsCAgQIECAQCAhwgG6SAAECBAgIsB8gQIAAAQKBgAAH6CYJECBAgIAA+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+wECBAgQIBAICHCAbpIAAQIECAiwHyBAgAABAoGAAAfoJgkQIECAgAD7AQIECBAgEAgIcIBukgABAgQIHLFxAWmhEwHPAAAAAElFTkSuQmCC10playingfalseplayingfalseX's turn?available squaresavailable 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.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. 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.true1,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,1000