<snapdata remixID="11099564"><project name="4.1 UPC code checker program" app="Snap! 7, https://snap.berkeley.edu" version="2"><notes></notes><thumbnail>data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAKAAAAB4CAYAAAB1ovlvAAAAAXNSR0IArs4c6QAAEl1JREFUeAHtnQt0VeWVx/83b5KQkPCINZJACZSJTW0dQHlTEVoBdSy0TKetnemyazV1RpzOGu1rdca2zmJNcY26qjjVLsS6SuvgSKGIIC8TQEcqASkgBAgkIRCSAHncvO+9s/f+zrn3Hsil2oRyz8n+IOd878fev+zvcc7N9YXIQZ1K4DpJIOE6tavNqgREAgqggnBdJaAAXlfxa+NJfYmgsbERZ8+dRSjY1/LQR0X6iu+rpsviYhT1wUc1hpCZmYmCggIkJfXZrcsq06AXJOC7fBPy6quvYvLkyYJYhJcQIcKOQeFrxF0elhSJpEvIyi8VUdhHYauAqZvrNbWZ6BBaWlqRl5eHkSNHRhpRn2cl4JiCq6urMWnSXyNIlOx65TGkwo9HX6vA/Hu/hPn3PI6vFd+KRfMWoXr/Oixd9j2sLqvBsT++h87eEI59cARf+MZ2nDh6GN1kOYNBIMh2LRQkP/1QnfxDV7KsHOYMnM55I/6hQzNxmvrR3d3tWaHrwCIScAB45MgRgoGgICBCCUlIS07AsKwsdHW2Y8q9d6JjyX9h7f++hL0bN+C1J3+CaTe0InvK3bh3/vfp/ln4bvLjx7//I/7lyX0CHk/hDJj8WPXa0HFagHEMEHwEY4DCAindc3NyUF9fH+ml+jwrAcdiKxgkJAQYYNK8b2Lu3V/F1u0bsHRWGQp8F7H1N8/g4R9uwqqfrcCixUvxxu638Lnpt+PF7VtQOu9O3PL1f8eBFx/Fkxu2I9RxnoRmTcFmNoaPWZN/1jROs2+QpmnJJZbSTMnUBemHZ6WuAwtLwLEGfH3j65gw8RNMiXE+Q46Pps3o9Vs4PVyNAYqLmRUdIUVlzTrP3mJQIsFmnGnAx2tCrixS0NRA4eTkJBQWFlr59eZVCTgtIOPA0y+NNjMlEZuXTUN2cggdiRnwJ2U5ZcCZ2BnKIn7juwwqOzLqTuWHBP3I6G0RuO/42Q40dCdTBkEyKqN6vSwBB4A075kNAVmmUxVl+OInUrFpzIOYufBvKYlIE6tmplUhjCCKWDmDjoSpvBhPkhx57axGjlyHtTvmhIPlb2D2wceRtPEHCN25nLtgFTLZ9eptCTgA5PUfE2DboMr0Ykz6/FIEeKPA/PEaju4Mo08IM1OoYYYTaE3HgAUjkAalYGRtJ2QyY9wUFfnk9M9h09kTuBuVsgGiKGlf+uJt2evoSAKOXbDsTGkzwNMwu/35iwm2gLU75eMUtpCEp7Vh4KOUcJgg5TDXYeJpZ8swW3EBqjNIdYU4n/gpjfIGKL1w5n3SHuflsN2+ROrF0xJwWkA2Yfxf5kHQMQltPxg4+mdbJk53OA5zIicwt+SX4nQXKycFJIPlM/lCsgGxivrM7wFzz1O23T7Xqs7bEnACSNZHDoWtMYulYiqIGZ4u2fGNmeMfK8oEKCxOMtplmCbOxwiTo4skc0EC24oKt0mtyzQv8dYvgWTSi2cl4ACQWePDYLZc7MIAkt9YM4mmC2cw67yoQxZJ5DCnG5vJJo2CfKMKQiGydAlUlsLsTE7TDodDAcpDkXb7HKfO2xJwAEirN7P+YjLIMYD2esxihmItbIgSgZKCwquYNkOulUNycj0GV/aYNSLHcaQgTNOvPeXKnS0f16kWUMTk9YsDQNI6Qce2y4DE8PEjMgbKONtCmRibOQMYwUWZ+IiFNsHkKER+WdNxPK8lzQKPQ5IsFfMmh00vOdmwUDG7fYnUi6cl4ACQ4WMyDEq0CWFoCA4DlGBDYQKSQbIA4xLsbGvIT03kmEYSDLBizKwMFroCKwPPjnfI7GyrZ9q3a5YkvXhUAg4AGQDbGvF4zXELwRFlsBg8OZRmPhgqy4mPLiaGETKoyXqPy1MCPfeTNR7nsVKldHiap2fRdorFplW73rwqgSsAZOhsCMzZHYUtYsRASqrBzKJNZMPwimEMo8V5DIY2sPaUzQX4WTGbVo6zoWfraqCOxlOq14tHJeAEkIBhkOypUKZfmR4ZJgMFX82EGZEIxxncmB/2mbB4okNhAhk0KiWFIlY33K6av4joPO5zAkgWyKwDDWxsmWzrJHKwp1xhzMLOpo8zEFSShS6GIVOPE0femFAF1JbYR/Lz0Q87uVt12zBKgl48KwEngISE7IKFIjM1yvpMIOPpkpAhQGQ3S3ZQzvwIHtl0UFmONxbQyks5BCTb2rHJ4zxiQq38DKKs/RhAnu4tQD0rch1YtAScADIMfFZnWyTLIvLM6bPWhpSDynME2zX281UCYtmMNZMCVMbkY2vH+Rg+qlxKSScsP++22ckakOuz2pdIvXhaAk4ASfHmSYi1eSDLFKBzOrZYQYbHoEZ3Y6lskmRDwXyxqOQiBciYEcy00ZAplxIYLFOLlY0rIEjtaZ7TGUXZLRsmuUZ1HpaA420YBoxoMGsxGnTk7RaemhkmXhPSwTE9MpM7WUWTh1/lN3573WjubM1Mfaa8OXRm/6JFizB9+gyU7yq3LJ9pL9K+Euhh7sJDc1hAXv/JOsyYMWKBXpciWFqam5GRniGf15VZlNeCbATtQz6pzrJe4arJY02lttWzzBsl+LBu3Trs2bMHd3z2DtSeqTU1UHuRWhTAaFF61e+wgDIF8jRogcOWaueOnSguLkabv03glLNBeqevvvqQWC5j6Yz1Y+sV6O5AWyN9ok0esRnL2dJUh32H6YVTsoZhK0qwzZ8/H2XlZWELyGvASB+8KnIdV7QErgBQrCCBxI6nz0uXLuI3Kx7FhAkTxCLKlErpjQ01KP3RDnznO2vxk58fxz+vO4W2ITk44PejaGw2hvsakNBci5zEIF5evhmZzeelPgGW6uXP/27fvh1z5swhK8tPQMwUHN2+ROrF0xLoE0DbAo7oqkNz3VE8++uNWL61SiyYrP/IQvJmZURJHkpuuAF3PTQPieVn4a/Zg9SM4bjUeAGdF1owclgCmrpD+Fh+JfYeps8c89qR4MsamoUdO3ZgzuzZcu+sOyZCNnBbVtDTYtfB2RKgDac131LMqlWrMHr0aPL5kN5Wg7G7H8eW4u+irceHY4cOyMaB13G8OrNOVECfnkQvGbBQsAvfe3oVNv3q5zi4/7D1gXPTDJ/GZAwZgvaODgyh+zvvvCMbkF27d2HG9Onw/c9DuKXoJuye8I9UwKz9+G/EsNVV520JOABkMFpb6WOSRExG+xl86u0f4WIwDZuTZ2DIzXPhSyCSiA8bPls09iaDDlwsfOwUA5PsaYRaireiGPLu47sx4eL/4VMp9UgsnITd40spOQS/vx2zyTrm0F9IUOdtCTgAZGP4/C+eR+GYMRiROwzF+56gd6W6rr0E6KXUi3c/iYOHP0Cgt1c2IgsXLrz27WoL110CDgDt3lRUVGDXrl206eCnImzx2C4Z68cmzFhAPmCmElGWLewNx1sxXIeVNeyhCGpcinO7XFd+/mgsWHAX0tPTOUrdIJBAnwAOgnHrEONEAo5dcJz0SbsxiCSgAA4iZcfjUBXAeNTKIOqTAjiIlB2PQ1UA41Erg6hPCuAgUnY8DtXxOlY8dtBtfeqhN3q2VLfj0IWeuOp6CpmauaPTUTI8Ja76peeAA6iO5w+14MGdDZiTPwTjh/Ffe40f10MPA8rrOnCmrRdN3xyLZH6sGgdOLeAAKeGsP4CHyxvR/eC4Aarx2lTzyvE2FL54GnXfGHNtGviIteoa8CMKLFb2JZvOYfWdo2Ilx038l4oy0dBh3r+Mh04pgAOkhXfrO7GElNtvF+zFmbON9HauudecPo3q6hrrmXkIFX/4Ay6094abCXS3472974XD0Z5gbw8aW658mSQ/M34mPgUwWmMD4G9rOInX1r+JYE8n3j9yDJu3lqO2Yivu/fFaRNI68P7Ro7hkcbRt4+/w7vvHpfVg1wXMX7Qc9r1gzETsffsNjBxbgiWfScBbpxrwmQxrfRnoxJDcfFw6+wGGj78FvV1+PPfcC2Dk6o9XYMvvfo3lm6pwZO9OvPXOwcjo+B2ROHEK4AArYii919h8bDNWbKzAtx7bgLX3z0JufiHGjZuASNp+3PPg4+CdaaCrGWt2ncJtt0yO0ZMgVr/0W2SNvxWvHs7Hw0vuwmnrHeKulgYUz16Bufd8BU2VBzAubQT+4e+/iHETS1A0ZymGJ7Yi0N6A+V/+D/x36VzE177cDFcBjKH2Pzc6OSUF2XkjMWP8cEz9m4XIH881JeJY5T5Epy1+4PtIJ+n7G6txJu1j4eZ8Samoq12D5//zMUxYsoDiM7F+41ac3LIa3ypJwYqVz9Gra+Z1tdTsUTiw81/x8qoV+HjJUuQVBLH1zW1IS51I31TVinfL98GXlEyfXRyF8XcsRnzty60h8yv56vovgdRnjoe66U880OdaQhcvtV5RYXdnT8y01tY2R/7enq7QxZYr6+BMTefPO/Jyew2NTeG4hoZG8Qd7e0PcIjt6yTfk76LvLLDcjb+ssr3X/a7ngGHb0z/Pd/c0ob49gFVxvhOmc3KkPnsCPXFyXKRTcP+4C5f+6e25ePloK35/yh+OizdPL9E3bW0tFo/LiJuuqQUcQFW09QTx6TU1ON3ai49nJePo1wqwraYDn19fN4Ct9K+q0pJsPD1rRP8qGcDSCuAACtOuKvmZEzj/wFh8YeM5HGzqQuX9hchJ1cnGlk/0XaUSLY0B8G+raUdqog+jXqjC5LwUNNJzV4UvtmDVAsaQzblz55Cbm4sUOlb5KI6tXzYd8KnV+3BSi59nMh+uv3+xXIcOHcJTTz2FG2+8ETNnzqSPiy5AdnY2EhJiTxrnaBf8w8k5+LcpuX+xfrq9IbWAV9HgI488gsrKynAOP/3hpWnTpmHGjBmYMmUKsrIu+xLvcE71fFgJKIBXkRR/MP++++7r0+rxl/WcPHkSW7ZswahR8f8WzFWGeV2TdAq+iviXLVsWho9hTEpKwm233SYWkC2huv5LQAGMIcP169fj/PnzKCoqwtSpU8USmq8oi1FAo/8sCegUHENsvN7LyIifJwYxuun6aAXQ9Sp09wBinym4e1zae5dIQAF0iaK82k0F0Kuadcm4FECXKMqr3VQAvapZl4xLAXSJorzaTQXQq5p1ybgUQJcoyqvdVAC9qlmXjEsBdImivNpNBdCrmnXJuBRAlyjKq91UAL2qWZeMSwF0iaK82k0F0Kuadcm4FECXKMqr3VQAvapZl4xLAXSJorzaTQXQq5p1ybgUQJcoyqvdVAC9qlmXjEsBdImivNpNBdCrmnXJuBRAlyjKq91UAL2qWZeMSwF0iaK82k0F0Kuadcm4FECXKMqr3VQAvapZl4xLAXSJorzaTQXQq5p1ybgUQJcoyqvdVAC9qlmXjEsBdImivNpNBdCrmnXJuBRAlyjKq91UAL2qWZeMSwF0iaK82k0F0Kuadcm4FECXKMqr3VQAvapZl4yrz++Ka+wM4PVT7ain779VpxLorwTy0hOxYEw6RqQlXlHVFV/V9dBbDXjuUAvuGZvRZ4EratAIlcCfkAAbtPVVfpR+MgtPzRrpyO0AsLU7iOEvVKH72+McmTSgEhgICaQ8ewJND4zF0JTIys8B4Ld3NqC0JBslw1PQ0dGB9vb28Pfl+qwehMjjowvfjQtZdx84KsRB8Zhony9kxVmRVDCcTGmSmW4mH6dRfvoyaLsu8lKlXJdcpF1tP77kPzRzqHyXMn/D6IYNG0jfRlestfz8fMyaNYu9ONjUjZUHm/HsnIgVdKwBL3QFBT7OXFVVhc7OTvaGIZSAXlQCJAH+7mT+Au+0tDTkDMsRmTQ0NGDq7bdbBshYjt5AACtXrkRpaamwxYxFOweA0QlsebiR1NRUJCcnK4TRwlG/SCAxMVEgtMWRmppMs6YxWnYc35cvXy4ARsfZ/pgAshVlwtPT0wXChITIvG0X1vvglgAbKMMFT7m0LIisy/DKD/4O//RyGepP115VSDEB5FJMuE0539WpBPqWAE+3ETelqAhPVzT8Sfi4REwAucoEgo4JZ9L5R51K4GoSsDcfe95+BUOHNaPjQxwjx5xX2ajaaz+F72pi1zQbPFsSSSNvdcDHHMVyDgvINi5I5CWQp6CgAKlpqUhMiEy9ZqaPVdW1j9f2zQbz2ku67xZiyd82UE888QRuLr6ZD9JMBXQ7U3cGZWVlEma2Lp9HHeeAq4+0YFttB16al9d3DzRWJdAPCdz/Zj3m3jQEX/+rrHAtjimYE9Yca8NrJ/3hDOpRCQyEBJgpZisaPq7XYQE5IkDnL59eU4sPLnZzUJ1KYEAkMDEnBfu/fBMSL9vM/j8I2/QwNrySHwAAAABJRU5ErkJggg==</thumbnail><scenes select="1"><scene name="4.1 UPC code checker program"><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>index</l></list></block><block s="doAsk"><l>enter a UPC Code</l></block><block s="doSetVar"><l>code</l><block s="getLastAnswer"></block></block><block s="doSetVar"><l>index</l><l>1</l></block><block s="doRepeat"><block s="reportStringSize"><block var="code"/></block><script><block s="doAddToList"><block s="reportLetter"><block var="index"/><block var="code"/></block><block var="UPCCode"/></block><block s="doChangeVar"><l>index</l><l>1</l></block></script></block></script></block-definition><block-definition s="correctnumberofdigits?" type="predicate" category="operators"><header></header><code></code><translations></translations><inputs></inputs><script><block s="doReport"><block s="reportEquals"><block s="reportListAttribute"><l><option>length</option></l><block var="UPCCode"/></block><l>12</l></block></block></script></block-definition><block-definition s="sumOdd*3" type="reporter" category="operators"><header></header><code></code><translations></translations><inputs></inputs><script><block s="doDeclareVariables"><list><l>index</l><l>sum</l></list></block><block s="doSetVar"><l>index</l><l>1</l></block><block s="doRepeat"><block s="reportListAttribute"><l><option>length</option></l><block var="UPCCode"/></block><script><block s="doIf"><block s="reportEquals"><block s="reportModulus"><block var="index"/><l>2</l></block><l>1</l></block><script><block s="doSetVar"><l>sum</l><block s="reportSum"><block var="sum"/><block s="reportListItem"><block var="index"/><block var="UPCCode"/></block></block></block></script></block><block s="doChangeVar"><l>index</l><l>1</l></block></script></block><block s="doReport"><block s="reportProduct"><block var="sum"/><l>3</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>index</l><l>sum</l></list></block><block s="doSetVar"><l>index</l><l>1</l></block><block s="doRepeat"><block s="reportDifference"><block s="reportListAttribute"><l><option>length</option></l><block var="UPCCode"/></block><l>1</l></block><script><block s="doIf"><block s="reportEquals"><block s="reportModulus"><block var="index"/><l>2</l></block><l>0</l></block><script><block s="doSetVar"><l>sum</l><block s="reportSum"><block var="sum"/><block s="reportListItem"><block var="index"/><block var="UPCCode"/></block></block></block></script></block><block s="doChangeVar"><l>index</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="doSetVar"><l>checkcode</l><block s="reportListItem"><l><option>last</option></l><block var="UPCCode"/></block></block><block s="doReport"><block var="checkcode"/></block></script></block-definition><block-definition s="script variables" type="command" category="other"><header></header><code></code><translations></translations><inputs></inputs></block-definition></blocks><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="145"><pentrails>data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAeAAAAFoCAYAAACPNyggAAAAAXNSR0IArs4c6QAAC99JREFUeAHt0DEBAAAAwqD1T20MH4hAYcCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBgwYMCAAQMGDBj4DAyN/gABHhb3AgAAAABJRU5ErkJggg==</pentrails><costumes><list struct="atomic" id="146"></list></costumes><sounds><list struct="atomic" id="147"></list></sounds><variables></variables><blocks></blocks><scripts></scripts><sprites select="1"><sprite name="Sprite" idx="1" x="0.797342192691076" y="-1.3953488372092977" heading="90" scale="1" volume="100" pan="0" rotation="1" draggable="true" costume="0" color="80,80,80,1" pen="tip" id="152"><costumes><list struct="atomic" id="153"></list></costumes><sounds><list struct="atomic" id="154"></list></sounds><blocks></blocks><variables></variables><scripts><script x="43" y="42.00000000000003"><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="correctnumberofdigits?"></custom-block></block><script><block s="doSayFor"><l>that code is invalid  the number of digits is incorrect</l><l>4</l></block><block s="doStopThis"><l><option>all</option></l></block></script></block><block s="doIfElse"><block s="reportEquals"><block s="reportModulus"><block s="reportSum"><custom-block s="sumOdd*3"></custom-block><block s="reportSum"><custom-block s="sumEvenDigits"></custom-block><custom-block s="checkDigit"></custom-block></block></block><l>10</l></block><l>0</l></block><script><block s="doSayFor"><l>this is a valid UPC a number</l><l>4</l></block></script><script><block s="doSayFor"><l>i am sorry  that is not a valid number</l><l>4</l></block></script></block></script></scripts></sprite><watcher var="code" style="normal" x="15.279187817258844" y="15.2791878172589" color="243,118,29" hidden="true"/><watcher var="checkcode" style="normal" x="10" y="10" color="243,118,29" hidden="true"/><watcher var="UPCCode" style="normal" x="9.777777777778283" y="13.7777777777778" color="243,118,29" extX="80" extY="70.00000000000003"/></sprites></stage><variables><variable name="UPCCode"><list struct="atomic" id="209"></list></variable><variable name="code"><l>0</l></variable><variable name="checkcode"><l>3</l></variable></variables></scene></scenes></project><media name="4.1 UPC code checker program" app="Snap! 7, https://snap.berkeley.edu" version="2"></media></snapdata>