PAGE	58,132
TITLE	Graphics Demo
.MODEL SMALL
.386
INCLUDE DENNIS.MAC
.STACK
.DATA
WELMESS 	DB	"Program that does crap all",13,10
KEYMESS 	DB	"Press any key to continue",13,10
L_WELMESS	EQU	$-WELMESS
L_KEYMESS	EQU	$-KEYMESS
NAMEREQ 	DB	"What is the secret letter?",13,10
L_NAMEREQ	EQU	$-NAMEREQ
CORRECT 	DB	13,"CORRECT",13,10
WRONG		DB	13,"WRONG",13,10
L_CORRECT	EQU	$-CORRECT
L_WRONG 	EQU	$-WRONG
PASSWORD	DB	"D"



.CODE
MAIN	PROC	FAR
	DATASET
	SCREEN	03H
	WRITEM	WELMESS,L_WELMESS
	WRITEM	NAMEREQ,L_NAMEREQ
	MOV	AH,01H
	XOR	AL,AL
	INT	21H
	CMP	AL,PASSWORD
	XOR	AX,AX
	JE	TICK
	WRITEM	WRONG,L_WRONG
	JMP	FINISH

TICK:
	WRITEM	CORRECT,L_CORRECT

FINISH:



	PROGEND
MAIN	ENDP
	END	MAIN