	.ENABLE SUBSTITUTION
	.ENABLE GLOBAL
	.ENABLE ESCAPE
	.SETS FNTP ""
	.SETN FUNSZ 0
	.SETS I1 " "
	.SETS I2 "PROCEDURE"
	.SETS I3 "FUNCTION"
	.GOTO	A1
.A2:	.DISABLE QUIET
	;THE FOLLOWING:
	; 1) 'I1'
	; 2) 'I2'
	; 3) 'I3'
	.ENABLE QUIET
.A1:	.ASKN PT PROGRAM TYPE
	.IFT <ESCAPE> .GOTO A2
	.IF PT = 1 .GOTO A2
	.SETS PROTYP  I'PT'
	.SETS PARLST ""
	.SETS FUNLST ""
	.IF PT = 1 .GOTO B
	.ASKS PARLS1 TYPE PARAMETERS & TYPE
	.IF PT = 3 .ASKS FUNLST WHAT IS THE FUNCTION TYPE
	.IF PT NE 1 .SETS PARLST "( "+"'PARLS1'"+" )"
	.IF PT = 3 .SETS PARLST "'PARLST'"+" RETURNS "+"'FUNLST'"
	.GOTO B2
.B:	.SETS PARLST ""
.B2:
.ENABLE DATA #0
 
'PROTYP' '$TITL' 'PARLST';
 
END'PROTYP' { '$TITL' }
.DISABLE DATA #0
	.IFF $MORM .GOTO END
.ENABLE DATA
'$FORM'
'$SC'
.DISABLE DATA
	.CHAIN LB:[17,377]GENSRC
.END:
	.DATA #0 ENDMODULE
	.CLOSE #0
/
