; Star`22 party
; Animated Growing up Star

	emt 14			; Reset to std. config
	mov #232*256.+233,r0	; 'width:64/32' & 'cursor visibility' symbols
	call ToChrs		; Switch mode width: 32 chars, cursor off
	mov #16.,r1		; cursor to ~Center of Screen (16,11)
	mov #11.,r2
	emt 24
	call Astrsk		; Draw Center
	clr r3			; Size
Draw:	mov #Dir,r2
	movb (r2)+,r0		; Direction char
	emt 16			; Move cursor Up for next contour
	inc r3			; Grow Size
	mov r1,r4		; 16 Edges
Edges:	mov r3,r5
Line:	movb (r2),r0		; Next Direction
	emt 16
	call Astrsk		; Print "*"
	sob r5,Line		; 1 line loop
	inc r2
	sob r4,Edges		; 16 lines loop
	dec #4			; 4 contours loop
	bne Draw
Astrsk:	mov #256.*8.+42.,r0	; "*" & "<=" chars
ToChrs:	emt 16			; Print 1st char ("*")
	swab r0
	emt 16			; Print 2nd char (back step)
	ret
Dir:	.byte 32,35,33,31,37,36,10,33,34,37,32,10,35,34,31,32,36	; Direction chars

; Directions:

; 6 7 0
;  \|/        34 32 35
; 5-*-1  chr: 10    31
;  /|\        37 33 36
; 4 3 2
