;Gebt mal als z1p 0.554353 und als z2p 0.326439 an!
;Oder als z1p 1.23 und als z2p 2.21 an!


Graphics 800,600,16,2
SetBuffer BackBuffer()
Zahl1#=360
Zahl2#=360
Z1p#=0.1
Z2p#=0.5
Timer=CreateTimer(85)

Repeat
  Text 200,1,"z1p="+z1p#+" z2p="+z2p#+" ENTER drücken zum verändern!"
  Plot GraphicsWidth()/2+cos(Zahl1#)*170,GraphicsHeight()/2+Sin(Zahl2)*160
   
  Zahl1# = Zahl1+Z1p# Mod 360
  Zahl2# = Zahl2+Z2p# Mod 360
   
  If KeyHit(28) Then
    FlushKeys
    z1p# = InputKomma#("Zahl 1: ")
    FlushKeys
    z2p# = InputKomma#("Zahl 2: ")
    FlushKeys
    Cls
    Zahl1=360
    Zahl2=360
  EndIf
   
  Flip 0
  ;WaitTimer Timer
Until KeyDown(1)

Function InputKomma#(Text$)
   Viewport 0,0,Graphicswidth(),30
   Repeat
     Z=Getkey()
     If z<>0 Then
       Select z
         Case 13
         Case 27
         Case 9
         Case 32
         Default                       Zahl$=Zahl$+Chr$(z)
       End Select         
     EndIf
     Cls
     Text 1,1,Text$+Zahl$
     Flip
   Until z=13
   Viewport 0,0,GraphicsWidth(),GraphicsHeight()
   
   SetBuffer FrontBuffer()
   Cls
   SetBuffer BackBuffer()
   
   If Instr(Zahl$,",") Then
     NachKomma$= Mid$(Zahl$,Instr(Zahl$,",")+1)
     Nach#=Int(NachKomma$)/(10^(Len(NachKomma$)))
     Ret#=Int(Zahl$)+Nach
     Return Ret#
   EndIf
   If Instr(Zahl$,".") Then
     NachKomma$= Mid$(Zahl$,Instr(Zahl$,".")+1)
     Nach#=Int(NachKomma$)/(10^(Len(NachKomma$)))
     Ret#=Int(Zahl$)+Nach
     Return Ret#
   EndIf
   Return Float(Int(Zahl$))
End Function