; REGRS.SUB ... Compile, link and go for REGRS1 and REGRS2 A:F80 =B:REGRS1 A:F80 =B:MATSUB A:F80 =B:PRBSUB A:F80 =B:REGRS2 A:L80 B:REGRS1,B:MATSUB,B:PRBSUB,A:FORLIB/S,B:REG1/N/E A:L80 B:REGRS2,A:FORLIB/S,B:REG2/N/E XSUB B: ERA FORT10.DAT ; Execute REG1 & REG2 for B:TEST1.DAT A:PIP FORT06.DAT=TEST1.DAT REG1 6 REG2