■Ｐｒｉｎｃｅｓｓ　Ｌｉｆｅ■

　著作制作…………よなぷー
　制作年月日………２０１９年２月９日
　対応機種…………ＰＢ－１００／１１０／１２０用ゲームプログラム
　使用メモリ………５４４ステップ
　※「ク」はクラブ、「ス」はスペード、「ハ」はハートの記号です。
　※「●」はスペース一個です。
　※「○」はＥＸＴモードの［ＳＨＩＦＴ］［Ａ］です。
　※「⊂」は［ＡＮＳ］の下の［Ｅ］です。


P0

4 IF Y=19 THEN 95

8 PRINT Y;"AGE:M";Z,E;"H:G";G:INPUT "C",K:IF K≧7;L=4-L:GOTO 8

20 IF K≦1;GOSUB #1:GOTO 8

25 R=1+INT(RAN#*(L+3:IF K=2;A=A+R:D=D-.05

30 IF K=3;C=C+R:D=D+.2

35 IF K=4;D=D+.8*SGN(53-D

40 IF K=5;A=A-1:D=D+.1:E=E+12

45 IF K=6;G=G+INT(RAN#*9+Y+9:E=E-1

50 G=G-4-L:IF G≦0;G=0:L=0

55 E=E-2:IF 0>E;PRINT "DOWN!":E=8:A=A-5:C=C-8

60 IF RAN#>.95;PRINT "H+!":E=E+9

65 IF RAN#>.95;PRINT "G+!":G=G+9

70 IF Z≠12 THEN 85

75 IF FRAC(Y/2=0;PRINT "B.CUP":F=F+A:GOTO 85

80 PRINT "F.CUP":F=F+C

85 Z=Z+1:D=D+.2:IF Z=13;Z=1:Y=Y+1:IF Y=19 THEN 95

90 GOTO 8

95 PRINT "■RESULT":GOSUB #1:IF D≦56;IF D≧50;IF F≧850;PRINT "■GREAT!"

100 PRINT "*FIN.";


P1

10 PRINT A;"L:S";C,F;"F:T";SGNL,"W";D:RETURN


P9

10 PRINT "PrincessLife":VAC:Y=6:Z=1:D=20:E=D:G=D:GOTO #0