File: VENUS.PA of Tape: Sources/Focal/s8

(Source file text) 

---

	KSFV=	6311
	KRBV=	6316
	TSFV=	6321
	TLSV=	6326

	*200
	CAF
	ISZ	KEYBUF
	JMP	.-1
	KRB
	KRBV
	CLA
	TLS
	TAD	(30
	TLSV
	CLA
LOOP,	KSFV
	SKP
	JMP	VENIN
	KSF
	JMP	LOOP
KEYIN,	KRB
	DCA	KEYBUF
	TAD	KEYBUF
	TAD	(-203
	SNA CLA
	JMP I	(7600
	TAD	KEYBUF
	TSF
	JMP	.-1
	TLS
	TSFV
	JMP	.-1
	TLSV
	CLA
	TAD	KEYBUF
	TAD	(-215
	SZA CLA
	JMP	LOOP
	TAD	(12
	TSF
	JMP	.-1
	TLS
	TSFV
	JMP	.-1
	TLSV
	CLA
	JMP	LOOP

VENIN,	KRBV
	TSF
	JMP	.-1
	TLS
	CLA
	JMP	LOOP
KEYBUF,	0

		$$

---