Global GX = 1024
Global GY = 768
Graphics GX,GY,0,2
HidePointer()
;------------------------
 Type TThema
 Field x
 Field y
 Field titel$
End Type
Type TUnterThema
 Field x
 Field y
 Field titel$
End Type
Type TStichwort
 Field x
 Field y
 Field titel$
End Type

Global hauptthema$
Global mh2,mh1,mx,my
Global titel$
;-----------------------
hauptthema$=Input("Hauptthema?")
 Repeat
   mouse()
Color 255,0,255
Oval mx,my,3,3,1
;THEMEN
   For thema.tthema = Each tthema
    Color 200,200,0
    Line thema\x,thema\y+2,GX/2,GY/2
    Color 0,255,0
    Oval thema\x-5,thema\y-5,StringWidth(thema\titel)+12,StringHeight(thema\titel)+12,1
    Color 0,0,255
    Text thema\x,thema\y,thema\titel
   
Next
;Zeichnen
  Color 255,0,0
  Oval (GX-StringWidth(Hauptthema$))*0.5-5,GY/2-5,StringWidth(hauptthema)+12,StringHeight(Haupthema)+12,1
  Color 0,0,0
  Text (GX-StringWidth(Hauptthema$))*0.5,GY/2,hauptthema

;########################################

;#####################################################
If mh2=1  Then
Color 220,220,220
titel$ = Input("NAME: ")
Thema.TThema = New TThema
Thema\x = mx
Thema\y = my
Thema\titel = titel$
End If

Flip
Cls
Until KeyHit(1)
End

Function mouse()
mh2 = MouseHit(2)
mh1 = MouseHit(1)
mx = MouseX()
my = MouseY()
End Function