E fcb 4
F fcb 2,1,3,1,3,1,-1,1,3,1,3,1,3,-1,0,5,5,5,-1,1,3,1,3,1,3,-1,2,1,3,1,3,1,-1
G fcb 3,5,5,-1,-2
H jsr $CD24
 ldx #G
 bra J
I ldx #F
J ldb ,X+
 bmi M
 beq L
 lda #32
K jsr $CD18
 decb
 bne K
L lda #'*
 jsr $CD18
 bra J
M incb
 bne N
 jsr $CD24
 bra J
N dec E
 bne I
 jmp $CD03
 end H
