Global mindmap$
Global mindcount#
Global winkel
Global sizex=350
Global sizey=250
Global localchat,chateingabe$
Type minds
   Field Text$
End Type
Global m.minds

Locate 400,300
mindmap$=Input("mindthema: ")


Graphics 800,600,16,2
SetBuffer BackBuffer()
While Not KeyHit(1)
   Cls
   Text 400,300,mindmap$,1,1
   drawminds()
   getchat()
   Flip
Wend

Function drawminds()
   winkel=0
   For m.minds = Each minds
      winkel=winkel+(360/mindcount#)
      y=300+(Sin(winkel)*sizey)
      x=400+(Cos(winkel)*sizex)
      Oval x-40,y-30,80,60,0
      Text x,y,m\Text$,1,1
   Next
   
End Function

Function getchat()
   
   localchat = GetKey()
   If localchat > 0 Then
      Select localchat
         Case 8
            If chateingabe$<>"" Then
               chateingabe$=Left(chateingabe$,Len(chateingabe$)-1)
            EndIf
         Case 13
            m.minds=New minds
            m\Text$=chateingabe$
            chateingabe$=""
            mindcount#=mindcount#+1
         Default
            chateingabe$ =chateingabe$+ Chr$(localchat)
      End Select
   EndIf
   Color 255,255,255
   Text 5,580,"Say: "+chateingabe$
End Function