	CHROUT = $FFD2
	PNT = $e0

*=$1c01
.text 12,8,$3a,0,$9e,format("%4d", start),0,0,0

start
new_line
	ldy #19		; set Y to width
	lda #13		; and A to carriage return
print	jsr CHROUT	; kernal prints left to right
	dey		; Y counts down, right to left
	bmi new_line	; wrap if line is complete
	lda #29		; set A to "cursor right"
	inx		; X counts gaps between stars
	cpx #'*'+6	; have we skipped enough?
	bne print	; if not, keep moving cursor
	lax #'*'	; set both A and X to 42
	sta (PNT),y	; draw mirror image
	dec $3b		; ZP var that starts with 58
	bpl print	; continue until all stars drawn
	rts
end
