1	!     FILE NAME:  COFFEE.BAS
	!        AUTHOR:  R.W.MCDOUGALL
	! CREATION DATE:  1/05/89
	! REVISION DATE:  
	!      LOCATION:  HSTC
	!    MAIN FRAME:  VAX 11/780
	!        SYSTEM:  VAX/VMS V4.6
	!      LANGUAGE:  VAX BASIC V3.2
	!   DESCRIPTION:  
	! ---------------------------------------------------------------------
	PRINT ESC;"[2J"
	PRINT ESC;"[02;14H";ESC;"#3Coffee Break"
	PRINT ESC;"[03;14H";ESC;"#4Coffee Break"
	PRINT ESC;"[13;21H_________________________________"
	PRINT ESC;"[14;20H(                                 )"
	PRINT ESC;"[15;21H\                               /=\\"
	PRINT ESC;"[16;22H\                             /  ||"
	PRINT ESC;"[17;23H\                           /   ||"
	PRINT ESC;"[18;24H\                         /    ||"
	PRINT ESC;"[19;25H\                       /     //"
	PRINT ESC;"[20;26H\                     /=====//"
	PRINT ESC;"[21;27H\                   /";TIME$(0%)
	PRINT ESC;"[22;28H\                 /  "
	PRINT ESC;"[23;15H---------------------------------------------------"
	PRINT ESC;"[24;18H\___________________________________________/";ESC;"[0;0H"
	FOR I = 1 TO 600
	  PRINT ESC;"[12;23H\  \  \  \  \  \  \  \  \  \  "
	  PRINT ESC;"[11;25H/  /  /  /  /  /  /  /  /"
	  PRINT ESC;"[10;25H\  \  \  \  \  \  \  \  \ "
	  PRINT ESC;"[09;27H/  /  /  /  /  /  /  /"
	  PRINT ESC;"[08;29H\  \  \  \  \  \  \"
	  PRINT ESC;"[07;31H/  /  /  /  /  /"
	  PRINT ESC;"[06;33H\  \  \  \  \"
	  PRINT ESC;"[12;23H/  /  /  /  /  /  /  /  /  /  "
	  PRINT ESC;"[11;25H\  \  \  \  \  \  \  \  \"
	  PRINT ESC;"[10;25H/  /  /  /  /  /  /  /  / "
	  PRINT ESC;"[09;27H\  \  \  \  \  \  \  \"
	  PRINT ESC;"[08;29H/  /  /  /  /  /  /"
	  PRINT ESC;"[07;31H\  \  \  \  \  \"
	  PRINT ESC;"[06;33H/  /  /  /  /"
	NEXT I
	PRINT ESC;"[12;23H                             "
	PRINT ESC;"[11;25H                             "
	PRINT ESC;"[10;25H                             "
	PRINT ESC;"[09;27H                             "
	PRINT ESC;"[08;29H                             "
	PRINT ESC;"[07;31H                             "
	PRINT ESC;"[06;33H                             "
	PRINT ESC;"[02;11H";ESC;"#3Coffee Break Over!"
	PRINT ESC;"[03;11H";ESC;"#4Coffee Break Over!"
	PRINT ESC;"[22;28H\                 / ";TIME$(0%)
	PRINT BEL;BEL;BEL
	END