Submitted by FAJR9224 @WOOSTER

better !pout !cry
better watchout
lpr why
santa claus <north pole >town

cat /etc/passwd >list
ncheck list
ncheck list
cat list | grep naughty >nogiftlist
cat list | grep nice >giftlist
santa claus <north pole > town

who | grep sleeping
who | grep awake
who | grep bad || good
for (goodness sake) {
be good
}

(by Frank Carey, AT&T Bell Laboratories, 1985)

And here's a DCL port of the above ...

$ better /nopout /nocry
$ better /watchout
$ print why
$ santa_claus /input=north pole /output=town

$ mcr authorize
list
exit
$ analyze/rms_file/check sysuaf.lis
$ analyze/rms_file/check sysuaf.lis
$ search sysuaf.lis naughty /output=nogift.lis
$ search sysuaf.lis nice /outuput=gift.lis
$ santa_claus /input=north pole /output=town

$ show user /interactive/output=users.lis
$ search users.lis sleeping
$ search users.lis awake
$ search users.lis bad
$ search users.lis good
$ loop:
$ be good
$ if goodness_sake then $ goto loop

(DCL port by James R. Dishaw)

Back to Tina's Humor Archives main page