vowels.docAccepts a string, and search for vowels then make them fall from top to bottom of the screen. Use macro for the delay and printing of the characters
الكود ده اللى انا كتباه بس مش عارفه اخلى الvowels تنزل مع بعضها ع الشاشه وكمان عايزه لو دخلت كلمها فيها capital vowel برده يظهر
INCLUDE Irvine32.inc INCLUDE Macros.inc .data S_word byte 51 dup(0) X_Coordinate byte 0 Y_Coordinate byte 1 ;bcz it print rows A_str byte 'a',0 E_str byte 'e',0 O_str byte 'o',0 .code checkvowels proto letter:byte displayvowels proto vowel:byte main PROC mGotoxy 0,0 mReadString S_word mov esi,offset S_word mov ecx,lengthof S_word-1 ; mov eax,0 l1: mov al,[esi] invoke checkvowels,al jmp quit quit: inc X_Coordinate inc esi loop l1 call crlf exit main ENDP mReadString MACRO varName:REQ push ecx push edx mov edx,offset varName mov ecx,sizeof varName call readstring pop edx pop ecx ENDM mWriteString MACRO buffer:REQ push edx mov edx,offset varName call writestring pop edx ENDM mGotoxy MACRO X:REQ, Y:REQ push edx mov dh,Y mov dl,X call Gotoxy pop edx ENDM checkvowels proc letter:byte cmp al,'a' je label_A cmp al,'e' je label_E cmp al,'o' je label_O display proc vowel:byte label_A: mGotoxy X_Coordinate,Y_Coordinate mWritestring A_str jmp quit label_E: mGotoxy X_Coordinate,Y_Coordinate mWriteString E_str jmp quit label_O: mGotoxy X_Coordinate,Y_Coordinate mWriteString O_str jmp quit END main