PhaseInit:
    ld a,1
    ld (phasex),a
    ld b,10

Phase:
    push bc
    LD IX,P
    ld bc,$1002
    ld a,(phasex)
    ld l,23
    call ilargesprite
    ld de,(23*256)+(phasex)+2
        ld (pencol),de
        ld hl,hase
    call vputsc

    ld a,(phasex)
    inc a
    inc a
    ld (phasex),a
    ld e,(phasex)+10
    ld hl,(phaseI)
    call vdisphl
    call ifastcopy
    BCALL(_GrBufClr)
    pop bc
    djnz Phase
    ld b,10
Phase2:

    push bc
    LD IX,P
    ld bc,$1002
    ld a,(phasex)
    ld l,23
    call ilargesprite
    ld de,(23*256)+(phasex)+2
        ld (pencol),de
        ld hl,hase
    call vputsc

    ld a,(phasex)
    inc a
    ld (phasex),a
    ld e,(phasex)+10
    ld hl,(phaseI)
    set 2,(iy+50)
    call vdisphl
    res 2,(iy+50)
    call ifastcopy
    BCALL(_GrBufClr)
    pop bc
    djnz Phase2





hase:
         .db  "hase",0