10 ' *****************************
20 ' **       ±×¼ Ãƽ ¹Þ°Ñ      **
30 ' **                         **
40 ' **     BY ISHONO 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 0,23,0
270 PRINT "ĸÃÝ: ";T;
280 LOCATE 0,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
962 IF T>=100 THEN TX=TX-1
970 LOCATE 5,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,8,0
1100 PRINT "¹Þ°Ñµ°ÊÞ°!!";
1110 LOCATE 4,10,0
1120 PRINT "±ÅÀ É Ä¸ÃÝ Ê ";T;" ÃÝ ÃÞ½¡";
1130 LOCATE 8,14,0
1140 PRINT "Ó³²ÁÄÞ ÔØϽ¶ ?";
1150 LOCATE 8,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