public void line(int x,int y,int x2, int y2, int color) {
int w = x2 - x ;
int h = y2 - y ;
int dx1 = 0, dy1 = 0, dx2 = 0, dy2 = 0 ;
if (w<0) dx1 = -1 ; else if (w>0) dx1 = 1 ;
if (h<0) dy1 = -1 ; else if (h>0) dy1 = 1 ;
if (w<0) dx2 = -1 ; else if (w>0) dx2 = 1 ;
int longest = Math.Abs(w) ;
int shortest = Math.Abs(h) ;
if (!(longest>shortest)) {
longest = Math.Abs(h) ;
shortest = Math.Abs(w) ;
if (h<0) dy2 = -1 ; else if (h>0) dy2 = 1 ;
dx2 = 0 ;
}
int numerator = longest >> 1 ;
for (int i=0;i<=longest;i++) {
putpixel(x,y,color) ;
numerator += shortest ;
if (!(numerator<longest)) {
numerator -= longest ;
x += dx1 ;
y += dy1 ;
} else {
x += dx2 ;
y += dy2 ;
}
}
}

Sub lineCode(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a12,a13)

If a12 + a13 = Timer Then
a12 = Timer
Pixel(a1,a2) = 7
Rem a9 = a9 + a8
inc a9,a8

If Not(a9 < a7) Then
a9 = a9 - a7
a1 = a1 + a3
a2 = a2 + a4
Else
a1 = a1 + a5
a2 = a2 + a6
EndIf

Rem a10 = a10 + 1
inc a10

EndIf

End Sub

Sub initMiss(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,x2,y2)

w = x2 - a1
h = y2 - a2

If w<0 Then a3 = -1 Else a3 = 1
If h<0 Then a4 = -1 Else a4 = 1
If w<0 Then a5 = -1 Else a5 = 1

a7 = Abs(w)
a8 = Abs(h)

If Not(a7 > a8) Then
a7 = Abs(h)
a8 = Abs(w)
If h<0 Then a6 = -1 Else a6 = 1
a5 = 0
EndIf

a9 = RShift(a7,1)
a10 = 0

End Sub