<snapdata remixID="15000909"><project name="6.2 UPC Assingment" app="Snap! 11.0.8, https://snap.berkeley.edu" version="2"><notes></notes><thumbnail>data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAKAAAAB4CAYAAAB1ovlvAAAQAElEQVR4AeydCXwURfbHXyXBkBAhgAQRCSiXeC0ef1E8FkT+8HG9UdYDBXRRd1HXg9NlEXUVj7+Ax4rrBYrirftn96OCiHggeICCB4cQAi4gEREQMJiQ7HxrrElXT89MTwiQmXQ+/OZVvTq6uvrxuuv1q9cZlcFfMAN7cQYyJPgLZmAvzkAggHtx8oNDi3gK4MKFC2XChAkyfvz4WkkZX3Dx0mMGogRw+vTp0qRJE+nTp09MnH/++THLaLe7yxkf40yPS1C3z8ISwEWLFkmnTp2koqJCnnnmGVFKye233y4ff/yxHHLIIXLkkUfK66+/LrNmzZKMjAzJzMzUdX/55RcJPcdGQHtn3p2uiXLG+cUXX9Ttq5cGZ28J4MyZM7UQcV65ubkQycvLk759+8p9990nCFrv3r210L399ttSUlIiHTp0kMWLF8s+++yj6yNsJPYEfeuttzhU9RC0qhUzYAkgQmNw9tlnS/PmzWXUqFFa4BC8r7/+WgoLC4X0qaeeKs2aNZMdO3bIEUccoeuatnuS1opZDAZR7RmwBNDdy9q1a2XLli1SXFwcKVq1apUWuvLycgGmDH6kUpAIZsDnDFgC6NRcWaGSjHEnSc4DJ4t66H9l+VPD9gqKnrxej4FxNHjwZP2I4Bynz/MMqtXSGQiJmffINpaskyY5GTKtcLCo62ZKx8vvkw4D/0/TQ64YJ12HTJIuNzwuXW4MIQ51tjPtk6HZvYbKjuvnyDcNj5WcLOU92ICbsjNgCaBbsyzNPkR6nXex1jpm5QrNUpWy6sJWsq5fG1l3SQhx6I6buur2LGDKysr08yTHoR+ogck76c6dOyUrK0smTZokrQZO0JNs6huqmcFPys6AJYDus3gnr4cWHvgIzxtvvEFSvvvPt5LpUkYHT16sy9w/FaXb3CwrjyBZDEeGRRDZzZs3QwLUzAzUql4sAUQYDBilyszSAggPTcSKlzRlbhQN6CTZrTu52TpPm9GjR0fS5P2CRqauM+3kwQ+QmjMQJYCcBhcX6sY111yjjc9uPvl2z4dWx6u8tSDlt912GyQpKBVWs0qFqWlsxmeo4Qc09WYgSgC5qIBTgTqxevVqbXrZtn27hF6TiAiCEcbyC9uIOPImXTBsstaiGK2Bsz8/aQn9mXqhpO7L5KHwAqTuDFgC6Pc0Ov/P8XLH9o4ycl1BQmw9IHxbrlevngC/x6CeUgi3iFJhKsFf2s2AJYBoFAPO1Lkihc+qFFq0+Ev5S84SGdtifUJsv76LXvk2btxYAO3d/cbKU5dxQIEzbdrAC5C6M2AJIKdhLjRpYPLQH374Qd8Cd1ZUUGSh9YTZVj5Whn4o80OVCms+pZQ+rrMd6QCpPwOWACIUBpyaSUO/++476dy5c0QQKHeifNP3zqyVpv26devkoIMO0u3J+wUdmbrOtJMHP0BqzoAlgPFOAZvct99+G7PKmjEXxCyjoEWLFrJy5UqSvqFUlQb03SiomFIzYAmg0SpQzgLqhbymBdLy/jnSdNQLIbwYFy0mL9Nab8OGDQK8+ovHc47DmTZt4AVI3RmwBNB9GlxkeG5a0KyZvHf58bJ8dN8QLoiLX756Xwsgiwbg1Z+7f5NXKtCAzFc6wxJALrwBJ23S0G3btsmf/vQnLUxFS76StvtmSuN9VBWyM6rSDv4P916h2xQUFAigL4AwQg1i5c04KDdp0wYKL0DqzoAlgPFOIycnR4wZJl69WGVGWAxNVI9ypQINyDykMywBRMsgIICThhrejz/+KOvXr49pFM5qdqDUK2hFsyjQj1JK6tevr7UheQPTv8m7KZ0ZnjMNj7bwaj+CEcaaAUsATSUurkkbmp+fL6+++qo2Kkul4VbR8pJvpSyEKk44lVE/L5wI/ZaWloZ+/f9TylsDeo3Pf69Bzdo0A5YAcmHRKlAGCfVCTuOmUvjCGmn53OqEKL9thtZ6+AMCr/7i8ZzjIG3GZyi8AKk7A5YAJjoNBIU6DRvkysq+LWXNRYUJkTW6J030rjmzc04zPH5M/6ZIKW8NaMoDmvozYAkgAmDAqRktY+igQYO0Nlu/JjmHVNrTH6B/8l4UHjDlpE0bd5o8oDxZfPDBB3qvc3Fxsd5wVbwH6Pz584WtrMmONd3rWwLodbLmIj/99NN6Y7rJu+vGc0ilrtMhlbzpJx5VqkoDmnq03RV8+eWXwnZSnmlxsOWxoDq0cX4jUeNOktwHTk6Igib5su+++8qBBx4oL7/88q4MP+3aWgLIRTbgTE0a2q9fPxk8eLDWgJS5Ec8hlfbGIZV0MuA4pr4z7eTB94uNGzcK2wsQPKI9nHTSSTraQ8eOHfVGe+iMGTNk+fLlwt5nU2/IkCE6OgTltC//5RdpmpMhufVUQlSUbtGb+mnXtm1bv0NNi3qJTsISwESVTfnmLVtEtHZCQ4URyyG16dBJwh/OqIC0Xyil5Oeffw4dimP4bRW/XoMGDQSNB6j5/fffazcx0kSD4H33jTfeqI3u06ZNk2+++YYijU8//VS2b9+u21c6TAGqcUuRjCxR+S1F7ZMrmR276/rmh0cKjgdIG35AQ9PmnASjVaDwoV7ofNwJcsf2DjJiXbOE2LZ/R601mXjg1V883tatW3V76niNCV4yQODQamgjpZTMmTNHsHEqpeT999/XXb333nvywAMPyKWXXio9e/YUhJKoELRjHNDQoHRdfhoMfU+kolxyr58ulWWlkjNwMuwIKisqI1oXAY4UBAnv8GxmXphs0oYiQORXL1ssf8lZKne1KEmI0l+3Ze6///4CaG/6S0SVUsLzmlKKZjUCNCAChDZ65513tGAcffTRQvqoo46SFStW6Ntlo0aNZOLEicLiAd4TTzyh+Z988omm3KLNgLbeHL6tbhtzuEhlhWwd0doUhWl2WOty3CVLloR5wa+eAesWjIAhFFBKSRuwJRONQN7LITX74CNo4gnamALSgGNADWLlaUcdyp1pJw++X5x8cji6gtGECAVAI0INEuW3/rxD5p72RATzej4ZScN35j9esFBw5iV8CZYEv2OtC/UsAYx3wjgSjBs3Lua+jh1FX0hmXn7MLpwOqTErhQoQrBDR/5QKaz6lwlQzd/GH51Bi3nBbZUUMCPMGSAPSgDQgDUgD0oA0IA1IN23aVN+2TzvtNE25hYPzzjtPLrvssl0cffo1twSQi2/AqZJG80Dxht5vv/30AzhlXti5dZMXW2hvHFJJO2H6d/KcaTo0eWfayYPvB88//7wQbOm4446TM888M4KzzjorkobvzJ/Ru6c0ePsOaTirCo3euTMq33ThU7qPhg0b6udKP+MJ6kj0MyAXNtHEZObkSYsJ70njkVOl8c3xUfBEeK8wGhBIEn9KKV1bqTAlY8ZnKDxPeDAJI8ctluc/v/TBm/rJJYc3kN8fmhsX5zXfKNnZ2fr5EBvjI4884jGCgOWegYQakAvtRmFhK/ngihOl6NaLpGhMfJR9/aHWgERTBe6+EuUZsKnjTDt58P3APNdB8exhkcF/CmyBrHzPPfdcLUDYCrlNU8/db/Z5YyX7jL+62TqPuxqCTTvOVTODn7gzYAlg3Jqhwosvvjj0K7Jy6WJp63ZIdTihOh1Vf7zvCt2GZ0igMz5/lAprPqXC1GezmNXQfAaHH3643HLLLTJ37lzL/NKuXTu599579ZsL6jo7yzrmfNnx6kip2LBS6nUJz4WzHMGjDUDAnWVB2nsGLAE0WgVKdfN8Bn322WfllVdeEVNGuRuZ+zZxs3Se9joR+qE9eT+UOqEm+pjuNHlAuV+wJwUhQUstXbpUMIl069ZN2wERSIzOn3/+uQwdOlSbZ6insnMj3ZfPD79GK5v3jJR9NDXCNwni55j+O3fubNgBjTMDlgB61TMX+aKLLpJLLrlEC4NXvXoFhbLzp41eRRFe/V8dUmGYfuNRpcKaT6mqfcG0rS5+97vfaWFDsNBSfuhlox6UvLtWJUTZiM+lqKhIL9LwmzzjjDOqO8w61c4SQITBgFkwaUMfe+wxLYDkKXeirGS1MxtJZ9RvoNvAwCGVtsmAdqa+M+3kwfcLVrk9evTQ73l515sIGKnxv02E/PzGuk/65vsqfsdT1+tZAuh3MlRIqFq/uFZaTl2dED+NnKa75XUX0BmfP0pVaUCfTSLVXnzxRa2R0EpeYI9yIvy0ZbMsmv9RYiz4RO95pj/sjJFB7J1ESh3VEkCjVaCcBdQL+4eMrUUXHCBrLi5MiH3HnqU1IHFhgFd/8XjOcTjTpg08N/ikBN804Ra7K/j+L4dJ25f6JsaL5+vVM8diBe0eT5CPPQNRAkhVLq4X5fUVD9rfrf02OkLqU97vOCtKt2kBpD+DWP27+Up5a0B3PdOvoV27dtXPYjznOcG7XvJQPnSDrW7q1Kl6tx9Ciznm2muvFYzm1MvODB/f9Js3doXk3bnCZC1KfYNNmzZZZUEm9gxECSAXF9AE6gSfyGKVR5kbRf0PqTURUgkDxzgBtr2rrrpKoNjmDMWpgPNhmwD1cFJgBXziiSfqjVfw3OdYublEJCPTzdZ56hsEWlBPia8fSwDjtUAQDzvssJhV2r2wWnYkESGV/pydeeWVUrqKUsmtgnGxN9poypQp2s733HPPaSdTQzEF4aXdvXt3ad++vfz5z3+WAw44QIYPH641Nu31wR0/2+46QbaOaOPgVCWpb3DwwQdXFQSpuDNgCSBCwIWB0gpq8qS/+uorrR1+2Bhtbln++0KaRKHJTY/rC8rDOXD2R5+J8nRIPUDa1DcUnht8LJHnMQP2gOCHxyfFDCXSAy5Y1OFbeAjtu+++K/PmzRO+xgm/wVmj3F175we9EnkGRMC9KwVcrxmwBNCrghfvqC5d5W/bO8qItQUJsaWgg+7CaAed8fmjVJUG9NkkUg3NRkg5BKK6GP7CArnxx96Jcc9jMnv2bP25soceeigyhiCReAYsAUTLGNDUpN10zYplMip3qdx1QIkFr3z58FO0BmzVqpUAd1+J8tY4Qhl3/RAr5j+M548++qjsCdx6661y6KGHxhxLUOA9A5YAelcJc3lNxS2MXLIOqbSpDpSqvgaszvGCNnt+BiwBdGoXhmKes6ALFizQD+uZmd6rwHgOqbTH6+SgXyOkkudYiSh1GAcUONPkAbwAqTsDlgB6nYa5yBdccIFkZGTol/Re9eDFckilDNsabwpMf36oUlUa0NSnrwDpMwOWAHKRDThFk3bTHZUZ0nzcbGk4bEpCNP7HF/oZkP0QwN1XvDzvnhkHL/apRxrqBLwAqTsDlgD6PY2OHTrIh4NOllV/65cQlUvm6W6JLwh0xudPaWmpXl1iNPbZJKiWYjNgCaB5JkPDcB5QJ0yE1OJvlvh2SN00fpDWgDijAmd/yabdY2K88HYHjj32WMEH0l/fQa3qzoAlgKYTBIO0oaQJrDNy5Ej9HEjejZZjXnKzEuad/VPZnYfnBeoBr7Ka4hEFgTguvLoDv/nN8vr8XwAADNxJREFUb6woCTV1nLrejyWAXFS0CpSJgQJ47CTjtRb7HihLBrSnvnFIJU+/BvHytDP1SLvrwttdeO211yJd83pt2LBh+p1ynz59hOfSSGGQqPYMWAIYrxde1vOelDoIAdSJWN8JwSHV1OOZzqQRKpOGJpunTYDUnwFLABECA06NNMIGNSC/fafoCKktni2WRFh37VT9DMhGcEB70xc0mbwZE+0M4O0ucOs1fePUevfddwtakb0x//73v01RQHdhBiwB9NtP29aFOkLqukvaSCK0eDC8e4zXcMDvMfZ2PRYhODUgcAAHhQ6h1f/eHle6Hd8SQKNVoJwoFB83vGDwlcvPz9fabP3a/0Q5pLZ7biVNolDhckilT79wdkYb8lAn4O0OsAhhE9bu6Dud+tzVc7EE0KszPKB/+uknQQBxtMzLy/OqJhum3uXJN0x870zaL8Wx1G/doF5qzoAlgG7NYp7PbrjhBvnDH/4gXbp0EYTR61QLBo2V+h2O9irSPoTOCKmm30SUHWnHH3+8Pi5jo3OoE/ACpO4MRAmg+1S42Dh04s+Hsyb59etL3NVk2VlNpHTZgih+/g2Pal5JSYkOgUt7GNWltA2QPjMQJYAIBpqJUyTthaOO76odUoevbSaJsKlZe/3cSKRT4NVfLN6AAQOEMGeAOmZMjI88FF6A1J0BSwD9nkbx8qVybfcj5eZzuyXE5v9/WHfLlkygMz5/Jk2apCPLv/XWWz5bBNVSbQYsAUSrGHAipNlDgR8feybIg83bSmXTcef7Bm3YlA5IJ4Mnn3xS2C5JGzMm0gbwAqTuDFgCyGlwYaGA9OTJk4V3wOyxIA/fwOQJ7v3444/rd6UYa2fOnCnQK6+8Uoiodc899wg8FjK0xam1TZs2eg/F1VdfrW/R8E1/pAF5QuqOGDGCrAY8EpWVBMsgFSCVZ8ASQC4uIJ7x2+/PE76JgQCccMIJwicLCEHrBW6trFZLS0uFAEAEI4eyyfvmm2+W008/XeCx9ZH2GHV5k4BQ3n777VoAOa4Bz3akOTbCN3bsWF0H91T4TqTy5Adjl+gIqax2eQtAEB9nqFq/+YEDBsiPr92qQ9h6hbJ1hrodMKC/4OTAx1vcTg4IH5oX4YP+ULw4uF5pOAOWBuzWrZsgDAgh+2KrQ3eWl8mwExrGDWdrwt3uU75N76flONnZ2VrLGe3HHt3evXsL9PAmImeuuE9Pv1P7BW8q9JSk9I8lgOZjLLx+I+p7//79BdMJkUTxZobiI8eihICOaCZuvYbSDgFxz0hG8/YhXZvlZmuBQ9BpR5iMk965Urxw4bZXddudR/9eU34Y6ymnnEIyQArPgCWAfGIAbQT4OKH5uB4v5fEOhvJsR5oYKjzHIaCG0i4kVa7pUFK5pUQymh3k4ot+Q0Ibgxs29pJ4GDJzk/7YH/FceDsT1WHASLkZsASQnW9oI7QSWu2mm24SngNbtmwp3J6hfLuNj/zxbMbtkeDehtIuegYqpfLnzVKx/puooozMLL3Ljna8bWETkh+wIo/qrO4w0upMLQFEwPg0FQKBVqoOXfjlV0K42kRhbTNvWSIff7FMh1EjVjPCnlYzG5yMrxmwBJAWmEr4PtuiRYt0kB6oAeYTk4bGyk+e/JSMnzBBxo0frylp4Mw/8o9/RPrnNk5YW77EBDUgz4Z4xhUgPWcgSgD/9a9/CZ8t9Wt2oZ4Bt2uThnrlz+h1muTO/FtCMw1fHqJ98OWh9BQ8c1aWALL/dlfNMIlu28GXh8zUB5QZsASQtx0IEAuR6dOn63ewmDrYA8Ez4axZs/RbDUwxM2bM0OVs12QRcs011wjxX15//XXhVRtvReiHeriys3Ahz0Gd4MtD5HOufhliAeO0GQ99WoVBJi1mwBJApxkGgzAxlBE+Ioe+9NJL+utBd955Z+QbvsTda968uZSXlwsxljHRIGQIzd///ndhYXHhhRcKgkt8aYTYOWvmy0O5w+dI5kHHOYt0mr5oA4IvD+kpSbsfSwCdZhi8nxE8NA/vhHmfy+25sLBQ+OgfQoHxmDoE/UZYMdHwCm3z5s0ycOBAwXi9fPly/UxJeDcEU3l8eWj73SfK1uHREVbZDoAQ0q5z585pN/nBCYXeTzgnIRkzzDHHHKPd8xFEBKRv375CyFuTh2IshlJu6GV/fSjhV4cw4WDKYSsk7YIvDzmvUnqlLQ3IqdWEGQYTDfAy02C4xiQDnGYZ8p/Ony84WYH84MtDXI60R5QA1qQZ5szePSMmF7xgYnnHYHLBbJOfny8ffvihKKUiSPsrUMdP0BLAmjbDJGNyqV+/vn4rgm8hz5N1/LrUmdO3BNBphsGMwqKEjUFEmzd5zDO8F8YLGo8Ugva0bt1aCNiDgwL1eE/Mc597FmN96Jl6rKTNgoOFD7wA6T8DlgA6zTCEo+D7GTgH9OzZU0yezeJsEsIsQry/ZcuWyZgxY4Tv7+KKhQ8fgsTiwT19sT70TD3Thnb0Da/2IBjJ7poBSwDReAgC2qtXr17y2Wef6ZUuhmaTxxzC5vRTTz1VxwrcsmWLnH322cLiArcsVqwYpenHaXLhBMrmPSNlH00lGQUEm+PSjmNEVQgYaTkDlgAmY4ZBUyEw8WgyJpcVK1Zo72gM30HsvbSUNc+TsgSQGjVphkFzYl4xcJtdTB7vGWO2wdDt9IYxaSjeMVCD6uYDDxuudO1AlADWpBkGbxbMKwa7K288bGKZeTABgf0WPS2MJfCwqR3CxygsAaxpM0y823Oi23cy5YG5h0uZmrAE0GmGibUpac6cOdrbBeFiwfDmm2/quMkIzMSJE7VHTKNGjfTzHDFdMNngqMDtmI1Mf/zjHwXKqzzq8bake/fugvmGRRD9QnFgwKHhjTfe0MfjdotDQ9euXQUnCIId0Q/H9Zr67D53e7G14wTjpl1g7vGcIou5uzOWADrNMLE2JRkXKS7g6NGjpV+/foJNsF27dtocM3fuXD1mBIlNTffff7+wMr700kv12w1W1kopIeY0t/u1a9cKZh1W0Zh94OHIQP/0i7AQlxAeAsd/ACKtkkZ4OY4+oOOn/kUPSMX6ZQ5OVZL+aAMCc0/VvOytlCWAaB4uEBc/1qYkLjzeLtQbOnSoYAcEBLDkY4ZoPD7JRTlaC2FBqCjnJPEXRBv+85//1JoQrxtMOWyGRzgx77DVkw3rDz/8sPY5ROixMdI/x7/qqquEfSRmHG5zT+lz10nZB09wuCgE5p6oKdmrDEsAa9oMgyCjaQxF0znzhp8MJZwHTrDOfgJzz16VoV06uCWA9FSTZhhukZhXDKqb5zUdmjEWiKSKB00i5AceNlziWoUoAeR2uTs3JWEGGTggHD8mkdmE8v79L9PhQoyhWqkqTxmlqpeuVVegjg/GEsA9ZYZJJn5Mdvl27SXDbdo8R9bxa5ZWp28JoB8zDOHV8IIhPgyu+eecc46OboAL1YYNG+S3v/2tzrdv316Hd2NxwT5jHBd4xYYgsaCwZ1GJZGSJym1cxf41VVFZofujXXZ29q/cgKTLDFgC6McMg/AhTOzxQCNhKsEEw1eFWGQUFxcLAobbFlEWMLP0799fiDG4Zs0arc1CFaz5y+xwikhFuTQY/ZnFJ8PmKBYcBvACpM8MWALoxwyDcTkjI0MwnWAGQRAxn6ANjccMkQ7y8/O1MRqNSZBK4j2zesU8456+ncve1aytI9po6vwhfgzaj3bEj3GWBenUnwFLAHfFDMMKF0FBUyWiycaPoT9sgGzzTP0pD87AOQOWAFKwp8wweMAYb5jxEyboGDLu/MRHHhFjwkGrYtg2njDQRHkeATinALV3BqIEcE+YYTDFgGS9Y5Ld5MS7Zl7d1d7pD0ZmCeCeMsP4uU1z23XXqyNeL3VKKi0B9GOGIS5MmzZttHF4ypQpwiqXFTACg1cLlHAdrHjRQERVZYEybNgwYW8J73IBcWRwUGBhwcqazU3wz3GZdQYPHixEX6Bf95XB4yX73Dsk64jT3UWB10vUjNROhiWAfswwhOggRO/ll18uQ4YMEb4fZ0wx0NWrV8umTZuEsB2cMo4KUJwQ2F1HWiklPGuyemYzE2Yd6rGQoQ+nWWf27NnCLju0IW0NjMfLzqKPgrgyZlJSkFoC6McMg99ep06dBL8+VqbdunXTHjHYBPHRQ/DQbsSJwSsGAcL7Be3Gcx9uV+QxXJNGe8Yz6yCQtMMMoxxxZYzHS/nCabJj2pioqQ+8XqKmpFYyLAHcFTMMGorbZCzKqvW6667Thuh49Ux7tKG7XuD1UitlaJcGZQkgPXFr7NGjh8TyPNmb/MDrhSuUXogSQHN6SintwaxU6lJzLgGtvTNgCWDtHWYwsnSdgUAA0/XKpsh5BQKYIhcqXYcZCGC6XtkUOa9AAFPkQqXrMP8LAAD//5Yd2PEAAAAGSURBVAMA9w5pjYB7RwkAAAAASUVORK5CYII=</thumbnail><scenes select="1"><scene name="6.2 UPC Assingment"><notes></notes><hidden></hidden><headers></headers><code></code><blocks><block-definition s="getUPCCode" type="command" category="control"><header></header><code></code><translations></translations><inputs></inputs><script><block s="doDeclareVariables"><list><l>UPC</l><l>i</l></list></block><block s="doAsk"><l>Enter the UPC code.</l></block><block s="doSetVar"><l>UPC</l><block s="getLastAnswer"></block></block><block s="doSetVar"><l>i</l><l>1</l></block><block s="doRepeat"><block s="reportTextAttribute"><l><option>length</option></l><block var="UPC"/></block><script><block s="doAddToList"><block s="reportLetter"><block var="i"/><block var="UPC"/></block><block var="UPClist"/></block><block s="doChangeVar"><l>i</l><l>1</l></block></script></block></script></block-definition><block-definition s="checkUPC" type="command" category="control"><header></header><code></code><translations></translations><inputs></inputs><script><block s="doIf"><block s="reportVariadicEquals"><list><block s="reportNot"><block s="reportListAttribute"><l><option>length</option></l><block var="UPClist"/></block></block><l>12</l></list></block><script><block s="doSayFor"><l>ERROR.UPC code invalid</l><l>2</l></block><block s="doStopThis"><l><option>all</option></l></block></script><list></list></block></script></block-definition><block-definition s="traversingUPC" type="command" category="variables"><header></header><code></code><translations></translations><inputs></inputs><script><custom-block s="addOdd"></custom-block><custom-block s="mulitiplyBy3"></custom-block><custom-block s="addEvenExeptChecikDigit"></custom-block><custom-block s="addSteps2&amp;3"></custom-block><custom-block s="addCheckDigit&amp;Step4"></custom-block><custom-block s="step5MOD10?"></custom-block></script></block-definition><block-definition s="REPORT" type="command" category="control"><header></header><code></code><translations></translations><inputs></inputs><script><block s="doIfElse"><block s="reportVariadicEquals"><list><block var="REPORT"/><l>yes</l></list></block><script><block s="doSayFor"><l>UPC code is valid</l><l>2</l></block></script><script><block s="doSayFor"><l>ERROR UPCcode is invalid</l><l>2</l></block></script></block></script></block-definition><block-definition s="addOdd" type="command" category="operators"><header></header><code></code><translations></translations><inputs></inputs><script><block s="doSetVar"><l>index</l><l>1</l></block><block s="doSetVar"><l>oddSUM</l><l>0</l></block><block s="doRepeat"><block s="reportListAttribute"><l><option>length</option></l><block var="UPClist"/></block><script><block s="doSetVar"><l>oddSUM</l><block s="reportVariadicSum"><list><block var="oddSUM"/><block s="reportListItem"><block var="index"/><block var="UPClist"/></block></list></block></block><block s="doChangeVar"><l>index</l><l>2</l></block></script></block><block s="doSetVar"><l>addOdd</l><block var="oddSUM"/></block></script></block-definition><block-definition s="mulitiplyBy3" type="command" category="operators"><header></header><code></code><translations></translations><inputs></inputs><script><block s="doSetVar"><l>multipllyBy3</l><block s="reportVariadicProduct"><list><block var="oddSUM"/><l>3</l></list></block></block></script></block-definition><block-definition s="addEvenExeptChecikDigit" type="command" category="operators"><header></header><code></code><translations></translations><inputs></inputs><script><block s="doSetVar"><l>index</l><l>2</l></block><block s="doSetVar"><l>evenSUM</l><l>0</l></block><block s="doRepeat"><block s="reportListAttribute"><l><option>length</option></l><block var="UPClist"/></block><script><block s="doSetVar"><l>evenSUM</l><block s="reportVariadicSum"><list><block var="evenSUM"/><block s="reportListItem"><block var="index"/><block var="UPClist"/></block></list></block></block><block s="doChangeVar"><l>index</l><l>2</l></block></script></block><block s="doSetVar"><l>addEvenExeptCheckDigit</l><block s="reportDifference"><block var="evenSUM"/><block s="reportListItem"><l><option>last</option></l><block var="UPClist"/></block></block></block></script></block-definition><block-definition s="addSteps2&amp;3" type="command" category="operators"><header></header><code></code><translations></translations><inputs></inputs><script><block s="doSetVar"><l>addSteps2&amp;3</l><block s="reportVariadicSum"><list><block var="multipllyBy3"/><block var="addEvenExeptCheckDigit"/></list></block></block></script></block-definition><block-definition s="addCheckDigit&amp;Step4" type="command" category="operators"><header></header><code></code><translations></translations><inputs></inputs><script><block s="doSetVar"><l>addCheckDigit&amp;Step4</l><block s="reportVariadicSum"><list><block s="reportListItem"><l><option>last</option></l><block var="UPClist"/></block><block var="addSteps2&amp;3"/></list></block></block></script></block-definition><block-definition s="step5MOD10?" type="command" category="operators"><header></header><code></code><translations></translations><inputs></inputs><script><block s="doIfElse"><block s="reportVariadicEquals"><list><block s="reportModulus"><block var="addCheckDigit&amp;Step4"/><l>10</l></block><l>0</l></list></block><script><block s="doSetVar"><l>REPORT</l><l>yes</l></block></script><script><block s="doSetVar"><l>REPORT</l><l>no</l></block></script></block></script></block-definition></blocks><primitives></primitives><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="213"><pentrails>data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAeAAAAFoCAYAAACPNyggAAAQAElEQVR4AezVC27kNhAEUCP3P3SC/NZeez6SSDWb9YJg1zsjkV2vDdQfH/4jQIAAAQIEbhdQwLeTu5AAAQIECHx8ZBew3wACBAgQIFAkoICL4F1LgAABAtkCCjh3/5ITIECAQKGAAi7EdzUBAgQI5Aoo4NzdZyeXngABAsUCCrh4Aa4nQIAAgUwBBZy5d6mzBaQnQGABAQW8wBKMQIAAAQJ5Ago4b+cSE8gWkJ7AIgIKeJFFGIMAAQIEsgQUcNa+pSVAIFtA+oUEFPBCyzAKAQIECOQIKOCcXUtKgACBbIHF0ivgxRZiHAIECBDIEFDAGXuWkgABAgQWE7i5gBdLbxwCBAgQIFAkoICL4F1LgAABAtkCCvjG/buKAAECBAj8J6CA/5PwNwECBAgQuFFAAd+InX2V9AQIECDwWUABf9bwMwECBAgQuElAAd8E7ZpsAekJECDwu4AC/l3EvwkQIECAwA0CCvgGZFcQyBaQngCBnwQU8E8qPiNAgAABApMFFPBkYMcTIJAtID2BRwIK+JGMzwkQIECAwEQBBTwR19EECBDIFpD+mYACfqbjOwIECBAgMElAAU+CdSwBAgQIZAu8Sq+AXwn5ngABAgQITBBQwBNQHUmAAAECBF4J7F3Ar9L7ngABAgQIFAko4CJ41xIgQIBAtoAC3nf/khEgQIDAwgIKeOHlGI0AAQIE9hVQwPvuNjuZ9AQIEFhcQAEvviDjESBAgMCeAgp4z71KlS0gPQECDQQUcIMlGZEAAQIE9hNQwPvtVCIC2QLSE2gioICbLMqYBAgQILCXgALea5/SECCQLSB9IwEF3GhZRiVAgACBfQQU8D67lIQAAQLZAs3SK+BmCzMuAQIECOwhoID32KMUBAgQINBMYHABN0tvXAIECBAgUCSggIvgXUuAAAEC2QIKeOD+HUWAAAECBN4VUMDvSnmOAAECBAgMFFDAAzGzj5KeAAECBI4IKOAjWp4lQIAAAQKDBBTwIEjHZAtIT4AAgaMCCviomOcJECBAgMAAAQU8ANERBLIFpCdA4IyAAj6j5h0CBAgQIHBRQAFfBPQ6AQLZAtITOCuggM/KeY8AAQIECFwQUMAX8LxKgACBbAHprwgo4Ct63iVAgAABAicFFPBJOK8RIECAQLbA1fQK+Kqg9wkQIECAwAkBBXwCzSsECBAgQOCqQO8Cvpre+wQIECBAoEhAARfBu5YAAQIEsgUUcN/9m5wAAQIEGgso4MbLMzoBAgQI9BVQwH13lz259AQIEGguoICbL9D4BAgQINBTQAH33JupswWkJ0BgAwEFvMESRSBAgACBfgIKuN/OTEwgW0B6ApsIKOBNFikGAQIECPQSUMC99mVaAgSyBaTfSEABb7RMUQgQIECgj4AC7rMrkxIgQCBbYLP0CnizhYpDgAABAj0EFHCPPZmSAAECBDYTOFjAm6UXhwABAgQIFAko4CJ41xIgQIBAtoACPrB/jxIgQIAAgVECCniUpHMIECBAgMABAQV8ACv7UekJECBAYKSAAh6p6SwCBAgQIPCmgAJ+E8pj2QLSEyBAYLSAAh4t6jwCBAgQIPCGgAJ+A8kjBLIFpCdAYIaAAp6h6kwCBAgQIPBCQAG/API1AQLZAtITmCWggGfJOpcAAQIECDwRUMBPcHxFgACBbAHpZwoo4Jm6ziZAgAABAg8EFPADGB8TIECAQLbA7PQKeLaw8wkQIECAwA8CCvgHFB8RIECAAIHZAmsX8Oz0zidAgAABAkUCCrgI3rUECBAgkC2ggNfdv8kIECBAYGMBBbzxckUjQIAAgXUFFPC6u8meTHoCBAhsLqCAN1+weAQIECCwpoACXnMvpsoWkJ4AgQABBRywZBEJECBAYD0BBbzeTkxEIFtAegIhAgo4ZNFiEiBAgMBaAgp4rX2YhgCBbAHpgwQUcNCyRSVAgACBdQQU8Dq7MAkBAgSyBcLSK+CwhYtLgAABAmsIKOA19mAKAgQIEAgT+K2Aw9KLS4AAAQIEigQUcBG8awkQIEAgW0ABf9q/HwkQIECAwF0CCvguafcQIECAAIFPAgr4E0b2j9ITIECAwJ0CCvhObXcRIECAAIF/BRTwvxD+yhaQngABAncLKOC7xd1HgAABAgT+ElDAfyH4n0C2gPQECFQIKOAKdXcSIECAQLyAAo7/FQBAIFtAegJVAgq4St69BAgQIBAtoICj1y88AQLZAtJXCijgSn13EyBAgECsgAKOXb3gBAgQyBaoTq+AqzfgfgIECBCIFFDAkWsXmgABAgSqBWoLuDq9+wkQIECAQJGAAi6Cdy0BAgQIZAso4Lr9u5kAAQIEggUUcPDyRSdAgACBOgEFXGeffbP0BAgQCBdQwOG/AOITIECAQI2AAq5xd2u2gPQECBD4UMB+CQgQIECAQIGAAi5AdyWBaAHhCRD4W0AB/83gDwIECBAgcK+AAr7X220ECGQLSE/gfwEF/D+FHwgQIECAwH0CCvg+azcRIEAgW0D6LwIK+AuHfxAgQIAAgXsEFPA9zm4hQIAAgWyBb+kV8DcSHxAgQIAAgfkCCni+sRsIECBAgMA3gagC/pbeBwQIECBAoEhAARfBu5YAAQIEsgUUcMz+BSVAgACBlQQU8ErbMAsBAgQIxAgo4JhVZweVngABAqsJKODVNmIeAgQIEIgQUMARaxYyW0B6AgRWFFDAK27FTAQIECCwvYAC3n7FAhLIFpCewKoCCnjVzZiLAAECBLYWUMBbr1c4AgSyBaRfWUABr7wdsxEgQIDAtgIKeNvVCkaAAIFsgdXTK+DVN2Q+AgQIENhSQAFvuVahCBAgQGB1gbkFvHp68xEgQIAAgSIBBVwE71oCBAgQyBZQwPP272QCBAgQIPBQQAE/pPEFAQIECBCYJ6CA59lmnyw9AQIECDwVUMBPeXxJgAABAgTmCCjgOa5OzRaQngABAi8FFPBLIg8QIECAAIHxAgp4vKkTCWQLSE+AwFsCCvgtJg8RIECAAIGxAgp4rKfTCBDIFpCewNsCCvhtKg8SIECAAIFxAgp4nKWTCBAgkC0g/SEBBXyIy8MECBAgQGCMgAIe4+gUAgQIEMgWOJxeAR8m8wIBAgQIELguoICvGzqBAAECBAgcFtiqgA+n9wIBAgQIECgSUMBF8K4lQIAAgWwBBbzN/gUhQIAAgU4CCrjTtsxKgAABAtsIKOBtVpkdRHoCBAh0E1DA3TZmXgIECBDYQkABb7FGIbIFpCdAoKOAAu64NTMTIECAQHsBBdx+hQIQyBaQnkBXAQXcdXPmJkCAAIHWAgq49foMT4BAtoD0nQUUcOftmZ0AAQIE2goo4LarMzgBAgSyBbqnV8DdN2h+AgQIEGgpoIBbrs3QBAgQINBd4FoBd09vfgIECBAgUCSggIvgXUuAAAEC2QIK+Pz+vUmAAAECBE4LKODTdF4kQIAAAQLnBRTwebvsN6UnQIAAgUsCCvgSn5cJECBAgMA5AQV8zs1b2QLSEyBA4LKAAr5M6AACBAgQIHBcQAEfN/MGgWwB6QkQGCKggIcwOoQAAQIECBwTUMDHvDxNgEC2gPQEhgko4GGUDiJAgAABAu8LKOD3rTxJgACBbAHphwoo4KGcDiNAgAABAu8JKOD3nDxFgAABAtkCw9Mr4OGkDiRAgAABAq8FFPBrI08QIECAAIHhAq0KeHh6BxIgQIAAgSIBBVwE71oCBAgQyBZQwG32b1ACBAgQ2ElAAe+0TVkIECBAoI2AAm6zquxBpSdAgMBuAgp4t43KQ4AAAQItBBRwizUZMltAegIEdhRQwDtuVSYCBAgQWF5AAS+/IgMSyBaQnsCuAgp4183KRYAAAQJLCyjgpddjOAIEsgWk31lAAe+8XdkIECBAYFkBBbzsagxGgACBbIHd0yvg3TcsHwECBAgsKaCAl1yLoQgQIEBgd4HnBbx7evkIECBAgECRgAIugnctAQIECGQLKODH+/cNAQIECBCYJqCAp9E6mAABAgQIPBZQwI9tsr+RngABAgSmCijgqbwOJ0CAAAECPwso4J9dfJotID0BAgSmCyjg6cQuIECAAAEC3wUU8HcTnxDIFpCeAIFbBBTwLcwuIUCAAAECXwUU8FcP/yJAIFtAegK3CSjg26hdRIAAAQIEfgko4F8WfiJAgEC2gPS3CijgW7ldRoAAAQIE/hFQwP84+JMAAQIEsgVuT6+Abyd3IQECBAgQ+PhQwH4LCBAgQIBAgcBSBVyQ35UECBAgQKBEQAGXsLuUAAECBNIFFPAyvwEGIUCAAIEkAQWctG1ZCRAgQGAZAQW8zCqyB5GeAAECaQIKOG3j8hIgQIDAEgIKeIk1GCJbQHoCBBIFFHDi1mUmQIAAgXIBBVy+AgMQyBaQnkCqgAJO3bzcBAgQIFAqoIBL+V1OgEC2gPTJAgo4efuyEyBAgECZgAIuo3cxAQIEsgXS0yvg9N8A+QkQIECgREABl7C7lAABAgSyBT4+FHD6b4D8BAgQIFAioIBL2F1KgAABAukCyQWcvnv5CRAgQKBQQAEX4ruaAAECBHIFFHDq7uUmQIAAgVIBBVzK73ICBAgQSBVQwKmbz84tPQECBMoFFHD5CgxAgAABAokCCjhx6zJnC0hPgMASAgp4iTUYggABAgTSBBRw2sblJZAtID2BZQQU8DKrMAgBAgQIJAko4KRty0qAQLaA9EsJKOCl1mEYAgQIEEgRUMApm5aTAAEC2QLLpVfAy63EQAQIECCQIKCAE7YsIwECBAgsJ3BrAS+X3kAECBAgQKBIQAEXwbuWAAECBLIFFPBt+3cRAQIECBD4JaCAf1n4iQABAgQI3CaggG+jzr5IegIECBD4KqCAv3r4FwECBAgQuEVAAd/C7JJsAekJECDwXUABfzfxCQECBAgQmC6ggKcTu4BAtoD0BAj8LKCAf3bxKQECBAgQmCqggKfyOpwAgWwB6Qk8FlDAj218Q4AAAQIEpgko4Gm0DiZAgEC2gPTPBRTwcx/fEiBAgACBKQIKeAqrQwkQIEAgW+B1egX82sgTBAgQIEBguIACHk7qQAIECBAg8Fpg5wJ+nd4TBAgQIECgSEABF8G7lgABAgSyBRTwrvuXiwABAgSWFlDAS6/HcAQIECCwq4AC3nWz2bmkJ0CAwPICCnj5FRmQAAECBHYUUMA7blWmbAHpCRBoIaCAW6zJkAQIECCwm4AC3m2j8hDIFpCeQBsBBdxmVQYlQIAAgZ0EFPBO25SFAIFsAelbCSjgVusyLAECBAjsIqCAd9mkHAQIEMgWaJdeAbdbmYEJECBAYAcBBbzDFmUgQIAAgXYCQwu4XXoDEyBAgACBIgEFXATvWgIECBDIFlDAw/bvIAIECBAg8L6AAn7fypMECBAgQGCYgAIeRpl9kPQECBAgcExAAR/z8jQBAgQIEBgioICHMDokW0B6AgQIHBdQwMfNvEGAAAECBC4LKODLhA4gkC0gPQECv+uE6gAAAkNJREFU5wQU8Dk3bxEgQIAAgUsCCvgSn5cJEMgWkJ7AeQEFfN7OmwQIECBA4LSAAj5N50UCBAhkC0h/TUABX/PzNgECBAgQOCWggE+xeYkAAQIEsgWup1fA1w2dQIAAAQIEDgso4MNkXiBAgAABAtcFOhfw9fROIECAAAECRQIKuAjetQQIECCQLaCAu+7f3AQIECDQWkABt16f4QkQIECgq4AC7rq57LmlJ0CAQHsBBdx+hQIQIECAQEcBBdxxa2bOFpCeAIEtBBTwFmsUggABAgS6CSjgbhszL4FsAekJbCOggLdZpSAECBAg0ElAAXfallkJEMgWkH4rAQW81TqFIUCAAIEuAgq4y6bMSYAAgWyB7dIr4O1WKhABAgQIdBBQwB22ZEYCBAgQ2E7gUAFvl14gAgQIECBQJKCAi+BdS4AAAQLZAgr47f17kAABAgQIjBNQwOMsnUSAAAECBN4WUMBvU2U/KD0BAgQIjBVQwGM9nUaAAAECBN4SUMBvMXkoW0B6AgQIjBdQwONNnUiAAAECBF4KKOCXRB4gkC0gPQECcwQU8BxXpxIgQIAAgacCCvgpjy8JEMgWkJ7APAEFPM/WyQQIECBA4KGAAn5I4wsCBAhkC0g/V0ABz/V1OgECBAgQ+FFAAf/I4kMCBAgQyBaYn14Bzzd2AwECBAgQ+CaggL+R+IAAAQIECMwXWLmA56d3AwECBAgQKBJQwEXwriVAgACBbAEFvOr+zUWAAAECWwso4K3XKxwBAgQIrCrwJwAAAP//lVwoVAAAAAZJREFUAwDU5ALRcl29HAAAAABJRU5ErkJggg==</pentrails><costumes><list struct="atomic" id="214"></list></costumes><sounds><list struct="atomic" id="215"></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="220"><costumes><list struct="atomic" id="221"></list></costumes><sounds><list struct="atomic" id="222"></list></sounds><blocks></blocks><variables></variables><scripts><script x="53" y="30"><block s="receiveGo"></block><block s="doSetVar"><l>UPClist</l><block s="reportNewList"><list></list></block></block><custom-block s="getUPCCode"></custom-block><custom-block s="checkUPC"></custom-block><custom-block s="traversingUPC"></custom-block><custom-block s="REPORT"></custom-block></script></scripts></sprite><watcher var="UPClist" style="normal" x="10" y="10" color="243,118,29" extX="108" extY="194"/><watcher var="addOdd" style="normal" x="10" y="214.00000799999998" color="243,118,29"/><watcher var="multipllyBy3" style="normal" x="10" y="235.00000999999997" color="243,118,29"/><watcher var="evenSUM" style="normal" x="10" y="256.00001199999997" color="243,118,29"/><watcher var="addEvenExeptCheckDigit" style="normal" x="10" y="277.00001399999996" color="243,118,29"/><watcher var="addSteps2&amp;3" style="normal" x="10" y="298.00001599999996" color="243,118,29"/><watcher var="addCheckDigit&amp;Step4" style="normal" x="10" y="319.00001799999995" color="243,118,29"/><watcher var="REPORT" style="normal" x="180" y="87.000002" color="243,118,29"/><watcher var="index" style="normal" x="176" y="109.00000399999999" color="243,118,29"/><watcher var="oddSUM" style="normal" x="159" y="131.00000599999998" color="243,118,29"/></sprites></stage><variables><variable name="UPClist"><list struct="atomic" id="248">0,1,3,0,0,0,0,0,1,2,4,3</list></variable><variable name="REPORT"><l>yes</l></variable><variable name="index"><l>26</l></variable><variable name="oddSUM"><l>8</l></variable><variable name="addOdd"><l>8</l></variable><variable name="multipllyBy3"><l>24</l></variable><variable name="evenSUM"><l>6</l></variable><variable name="addEvenExeptCheckDigit"><l>3</l></variable><variable name="addSteps2&amp;3"><l>27</l></variable><variable name="addCheckDigit&amp;Step4"><l>30</l></variable></variables></scene></scenes></project><media name="6.2 UPC Assingment" app="Snap! 11.0.8, https://snap.berkeley.edu" version="2"></media></snapdata>