ClrText
Locate 6,2,"~FAST EYE~"
Locate 6,3,"™™™™™™™™™™"
Locate 2,4,"By:Marcus Lundstrom"
Locate 2,5,"™™™™™™™™™™™™™™™™™™™"
While Getkeyá31
Locate 6,7,"Press [EXE]"
Locate 6,7,"           "
Locate 6,7,"           "
WhileEnd
ClrText
Locate 3,4,"™=Count the X's=™"Ý
ClrText
0ÞA~Z
50ÞW
Lbl 0
0ÞF:C‰1ÞC
If C=20
Then Goto 2
IfEnd
Int 20Ran#‰1ÞA
Int 6Ran#‰1ÞB
Int 2Ran#ÞD
If D=0:Then Locate A,B,"(X)":E‰1ÞE
IfEnd
If D=1:Then Locate A,B,"(Y)":IfEnd
While FáW
F‰1ÞF
WhileEnd
Locate A,B,"   "
Goto 0
Lbl 2
ClrText
Locate 3,2,"Number of X's"
?ÞG
ClrText
Locate 1,4,"Right number is:"
Locate 17,4,E
Locate 1,6,"Percent"
G¹E©100ÞZ
ZÞX
X‰YÞY
If Z>100
Then Z™100
100™AnsÞZ
IfEnd
Locate 10,6,ZÝ
ClrText
If W>10
Then Locate 5,5,"Get ready..."Ý
IfEnd
ClrText
W™10ÞW
0ÞC
0ÞE
If Wá0
Then Goto 0
IfEnd
ClrText
Locate 1,4,"Percent of all:"
Y¹500©100ÞV
If V>100
Then V™100
100™AnsÞV
IfEnd
Locate 17,4,V