■ＭＯＬＥＲＳ■

　著作制作…………よなぷー
　制作年月日………２０１５年１０月１８日
　対応機種…………ＰＢ－１００／１１０／１２０用ゲームプログラム
　使用メモリ………５４４ステップ
　※「クラブ」「スペード」「ハート」「ダイヤ」は、その記号を入力してください。
　※「●」はスペース一個です。
　※「○」はEXTモードの[SHIFT][A]です。
　※「⊂」は[ANS]の下の[E]です。


◆◆◆ 適当なプログラムエリア ◆◆◆

3 GOSUB 170

6 PRINT:PRINT CSR10;H;CSRX;"+";CSRA;J$(E);CSRB;J$(F);

9 PRINT CSRC;J$(G);:IF X=C;PRINT CSRC;"*";:G=0:C=INT(RAN#*11:R=R+1

20 IF X=A;PRINT CSRA;"*";:E=0:A=INT(RAN#*11:R=R+1

30 IF X=B;PRINT CSRB;"*";:F=0:B=INT(RAN#*11:R=R+1

40 IF KEY="Q";X=X-1

50 IF KEY="W";X=X-2

60 IF KEY="6";X=X+2

70 IF KEY="-";X=X+1

80 IF X<0;X=0

90 IF X>10;X=10

100 E=E+.34:IF E>4.4;H=H-1:E=0:A=INT(RAN#*11

110 F=F+.34:IF F>4.4;H=H-1:F=0:B=INT(RAN#*11

120 G=G+.34:IF G>4.4;H=H-1:G=0:C=INT(RAN#*11

130 IF H≧1 THEN 6

140 PRINT:PRINT CSR3;"THEEND","SC";R;:IF R
150 STOP:INPUT "NAME=",$:P=R:IF P<500;END

160 PRINT "●●OVER●500!","●VERY●GOOD!";:END

170 PRINT CSR3;"MOLERS","HI";P,"BY●";$:J$=".":K$=",":L$="o"

180 M$="O":N$="■":R=0:H=5:E=0:F=0:G=0:RETURN