ClrText
For 1ÞA To 250
Next
Locate 7,3,"D. Cross"
Locate 7,5,"PRESENTS"
For 1ÞA To 350
Next
ClrText
Locate 3,4,"LONG,LONG AGO..."
For 1ÞA To 450
Next
ClrText
Locate 3,3,"IN A GALAXY FAR,"
Locate 6,4,"FAR AWAY..."
For 1ÞA To 450
Next
ClrText
For 7ÞA To 2 Step ™1
Locate 7,A,"STAR WARS"
Locate 7,A,"         "
Next
Locate 7,1,"STAR WARS"
For 1ÞA To 7
Locate A,3,"X™WING"
Next
For 21ÞA To 9 Step ™1
Locate A,5,"GOLD"
Next
While Getkey=31
Locate 6,7,"PRESS [EXE]"
Locate 6,7,"     ©     "
WhileEnd
0ÞA~Z
For 1ÞA To 250
Next
ClrText
"     DIFFICULTY"
Orange "    ~~~~~~~~~~~~"
"1 ã LEIA"
"2 ã HAN"
"3 ã CHEWIE"?ÞÎ
If Î=1
Then 8ÞB
7ÞY
IfEnd
If Î=2
Then 6ÞB
10ÞY
IfEnd
If Î=3
Then 4ÞB
15ÞY
IfEnd
0ÞÍ
0ÞÎ
3ÞR
10ÞM
2500ÞE
ClrText
Lbl Q
0ÞD
0ÞP
0ÞH
0ÞI
0ÞU
0ÞV
0ÞQ
5ÞK
9ÞX
Int 17Ran#‰2ÞA
Aà2ãGoto Q
Aâ20ãGoto Q
A>9ã1ÞD
Aà9ã0ÞD
While 1
Goto 1
Lbl P
1ÞK
Lbl 1
Q‰1ÞQ
Locate A,1,"   "
D=0ãA‰1ÞA
D=1ãA™1ÞA
If A=19
Then 1ÞD
18ÞA
IfEnd
If A=2
Then 0ÞD
3ÞA
IfEnd
If V=0
Then Locate A,1,"[‡]"
IfEnd
If Q=B And V=0
Then Locate A,2,"   "
K=0ãGoto P
For 2ÞT To 6
Locate A,T,". ."
Locate A,T,". ."
Locate A,T,"   "
Next
If A‰1=X Or A‰1=X‰1 Or A‰1=X‰2
Then Locate X,7,"   "
Goto 2
IfEnd
0ÞQ
IfEnd
If V=1
Then Int 17Ran#‰2ÞA
0ÞV
0ÞQ
IfEnd
Locate X,7,">¨<"
If Getkey=38
Then Locate X,7,"   "
Xá1ãX™1ÞX
X=2ã2ÞX
IfEnd
If Getkey=27
Then Locate X,7,"   "
Xá19ã1‰XÞX
X=19ã19ÞX
IfEnd
Locate X,7,">¨<"
If Getkey=78
Then For 6ÞT To 2 Step ™1
Locate X,T,"! !"
Locate X,T,"! !"
Locate X,T,"   "
Next
If X‰1=A Or X‰1=A‰1 Or X‰1=A‰2
Then Locate A,1," © "
Locate A,1,"©©©"
Locate A,1,"© ©"
Locate A,1,"   "
1ÞV
P‰1ÞP
If X‰1=A‰1
Then S‰2ÞS
Else S‰1ÞS
IfEnd
IfEnd
P=YãGoto W
IfEnd
If M=0 And H=0
Then 1ÞH
For 1ÞT To 3
Locate 2,4,"FREEZE™RAYS DEPLETED"
Locate 2,4,"FREEZE™RAYS DEPLETED"
Locate 2,4,"FREEZE™RAYS DEPLETED"
Locate 2,4,"FREEZE™RAYS DEPLETED"
Locate 2,4,"                    "
Next
IfEnd
If Getkey=68 And M>0
Then For 1ÞT To 3
Locate X,6,"  @"
Locate X,6," @ "
Locate X,6,"@  "
Locate X,6," @ "
Next
Locate X,6,"   "
0ÞK
M™1ÞM
M=0ã0ÞH
Goto 1
IfEnd
If Getkey=31
Then For 1ÞT To 9
'cos 5'
Next
While Getkey=31
Locate 8,4,"PAUSED"
WhileEnd
Locate 8,4,"      "
IfEnd
If 130SâE
Then R‰1ÞR
For 1ÞT To 8
Locate 9,4,"1 UP"
Next
Locate 9,4,"    "
2EÞE
IfEnd
WhileEnd
Lbl 2
X‰1ÞV
For 0ÞX To 3
Locate V™X,7™X,"©"
Locate V‰X,7™X,"©"
Locate V,7™X,"©"
Locate V‰X,7,"©"
Locate V™X,7,"©"
Next
For 0ÞX To 3
Locate V™X,7™X," "
Locate V‰X,7™X," "
Locate V,7™X," "
Locate V‰X,7," "
Locate V™X,7," "
Next
R™1ÞR
R=0ãGoto E
ClrText
Locate 7,4,"LIVES:"
Locate 14,4,R
For 1ÞT To 350
Next
ClrText
Goto Q
Lbl W
Locate 4,4,"WAVE COMPLETE"Ý
ClrText
Locate 6,4,"NEXT WAVE"
For 1ÞT To 350
Next
ClrText
Locate 8,4,"READY"
For 1ÞT To 350
Next
ClrText
Locate 9,4,"GO!"
For 1ÞT To 150
Next
ClrText
I‰1ÞI
I=3ãM‰10ÞM
I=3ã1ÞI
Goto Q
Goto E
130SÞS
ClrText
Locate 1,3,"YOUR SCORE ã"
Locate 13,1,S
Dim List 1ÞV
Locate 1,5,"HIGHSCORE ã"
SÞList 1[(Dim List 1)™1]
SortA(List 1)
Dim List 1ÞS
Locate 12,5,List 1[V]Ý
If S=List 1[V]
Then For 1ÞT To 50
Locate 6,7,"             "
Locate 4,7,"NEW HIGHSCORE"
Next
IfEnd
ClrText