.; NETGEN 03.00 ON 23-SEP-82 10:49:08, .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' .; .SX01: .; Data from query section 1 .; .SETS $$DNAM "RMINC" .SETN $$DADD 1. .SETS $$XIDN "LABSTATION 23 TEMPLATE SYSTEM" .SETF $$XNRN .SETN $$DNLL 10. .SETN $$DHNN 16. .SETN $$DHOP 10. .SETN $$XRNV 0. .SETF $$XVER .SETF $$XMUL .SETF $$XPH2 .SETF $$XDLM .SETT $$XMAC .SETT $$XFOR .RETURN .SC01: .GOTO SX01 .; .SX02: .; Data from query section 2 .; .RETURN .SC02: .GOTO SX02 .; .CXACP: .; Data from ACP questions .; .SETF $$$LG1 .SETF $$$LG2 .SETN $$$NM1 30. .RETURN .NETACP:.GOTO CXACP .; .SX03: .; Data from query section 3 .; .SETT $$XNIC .SETF $$XEVR .SETF $$XNTD .SETF $$XDEM .SETF $$XLIN .RETURN .SC03: .GOTO SX03 .; .SX04: .; Data from query section 4 .; .SETF $$XDLL .SETF $$XDUM .SETF $$XHLD .SETT $$XSLD .RETURN .SC04: .GOTO SX04 .; .SX05: .; Data from query section 5 .; .SETF $$XNFT .SETF $$XFTS .SETF $$XFAL .SETF $$XMCM .RETURN .SC05: .GOTO SX05 .; .SX06: .; Data from query section 6 .; .SETF $$XRMT .SETT $$XRMH .SETF $$XTLK .SETF $$XLSN .SETF $$XTCL .RETURN .SC06: .GOTO SX06 .; .CXRMH: .; Data from RMHACP questions .; .SETN $$$NM1 4. .SETN $$$NM2 4. .RETURN .RMHACP:.GOTO CXRMH