AppTitle " War in Space - WiS "
Graphics 640,480
;Bilder Laden
schuss = LoadImage("schuss.bmp")
hg = LoadImage("hg.jpg")
Player = LoadImage("player.bmp")
;Variablen die Wichtig sind
px = 320
py = 420
;Menü
Text 30,89, "1-Spiel Starten"
Text 30,299, "2-Zurück zu Windows"
Menue = Input("Was willst du machen ??")
If menue = 2 Then
End
End If
If menue = 1 Then
Cls
Print"DER ERSTE KAMPF......"

Repeat
Cls
SetBuffer BackBuffer()
DrawImage hg,0,0
DrawImage player,px,py
If KeyDown(203) = 1 Then px = px - 1
If KeyDown(205) = 1 Then px = px + 1
If KeyDown(200) = 1 Then py = py + 1
If KeyDown(208) = 1 Then py = py - 1
If py = 320 And KeyDown(200) = 1 Then py = py
Until KeyDown(1) = 1
End If

Graphics 640,480
SetBuffer BackBuffer()

; Laden
schuss = LoadImage("schuss.bmp")
hg = LoadImage("hg.jpg")
Player = LoadImage("player.bmp")

text1$ = "1-Spiel Starten"
text2 $ = "2-Zurück zu Windows"
text3$="Was willst du machen ?? : "
text4$="DER ERSTE KAMPF......"
pos_x = 320
pos_y = 420

Repeat
Cls

; Menü
Text 320-(StringWidth(text1) / 2), 240-(StringHeight(text1) / 2), text1
Text 320-(StringWidth(text2) / 2), 240-(StringHeight(text2) / 2) + 30, text2
Locate 320-(StringWidth(text3) / 2), 240-(StringHeight(text3) / 2) - 60
Menue = Input("Was willst du machen ?? : ")
If menue = 1 Then Text 320-(StringWidth(text4) / 2), 240-(StringHeight(text1) / 2), text4,  "DER ERSTE KAMPF......"
If menue = 2 Then End

; Spiel
DrawImage hg,0,0
DrawImage player,pos_x,pos_y
If KeyDown(203) = 1 Then pos_x = pos_x - 1
If KeyDown(205) = 1 Then pos_x = po_x + 1
If KeyDown(200) = 1 Then pos_y = pos_y + 1
If KeyDown(208) = 1 Then pos_y = pos_y - 1
If pos_y = 320 And KeyDown(200) = 1 Then pos_y = pos_y

Flip
Until KeyDown(1)
End