org 100h
MOV AX, 0B800H
MOV ES,AX
MOV AX,3
INT 10H
MOV AH,9
MOV DX, SZOVEG
INT 21H


%MACRO HAROMSZOG 2
MOV CX,%1
MOV al,%2
;MOV AX,%3
;MOV BX,%4
;MUL BX
MOV DI,320*140+60
mov bx,cx

CIKLUS:
MOV [ES:DI], byte al
sub DI,319
LOOP CIKLUS

MOV CX,%1
cik:
MOV [ES:DI], byte al
add DI,321
LOOP cik

MOV CX,%1
ci:
MOV [ES:DI], byte al
sub DI,1
LOOP ci

MOV CX,%1
c:
MOV [ES:DI], byte al
sub DI,1
LOOP c

%ENDMACRO ;

alap:
MOV AH,0
INT 16H
cmp ah,22 ;u
je v
cmp ah,35
je kor
jmp alap


v:
MOV AH,0
INT 16H
cmp ah,47;v
je kilep
jmp alap

kor:
MOV AX,13H
INT 10H
MOV AX,0A000H
MOV ES,AX
HAROMSZOG 100,03;,100,160
jmp alap

kilep:
MOV AX,3
INT 10H
retn
SZOVEG DB 'Udvozollek, valassz az alabbi menupontok kozul:                                 h-kor                                                                           u-v:kilepes$'