SCREEN 12
WINDOW (-4 / 3 * 1.2, 1 * 1.2)-(4 / 3 * 1.2, -1 * 1.2)
x1! = 0
y1! = 1
x2! = -5 ^ (1 / 2) / 2
y2! = -1
x3! = 5 ^ (1 / 2) / 2
y3! = -1

PRINT "                      Erstellung eines Sierpinksi-Dreieckes"
PRINT " "
PRINT " "
PRINT " "
PRINT "sichtbares Koordinatensystem"
PRINT " "
PRINT " x-Werte von -1.6 bis 1.6"
PRINT " y-Werte von -1.2 bis 1.2"
PRINT " "
PRINT " "
PRINT "Koordinaten der Eckpunkte des Dreiecks"
PRINT " "
PRINT " "
PRINT "A=("; x1!; "", ""; y1!; ")"
PRINT "B=("; x2!; "", ""; y2!; ")"
PRINT "C=("; x2!; "", ""; y3!; ")"
PRINT " "
PRINT " "

INPUT "[ENTER]", dummy$
INPUT "x-Wert des Startpunktes"; x0!
INPUT "y-Wert des Startpunktes"; y0!
INPUT "Anzahl der Schritte"; s&
RANDOMIZE
INPUT "[ENTER]", dummy$

CLS

PSET (x0!, y0!)
PSET (x1!, y1!)
PSET (x2!, y2!)
PSET (x3!, y3!)
LINE (x1!, y1!)-(x2!, y2!)
LINE (x2!, y2!)-(x3!, y3!)
LINE (x3!, y3!)-(x1!, y1!)

c! = 0
xc! = x0!
yc! = y0!
FOR i& = 1 TO s&
c! = INT(3 * RND + 1)

IF c! = 1 THEN
xc! = (xc! + x1!) / 2
yc! = (yc! + y1!) / 2
col% = 1

ELSEIF c! = 2 THEN
xc! = (xc! + x2!) / 2
yc! = (yc! + y2!) / 2
col% = 2

ELSEIF c! = 3 THEN
xc! = (xc! + x3!) / 2
yc! = (yc! + y3!) / 2
col% = 4

ELSE
PRINT "Fehler!"
EXIT FOR

END IF

'col% = i& MOD 3 + 1
'IF col% = 3 THEN
'col% = 4
'END IF


PSET (xc!, yc!), col%
NEXT i&

INPUT "[ENTER]", dummy$