Locate 7,3,"X-Wing"
Locate 5,5,"Press [EXE]_  
10 -$->$M
ClrText
$LBL$Q
0 -$->$E
0 -$->$D
0 -$->$P
0 -$->$H
0 -$->$I
0 -$->$U
0 -$->$V
0 -$->$Q
5 -$->$K
9 -$->$X
7 -$->$W
1 -$->$Z
$INT$ 17Ran#+2 -$->$A
A>9 $=>$1 -$->$D
A$=<$9 $=>$1 -$->$E
While Z=1
$GOTO$1
$LBL$P
1 -$->$K
$LBL$1
Q+1 -$->$Q
Locate A,1,"   "
E=1 $=>$A+1 -$->$A
D=1 $=>$A-1 -$->$A
A=19 $=>$1 -$->$D
A=19 $=>$0 -$->$E
A=19 $=>$18 -$->$A
A=2 $=>$1 -$->$E
A=2 $=>$0 -$->$D
A=2 $=>$3 -$->$A
V=0 $=>$Locate A,1,"(Y)"
If Q=6 $AND$ V=0
Then Locate A+1,3," "
K=0 $=>$$GOTO$P
Locate A+1,3,"."
Locate A+1,3,"."
Locate A+1,3," "
Locate A+1,4,"."
Locate A+1,4,"."
Locate A+1,3," "
A+1=X $=>$Locate X,7,"XXX"
A+1=X+1 $=>$Locate X,7,"XXX"
A+1=X+2 $=>$Locate X,7,"XXX"
A+1=X $=>$$GOTO$2
A+1=X+1 $=>$$GOTO$2
A+1=X+2 $=>$$GOTO$2
0 -$->$Q
IfEnd
If V=1
Then $INT$ 17Ran#+2 -$->$A
0 -$->$V
0 -$->$Q
IfEnd
Locate X,W,">^<"
If Getkey=38
Then Locate X,W,"   "  
X =$/$=1 $=>$X-1 -$->$X
X=2 $=>$2 -$->$X
IfEnd
If Getkey=27
Then Locate X,W,"   "   
X =$/$=19 $=>$X+1 -$->$X
X=19 $=>$19 -$->$X
IfEnd
If Getkey=31
Then Locate X+1,4,"^"
Locate X+1,4,"^"
Locate X+1,4," "
Locate X+1,3,"^"
Locate X+1,3,"^"
Locate X+1,3," "
X+1=A $=>$Locate A,1,"xxx"
X+1=A+1 $=>$Locate A,1,"xxx" 
X+1=A+2 $=>$Locate A,1,"xxx" 
X+1=A $=>$Locate A,1,"   "   
X+1=A+1 $=>$Locate A,1,"   " 
X+1=A+2 $=>$Locate A,1,"   " 
X+1=A $=>$1 -$->$V
X+1=A+1 $=>$1 -$->$V
X+1=A+2 $=>$1 -$->$V 
X+1=A $=>$P+1 -$->$P
X+1=A+1 $=>$P+1 -$->$P
X+1=A+2 $=>$P+1 -$->$P
P>10 $=>$$GOTO$W
IfEnd
If M=0 $AND$ H=0
Then 1 -$->$H
For 1 -$->$T To 3
Locate 3,4,"OUT OF FREEZ-RAYS"
Locate 3,4,"OUT OF FREEZ-RAYS"
Locate 3,4,"OUT OF FREEZ-RAYS"
Locate 3,4,"OUT OF FREEZ-RAYS"
Locate 3,4,"                 "   
Next
IfEnd
If Getkey=32 $AND$ M>0
Then Locate X,6,"ooo"    
Locate X,6,"ooo"    
Locate X,6,"---" 
Locate X,6,"ooo"    
Locate X,6,"---"    
Locate X,6,"ooo"    
Locate X,6,"---"    
Locate X,6,"ooo"    
Locate X,6,"---"    
Locate X,6,"ooo"    
Locate X,6,"---"
Locate X,6,"   "
0 -$->$K
M-1 -$->$M
M=0 $=>$0 -$->$H
$GOTO$1
IfEnd
WhileEnd
$LBL$2
U+1 -$->$U
Locate 4,4,"   YOU LOSE!"
Locate 4,4,"   YOU LOSE!"
Locate 4,4,"            "
Locate X,7,"xxx"
Locate X,7," x "
Locate X,7,"   "
U>9 $=>$$GOTO$3
$GOTO$2
$LBL$3
Locate 1,1,"                    "  
Locate 1,7,"                    " 
$GOTO$Q
$LBL$W
Locate 4,4," WAVE COMPLETE"
Locate 3,3,"*****************" 
Locate 3,5,"*****************" 
Locate 3,4,"*"
Locate 19,4,"*"_
I+1 -$->$I
I=3 $=>$10 -$->$M
ClrText
$GOTO$Q