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

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

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

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↙

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

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

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