Repeat
   lernen()
Until gelernt = True
End

Graphics 640,480
AppTitle "Farbtopf";steht dann in der Titelzeile
SetBuffer BackBuffer()

x=100:y=100:b=100:h=100;Koordinaten sowie Höhe und Breite
Repeat:Cls;Befehlstrenner Doppelpunkt

If KeyDown(200) y=y-1;Steuerung
If KeyDown(208) y=y+1
If KeyDown(203) x=x-1
If KeyDown(205) x=x+1
If KeyHit(59) ds=1-ds; eine mathematische Gleichung um zwischen 1 und 0 umzuschalten

If KeyDown(32) b=b+1;das Rechteck vergrößern
If KeyDown(31) h=h+1
If KeyDown(17) h=h-1;und verkleinern
If KeyDown(30) b=b-1

If x<0 x=0;Begrenzung
If y<0 y=0
If x+b>640 x=640-b
If y+h>480 y=480-h
If b<1 b=1
If h<1 h=1

A%=GetKey()
Select A
Case 49 Color 255, 000, 000
Case 50 Color 000, 255, 000
Case 51 Color 000, 000, 255
Case 52 Color 255, 255, 000
Case 48 Color 255, 255, 255;weiß
Default Cls;wenn nichts zutrifft (hat hier aber keinen Effekt, da sowieso später gezeichnet wird)
End Select
Rect x,y,b,h,ds;ds=Transparenz, Durchsichtigkeit des Rechtecks

Text 10,10,"Rot=1, Grün=2, Blau=3, Gelb=4, Weiß=0"
Text 10,30,"F1=Transparenz umschalten"
Text 10,50,"Steuerung=Pfeiltasten, WASD=Höhe/Breite ändern"

Flip:Until KeyHit(1):End

ds = Not ds;ds ist nicht das was ds ist!
;also wenn ds 1 ist dann ist ds nicht 1 also 0