.;SDATA.CMD
.; COMMAND FILE FOR GENERATING DATA TYPE AASSEMBLER FILES
.;
.;
	.ENABLE SUBSTITUTION
	.ENABLE GLOBAL
	.ENABLE ESCAPE
.ENABLE DATA #0
'$CC'
'$CC' SCALER STORAGE AREA
'$CC'
 
'$EC'
.DISABLE DATA #0
.AGAIN:	.ASK Z DO YOU WANT TO DESCRIBE A DATA STRUCTURE
	.IFF Z .GOTO END
	.ASKS [1:6] $TITL DATA STRUCTURE NAME
	.ASKS M ONE LINE DISCRIPTION OF DATA STRUCTURE
.ENABLE DATA #0
'$FORM'
'$SC'
'$CC'
'$CC'  ##-'$TITL'-'M'
'$CC'
.DISABLE DATA #0
	;START TYPING DISCRIPTION OF DATA STRUCTURE
	;TYPE <ESC> TO ESCAPE
	.SETS SEP " "
	.GOSUB INP
.ENABLE DATA #0
'$CC'
'$EC'
.DISABLE DATA #0
	.GOTO AGAIN
.INP:
.R2:	.ASKS S
	.IFT <ESCAPE> .GOTO R1
	.DATA #0 '$CC''SEP''S'
	.GOTO R2
.R1:	.RETURN
.;
.END:
	.DATA #0 '$ENDFL'
	.CLOSE	#0
/
