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

4-: 77
145 I=I+1 !Reenter loop here
150 END LOOP !End loop
160 STOP
200 REM Subroutine !Begin subroutine
210 PRINT I
220 RETURN !Return to loop
999 END
If a program unit contains an EXIT IF statement that is not in a loop, an
error occurs.
MARGIN
The MARGIN statement sets the margin for the terminal screen or for an
ASCII file. Also, see the MARGIN option described in the "Device
Specification Syntax" section of chapter 6.
Syntax
MARGIN [ #fnum ;] num_expr
Parameters
fnum A file number that HP Business BASIC/XL uses to
reference the file for which the margin is to be set.
This is a numeric expression that evaluates to a
positive short integer greater than zero. If it is not
an ASCII file, the MARGIN statement has no effect. The
default is the terminal screen.
num_expr Maximum length of an output line on the terminal screen
or in the ASCII file, provided that num_expr does not
exceed the maximum length of a screen line, usually 80
characters, or the record length of the file. If
num_expr does exceed the maximum length of a screen
line, the margin is the maximum length instead of
num_expr . If num_expr exceeds the file's record length,
the margin is the record length instead of num_expr .
An output line that is longer than the physical margin
allows overflows onto the next physical line.
Examples
The following examples show the use of the MARGIN statement. Lines 10
and 40 set the margin for the default fnum , the terminal screen.
10 MARGIN 40
20 MARGIN #2; Num_char_to_right_hand_margin
30 MARGIN #1; X-5
40 MARGIN Terminal_line_length
MAT =
The MAT = statement assigns the value of an expression to an array. Some
forms of the MAT statement can redimension the array before the
assignment.
Syntax
The numbers preceding these syntax specifications are referenced in Table
4-5. They are not part of the MAT statement syntax.
(1) MAT num_array1 = num_array2
(2) MAT num_array1 = ( num_expr )
(3a) MAT num_array1 = num_array2 op ( num_expr )