EXTERN	IO
	SECT	SPEAK
	JA	#ST
#XR,	ORG	.+10
	TEXT	+SPEAK+
#RET,	SETX	#XR
	SETB	#BASE
	JA	.+3
#BASE,	ORG	.+6
N,	ORG	.+3
#DOTMP,	ORG	.+3
BLANK,	TEXT +      +
DOLLAR,	TEXT +>$<   +
ONE,	F 1.0
FOUR,	F 4.0
	ORG	#BASE+30
	FNOP
	JA	#RET
	FNOP
#GOBAK,	0;0
I,	ORG	.+0003
L,	ORG	.+0003
OLDLOC,	ORG	.+0003
TWELV,	F 12.0
THIRT,	F 13.0
	#LBL=.
	COMMON	TXTCOM
RTEXT,	ORG	.+1147
LINES,	ORG	.+0044
ASCVAR,	ORG	.+0003
LOC,	ORG	.+0003
	ORG	#LBL
#RTN,	BASE	#BASE
	JA	#GOBAK
#ST,	STARTD
	0210
	FSTA	#GOBAK,0
	0200
	SETX	#XR
	SETB	#BASE
	LDX	0,1
	FSTA	#BASE
	FLDA%	#BASE,1+
	FSTA	N
	STARTF
	FLDA%	N
	JEQ	#RTN
	FLDA	N
	STARTD
	FSTA	#G0002
	STARTF
	JSR	IO
	JA	.+0004
#G0002,	JA	.
	FLDA	ONE
	ATX	7
	FLDA	LINES-0003,7
	FSUB	DOLLAR
	JEQ	#RTN
#1,	FLDA	LOC
	FSTA	OLDLOC
	FLDA	ONE
	FSTA	I

#G0004,	FLDA	THIRT
	FSUB	I
	FSTA	L
	ATX	7
	FLDA	LINES-0003,7
	FSUB	BLANK
	JNE	#5

#3,	FLDA	I
	FADD	ONE
	FSTA	I
	FSUB	TWELV
	JLE	#G0004

#5,	EXTERN	#WRITO
	TRAP3	#WRITO
	JA	FOUR
	JA	#2+2
	FLDA	ONE
	FSTA	I
	FLDA	L
	FSTA	#DOTMP+0000

#G0005,	FLDA	I
	ATX	7
	FLDA	LINES-0003,7
	EXTERN	#RSVO
	TRAP3	#RSVO
	FLDA	I
	FADD	ONE
	FSTA	I
	FSUB	#DOTMP+0000
	JLE	#G0005
	EXTERN	#RENDO
	TRAP3	#RENDO

#2,	JA	.+0007
	5047
	4047
	5461
	6201
	6651
	FLDA%	N
	FADD	ONE
	FSTA%	N
	FLDA	N
	STARTD
	FSTA	#G0006
	STARTF
	JSR	IO
	JA	.+0004
#G0006,	JA	.
	FLDA	LOC
	FSUB	OLDLOC
	JEQ	#1
	EXTERN	#WRITO
	TRAP3	#WRITO
	JA	FOUR
	JA	#10+2
	EXTERN	#RENDO
	TRAP3	#RENDO

#10,	JA	#RTN
	5061
	3051
	END