Advertisement
AyrA

Rick dangerous - in VBScript

Nov 21st, 2015
1,045
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VBScript 44.12 KB | None | 0 0
  1. '============================================
  2. '==           A game in VBscript           ==
  3. '==                                        ==
  4. '== This is just a Demo to show you,       ==
  5. '== how small stuff can be                 ==
  6. '==                                        ==
  7. '== The original game can be found at      ==
  8. '== leonard.oxg.free.fr/rick32/rick32.html ==
  9. '==                                        ==
  10. '== The game has basically been Base64'd   ==
  11. '== and slightly compressed.               ==
  12. '==                                        ==
  13. '==                 Have Fun               ==
  14. '============================================
  15.  
  16. OPTION EXPLICIT
  17.  
  18. CONST DATA="TVqQAAM_E_//8AALg__AQ___________AAA0_A4fug4AtAnNIbgBTM0hVGhpcyBwcm9ncmFtIGNhbm5vdCBiZSBydW4gaW4gRE9TIG1vZGUuDQ0KJ__AAaEftFXnCVFl5wlRZecJUWpFOMFlpwlRY8b4YWWXCVFl5wlBZ6cJUWWFOfFl9wlRZYU54WSXCVFlJpY2hecJUW_____AFBFAABMAQMA2AwBPg__AA4AAPAQsBBgAAg_B_CAAgDgBgMAAJACAAAQAwAAAEAAAB_ACAAAE__AAQ__AACADAAAQ__Ag_AAEAAAE_AAQAAAQ__E____BADADQB______________________________________VVBYM_AAAgAIAAB__AAB____AAAgAAA4FVQWDE_AAI_CQAgAAeg_Q____AAEAAAOBVUFgy_AAAQ_EAMAAAIAAAB+____AABAAAD_________________________________________________________________________________________________________________________________________AMS4yN_AAADAkCCW+LbIgkg0xnveMCAN12_wAEAJgEAaP6//f+4rS1BAIAgf4PABT2mLwpy88OLVCQEVoH6hLr////fDVd1CVLoAQAOS1nrO4tKBItEJBCLcASNeRE7/nz/f/v/KIt4DIPBBQP+O89/HBwIi1AIjXEUO/J8D4tAEL5s//+NRBD/O8h/BLAB6wIywF9eVETHAEcA////3wDGQEEBx0BEAPz//4MF1NlCADL2QCQBdBKLSCCA7/7Z2IyJjo0HM8mBeASAMg+cwUntv+7/g+H8QUGJSDjDuDiYPZ10A4MgALju3/7yTD3IvXzsw6Gg301TVlcPtrigPt/dfveNtL+sBooGPP90DxPAO719BoPGBWPv7e9H6+sUD4Sj2gC7+GAdFP93/+4PjZERikYBqIAPhXcK9kYCAnUnPBByGmrZ/oa7AAEJagQNAqSDxBCFwD5VbN+3v+siV2oBagwa6+WDPZkAOT3tf+zdgyVwDKyJeCCKTgKISCRm29vb3U4B7ASJCLqACIAUAyPL0gT7u+3/ig6KVgMiy4DiB2YhyQPSA8qLFRjazG9vrX1p0v8fRA0fAcHhMvoldJeXl7cdBCt0GCx0EzF0Di50vnChuQlTpgzBA4MED7fJ4e1t31IIiVAoBSxvAwzNqNjPyCGbDgypEGbOZ2uWi6pmDzAPt29PDvkeFKwyir+A4fD2Yh3/gPnwdSM95LwpHCFQItle+DuFyUR1BmbcMCoA2wTWve3uGAfA4QX7QOQSg+TMdz+33CsNg2A8A0QAgGBCsNC8Ga96AwAAHIEFv9G44aaihWL+Jj5bw1WL7IUbLvyKTRBWhMkBuATug3jg/5+PN7YIrlVxEHQsBOjoi29/+P9VCDtVDIvCfRhr0ky+fQPWgzoqDkCDG3/7/8JMO0UMfPIzwF5dw2swA8b22RvJVgLuguMdVOvsi0z0x7hkMW8LX7ZeXNQbAUjcT9wF8AEIY9uw9IXSfAgRQNd+BLLUdM2t0fhOddnVazK+QF9j+7flg374FLhAUP82/3b8AgwpD9I3syhxyUxPdeACgCUYY+vMjrsWo9QPCEgGNrrdpXKUvhIF0BMCABzY2zbNZg7kEHUSCxwhzn6Ftvj/ABQ+AcMRCLnODeYdVSgOlQQY7ZCbwSBGYiC7BRXnzDzLFL4tJLY4u1/6xosGyHRtg+D/+Ed1CFazBNPbjZHb61wMGHwL309IDRbz7q//d0r/JIV7FEAADJ3rPAYIDus1X6lUegpx6y4Z5AQvBfPYv61UKB4ICMTrFgdb6w5mhCPLCQbyWQ+Hmq7pui9PNgM9RAtIcpLBhkBTA1u5DqYZY2sVCQ4bNzYPi8okcDC5BO1ja9M3ZkgA99koA87HROR/462WdLf5i97ESELB5wgD/fBvrd/TBMuF/3w5gf/tfzGIhiv9uhiBxoPB6VQsK2hqtI2+iTrst31rt3XvCwQAuegdOQ1+HwTrkt+28MevVot0ev8DDPUGUPiNsbkFDg0MhMB1UfHwcGPj6i40iv817DnHC0uPzg+dwGLorhgDBR4+8pHfUDMF3HQJgyXrFIA9bRtzHOtrUlkbWRxfBBx/CgBkWY+sEwXwu093CRUTXjeLRbYEO00MfSCB5ja9DwwD0R98FvgRDgYubWAOqwPBFxB8qtt+3MpdwwP2BRmAVmFoCHf8+97DXg9qdSm+aED2BoDacGGldIsZD9eB/mNrrf0YfOBGeE4DoYNM3234Vj3gIL7/BH0DjXAgaTReadmPUdZKJ112obEtOQX0/EINi3Ge27Y9/vI78HznoaYkCC4dJ38aFJ6w2CNJEF6CW6Gx8Bkt3FHli7jo/suycF4Iw0bj2ANeRIv7we8dL0WWsP8AJgDpiQl8XuD2jUULUAP/UMhX/3YM3VvdVrsU9hXRLwUEbKrt6Q93o4FGRO6LTkS4YIk/i5Xub2uIXkIPjt8ciUpuwlu/dQQznLdOMIvD1UDB+PWJrent4AN/gPgxe8E6OBKl/wVaKUCcwIhGSItGCCW6/nabbFfH4ITSGwh2Cv7KiN4GLdY5TCxKgnL/aP0FHwPZO9d8cWlSf2mNTTgT9tsLUQP/UVdQU61Du32JSfXrGn0MAYmRdRyNfOEGW4cerXU3JjsdiLrbt99mUhIESEjrF5UY/0Y8jTza29bE0fmYFQg42jz32IuO1pW2/AgSC4m2uAuRjoXJtNSRA3fwNjj2WKl+MD2RKY1Eodcydz2wU4kNLE8EcQP/O//B4AXB+QP2hAgc2EB0B9xyk4KuBmtldUfqRuJlnFCB+PS/ahhpov1SIi8i/ICDnWtjXx34WY2EDMc5IwYUfdvxiy85RkFUfg+WCn0KQJg1NNcn/r0Q315o7dK2+5ctbYvIjALlE0h2dLHZbdUUJHV1i3ZgtsSBdJ6EtjAlW2Dj7tuJgz4QzAwxyKDSIduuBnTrxQvMubpkQvoeJaH9UKMRJtOVGICUtxQBEb7wzIy6mzIKUKGIOwbcybEMNgmfHprX2Vx3BgMwBh45CSBS16e30AdDwk0IzAER/HHJwBiqARzBbrCuLzr9za0GgK+NNPKNPMG4ZOntpV8/dgKL8DnkfhM5yHcOOeZfSkJ/fgk5fRB3jONTM9s4pIstvR1y5XCioQxe6dgpJ4griR7PpUEICBG7sKv22u/36yb/Db45HQV/GAct0qCB115+Bh8RHKEsUNjwjsV8FKmZAW7d9kiHwRKJPrtGWhgJdW62rwUqLTsEBiQFahd73XgWISjRGivIVqQss+HoaASBNC8ETPdcv0ISOB1+xyaQCXJIowV5DhmTOBeoHLs2O8DmGIPuLEExGSuBJbcCmBhHEE+USoXfU1UtEFdA/hZCsU93a4qMOPaNlAYe2NC70P8Bio8KyjvDXGCz5H7cz4A6LgRAGNu5c4oygLwHKQfftNC2NGb6NE7CAEA39+3NnzepgDIdO8V9MS8OvoGLSLebgQNGBE1+H4fb2ow0WxcEgggHPda1Qv/qfFqNQpAbS8Bj1t3a3kBFdAgZPOnaOtQ2/gsdPZIk9sEBdTWAJkoG3PJt2wkEIDiaDICJBihYjhWa2wUst1acVH8Nsa3OxT0QBwwvHgYjxtJSGCRqHzo2qXH3CHVWJCB0KQcVp/Zq8HQh6isFOLtjLmAmoCDrJy4QdJKRpflLOB0ovkM4NLbNDhsqxyG/NAi9gwvCdma4Mk/yBuEoRo7pOBPjF3YsAwzzOV3RV4kVzL0j3UKBrtAExkcHBAUCBq1VgahPyAdKBUo1+hiLfRQpkp1ZeMH1HsH6A9kgB4gfw5CLRq6dPnQzW88DbfvrklWKmeyA4/AfisPst5d6Ch4Ky4skiA+Kmx4a//dY+wrZQB0yjbwRI4pP/4DhbQjdvmzLDooeL2+DxyCIDV/hwK1Asyxt/vJ4ddprzfbeTgPCiohfLX0WDD2Q71/3CsorgFskfetljyPZ2gdYjIhdE19/D8y2mSlvJg5yb+cCcuaAdeQgaKvChTFywRuIBm3dYCxaBXsVaOUqSRhy/M1xjDooXzxdjYsNtAE39A1We41xEQ854BIPKGoo2c5/C3XxWJ0VM32NxjsldnH48XwdizXNhcHuRIAXhbbmFUQ0AmH3ouQ5bB9kDxHz4NcxDmVxPcxOKIOR3btXNKkgMoFqwAYDBPrGBu80YKEYqyeRIFHrKCcDVt5PYH8sLEBANfV9IAdRUM/IscP5M1ucbiAQ0oDxig2TMtvGCxATvrOlPt5uF5XAEgKizN8LkwXGPsuYugqgqCxE27EY/Pv+wCQHog11E2oDXxs+0sawWU92Ijv30DMFudU38dqsDDDB6AInzLp9rWzfUsNJQJMnBJ2TrZxlB3E4CMjtHLYiCIEJdzwMZnfA+3IHsAII4tHoQFCpjb+HN6GAgGX+SfwowoSntqgQGXZ6vJUPVurApKE0h4PJOMBJvRKyEgkC2YFbr2dHgg2MlDJCX/y1CxK2FaAR4YfUqdf48QPWi64OOxd6fcwwIHwMgflWTy4Exq5YQw0gdlIUqGZzsLmlZSUZSNhf0Ju91mAPvH25HhB4GLhtAx+JfjDgQO3QsS8SA1aL8SgDEXqthf3FVjOPMQU29OyKVf9OisI8JHDGLW2uXfl0NUYIwjw4lQtvqwT9NT/WmgPm/oO9DoJ1JF9mgeEA/IHBAJG5CLFvhA0lqvuMPATjW7aRDGg2wfNmzm1v7/51AwQCi56OvYRi0Y0CwP9gNtK1s2wyCXyIHQ8Kwcx2ggkYafF9hGb7uQFjBMd+AP3//8IrTYiAbUwUcyJ8d8gd0Xkk9wPaUVbY1HOlBYGIDFBXb8x4SxaH4lcNgH3RhLON/ZwHcr/3nVW7vT2F9opIuvBvlPDQqNxuFoTBh3QB9paK8S8u/gE7930cg8JlJfPuNPyJ+AAmPZ4TTYs1/f2ehb6gocaB5iKDzgOCTThbv6l21X0udT8PhZwfqF+ElPgRQ9zOGi9gAjCqvlafoUPL/Tl/LhIBtx2KLOqeN94L2X4ZZ/8NAQNn60GFqkS2bsZLWRI2sxkZ2V4DQqfImzHjCxnIvVlZnx0727Q4NO10DJcEFGoBYOUJI9RZnoD69PTaBm8iWgJY2/GXpvdri1X2gKgMdR6LzoU3arHCHzLNFCPyGj57RrAEWBTraw5A62I5JsQWnJy6cG26szC7tewAYkc9l4iHJfwxBHQTqAN0D1aNCrzGgC/AuSlymxHs110bfg2n24wVpOdSbMYFAougvTWOlXQoHbSNcP5QGx96vaN1CBStIH2zPfW1OhQj4hcnopR+cbCzLgIkgf6tfBFY4ATOKARLM5E3HJFuBoUD/VBGoLSkB5AkcHURIPseqyB9nv8FnDQ9BXjCpP4GfA9qArUiWcORWnNWkG0IWAol4/XIBfcq/Nx0zjSbFZAY1h8V4HsV2aLM0cjDw/uEw3A3dBCBPVRG3HDFhFu9hcW6IGzQ9J4h+moDURciBu+ijEBVZxNZLdh8v756v0BakPOl+pXa+30YvhJZvx0Tz9gzvO0bm1+IlD2JxfZZvZMDg+x8VODforl/4IsIaLAW69JqGlO+VmEhDph/VkZu/+/eipeFJQIPC419hFnzq1PHRYQotjW2T5x1iAmM3QBmB4i33duQMIldlAiSIBEVCGCobC9cL/hTkOBTUASEuTWzXSJ98BYMVQtF7N3M9mcQSGpaVwoUE+jbu9m+oQJ4QhxQahATSGhoM5E399a+AmoEU1M1A1NovIUG99g1R2ZrTyAYVDObW/osY4h17Ak4E0/WNV3XbQvoBWiYAF00U8vdDNIHMCxmoWRaeO/etluy+GZC/gb0vtD9ikX0BFq3tUI6D7LYtv50tWiv22d1tijNEkjbtw8bCT0Ydg8N3ItN+D+Nbtt75UQBAegspQIv+Fft12jGMyTZ/tl90F+/bcv21N9t0DT42C7IDszYyQP5tRe6bQbEAryNPdlW/B7tpXm7FU3AU9zYyv+42RYT/S+0/cCDxnhH/5TY0n30X9lV5NleoO328q5FBaSJRti82k0mVsAOdF+25tzbReAF3OQPjDX5oW1YeDvNl1WwU9lSL1FAC72dv8G0M9KL8L9o4IsMhukCDvoSjOEPdhEi6m4vvMEMnsn/Dw4O6wMEHkZs0/+OsUZPddYDRbCB+gBpcsRSMCNs7VBPTERuIKgVXndt7hwKdg1bXxppsslWtOBr9ngouPZu/1NtUdlGdNkcJAVwUQYfIxcY2BwHGbC+IwZqLLmGIa0YnTzQWjTx2e6KAVcWFON6fPu/CsDgQWvAeNiAKL8q3dnr5MA/NUPcHBQArCPoGEHY3/3h3Q2siFnYLbB+XQyKBj8g2UUQUaFXyr1GRHG0cJcN2FX7F/7YDADr171s+Td4bvQBD7ZJAcHgwRCxrhu5UcIIAh0DDP4Y4WYifyn/Ti8PiadshaUeVkbLPpoNtjUbpm8hwUct/SSdgkiA9ve5BpEAhZkTv04KAwVKW1xlyH4afkq1XGri0jPJ+cg2mWanauC2mZOuBqrqVgRu6m5to+4MDjeKSJMYusXtl4FOLECKCAUeivk88Hb8/heRJA+IRinrCzzgCqJ53Is97P921AyERw7rGLCNBFgDxwpu25r/WQP4WYk+6f5KB64zsf/WbbFHDk8cEUdKHajgdAaKF9BaC2wJVoZm1i3GZ2ZzX7vEVopeHqILvr3ACGYfA9hhJlCB4yVka/2YXDvYWX4CQ3cK29fdpmZKEAB7imEgAh9s97dqazFHAYBmLgAQI0cY/ta65SUkCPZe5EYmiX4MdGCHYRuHXifOumYPuQxyBhzfUxYAK1trbFQiBngGId5Ytdl7EusM1+rMVhYm/KOwg2X8AMKGIvH+bBuWXhbk6vsDfhIxMO2WXmdQ2wUFIFUGGbqV6kiHODu7Nmyf6ysuR9LGyQE+G4l/f4YFcbjDxUELoQqAYAyZ+0a9AAigDQrrP+/GCa+Q7NHjuEC3lq3dbi121OuFUR0gRv7b/cPtJ+sKwSoApUX8R0NDZRrDHHi7a3UqAYEFAusiJIPDAzeIjXA8OiQfMxfh/uxslEJQwTOKH4PjP0bdWvsJvihGKSKEa2Ph9t0W0P5OIusEDytDACFu2wYNgwCbokEWHypCYeF1TYqki36nfGgtNMaFQAgOdRBy2bdoeGM/g+kFF+itaSt1ADsuIXK/QN5ObIUhcxfh3l9WLUH7Ukc5ux0rF6iAdQ0Jhbe2Y35pVizyPxeL0L3AO3hz49CD4n9rvxRVtK60sPQ2VdU2bwEcLK7RAo4ofx/8VCZ1f4TCHAELVLIBi8/rDlQojW4lig6CEdLilj9hi9oHiyCCDY720CQfKsNCC48G8kh4bTvuXogmdHSgB/7IXetADy59a13XQCWLJGYjmzYrz3karf7fLo8kfx8u6xED0gPPO8p8Bzf6tzdXeBDR+ogsK8oPr00IwbVg2BZjAQX2qUmzn9gVTu+uPgUNEANGhsu2EE8YJkX4Cnd7L3LZHaJzaW93c7Wvted1LmJ1cyVxodxDWzSAcby+vQP5tZ1AHiKJhyR/fn7e/oP7YH0XA8kGSH0QMH0JGH0CVs0OVpx0GpjY3dp268iAtwwBlosClRApM9G7rpsZLYUpK8F5BTDGZstwo0Qjc0DrX0CPph3mF+F80eDsobjdjAUchoceuS8DbbBahshqmlZZEY3tMJX80ZOiOEnENR5nw8GIwFzOC8fAnNQBKJMr6LWartl2A+sqB2tNA19laZqmaxkbnflCf9LDCbXHLYej2lZWN+4e4QfA+1e7YG+ASA3QDXgDd7td/L+gDr7gBHUfoA1Exn7vU6IWp+RXBVZmvJ8M/nwaoqHzMBHGNhYbCC8BVooKArsZ7FeICA1EiEgIMQnbBmQDViQCMlxAJpAJBYkttQHZNARfDvw9xlkXIsopdAlPSAAZrBCsWJcIAzLIQw4FCB8JwYpFHwofM9kbBm1hbgbINhpdAw+3j/CNQyDAwT1FTQCJHecPhSbb6ZTAoi8bEMzSDbNvChRQA/sM9gwDy7q/0SP8QI10QfpJsEZGDgiNNED/G24YbwXB5gIgInMCLd5UiYo2gSvGA/6A4UyHHUGIDZHfIJpwiL/DdBhJdA5JF7F0R/jdN76gBgW+02YtAxzTNE3THSEiIyRt1TRNJSYnK45w24F2+1dODAISilqWAyCWYoGlASkoVgS8CNv1RgczoUYKDOlWEAMRWJatFgIYLzNiy2BLtAzjLUe7DEjAAoPAA8Okw5kGjcEZjGIspB4c8HXUEl+KBQUPRP+XCpkoIoKnFH0WzdjUTBXptSAl7xgfpV+n6wcIgwH4fCN3+1doRKwTv/gcOGiAhB6Il11tF891Q5wEN0K2zQfuDcCmQcQAN3QyofZ3fx3FIHeOGY2G4DpQUWhjFzV6QSVnIZVD1Ss8toO+N3XSXuM6nZRpzFtPQHDxDNsc/E/sfQyLN2n2csjlNuMFFpb+OkyLXwTADwT0Z7gM26f45mUMkgehxG6oqU08BBgKDDVGTP91O/dmPw584RwQSVwHaBZtv+1KIPwPfIE95NqAt+/tQ/9IdbhoelYa9Lnwfrtl11ovNy0QD4kBdmxZUvlFEQ48vKav2/9upt+dNIXfO/N0EIsGsP/1AHzdUDQGUwgwCPF4sOpdKLlIPEJLTpyAQ/fS6wclQi7CCAAiuRr/wV6EMiMnH5OBfCQQvHfvPb4AJlnGBgHnMzJ35v4MHYYZdRXpW3Xg7dl30EzrI4FWaNBPHluq3YDvE1pZvmB0LovOBz6P3BZL/Ig4HcA4oAHhW7PxOsN0L1rA2wLYPXRhDBq2mlXinH8wNbFfawcfPUE/rIg5w/vdqlcFtodrUFdYcdkIun9Hg/8Mfuqg3RNfeA2eOwR7UGoNHHpDq8yF4R18FZPh0hT49NZuWLBB6RwjjXdvtjKBk6xWvuhBaov+uNRS/7v4B41TGCv7i1r8iVhyAoHtl7gdF4nfwhzZUPwC+O21WgB+HD1oQkKA3WHzX2fawkUU+mujP4tFEKPsZmvvbqMIIdkVBAUSIxjp3n22ahUgVQwM2R0kQiZAVmZ7gG8PPEgszdqNU5H0vBMQAR/k5qpcEjABahxWahxg2IBlmIA2BiLkutZTAzIkH8LHQrDby5QZaGDsUTXtqdip3xLi2xCV2ziwGAf/UtgocTu5imRhDKwU2Fc6DLbmVkA1Hn4FZ+7t3gBJyWUIOfcGCK5ikz1qQokxPKVg10pQQs9qILZrt+67Mx0loGjAYQ8ItGiNTPiFeEtmWIjAWS+34N5iIT8go1wW7b6Wu6n1g5QoDmTKR4H+PbXcZvtZfOvMjKGQBA+MbK7hQ2R0LAV4lGTs7/kdrAUkX6OQHbBrjWZkyMxeMj9s68HN0IuiWMMMClB2wOE4ZSTsVn41JU/6GVnYRezIN2QDS8gXQeGNL8HMzdSLxpnfEPd9MesvOGAN8fTg2e7ZXfhmbvwDeMjR70lF0HUSQMdFvRTbjif4PQbklj3rBvin/rYn6CXkO8MPjuV0dRSJXfBtDWwlii3cUNtb9F3ctq1FCxQi/AoUO66N3xoRuowm2UdkFE3U2V7W2u2wFA74CxjZFAhSbMkG7FYwFDQvIExtAO235BRV2FClbG3rKrAF8NnfEBpQAsCODbhoqQ5Bdd8UVxq15/4UJ7PrFwvBD3s+8C30EZ4FBnZqxnhc19rGcOBG0Ouh2Kk1m6GtK1D+F/gBC4ZbsMAB9U3cCi4rdJPgcxfU7EEJXw44CR43Lwxw+kK44GnAoOHKFQWAfG8UTL9eJTi92FqL0V5s8N4A92aLHF0SvBpu/BIsz06EVCQUT42fdd1zuYqZEUfP6kElSrxEhuAGBflonGy2y1tq1l88CAxNCsXkS7NPTEuNNE7QAIXgH9cPEBnil3ghxgSBxgBwmjX3oL1L5wTH68YhxeGhdLAREBIeKxAQvVHDNhIQFEN9BHzjDjTVsfYIyP+w0N7zG5EzbQxs/FZSiwjPaE1L9lYwIAFpdTeeNJcbZfxW9FZWdSOL0G22bvTR6Gv4kiQR3NecZyIhRAxD/VK5YmKOlgPAa9J45YKj0KCKkZP9nN99+sDG3MC5HQcjHbKBwomf/j+u3un22BvAVtglqF/gBFeedwbcXQjYBaQFrUK4/EEQ22J9O9hTSaAFf+E7OD7BageNeOwEMWv2HAPyBwrcBYZZ86U/Mo0v0WgCt4AL2MLZkArb7NtABAbrCdjiCgZYFNL3PNBWU2y4N18XbW5vhSIDdArZaCWc3dk6NWguu+hBwR/0Paw9UMNjageIVRSWBUagEmvBWhQIZ2sueTwgUCqYILLAgRV3bUCEwDtKbGh1cA0XkWAwhhq86WXTPdSAiXXHagr3/Fn3+cEZHK+5/28IgdmB5YJj+JJSMRPxYZKzCby4bGX8GwKvCP6cVlbIRHdtmVdTRjk1eaxs4N15fD5B6JCRUJS9TSmKBbQMUEpOZrZHyEUIkg5kCBmw0IB4AjlKrIP+BoIXsWU5JcCDAksnlhlknVFWBaWaaIFIHX11xtDb34csjgGjDV7rJgleO8aNG7S7FqHoDj3ghH0Td+h91O2IoHNeQImIoxkRt8a6VvFNK9KE2HxGno1zPAbuAJZ0TjZ310aEOmU5HWAsCy7QAmFuOB1of2g1d4/9GbkQ2k8igFMFNNZZML5ne0skNS8FZB1y6XJzh10t3Ebnaj7cgPvnwFY9HccEJCizBoeasFlbRKIsJ9+zl9BqBlgso8zhyBVmpbOFck0YXTNwU+jh2Mh0UPYFQxDuA9NWylm4//8oEEq9U7cbYj8BE1la326k+QlgArSTmLPcKDObmpDgdblosFU6IWcHdBZABOtTACtBJOBxX/V9FuGIYo51KKFsi1iEUqx1dGIKE7vJlv1ZORh1Cou2iEIywIyXgn2U3mafX3RMlPxOdfZ+EnEDMXHrMhpi72vmyj0WXXRE2nMT7rBofDMs5swFEw728EA4XWt1IADVZbNlxFKUsGpEcPDCwyd/ux2cJZqldGXcf9g2/i/WFcB5D9/gnnIhM8n0Ae1wibfgD5XBzkmJUR3rfYyeHYmQ6z7YNTFCim9DatwdLwJ1CbltVQPuUivIi22GC4x3sIAENwaLB7v0sPo+EYHhMFFmOiUY6zMbXAz+eeJZwFZ/u7/Z6BNTagNNUA4RGLIQkAtkdmCK7C0z13dlag9sizzrJsgYAzoTGy4ess9eFSkFahMRBmoUR3pgSYjyOUBZdbFCkIVzMeArCXQ/uAaa/zEYoeQPQPcVNigtlAcpG6MQ2qpYi3kXMzfadjeXxNhhUagEVnURDtSQreHBbGgouPwPENBWbgHmDIQYZL0l2UYyUxAP2SGTbM2kzO4FMxHrbkkkotnbhCYt7GwJCcgqk13CznQHKdNjjHZTFo6PDI1MPEznJsjUg1N9bhzjkk789qOgqM/UoqsKLwDMzMNVbJr8ChVUi8xHgXgRH3DHa9DiwbOoU8yNsYIjgBQ+7DzAHcAWk8jpMjdW9aiNKmMIcI3hiK2Q8mAgOnj2H+BFSjcKaGpAQAs4ShOxryZmIIijwyPphozVV8b8EgVDxhYj7RgeB7OOIMlqGT87O0ayjeQDag0SDkAP7NGyqD8k7WfqgdfPrwxs2Vb48nGE70FcFpjXHOBi/Ar2z3V2YhCJiIg8GrSTwxXWM5O7CxIuPhpWiEpy2N1TuzbYGg9zBdUIHuulZy1+BNjhiShz8d44ayt2biso5C1GRlZo9jbGiQjdoyB8OBizZxkt4sAxgjZBvyNWOderPF9FwhC3muPP5DPSOBVEuuQ3wkItYaFWm28AA+I7yZUeEYA1FwGveojGrVG9i/kZCvdbrg+3BEVIG8eFcP8S91eNvMhgAkFKy9TZqBW53/hgqT+6NQQF9EcDylaN/akWrrfyeIqbBGLgG7W+FYgcMUad4e2DwSDxN/q73uNCg/oIfL78/CCBffxg3iFVEzCvAaN35FbwCh0UAK4wK1joH/4IF8AKFlYmYlCWoFkR2r7Kf8Qcrsq4jTTFBGOr/gTckwY7QXUzgH52BQxAaTg79uDMCSSJGFrBAmBqIDvl/JSdvRv0W1QCfLnrKgQCo1wDcUPUCAN+K8EBBWofA4lq8lTYAu9UkMhUjKy2sDQhXnBfLsik/8hCIYppNIvBmff/g+GtFTSXH8ZwWNvb4B9uQR1+PYADyVOJTVJLphbs+MRiK+f9U2z4W41wOItWU4MkZYPDQB8adje4gftAwnzmY0By0VuuBUxoh19dbrv76I0BlKMU2uWkDcOAPRQOnqvBD48PkRVOPpcEAGKk3xJWSmfriCOT7jWcMZ3Ufw2EJNjJ2C38g8DF2pvdC8naDVokLnUHbWOxvqNSDjzHyGeIcLZCrBoNHItUc+mFyXYCAu4SH2ih39NgFQiLAYNWM2yuWYY1jz2cZM2Wi/0K7Qtgwz0AyY8X+25p9t7Jh4ZsDete2FkIKmcnfu9buEzHAfN063do77JFSxfbHPuBrWx2sC3r1lfnOtwmS7/MN6Gw21osQQk22PCTVrQE/LF+BLGF3ExApN7DTyJLWIIn2i7oS0FHWVaMEAF5zexEM8A3oKLYbeijc1X1S9C1igcZYhVRRw++2GswrJ4CQig01S9P4F5YE9gGD6z8Bpg0AK1T+MvW3ghQVMJNC/hYjWwvI/T065gNXPAj21a+shCDxgwV8BNg7NsSLGwL7HJLhVsSTO/QNT5NCEnK3+AFyGebbBZQFLQVtOwEYs1o2SYVDgznzgYb4TXBFgoIElrhKT4zg3P/SwFaq/UzqYlBCMJc3wdsv3zrCgwCEIhBHB2DSRT/DBj9rQRnOkT2IY194IvRq7B0294AZqtqCQ5ZD7xmLPAlYAO+g10M86vgjbi2VKlAnkdvahQFN+DWxwwb98Rmx4bdJaJt8CPBCeIBhnVQIf7Mi0IEjVUQamdS27ULsQq8fIhYGiDsAgWH4Fbg7mkEvCTHNQtRgsRx1gyDgr8G1RGF3WxV4FLNleD/rDjra4Xbfme7dBfdlcB1TvgxqgMMUlYRXZagFK0sRTlQASi1F84fUY2gRHRiwdaHf+37rcgCA/Ok6xMS0dMUq4vKrrkGPaoyTwVO17WgQRJOSEwRKz5gAtRHwgzDS3x9wZXx/F5vU8TdQxuYBuBGcG6LAw26+7wh/3YIURgQXWgBb4D/n8RXV7stO8eJRgx0SGiAQAGWCpjbPhsZGMgvpmvtBRiJfhg8Lz4w4FYN4h6NRdZS40j1RxeNSCJM00YUxgPNgFp06Vgz+EhQBH6F9nQVwDZboY4D3grxL0Tr6/VGcA7II9UYuEJrYSgiMO1wTWgEW3UQnAN5CEx0Iw9XvykCX4hels/38U07wXwEfgQOWqHoAyToGm533Px+eDrwU2bsA+ihe7tHcotWGEpp0jm6Unv80LYHNosGMXQPR9BZWQf3NC9Z8ItG7OgUWYhbg/b/RhiD77B9XhgCN+ZunaPrGSSUUAi3dyOYZEkwH184Xh2miF6jRM21HM0J9irMgK0NXMxtHPwGNm4qNKEP5RSD+CsH61xZCo5AQtoGQksOZBsIDAwEohjUCYIUvf5v+Jd7a8AnLRAnAFQxmSvC0fhQUf9WPFLk3h9BzP8lAFYmYbJNZ7ZjXGpYw5AAkAPr3h9dECNgne5QHWoKaRxo3oZ0DyJ8ImTzXCQUP7Z6goKBqAIjfCRnWzP3GA+HagoQ+FQLAW2oxjaHFRFPkP4Qws3nuRoqAQCFaY1H7xP9ZpvFZvwsVzPJioiYTcUJ3B2NJI18Bt7eG20stxDIVpEBUqMP2CGH2Y54XQAgUXKUTAIEDCBHyQgQGPrQjsqQlgFTFODU4OiOhSGLEN7DksXABnt3PlI2hxHyLdgDIJGFOGFlh3TTGzkXJD/fXDMjAdKKkBhOlQBOJdsiOeD+IP1RcpQc+/fb4FjJ7wXtdWcjFQ3eOIvey1YlbddEbHDcYGC4g2QFfIeZMFMkBOsti8YtbrP/XzF0HIPoAnQNSHUhGsrrEjtYqcEkAnUT/qMH3fYBwkKQo0sKYQMfHU3TNIJAxGd4AImQv7IGAAECAwQG6baPsgUfkNdMa5UDU1Y22Ka2dEx/BQAmUyzwfyUoAYBvly7ANI3QUImODMcIELBK23YmA3yaAxiJHBwHsOmariADJCgjLDBobcBEjFCI0gMIXosLW2ysWyQoeg38uFsvYvcV+AWhCOHaUds67NVSaCAECApoPhfwZ+NTkYTwOB0EMKm2b0Eczx9qBVYWgCnWxT6bHXzGXlgscA7keLICf4HsLLUQm+JSyLQkdFe5O6DE1zi/flABgyyLFRpstegwpu3iqZ/4u1ASgcQvw2jcfy0ga9COAChPHIRUIQu18AuLDlON6GidauWo73aLUTTlHPeEJIRJ+79uwnSnnCRIi+Pfg8tA6wcOhPkuBAe5DYHAuwGtt22g2IYNlMEEyGb+aL+1iT3MBdS/16rM4B6uGw3ceObCR+EqPwDgxb3mt01QqdgFFcijWhi2KLMpxAkWua2h2g6AolKNHBj9PWh7IxZobSpTVVcADVqMHjy/qcHH+i/ICDP2O/5bfSFpO8Z0DLqB8J4ciTUPAf4cWzBgOuRU5SJEXSPuKIQ1ERDfbG+ouWhzPfwdDFx54dHtxkY4CAxRBChHKS3QIN0HFBgFQ1pfK/YlxXrTNVHY5r9hutaUI1DDR2jNzMw9yIR83UA/HDAsiANJ1xAsFJwaEcjgKlo3CDsgSia5oMsmDClocDIYspss5rABz3nCg9gq0BHHBRRLwd4AIy8keA9H0XyU7BYB+/Fua34kLNY1NIs9kKEdjAWW6O6gg8kSdHu0FFTXwilbGkkU0zN12C/d2GYhY1ChEH2LEXR4k75RdSvQiVSOgdssHEZwDWpwHKAVBBZ8hYZR7TR0VTtsem8A2SEkw8kIqiZYFt+a27gFh2rU/LZK2f75dnUsV13DqlkcBBjneZ7nEAwIBDjl53meNDAsJCDZ6O2seZ48KBQZXxDGt1ooAOcrEKV9EEstbQXo+hFfxHS/7ceCY+rJ2RrZWi1SNVosHN22Uv5v4Ac4XXorKnQsnxCJDncXNxZaBVhAnUE4l3xXtbAAfYP5An51o/ZnACEPv1RI/gR2tkZbYfxhCIPuC3jLfYHoD1g6/o08ewn02vZbfPvB/wIkeAJJdeIPOAJs27DQJ7A0OwPfIUsb/9heYTjHEBYw2Ax5XwPSV2ruy8H5FykiEl6GrVMVvh9bWPA3U9zqpX6FURSLWwPQFhfwjXrR+mYpaQJOdffcbn2xBH3v2ajHA2ADwB+mZoE9EpB/V98UcAGG9LkfuKuqqiqD9v+tZnaDxgLR4ffpi8LB6B9S2+4vBW4UJzL+fNyNg9Q6q1ql3L20LuhiFQFYYOFOKBZfUBu/Bf5zRGwIT3Xqg8UX/VV81/VvS3SSFNP3qBiNS3yNk4D6/f37ZYukOcvHQ2CKiZOoBUMkcPVtR+BDIGWED4O+W7sRIcVJxkPILQyCGXYEUV1bn8+xFfw9qvIryFZvvowL//2ojRSAEYgQQAPRAfhefeIAPAU/CHCcilJgP7vQbFtfW3cFU3+UwL0I3OlYMC9HJPMEGEzw8T/3ANtBINpM/nyYsxl0o/J4Y68ybKViZF8dVgNMgAzyfQSAfurNgQSLkbgAHcKL8g3+VqDGVgGD5gEzxioo1gH/0erB5hAL1l4BiSP2xRat63AFc8Pv7l7XQnfuDHOaEMHi7ukN2/PQiITj26khZJDt2kkg34iEglttAJ4/B2oHNYBSP34z/85syGBtiwsHCQwJCsFrzz3HhrxjkgmiZdl2j3u+IAUFfhACFBiEj3ODHIcw4NFfraDCSSxfVko/FTdaGvEctQJ8HFlArn6FYslgT0Yovq0uBews6zQRs040SKqxVt/rTxKLThVQZTO8lytS62kS+CMsba2fqyj4qESc8hBk0xc3S8JVx0ZwI1845UB+siw0i1YwUmjdlpCRKHRTOC9RlwMrVWYsbPsBOseFPHjOJZZA6whe+ij8fImGsCHBLWwJ5mbNiY60QTYNaomYX4HQVAS0pd+B4tb22ZZED0RvoW6K4gIF/zgjzfbNZiT22hvSJgT/ljnkzEXvKQiUhdqQARAhap0f72AglphiYo6c7xhmjhSGoI0C0I1OfG69le2D4h+HSAcPqBBAPFWyPfif+Yk5dBGNhogRNKTxln1udAlfP85hr+9aJzmJTkyNjh1AMsmEtUpCqKhcIcsVUISsyY4lk6wkTli2r4XCUZSQVHKMLMTkOXLCIlZUUlBYaBsMA/rFRlxcQzaznd8FzCLQaZpu45BoVregA3rNjdk0y6b6J1de7CxYkmmaZm+y1fgPwVKBE0EY6TJB0RxE25kUxwtJBk1GhUIhmY8IwGzaMPN2VjCODLsuGmohEH+JBomk94b8az8eV1N0JsnGTIuOvPkOr9AzRBrkvLy85/cXEIuW0AWGzL4XWtVrG5FQFOMH7A34pQ3B6hsDweeMAtQn50KBU9/ugBRNdrcPTQCWfHRZGSwFH64olNqgZcuqxfc7C4Ynq4oQubAcecD7tqesGZQwLZYz/wY1tseJB4qsgHUG9kABgFt4MRdvaAC9cFUbESNG9K96+Bjj2f4fC8UL1yPCEKSu+hps20tdwnQjU9rB+x3dE5yabtPdC+8jCagjXSaUA9cig90hXngioPORxvb2uygvi35kA/ltaAPKSmxqtnZ423QKeD8korCw1qN8zz6eyA/pHN9jb3q3m77MEKh4hf+JLYmnz/1jI4vTdQ470XPJIAH85e3W4EYYfYwE6wgJHH4DDTdX8BxmK0YdB4kB2iC2KtPwg8ECSMkcTjCAEt8CSIpGCF8QHUwFji5n/qJs7mCoQ2w3EFQk0DxQm8nsXs28idkjLyM9wI00gRh8XXjGa+AEeeQhJU64jwXcCcQucHZs+xCZ93kgEOgg2AS1Xt5dwBx8T0rHhIEdiAl78ADGbwgUctVoYwhDp5vfHANWEF/CG/mKh4yVYqkM2LMGckB0DcitVAwYdDoonScIo5dMd1foa2Ueg1IuBHV1xsete/CLh5hdCVOpv4RB/30B2lzRmuiLj5QN9SvxO/N2iWD2fgKL8w+3wYkJen8qPjvFfA1lTawprxBQ3PoaVBn0VlFPBPjNm4peSY0UcYkr3oXbf6xAaNYCD4NfnK3tWmvCi2wicFyreFcLzq92igQoJTHEp0u8qDB0f7wlwDv+BC0Vrb/LA048QHVtCGnRbd13sCMqEHxfO4doOH1G0ZcK0LAUTOavAyqKHPRWXIgqFxQpIYsMnU38eDuQGMqFyQx+LL4cXW/IbG9sBNg9jGNcHLgBRKiBop1DBJbgPtsTVsVLrF+1sN7vXeGvo1c5nmR0BokHtuKNmcQFjsGXDCU7stsJYBWJjr54Ia2wsRDCbj7TyIsRibexlu3NxDpQU/wsvPYGDQp+4ycX7ICxt60tOAcmHUoiUGoLIG/b1mYa1BxA148XUmoMxGa6JTJAMIrIFwEDbXk5DVoCPuGDvvIcag5sAVgjfgTXTPxqD2qCDUYX+2yhX0CJB/TDn6ADDhpOFdairx2GHs6N5u2zIUAto5I4kYidG+xgBXGR0mz/HmE5xkYBAReQEHSATDeECTLKo/F4ArDGhssjJmQF+GRe/yWcZwB/6x4AgDsEPwKgQ+4OFw62+r/ETQ0s2QsvC44K9wlnCRZh////jdUHdwcLB6YGRwbsBZcFRwX7BLMEcAQwBPT/////A7sDhQNTAyMD9gLLAqMCfQJZAjgCGAL6Ad0BwgGpAZGU+P//AXsBZQFRAT4BLAEcAQwB/QDuAOEAGv+tEgvxvdUAAJ8AlgCOAIb+xhL8AH4AdwBwiWSbAFkAVABPzW1BlJvPQ5KYWtyi4zgANUovDQAqHRL/BiWRfAAhAB8AHQDox29V/xoAGQAXABZkEwASABF6IyjFXQ/GFkkATKQ9d85E7wXjAwACPA+aS9cDPwdCKEJBZNNszWwLYGoD8Khs/zVNUBAgFz+amZk+D9zcdc32RBOIVAvIA39DCka5CEtVPT1edivFGbiLAzhMa2Qhye0zAD9IeEhsD4utGCECCAAYu5U/1ggHgIACAgRIFwQIA5a9dmQICAQTBwC6IjDGNwJZATe0shWWBTgByGgCIC003LcBAWgAGAMPJiIE3hY23wcDgABQBQRQYgYLGAeA6ZbbLdEFIAcIGAYnBxG7FppDSsMq0ED7YdjNjwNMPgdn2w/JG5vD8LcgxG/Xs93jQANB2Q3PNUcfC7sWSgAABxxFAQGJ7gfENQEHBAUGBwgCbPu7awcPBgIJCQoKCQILJ9z3WDsMGRUHBQQoCQXaLtnWABEFRxwGAwS79/PDLwgHBQEJDQ5HAw8Qrrz9/wkREgsKExQVFhcYGRobDxwdHgC/tW9gD0EGNpEMCAEJCd3M12ZRZ08IBx8guS5ZuQEhIncoAr6m+7ayJQm5BF8KTwo59+aaCgaoGQwMB5ALCesG9ooKH6MIT1ozm3tl5gcEOyxyu/zCryMTJCUKJgUnKGuta+UpKgQGKwEFAu0ta6UqGQ8fP4Rs98opCi8PCiP/c4VuO2dxLAMtI20fsv1vLi4vCzAxMjMWNDU2DzdhbWAvV18/v+7/wH4wODkw3zA6OzkWPD0KGgNtuz2YHE8KMgMaBAVPmm1g7goGIxMffy83HVg7aTc5UK85wkaYuU8wCgPfHtxAeD4+C6feTwqExu5AES8CEhjPDPL/Pz9AQUJDREVGR0hJSktMTU5PeUgYzQMvHzc03FJGT+EKUFVRL2vPLfUK449eXyNSAyMgG/9TLwD7Bn0/VB9YWVpbA+9Naj9cXV5fbQyXP5eXt2P/YGGfYmMKCgpkZRZgs9bMZWQEAb9vciBDdgoAAAgQ8kwUAATYbAJLuQkAiAhkyEIACEuUEGQJBADJZudkAgoKgwMQYmGUriRfdmVjEAARERADCYMs9DIBQELIYgB6k2EhbNkCACqrZENhvKJ8AgAhhLByBocNjhDMLgQSEtcJ5LLZyONbAAQSUsmjBgJ8SkiFlBb8KmkExpSChXAI2Jo5nIqkgA0JAHOWjBTG6tL5ZYzAEpXmCtkqG0OlI2wlTRMYFwE3C2HQ0tNWAggpAK0hhJfAurfOJowRWCcOCRDSoARgbuB6C6S8vwsQwmGBc8DCIEdgs1IABDQYJBcCIkJ4XST/EtFi8BJhEOdKkLFKiM6sqZSlEkgTvNKKKiwAEiq11VAEewvaXltgsYEfGCDpAGvlBDtbCYNcyrY6C6AJZFvYC1nIAEM/AOtqAAukBPcDAPsNYJ8EAqEEHAwOG3t7C2wKwF8fDQ8OAV3nQlge/CAMYgTYe0MIHQljfj+3QH5HAh8CCfSEEba1AGEEnnwslsBcBR9aI7LeEEKeC5jxVsgPBBAPDQzYwijbmgwfPgwgAEaQVwQMn7xQclAMIZDxWGSfop+3wnguwCCfBkoWREYEf2KMkKsCPhcLYTyAf931N1tgNBx//dsOV8KEGnwCIfetzD2CHkEgAoE4LDA6ew0BkwLZCuQgdiANLpC9R347Hng24wJ7IB4NmH0EYiNsXok/EHApKuM/hcDDrSCgPyww3CEDPb+VwN4z9PjgPowwNveaDaPeCR0xjhB4WD8EXXuPFQI8lWMfkhjGCP7/KpKYhSC/iZdIJgoev94K4yIMYh0cWGS4xIIkK4xSSJ1ihQ2JGZzCP4rCeC6CoZ/GIOORfp+eGGTMSJ+ecC2EcRqePNs2xpXwQB0MngxCwHhsjWAdDYNdG8CIkT9iBB4ZIYzDhYH3aFkIY2CTLFiWwl8qYgikCygAYkkvkZwEBFxiLJD0Ah5imz0CyNNiCZURkt47HiEgYoW9w5vXPFom204HR4/SW3mh7J0W5gZ+EkCiish4bwJdf59E8iI5AAAEJJKJ5AAEACM5AWag4glkJGMYoJ6gb4YLMgQcnig9ljGwBB+gnhQVEu/Ggd9yS67kCQQKwjdhwsje1hqnx2JDQgsdC3UhDQ4mDClrQF8c3OBCSHwgBN8UHgskDmLfYWBHSDyC3wQcmEQKid//iSUEkt/R3xsVING/ILiGBcbf3A0DHiSQcEZfmghgNLgs4wSghwFCJIElHRshH339CaAOXxZAaMQj4N5SGOFK6KC8EBLEQ8EiZiGsJkffQ5oxgPH8fw2hIdAIewANHgN47yWwXj8FIHypCIxgXgIwCVYIYJ8CE0ghYF9gt7LIVQpA3hg4cKAfYIYIdCMkITQODh+UEcG6CAwDgJUQ7LkfCAPc1AjhwAtl5uSojHofPw0GyHihIH4EixBSMiKfeiawBwyIHgrwVgbJA4AWzFbG66Bk4T7EVvZ43eBAm7bAnnNYHwcfGIkYYS8FH+WtpJUR/R9gl72Vv/YeCT8SJiQLISE/gC0QBgJBP703wIIB2r5hxArhfaCgMCpWHAniYUbMeox+4R/CeLwUH6NekMgqlybBiyCMJGmgxgALyQQJv2BFwoxAXT8LIRCwP9/A3rAFxt3BXhSjl8IflpwmMkJIwl8EjBVGJJhf38YKY8Zk37kwYo9AGgOfBrxkhB4f3JITyVAACQS8SEkE3bmScA8c+r8FHuOEczVQ9xhi0V7I3AcfNEKUhAMinEZez4RzuFkbH5oEndzCqgIiOjFCwk3iWZ2+w3s8N2sEdiACAarOKmHA4vwOpMxAJD4ixSlzwzgAfQuksnizCUIEnt5YCbO3ggV/Hz1XtJT7OKIEqD1CFqIbEejRHBF4oC1iygi2kjxqgUYrm9GeC95blsASCxQLBxBGCJ8AMFKWkgAhn4SRMroEA59hvBbGBD8XnxgfCyM//wmfRixhTAo/lJ+MkfESwf+fMN7IDgSaHZ+FjJUQXZ+UhYyUAJ8ezAgYjaCfnmYkY2Sgn54IMAownyW3jbBQHt0OAHM1QqpGYABbGGERZCcOQAxewyAdDQAKQSAVKRjyKyBbQQoAAwkMJMtEDwkDkb1F0gAfHrDXBU4EAbcLAVm/kcW3hR4PIATcbEF2KNhfHxsVNiq/AETGqQoBCT04FhmGPV6eHUcVYJ8BGgkh7A0lCicgUAhhfAMBTD4L2TLTZgtHfBlQymbfHwsMmsE0c/TiAf0lL8I7ZWgrHIQlYM1QXwB7A2YdtXNlvAMrAwkAm41kzCAdAR4g+zUWNl0WmQEDH8pc0AVmAWSexq4sWT8dALcDvS5lwx7+EQq6LzZk71wenwlfwd4BQnM9A8YLcu+l7MV6X/8dY7KQdQhfCZ1F4whjQgxAC0cjW9kid4bK5lZYnZuYCTMkhNcGfkGc2wNzhzcbnwSBnFs4dA4DG10LAwyzhxYSIx+2DwW9hWFwAGchIEPC3IAAA0f3uo+EsLAhwzqyAyNkAEMKXrlsMl4HRQofD7BlV9hhCjlBl7KAER2ef2AhW9gJ3j0esBEWdgr/KgO/wIYtOws5nR+BvDLTG38ACmElDYQBBMBAeLHZHwd9P70TDm4BYbOYAz3leCvLHxs9+rxijewjXlscwkgCeEfVCi0sNmwUBSAk8CKNIwoYAgFzrpt1CSUiAQMHBPf1FtJ9OEQJA+ES0oNpQhZhJ9demxsD6GTuPbeEgjjkH0ioXsh6XqEhI8s1V4fpA2P7S3LdcxaBIQs+PnMu0gV6ARpCg6F7CTsKQZhAC6DDFvbeYyAfHnsJ+2Ygrgqddx8bSO8FYiGg8goJbtk/jgAw54bF/X8IrN9h9j2XU9y/Ab3fbxZ7C984x18M+xYGnXIK2pu9kCxACTRXY/FeyjoKvcAfBkPKZkgf758riRdrPSoPXgkk3nNBNyOeDUhgAndbMALYhRoKKvngGtnTdwoxaTszTeIdXGEjA0DudXILGHgYC0gfL2V/GDQLhpPIBbCqHgJmhCwGxKRxFtJNCjpBA0tZb/aaHAAenkLizd5UPkDi1qTJ3tBeCWNgwHrLRl5A3YF8s9ipvX8KWbxkbSA/H90cgkVY/h5keIUjJX8+QCK8lHBiYNJ7hwTCLEPfNpYyTnhbnwMfHLYSZrNrLsIoDVA2GwgACSHsYZF3swm+BVKwSXVDRSiBzb4gBOlmm0CYGRUnHgkeGGBn0NkKXdwAe4+UIX55LbCazR1FhOwcwIYqQQoJKCjZSpgJGT9EwptA3wmgZiQQYNgEXyUENhszM5YJByBvgNC9QHsEnxWskMJFWbkoVtg7WIUeWGGDQltmyF50RrUMfiUNTPXcEhYeOmUU71QkEp8l5xq0GjoTBJoWEMi9ASQrzxm3PXiltATWIwkkEDuxsGAPBJLoA0d63gT8F51zEPkEQQQchEBCoCE8xLIDswAuH8aLZe7OVAOuBSBI5Fq6WueyFwTFEh8KLeQ7ezMAAz8JOpeygXo/DHwLm60sdh0fAR0gNsAOCX8dbCTdBGZ/Cx1mtLI3AD81aNgC+zsL/1nspey9RN//O0NC9hYWPxQAZVAAi4XVCJtEDAT4JigSddF4BECjSGCzn1+N2FsZFSBfP7A3trIeNw5fHszcyS0RAZ4eW6iRVF0SD5XIMEWuDKMFnxnCeGYLPJ8LK2EWXz0MW5+MILjeAwk+X+BfYRnBjgM/n9+XwnArP59frYzHMH9j/8reMpJ/n1+/Fpmy2aA/ClkIYMNio3/2FhjLn/8dYFnAAGm/oIa1IGOf9C4CKwS/vQUv5xphH9sBvNXcBQZ+AzsB28oCXH7/NgSJONAMXz0qgc6leykbIwoLCSBWygB+HtmrDjVcYWBcsU7wCjMYOxtCC3tiXJsH1+BCFmIgMAd8YcJeXQ+CB6mBBIGuuQbEtjY6B3tcGACFBJFBsMGYkNyhA3+bxSiWG8MIYM3IVQnb/8EthGTDv902CXtw3dUP6UgJ/2aT6hB6Vx/D4BLmQl8/u3kIIXPuCwc/X1RvYO+9BKQEX3/sGRoOOx4KIAl/jFmLLbBYJP0QkoJT/z2YQLxXgTnihLEgof1+qXhJKv2aHpDAXgJ3IYLZpAc2+QMLGpayXkAdyxJSNAAbYCmDHnyonJW9CKf6Ij4/jezRvh4CH2M+4BUTwICZYALx3sp6FyAc214SVqEgBAJFmGsj7AQfHgg/AJs9EsJjICWw914fQQAfJbDv7TceBwcMAgyfK2WzzT8cCQI//FJmthcYIAwfkZrJ1BG2uBwHGMECGB/+mEpwKUuCux2vVRHGn5mMMQYZn34LnxHGeykePp+XwJa9HyAfHXsjjA2XCZ8gHIzYCqMHnxafKGN0KRUJnwlHypidI+D+usQSCKdlAMIUAjNMWsIfCMSgVbYfEDjgRpwAHxiGSKT2938QxjISAX8hMmKPQLh/IYxzAh8EIhjI6p0E4MIEspHAyprkIEYwQwxZA6DKZocF5gOEJcxYxkJH4cqYBWO6IsAB1srfAA4OCgRA2XOPsT4PYgUenIqNcVq2YQoNh+O0MLy5XAMOJezQAtoeVreSZpz1hP0STj3ejNwAYULcoxcyG5plBADNBvYgRFqsR8OKPOfyG7xk7yUWJYQfFCQYCSPGANYKm4UfwvUIAq3aPYCbzVYCABsEIFawAZJgIf9zRIAEncMo0cpekcMfO1vZi7ToHyAEChwBGSOfADBGNoAE3J8YK6M4BCCf8UJGGyg/HjwXMpafPxsegDEjYJ8k/2U8QsYLnz//WAglI5/DKVsYE3x/urGSCBmfG2SshIWf3p9hGLNIgJ9GCEYA4wSen2xVxsqgnwCEreSgCR8SdmGHfQIKIoq5hBlXAgEiMAa2JLsC53sJG1iAAgS/WEUiInkVryoB+ooFRtSDDD8BRvW+Vw0iQACreLEdAlyCpbBfPQ8PIB4Nm7L3HR4gBD3sjeTvGj4NDQQ7PW/ZS9lAnFofYLG3kAxZPyQDOw8sPw0NfwJbtrAMH5tfLixhXz8Nfz8MtrCEzX8eHwDeyIoSA2CNhGARmT3DzIA4rEBcDr5lY28lgFYCBB4wzmBvIB0MADBe7CVYmD1fFtjsLRqbICGF4Yr/nzIuhBAx3zg7LLBgH34DWxdCopgF/1ugBAI4A7vIZs2dehwDD/u8VwjcEl0DZKJzL2R+nAQeBGph1COBn+wdDkH09vkAH4Jszw0RLwMPL/YC9gGnHkNb8BY2e34OvQIlS9ibXwvBaggpIYraBK4qSoJCJSfCWEIfvwQEeAELICYRuIzZyL8t+QQlhEfCvyvfCeEt4y2/Hd+y2TBmIL8eQGLDGMYxvwyajLewf0C/Dd4yXkrinb8ckJaxEgS//ymEYKS/YNmIhAlfnwCadUgU+hiCQALZwgzYhxQSsX7/wwi8QBYgH58bIcxWH6FeTY6w2J0fBBgCL4RgPiUTeISwn1lpYcFYYD9fP4WwYBwEn8CxFMLsmgIAP0KSUhigX8ODZ7oRPw0Zn1hlEArfQkmskh9fVkipJJ9/jdD7IpYOA6UMCc0m7A4HDgADZLOFvQ8HGwADoZG5Fwf6s3cyAQkMAQAWm11C+govBX/3ZocdDkcKBD8es4XQsgeZF1zC3rINByIA0kpYWMIH7wdsJQzZ7w0H59nsWxaGqQkX5xfMUWwPix7nkdAdyQwE5QoHB8jDsu8HDQ3ZEl6SDPEH58BCLmEHAGWOVYE92AIrMwVsABkCsMKEZT2x1AW9BiQX+zgOW8oWsJEFXxAAK1vYyAUfAsKuLGAAPA6/hZWwx0kCRRaylLmQAl8CkS3CVp8/7LJILpIKBQ0/ykZZIv8fwhjZOQ0FHxGyQkBbBSBkhoVBUQXKCFlKvAWCAZIK2QV0CS2SgAS0PbBB9kaZOx9sViFkBNZliTcSC9kJQIDFg9cCt70ypTDgIl9dSwIxMpycAo3si8Y54QlAUsGXi1g8kw1C5zrtUh4PCbrUIfdCFryK+wM3FdgsPgMJ5R8JzGaCOXYNYHMuITXAfTMWbFKH3gQHvwCVBaGIGAgxkojEt8fjtLIjWtl5aIF0AFxbNltJzX0jETzeyoYxDGIgHrCKYZEARwv3Ti/StzZBBAMQeu+9q0YelUkYUideA9etZUUgwqb/QVacSBj/EFZEimT/QlgxiVn/b1gRyCD/X2YJrHAd/zqzYSkrnj49Ar2VFX+cHzHJAXINDQ42gQJY3x9fckigFB8NDF7KikTfXSxbWMI/vxtY9lZW4GCbClkRrODepIRYsiM9gIBwgiR6JMCBwRJoAJ9hRRJoAP8rOE0KxjPBghGECB8WDRAgf4URrKxKoEaQwJYfHkEG2CxgQj+LUMSKnWMe9iZVAPoiHyBYwQAEPzdbWSRf3R87GJZAqn1AEEYwISJBlkQMsFxBXMqq92HboB+FjFfNvf1/hlgkovtB5GcRjCwCMT+OIGXvQAA/ALYrOBFBgwwHfxv2ClahASC9EFLEXd4GCS+F/+EAFWBMHr0KnwwwIkJfgpCIYJ9fGxWAwB8AxCCjg50BwggESF9/gpTFuQrAkl/Bsry/DQQ7sgcNJiAPwaKRvfcED15fnBLx3hA/oeVfp8cwFrsAADFjJBFfuwtZwYthP187FsYb0v4/uSbiUMwgx1+JmjGSCv1ljJBEDF+gBlhv2CAjgwqLQcwfzB9DkZLeTKLhxsp6vAN/AJ0lEe9NCSD/XxErKzYMHkDyQfIhXwQEB_JBxSAD/n49BxmNfn19YJBMZnwwhIZFxH58fYcwSGZ/cn4aEMUsAn2YGxksY4D6fMlIS8Wpfn0wiEsZfX2EczmSfC8z/iDMZb1J+CsiWkZBff79OCSPGjZ9fMpSxsPyfBMm4MkaeCp85TyERXwQEBCAKBcafStiowlgFuaKNrBoAhZFCNjM2BR9xgJHNYhwFHxY2O5vjBA8FH2MrrKN1DB+TD4HkC2Q/fw+jbIW9DF+//0IQSFWZUQkMALmLmr1msiQGy6WVRDE6WPYSSBRFTgMlAJBsCtiBzBwECQecSI6SCgkJCxfJcpEKCQogjEAhnxgV2KgHRDCCwMeIQgR3dAEFBm24elXMCpXT7RmKBSBTHQ8KbUsQ7RAeCNCwhRbeBQgKEWQSTREi2gVofAMCAgXTARMTA1xzQdBHBwNHO4+wh+AKfAULBQkC11pOIlOKvb1rfwoNGQgaCjuFGBsKHAgYGBqtUdS/RxEdDR4fGyAGhP2/79ohIiSMHiMbHwqHGCIhChkkIx/K2/KyDyMlGCEEBw8eI7a21fZTHhikATUGJtb+tuaFRbYdPQ4jIAW6b7fb3Q0XICcCxx4mCCgoISkEKu26W3MS5zMEK/8EOysPavtct+QZjgjcjhgJFP8VQh0RDQ0KAiACJydr7fK3En8sGCwoKAkbLQGJOmyu3Vq8ASMuhw+wCjvCghVmSAFGWnOFglhC5UQBt13rGl8YNi03By0qpw0poSNo5i8wEXDKK7fYmvlDrgIxCgEGHxI6w29bHzIqJi8zDpIHNH7btN3NCwV/GCMBEfctCSwyD+72vd0PDhpWMxALlyIpCwenRHOGtxspCwsRBldUXCtsTQUrHwRQXGc23LbbDhhZCgYHJlEKBW9/46ZFAiQKKAI1NTEhD/cTGCrb0HXbDxFfJBEDkyU/CQ9GayUinACkozytbYV2MiVCbDw0BxgLUxjfEQwBC58GpCC2rW2FBv1FKFgEAfIYZdve+AAFfzYYNwILBxhZ2Fxr558PASrPDu2tYbgaIA13GNISBybPW+HWHjeAzTUiCIc1aHeFjjiiDx8FHBwE73APXVumCQH/I18PT9rkX3uoBAcPIwkZCD40wi40ia4dEaewda32RCcEekwoBC6wqeDKNcBCHxAb5urCthg1RyxZJiZxAFU8bcQRCQ9XCztQMHOi+sAKBbu3QqABBScFBQI4w7E5/j0CDh8fyYcO30e8BWFDfjcP1wc1HQ2tta2hdjdvBp4MG39whYYUXxBh518kFAYNOWcwtCQfeddEl7320NTXGDEKLx9RR2FzC64GB68jAAcZkyg1DG0aKVcPZXat1FAiXyJlTgcfBEJzt9ZJt48hCUkPycN2lqWHGBKaCycDFBptNiYH3/eNzRGDNg8lcldtbutacw9nRoAKhyN+TmXDdXcq0CkLBuFordYO+WEDMFSWzIEJAwcnvEOHof/vSDbvAGHqSi9PHzc30PMlx3C35gpBB9D6IBIPv+3R5PFnGGJ3JB0RA2icvs0SJQkgJzTnd9qpoe2fMSNtZwiXFBzuwtZPjB0HNjcxt4vRtdYHMQnXGOcvhrZrWy4gBS8IH3E3ba4rbH8hmvc3/vcZwJZ7zgYIn3iXC3W513J7uV+3pwjQWuH09hhnACse1X5rrg8vchsqJC0mKl8OAwWYDwYUCzjwmLkFAQAYL9dDofQhgSIQA//Ae4dCE/VPn1evgntNTC2PbrjXpzEMjiY4jz8KL3h8HRwxp8cuNx0nwuE5nzn3CbWv4FoFT9cPK8exgZj5tzUxX58jLdfAO9A4CwdvnyYXw8PxujoEdwcIFwttMzRuJg8kDY8g9NBwlgshFyGPCvoaHM+GMTeOMo80R3cC95mPxT81+Gbq4MQ1yWIRIZ+KKOAgAL0AdoH1ACo5AFCYgFD0OBSNwuTW7WKOF6HxCykIL8BFIPoJXoJRPHgSjwOcc27mEwMCExQis9h7wVMXFRYdztybuQ0Xb21iIw0wN5tFaQZjgDaDemcML2gYDgQ7CwgOqS7Zm33BsTEPdHsQszdzswe5B4UGMYJkFbdDts1ikw9hUQYKF4qRVVwOl4pgFbHv1yJYRbC/pwtWEayPd4G0EKA3rT9W4VICD2PHtBCgBX+zt2wGfwC/qAabzWIMD5G/DdgbtkgHrb9skS1bOr9fRilslpq/l0QUaFSzbMuoZqJtBwwLVlGYhsUPXJBvNi0QCZ2oRTAcPt85l97BJQyPp8EH1gK2EBcAPsYFC8YhQFMHC3b2mA9rcw7t9DYIeyEfLzzCbGAXAP7UBV/AgkwA8AcA7C0sICkGIHxvdpZKDAgGOA1hlSWbDwDkMWk4BDkmDLhQFukA29hwiBQpICTSzpbNJsQ/MKnihixkywPgGgzYwt7IHAx76/aSLSM282oQwEiYWyAOj28lvFkRD2Q3IWQvYW9VB6+2bGUj1DwgsGXLVnhHD72VDbaCCWgIb9k54Tz+AD41woYsYf8HCa6xspUQnya9l7KVimTVHwhGypbfBr0BK1jDgxYPkpa9ZVJIB0+MlA0WqQwHORI2gI3qCYKVsezNEHJ7YiyErYxqBwwbbFnRXAYMCUizTsUFv4Fms0m4C+EFBoa9IPEYMENBk5hEsOP1ZAtSsmQAOdI+g0wgMb8AAJwYciQAn4TJEEm/AId8AWG2BscPDMZ7S5iKD7dQdOEoAtsBDOzAJII3w3w3YQlUfWiKCxY7uM5NAJiqIAzhDZ89UmTvLYlWHATNkIQOswIJJ+9053N4VgANACZCbPZiFAIGf8EIFl9ska4OCs5kLKNMDQ5PDBv2fYk+/w/NYkM4nbnmwqCWnccMDxBms4XBmRHOMt7sxdaoF95vgAWL0HwPPovw3rCvrmcID2I2C8a9fWcwYdjKNxREZbPZmy+HagEX2Js1sDcKYBfAYbbDAYJJDhcZxTjEb+6v98HIEKN1M3sLUsPODQ65BD1ZzJgw3eTsIeiQVvgK1hlDng0HCwrMwF5Asxj2F5Z8y9wGDx8DLRKwwj/QYYCeewC3GARslJwdKwAAPxPYsqMKxggDQ4UzETXy9vcCgr0vD/F/L1gKsL8OJlkSiGZNYyKXsDchakwHUcgJKwQBfwnFXsCqg7+R4SyQ8BgKv0UJ9amEYSEHgj3CGAkfDwsDVQjLhh8Xz3sEK4wHADcE7hAkJjeBJKIZENpHcCh4X59JCGJFOQRqJAXvzVcYH2JCxbDZCwftlILYGQs6C0EsiNkwiFwi9t5btjt7Awt/DeRhED0JYAMLhH87exiM7LBHCgelNVsJL3C3BwYiP+CAAgwO0G8SLlJcB7oHJ8EsUjAAPA73a0W4BxSwNgcIAWCwegIFCNAInHjvxWAsOz2RjbnJWWoOtY4HvGLDjn0IDx1r7G9YshkuDzub+N6jFw9wQzwHF4vOGV8ahQ6PB2Vt9oOTCA4PHL5mMAi85GMNbAy4WIGTGQa5Rdlc280LxxwHCiRwwep6JQcHOAP3Xs5WCNQHYOBiMasIP2/ei0S135E+B3uGY+FcrwIONP8N1957EbeKQG7mHd47CxoCOEeFNxftsBcCZZV0OQ4LzxneOwjHBIo4bgYPDsRQMshz7z1w83sPWqmCThAM3ixljA6zSRznLt4P3puQLGX2kgpgs7csvEXCGCJE7L17gc9uF4SIGUhLigRhCEKzsxewwybMJs9KlwLezMUONTRYPh0hEu/ICgBDpXvNmnuEOAcIlSwZzYK/BNfMhtCE3g9okrEJ750GzlI0F8HejAmRgRA0CdwbRlOHGGosCK3kAJn4szcpNgchOpxmI/kE0w4MO+zNYjHtRKjIQZibvdnYf1ghB2Yz3iN30ZQfYLaEw2wN6Eu8JhBCU7SCCAyDGfjHiDgNKUIT9kOxHGT5SCYGsRfhvYMDMguozSb0eC8n07swi9Xslft1QZgtEoqCAR4l5AKsPwDNqiaDQA2iFZKzind/AC17sVmLP9uDYm6W6806atcRBmMWMBcQDg1pGQHLDwdCRrNJMZAArpawNxsYGQA/Nou9WoQDBih3ClIvZ2ae11g2O70W8h2/KRc7xBN6Apx/TQoZMWRvk5bNiM3sx5vJhnBg5w2/D5G9JGMfDI7Q2AtZsAfvJx/Zm8UW59ff3lmsZLFY71oFsFnUsicU5nvnsNip5wwDD5aw7C0f9weYDWzCzw7/I4TZe8MHBnQNtzwmU7bXD1tIQkg4nhktloQIyzfu19/jvXcYXX/2dh0WMCIMDTfvMJCSXAxmIQQBhiCVMrxgBYwY3G4tm71TXzRWPdaLN8w3FykZ/ZYBM2CZn4wgZ8GLPgDDs0mP2AemUiJ7MyBY15NwkMySLMDCDlMCUrAJL12Y2WxYyf9LZggIgWazhP9L8YIkRUI5ijcbScUTFsaKWULODH8JliV7SQA7B0iaQMtFiZpsg8xFkgcnDnW2hIXBYAHZoYgE2SQPWgYpbBctGhYUMUjPPHqNNrwPlxbJplw5A5Cfv6ZY9nh0AQNBJH1Id4r1jaAMAw/Lls0WHy9AKBmkex0HDgCdIVtG/X8MLCTfm1EHBgyfTSayU34/AAh7yw4NDx+/sNmL3k7pe/rYCou02MCP2LJYbDyfF3/33KwFjQYVJ5ARXrI/J38O7OCGrX8TiUnIUiCsf2ewUDZYvw5/PyXMIiQLl88hxBY2Dv4Qh5vwYrMfR0SQiGUTYjEqnNL2lq2EJwcAF3EusBC/DNgIIYW9v38tGyQNDD8fIbsA4z8/DodbkB1mH1c/B5lLhC3/If+wN8IGAwAfWQvjrQCPPxgpsAU/hceJkDENfuooyViQjS8NBgBlb9myDx8vQoQE0rJ9bb/DiwGrPkdakdw7vR85TwEDSBnJeJz3/znICAY0fw0PDfCGdAu3D2+kFCDwAwD/f7IRGKt/fxkmB5kNDw0QJAxCnn8MD7/C3spavxvnQyxAYAx/xEHSKgy/IxbGAoR/FzebMQQnO9g3sAkkgV9vPxmPZaRvf4/CZiRjn6+/cSpy1h8MEDRL9iawBg8flcGElf9bdwxWCbM/P//ppeytOAbPfxDFfwIFERgrNTlIV9//f7nVGBYYKogBKDgE8BUpOBcB4OD/Ixjby//tEgDFHRmIlcMgBABlcSiFgjAJRd7+29tgOBMRY0gdTQBgG4jCwmgYtWFobz+77BMiaFUAOwUASQME8MEBZHv7d0WJACAWASQkIFnExCAidfL/2xsWBE+BQBgRAJkAOC+BLY042/1v/yUlQC2McnQEjop0SCv8aWlQIihQXu/u/7NAYGgsH4aUeC4VemoEinqArg/5t7eAGDUAgL01YYAEAIUwrgBtCf6XMBWEODGMgKRAEIVAIrvddf9VYEgZSBXESCdABHU4UEXGtjE29nc/JYRjhASjQCAwjuJEEyA2y9Zu/6EAKEgfYoD5gEUEqWUa29vv9ojlhEDgZQOVIFDlIQdYDoG0zdvbBWhPpUBwd80AcGR4bb3NmisrlTZeuOLAGN3lN9wYJCgRWCgaiNEgOCFwlYHefrfdYED5JFA7IQBUYGAd4aBghO236yzEVCFgT4R4Y0U62N29HyeIYmAYMQSFhDAsQDC34e17ITjgWBOBgFitQGgn3QruhpQlAHgiIYGEgB+AvbYEHYZFABgVGxYIbGUHAE9kjzz2GAACBxkAAxoABi/PUEVLAzYH54cZqBIaFwYOABsVLCx3Bx0AEBJiH4R9BQjWIAggT5+7AfYgDSNfnywAIxAwb/XM3QAtjyAQCK+KMQAUxtbKdQc2N6EHOUaCGGSwHzpG2LeKMGa/G7cXAiocAc5VAyXZR5Pj/yb/qokgav8C/99rtgQxMhENISn/JCIiIyP/Ajay2ScoIAQDLZtd9k0A/xIM7GEO6AttWoD9IXHYBsOMVwj/BQXdCFn7PgH6BQJz+P97vjaRGkYbBfj4Avf22A0LYAKPeggs/gho/P3eIAUORv4dIAEC11KJGmsC/lwCxYmOjd26pfwL/gw+GAUI/H0FXPs1EFEsiiCWFxWbjQj6LNYIfDfy7QgyNTAA/0t46UFyaWFs9jBJAVrhiTgAq8D+FzQwMDQ4PEA8CBfyPGMAWTh7eUK2wP53d3l7fX99CKT/CzvAO5EAj42Nj5GTlZP/Qi7kkY+pwsC+vsDCxGdsFdjGxAgA3RvQQp7CHFcaFrIF9hweIB4IpDv/X9gBLAAqKCgqLC4wLiwqPv4XciFRT01NT1FTVVP/wibACP0A+/n5+/3/X9gE2AH/COEA4N/fnm8g++Dh4uPiCFEA4agD2f9Cp6amp6ipqqkIvbaI7HwA4bMIgTEoW3cb5ztAGPNRABye53me4VGo4RxRgw3ZecIOowCfyo7I/pubn6Onq6cIAgBlg5AhATsUqMAGAIOwBFbICIQ8B2EAAQBgKcISs3cQCIQFrVkipJBEVgAiOeQUF+44yFJYJJEAGVtksZEAkWyRxQiRAEthESqRAGyRxSKRAKCdI2QsPudaYUH2pgVLRPEWZCVSBT8VNiA7FgVxI8pmbzc2swsLssP6+jMF12UsW5C1ZX8Fg6xoRVmRHBYEYJGRbgBhD8sFByWEKnsEg6OvKItBkZ83kMVi/zc/R09XT0c/CA4E/ycqsh1Plpaepq62rqaespDFYggOBB2L/Z8Igfv7AwsTGxMLAwgOIshCFgQdWCJjQu4RCPbAIkGMAgUAimxlEwIEHZVN2IsDBgADBFCyirAdI3ux2QcACA4ElTERZB0CEQSZIGwAAiBAKOqCAAiwAfgAlQ1Bcg4NDgRLYYuwOw4TAixQNjvvz0VkIzsODiCEVSQrC0tgrAcAJplkkg0MCwpJBpBJCQglmWSSBwYFG3JkAR8BdZUMQDYEDUthi7A7DhOCLFA2O+/CVmSvDw7nO1D23goxBO+RNcBGO01bNrAWQ2+IEETZAB2sZS2yMTQgu6yQtRYbBACgJATnAzxgASBAMwAEyAEU/xAQMgAAP6gqJENPU0/ocumWAEADpgFCBMibvyWDEAFURk1YAAghADIoULlaJUItX/7/H1IAVwBdAGQAbQB8AIEAhQCa4ubh4ukeHfu7v+YFIeYMBuWU5peTkIIInZ/1F3O/BJCWlJKQFxwn5Zrm/ZciHKTkCAcGBQQDAgH/L9uPGOgQAOMCcuG4ANAA1wDeAOoBA7DY1v4BGgEiATkCiBkNMzWcbB+URRAGAgMNAjhBDbaHLZt1GQQLZzIFASzsdS0MS0kssjUT+S03Bx7+N+emCGoeh4YBiQG2AckB2v9/CwowKAJjApwC2wL+AyEDTgP/////XwOMA5cDnAOlA60DvQPCA8kD1AP3BBwEPwRiBIUEigT/LQr4mgSlBK5iuP0f//4BKwDwD8BuNTAAB//9A/4FN7LNvVQFMwAyEAU1Em2Zsuc0AxA0/uSzrUEBjy4MARuwZbMEBxUfBBUFW3YjngwDDB49c7CELAsMABPGmrOQH3cCAgEEbMCWzQcVHwQLVhbABgM4NITZWcIyIQIXUVd4hUIvAgUGC/mHycgzMjT+ASkALsjI154FEAsyMJU1wzczIiQ+MQfDrAVhlzsBrLvKWrA9TAcpLG7d7b8XjCB//gcWICAKHxhNFxoaAH87u+0I/g8TFJgQFisAFSCA/gJbuiPdkwAlEQcPCwAPdBthb3IdDOIFqEMMooPOcNTnixlMBEQRFQQdYYVkRwcFK7Ah7JwiKQUpIne/EfYtAAUiHyQEAyogwm6EhRACqwsnDxspVHxnSzcp4g8nKCstMA2ggJwIRCUXKtzwDAMu/wsjuZKxC/4N8gsbsP0jAAsOAAbwhxyyHA8AEP4gzYAsERING7BuyBNfFDsVCxmk+S1fABYFFhmkGaQGGAcYdrIZpAgZF/kaCyHLgA0URxVQTDZrvgUBAhsLBunNGu5PtGMLTgGZyJ5jLwS+82aQAwkbAAjxCxyTTTdWLwoLHQf+NyCHmR4vHyALDksOMC8AL80mc8kvC18Lj7KFyJILL78MBmRAXiEMDAx2BmRADAwvBUg4VwBPkMEYhS8/8A0QxoifALp2hJBfSwv7BxfyNI80fwv8APLz/gDz9OcinYsHF/cHR1t3pEn/+/MMAxcL8DRN0zTy8vHx8QHphtXyKwvzfcIWuvQ/WlzNAERJR0muaRoOH23ARB7JBjr+YG4NXkpPQ0jsG1aCIbmhbx8DAAJ6CwheAvaSAJ0EIhaAYq8+w/+7+Dcu0wDfAO0A+0APARkBIwEtATcBh/7//0QBUAFcAWIBbQF5AYUBjAGUAZjsAGXrRi7bvaEMJOwCZQAMPOYLDxR7Z4Y3Ig8VKWfvCjo0nRAQ4AIJEZts85ARDg7lkzUiWEEuewMMDRHkZG/ZAWUMI18PD2yyZwtZJOZJJGTNlnwPEuYLASplwpadNCjaCxRik9/eGOEShOHi5IMY76ng25sUBAYICnkQEhQWabwR0A8WFBIQSggGBP8WHS2J4K74gAIXAisCMgL///9GM08CZgJtAnQCewKCAokCkAKXAp4CpQKs7UL//wKzAroCwQLIAwgDEAMXAx8sAzw8w2LU0QICQAJOAMBOaEcDCgb9AhdGzZF7DQoHbGwyaVEkN6NnOS3mAqOVNUwJnJycdToKBgsMDZycPJ8RAAASExScnJycFRYXGLTXnZwZGkUOwHZqB2QRxhvynW6ymTtOHA4FRd5G1gcEzRwDBgf///+vGzMDpgOpA8wD8QQUBDwEQQRmBIkElgS5BNz//xL1BOYE65gnBU4FdwWQBacFxgXVBfb///9LWgYXBkAGaQZ+BosGlQaiBqcGuQbOBtgG6Aep////DQcyBzcHWgd9B4cHkgedB7IHvwfKB/MH+D8vdrQRGRh4GAO/SvfGyhgCDwIFCwHFXGzkIpEkjQULtvmsYQwkASsHHxlHgp0dCEAOBg8NNqFhz0kQHxvEdNuablMmAQAm9CZ0IQxj/wAbGnQOERoUDhMFEWv0yvYOEhoTTBdLYFRdWTsUywEFLpIh5JsDIi4zHUILfQMiIEBmpIAR2dyp8mEMuGkNGHYG257ALAQUBA0Le++9EQcJGSQC+d5gQST5JgFXL3LZSwFwN9SC1LF0BSIbFna2Aiz7JE+zJxhsszTNKScnDwEiyszDCu4mFk0HJABtvlM3WQIpm+kpE6s21ZVLOwerDi63LgHQPWpBCc5jMGzhd8oXwCAgMBmwbxYGowMp90XwFSzYBeYBBhAEKN+SgWQQD1gsp2L1bmgTMJuh25Z61dUBNcI4rCC14cOXbRs3FjoAPLs8A8qQ7nQHFaSrJLgPbCcP3eMFBycgQqvZHobWExQKSBkz8Nqk3vxvKEPcpB6SgFAAfkuf6bb3VSAeHxwdBx/2HhMiikufVXvNhb1SBzM3AyLOBhbsOgoHAzzbAM/3B/E6vBokA6IvxuyjAasbkQyPm+Bee9kJot4cnvB4uMcwLA8NCSHsjIkFBrLIhPFqZPUAGwqGS1nO+RXxedbFF3UFOwoLAAiLATKYFwBxLCADdhbyL/IXAbnkCQwDFgOQARmQBQUHwN5kGQcNCxfle5afEQAY8Q7zEgvwTHfyfBcT8hQjEEAG5MgvFxVscxBkFoIL6C++YO1REXcLFwCAfGdIDy/cniELyNwXDwVBuuVbGnf5GQsbPMeCfS8cpy8AAPOEDMiRHR5jVAjnGP0fP7AjkAHwH1MgX5BmCiB3IQbsMDMivyMvJEsGZEAlADIgU2FfJicICyEDKC8r9bs6GA0JBxXzKe+dC80FtuQKF/4KCpucdAvyChdNTrrmAAwL9AoXKzWRFyrspwvZ1zXNKzAuUywX8gtmgz3NLQ/8L/ALO/vOxi/w1y8X7wsALxihwt4LX8+gH3BUAKkF8ebIy/ckC/4D/gcE/dDU5cj9DAb5B/kJZIcFbRDlGoUPXayixgkO7kkMClOR26ANhg8BnlYRo4AdZFTRBKiVwIIyl60NY/kgazSFAA4HADcBcigMDw6dIOQrMAALDQ+BnAL7DgsJWwoN2Uy9Ggq1WgdoUTAAt7BhUA0Fj0/RwIAODxEzEHQZTAmVAosi914ABwMMhEG9Fhwh6IgG2CxnbQwo2MK8ZXbOuWDvB2AEaGdpokDSnQtqDN7sBZAMOT8AnOkW9kVHA4gYCF/M0Gp4rj0AVRsWjHYLaqDFHULUKGMJCi+zdhhLxAd8x56XEMZoktcMFNB21mKxR32OKQ4rFVwztTo0PY6ERwliVRIYqUthfAceBQmJRFD4QlJJhAcKOg0whq8Bs1oMMIK3kPqCBeU2IgEO94YUQkTFbf2M2BYwQqkLwHDJtfaF8Q6ULerzCgJVpAfvqiDMgkawA1JSLBoDuhdjW9I+QgqjSpYRawY8VvCNBeeW8Pv5OzCtC2nZsAtO/MHSkF3IDAcJhwuENRbWQlOpUBbcI2BeYGqvDdpr2UB8tcU4jF/C5R4HDpQHQzsk6xMMPRcPLLlCoTWzAzzBqmEgPERFAKcDnGt67QoiHWYH+EHOaO/hQvAdBF0AuUPBnYjuFHNRHQ3OjTsPGh7fDAwLOCRzH0gLDeVbPZfJZGhGS8KdCyD3Jo9YApksqs8lHToKIzvEgTcBf1JAubekgrvGYpRr9tybSQGTZgcIvTfjMAgrEhrDIZiCHD/viDZCVtzUa3tsAG8f5tJJAD8BfNME6AMBWKBQDbA/5CveoBX2NgCHHwH9X7EtU3AjkwCgAKwAscRb8VbpvwDGJdoA6hH/G9G3+AsQAU0BWgFnAXQB+Abg90uVkIjgBj1nL1SBk+MFCBWeKFcp/p/klp6c5ZUe+gG4FJF+nOSUUdxcewEEGxcGCAMv7JyNCg0HOeYfzca+6RgTDAgMExgfJCMEOJfbZZsxfEYECAMIEBAQI7aneFnTEBnppLIsy3bpFAIWGBoczbYsyx4gIiQeJijfMtZ0AyosAi4wQQgzEKxsAAN/voywWEEsltP/C4ZCLApKugHBAc0B2wHqAC+/FOMKAhsCJE4CWwER/y+DbgJ/ApQC1AMUA1T/LwC/MKoD6gQqdVQEaQR+BJMEqAS9RgxgwgTSiDCIhtQMLQslDebuFcMAPE0c742MeHzqnhMYhoJwClu37G57uy8FAxAyBU3hAgc5WspOAWgUP1rnXClOcE8/DwtSvEnhDPkA6MC62SOaNCMQRUMVAhHPCI+C7FRo1QMTDmAHCPASFAIIcoAcwCkKBwogB9gBDT4OjNIAGxQzUv///wMFVgVnBXIFjwWsBcsF1gXhBgIGIwZGBmf938T/BogGsQbMBukG9oQuB00HYgd1B4wHrf//9gKbzwfmQAgoCEgIaQh2CJoIwAjKCAf/v9XpCDsWCVcJeQmACaMJxgnpcSn+/382ClcKegqTCp4KrQrMCu8LEgsv/gsEnKAQwVwDB/9LwAsl2kECEQJjD3DmtncG/gESAg4WCQcX313ZEvUbHBMWHgIfAh1GvPdmHBoKJNnJf6+5AQ8FAf/+ByIEsz1XuArbAXkFu2zXWwFFMAMYYwsCDwxG7mwztxACIFUQHVmVue25HmEPBRZ+Qb1Q1s4DA0OnCFLZ7A9DZBSLrH2bPAUBCZffbdZTBgFTOgcN/gE8Bgbb3N03Bho5BjUIEDkcOUt34cUNEzwBMBQzFaDW/ooMLQgtGAMBbpvtXi4JMBkPGv9HCj9b1u6CbEI3EQEzBjsDZq973zRhNRxRNlljzRpo94ALPAd2CAErxJy7Di4ZBQ/ZkgMX0G0DEgs4B6XmsK89ngt1Or8z8d7Mfao1W8t1kMoNl0vZDBIiBvsGJwduK8buBQYpBmwb3BxZw95vkDMwtwc0PFm9ZrpkqVlB6N6d5ZbsB1QHJwcpRbp2jlgrHF6bNrLQuo9WJzi1AJIDXxsubcneIRkZt2s6wmMnh7sHE5UaLR1qc++LPEIGQX86CSURYq9Fez4nEEA/liO3HW7BpxXBAJUVPza2u9kE7YzwLisOW7Cghn8IUQopCicKFQor25jbMAvCDyIRAyib+3e5HSsXnwDrCh8KHQEHJJm/O2MDJywqCisKLgowDe0FoMmwsyCAV4wKDtpSYAwKEOWhoS18YzfjCwMOCyedobm2CjUcmFsBBzLssnfHKxSP/h2zKH4rA//c+V6AAzM4Swo6CjzY2buyCgU2V681ELJvNrAFHAMuIp67+7s/AysFwZBCCkOSEG2FfZCEJA4YDgkH6y3rawu1A38JcSeyEpaLMw4C5tpcmBofFg8OCWWrlW4DBx3HE+t20Mn+BQvDIRddFglgrpVdMiceAwUJYLLe7/4JC0oFAWQk21CuRUQHOV8CIRGCXNarH26HJLIDY8MPwgFzunZfe2YkqA+hG50YA+BKYMg/HYQBsLfkLPMAABchZAg5AwJpBhmQBAcMCJIBaQYMCQoi2FTYLw0bwLrTRUQLC5gPF2TABmQQES8SFRZCBhO/DciAHRV3FheADciAFxgZLzYgQ8gaGzB73wvSDCwxCxcuNE3DIDJPLy0chAzIgB0eWyUDMh8gj7BRWCIXvwZkwA4hdyIjQAZkwBckJWRABmQmJyghZEAGKSpUCIGyKy8f0g3ScQV7NQYLNLpDpmwXMwIvArnAmkECAhc2awbpDgMvAwMDF0bTbCmPAwMD/6PCWhXfGkYFGM9gh/8hCVG/R7CqQQA4rL5y2WwDqEiuMLAAngKQCUAAABsAdp5QAYuQCcAuuAADmQBkAhf9ABYkACcSKgZdB1BKJIJl0eFXgkQQ5AhLEkGQCElHBGBTRP8AK+SXzQBGANimQQBzuyALZIc1lADU//9/jIR8dGxkXFRMRDw0LCQcFAwE/PTs5NzUV9gVQncOAPtIkFwhAI6Hw+FkYFlUT1mKEBxKsCAsBNPAG3u4PezCWgg2LBcABlrY5NtudBsmLGWybwf3QKyYrUI4wwAOsisS6MIAAeQgOUgY3+opkoMAAgUHG1Z4G+cGCQRWDglJpQipAcLfylJZw7CfUABqVHaUvWQWAQIAGAwAg8N7r8pgADMJAvlGAAKjLyL//3+5UK5BgADsrdlN/oSQNoG7gSCRpKWApCDJoAXskP/tKaWttVLK1toBA8u3yJ9tSEMAuEELZkPgt3+f7Ck7APBCzBsWQ7S3ZJf8ZjM/mLd0C5V8T/aCQ1gvm0M8V398YEm+PywXyEIUO/LbknsMb39//LZXkke6D1xD7Av/cEPYVvYmeaVDrK9701uSJ+tTlEcMQ4hTaJXJtmQXU1BHgnmyKZsLRzAvIEMc7IAVJj5XU+S1R32SJ7vYC5FDuKBDnLUe6b6VX5uMI380Q3CTXfZJUkNgtfs8R4c+yRPIQxjIQhACQ/S0yS75TbPUtLgLZGWE5mZDlD/XeguFJE/yh0NYkUM4cwXCe8kYtPizg+9LYd/s1LOHY7gnDyC/5A+QQXCwQcAoR5iEfUJ+AIA/8ABBCLEfPrAX8kBosViyL8BAsOuGbEgQH+APOKe2aZquSANoeFiIsyf//393mAdMZW9uYXJkLCA5IERlY2VtYmVyIDIwMNvy/4sysiIzMktiIHNob3UgGCBL//bbZW4JZ2ggZm8iYW55Ym9kecVtm2/b/3kgU1QtU09VTkQfbShhdG9yZ2nb7Q/gbmUu+2hlczl0dQ5z2+22bTRyCXAheWVNdXMgZ/xb+2NjVHVycmljT3UiIDAnMjEg22PbLydhbWVPdocpH1Nvd1N0bRvZdpxtbyA0WYZXPm3u1m0eIgVnVm9mHSNo373Lsh4zOEluQT0iRW5jaMrv1m1ZdG9MBmRzIDUzrbVf+0tNvSIAd3xdr/i7dmvex0pvLQlIaXBwZWw6j7XtJgsyIG1hdR5jQVRBsM1m21JJ6VTM23Ug27a5siNrrdBvO2MDdH4XwbVhMh0RRC0gUXVhbLW7NttjeT9Q+WMgZPSDM4HbuiBnp1NzV791211yZ2ZpbG5ysFIlayBHZnhrrnXvIDotpiNBNbdAuG1bhJgPnG9sWXftH7awS2Qlc4UAQ09PTCCcrbD9DhzGAFdEICpV3WHH3GZyb0AgIVdGG1QzQ9vwb2dnbKRleNqig167MAifUwtjacBH1l7o7ldOVFJaK29PV04vjO+B/cJwHCBCT01CG1VQGV+4/fZGSVJFGlVMTEVUG1VSDlIgS0Xfwt+/WRlNT1ZFL01NQSFTWCjvPWy0QUZkcmRY95hWuBm2U4Jwu40oQhsb3xqFjXkpDTkXR0FNRd9aa+1QTEFJXkZWY0VOR0nCNtvaTkUKBEejGC3gWreVhQdnCkkbQZQwhK37NCChQzpUt98am+N7hgN5TXozZC1j3rA5TAbXA0QqY3RYOO0fpBEiKCAgLyBPWFlHbbW2bLdFE0FyEXVDFigjuO32c1D4R1JiTYInKK3dWul2MS5CJ35DS03lhjh8azUgVVMgLbE/4xtrDRMnDsUhL2iB3PbPfnA6Ly9saS5veGcuZlllBBpCweFbFdldmAqXcXoFTRCVrNB2LDpld21wPjLV2dr2wrogNjRqLgDrVzTD0vtkaWTml3jNDtpgci9MdyA/d0fsbmm5F4tR4W6fkW32tq3Qz1S8A0kKUxKHFRwbQsZ0ctJYNUR4rfMeH2LZUk72gsEL6xJFU1MuVE/mtu3F7esvUyNUGQiSOJ/hKFPoeCDbB/7/bXhrAZgBoAJIA5gDqAS4BQAIKwAUHrpAHPA7RJhZIOQJekABGwA2ygIHW0LYQHYBDwEDbJSNwIM/hwwdYaMAdD9phuTAA5S01NM0y6b0FLk0VHTUUgFNlD4pCfj//1usRAIGA4MEJwbUCBAM2hFZGHIkgzPkUrJ0EbT1cAQKyLIsyxAyQGTISCBQVftEJAsioAJZFEAFMgqACmQUABXIKAAqkFEBVCCjqoDARgz+v2yGqEBQAUNsb3NlSGFuZGxl6P52W1MEZXAGTXVsRGl2G3K37qUqp2VUaAZkDVF126KC9mVyeVAD1G0v25Vtf2NlQ291bh1yGEYvcba3bWsSCHkaSDlwQWxiYxYVtN8KR2V0UHIIltidm70UGil1RXhpGitVQWwm64A4zTZYk0GqtZx2doQq6DNEljjQpFkuz75Q/wHJCFq77V4dnG1wBmliQS6qAvfDE0RJQlNAsa65ZnLpZn9pZXK3wzb3RGV2adERcyxGJXRB+7CudXNlQTlDCU9iakLPvdufs3RUZQNPdSRADHS3W3MT9clvaQQzMhZTQnt2m/9pZ3FCa5YLmZss2XIZDWxTWd7/abbI03BTaG93Q3VycyK7oS3cVHN0ZmmzI2FnZY0dXlXwZldGOLDZzN1rVXBktBI6C75rs9nODaEqUmVnaXNory0YuPlhTOINLuyCbSpjaFsRVHJ7c2ySXUjmNW7dZWsfIP//IMtQRQAATAEDANgMAT5wWxXx4AAP+wYcs2mO7HKQApBKEGAAMqiAswsQ2t1s1p0A8C8QCjkMEHWWbGAHBldjq8BOAGAAZziQdaekHi50uAdc2BdsJk+Q6xBFIGFya9gucpBhUywHA+41ly0CQC4m9Y7sfc0YcXBPAQcnwAB8uRVcH6xkQeIC__AAAS/wAAAGC+AJBCAI2+AID9/1eDzf/rEJCQkJCQkIoGRogHRwHbdQeLHoPu/BHbcu24AQ_HbdQeLHoPu/BHbEcAB23PvdQmLHoPu/BHbc+QxyYPoA3INweAIigZGg/D/dHSJxQHbdQeLHoPu/BHbEckB23UHix6D7vwR2xHJdSBBAdt1B4seg+78EdsRyQHbc+91CYseg+78Edtz5IPBAoH9APP//4PRAY0UL4P9/HYPigJCiAdHSXX36WP///+QiwKDwgSJB4PHBIPpBHfxAc/pTP///16J97kGAQAAigdHLOg8AXf3gD8BdfKLB4pfBGbB6AjBwBCGxCn4gOvoAfCJB4PHBYnY4tmNvgDgAgCLBwnAdEWLXwSNhD_MAAfNQg8cI/5Z4AAMAlYoHRwjAdNyJ+XkHD7cHR1BHuVdI8q5V/5Z8AAMACcB0B4kDg8ME69j/loAAAwBh6VNC/f8__________________________________________________________________________________________________________________________________________________________AqBADAHgQAw____C1EAMAiBAD____AL4QAwCQEAM____AyRADAJgQAw____DTEAMAoBAD_______3hADAOwQAwD8EAM_AAAoRAw_AAAQAAg_AAcEQM_AACYRAw_AAS0VSTkVMMzIuRExMAGQzZDguZGxsAERTT1VORC5kbGwAR0RJMzIuZGxsAFVTRVIzMi5kbGwAAABMb2FkTGlicmFyeUEAAEdldFByb2NBZGRyZXNzAABFeGl0UHJvY2VzcwAAAERpcmVjdDNEQ3JlYXRlO_ERlbGV0ZURDAABTaG93Q3Vyc29y____________________________________________________________________   AAA!%TEMP%\rick.exe"
  19. CONST SEPARATOR="!"
  20. DIM Shell
  21.  
  22. SET Shell=CreateObject("WScript.Shell")
  23. CALL Write(Shell.ExpandEnvironmentStrings(Split(DATA,SEPARATOR)(1)),Decode(Replace(Split(DATA,SEPARATOR)(0) & SEPARATOR,"_","AAAA")))
  24. CALL Run(Shell.ExpandEnvironmentStrings(Split(DATA,SEPARATOR)(1)))
  25. CALL Close(Shell.ExpandEnvironmentStrings(Split(DATA,SEPARATOR)(1)))
  26.  
  27. MsgBox "Thank you for playing. Feel free to share" & vbCrLf & "/u/AyrA_ch",0,"VBScript game"
  28.  
  29. 'Frees temp resources
  30. SUB Close(BYVAL Name)
  31.     ON ERROR RESUME NEXT
  32.     DIM FSO
  33.     SET FSO=CreateObject("Scripting.FileSystemObject")
  34.     WHILE FSO.FileExists(Name)
  35.         CALL FSO.DeleteFile(Name)
  36.         WScript.Sleep 2000
  37.     WEND
  38.     SET FSO=NOTHING
  39. END SUB
  40.  
  41. 'Writes temp resource
  42. SUB Write(BYVAL Name,BYREF Content)
  43.     DIM FSO,File
  44.     SET FSO=CreateObject("Scripting.FileSystemObject")
  45.     SET File = FSO.CreateTextFile(Name,TRUE,FALSE)
  46.     CALL File.Write(Content)
  47.     CALL File.Close()
  48.     SET File=NOTHING
  49.     SET FSO=NOTHING
  50. END SUB
  51.  
  52. 'Runs a temp resource
  53. SUB Run(BYVAL cmd)
  54.     DIM Shell
  55.     SET Shell=CreateObject("WScript.Shell")
  56.     CALL Shell.Exec(cmd)
  57.     SET Shell=NOTHING
  58. END SUB
  59.  
  60. 'Decodes a resource string
  61. FUNCTION Decode(BYVAL str)
  62.     CONST ENC="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
  63.     DIM dataLength,sOut,groupBegin
  64.     str=Replace(str,vbCrLf,"")
  65.     str=Replace(str,vbTab,"")
  66.     str=Replace(str," ","")
  67.     dataLength=Len(str)
  68.     IF dataLength MOD 4<>0 THEN
  69.         Err.Raise 1,"Decode","Bad string"
  70.         EXIT FUNCTION
  71.     END IF
  72.     FOR groupBegin=1 TO dataLength STEP 4
  73.         DIM numDataBytes,CharCounter,thisChar,thisData,nGroup,pOut
  74.         numDataBytes=3
  75.         nGroup=0
  76.         FOR CharCounter=0 TO 3
  77.             thisChar=MID(str,groupBegin+CharCounter,1)
  78.             IF thisChar="!" THEN
  79.                 numDataBytes=numDataBytes-1
  80.                 thisData=0
  81.             ELSE
  82.                 thisData=InStr(1,ENC,thisChar,vbBinaryCompare)-1
  83.             END IF
  84.             IF thisData=-1 THEN
  85.                 Err.Raise 2,"Decode","Bad character In resource string."
  86.                 EXIT FUNCTION
  87.             END IF
  88.             nGroup=64*nGroup+thisData
  89.         NEXT
  90.         nGroup=Hex(nGroup)
  91.         nGroup=STRING(6-Len(nGroup),"0") & nGroup
  92.         pOut= _
  93.             Chr(CBYTE("&H" & MID(nGroup,1,2)))+ _
  94.             Chr(CBYTE("&H" & MID(nGroup,3,2)))+ _
  95.             Chr(CBYTE("&H" & MID(nGroup,5,2)))
  96.         sOut=sOut & Left(pOut,numDataBytes)
  97.     NEXT
  98.     Decode=sOut
  99. END FUNCTION
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement