Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Merry Christmas & Happy New Year

8 views
Skip to first unread message

JF Mezei

unread,
Dec 24, 2004, 5:31:26 AM12/24/04
to
Subject says it all. May this season bring you lots of joy, lots of good food,
celebration with family and friends and some happy thoughts about VMS :-)

I found a good old ascii art file from the old decus tapes:
It is the choo-choo train moving under the christmas tree

(sorry, don't know who the author is):

telnet:bike.vaxination.ca username:noel

(make sure you have a good VT emulator)

This will be available until jan 2 2005

pr...@prep.synonet.com

unread,
Dec 24, 2004, 11:00:53 AM12/24/04
to
JF Mezei <jfmezei...@teksavvy.com> writes:

> Subject says it all. May this season bring you lots of joy, lots of
> good food, celebration with family and friends and some happy
> thoughts about VMS :-)

And a merry Xmas to all!!

--
Paul Repacholi 1 Crescent Rd.,
+61 (08) 9257-1001 Kalamunda.
West Australia 6076
comp.os.vms,- The Older, Grumpier Slashdot
Raw, Cooked or Well-done, it's all half baked.
EPIC, The Architecture of the future, always has been, always will be.

Doc.

unread,
Dec 24, 2004, 1:05:53 PM12/24/04
to
%NEWS-I-NEWMSG, JF Mezei wrote in
news:1103883709.274466635eaa4b369961996c7aa99d3a@teranews

> telnet:bike.vaxination.ca username:noel

Ho ho ho!

Now why isn't that train driver on strike?

Merry Christmas to all in the newsgroup.


Doc.
--
OpenVMS: Eight out of ten hackers prefer *other* operating systems.
http://www.openvms-rocks.com Deathrow Public-Access OpenVMS Cluster.

Richard Maher

unread,
Dec 24, 2004, 1:11:36 PM12/24/04
to
Merry Christmas to one and all.

2005 predictions? I'm taking the family back to Perth & once more VMS is on
the ascendancy!

(I don't care if I'm only half right when we're lyin' on the beach :-)

Cheers Richard Maher

<pr...@prep.synonet.com> wrote in message
news:87d5wzs...@prep.synonet.com...

Hans Vlems

unread,
Dec 25, 2004, 6:11:53 AM12/25/04
to

"JF Mezei" <jfmezei...@teksavvy.com> schreef in bericht
news:1103883709.274466635eaa4b369961996c7aa99d3a@teranews...

Best wishes to all of you in this newsgroup!

Zalig Kerstfeest en een Gelukkig Nieuwjaar.

Hans Vlems


David J Dachtera

unread,
Dec 27, 2004, 11:43:19 PM12/27/04
to
A bit late, but the Season's Best to all!

--
David J Dachtera
dba DJE Systems
http://www.djesys.com/

Unofficial OpenVMS Hobbyist Support Page:
http://www.djesys.com/vms/support/

Unofficial Affordable OpenVMS Home Page:
http://www.djesys.com/vms/soho/

Unofficial OpenVMS-IA32 Home Page:
http://www.djesys.com/vms/ia32/

Peter Weaver

unread,
Dec 28, 2004, 1:48:37 PM12/28/04
to
JF Mezei wrote:
>...

> I found a good old ascii art file from the old decus tapes:
> It is the choo-choo train moving under the christmas tree
>...

A belated Merry Christmas and a Happy New Year to everyone too.

JF, if you want some more of these check out
http://www.vt100.net/animation/. Here is a little .COM that I wrote to
display one of the animations;
$!
$! RANDOM_XMAS.COM
$! 15-DEC-89 Peter Weaver
$!
$! Types out a "Random" (based on time really) Christmas Message.
$!
$ ON CONTROL_Y THEN GOTO DONE
$ ON ERROR THEN GOTO DONE
$!
$! Check for Users that we don't want to bother with the messages
$!
$ USER_NAME := "''F$EDIT(F$GETJPI("","USERNAME"),"TRIM")'"
$!
$!!! IF "''USER_NAME'" .EQS. "AUTO_PRICING" THEN GOTO DONE
$!!! IF "''USER_NAME'" .EQS. "FRI" THEN GOTO DONE
$!
$!!! IF "''USER_NAME'" .EQS. "IN1RUN" THEN GOTO DO_IT
$!! IF "''USER_NAME'" .EQS. "31710" THEN GOTO DO_IT
$!
$! Only allow OPS and MIS users to see the message
$!
$!! GROUP := "''F$GETJPI("","GRP")'"
$!! IF "''GROUP'" .NES. "24" .AND. "''GROUP'" .NES. "40" THEN GOTO DONE
$!
$ TERMINAL = "''F$GETJPI("","TERMINAL")'" - "_" - "_" - ":"
$!
$! Check if on a DATAPAC Port or OPA0.
$!
$!! IF "''F$EXTRACT(0,2,TERMINAL)'" .EQS. "NV" THEN GOTO DONE
$ IF "''TERMINAL'" .EQS. "OPA0" THEN GOTO DONE
$!
$DO_IT:
$!
$ FILE_LOCATION := "''F$ENVIRONMENT("PROCEDURE")'"
$ HUNDREDTHS := "''F$CVTIME(,,"HUNDREDTH")'"
$ TENTHS := "''F$EXTRACT(1,1,HUNDREDTHS)'"
$!
$! Since we have so few REGIS Terminals, lets make sure they
$! get the REGIS display 60% of the time.
$!
$ IF "''F$GETDVI("TT:","TT_REGIS")'" .AND. "''HUNDREDTHS'" .LTS. "60"
THEN -
GOTO DO_REGIS
$!
$ FILE_NAME := "XMAS''TENTHS'"
$ FULL_FILE_NAME := "''F$PARSE(FILE_NAME,".TXT;",FILE_LOCATION)
$ TYPE/NOPAGE 'FULL_FILE_NAME
$ GOTO DONE
$!
$DO_REGIS:
$!
$ IF "''TENTHS'" .LTS. "5" THEN -
TYPE/NOPAGE 'F$PARSE("ANGEL.SIX;",FILE_LOCATION)
$ IF "''TENTHS'" .GES. "5" THEN -
TYPE/NOPAGE 'F$PARSE("XMAS_MESS.SIX;",FILE_LOCATION)
$!
$DONE:
$!
$ ESC[0,8] = 27
$ WRITE SYS$OUTPUT "''ESC'C''ESC'(B"

--
Peter Weaver
Weaver Consulting Services Inc.
Canadian VAR for CHARON-VAX
www.weaverconsulting.ca


Didier Morandi

unread,
Jan 8, 2005, 5:13:45 AM1/8/05
to
JF Mezei wrote:

> Subject says it all. May this season bring you lots of joy, lots of good food,
> celebration with family and friends and some happy thoughts about VMS :-)


To you too, and to all my VMS friends too.

D.
--
~ L'hopital du logiciel ~ www.softwarehospital.org
190 avenue St Exupéry, 31400 Toulouse France
Phone: +33(0)5 6120 7761 GSM: +33(0)6 7983 6418

0 new messages