AT&T 6300 Programmer's Manual page 188

CHAIN
Statement
Example 1
7-32
10 ' THIS PROGRAM DEMONSTRATES
20 ' CHAINING USING COMMON
30 ' TO PASS VARIABLES
40 ' SAVE THIS MODULE ON DISK
50 ' AS "PROG1" WITH THE A OPTION.
60 DIM A$(2),B$(2)
70 COMMON A$( ),B$( )
80 AS(1)
=
"COMMON VARIABLES NEED"
90 AS(2)
=
"VALUES BEFORE CHAINING."
100 BS(1)
=" ":
B$(2)
=" "
110 CHAIN "PROG2"
120 PRINT: PRINT B$(1): PRINT
125 PRINT B$(2): PRINT
130 END
10 ' THE STATEMENT "DIM A$(2),BS(2)"
20 ' MAY ONLY BE EXECUTED ONCE.
30 ' HENCE, IT DOES NOT APPEAR
40 ' IN THIS MODULE.
50 ' SAVE THIS MODULE ON THE DISK
60 ' AS "PROG2" USING THE A
70 ' OPTION.
80 COMMON A$( ),B$( )
90 PRINT: PRINT A$(1);A$(2)
100 B$(1)
=
"CHAIN TO LINE 90"
110 B$(2)
=
"TO SKIP DIM"
120 CHAIN "PROG1",90
130 END