CASIO5800P计算器游戏猜数字游戏

LbI I↙
"xxGUESS NUMBERxx
xPROGRAMMER:JCHx
----------------
START>>>>>>>[EXE]"◢
LbI Q↙
"xxxDIFFICULTYxxx
     [1EASY]
     [2MIDDLE]
     [3HARD]"?→N:
N=1=>GOTO N:N=2=>GOTO O:
N=3=>GOTO P:GOTO Q↙

LbI P:5→N:GOTO G↙
LbI O:10→N:GOTO G↙
LbI N:20→N:
LbI G↙

RanInt#(1,9)→A↙
LbI C:RanInt#(0,9)→B:
B=A=>GOTO C↙
LbI D:RanInt#(0,9)→C:C=A Or
C=B=>GOTO D↙
LbI E:RanInt#(0,9)→D:
D=A Or D=B Or D=C=>GOTO E↙
N→M

LbI 9↙
"PLEASE INPUT A FOOR
PLACE NUMBER"↙
LbI 1:"THOUSAND"?→G:G=
482129314=>GOTO L:G=413921284
=>GOTO M:LbI Y:1≤G And G≤9
=>GOTO 2:"WRONG!":GOTO 1↙

LbI 2↙
LbI 3:"HUNDRED"?→H:
0≤H And H≤9 And H≠G=>
GOTO 4:"WRONG!":GOTO 3:
LbI 4↙

LbI 5:"TEN"?→I:0≤I And I≤9
And I≠G And I≠H=>GOTO 6:
"WRONG!":GOTO 5:LbI 6↙

LbI 7:"INGIVIDUAL"?→J:
0≤J And J≤9 And J≠G
And J≠H And J≠I=>GOTO 8:
"WRONG!":GOTO 7:LbI 8↙

"YOU CHOOSE NUMBER
IS":1000G+100H+10I+J◢

0→K:0→L↙
G=A=>Isz K:G=B=>Isz L:G=C
=>Isz L:G=D=>Isz L↙

H=B=>Isz K:H=A=>Isz L:H=C
=>Isz L:H=D=>Isz L↙

I=C=>Isz K:I=A=>Isz L:I=B
=>Isz L:I=D=>Isz L↙

J=D=>Isz K:J=A=>Isz L:J=B
=>Isz L:J=C=>Isz L↙

CLS↙
Locate 1,2,"A="↙
Locate 3,2,K↙
Locate 6,2,"B="↙
Locate 8,2,L↙
Locate 10,2,"FREE="↙
Locate 15,2,M-1↙
Locate 1,1,"NUMBER="↙
Locate 13,1,1000G+100H+10I+J◢

CLS↙
Dsz M=GOTO A↙
"TRUE ANSWER:"↙
1000A+100B+10C+D◢
LbI M↙

"xxxxxxxxxxxxxxxx
xxxxGAME OVERxxx
xxxxxxxxxxxxxxxx
xxxxxxxxxxxxxxxx"◢

GOTO H↙
LbI A:K=4=>GOTO B:GOTO 9:
LbI B:LbI L↙

"xxxxxxxxxxxxxxxx
xxxxxYOU WIN!xxxx
xxxxxxxxxxxxxxxx"◢

GOTO H:LbI H:LbI K↙

"xxxPLAY AGAIN?xxx
xxxxxxxxxxxxxxxxxx
  [1YES]  [2NO]"?→O:
O=1=>GOTO I:O=2=>GOTO J:
GOTO K:LbI J:"GOOD BEY!":
STOP↙