        org     &a000
slime:  ld      HL,&C000
        LD      B,25
LOOP3:  PUSH    hl
        push    bc
        ld      b,8
loop2:  push    hl
        push    bc
        ld      b,80
loop:   ld      (hl),0
        inc     HL
        DJNZ    LOOP
        CALL    &BD19
        POP     BC
        POP     HL
        LD      A,H
        ADD     A,8
        LD      H,A
        DJNZ    LOOP2
        POP     BC
        POP     HL
        LD      DE,80
        ADD     HL,DE
        DJNZ    LOOP3
        RET
        7È¸8õGòx¹É:¯· Í/U 	 Í TÐ6 ÍTZ:×¯Í‘^0áÍæUÃ°Vtgetcursor

clear
IF 1-rom:call getiy:ENDIF
 c