File: KALEI.PA of Tape: Sources/Focal/s9

(Source file text) 

---

	FIELD 0

	DLXA=6060
	DLYC=6072
	DSPD=6051

	*200
START,	TAD Y
	JMS SCALE
	CMA
	TAD X
	DCA X
	TAD X
	DLXA
	JMS SCALE
	TAD Y
	DLYC
	DSPD
	JMP .-1
	DCA Y
	JMP START

Y,	0
X,	0

SCALE,	0
	DCA TEM
	OSR
	CIA
	DCA C
	TAD TEM
	CLL
	SPA
	CML
	RAR
	ISZ C
	JMP .-5
	JMP I SCALE

TEM,	0
C,	0

	$$$$$

---