'=========================================================================
	' Personal Calendar (PC) Program
	'  Copyright (c) 1985-1990, Paul Munoz-Colman.  All Rights Reserved.
	'    Version 14.10
	'     31 Oct 1990
	'	Shareware $25
	'=========================================================================
	'           DOS File CALU.BAS -- Display Shareware Banner
	'  Independently Compiled Subprogram Which Is Linked With CAL1.BAS
	'=========================================================================
	' $INCLUDE: 'cal1.bi'
	'=========================================================================
	'  Written For IBM PCs & Compatibles Under MS DOS 3.30 on a Northgate 486
	'   Compiled By Microsoft Professional BASIC 7.10, Linker Version 5.10
	'=========================================================================
	'  Note -- Tabs in the source file are in positions 6,11,16,21,26,...
	'=========================================================================
	'  Subprogram List in the Order of Appearance in this File
	'   (compiled WITHOUT error handling--no /E or /X)
	'-------------------------------------------------------------------------
	'    Name                          Purpose
	'    ---------------------------   ---------------------------------------
	'    ValidateUser				Display Shareware Banner
	'=========================================================================
	SUB ValidateUser (WhichLine)
	'=========================================================================
	'    (boilerplate module which replaces registration validation)
	DEFINT A-Z
		SubnumSave = Subnum
		Subnum = 140
	CALL ShowIt(N6, WhichLine + N2, N54, "Shareware $25")
		Subnum = SubnumSave
	END SUB
	'========================================================================
	'========================  END OF CALU.BAS  =============================
	'========================================================================