CASIO 5800P计算器游戏--猜数字游戏

CASIO 5800P 计算器游戏--猜数字游戏原代码

我编的计算器小游戏--猜数字游戏

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

LbI P:→N:GOTO G↙
LbI O:→N:GOTO G↙
LbI N:→N:
LbI G↙

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

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

LbI ↙
LbI :"HUNDRED"?→H:
≤H And H≤ And H≠G=>
GOTO :"WRONG!":GOTO :
LbI ↙

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

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

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

→K:→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 ,,"A="↙
Locate ,,K↙
Locate ,,"B="↙
Locate ,,L↙
Locate ,,"FREE="↙
Locate ,,M-↙
Locate ,,"NUMBER="↙
Locate ,,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==>GOTO B:GOTO :
LbI B:LbI L↙

"xxxxxxxxxxxxxxxx
xxxxxYOU WIN!xxxx
xxxxxxxxxxxxxxxx"◢

GOTO H:LbI H:LbI K↙

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

因为我的 5800P丢了,所以以后只能看这个来回忆我的计算器了,我还写了几个其他的游戏,但都不是太好玩就不打上来了,不过我还写过一个秒表的程序,这个秒表很小,大概也就60行左右,但我耗费的经历和时间一点也不比这个猜数游戏少,所以改天我再把秒表程序发上来了。

其实我也并不指望谁来看，有时间自己看看就行了，只是想记录下来我曾经做过的东西，因为写到本上早晚会弄的不知道到哪去，所以写到这里就不会丢了吧。

——原文发表于2008年3月26日