- ’┌──────────────────┐
 
- ’│                  │
 
- ’│   アラシ テニス ケ゛-ム   │
 
- ’│                  │
 
- ’│ BY ISHINO ARASHI │
 
- ’│                  │
 
- ’│ イショク SmileBoomЖ  │
 
- ’│                  │
 
- ’└──────────────────┘
 
- ’--- カ゛メン ノ セッテイ
 
- VISIBLE 1,1,0,0,0,0
 
- W=4
 
- ’--- トクテンヲ セ゛ロニスル
 
- @RESET
 
- T=0
 
- ’--- ホ゛-ルノカス゛
 
- B=5
 
- ’--- ラケットトホ゛-ルノセッテイ
 
- R1$=”===”:R2$=”   ”
 
- B1$=”@”:B2$=” ”
 
- ’--- カ゛メンクリア
 
- CLS
 
- ’--- ラケットノヒョウシ゛
 
- @RETRY
 
- RX=13:RY=20
 
- LOCATE RX,RY
 
- PRINT R1$
 
- ’--- ラインヲヒク
 
- LOCATE 0,21
 
- PRINT”────────────────────────────────”;
 
- ’--- トクテンノヒョウシ゛
 
- LOCATE 1,22
 
- PRINT”トクテン:”;T;
 
- LOCATE 1,23:PRINT”ホ゛-ル:”;B-1;” TENNIS GAME”;
 
- ’--- ホ゛-ルノヒョウシ゛
 
- BX=RND(32)
 
- BY=1
 
- HO=RND(2)+1
 
- LOCATE BX,BY
 
- PRINT B1$;
 
- ’--- ラケットノイト゛ウ
 
- P=0
 
- ’--- メインル-フ゜
 
- @LOOP
 
- BT=BUTTON()
 
- IF BT AND 4 THEN GOSUB @MVLEFT
 
- IF BT AND 8 THEN GOSUB @MVRIGHT
 
- P=P+1:IF P<2 THEN @LOOP
 
- P=0
 
- LOCATE RX,RY:PRINT R1$;
 
- ’--- ホ゛-ルノイト゛ウ
 
- LOCATE BX,BY:PRINT B2$;
 
- ’--- 
 
- @CHKBALL
 
- IF BX==0 AND BY==0 THEN @REVLH
 
- IF BX==31 AND BY==0 THEN @REVRH
 
- IF BX==0 THEN @REVL
 
- IF BX==31 THEN @REVR
 
- IF BY==0 THEN @REVH
 
- IF BY>21 THEN @DEAD
 
- ’--- 
 
- @MVBALL
 
- IF HO==1 THEN BX=BX+1:BY=BY+1
 
- IF HO==2 THEN BX=BX-1:BY=BY+1
 
- IF HO==3 THEN BX=BX-1:BY=BY-1
 
- IF HO==4 THEN BX=BX+1:BY=BY-1
 
- IF CHKCHR(BX,BY)==ASC(”=”) THEN @REVPAD
 
- LOCATE BX,BY:PRINT B1$;
 
- ’--- ウエイト
 
- @WAIT
 
- VSYNC W
 
- GOTO @LOOP
 
- ’--- ラケット ヒタ゛リイト゛ウ
 
- @MVLEFT
 
- LOCATE RX,RY:PRINT R2$;
 
- RX=RX-1
 
- IF RX<0 THEN RX=0
 
- RETURN
 
- ’--- ラケット ミキ゛イト゛ウ
 
- @MVRIGHT
 
- LOCATE RX,RY:PRINT R2$;
 
- RX=RX+1
 
- IF RX>29 THEN RX=29
 
- RETURN
 
- ’--- ヒタ゛リウエスミ ハンテン
 
- @REVLH
 
- HO=1
 
- BEEP 8
 
- GOTO @MVBALL
 
- ’--- ミキ゛ウエスミ ハンテン
 
- @REVRH
 
- HO=2
 
- BEEP 8
 
- GOTO @MVBALL
 
- ’--- ヒタ゛リカヘ゛ ハンテン
 
- @REVL
 
- IF HO==2 THEN HO=1
 
- IF HO==3 THEN HO=4
 
- BEEP 8
 
- GOTO @MVBALL
 
- ’--- ミキ゛カヘ゛ ハンテン
 
- @REVR
 
- IF HO==1 THEN HO=2
 
- IF HO==4 THEN HO=3
 
- BEEP 8
 
- GOTO @MVBALL
 
- ’--- ウエ ハンテン
 
- @REVH
 
- IF HO==3 THEN HO=2
 
- IF HO==4 THEN HO=1
 
- BEEP 8
 
- GOTO @MVBALL
 
- ’--- ラケット ハンテン
 
- @REVPAD
 
- IF HO==1 THEN HO=4
 
- IF HO==2 THEN HO=3
 
- T=T+10
 
- LOCATE 6,22
 
- PRINT T;
 
- BEEP 8
 
- GOTO @CHKBALL
 
- ’--- ウチソコナッタ!
 
- @DEAD
 
- BEEP 5
 
- LOCATE RX,RY:PRINT R2$;
 
- B=B-1
 
- IF B<=0 THEN @GOVER
 
- VSYNC 60
 
- GOTO @RETRY
 
- ’--- ケ゛-ムオ-ハ゛-
 
- @GOVER
 
- CLS
 
- LOCATE 12,7
 
- PRINT”ケ゛-ムオ-ハ゛-”
 
- LOCATE 5,9
 
- PRINT”アナタノ トクテンハ ”;T;”テン テ゛ス。”;
 
- LOCATE 10,14
 
- PRINT”モウイチト゛ヤリマスカ?”;
 
- LOCATE 9,16
 
- PRINT”ハイ=(Y),イイエ=(N)”;
 
- ’---
 
- @KEYLOOP
 
- A$=INKEY$()
 
- IF A$==”” THEN @KEYLOOP
 
- IF A$==”Y” THEN @RESET
 
- IF A$!=”N” THEN @KEYLOOP
 
- END