Script Library: 1222 scripts
 

headless1.r

REBOL [ Title: "Headless" Date: 28-Nov-2001/17:16:15+1:00 Version: 1.0.1 File: %headless1.r Author: "Maarten Koopmans" Needs: "Command 2.0+ , Core 2.5+ , View 1.1+" Purpose: "A P2P console" Comment: {Many thanx to Ernie van der Meer for code scrubbing. ^-^-^-^-^-^-4.0: Fixed non-blocking I/O bug in serve and poll-for-result. ^-^-^-^-^-^-4.0: Added trim/all to handle large binaries in decompose-msg. -4.0: Added deferred and oneway refinements to sexec -4.0: Added automated stub generation and rugbys ervice import (thanks Ernie!) -4.0: Added /no-stubs refinement to serve and secure-serve -4.0: Added get-rugby-service function -4.0: Removed poll-for-result -4.1: Added get-result function -4.1: Added result-ready? function -4.1: Added get-secure-result function -4.1: Added secure-result-ready? function -4.1: Added http transport -4.1: All proxy functions now have refinement corresponding to rexec -4.2: Added non-blocking http ^-^-^-^-^- -4.3: Added transparent error propagation. } Email: %m--koopmans2--chello--nl Built: 28-Nov-2001/17:16:15+1:00 Length: 14034 library: [ level: [advanced] platform: none type: none domain: [tcp other-net ldc] tested-under: none support: none license: none see-also: none ] ] code: 64#{ eJztff2TG7ex4O/6K8ZMXXblM5fateP4eFH0ZNmXuJ5jq/xRrnes9atZcnZ3nsgZ emao1Vrx/379BaDxNSRXTi53ZSbWkjNAo9FoNLobjcaj23pbTfuqez0vNuWrqmiv /qtaDu8VjxaPCvjgm6qbbttu6OfFst3eF4vLQr/alNvgBRae/hQ8ZLjR467qh65e DtVqyvAEjat1u3z1XnHxxC82L5rWfzId2nlxvWuW/Jixxs/bb6uhFyRt6bpt+rPi u9vKvLir1+uibdb3/KAYWmh/eVs3VQ/vhlsGN0CFL15Oy9UKAPXw6rrdNauibujN uu6Hs18K23JXLMrmfspduCwmX8L7or32IUBD1OLZhOpdhui7Ht9Dafu43G4raDki W9FpMHUvj59laPPitlq+Yhyq4u62gm50RVnc1K+rhsYPQMBvgY0PdAe3xQIfvXeZ Q33YdQ3T6FlxXQO+mo2Kra52Uw3T27JZrXHoU7hOviFwPZFaSgJsQRfw7TWak2Ox 7Ks18KViZh89GLCpQj5DzuerVUCuokT+gM4ajIHWhlfoHf6A1lJUdY9MZeInbBkZ ONchYQ2f1BHn6I6OvZybtgOC6ba7atO+rvbTB4YQCyoSXXftpmh3naMHtJmdCVg5 xUdFWCZRNOho3IlyvW7vRudJX9TXgPqybZqKRsAMZr+tlvV1Xa3U1KaJgyCrlZ4y NYzusNuuKxQIqjRAWmIbeTEQzaV47tcey7L4na6AsYdq74AQs9rhoF8kz9REGsoO Zum+2eQozwhItQRmdQN451jlC3ppMasboNA7YSasnUXKLEyjaL0N0DKze9l2MBzb tlnVzY2AYpyRP+T3T7tqV2lmwGGzk32iVqNAgvnd45KOC1XBGSw1JaxjxebeCNM0 Mdz7uZa8jFFIMkMZg4d93wa6woKnvhSzDcxda8UOWpiuyqHEFbypLvONtcnBGePm twE3jw4OsfrY4BzB7ZrpA2Lpej08yvNVPdTluv4Z0K+ABe6HW0SW17fluq6aQQse +D/Qa10vS/q5hirrh3AWgszxFZdNd9ybwQzFcYU/kRgXLOLTot1mZv5yXZWwmO+2 RXk9VMn+n+W6EM4EfDllhEY7wmwVdKTqurZ7VgzdvXvmapq2BfzcaBCWAXxgVHzd 9pWuNCM+9coEnO4IR+h7yh2wzJSAjay4Gb6C0W2q4a7tXgnvTH5d3smwTVWTgmlW rhxZpRivyAR1hlNsqKb11qeWX4+wx0nmeK6ICqiV35J1H1A3cIfBcwOW6+IomgHI eNT3a1p63HHZ3JR146nxKQXZH9vpcVqnryAD0LkHJLMOq/Fs4flsVXc4L5p2elfW g6+Db7t2CbqSMUKT/X7JZSpSvgrWD4fbElcjkNDA6s3Qe32HEj8XC2ujIRtbFSNe WYdqs8W5m1sOthU0VUMpATzO4KfOPqNKj/fxoT/luaHruuv563E8DbosVpr1oHdu quJpcTIstzF7xxXxY+gQSz3CabTOzJpCmpge7rnZ5K0gSLicyY+zi+1BkHZnxWct aQU0yij+iLd2zVCvUQXoqqLsLHP8Eg06DWV6xGF9RqmaG2eqOafmZoYfgUZ+Gc3V qi3V4UfQbre7ubr3fSPWZWOcNNWbajmtmtesW5mFdnfV6wdXu3q9mkKrb+7T1GtK YIcFrA0rb0Htq+Wuq4D7VpV6ir6RlAChF9PbYdgWt/AaVOHqpuoSK/S6LjbVUE6v +Q+aUiB9NhtU3rbnxfai2BW3O1RY8VV6FICVmxb1PSemnqFaO4Mn3B03PsNt194x /Wh9fw/URiQt/5rjao8cApr7TdVUXQlLcFkQtUjpKob7bcUSBQw8arUwbf6ieicz nMjjGt8B/Ha669YgKv6rBYm8mMCkm89mk6K/73E2yqo8u237wRqHk/mk2JKuMK1X l5e/BsBPnjw5n1ymEeZhc43cJlrBIgfhfbv1EH4HWIDyRQrlJGMuhIfmxaTHaTG5 TL7rwnfXZA8FTIOcB2jf1t2qmF+758KUc5HB+tX1FEHARG3XqwAaszv7P2erqtrm pMcpEKoH4wynogAMVgiavqd24uxdP5DSojWc3u6C4vgB5jHvU69Ba4EBAjEZeG/1 RwTVISWr6+kGRm2OMysDB4dKQJzKsCXwMt5QW6WYkACaxEU1wCRN8WMHlsvlCIwf kD3ilAHrr3ozZytQABghF6+qXguzLSqDpg7BSZBrez4vFqfb88epdxf07iL5ruxA eTXQUZkDcX1e/B1l69+L/lXtzVDbLzbebqty5YYdp+62BJFGNM7VCTjAVlLDkxnB GXngw/ruW1RNRIDnFlNMgPye4IG0TuMxkWvTzplYTXlHyGayHQJ41RZXdQLGyard b3oQ54AkKdD0AiJR1ff8Rk6FlCj9qCUYNRI8XXGSHrJ0X43thlzWgVY5o8XEfgOz 9hpW2mrFj/xfoKPclfeJ3uebw088+0nqdskKD4X+QLhaxh3EQKrC9bWvCD9Oju2F jO1dQSobGBXXtlWY7WpeOa6JBvmOB/lSyw8n2da1iLWkTFuEgoxKnZ6SHMPKj4tp 4UktK0/nyNdEVBK0VDE0FLVaiAuJ4xnhF2Exn71ix6KDo6xcAiimncxGN+EVwYz0 ZI3UkpeYomOJXdyBUjiFV9Ec9W17y6VpgugBMytnAnXZDwA427avWI1gxUKryKzr iwmQtJQ+xRI9WQkFaVCk2pLnpS/Y6QLde92Ko7G9BiMDW1xZrbdnYGUP/AJT/764 Q4NKaMr+b/bfacuKgUxp12cRbZBa0AiAi2qbfYbrDOp8xeT7Hr2vb2jVBN0R1iqo TgofuU6lA/h7F/oNxXTBcbZOrJf4a3AeL1DxEcWqYZ9ZVD1l4Ey+2m2uoG57zTuV WCL0uAjLEdWBMt192q7B9wn9CXehwJhcUAcsGllXk3glqB2P8HuURZHkltjHLXbU N2VrEr0U0YzkYbR44m3feYmNWlXGwQMx8JfXlKOOWk3JZhiowAD8Vx2YBDH+8WNx UKPvTv7QnP1XHYMUV/4zpsSh7R49Elqo4SajXocWkbBTIHpdsym7m9zqpUNChnYA kdpY4YvV6K9dTopT4jr0LOGXdjcodbhXq9O1uL9A+A9kuiT8VtfTvr6Bf6/Wr+Bf gNPDH2oT/lmSigDMVDTVG1IK8EdayGPxefEkcmtgu2DS5BiXWiZfCi2fuiB+Rl1i 7K5g3BMOsYnnEFOrP0IkJ5gBOQnYgHRKhguGSeCrQDLMiSBsVXK5oAwQ1bhTUEnV mKbmLapbBHjffJUhYD12NpS1GUEgoGOCIoKkaIku1Gd2YA+chHr85yZugyFkTbFk uxrQ0SYMsRjx5X93irmGiCq6eW4ePU7Cu4yeZr31OdYd581flyNjjkrh5xFoeg7/ CC3IjL1mrkZu0WPmmMiTdNf1ej19ktme+t9V106B7iCYKQpq6FCzZKGlFUQEAi3z ey8SrL2bbgirvEsdK2eEzbpttw7GtFhXzQ2JGW5PHDj8a/JEE9MEIOErDVsskOmm v8n0+UUHM5X2XzZV35c3FanmLcdM3tWweA5d2fSbuu8DFR1geiGU6T5dc9tg9O2W YPFSGFW/28g6x+alMTMRIvwX90uM0M2WnM30i+B6XV1XZTe92l1f52IUqcR9Yjdk twVLhiIbMJ7BxYuVG7Cwyea5ugcaqb43xQTp49YzKoAG0VXF7VSr2KLA/vX1zxXM 63IVUYroRObERFUlnpBFh/BcNJfF4jw7fXnfbI+8tUjgwJSrad0a4iCK57EEOy+e uko5iaJHY1XtZb23n78B1loOmvdkM7gHMlaN4bxhgLFQHKlNVcuEZjKmuVD4CBiN ESM+gl9QaUN7fyEzIZuOzRqKzDVY02Tv6uH++OkhiJ0m5wV8bxuaFo+B/iwlA0Tv oNmx6S17q2sQKhRKwhVY8xL0Q6Ttj1XVD9nYHZZN6U4Ju55//OTJk+LPVox5wH2m 5CJz6U7dcttYIVlZNcLvgTzZgil1g4g+dLtqTG3OVlR9t1X3L6z5PhKhMjaSIyB6 Hy3esYyMB6Qvr6speldy+/Dwfn0v/he9BJwVElGLM85sWxevy64ur9aVhL2t2R3E 4F6X63pldobFMURQvbA363PzIu8d20Aj6TfCc2h/bFDPSLOdc4naR6ekHSDgFO+I Ek/zKuMQXIiO65cJGSV8bd8+zjFDM2fTCTVcY8eMYwJd99y4ttRpAxrRebD55QQe 1Euxllbg7F4vK3LiXhN97vum321RCCiv4rwI9m1YXPn9NytBOxW2yoiov9Y3tyKc wCw5GZVNnqhPWH3eCjuqkHgLlC80hDvsGiBwMyNpLGMz2YptjQYfVbmws2e/eDh4 QP4WrjqMaWInbVJcgxZc4Va6h1U2ZqdZTdH4yx7y+BZdFiV7Tb/+94LL6qBDciW7 bbN4ikpIqisH4//ddy9n52dPigtYLb7+9x9nL1roGbzGYI45Ria9GWbbNYbI/Tj7 ceYFL3bVTzuQojTcmdMBEyPLwmM02K4B4HQOhDTRwvUnpehTAJqpwspe2ZTr+59B 2xtd3/2TAT8VE1R9pnVz3c69infV1ZQ0sbrKeFV8hMIZ0BXdeTGcj+saZqWcFOcX H370h4//+Mn/OH9yfn5+cf7h+UcTMjad5WHs8RDrx7oN9B8JWTKDoHQ95mlDRYr0 9gfj7GD6Vww11rS7HaxTvJmDEEDd260zLIlF52TW7oqJVPkJZww/Wbz//vsTVssd PDQX4PmlNsF4I59aw8ZDaaLClReMzpznJIhoBziv19stJdpu2C9OpFlaSp8JAQ5U bxS1Es2MVg3Ro7ppaYOsPnqkDEwdOboQ8zmeUaBJX+zokNbUMgV9p87edfgNMRsd f/J3oA+nndnjDzmiqiLhQcx95HFyCnpbrvuEU9oUYvCRJeiKYWcOKzVSgIX3FLVR kLYjSFFrfrH9qu8OupkkqLiXdquZpkmO4HacterTcmD++cc+tuJRV5CpZccqXukA gbm/lERQEnMxo7CfVpvtcC8QkHZZHVDx7VyL0PHGXfi97M0+04AOCSwWUdSLT+9E 5guJJqfG6FlltJiDdzcM963qvuw2KYkSEC7oHdgTO5iSJym5lW/VuElAyRjSMs/W t6MjQYA3PjFycSgPqyZaj60sk5KXlmQNzcuqBq05h5BRI8pViSjvZZpLnJIgwMet AXhqyEzOzAKxX3A4+eALqNwkUkprsu0I0Jzs5yMmtBVXWhDm0OFFZ+78MmoMU+gZ L0Z7Uy+fmSVrD50jZFJdwo92ibKTU1DQaua4tCESu3E9VinAk3cstB0ZuJNjkMZO 2IA5Oao1vCUVUZlN9ozLqTroCLaEjc9/rH0UaltMOW1Rh0Cz0tmW+1SK00inyC4D nlIhy3VubaEdFVI5DoOdOiSXHivs2Yi2YJ3T3hJ8+ok2FjRCqfBk53TO+uoIZzl+ 42j9dKyhREvp1UH1MKmZ6I/ZnccxVzHAgO5RXcaPngQPAoDj/qT4k6uD/uDHsFRT fzAMXTabCN3Hat/I30vRn4DnGrSxM0te8il+hrJ/JfRMjqMjAOo3AZpjxYcpLP8j vGg+0Oq4Qh2A3Kvr6p5hEOAWz3juB3+gJh0UN+5g7uaTeFnHT2I/91B294bYHN9W fG82EvYAJ72hOMExO0ZkJ8SWa3tmRi4rt0iPzsguKp3eLNOftLhJCDGNGPJqTJXw 5AZ3NqAA+erVLlmmmG6NZ1A8NvQinlQhojD5w0cw+S0CjyP84uJPiycgSVJDMw+3 GfCzV08KO+Fm0YhfI3MIZY+l4vzKUasHKCb7zJMAhKxJpAqydRFo/vta9E5Q+B6J TJP7YbBKPwbDH28rV53fu6vCA+6qRiCoOHQCBbkERiTWMNNK8ck412vp6m3DjbPU YSZBrINne/Wr6eR5LOcP2md0OkMe9+MV6VHiBqvkw6hrxv8fQddoGd9v9WTN0V/F pkl1/N2sGzpCTtbLSCYSzhkgm0Llctl2KzkUq57TeVQ6lWAiKtkqOhHcnB2lrB9X Kdr2fzPNb8/SmYxmt1FhT2nDyB2BJonPMO1biUBVxyLsWYIwOpxrOnQtBo7Bg0wM qvDc9T2iPR8vyR+/nrgB4LMDWHQyQsGMhTiCnXKM68o3mQx6k29tsgo8TZ/Zh6K2 +BWeVyedzkb9UugdmMT6FLt+/cg7zc9AJ59TODZnC6MYKbv7X+JDOdxBaC0roZAt 4qd08OMGEKyU50B0aYpDCVc1zmvc997ycZCyKfhQNZ+atsfdi123xga+5q1+lx1F sdFbgeyG8pBGLn6hQyW6FQZsM6dMvjHfYHpKAjFJcICUqrcSOdZPMA2hpYV+zhCb lkfg7WdtczIgiq/rVaWg8msikxsvs01vHBsmZAf/nVpiU/iJHMsCrffSjKxfTKaq rcVTxcS+Cn/4vCYKbdDcwuLnS7xrl3BmoRnQUnMK3eykdPocfBR5BIPyDMcos4TZ TssmDo+kiqrP7qqpmuniXg8CiaKInZyjabQU371LM1HKgzTRsjSL8DqAWlznQDqx z46YMuAc2x+TZCFNvhzIJC3Pj2rEA82iFN4Mu6apAMTwRvlQGJ9VdV2ig1ZWEsmh QE1i3gQ1mqakORqpq3T5OlxWDrU/CR6n8sCKfhI+phDL67bbYNKHzALznSnTm9gP TBBRN/KLOEctgbtioYQifowntezAqt2lRw9f6kQo9Gwn2yw7tcDiNjuHbO7Mrj0f JGcIuDWP6Sp0XJkx3tAjS0hk+FU2sXf7OVt2dAgYeyG6wA1hYvU4m8ZGwfQYi8zA YyNXxP6qeZ1FCDpBmI2XoB4nxgHYIKOVmK1wgJEP8G9as7VWvi7rtQ0JHG4BIeJI TXwyOf1hdUPYmxFUURav+WRqFF/hjSIWMuGQ5G679KMjdf8wv88UEGQRaUz/JMGx aC/xjXwyPqQuHybep+dyEPZCNTi1tHoWpZAQxCnTo6vBxTR8XlfH8oo9pxI2xaIc 8AW5gNqMyIUwd1YqPZAE0VSZcwpk/0XOt1Aq4UEN/5nuMqkIvsQqFkHx7WVUw4ix qCzgFJPUL6M7QweLRjiBz67Z+WXClIQpaLfMi1Ji428kMIsjUdL0dBPCAoqDj/h4 QTQtyH+2oikZzRWzU+R5eQKRxwfeKR4P0/jBrJ/SPLfYKowT1XUhj760NuYWFHrZ U7ZeziW161GgEXXJeqBliTO9lfd+iKHUWMRBwq9rtZvzOrcKLTcrOZSH30SU0qKb HhwTkVBno4JkxT4gxlNKetpBqpbFMZ1xwNDAK889mbvYURfLxmzEh2hs798iJxUu oq+YJKIBf4nnlJ05FCo5W+76AaYGa57mlM8JWFWDwio6bLpfFHfq8KjZP8fAYJtf IjMVQwF9uFQbk9ae40wWbZNcz4qkoGQ4U/r5vho0lJTMUgoG8jFRPJHjdgx6ovgh bUQD36e4Nq8ySD06V2go6zkq0rTP+MAMaxiFqGXH/EGcQkqTaeCXI9iGhBEKUsqL mA8v59X5oPEj0b2HJTCbBJ4nZLWHkDAnXYfLMS3tK1Aad0tJocHiHAeRAqv0+mG7 Iyu67y41SdxoFj9zhXNcbi8+GFJlib9vy+am4oPGKXaNdiS8oNRnBy9L2TrxKmVt r/+3livnM/xt4RpduCyd5pzFlpcsk8VWktruW8GUgQUMi/mFegd41u+u2I+7EKjR 9qmwpNLhw/GzflnmSuOUdV4G+0YXcym7suVdEa6YWegS9TMlnftY2yuJ+mERQVz7 HJJoewW4UsqKS9VNlntEGvZ02bav3MGKxduXFLIvhw8khhCNPylHOydm8butNjzX G1hFgJRoRcn6ITUTZ5PMubVyU5FaTw/bLfpmUeJxO1N3XkAe0NE6/m5wce5ZVSbw 5djuJZ5OvWMO38K4vKDnczEvlnzcoanu1jXY6qc2rxpTYmkShJmuzDFP51byt6Jd 8nRCyQp9G/5/ykMfnJ1kE6w9YRgTXpmwqs1zZimVbW2RbO7vHhbSp8scFgRUN8sn Ocyo9u2m0kSUQphbuIT1lTOyGDoFIpgfJ+IbuAmuu7DswW3ZXuvEj740DblELwD2 JIYthLwDc2PKLsXgUohHVkJer0tM5fLE0L5qpnSwTLtvSDuNH/NecPQYnbBmsrnl lGfd9998ifNr1spBO1LfOK8b7oIxfsHGWjH5vkG8qpUrqT1fWPHt8+5mR+cit2WP mdBwWxTqoA5EPT8tqe1WbZE+/iVadjnvttDV85CRm5x3+BqYRruhXvczeDilMe1m LGpQcFkc9eJBcOf0ziT39vo4Iz+sn07O+uWoADqDw9OkgIix2lFuwtT6qrV3CJjb fFpQTKTJCajBNs/BJB+IbRsVp/hB7fL1HpIZ+KBWNf8S48FibG8MU5r/1ziQlAEO FIHKu3OjpIndXNeAhbtObNs2vXcGmdkIN3Ep/X6akXg5RxSWLbDC7oq+6/dBWqkZ ZaOulyEb9YVVDCjmrm6mV/fIl6T6mu9X2xSfoUnj4bEwiMwpGbwaKseH+G3d3jgJ ixSDBWmiwnZsfyY0Nu6F4sk4UkSyP7Nw6mc/7Wq6fgUqwp+JGQgKQ8B82IZRtQxT fTZDS7wsZJCZ9+YyYDJ3rDvB+QRXRDEltxdg6ZhIY00lX+KHTtVImuDZphyWtxTk RQ0TeDwL+QxwTEJIOaG994/80t5P/2CVHoBmP9EItxTllPEoNeR4Ev+6DL3oYX0y rPFGrGfFugVbjoeA9qMKmvHCF5iRq5+RuUda/Krp57MZFU+H0ukJoDsUj00ifCou xBjtR6aIuSeNiN9ialz0QSzfWCKBSdnc4iavtnMiqhMFTqirivLO5xA0lxco+vqP SAL2f+A/l7omnppW6CZQMzJprgSHTGCThE7LHRJfJ1LASo9sEw66Nxpkea3pxkYJ QEwdQpDV8VSyIlDOO9NiIjyeR10PREAIvDjDyGbz9wpE5yIYo/iJ6DFOkMWtY/CX rOT4NS7Ak5YBR6NphgNW1Xfugrl8wDyUn2PiJuAE8y2jCRBisuoJG/agXIOOaocH GvcG3DeTlYXMYMRADsx0W2w21Juq3Q1CPvmVK5wdCb9YdjzCYhjuar9mMaQrxAyC weVr3sxCpWS2AUO0JuPKp4dTtMOGMJ3GTLTy8InVX+lXqD9FmhOrPVbFFp04PjfP USQlKVf03XhsjC41LSX3b7/jGCSj/slr6qCFau6aI1NKYixAM+v5/jJz4Mwa88Tc LIKe+bqPhSipMklpQ0cK4CbEW1IiM3tkVdk/lwEhRDcLLSHfohaco4vwfCzne6es yxEYiZxEp1z+zYRQFWJYaaFtiKfsrIH18wRmJlQPVETDGQzFE/BWeWWqJsluSUfW ifHU4f2Z3bLsK6VEEhocgqFWNo2xMSX+9OfikyfFgkD9bmKURifKZIMZJMy67G9j 1USUQjdPF+ryqpkxwOjVeGVzl2CyOr+MAXh0AuqjPEyetg7YOq17ogdq+heQGX+V 9CsJIz1Zj1YqIqEjNul8ii+F3qcx9R8XOer/LqfhJh+z/BVvnOPz4iS9LuKHZXGi SnqlNFSXjYg5AR6hS5KewdOR+vh5ifhMn++G27arfy457xHRa/Jp2cN8mRRVc4Xc Tw8ZIyYlatZZ2EdRVgnkuTOyX3z91Vefv/huEvZohvxgM+qc/zgLE26aj7C6Fvdu xcIQXJAEIbUOBTSBZtOFYztV10uPOQda+Uvm3loYjVc3uwozpcIUJvdwbI3FdR+g wOy3E/Q6Oi8mf/n8O0WeYyb+c1hxt8AGk/dnYd6AF9YRMsdEli6C2ny+x4MKz2/o yh/eKAwK/DMkSUKnlAwWSr0xAQWtzYQiW6RxmRPx0VogUiVcPQ+TBrZ6Cl8qfMAY fVbi/bffykVwX5YA8m/tihxecxnA6Te4AwrCz+S5+rxZtivaAjNPvqPMV+EI06sv 5TTWl5Jkd158/mZbU3TBN7jNg81qbgjkF6oiqf752pNRQ8zlG7xAkoQj8bwLKaw1 u7lL6RVJAsdLDMyq4gcK7IOlsWtjoXgS5XJ4ndIRa9cRa5bh71Cp1etXyo/xLgvX r71gjdqP0EE1IXnv/s/Fk5RrJskb58lV4l26T9NKbSNTSt6nkxjNyXRyZGeNqUdR C7QdDQrvdb0WSp4ykaFD/o1XSjVVqugCdNrHqZL6Tmurd2LpUA+3ktGPq5VhOViu 2mvgA6m6ZV+UlJtdJP1t/qL28utvv3vwcIoOkRlVI9SU39Cp6L+bPJsUC0pYz+mb 6bUNZLFljGcEfmc0Il/0TtT93bM307u7u6nZj65QWnvZnVNgjJg2Z2QVOROKiJ+s zZX9ENG2P6ATi9RlcGpIc80EtZJapWfv2/vGfOPFEXFhGFRP76CZd9YyD9IuSRIZ X8IiUcXpBamVz3cj5AzwI1TXfSprcvnVCqtdfVlxDVHxfC2Bl5UyCvotB9m8U3tF Sd8NfryYe7/cYtWy7yclHcJ6FOYpapy8k1CWhcRuiFuJ9iN8T1OC4W2RJV3FplOL cMZsk4tRI0yyMi1jxrqSphlfNTeSYGzVkp4gacH2Gwk+GeYBIpgZVUqI3y0FI6Rc COUcoHiMVkSNGK9e8OI89+Kj3IuP0y8+hDZA2tyV3Sp8cZ57cZF7kWn8oyd/5GCu cqeSdMe0lsohle5ucV1fnPLsSk2ox2jy4LK8MOxA8SVJ4WLaYLcib5diDP+33794 8fm3GN6md5Q4dDNw/en5zdHBPj7R9A525D/Hn2dF8Z1o8d3a6MO4Ok6W7Q4vwW0H zGbbVaCgVq+rFZT/1t9Fh0rehEr2V0Yq7MOWsj8n07UYcoNmvI/axj+HKT/MBjdU swE+4SJnPLgUcGLWF2XIMaSs7GYv8YzCbCy5UuLR7E5zezNjmeXlor23hLeY45ru 0uW9pXo+7JYWXOF2hrdlYTefYi1ScxMLvu+/+XL6MghwIQ+J+J9lW8HGvbCjOEJ5 BEuDDd+Aqx0MYnDJH5kP3K7xzTASJ8mNL/zkCGRyjXHm9RBdvHWBnM9KfxdySQR9 WAPa8VzdpPtrpqInk5lVSBkkz4zZJKXdWQqZwTuCqHu99Zp6oz77lBHjlcgaLwel sEKPPHI6oZeffYujxdvbrHh7UXfL3brsjMxCcqyqAVSUavVLaiCOE8T4UZtVaQOK 4mOd53auqB9VCPa3YvQ8PTbQ/mPutzpPSozb5fPdFiO9qx1YEpQSzHhDMs6Xxym8 1S4ae258eUD3zHrvgwrpTXizj04OnjxEvYFsHyS5Gbsn2atsuu+0AON9u5yA4rrH dSiql0R7rwckRig/+46afHP2VBXIYGAri5kNk6+pceqNGa65GTU2OTITI7n/mnOI 5szFRwoSTQdjuyGwMCIiMV/MEWWMn40jZT/j4xbmzp5t1TGlQDKu8TYOPJMqeY7o 3MlZFC/7vOHgV97a9aMcyV6efIb/Di23Yc5kORxi02cxgYWkCC4T8rxsmIeHvW9a ubXX3vgCg7DwK2uiSn7HVDTD/r49N9SB/sFUkVPqFQE9tqudXF98QE/NlVpHdZSy o9hwnAM7HPXBa1KDL+/KVzGHHQzXbhsobGlv7AFjw3tqMDh0STf5vOIGvYljWwtI Ss80Wv0/Fa3cBmGEFoiQ7p42eFRqUHoYiAvbjqwgShMKxLEDGSdBs11MyTo3kngs wOd5vKUbF2u0kb4p7JEBDNN4lFgUxZ2beFMsKDFayfuNdrH45vNPv/5yYioYnyGg oU+hhxcr2IQq+dwmmXwo+jh79pg/NVY2EsfEx/yb+PgBZ4oEoevupKDUVfwLBQy3 lrhGHNjMZOyjsH5iHs/on27K3ltKFtFbOgGDF8BjeBHYRLDenuM/F/jPhyC7QJG9 A2VLhyq5m0cIBBgz6CYD4205uIds+dju2cqB3uc6Mde3w+i6mHn4wyKqJuPJ5x89 avh+AKSKd8EVnuQJsLvI16fLbZm0GPFrapz01Tq4NFYup6XYUq4gFhqfrqHbbmig UKPBApdhfb6TUh29tYf4gskWpEMSpFxJPea/3Uwa9Pn/m5tJf7sL81/jLswf8L2m sNARl5QxbNUqsP9GzHj4I47LXjy3N9Mu39+mcuv6d0kKBtn3XN0HNg7Ku0msy98l ae4ZvXV3+VHpw8g6c6n87E91aNk+p+R1qcyL9BYUm7tS5QqfJSC4ZDyc/RA4i1fI 9ICBGuaj5gv0KKdeuhjTjs8F0dYDHf1Hcmy9cpcPA5JMLucDTq1N0rcEnX+dTlrA FlH/WPe79D2GnU6Xt58KnKIw2cckGcIkiWlkk2kSD+rmdj/KfqUou+H5xR/PnsD/ zinNYQoAHcUJsh+sPCeHy+2M//nveM7krj+LjxvNg/r4Gbm7zMjAXKDaMVnGZMMo yMJyXGkREXH7/FpPJ0pvgyqWSCJTdF+aEpuyQDaUE1nLAiJAY3bamgN8fq1YU7HH 6Kw0PyzbzmcV2AwbOrjlMhDa1jm4oewFnEquozWTKLsOurYUADCfaNE/i82nFZvU ++91XTGzHZR5x2Q/l/xoK9/1l5hg6XtZ2WD1kxw5gs6TN7L+L7qRFXuM/RuqgJRi eCYnPikPbHJLgsc/nKucsIlL3Vd2H40o6BXHaHp7V8WfnxqjOSaAmRcEK7o6JLY3 Pyn+5G7jVrUy4LmEmfafwHRW8RzOHFSAPklJjHRTCi3ahdCNeS2ncT54VXroTeIH 3qaYFBvBgWE9K/gywXx2tbcv1pS7W7JDKv5zKU96kmVmWpMxUoIyjuYCMD2DqpUC XXxaFUsocb1b86nhlvzUnBbUZKQuds0azY37dofQGEqPSj41YA+ooUShkbSz6QM8 8YbVNiBZ6W68La3XDAJZpGbNDtF9D+PdYwmHOPH8sS3ysXzZDJG+jQmuUDzR+kgo Z7M7irDJZZYbz+EVZVq9r8BW0evh/22xp3jt1xZ4vGGihJgvCv0rvMlflJYS+s6G fM67i0iSuRvAx+//pgScFLvCl36nxE8yF2cMTdBNp+EMyJOrHVQ4UIc8ZKwlK6rY z8nhDm4llxvIwdSWPF6OTLl7gX1tKC3AjkrDe1QG3lzyXXpn04DXS7uZYgIf0Bwt xDXABq34LyhK0aoz7o7WKFPbmKlp7qFE88O06AmOl+sKYyc4vco9qGivy3W9sum6 wyByk9hPYXjYikVmPe+Jk7nEaf0ZDGf3F/wetB6moefB7udtbbeFh7TTqMQZ+B/Q Hwayv+Y7jkNuCGz2/4MRzoHNwQsnr81eRxD8G0VEiMirIJ+bn8rNrxAWMi1kUteF reXz1o01qt6rCnrqj9Tzij3Sg6L2rIZ2t7xdtXeNXCmQ3vJ6Vd2HybSm9GzVxpnG RD7A+xEJIslg8D7nuh/6Z8V/G1aIwZlXzbKmurFe2uVdcFUrjJOK+Ypqdn05pTUN G0o2hiUoRAiDLkwptFc+HEeMIxB0P2iVQdTG+dVJ9e3ual0vFWmNRQ1PZo0qCBoz 7jRwSRb+PeG6uKqbsrtHwc9S/lUk4l8xEapm2d1vQUOp+O+2q1+jToRQGFa4Jnn7 glLNtE4eVdv2qxgPdnQueVuaqqJHOULOvkH7631rB6mEFAYIZ9DUwjHYJ5QELicE 0h+6cn3TwmjdbuD11bq9u677wKPIvig6JnYiXfULAIrm1kyDsl+AhuaV/2xbrlZ2 pzy1YMjulSWUp+zttitWWpdBgJBLgh+/E8U1UcdkUhbHfpCMWtgjNb6F3dPLjDPU ffdxNkD+eeMsXf4njrMlVGqc7cvEOMfveJxTdUz+4VDYiOqcnsHIMEl5QlRo1fAS A7Hjomz6u2ik8eHciAtx4i6T8gVLRnouvQpxxW4G2PG1cgZLGOxXapfUYYMvEkkw YUUa87jrlJcEuksNKlmCholI9lNZg2zY3WBvrqcb6frutRXow8blajYRHEM3xefw 3/Rq/YpTbwddlHdzOfhjryY1hiHWvwhXEe+tOqel7jsdgruHymswDFGLssjo1+Z+ vciSpeSqzxigI7dn9ughn7kLxbLYdl5WlDyscTBKe2yqm3ao6fw8azhMXS9xcmFT uEpCaSMeRJSFmtXMX+CxmVBZTramC1jN1jKLzTsctKaLWN0vcXUe39hXSiuSrtL4 vik6EBOY9kHScLkM72u8lUSyaHLOHrzzjoKRbFgbwEpcT+duTZv8gKAUGHUBHkPc d8Hdl/Wm1rfbWUhfvDSpPyu83a4vJp+aa+/KNR5BWAVFgk4efeOdGqncxXc9TV9O Wn5pRiFiFaNgG8mgWcSp4QRr7vGhHjHLxE60SM/G78w7YAfS26qUfciF3mnEMyWB Pu73wpMV+ppNapap5Fl6Wav6MLgMMgVNyMdNxvarpxP9Klf+SQL7I6/7M3exqaIa NRVeGoFX1/YlepPhAnN6n9dVmWwYRo6kNVMjuAvVTUphc5PJvk8staOQfAB+bXdH ow/BPI+gwMwPwcRte83mr+AZJ8u7k+PhZMg3Gzca1Ii7/chzDYxFw4KUmi5L0MFz gbBQIAyS9YI9UgUC43LyF0kLJ89x98bI1zCqx2qEzt5NPRy1StND/5tp+q9pmibH v4jjTvfxQWS1PpQNfrNc/4GWq1LN1W7M26/MY74FmlR8ocAt7SSz5o2eL+x3zUK3 dKqXUX1/0dPZhliK6imbKaLKQQWr72dXC1S05FQ27fdZeSlRvV5AUnK/wN+LiYvR WGtc5vHehaXaQ/zxSeBHw7VKJ93qqUHua180tFHKZcvGo5TBz5pbqfLxBp3scgdI ZXnCOpQTntvJF6tqA3aSm6ZuNzEXmeyiUZIhyk17V5x/rBEQpTYXarUwN7zW3n1l ZgtSBVMdfQNpZs8zgdwxV69NvugTF6v5EQpHozp2754/mtZK8LaGveM8ErkinTO0 POZ+QHbD74vmyI1sMqjjOyvvZB9duCZ5LZ7WGJlhw9gO1N2SoR00ydlHN95+I5fD MRA8VkHWanSvaLghHvmVDrlhdOTKwVRPpHFahd7tclLPjSZ+ucA3hW+CfZeH4hxQ 5EY3vkfW5vt5w/udD9vL1Sj4AB753+IJtv9+TjfVrDjAFd/Mu4fezmlm38htuf6s iM2aY6bG2+jORNFisCRFi2HmFS9MTvfMvx6Vc0PGdzh7qLgZ4zYaA9b2LzKOOHF/ jz3GJ19rkvV7och5dlqnmTgZjfjuFwlnWTYdHpRcCiY/qBu8wzUgZL5cvNC4bFdd iFakeNEK0Y0n1q+K84E3jqdnemrJFQUq2ArydknCPfCOf9tzssEuytX6Ff1lxYus jy3uZCR2jV6xr5W9FKE/FT9b3nOJdpZMpijeIXH77oJbIPG90t5WEu36pAqbXSnu CtcMtUV5G0rY9OaaaymxuZvYbgqWNuOSSCCcm1l6B8zeiPjcqCa0x3RdLus1hvKV xbpkE4TYdPaya0naz158bS5ErbpeWXHEIPqslxhx/okjtmcSFp8coMif4OKdjl65 j2Rot9z7G/ZB2tUdAMV3wEc+ZIqPIUQ9PPfFliWORrmDL+FizW+SZ7bStht7+rG/ yYA/s0FC42gMbOoD1jwL4/56utnGGJA8KnE6Fbdk4tAIBwUXYSgCnIbbcE+Lk+vd eh3c2BMrKn76LWjssakaG5lxbfwox9D5xSdRkcsHwPnDxzGY4/SvPLBwNFiVSdmp Of/R1qo/dB62D+3xbhpHXMUFZs3cTJXES5BKQdjVDUvicD1Q8qaLgdm9jiF30jBN vrzGYnwgzLc8yVkUsCJz3DBZoTAPQatLdaM2Yo7ChAJpvWxhm+DaCXZ0p7eC417U hf2K0xHHM1n06P0yFr3KV8oSa0F/jiMmA482wDwJNzo+vmT6TSgVvwkl7+WvJJTQ BAsOiqfpFQVEG63EiYQxKqaFS0queNXCQ6gkRpwU2V82QT9h6EPF77hEOrB22kzb L+ZYP/NDbuJwGxNy3auA8qzVNlI7UyOIUPe7kAWXKe9iyA+EExf1Orjn9vZcL0ev ch+xUg/vb3zRe8bMPKTnHjD2LbyuqzvP5fv2s7rfrst7dELdAVe1d2ixVGcFJaPg BJPorEf3TfUaW8A0NmazCcFNsbwyVenFDKa5zj6DPwW8Ph1ZbzbVCpeqtblKZ9Ze X2O/32AC27Kmc85f86P22oDAHbJlV9nL98yNunjtt434orRDWP0HqSRlFk07Heph jdnMp1dQhvMz1z9XlwYcvx7wogqXBsjAuSq7ggqY0uay644o8cikIDMPbC5MJNaM 8WaaUTHJ2mqLz7ZlU2nCijCwT/wgGD6OANSVK2k9MDobmq0/w37NE3f4+iUCMUl3 V5okZV29HWZyb5D/kAgTyDdJUZBSwxrkRoJNO2zZboRuhgyxxDBdLG/xGpNcKRdL Jry2cD3nJ/PCxqxgKcM4qthWksMjw7mSzDeLkNT4r/EU3AIHGbyCOYQCu1re2iu7 K8d87ophxJ6n+nSgWDZz2gKF+AKrm/OvdV/c4Px7D9MHc75pncWNx569i+HklRuL 0mnS7m4tiw90zwfB4DsbmRAr86yWdfLuds6+IONAqU2uuBPKtxZztB3wXQPj8SxR kbA6qNjFYcU+NNzjmA2amFPP6d8P58XklDJlNTccDPw4Tm7Idbj7PooMx7658N58 qN4YROiP1aDkROn77xc2+R/XmCPlmfwTwNDk4vKvQ0nUmEc30VP6t6Flf1OuChFe zWUfhL7OOqiZmf/+hRnK3L27BZNhsmqny81qEnm6JRsikOMH5CDsOFQw8PD5V1XZ 4WNiPMaFMvyZTPfZPmjgBoi50iWu7JQtzPUIqnvfrimkrGEpyrBhPe7d1IPZuPEm N9999ONigddIdRuh0NXuOkjwglC7dk0ZM+covuxjDtmZsd/TJKRRvk4bscMIKubT SU1JlzbnJYroLo8l3RMC0rWT5GFJA3MJ4/Y76MwE0y16+DbCzrGTThfcpx33YAUs b4vloRbg7yaISrJlV+RFjO31dRpdV+n5Qyp9+pBKn41VOs6qxfszQuLpe6EmP/4N rwda5q16OTvo/Od8jHDVIscebJjzPR5qYZLcjuqISqYHeZjASfaURpqUcn3IwkqK p08nKibFW6UAxsUTmPxnZ2fFgTn4ibiTP/+5SJzr58u1gETB6GTpLBPpr6H08xpb sGgpJi9z95TKvudVCUKdEnOGKAgaolvB22K55+AnijujirGwpyQQMzJn6LoBJQzx 9m7QbN5QlgkT/Wo37j6n52Ai2PQmJcee0PFfkOrFghV5e+hAGk4f2rkzy+Y16PS3 7vDJbb1KNP4Nk2a0Od4cpK/RZoeOjxvFx6+tRuWwqvgJUtXk4Prhj74qEdCEh2T1 TJHDxCPQGILBJUXs4PS4GWJ0UVqakriz68HslXFQ93Ro/TPf5ryPLvAIbDLzmzVs Qe05nntB3RAPkWBaHL6ek7DRGJjKGJ9zaQ4Q0Z0XfHSmoBsHF/ydTmJjAl8+AY3f sAe7ge7BWYkmZHC4stu1lyzsoIxHU/+E0ttv+B2o5+2u4yM3H+AmH0yx+6LlGU6a fB8nxhD7WrI1wtyaUjbdBe/tvbUHle4qGqqqQZ20bT6grGY15mtHU30AO0gdojgv TiUKAzPiPzZtCI206k8hkXYGRO5xlTAszPNgcdWcN1JeYadreCkdQiD+ab5DjuUY TnexnnGw3zFAMZYYMctCJwG5WkUSpyk3lZEwqPer82lX7epecZjJ2d2aVKfF4hQD y4FTKOsyQnrMUAkOVjfE80UtFeU34eKHfGSLTbggyECUwKtVtTqbWIVXWyOPiPFR fI32z/bBk70KG7LGHoQdtz6GH2E3WFvaivViJ5Po0p1W9HfEtl175e7GOtGjiNrv upYBuMOsXB3frHRnvPb0AxpBFO5uy8FWtZJsb/sLw04CBv0swQFLJhRJL9kEv7u7 O+uqq3Y9VMvbM+CY2fKmntETmNLtq932rHsGhtRTXG9+L0LmKYLGVGJqQDfRyVFo hMyTY1tigFFbv8dhfFr85/sY7oANg8QSp89/vg/SQA4goCx++3VTIBFZ1HGibpwQ mMHsrmw4Y/yO06exzwPqc4ZUrPGsAAm30EBRygQt8p2S79AkjVnUpgIrUQnc4bnL EI3NTX6Atk4olVvH/C3plA21CtGhnqFCCXhP7vG451PG9TMfLzoo0N8yME7DtowB NpUgqTjJxEGg+iaXyQkwXFY8eKALTwrHGcYvcSxz4M2J46xRTH6PKchAO1fUJLka iAknAfjF2/8AmixLDHSHHt226AhrGyqKFvwdUxxoUneGuuYoLS7Mw/0WO03Xovcn JjufFES/d7IV4Bg704u+3VQkzfl6Vg3WlwkkCi73t7Gpb3BzTivJMN6lWulNR6Cl HfmnBgrsJxlonBcfFNXZzZl9ekLOQhm4FUxWWoRd46bcDpMcmhRYoMH0IFTJ20QU +kD8+cAL2GS9NZOmlCuGzwoQ46jU99WGcu8hNwEkriiNnKGJZZu2XqGADJ3R1i0V SFtZkyOv1DQQageLVHGCDHZWfN0VmPLYzWH2nvb3zVC+cQT4YsPJ9VhTY+B98fzL H57/x7e2RXTyCGFL5/UxgdJapZvZoCicKMAHFWYtwiZyHQ/pAGblS2JTOglUfORx DQbe3oIq2Hb3H4CZh7omBkOCYX2H+yzbNZ2uxlvbftEAf6jWwB6kUv9VpuEHBPfl xcviG5y4poUPkLCbs1dtuwVu6i/+bXlbgRZ91qwFoLF7k+dB7apWeAtqMEKXvNSI UqgWhPC5lQj/B8+RQbjW/wAA } if system/script/header/length <> length? code [alert "Corrupt program." quit] do decompress code
halt ;; to terminate script if DO'ne from webpage
Notes
  • email address(es) have been munged to protect them from spam harvesters. If you are a Library member, you can log on and view this script without the munging.
  • (m:koopmans2:chello:nl)