hp39gs运行C语言,HP39gs开源游戏贴

该楼层疑似违规已被系统折叠 隐藏此楼查看此楼

stock master

简介：一个简易的炒股游戏。

来源：Alex seifert hpcalc

源码：

HP39AscD 12 Stock Master

500\|>P:

1\|>O:

0\|>M:

0\|>L:

0\|>K:

0\|>I:

RANDSEED(Time):

FLOOR(RANDOM*40)+80\|>Z:

FLOOR(RANDOM*40)+80\|>Y:

FLOOR(RANDOM*40)+80\|>X:

FLOOR(RANDOM*40)+80\|>J:

DO

1\|>A:CHOOSE A;

"Stock Master";

"Stock Info.";

"Buy Stocks";

"Sell Stocks";

"Information";

"Net Worth";

"Next Year";

"Quit":

CASE

IF A==1

THEN DO

1\|>B:CHOOSE B;

"Stock Info.";

"AOL $"Z;

"MSFT $"Y;

"IBM $"X;

"EXXN $"J;

"Main Menu":

CASE

IF B==1

THEN MSGBOX "America Online:

$"Z" per share

$0 dividend":

END

IF B==2

THEN MSGBOX "Microsoft:

$"Y" per share

$6 dividend":

END

IF B==3

THEN MSGBOX "IBM:

$"X" per share

$2 dividend":

END

IF B==4

THEN MSGBOX "Exxon:

$"J" per share

$1 dividend":

END

END

UNTIL B==5

END

END

IF A==2

THEN DO

1\|>C:CHOOSE C;