page	58,132
TITLE	Key 1 Typing program.
INCLUDE DENNIS.MAC
.model	SMALL
.8086
.STACK 

.DATA
INTROMESS	DB	"Welcome to a program that does nothing much.",0AH,0DH,0DH,"Just follow the instructions that come up on the screen.",0AH,0DH,"Use capital letters please",0AH,0DH,0DH,24H
ASK		DB	"Do you wan't to read a joke? (Y/N) ",	24H
JOKE		DB	0AH,0DH,"DEFINITION OF SHAMPOO: Imitation poo",0AH,0DH,"He He?",0AH,0DH,24H
AGAIN		DB	0AH,0DH,"Wan't to read it again? (Y/N) ",24H
VERYWELL	DB	0AH,0DH,"You're missing out on quality comedy",0AH,0DH,24H
ONCE		DB	0AH,0DH,"Very well, once is enough I guess",0AH,0DH,24H
BYE		DB	0AH,0DH,"Thats it, pretty lame eh?",0AH,0DH,24H
INVALID 	DB	0AH,0DH,"Y OR N!  Can't you do anything right.",0AH,0DH,24H
FLAG		DB	?
ONETIME 	DB	?
.CODE


MAIN    PROC    NEAR
        PUSH    DS
	MOV	AX,@DATA
	MOV	DS,AX
	MOV	ES,AX
	MOV	SI,0
	SCREEN	03H
	PRINT	INTROMESS
	MOV	ONETIME,0
STRT:	PRINT	ASK
	MOV	FLAG,1
	MOV	AH,0
	INT	16H
	PUSH	AX
	MOV	DL,AL
	MOV	AH,2
	INT	21H
	POP	AX
	CMP	AL,"Y"
	JNE	NO
	PRINT	JOKE
	MOV	ONETIME,1
	JMP	AGA
NO:
	CMP	AL,"N"
	JNE	INV
	PRINT	VERYWELL
OE:	CMP	ONETIME,0
	JE	BY
	PRINT	ONCE
BY:	PRINT	BYE
	PROGEND
AGA:	PRINT	AGAIN
	MOV	FLAG,2
	MOV	AH,0
	INT	16H
	PUSH	AX
	MOV	DL,AL
	MOV	AH,2
	INT	21H
	CMP	AL,"N"
	JE	OE
	CMP	AL,"Y"
	JNE	INV
	PRINT	JOKE
	JMP	AGA
INV:	PRINT	INVALID
	CMP	FLAG,1
	JE	STRT
	CMP	FLAG,2
	JE	AGA
MAIN	ENDP
	END	MAIN