View in color | License | Download script | History | Other scripts by: notchent |
4-Oct 2:59 UTC
[0.089] 28.483k
[0.089] 28.483k
time-requester.rREBOL [
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 |