1	!     FILE NAME:  FIREPLACE.BAS
	!        AUTHOR:  R.W.MCDOUGALL
	! CREATION DATE:  01/06/89
	! REVISION DATE:  
	!      LOCATION:  HSTC
	!    MAIN FRAME:  VAX 11/780
	!        SYSTEM:  VAX/VMS V4.6
	!      LANGUAGE:  VAX BASIC V3.2
	!   DESCRIPTION:  
	! ---------------------------------------------------------------------
	ON ERROR GOTO ERROR_HANDLER
	Y% = CTRLC
	PRINT ESC;"[2J"
	PRINT ESC;")0"
	PRINT SO
	PRINT ESC;"[1;1H         lqqqqqwqqqqqwqqqqqwqqqqqwqqqqqwqqqqqwqqqqqwqqqqqwqqqqqwqqqqqk"
	PRINT "         tqqwqqvqqwqqvqqwqqvqqwqqvqqwqqvqqwqqvqqwqqvqqwqqvqqwqqvqqwqqu"
	PRINT "         tqqvqqwqqvqqwqqvqqwqqvqqwqqvqqwqqvqqwqqvqqwqqvqqwqqvqqwqqvqqu"
	PRINT "         tqqwqqvqqwqqvqqwqqvqqwqqvqqwqqvqqwqqvqqwqqvqqwqqvqqwqqvqqwqqu"
	PRINT "         tqqvqqwqqvqqwqqvqqwqqvqqwqqvqqwqqvqqwqqvqqwqqvqqwqqvqqwqqvqqu"
	PRINT "      lqqvqqwqqvqqwqqvqqwqqvqqwqqvqqwqqvqqwqqvqqwqqvqqwqqvqqwqqvqqwqqvqqk"
	PRINT "   lqqvqqwqqvqqwqqvqqwqqvqqwqqvqqwqqvqqwqqvqqwqqvqqwqqvqqwqqvqqwqqvqqwqqvqqk"
	PRINT "lqqvqqwqqvqqwqqvqqwqqvqqwqqvqqwqqvqqqqqvqqqqqvqqwqqvqqwqqvqqwqqvqqwqqvqqwqqvqqk"
	PRINT "tqqwqqvqqwqqvqqwqqvqqwqqvqqwqqj";SI;"                 ";SO;"mqqwqqvqqwqqvqqwqqvqqwqqvqqwqqu"
	PRINT "tqqvqqwqqvqqwqqvqqwqqvqqqqqj";SI;"                       ";SO;"mqqqqqvqqwqqvqqwqqvqqwqqvqqu"
	PRINT "tqqwqqvqqwqqvqqwqqu";SI;"                                         ";SO;"tqqwqqvqqwqqvqqwqqu"
	PRINT "tqqvqqwqqvqqwqqvqqu";SI;"                                         ";SO;"tqqvqqwqqvqqwqqvqqu"
	PRINT "tqqwqqvqqwqqvqqwqqu";SI;"          __                 __          ";SO;"tqqwqqvqqwqqvqqwqqu"
	PRINT "tqqvqqwqqvqqwqqvqqu";SI;"         /  \               /  \         ";SO;"tqqvqqwqqvqqwqqvqqu"
	PRINT "tqqwqqvqqwqqvqqwqqu";SO;"         x  x               x  x         ";SO;"tqqwqqvqqwqqvqqwqqu"
	PRINT "tqqvqqwqqvqqwqqvqqu";SO;" /aaaaaaax  xaaaaaaaaaaaaaaax  xaaaaaaa\ ";SO;"tqqvqqwqqvqqwqqvqqu"
	PRINT "tqqwqqvqqwqqvqqwqqu";SO;" aaaaaaaax  xaaaaaaaaaaaaaaax  xaaaaaaaa ";SO;"tqqwqqvqqwqqvqqwqqu"
	PRINT "tqqvqqwqqvqqwqqvqqu";SO;" \aaaaaaax  xaaaaaaaaaaaaaaax  xaaaaaaa/ ";SO;"tqqvqqwqqvqqwqqvqqu"
	PRINT "tqqwqqvqqwqqvqqwqqu";SO;" /aaaaaaax  xaaaaaaaaaaaaaaax  xaaaaaaa\ ";SO;"tqqwqqvqqwqqvqqwqqu"
	PRINT "tqqvqqwqqvqqwqqvqqu";SO;" aaaaaaaax  xaaaaaaaaaaaaaaax  xaaaaaaaa ";SO;"tqqvqqwqqvqqwqqvqqu"
	PRINT "tqqwqqvqqwqqvqqwqqu";SO;" \aaaaaaax  xaaaaaaaaaaaaaaax  xaaaaaaa/ ";SO;"tqqwqqvqqwqqvqqwqqu"
	PRINT "tqqvqqwqqvqqwqqvqqu";SO;"         x  x               x  x         ";SO;"tqqvqqwqqvqqwqqvqqu"
	PRINT "tqqwqqvqqwqqvqqwqqu";SO;"         x  x               x  x         ";SO;"tqqwqqvqqwqqvqqwqqu"
	PRINT "mqqvqqqqqvqqqqqvqqj";SI;"        /____\             /____\        ";SO;"mqqvqqqqqvqqqqqvqqj";ESC;"[1;1H"
	PRINT ESC;"[06;15H";ESC;"[7m";SI;"                                                   ";SO;ESC;"[m"
	FOR I = 1 TO 100
	  PRINT ESC;"[15;23H   z  x  x  z  z  z  z  zx  x z  "
	  PRINT ESC;"[14;25H   y";SI;"/  \";SO;" y  y  y  y  y ";SI;"/  \";SO;"y"
	  PRINT ESC;"[13;25H   z ";SI;"__";SO;"  z  z  z  z  z  ";SI;"__";SO;" "
	  PRINT ESC;"[12;27H   y  y  y  y  y  y  y  y"
	  PRINT ESC;"[11;29H   z  z  z  z  z  z  z"
	  PRINT ESC;"[10;31H   y  y  y  y  y  y"
	  PRINT ESC;"[09;33H   z  z  z  z  z"
	  PRINT ESC;"[15;23H   y  x  x  y  y  y  y  yx  x y  "
	  PRINT ESC;"[14;25H   z";SI;"/  \";SO;"  z  z  z  z  z";SI;"/  \";SO;"z"
	  PRINT ESC;"[13;25H   y ";SI;"__";SO;"  y  y  y  y  y  ";SI;"__";SO;" "
	  PRINT ESC;"[12;27H   z  z  z  z  z  z  z  z"
	  PRINT ESC;"[11;29H   y  y  y  y  y  y  y"
	  PRINT ESC;"[10;31H   z  z  z  z  z  z"
	  PRINT ESC;"[09;33H   y  y  y  y  y"
	NEXT I
	PRINT ESC;"[15;23H      x  x               x  x        "
	PRINT ESC;"[14;25H    ";SI;"/  \";SO;"               ";SI;"/  \";SO;"     "
	PRINT ESC;"[13;25H     ";SI;"__";SO;"                 ";SI;"__";SO;"    "
	PRINT ESC;"[12;27H                         "
	PRINT ESC;"[11;29H                      "
	PRINT ESC;"[10;31H                   "
	PRINT ESC;"[09;33H                ";SI
ERROR_HANDLER:
	RESUME BOT_CODE
BOT_CODE:
	PRINT ESC;"[1;1H";SI;ESC;"[2JThanks for running FIREPLACE."
	END