'ProgramMode:RUN
'1710_#E593__#E656__(-)_9860G_#E6D7_Ver3TT
ClrText:0->A~Z
'=====(setting)======_#E6A4__#E6A3_blink timing_#E691_U        (normal=80):80_->_U
15->U
'input timing_#E691_V           (normal=5):5_->_V
100->P
'=====(opening)=====
"                     _#E6A0__#E6A0__#E6A0__#E6A0_ MASTER MIND _#E6A0__#E6A0__#E6A0__#E6A0_                         4 digits only      Number are 1 To 9                       _#E6A0__#E6A0__#E6A0__#E6A0__#E6A0__#E6A0_Press_=>_ - _#E6A0__#E6A0__#E6A0__#E6A0__#E6A0__#E6A0_"
Do:LpWhile Getkey2<>32
ClrText
"_#E5A3_EXAMPLE_#E5A4_ _#E6A4__@E748__@E769__@E774__#E6A3__@E742__@E76C__@E76F__@E777_      answer is [1234]    _#E6A3__#E6A3_3456  _#E6A4_  _#E6A3_9814   _#E6A4_ _#E6A3__#E6A3_2135  _#E6A4__#E6A4_  5634   _#E6A4__#E6A4__#E6A3__#E6A3_4231  _#E6A4__#E6A4__#E6A4__#E6A4_1234  ( judgement//input )  _#E6A0__#E6A0__#E6A0__#E6A0__#E6A0__#E6A0_Press_=>_EXE_#E6A0__#E6A0__#E6A0__#E6A0__#E6A0__#E6A0_"
Do:LpWhile Getkey2<>31
'======(answer)=====
Lbl 0:Isz O:ClrText
0->C:0->Q
RanInt#(1,9)->K
Do
RanInt#(1,9)->L
LpWhile K=L
Do
RanInt#(1,9)->M
LpWhile K=M Or L=M
Do
RanInt#(1,9)->N
LpWhile N=K Or N=L Or N=M
1000K+100L+10M+N->A
'=====(display)====
"  _#E6B2_MASTER MIND_#E6B2_[    ]G |_#E6DC__#E6DB__#E6DC__#E6DB__#E6A0__#E6A0__#E6A0__#E6A0_|_#E6DC__#E6DB__#E6DC__#E6DB__#E6A0__#E6A0__#E6A0__#E6A0_|_#E69E_ |_#E6DC__#E6DB__#E6DC__#E6DB__#E6A0__#E6A0__#E6A0__#E6A0_|_#E6DC__#E6DB__#E6DC__#E6DB__#E6A0__#E6A0__#E6A0__#E6A0_|  |_#E6DC__#E6DB__#E6DC__#E6DB__#E6A0__#E6A0__#E6A0__#E6A0_|_#E6DC__#E6DB__#E6DC__#E6DB__#E6A0__#E6A0__#E6A0__#E6A0_|HB|_#E6DC__#E6DB__#E6DC__#E6DB__#E6A0__#E6A0__#E6A0__#E6A0_|_#E6DC__#E6DB__#E6DC__#E6DB__#E6A0__#E6A0__#E6A0__#E6A0_|_#E6A4__#E6A3_|_#E6DC__#E6DB__#E6DC__#E6DB__#E6A0__#E6A0__#E6A0__#E6A0_|_#E6DC__#E6DB__#E6DC__#E6DB__#E6A0__#E6A0__#E6A0__#E6A0_|"
Locate 3,7,"_#E6A1_ New Question _#E6A2_"
For 1->S To 1000:Next
TicksWait 128
Lbl 1:Isz C
Locate 2,2,O
C<=9=>Locate 2,3,C
C=10=>Locate 2,3,"_(10)_"
C<=5=>12->F:C>=6=>3->F
C<=5=>C+1->G:C>=6=>C-4->G
Locate F,G,"_#E69E_"
C>=2 And C<=6=>Locate 12,C,"|"
C>=7=>Locate F,C-5,"|"
'======(input)======
Lbl I:For 1->D To 4
Locate 1,7,"?_=>_input 1~9   Ans_=>_(-)":0->E:0->I
C<=5=>16+D->F:C>=6=>7+D->F
C<=5=>C+1->G:C>=6=>C-4->G
D=1=>Locate F,G,"_#E6A0__#E6A0__#E6A0__#E6A0_"
D=2=>Locate 17,1,"    "
D>=2=>Locate 15,7,"       "
Locate F,G,"?"
Do:Getkey2->I
D=1 And I=41=>Locate 17,1,A:I=41=>1->Q
I=71=>0->I:I<=41=>0->I
I=72=>Locate F,G,"1"
I=72=>1->I
I=62=>Locate F,G,"2"
I=62=>2->I
I=52=>Locate F,G,"3"
I=52=>3->I
I=73=>Locate F,G,"4"
I=73=>4->I
I=63=>Locate F,G,"5"
I=63=>5->I
I=53=>Locate F,G,"6"
I=53=>6->I
I=74=>Locate F,G,"7"
I=74=>7->I
I=64=>Locate F,G,"8"
I=64=>8->I
I=54=>Locate F,G,"9"
I=54=>9->I
D=1=>I->W:D=2=>I->X
D=3=>I->Y:D=4=>I->Z
For 1->S To V:Next
LpWhile I=0
While Getkey
WhileEnd
Next
W=X Or W=Y Or W=Z Or X=Y Or X=Z Or Y=Z=>1->E:D>=2 And E=1=>Goto I
'====(judgement)====
For 1->S To 5
Locate 1,6,"  "
For 1->T To 80:Next
TicksWait 10
Locate 1,6,"_#E6A4__#E6A3_"
For 1->T To 80:Next
TicksWait 10
Next
0->R:0->H:0->B:0->J
W=K=>Isz H:X=L=>Isz H
Y=M=>Isz H:Z=N=>Isz H
W=K=>Isz R:W=L=>Isz R
W=M=>Isz R:W=N=>Isz R
X=K=>Isz R:X=L=>Isz R
X=M=>Isz R:X=N=>Isz R
Y=K=>Isz R:Y=L=>Isz R
Y=M=>Isz R:Y=N=>Isz R
Z=K=>Isz R:Z=L=>Isz R
Z=M=>Isz R:Z=N=>Isz R
R-H->B
H=0 And B=0=>10->J
H=0 And B=1=>11->J
H=0 And B=2=>12->J
H=0 And B=3=>13->J
H=0 And B=4=>14->J
H=1 And B=0=>20->J
H=1 And B=1=>21->J
H=1 And B=2=>22->J
H=1 And B=3=>23->J
H=2 And B=0=>30->J
H=2 And B=1=>31->J
H=2 And B=2=>32->J
H=3 And B=0=>40->J
H=4 And B=0=>50->J
C<=5=>13->F:C>=6=>4->F
C<=5=>C+1->G:C>=6=>C-4->G
J=10=>Locate F,G,"_#E6DC__#E6DB__#E6DC__#E6DB_"
J=20=>Locate F,G,"_#E6A4_"
J=30=>Locate F,G,"_#E6A4__#E6A4_"
J=40=>Locate F,G,"_#E6A4__#E6A4__#E6A4_"
J=50=>Locate F,G,"_#E6A4__#E6A4__#E6A4__#E6A4_"
J=21=>Locate F,G,"_#E6A4__#E6DB__#E6DC__#E6A3_"
J=22=>Locate F,G,"_#E6A4__#E6DB__#E6A3__#E6A3_"
J=23=>Locate F,G,"_#E6A4__#E6A3__#E6A3__#E6A3_"
J=31=>Locate F,G,"_#E6A4__#E6A4__#E6DC__#E6A3_"
J=32=>Locate F,G,"_#E6A4__#E6A4__#E6A3__#E6A3_"
J=11=>Locate F,G,"_#E6DC__#E6DB__#E6DC__#E6A3_"
J=12=>Locate F,G,"_#E6DC__#E6DB__#E6A3__#E6A3_"
J=13=>Locate F,G,"_#E6DC__#E6A3__#E6A3__#E6A3_"
J=14=>Locate F,G,"_#E6A3__#E6A3__#E6A3__#E6A3_"
'_#E5B0_
Q=0 And J=50=>((6-C)*10)+P-10->P
Q=1 And J=50=>P-10->P
C<=9 And J<>50=>Goto 1
J=50=>Goto 2
C=10 And J<>50=>Goto 3
'======(ending)=====
Lbl 2
For 21->S To 1 Step -1
C=1=>Locate S,7,"wonderfulChar! "
C=2=>Locate S,7,"beautifulChar! "
C=3=>Locate S,7,"excellentChar! "
C=4=>Locate S,7,"amazingChar!  "
C=5=>Locate S,7,"fantasticChar! "
C=6=>Locate S,7,"oh,great Char! "
C=7=>Locate S,7,"very good "
C=8=>Locate S,7,"good job Char! "
C=9=>Locate S,7,"good      "
C=10=>Locate S,7,"nice     "
For 1->T To 10:Next
TicksWait 2
Next
Q=0=>Locate 1,3,"_#E69F_"
Q=0 And C<=5 And J=50=>Locate 1,4,"_#E6A7__#E6A7_"
Q=0 And C<=8 And J=50=>Locate 1,4,"_#E6A7_"
Locate 17,1,A
Locate 12,7,"P="
Locate 14,7,"   "
Locate 14,7,P
Locate 18,7,"_=>_EXE"
Do:Getkey->I
Locate 1,6," "
Locate 2,6,"_#E6A3_"
Locate F,G," "
For 1->S To U:Next
TicksWait U
Locate F,G,"_#E6A4_"
Locate F+1,G," "
For 1->S To U:Next
TicksWait U
Locate 1,6,"_#E6A4_"
Locate 2,6," "
Locate F+1,G,"_#E6A4_"
Locate F+2,G," "
For 1->S To U:Next
TicksWait U
Locate F+2,G,"_#E6A4_"
Locate F+3,G," "
For 1->S To U:Next
TicksWait U
Locate 1,6," "
Locate 2,6,"_#E6A3_"
Locate F,G," "
Locate F+3,G,"_#E6A4_"
For 1->S To U:Next
TicksWait U
Locate F,G,"_#E6A4_"
Locate F+1,G," "
For 1->S To U:Next
TicksWait U
Locate 1,6,"_#E6A4_"
Locate 2,6," "
Locate F+1,G,"_#E6A4_"
Locate F+2,G," "
For 1->S To U:Next
TicksWait U
Locate F+2,G,"_#E6A4_"
Locate F+3,G," "
For 1->S To U:Next
TicksWait U
Locate F+3,G,"_#E6A4_"
Locate 1,6," "
LpWhile I<>31
Goto 0
Lbl 3
Locate 1,7,"RechallengeChar!     _=>_EXE"
Locate 17,1,A
Locate 12,7,"P="
Locate 14,7,"   "
Locate 14,7,P
Do:LpWhile Getkey2<>31
Goto 0