[Prev][Next][Index]

Stupid thing from INFO-VMS

From:	SMTP%"RELAY-INFO-VAX@CRVAX.SRI.COM" 10-DEC-1990 02:02:16.57
To:	INFO-VAX@SRI.COM
CC:	
Subj:	XMAS humor....

Date: Sun, 9 Dec 1990 22:19 PST
From: "James R. Dishaw" <JDISHAW@POMONA.CLAREMONT.EDU>
Subject: XMAS humor....
To: INFO-VAX@SRI.COM
Message-id: <2C5FF75740803046@POMONA.CLAREMONT.EDU>
X-VMS-To: IN%"INFO-VAX@SRI.COM"

I recently received the following UNIX program and decided to see if I can
port it over to VMS...

Original UNIX version
    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)

My VMS port of it.
    $ 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)

Happy holidays.

James R. Dishaw
JDISHAW@POMONA.CLAREMONT.EDU