' Linie selber berechnen

INPUT "Startpunkt"; x1!, y1!
INPUT "Endpunkt"; x2!, y2!

a! = (y2! - y1!) / (x2! - x1!)
m! = y1! - a! * x1!

SCREEN 1

FOR x% = CINT(x1!) TO CINT(x2!)
  y! = a! * CSNG(x%) + m!
  PSET (x%, CINT(y!)), 2
NEXT x%

PSET (x1!, y1!), 3
PSET (x2!, y2!), 3

d$ = INPUT$(1)
SCREEN 0
WIDTH 80, 25