print macro str
    mov ah, 09h
    lea dx, str
    int 21h
endm

yell macro
mov ax, 0600h
mov bh, 07h
mov cx, 0000h
mov dx, 184Fh
int 10h

mov ah, 02
mov bh, 00
mov dx, 0000
int 10h
endm

.model small
.stack 100h
.data
    var1 db 13,10, "Enter username: ", "$"
    var2 db 13,10, "Please enter password: ", "$"
	agranted db 13,10, "ACCESS GRANTED ", "$"
	adenied db 13,10, "ACCESS DENIED ", "$"
	cont db 13,10, "PRESS 'C' TO CONTINUE", "$"
	cont1 db 13,10, "PRESS 'C' TO CONTINUE.....'E' TO EXIT", "$"

	mes1 db 13,10, "Enter your name: ", "$"
    mes2 db 13,10, "Hello ", "$"
	mes3 db 13,10, "Welcome to Assembly Language", "$"
    newLine db "$"

    nameinput label byte
    maxname db 50
    current db ?
    namefield db 50 dup(?)

	a1 db 13,10, "                        ------------------------                               ", "$"
	a2 db 13,10, "                        ! -------------------- !                               ", "$"
	a3 db 13,10, "                        ! !                  ! !                               ", "$"
	a4 db 13,10, "                        ! !                  ! !                               ", "$"
	a5 db 13,10, "                        ! !                  ! !                               ", "$"
	a6 db 13,10, "                        ! !                  ! !                               ", "$"
	a7 db 13,10, "                        ! !                  ! !                               ", "$"
	a8 db 13,10, "                        ! !        ------------                                ", "$"
	a9 db 13,10, "                        ! !         ! !                                        ", "$"
	a10 db 13,10, "                        ! !          ! !                                       ", "$"
	a11 db 13,10, "                        ! !           ! !                                      ", "$"
	a12 db 13,10, "                        ! !            ! !                                     ", "$"
	a13 db 13,10, "                        ! !             ! !                                    ", "$"
	a14 db 13,10, "                        ! !              ! !                                   ", "$"
	a15 db 13,10, "                        ! !               ! !                                  ", "$"
	a16 db 13,10, "                        ! !                ! !                                 ", "$"
	a17 db 13,10, "                        ! !                 ! !                                ", "$"

.code

main proc

mov ax, @data
mov ds, ax

mov ah, 02h
mov bh, 00
mov dh, 10
mov dl, 35
int 10h

yell

mov ah, 02h
mov bh, 00
mov dh, 10
mov dl, 42
int 10h

print var1

mov ah, 1
int 21h
cmp al, "r"
jne deny



mov ah, 1
int 21h
cmp al, "o"
jne deny



mov ah, 1
int 21h
cmp al, "y"
jne deny



mov ah, 1
int 21h
cmp al, "e"
jne deny

mov ah, 1
int 21h
cmp al, "l"
jne deny

mov ah, 1
int 21h
cmp al, "l"
jne deny







print var2

mov ah, 7
int 21h
cmp al, "y"
jne deny

mov bx, 42
mov dx, bx
mov ah,2
int 21h

mov ah, 7
int 21h
cmp al, "e"
jne deny

mov bx, 42
mov dx, bx
mov ah,2
int 21h

mov ah, 7
int 21h
cmp al, "l"
jne deny

mov bx, 42
mov dx, bx
mov ah,2
int 21h

mov ah, 7
int 21h
cmp al, "l"
jne deny

mov bx, 42
mov dx, bx
mov ah,2
int 21h




print agranted
jmp return1



deny:
	print adenied
	jmp ending

return1:
print cont
mov ah, 1
int 21h
mov bl, al
mov ah, 2
mov dl, 0Dh
int 21h
cmp bl, "C"
je menu1
jmp return1







menu1:
mov ax, 0600h
mov bh, 07h
mov cx, 0000h
mov dx, 184Fh
int 10h

mov ah, 02
mov bh, 00
mov dx, 0000
int 10h

mov ah, 02h
mov bh, 00
mov dh, 10
mov dl, 42
int 10h

mov ah, 09
lea dx, mes1
int 21h

mov ah, 0Ah
lea dx, nameinput
int 21h

mov bl, current
mov namefield[bx], "$"



mov ah, 09h
lea dx, mes2
int 21h

mov ah, 09h
lea dx, namefield
int 21h

print mes3

jmp return2


	return2:
	print cont1
	mov ah, 1
	int 21h
	mov bl, al
	mov ah, 2
	mov dl, 0Dh
	int 21h
	cmp bl, "C"
	je menu2
	cmp bl, "E"
	mov ah, 4Ch
    int 21h

menu2:
yell
print a1
print a2
print a3
print a4
print a5
print a6
print a7
print a8
print a9
print a10
print a11
print a12
print a13
print a14
print a15
print a16
print a17
jmp ending


ending:
    mov ah, 4Ch
    int 21h

main endp
end main