.; NETGEN 03.00 ON 23-SEP-82 10:49:08, .; Generate selected components .; .ENABLE SUBSTITUTION .ENABLE GLOBAL .ENABLE LOWERCASE .SETN LBEXV 1 .SETN 201 .ONERR LBER .GOSUB 'P1' .GOTO LBEX .LBER: .SETN LBEXV 0 .LBEX: .SETN 1 .DISABLE LOWERCASE .EXIT 'LBEXV' .; .SX02: .; Data from query section 2 .; .SETS $TSRMC "[006,010]RSXMC" .SETS $TSSTB "[006,064]RSX11S.STB" .SETS $TSSTR "S" .SETS $TSLSM "" .SETS $TSLCR "" .SETN $TSSWT 10160 .SETN $TSSW1 3 .SETN $TSPRO 23. .SETN $TSCEX 0 .SETS $CP "/AL" .SETT $SFNET .SETT $SFDEC .RETURN .SC02: .GOTO SX02 .; .SX04: .; Data from query section 4 .; .SETN $TSCEX 0 .SETS $$CPAR "CEXPAR" .SETN $$CBAS 73700 .SETN $$CLEN 4100 .RETURN .SC04: .GOTO SX04 .; .CXCEX: .; Data from CEX/AUX questions .; .SETF $$$LG1 .RETURN .CEX: .GOTO CXCEX .; .SX05: .; Data from query section 5 .; .RETURN .SC05: .GOTO SX05 .; .SX06: .; Data from query section 6 .; .SETT $$XNCP .RETURN .SC06: .GOTO SX06 .; .SX08: .; Data from query section 8 .; .SETF $$XDLX .SETN $$XRDB 576. .RETURN .SC08: .GOTO SX08