Global file = ReadFile("C:\scrsettings.txt")
For i = 1 To 7
   settings$(i) = ReadLine$(file)
Next

If settings$(1) = "1" then führe_aktion_1_aus
If settings$(2) = "1" then führe_aktion_2_aus

Local s$ = "  167.66  ABC"
Local z# = s
Print s
Print z
WaitKey()

Graphics ?, ?, ?, ?
SetBuffer Backbuffer()
;alle variablen und functionen und etc. aufschreiben

;dann alles was im hauptteil läuft in der while wend-schleife:

While
;machewasmachwas

Flip
Cls   ;<--entweder ganz am ende in der while/wendschleife oder ganz am anfang
Wend

Graphics 800,600,0,2
SetBuffer BackBuffer()

mx% = 0
my% = 0
text2 = False   ;Eine Variable um einen anderen Text anzuzeigen. :o

While Not KeyHit(1)
   mx = MouseX()
   my = MouseY()
   
   If KeyHit(57) Then
      text2 = True
   EndIf
   
   If text2 = False
      Text mx,my,"Ich folge der Maus!"
      Text 0,0, "Leertaste um Text umzuschalten!"
   Else
      Text mx,my,"Ich stinke nach Fleischkäse!"
      Rect 0,0,32,32,1
   EndIf
   Flip
   Cls
Wend
End

SeedRnd MilliSecs()   ;Zufallszahlen neu setzen
Type T_rect
   Field x%   ;X-Koordinate
   Field y%   ;Y-Koordinate
   Field w%   ;Breite
   Field h%   ;Höhe
   Field r%,g%,b%   ;Rot Grün Blau
End Type

Graphics 800,600,32,2

While Not KeyHit(1)
   If KeyHit(57) Then
      r.T_rect = New T_rect   ;Neuer Typeeintrag
      r\w% = Rand(0,600)   ;Breite zufällig bestimmen
      r\h% = Rand(0,400)    ;Höhe zufällig bestimmen
      r\x% = Rand(0,800 - r\w)   ;800 - Breite damit es nicht über den Bildschirm hinausgeht.
      r\y% = Rand(0,600 - r\h)
      r\r% = Rand(0,255); \
      r\g% = Rand(0,255);--}Farben
      r\b% = Rand(0,255); /
   EndIf
   DrawMyRandomRects()
   Text 0,0,"Drücke die Leertaste um cooler zu sein!"
   Flip
   Cls
Wend
End

Function DrawMyRandomRects()
   For r.T_rect = Each T_rect   ;Alle Typeeinträge durchgehen
      Color r\r, r\g, r\b      ;Farbe setzen
      Rect r\x, r\y, r\w, r\h, 1   ;Rect zeichnen
   Next   ;Ende For-Schleife
   Color 255,255,255   ;Farbe wieder auf Weiss machen
End Function