ボウ ズメク 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 <EN$=,,N,,) + (EN$="n") THEN END 1000 GOTO 970 1010 »

1020 » DISPLAY A CARD ( DOWNSIDE )

1030 »

1040 LOCATE X-1,Y： PRINT'

1050 LOCATE ，X-1 ,Y+1 : PRINT 1060 LOCATE X-l , Y+2: PRINT 1070 LOCATE X-l ,Y+3: PRINT 1080 LOCATE X-l ,Y+4: PRINT 1090 LOCATE X-l ,Y+5： PRINT

20 * DISPLAY A CARD ( UPSIDE )

1160 LOCATE X,Y+1：PRINTC$；

1170 LOCATE X,Y+2： PRINT" "jC$j" 1180 RETURN 1190 »

1200 » UNDER CARDS 1210 »

1220 LOCATE PRINT"1-";

1230 LOCATE I+2-J ,J : PRINT" ― i";

1240 LOCATE I-J ， J+l : PRINT1 し "；

1250 LOCATE I+4-J ，J+2: PRINT" 丨 " ；

1260 LOCATE I+4-J , J+3: PRINT"

1270 LOCATE I+3-J ,J+4: PRINT"-」" ；

1280 RETURN 1290 *

1300 * SCORE

1320 IFP<P)=0 THEN CO$=UO$: GOTO 1340 1 330 CO$=LEFT$( LEFT* (Ul$, 1+P(P) ) +U0$,28)

1340 LOCATE 3,14 +2*P: PRINT 00$;

1350 RETURN 1360 *

1370 » FIELD 1380 *

1390 IF P<3)=0 THEN C0$=U0$sG0T01410 1400 CO$=LEFT$ ( LEFT$ (Ul$,l+P(3)) +U0$ , 28 )

1410 LOCATE 3,2 0: PRINT C0$;

1420 F0RI=0T02500:NEXT 1430 RETURN 1440 ’

1450 * RND INITIALIZE 1460 »

1470 LOCATE 5, 10: PRINT"PUSH SPACE KEY !"

1480 IF INKEY$=" " THEN RETURN 1490 I=RND(1) :60T0 1480 1500 ，

1510 * CARDS INITIALIZE 1520 *

1530 FOR 1=1 TO 3: し OCATE 1*9+1 ,0: PRINT， ■一"；： NEXT

1540 FOR J=0 TJO 8

1550 FOR 1=9 TO 27 STEP 9

1560 GOSUB 1190:X=0:R=RND<1)

1570 IF R>.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