; $C01E: Circle
CIRC:   jsr     LC3B6
        ldx     #$1F
        jsr     LC3D9
        jsr     LC38F
        sty     $02D0
        sta     $02D1
        jsr     LC38F
        sty     $02D2
        sta     $02D3
        php
        ldx     #$23
        jsr     SCALE
        plp
        bcs     LC052
        lda     $02D0
        sta     $02D2
        lda     $02D1
        bit     $83
        bpl     LC052
        asl     $02D2
        rol     a
LC052:  sta     $02D3
        jsr     LC38F
        sty     $02D8
        sta     $02D9
        jsr     LC38F
        sty     $02DA
        sta     $02DB
        jsr     LC38F
        sta     $80
        tya
        ldy     $80
        jsr     LBC59
        ldx     #$2D
        ldy     #$2B
        jsr     LC305
        bcc     LC089
        lda     #$68
        ldy     #$01
        jsr     LC2F9
        sta     $02AD,x
        tya
        sta     $02AE,x
LC089:  ldx     #$03
LC08B:  lda     $02D0,x
        sta     $02D4,x
        dex
        bpl     LC08B
        lda     #$90
        jsr     LBCD5
        ldx     #$07
LC09B:  lda     $02D0,x
        sta     $02DC,x
        dex
        bpl     LC09B
        jsr     LBCEE
        jsr     LC37B
        ldx     #$02
        jsr     LC3A7
        stx     $E9
        clc
LC0B2:  lda     $E9
        bne     LC0B9
        jmp     L991C
LC0B9:  adc     $02D8
        sta     $02D8
        bcc     LC0C4
        inc     $02D9
LC0C4:  ldx     #$2D
        ldy     #$2B
        jsr     LC305
        bcs     LC0D5
        jsr     LBCEE
        jsr     PAINT
        bcc     LC0B2
LC0D5:  ldy     #$2D
        jsr     LBCF0