.nolist 
#include "ti84pce.inc" 
.list 
.org userMem-2 
.db tExtTok,tAsm84CeCmp 
.assume ADL=1 

CLSCREEN:
	ld      hl,$E00105     
    	ld     (hl),h
	ld      hl,$007200    
        ld      (OP1+1),hl              ; dans OP1
        ld      (OP1),hl               ; (correspond au call _AnsName)
        call    _RclVarSym              ; Que contient Ans ?..
	dec 	a
	jr 	z,UneLi
	call    _ConvOP1
        call 	_RunIndicOff
        ld 	hl,$d40000
        ld 	(hl),e
        ld 	de,$d40001
        ld 	bc,153599
        ldir
        ld      hl,$E00205     
    	ld     (hl),h
        ret
UneLi:	ld 	hl,1	
	ld 	a,(de)
	dec 	a
	jr 	nz,BoxF
	call    _GetLToOP1
        call    _ConvOP1
        ld 	hl,$d40000+19200
        ld 	(hl),a
        ld 	de,$d40001+19200
        ld 	bc,134399
        ldir	
        ld      hl,$E00205     
    	ld     (hl),h
        ret
BoxF:	push 	af
	push 	hl
	push 	de
        call    _GetLToOP1
        call    _ConvOP1
        ld 	hl,$d40000/2
        add 	hl,de
        ld 	(SavHl+1),hl
        pop 	de
        pop 	hl
        inc 	hl
        push 	hl
        push 	de
        call    _GetLToOP1
        call    _ConvOP1
        ex 	de,hl
        ld 	h,160
        mlt 	hl
        add 	hl,hl
SavHl:	ld 	de,0
	add 	hl,de
	add	hl,hl
	ld 	(StrtHl+1),hl
	pop 	de
	pop 	hl
	inc 	hl
	push 	hl
	push 	de
        call    _GetLToOP1
        call    _ConvOP1
        ld 	b,d
        ex 	de,hl
        add 	hl,hl
        dec 	hl
        ld 	(BoxLrg+1),hl
        ex 	de,hl
        ld 	hl,640
        sbc 	hl,de
        ld 	(ecart+1),hl
        or 	b
        jr 	z,ZeR0
        pop 	de
        pop 	hl
        inc 	hl
        push 	hl
        inc 	hl
        push 	de
        call    _GetLToOP1
        call    _ConvOP1
        ld 	(CoUl+1),a
        pop	de
        pop 	hl
        push 	hl
        push 	de
        call    _GetLToOP1
        call    _ConvOP1
        or 	a
        jr 	z,ZeR0
StrtHl:	ld 	hl,$d40000
	push 	hl
	pop	de
	inc 	de
	ld 	(oLdSp+1),sp
	di
ecArt:	ld 	sp,0	
CoUl: 	ld 	(hl),0
BoxLrg:	ld 	bc,299
	ldir
	add 	hl,sp
	ex 	de,hl
	add	hl,sp
	ex 	de,hl
	dec	a
	jr 	nz,CoUl
oLdSp:	ld 	sp,0
	ei
	pop	de
	pop 	hl
	inc 	hl
	inc 	hl
	pop 	af
	sub 	a,5
	jp	nc,BoxF
	ld      hl,$E00205     
    	ld     (hl),h
	ret
ZeR0:	pop 	de
	pop 	hl
	ld      hl,$E00205     
    	ld     (hl),h
	ret