data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAKAAAAB4CAYAAAB1ovlvAAALBklEQVR4Xu2dCWxWxxHH53EYCOE+A+Ym2OYwR23MYWwXTBKFtglUBYkqgaCGSBXiqBuCHRyuECDYQIE0lUI42gbUpkAUUamIy4AxBnOYy4ANFhiDzWHMVXOZum+22sVfHfBK8fL5vfdfCaHv++bN7sz83ryd3X1gldmN0OABP3nAAoB+8jy6FR4AgADBrx4AgH51PzoHgGDArx4AgH51PzoHgGDArx4AgH51PzoHgGDArx4QAB4/fpzu3r1L7du3p/Lr0pZlGf+cl5dHDRo0oNDQUL86Ap37xwNWZmZmWePGjf3Te7leb926Rb179/b7ODCAF+sBa/fu3WUy802cOJEePXpEYWFhVFhYqEZy6dIlWrZsGSUnJ9PKlSvp9u3bIjNyhpTtx37mTBgVFfVirUdvfveAlZubK3bjGKbOnTvT2LFj6cSJE9SrVy/Kz88XsDGQDRs2pIEDB1JsbCwVFxcLeXldVf3dqVMnvzsEA3ixHrDOnTtXbQ4jdOnS5cVaj9787gErJydHZcBXWremgvwLdOVSnvGB3blVTEF9+vtk0q5duxrvFx1ULw9YZ8+eVRnwT++G09zoRpRSdzAFxr5HTTsEV/loj237lgZn/5EC6DHVmHVGPOZl69atW5X3B4XV2wPWmTNnVAbcOW0QBYYNp14TFqrMVPvfN+nbd6Po/pPnP6nr165JozZn0cmTJ5XFwcHBPhlOFjatWrWi5l9G0cuL8si+AdRcMigoqHp7C6Orcg9YWVlZiqyUuEgK//Av1KxjCN2/f5/q1atHqb8OpYjmtbU6bv3XC2TroxYtWlBpaSkFBAQouLZv305t2rShZs2aCUif5B2lD+Z+QadPn1a6Q0JCtPqBkHs8YJ06dUplwN2/H0KvrThIdevWFYvD165do3MTw6jzyzWUxR2/2E+lNwspP3FkBS+0/HMu2RlVAVizZk2VAXft2kVLly6lAwcO0IYNG4jX/aZPny6AlVV09+7d3eNZWKLlActecimTSyp7p0dT7B/SxYX8mLx69Sqd/yDcB0D+LXDe5ucC2L9/f7KLG6pR4ym4O3fupD59+gjd9uK3WMqZMWOGyIay/549e2oNGkLu8YAAUG6/pX4UQ0OXpvlYd+G3EdSp/lOQnmf6K99cJDujqgxYXpYzYPl28+ZNSkhIEADK/nntEc1bHrCOHTum5oD7ZvyUYpJTfTzQsmVLMW+rrJWUlNDFixefKfZDAM6cOZN4H1o27AdX5mX3/S72guUcLC1+KEUn7fXZ4Uj+xU8oLuQlerrp9sNO4N8bf3VKQCiLEC5E5OPV3vLz0csZMDExkewbQH2PvWD3AVaZRdaRI0dUBkz/OJYiF6XQjh07RDExadIkypscSV3LFSE8/wsI7Ea57/WooLvZmhwx95MAPn78WMGVkpLiI3/jxg2aPXs2HT16VH3ft2/fysaL313mAevw4cMqAx6YOZwGL9wlCoRBgwaJCrVgWnSFIuTVTYWUM6p1BVc0+fosnT9/npo3b05PnjyhBw8eqAy4Z88enwxYVFREc+bMIfsGUN/369fPZe6FOZV5wMrIyFAZMOOT12ngZzuIF5B5KYar1cLfxfgA+OrGArJqBVD2WxXnhRJAmQF5LVE2fgSXb5wB582bR4cOHVJf86EHNG95wDp48KDKgIdmvUERn27zOWpVmjCMGgdUNgP8n9PqrsykK1euUKNGjcRnCSDPMffu3as8y58ZwPnz55N9A6j+wsPDveV9traT7duEJKL347xnu22xlZ6ertYBj8x5k8LnbvVxRJC9P5t9IpPu3bnzXAflXcilkPBBFc4JyovKA8jf8SL3ggULxMK0LFQiIiK8FwQGcOpsoimzvGc7A7h//371CD46dwSFzfmXz1xt7TvRNDWonpZzApYfEQdZ5SOYzxJKuK5fvy4KG/7Mhw5SU1Np4cKFZN8ASveAAQO0+nGVkNcB3Ldvn8iA3DLn/Yz6fvJPcTB1yZIlNHLkSCqOf91nDtj1b3lU/P2XVPTNgoocJKUTL69IAHm77VnvmGzcuJEWL15MaWlp6mQ1H3j1XAOA+9Qc8NinP6c+iVto69at4pDAlClT6M7MN30AlNtwL4VGUcnxPT68/OfzNLHHyxU0X8+V7rNOTm/atImSkpIEgHIdkq/zXPM6gPbcTD2CT3z2FoV+/L0PA3cTR1RYhnkWJBJAmQG50JBt9erVxH+4TZgwQRQqnGX5USxbZGSk5/gTRYiX54D2+pzKgCcXvE0947/zmQP2KCuiouTfVA5GjVp0Y/pmunfvnpLlpZzyGXDNmjXit/HjxxNnQH7RiYsTmQGHDBlSeT9uk/A6gPYOhcqAWYtGUfePNtGWLVto+PDhokCIjo6u8pDzdh2v/y1fvpzKrw+a6KvKB1/VCr0OoH1IQGXA05//koI//Ac1adKE1q1bJ+CTa3qcyfikCx8a/f/XMflYfXZ2Ng0dOlT9xvDyK57yVUuZCfn1S34NlDPgihUriLfoZAaMiYmp6vBWf31eB9De91XrgGeTfkXd4v5OHTt2pPXr14u5Gi+dyMaFxeTJk2nVqlU0ZswYkSEZVt664/1jXl5p166dEOclFq6mR48era5nUAMDA8V7IBmpKbTyqzXE5wQlnAyw55rXAbSPyqtHcHbyaMpqN5LyrxWJCjU+Pp74ZXWZoTj78TH9pk2bih2PgoIC6tChA92xF6n5ACtXtHx0i6tfPn7Pb7nJOR7L83fy7/Zbp1FQ0kkBrmzDhg3zHH+eL0LWrl1b1rZtWxH4nCVj6J1e9enrgLcpOHKETwEhyfix/wICX5/x3Sqa2vCAeClp27Ztop/Lly/TuHHjAKDHPGBxEfLw4UMBQcO0FdSjJNOYCx6W1aI6VqnSXxJ3SBx44FanTh0jBY8xY6pKsdcfwVyBcCXKx6hkJqwq3+ro4UcyzxU9WQGzgwAg/p8QnRvFmAwABIDG4NJRDAABoA4nxmQAIAA0BpeOYgAIAHU4MSYDAAGgMbh0FANAAKjDiTEZAAgAjcGloxgAAkAdTozJAEAAaAwuHcUAEADqcGJMBgACQGNw6SgGgABQhxNjMgAQABqDS0cxAASAOpwYkwGAANAYXDqKASAA1OHEmAwABIDG4NJRDAABoA4nxmQAIAA0BpeOYgAIAHU4MSYDAAGgMbh0FANAAKjDiTEZAAgAjcGloxgAAkAdTozJAEAAaAwuHcUAEADqcGJMBgACQGNw6SgGgABQhxNjMgAQABqDS0cxAASAOpwYkwGAANAYXDqKASAA1OHEmAwABIDG4NJRDAABoA4nxmQAIAA0BpeOYgAIAHU4MSYDAAGgMbh0FANAAKjDiTEZAAgAjcGloxgAAkAdTozJAEAAaAwuHcUAEADqcGJMBgACQGNw6SgGgABQhxNjMgAQABqDS0cxAASAOpwYkwGAANAYXDqKASAA1OHEmAwABIDG4NJRDAABoA4nxmQAIAA0BpeOYgAIAHU4MSYDAAGgMbh0FDOACUlE78fpSLtOxiqzm+usgkGO8QAAdEyo3DlQAOjOuDrGKgDomFC5c6AA0J1xdYxVANAxoXLnQAGgO+PqGKsAoGNC5c6BAkB3xtUxVgFAx4TKnQMFgO6Mq2OsAoCOCZU7BwoA3RlXx1gFAB0TKncOFAC6M66OsQoAOiZU7hwoAHRnXB1jFQB0TKjcOVAA6M64OsYqAOiYULlzoADQnXF1jFUA0DGhcudAAaA74+oYqwCgY0LlzoECQHfG1TFWAUDHhMqdA/0vNkYc83+Su8YAAAAASUVORK5CYII=data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAeAAAAFoCAYAAACPNyggAAASmUlEQVR4Xu3ZQaqeZRaF0e+iY7CbAufgbByF9svq6yicjXMQKl3HoNySaEctxIbJc3AvWxFCznnX2bD5+F8e/xEgQIAAAQIfXODlg080kAABAgQIEHgUsBAQIECAAIFAQAEH6EYSIECAAAEFLAMECBAgQCAQUMABupEECBAgQEABywABAgQIEAgEFHCAbiQBAgQIEFDAMkCAAAECBAIBBRygG0mAAAECBBSwDBAgQIAAgUBAAQfoRhIgQIAAAQUsAwQIECBAIBBQwAG6kQQIECBAQAHLAAECBAgQCAQUcIBuJAECBAgQUMAyQIAAAQIEAgEFHKAbSYAAAQIEFLAMECBAgACBQEABB+hGEiBAgAABBSwDBAgQIEAgEFDAAbqRBAgQIEBAAcsAAQIECBAIBBRwgG4kAQIECBBQwDJAgAABAgQCAQUcoBtJgAABAgQUsAwQIECAAIFAQAEH6EYSIECAAAEFLAMECBAgQCAQUMABupEECBAgQEABywABAgQIEAgEFHCAbiQBAgQIEFDAMkCAAAECBAIBBRygG0mAAAECBBSwDBAgQIAAgUBAAQfoRhIgQIAAAQUsAwQIECBAIBBQwAG6kQQIECBAQAHLAAECBAgQCAQUcIBuJAECBAgQUMAyQIAAAQIEAgEFHKAbSYAAAQIEFLAMECBAgACBQEABB+hGEiBAgAABBSwDBAgQIEAgEFDAAbqRBAgQIEBAAcsAAQIECBAIBBRwgG4kAQIECBBQwDJAgAABAgQCAQUcoBtJgAABAgQUsAwQIECAAIFAQAEH6EYSIECAAAEFLAMECBAgQCAQUMABupEECBAgQEABywABAgQIEAgEFHCAbiQBAgQIEFDAMkCAAAECBAIBBRygG0mAAAECBBSwDBAgQIAAgUBAAQfoRhIgQIAAAQUsAwQIECBAIBBQwAG6kQQIECBAQAHLAAECBAgQCAQUcIBuJAECBAgQUMAyQIAAAQIEAgEFHKAbSYAAAQIEFLAMECBAgACBQEABB+hGEiBAgAABBSwDBAgQIEAgEFDAAbqRBAgQIEBAAcsAAQIECBAIBBRwgG4kAQIECBBQwDJAgAABAgQCAQUcoBtJgAABAgQUsAwQIECAAIFAQAEH6EYSIECAAAEFLAMECBAgQCAQUMABupEECPwi8Prp88nz4/P5u//5+Pn25fvnBzYEVgQU8MqlvZPAMYF35fvT893Pa735dbW3z0fPZ0r42KGs894EFPB7o/UPEyDwZwKvb54vnpfn69/8ndfny5e3zzfkCCwIKOCFK3sjgYMCr/96/v3zWl/9brWvXv77/OfgulYi8LcLKOC/ndQ/SIDAXxFQwH9Fyd/5Jwso4H/ydb2NwGEBBXz4OFb7IAIK+IMwG0KAwO8FFLBMrAso4PUEeD+BSEABR/DGnhFQwGdOYRECWwIKeOveXvtHAQUsFQQIJAIKOGE39JCAAj50DKsQWBJQwEvX9tb/J6CA5YIAgURAASfshh4SUMCHjmEVAksCCnjp2t7qC1gGCBA4I6CAz5zCIpGAL+AI3lgC6wIKeD0B3q+AZYAAgURAASfshh4SUMCHjmEVAksCCnjp2t7qN2AZIEDgjIACPnMKi0QCvoAjeGMJrAso4PUEeL8ClgECBBIBBZywG3pIQAEfOoZVCCwJKOCla3ur34BlgACBMwIK+MwpLBIJ+AKO4I0lsC6ggNcT4P0KWAYIEEgEFHDCbughAQV86BhWIbAkoICXru2tfgOWAQIEzggo4DOnsEgk4As4gjeWwLqAAl5PgPcrYBkgQCARUMAJu6GHBBTwoWNYhcCSgAJeura3+g1YBggQOCOggM+cwiKRgC/gCN5YAusCCng9Ad6vgGWAAIFEQAEn7IYeElDAh45hFQJLAgp46dre6jdgGSBA4IyAAj5zCotEAr6AI3hjCawLKOD1BHi/ApYBAgQSAQWcsBt6SEABHzqGVQgsCSjgpWt7q9+AZYAAgTMCCvjMKSwSCfgCjuCNJbAuoIDXE+D9ClgGCBBIBBRwwm7oIQEFfOgYViGwJKCAl67trX4DlgECBM4IKOAzp7BIJOALOII3lsC6gAJeT4D3K2AZIEAgEVDACbuhhwQU8KFjWIXAkoACXrq2t/oNWAYIEDgjoIDPnMIikYAv4AjeWALrAgp4PQHer4BlgACBREABJ+yGHhJQwIeOYRUCSwIKeOna3uo3YBkgQOCMgAI+cwqLRAK+gCN4YwmsCyjg9QR4vwKWAQIEEgEFnLAbekhAAR86hlUILAko4KVre6vfgGWAAIEzAgr4zCksEgn4Ao7gjSWwLqCA1xPg/QpYBggQSAQUcMJu6CEBBXzoGFYhsCSggJeu7a1+A5YBAgTOCCjgM6ewSCTgCziCN5bAuoACXk+A9ytgGSBAIBFQwAm7oYcEFPChY1iFwJKAAl66trf6DVgGCBA4I6CAz5zCIpGAL+AI3lgC6wIKeD0B3q+AZYAAgURAASfshh4SUMCHjmEVAksCCnjp2t7qN2AZIEDgjIACPnMKi0QCvoAjeGMJrAso4PUEeL8ClgECBBIBBZywG3pIQAEfOoZVCCwJKOCla3ur34BlgACBMwIK+MwpLBIJ+AKO4I0lsC6ggNcT4P0KWAYIEEgEFHDCbughAQV86BhWIbAkoICXru2tfgOWAQIEzggo4DOnsEgk4As4gjeWwLqAAl5PgPcrYBkgQCARUMAJu6GHBBTwoWNYhcCSgAJeura3+g1YBggQOCOggM+cwiKRgC/gCN5YAusCCng9Ad6vgGWAAIFEQAEn7IYeElDAh45hFQJLAgp46dre6jdgGSBA4IyAAj5zCotEAr6AI3hjCawLKOD1BHi/ApYBAgQSAQWcsBt6SEABHzqGVQgsCSjgpWt7q9+AZYAAgTMCCvjMKSwSCfgCjuCNJbAuoIDXE+D9ClgGCBBIBBRwwm7oIQEFfOgYViGwJKCAl67trX4DlgECBM4IKOAzp7BIJOALOII3lsC6gAJeT4D3K2AZIEAgEVDACbuhhwQU8KFjWIXAkoACXrq2t/oNWAYIEDgjoIDPnMIikYAv4AjeWALrAgp4PQHer4BlgACBREABJ+yGHhJQwIeOYRUCSwIKeOna3uo3YBkgQOCMgAI+cwqLRAK+gCN4YwmsCyjg9QR4vwKWAQIEEgEFnLAbekhAAR86hlUILAko4KVre6vfgGWAAIEzAgr4zCksEgn4Ao7gjSWwLqCA1xPg/QpYBggQSAQUcMJu6CEBBXzoGFYhsCSggJeu7a1+A5YBAgTOCCjgM6ewSCTgCziCN5bAuoACXk+A9ytgGSBAIBFQwAm7oYcEFPChY1iFwJKAAl66trf6DVgGCBA4I6CAz5zCIpGAL+AI3lgC6wIKeD0B3q+AZYAAgURAASfshh4SUMCHjmEVAksCCnjp2t7qN2AZIEDgjIACPnMKi0QCvoAjeGMJrAso4PUEeL8ClgECBBIBBZywG3pIQAEfOoZVCCwJKOCla3ur34BlgACBMwIK+MwpLBIJ+AKO4I0lsC6ggNcT4P0KWAYIEEgEFHDCbughAQV86BhWIbAkoICXru2tfgOWAQIEzggo4DOnsEgk4As4gjeWwLqAAl5PgPcrYBkgQCARUMAJu6GHBBTwoWNYhcCSgAJeura3+g1YBggQOCOggM+cwiKRgC/gCN5YAusCCng9Ad6vgGWAAIFEQAEn7IYeElDAh45hFQJLAgp46dre6jdgGSBA4IyAAj5zCotEAr6AI3hjCawLKOD1BHi/ApYBAgQSAQWcsBt6SEABHzqGVQgsCSjgpWt7q9+AZYAAgTMCCvjMKSwSCfgCjuCNJbAuoIDXE+D9ClgGCBBIBBRwwm7oIQEFfOgYViGwJKCAl67trX4DlgECBM4IKOAzp7BIJOALOII3lsC6gAJeT4D3K2AZIEAgEVDACbuhhwQU8KFjWIXAkoACXrq2t/oNWAYIEDgjoIDPnMIikYAv4AjeWALrAgp4PQHer4BlgACBREABJ+yGHhJQwIeOYRUCSwIKeOna3uo3YBkgQOCMgAI+cwqLRAK+gCN4YwmsCyjg9QR4vwKWAQIEEgEFnLAbekhAAR86hlUILAko4KVre6vfgGWAAIEzAgr4zCksEgn4Ao7gjSWwLqCA1xPg/QpYBggQSAQUcMJu6CEBBXzoGFYhsCSggJeu7a1+A5YBAgTOCCjgM6ewSCTgCziCN5bAuoACXk+A9ytgGSBAIBFQwAm7oYcEFPChY1iFwJKAAl66trf6DVgGCBA4I6CAz5zCIpGAL+AI3lgC6wIKeD0B3q+AZYAAgURAASfshh4SUMCHjmEVAksCCnjp2t7qN2AZIEDgjIACPnMKi0QCvoAjeGMJrAso4PUEeL8ClgECBBIBBZywG3pIQAEfOoZVCCwJKOCla3ur34BlgACBMwIK+MwpLBIJ+AKO4I0lsC6ggNcT4P0KWAYIEEgEFHDCbughAQV86BhWIbAkoICXru2tfgOWAQIEzggo4DOnsEgk4As4gjeWwLqAAl5PgPcrYBkgQCARUMAJu6GHBBTwoWNYhcCSgAJeura3+g1YBggQOCOggM+cwiKRgC/gCN5YAusCCng9Ad6vgGWAAIFEQAEn7IYeElDAh45hFQJLAgp46dre6jdgGSBA4IyAAj5zCotEAr6AI3hjCawLKOD1BHi/ApYBAgQSAQWcsBt6SEABHzqGVQgsCSjgpWt7q9+AZYAAgTMCCvjMKSwSCfgCjuCNJbAuoIDXE+D9ClgGCBBIBBRwwm7oIQEFfOgYViGwJKCAl67trX4DlgECBM4IKOAzp7BIJOALOII3lsC6gAJeT4D3K2AZIEAgEVDACbuhhwQU8KFjWIXAkoACXrq2t/oNWAYIEDgjoIDPnMIikYAv4AjeWALrAgp4PQHer4BlgACBREABJ+yGHhJQwIeOYRUCSwIKeOna3uo3YBkgQOCMgAI+cwqLRAK+gCN4YwmsCyjg9QR4vwKWAQIEEgEFnLAbekhAAR86hlUILAko4KVre6vfgGWAAIEzAgr4zCksEgn4Ao7gjSWwLqCA1xPg/QpYBggQSAQUcMJu6CEBBXzoGFYhsCSggJeu7a1+A5YBAgTOCCjgM6ewSCTgCziCN5bAuoACXk+A9ytgGSBAIBF4ffN88bw8X/9m+Ovz5cvb55tkIUMJfGABBfyBwY0jQOAXgddPn0+en57vfv7jm19N3j4fPZ+9fP/8wIjAgoACXriyNxI4KvCuhH98Pn+33sfPt8r36KGs9V4EFPB7YfWPEiBAgACBPxdQwBJCgAABAgQCAQUcoBtJgAABAgQUsAwQIECAAIFAQAEH6EYSIECAAAEFLAMECBAgQCAQUMABupEECBAgQEABywABAgQIEAgEFHCAbiQBAgQIEFDAMkCAAAECBAIBBRygG0mAAAECBBSwDBAgQIAAgUBAAQfoRhIgQIAAAQUsAwQIECBAIBBQwAG6kQQIECBAQAHLAAECBAgQCAQUcIBuJAECBAgQUMAyQIAAAQIEAgEFHKAbSYAAAQIEFLAMECBAgACBQEABB+hGEiBAgAABBSwDBAgQIEAgEFDAAbqRBAgQIEBAAcsAAQIECBAIBBRwgG4kAQIECBBQwDJAgAABAgQCAQUcoBtJgAABAgQUsAwQIECAAIFAQAEH6EYSIECAAAEFLAMECBAgQCAQUMABupEECBAgQEABywABAgQIEAgEFHCAbiQBAgQIEFDAMkCAAAECBAIBBRygG0mAAAECBBSwDBAgQIAAgUBAAQfoRhIgQIAAAQUsAwQIECBAIBBQwAG6kQQIECBAQAHLAAECBAgQCAQUcIBuJAECBAgQUMAyQIAAAQIEAgEFHKAbSYAAAQIEFLAMECBAgACBQEABB+hGEiBAgAABBSwDBAgQIEAgEFDAAbqRBAgQIEBAAcsAAQIECBAIBBRwgG4kAQIECBBQwDJAgAABAgQCAQUcoBtJgAABAgQUsAwQIECAAIFAQAEH6EYSIECAAAEFLAMECBAgQCAQUMABupEECBAgQEABywABAgQIEAgEFHCAbiQBAgQIEFDAMkCAAAECBAIBBRygG0mAAAECBBSwDBAgQIAAgUBAAQfoRhIgQIAAAQUsAwQIECBAIBBQwAG6kQQIECBAQAHLAAECBAgQCAQUcIBuJAECBAgQUMAyQIAAAQIEAgEFHKAbSYAAAQIEFLAMECBAgACBQEABB+hGEiBAgAABBSwDBAgQIEAgEFDAAbqRBAgQIEBAAcsAAQIECBAIBBRwgG4kAQIECBBQwDJAgAABAgQCAQUcoBtJgAABAgQUsAwQIECAAIFAQAEH6EYSIECAAIH/AawWQZaKRjMyAAAAAElFTkSuQmCC10TIF 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 squares1110i121I'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.playingfalseplayingfalseX's turn?available squaresavailable squares1true1,2,O,4,X,O,X,X,Ofalse-100,50100,50-100,0100,0-100,-50100,-50-50,100-50,-1000,1000,-10050,10050,-100-100,100100,-100-100,-100100,1000