ボウ ズメク u 鈴 木 知行 • 高木 真 一郎 一 ☆遊び 方 ☆ 」 百人一首の 、、坊主め くり" と ルールは 同じ だが、 カ ルタの かわりに トランプの 力ード をめ く つて 遊ぶ。 RUN HD で スタート すると' まず ス ベース. キーを 押す よう になつ ている。 これて 乱数が 初 撕 匕され、 ゲーム 開始。 画面に 9 枚 ひと 山で 山 3 つ、 射 27 枚の 力 ー ド か* U 向きで 表示され る。 3 人の プレ イ ヤーが 順番に I 枚ず つ カー ドを 引く が、 うち 2 人は コン ピュー タの 担当。 あなた は、 この 2 人より 多くの カードを 取れば 勝ち だ。 ，ドノ ヤマニ シ マスカ？" と 聞いて く るので、 どの 山から カードを 取る かを 番 号で 入力す る。 山の 番号は、 左から 順に 1 , 2, 3 で、*— ドが 1 枚 も 残つ でい な い 山の 番号を 入れても 受けつ けられず、 やり直し となる。 カードは 4 種 頃 ある。 〇 : 何もな し。 ◊ : もう 一度 引ける。 : 持ち 札を 全部 場に 出す （坊主)。 場に 出て いる 札を 全部 もらう 0®)。 各自の 持ち 札 および 場 に 出て いる 札の 数は、 画面 下部に •で 表 示される。 Y 0 U は あなた x C. 丨 と C.2 はコ ン ピュー タ、 そして FLD は 場を あらわ す。 コンピュータの 番 では、 あなたが スぺ ース. キーを 押せば、 コンピュータが 勝 手に 山を 選んで カー ドを 引いて く れ る。 力ー ド カ な くなる と ゲームオーバー。 その 時点での 持ち 札の 数の 順に、 丨， 2, . 3 位 力 策 示される。 [■；： ☆プ 〇 ダ: ラムの 改良 トラ ンプの 裏の 絵柄を 変えたい 時は、 101 術 ~MO 桁の PRINT 文を 変更す る。 音楽 データ は 240 行 ~27 断に 文字 変数の 形で 入って いるので、 自分の オリジナル 曲に 変える の も 面白い。 また、 トラ ンプの マークの 右側が 少し 欠けて いるので、 これを 直す には 200 行 の 「SCREEN 0，， 0 : WIDTH 38」 を 「S CREEN I ，， 0 : WIDTH 32」 に 変えれば よい。 ただし、 モニター TV によっ て^ 左端の 文字が 見えな く なる 場合が あるの で 注意。 LIST の 230,3 60, 1040 ~ 108 0, 1220 ~ 1270， 1530 の 各行では グラフィック •キ ャラ クタを 使用し ます。 各 マシンの 説明 書を よ く 読んで タイ;！％ て 下さい。 0 P(3)=P(3)+P(P)+1：P(P)=0：PL 690 LOCATE 5,24:PRINT" 700 IF Z=3 THEN LOCATE 5,24 710 P=P+l:IF P=3 THEN P=0 720 ri(A)=n(A)-l:IF M(A)>0 THEN X=1-M(A>+9*A : 730 FOR 1=0 TO 5: LOCATE -1+9*A, I : PRINT" 750 * END G0SUB1 690: F0RI=0T0200 : NEXT : P=P- 1 (A)-l:GOSUB 1010: GOTO 290 770 IF M(l)+H<2) + _ 780 F0RI=0T0500:NEXT 790 CLS: LOCATE 10, 2 800 B$="6 A M E 0 V E R":G0SUB1690 810 F0RI=0T02 820 F0RJ=0T02 830 Q(I)=Q(I)-(P(I)>=P(J)) 840 NEXTJ,I：L=9 850 F0RN=3T01STEP-1 660 F0RI=0T02 870 IFQ(I) く〉 NTHEM920 880 し 0CATE8, し J し = し +3 890 B$=STR$(4-N) + M. . 900 B$=B$+" G0SUB1690 1(3)00 THEN 290 "+LEF 920 NEXTI 930 NEXTN 940 F0RI=0T01 000: NEXT 950 LOCATE 10,24 960 B$=" モウ イチ ト* シ 777T? (Y/N) ":G0SUB1690 970 EN$=INKEY$ 980 IF (EN$="Y")+(EN$="y") THEN RUN 990 IF .5 THEN X=1 1580 IF R>.7 THEN X=2 1590 IF R> . 9 THEN X=3 1600 X(J,I/9)=X 1610 NEXT I 1620 NEXT J 1630 Y=8sF0R X=1 TO 19 STEP 9s GOSUB 101 0:NEXT 1640 FOR X=1 TO 19 STEP 9s GOSUB 101 0:NEXT 1650 FOR 1=0 TO 3 1660 LOCATE 0, 14+2*1 : PRINT niD$( "Y0UC-1C-2FLD", 1*3+1 ,3〉 : 1670 NEXT 1680 RETURN 1690 * 1700 * MESSAGE UITH BEEP 1710 » 1720 F0RI0=1T01_EN(B$) 1730 P$=niD$(B$,IO,l) 1740 PRINTP$； 1750 IF(P$=" ")=OTHENBEEP 1760 FORI1=1T030:NEXT 1770 NEXTIO 1780 RETURN