Contributor: MARTIN WALDENBURG {+--------------------------------------------------------------------------+ | Unit: mwIPos | Created: 8.97 | Author: Martin Waldenburg | Copyright 1997, all rights reserved. | Description: Two simple and effective case insensitive "Pos" functions. | The typecast in the parameters is a bit uncomfortable, but | otherwise it would be significant slower. | Version: 1.6 | Status: FreeWare | Disclaimer: | This is provided as is, expressly without a warranty of any kind. | You use it at your own risc. +--------------------------------------------------------------------------+} { the following contains additional files that should be included with this file. To extract, you need XX3402 available with the SWAG distribution. 1. Cut the text below out, and save to a file .. filename.xx 2. Use XX3402 : xx3402 d filename.xx 3. The decoded file should be created in the same directory. 4. If the file is a archive file, use the proper archive program to extract the members. { ------------------ CUT ----------------------} *XX3402-004641-240897--72--85-49788------MWIPOS.ZIP--1-OF--2 I2g1-+c++++++2hRW03V9lqmg+I++9+3+++C++++PLR4MLBoJ4ZhNGtuOL-EGkA23+++++U+ 9d3M6OZKPkVB+E++l+I+++s+++-hRoNVQrFIOKpZ9aFXQgKHDIs1AF03LlMYe2WCEAY-C+-6 20Y3B2HW0VlXGrRQOMym-EIJqX8RaHxv7htB+F7WRWrjtra7lnwD+8udtOmhXQyitAycfKFg gvYs9zYPyzoRhFJoiCxk6bdtoTTOwIATkn-EnmBNLWt2CbuYfcmjLwFcgnNM-f1CWS6xsofH qLV0sEBlBaNxtfHdHJ1H6a0qh+W67uwROy8ONg2VHL3di2kVHE9WU1Bix0BGucC+oWY6C-o3 YbO-dZr+utLkzR5kzMbQuaTvrNv5Xk9z54xodqz-Rv515YxslFPrS85jDLP2XuNPwUOrsUrw UHQSabUyrfeD7FthJiC0DA+QjI3wt+rXuUrHJqzczvYrN9vU1NizSYDfQqwcinSgzbfLXOgL Hb0XRqzMTBIPJYyxyZejSoDLsxscumprrTOXSa4-KzpgjxjnW15Xxfmz+J-9+kEI++++0+1c M3gVZgdJabo1++0-0k++1U+++4prFa3nR3FdPKIiQ43nfJPPPVAl25qDZ5wM5Z-G8MGY60uB S6-0c38-EU6JEXksitCBpJpv4RhRJZLtRgNCghaa1EYhcpnqAbDaRXnqlMDz67TBlUKAgq6c X-r91C2fx9gxi6o2e3CGpe80GEbj-Jads3GYAOe7ckHuntwzuSu4QuXnYaEmgrx1Sdaa27EA 2-eYQsmvOnXXaHH+bm2VbUf0vSujGQ+tgWo1CSZn4KAAkaBqc7-qddo3+MIU2geKc8QUJ+Zb IgLffU9CByr+4EH7JVN8vEVocHU92yoOKcKHWH7U0FJ196oZCL2qE2wtqvHQ+VVkLb5sGmmZ 9FXyZnvL23eVuSnj62iQcuarK+j1DwaQgQj0US041KK8tePEDAtqkauLFPzUdoCGO9UvvtUX w-aBHdqJKX4tb976cLzwCWSAdD2jTDQajeBJLfpCfxRvxUUm1bac0T0L7Qmsi4-aaWlMLXA4 v+kx+ppeEm2b03CFQaTyRptCQJJLWrLEP1EPoeQm3F5u4uO1OHPUZCab0qPce1FTf2ntuX+J VZym0HEPhglN5Osgz-QESNLqy3-biJOcv7tLmIaS0lio+O6Ce1tzxkxUT0kckGBqbW+Btey5 Pp8F4sk1rU4AT6J4n+SJ1CNEqa7YAEsrPd98O+4f3RD4FNM9T2X6vhcjDlM8uO+Kn20T6l4n OC2glgfahPzItPf40SYQWFTZlf0sOG8y2jP8BA9M2Q96wj0tsObC-pIONXPDeSPmUwWiVH2K jUucsh0rj+9vX+Yjap13oB+gHtZWmUdDJjzYsjSCQfYFSA8LmgSnT3MJpfFPKR5eT8xlsQRS 3GS2nvw3I4xb1PKviPKpy8GOwP7ZYZlZkhuWa4gQSk4hpdpWfP4c5ieGIHQ4hbdtSvwf8hLR 9gZKCTr2AukwsTKh8FAeEhv4S8mde4l5wseg8ml4KpjpJnrwRkdhWWuETaBkZSzxSKnpJb4b UddhhoP6-6bB+RlDKVrsnifRHov27tkuDC1tIhrhDMGcieZlYbyv6OThArCnVCZyzK0lgkHv Mxtu-INbGAk6DpxVzyZqom1-zabzmSBxC5Nl6FBn0zxjoJSyr8txLM9x5GHMXpn0Os4b34wk D9NsZky1msEXGOFtluyRVs0DLp-U4aZSiQjHaJ-blXA197Jy64RZgBjlZ1WOSQlkJD3KxvNO fSGiin9Pzk3EGk20AUgI++++0++iYJUVeJNj02o-++12-E++1U+++++++++++0++hc2+++++ PLR4MLBoJ4ZhNGtYMr7EGk20AUgI++++0+1cM3gVZgdJabo1++0-0k++1U+++++++++-+0++ hc3t+E++PLR4MLBoJ4ZhNGtkMLBEGkI4++++++6++U-s++++6UI+++++I2g1--E++++6+4O3 30BzJYm4Ck2++220+++7++++JKtdR12iN4NhTN1BHg7+2AT5vQQe5t49WRts+YDV0P1GE+Fd u-esOOK9rRXiYioOufBtwiM9SJLHPZIUoQhzAtaRLyMrbnIUrbEqQO1HQV++wPqCHHkVIwQe olnHZH9Sk0-WXNEpNt48XEykVtExlAds+Sm4OwI2hzLzVWSsCbTXI4NIsSD9URSz4NBPRxWT -EBGopqF06YPmqHCS0EqVCOeLXMo39oTZRJpa38vCEbOEQWnRY+ZKybtE1obh+tBbyIomLke FrkNcvhO+OcEHQ1YsYYdkP3yh+VOZ-uyxY-LZEMuyv2kFvv61YZsDtIFZEXkZ9g7KnvWFgId 8k09108af06ex4a7PZIbSjoy2HftdFqMlMeqbhdVx9MNbTwMO6jFUrrBvfNazfSagKBdv3hq 8wguGHRSa0b0IacJgSCu+6+jI2g1--E++++6+7dNxG8xKgjMW++++9k++++A++++I57jOaJX R12iN5-m8mX8Hmx8n3I68AfDGYoiAPHatS9Z8WpC9SPZIZ-kmmz89RM-gI9nAYgA3H9n3BH- 99q0l47pVKeEj42hK2ipGd00ZZuEOr+hW7SIaduN-x9bK30EYtaQK78NbuTb0RGNaNWHKNJe XGvZL7GOK768AYsX-4mc1hViEooAZI4ZSI0lp9kIDJsi+3-9+kEI++++0++UOlUXq1WAEKY0 ++-y-+++1++++3-mPqdZMrEl9aFjNapHqr9OA--xNsNzw+woMk77oqPw+AVd8+EQ16Eqt25M KuAU76og7u3TrpoNQdZoD5CoNvIfvNuJvzhuNsE2yx-gR8CkqSUFx+YMEIlkFT+XOXIPpkE1 cXw7VUEXUVi0ASpC0-8WhkFHUdFUFX+bK-1Q2Gkdy-RNjwZ8BzftKWVLyWEYRxkecEfDtoes fVGwV18u2qeqBvKFuyTm2hT2uinBkROWXiWla2WxSm0lhPLRP1EPxmCVhZu+4quiI+iuP36t Ivb7yh3TrRSep-8ulZ0J1BNJAJ-zh4xQeBHlP7i8jl0pnhgL5HfbtNojv3mQTHp5qLOwU-uK 5rJOrnfh2+DX3q-ENZMM7vG8T1JAKAWQhU98VqARu6he+Rvn39XBBUZr4mE7rcTbZx4WDpeq kohQOaGxsrdkdnQ74fTHN6P996vbUrfpUPUW1bflMYnPwKksbMxPsSImrtdhsNL6-FL9NFYR d2VpNHD+agUn9y4pZB+rZ519Ry1+IXzHGbZCcRSuR0Wd3-ZzOry-QIU0oVTX-meHJEvcDEfS fNl4PuwGAjQ1s6zOsXtB-cRFqzHkE+87HKzu4Cj97GClw4szBN+79igBwQGRxv8FTxYXbL37 MqmreDoQqmiEbduRTecr4A8SaeFzWejx4Bj4diV7TNkmSEttISgYd6wuFMZEpYDK0+ciyxfg fGUqviWMKNv1XhghuHT-9M2NR7megz0JtpLalVzMduikjVrELyMvW3ywl5Zkb-hqk9uj42Wn 2I3vhKH1JHryYxn604bk7M0Z+Sg0-YwUhO5HUe3kzor2UjJf7YAGaDeWNiATI2g1--E++++6 +9Vg40Ae-Nscy+6++7c7+++8++++PLR7I4xn9b-VQypJLIzPA-FxFy6z5A398oc3PA-c8R92 BebG7W2cElAeYdjQhVOdLRYC6KDvvvhq2ddGY8O7DKpyGCjfyr5iiGTCkxPqeuqhxHLwk8KG fcBmnP9yaPP-Tad6C6e9crThcwBUTNyueHOZzlRVb3Gs2YZAOdGOGF4ctvaFYubn9fh5FsQh W0F-A3YMgaHi84s5rkxY6mDbHafJkG1Hg56qHkV0lO1la06bvkWFg+Gd90YfUq41EKtUb8f6 FxcWpx6OH+YiblC5CUu3szpQ412XFwN0KUWAd+Cbo9ClBYuA2adVZ9fJL7e1HGMx-cRAdoaA 2H5GWN7X4EbZM-CRYGZUTCLwcNrETjgU40yQQ8YhOThYW8u2cM6-OOB2m-aNHhUDdX9+alhx 7qC86Tmq-PeTArIqmN375Y5ei63A4ADZQyUlAtPXJeeGpqwuFJc+3UutHUpodbU4Bj6CfmaW byhfuqgdWuUIHxTjdK8Olm9W5Va43lEiQbjdNC9DiPS6shEE8yWKHeT011nxT38B31tHsoms 3UNonzcwwpvBHdznHgUwxTmsshe3Tz7F-typab-QDTVC4+zdgL952tZTPyuoqthvyzh1HyUc RpHosVIt6wIXt5fSwX9yAb4zUoKl2IqYwZOK4Nzog+CbkKIEOqw45XrwuczFuCA2-qyPsHLU nH4CRdhSkac-yRfzOzGPEovMllPSv3I78C5-DyzL9Ll6lTnDDs45tFsEljbvMmUPDYxJwC7T vxU0ltotIkqXFg6tqHFlbcLi6d0rz8kAcJEjJ+maP0cNK5ZkUyAHPCuIrBKMYwnPcigWvwoE DGkNEsdVEKN3q-9xe81recfRlR2X2dzv2QXH-0xWsM+LkK12xyphRma9WVd3P9BPPLl6gyNJ X97Khk9LwxXeLTep+fEqXu7hP+TSgPLPLTNPVJQjHTuyHg6hzEnAZG5L-DXU7TOAujvkZTtP EiErf8mCvRrzejkbJDalY4KTjqpG7D7vSTxXyQMA2TlFzEJEGkA23+++++U+y4kM6pktijHf +U++SEQ+++Y+++-JPaZoAGtkMLDJJIpj4X2EjIT8TlWdZFMOUY7mG2CIEk8VEW6euV73DNfR mS7WPAjqEV1BTyyA3k72HLi78bK3KAy5rrXanLVLFwTjxVkR5g-Du1UI+TAqwDCtSL2ShRRZ a-VL8S3Ci0+pD+WJcluLfeUq4fhogdU2RaZRL7krE0U3ISL-cIQrlvkNTPjcAmRhY2Or6NIn el-mb-ZsB+vupjX89EoWZ5sRhSQE5sH10Y1uH+YtExSCwaUWDR1DCXCLCSMUK4k+DZa8vBIG 3d6m8+A6K+XbV+t9A6wUx-8aIeyDxRqII5c2GKs-ZeNoM-OOIj+NCvlbfNwD1ksDGYqFviaj RQaWp+5RcwUkqXluWUYDR1enc3Hi8+xF68rGdPwDIh4ecsHrfDfWV7r6X3J4-qTMq1BiFeyi 3AcIh7UhyYDX4kmOVfkHb6f8bj-VF7KAFkV9mkK42KxikFJY582KlHcP+4v826lihK3IfGsf BICkQUyE1PQttIQ4TiycnjNJ3RPdOpHWAwCwR9U7qp2maxNGp1ZF1uCjslyMVTcPreRzw9NC nebFsv6QYpw3gM7VZ6uvC3L00KtFpD1AJc87FNc9lq6gILhRecd+PiENuV0rgKPpwFhwObNv Rt5jvTaeHQqz7PKCBA8bA7+OOJO0Yve60TEPA4n+k-XPAOICPSVHylHcm1X4EafqqJejc5L0 nyISrVIYCplr-hRdiiMueFmNp0OBcOhsWiD7K-1A3VlmkwOLe+-1wi3aekov2y3eGHMEeIze RC6cPy9LBwGhs+MnkOD5AkaNaJadoA4s90-AY+d4gmqMrn2JCAtmhF5+InrcxgU63uk6B24u 0HJh+h+JFTLnRGcAUF-+7WU+HHJcl5mnbl97y7tGQceIUX89XKIjUSH1mSyCjxALqqcN4wLM y2pqtXfj27L+2NApAgFaPJVzQHvPC3R+hodMXzZuZ1PBxoMDjRrezrAD+JCEFAmY+TTKcigE WOwPu7wGUD3fwEhEGk20AUg8++++++-9LMUVMGwRgf+3++0k-E++1U+++++++++++0++hc2+ ++++PLR4MLBoJ4ZhNGtuOL-EGk20AUgI++++0+-aVFEXTpNAVXg-++--+U++0E++++++++++ +0++hc5Q-E++JKtdR12iN4NhI2g-+X693+++++U+aZbp6fpOmxW6++++j+++++k+++++++++ +E+U+9O-DUQ++3-mPqdZMrEl9aFkQZ-9+E6m0lE++++6+0-f40DMC6l-OE6++5s2+++A++++ ++++++2+6+0qUT+5++-EQaxeNKBoAGtYPqNEGk20AUgI++++0+0sP-UX8UKS8DU0++0O0E++ ***** END OF BLOCK 1 ***** *XX3402-004641-240897--72--85-49589------MWIPOS.ZIP--2-OF--2 0U+++++++++-+0++hc410U++PLR7I4xn9b-VQp-9+E6m0lE++++6+DVg40BQCPfouk6++5Y5 +++7++++++++++2+6+0qUOAB++-JPaZoAGtkMLBEGkI4++++++M+-U-K+E++hF++++++ ***** END OF BLOCK 2 *****