^C12        
Li  Proc uses bx dx           ; Procedur von Line zum setzen eines Pixels.
    mov ax,Help2
    neg ax
    .if (Help1 < ax) && (Help2 < 0)
        neg dx
        xchg bx,dx
    .elseif (Help1 >= ax) && (Help2 < 0)
        neg bx
    .endif
    mov ax,Help2
    .if (Help1 <= ax) && (sword ptr ax > 0)
        xchg bx,dx
    .endif
    imul di,bx,320
    add di,dx
    xchg cx,si
    mov screen:[di],cl
    xchg cx,si
    ret
Li  endp