Нужна помощь!!

01.01.2001

нужна помощь!!
написать программу "дождь":в верхней строке экрана случайным образом появляются точки, которые затем падают вниз с постоянной скоростью. Для генерации координат точек написать подпрограмму-мультипликативный генератор псевдослучайных чисел.

.model small
.STACK 100h
.DATA
Message1 DB '*','$'
x db 3
a db 11
m db 79
.CODE
mov ax,@Data
mov ds,ax
mov ax,3
int 10h
KeyLoop:
loop begin
MOV AH,7
MOV AL,1
MOV CH,0
MOV CL,0
MOV DH,24
MOV DL,79
MOV BH,7
INT 10H
mov ah,1
int 16h
jz keyloop
gen proc
mov al,x
mul a
div m
mov x,ah
ret
Gen endp
mov ah,4ch
int 21h
mov cx, 7
begin:
call gen
mov ah,02h
mov bh,0
mov dh,0
mov dl,x
int 10h
mov ah,9
mov dx,OFFSET Message1
int 21h
END
это все что вышло. нужно еще добавить генератор случайных чисел и цикл задержки. помогите пожалуйста!!

  • только на платной основе даром ни кто писать не будет

Вас заинтересует