■ＴＡＢＬＥ　ＴＥＮＮＩＳ■

　著作制作…………よなぷー
　制作年月日………２０１９年９月７日
　対応機種…………ＰＢ－１００／１１０／１２０用ゲームプログラム
　使用メモリ………４６２ステップ
　※「ク」はクラブ、「ス」はスペード、「ハ」はハートの記号です。
　※「●」はスペース一個です。
　※「○」はＥＸＴモードの［ＳＨＩＦＴ］［Ａ］です。
　※「⊂」は［ＡＮＳ］の下の［Ｅ］です。
　※Ｐ０の２０行の「”’”」は、「”」で「’」を挟んでいます。


P0

1 GOTO 9

3 PRINT CSR1;"●●●●●●●●●";H;CSRD;J$(E);:GOSUB #G+2

5 IF ABS(M+P≦2;M=M+P

6 IF ABS M=2;IF E=1;M=P

7 G=-G:GOTO 3

9 PRINT "TABLE●TENNIS","HI";F,"BY●";$:A$="゜":B$="○":C$="o"

20 J$="'":K$="・":L$=".":E=0:G=1:D=1:H=9:N=0:GOTO 3


P1

9 GOSUB #2:P=0:IF KEY="Q";Y=Y-SGN Y:P=-1

20 IF KEY="A";Y=Y+SGN(2-Y:P=1

30 IF D≧2 THEN 9

40 IF Y=E;RETURN

50 PRINT CSR0;"*";:P=0:H=H-1:IF H≧1;RETURN

60 STOP:PRINT "SC";N;:IF N≧F;PRINT ":HI!":INPUT "NAME",$:F=N


P2

10 D=D+G:E=E+M:IF ABS(E-1≧2;E=E-M:M=-M

20 PRINT CSRD;J$(E);CSR0;A$(Y);CSR9;A$(Z);:RETURN


P3

9 GOSUB #2:P=INT(RAN#*3-1:IF ABS(1-Z-P≦1;Z=Z+P

20 IF D≦7 THEN 9

30 IF Z≠E;PRINT CSR9;"*";:N=N+M↑2+1

40 RETURN


(462STEP)