TITLE PROGRAM 4-4
  PAGE 60,132
  .MODEL SMALL
  .STACK 64
  .DATA
  PROMPT1 DB 'There is a message for you from Mr. Jones. '
  DB 'To read it enter Y','$'
  MESSAGE DB CR,LF,'Hi! I must leave town tomorrow, '
  DB 'therefore I will not be able to see you','$'
  PROMPT2 DB CR,LF,'No more messages for you','$'
  CR EQU 0DH
  LF EQU 0AH
  .CODE
  MAIN PROC FAR
  MOV AX,@DATA
  MOV DS,AX
  CALL CLEAR 
  CALL CURSOR 
  MOV AH,09 
  MOV DX,OFFSET PROMPT1
  INT 21H
  MOV AH,07 
  INT 21H
  CMP AL,'Y' 
  JZ OVER
  CMP AL,'y'
  JZ OVER
  MOV AH,09 
  MOV DX,OFFSET PROMPT2
  INT 21H
  JMP EXIT
OVER:MOV AH,09 
  MOV DX,OFFSET MESSAGE
  INT 21H
EXIT:MOV AH,4CH
  INT 21H 
  MAIN ENDP
  CLEAR PROC 
  MOV AX,0600H
  MOV BH,07
  MOV CX,0000
  MOV DX,184FH
  INT 10H
  RET
  CLEAR ENDP
  CURSOR PROC 
  MOV AH,02
  MOV BH,00
  MOV DL,05 
  MOV DH,08 
  INT 10H
  RET
  CURSOR ENDP
  END MAIN