; XMAS3.CMD WILL PUT A SEASONS GREETING ON THE TERMINAL
; David Bartholomew - Advocate Legal Services 12/08/92
; Ho Ho Ho !
;============================================================================
:R
set noctrlc
XY=0                                    ;clear the screen
;XY=36                                  ;turn off screen display (optional)
XY 2 23                                 ;move cursor to row=2, col=23
:< S E A S O N S   G R E E T I N G S >
XY 5 1
:<
                                     .|.
                                    - * -
                                   ** . **
                                  * . * * *
                                 * * *** . *
                                ** . ** . ***
                               * *** *** ** **
                              ******* . ** . **
                             *** . ****** . ****
                            ****** . ******* . **
                           ** . ********* . ******
                          **** . **** . ***** . ***
                         ** . **** . **** . *** . **
                                     ***
                                   ..***..
>
XY 6 42
XY=22                                  ; end blinking field
XY 6 38
XY=21                                  ; start blinking field

XY 7 39
XY=22
XY 7 37
XY=21

XY 7 43
XY=22
XY 7 41
XY=21

XY 8 41
XY=22
XY 8 39
XY=21

XY 9 39
XY=22
XY 9 37
XY=21

XY 10 44
XY=22
XY 10 42
XY=21

XY 11 38
XY=22
XY 11 36
XY=21

XY 11 43
XY=22
XY 11 41
XY=21

XY 13 41
XY=22
XY 13 39
XY=21

XY 13 46
XY=22
XY 13 44
XY=21

XY 14 36
XY=22
XY 14 34
XY=21

XY 14 45
XY=22
XY 14 43
XY=21

XY 15 38
XY=22
XY 15 36
XY=21

XY 15 48
XY=22
XY 15 46
XY=21

XY 16 33
XY=22
XY 16 31
XY=21

XY 16 45
XY=22
XY 16 43
XY=21

XY 17 34
XY=22
XY 17 32
XY=21

XY 17 41
XY=22
XY 17 39
XY=21

XY 17 49
XY=22
XY 17 47
XY=21

XY 18 31
XY=22
XY 18 29
XY=21

XY 18 38
XY=22
XY 18 36
XY=21

XY 18 45
XY=22
XY 18 43
XY=21

XY 18 51
XY=22
XY 18 49
XY=21

XY 23 55                                ;move cursor to row=22, col=55
XY=33                                   ;set end of reverse video
XY 23 11                                ;move cursor to row=22, col=09
XY=32                                   ;set reverse video
XY 23 12                                ;move cursor to row=22, col=10
:< G E T   I N T O   T H E   H O L I D A Y   S P I R I T   ! >


XY=33                                   ;PC's need this to turn off reverse
                                       ;video
XY 23 1
;XY=37                                  ;Turn screen display on (optional)
:<
Return to continue >
:K
;-----------------------------------------------------------------------
;Add logoff or shell commands here to include the pretty tree in your  ;
;logon shell                                                           ;
;-----------------------------------------------------------------------