Script Library: 1240 scripts
 

time-requester.r

REBOL [ title: "Time Requester" date: 29-Jun-2012 file: %time-requester.r author: Nick Antonaccio purpose: { A simple GUI time requester } ] code: { hours: [132x72 12 159x74 1 186x102 2 199x134 3 180x163 4 165x184 5 131x192 6 103x186 7 79x168 8 71x133 9 77x101 10 103x78 11] minutes: [185x37 5 225x76 10 240x132 15 228x188 20 188x229 25 127x244 30 73x231 35 25x187 40 13x136 45 23x77 50 66x39 55 130x22 0] view center-face layout/tight [ across g: at image load (to-binary decompress small-picture) feel [ engage: func [f a e] [ if a = 'down [ foreach location (extract hours 2) [ if within? e/offset location 20x20 [ h/text: form select hours location show h b1/offset: location show b1 ] ] foreach location (extract minutes 2) [ if within? e/offset location 20x20 [ m/text: form select minutes location show m b2/offset: location show b2 ] ] ] ] ] return text "Hour:" h: field 30 "12" text "Minute:" m: field 30 "00" p: drop-down 50 data ["am" "pm"] btn "Show" [probe to-time rejoin [h/text ":" m/text p/text]] return text " " return text " " ; space for dropdown at -100x-100 b1: box red 20x20 "h" at -100x-100 b2: box blue 20x20 "m" ] } small-picture: 64#{ eJwVmXtcy/8Xx9+f3e/7bF0s3dZ9XbAuqISte7m0LmoS1gW5lFUuhfTZam2ly1IR wipSKYaQ+7rKfXLLfSUU+X6TW8T8vr/z9/nnnMfj9TrP1+MEhQR6esVPhVjQD/D/ giAIhUKh0WgMBoPFYnE4HB6PJxAIRCKRRCKRyWQKhUKlUmk0Gp1Oh2GYwWAwmUwD AwNDQ0MjIyNjY+MpU6awWCwTE5OpU6eampqamZmZm5tbWFhYWlqy2WwrKytra2sb GxtbW1s7Ozt7e3sHBwcOh+Po6Ojk5OTs7Ozi4jJt2rTp06fPmDGDy+W6urq6ubm5 u7t7eHjMnDlz1qxZs2fP9vT09PLy8vb2njNnjo+Pz9y5c+fNmzd//nwej8fn8319 ff38/Pz9/QMCAgIDA4OCgoKDg0NCQkJDQxcsWLBw4cJFixYtXrw4LCxMIBCEh4dH RERERkZGRUUtWbIkOjo6JiZGKBQuXbo0NjZ22bJlcXFxy5cvX7FixcqVK0UiUXx8 fEJCQmJiYlJS0qpVq1avXr1mzZrk5OS1a9euW7du/fr1GzZsSElJSU1N3bhxo1gs TktLS09Pz8jI2LRp0+bNm7ds2bJ169bMzMysrKxt27Zt3759x44d2dnZO3fuzMnJ QRBEIpFIpdLc3Ny8vDyZTJafny+XyxUKRUFBQWFh4a5du4qKioqLi0tKSkpLS5VK ZVlZ2e7du8vLyysqKiorK/fs2bN3796qqqp9+/bt37//wIED1dXVBw8ePHTo0OHD h1UqVU1NTW1tbV1d3ZEjR44ePVpfX3/s2LGGhobGxsampqbjx483Nze3tLScOHHi 5MmTarX61KlTp0+fPnPmTGtr69mzZ8+dO3f+/Pm2trYLFy5cvHjx0qVLly9fvnLl ytWrV69du6bRaNrb2zs6Ojo7O7u6urq7u3t6eq5fv97b23vjxo2bN2/eunXr9u3b d+7cuXv37r1797Ra7f379/v6+h48ePDw4cNHjx49fvz4yZMn/f39T58+ffbs2fPn z1+8ePHy5ctXr169fv1ap9MNDAwMDg6+efNmaGjo7du37969e//+/fDw8MjIyIcP Hz5+/Dg6Ovrp06d//vnn33//HRsb+/z58/j4+JcvX75+/frt27fv37//+PFjYmLi 58+fv379mpyc/P37958/f/R6/d+/f13+r4D/awEQ9OAv0SxYrWrPJRg4xfWqazrl sE1odfCp2u5dLPd1L3pP1V0vZfsVmoWcPnKjnBPZFHfj9NFbe7mJN6tDztTfOeCZ 8eHFjTPH7h3m5ZLMQ1sb7tcFlzstv9na+OCYoC70YOjZpkfHhWfWvbx59viTk6LO QvMF55qfnkl+0LT81rmW5+fFJv8kzv4Ue6UtM9EisXYAwhllvXhr3twXjUFDgGMP rKcMXLe9IYEBuwNNpKEwHAb99PvSCkMgQLqq2nyIgQd+3Y59c9UMZehR5sBdSUNj qyfW37lUe54ALMasCb0QQmvd7ixnLfIVb8SsXAREVj/HP5LroFJRicjxDatZn2i5 Ubw/DXtFMcNz+qHLkzmjbgDhJbOv2RBI2rYfV/9ey55nJgK0rT8NbqEgM608Rz8t 4QU6SIVS4PBAA2ZSvm+lUbDC4XbsR3NN9zyT78eKyQQBjgcRdeLFBfqDiXjG/Ale t8PB9oY3Jf7d7os8eLjGW5wZv1hHlP6Fq4bK7lN+WpfiGv06McZRa49iSJz4uxXR K/bZFawMCVm111jUiKkS0IaK0wrPNlYBblxn/YGNHZrXMev7ntpXb613VPqYCXsB zs5wHcpQC5w4NfnWU/fUUiixyUS57xsHfuF0QHStXud377Bk3U1H10MllSP1B3du c6yXWOhQOL1xlLrdXOr4wan5dJ/TnpaTPd7HRcdJXTQxPap/NeRa7b5B3OOUP1pu MYC65XJGVPP+bL81/5Nzm6J1w6nUeaaj8x804xGImodAmPekiBMJw023TkBSsX8+ ZY4O+XT198WCXJqbcuD+pff1l1IvvQm0mQoxVcx7M92bHXLdybN/i7tAL/LOv6kq IeUaW968hna4YXdZB+COcruYG6vfzdQ4AuJ8VPg42Hy7yyfjzuyYKWVzJ7+WSfDW U1JaD1iItNfnfRdgviTP+ZvovvkTf1/pVAe27xlergcAuFFRyzfe8pzlm32fKcM3 MQKadfUumCW1LAq2ZfAdyR8O/6pnPQnetPnxsr+RWzLbeyL9MVs2vCzGowk6vzly h+naweJJ3Th/JC7dvbci2GZR+hOB9p0TZq7bVv6J1n3tnjmhD26bWRmIQ7zpJiVt g0VzdnqVPvRhI+joImsCsWcaWPDvNfz8HZ/VLhW7Xv32PcmywxbbHE44WbHTm7/F 2d7XC7tqYDXzD3OA5deLnuHzGbDmp/q4G8II2lokiEcHDaGv/f76nA70P3kE74c9 M1Yh/1osSS7XECJojKLF24HK9MezVtRmOMnSPTnSChNBW/V1PWVY0Kt/F3Nt8u3G uL+eDNQzf4Dj1Jiiwq3Iywl+uQ/rqH9idTzS/XqTDQvN9amRlBFcwkWCsa1BSp8k 8+59KytmkiltKMY0ajNsMj0/n2PY6zUMMFZf2aSzBB3vXH/3jPz77HfKzqsXtfaM DYnSu9LH89/V5M5aJWUr+1/xrMu6zIhdrBQ3njtBSjIej1+ZOnyX3zscwC103cV6 Kp+qtruQWEUGfobB7hStfSJsa7E5aqEtm9Nufu4GPqrimeOBWXC/Yw9eOiA3V1fm v+T32bzxHDrbxFdunVAtymAr5u70mit9mFsF+tmMbxw4BsUjRl0OYj0bwkm16H3t tgpH9Vn845dM2/KuaKgkHF6j101Hp/kd6EBKJQ8TiZouG/e/AwtntEaydXqCNeDy YXGbYznqBvpa39idEuFgLLltyOLDO3sxjDEw3NTAGxuQZdJsSwNtCXSjcoIUnF7U gdiAeexwWiADBGs0Z13CBUUKm4rUDo3rOJQ/q5hXNvFbg8ZbU2ZnpbMLtGxH8mmq BQAkuz9BHwwTURv1nZYYDDJli7sy8vcXy5425NAmdsmeiCOGBzLKPXB9c7tVUra+ oSGhl/cop6gTk5IeML8GAIvLaftM7Ag+PQOnw1pHaGE+jrZ5P13BKDsPVZZ/yIJH Ounrb1R738CYIC0xb3UkNxsSLK9sjZG8qFl0mNM7rwcqlRqeqiBf6JnRCa5KuqyV VuZ6gtuLI7clgoFYYrAs0aSvMHutynzqZgM3gjVlsZO9Mcb1uke2dnZ+9Xer98o6 HiHt5lbYFk4JBV5EN2y3kBfW0j/Nd3AANZfhZ2knWEgkpBf1otjwFf/VKdc5L/MM P2On3LcDvnPg9FbVouUcgsezIcKa4RvYo0b/8t7VLJn9KIjdmRz5BVcbDVoRMwwU cMA4ihHEwV0zhgLp9lqF5k+dYYwdwTTIHf5wcQS1xplj+tWjVNpcs+gF+/iB6MTD gQs1eI1aIYdAwq6KuuOYgaD4lYhQ8rBmUadJL3+kC/e5hx9myJHxmWgEkG3NuckG xgtHHz/eInSdPhGs91LUV/kIvm+LZAe7R4hbPDONWJMR7WxiLXn6/AT2tuRy/O3L ZVbHntp8RA7RvSdLF7cS29Am6Gs7Py9K0DbiwqJVfKWKRW3dYtpl2+Ht00fwyE1i rRN3CvHjhbMeSdiZqZGGwXy0NwO9u10VSdfHl3DaHHsfJ0kShFx4bRuf2gkKzEoE K0uG69g8wW0qIZ0+QtUZokagg4h5c6I25BbKCws988+bR/Q3Sunr5m0IqVjdOrID 9Xn9gVeIfYR25Njem2cPJK85PLut4BomZEbo4fHiXovY8g04BP/dR7lJ68j6WW+w GN9XlDfjMvsyGAu+m0Z1+9tp/qAKp9Z71gaCJIQ9oYk/gFsGb514vuj5y/s++o/1 WMOEoSmby00tHGEeZzW06B/F/MXtEJH9ZN4JNh9trYHcbL9ZDyc/sCTUFkJK0/d/ tXLLE90Ui7eoZTvFT+ccCQKIvtNi9sTPoAnXAiILAVEshc8QDzrubL/A5zzhmFFk oqQtd8eu9i187raWhOHel6kRkgPCxcpIDwYIUU/nt923D8tMMiSqt0GHuPAiLg8Q qwCOxZ26cmHeG8nzOcBlpnJt0TLXjN7tPc89kJZLjR9NYnEHr7YXPHG2n4u5IXcn IjXS2xGuN94RjHBcBGzYyV7KAmgllyqaOAHMsxXzh/ThhbWWVy4VQr782+2rrZv3 D46uM7D8J5zm7ZjLv68yyP/3Pn42HxkokB3C759rDrr22RxlY1gCcM8BPsfGbEDi BxEIUgLwBJ7UEOCxLWk/6GvxYLo2Gn2KItTgJ37Q+3hrUhJwvwNpm5jUFadsgwZt PwZO2RLOuMHOQdfQ1igz3x8LyUawtxBYrbXP3kt/IuJjoTzfYTiMh1Sv8csUu9O5 VFiStX9v3nsdKkgF3wuEH+gwqUzsax48yHPoPGuU4Gu/atzur3pK9ucpEivGbZ5D GJ4WobNfLNiBTpMRXOlvz+JQfFq4FgQgi7f3y3Mm4DDENEThqBcpAaQGccqt5FM7 7sQgzHCaDJv1TAD/Vq0slGynSrZh+fRXMPWdSjKnzOFJh0O+hOXykAXfp2/qQ1Xz Vj8HmYUSbB6O8QJgRmvBYg58oW3XlX44iFNwtQpDYwOmGOu6B4Y8ka4JeEJVME2c +1dJ2yWe9kcD+73PTt9KcIQhQy0UqCIfURgorR2LUdTdfJM9EpP97Sb0gYRNpwkB VUKPY6xsnYLCoLuJ4kiI9K+mVE9QdijyMKfIZmNbYIC/1QZ3Zirg+5R4I9SYPfxF kL7NjUBu35KK35rDxGJ02z+dwSJVBsfcnI5az6zlT62XTG0agM8d07NG8Nsbv9Iv iiN+ODAeaAAk2vyXA895Wl7HV1I+K/9gUVZEqFyXlpesMLhP2RKEqhXAse/tSdxF pvWwoM06JJPQmAZgHkQTWOE1YXPandvGnU8yTM+Em54vM32bDOvhyF3iEABvwVqR UEHAsh/+oMF6akLm/6TnmFT5hShwJhvxMGAi5LSCqnvD/+2dFDKGuxEEy3X2kIYw qBSDsaq/oODu9ax/YBRaBAy1hGEdmSMAKA3KLsvgdZ+LMxN9g+cS/jijR2JGLqP/ qFr9RUuIq2cpRHDnGC5ETVr4FL6vtsh1hO9kVVHbqbN5iJsy8S+MI+kFwAtQ+RGl SmIZM16OSqNHPrYvEoe9nbnhV2YCKll5QWDFABvP8baRNQWefO7ndC5Ojbv7GWjb 1z0YcCdBkUC95qdgXWo68d2ezVMY1Nlfqv+Cmr4L8FE1tM8KGHBRid8weDaARXYM DWo5ixHYyBhX7qOtNk/pt/dSwYE/cSQR8EHs32kQvIA4R+LmlOH68XNxpWva6/hZ pBqhs9zR9JG9QqtkStyYH47474NXqKtS+kDNW6yzvwNOlGW/v4rlSh9vYBUrRV5P 7MNDYdnEDoEYYNm4h7PQBB6Y2mgQZuO+zH0mUzdzuMZitAw+Vc/aKII/q1T6qVHl xtBRjKSBUkaJApi5IpSdBjOjlhqjRpVHcAK4aQ+WHsSKD7Jq6O9DqqnP6FbD9hVb 4MCRGizcgObTnQQAN7bG+/PsxM6ZKxIhpwDL7xLLX/dVGCvvh/7Ff8V0Bc9hL++Q /OJu/8YG2qnscbXrVza9z6llNB+esr/G1KmZEU979th+p6ihXVxayIcI8RXL1AA7 hp7VtISoifCOn7P7C73CBszVolG+7LDNbGJHPN5qY2of6tSqRa5EME+7waC92aCp met6tHPt0SmudGFjRXYQvAeOTu04io2vKFICrArynEm5m7XJq2zezc55PW/Y7Qwr gwirKVI9/E19aBMK2iuCv/KIIw44g/WMb2NE5zywlx045/mZ+ZPMog8NSqdGlit1 p4gIz97ptG3adFFD4A2yc9amnL1TjVWNs1x9/yT6/lRbmXcAS6a1jRR+2cRy4zko BCs7xMSdPLlxDS2YDRkNAqYWp2ef30QGW3addx2gfx5rtk6jOj+2543FppxeX369 8UkWzZIHsGpop5bE586I7DaIrnATVvhyaq1dBq0JjNyU04SLMGZTH/YOlvlEC646 ACce/fjziyfXG3WothUycIuDM4GSgk5rgVQ1ZrHEHj4w1EEGY5dgde7c9uDVXRlu vjazpDbEeFzKYP1fPY+awHMIhtUWZfRsBDMfRtupUXveX9E5Xx1ab3ScfQJo8Z6y SiDCGQYeLYw/+ptHoGr9USLgdslov3DZe0FO6iBq9Q/GDzY9f5smn2S0l72bzCWO wnEfHOCAyYayX9a/eeRwLZrHw2wao6hMjEa45UCAxbTTKkR7sdwzQzXUQ0tR6QHw 3GF7umYjaqD50UWjmptRZ3nwCRCTMg4VnTN7pooo5GP2OsIt9Q7/XDSeRBH2zaQE qLz9Lpvt0UHTuPh+R/i7CkrdjUvtMN6fSR1+bG8vWv2Ci58+BrmMWvQB+rtZ+L2t 4D+QJVcavwPNQJT5F1DOHVik75xKf/bL4o6gbfksmDHrROwc4wNae5YATuJWG8AZ 3uObU9ygRmc48HLY2rIEzH3aNgpA4qx/YcAWsBaTVpwiNUZ/jMKeWpQyjtq3AT6U vKjGszDxFL1mmPqIROjcB/msXnRKtPTEauNhXsccNvmUI3xFdDF0G/w8edPLieIB zxKrDUbvNVgYhpgi9FFd2hOws1CCwfMp+c0sOrwpXuK/bRB7fgtc9sKerLxhFiKx NNk9M2j3CojioptZ6Aqoom2GP0idJuDMb/pz3cJtCXsSrXZv8sUvub1+ryHwbq3E DlcCsCchZA+lxegfFYo6NmcqgCbnYESDyakoPeE8gVaiitwUAbn4G+sf2nOf27N1 hDAHeE5zXe3PHUez9jde2N/yc/+tDUYPVYBiQBrQYFf4ef5l37VT1YWsJpn4Ozhr CIFNLLupxuHfMM+1hKPNLHcR6akQviOWuDwuGnM8/HXt4YkCo288XIiGdOkUvscK 1ZRAvWu1E1dzMzoLv9VIXuiKS+BTU2svvxDj/5EdIrgmyl1gV++6md7w7P3siD9G d3UQRglitPA7VWbq4F3MAD+FWbSiZrvbUrhLEF94CoVbRpvYW199vj7lV32a97EV EuW+GKiiGv6HPZevJl31Lr85aUScfdPgLMmXl7o7pgLX2NTsBJ/Qk46fvmn0U0ec ggCSBjo3Bt8Zw60eI7K2wHeHoPiBFeTf9KEx4poxXPY++F3hiQ+hT0efdcVa0Veq AKQBzuImeg39Rx5sn7n1yUKj8WRwJxv+qew0Wa80fX7K0vT08jSCcwWYL/Cb2k6t 5+0CY6LlNdrFIhJrJyNy2dmdezHCS71LrOj2bEDlYoVBjO9KWjsPN/2T/f0rRu/F 0ywFuHYlbZ8d4+Hagy90bUrnCxXrL2BpRk/E7mRA4velGbjSTovxM1sccMuM9pyb MUOMP6O7SRu4pHGmdhxw695+mR37IpZBra0Dy1GQTD2EbqcW8W7/Gb+7jPG4vwOt L+IOUtrVS34Rfxy4trHjWsploye8vm3SJ9qjsv5aTIEg3llrdNbevwCE9Y9jlqbC RjtaWc3tZqPt7FGj3zyil7jRDkE9/AK/CnTAIhiZgDzDTQe46LiajYWfA9+LyPlK TOkT+ysvYc/LxpPclr79r4jh9L5ITLa2FX2Keu2c0V7VWiyDslOEGTIe4kTRzoiJ V5SvwjcPx/CJCe9OX0WIZ8S7SPaw7OwH4QDt0OV/aHz6bUGB62KjVGvSbcHD8Z38 ei5+nmgvUBmpXe7N4+LrNbrXrXSdmLJ/DPckY1r7BqO1u6aZjOH2I5QBdfXSCno7 D+899rHfGr1Uol84mQC8efh2pFl5hCw5PcNZhTlWYdTkgNn2j72ZKnXazE9PfNEZ bPJzATnF926MK7V0NvkFl7xJMEL+tKRTFWajwlYpKc81obUH3OrnGkUfZfly4R8a 6k2EGMtFGea9x56lHuYRz6qpO/3hWy0sg/lGV46yBn86vBCQKwCJ8fLfv2OYlA5S jOsPIPixY2NeTo5Ro9Y+QDABD9B1Koqt1v7iKqNUX9xV5YOijWUvxRSVGB8N0DU+ YxWv7UkwxBVhtwJSr47a+yriPZtcLMAFAtSfdKM/KFSgCFfMJX9othkXU++LqdQs WqzIY5ft2zCjwoWDlBo2xUy/0SCwDnvlJHzNkvpA+z2vnV4pQFF5EFUFxXB7TwO3 12dvJgds6vtNr+TaJ/UBGls793MC251M49PSRCgDMcTQomo0/yZDsF5PNRPSKbkQ MER5iqRmfMV1tkscoaN3asjxPeF5vRv7MGhMAyUpA7HuRjewTyQ97Xu7QPr+xFsb 1sZYj2qvzcXe+LJBt+jd/SwojcnLS+QSby44za7xhbC/OUdjH33gpW8WEghsJOCg PKa7xJwDW5/FAoo/sIqXIlDcbd8j8pu76I5bvX92bDlhyS/BBNkFC3U3eAsIKI4C rvUnMt3gAZtl+0TzeFOsN9Q0lvRgyPqagAUCVZKlToaZPHjr3fEHBx3nX1bVxlTS UYBkL1aJAJBt3CPrbE5krjo4cKPx8QED/1seW7QnFo6y7x31yaxYjrMIXqVBQD7D hjPWMcU14Wb/weh5j8tRMvKJP1/eaThRrB8C5x0F9Fc+x+8OAAR3sSq/eoEZjACv ZxlK2aRQLO7Y+53xnowD/ZqLN9smjxlacTm8yzlOXkBCDW7TSInbxlZNJ62U1kuB YQR7f86QiRLCcTObMQYqpMdBRhNz9xMIG1azd95Vz8h7ltC6EJnEKMdDV0obEAkg IOjAUz5mwwUM+qScjqIhqsAGQ2QodO+LAglANegvu16HpiCYuQmtBbuDZVHEnim+ 5JkV2hXbBlaFB05pmTaVCMQiE6l/FgBkz7xIl1lhJNED4rWnmja0WDdmJopYMpMV vWxz5RLXv1kdgHmMw6vBuRAgW8AdJj6UjD9FQShm27fF5ibpEJrs1K+jbY2+uDF2 naN1jQUEBYtyZ0Vc6ESVe2gNhU0NHjdD08sjrxPIbBaQUHb8fH9g8fGje+zcQmwj +2y64q8zJylVdssXMAk6aK7uUvlBW0vu4hpUwsRm9nbnWU3V7gOmIilswd2L5z7Y TPStszXM8iRTa9hNdvqB7sF1n6dlqKbROCA/FZcelNdAsnrCIupRYkBbY9iTtr/1 4To2hmLvxoN58ee2Ug9meCI3u0kHPiQdLZwzAobaLJwPbUieqqBP+qiCLG2PXA1b zSzdN4BPIVivyf0v72D6M9LZIkBHwgMGlv0uwM1D2fLsDq1fHbwA910/0GCBfzQy pLDcqZsJrejKdzzecvGXk8u94xHH5PhXujXswN23RS+4kcscV7ovaWRj1+KeyZWt hsPYh9sqetWA6LuA95xsdsE+ZHbMX/nuBe4v6cAzZSAdGA06Zm9/qyl6F4EdFHbD RCYXUfReZ5YfMA2skBzIOe2JQAYkk7dEwvDl9g2ex7wOPTO47Ed14OV90bsqcF9D I/WnIhbPS6iRLJupMnxRpxJrjpQYPXREWbbxfNlq8kBmg6GpmBdjz0WtLbKW4DUI IbTKE5aGmoex20tDgbSAzcbsUwQxrEX495s70WgYoVtf5w1Udxr4JvN8aVwcOlpQ GAOVu85TgQxzHbRDZ7nUZ0iG3tQEHdbhrabygAyjA2Yaf8OBIXpWl2tJN1gZ0TDg ihfGG0rZkmxjsKthEcfCh2sMcGowQ5NauCuKVNX2GWf9W4NfrQjsjZbS4xFrg9Nj 3a5NUEnahk6/GyoUvE0kZXJrHH6rAgy2sTHsr/FmzxNl9/WMUhNDXrK1BgmZKs6b HpFk+kYPgmaWDJCXJqEMO7UlS06nOaI8dNg6sY1Ny4XGSNsRW1IvLzzpPNPzpk32 roruz2xdsSS5E9sWToBYqrzqACrGBLkXYi0mnRp6Q5uvk3I5WxchKDKJuyCIt3I3 3RtAjAyvIF+ZNpfzsHbXXwH+tkokKIp9QOfuWhP4/A21KuVOnc3LFd7M9lyGvy76 QZ9FSLlBqe3C44DBgujMGtredw8zPg7nuysYRbEqawNnocJu036zBS55qH28gGlS PmXNpkTzoKNO2KNqODrqkVuLUMFs/bXE0Rs6LjLf5WhsjTld/yiDL+zFPIqtXKsK t+rNXL+8vJMmmkiYGrlcT3QzdkNePF3imBKpcBOeLlk7Yc0ahTckxuwu5b1wQocO 57qs9oJXuWCIJbICuvEgRVrkZ5wt9MUBAeAvrDizcZWcVtSBWN+GDCuECnr0R6aJ yxBNVZXLcNvENOV+Pye9gr6dxI3bU/UoYSvvhOiBq7wy+pbhnU/B3SSeXBpx/sQf Ls5ep84lLVxg+cw82Lt+icS8CzLomSBnmU6WpFQl0EIaYrbcuIQutI2n1ffjfF7M CdjXsMf3w1iz76+x1zlfa855BqgNXetM7iKFlIAALjePeCy7Cu3wjrUmN2b80MTt 624P2vytNrm6KhTpVppkcaqR1HVPtd8UWVuX3sMpl8KJE6EMqwBM+Ri/57Zi0dam ojnPgKudrS+LM/26b8lzkZFL1xpXRqB1hTpitv8Cl2djPOLfQokGtXRNRlNkqjjK ZJPuh609G21fXVPq65KEtbDABXwdoCxUtmMCn0Le4wUYFEuDYhEgY6oIu+BijLDL ybbMOYO4rjLfumtszIvjlrvt1Xtm4oV8S7uB4kxFvPVJgy/zSVvUefuyPBvEkm7B 79deUbexTia7Zk9XTWNXJzDsk3kgQmXJRi9K9j/zVnz3c6HXqGqFYVpuldGOw2BU RDuZeXbJb35+K1uDNuFpAJP7NnSSKpbaxNVeH6clcjuILE+ipb5rtKRcpCHu4vbM 2e1Hg5Nip9k1zMrKnX15cKkukxhsIfvHivpsur/mn2wS2MCmipzfM+KsNSiaEsYm o3r1xx8T9Wsrt1f4lcFZnb6zBB9yCIlWZKTA5ybj8x6XulSvX8BPgOwKQ/wBjzs7 fY2w03IABt6384SnE9BOFSiz6fuC48PnUQt/Z9rpuAFGG0T4vpYhOimte/4J6DDm cgI7X03HB554Kb5ZVnIhpFC4+yJszZOacO+N+m4oGnd18SfB7Xh363BM4Yb9dj3c aaBrjG4bss4UPdB1dLr4O+5JxCPM5+tLTIeY/iwsKqkhYMHJJqWragf7NWGhzzo9 P78+EsNwgbp8DdUTb6l/CLWqPFL1bsv79CPVwNPB/9AppWlrtl0fuzk8T0lcK7D1 vLDXGbDKiFYLycStlr0zvc8ib9/XEa4nas4ZePa8wDvXkGUEb+uzcFhrkmkOzO8m wPqcpNoE64nOQSKzePEi0IP2wp2fwrSwS3acyCjYwvGRaZEgwbWFnKuTGsyEn5yo MrbtxUzaKExVilDBNZ/MoxZc1MKJNmhHQUybRiZCT8QTt2tlXorT5Zlgfu78eVyS URV6uVpe2ZBHiFKwPdvhaqWjZ4FjJlHcizkXSyiTzi9sQBYKL1Zy8LNUCtPhduef +dMR31MZ+oK8N6UW1XmyYGQPkB8JV8QrOxZl5XExCFPUUSmaLevHOHrIv6AR1zyC H6HTFXYVNOIWqTHzhvwWeeYnV+GgCusDvcSDugJn17yP7nmVDe6y/0ye3cmqOJg9 lseNA7zgvRm6s4ThrsXNgKZGCBxU1RuLe4B6n0Dt4xY7S3BUlQIbLBtJm+1WUS1T YbN7+TKOpHzEA80DGTUEiCuZX6P6VWUMaeZ68mVMFcFNi4/lWU9svzTZ31w+IA/K lDqwURbDEnMu61WGxjHU2OIzA2ZL2Ca7vyvlKSwvnA+xrqk7J1i+wJVkvJ64Je8y 8TN+HlKKm8hdp392KOm+wdcx2XpOz5Cqw3gYtZx1shLJd9rAn+wz36jAbRxWZ4vk a9twsE8TWFZQ9KK3xEwx15PYtJaYrZVNF/a+fW6YLDTAsaRlhrtK465DXsiqtXvW 3Hd7K8yTIWBO1YVKXu6WZQUZOhRBAYhqSQRXlShCUTMBRSDx0YXs3aa+ozt8rOhm Y3PoHm7umfSC1Q25D5dhBDfwDtwqWm/+QD8WFgO34QvHRSwgZhUqqnba7CquJRhN 5JU1S2Tc3EqAMw5my1gITrk3Ry0jcJHFVgDuxR5EuQJlqUS08HocobdioSIYV5hp oGiQh4n4Nhij+N5ZIckL9OSJA4a8XsaCqWjh/vpwckM4bVUmVDcsTeSyp8cpkhDC VoEEBwO8FhBggGZJszWznQoQvBJhkhAmq6uI6WbaznjnU/i+6O5IXIGFjrbTM19x RDFF6e34Wc7VFNPHZtzqx1LFDkxuvg3frDve7DoEetfSk3pRd26h16mqZMOSShUO G1wtIOCnB7MpSnyogGXLxaX15r4JR0amOnrVGMxpL8PdKcYXa4ktAqlKHh1JOFOd 7xN8RaZBXXxmuK5KgRZhBoZlFC6C50hepyn71x+SIBYL7wedEskXiF0L1dASdp5M DOU1492CUdGwYq6azkDkZrAe/OdgtBtyM5WRg3IB3nRPgtee5H65Y0uf850+VH8f vU4RAkc4XMIMPKuYxS341kpJ50gwwQgrEzus62vqlUNObCmPjW2iiBs0hs4Yw5mF X3OJa8aQhAuojclVd60IPHXph7GGSD9WXcHDi9UPJQ1RoO1hpQqskyC+3ChpP25m FC1dhwAegj5DCWpw+A9viDrETbjk1nCNJanWyqmWVlcYp5QwEcyTUfwKjXRtDTja j6Wxi0igKzgLbLJWxCh4I+2ceNP9ta7uwY231pkr1n8K3zMhW9uOWpE8QyHAB3Mg E93Ct1xMOYL8bS7aroReD1d0J0su6y8XzrFePHfQZj7K9jTIlVWhtycSt1blMY4q VnpywtoARvCfYrFdC3YTFP5SDnZSKCj6cOAasbr9RvEyBFf0qF+i6+evKkj2JE6p why3JYgVM2Ug97tYDsMAw0HPSyFuVFRAKiFNAcp5yPzMxrhnR1dYw6ImykwVgdt7 a63gsczTfcdvFJYAcEKJ/I98rZr+WkLgBZPDsQ05c1oQ0zZyA1p95X6Y3fMzt6BC +DrLvV8myP1ehZtQxQwEX8YIMWlc+eoxCdMaemJG3pzgAMQOmaeLVnh22mofSZCL sl6oyhPzIhixHOZs4U4jsDFSndyGTZ/KCdAHDnqus4K2TL7Qmr9EcZbv1eB3Q2DK REdVrNd5c9pmndRSkXcopaArA5xbuPTJ5/tNyRx2ZoMi1vO4DvNaqDAX7q5MFhqL VmRxISgZcVTfzB6ToLnATGWWo5BhBXVCasPhM1Y1D2oWjK0YM1o5PnNl1Ri+cAzI zRSrBe4yLlisrl/fC2NVGIkO76ZAAPcFaRxvmkfI8ZSNxRIYDVipFk9XKQ5dyl+w FAh6C9YLDwaoS/GeqCiAoXKJuIaY3NBLXk11ORO6i4bxzFnxhlsK1kQqtv+WxyZf kzUgkcBguyDm3oVXEBvgOblLNecaVLmk2nwvJQq20xOWsxe9Oi4gL1N82VyQzF6C DQ6I/CbPQCTLRq6Sg3ehdVJRN+fGpfIZtEQ6KzGfm9jEwhRqWJG8cCOtbGi31Ksq voqLAW2SzrMUP89DQIEwhfsAAj48P3TFFoSLiKtED7AcbKpKwVcVrvdcXAdLngXH ZTgiGI1k58yGlx+v5IwlKYhvw6OLy4V57hXQFzNCuLDRJo84q0ZG9JJzxIUeEQav W1S84Q6HnteoSMWyOgJ7C3GnKs9MXcPkQaEK4hyFraVKGqZavNuXI0toWLvHdn3P u70i3LrP0IiMEDlhCQh5Taz8ZfXKHRoZZxiyBqjZqvzXLZQwPVtYpZANuyHxenmK KrZOlH+8H+9VWMez4N3zILnwHuWIZe/ntggbSB3bJJMtTUQ0EpBdsL3/4t9Oh7oj SwsnFmVtKN1zlODCWyr1lG37jH6wqmA1b/7pjkUgE1L048W93oXbYgsnMFXziMen rX3uU/DHVBHmSZwp4l6C5F9P4fc/Rlov5h8hSiVt8sAJYABklSL57jpFrY3Cfpd3 TT2cVk+oqJxfmJk725wg4EroyXmKuqXBUc5hwXV2a/M7cgExX5EJr5UJZRK1RyF7 +FQ9HOdZkLxUVl6F/tAsq78FRgLkMnbuxW0BQDW6rsFL1i8J0MszPNGF2vX6LE/i T5cNpH1yY0/iYt5998yza7Wv6Q35EngEG+28DoPZgaAL1ahKPf5EvSIhWpE+K4VE xK0L/2jfiipE0PsbPvKspohZqaKapVS1PIWQ6tHwSaLAz6naY2SX6uiaWqdGf2jF a0+0dD+Xz0UDM/Zep9XospH8Izc0Sdp42cQ63Wjuu0iFCPy7yCu/fExSVTy/EIZ2 R2+QaXDpN3w8fEychIQs/phsbKSy11cGz/t7lfmZpq30XFcIRiXJgYBFTM/CyBCJ 8wBujfYfiWLedwuFf8NKCj0VDP9LwRsleBZMHd6Y5ZlPWqHwZyuKcKDbjLBdjLOo hg3wemBYyojnSCnD6A95MpkmMVObMnyQHq+WlKtaTfHGGXOJS9pwf7DI7GChWEhY ghCyxv4LCah4RZndxnQSY+1FO8W31dBNL/m9SIWvGLv9d3pZWW65eiNQSgvS0gz+ i0WeQq/5nweGcSsJ8po4BUOZouDib9mnDU7eKG/z4U/ZZ3O8h1uXLgvmSRvyGUKC h7BAPCYrsd7lFVZ7PBa10JJAxIP5we8GUQgQjOVosX4rFbMIm0/tkyfWE3xelSbE FF/5vV7RkG/n+XXJTmIwsqnpv55MLFwhk3HzJs/K561BhHr8rLXfc+DkRBycOOVA ZnK/0aR8y5hUphcuWTXR4ncyJXssUaaUafOwfgqrqrYtQAFJEbzAEzPDQbGG7URM xiqG82Q6ie1rmdwxt2D32Kz+/2Ix9CZlq+dAU3kmqnAMpeiVuwkVaHgiR4ezECoW I4pohaFxZn4lO9+PgP1ehJFlns4BWFkDpLUmRBBuP3slU+Rn7q4jxK0o2HqEcBT/ 81O4zN1/g0LRI8vMrYSzzsKZ28ECGRurEOM0GETAIhy6HmZvwpFpPaX9ebIGiXgJ ni1UeCMX1qgRGSLdIizY1laKFWY0nlRFBEeBYLRChD+HR8jqLGmb3FtIYAvWbeRs B2I/qTbvyt9drTmn9fzT2ze/lb1fhXj+N+cxyS1rQmm0wuFE/jd9yPmpOxyZcrcY BSV5ztsIRZ1MkaaS9NkS4iemocce7lTskOmgTyO/Rfelsn7p/JF8A6HiDH5n91mh goCvjVDc+SPXv3FPU2avl3rUTYBYzmpj1SaFWibjIX2WCoFQYTDM2dYvlWlR+wV6 SeYWtnrGDtFOGVB4/sXpD6zBAF8JBp/gq1Dfw8uZM6Y1J3+27imaOjt9dPizTa/S OqCpLJlpZb8rzWxq2Xmxne+0CUI9elB7TxNMWAXfHoIDzst2m/UIzqtL/AwGnGon 0yJq95dFHItoWffNKXrX0C8frDphRO8rtjd7vLRher5fCPlSjbjK8f1i6RmzUNE5 5V7/WPLSELNV4e8fzBsy/ueL8Z3nV2Wf6wPWjwqfNGQsdYg8sWGp07XdYf9+tfEM tT4ua7Udj+1dKO1cKobGzHpHpX5R5MMScX+y1Wxj2hVb/ZN/F8fM/O106A3KSoox PZp/vM61HfV1mGnIGcn+6f19tPLOnRGSythzBm2peFl/r5ViDTnc67Loh6Xu8d+O b2JCstVcV1oLxbKKXuI3PSpy19aMqkQG18VDpwXUifHS2bRNdoDyI3mrVb5JYVSp 6asQTNA8zOdEmV+C9gzMpn0D0TswT9H5fqujWgv8bBqClDMImQq90vRb3FAJiUrQ ITiYINLAk72dEPgPH/nE8P0A6zE1NuvtkvE4gzszpzv2VCUW8+2fzh9WnqqzegMP 3SbQUiLCTWjZAzY70hhDcj+e6gzs2mB1hMx/N3raxmR7gn8xChMMh3rGuSgkPgtQ amDbJWy6UyBcd3Ek6HdUhC/a0EPVbtRHefgi4z5/9vLN5JGIrpJo5SnS8i6XpJJF hIHW/Tv+TuRpiW/vt+b5nc3k18r9wcXwuUm27YXz/45a1RC+Bm9DyCyhoB23ta3T sW0gOorOolDY9yF7ivFAnlHskcX28Oiwlnwm6Rd9dor1V+OT5D+n2cAD+Uafe1un 95oB4KSEiuC7mTweKuZ352IM8BEj/tguXn2b+frQOyjAgiECcyFbA+ImbBrLBaEh RwOfVxdwQWD/b2kq8Bgj8/f0e8Hz5GZqjUWkbbz7HaA8dSfqklipAUZmX+55WO16 wSOwetcjbIvt2avmZmBquj1GeRmyy+b+N22P7mHmNgZ9H3sThDtrlz37FTtJh5// fWFlqcMUtgrgz1EMi1GAUxjq8+Q2fJryOHtuVv6k4gsWDTaoZ4H+dbdazlu3JIQa Zx54tcS4vnn32ykkjEZD8qFvWtRN4vVZ2tGBSLK3YvLQwRn8KA0PYDQD9G7jxFFl j1mpP47qox8W/7rsPcZDm1Sa1yai5mMCBPPWVSPBOX8p48n/Xjse9nS2qUsOoE1f UqyEhOunpT+JecskT2vdxJ8LLmqvCYcGvce5EjCVK9voWE9gqP1yLg5IIMJ/7LjM EtdSS7MRAhSax8NZ5Hl2hyBpJbkvsO7CyvXDqZBKfHtmvl8xnnKDVAdjiLatQNig lkefqrbisBGUy4BlKxr5JD4259XPMaf7KsBcgpX4TthYuHN4/11PFEXUDAURwg06 h8syk9BFf3W5eT680rHikzveo8GRruDK9awR20e/5LPiVDZ5MAKFThwyQ2cxNn/V QRuH6TZOe6Csrk4JrDdTYByT+fySPMuKXn6FWwEqFB4y2wSk8DZYFltVtrv+d5DH pmOIp7oDZgYjkEJdavJ4LN+r2pAe5si0C3CK+NFnx8VfQKEIbJRlm+YCW70rR8jY FTtUe/dqsmba5hHrSdF1jxP8Y6L0jPSeCQSFQZRoH4Quuv3Gwuh9EC+iJ1LFNGpc GKBM5PLRdA1CGtdoUscj415mohk7dWh3f5vYg7+TOEFLb95Q3oobjnjC28CA0BiN FQbwocnG+8U7MUnWNvtuCOrd0hFeNSMTwfz/iVLBtjDLdlw4jXnuVOWnDWvL8XbM Y8CW5WeWFQyYixgPapib2Xs69dXvXpShIY6KuOJmEI0iAA6s1oboT2vG8mN8PDfV JdA5VD6wsjq7/Gzziw2vJwenUB/6aEzJWd2YLXvnnembqTQd1eH9WMWFAToexlGW Nyh80o5jKnxtBz1sjyArVJykJDuXpCXBge61DGABB+GYgQSGOQRhVRKZtfOz14w+ pSLqyJwdYoDWaYL0im4USozMKzp3rmKBHXPpSKjwZjqDuU3DEEAEqqgIeqielj63 viTe+EvVjbh3XiIBYp+lQ1nNAVMiql58WjFyYMBsjde9xqA0lAoQNZIvbcdfOf9x V6GnDfvejcf/iBgwmL58xs4vx1//GT9/Tf9nxnQE7aKDDNo0uHlcqUGzDuve1k7b yc2zcRkgRrZ1GF/l5rs3D1Az2jot9iTyAJjzPxqem1UYNAAA } do code
halt ;; to terminate script if DO'ne from webpage