^C03Vor dem Aufruf der Prozedur "Line" muá AX x1, BX y1, CX x2 DX y2 und SI
die Farbe enthalten.
^C12
Line  proc uses ax bx cx dx di
      .if (ax == cx) && (bx == dx)    ; Prfen ob x1 = x2 und y1 = y2,
          imul di,bx,320              ; wenn ja, Index errechnen,
          add di,ax                   ; Index errechnen,
          xchg cx,si                  ; Farbe nach CX bertragen.
          mov screen:[di],cl          ; Punkt setzen.
          xchg cx,si                  ; Farbe wieder nach SI bertragen.
          ret                         ; Rcksprung.
      .endif
      .if ax > cx                     ; Prfen ob x1 > x2, wenn ja,
          xchg ax,cx                  ; x1 mit x2 und y1 mit y2
          xchg bx,dx                  ; vertauschen.
      .endif
      mov Help1,cx                    ; Steigung berechnen,
      sub Help1,ax                    ; (x2-x1 und y2-y1).
      mov Help2,dx
      sub Help2,bx