$ ! System statistics
$ !
$ ! (C) 2005-2006 Dr. ERDI Gergo <cactus@cactus.rulez.org>
$ !
$ ! See http://cactus.rulez.org/elte/2005-1-vms/#2 for a description of what it does
$ !
$ ! Licensed under the GNU General Public License, version 2
$
$ ! f = F$UNIQ() + ".TMP;"
$ f = "vms2.tmp;"
$ DEFINE SYS$OUTPUT 'f'
$ SHOW SYSTEM /NOHEADING
$ DEASSIGN SYS$OUTPUT
$
$ OPEN /READ inf 'f'
$
$ n = 0
$ s = 0
$ READ_B:
$ READ /END_OF_FILE=READ_E inf line
$   col = f$extract(71, 7, line)
$   col = f$int(col)
$   s = s + col
$   n = n + 1
$ GOTO READ_B
$ READ_E:
$ CLOSE inf
$ DELETE 'f'
$
$ avg = s / n
$ say "''n' processes, using ''avg' pages on average."