1->H:5->Q:8->C
 0->G:0->S:0->I
 14->K:0->D:1->V
 4->E:0->U:5->X
 0->L

 ClrHome

 Lbl ME
  Menu("  SPACE IMPACT ","START",ST,"INFO",IN,"wyjscie",EX)

 Lbl IN
  ClrHome
  Disp "//SPACE IMPACT//","------v1.1-----","ADRIANPEREK(AT)","O2.PL"
  Pause 
  Goto ME

 Lbl EX
  Stop


 Lbl ST

 ClrHome

 Output(5,8," W") 

 For(A,1,8)
  Output(A,15,"M")
  Output(A,16,"[")
  Output(A,2,"M")
  Output(A,1,"]")
 End

While D<>5

  If C=E
   Then
    If Q+8=X
     Then
      D+1->D
      0->Q
      Output(8,16,5-D)
     End
   End

 getKey->G

  If G=26
   Then
    C+1->C
    If C>13
     13->C
    Output(X,C," W ")
   End

  If G=24
   Then
    C-1->C
     If C<2
      2->C
    Output(X,C," W ") 
   End

  If G=21
   Then
    If S->0
     Then
      C+1->V
      X-1->S
     End
   End

  S-1->S

  If S>0
   Then
    Output(S,V,"'")
    Output(S+1,V," ") 
   End

  If G=25
   Then
    X-1->X
    If X=0
     1->X
    Output(X,C+1,"W")
    Output(X+1,C+1," ")  
   End

  If G=34
   Then
    X+1->X
    If X=9
     8->X
    Output(X-1,C+1," ") 
    Output(X,C+1,"W")
   End

 K+1->K

 If K>14
  Then
   L+1->L
   3->K
   randInt(1,6)->H
  End

 Output(H,K," M")

 If Q>0
  Then
   K->E
   -9+H->Q
  End

 Q+1->Q

 If Q<0
  Then
   Output(8+Q,E,"  ")  
   Output(9+Q,E," .")
  End

 If V=K
  Then
   If S=H
    Then
     0->S
     14->K
     1+U->U
     Output(8,1,U)
    End
  End

End

ClrHome
 Output(2,3,"GAME OVER")
 Output(4,13,U)
 Output(4,1,"zniszczonych:")
 Output(6,1,"zatrzymales:")
 Output(7,1,"statkow")
Fix 0
 Output(6,13,(U/L)100)
 Output(6,15,"PC")
:Float