■ＫＮＯＣＫ　ＫＩＮＧ■

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


適当なプログラムエリア

2 PRINT "●KNOCK●KING","H";N:C$="'":D$="・":E$=".":A=0:T=0:L=0

4 A=A+1:P=0:M=0:IF A≦3 THEN 7

5 PRINT "S";T;:IF T≧N;N=T

6 END

7 PRINT A;"KAI:S";T

8 PRINT:PRINT "o●●●●●●●o/";P;

20 G=INT(RAN#*5:F=INT(RAN#*3:IF G≧3;F=G*2-6

24 K=9:FOR W=0 TO 6:IF G=3;F=INT(W/2.5

28 IF G=4;F=2-INT(W/2.5

32 PRINT CSRW+1;C$(F);:IF KEY≠"";PRINT CSR8;"-o";:K=π

36 NEXT W:IF K=π THEN 52

40 IF KEY="*";K=0

44 IF KEY="-";K=1

48 IF KEY="+";K=2

52 IF K≠F;PRINT CSR1;"STRIKE";:L=L+1:GOSUB 90:GOTO 76

56 PRINT CSR7;"*-o";:GOSUB 90:J=INT(RAN#*9:PRINT

60 IF J=8;PRINT "HOMERUN!";:W=P+1:L=0:P=0:GOSUB 90:GOTO 72

64 PRINT "HIT";:GOSUB 90:L=0:IF P=3;W=1:GOTO 72

68 P=P+1:GOTO 8

72 T=T+W:PRINT:PRINT "TEN+";W;"=";T;:GOSUB 90:GOTO 8

76 IF L=3;M=M+1:L=0:PRINT:PRINT "OUT!";:GOSUB 90:PRINT:IF M≧3 THEN 4

80 GOTO 8

90 FOR Z=0 TO 99:NEXT Z:RETURN