!*************************** AMUS Program Label ******************************
! Filename: XMAS                                            Date: 11/8/90
! Category: GRAP         Hash Code: 721-525-247-562      Version: 1.0(1)
! Initials:              Name: GREG S. BERTHUME
! Company: BASIC SYSTEMS INC                       Telephone #: 8032321826
! Related Files: NONE
! Min. Op. Sys.:                               Expertise Level: BEG
! Special:
! Description: terminal christmas card
!
!
!*****************************************************************************
!=======================================================!
! XMAS - Donated to Alpha Micro User's Society 11/06/90 !
! in an attempt to make the 'Network Software Feature of!
! the Month' Club - come on - please...                 !
! Greg Berthume/Software Engineer, Basic Systems, Inc.  !
! (803) 232-1826 - Greenville, South Carolina           !
!=======================================================!
! Can be easily customized to have your system users    !
! boot up to this picture a few days before Christmsas. !
! Makes for a neat computerized Christmas card.         !
!=======================================================!

ON ERROR GOTO END   ! to trap Control'C and cleanly exit program
?TAB(-1,0);TAB(-1,29);  ! clear screen & zap cursor
?TAB(01,14);TAB(-1,32);" *****  MERRY CHRISTMAS FROM GREG BERTHUME  ***** ";TAB(-1,33)
?TAB(02,01);"                                                    )                     "
?TAB(03,01);"                                                   (                        "
?TAB(04,01);"                                                    )                       "
?TAB(05,01);"                                                   (                       "
?TAB(06,01);"                                                  .__.                      "
?TAB(06,14);TAB(-1,34);"+";TAB(-1,35)
?TAB(07,01);"              *                                   |##|                      "
?TAB(08,01);"             *@*                               .__|__|________________________."
?TAB(09,01);"            *@*@*                             /.............................../"
?TAB(10,01);"           *@*@*@*                           /.............................../"
?TAB(11,01);"          *@*@*@*@*                         /.............................../"
?TAB(12,01);"         *@*@*@*@*@*                       /.............................../"
?TAB(13,01);"        *@*@*@*@*@*@*                     /.............................../"
?TAB(14,01);"       *@*@*@***@*@*@*                   /_______________________________/"
?TAB(15,01);"      *@***@*@*@*@***@*                    |                            | "
?TAB(15,50);TAB(-1,21);"GREG'S SKI LODGE";TAB(-1,22)
?TAB(16,01);"     *@*@*@*@***@*@*@*@*                   |  ._____.          ._____.  |"
?TAB(17,01);"    *@*@*@*@*@*@*@*@*@*@*                  |  |__|__|          |__|__|  |"
?TAB(18,01);".  *@*@*@*@*@*@*@*@*@*@*@*                 |  |__|__|  .____.  |__|__|  | "
?TAB(19,01);"  *@**@@***@*****@***@@**@*        'O'     |           |    |           |  "
?TAB(20,01);"             %%%                  ./#\.    |           |   o|           |   "
?TAB(21,01);"_____________%%%_________________ _/ \_ ___|___________|____|___________|____"
?TAB(22,01);TAB(-1,11);"                        HIT CANCEL TO RETURN TO AMOS";TAB(-1,12)
MAKE'SNOW:  ! scatter dots around screen
       ? TAB(02,01);"." : ?TAB(13,01);"." : ?TAB(14,03);"."
       ?TAB(02,05);"." : ?TAB(20,02);"." : ?TAB(10,03);"."
       ?TAB(02,09);"." : ?TAB(03,42);"." : ?TAB(10,44);"."
       ?TAB(02,22);"." : ?TAB(09,41);"." : ?TAB(07,47);"."
       ?TAB(02,32);"." : ?TAB(08,38);"." : ?TAB(05,60);"."
       ?TAB(02,43);"." : ?TAB(13,29);"." : ?TAB(11,39);"."
       ?TAB(02,48);"." : ?TAB(10,27);"." : ?TAB(07,69);"."
       ?TAB(07,32);" " : ?TAB(13,04);" " : ?TAB(06,01);" "
       ?TAB(02,56);"." : ?TAB(05,33);"." : ?TAB(12,24);"."
       ?TAB(02,65);"." : ?TAB(18,01);"." : ?TAB(18,31);"."
       ?TAB(02,70);"." : ?TAB(15,27);"." : ?TAB(06,64);"."
       ?TAB(02,74);"." : ?TAB(09,05);"." : ?TAB(07,61);"."

       ?TAB(05,70);"." : ?TAB(04,72);"." : ?TAB(10,09);"."
       ?TAB(13,33);" " : ?TAB(03,35);" " : ?TAB(07,18);" "
       ?TAB(05,22);"." : ?TAB(16,01);"." : ?TAB(06,68);"."
       ?TAB(02,17);" " : ?TAB(17,28);" " : ?TAB(15,37);" "
       ?TAB(07,43);"." : ?TAB(08,03);"." : ?TAB(07,06);"."
       ?TAB(03,03);"." : ?TAB(04,07);"." : ?TAB(05,05);"."
       ?TAB(04,77);"." : ?TAB(06,58);"." : ?TAB(16,39);"."
       ?TAB(04,15);"." : ?TAB(05,75);"." : ?TAB(07,67);"."
       ?TAB(06,37);"." : ?TAB(07,65);"." : ?TAB(04,22);"."
       ?TAB(03,29);"." : ?TAB(18,40);"." : ?TAB(10,23);"."
       ?TAB(17,35);"." : ?TAB(06,27);"." : ?TAB(13,28);"."
       ?TAB(07,22);"." : ?TAB(03,39);"." : ?TAB(17,31);"."
       ?TAB(08,11);"." : ?TAB(08,23);"." : ?TAB(20,06);"."
       ?TAB(02,70);" " : ?TAB(15,27);" " : ?TAB(06,64);" "
       ?TAB(03,70);"." : ?TAB(05,43);"." : ?TAB(20,30);"."
       ?TAB(04,56);"." : ?TAB(09,31);"." : ?TAB(05,46);"."
       ?TAB(07,76);"." : ?TAB(08,09);"." : ?TAB(16,04);"."
       ?TAB(13,33);"." : ?TAB(03,35);"." : ?TAB(07,18);"."
       ?TAB(15,31);"." : ?TAB(10,35);"." : ?TAB(05,29);"."
       ?TAB(07,56);"." : ?TAB(03,12);"." : ?TAB(11,04);"."
       ?TAB(07,32);"." : ?TAB(13,04);"." : ?TAB(06,01);"."
       ?TAB(03,60);"." : ?TAB(05,63);"." : ?TAB(11,29);"."
       ?TAB(04,19);"." : ?TAB(06,10);"." : ?TAB(04,24);"."
       ?TAB(06,40);"." : ?TAB(05,19);"."

