SUBROUTINE CSM12
C	ACCUMULATOR SWITCH OPTIONS
	INTEGER TEST5
	LOGICAL RSAC
	REAL R(16,7)
	DIMENSION ISW(16),KEYS(16)
	COMMON REALS(395),INTS(547)
	EQUIVALENCE (INTS(380),KEYS(1)),(INTS(529),TEST5)
	DATA R(1,1),R(1,2),R(1,3),R(1,4)/5HSWITC,5HH 17 ,5HUP TO,5H SUPP/
	DATA R(1,5),R(1,6),R(1,7)/5HRESS ,5HFOLLO,5HWING /
	DATA R(2,1),R(2,2),R(2,3),R(2,4)/5H    O,5HPTION,5H     ,5H     /
	DATA R(2,5),R(2,6),R(2,7)/5H     ,5H    S,5HWITCH/
	DATA R(3,1),R(3,2),R(3,3),R(3,4)/5HCONFI,5HGURAT,5HION  ,5H     /
	DATA R(3,5),R(3,6),R(3,7)/5H     ,5H     ,5H    1/
	DATA R(4,1),R(4,2),R(4,3),R(4,4)/5HINITI,5HAL CO,5HNDITI,5HONS O/
	DATA R(4,5),R(4,6),R(4,7)/5HR PAR,5HAMETE,5HRS  2/
	DATA R(5,1),R(5,2),R(5,3),R(5,4)/5HFUNCT,5HION G,5HENERA,5HTOR I/
	DATA R(5,5),R(5,6),R(5,7)/5HNTERC,5HEPTS ,5H    3/
	DATA R(6,1),R(6,2),R(6,3),R(6,4)/5HINTEG,5HRATIO,5HN SPE,5HCIFIC/
	DATA R(6,5),R(6,6),R(6,7)/5HATION,5HS    ,5H    4/
	DATA R(7,1),R(7,2),R(7,3),R(7,4)/5HPRINT,5H INTE,5HRVAL ,5H     /
	DATA R(7,5),R(7,6),R(7,7)/5H     ,5H     ,5H    5/
	DATA R(8,1),R(8,2),R(8,3),R(8,4)/5HPRINT,5H VARI,5HABLES,5H     /
	DATA R(8,5),R(8,6),R(8,7)/5H     ,5H     ,5H    6/
	DATA R(9,1),R(9,2),R(9,3),R(9,4)/5HPRINT,5H ONLY,5H     ,5H     /
	DATA R(9,5),R(9,6),R(9,7)/5H     ,5H     ,5H    7/
	DATA R(10,1),R(10,2),R(10,3)/5HINTER,5HROGAT,5HE BLO/
	DATA R(10,4),R(10,5),R(10,6)/5HCK OU,5HTPUTS,5H     /
	DATA R(10,7)/5H    8/
	DATA R(11,1),R(11,2),R(11,3)/5HOUTPU,5HT ON ,5HLINE /
	DATA R(11,4),R(11,5),R(11,6)/5HPRINT,5HER   ,5H     /
	DATA R(11,7)/5H    9/
	DATA R(12,1),R(12,2),R(12,3)/5HSUPPR,5HESS T,5HYPING/
	DATA R(12,4),R(12,5),R(12,6)/5H OF I,5HNPUT ,5HDATA /
	DATA R(12,7)/5H   10/
	DATA R(13,1),R(13,2),R(13,3)/5HPUNCH,5H UPDA,5HTED M/
	DATA R(13,4),R(13,5),R(13,6)/5HODEL ,5HON TA,5HPE   /
	DATA R(13,7)/5H   11/
	DATA R(14,1),R(14,2),R(14,3)/5HPUNCH,5H UPDA,5HTED M/
	DATA R(14,4),R(14,5),R(14,6)/5HODEL ,5HON CA,5HRDS  /
	DATA R(14,7)/5H   12/
	DATA R(15,1),R(15,2),R(15,3)/5HINPUT,5H FROM,5H PAPE/
	DATA R(15,4),R(15,5),R(15,6)/5HR TAP,5HE    ,5H     /
	DATA R(15,7)/5H   13/
	DATA R(16,1),R(16,2),R(16,3)/5HINPUT,5H FROM,5H CARD/
	DATA R(16,4),R(16,5),R(16,6)/5H READ,5HER   ,5H     /
	DATA R(16,7)/5H   14/
	GO TO (70,70,70,50,10,30),TEST5
10	WRITE(4,20)
20	FORMAT(/27H RUN TERMINATED BY SWITCH 0/)
	GO TO 70
30	WRITE(4,40)
40	FORMAT(/31H RUN TERMINATED BY QUIT ELEMENT/)
	GO TO 70
50	WRITE(4,60)
60	FORMAT(/20H ERROR IN PROCESSING/)
70	TEST5=1
C	DEFINE THE SWITCH OPTIONS
	DO 90 I=1,16
	IF (RSAC(17)) GO TO 100
	WRITE(4,80) (R(I,J),J=1,7)
80	FORMAT(1H ,7A5)
90	CONTINUE
100	WRITE(4,110)
110	FORMAT(/44H AFTER SELECTING DESIRED OPTIONS TYPE CTRL P/)
	PAUSE
C	GET THE SWITCH SETTINGS
	J=0
	DO 120 I=1,16
	KEYS(I)=2
	IF (.NOT.RSAC(I)) GO TO 120
	KEYS(I)=1
	J=J+1
	ISW(J)=I
120	CONTINUE
C	OUTPUT THE SWITCH SETTINGS
	WRITE(4,130) (ISW(I),I=1,J)
130	FORMAT (/16H SWITCHES ON ARE,I3,15(1H,,I3))
	RETURN
	END