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