.C
.Y.WCOMMANDFILE TO CREATE A MEMO
.L.X
$ IF P1 .NES. "" THEN MEMO_FILE==P1
$ IF MEMO_FILE .NES. "" THEN GOTO test
$ IF P1 .EQS. "" THEN INQUIRE/global MEMO_FILE "NAME OF MEMO FILE"
$!	CHECK TO SEE IF FILE ALREADY EXITS
$test: OPEN/READ/ERR=NOT_FOUND INFILE 'MEMO_FILE'.RNO
$CLOSE INFILE
$GOTO EDIT
$NOT_FOUND: COPY DBC4:[ART.BIWEEKLY]MEMOFORM.RNO 'MEMO_FILE'.RNO
$EDIT:  DEFINE/USER SYS$INPUT SYS$COMMAND:
$EDT 'MEMO_FILE'.RNO
$on error then goto edit_ques
$RUNOFF 'MEMO_FILE'
$SPELL 'MEMO_FILE'.MEM
$INQUIRE ANS "PRINT A COPY OF THE MEMO"
$IF ANS THEN GOTO PRINT
$edit_ques: INQUIRE ANS "RE-EDIT MEMO"
$IF ANS THEN GOTO EDIT
$EXIT
$PRINT: PRINT/DEV=TTB6: 'MEMO_FILE'.MEM
$PURGE 'MEMO_FILE'.*
.S