[Back to TEXTWNDW SWAG index] [Back to Main SWAG index] [Original]
{ SWAG NOTE : The sources for these are included as XX3402 encoded at
the end of this file !! }
Anyway, I've 'cut' together this contribution. I believe.. well -hope-
that this code will be of use to some of the pascal-programmers out
there. It consists of a low-level unit to manipulate textmodes, a
mid-level unit for some simple Windows-boxes, a demo-program for those
two units and lastly another Input() routine (sort of version 2.0 of the
one I submitted over a year ago.)
If you could keep the STMR_LOW, STMR_MID, and STMRDEMO source in the
same .SWG file that would be great (so people wouldn't have to look for them
all over the place).
{
STMRDEMO v0.1.0 - (C)1996 Eddy L O Jansson / DFR Research & Engineering
Desc:
This is a small demonstration of some of the STMR_LOW & MID routines.
Notes:
This program will demo screen-modes 3 (80x25 and 80x50), $55 (132x25)
and $54 (132x43). The last two modes may not be available on your
graphics-card.
}
{ -------------------- CUT --------------------------------
cut and save as stmr.xx and use XX3402 to decode :
xx3402 d stmr.xx
{ ----------------------------------------------------------
*XX3402-012774-291196--72--85-59206--------STMR.ZIP--1-OF--3
I2g1--E++c+6++mLTG2Hzm-oH-E++9pV+++A++++IpFBIZxAHpQiI23HvHnxQletYfyb8jz0
JRz4hI+mMA0CswIjyk6qXfbnJlYQ7tR8PMYNqQla452XML-GqPzxpDeM1lU6Rdn2SyytrggC
IejJLydiGHpn5jc0ifqXgnwCHmtqs1BoGHESYd-1Xos3514DkVYP0nyY56e5P36Cu1IBGj1Z
wODDXlx-D-OietJOdENZ8CuKOfzxhUJhnvi-EnW-zt9cC+hV5TPqny0AQYcWRk0zEXiwYbVd
t6RLXlx7N5iIit2z2Xs94uc-rd16NqAC+NicSG4mh+U4YYlzB+u6c0+YgIB78ux+RnkOgIVk
Y2oox8W5S6fRBuyPuqzOrKMdUMJWPODyR5D1+TljzPY1J9UZ-xvsYFWH+9diF4b65IHE1tXv
ANZFIUUYx4+sZckAKIEfo-js5CHzl610Sa+3hEt6X+Gj86PCCPaWVfQKjNE1sMOBkGIVX9ZY
+r4AIGLMCVln6Pi0EC5gmCNWOER42LCdBwMdCn+UplFliED4OEUV2mUMsbYOZLn4cMWlv0BO
UjEF+FAq1XkBdo5MBMo4Z0VVgIiQDU6udStMY5t+kJRBs6RiADNccjHyK615kc7Et7Dk-UTv
cg+FXxKJNVquJ4W73XR8CqbHeG-fCs-zCm4Pn2W2kiIsR342j39Fe6uNc3l9wGYQgN0tUsUB
8L0hSYS7-MaGM67uYe08+ioWI4l-2nw6U6L-1IlMx32ykQPqpXAhLwtNl0jE7hmLzNTyZ5cO
FORkHJ3ip3CY3Rn+8s+TQV4B3Mp8z-7jH9CKhqK3Q2u5zS+4qMS05CK5JsIIUx+FWjKyd7AC
qHIGfoLz2GInEJnmJm4Ws12tJVDJCZrjbFMsv7vphDIcpW98eJ0nQWJqh5b2Vid-JMa-F8+o
W1q8cZdt+pU29skp1mal1C0Y2WQ83ZYQ2S2C3Cunre2ZQI70cR+culZ3v0cWEsEqSZ5YoqgO
eEaVg5TG9O-YCDllQjN5Mj6VoqVEOAWGb7s2EEIu-IyWifeWL8yDDl5MWxV6EkK0LJ37IdFG
hXNZ476PFNqWq-qEw2efMm9PCsKVN6Rn32NHWAXjXkLZnrM57B795lQBEFjlZ86dwF0ha11c
rkXoCCyAjFfZaaKg-ckJKXaJEbH7Uc-BgAJZ5ar+VEEdlbB0xy+EhYheNi684Va14ofcYDiS
wdAEoJ3+L6AJ+gMyXYRZjIUbjVU+3mHoG6Gi8H+fPtSBPW9zOW0Asv4SOjygrPtcbfIfQAsd
yA7-jTWLByeFXm9Yp-QJu0HeXRQadu5m3IA8-+dWEA8DmYO+ZcT21lkocm4tuKDrNIGdt44Y
b2Bg+kVxHGKEFsq1O8iV1O0SRzC8YqVQQIJ3IcNzyvv5Xhix-hEPxSfKSbpXEnLzRw-46lfd
bidacvOpLehK5nzuwjVFtvXLDhhjvfMFCIcEXSe6H9IDCe+c21-z9y3tTETVfUZ8jLjVkB8z
nmMqk6LjWE54EiUSf1f4H6q1HgYJvTeTu+lc+kpXlkmuSBcxS3fLs-4xlb1sljQcIu3NUvRi
-2KDWW5vW+tbNquQAXwIBA9kbctGTQ6dwG98CJmmG9ahO5qGC2WQQjRRHxbK9Ada374PxvJ8
NIOW5p15Wjn5XnuLrwCyQKrEEEciWIjVEzYCTpxECuQqx8ZUW1BcTUn3mBSMIkxM88SN14UM
FnzgkU-6+jyH-A1E9Fjt+ACU0ixIXoH9j+5V1opQHZm3nFfEfP7Uf26uSijlm0C0Qi-gG2rk
FD0fUDJ7+BQYwZ3y42jsW9cy0M6P-K+3ClbsvU0CnfgxFQE6-2AoW9GWv1XBRV70ZI2fDxdE
PUUXOWlfVABQ-ooY+sa88HL+q2hul4i9CSvBuJDKjUl+qo-eUcHorG0GA1jddboz019gl8vE
WLqUBivG1989m-TovHgnv8rnHfCqcryT0xu+fcehC30ZeHV065SzPNKfjtLfBKQyDmr4jeK2
EwuJNfpsm5A5bqepQbo1Wdxcl5Hs9abbBNyv8W8-U+P180M7fQ+iYtHucH6O6bZ-H9UGhJKO
I42hKju93gihmHFPVqot8W6r43Rde7AnZTGd7+N1U16Tzz8GFXEI7jNDI5AQOJ+73S4M4E2T
IHbhW55iGnn40uSG8wYJYrBXJaZH0NQ396cHCUfBU1A9zAGcNTR7wgUwyaHCX4rb+jrhsVn4
W-uyFYqAJoFzFPi6+sLs2vKvG4SfeWnl89RRRPJOiPNpClqhfdZNpEWa3tg81xQosiWbt8Dl
kLcTF0roYCW2L16WW-x0EJZt4NAoLeV+owM-RUYYnhMYBVcWm4mKJzWf+Dlaq4S-GTUYF3wv
zN-CIVW8u9XLyrt6cdiGnM4aN1U8O6Mh6zPbHereGCHDbenJKgw8lmkG9DnfDsvNBEq0jzvr
X+uNFBdoQTRGo-tn7LpPNKTwCHfUSESPl6tvKs69BLd4lHU8iIrNHHUU+U9auUosObU-Zt61
10O8HwCByNr5fCtu8Aka-f6ugpdR8n4PRCQkP1Cr5wNkbsb-f6dp43kg-sKUZs5+73-Vl+qn
Hjg4Tfbj0luXGmPkEsJ-vtwac808OwravasdLwFDiVadnYYwPiyaqfhlSpsOZvyyP+0od4c9
9DoEXIWWjf9Mo8j4dBpytOJ3AWjGD-5Z4ybCH8fsIoFoXohonaWy6dKwtSjMFfCCTtkkjabt
qVJekiuQO0KWS5patpWuKiQZz6r9RNS46f7dHlQOCgYlVjXiCwXwZaad6H0Ha+OMLudzrWrB
upAvL7R32SIX3bcOVno8KmFZDGgayyMdBr2oTMiYNwsuIcZzgiBvAD8QO-dAbdRMuCv7sQZN
9CprmkKpadmGzDcqVcOwJPxPPXof1gChGTPJsOfBb3LWvCf93ItdRZBFKZ2yww7dgGYip7H5
IoQFXXpjm6iRrw4C3Ydc9m6H6B+uSKhrUsaficnMo2PDhwworSySOQd98mvBQSXF89X7KBwW
Oqil8Hem7yf7iY5t0qYwe3Eetj2BDiM74g3L2LFmPjon-NpEQRy0XeABLm7dZCyR7Kq5971q
HsbeGkHwumqhSfawPWAf-HHX++tF+UwUNttDaKCd-1HIXoGTCpnuPU7NIEW8jXfUwGG1i3C-
+MjwHyV9+yWHO3ptqizV77F2omeMARwrFZ5eSPNRzQtLocktnmfdNqLhAtZZpbWJafufCVOu
YckuIW8z9rLYS7V1mSq8XiLt9PFkjBuwVE6khIzKn5qcsugGjMgoNyLtNgM59Igzja9VxmLP
DGoPDCAIjYg0bNkJKEG3DcY87SD3zl39yzSI0N7NZt+jXSLGD2V7HQZhFaMnxfQgYrVUAcjh
RPbAohNoHn99KPSrmkZyg8VWuzcp9z6g3xZRl7IK43tuhxXoBFKfN8qGFs5LAwUXa5jlSvai
KCc+-FNuuHqqb1+Ir3sH3m9e0V7S-PGk87imltLzw-9GTuz+5V32LSGHXnHI9ZHtK5qTnr34
RFHul-E3D3aI0VXtbMv3YxkfWBQIVlR56fcaYTDquPibRJqyZNPwLCuekPC+QcfW95Qdk5mx
se1w6w+i4oQizL3OD8BwLcy7c2SOX98xwcRzQ2LUvyN4DriIucTfv57ZtPma6gzoiqv2Ua1F
xa5DFyCG2nfOMTn+X2jF-QHKDZdfpvSJKCH+6j1M78nAIEoSjQHWYzW2jgyaecFAcOl+n-HO
TZLJfNmTebmWdbvgbJkQJt86cgiiz0+k3Gw-pWYd5uOeqWECGF7mZLR6RcuZOOrCGPQ03pVE
Fs67iS4433HtBRPV1CYED2JJQ7BPgR4GwrooGZ73CsoKMk2ZsLTrrapxUpngbNqrGmXnDNzf
ZjraMJQqxN4o0V6dp2YCIWQMe3tRF8UjcFKq+zxecAtrcDWmfyf77+9WTfm8q-XnCSnWiF9M
Nu5MbavD3b2ELvld5KN8EcvMBRqc3ux7N7OrYr9MwGbVC-Hur50q9iEp2mlvNR0Oesqt4B06
jgqdMZ2RvlNJlymC6wuWy6MgSmOjygmoOQ-G-j9+xuXinHETgqV6UdmC3hMQlyqubee1fbZ6
Eu3RmHfUmRcRGeeIYXd5dsThczNlfxbfb-mjLac2HJDdW5EFDbnwG5NT+lYsJTgMC8Ocp+w3
fBJYCkqxf3FL8J7OBBDIqRmjpUTaNryObepK5SHABZjUh++nAZ3vPX+h61mr5adpT8MxQAVG
CXCpJ+ilHtqpnFUbtEuNdWN+PQ36F98XwLthSzC1cgD3jaHaiF8hb9YUc-n9HVkHfpHZ7ovW
HVpPksVhT-0dhZcAU+FKLxGfdUEmCIpusOFqU-hp8D6FQOZufk0km-IkhD775dqreFj9ABDw
JaM4HWOmi9dso6cvLPXv3FNiIQ0KcsvFa+z+klUtnscWdXxJpqlMrszDzObx6I3JLH6OVOZ+
TByTTYWBSvhcbDcFS56yvXjbjOvwBKIccM5XqcI6Pa7ovvaDSDxodtzU3NrukVcTxyKH2hqf
I79Ro4BtrzNvq-wkBU9J9w3kB68BN7jWSu3+vpVGxjxHlhNapHLJbAk1tj3yiXntWcdAYEEK
2lqexOXAC+ouIRJK0T+n5ToJw3ophq7ZqPz0QfW3OhnVGDaSkZw3l6u3qewYh395hqUCzYH2
Vh+MMokQcVvr3MDpZ8JVL12XjqM+uM0rjBUgFyAzKgyt+RJ1VSOlgvmQvC4mwunqMP3yZdSA
DFWadUaGCFpxEk5K+p9OvY5nf9bPOtz36qSAogbDvatRITK+S4vqSaSRpbajjM1bNvIZL8xI
ATK+13UdK17gaqMBKiLsCRbvGZJ8Dm7wkaTN+mxpEN3feaCyd9-p9qmol7UlG+LGPdtrkh0N
XMKq26K4JyPp8lg5er2IB15Kla2Gt9uHlT43lVES3RIYWKGut-IiJKxTpYGYli6d36tRqqzb
XFqGXlFTA+el4ZmxrMYw55NPIClHUQ2Mnvacy8TS-0KqYIi7Gk6L9jpEwdIu43MXArb6xoit
vpnNxKwPz7SpkPz5ZaHpKfmzWmZvImQZzrzPxTrMRLfPcwn9FQDme6hGEK3xEa4d1kecnp1M
fRDAdWqYNfzYqfKWg0Tv8BZigFXLXQfpPB9U-dcQDUXkiKP6h3EWgt7LBkJCv8fw3xpwrYxZ
OKPlTsObHy5YhBQtujlD4rc5bStz6ZynDY5PnpFdEt47evYlvmlmf57wBL-IYJ5cilEOtK94
0OFRWXhRx+duIo6Qh1ij1rfUsXI8XN9pQ7z7P+cihXhYyu8npnhMg7b7aW2Ony9w72OcNhNf
NachIXNf5XC90kKxgYrQiEXq8nM-rq6HTrhhdvRlKKobKfNuzt5OjaoVvh8czwrOz5YOmikx
ttTXt2SetIspjkzeQBV8tv-xT-wSvqimiardvRx+JbTq3ujMpEdpgExSF9RRg3yFmpreKlzm
mKXO-pZIeNbIJtDSpnzAyCb3VucnZnylN9JLKm1HCxGzDiGHpziHeHqojNBIJuyETQ+bixwU
mxl1sRh8wXt8NtTum6JWhMQGiRneLbt5cTTBIMRJQcfgpAa6Ibrvm+vWgtR68+HfIqBTebOR
rZH9CjD1YeFvg50Yfkh59A8-YaS0OpuXBczmQDCxhfKpcod6w7VqYe7GPTfJ0MCOugzkoy9A
8hzFrvuiBfibYQVPB5E5El7xxACf-VHJhn1J-vu0waZhMoBzW4vrgDluvzbalZPlR9RHUhQF
4EpwZtRR2bbadMoI8GJRPcWjSg-nNyj3ZjvW7hOSPpKbxKfe5FccjhlmhagpdpuhuYzkeMd6
9AW2HF+yXWeOPrWKyqDwJ2s7WhJ8jNs+pdwbU9e4gqFqHQJONKAP+PwgACTZJfjEqCz9b-D1
XEztZ9taJvyqL1kjaQnNdv5QzjmDZCKOcLQmJCwy1DIipQonqywej6HnYEApyRwxBUaHrPQe
4lks8Kzg1dHan+bNKzDcdEzF-cavFgswSkPc-Mtf+tZwhdge-FAY3N4pFTjoEzh3KpBOz0Id
***** END OF BLOCK 1 *****
*XX3402-012774-291196--72--85-26461--------STMR.ZIP--2-OF--3
eBnfb9JrRLKaCUD3QY9tO+tvhz6893QhDZtKIpWfJXRWgwbIQWuNmtPt9WvOfBJeeaUHxwUG
PHxMKW+uKrKviClo6sr5HiNC3po69mvLLHm3RSPipB31ZcgyJSiv2gupSfJOlHBnxFpPz++M
Tfa8yCcfhiN9dM8-lzELCQp5RprwlBXjXP6ypJt0HeP4S+K0h4aNhT-WCStoaT78e8gfcnMZ
sbzs6LcBqOYTWiX4ppfBxPIxyTzelXcichUvfqrgBI5LYOupBaLzxfdROD3NwPNeI10nWz4J
fnuqqX+B4YxvRnoBcq6B9aZjag-gmvbOpKEixF2qJSOPk9lsjfuqrodUh3jIAmuWVsp3We-v
daQHuGbhlDGc4kgn6rlNJ91TdpTefOEtzQmfQ337zefpodZPW54Yjbcr6ZQI+FWo1d71Q1Ym
jUvk2aSC5jbhwc9iv1g-GmV9TC9+gGLBWdVej+-bOfmxMC3wvz9aOrvfT6Aw7RnuhMcQ4SW2
kWumn-46ZthWQtiLq8l-bI5P9AAIJjy7-najVdCY6Y5yOCE1aTZJJX7IBq2e-RbO4aFH22oX
Jmb6j0nAdqCh0TiLI1mWkzRfJTbLK8hiPjvq+NTHyvILZQdOjTeVVDsrhCae-4qwD-JFQOoZ
sNpe0KX+uKnLhif0ZxxAzTlbX1jX2TnGjTX3YTwSz+8zkWwbUFRzmjQLjG6nOm0hMBonxkJU
jMDCj36+qPhUrRSxo9ZTeWezidbUhKwC95pp65Zrk06xA8BWxYlaaq94wlpqSMaT1nJxhcAM
6p6zAjCvIqTaew8qlptqeuhCYuRavXSnDvV+Yra3pvas4KuYyRQEkr4+0Ow4pdgwgqyqUp7p
zX4LxWq-XAsYOEQn89L819-aoBeXzKyfzPe1iNr-jMvKuSBLWdAftwyn5weLXSrXjQfXFzw5
I2g1--E++U+6+AoRT03JISirR+I++1oD+++A++++IpFBIZxBGIEiI23HpJRRPm6r35p5sXxQ
fJNZK+lV-d7aEOVBU0Fo+sYMBc0WRCIk7aAhX755EBVcTxIyhBdyDjGVTSVHDuHqdLxVTo9h
wIkUT4qr9pJ56XClnvbbrChf1nnre+0vJKyyeBQeFPU14zDl25gyhAWhU1dn01HNK30Dy41I
eNASY+YN7C3pD5MLXw2x3mPNH1NXEVeAQh7wybEDecsnUpAsUwxYC7xtg+CJcmMoWIwkvvbk
2JGx4laLQCfRl4Aeq+LaZ6pxS1GAV-s-XxE3+qaAXgM19+U6OKwcrTYNgASX2SD0-nZ2D6Qs
8dFVLlkT7CQkAAmQxGGTEu1ipWs06bf7XBM3SD62KWvpUTdSEU04DjKcvl65-jGOMnt1I2gA
kFRoA61fAFosoXD6b6EYNGEvW4CvoYOD1MRmoWzco+oaWyWlbgjNY60jfKfNAVjBC9plFEUB
1Q-Fgpdh5nGf4LXi2u+0UQm+xaT-cnzW-1jmAECpDgnM48PM2w311rjUmk8cK369Eo8sq5id
tV7+oYBA-kUMZpKQLOjdDWQ2Sh62g1tALJbJ0S2-SY6Ym03VROc-hE-29iWbDiPXH2xYd1Bp
5J45BOeh+ZU38virMyJmkT0n+FiB0BQnqLn-rBglgxZsv5IwJaioegqXUr6p5dDdyPe-HgzO
FGIaNWAW7Mws5d8KT6Pk8c2hJ7hQvZo3i-vnT04-9pGLtfCrpau2VA9VH--7S4kK6w1ySY1i
5a1af+L2DK-rJyq60y9XhCeVHpHHnkbtr0cVjoeEZ+MR--YJtcaJ2deO8CfvbJkBCELNEACa
rWfVVnRzTjTx5wg2Am-Iq5WJwDDPbvvuwShZUeIJ7aGBkhjTjzXZaqJ0HVBQhYPVnKxTzjfh
AW4jovt9Lw9FqCg7mXmcSM9kDisFi2fzWmg6SAtNXnVXHg1iQI6wKn-CX+basTw3C4RIuGG9
ey+awEBso1bf06iIBjIQBXpYhm5w3grE39bcV-s6kR2d0qu5iDRGDFF+fLxF5mH9ZkukL9dW
OAD3IYTm4FgEv4qoMMIyCeW9qiVYiswBWijhVTtC05PCyXtGxtJEOd166Po3ztbpMstbRS9v
y6PAmqUjlSVeaKKiB2+wpHIuzuLQ1peh7Xcw81xP78hSekp5+n8IH-lor+uIpQjfuhzpKepy
TZehJlihUpPhfD5-rLRBPeUb8rtAF7oA1Mp+tv6OBboJS6Muat0QNQXdmwS5yxZg6Gij8uGV
bnz+2gwdffDkrduCP6FOISlZnESyXWFaUyRJ5zzVFcZmYy7Z3rAJrsXYqskvFeE8xgYdv0RH
CGj6fw9lx49CG2rH7deZHCGa9QrHdWDKaFk7r3lOJwZp+FuGRS9PmGQ9ueNmz1umiNaQQeLx
uTigFk3g6W7udlhIOuhiPVAhIBp8rJpDpRLSPXOzXHdLrYHT0yao5rMB07ScFcYOFWxUhDdu
yR-ykB2JLekiacNHijSrv61zllYR3K4yQPTvFM2td0A3VKVn8YWbKnMu8HAJSSd4j2HdrKJW
4NRTk2LiYLOw2Ncu7RuBQ6oEhe-kxOuIK5wOTSV9Ns8tJCww95MVD8CWGbI87QBiUoAbM0LH
FaX9HYMXNhVgwsbuKEKgYVbo5JF6nyXc9-R9bXPFDG3ZcFkmfMzZ7mgzSmXuycROT8kDtH9l
-0S4XPffAzzUJqOMiYFoBuTSNlmurI8dertvRJAbOFAQdbfoTWgh5IYeb3EAxeQGLHduESrd
Q1xrIao3Jev0CJb1PXTR9KJpsQ9hDsROJXM7NC0HBJDaIlp2JqP3JgeI8DYbh8N23kyCl3y7
t47R1uj5hMMAQuSIleCRaYQ3lEDuGbynS-qDJFiJH1nqBp-9+kEI++6+0++l5rkVVpR7A-28
+++d4+++1++++3BIHJ72FIpD9Z--IupMzL9OmVLzDnBtVBstRy8d75gVYU1PUN1KlXXEqi--
lBVBrQu0pYMHcOKGg8LfWFygvx1SJyeSLIY64xwvvOob2OgxLvzngKRrRF5mit+ik-aTXovM
UfTSjbZwykPISzRw0DRapOeOI+4xMpUTDil1prJHC6AVz6Y4IQE1S+wbdmAMgMXFQ1O5roAr
iDA0lY6ji5jvFWUvMR4g8IQkbbgFW5wIcULpTL03mG08EldvEVCzVMUj4Dv4QmMlzDpgC-2e
nzgb2D7J9DF4JOZek4AKZPIiAowSj2kjF9CEgO0ms0u9c+PucNbM1O0-0q9IA+o0Cso4u3PB
3jA48Y9OHeCiticpcmdIAz-d32Dwk23dKh+I+Vv1Z+4xdttDdvu+5218Jm2e2GWKQqwKJKMo
R+LMvkXmGmEYQsS65+WTKYWuD-c7gGZgz1KDotU7AUlxpt3yNDALr+hW3auEnUKihMWU7-N7
fNT8rfstLEIn4ScFcyuTKRc2GE6jw2JcxNrXyjgRwz1xHiTYzMth4NgmUjwWN352L054iQxc
6-WaH4FPq0lFqyRgATauMtdpgmaSph5BlozDdXcrEdE3veM37xNbK+zEVyMN1yvuEKkolGmK
Yi0wdlXUe8awIhBT9TCaV27AubrW656lPfORYda9YAyMikcNXAzEqmi9L3jYmWPLBXG38LMb
sefgRvXDElIrJDI6lw6p3gndEcg+VK2GSb2ggb6fy9-M9neJnlRRa8NkHgBjQAdwRo21y7uX
xgU7wqBudLuiWNU8JciZZn+z6WuyiZskgkUyPLlBG06bYbkW7OaQk8SBKQoVfvo5NODNDdd4
Sa7L2db0PDdOHORq7Qqa5u2TS935TSwb-fUQ-RE6dZHY2+juMSvBtfVOoHwjQBZGF763AP7t
giezclPjBXDveOrg69x2+m0-0Hg7ebZR-TsJoKUeBJRvJWibiQqqPiwevIN3YRR2X2cnhlrB
TP+qO9MEJgFAobX4Z0U3JYiCP-nZd3GFn7MQZIX01F-MKS3VyhxvS9rRkujAkyih5ZvxYcRL
aSEf5dejSqVhwn+fYbDuXI42umOF5H83-Pz5Wd032LdrwpX+07ZQkp3F36bp8P3Z9KF-mZ-I
t4w-FPvOfQ8SY2mhHya4N+OmYWf718Zw9IYyUVDHI4+7uMALr+4BsKBW2JGbE0LBRc9WnLNe
NF6bUZSucH8Xy5-BSm6G2DBpog1ZdNfCkySki1CbsRKpbd0In9-h42JgVGjiFvCo5BN9cVzA
R3QiRghcmPRgjKRjqK6rd5RfsL9BfJLM4mfg1FKqgEtEbhGL1L52srnrVu56e-RE5o6Smrqt
AgDxFLOqC-8Diq+ZBrvxXoiToKf2X5KPQze1nLrg8+ldyhKgJip4skNrxbLLUWKDWDVDWRem
2dgYBHaiYxEWeSduBN9KQH0NY3tjqkvdnA7BYyghQhoN5u2HAVcnW1m-5i7WNK8i9rXIP7iM
PE3Gt-axy0caPtfh2Jw3fVuZIQkKJQQ9R14xizHSKzOVgMiDDT3cGLXBhitAkDLikHMeBgvp
SXXL8wx78+ux3z4Ygqxr6OeLC1uny7khRC2AiO-rnD3yYXgDbDBvJfBpETiuQrlcaYpHzBoE
kTSr1IOdS7FZ15nCZp8hU5i20pwAFqkd6e18jYDxqQf5S41hnrUMg118npp9veRrD3-f+Gg7
ZOWeLa8YA4Lm9P42Tqibxps2OvYNfBr7l70wC02pd2d15e6x5GCDWRJFRayzPVUrivpS6JIF
spM73V2Q0cfxau5MzmwchRwAdTPzUZ9znJ1ezmCIFvkFl1lYkDBywenWMI8xyD9sH97bNGv9
ybahPum5XNtR9ZFpddAbLykYeIq4cOhfiteVt18ud0EpYhOqomI34p-xCppGZ7IByWe6DPxo
04v7-FYmiJJyMmbQVbk-oxLh9EgZs4anbFr03Shhm-WgwCWp227V8dZClSGqhj0mUvgQfqim
USTLcNlGr94MCgdBOSHBs6kzyCmSyQKxOhr2nv-vZ-feV6TGbqBmRIKifpxos+hsfE2Llz9g
tZD3+uTmpq2lLdLGv7earDJwLppdRAgqGQoiCVgShlZqO1matjo8FGHVuZcrWIao9lQLrF4Q
RIz5o-aC-hqF7bCHwnWHWbKstVjpDzRyWR5dJGmW0RGzm4hiw1qrLE9zsAJnY0Q2D1exsYR5
Ca6Tz7cjbQ8NzRejyhD7ELucjMPniJv7PhLhJzqLXgaJ88zgAsMNNmv296afoeCCa+cNu3dy
uGxsO+lsrEH9p6VZGjC8iPBaXXYjmpGfwiWtWj-U7sAcF0rGC0l9QtTdvmlvztpE1BahyQFP
g010UyaHxgvKaW-yfAOS2kh5XHr7PKi7dgEOdNAKU4He3ImU3u93Igld-aX2r+l9DAQ3DSI7
WpeUTEtdeV2sxZRACj6NkOYs5TA2Xt0uNF8fFYHsPNAowVMiW2RlXAExKt136qSk1r64ZAuN
ugVI9tVktSdp4tnS4FkOSv7X5OaCxGm-jS4cztTVM5lo7bCXWV97DEai6NFVNNWeuzofureG
ERcKW1C41zIpeM1K6+QNSQQwvBGr+9XgXgPxnUjnZtZtJN8NyLyKn3x8zTg3EwbwNK5yc0+9
wwSpn5lSwpUr7eYFvSYDdGYgZPprCxPlbXPUMQm1dlw4z7vtzhAzFan-MkN5gla9cbktH9n+
tEwW5nOa2erJGIDYJDmn1kXqAwgKAT80ot+i48tQaqUZ6IAXsr0ZRfZWKfQgeOd4ucT0-uLZ
M3DH8TIXhh4Hg6uYhsVwETqGDUDoUACQINS3-AEkaZB-AfHhqwc7lrh-h4vZXp0Lbx5IrGRj
pYN9rYIZQuisHK+G5o3xRcDj7TvORjuAiq3ar8QwW+yHkpNqorr-9GhcRn+QRrTlEpr2U+f6
4xzT63emaLTfnLu29oUjDVDurXQ4ahAt4dkDHveOLDXuR-Ksn4SiuhJX3WuwUAPgfujMwmA1
htxP2QXGNnzgRhY5FjaNvl5IpwEBPrQO1TFravTeCyAnvjdqvXktlxrDzQ49DJJ2saCZ+htW
mQCM-j4D0Z-yqp0P9083DNW7iC6bWizDDm6qqlQVizTs8ffoLANl8fhV0EM5HrBukNxJTIwk
***** END OF BLOCK 2 *****
*XX3402-012774-291196--72--85-63151--------STMR.ZIP--3-OF--3
RZNVlCKBHfVlv5j-BrpRYyIxjJvDxbEskcxbS3JFZJYud3Neq4gCQ1rKH072bbRsvSa50TBb
q1B2Ea9Q9ttyVsSTUHAS5Mrvkw5H1rWJkLvTo-kOfVMoWCHfjXMK0ND1+opyBQLVcHP8XY+O
qTwpR5f1mcRmNReYMF49qCP-RekzLsmuXUBDzysClhrFowwk5Y7bC-Xr-pyuC-vriX1cLcr-
uMmurQ4DaZEexImPPSlqqGZFRPJWCQfIXgAIMl1a7qrT9GQOxtZmehQphd3oMtrWvAWyaSHi
s8Huxgpz+3-9+kEI++6+0+-q5LkVY6qpwbAA++0E5k++0U+++3F7HZ-JJ0tEEJChKLhj4YYG
zxyGjoDd5-oU1lX6qguC3pwQH97Q57g1scSW84fDB4MqknHLrRWkphtbicxsJTqM4P0Hf3Mr
Wa8aiyhLnuuevVZ6QGTN1APxP9vEdrkaXfOr5fSr+4tCujxuplz0TPDFPXGV1hJifTLnnkTE
WyAJbA23z7BZGcYAxi1ovF04L52acmbw5LfNLN7l9dDgPbg9gIutWaEmpsb6EXA+Bpk1msGS
QUbzLWGOklrDi4Ed70E5G95E0B4+Ysb47Ei3I1-PUIVXiCRG6F7AV0Gc4QhKg29K0V6B1om-
HaMQh+175mF-sz-2WVYUBvV1t0m4lPk-sqa07AcAGusKeKsErVVTNykr6G3C7VAiSFNljun0
soHL5t6g3UwJI6jtL2XRU-ilU6VZE9CUhBIPY+Z7oRvTVqX876hE2qGM+MC8Vl+H6D3JwXhj
4AuFW+orOtEctGk902g7K02LBFI9BA4IrLD6-AmZi2rtH+49Mv6E0WrFVTToSw8NLe-S1KDl
XsfRQKTwTeMoNn2lbnBZH7g8LJ3qE96NBt6GDtd5SGKDV6kPo7yMIQb6QEFZtXRcX0KMGh6J
cCrM50r9XTJgX3JfiLShC0CioJ9AHExtZ9DfgXEhe-sGDIIQdhqwUbga2sM4OA0dw51bEbDZ
31ISXh2Ue118H251oDYtMe6JHmSkI3mVUKTQ0uNgjAlK7ftKA-dz45stivUmpCPZEzwI3VbG
tnO7FJPFpX4cey6-iCq+PoP9etBrt-yJnCNc4FyPN7SAwtX5A3ZY2QZcf0V7gUNQG6V2dZaY
MSMIv6ftGWNrIppK2jyx5TNuJmT1LUBxHH2Tk2n2mKFZTeet76wbCdTrUKIuRtTWKKlotFGQ
OCDg8wpJUBRb92Y12bn4JfQoDN4QkbGycb-tE5TkSmvBubjOC93rOwyEVg1XSDJOAPZcF9e-
Yh5nBcb3SKwQEXhgBkzqqWxTai5reNXDiPEnnNz0pg3SexbQrjdXSygXyQXv6T+yC07KqpjX
ao2DKFM-p64V0F3sVDP-6RmiB0RDNF3O+IKkKlFGbhrd8H1ZDB0+DoXkuy+4z-CyER8XzDIF
-Y6Z7d-ESNie1Ao6WWQQ4TVDfteTXknBlI6vXZKPNqeCG1CdFxwUCiIHVYixf6PU8cZFrax6
NWRFf38CgaETqD8ANxwUkwZYhdUtDbJjYnEJ1nmaz6JC9mh8AeAFbVRVmeL7j6dK4I2OI4yV
CrVaoYpNaHQgyheRAaaEu2QNWGNRegtnNkBqKcQ53CdN2b5bf-AdlMA8s7bboKm2Gdl6PjNJ
-NVNz+x9qQwIFm4RJMGUJ5jY8RqYY5-lnuLNecvg76fsL6ysBYv1DuWKYzuFf7D3HAPkZOwI
A9AIfQVIqMHbEgtumwFUz++-HQZl7MXAYjOKqZAy7QJ7B1Dz-WY0usJmuZs74NTBDSFu6HBP
st0OAe9lDJdxZaFAqlddYuC3yyPnG+a4ZoEVqckWUhVrs2KniJk0Hx2p9tP9NhD+sK8nZGxD
VjXK9qyaT3DX+fWy1atipXM+IHr0qoEe1GQEWQIwtKEJrovsX4v0NLjffQile149rzBJuAmL
N0aieftswxDSWyOfjFTRovoLvJPhO6ra+phK6ucZg+mEwYlYRzpApz7TiDeKrmIN7-BM5Xj3
YGXgC6LBvxJFfau-b4Fz+Hb72AoVoyxZUHmE6i9lEb6Mg5V6pS99c5fD76l0g7bamD9fWYKa
+pl2RUW-P3cvUVCZyCkqtF9-a7eVtJCi+C6Y4C5jaPX5rqZ+OFLaKU7LsOQsyMlHGm2-caYE
HTqu8+oWsc5jjoL9ry3p916eWB3gPY0WZ4Pio83yld1R9cAswM1lB6U7YAKl2G7SschOr-fo
a+0G986NkYpXXw5GMAtWmVws6XbmIpecqpm179VRDVLHW-5uQOSO2TApPGWQSS8y6Nxndga0
nchR3pTqvHk2qb0prDHDqBQ8gEnCGw7rGrNzPGh5PdsBopgnPZeVf9ALyf5yzrjyK+wpppRF
a6rvMJ4COFgxffLPStECYaXDxz6Bu88ZYdV9uXwynaCaSLzmbezae9PWQGJjyd5ZjT2bRLnZ
D73bQ2e2GLu0c-on5bvgaHEnK2xJFTqWidtYRB9+zsIFgJGenUNzXakiJ8b67FYuPu7bEaYz
Imf8rKbEbTM8H-AiC5utkOiDw5RQYZfRVJF02VF0CuVeYx9oiBwkpPzSAhWXMDFADq7eF0cW
Zc9agrbRBww8BhlcnLxZ4DX2EuWXg2CxNrIIb+o0nv74YZr6-BSkB1HBuNT-yV8I-ZQNylSt
O1E8lcaPjt-l3FTvVe-4wE7LJ5CjPqXWae-i1+k3yMHohLLT7Y6j6IqR1MtPRfEAI4xNW7rK
MQoan4RbLvMB-sBXye1ee5PQCFjgSZKS6iRHbg5-Akkq3nYyRYj0Cu43LrVdn5N1ooxHyERl
nmY6njV2ZllnmeDe+0pATmw5rYOLUpyO7TCMqHBORXY6CopT8HORHODcIC9kbewq6wA9M7lM
YU1N1LNPju1YfhIYjaH6r1DISlgVuOwH2emMluLc9QZ90rBtWmKtsBxLk2XsX+Olw3oGHdMo
u2tvMQTp-6OSHYhtEtI1YQHb3qCcoht36J4icWKffIIX9fNqz4e7WNH6CXi5ynIsCHy3ui0s
uKUqDCgJS2duu2ZzmEBo+w9v7axWxz6CRVrfJPjqX7xE6ogKRYXFz1JrK1tWqJ6nmp8PaanU
joZ3xBICZDro09zG0LhRbRNn6hXsR43uVbxOZja4doj6jGnS+Dvt4w0tpGkYAO5S8lwCWYVn
GoU+OjlOkO1i7rRRbjWCG8QwtIwgzj6teSn8uWUMv9O0pUy+uFlZfCkqBPIebP3Qw0BmXCrl
kksZJCFMwtj3PMeps5yuAukfpzR3CFAyrRzZl9gF3yKRHuAcHq-IR+cy0RRBpFs7J8m39fV2
Qtm9N5aBkgtchnipp8BDiC7nqCZCjwD6Npz97FDtAJg9+OakRHyrKasMOnCj4VovZb1vn2bJ
ivpIp1eJWVKqB-Nq8Z-lsK7iXwmd4kLHtieou0KIYEZluKP4Lnjm44tLjZJNF5HLJy7f5LIw
Gbvb3lCe9OCOnuzt97dhPRe8AdO9946uvs+EfwnRrklwzlFMDUwKrE4ZhueBIuZ5EGt6vEXF
WZ19JxHU4BO11j6tpskIO8omLisSQlBVSWNIUwb0W2JvNkqKLqkQDmD44ahQZ0SGMcpZOSwm
PNR3plzidUWL8LjNMzcnIx+gbGKvmiw08yVxiOdDV7lJnC8bTJ1dh328de6XKlC3UKZ+Yla3
13rtyPMjACnarqZveSsaiQdZoAg-J0DTXRf9f-xaIYxvBc0uiSYq-eavnfX2CX4S9jT8rof-
W9bPVZgSgMJ0+avjBDDfdmyrT6cULnPpSbHNpMlPQtSMzMIGhtagPJNymr+djEtvUxv7a9N9
Rpco4GthReSiXmXT0jYWIQeWtJFj-oftbYuLJNjoOn1uxElSiGmvbZAhbK5OqL5BsLdBc9Ji
LtRZ8yuw52qF2IgISS8yt563OguXV8LqAed63jNeHwpNJ9t6gWKmgzCeNevMWwucG16Z1QlH
ZAqwOBdbgtRmXqwPbFHRwT-gxyMN2RfvDy6w0XiJGhuUD4ZHvDCYU1yJkhKLFgBwh59qedTg
tbfCT8JaLnZ2H7c9fjJWwz3wr1wnAL9YKgwVTETWvgen3BbD5dmySlfuomQNQkLTc4dQCfsw
kcbxtg2rjgEMtRvorjLdmgDTv1TuKO6hpDIpafF7u1QrMKTT1Ze1jV59RhLQ-EM5nK+zO9ID
UpOfPTuCYikhTMs8ag3-CuUI5rhuGqOYe+GoWQdbn0tWvPt2hBqqUOYAIjCNk-FWwq36HtDg
9enIj--u0bq6FK3+Z-IlqcT4M0UiMFoJRzlVdy9jwypVj46bHGHZBzhVlk3gZ4RTay37yGbJ
5WVp3Typc9uFntC4xLptk4zggDA7TRZcv9HrxnwTPRlGomFOReTpoYsJFluOCKk5CzHJcVE4
Xx0ZjAef3TQNVVE7cP6voZKbIvxK0xdBSmxE9ZQY6IEW3J6pn9Swo2YB3DTnZ2IwVfdMO9ch
ehgIHZxRPEOr5kIEuYFfSLpHhS3AYRdejHFaKdjPxQ3QKi5OAMBQLBev8Cfv050-6q7SPEMI
Ajydv9Hq8zEVi2RFUo9Wm45ZPzVzyl1tX5MfRg+5YHjpBsDFfrKnWLfbdsrhfTw-I2g-+VE+
3++0++U+17Rx6FDz65FA3+++jK2+++k++++++++++E+U+++++++++3BIHJ7TH2xL9Z--Ip-9
+E6I+-E++U+6+AoRT03JISirR+I++1oD+++A++++++++++2+6++++5MI++-HJ2pGLop7F0tE
EJBEGk203++I++6+0++l5rkVVpR7A-28+++d4+++1++++++++++-+0+++++I4U++IpFBIYF3
HIwiI23HI2g-+VE+3++0++U+RVpw6N0BhT7n1+++Y-w+++c++++++++++E+U++++HmE++3F7
HZ-JJ0tEEJBEGkI4++++++E+-+1a++++uX++++++
***** END OF BLOCK 3 *****
[Back to TEXTWNDW SWAG index] [Back to Main SWAG index] [Original]