[0001]
[0002]
[0003]
[0004]
[0005]
[0006]
[0007]
[0008]
[0009]
[0010]
[0011]
[0012]
[0013]
[0014]
[0015]
[0016]
[0017]
[0018]
[0019]
[0020]
[0021]
[0022]
[0023]
[0024]
[0025]
[0026]
[0027]
[0028]
[0029]
[0030]
[0031]
[0032]
[0033]

$!(example "wrapper" procedure)
$ set control=y
$ on controlY then exit
$ interations = 10
$ loop:
$    iterations = interations - 1
$    if iterations .le. 0 then goto loopEnd
$    gosub oneRun
$    goto loop
$ loopEnd:
$ exit
$!
$ oneRun:
$ if p1 .eqs. "" then p1 = f$getsyi("nodename")
$ wb = "$ht_exe:wb"
$ spawn/nowait wb +e +s    -n 100 -c  5    http://'p1'/wasd_root/exercise/0k.txt
$ spawn/nowait wb +e +s +n -n  50 -c  5 -k +c ISO-8859-1 -
                  http://'p1'/wasd_root/exercise/64k.txt
$ spawn/nowait wb +e +s    -n  50 -c  2    http://'p1'/cgi-bin/conan
$!(delay spawning anymore until this one concludes)
$              wb +e +s +n -n 100 -c  5    http://'p1'/wasd_root/*.*
$ spawn/nowait wb +e +s +n -k -n 100 -c  1    http://'p1'/wasd_root/exercise/16k.txt
$ spawn/nowait wb +e +s    -n  20 -c  2    http://'p1'/cgi-bin/doesnt+exist
$ spawn/nowait wb +e +s +n -n  50 -c  2    http://'p1'/cgiplus-bin/conan/search
$!(delay spawning anymore until this one concludes)
$              wb +e +s    -n  50 -c  2    +c ISO-8859-1 -
                  http://'p1'/wasd_root/src/httpd/*.*
$ spawn/nowait wb +e +s    -n  50 -c  5    +c ISO-8859-1 -
                   http://'p1'/cgi-bin/cgi_symbols?one=two
$ spawn/nowait wb +e +s +n -k -n 100 -c  3    http://'p1'/wasd_root/doc/htd/index.html
$!(delay spawning anymore until this one concludes)
$              wb +e +s -k -n  50 -c  5    http://'p1'/wasd_root/wasdhttpd.gif
$ return