Graphics 1024,768, 16, 1
SetBuffer BackBuffer()

Type star
 Field x, y, layer
End Type

n = 500
winkel = 180

For i = 1 To n
 s.star = New star
 s\x = Rnd (0,1024)
 s\y = Rnd (0,768)
 s\layer = Rnd(1,4)
Next


Repeat
Cls

For s.star = Each star
 s\x = s\x + Cos(winkel) * s\layer
 s\y = s\y + Sin(winkel) * s\layer

 If s\x < 0 Then s\x = 1024
 If s\x > 1024 Then s\x = 0
 If s\y < 0 Then s\y = 768
 If s\y > 768 Then s\y = 0

 Color s\layer*50, s\layer*50, s\layer*50

 Plot s\x, s\y
Next

Text 0,0, "Press F1 or to open console"
Text 450, 384, Message$


If KeyHit(41) Then Konsole = Konsole Xor 1 ; Konsole öffnen/schließen
If KeyHit(59) Then Konsole = Konsole Xor 1

If Konsole = 1 Then ; Wenn die Konsole geöffnet ist
 Color 0,0,100
  Rect 0, 0, 1024, 60, 1
 Color 255,255,255
  Line 0, 60, 1024, 60

 Text 0,0, "Konsole:"
 Text 80,0, Eingabe$

 Letter = GetKey()
 If Letter <> 0 Then Eingabe$ = Eingabe$ + Chr(Letter)
 If KeyHit(28) Then
  Message$ = Eingabe$: Eingabe$ = ""
  Konsole = 0 ; Konsole schließen
 EndIf
EndIf


Flip
Until KeyHit(1)
End

Local PIE#=22.0/7.0

cmd$=Trim(Lower(Left(cline$,eq-1)))
par$=Trim(Right(cline$,Len(cline$)-eq))
      
; cmd$ beinhaltet den Teil des Strings vor dem Gleichheitszeichen
; par$ beinhaltet den Teil des Strings nach dem Gleichheitszeichen
Select cmd$
  Case "player_speed" : player_speed#=Float(par$)
End Select

player_speed=10