; This is a patch for the CP/M-80 version of Turbo Pascal version 3 to make
; it include or not include the error message overlay file without asking.
; It works by replacing that code by a default answer.

NO	EQU	0
YES	EQU	NOT NO

INCLUDE	EQU	YES			;use no to omit error message overlay

START	EQU	0220DH			;address where Turbo puts up message
					;.. asking whether to include error
					;.. message overlay
CONT	EQU	0222FH			;address where code continues after
					;.. yes/no question is answered

	ORG	START

	IF	INCLUDE
	LD	A,'Y'			;value for affirmative answer
	ELSE
	LD	A,'N'			;value for negative answer
	ENDIF

	SUB	'N'
	JP	CONT			;go on with code

	END