	CRLF = $AAD7
	PNT = $d1

*=$801
.text 12,8,0,0,$9e,format("%4d", start),0,0,0

start
	bcc right          ; Carry flag tracks scan direction
	dey                ; if set, scan right to left
	bne skip           ; have we reached the left edge?
	jsr CRLF           ; if so, output carriage return
right	iny                ; C is clear, so scan left to right
	cpy #19            ; Set C if we reached the right edge
skip	inx                ; X counts gaps between stars
	xaa #$0f           ; binary 'and' X with $f
	bne start          ; skip characters until (X and $f) = 0
	lax #'*'           ; set both A and X to 42 ($2a)
	sta (PNT),y        ; draw an asterisk
	inc $65	           ; ZP var that starts with 13,
	bpl start          ; continue until (128-13) stars drawn
	rts
end
