INCLUDE	\6809\VECTREX.INC
		LIST	ON

		FCC	/g GCE 2001/
		FCB	$80

		FDB	$FF8F

		FDB	$F848
		FDB	$20D0
		FCC	/TEXT DEMO/
		FCB	$80

		FCB	$00

Start		LDU	#Text_Table

Loop		JSR	DP_to_D0

		JSR	Print_Str_hwyx

		LDD	,U
		BNE	Loop

		JSR	DP_to_C8
*		LDU	#music
*		JSR	Init_Music_chk
		JSR	Wait_Recal

		BRA	Start

Text_Table	FCB	-8,72		h,w
		FCB	20,-48		y,x
		FCC	/(-48,20) -8,72/
		FCB	$80

		FCB	-4,36		h,w
		FCB	48,-48		y,x
		FCC	/(-48,48) -4,36/
		FCB	$80

		FCB	-12,48		h,w
		FCB	-48,-48		y,x
		FCC	/(-48,-48) -12,48/
		FCB	$80

*		this one is upside-down and backwards

		FCB	6,-48		h,w
		FCB	30,48		y,x
		FCC	/(48,30) 6,-48
		FCB	$80

		FDB	0		end of list

		END