1 -> Y
0 -> O
Lbl X
Dim List 21 != 7 => 7 -> Dim List 21
ClrText
Locate 1, 1, "~~~~~~~~~~~~~~~~~~~~~"
Locate 1, 7, "~~~~~~~~~~~~~~~~~~~~~"
If O = 0 :Then
For 21 -> X To 1 Step ﹣1
Locate X, 2, "S"
Next
For 21 -> X To 2 Step ﹣1
Locate X, 2, "T"
Next
For 21 -> X To 3 Step ﹣1
Locate X, 2, "A"
Next
For 21 -> X To 4 Step ﹣1
Locate X, 2, "R"
Next
For 21 -> X To 5 Step ﹣1
Locate X, 2, " "
Next
For 21 -> X To 6 Step ﹣1
Locate X, 2, "W"
Next
For 21 -> X To 7 Step ﹣1
Locate X, 2, "A"
Next
For 21 -> X To 8 Step ﹣1
Locate X, 2, "R"
Next
For 21 -> X To 9 Step ﹣1
Locate X, 2, "S"
Next
For 21 -> X To 10 Step ﹣1
Locate X, 2, " "
Next
For 21 -> X To 12 Step ﹣1
Locate X, 2, "By Alex "
Next
Else
Locate 1, 2, "STAR WARS By Alex"
IfEnd
For 17 -> X To 8 Step ﹣1
Locate X, 4, "JOUER "
Next
For 17 -> X To 8 Step ﹣1
Locate X, 5, "SCORES "
Next
For 17 -> X To 8 Step ﹣1
Locate X, 6, "QUITTER "
Next
While X != 31
GetKey -> X
X = 28 => Y - 1 -> Y
X = 37 => Y + 1 -> Y
Y < 1 => 1 -> Y
Y > 3 => 3 -> Y
Locate 4, 3 + Y, "<⊗>"
Y = 1 => Locate 4, 5, " "
Y = 2 => Locate 4, 4, " "
Y = 2 => Locate 4, 6, " "
Y = 3 => Locate 4, 5, " "
For 1 -> A To 0 Step ﹣0.05
Next
1 -> O
WhileEnd
For 4 -> X To 21
Locate X, 3 + Y, " <⊗>"
For 1 -> B To 15 : Next
Next
Y = 3 => ClrText
Y = 3 => Stop
If Y = 2 :Then
ClrText
List 21[1 -> X
Locate 1, 2, "Scores :"
For 1 -> A To 6
Locate 10, A + 1, List 21[A]
Next◢
Goto X
IfEnd
20 -> I
File 4
Norm
0 -> L
1.5 -> Q
Do
ClrText
" "
" "
Lbl 3
Isz L
Cls
BG-None : Cls
ViewWindow 1, 126, 0, 1, 63, 0
Text 15, 35, "GALAXY..."
For 1 -> X To 15 Step 2
Text X, 75, L
Text X, 75, " "
Next
Text X, 75, L
Text 30, 42, "LOADING..."
Horizontal 25
Horizontal 15
4 -> Z
Int 60Ran# -> V
126 - V -> U
Lbl 1
PxlOn 44, Z
Z + 5 -> Z
Z >= U => Goto 2
0 -> 
0 -> θ
Goto 1
Lbl 2
Text 30, 42, "LOADED "
Text 55, 35, "PRESS [EXE]"
Do
GetKey
LpWhile Ans != 31
" "
" "
" "
" "
" "
" "
0 -> J
10 -> A
1 -> B~H
Do
Isz J
J = 50 => Goto 3
G -> H
F -> G
E -> F
D -> E
C -> D
B -> C
Int 21Ran# +1 -> B
Locate B, 7, "<=●>="
Locate 1, 2, Int (90 - (9J / 500 * 100))
" "
GetKey -> K
K = 38 => A - 1 -> A
K = 27 => A + 1 -> A
If K = 28 :Then
Locate 4, 1, "PAUSE"
Do
GetKey
LpWhile Ans != 31
IfEnd
A < 2 => 2 -> A
A > 21 => 21 -> A
Locate A - 1, 1, "<⊗>"
LpWhile A != G And A != G + 1 And A != G + 2 And J != 50
LpWhile J = 50
ClrText
Locate 1, 1, Int (90 - (9J / 500 * 100))
Locate A - 1, 1, "<⊕> "
Locate A, 2, "HA HA HA "
Locate A, 3, "CRASH "
Do
GetKey
LpWhile Ans != 31
(75L) + J -> S
Cls
ViewWindow 1, 127, 0, 1, 63, 0
ClrText
Locate 2, 3, "SCORE : "
Locate 10, 3, S
Locate 2, 4, "HIGHT SCORE : "
List 21[1 -> θ
Locate 16, 4, θ◢
S -> List 21[7]
SortD(List 21)
If S > θ :Then
S -> θ
S -> List 21[1
Else
Goto U
IfEnd
For 21 -> X To 16 Step ﹣1
Locate X, 4, θ
Next
θ < 99 => Locate 18, 4, " "
θ > 99 And θ < 1000 => Locate 19, 4, " "
θ > 999 And θ < 10000 => Locate 20, 4, " "
For 1 -> X To 1000 Step 1
X + 1 -> X
Next◢
Lbl U
1 -> Y
ClrText
Goto X