54 lines
1.5 KiB
Plaintext
54 lines
1.5 KiB
Plaintext
|
*****************************************************************************
|
||
|
|
*
|
||
|
|
* 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
|