Progr           segment
                assume  cs:Progr, ds:dane, ss:stos

start:      mov ax,dane
            mov ds,ax
            mov ax,stos
            mov ss,ax
            mov sp,offset szczyt


            mov ah,2ch
            int 21h
            xor dh,dh
            mov bx,dx
poczatek:   mov dl,random[bx]
            push bx
            mov ax,160d
            mul dl            ;mnozenie wylosowanej lini aby belka byla na calej dlugosci
            mov bx,ax

            cld
            push ds
            push ds
            pop es
            mov ax,0b800h
            mov ds,ax           ;
            mov si,bx           ; zaslania linijke
            mov di,offset bufor ;
            mov cx,80   ;
            rep movsw  ;

            pop ds
            mov ax,0b800h
            mov es,ax
            mov di,bx
            mov ah,01000000b        ;kolor
            mov cx,80
            rep stosw

            mov cx,16d  ;
            xor dx,dx   ; odliczanie sekundy
            mov ah,86h  ;
            int 15h     ;


            mov si,offset bufor ;
            mov di,bx ;
            mov cx,80 ;         Odslania linijke
            rep movsw ;

            mov ah,1
            int 16h
            pop bx
            jnz koniec
            inc bx
            jmp poczatek


koniec:     mov ah,4ch
            mov al,0
            int 21h
Progr           ends

dane            segment
                bufor dw 80 dup(0)
                random db 8,7,3,20,12,0,9,22,23,21,15,3,15,12,19,4,23,17,20,15,4,15,9,1,20,21,2,5,11,5,7,12,20,4,12,17,10,24,3,24,8,17,15,10,15,20,5,17,4,1,15,10,0,12,11,12,10,21,22,4,8,12,22,1,8,7,12,17,15,18,0,1,9,2,1,14,2,16,18,8,12,22,16,8,21,0,15,18,17,22,8,1,8,12,0,15,3,10,3,4,13,23,21,12,2,13,14,15,8,12,13,23,8,11,17,24,23,20,2,20,24,4,24,1,19,22,12,9,14,10,11,20,13,12,11,20,10,23,2,8,2,19,1,22,24,11,9,4,22,9,10,4,17,5,17,18,15,5,21,24,18,9,2,20,8,4,12,23,22,3,7,8,16,15,23,14,0,6,22,20,18,6,11,3,14,21,17,11,6,1,0,11,7,17,24,7,24,20,1,0,2,7,15,7,4,9,24,23,18,16,11,14,5,3,1,4,8,10,22,23,22,24,10,21,22,24,22,8,7,4,18,6,14,8,15,19,21,10,6,10,23,14,0,1,6,13,14,2,20,3,12,13,16,9,10,1
dane            ends

stos          segment
                dw    100h dup(0)
szczyt          Label word
stos          ends

end start