!*************************** 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