*****************************************************************************
*
*	GCI test program - multiplication table
*
*	Module	%M%	Version	%I% 	Date	%H%
*
*	(c) Copyright 1998 Ardent Software Inc. - All Rights Reserved
*	This is unpublished proprietary source code of Ardent Software Inc.
*	The copyright notice above does not evidence any actual or intended
*	publication of such source code.
*
*******************************************************************************
*
*	Maintenence log - insert most recent change descriptions at top
*
*	Date.... GTAR# WHO Description.........................................
*	10/14/98 23801 SAP Change copyrights. 
*	05/22/90  6933 DTW make Neil's improvements
*	02/19/90  --   DTW New file
*
*******************************************************************************
***
***	print out the multiplication tables from 1 to 10
***		use the new BASIC function "multiply" to do the
***		multiplication and return the answer
***	See the GCI manual for more information.
***
DECLARE GCI multiply

last.no = 10;		*  last number to multiply
PRINT	"This is a test of a GCI function."
PRINT
PRINT
PRINT "          Multiplication tables from 1 to ":last.no
PRINT "          ----------------------------------"
PRINT "     ":
FOR i = 1 TO last.no
	PRINT FMT(i,  "5R"):
NEXT i

PRINT
PRINT

FOR i = 1 TO last.no
	PRINT FMT(i,  "5R"):
	FOR j = 1 TO last.no
		x = multiply(i, j);		*  call multiply to get the answer
		PRINT FMT(x,  "5R"):
	NEXT j
	PRINT
NEXT i
		
PRINT