DisBuf	EQU	$C7BD
WrtDis	EQU	$C77E
ClrDisB	EQU	$C7AF
*		
	ORG	$8000
*
START	LDAB	#7
	LDX	#CafeW
	LDY	#DisBuf
AGAIN	LDAA	0,X
	STAA	0,Y
	INX
	INY
	DECB
	BNE	AGAIN
	JSR	WrtDis
*
	LDX	#$FFFF
DELAY	DEX
	BNE	DELAY
*
	LDAB	#32
	LDX	#Blank
	LDY	#DisBuf
AGAN1	LDAA	0,X
	STAA	0,Y
	INX
	INY
	DECB
	BNE	AGAN1
	JSR	WrtDis
*
	LDX	#$FFFF
DELY1	DEX
	BNE	DELY1
*
	BRA	START
*
CafeW	FCC	'Cafe 99'
Blank	FCC	'                                                 '
