
;±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
; DATA
;±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
d1counter       db      0

;±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
; CODE
;±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±

;ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
p10:                                    ; random perpendicular lines
        mov edi,_bufptr
        movzx edx,d1counter
        mov ebx,edx
        mov cl,16
        mov ax,4040h
p10l0:
        mov [edi+ebx],ax
        mov [edi+ebx+256],ax
        add ax,404h
        add bx,97*256+97
        dec cl
        jnz p10l0
        mov ebx,edx
        mov bh,33h
        neg bl
        mov cl,16
        mov ax,4242h
p10l1:
        mov [edi+ebx],ax
        mov [edi+ebx+256],ax
        add ax,404h
        add bx,17*256+223
        dec cl
        jnz p10l1
        mov bh,dl
        mov bl,57h
        mov cl,16
        mov ax,4141h
p10l2:
        mov [edi+ebx],ax
        mov [edi+ebx+256],ax
        add ax,404h
        add bx,111*256+17
        dec cl
        jnz p10l2
        mov bh,dl
        neg bh
        mov bl,0a9h
        mov cl,16
        mov ax,4343h
p10l3:
        mov [edi+ebx],ax
        mov [edi+ebx+256],ax
        add ax,404h
        add bx,203*256+117
        dec cl
        jnz p10l3
        dec d1counter
        jz setnext
        ret

