EXTERN	IO
	SECT	PSPEAK
	EXTERN	SPEAK
	JA	#ST
#XR,	ORG	.+10
	TEXT	+PSPEAK+
#RET,	SETX	#XR
	SETB	#BASE
	JA	.+3
#BASE,	ORG	.+6
MSG,	ORG	.+3
SKIP,	ORG	.+3
ONE,	F 1.0
#DOTMP,	ORG	.+3
OLDLOC,	ORG .+3
	ORG	#BASE+30
	FNOP
	JA	#RET
	FNOP
#GOBAK,	0;0
I,	ORG	.+0003
M,	ORG	.+0003
	#LBL=.
	COMMON	PTXCOM
PTEXT,	ORG	.+0454
	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	MSG
	FLDA%	#BASE,1+
	FSTA	SKIP
	STARTF
	FLDA%	MSG
	ATX	7
	FLDA	PTEXT-0003,7
	FSTA	M
	FLDA%	SKIP
	JLT	#9
	FLDA%	MSG
	FSTA	OLDLOC
	FLDA	ONE
	FSTA	I
	FLDA%	SKIP
	FADD	ONE
	FSTA	#DOTMP+0000

#G0001,
#1,	JSR	IO
	JA	.+0004
	JA	M
	FLDA	M
	FADD	ONE
	FSTA	M
	FLDA	LOC
	FSUB	OLDLOC
	JEQ	#1
	FLDA	LOC
	FSTA	OLDLOC

#3,	FLDA	I
	FADD	ONE
	FSTA	I
	FSUB	#DOTMP+0000
	JLE	#G0001
	FLDA	M
	FSUB	ONE
	FSTA	M

#9,	JSR	SPEAK
	JA	#RTN
	JA	M
	END