<snapdata remixID="12381572"><project name="UPC code list" app="Snap! 8.2, https://snap.berkeley.edu" version="2"><notes></notes><thumbnail>data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAKAAAAB4CAYAAAB1ovlvAAAAAXNSR0IArs4c6QAADj5JREFUeF7tnQtQVdUax/+8n0dBwfIBKChmPtDU8nlVxPcjbyq+MlNveW+OaVZW6vSYzMoxx+o6qTffFzQeQioaWc41bTLNTA3IBwoiXSxDQAEJlDvf6u4dW0DwsDd76f7WDHM45+y91vf9v99Za6+119rLoby8vBycWAGTFHBgAE1SnosVCjCADIKpClQJ4Pfff4/9+/f/QaiDAyq20ka+b9KkCYYPHw5fX19TReHC60+BSgB++eWXaN26tQqeAlx9vh4/fhyjRo2qPxW4JNMU0AB49OhRNG7cWBgTFRWFqVOn4vXXX8fTTz+N3r17w83NDdu3b4ePjw9u3ryJmJgYzJs3TzV+z549GDZsmC7OtGzZUpd8OBO5FdAAuHz5cowdO1ZYTKCNGzcOK1aswAcffIAPP/wQ8+fPx6lTp7B+/XrMmDFDHEeg0Dnx8fFYs2YNKI/du3fDxcWlTp63atWqTufzyXeHAhoAly1bpgJI5gcGBiI/Px9+fn5IT08XHhEYWVlZoOs1qgXLysrg6OgIZ2dnUUMWFhaKzy9fvlwnBUJCQup0Pp98dyigAfDdd9/VAGimC3QdyuneV0AD4Ntvv60C6OnmgrLlfeHh4oAjng/D3cUJJxv01LVX7JV/Ho8WJAiVbZ2G4GKvBarioaGh97767KF2HHDp0qUqgCXXriA4JhIHwxaiXW99OhbV6W37KByu5aXInrFXPaRt27YcHgsooKkBlyxZogJYWpSP7IRleGDme4bLcHxvLCLS/4msJ5PVstq1a2d4uVyA+QpoAHzzzTdFz5cGnsuKCxC/Yw+mTZsm3hs9Dnjf2gG4MO0ztZwHH3zQfHXYAsMV0AD4xhtvCAAp3bh+Fbv3/qfeOiVNPx6IzCf2qA63b9/ecOe5APMVqASgMg54s+QadiXvU4EkU5WaUDFbz/fN1kXg/ONJogak1KFDB/PVYQsMV0AD4GuvvfZnjVdahB17vqi3GjBg4xCcm7JLdbhTp06GO88FmK+ABsBXX31VBc6hrBif7t5bbwAGbhqK9Mk7VUXCwsLMV4ctMFwBDYCLFy9WgXO6WYKEXcn1BmDLLcNxZuKnqsNdunQx3HkuwHwFNAAuWrRIBc65/HfRC1auCY02NThqJE5PSFSLeeihh4wukvOXQAENgK+88ooKnKtDGWITk+oNwNZbR+On8dtVSbp16yaBPGyC0QpoAHz55ZfVcUA3xxuISdilAVDPXu+tveo22x5F2rh4dRywe/fuRvvO+UuggAbABQsWqAB6OJdja9yn9VYDPhD7GFIei1UBfOSRRySQh00wWgENgC+++KIKoKcLEB2bWG8Atosbix//GqMC2KNHD6N95/wlUEAD4AsvvKAC5+XqgC3b4lUgjb4V1yEhEice3aYORPfs2VMCedgEoxXQAPj888+rAHq7OWLz1rh6qwE7Jk4QACqpV69eRvvO+UuggAbA5557TgWugYczNkbF1BuAYTsm4YdR0aokffr0kUAeNsFoBTQA0gIjZdyvoacL1m/ZZlgTvGHDBtDfgQMHxD3mLrum4NjIKNXfvn37Gu075y+BAhoAn332WRVAXy83fLw5WrxPSEhAmzZtDJkgEBQUhMzMTHTdPRVHh29RJenXr58E8rAJRiugAXDOnDkqgI1s7vjXxihcvHhRrHSjRIuRapMOHjyIik0o1XBUu77//vua02lF3VtvvYUpU6ag254n8N2wzer3/fv3r01RfMxdroAGwNmzZ6tNrl8DT6RHLcbmDBsSExNBt+kGDBig9lIPHz6MyZMnY9OmTZg4cSJWrlyJiIgIAamTk5NYH5yRkSHkIfDmzp0rVs7RKjpKtLqOlgAsXLgQ58+fx8PJT+LwkI3qMEx4ePhdLi2bXxsFNAA+88wzKoD+Pl5I27QI27IagKZp2Ww2AYqSqOmktcEEHS1az83NRXJyMoYMGYK0tDT1s0aNGolrPBpjVGrS4OBg0AIouvVHr10DbHi8MA7fDt6gAjhw4MDa2M/H3OUKaACk5lC5A9HExxvBsZHY6jsVu79NRefOnVHT2BzNYDl27FiNksTGxoJu+73zzjvi1WfNILg5lOGbiHVqDUtgc7r3FdAAeOnSJZw4cUJ43djmjtCEKeL/pOI2cEY5PisOUQGhz6tbK6LIVtP3gU55mNfgkKoyAUgpLy8P48ePv/fVZw8rP55t9erV4vqMEk0IoCa0PtKZM2dw7tw5Ad+IESPg7e1dH8VyGSYrwM8HNDkAVi+eAbQ6ASb7zwCaHACrF88A6kzA1tNXsfS7K/jpSqnOOeuX3aRQb6zo4wc/Dyf9MrUzJwbQTuGqOq1H7EWk55diTqeGaOrlrGPO+mZ14nIJVv9YgL+1b4CP+vvrm/kd5sYA3qFg1R0+OfkSDuVcx7lpQTrlaHw2LqvSce3vwXBz+uNhAGYkBlAn1SmYpbPvrodqbkgtwKFLJVgzwLxakAG0MIDkutk/HAbQQABpGcPXX38tSqg4w5smYNBEDHsSTeagSR0VEz1N9uzZs+pdKiqT7s/TTgMzZ84Uz+6m53ZXlRhAe6Ig4TlVBZIAVGb17Nu3D7QLwbp168QD4OnOjzLp9siRI1i1apWYMUTH/Prrr3jqqafEDgVNmzYVe6fQfXaCj+61R0dHq4/NIyluBZCeq0PPV/zkk080e7wwgBKCo5dJ1QFIEFCaMGGCgGHMmDHifvtXX32FwYMHi1qKJoEotdrp06fFHEyaKU4A0lJZmnU0dOhQsfNAamqqOLbihkH0/9q1a0HbZNDkYWVjIZptRJv+7Ny5U+THAOoVbQnzMbsps1cSs+3ma0B7I3fLeWYH0l43zLabAbQ3cjoCeOv+e3diUlWdkjs5nwG8E7UkPramQNKiLko0W5yuB6mj8fnnn2PSpEliyUNJSYm43qNOx0svvYTi4mLxmpSUBNq/j9bPEKhFRUViEu/JkyeRkpKC7OxsMducrvPo+lDJg46hnjCtz7ldqsluoyXnGlAnhWsKJEFHywyoU0CTbQkm6qBERkaK/6lnS9BRok6HUrPRd9QpadasmdiRqrS0VO2E0Mxy6tTQsR4eHpo8aPilNnuR12S3TvJUmw0DqJPCNQWS1ssQTNTzpY0gabIvbcZDwzIE0KxZs8QCr5EjR4oNI2m7MwKOxvDoO+U4Gp5RPh80aBACAgLEGCDNZqeVhEoecXFx4ryaUk1213R+Xb9nAOuq4P/PNzuQ9rgRe+YaEs4VInrIffacrss5DKAuMgJ/2Z6N62XlOBzZQqccjc+GfjQZ04LQ3Nu8mTsMoI5xpoB2a+KGme0boKmnE0a09BK5J2UU0RKuCiXR7BN6r8xCUb6ralZKVcfVzeiU3N+x6JtcTGjjjX8PNq/2Iy8YwLrFstLZ29MLMeGzHBT9IxiHckoQnpCtglj3oipCbH9uXfzdMCbYG2F+rvZnotOZDKBOQirZnC8oReetWeh+nzv2Zxfj0sxWaOTuqHMp9052DKDOsaRmmNLczj5Y3ruxzrnfe9kxgNXEdPr06aBhDnpUMD1KpDaJar/QLRdw9okgBNnMu7Cvja2yHMMA3iYS9IAlGuC9ceMGmjdvLp6b07FjR/j7mzeDWBZw9LKDAbyNkr/99puY0KlsoKgc6unpicDAQHFHgzfUqRuKDOBt9KMnfhGAtyYvLy+0aNFCANi1a9e6RcDiZzOAtwGAJoFSbUdNMN2LJeC4Cdb3F8MA6tgJ0Tc01siNAbRGnKX1kgGUNjTWMIwBtEacpfWSAZQ2NNYwjAG0Rpyl9ZIBlDY01jCMAbRGnKX1kgGUNjTWMIwBtEacpfWSAZQ2NNYwjAG0Rpyl9ZIBlDY01jCMAbRGnKX1kgGUNjTWMIwBtEacpfWSAZQ2NNYwjAG0Rpyl9ZIBlDY01jCMAbRGnKX1kgGUNjTWMIwBtEacpfWSAZQ2NNYwjAG0Rpyl9ZIBlDY01jCMAbRGnKX1kgGUNjTWMIwBtEacpfWSAZQ2NNYwjAG0Rpyl9ZIBlDY01jCMAbRGnKX1kgGUNjTWMIwBtEacpfWSAZQ2NNYwjAG0Rpyl9ZIBlDY01jCMAbRGnKX1kgGUNjTWMIwBtEacpfWSAZQ2NNYwjAG0Rpyl9ZIBlDY01jCMAbRGnKX1kgGUNjTWMKwSgPMOXMaqE/kY3coLTTydrKECe2moAr8U3cCO84WY3akhVvb105SlATCnqAwBGzJROjvEUIM4c2sq4LIqHVnTg3C/p7MqgAbAkTv/iyfb2TCutTeKiorEn6Ojo9gxnP7Ky8s1u4fze9aDuKA9lV1dXQVU0dHRml+Xv78/Bg0aJD6LO3sNG9OuYteoplUDSIQqtV9aWhqKi4sFcAQh/SnA8esf4FldB2LCxcUFISEhcHJywubNm9GvXz+hi5Jos+/4+HgsWLBAfFSRMXqvqQErfpmamoqSkhJBNhVCBXBiBSoqQD9C4iIgIEBUUDk5OSgsLKwkUnh4ODIzM+8MQKoBiV4PDw+4ubnB2fnPdpvDwAooChB41MwSjD///LNoNSllZWUhLCwMubm5sAtAqgGV9t3d3Z0BZOaqVIAY8fX11QC4ePFiceySJUvEq10AUg1I1SvVgPTHTTATWJ0CPj4+GgBTUlJEx4NqRLsBpBpQaX7pOpABZABrAjAjI0Nctt2aal0DNlxzDhemt0RDV0fRdttsNnUYhuVnBapTgK4DKc2fPx89evRAQUGBemheXh5Gjx6N0NBQ5P9+E4EbMpA/K1j9XtMLfu+HPBzIvo7EEfez2qyA7gqMScrBX5q7Y35nn6oBpE9pKGZ9RBNMbWvT3QDO0LoKbDl1FTO++KXSXbYqJyN0iL6AU1dKrasWe667Am19XfDj5MBK+f4PTFaYEWZUaXMAAAAASUVORK5CYII=</thumbnail><scenes select="1"><scene name="UPC code list"><notes></notes><hidden></hidden><headers></headers><code></code><blocks><block-definition s="CollectAndStoreUPCCode" type="command" category="other"><header></header><code></code><translations></translations><inputs></inputs><script><block s="doDeclareVariables"><list><l>code</l><l>i</l></list></block><block s="doRepeat"><l>12</l><script><block s="doAsk"><l>Enter each UPC code number</l></block><block s="doAddToList"><block s="getLastAnswer"></block><block var="UPCCode"/></block></script></block></script></block-definition><block-definition s="enoughDigits?" type="predicate" category="operators"><header></header><code></code><translations></translations><inputs></inputs><script><block s="doReport"><block s="reportVariadicEquals"><list><block s="reportListAttribute"><l><option>length</option></l><block var="UPCCode"/></block><l>12</l></list></block></block></script></block-definition><block-definition s="oddDigits*3" type="reporter" category="operators"><header></header><code></code><translations></translations><inputs></inputs><script><block s="doReport"><block s="reportVariadicProduct"><list><custom-block s="sumOddDigits"></custom-block><l>3</l></list></block></block></script></block-definition><block-definition s="sumOddDigits" type="reporter" category="operators"><header></header><code></code><translations></translations><inputs></inputs><script><block s="doDeclareVariables"><list><l>sum</l><l>i</l></list></block><block s="doSetVar"><l>sum</l><l>0</l></block><block s="doSetVar"><l>i</l><l>1</l></block><block s="doRepeat"><custom-block s="allDigitsButCheckDigit"></custom-block><script><block s="doIf"><block s="reportVariadicEquals"><list><block s="reportModulus"><block var="i"/><l>2</l></block><l>1</l></list></block><script><block s="doSetVar"><l>sum</l><block s="reportVariadicSum"><list><block var="sum"/><block s="reportListItem"><block var="i"/><block var="UPCCode"/></block></list></block></block></script></block><block s="doChangeVar"><l>i</l><l>1</l></block></script></block><block s="doReport"><block var="sum"/></block></script></block-definition><block-definition s="allDigitsButCheckDigit" type="reporter" category="operators"><header></header><code></code><translations></translations><inputs></inputs><script><block s="doReport"><block s="reportDifference"><block s="reportListAttribute"><l><option>length</option></l><block var="UPCCode"/></block><l>1</l></block></block></script></block-definition><block-definition s="sumEvenDigits" type="reporter" category="operators"><header></header><code></code><translations></translations><inputs></inputs><script><block s="doDeclareVariables"><list><l>sum</l><l>i</l></list></block><block s="doSetVar"><l>sum</l><l>0</l></block><block s="doSetVar"><l>i</l><l>1</l></block><block s="doRepeat"><custom-block s="allDigitsButCheckDigit"></custom-block><script><block s="doIf"><block s="reportVariadicEquals"><list><block s="reportModulus"><block var="i"/><l>2</l></block><l>0</l></list></block><script><block s="doSetVar"><l>sum</l><block s="reportVariadicSum"><list><block var="sum"/><block s="reportListItem"><block var="i"/><block var="UPCCode"/></block></list></block></block></script></block><block s="doChangeVar"><l>i</l><l>1</l></block></script></block><block s="doReport"><block var="sum"/></block></script></block-definition><block-definition s="checkDigit" type="reporter" category="operators"><header></header><code></code><translations></translations><inputs></inputs><script><block s="doReport"><block s="reportListItem"><l>12</l><block var="UPCCode"/></block></block></script></block-definition></blocks><stage name="Stage" width="480" height="360" costume="0" color="255,255,255,1" tempo="60" threadsafe="false" penlog="false" volume="100" pan="0" lines="round" ternary="false" hyperops="true" codify="false" inheritance="true" sublistIDs="false" id="153"><pentrails>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==</pentrails><costumes><list struct="atomic" id="154"></list></costumes><sounds><list struct="atomic" id="155"></list></sounds><variables></variables><blocks></blocks><scripts></scripts><sprites select="1"><sprite name="Sprite" idx="1" x="0" y="0" heading="90" scale="1" volume="100" pan="0" rotation="1" draggable="true" costume="0" color="80,80,80,1" pen="tip" id="160"><costumes><list struct="atomic" id="161"></list></costumes><sounds><list struct="atomic" id="162"></list></sounds><blocks></blocks><variables></variables><scripts><script x="51" y="79.16666666666669"><block s="receiveGo"></block><block s="doSetVar"><l>UPCCode</l><block s="reportNewList"><list></list></block></block><custom-block s="CollectAndStoreUPCCode"></custom-block><block s="doIf"><block s="reportNot"><custom-block s="enoughDigits?"></custom-block></block><script><block s="doSayFor"><l>That code is invalid, there are not enough digits</l><l>2</l></block><block s="doStopThis"><l><option>all</option></l></block></script></block><block s="doIfElse"><block s="reportVariadicEquals"><list><block s="reportModulus"><block s="reportVariadicSum"><list><block s="reportVariadicSum"><list><custom-block s="oddDigits*3"></custom-block><custom-block s="sumEvenDigits"></custom-block></list></block><custom-block s="checkDigit"></custom-block></list></block><l>10</l></block><l>0</l></list></block><script><block s="doSayFor"><l>This is a valid UPC number</l><l>2</l></block></script><script><block s="doSayFor"><l>I&apos;m sorry, this is not a valid number</l><l>2</l></block></script></block></script></scripts></sprite><watcher var="UPCCode" style="normal" x="10" y="10" color="243,118,29" extX="80" extY="70"/></sprites></stage><variables><variable name="UPCCode"><list struct="atomic" id="221"></list></variable></variables></scene></scenes></project><media name="UPC code list" app="Snap! 8.2, https://snap.berkeley.edu" version="2"></media></snapdata>