;*******************************************************************
;*		***********************************************
;*  title wipe 	***********************************************
;*		***********************************************
;*******************************************************************
;*******************************************************************
;	---------------------------
;	 title wipe program (test)
;	---------------------------
;*******************************************************************


wipetitle_open
	jsr	dc_program
	dwstart			
	dwwait	5
	dwnext	clear_fullclose
	dwstop	openning_color

wipetitle_close
	rts

;*******************************************************************
;	cls
;*******************************************************************

openning_color

	jsr	set_param
	db	000h,000h,000h	; window switch
	db	00h,00h		; window logic
	db	01h		; 212dh
	db	02h,010h,0e0h	; 2130,31,32

	rts

;====================================================================
;====================================================================
; END END END END END END END END END END END END END END END END
;====================================================================
;====================================================================