AT&T 6300 Programmer's Manual page 189

Example 2
CHAIN
Statement
10 ' THIS PROGRAM DEMONSTRATES
20 ' CHAINING USING THE MERGE
30 ' AND ALL OPTIONS.
40 ' SAVE THIS MODULE ON THE DISK
50 ' AS "MAINPRG".
60 AS
=
"MAINPRG"
70 CHAIN MERGE "OVRLAV1",1010,ALL
80 END
1000 ' SAVE THIS MODULE ON THE DISK
1010 ' AS "OVRLAV1" USING THE A
1015 ' OPTION.
1020 PRINT AS; " HAS CHAINED TO"
1025 PRINT "OVRLAV1."
1030 AS
=
"OVRLAV1"
1040 BS
=
"OVRLAV2"
1050 CHAIN MERGE "OVRLAV2",1010,
ALL, DELETE 1000-1050
1060 END
1000 ' SAVE THIS MODULE ON THE DISK
1010 ' AS "OVRLAV2" USING THE A
1015 ' OPTION.
1020 PRINT AS; " HAS CHAINED"
1025 PRINT" TO ";BS; " . "
1030 END
7-33