data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAKAAAAB4CAYAAAB1ovlvAAAAAXNSR0IArs4c6QAADSxJREFUeF7tnHtQ1WUax78/kNsRBEEwaTQFAwWEvIAXFFPbdlspNNNUElTUJDVr28q2mp21nXF32z8KTRLLxMsqi+aNZvePHU1Lc8xLbtxjBEHuyFVEuZ2d5z1zfnIW6/AHeF55n3fGAc75nd/7PM/34/O8t9/RjEajEdw4AjaKgMYA2ijy3K2IAAPIINg0AgygTcPPnTOAzIBNI8AA2jT83DkDyAzYNAIMoE3Dz50zgMyATSMgAMzLy0NhYaHNDBk1ahQCAwNt1j93bLsIaNnZ2UYXFxdhQUFBAUaPHv2z1pw/fx5TpkzpE2tbWlowduzYPrk331TeCGgZGRnGoKAgYeGpU6dQWVmJYcOGITc3F5MnT0ZRUZH4N3LkSBw7dgxHjhxBfX19r3uUnZ2NuXPn9vp9+YZyR0A7ceKE0Zx5kpKSYDAY4OPjg5ycHFRXVyM8PBzu7u4oLS3FmTNncPz4cdTV1fW6V9RfdHR0r9+Xbyh3BLTjx4/rAFIpdnZ2FoANHjwYt2/fFkDeuXMHVCIJxNbWVvF7bzcC8Nlnn+3t2/L9JI+AdvToUb0EN9aUI+f08Qdist0AB0xflIi7d++K/qgEx8TEPJC+uRN5IqAdOXJEz4B5n72GWVomCofNRtnYJX1ipXt7LbzOb4Nv2w00Td+IxgBT2aUMOG/evD7pk28qbwS0w4cP6xkw6+Pl8A8MhnvMe7rF2Sf2our0McDKsUEXgwEzP0wX5ZvKOJVpKt/m1tjYiFu3boGOH1JJH3nqDzCE/AqN45fpGfD555+XN1JsWZ9EQDt06JCeAXO2roTT3Pfg6ekJBwcH8fPrZRMxY4idRecuIZFoyTzbzaAhuwtw7do1MX68efMmvLy89Gto/Pjjjz+K169cuYJFQ0oxZKgvGp54Sc+ACxYs6BMn+abyRkBLT0/XAczdlgDH376L4OBgsfQyYsQInI6bZAEgwWcYNx03D/zVKoAEsLkRgOfOnRMZkNYTXxvvgPaOdjSE3QPwhRdekDdSbFmfREBLS0vTS3DeJ6sw4DfviAXh69ev47HHHsM3yyO6ZUCvJW/fF0CvL34SOyp79+7F8uXLMXDgQIsSrGmaWNqhdcSZyERHRwfqw2L1Erxo0aI+cZJvKm8EtIMHD+oZ8KfkNbB7+m2LHYnzibMwzc00U7XWPHfli8xpLsGDBg3SP0KvV1RUiL8feeQRhNZ9IwCsC12ql+AXX3zRWhf8fj+LgHbgwAEdwIJPXwaeetMCwJEGoOW7E1bdbvF4FC2jJ4u1w/b2dtjZ2cHJyckCQIKQGu2qhNV/i47ODtSNuwfg4sWLrfbDF/SvCGj79+/XAbyWkojO2W9YAPjtn1YhqD4HmhW/7TTg8X0/IT8/H46OjmIW3HUSQvBRWadGpf2JhrMCwNoQ03IPLcMsXWqCkZs6EdD27dunA1i48xW0P/k6vL29UVNTgzFjxuD7tVEWY0DvhD+jo7kBtQc/7BYl9505KCkp0UswLceYG8HXNQMSgJ2dnbgZYsp6BGBsrGk8yE2dCGh79uzRJyFFn61Da9RGUUZ9fX3Fv4uJMy0AdBoZDJqElG2J6xalQSnZuHHjhpiEEEz/X4K7ZsDxTedMAAabAKSdkGXLTGuC3NSJgJaamqpnwOJdG3B3xqtiDBcSEgKatV5eN8sCwIERz6D5wr/uGyG3HVkCwOHDh6O8vNziGoLvfgDWBJkmHpQB4+K6Q62OFGp6qu3evVsHsOSLV9ESud5iDFj32SaMKL3Uo+i4fpopFqLNY0BXV1eLElxcXCz+pvXFCbe+g7HTiOog09ILARgfH9+jfvii/hMBbdeuXTqApamvoXnqKxYAttZWoib3B6se27u6Y/ikKLHdRssr1MwHXel3gq9rBjQDWDV2oQ7gihUrrPbDF/SvCGiff/65DmDZntfRNHmt2K2g8Z+HhweuvhWDJ91be+S1Yft/RemlHRDacuv6tTO0AE1H/6nR8fugmlPi/aox9wBcuXJlj/rhi/pPBLSdO3fqk5Dyvb9DQ/gaMXmgQ6lUQrPeeAZRXfaCXYKnwXPBRpRu7r5o7PLJVbHYbAbQnAnN4TKfI6TM6JObDhiByjGm7TeahKxatar/RJY96VEEtJSUFD0DVu7/PeomroKbm5vIUs3Nzch5c64FgK5TouEWNR/lf0vo1oHzth/EkX46tr9w4UIxm/65NjTvkACwItB0AIHGgKtXr+6R0XxR/4mAtmPHDh3Aqn+8idoJCeJZEMpSBFPuW9EWADoHhkNzcLzvaRgzgOYMSKenza22tlY8U0Jtzpw5iGj5HkYYURFwD8A1a9b0n8iyJz2KgJacnKyX4OoDb6HmiRUWk5C7V7+GV7NpD9das3/mZTQ1NYkSTiedaZ2va0tPTxclesOGDRiW/6V4qzzAdAaQSvDatWutdcHv97MIaNu3b9cz4M20TagKjYe9vb2YydIYkNb0erNReafJx6Are8Vtyx6fr5fgxMTE3uyK7/UQREDbtm2bngFr//kOKkKWiYME5kcxuz4w3tDQgKysLPj5+YnHNidNmoTMzEyR1aZOnSrGjEOHDhXHsC5cuAB/f3+L/WA6HUNbfLRUM672DGiDuWy0CUDKgOvWrXsIQsYm9mYEtK1bt+oZsP7QuygLisWlS5cEgLQ1RgcHzI2O1VNWPH36NGjJZMuWLUhISBCwTZgwAV999ZU4B0i7IfRaaGioOJ5PjeCjpRnaXaHjWk7ffgJnN3eU+pueA6FJyPr163vTN77XQxABLSkpSQew4fB7aB0WhlLD41iyZAnS0tLElpy50aSCMhU9K0wg0hF7mvFu2rRJjP3M36xAGfTq1auYNm2ayIoEH01CCD4qv3Qgdfj3H8N7TARu+JuehCMAaWzITa0IaB999NG9xzK/fB/TXavx78Hz0Og2EgEBAVajQRmSdjl+6bvOCTzKfnQQNS87Ex51uYhuOoESv+dww88EIIG9ceNGq/3xBf0rAtqZM2eM5vU690u7ENLwnfAwt9ULRR0eveqtPTox3rECQ+xND7aXPf0hCttNfdATdDNmzOjV/vhm8kdAfDvWyZMnRcmktT/agnsQra2tTWROamFhYZg9e/aD6Jb7kCwC/P2AkgmimjkMoGqKS+YvAyiZIKqZwwCqprhk/jKAkgmimjkMoGqKS+YvAyiZIKqZwwCqprhk/jKAkgmimjkMoGqKS+YvAyiZIKqZwwCqprhk/jKAkgmimjkMoGqKS+YvAyiZIKqZwwCqprhk/jKAkgmimjkMoGqKS+YvAyiZIKqZwwCqprhk/jKAkgmimjkMoGqKS+YvAyiZIKqZwwCqprhk/jKAkgmimjkMoGqKS+YvAyiZIKqZwwCqprhk/jKAkgmimjkMoGqKS+YvAyiZIKqZwwCqprhk/jKAkgmimjkMoGqKS+YvAyiZIKqZwwCqprhk/jKAkgmimjkMoGqKS+YvAyiZIKqZwwCqprhk/jKAkgmimjkMoGqKS+YvAyiZIKqZwwCqprhk/jKAkgmimjkMoGqKS+YvAyiZIKqZwwCqprhk/jKAkgmimjkMoGqKS+YvAyiZIKqZwwCqprhk/jKAkgmimjkMoGqKS+YvAyiZIKqZwwCqprhk/jKAkgmimjkMoGqKS+YvAyiZIKqZwwCqprhk/jKAkgmimjkMoGqKS+YvAyiZIKqZwwCqprhk/jKAkgmimjkMoGqKS+YvAyiZIKqZwwCqprhk/jKAkgmimjkMoGqKS+YvAyiZIKqZwwCqprhk/jKAkgmimjndACwuLkZpaSnq6upsEovBgwf3qN/K8jI4OrvAy8sLAQEB6OnnenRzvuiBRcACwJKSEly/fh3e3t4PzICuHRkMBnzz7q8xybXeav+ec17GzZDF4rqysjLMmjXL6mf4AvkiYAFgZmYmjEajsDI5ORnh4eHIyspCfHx8N8tTU1Pv+7r5wsOHD4v3J06ciM2bNwuw4+LifjECAwcaUPFBJEJ9HPXrHKPfF7+3Znxg8dnO0Hm4Hrpaf62lpQURERHyRZgt+sUIWABImaS8vFx8ICUlBaNGjcLt27fR2dmJAQMGoL29Xfzt4OAAR0dH8fPkyZMYN24cfH19MX/+fKSlpcHe3h4+Pj6IiooSIAcGBqKyshJOTk5obW1FQUEBwsLCcPToUcTExCAjIwNJSUkwuLig5i8zLQB0filZ2HNnX6KFIx3jYlAwdrn+Wn19PebMmcNyP2QRsADw4sWLAhBqly9fFhmlsbERTU1NYoxFP6kRkAQfAUVjxba2NgGci4uLANjT01NcQ39XV1eLz9jZ2YGylIeHB4qKihAZGSlArKqqgr+/P/z8/NDcfAsNf3/KAkD7QFNp7cg7ZRHa9pDnkO2/VH9N0zRMnTr1IQs/m2sBYGFhIQhCW40BCWjP//wRj97KtaqMXeQqXBgUJa6jSVNsbKzVz/AF8kWg2yw4Pz8fZ8+eFZnPFs3Nza1H/wEqKirEcIBKP2VT+snt4YvA/wA8twHzIqQxlwAAAABJRU5ErkJggg==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==10playingfalseplayingfalseX'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. 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. 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.LABEL will stamp text on the stage at the given font size. The direction of the text is the direction the sprite is facing, and color will match the pen color.Hello!121datamapmany1data lists11110i121cont3catchtagcontcatchtagSpriteSpriteI'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,10000