<snapdata remixID="13274748"><project name="UPC" app="Snap! 9.0, https://snap.berkeley.edu" version="2"><notes></notes><thumbnail>data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAKAAAAB4CAYAAAB1ovlvAAAAAXNSR0IArs4c6QAAEYNJREFUeF7tnXdUFUkWhy9RQUwookfHBCYwZwUU84CDCUdn9Oyedc6sYXZQwYQgKiJiwACKjo6rju46uuYZxxxQUcw5IwZGXF2zqCimPbc41TTvNf0aBPrRfesfzuP161v1q+/c6uq6dcvi06dPn4AKKaCSAhYEoErKk1mmAAFIIKiqAAGoqvxknAAkBlRVgABUVX4yTgASA6oqQACqKj8ZJwCJAVUVIABVlZ+ME4DEgKoKEICqyk/GCUBiQFUFCEBV5SfjBCAxoKoCBKCq8pNxApAYUFUBAlBV+ck4AUgMqKoAAaiq/GScACQGVFWAAFRVfjJuEsDVq1eDl5cXiDfPWVhYFNrnhIQEGDBgAPWURhWQBTA2NhZ69erFmu7j4wNxcXFQtmxZaNKkCZw5c4aBgf8fPnw4PH36lH1XEGXz5s3MBhXtKSAL4NmzZwWo/Pz8ICYmBlxcXKB69eqQlpbGvODjx4+hdOnS8O7dO3j9+nWBKIRwN27cuEDuTTdVVwFZAO/cuSPU7sqVK+Dr6wvJyclQqVIlePDgAfTs2ZN5wKFDh4K9vX2BAYiVqFatmrpKkfUCUUAWwNu3bxeI0bzcFL0uFe0poBjAxG1rIW37LLACi0JRoc/K6/D8+XPBFgFYKLIXuhFZAG/duiVUaNePzWFg/RKw2CkAvu7Xv0Aq+vHjR3iw4h/gnn4BHGakgNh+jRo1CsQm3VRdBRQDuG94C7Dw/Dt0/nYYGL6GWeJbF/yqFDPZEvSdFZecg9TUVOHaypUrG93PMc6TADSppjYukAXw5s2bQiv3j2gJntGHoXjx4kYtfzKsMZSwVjY0l1h0gc2gbWxs4NGjR1CxYkWj+23/dSkMDY4Asf2aNWtqQ3FqRTYFcgVg5wWnhB87Ojoyz4WvYQwBrL7gCFiXrww3vjGeuSoBcMOGDRAUFEQA6gBWWQDxlQsv8SNbQaf5J7NJUr58eebFnv7QJJsHdF2bAhY2tpDUx9i72S88Dy9fvhQ8oLOzs5HMCOCoUaPYKx9e8P0jFe0p8FkAcjme/dAE7BUOwQSg9iD6nBbJAnjjxg3h3gcCW0PH2BOStipUqACWlqafAV+9fAlpL1+ZrC96wNGjR4PYvqurq8nf0QVFT4F8AfDukCbgXNxSUesNPSDCa1gIQEVSauIiWQCTkpKERh4MagMdYo4Lny0tLeHgwYPg6ekJz39slv0ZcM0dyQkI/rj4grNsyY7Pgp2cnCQBHDNmDIjt16pVSxOCUyOyK5BnALds2QIBAQGQkpJiDODaFHhz/RTcDettpDcH0N/fH5YtWwYEoL6RlAXw+vXrgjqHRrUF73nHhM+4MoFeEGeqLwKaG82CLe0c4HoPRyN1i80/A+np6YIHxJm01BA8duxYENuvXbu2vntKo63PNYAYgsVXQvjftyNbgo2yR0CwnHMcHj58KMiJHtDwfhs3bgQCUKPEGTRLFsBr164JlyeM9oD2c4+yGEBDYHas+hkO7NhqUrHS5cpDcOw/4cWLF8J9SpUqJQnguHHjQGy/Tp06Ju9PFxQ9BfIFwLQRLcFB4XtA29jT8ObNG2EI5isqYrDRAxKARQ+mvNRYFsCrV68K9zw8xhPazUkUPBcGiOIsFWezr0a2UrwWbBNzCt6+fSsAiGH8UkNwcHAwiO3XrVs3L+2j35i5ArkC0Gv2EaE5z549g3PnzkH79u2NAMSluBv9q0o2nQOIQB07dkxyHwm+Bxw/fjwBaObw5Ef1ZAHEMHxejoz1YtEwUuV1YGvFHtB63knIyMgQPGCZMmUkZ8EhISEgtl+vXr38aC/dw8wUyBcAK9tZwtv7psP3izlVhtQMKzYJ4QUnIVKvYQhAMyOlgKojC+Dly5cFs4nj2oHHrATJavyrb1PFAaml5iWyLZy8SG3lxCE4NDQUxPbd3NwKSAK6rZoKfBaAOJvFANX0oDaKh2CruSfYFk6+FIdbOqU8IAGoJhaFZ1sWwEuXLgk1ORrcHtrOPCR8xuezzp07s/D6N6PaZgOwelwivH9yX3IpDl9Ev3//XgAwpyF4woQJILbv7u5eeKqQpUJTIM8AYg1xP4cUgPhdlYhNBGChdWPRNSQL4MWLF4WWHRvvDW1mHJRsacZoD8UBqYYesGTJkpJDcFhYGIjt169fv+iqTDXPUYF8AbBKlSpgbW1lUmYMxX/06LHJ63ASQgCalEkTF8gCeOHCBaGRx0M6QOvpByQb/STQQ3FAqsXsY/DhwwfhGdDBwUHSA06cOBHE9hs0aKAJwakR2RXIM4CHDx+GwYMHs4lCxhjPbJMQfP6zrVIbbg6SmDhEHwXcgM5nwQSgvpGUBfD8+fOCOidCO0KrqHhhLRjj8yIiIqBfv37wflw7o9cwtTbel9wV92lW5npynz59YPny5SypEa4F84LfYTDCpEmTQGy/YcOG+u4pjbY+zwDiDBjhwaBRQwARPgtrW8mAVA4g94AcQMNoGAJQo8QZNEsWQAw24OXkhE7QInIf+2iYmsMqxFtxQOqbqfHw6lXWzrgSJUoY3Q894OTJk1mwAy+NGjXSR4/orJW5ArDltP2SAanx61ZB/I7fTUpXppwTjJwZxzYlcY+XkwdUG8DmzZtDYGAgDBw40GS76IK8KyALIGZI5eVUWGfmAcVDJf/uw3hvxQGpH2YcZh6PD8G4lCcVDxgeHg5i+2pkSO3dO2tTFeapWb9+PdDuvLzDJvVLkwBy4BDA5lP3CvdYsGABTJs2De7duwcfx3sbbUrCC6ViAqUANKwYvgecMmUKA5DbVwNArJcYQl5P3IyFQbVbt5rehpC/3aW9u8kCiInIeTk9sQs0i9gjfEavdfToUWjVqhV8CulgNAuuufyS5GuY99MT2G46HpBarJhxWjcEEGfYYvuYGF2NQgAWrOp5BlBcLSkAc6o2B5APweYMoOEQvG7dOqDtofkLpCyAp0+fFqydmdQVmk7ZLWnd1dEe0u9lZVPNqYp2zl/AjecZ2ZKZ4yREagieOnUqiO03bdo0f1tu4m40CSkcuU0CyJ/B5ADc8BcPxQGpNlH72K44XqQSXuIQzAHk9gsbwMKRn6zIAnjq1ClhEnB2cjdoEr5LUKxZs2YwbNgw+P7778FiQifFAakZ0w6CtbW1MAvGoVjKA0ZGRoLYPtqjoj0FTALIm2wIIGawx+UxPEvEEEAMSGUZUiV2xuUWQG6fANQefNgiWQBPnszKiHou/EtoPHmnoMLSpUuZ98NiGdZZcYbUt5EHmPfjkxD0hlIeEF/xiO3jMxkV7SlgEkD+DMYB5J+5FPjZemIXxQGphh7QyspKMhiBA8jtEYDag8+kBzxx4oTwDHh+ig80mrRD+CwGEFcHbCQ8maFkaWkv4M+7qUbASa2EREVFgdh+ixYttNkDOm+VrAdUCuCb0C6KA1INh2B8KS0VjkUA6oNMWQCPHz8ueLwLEb7QcOJ24TO+SsHtlRhQajO5m9EzYE6pOdIj9gO+fObPgAiflAecPn06iO23bNlSHz2is1bmCsAGYduYPAgMHs+Ahxni7FQKwJwypHIAeUCqGECuPYZjEYD6IFEWQEwexCcBF6d2h/oT/hBUwZOLcFM5rtfahn+pOEPq6yn72GZ27gGlZMYX0TNnzmTJi7h9XHOmoj0F8gygWAqHCB/FAalPQ7ezPSG88GdABI0XAlB7oOXUIlkAMdqFe6BLkV+Be6h0+NHxreshXmGG1CHh0SyUiZecghFmzZrFom24/datW+unV3TUUlkAExMThWc+OQBtp/goDkh9Fb4X7OzshCFY7PnEHhABFNsnALVJpSyAR45kJqTEicLlaX7gFpIVdo/xfHPnzgUfHx8oHuGreC345eQ9bDMTfwYUD8diAKOjo0Fsv02bNtrsAZ23yqQH5EOgIYD4f55kyBBAuQypHEAekCoHIHpAbp8A1CapJj0gB+BKVA+oN/43SRXspnZX7AHTJu0G3AnHPSBmSTAsOAmZPXs284Dcftu2bbXZAzpvlSyAmP2AD8FyALpXcoT0e1mHW+ekKQakXvpfGkvRy4utrW2OAIrtE4DaJFUWwISErIyo12b0grrBWyRV2D6ki+KA1HdhW9meEF5yGoLnzJkDYvt4Jh0V7Slg0gPyIfDq9J4CgPgaZciQIbBixQqmiH3kV4qH4BcTd2Uu39nYsNUUfI6UGoIRQPSA3L6Hh4f21KcWyccDogfiAKAHrDNuM2BWe0zLgZ4LVyv8/PygxDQ/xRlSDQHE9WQpAHGGLbZPHlCbtMp6wEOHslLyXp/ZmwGIQGKySG9vb/aeDsPmHaJ6GHnAnDKkPg/bCZiUkntAfB6UCkZAAMX2vby8tNkDOm+VLIB4HjAvSbP6QO2xmyRTc5Sa3lNxQKohgDicSwE4b948dh4xL+3atdN5V2mz+YoAREDQA+YEYIP69dlGI1MF95HcvHXLCDhTAOL35AFNqVs0v5cF8MCBzIyoCAB6wFpjNkp6QMvInooDUp9N2AGYGZ8PwRhXKAVgTEwMiO2TByyagJmqtSIA8SY3ov3BdfQGdr9t27axc9wWL17MjlQtNaOX4gypGA2DYVxiAKUmIbGxsQKA+D2eSUdFewrIAhgfHy+0OHl2X3AZtV4A0NfXF/AMXwSw9MzeijOkPgnZxmbS/v7+sGzZMnZ6uhSA8+fPB7F9nPRQ0Z4CeQKQg5cTgLU2/DczQ2rPckaKcQC5ByQAtQdVblokC+D+/fuFe92c8zXUDFonee8Kc/qCTVaa55ztWwCkjlzPIqJ5Eafp4P/DtWBM/ya236FDh9y0i64tIgrkC4Dn9/6hOEPqX4Mj2DENvOC+YKkhmAAsIgR9ZjVlAdy3LzMnNJZbc/tBjcD/CJ/FG9TLRPsrDkh9FLwVHB0dhUmIOF+02APGxcWB2H7Hjh0/s6n0c3NUINcA4vpsQEAAi2r+5ZdfwNXVFcpG+2fflLTmDr67kcwNQwCaIwbq1UkWwL17s1Ly3p7XH6qPXMtqitlKMWK5U6dO7LPj7L7ZZ8EWFlBz2UXJDKkPx/0O5cqVEzKk4vFdUkPwwoULQWyf21JPKrJcEArkCUDDihgBKFNTDiCfBROABdGtReeesgDu2ZOVE/pOzDdQbcQaydwwzV2qQHpqMvsOS/ZUG2w0ZsWu4hdw8vb/hOv4tatWrcqmGEZML1q0CMT28WxiKtpTINcAFpQEgwYNYrfG47vwNQwBWFBKm9d9ZQHcvTsrJ3RK7LdQdfivLB0Hrn5gylwnJyej1himbzO8wNT3GHgaFBQEP/30E4jtd+nSxbyUo9rkiwK5BhBnv+ihMCeMs7MzG07r1asHly9fZqH2GKiKf/H/mzZtYlEyPXr0EIbu0NBQWLNmDQtqTUpKYueM8GAEjHjBGEDMDUMA5kv/mv1NZAHctSsrJ/Sf8wfAFwH/BhcXV1i9ejV89913wonmNWrUYLNaPN0SAcVhFM92w11tGPGMG4+6devGQMP4P3d3d5ZddeXKley4V/w/RjxjBDT+DRwxHBb/vBTE9rt27Wr2YlIFc69ArgC8X6s3lKzeALp37w5Llixhr2HQ0+GwictruMKBECJImFAS/1e1alV24pGbmxvzkng9JrTE5Ea4HwRftXDPx/8W2zEJvOceJQBz359F7heyAGK0Cg6VWO4uGAj93exhW7NoNnSKk4Ybnp6Zm88Y0IBHvuIBMPhsaWcN0Gz3YHCYkQI7d2bmpE5NTWUel4r2FDAZD8iDBZ79FgXdHTL3/l7IcIZ7H0rmqxpJ7xzhbyXPgoNF5p7hV0EnhMMK0ZNSPGC+ym02N5MFEGuJMXnJycmCJyzMmqPnc3FxYRugqGhTAZMAarPZ1CpzUYAANJee0Gk9CECddry5NJsANJee0Gk9CECddry5NJsANJee0Gk9CECddry5NJsANJee0Gk9CECddry5NJsANJee0Gk9CECddry5NJsANJee0Gk9CECddry5NJsANJee0Gk9CECddry5NPv/GEHuLwMM59gAAAAASUVORK5CYII=</thumbnail><scenes select="1"><scene name="UPC"><notes></notes><hidden></hidden><headers></headers><code></code><blocks><block-definition s="OddSum" type="command" category="operators"><header></header><code></code><translations></translations><inputs></inputs><script><block s="doSetVar"><l>odd sum</l><l>0</l></block><block s="doSetVar"><l>index</l><l>1</l></block><block s="doRepeat"><l>6</l><script><block s="doSetVar"><l>odd sum</l><block s="reportVariadicSum"><list><block var="odd sum"/><block s="reportListItem"><block var="index"/><block var="UPC1"/></block></list></block></block><block s="doSetVar"><l>index</l><block s="reportVariadicSum"><list><block var="index"/><l>2</l></list></block></block></script></block></script></block-definition><block-definition s="EvenSum" type="command" category="operators"><header></header><code></code><translations></translations><inputs></inputs><script><block s="doSetVar"><l>even sum</l><l>0</l></block><block s="doSetVar"><l>index</l><l>2</l></block><block s="doRepeat"><l>5</l><script><block s="doSetVar"><l>even sum</l><block s="reportVariadicSum"><list><block var="even sum"/><block s="reportListItem"><block var="index"/><block var="UPC1"/></block></list></block></block><block s="doSetVar"><l>index</l><block s="reportVariadicSum"><list><block var="index"/><l>2</l></list></block></block></script></block></script></block-definition><block-definition s="MultOddSumBy3" type="command" category="operators"><header></header><code></code><translations></translations><inputs></inputs><script><block s="doSetVar"><l>MultOdd</l><block s="reportVariadicProduct"><list><block var="odd sum"/><l>3</l></list></block></block></script></block-definition><block-definition s="SumSum" type="command" category="operators"><header></header><code></code><translations></translations><inputs></inputs><script><block s="doSetVar"><l>SumSum</l><block s="reportVariadicSum"><list><block var="MultOdd"/><block var="even sum"/></list></block></block></script></block-definition><block-definition s="ChecDigi" type="command" category="operators"><header></header><code></code><translations></translations><inputs></inputs><script><block s="doSetVar"><l>Final</l><block s="reportVariadicSum"><list><block var="SumSum"/><block var="check digit"/></list></block></block></script></block-definition><block-definition s="Assure" type="command" category="control"><header></header><code></code><translations></translations><inputs></inputs><script><block s="doSetVar"><l>index</l><l>12</l></block><block s="doIfElse"><block s="reportVariadicEquals"><list><block s="reportModulus"><block var="Final"/><l>10</l></block><l>0</l></list></block><script><block s="doSayFor"><l>This is a valid UPC code.</l><l>4</l></block></script><script><block s="doSetVar"><l>check digit</l><block s="reportDifference"><l>10</l><block s="reportModulus"><block var="SumSum"/><l>10</l></block></block></block><block s="doReplaceInList"><block var="index"/><block var="UPC1"/><block var="check digit"/></block><block s="doWait"><l>.5</l></block><block s="doBroadcast"><l>NewChecDigi</l><list></list></block></script></block></script></block-definition><block-definition s="NewCHecDigi" type="command" category="control"><header></header><code></code><translations></translations><inputs></inputs><script><block s="doIfElse"><block s="reportVariadicEquals"><list><block s="reportModulus"><block var="Final"/><l>10</l></block><l>0</l></list></block><script><block s="doSayFor"><block s="reportJoinWords"><list><l>The correct check digit for this UPC code is </l><block var="check digit"/><l>.</l></list></block><l>4</l></block></script><script><block s="doSetVar"><l>check digit</l><block s="reportDifference"><l>10</l><block s="reportModulus"><block var="SumSum"/><l>10</l></block></block></block><block s="doReplaceInList"><block var="index"/><block var="UPC1"/><block var="check digit"/></block><block s="doWait"><l>.5</l></block><block s="doBroadcast"><l>NewChecDigi</l><list></list></block></script></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="182"><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="183"></list></costumes><sounds><list struct="atomic" id="184"></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="189"><costumes><list struct="atomic" id="190"></list></costumes><sounds><list struct="atomic" id="191"></list></sounds><blocks></blocks><variables></variables><scripts><script x="20" y="20"><block s="receiveGo"></block><block s="doRepeat"><l>10</l><script><block s="doSetVar"><l>index</l><l>12</l></block><block s="doAsk"><l>What is your UPC code?</l></block><block s="doSetVar"><l>UPC1</l><block s="reportTextSplit"><block s="getLastAnswer"></block><l><option>letter</option></l></block></block><block s="doIf"><block s="reportNot"><block s="reportVariadicEquals"><list><block s="reportListAttribute"><l><option>length</option></l><block var="UPC1"/></block><l>12</l></list></block></block><script><block s="doBroadcast"><l><option>__shout__go__</option></l><list></list></block></script><list></list></block><block s="doSetVar"><l>check digit</l><block s="reportListItem"><block var="index"/><block var="UPC1"/></block></block><custom-block s="OddSum"></custom-block><custom-block s="MultOddSumBy3"></custom-block><custom-block s="EvenSum"></custom-block><custom-block s="SumSum"></custom-block><custom-block s="ChecDigi"></custom-block><custom-block s="Assure"></custom-block></script></block></script><script x="13" y="385.41666666666663"><block s="receiveMessage"><l>NewChecDigi</l><list></list></block><custom-block s="ChecDigi"></custom-block><custom-block s="NewCHecDigi"></custom-block></script></scripts></sprite><watcher var="check digit" style="normal" x="17" y="283.000002" color="243,118,29" hidden="true"/><watcher var="index" style="normal" x="10" y="257.000002" color="243,118,29" hidden="true"/><watcher var="odd sum" style="normal" x="10" y="278.000004" color="243,118,29" hidden="true"/><watcher var="even sum" style="normal" x="10" y="299.000006" color="243,118,29" hidden="true"/><watcher var="MultOdd" style="normal" x="10" y="320.000008" color="243,118,29" hidden="true"/><watcher var="SumSum" style="normal" x="10" y="338.999998" color="243,118,29" hidden="true"/><watcher var="Final" style="normal" x="10" y="338.999998" color="243,118,29" hidden="true"/><watcher var="UPC1" style="normal" x="21" y="65" color="243,118,29" extX="80" extY="227"/></sprites></stage><variables><variable name="UPC1"><list struct="atomic" id="259">a,b,c,1,2,3,a,b,c,1,2,3</list></variable><variable name="check digit"><l>3</l></variable><variable name="index"><l>12</l></variable><variable name="odd sum"><l>2</l></variable><variable name="even sum"><l>1</l></variable><variable name="MultOdd"><l>6</l></variable><variable name="SumSum"><l>7</l></variable><variable name="Final"><l>10</l></variable></variables></scene></scenes></project><media name="UPC" app="Snap! 9.0, https://snap.berkeley.edu" version="2"></media></snapdata>