;
;		THIS COMMAND FILE CREATES A RNO MEMO FILE.
;
.;
.;		WRITTEN JUNE 1980
.;			BY MARVIN BROWN (N.C.A.R.)
.;
	.ENABLE SUBSTITUTION
	.ASKS [1:9.] OUT ENTER MEMO FILE NAME
	.ASKS TO WHO IS THIS MEMO TO
	.ASKS FROM WHO IS IT FROM
	.ASKS WHAT WHAT IS THE SUBJECT
;
;		CREATING THE MEMO HEADER
;
	.OPEN 'OUT'.RNO
.ENABLE DATA
.period
.left margin 8
.right margin 72
.center ;NATIONAL CENTER FOR ATMOSPHERIC RESEARCH
.center ;BOULDER, COLORADO
.skip
.center ;^&M E M O\&
.literal
 
 
TO:		'TO'
FROM:		'FROM'
DATE:		'<DATE>'
SUBJECT:	'WHAT'
 
 
 
.end literal
.title 'WHAT'
.autoparagraph
 
.DISABLE DATA
	.CLOSE
;
;	ENTER THE MEMO BODY WITH BLANK LINES BETWEEN
;	PARAGRAPHS AND TERMINATING WITH A CONTROL Z.
;
	PIP 'OUT'.RNO/AP=TI:
;
;	FINISHING UP THE MEMO
;
	.OPENA 'OUT'.RNO
.ENABLE DATA
 
.skip 3
.center ;^&E N D   O F   M E M O\&
.DISABLE DATA
	.CLOSE
.;
.;		OUTPUT THE MEMO TO THE TERMINAL
.;		AND EDIT IT IF NEEDED.
.;
.TRY:	RNO TI:/UN:N='OUT'
	.ASK Q DO YOU WANT TO EDIT IT
	.IFF Q	.GOTO DONE
	TEC 'OUT'.RNO
	.GOTO TRY
.;
.DONE:	RNO 'OUT'/UL:L='OUT'