.; Switch a line from DECNet to RSX .; .; B. Z. Lederman .; .ENABLE SUBSTITUTION .ENABLE DECIMAL .ASKN LINEIN Line Number .OPENR #1 [3,40]XM38.DAT .IF <> .GOTO NODAT .READ: .READ #1 A .IFT .GOTO NOLINE .PARSE A "," LINE DEV CONT CSR VEC CIRC .SETN LIN 'LINE' .IF LINEIN = LIN .GOTO FOUND .GOTO READ .NOLINE: ; The line could not be found in the data file .EXIT .NODAT: ; The file containing the list of XM lines is missing. .EXIT .FOUND: .CLOSE #1 NCP SET CIRCUIT 'CIRC' STATE OFF NCP CLEAR LINE 'CIRC' ALL CON ONLINE 'CONT' CON ONLINE 'DEV'