GET'RID'OF'SNOW:   ! replace dots with blanks
       ?TAB(02,01);" " : ?TAB(13,01);" " : ?TAB(14,03);" "
       ?TAB(02,05);" " : ?TAB(20,02);" " : ?TAB(10,03);" "
       ?TAB(02,09);" " : ?TAB(03,42);" " : ?TAB(10,44);" "
       ?TAB(02,19);" " : ?TAB(04,60);" " : ?TAB(03,74);" "
       ?TAB(02,22);" " : ?TAB(09,41);" " : ?TAB(07,47);" "
       ?TAB(02,17);"." : ?TAB(17,28);"." : ?TAB(15,37);"."
       ?TAB(02,32);" " : ?TAB(08,38);" " : ?TAB(05,60);" "
       ?TAB(02,43);" " : ?TAB(13,29);" " : ?TAB(11,39);" "
       ?TAB(02,48);" " : ?TAB(10,27);" " : ?TAB(07,69);" "
       ?TAB(02,56);" " : ?TAB(05,33);" " : ?TAB(12,24);" "
       ?TAB(02,62);" " : ?TAB(20,32);" " : ?TAB(07,26);" "
       ?TAB(02,65);" " : ?TAB(18,01);" " : ?TAB(18,31);" "
       ?TAB(02,74);" " : ?TAB(09,05);" " : ?TAB(07,61);" "
       ?TAB(05,70);" " : ?TAB(04,72);" " : ?TAB(10,09);" "
       ?TAB(04,15);" " : ?TAB(05,75);" " : ?TAB(07,67);" "
       ?TAB(05,22);" " : ?TAB(16,01);" " : ?TAB(06,68);" "
       ?TAB(06,72);"." : ?TAB(11,26);"." : ?TAB(04,66);"."
       ?TAB(07,43);" " : ?TAB(08,03);" " : ?TAB(07,06);" "
       ?TAB(03,03);" " : ?TAB(04,07);" " : ?TAB(05,05);" "
       ?TAB(04,77);" " : ?TAB(06,58);" " : ?TAB(16,39);" "
       ?TAB(13,38);" " : ?TAB(20,20);" " : ?TAB(04,47);" "
       ?TAB(06,37);" " : ?TAB(07,65);" " : ?TAB(04,22);" "
       ?TAB(03,29);" " : ?TAB(18,40);" " : ?TAB(10,23);" "
       ?TAB(06,72);" " : ?TAB(11,26);" " : ?TAB(04,66);" "
       ?TAB(17,35);" " : ?TAB(06,27);" " : ?TAB(13,28);" "
       ?TAB(07,22);" " : ?TAB(03,39);" " : ?TAB(17,31);" "
       ?TAB(08,11);" " : ?TAB(08,23);" " : ?TAB(20,06);" "
       ?TAB(02,19);"." : ?TAB(04,60);"." : ?TAB(03,74);"."
       ?TAB(03,70);" " : ?TAB(05,43);" " : ?TAB(20,30);" "
       ?TAB(04,56);" " : ?TAB(09,31);" " : ?TAB(05,46);" "
       ?TAB(07,76);" " : ?TAB(08,09);" " : ?TAB(16,04);" "
       ?TAB(02,62);"." : ?TAB(20,32);"." : ?TAB(07,26);"."
       ?TAB(15,31);" " : ?TAB(10,35);" " : ?TAB(05,29);" "
       ?TAB(07,56);" " : ?TAB(03,12);" " : ?TAB(11,04);" "
       ?TAB(03,60);" " : ?TAB(05,63);" " : ?TAB(11,29);" "
       ?TAB(04,19);" " : ?TAB(06,10);" " : ?TAB(04,24);" "
       ?TAB(06,40);" " : ?TAB(05,19);" "
       ?TAB(13,38);"." : ?TAB(20,20);"." : ?TAB(04,47);"."
       GOTO MAKE'SNOW  ! endless loop
END:    ! End of Computerized Christmas Card.
       ?TAB(-1,28);     ! cursor back on
       ?TAB(-1,0);TAB(12,30);TAB(-1,21);"Merry Christmas!!!";TAB(-1,22);
       ?TAB(1,1);
       FOR X=1 TO 20 : ?CHR(7); : NEXT X    ! ring terminal bell.
       END

You are viewing proxied material from gopher.floodgap.com. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.