#! /usr/bin/rebol -qss

Rebol [
    File: %tcpping.r
    Date: 06-July-2006
    Title: "Rebol TCP Ping"
    Version: 1.0.
    Author: "François Jouen"
    Rights: {Copyright © EPHE 2006}
    Purpose: {Ping version using TCP}
    library: [
        level: 'beginner
        platform: 'all
        type: 'tool
        domain: [shell tcp]
        tested-under: all plateforms
        support: none
        license: 'BSD
        see-also: none
    ]
    
]    
;script security control     
secure [
	net allow
	shell allow
]

		
; include our binary image into script    
img: load 64#{
/9j/4AAQSkZJRgABAQAAAQABAAD/2wBDAAEBAQEBAQEBAQEBAQEBAQEBAQEBAQEB
AQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQH/2wBDAQEB
AQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEB
AQEBAQEBAQEBAQEBAQH/wAARCABWAGQDASIAAhEBAxEB/8QAHQAAAgIDAQEBAAAA
AAAAAAAAAAkHCAUGCgMEAv/EAEMQAAEEAwAABQIBBwgGCwAAAAQCAwUGAQcIAAkS
ExQRFRYXGFRXlrXUGSM2OHZ3ldEKGjRHh8YhIiQlKESSk5TV1v/EAB0BAAEDBQEA
AAAAAAAAAAAAAAkABwgCAwQFBgr/xAA4EQACAwEAAQQBAwICBQ0AAAACAwEEBQYH
AAgREhMUFSEJIhcjFjE1N1ZBUWFidXaSlLG0tdTV/9oADAMBAAIRAxEAPwDkd5g5
g1dtTVzNutzM8/Lvz0uDnIMvkEZsYHIzbDbbDY2c/X65W4tbi3FqW4rGFYbwhCLD
/mM6H/QrT+0bv8N43Ty99dXi2c9DykBWZQ2GYuNlEJnlspBropaFBOZFMsMgsSFE
Izh4dKWST2nFulBsISp4sZt20UwPWKx8ddu2zoeqMEOIbS7Nb51Dh/CckCsPPIiI
65SE8W2JgtggrEfEmPNCq9/2lIUj1Si5fovbdncvhJ67qfFNLo4oIDSoa3Uc8jc/
XyEsNDsxuiOhNyQ+DmvFaXyP90L+PUA+3H3HXu66wORo+V7WEG/oLzG4uV0bsgKY
2WLR+mtVqpUhrRC5ADFsK+RKPt8wXqlP5jOh/wBCtP7Ru/w3g/MZ0P8AoVp/aN3+
G8W8Et2jpAgoOF6Aol1kRHVsOQ+rqjuzakw6+hk4hLQ49F1TMhLQ+zGH5GOekWIt
z4+HVHtiOoKzLMLQoS3x5MtUJ214j69eLHQ75+UTWVi1TKUyXrNXo9wMzIwFvJYn
U4Ihb5FKEZko+HdeeYLdTjMW0uUTuMTrfbP0fSY3J4lbP0Nrobzs7GBXGdcOZfu1
865rNQrfbhLwBkc/PuWRNumtTIQS1mTZBZc50NH3Pcny+v2XSanW4vP4NVdzXtX+
rzk26NdtynnqJuPOvOzJtuXqldaV55uNjo+q5gWSK6vzGdD/AKFaf2jd/hvGbD8v
TVUgO2YBU9iHCPev2igzpQkd323FNOe2+zHraX6HULbX6VZ9LiFIV9FJzjDKoeQp
NQiGpoWBakWGHfbBnZ1hP3e2TUe6Xj11mNey/iBiASHBCSJ9WUuDtttRT0efM4QQ
z62bZFlYq6C1lfbZS4EvERUcOlnDtfqY6MjNkJeUyLIpkpoj1OjSbnyxCA0OlRX2
t9CENvkPiTxuISTuZxpKF/kkE0oL6jPxAzLDMRn7lMCMDE/aSgxmVf3zHdvuB8zW
LK6+X0fTCplyKYW9ToLaPysGJJ4Lp15c8ZrqA7Dyca5QCjrOWF8pqguIzy3ddgkO
CvUvYi3WvR6lByZsgPn1oS4n2zAAyRHvoleML9p9ftuYU056XULQnVnuE9GjPOjk
RtuYIYdcZfYesBDTzLzS8odadaWKlbbra0qQ42tKVIWnKVYxnGceHAWS0nRWxgq+
iSdBDslWZAFey1gtmMnyT5dmKlWwlMu4fdyRhkJ1j1jDkJeZdOdyyC16NbTahLqD
JwNorUQXb687JLXB5US0uXZAy44aFW5QJ006Pl23Q2PfGHWemUZEy23nIhZD8Peb
4g8awRgvmcgWCZhENpDIkQRBfT7LL7QUgUEP+XMsmCEBI4kfWroe47zUaK1u50nQ
PpuqU7bWZ/Q3VPUiyTEzZivcP8JpXZSaXRNwIqCan23KrtFpKf8AzGdD/oVp/aN3
+G8H5jOh/wBCtP7Ru/w3hhZ9IBkRHp2kSTsxBi5ATJhFoymxQaiWvU+6cK2wwOWC
xlOVKOCVlnGcEoRh4aOLkPGs2AjUcPNWyGb2NcB2KTf7prKw2qf573g3QmLnRbK3
U5qJGvFGp+xK68puUdYdW++aIOHHmR78i6ISa0F4aTvLHgLxpo5GT2ORSz7+9S0t
HKTQ5HpuhizQyH0K2hbNvOY+smomu/TorkrrK0sJ/wAKg/xu/G/3j3Y9wflKhraP
EdH1OtXwbNKlsjY6qjj2c65oVrNupVdU2tXPsm51elYYI11uGRAZ+0w9P5aNfmM6
H/QrT+0bv8N4PzGdD/oVp/aN3+G8W1FuOj5Zppyu9Nc5zS3iHB0jlbOAoryfbEcM
U+6raQlEHZHyhLbLbjr6MulvtiNJWQ2S2xJ0brG2z2HfwsmtXV1n2/WLQb5RL8fn
3Muen246m2ScOe+iWSHF+yO57bIhj7npZDKWzpqvYe061ARPVeJqLjGTGntb2Rga
P0GRginM3LefoCISQiclWiAIoAvgp+PW6vUPdhnSX6nN8xksPj5sVc/otCp/MwIz
FygizVKDmY+ki6YZ8xISUF8zzCX6BDqt7utYj3CXgK3bbHAgvGracMdDh5gyPGcL
cYZHZcJcZHQp9bI7DSncrU2y0jOEJPG1b4iZSD3dt+Jm42Qh5UHZl5ZNjJQMiPkA
3vxLJL9ooIttkkdz0KSr0PNoV6VJV9PpnGcniIhsQ0zbWYptZhkyu1JixLEHMkpi
mBJAxRrkSWYkQkMwQzMTE+iI4xWTx8o7v5f1h5tErf5hkHfqSqql/wCYCgSFv5ZP
8gkMSJ/MTETHx66c/JYoXk7M8XSuyu83eWcbgVvO6R4TW6bzHLtr9SrdZpcnDMx2
uzbCokqFQSfK5W4FV3RpgkpsA1Z7zgQ2XM1TtnyS9bpIRzDzxWtpTMGpxttjlPgS
2WU446OwItv4N2jtRQVZnD3/ALTgjEui4ltuPQBDx8m2UE1lShfI81nrea5DIt0z
r+kS1sb3DfAm7PJ1SBPsSA0QlTaSIiaKAdkkipaddbSOknDWG3XEYRhK1Yy8/wAD
e8we/tnjvteq4TG8aBp3uY2LeO3Z0+mKvVe2of0Jq8upjMdK2fwUfbTUQ/HxIl8/
IyR5HwgvoMbN3LnQnXVo1hsjTrZwmxYnMwMFabbgZmPifsMVZif4+D9TpyF5jFB6
W3nbOb6zzXv7QZtN1iTtiKf3LS6lQgbFVfxnH1B4iBr9etNiIHyVYJMwhOC0iuKG
HyUYyMUakZHPzv6JOsfQ3XFbEfdaRK+YrvBT6cKxlltImjeY1unuDrfHaIdjwXD3
mkZcS8tK3hx1YWRlK2J6T3XqfUPmRzN/2Tfq5UaWRw0urD2SSOSqMJshW/42SYgh
nxEk5IlVxoZcjkFlKyEADPmONpGaW6laGx+kKYPsDsCzU14myJ2d2Jedq67I+1Fj
AztDsGttL1oScIHlX4KQjMuH1CyDYjJRuPmGnBRyHgPiEsuOTi9svkoe5b7d/JfW
jn87FzoNLc6JVc3RSx6scl3+WphzYYyylFl5U6y2PKYK1cSsJImLAmf87+23zt1P
jXy5zHiLxF5G8g6NjOxsjn2ZnJbFurdvO6zlWw89BWfOYC6agtaToY9YDTovM2gC
mPCE7LIfiewDQ9eZ9EKKS3CVOLbc9odLTzzY6SE5KQKpJM0X9DzCZD6mZcfQ2aU7
gZC0mxCh37bJig4JbjoX41ejxiXXHfhjwYzUathjLj5CsDZLHJIazlz3HffUQ+lJ
Dz2PGcR1FJiOsvyMLEvAIQrJiEfIiXcLVlxtlLJr8lKMoRheR1qW6JnLmVODJbRn
0E5+aO6YupXxVOVWAJ+R6fQzHKlnff8Ae+uB/ikKdV7vu+ppSfoKr1+rLaPr9Uue
CnO84+Iphoh2hW2G6JKM/nOg0IGVDMCsZo59hYrn8kQH+Z+OfoEDEQMTI783+ll/
UVWefYf7Y1c9RqZZAgux80eIeQJsXnKZYtvjqetybT7a4pSy1E0pthNmw1pGb2AO
x75/pfG/2bD/AHpMeNSvTv0nImygkjMk2GEhrMvMQn4rUdMKSsWQQO6yQ65gluWj
iSXnsuJKaMddbfyollx9zb/y+3z9Wz3/ALUz/BeMHMdMW4ABBCadEgOMkGDlkzBM
myA482+xhAyFYZYUEQEyQy2Yhx0xT77zC8NAodS1mqx5z8UyT2WOi1qYvMGAVjjO
vWMGuJmfhk5EDP1WRkUn9BEYk5n+2PnFxf6V/v8AkpxKGT4b8edFYz69jPYnI9zf
tztPsJuQDIGaceRDd9m2K1cErrRasNbEKFcrYwoyxU2dHTdX2hWVNC5nXmRp4Vlv
HwWbCI4ymXjjRWMqQ0DMoQ1KhslmuSpWcvyvrGIQO827bypthR2pOS/MZ2tLgmyk
TrLvDvnYUpGRuWEyMjHUtyOshoICinGhkmljRro4uSHWmMPuN5dcQ36lYSDGdRlt
gkllwwz8khYREPiOEUsBxDZDDpOClEz7TjuSRMvYDyy4O20Q2zl5x5khahb2cm9N
6Mo3EXmX6ftd+ChNg7r2h3TtHWEGZFzyU2ytbnqjjFEGCkUxSoxmwnnPIjn68aYN
JtE+txlggJtwxEQvcZ2fKdf5B8eavMbyNjPo8b3dTRsAl9ZNHQv7fCNrIfFoFSp9
9efcelRREmFZsh9oWX1l77XfZB7wPDPJ+Sq/lL2493yxt2+N/bbmfVV2C7+Rm53W
nJld5X9zR+jxg0q1SbrmwszfP2/GU/LLkw/myccbxqEFbd2cL9SRNQvcGNZRLTfe
Ro/dFHmIGTig01yUcmNcE7MKdFsUFMCCRKpaDBU60+QF6cAYaJKj7N6/0a3e8kpM
pD8NVeayerBjNz1Unl+Z+dknOFvzg9vqGppDCinZj5Thky3hs8fKZFbxAkakgTWu
KTQn+RuYo5ksV6Qgue9MQs2C0Q04ZDTMTr2BipWJlRULy/HycZKR58bIAFoZKDPC
LDJabIGebRusLZtU72O2DVDq9A2tWs7cTUJuKtcHFy6MFsJGcdPYj5QYrDcc/NR0
hHCvuNo+YZWnymcKZbFdyGuP6gHW5Gz2NHb8Oq1szj9a1S1NPG3buUWbVHZLIovv
17+Tqqhtt5JQCitVYa9kyuYESGJ1B7Z7N3OsaFTS2KMZlSjZ2wv40WIy5vHXrKXb
mH551iO68ULFq5ZJFAfSZEi9cL/dFY1NS+yenKlojFfxpqubs2FD60TVJ5VorSKc
DYjmIVuDsK5KYVLxjYiENiG5lDsOspT9CHMYxnwePXu2Fhq52T0vB16JjIKEi9xX
YSNh4YAWLi44VuXf9AwMeC0wIIOj659DI7Lbafrn6Jx9fB4JJzmyvouewegUg6yt
3Gy9ldZhixldenRRdBBsGBEzUL4WRiIiRDJRERPx6i5drFSuW6ZFBlUsvrEYxMCZ
IaapIYn+YgpCZiJ/mIn+fXTf5FP9SEv++q/fuin+LydIc1zu+pKvKB2XI0yECjSo
+dh/YlpmMk8pMakYwtMCiwxUMstkpGUkEuMtFuIaBW6SSmOBHHo35FP9SEv++q/f
uin+Gz33YdD1bWJC67JuVZodRivaxIWO2zUfAQwzhDmGRR1nyRA46izSFIGBDbWs
o4pxoURl4h1ttQEfMHT9Vx/un8kbvEuNPTo7zcr5RKzKey0rN0yqgCMy/Tv1rVmS
bBVBKo5i7QpciBsKUYkN8JdZscRzXI9LhXk5ujn4xEq7YrUraa4tU5bHGnRRYpzK
gKWrY5RQlgA4ZEliUU25V4W0dYu6JHQuxBbBsChBcok7jwHIzZlfIXcUbmhqc1n5
tRcgpFEUmvOPjLByctSySiDMEIcSGkOlW/KfSqfsLqmnV+pxAEbUe6dqVCoKSwh9
6uUqs6o0hYo6qAEFoIO+0j2C9TMsGy4blITq0MsoyOyE2E3jy1p+b6H7UufVlD1r
tGO5ra5Qa1BUNy36mma/rO1bRJbXhL4xIauirU9G3O01NuGZkBiLVmrAQ7ExFmRq
yMOrAUatveVoh61vDtj7rU420fN8wfdnx/uGRcfB+NpHmX3fZ+TGyH+0++37no9n
/Z0er3P+r6Dhe0hPU2I9ss+R03kddo9Bo/6UBv0fw6TGnx/kK3XTq0JQslsFaqDY
qtrgddqkEaluRH0g171PcL5k6Xx35vcryj3m9nJzMz9szcrtNDNyjXPZciDZpIqa
FLIBUx+SWEACuwkSV8tWcAVbNd4MRIyciIasV2qVK0zke3ltL7SCPtzoaUtNOqyw
z9H5BJi85ZebeUP7TrKsO5cRHvizNTvlclPxL8PXsJE/bqlMyhXxlAZ+5BifG9+J
I9qEG+gxnuJ93LnyGv5tPrGd/wCj06l+VGofqnrf/qi//wA34Nb+lqLrV1rtKUof
y/QRQ+F/6wGfoAr+AiIAR+IgYn4j49eeKOg6S7t7N23zuhevOGgNhr9bJZbiBCw4
P1FptyTskxlh7hImNIJYUFMTMD6N8/0vjf7Nh/vSY8a3/uh/4kf8seJn2XcoKuzo
gUpSIiykOxDBSDj1B4eaZWYeykRPyIk9ftNrYceT9Hkp9b6/o0nPqUvE/jyufgT7
1+T2E+B+Lftf2L1AfD+Z9n+X92+v2T2fk+z/ANj+nw/d9r/zPo/mvGY9SJtXCm0A
kQMgglTpkImB+ZmYCRL4/wCrMzPz/Hrl8rR1Q57mFL5+y5KbdEkWRv5gBbITd9QB
Z2RaqWfMxBOABH6/3THzHqK9URsdN7ArMTNR4UvFEkSKSIyUFYPj30uRJeXEvBlt
ujOpcyyz68LbVhftNerGfbT9GE8vczaO2Zwt5l+07pQQJa/aU6e77zrKxtSM3FFV
WM1TFEzVErQTERJgBOVOBJW4wJWSRnoZoJaBmRGkiAqFqpre+Vyau9fjANewkGWS
U97UoGoDJAvshkkOe3hmEDd/n2mljL9JDf8ANvK9XrT9W1NI8uynWPYnBHmq6/p0
d94t16698yGnVWI+YBH/AHSx2eHRCQcd8+UKBjAfnSZwo3zJE0MAb3feMKHHQ46i
AfurrVR8i+MQGEWAfxvkdz5/B8A1yNvxstBtBoR+RiFtaKmFBSsHMAJiDOJLH/T+
8neS+coeVXYfT9pxDs+/4zihXyOsvU/wA5XkxrnV5xtEUJCy2Pq9USJNJME4CGQm
VX1fmkIPlfUvU8Ftaco9skND0Hak20tCWmXrdcaXBTGYqpzcQVCSVaYPlZl2EiWC
cT5bizQhnjs/V513LcKxu5G9q4usXX5yToViYko292OUeWNGGpfWQU1JiHSZLKJ2
cj7AKzklUeiVkBxy5IchIiZJwlM+8tba1GXrDT/FW94OY1X0HqvV2rKNbOeugauZ
QrJZJSh1sSEYmalE2H0wG1KjMGVA6z1sqsH2JoqCZjp2SjY7KmUtseaaaYabYYbb
ZZZbQ0yy0hLbTTTacIbbbbRjCG220YwlCE4wlKcYSnGMYxjx5yfJvn7yHy+R5O8V
eReSs63Q9Drb2VS0+zy05v7RwzbTjx4ygp0c/T3DG423qY2rc020KBpoNpBeTJqX
6Uua9zuv0PiO5gbJ0+/1ujoRmWOi1TosDNyypVymr9sxNfQv69fTddvA3SvDOXaG
tIod8GoOA/zBv673Uv8AfVeP3u94PB5g39d7qX++q8fvd7weDDeMf923j3/uPyf/
AMDn+g57v+3Nn/tXR/8Adu9P78kmn9ybc5fVr3l3VuuqzRx9x2t+7dS71nyCKLXH
iA6RiXqVE1LUih75sO8iQBrM9Gnln1rXzMgNmAnp0Z8lLrb1n+LuFOKGapvrvjZs
z150BJmtwlFsm867+O3JG6uhV0gys8rchUiJmatXzipatR9hjBKnTLhfoAwkkou/
KBIff8Kt8hjZnSifL+ntbadVrnnuhtdDXsy+9nb2lIQytVYibrOvmw6dpbUxJgTW
zNjKaFS9JS+wbHRtfVFkwN1hnZMtk2rBXTruwCK1ube1R8uDVwXTHmTaA2BDVbr3
YHmBNXSN2zs/UhxsgJLG6G2SbZK/UNeUw2dbgTaxTa0PQdUZpjkRYahrO0BNw5BO
Nz/ivx7zHS7vZ43K5dfrelv29HY6RyZubL33iIrK69+4T3Z9NkTAHRziq02CAS1L
GD95yb3Tbujm0sa1pWSyc9K0Vc5ZQmoIq/kDalUANl0F9jF1n8rQkiFZgHwEbp3X
ujunblBrdQiN76a8rdXQU3+GuetW7Zu+Ifr3eWQTYZEpESu0aMfb6VzdNySZuvMR
QFFa2XaIaUskDD2m21uVk366hRVhrkTWh4vmwjT8xzZ0HXZyZtcxzvsInBd5uUnN
QgJN3v8AUtwPy0lXuuZa0yMUK7+MqtOSd2Li4RqNbqMZEwmFO3n2GDoHUcx0rSmI
DZvnUb5qW86VtuZ4r2XNIt24eMImWFNI2bcNX24ikWSe2FCtWqR1xU7ZX9Xwv2xe
Va7Bno0BlqXnD9/23PHsa+6zH8wSxVjzFKR9Nf7novF2sqRQWe+uJEbTMGKYfmq9
VrDE2zWwOvalfahEvXyNkTZzLy2ZIEyIrc3L/eO+ou0sPqOf7XAs1EdFy/7l+1Bs
Z4beCca1X9Fdm5ktbXYq3NWWIq7eLexujoV7F+hV2Ax9fcy9Vv8AseVye75bR4/e
PUTk6bqdl7sTSbkaUOz2zYqgVlQNReofqIW6zj61TRyLLU1rZ0h0qOdfpK21wEXi
6uVk5JcdiXj7HW50VbCWD2GsxhqiRVtlsLcDLGNDZUrC2kutPD5ZeQpvLzK418Mk
tfK+3qPBVTd2lmtjduafndf1rbgtItLcFXPMw0FRbZAwskxGW2rGvDM9SCuRKZOL
BibAHBbPYINZgaZYZgWPFlz6gtRGkpmvvW6j2K5XyrR7+Y+xnwKYdmXoE8k56Ndq
u0ahLhx1s1raWj2HBkRNwh4v7itOVwxMmyhx1E3PG/uK5bsTy+Z6xSuA7i5ZOtTz
NO/FrneistGtCa/I9UValW0rbjJkJwNWnhdS803nU8K7mVZ1HDR8q+3XufGGhsdJ
l07fc8LNGhJbnP58fueVNRunNqz1PPBZsXMlIofRUWsh+pgjP6eszYTcYFOPbfP9
L43+zYf70mPGt/7of+JH/LHiY9hw1bsN1iIYmLvs1ZjoZlEbGUwOOPWUK2VKv5wg
R9t010lr2jXyMtIyy2I0l1WU4Q8rH4qVFVuSXE1Zy9rA7pe40dmbKvdkTb4up8xa
cMlgwnyFb66IgUEwsxZ4NLscanWmqT5i3yMVBzAbsrGZiXspcXyh5f4fxe9yt7RO
/wBFo1XPxuLwQXpdZrqgpX+oTnk6vWzcz8qjrFv9Bdx+bRdlNK3sVrFlC2M14X8U
955azOao8rz10cvMt1T2Ot1AjP5TKFK7DoB+q0pm3cZ91SvIykaG4+vLrdTLspqv
kYl1xlqsEl7TskxA0ug0YWRLmr1dZFdepwR7oOQo+HcnXAzGn5w8qTD+BX48aRsE
ohS24aHlDcsBETTrx/eFF2JUevNTb5hPLg0LdbOQi99FdDNYpGnO69hyT63BiQOG
5U8OQdLlouNKkJTe8o5qucloCXs9tiXoacE+Y3bfWOluctBdSaXoXUcTsDuXa1uo
Vi3BXt0i6mrUf5aXHVNwzYZJVhrlPkLaPrsFisEUeRfsm2ZU2TtTzAcLNuysPb5E
kRvMxewb+3+Q+D7GpesvOP1BZ9s2nf0n3NUIbV0fyJxPrqreqrX0ky3xddsdIsv5
OY6Ksl6sVUsUxVMqjGmY6FVY5+EYZEH13/XdD5X6LB6PqKOVgq5UtaOYw8IosW6q
NhKK98eh6xlSnq7q7gVKlpmBVTk8qm7XoWLmXva2Fi9DXK94j8QYXh+ntRl62tu7
HTVMur0GheYdXHMcltmzRHI5oHvpU303aGghe3ebf3G1bNldWxj0tG9kneza+xtN
bWho7lfzgebtc046zyeIagbQPbftXK2z7DNCkQQ8npndrnwbtz9tNY0iRFtV3Yrm
r78GQfljXNwvgLq5jEJbM8vDsvmpwmzcU7k/OX1cD8413k7q2xJavwQSy5mafh9L
9TJEzKLMz64SnUqt71DmYCvQrJJsxfzHkDobiDUTG447WGLpybuGv+ZvyN0huDYd
s7b3f23OSs7R9a6jgJpSbpSNYc7NOVJbMm5T5Gxl2JERSp+s2OQhoEOP1uDX3YeG
ipN5G2REzusojeHlYbIk4/REvebbTKrwh2XLT1Ko2zZClIiFWojkXaFmKv1/1JGf
98sMxUDAx2wtIh21qSrhNF1vIt2A+NbbtfH/ABPkbJLD7nmcjpsyfySpOnVBrabG
jAHYzrofS9mW5CPp+szrNW1A/Ii6ImY9Pdjb+zz1qLuLo2s6x/bBlXZ8LcIzMiuy
g4JFpUTP2hVhTV/b+fp8xE+uEXtqTscx110bI3ClTWuLa/t26ptFBsL4BczT7CxM
EDzNeNOinyYuSVFyLJIrMrGvux8oO2zIBLyMS14PG1eYnapO7929cW2apVm1xMT/
AEBs2RlqFcsRP4oqEm9aJDB9fm3IGTmYMk2NKS6Mo2GlpKJOQhBkccSG+y8s8dBk
5lPEyszGzlkrPyM+lmUVGw2munQrLqVlk1kkxhAhQCTDIjOYkimSmZ9a6zYZbsPt
OmJdZc2w2YiBiWOMmHMDH8DEkUzER/ER/Een8eTxzBZdw+XXvS5dETtg3l5fNek9
pTdj4p1rr943dVk3Zr2Oo9ohr1rC61yap1tasDca42wJCt3FmHsDrKq9OwBcY+3I
htLJsV96u5vjA4KxyemfJ5N5TkSK/Lim7AofmGafP5LgRVlhNBKkLazth6OsOqiG
5RuHTewrVXJCSQuYdsLEaW+sfyPaVfqvyobujn3Z81qbcbu2bYDL4PVIW/T20oiC
DqzkTUtxaqLlAwJqFGQ6eNF2elSNG2dVMTEu5WLwALLzsZNO4hscrdo9Z823/p+v
W3mLv3mqTbI1hEV3bJEdRd4Qo8hJzzQGrr39vhWtx0YxoSxl2LW5cLRdrxsObcYe
8U0mgmIlp3YerPqqWubXK7oo2vZnj2sf+G7YHM0xqzaXnPyk5Tax3RqF/STb8rY2
t2FS9Zp11nYWLVrejxTsIPKS0dY6s9HTgN4akQE/bMBpYcKxbB0+vmmBvPWG8d7c
83zUzvn0a7rAE09RtpxJE8PHV7f2iDczUBU3qLroLWVRduO27XFbTtVaXDC14KzH
CNSr1rInlHom0prnQXmQbzrPJSOLNm2Cz0qa5C2OnWfN22dPSs6FY7mTvHX14RPx
jH42kxC4WdQpyAxbqbaz6vca1NHvqIXGVt6IrxmqpeE42haz5dHAkXNSdzve84uj
A6D2ZtsSZZYeMmtPUaXqkCzpqmT732aNG2lcolOyrZGqDi9fVKlx0TXLFYF6XrDD
g1DlXdtE2rZAQu2fOia1k7rzcEpoW1ymstOP1MhvFZrl461kX3V0+p/ZKFX4OPCT
mns3zYM3WoNyrarIXHhWKCWxd2S7h2lvTeBu069tu/F80bLrXS9z1xUAtf6Zo9rt
BuuHtUafreQ3DQpwvCApUgFiduuwdmHOCsP3SWWeAIln0ldjC2mmg0rWEfsDj/kc
142dUJFhKA6p6zRNEstyFpxK2MyRteqqRZXWlzBm3LzMm7T2xFpawBhAxcskPPhf
kYOogmsKcXGa7o0OjErUqOEI3BV+mSC8O5MIYcKZYVPSsiTIEOTxM1YJ6TlHHSnx
pFpKEEsdV448a9L5j088+fGrn8ZkdBiaWt2uqJ/t2iWBtVdWxicbXglF0emx+cOb
b1lOTzuA91gm39TYybfNHH3z9555DxHg6uHeTo9D1nQYevjLwMJJ2ZwK+5mFm/vP
VW1KcrLrqq6TL1TKgW7Gl+mECrUKdyton8u6ISw2qH33TacOVI3G58l7NrFWgo4h
DMvZZaTRIYzXodhTzLknIyke0ey3EjZdJkmffGaHf9amlWD5r29QwOJz+eCfxP0l
5eFxpodK2fG6bSBUOt+TzDSBH7rWrdVaPGQdi21WsSxKl2iOPjQNuwdCjZl4pveM
XKCDFRZPH0dUuTbF3eKHMagWIARyNLFPkIxt+QIWdJxaY996SbmFimqFjzRGvTFf
Ugwpk8Zbg7cbzdgrebkNsPTuy5vSe+wwAI47cOKu3P0Lc4EWHhQtf6UpqMMSl8bf
SlyFC2MLEJ2FUXDnZSOKlB46NYHe73I+KOsX1+p5Y56rHU5Ghj42Z0PPZKG2OsyF
YbdMk7eTn1ysN6mg1Oif6/IoJRvUZqQ3JqdI3ROjmRk9mHnvlcTkc3xB1NXQ516d
K9p5PW30PXzL7ulTzl2cbYttQoMRwso1Rz9JrbGdYOy+NNmNVqKvXWTW6gTmrue7
fdOXcQvdvlHsaZjdT6O8uvlypKvdt2NP3g4H8otk2XuOHBsW0Yw2H2iuwW+0y9fx
cLVBEyp8VLUitlxdklD4srbUjVbLaoHjqUr98uetuYIqv7D/ANH8h7LVZjTtAkNg
PQNA3O/tfbBknihbheq0hsGUkdmwEnWsXiZt8kOBarKEG2uBc07nrd1ge21LyunC
3uLuzz0i3PYOm7S81b+Zew4lgUp3FziA4eVBhtnwZ4bRTLm6tYrr23KY+6Q1bEWi
LhBos65Q9E5O8xNNt5/l0bG8uDr+yXmC2x0jWdDoqep9idPC1WLlhCbFVNzYppDP
Rmk/xDLSNlCMb9+ZrlwjBLLsrX1csyxFlRep3amjVTdoWUXKlgfuizWaDkNGJkZk
GLkgL6kJAURPyJiQlEEMxBIGLNRktgyBj8fIlH8/zETEx/ySJDMEJR8iQzBDMxMT
Nf8AXKK1fOgbA/z0ZJ6Z8x3jrlMuVe8v+s2FnX3lz6a2HPNNVyyLlJjX9cAplok6
sFtQWYs8QBaVxVrtADYabMXA16SVCSauFjuqOro/WmyKbbYvzkOZeYDFx/W1U1/a
jOItCXOXclLhUHIOpXG+RoN3sEeDtmPixJWe1hcIOWkCUzTCZ1qsBDR8p37m6+bs
0l0rXfODm9GaN5WD2bq2U1NK6b2fbKrtG7A67cmK7Wy+hNiS8vKB7UmrZDO0aDha
wcNP2Gz39kyQr1cqs7Da8U5mZjfW1d+1KB1loWJufInHsJTIOs1iwsuPVrpzZNUi
Rkw8CBS3MS0jI856/XXI0H2piYYJ6AmIiWCcBXo20xRBJGT6o9cEfc9Z2RTOxOk6
nuK+s7S2rXNwXSH2JsUaIGgh7pcQJd8efsI8SGyMOEzJSKH32m2xhsrbUl1Yw7ji
2UHjx7ep1c19130XS6hHfaK1Xds2+Ph435h5/wAMNEm64ln5kmUaeR9FuLz7hRT7
ufr9MrzjGMYPC9L1azjnzXtucZ6hd07Ttaa5t0Kq2zVtRKWZyzMyiCJsWLHIEXiL
mBRHGWVRmHGV4Ybc+j2UL9eUYWqc9jeeJs7bVTOpGwubtJ2GuHvAmLFVK7HjDQZK
LLZkIiahJyGtUdO12wQ0gOxIQthgJKNm4c9hk2MPFKabdSeDwvS9Q+H5wnTFilqc
V0AgLqSE1WEKFqKq7wnbFPQdOICk5E4O2WEOOMjBtr7NCGIi46P2fs8az3SNTBiy
cfKjTZR0kRrmzPNS2/uzZgWxNwa61pfAKglb+ptaSI88nWWtbC40oZy8pqb0uWHf
rukX6JCkdj5tEHEEPGPw1cj0vDMBHg8Yt2lV0araV1UWKj/pFiuRGKrCwYDCr2QA
hixUf9Pw3KbvvVvVTdTuJfUe5LKhMwn7KY1LIgoByGsRYSRDIw2vYSQPrWF/P3RZ
Qxdiu0Qehq3LAx1mX8yTZc/JFzE5UIWYljnMOmyUnOTpxxTiUIaQsgol1x53KGm2
2ketefQ02htH0QhKcY7+UMu36vat/iMt/n4PB4cir5R72jWr0qXR2qlOohNWpUq1
6FetVrV1ipFeuhVQFIQhQApKVAK1rEQAREYiGif4K8UWXOs2ePq2LFhrHvsP0dpr
nuacsa5zWaRMa1pyRsYZEZmREUzJTMn8oZdv1e1b/EZb/Pwfyhl2/V7Vv8Rlv8/B
4PF//FryN/xXo/8Ahqf/AFvVr/APxD/wTQ/87r//AKP/AEf+v/PPr6JzzDrNbali
kXPVFOtECAR93p6zJ22R8/rS2tEoOBu2sbTCSMZYKTZQpBpox1UTIIhp1bTTNoh5
0ZlhhqX1ecFum06qq+tNyaw1lt2Wpfx3artqTJutV25BSwDKWYu4Q14qVljJavbA
AbwphVzqz0BJyQmcsy6T3C5h+VPB4bqxEWtbV3HAEae48Leu9KwrBfugJAWhYq1h
VULSsBIhd0YRF6+CaoXbFgalWEufj5NHAyaOHlLcjKzQJOfUdcuXRo1yL7/pKrL9
iy9FIDk2JpLaNVDGvYlKze4meED5xnTctbKxsHopqM6uvOvmY0XV0nuKUmWa1rRE
WJkVudq2uaW/WaB+UY/1KVMbbmK9K7NkWWhBXLS2y0/guyf+sHdC/qM0z/8AKu//
AN/4PB4XrY+kqbv2vM7029sbcVhjoyHmtkW2YtsjFw2CsRceRLFLIUIFk4gotTLC
cpbwt99bjmUqXn0YVhCTweDwvS9f/9k=
}



