; Affichage de caract}res en spirale
; Par SNN pour Quasar CPC 7

	ORG &4000
	NOLIST

	OR A		; A-t-on bien entr{ une valeur ?
	JP Z,RESTA
	LD A,E
	LD (CHAR+1),A
	JP START

ABS	db 1
ORD	db 1
RANG	db 1

START	LD A,(RANG)
	CP 13
	JP NZ,SUITEE
FIN	LD HL,&0C0D
	CALL &BB75
	LD B,29
	LD A,(CHAR+1)
BOUC	CALL &BB5A
	CALL &BD19
	DJNZ BOUC

RESTA	LD A,1
	LD (RANG),A
	LD A,39
	LD (SUITE+1),A
	LD (SUITE+3),A
	LD A,24
	LD (SUITE2+1),A
	LD (SUITE4+1),A
	RET

SUITEE	LD A,(RANG)
	LD (ABS),A
	LD A,(RANG)
	LD (ORD),A
SUITE	LD B,39
BOUC1	PUSH BC
	CALL AFFICHE
	LD A,(ABS)
	INC A
	LD (ABS),A
	POP BC
	DJNZ BOUC1
	JP SUITE2

AFFICHE	LD A,(ABS)
	LD H,A
	LD A,(ORD)
	LD L,A
	CALL &BB75
CHAR	LD A,140
	CALL &BB5A
	CALL &BD19
	RET

SUITE2	LD B,24
BOUC2	PUSH BC
	CALL AFFICHE
	LD A,(ORD)
	INC A
	LD (ORD),A
	POP BC
	DJNZ BOUC2
SUITE3	LD B,39
BOUC3	PUSH BC
	CALL AFFICHE
	LD A,(ABS)
	DEC A
	LD (ABS),A
	POP BC
	DJNZ BOUC3
SUITE4	LD B,24
BOUC4	PUSH BC
	CALL AFFICHE
	LD A,(ORD)
	DEC A
	LD (ORD),A
	POP BC
	DJNZ BOUC4
CHANGE	LD A,(RANG)
	INC A
	LD (RANG),A
	LD A,(SUITE+1)
	SUB A,2
	LD (SUITE+1),A
	LD A,(SUITE2+1)
	SUB A,2
	LD (SUITE2+1),A
	LD A,(SUITE3+1)
	SUB A,2
	LD (SUITE3+1),A
	LD A,(SUITE4+1)
	SUB A,2
	LD (SUITE4+1),A
	JP START
A,(ORD)
	INC A
{çale @ 39 (iauteur = recistre 4 + 1)&
hon de 3 rupturås glassi1ues
;