.nolist
#include "asm.inc"
.list
.org $9D93
	.db $BB,$6D
	bcall(_zeroop1)
	ld hl,str1
	ld de,OP1
	ld bc,3
	ldir
 	bcall(_chkfindsym)
	ret c
	ex de,hl
	ld c,(hl)
	inc hl
	ld b,(hl)
	inc hl
	ld a,$05
	ld de,OP1
	ld (de),a
	inc de
	ldir
	xor a
	ld (de),a
	bcall(_chkfindsym)
	ret c
	ld de,-3
	add hl,de
	xor a
	ld (hl),a
	dec hl
	ld a,$80
	ld (hl),a
	bcall(_clrscrnfull)
	bcall(_homeup)
	ld hl,patched
	bcall(_puts)
	ret
str1:
	.db StrngObj,$AA,$00
patched:
	.db "Patched!",0
.end