; list of the host ports to test

liste: [7 9 13 15 16 17 19 21 25 80]



; makes tcp ping to the host

ping: does [
	i: 0
	
	clear result/text
	debut: now/time/precise
	append result/text join "Starting at " [now/time/precise newline]
	show result
	
	np: to-integer length? liste
	for i 1 np 1 [
		n: pick liste i
		bt/text: join "Ping " [ ipadr/text newline "Port: " n]
		show  bt
		if error? try [
			cnx: false
			close open to-url join "tcp://" [ipadr/text " :" n]
			cnx: true
			append result/text join  ipadr/text [ ": " n " : "  cnx newline]]	
			[cnx: false append result/text join ipadr/text [ ": " n " : "  cnx newline ]]
		show result
	]

	fin: now/time/precise
	bt/text: "Ping " 
	
	append result/text join "TCP Ping done in " fin - debut
	append result/text newline
	either found? find result/text "True" [append result/text join "Host " [ipadr/text " is alive"]] 
	[append result/text join "Host " [ipadr/text " seems to be inactive"]]
	show [result bt]
]



mainwin: layout [
origin  5x5
space 5x5
across
at 10x10 label 150 "Network Host"  left  
ipadr: field 150 to-string system/network/host-address

at 325x10 bt: button "Ping" 100x86 img [ping]
space 0x0
at 10x100 result: area 400x300 wrap
sl: slider 16x300 [scroll-para result sl]
at 325x400 button  "Quit"  [Quit]
]

view center-face MainWin