gr = OpenFile("cfg\Grafik.cfg")
text11 = ReadLine (gr) ;Breite des Bildes
text21 = ReadLine (gr) ;Höhe des Bildes
text31 = ReadLine (gr) ;Farbwerte des Bildes
text41 = ReadLine (gr) ;Modes des Bildes

MaxB = Text11
MitB = MaxB/2
MaxH = Text21
MitH = MaxH/2
MitH1 = MitH+1
MitB1 = MitB+1

KAB = Mitb
KAB1 = Mitb1

Graphics Text11,Text21,text31,text41
SetBuffer BackBuffer()

Print MitH
Print MitH1
Print MitB
Print MitB1


CDE = OpenFile("cfg\Config.cfg")
text1 = ReadLine (CDE)  ; Namen des Spielers
text2% = ReadLine (CDE) ; Größe Fadenkreutz
text3 = ReadLine (CDE) ; Anteil Rot im Fabenkreutz
text4 = ReadLine (CDE) ; Anteil Grün im Fabenkreutz
text5 = ReadLine (CDE) ; Anteil Blau im Fabenkreutz

For I = 1 To text2
    A% = A +1
  Next
For S = 1 To Text2
    B = B + 1
  Next



D% = A / 4
C% = B / 3
Text 300,300, D
Text 200,300, C



   Color text3,text4,text5

   Line MitB1+2, MitH,      1024 - C,     MitH
   Line MitB1+2, MitH1,      1024 - C,     MitH1
   Line C,       MitH,    MitB-1,     MitH
   Line C,       MitH1,    MitB-1,     MitH1
   Line MitB,    MitH1+2,    MitB,   768 - D
   Line MitB1,    MitH1+2,    MitB1,  768 - D
   Line MitB,          D,      MitB,MitH-1
   Line MitB1,         D,      MitB1,MitH-1




Flip
WaitKey
End