■ あらしテニスゲーム for ９９ ＢＡＳＩＣ!! ■

「こんにちはマイコン」（改訂版／プログラム入門／1985年刊）に掲載されたＭＳＸ２用ＢＡＳＩＣプログラムの「あらしテニスゲーム」を、Windows用の「99 BASIC」で動くように変更を加えた移植版です。 　　■半角カタカナ版ダウンロード用ファイル（tennis_b99.zip） 　このプログラムを動かすには、以下の99 BASICインタープリターが必要です。 　　■Vector「99 BASIC」ダウンロード 「ActiveBasic」や「N88互換BASIC for Windows95 」には、PC-6001用BASICの「SCREEN関数」やMSX2用の「VPEEK命令」に似た働きをする関数や命令が見つからなかったため、「こんにちはマイコン」掲載のBASICプログラムの移植をあきらめていましたが、「99 BASIC」には「SCRN関数」があったため、これを利用して移植にトライしてみました。 「RANDOMIZE」の宣言や、「SCREEN」「RND()」「LOCATE」「PLAY」の記述方法に、少し変更を加えてあります。 　実際のプログラムは、カタカナ部分に半角カタカナを使用しています。 　ボールのスピードが速すぎるときは、445行目に書かれている「FOR I=0 TO 30000:NEXT I」の「30000」の数値を大きくしてください。 10 ' ***************************** 20 ' ** アラシ テニス ゲーム ** 30 ' ** ** 40 ' ** BY ISHINO ARASHI ** 50 ' ***************************** 60 ' *** ガメン ノ セッテイ *** 65 RANDOMIZE 70 KEY OFF 80 SCREEN 1:WIDTH 32 90 ' ** トクテンヲ0ニスル ** 100 T=0 110 ' ** ボール ノ カズ ** 120 B=5 130 ' ** ラケット ト ボール ノ セッテイ ** 140 R1$="===":R2$=" " 150 B1$="@":B2$=" " 160 ' ** ガメン クリア ** 170 CLS 180 ' ** ラケット ノ ヒョウジ ** 190 RX=13:RY=21 200 LOCATE RX,RY,0 210 PRINT R1$; 220 ' ** ライン ヲ ヒク ** 230 LOCATE 0,22,0 240 PRINT "--------------------------------"; 250 ' ** トクテン ノ ヒョウジ ** 260 LOCATE 1,23,0 270 PRINT "トクテン:";T; 280 LOCATE 1,24,0:PRINT "ボール:";B-1;" TENNIS GAME"; 290 ' ** ボール ノ ヒョウジ ** 300 BX=INT(RND(32)) 310 BY=1 320 HO=INT(RND(2))+1 330 LOCATE BX,BY,0 340 PRINT B1$; 350 ' ** ラケット ノ イドウ ** 360 P=0 370 A$=INKEY$ 380 ' ** キー ノ ハンテイ ** 390 IF A$="z" OR A$="Z" THEN GOSUB 600 400 IF A$="c" OR A$="C" THEN GOSUB 650 410 P=P+1:IF P<2 THEN GOTO 370 420 P=0 430 LOCATE RX,RY,0:PRINT R1$; 440 ' ** ボール ノ イドウ ** 445 FOR I=0 TO 30000:NEXT I 450 LOCATE BX,BY,0:PRINT B2$; 460 IF BX=0 AND BY=0 THEN GOTO 700 470 IF BX=31 AND BY=0 THEN GOTO 740 480 IF BX=0 THEN GOTO 780 490 IF BX=31 THEN GOTO 830 500 IF BY=0 THEN GOTO 880 510 IF BY>23 THEN GOTO 1010 520 IF HO=1 THEN BX=BX+1:BY=BY+1 530 IF HO=2 THEN BX=BX-1:BY=bY+1 540 IF HO=3 THEN BX=BX-1:BY=BY-1 550 IF HO=4 THEN BX=BX+1:BY=BY-1 560 IF SCRN$(BX,BY,1)="=" THEN GOTO 930 570 LOCATE BX,BY,0:PRINT B1$; 580 FOR I=0 TO 20:NEXT I 590 GOTO 370 600 ' ** ラケット ヒダリ イドウ ** 610 LOCATE RX,RY,0:PRINT R2$; 620 RX=RX-1 630 IF RX<0 THEN RX=0 640 RETURN 650 ' ** ラケット ミギ イドウ ** 660 LOCATE RX,RY,0:PRINT R2$; 670 RX=RX+1 680 IF RX>29 THEN RX=29 690 RETURN 700 ' ** ヒダリ ウエ スミ ハンテン ** 710 HO=1 720 PLAY "G8O4" 730 GOTO 520 740 ' ** ミギ ウエ スミ ハンテン ** 750 HO=2 760 PLAY "G8O4" 770 GOTO 520 780 ' ** ヒダリ ノ カベ ハンテン ** 790 IF HO=2 THEN HO=1 800 IF HO=3 THEN HO=4 810 PLAY "G8O4" 820 GOTO 520 830 ' ** ミギ ノ カベ ハンテン ** 840 IF HO=1 THEN HO=2 850 IF HO=4 THEN HO=3 860 PLAY "G8O4" 870 GOTO 520 880 ' ** ウエ ノ カベ ハンテン ** 890 IF HO=3 THEN HO=2 900 IF HO=4 THEN HO=1 910 PLAY "G8O4" 920 GOTO 520 930 ' ** ラケット ノ ハンテン ** 940 IF HO=1 THEN HO=4 950 IF HO=2 THEN HO=3 960 T=T+10 970 LOCATE 10,23,0 980 PRINT T; 990 PLAY "G8O4" 1000 GOTO 470 1010 ' ** ウチソコナッタ! ** 1020 B=B-1 1030 IF B<=0 THEN 1070 1040 FOR I=0 TO 100 1050 NEXT I 1060 GOTO 130 1070 ' ** ゲーム オーバー ** 1080 CLS 1090 LOCATE 10,7,0 1100 PRINT "ゲームオーバー!!"; 1110 LOCATE 0,9,0 1120 PRINT "アナタ ノ トクテンハ ";T;"テン デス。"; 1130 LOCATE 6,14,0 1140 PRINT "モウイチド ヤリマスカ ?"; 1150 LOCATE 6,16,0 1160 PRINT "ハイ=(y), イイエ=(n)"; 1170 A$=INKEY$:IF A$="" THEN 1170 1180 IF A$="y" THEN RUN 1190 IF A$="n" THEN WIDTH 29:KEY ON:CLS:END 1200 GOTO 1170

■BASIC Top Page ■Top Page