HP Business BASIC/XL Reference Manual - HP 3000 MPE/iX Computer Systems - Edition 1 (32715-90001)

4-: 69
INTEGER
This statement defines a variable of type INTEGER. If the SHORT option is
included, the variable is of type SHORT INTEGER.
Syntax
{ num_var } [ { num_var }]
[SHORT] INT[EGER] { arrayd } [,{ arrayd }]...
Parameters
num_var Name of scalar numeric variable to be declared.
arrayd Numeric array description. The syntax for the array is
described under the DIM statement.
Examples
100 SHORT INTEGER I
120 SHORT INTEGER A,B(6,9),Sum
130 INTEGER Total
140 INTEGER Var1,Var2,Var3(1,2,3),Var4(1:10,1:10)
INTRINSIC and GLOBAL INTRINSIC
The INTRINSIC or GLOBAL INTRINSIC statement defines procedures or
functions that are not in the current program without requiring an
explicit definition of the entire procedure or function heading. The
external procedure or function either can be in an executable library or
can be linked with the current program after the current program is
compiled. A GLOBAL INTRINSIC statement must appear in the main program.
These intrinsics can be called from the main or any procedure or function
in the current program. An INTRINSIC statement defines intrinsics local
to the program unit that the definition occurs in. Local definitions
supersede global definitions.
Syntax
[GLOBAL] INTRINSIC [(" fname ")] identifier [ALIAS str_lit ]
[{,} ]
[{;} identifier [ALIAS str_lit ]]...
Parameters
GLOBAL Allowed only if the statement is in the main program.
If GLOBAL appears, the statement is a GLOBAL INTRINSIC
statement. If GLOBAL is omitted, the statement is an
INTRINSIC statement. A GLOBAL INTRINSIC statement
affects every program unit in the program. An INTRINSIC
statement affects only the program unit that contains
it.
Information supplied in an INTRINSIC statement overrides
information in a GLOBAL INTRINSIC statement, while the
program unit that contains the INTRINSIC statement is
executing.
fname Intrinsic file that contains the definitions of the
intrinsics in the list of intrinsics that follow. The
default is the default intrinsic file of the operating
system (SYSINTR.PUB.SYS on MPE XL).
identifier Internal name; name that HP Business BASIC/XL program
uses to call this intrinsic. If the intrinsic is a
function and the program calls it without the FNCALL
function, then identifier must be a legal function name;