Graphics 800,600,32,1
SetBuffer BackBuffer()
ClsColor 255,255,255
Color 0,0,0

Function Linearefunktion(Steigung#,Achsenabschnitt)
 Cls
 
 ;Koordinatensystem zeichnen
 
 ;X-Achse
 Line 140,300,660,300
 
 For a=140 To 660 Step 20
  Line a,290,a,310
  If a=370 Then a=410
 Next
 
 AchsenmitteX=(660-140)/2
 
 ;Y-Achse
 Line 400,40,400,560
 
 For a=40 To 560 Step 20
  Line 390,a,410,a 
 Next
 
 AchsenmitteY=(560-40)/2
 
 ;Zeichnung der Geraden
 
 ;Eingegebenen Werte verarbeiten
 
 If Achsenabschnitt>0 Then
  GeradeY=Achsenmitte-(20*Achsenabschnitt)
 End If
 
 If Achsenabschnitt<0 Then
  GeradeY=Achsenmitte+(20*Achsenabschnitt)
 End If
 
 GeradeX=GeradeY/Steigung#
 
 GeradeX2=Achsenmitte+(Rand(-5,5)*20)
 
 GeradeY2=GeradeX2*Steigung#
 
 Line GeradeX,GeradeY,GeradeX2,GeradeY2

 Flip
End Function

Linearefunktion(1,-3)

WaitKey
End