;
; Ullrich von Bassewitz, 19.11.2002
;
; CLOSE replacement function for the PETs
;

        .export         CLOSE

        .include        "pet.inc"


.proc   CLOSE
                     
        ldx     PET_DETECT
        cpx     #PET_4000
        bne     @L1
        jmp     $F2E2           ; BASIC 4
@L1:    jmp     $F2AE           ; BASIC 2&3

.endproc