f_ansi_cls.asm
bitfixer_bitfixer/dg/z88dk/libsrc/stdio/ansi/z88/f_ansi_cls.asm
;
;	f_ansi_cls
;
;	Clear the screen
;
;	djm 6/6/2000
;
;
;	$Id: f_ansi_cls.asm,v 1.4 2015/01/19 01:33:19 pauloscustodio Exp $
;

		PUBLIC	ansi_CLS

		INCLUDE	"stdio.def"

.ansi_CLS
	ld	a,$0c
	call_oz(os_out)
	ret
IF Blah
	ld	hl,clstxt
	call_oz(gn_sop)
	ret

.clstxt
	defb	1,'3','@',32,32,1,'2','C',254,0
ENDIF
