SUBROUTINE CSM12
	IMPLICIT INTEGER (A-Z)
C	GIVES COMMANDS
	WRITE (5,1)
	WRITE (5,2)
	WRITE(5,3)
	WRITE(5,4)
	WRITE(5,5)
	WRITE (5,6)
	WRITE (5,7)
	WRITE(5,8)
	WRITE (5,9)
C	WRITE(5,10)
	RETURN
1	FORMAT (//T4,'COMMAND',T26,'ACTION'/)
2	FORMAT (1H ,T5,'HELP',T21,'TYPES THIS LISTING'
	1,/,T5,'LOOK',T21,'INTERROGATES BLOCK OUTPUTS')
3	FORMAT (1H ,T5,'CONFIGURATION',T21,'ALLOWS CHANGES OR ADDITIONS
	1 TO MODEL',/,T5,'PARAMETERS',T21,'ALLOWS THE ENTRY OF
	2 PARAMETERS')
4	FORMAT(1H ,T5,'FUNCTION',T21,'ALLOWS FUNCTIONS TO BE DEFINED',
	1/T5,'PUNCH',T21,'OUTPUTS MODEL TO DESIGNATED DEVICE')
5	FORMAT(1H ,T5,'INTEGRATION',T21,'ALLOWS ENTRY OF INTEGRATION
	1 PARAMETERS'/,T5,'OUTPUT',T21,'DETERMINES OUPUT PARAMETERS')
6	FORMAT(1H ,T5,'GO',T21,'STARTS RUN OF MODEL'/,T5,
	1'FILES',T21,'ALLOWS I/O DEVICES TO BE ENTERED')
7	FORMAT(1H ,T5,'RESTART',T21,'CLEARS MODEL AND STARTS AGAIN'/,
	1T5,'EXIT',T21,'EXITS CSMP')
8	FORMAT(1H ,T5,'TIME',T21,'GIVES RUN AND ELAPSED TIME'/,
	1T5,'PRINT',T21,'CAUSES OUTPUT TO BE PRINTED IN TABLES')
9	FORMAT(1H ,T5,'PLOT',T21,'CAUSES OUTPUT TO BE PLOTED(DEFAULT)'/,
	1T5,'RUN',T21,'DOES ALL OF THE ABOVE NECSSARY TO DO A GO'
	2//T5,'ALL COMMANDS MAY BE SHORTENED TO 2 CHARACTERS',/
	3T5,'FILE NAMES ARE SIX CHARACTERS IN LENGTH WITH A THREE'
	4,' CHARACTER TYPE',/)
C10	FORMAT(1H ,T5,'WARNING!!!  USE RELEASE AT YOUR OWN RISK',
C	1/T5,'IT CLOSES ALL FILES SO THAT AN OUTPUT FILE ON'
C	2,/T5,'DISK MIGHT BE WRITTEN OVER IF THE NAME ISNT',
C	3' CHANGED',///)
	END