'ProgramMode:RUN
Lbl 1
Cls
ClrText
Locate 9,2,"NEON"
Locate 7,5,"Press EXE"
Locate 2,7,"by mibi88"
Locate 16,7,"v.1.0"DispsClrText
Locate 6,3,"Loading ..."
Locate 4,4,"Please wait ..."
5->L
0->S
16->Dim List 1
16->Dim List 2
16->Dim List 3
16->Dim List 4
16->Dim List 5
16->Dim List 6
10->X
For 1->I To 16
RanInt#(1,20)->List 4[I
3->List 2[I
Next
8->F
ClrText
Locate X,6,"_#E69C_"
0->K
0->C
Locate 1,2,"SCORE :"
Locate 12,2,"LIVES :"
While K<>47
For 1->I To 16
List 5[I]+1->List 5[I
If List 4[I]=List 5[I]
Then 1->List 6[I
IfEnd
Next
For 1->I To 16
If List 6[I]=1
Then Locate List 4[I],List 2[I]," "
List 2[I]+1->List 2[I
Locate List 4[I],List 2[I],"|"
IfEnd
If List 2[I]>6
Then If List 4[I]=X And List 6[I]=1
Then L-1->L
1->C
If L=0
Then Break
IfEnd
3->List 2[I
IfEnd
Locate List 4[I],List 2[I]," "
RanInt#(1,20)->List 4[I]
3->List 2[I
0->List 5[I
0->List 6[I
IfEnd
Next
If L=0
Then Break
IfEnd
S+1->S
Locate 9,2,S
Locate 20,2,L
Getkey->K
If K=27 And X<20
Then Locate X,6," "
X+1->X
Locate X,6,"_#E69C_"
If C=1
Then Locate X,6,"_#E6A0_"
0->C
IfEnd
IfEnd
If K=38 And X>2
Then Locate X,6," "
X-1->X
Locate X,6,"_#E69C_"
If C=1
Then Locate X,6,"_#E6A0_"
0->C
IfEnd
IfEnd
If C=1
Then Locate X,6,"_#E6A0_"
0->C
IfEnd
WhileEnd
ClrText
Locate 7,4,"Retry ?"
Locate 6,2,"SCORE : "
Locate 14,2,S
While K<>47
Getkey->K
If K=31
Then Goto 1
IfEnd
WhileEnd
"THANK YOU FOR"
"PLAYING !"
""
"THIS GAME IS UNDER"
"GNU GPLv2 LICENSE."
""
"PRESS EXE TO QUIT."DispsClrText
Cls