10 '
12 '●アクアのベースボール
14 '
16 '
18 '△設定
22 SCREEN @0:CLS:WIDTH 80
24 DEFINT A-Z:RANDOMIZE TIME
26 '
30 '△変数その１
32 '
34 ST=0:BU=0:OU=0:BALL4=0
36 OMA=0:OMB=0:OMC=0:OMD=0:OME=0:OMX=0
38 URA=0:URB=0:URC=0:URD=0:URE=0:URX=0
40 RUA=0:RUB=0:RUC=0:TEN=0
44 OWA=1:PLA=0:CO=0:NAV=0
46 SEN=1:MSEN=1:CSEN=1
50 '
52 '
54 '
55 '
90 '
92 '△ファイル読み込み
93 '
94 SCREEN 1,1,0,1
95 GOSUB *OTO:GOSUB *MYOMU
96 GOSUB *YOMU2:GOSUB *YOMU3:GOSUB *YOMU5:GOSUB *YOMU6 
97 GOSUB *YOMU7:GOSUB *YOMU8:GOSUB *YOMU9:GOSUB *YOMU10
98 GOSUB *YOMU11:GOSUB *YOMU12:GOSUB *YOMU14:GOSUB *YOMU15
99 GOSUB *YOMU16:GOSUB *YOMU17:GOSUB *YOMU18:GOSUB *YOMU19
101 '
102 GOSUB *SYOMU:GOSUB *ESEN
110 SCREEN 0
111 '
140 '△タイトル
141 '
142 PLAY@ MAC%,1
143 '
144 LINE (100,0)-(540,479),PSET,1,BF,&H01010101
150 LOAD@ "IM078.TIF",(200,10)
152 LOAD@ "IM079.TIF",(160,130)
154 COLOR 7,,,4:LOCATE 26,22:PRINT "  ＰＵＳＨ   　ＡｏｒＢ" 
155 COLOR 7,,,4:LOCATE 30,24:PRINT "  制作  アクア" 
156 '
158 PAP=PTRIG(1)
160 IF PAP=1 OR PAP=2 THEN 164
162 GOTO 158
164 PLAY OFF:CLS
166 '
180 '
190 '△一人用
192 '
194 'PAP=PTRIG(1)
220 'GOTO 300
230 '
250 '△二人用
252 '
280 '
300 '△先攻後攻決め一人用
376 '
396 '
404 '△先攻後攻決め二人用
498 '
500 '△ゲーム画面表示
501 '
502 PLAY@ MAD%,0
503 '
504 DAM=RND*6+1
506 IF DAM=2 THEN 516
507 IF DAM=3 THEN 510 
508 GOTO 504
509 '
510 OM=1:UR=2:PLA=2:CO=0
511 SYMBOL (50,200),"先攻       後攻",3,4,5
512 SYMBOL (50,280),"プレイヤーズ     コンピューター",2,2,7:WAIT 300
513 LINE(50,110)-(640,330),PSET,0,BF
514 GOTO 520
515 '
516 OM=2:UR=1:CO=2:PLA=0
517 SYMBOL (50,200),"先攻       後攻",3,4,5
518 SYMBOL (50,280),"コンピューター   プレイヤーズ",2,2,7:WAIT 300
519 LINE(50,110)-(640,330),PSET,0,BF
520 '
521 COLOR 7,,,4:LOCATE 4,12:PRINT "Ｓ：" 
522 COLOR 7,,,4:LOCATE 4,14:PRINT "Ｂ：" 
524 COLOR 7,,,4:LOCATE 4,16:PRINT "Ｏ：" 
526 '
528 IF OM=1 THEN 534
530 IF OM=2 THEN 538
534 COLOR 7,,,4:LOCATE 4,2:PRINT "プレイヤ−ズ" 
536 GOTO 550
538 COLOR 7,,,4:LOCATE 4,2:PRINT "コンピュータ"
540 GOTO 550
550 '
552 IF UR=1 THEN 564
554 IF UR=2 THEN 560
556 GOTO 552
558 '
560 COLOR 7,,,4:LOCATE 4,4:PRINT "コンピュータ" 
562 GOTO 570
564 COLOR 7,,,4:LOCATE 4,4:PRINT "プレイヤ−ズ"
566 GOTO 570
568 '
570 COLOR 7,,,4:LOCATE 20,1:PRINT "１　２　３　４　５　合計" 
572 '
573 LINE (0,10)-(360,100),PSET,0,BF,&H0404040404040404
574 LINE (0,35)-(360,35),PSET,4
575 LINE (0,65)-(360,65),PSET,4
576 LINE (0,10)-(360,100),PSET,4,B
578 '
579 GOSUB *TENHYO:GOSUB *KAI
580 '
582 LINE (0,180)-(120,340),PSET,0,BF,&H0707070707070707
584 '
586 LOAD@"IM001.TIF",(380,5)
588 '
590 COLOR 5,,,4:LOCATE 2,6:PRINT "  アクア" 
592 COLOR 7,,,4:LOCATE 2,7:PRINT "    の" 
594 COLOR 5,,,4:LOCATE 2,8:PRINT "ベースボール" 
596 '
598 LINE (0,101)-(120,179),PSET,0,BF,&H0101010101010101
600 '
650 'GOSUB *ANAGE:GOSUB *ASLB:GOSUB *AHIB:GOSUB *ATMS:GOSUB *ATMH:GOSUB *ATMK:GOSUB *ATMF
655 'GOSUB *AFURI:GOSUB *AUTI:GOSUB *AKATI:GOSUB *ACNST:GOSUB *ASANSIN
657 'GOSUB *AVCAT:GOSUB *AWPLAY:GOSUB *AWCOUT
659 'GOSUB *ADEDOBA:GOSUB *ADEDOBA
660 'GOSUB *AFLYA:GOSUB *AFLYCH
665 'GOSUB *AFAARU:GOSUB *AOU
667 'GOSUB *AHR:GOSUB *MHIT:GOSUB *MTBH:GOSUB *MSBH
669 'GOSUB *AHRR
670 '
671 LINE (250,341)-(540,459),PSET,0,BF,&H7474747474747474
672 LINE (255,346)-(535,454),PSET,0,BF
673 LINE (0,341)-(120,459),PSET,0,BF,&H2626262626262626
674 COLOR 7,,,4:LOCATE 1,19:PRINT "  操作方法" 
675 COLOR 6,,,4:LOCATE 1,20:PRINT "△ カーソル上" 
677 COLOR 4,,,4:LOCATE 1,21:PRINT "Ａ 決定" 
679 COLOR 6,,,4:LOCATE 1,22:PRINT "▽ カーソル下" 
680 WAIT 100
700 '
710 PLAY@ MAA%,1
720 '
800 '△メインルーチン
802 '
803 PAP=PTRIG(1)
804 WHILE OWA<>11
805 '
806 GOSUB *SENSYU
807 GOSUB *NAGE
808 GOSUB *UTI
809 GOSUB *SYUBI
811 GOSUB *CNT
812 GOSUB *RUNER
813 GOSUB *KAI
814 GOSUB *TENHYO
815 GOSUB *KAI
816 '
842 WEND
850 IF OWA=11 THEN 860
860 '
862 IF PLA=2 THEN 868
864 IF CO=2 THEN 878
866 '
868 IF OMX>URX THEN 888
870 IF OMX<URX THEN 892
872 IF OMX=URX THEN 896
874 GOTO 900
876 '
878 IF OMX>URX THEN 892
880 IF OMX<URX THEN 888
882 IF OMX=URX THEN 896
884 GOTO 900
886 '
888 CLS:LINE(60,0)-(580,480),PSET,7,BF
889 LOAD@ "IM102.TIF",(150,80)
890 SYMBOL (100,330),"プレイヤーズの勝利",3,4,0:SYMBOL(280,410),"PUSH A",1,1,0
891 FOR I=1 TO 10:BEEP 1:WAIT 2:BEEP 0:BEEP 1:WAIT 4:BEEP 0:NEXT:GOTO 900
892 CLS:LINE(80,10)-(560,470),PSET,7,BF
893 LOAD@ "IM101.TIF",(190,80)
894 SYMBOL (100,330),"プレイヤーズの敗北",3,4,0:SYMBOL(280,410),"PUSH A",1,1,0
895 FOR I=1 TO 20:BEEP 1:WAIT 2:BEEP 0:NEXT:GOTO 900
896 CLS:LINE(140,60)-(500,460),PSET,7,BF
897 LOAD@ "IM103.TIF",(200,120)
898 SYMBOL (100,330),"     引き分け",3,4,0:SYMBOL(280,410),"PUSH A",1,1,0
899 FOR I=1 TO 5:BEEP 1:WAIT 1:BEEP 0:NEXT:GOTO 900
900 GOSUB *PAD:END
950 '
1000 '△サブルーチン
1002 '
1004 *PAD
1006 BTN=PTRIG(1)
1008 WHILE BTN<>0:BTN=PTRIG(1):WEND 
1010 WHILE BTN=0:BTN=PTRIG(1):WEND:RETURN
1012 '
1014 *TENHYO
1016 '
1028 OMX=OMA+OMB+OMC+OMD+OME
1030 COLOR 7,,,4:LOCATE 40,2:PRINT USING"##";OMX
1032 '
1044 URX=URA+URB+URC+URD+URE
1046 COLOR 7,,,4:LOCATE 40,4:PRINT USING"##";URX
1100 RETURN
1110 '
1112 *KAI
1114 '
1115 IF OWA=11 THEN 1500
1116 IF OWA=10 THEN 1240
1118 IF OWA=9 THEN 1230
1120 IF OWA=8 THEN 1220
1122 IF OWA=7 THEN 1210
1124 IF OWA=6 THEN 1200
1126 IF OWA=5 THEN 1190
1128 IF OWA=4 THEN 1180
1130 IF OWA=3 THEN 1170
1132 IF OWA=2 THEN 1160
1136 '
1140 COLOR 7,,,4:LOCATE 2,10:PRINT "一回  表"
1142 OMA=TEN
1143 COLOR 7,,,4:LOCATE 20,2:PRINT USING"##";OMA
1144 '
1152 IF OU=>3 THEN 1156
1154 GOTO 1500
1156 MSEN=MSEN:CSEN=CSEN:OWA=2:GOSUB *SCA:OMA=OMA:GOSUB *RUCHA:RUA=0:RUB=0:RUC=0:TEN=0:OU=0:ST=0:BU=0:PLAY@ MAA%,1:GOTO 1500
1158 '
1160 COLOR 7,,,4:LOCATE 2,10:PRINT "一回  裏"
1162 URA=TEN
1163 COLOR 7,,,4:LOCATE 20,4:PRINT USING"##";URA
1164 IF OU>=3 THEN 1168
1166 GOTO 1500
1168 MSEN=MSEN:CSEN=CSEN:OWA=3:GOSUB *SC:URA=URA:GOSUB *RUCHA:RUA=0:RUB=0:RUC=0:TEN=0:OU=0:ST=0:BU=0:PLAY@ MAA%,1:GOTO 1500 
1169 '
1170 COLOR 7,,,4:LOCATE 2,10:PRINT "二回  表"
1172 OMB=TEN
1173 COLOR 7,,,4:LOCATE 24,2:PRINT USING"##";OMB
1174 IF OU>=3 THEN 1178
1176 GOTO 1500
1178 MSEN=MSEN:CSEN=CSEN:OWA=4:GOSUB *SC:OMB=OMB:GOSUB *RUCHA:RUA=0:RUB=0:RUC=0:TEN=0:OU=0:ST=0:BU=0:PLAY@ MAA%,1:GOTO 1500 
1179 '
1180 COLOR 7,,,4:LOCATE 2,10:PRINT "二回  裏"
1182 URB=TEN
1183 COLOR 7,,,4:LOCATE 24,4:PRINT USING"##";URB
1184 IF OU>=3 THEN 1188
1186 GOTO 1500
1188 MSEN=MSEN:CSEN=CSEN:OWA=5:GOSUB *SC:URB=URB:GOSUB *RUCHA:RUA=0:RUB=0:RUC=0:TEN=0:OU=0:ST=0:BU=0:PLAY@ MAA%,1:GOTO 1500 
1189 '
1190 COLOR 7,,,4:LOCATE 2,10:PRINT "三回  表"
1192 OMC=TEN
1193 COLOR 7,,,4:LOCATE 28,2:PRINT USING"##";OMC
1194 IF OU>=3 THEN 1198
1196 GOTO 1500
1198 MSEN=MSEN:CSEN=CSEN:OWA=6:GOSUB *SC:OMC=OMC:GOSUB *RUCHA:RUA=0:RUB=0:RUC=0:TEN=0:OU=0:ST=0:BU=0:PLAY@ MAA%,1:GOTO 1500 
1199 '
1200 COLOR 7,,,4:LOCATE 2,10:PRINT "三回  裏"
1202 URC=TEN
1203 COLOR 7,,,4:LOCATE 28,4:PRINT USING"##";URC
1204 IF OU>=3 THEN 1208
1206 GOTO 1500
1208 MSEN=MSEN:CSEN=CSEN:OWA=7:GOSUB *SC:URC=URC:GOSUB *RUCHA:RUA=0:RUB=0:RUC=0:TEN=0:OU=0:ST=0:BU=0:PLAY@ MAA%,1:GOTO 1500 
1209 '
1210 COLOR 7,,,4:LOCATE 2,10:PRINT "四回  表"
1212 OMD=TEN
1213 COLOR 7,,,4:LOCATE 32,2:PRINT USING"##";OMD
1214 IF OU>=3 THEN 1218
1216 GOTO 1500
1218 MSEN=MSEN:CSEN=CSEN:OWA=8:GOSUB *SC:OMD=OMD:GOSUB *RUCHA:RUA=0:RUB=0:RUC=0:TEN=0:OU=0:ST=0:BU=0:PLAY@ MAA%,1:GOTO 1500 
1219 '
1220 COLOR 7,,,4:LOCATE 2,10:PRINT "四回  裏"
1222 URD=TEN
1223 COLOR 7,,,4:LOCATE 32,4:PRINT USING"##";URD
1224 IF OU>=3 THEN 1228
1226 GOTO 1500
1228 MSEN=MSEN:CSEN=CSEN:OWA=9:GOSUB *SC:URD=URD:GOSUB *RUCHA:RUA=0:RUB=0:RUC=0:TEN=0:OU=0:ST=0:BU=0:PLAY@ MAA%,1:GOTO 1500 
1229 '
1230 COLOR 7,,,4:LOCATE 2,10:PRINT "五回  表"
1232 OME=TEN
1233 COLOR 7,,,4:LOCATE 36,2:PRINT USING"##";OME
1234 IF OU>=3 THEN 1236
1235 GOTO 1500
1236 IF OMX<URX THEN 1238
1237 MSEN=MSEN:CSEN=CSEN:GOSUB *ACNGE:OWA=10:GOSUB *SC:OME=OME:GOSUB *RUCHA:RUA=0:RUB=0:RUC=0:TEN=0:OU=0:ST=0:BU=0:PLAY@ MAA%,1:GOTO 1500 
1238 MSEN=MSEN:CSEN=CSEN:GOSUB *SYURYU:OWA=11:GOSUB *SC:OME=OME:GOSUB *RUCHA:RUA=0:RUB=0:RUC=0:TEN=0:OU=0:ST=0:BU=0:PLAY STOP:GOTO 1500 
1239 '
1240 COLOR 7,,,4:LOCATE 2,10:PRINT "五回  裏"
1242 URE=TEN
1243 COLOR 7,,,4:LOCATE 36,4:PRINT USING"##";URE
1244 IF OU>=3 THEN 1248
1245 IF OMX<URX THEN 1250
1246 GOTO 1500
1248 MSEN=MSEN:CSEN=CSEN:OWA=11:GOSUB *SC:URE=URE:GOSUB *RUCHA:RUA=0:RUB=0:RUC=0:TEN=0:OU=0:ST=0:BU=0:PLAY STOP:GOTO 1500 
1249 '
1250 MSEN=MSEN:CSEN=CSEN:GOSUB *SYURYU:OWA=11:GOSUB *SC:URE=URE:GOSUB *RUCHA:RUA=0:RUB=0:RUC=0:TEN=0:OU=0:ST=0:BU=0:PLAY STOP:GOTO 1500 
1252 '
1500 'COLOR 7,,,4:LOCATE 26,10:PRINT USING"##";OWA
1501 RETURN
1505 '
1508 *CNT
1510 '
1512 IF ST=3 THEN 1528
1514 IF ST=2 THEN 1524
1516 IF ST=1 THEN 1520
1517 '
1518 COLOR 6,,,4:LOCATE 8,12:PRINT "    ":GOTO 1550
1519 '
1520 COLOR 6,,,4:LOCATE 8,12:PRINT "●"
1522 GOTO 1550
1524 COLOR 6,,,4:LOCATE 8,12:PRINT "●●"
1526 GOTO 1550
1528 GOSUB *ASANSIN:OU=OU+1:SEN=SEN+1:ST=0:BU=0:COLOR 6,,,4:LOCATE 8,12:PRINT "    ":COLOR 4,,,4:LOCATE 8,14:PRINT "         "
1530 GOTO 1550
1550 '
1552 IF BU=4 THEN 1578
1554 IF BU=3 THEN 1574 
1556 IF BU=2 THEN 1570
1558 IF BU=1 THEN 1566
1560 '
1562 COLOR 4,,,4:LOCATE 8,14:PRINT "      ":GOTO 1582
1564 '
1566 COLOR 4,,,4:LOCATE 8,14:PRINT "●"
1568 GOTO 1582
1570 COLOR 4,,,4:LOCATE 8,14:PRINT "●●"
1572 GOTO 1582
1574 COLOR 4,,,4:LOCATE 8,14:PRINT "●●●"
1576 GOTO 1582
1578 GOSUB *AFOAB:BALL4=BALL4+1::GOSUB *RUNER:GOSUB *MUCHK:SEN=SEN+1:BU=0:ST=0:COLOR 4,,,4:LOCATE 8,14:PRINT "        ":COLOR 4,,,4:LOCATE 8,12:PRINT "     "
1580 GOTO 1582
1582 '
1583 IF OU=3 THEN 1636
1584 IF OU=2 THEN 1620
1586 IF OU=1 THEN 1600
1590 '
1592 COLOR 2,,,4:LOCATE 8,16:PRINT "    ":GOTO 1700
1594 '
1600 COLOR 2,,,4:LOCATE 8,16:PRINT "●"
1610 GOTO 1700
1620 COLOR 2,,,4:LOCATE 8,16:PRINT "●●"
1630 GOTO 1700
1635 '
1636 COLOR 2,,,4:LOCATE 8,16:PRINT "    ":LOCATE 8,14:PRINT "        ":COLOR 4,,,4:LOCATE 8,12:PRINT "     ":PLAY STOP:WAIT 5
1637 '
1638 IF OWA=9 THEN 1700
1639 IF OWA=10 THEN 1670
1640 '
1641 SYMBOL (280,200),"チ      ",3,4,7:WAIT 2
1642 PCMPLAY OTJ%,90
1643 SYMBOL (280,200),"チェ    ",3,4,7:WAIT 2
1644 SYMBOL (280,200),"チェン  ",3,4,7:WAIT 2
1646 SYMBOL (280,200),"チェンジ",3,4,7:WAIT 24
1649 LINE(200,110)-(640,330),PSET,0,BF
1650 GOTO 1700
1655 '
1670 SYMBOL (280,200),"試      ",3,4,7:WAIT 2
1672 SYMBOL (280,200),"試合    ",3,4,7:WAIT 2
1674 SYMBOL (280,200),"試合終  ",3,4,7:WAIT 2
1676 SYMBOL (280,200),"試合終了",3,4,7:WAIT 24
1678 LINE(200,110)-(640,330),PSET,0,BF
1680 '
1700 RETURN
1710 '
1716 *RUNER
1717 '
1718 GOSUB *BALL4
1719 GOSUB *HIT
1720 GOSUB *TBH
1721 GOSUB *SBH
1722 GOSUB *HR
1723 GOSUB *RUCHA
1724 '
1725 IF PLA=2 THEN 1728
1726 IF PLA=0 THEN 1730
1727 '
1728 IF OWA=1 OR OWA=3 OR OWA=5 OR OWA=7 OR OWA=9 OR OWA=11 THEN 1928
1729 GOTO 1733
1730 IF OWA=2 OR OWA=4 OR OWA=6 OR OWA=8 OR OWA=10 OR OWA=11 THEN 1928
1731 GOTO 1733
1732 '
1733 IF RUA=0 AND RUB=0 AND RUC=0 THEN 1990
1734 IF RUA=1 AND RUB=0 AND RUC=0 THEN 1790
1736 IF RUA=0 AND RUB=1 AND RUC=0 THEN 1794
1738 IF RUA=0 AND RUB=0 AND RUC=1 THEN 1798
1740 IF RUA=1 AND RUB=1 AND RUC=0 THEN 1910
1742 IF RUA=1 AND RUB=0 AND RUC=1 THEN 1914
1744 IF RUA=0 AND RUB=1 AND RUC=1 THEN 1918
1746 IF RUA=1 AND RUB=1 AND RUC=1 THEN 1924
1770 GOTO 1990
1780 '
1790 GOSUB *RUCHA:COLOR 2,,,4:LOCATE 60,3:PRINT "●"
1792 GOTO 1990
1794 GOSUB *RUCHA:COLOR 2,,,4:LOCATE 55,1:PRINT "●"
1796 GOTO 1990
1798 GOSUB *RUCHA:COLOR 2,,,4:LOCATE 50,3:PRINT "●"
1800 GOTO 1990
1900 '
1910 GOSUB *RUCHA:COLOR 2,,,4:LOCATE 60,3:PRINT "●":COLOR 2,,,4:LOCATE 55,1:PRINT "●"
1912 GOTO 1990
1914 GOSUB *RUCHA:COLOR 2,,,4:LOCATE 60,3:PRINT "●":COLOR 2,,,4:LOCATE 50,3:PRINT "●"
1916 GOTO 1990
1918 GOSUB *RUCHA:COLOR 2,,,4:LOCATE 55,1:PRINT "●":COLOR 2,,,4:LOCATE 50,3:PRINT "●"
1920 GOTO 1990
1922 '
1924 GOSUB *RUCHA:COLOR 2,,,4:LOCATE 60,3:PRINT "●":COLOR 2,,,4:LOCATE 55,1:PRINT "●":COLOR 2,,,4:LOCATE 50,3:PRINT "●"
1926 GOTO 1990
1927 '
1928 IF RUA=0 AND RUB=0 AND RUC=0 THEN 1990
1929 IF RUA=1 AND RUB=0 AND RUC=0 THEN 1938
1930 IF RUA=0 AND RUB=1 AND RUC=0 THEN 1942
1931 IF RUA=0 AND RUB=0 AND RUC=1 THEN 1946
1932 IF RUA=1 AND RUB=1 AND RUC=0 THEN 1950
1933 IF RUA=1 AND RUB=0 AND RUC=1 THEN 1954
1934 IF RUA=0 AND RUB=1 AND RUC=1 THEN 1958
1935 IF RUA=1 AND RUB=1 AND RUC=1 THEN 1962
1936 '
1938 GOSUB *RUCHA:COLOR 1,,,4:LOCATE 60,3:PRINT "●":GOTO 1990
1940 '
1942 GOSUB *RUCHA:COLOR 1,,,4:LOCATE 55,1:PRINT "●":GOTO 1990
1944 '
1946 GOSUB *RUCHA:COLOR 1,,,4:LOCATE 50,3:PRINT "●":GOTO 1990
1948 '
1950 GOSUB *RUCHA:COLOR 1,,,4:LOCATE 60,3:PRINT "●":COLOR 1,,,4:LOCATE 55,1:PRINT "●":GOTO 1990
1952 '
1954 GOSUB *RUCHA:COLOR 1,,,4:LOCATE 60,3:PRINT "●":COLOR 1,,,4:LOCATE 50,3:PRINT "●":GOTO 1990
1956 '
1958 GOSUB *RUCHA:COLOR 1,,,4:LOCATE 55,1:PRINT "●":COLOR 1,,,4:LOCATE 50,3:PRINT "●":GOTO 1990
1960 '
1962 GOSUB *RUCHA:COLOR 1,,,4:LOCATE 60,3:PRINT "●":COLOR 1,,,4:LOCATE 55,1:PRINT "●":COLOR 1,,,4:LOCATE 50,3:PRINT "●":GOTO 1990
1970 '
1980 '
1990 RETURN
1995 '
2000 *HIT 
2010 '
2110 IF HIT=0 THEN 2150
2120 IF HIT=1 THEN 2170
2150 GOTO 2400
2160 '
2170 IF RUA=0 AND RUB=0 AND RUC=0 THEN 2260
2180 IF RUA=1 AND RUB=0 AND RUC=0 THEN 2280
2190 IF RUA=0 AND RUB=1 AND RUC=0 THEN 2300
2200 IF RUA=0 AND RUB=0 AND RUC=1 THEN 2304
2210 IF RUA=1 AND RUB=1 AND RUC=0 THEN 2308
2220 IF RUA=0 AND RUB=1 AND RUC=1 THEN 2312
2230 IF RUA=1 AND RUB=0 AND RUC=1 THEN 2316
2240 IF RUA=1 AND RUB=1 AND RUC=1 THEN 2320
2250 '
2260 RUA=1:RUB=0:RUC=0
2270 GOTO 2400
2280 RUA=1:RUB=1:RUC=0
2290 GOTO 2400
2300 RUA=1:RUB=0:RUC=1
2302 GOTO 2400
2304 RUA=1:RUB=0:RUC=0:TEN=TEN+1:GOSUB *TOKU1
2306 GOTO 2400
2308 RUA=1:RUB=1:RUC=1
2310 GOTO 2400
2312 RUA=1:RUB=0:RUC=1:TEN=TEN+1:GOSUB *TOKU1
2314 GOTO 2400
2316 RUA=1:RUB=1:RUC=0:TEN=TEN+1:GOSUB *TOKU1
2318 GOTO 2400
2320 RUA=1:RUB=1:RUC=1:TEN=TEN+1:GOSUB *TOKU1
2322 GOTO 2400
2400 HIT=0
2410 RETURN
2420 '
2500 *TBH
2502 '
2504 IF TBH=0 THEN 2510
2506 IF TBH=1 THEN 2520
2510 GOTO 3000
2520 '
2530 IF RUA=0 AND RUB=0 AND RUC=0 THEN 2548
2532 IF RUA=1 AND RUB=0 AND RUC=0 THEN 2550
2534 IF RUA=0 AND RUB=1 AND RUC=0 THEN 2552
2536 IF RUA=0 AND RUB=0 AND RUC=1 THEN 2554
2538 IF RUA=1 AND RUB=1 AND RUC=0 THEN 2556
2540 IF RUA=1 AND RUB=0 AND RUC=1 THEN 2558
2542 IF RUA=0 AND RUB=1 AND RUC=1 THEN 2560
2544 IF RUA=1 AND RUB=1 AND RUC=1 THEN 2562
2546 '
2548 RUA=0:RUB=1:RUC=0:GOTO 3000
2550 RUA=0:RUB=1:RUC=1:GOTO 3000
2552 RUA=0:RUB=1:RUC=0:TEN=TEN+1:GOSUB *TOKU1:GOTO 3000
2554 RUA=0:RUB=1:RUC=0:TEN=TEN+1:GOSUB *TOKU1:GOTO 3000
2556 RUA=0:RUB=1:RUC=1:TEN=TEN+1:GOSUB *TOKU1:GOTO 3000
2558 RUA=0:RUB=1:RUC=1:TEN=TEN+1:GOSUB *TOKU1:GOTO 3000
2560 RUA=0:RUB=1:RUC=0:TEN=TEN+2:GOSUB *TOKU2:GOTO 3000
2562 RUA=0:RUB=1:RUC=1:TEN=TEN+2:GOSUB *TOKU2:GOTO 3000
2600 '
3000 TBH=0:RETURN
3010 '
3020 *SBH
3022 '
3024 IF SBH=0 THEN 3028
3026 IF SBH=1 THEN 3040
3028 GOTO 3200
3040 '
3042 IF RUA=0 AND RUB=0 AND RUC=0 THEN 3062
3044 IF RUA=1 AND RUB=0 AND RUC=0 THEN 3064
3046 IF RUA=0 AND RUB=1 AND RUC=0 THEN 3066
3048 IF RUA=0 AND RUB=0 AND RUC=1 THEN 3068
3050 IF RUA=1 AND RUB=1 AND RUC=0 THEN 3070
3052 IF RUA=1 AND RUB=0 AND RUC=1 THEN 3072
3054 IF RUA=0 AND RUB=1 AND RUC=1 THEN 3074
3056 IF RUA=1 AND RUB=1 AND RUC=1 THEN 3076
3060 '
3062 RUA=0:RUB=0:RUC=1:GOTO 3200
3064 RUA=0:RUB=0:RUC=1:TEN=TEN+1:GOSUB *TOKU1:GOTO 3200
3066 RUA=0:RUB=0:RUC=1:TEN=TEN+1:GOSUB *TOKU1:GOTO 3200
3068 RUA=0:RUB=0:RUC=1:TEN=TEN+1:GOSUB *TOKU1:GOTO 3200
3070 RUA=0:RUB=0:RUC=1:TEN=TEN+2:GOSUB *TOKU2:GOTO 3200
3072 RUA=0:RUB=0:RUC=1:TEN=TEN+2:GOSUB *TOKU2:GOTO 3200
3074 RUA=0:RUB=0:RUC=1:TEN=TEN+2:GOSUB *TOKU2:GOTO 3200
3076 RUA=0:RUB=0:RUC=1:TEN=TEN+3:GOSUB *TOKU3:GOTO 3200
3080 '
3200 SBH=0:RETURN
3210 '
3300 *HR
3310 '
3320 IF HR=0 THEN 3340
3330 IF HR=1 THEN 3352
3340 GOTO 3386
3350 '
3352 IF RUA=0 AND RUB=0 AND RUC=0 THEN 3370
3354 IF RUA=1 AND RUB=0 AND RUC=0 THEN 3372
3356 IF RUA=0 AND RUB=1 AND RUC=0 THEN 3374
3358 IF RUA=0 AND RUB=0 AND RUC=1 THEN 3376
3360 IF RUA=1 AND RUB=1 AND RUC=0 THEN 3378
3362 IF RUA=1 AND RUB=0 AND RUC=1 THEN 3380
3364 IF RUA=0 AND RUB=1 AND RUC=1 THEN 3382
3366 IF RUA=1 AND RUB=1 AND RUC=1 THEN 3384
3368 '
3370 RUA=0:RUB=0:RUC=0:TEN=TEN+1:GOSUB *TOKU1:GOTO 3386
3372 RUA=0:RUB=0:RUC=0:TEN=TEN+2:GOSUB *TOKU2:GOTO 3386
3374 RUA=0:RUB=0:RUC=0:TEN=TEN+2:GOSUB *TOKU2:GOTO 3386
3376 RUA=0:RUB=0:RUC=0:TEN=TEN+2:GOSUB *TOKU2:GOTO 3386
3378 RUA=0:RUB=0:RUC=0:TEN=TEN+3:GOSUB *TOKU3:GOTO 3386
3380 RUA=0:RUB=0:RUC=0:TEN=TEN+3:GOSUB *TOKU3:GOTO 3386
3382 RUA=0:RUB=0:RUC=0:TEN=TEN+3:GOSUB *TOKU3:GOTO 3386
3384 RUA=0:RUB=0:RUC=0:TEN=TEN+4:GOSUB *TOKU4:GOTO 3386
3385 '
3386 HR=0:RETURN
3387 '
3388 *BALL4
3390 '
3392 IF BALL4=0 THEN 3396
3394 IF BALL4=1 THEN 3400
3396 GOTO 4000
3398 '
3400 IF RUA=0 AND RUB=0 AND RUC=0 THEN 3418
3402 IF RUA=1 AND RUB=0 AND RUC=0 THEN 3420
3404 IF RUA=0 AND RUB=1 AND RUC=0 THEN 3422
3406 IF RUA=0 AND RUB=0 AND RUC=1 THEN 3424
3408 IF RUA=1 AND RUB=1 AND RUC=0 THEN 3426
3410 IF RUA=1 AND RUB=0 AND RUC=1 THEN 3428
3412 IF RUA=0 AND RUB=1 AND RUC=1 THEN 3430
3414 IF RUA=1 AND RUB=1 AND RUC=1 THEN 3432
3416 '
3418 RUA=1:RUB=0:RUC=0:GOTO 4000
3420 RUA=1:RUB=1:RUC=0:GOTO 4000
3422 RUA=1:RUB=1:RUC=0:GOTO 4000
3424 RUA=1:RUB=0:RUC=1:GOTO 4000
3426 RUA=1:RUB=1:RUC=1:GOTO 4000
3428 RUA=1:RUB=1:RUC=1:GOTO 4000
3430 RUA=1:RUB=1:RUC=1:GOTO 4000
3432 RUA=1:RUB=1:RUC=1:TEN=TEN+1:GOSUB *TOKU1:GOTO 4000
3860 '
4000 BALL4=0:RETURN
4010 '
4020 *NAGE
4100 IF PLA=2 THEN 4130
4110 IF PLA=0 THEN 4150
4120 '
4130 IF OWA=1 OR OWA=3 OR OWA=5 OR OWA=7 OR OWA=9 OR OWA=11 THEN 5000
4140 GOTO 4215
4150 IF OWA=2 OR OWA=4 OR OWA=6 OR OWA=8 OR OWA=10 OR OWA=11 THEN 5000
4200 GOTO 4215
4215 '
4216 COLOR 7,,,4:LOCATE 15,18:PRINT " チェンジアップ"
4218 COLOR 7,,,4:LOCATE 15,19:PRINT " ストレート    "
4219 COLOR 7,,,4:LOCATE 15,20:PRINT " スライダー    "
4220 COLOR 7,,,4:LOCATE 15,21:PRINT " フォーク      "
4222 '
4224 PAP=PTRIG(1):PBP=PAD(1)
4230 '
4250 LINE(120,340)-(240,440),PSET,0,BF:LINE(120,360)-(240,380),PSET,6,B
4251 NAV=2
4252 '
4253 PAP=PTRIG(1):PBP=PAD(1)
4256 IF PBP=1 THEN 4290 
4262 IF PBP=5 THEN 4292
4263 IF PAP=1 THEN 4460
4280 GOTO 4253
4290 WAIT 10:GOTO 4310
4292 WAIT 10:GOTO 4402
4300 '
4310 LINE(120,340)-(240,440),PSET,0,BF:LINE(120,340)-(240,360),XOR,6,B
4320 NAV=1
4330 '
4332 PAP=PTRIG(1):PBP=PAD(1)
4334 IF PBP=1 THEN 4342 
4336 IF PBP=5 THEN 4344
4338 IF PAP=1 THEN 4460
4340 GOTO 4332
4342 WAIT 10:GOTO 4332
4344 WAIT 10:GOTO 4250
4346 '
4380 '
4402 LINE(120,340)-(240,440),PSET,0,BF:LINE(120,380)-(240,400),XOR,6,B
4404 NAV=4
4406 '
4408 PAP=PTRIG(1):PBP=PAD(1)
4410 IF PBP=1 THEN 4418 
4412 IF PBP=5 THEN 4420
4414 IF PAP=1 THEN 4460
4416 GOTO 4408
4418 WAIT 10:GOTO 4250
4420 WAIT 10:GOTO 4424
4422 '
4424 LINE(120,340)-(240,440),PSET,0,BF:LINE(120,400)-(240,420),XOR,6,B
4426 NAV=5
4428 '
4430 PAP=PTRIG(1):PBP=PAD(1)
4432 IF PBP=1 THEN 4440 
4434 IF PBP=5 THEN 4442
4436 IF PAP=1 THEN 4460
4438 GOTO 4430
4440 WAIT 10:GOTO 4402
4442 WAIT 10:GOTO 4408
4450 '
4460 IF NAV=1 THEN 4900
4462 IF NAV=2 THEN 4900
4464 IF NAV=3 THEN 4900
4466 IF NAV=4 THEN 4900
4468 IF NAV=5 THEN 4900
4470 '
4600 '
4900 GOTO 5420 
5000 '△コンピュータ側投げ
5010 '
5100 IF CO=2 THEN 5130
5110 IF CO=0 THEN 5150
5120 '
5130 IF OWA=1 OR OWA=3 OR OWA=5 OR OWA=7 OR OWA=9 OR OWA=11 THEN 5800
5140 GOTO 5220
5150 IF OWA=2 OR OWA=4 OR OWA=6 OR OWA=8 OR OWA=10 OR OWA=11 THEN 5800
5200 GOTO 5220
5210 '
5220 DAM=RND*10+1
5230 '
5240 IF DAM=6 OR DAM=3 THEN 5300
5250 IF DAM=2 OR DAM=8 THEN 5310
5270 IF DAM=4 OR DAM=9 THEN 5330
5280 IF DAM=5 OR DAM=7 THEN 5340
5290 GOTO 5220
5300 NAV=1:GOTO 5400
5310 NAV=2:GOTO 5400
5330 NAV=4:GOTO 5400
5340 NAV=5:GOTO 5400
5400 '
5402 '
5404 '
5420 'COLOR 7,,,4:LOCATE 20,12:PRINT USING "##";NAV
5430 '
5800 RETURN
5810 '
5820 *UTI'プレイヤー側の攻撃
5830 '
5832 IF PLA=2 THEN 5838
5834 IF PLA=0 THEN 5842
5836 '
5838 IF OWA=2 OR OWA=4 OR OWA=6 OR OWA=8 OR OWA=10 OR OWA=11 THEN 6000
5840 GOTO 5850
5842 IF OWA=1 OR OWA=3 OR OWA=5 OR OWA=7 OR OWA=9 OR OWA=11 THEN 6000
5844 GOTO 5850
5846 '
5850 MSEN=SEN
5852 COLOR 7,,,4:LOCATE 15,18:PRINT " 見てから打つ  "
5854 COLOR 7,,,4:LOCATE 15,19:PRINT " 素早く打つ    "
5856 COLOR 7,,,4:LOCATE 15,20:PRINT " 外す          "
5858 'COLOR 7,,,4:LOCATE 15,21:PRINT " バント"
5860 '
5862 PAP=PTRIG(1):PBP=PAD(1)
5864 '
5866 LINE(120,340)-(240,440),PSET,0,BF:LINE(120,360)-(240,380),PSET,4,B
5868 VAW=1
5870 PAP=PTRIG(1):PBP=PAD(1)
5872 IF PBP=1 THEN 5880 
5874 IF PBP=5 THEN 5882 
5876 IF PAP=1 THEN 6000 
5878 GOTO 5870
5880 WAIT 10:GOTO 5886
5882 WAIT 10:GOTO 5906
5884 '
5886 LINE(120,340)-(240,440),PSET,0,BF:LINE(120,340)-(240,360),PSET,4,B
5888 VAW=2
5890 PAP=PTRIG(1):PBP=PAD(1)
5892 IF PBP=1 THEN 5900 
5894 IF PBP=5 THEN 5902
5896 IF PAP=1 THEN 6000 
5898 GOTO 5890
5900 WAIT 10:GOTO 5890
5902 WAIT 10:GOTO 5866
5904 '
5906 LINE(120,340)-(240,440),PSET,0,BF:LINE(120,380)-(240,400),PSET,4,B
5908 VAW=3
5910 PAP=PTRIG(1):PBP=PAD(1)
5912 IF PBP=1 THEN 5920 
5914 IF PBP=5 THEN 5922
5916 IF PAP=1 THEN 6000 
5918 GOTO 5910
5920 WAIT 10:GOTO 5866
5922 WAIT 10:GOTO 5906
6000 '
6001 'COLOR 2,,,4:LOCATE 36,18:PRINT USING"##";VAW
6010 'コンピュータ側の攻撃
6014 '
6016 IF CO=2 THEN 6022
6018 IF CO=0 THEN 6026
6020 '
6022 IF OWA=2 OR OWA=4 OR OWA=6 OR OWA=8 OR OWA=10 OR OWA=11 THEN 6500
6024 GOTO 6032
6026 IF OWA=1 OR OWA=3 OR OWA=5 OR OWA=7 OR OWA=9 OR OWA=11 THEN 6500
6028 GOTO 6032
6030 '
6032 DAM=RND*8+1
6036 IF DAM=3 OR DAM=6 THEN 6060
6038 IF DAM=5 OR DAM=1 THEN 6070
6040 '
6050 VAW=1:GOTO 6100
6060 VAW=2:GOTO 6100
6070 VAW=3:GOTO 6100 
6080 '
6100 'COLOR 2,,,4:LOCATE 36,18:PRINT USING"##";VAW
6500 RETURN
6510 '
6520 *SYUBI
6524 '
6526 GOSUB *ANAGE
6530 '
6532 DAM=RND*10+1
6534 '
6535 IF DAM=1 THEN 6550
6536 IF DAM=2 THEN 6552
6537 IF DAM=3 THEN 6554
6538 IF DAM=4 THEN 6556
6539 IF DAM=5 THEN 6558
6540 IF DAM=6 THEN 6560
6541 IF DAM=7 THEN 6570
6542 IF DAM=8 THEN 6572
6543 IF DAM=9 THEN 6574
6544 IF DAM=10 THEN 6576
6545 GOTO 6532
6547 '
6550 KAK=1:GOTO 6590
6552 KAK=2:GOTO 6590
6554 KAK=3:GOTO 6590
6556 KAK=4:GOTO 6590
6558 KAK=5:GOTO 6590
6560 KAK=6:GOTO 6590
6570 KAK=7:GOTO 6590
6572 KAK=8:GOTO 6590
6574 KAK=9:GOTO 6590
6576 KAK=10:GOTO 6590
6580 '
6590 '
6600 IF NAV=2 AND VAW=1 THEN 6750
6610 IF NAV=2 AND VAW=2 THEN 6770
6620 IF NAV=2 AND VAW=3 THEN 6800
6622 '
6630 IF NAV=1 AND VAW=1 THEN 6820
6640 IF NAV=1 AND VAW=2 THEN 6840
6650 IF NAV=1 AND VAW=3 THEN 6880
6652 '
6660 IF NAV=4 AND VAW=1 THEN 6920
6670 IF NAV=4 AND VAW=2 THEN 6950
6680 IF NAV=4 AND VAW=3 THEN 7010
6682 '
6690 IF NAV=5 AND VAW=1 THEN 7050
6700 IF NAV=5 AND VAW=2 THEN 7070
6710 IF NAV=5 AND VAW=3 THEN 7110
6720 '
6730 GOTO
6740 '
6750 GOSUB *ATMH:GOSUB *AFURI
6752 IF KAK=1 OR KAK=3 OR KAK=5 OR KAK=7 OR KAK=8 OR KAK=9 OR KAK=10 THEN 6760
6754 IF KAK=2 THEN 6756
6755 GOSUB *AKATI:GOSUB *ACNST:ST=ST+1:GOTO 10000
6756 IF (RND<.3!) THEN 6759
6757 GOTO 6760
6759 GOSUB *DEADBALL:GOTO 10000
6760 GOSUB *AUTI:GOSUB *DOHIT:GOTO 10000 
6762 '
6770 GOSUB *ATMH:GOSUB *AFURI
6771 IF KAK=6 THEN 6780
6772 IF KAK=8 THEN 6776
6774 GOSUB *AKATI:GOSUB *ACNST:ST=ST+1:GOTO 10000
6776 IF (RND<.3!) THEN 6779
6778 GOTO 6774
6779 GOSUB *DEADBALL:GOTO 10000
6780 GOSUB *AUTI:GOSUB *DOHIT:GOTO 10000
6790 '
6800 GOSUB *ATMH:GOSUB *AMIOKU
6802 IF KAK=6 OR KAK=8 OR KAK=9 THEN 6806
6804 GOSUB *AKATI:GOSUB *ACNST:ST=ST+1:GOTO 10000
6806 GOSUB *AKATI:GOSUB *ACNBU:BU=BU+1:GOTO 10000
6810 '
6820 GOSUB *ATMS:GOSUB *AFURI:GOSUB *AKATI:GOSUB *ACNST:ST=ST+1:GOTO 10000
6830 '
6840 GOSUB *ATMS:GOSUB *AFURI
6842 IF KAK=1 OR KAK=3 OR KAK=4 OR KAK=6 OR KAK=7 OR KAK=8 OR KAK=9 THEN 6860
6850 GOSUB *AKATI:GOSUB *ACNST:ST=ST+1:GOTO 10000
6860 GOSUB *AUTI:GOSUB *DOHIT:GOTO 10000
6870 '
6880 GOSUB *ATMS:GOSUB *AMIOKU
6882 IF KAK=2 OR KAK=3 OR KAK=4 OR KAK=5 OR KAK=6 OR KAK=7 OR KAK=9 OR KAK=10 THEN 6900
6890 GOSUB *AKATI:GOSUB *ACNBU:BU=BU+1:GOTO 10000
6900 GOSUB *AKATI:GOSUB *ACNST:ST=ST+1:GOTO 10000
6910 '
6920 GOSUB *ATMK:GOSUB *AFURI
6922 IF KAK=1 OR KAK=3 OR KAK=4 OR KAK=7 OR KAK=8 THEN 6940
6930 IF KAK=2 THEN 6934
6932 GOSUB *AKATI:GOSUB *ACNST:ST=ST+1:GOTO 10000
6934 IF (RND<.3!) THEN 6936
6935 GOTO 6932
6936 GOSUB *DEADBALL:GOTO 10000 
6940 GOSUB *AUTI:GOSUB *DOHIT:GOTO 10000
6942 '
6950 GOSUB *ATMK:GOSUB *AFURI
6952 IF KAK=3 OR KAK=4 OR KAK=6 THEN 6990
6954 IF KAK=9 THEN 6984
6970 GOSUB *AKATI:GOSUB *ACNST:ST=ST+1:GOTO 10000
6984 IF (RND<.3!) THEN 6986
6985 GOTO 6970
6986 GOSUB *DEADBALL:GOTO 10000
6990 GOSUB *AUTI:GOSUB *DOHIT:GOTO 10000
7000 '
7010 GOSUB *ATMK:GOSUB *AMIOKU
7012 IF KAK=1 OR KAK=2 OR KAK=3 OR KAK=4 OR KAK=5 OR KAK=7 OR KAK=9 OR KAK=10 THEN 7030
7020 GOSUB *AKATI:GOSUB *ACNST:ST=ST+1:GOTO 10000
7030 GOSUB *AKATI:GOSUB *ACNBU:BU=BU+1:GOTO 10000
7040 '
7050 GOSUB *ATMF:GOSUB *AFURI:GOSUB *AKATI:GOSUB *ACNST:ST=ST+1:GOTO 10000
7060 '
7070 GOSUB *ATMF:GOSUB *AFURI
7072 IF KAK=4 OR KAK=5 OR KAK=6 OR KAK=7 OR KAK=8 OR KAK=9 OR KAK=10 THEN 7090
7080 GOSUB *AKATI:GOSUB *ACNST:ST=ST+1:GOTO 10000
7090 GOSUB *AUTI:GOSUB *DOHIT:GOTO 10000
7100 '
7110 GOSUB *ATMF:GOSUB *AMIOKU
7112 IF KAK=1 OR KAK=2 OR KAK=3 OR KAK=4 OR KAK=5 OR KAK=6 OR KAK=7 OR KAK=8 OR KAK=9 THEN 7130
7120 GOSUB *AKATI:GOSUB *ACNST:ST=ST+1:GOTO 10000
7130 GOSUB *AKATI:GOSUB *ACNBU:BU=BU+1:GOTO 10000
7140 '
10000 VAW=0:NAV=0
10004 'COLOR 2,,,4:LOCATE 36,19:PRINT USING"##";VAW
10006 'COLOR 2,,,4:LOCATE 36,20:PRINT USING"##";NAV
10010 COLOR 7,,,4:LOCATE 15,18:PRINT "                 "
10012 COLOR 7,,,4:LOCATE 15,19:PRINT "                 "
10014 COLOR 7,,,4:LOCATE 15,20:PRINT "                 "
10016 COLOR 7,,,4:LOCATE 15,21:PRINT "                 "
10018 LINE(120,360)-(240,440),PSET,0,BF'
10030 RETURN
10040 '
11000 *DOHIT
11002 '
11004 IF DAR=1 THEN 11020
11006 IF DAR=2 THEN 11070
11008 IF DAR=3 THEN 11140
11010 '
11020 DAM=RND*11+1
11025 IF DAM=2 OR DAM=5 OR DAM=7 OR DAM=8 OR DAM=9 OR DAM=10 THEN 11050
11035 IF DAM=1 THEN 11055
11037 IF DAM=3 THEN 11055
11040 '
11045 GOSUB *FAULU:GOTO 12000
11050 GOSUB *DOOU:OU=OU+1:ST=0:BU=0:SEN=SEN+1:GOTO 12000
11055 GOSUB *DOREHIT:ST=0:BU=0:SEN=SEN+1:GOTO 12000
11060 ''GOSUB *ADERUI:TBH=TBH+1:ST=0:BU=0:SEN=SEN+1:GOTO 12000
11065 '
11067 '
11069 '
11070 DAM=RND*11+1
11075 IF DAM=1 OR DAM=2 OR DAM=3 OR DAM=5 OR DAM=6 THEN 11105
11080 IF DAM=4 THEN 11110
11085 IF DAM=8 THEN 11110
11090 IF DAM=9 THEN 11110
11095 '
11100 GOSUB *FAULU:GOTO 12000
11105 GOSUB *DOOU:OU=OU+1:ST=0:BU=0:SEN=SEN+1:GOTO 12000
11110 GOSUB *DOREHIT:ST=0:BU=0:SEN=SEN+1:GOTO 12000
11115 ''GOSUB *ADERUI:TBH=TBH+1:ST=0:BU=0:SEN=SEN+1:GOTO 12000
11120 ''GOSUB *ADERUI:SBH=SBH+1:ST=0:BU=0:SEN=SEN+1:GOTO 12000
11125 '
11130 '
11135 '
11140 DAM=RND*11+1
11145 IF DAM=1 OR DAM=2 OR DAM=5 OR DAM=6 THEN 11175
11150 IF DAM=4 THEN 11180
11155 IF DAM=8 OR DAM=7 THEN 11180
11160 IF DAM=9 THEN 11180
11165 '
11170 GOSUB *FAULU:GOTO 12000
11175 GOSUB *DOOU:OU=OU+1:ST=0:BU=0:SEN=SEN+1:GOTO 12000
11180 GOSUB *DOREHIT:ST=0:BU=0:SEN=SEN+1:GOTO 12000
11185 ''GOSUB *ADERUI:TBH=TBH+1:ST=0:BU=0:SEN=SEN+1:GOTO 12000
11190 ''GOSUB *ADERUI:SBH=SBH+1:ST=0:BU=0:SEN=SEN+1:GOTO 12000
11195 '
11200 '
12000 RETURN
12002 '
12010 '
12020 *RUCHA
12030 COLOR 2,,,4:LOCATE 60,3:PRINT "  "
12040 COLOR 2,,,4:LOCATE 55,1:PRINT "  "
12050 COLOR 2,,,4:LOCATE 50,3:PRINT "  "
12100 RETURN
12110 '
12120 *SENSYU
12122 '
12124 'プレイヤ−側選手
12126 '
12128 IF PLA=2 THEN 12134
12130 IF PLA=0 THEN 12138
12132 '
12134 IF OWA=2 OR OWA=4 OR OWA=6 OR OWA=8 OR OWA=10 OR OWA=11 THEN 13000
12136 GOTO 12150
12138 IF OWA=1 OR OWA=3 OR OWA=5 OR OWA=7 OR OWA=9 OR OWA=11 THEN 13000
12140 GOTO 12150
12150 '
12182 MSEN=SEN
12190 '
12192 'COLOR 7,,,4:LOCATE 36,11:PRINT USING"##";SEN
12195 'COLOR 7,,,4:LOCATE 36,12:PRINT USING"##";MSEN
12197 'COLOR 7,,,4:LOCATE 36,13:PRINT USING"##";CSEN
12198 '
12200 '
12202 IF MSEN=10 THEN 12630
12204 IF MSEN=9 THEN 12590
12206 IF MSEN=8 THEN 12550
12208 IF MSEN=7 THEN 12510
12210 IF MSEN=6 THEN 12470
12212 IF MSEN=5 THEN 12430
12214 IF MSEN=4 THEN 12390
12216 IF MSEN=3 THEN 12350
12218 IF MSEN=2 THEN 12290
12220 IF MSEN=1 THEN 12240
12224 GOTO 12202
12230 '
12240 COLOR 7,,,4:LOCATE 46,19:PRINT "一番  リー    　"
12242 COLOR 7,,,4:LOCATE 46,20:PRINT "打率  ２．６５　"
12243 COLOR 7,,,4:LOCATE 46,21:PRINT "守備  ライト　    "
12244 PUT@A (260,350)-(400,450),CAA%,PSET
12260 '
12270 DAR=2
12280 GOTO 13000
12288 '
12290 COLOR 7,,,4:LOCATE 46,19:PRINT "二番  タク坊  　"
12292 COLOR 7,,,4:LOCATE 46,20:PRINT "打率  ２．５５　"
12293 COLOR 7,,,4:LOCATE 46,21:PRINT "守備  セカンド　  "
12294 PUT@A (260,350)-(400,450),CAB%,PSET
12300 '
12320 DAR=2
12340 GOTO 13000
12342 '
12350 COLOR 7,,,4:LOCATE 46,19:PRINT "三番  犬丸    　"
12355 COLOR 7,,,4:LOCATE 46,20:PRINT "打率  ２．９４　"
12356 COLOR 7,,,4:LOCATE 46,21:PRINT "守備  ファースト  "
12357 PUT@A (260,350)-(400,450),CAC%,PSET
12360 '
12370 DAR=3
12380 GOTO 13000
12382 '
12390 COLOR 7,,,4:LOCATE 46,19:PRINT "四番  ケンちゃん"
12395 COLOR 7,,,4:LOCATE 46,20:PRINT "打率  ３．２４  "
12396 COLOR 7,,,4:LOCATE 46,21:PRINT "守備  キャッチャー"
12397 PUT@A (260,350)-(400,450),CAD%,PSET
12400 '
12410 DAR=3
12420 GOTO 13000
12422 '
12430 COLOR 7,,,4:LOCATE 46,19:PRINT "五番  コー助    "
12435 COLOR 7,,,4:LOCATE 46,20:PRINT "打率  ２．７４  "
12436 COLOR 7,,,4:LOCATE 46,21:PRINT "守備  ショート    "
12437 PUT@A (260,350)-(400,450),CAE%,PSET
12440 '
12450 DAR=2
12460 GOTO 13000
12462 '
12470 COLOR 7,,,4:LOCATE 46,19:PRINT "六番  トメちん  "
12475 COLOR 7,,,4:LOCATE 46,20:PRINT "打率  ２．４８  "
12476 COLOR 7,,,4:LOCATE 46,21:PRINT "守備  レフト      "
12477 PUT@A (260,350)-(400,450),CAF%,PSET
12480 '
12490 DAR=2
12500 GOTO 13000
12502 '
12510 COLOR 7,,,4:LOCATE 46,19:PRINT "七番  テル      "
12515 COLOR 7,,,4:LOCATE 46,20:PRINT "打率  ２．２２　"
12516 COLOR 7,,,4:LOCATE 46,21:PRINT "守備  サード      "
12517 PUT@A (260,350)-(400,450),CAG%,PSET
12520 '
12530 DAR=2
12540 GOTO 13000
12542 '
12550 COLOR 7,,,4:LOCATE 46,19:PRINT "八番  くく　　　"
12555 COLOR 7,,,4:LOCATE 46,20:PRINT "打率　１．９７　"
12556 COLOR 7,,,4:LOCATE 46,21:PRINT "守備  センター    "
12557 PUT@A (260,350)-(400,450),CAH%,PSET
12560 '
12570 DAR=1
12580 GOTO 13000
12582 '
12590 COLOR 7,,,4:LOCATE 46,19:PRINT "九番  局たま　　"
12595 COLOR 7,,,4:LOCATE 46,20:PRINT "打率　１．５４　"
12596 COLOR 7,,,4:LOCATE 46,21:PRINT "守備  ピッチャー  "
12597 PUT@A (260,350)-(400,450),CAI%,PSET
12600 '
12610 DAR=1
12620 GOTO 13000
12622 '
12630 MSEN=1:SEN=1
12640 GOTO 12200
12700 '
13000 'コンピュータ選手
13002 '
13004 IF CO=2 THEN 13010
13006 IF CO=0 THEN 13014
13008 '
13010 IF OWA=2 OR OWA=4 OR OWA=6 OR OWA=8 OR OWA=10 OR OWA=11 THEN 14000
13012 GOTO 13020
13014 IF OWA=1 OR OWA=3 OR OWA=5 OR OWA=7 OR OWA=9 OR OWA=11 THEN 14000
13016 GOTO 13020
13018 '
13020 CSEN=SEN
13022 '
13024 'COLOR 7,,,4:LOCATE 36,11:PRINT USING"##";SEN
13026 'COLOR 7,,,4:LOCATE 36,12:PRINT USING"##";MSEN
13028 'COLOR 7,,,4:LOCATE 36,13:PRINT USING"##";CSEN
13030 '
13040 IF CSEN=1 THEN 13080
13042 IF CSEN=2 THEN 13120
13044 IF CSEN=3 THEN 13160
13046 IF CSEN=4 THEN 13200
13048 IF CSEN=5 THEN 13240
13050 IF CSEN=6 THEN 13280
13052 IF CSEN=7 THEN 13320
13054 IF CSEN=8 THEN 13360
13056 IF CSEN=9 THEN 13400
13058 IF CSEN=10 THEN 13450
13060 GOTO 14000
13070 '
13080 COLOR 7,,,4:LOCATE 46,19:PRINT "一番  佐藤　  　"
13082 COLOR 7,,,4:LOCATE 46,20:PRINT "打率  ２．６０  "
13083 COLOR 7,,,4:LOCATE 46,21:PRINT "守備  ファースト  "
13084 PUT@A (260,350)-(400,450),GMA%,PSET
13090 '
13100 DAR=2
13110 GOTO 14000
13112 '
13120 COLOR 7,,,4:LOCATE 46,19:PRINT "二番  鈴木      "
13122 COLOR 7,,,4:LOCATE 46,20:PRINT "打率  ２．７７  "
13123 COLOR 7,,,4:LOCATE 46,21:PRINT "守備  ショート    "
13124 PUT@A (260,350)-(400,450),GMB%,PSET
13130 '
13140 DAR=2
13150 GOTO 14000
13152 '
13160 COLOR 7,,,4:LOCATE 46,19:PRINT "三番  高橋      "
13162 COLOR 7,,,4:LOCATE 46,20:PRINT "打率  ３．０１  "
13163 COLOR 7,,,4:LOCATE 46,21:PRINT "守備  センター    "
13164 PUT@A (260,350)-(400,450),GMC%,PSET
13170 '
13180 DAR=3
13190 GOTO 14000
13192 '
13200 COLOR 7,,,4:LOCATE 46,19:PRINT "四番  田中      "
13202 COLOR 7,,,4:LOCATE 46,20:PRINT "打率  ３．２１  "
13203 COLOR 7,,,4:LOCATE 46,21:PRINT "守備  サード      "
13204 PUT@A (260,350)-(400,450),GMD%,PSET
13210 '
13220 DAR=3
13230 GOTO 14000
13232 '
13240 COLOR 7,,,4:LOCATE 46,19:PRINT "五番  渡辺      "
13242 COLOR 7,,,4:LOCATE 46,20:PRINT "打率  ２．６３  "
13243 COLOR 7,,,4:LOCATE 46,21:PRINT "守備  セカンド    "
13244 PUT@A (260,350)-(400,450),GME%,PSET
13250 '
13260 DAR=2
13270 GOTO 14000
13272 '
13280 COLOR 7,,,4:LOCATE 46,19:PRINT "六番  加藤      "
13282 COLOR 7,,,4:LOCATE 46,20:PRINT "打率  ２．４３  "
13283 COLOR 7,,,4:LOCATE 46,21:PRINT "守備  ピッチャー  "
13284 PUT@A (260,350)-(400,450),GMF%,PSET
13290 '
13300 DAR=2
13310 GOTO 14000
13312 '
13320 COLOR 7,,,4:LOCATE 46,19:PRINT "七番  木村      "
13322 COLOR 7,,,4:LOCATE 46,20:PRINT "打率  ２．２４　"
13323 COLOR 7,,,4:LOCATE 46,21:PRINT "守備  キャッチャー"
13324 PUT@A (260,350)-(400,450),GMG%,PSET
13330 '
13340 DAR=2
13350 GOTO 14000
13352 '
13360 COLOR 7,,,4:LOCATE 46,19:PRINT "八番  山本      "
13362 COLOR 7,,,4:LOCATE 46,20:PRINT "打率  １．９４  "
13363 COLOR 7,,,4:LOCATE 46,21:PRINT "守備  レフト      "
13364 PUT@A (260,350)-(400,450),GMH%,PSET
13370 '
13380 DAR=1
13390 GOTO 14000
13392 '
13400 COLOR 7,,,4:LOCATE 46,19:PRINT "九番  石井      "
13402 COLOR 7,,,4:LOCATE 46,20:PRINT "打率  １．７８  "
13403 COLOR 7,,,4:LOCATE 46,21:PRINT "守備  ライト      "
13404 PUT@A (260,350)-(400,450),GMI%,PSET
13410 '
13420 DAR=1
13430 GOTO 14000
13440 '
13450 CSEN=1:SEN=1
13460 GOTO 13030
13470 '
14000 RETURN
14010 '
14020 *SC
14030 '
14040 IF PLA=2 THEN 14060
14042 IF PLA=0 THEN 14080
14050 '
14060 IF OWA=2 OR OWA=4 OR OWA=6 OR OWA=8 OR OWA=10 OR OWA=11 THEN 14500
14070 GOTO 14300
14080 IF OWA=1 OR OWA=3 OR OWA=5 OR OWA=7 OR OWA=9 OR OWA=11 THEN 14500
14090 GOTO 14300
14150 '
14300 IF MSEN=1 THEN 14320
14302 IF MSEN=2 THEN 14322
14304 IF MSEN=3 THEN 14324
14306 IF MSEN=4 THEN 14326
14308 IF MSEN=5 THEN 14328
14310 IF MSEN=6 THEN 14330
14312 IF MSEN=7 THEN 14332
14314 IF MSEN=8 THEN 14334
14316 IF MSEN=9 THEN 14336
14318 '
14320 SEN=2:GOTO 14500
14322 SEN=3:GOTO 14500
14324 SEN=4:GOTO 14500
14326 SEN=5:GOTO 14500
14328 SEN=6:GOTO 14500
14330 SEN=7:GOTO 14500
14332 SEN=8:GOTO 14500
14334 SEN=9:GOTO 14500
14336 SEN=1:GOTO 14500
14338 '
14500 IF CO=2 THEN 14530
14510 IF CO=0 THEN 14550
14528 '
14530 IF OWA=2 OR OWA=4 OR OWA=6 OR OWA=8 OR OWA=10 OR OWA=11 THEN 15200
14540 GOTO 15000
14550 IF OWA=1 OR OWA=3 OR OWA=5 OR OWA=7 OR OWA=9 OR OWA=11 THEN 15200
14560 GOTO 15000
15000 '
15001 IF CSEN=1 THEN 15020
15002 IF CSEN=2 THEN 15022
15004 IF CSEN=3 THEN 15024
15006 IF CSEN=4 THEN 15026
15008 IF CSEN=5 THEN 15028
15010 IF CSEN=6 THEN 15030
15012 IF CSEN=7 THEN 15032
15014 IF CSEN=8 THEN 15034
15016 IF CSEN=9 THEN 15036
15018 '
15020 SEN=2:GOTO 15200
15022 SEN=3:GOTO 15200
15024 SEN=4:GOTO 15200
15026 SEN=5:GOTO 15200
15028 SEN=6:GOTO 15200
15030 SEN=7:GOTO 15200
15032 SEN=8:GOTO 15200
15034 SEN=9:GOTO 15200
15036 SEN=1:GOTO 15200
15200 RETURN
15220 '
15250 *YOMU2
15260 DIM GAA%(500):DIM GAB%(500):DIM GAC%(500):DIM GAD%(500)
15262 DIM GAE%(500):DIM GAF%(500):DIM GAG%(500)
15300 LOAD@ "IM007.TIF"
15310 GET@A (0,0)-(30,40),GAA%
15320 CLS
15330 LOAD@ "IM008.TIF"
15340 GET@A (0,0)-(30,40),GAB%
15350 CLS
15360 LOAD@ "IM009.TIF"
15370 GET@A (0,0)-(30,40),GAC%
15380 CLS
15390 LOAD@ "IM010.TIF"
15400 GET@A (0,0)-(30,40),GAD%
15410 CLS
15420 LOAD@ "IM011.TIF"
15430 GET@A (0,0)-(30,40),GAE%
15440 CLS
15450 LOAD@ "IM015.TIF"
15460 GET@A (0,0)-(30,40),GAF%
15470 CLS
15480 LOAD@ "IM016.TIF"
15490 GET@A (0,0)-(30,40),GAG%
15500 CLS
16000 RETURN
16010 '
16020 *ANAGE
16030 '
16100 PUT@A(130,110)-(160,150),GAA%,PSET,6,5.5!:WAIT 20
16110 PUT@A(130,110)-(160,150),GAB%,PSET,6,5.5!:WAIT 4
16120 PUT@A(130,110)-(160,150),GAC%,PSET,6,5.5!:WAIT 4
16130 PUT@A(130,110)-(160,150),GAD%,PSET,6,5.5!:WAIT 4
16135 PCMPLAY OTE%,40
16140 PUT@A(130,110)-(160,150),GAE%,PSET,6,5.5!:WAIT 4
16145 PUT@A(130,110)-(160,150),GAF%,PSET,6,5.5!:WAIT 4
16148 PUT@A(130,110)-(160,150),GAG%,PSET,6,5.5!:WAIT 4
16150 LINE (130,110)-(320,330),PSET,0,BF
16300 RETURN
16302 '
16310 *YOMU3
16320 DIM GAH%(500):DIM GAI%(500):DIM GAJ%(500):DIM GAK%(500)
16325 DIM GAL%(500)
16330 '
16340 LOAD@ "IM020.TIF"
16350 GET@A (0,0)-(40,30),GAH%
16360 CLS
16370 LOAD@ "IM021.TIF"
16380 GET@A (0,0)-(40,30),GAI%
16390 CLS
16400 LOAD@ "IM022.TIF"
16410 GET@A (0,0)-(40,30),GAJ%
16420 CLS
16430 LOAD@ "IM023.TIF"
16440 GET@A (0,0)-(40,30),GAK%
16450 CLS
16460 LOAD@ "IM024.TIF"
16470 GET@A (0,0)-(40,30),GAL%
16480 CLS
16500 RETURN
16510 '
16520 *ASLB
16522 '
16530 PUT@A(200,150)-(240,180),GAH%,PSET,6,6:WAIT 1
16540 PUT@A(200,150)-(240,180),GAI%,PSET,6,6:WAIT 1
16550 PUT@A(200,150)-(240,180),GAJ%,PSET,6,6:WAIT 1
16560 PUT@A(200,150)-(240,180),GAK%,PSET,6,6:WAIT 1
16570 PUT@A(200,150)-(240,180),GAL%,PSET,6,6:WAIT 1
16580 LINE (200,150)-(450,320),PSET,0,BF
16600 RETURN
16610 '
16620 *AHIB
16630 PUT@A(200,150)-(240,180),GAH%,PSET,6,6:WAIT 2
16650 PUT@A(200,150)-(240,180),GAJ%,PSET,6,6:WAIT 2
16670 PUT@A(200,150)-(240,180),GAL%,PSET,6,6:WAIT 2
16680 LINE (200,150)-(450,320),PSET,0,BF
16690 RETURN
16700 '
16720 *SYOMU
16740 DIM CAA%(4000):DIM CAB%(4000):DIM CAC%(4000):DIM CAD%(4000)
16742 DIM CAE%(4000):DIM CAF%(4000):DIM CAG%(4000):DIM CAH%(4000)
16744 DIM CAI%(4000)
16770 LOAD@ "IM013.TIF" 
16780 GET@A(0,0)-(140,100),CAA%
16790 CLS
16800 LOAD@ "IM025.TIF" 
16810 GET@A(0,0)-(140,100),CAB%
16820 CLS
16830 LOAD@ "IM026.TIF" 
16840 GET@A(0,0)-(140,100),CAC%
16850 CLS
16860 LOAD@ "IM027.TIF" 
16870 GET@A(0,0)-(140,100),CAD%
16880 CLS
16890 LOAD@ "IM029.TIF" 
16900 GET@A(0,0)-(140,100),CAE%
16910 CLS
16920 LOAD@ "IM030.TIF" 
16930 GET@A(0,0)-(140,100),CAF%
16940 CLS
16950 LOAD@ "IM031.TIF" 
16960 GET@A(0,0)-(140,100),CAG%
16970 CLS
16980 LOAD@ "IM032.TIF" 
16990 GET@A(0,0)-(140,100),CAH%
17000 CLS
17010 LOAD@ "IM033.TIF" 
17020 GET@A(0,0)-(140,100),CAI%
17030 CLS
17500 RETURN
17510 '
17520 *SCA
17530 IF PLA=2 THEN 17550
17540 IF PLA=0 THEN 17570
17545 '
17550 IF OWA=2 OR OWA=4 OR OWA=6 OR OWA=8 OR OWA=10 OR OWA=11 THEN 17620
17560 GOTO 17590 
17570 IF OWA=1 OR OWA=3 OR OWA=5 OR OWA=7 OR OWA=9 OR OWA=11 THEN 17620
17580 GOTO 17590
17585 '
17590 IF MSEN=1 THEN 17610
17592 '
17594 GOTO 
17600 '
17610 SEN=1
17620 '
17630 IF CO=2 THEN 17660
17640 IF CO=0 THEN 17680
17650 '
17660 IF OWA=2 OR OWA=4 OR OWA=6 OR OWA=8 OR OWA=10 OR OWA=11 THEN 17740
17670 GOTO 17700
17680 IF OWA=1 OR OWA=3 OR OWA=5 OR OWA=7 OR OWA=9 OR OWA=11 THEN 17740
17690 GOTO 17700
17695 '
17700 IF CSEN=1 THEN 17720
17710 '
17712 GOTO
17714 '
17720 SEN=1
17740 RETURN
17750 '
17760 *YOMU5
17762 '
17764 DIM GBA%(500),GBB%(500),GBC%(500),GBD%(500),GBE%(500)
17766 '
17770 LOAD@ "IM035.TIF"
17772 GET@A (0,0)-(40,30),GBA%
17774 CLS
17776 LOAD@ "IM036.TIF"
17778 GET@A (0,0)-(40,30),GBB%
17780 CLS
17782 LOAD@ "IM037.TIF"
17784 GET@A (0,0)-(40,30),GBC%
17786 CLS
17788 LOAD@ "IM040.TIF"
17790 GET@A (0,0)-(40,30),GBD%
17792 CLS
17794 LOAD@ "IM039.TIF"
17796 GET@A (0,0)-(40,30),GBE%
17798 CLS
17850 RETURN
17880 '
17882 *ATMS
17890 PUT@A(200,130)-(240,160),GBA%,PSET,6,6:WAIT 1
17900 PUT@A(200,130)-(240,160),GBB%,PSET,6,6:WAIT 1
17910 PUT@A(200,130)-(240,160),GBC%,PSET,6,6:WAIT 1
17920 PUT@A(200,130)-(240,160),GBD%,PSET,6,6:WAIT 1
17930 PUT@A(200,130)-(240,160),GBE%,PSET,6,6:WAIT 1
17935 LINE(200,130)-(400,330),PSET,0,BF
17940 RETURN
17950 '
17960 *ATMH
17970 PUT@A(200,130)-(240,160),GBA%,PSET,6,6:WAIT 1
17980 PUT@A(200,130)-(240,160),GBC%,PSET,6,6:WAIT 1
17990 PUT@A(200,130)-(240,160),GBE%,PSET,6,6:WAIT 1
17995 LINE(200,130)-(400,330),PSET,0,BF
17998 RETURN
18000 '
18002 *YOMU6
18004 '
18006 DIM GBF%(500),GBG%(500),GBH%(500),GBI%(500),GBJ%(500),GBK%(500)
18008 '
18010 LOAD@ "IM041.TIF"
18012 GET@A (0,0)-(40,30),GBF%
18014 CLS
18016 LOAD@ "IM042.TIF"
18018 GET@A (0,0)-(40,30),GBG%
18020 CLS
18022 LOAD@ "IM043.TIF"
18024 GET@A (0,0)-(40,30),GBH%
18026 CLS
18027 '
18028 'LOAD@ "IM044.TIF"
18030 'GET@A (0,0)-(40,30),GBI%
18032 'CLS
18034 LOAD@ "IM045.TIF"
18036 GET@A (0,0)-(40,30),GBJ%
18038 CLS
18040 LOAD@ "IM046.TIF"
18042 GET@A (0,0)-(40,30),GBK%
18044 CLS
18050 RETURN
18060 '
18070 *ATMK
18080 PUT@A(200,130)-(240,160),GBA%,PSET,6,6:WAIT 1
18090 'PUT@A(200,130)-(240,160),GBB%,PSET,6,6:WAIT 1
18092 PUT@A(200,130)-(240,160),GBF%,PSET,6,6:WAIT 1
18094 PUT@A(200,130)-(240,160),GBG%,PSET,6,6:WAIT 1
18096 PUT@A(200,130)-(240,160),GBH%,PSET,6,6:WAIT 1
18098 LINE(200,130)-(400,330),PSET,0,BF
18100 RETURN
18102 '
18110 *ATMF
18112 PUT@A(200,130)-(240,160),GBA%,PSET,6,6:WAIT 1
18114 PUT@A(200,130)-(240,160),GBB%,PSET,6,6:WAIT 1
18116 PUT@A(200,130)-(240,160),GBC%,PSET,6,6:WAIT 1
18118 PUT@A(200,130)-(240,160),GBJ%,PSET,6,6:WAIT 1
18120 PUT@A(200,130)-(240,160),GBK%,PSET,6,6:WAIT 1
18122 LINE(200,130)-(400,330),PSET,0,BF
18130 RETURN
18135 '
18140 *YOMU7 
18142 '
18150 DIM GDA%(500),GDB%(500),GDC%(500)
18155 '
18160 LOAD@ "IM047.TIF"
18170 GET@A (0,0)-(30,40),GDA%
18180 CLS
18182 LOAD@ "IM048.TIF"
18184 GET@A (0,0)-(30,40),GDB%
18186 CLS
18188 LOAD@ "IM049.TIF"
18190 GET@A (0,0)-(30,40),GDC%
18192 CLS
18195 RETURN
18200 '
18210 *AFURI
18220 PUT@A(300,110)-(330,150),GDA%,PSET,6,5.5!:WAIT 3
18230 PUT@A(300,110)-(330,150),GDB%,PSET,6,5.5!:WAIT 2
18242 PUT@A(300,110)-(330,150),GDC%,PSET,6,5.5!:WAIT 2
18250 LINE(200,110)-(500,330),PSET,0,BF
18260 RETURN
18270 '
18280 *AMIOKU
18290 PUT@A(300,110)-(330,150),GDA%,PSET,6,5.5!:WAIT 7
18300 LINE(200,110)-(500,330),PSET,0,BF
18310 RETURN
18320 '
18330 *YOMU8
18340 DIM GEB%(500),GEC%(500),GED%(500),GEF%(500)
18350 'LOAD@ "IM051.TIF"
18360 'GET@A (0,0)-(30,40),GEA%
18370 'CLS
18380 LOAD@ "IM050.TIF"
18390 GET@A (0,0)-(30,40),GEB%
18400 CLS
18410 LOAD@ "IM052.TIF"
18420 GET@A (0,0)-(30,40),GEC%
18430 CLS
18440 LOAD@ "IM053.TIF"
18450 GET@A (0,0)-(30,40),GED%
18460 CLS
18470 'LOAD@ "IM054.TIF"
18480 'GET@A (0,0)-(30,40),GEE%
18490 'CLS
18500 LOAD@ "IM055.TIF"
18510 GET@A (0,0)-(30,40),GEF%
18520 CLS
18530 RETURN
18540 '
18550 *AUTI
18560 PUT@A(300,110)-(330,150),GEC%,PSET,6,5.5!:WAIT 1
18570 PUT@A(300,110)-(330,150),GEB%,PSET,6,5.5!:WAIT 1
18580 'PUT@A(300,110)-(330,150),GEA%,PSET,6,5.5!:WAIT 1
18585 PCMPLAY OTB%,120
18590 PUT@A(300,110)-(330,150),GED%,PSET,6,5.5!:WAIT 1
18600 'PUT@A(300,110)-(330,150),GEE%,PSET,6,5.5!:WAIT 1
18602 PALETTE 0,1:WAIT 1
18604 PALETTE 0,0
18610 PUT@A(300,110)-(330,150),GEF%,PSET,6,5.5!:WAIT 1
18620 LINE(200,110)-(500,330),PSET,0,BF
18630 RETURN
18640 '
18650 *YOMU9
18660 DIM GFA%(500),GFC%(500)
18670 LOAD@ "IM057.TIF"
18680 GET@A (0,0)-(30,40),GFA%
18690 CLS
18700 'LOAD@ "IM058.TIF"
18710 'GET@A (0,0)-(30,40),GFB%
18720 'CLS
18730 LOAD@ "IM059.TIF"
18740 GET@A (0,0)-(30,40),GFC%
18750 CLS
18760 RETURN
18770 '
18780 *AKATI
18790 PCMPLAY OTA%,120
18800 PUT@A(340,110)-(370,150),GFC%,PSET,6,5.5!:WAIT 1
18810 PUT@A(340,110)-(370,150),GFA%,PSET,6,5.5!:WAIT 4
18820 LINE(200,110)-(550,330),PSET,0,BF
18830 RETURN
18840 '
18850 *YOMU10
18860 DIM GFE%(500),GFF%(500),GFG%(500),GFH%(500),GFI%(500)
18870 LOAD@ "IM060.TIF"
18880 GET@A(0,0)-(30,40),GFE%
18890 CLS
18900 LOAD@ "IM061.TIF"
18910 GET@A(0,0)-(30,40),GFF%
18920 CLS
18930 LOAD@ "IM062.TIF"
18940 GET@A(0,0)-(30,40),GFG%
18950 CLS
18960 LOAD@ "IM063.TIF"
18970 GET@A(0,0)-(30,40),GFH%
18980 CLS
18990 LOAD@ "IM064.TIF"
19000 GET@A(0,0)-(30,40),GFI%
19010 CLS
19020 RETURN
19030 '
19040 *ACNST
19045 WAIT 1:PCMPLAY OTC%,50
19047 SYMBOL (160,160),"ストライク",2.2!,4,6
19050 PUT@A(340,110)-(370,150),GFE%,PSET,6,5.5!:WAIT 1
19060 PUT@A(340,110)-(370,150),GFF%,PSET,6,5.5!:WAIT 1
19070 PUT@A(340,110)-(370,150),GFG%,PSET,6,5.5!:WAIT 1
19080 LINE(160,110)-(550,330),PSET,0,BF
19090 RETURN
19100 '
19110 *ASANSIN
19115 PCMPLAY OTD%,60:WAIT 1
19120 PUT@A(340,110)-(370,150),GFG%,PSET,6,5.5!:WAIT 3
19130 PUT@A(340,110)-(370,150),GFH%,PSET,6,5.5!:WAIT 3
19140 PUT@A(340,110)-(370,150),GFI%,PSET,6,5.5!:WAIT 15
19150 LINE(200,110)-(550,330),PSET,0,BF
19160 RETURN
19170 '
19180 *FAULU
19181 '
19182 GOSUB *AFAARU
19185 '
19190 IF ST=1 OR ST=0 THEN 19200
19192 IF ST=2 THEN 19220
19195 '
19200 ST=ST+1:GOTO 19220
19220 RETURN
19230 '
19240 *YOMU11 
19250 DIM GHA%(500),GHB%(500),GHC%(500),GHE%(500),GHF%(500),GHG%(500)
19270 LOAD@ "IM065.TIF"
19280 GET@A (0,0)-(30,40),GHA%
19290 CLS
19300 LOAD@ "IM066.TIF"
19310 GET@A (0,0)-(30,40),GHB%
19320 CLS
19330 LOAD@ "IM067.TIF"
19340 GET@A (0,0)-(30,40),GHC%
19350 CLS
19360 LOAD@ "IM068.TIF"
19370 GET@A (0,0)-(30,40),GHE%
19380 CLS
19390 LOAD@ "IM069.TIF"
19400 GET@A (0,0)-(30,40),GHF%
19410 CLS
19420 LOAD@ "IM070.TIF"
19430 GET@A (0,0)-(30,40),GHG%
19440 CLS
19500 RETURN
19510 '
19520 *AOU
19530 PUT@A(240,110)-(270,150),GHA%,PSET,6,5.5!:WAIT 3
19540 PUT@A(240,110)-(270,150),GHB%,PSET,6,5.5!:WAIT 3
19545 PCMPLAY OTA%,90
19550 PUT@A(240,110)-(270,150),GHC%,PSET,6,5.5!
19552 PALETTE 0,2:WAIT 2
19554 PALETTE 0,0:WAIT 10
19560 LINE(200,110)-(550,330),PSET,0,BF
19570 RETURN
19580 '
19590 *AFAARU
19595 PCMPLAY OTK%,70
19597 SYMBOL (160,160),"ファール",2.2!,4,7
19600 PUT@A(360,110)-(390,150),GHE%,PSET,6,5.5!:WAIT 2
19610 PUT@A(360,110)-(390,150),GHF%,PSET,6,5.5!:WAIT 2
19620 PUT@A(360,110)-(390,150),GHG%,PSET,6,5.5!:WAIT 2
19630 LINE(160,110)-(550,330),PSET,0,BF
19640 RETURN
19650 '
19651 *DOOU
19656 '
19658 IF OU=1 AND RUA=1 AND RUB=0 AND RUC=1 THEN 19670
19660 IF OU=1 AND RUA=1 AND RUB=1 AND RUC=1 THEN 19670
19662 IF OU=1 AND RUA=1 AND RUB=1 AND RUC=0 THEN 19670
19664 IF OU=0 AND RUA=1 AND RUB=0 AND RUC=0 THEN 19670
19665 IF OU=1 AND RUA=1 AND RUB=0 AND RUC=0 THEN 19670
19666 IF RUA=0 AND RUB=0 AND RUC=0 THEN 19682
19667 IF OU=2 THEN 19682
19668 GOTO 19700
19669 '
19670 DAM=RND*6+1 
19672 IF DAM=4 THEN 19678
19674 GOTO 19700
19676 '
19678 GOSUB *AHITA:GOSUB *AHITB:GOSUB *AVCAT:GOSUB *AWPLAY:OU=OU+1:GOSUB *AWCOUT:RUA=0:GOTO 19800'
19680 '
19682 DAM=RND*3+1 
19684 IF DAM=2 THEN 19690
19685 IF DAM=3 THEN 19694
19686 GOTO 19700
19688 '
19690 GOSUB *AHITA:GOSUB *AHITB:GOSUB *AVCAT:GOSUB *AFASTOU:GOTO 19800
19692 '
19694 GOSUB *AFLYA:GOSUB *AFLYCH:GOTO 19800
19696 '
19700 GOSUB *AOU
19800 RETURN
19810 '
19820 *YOMU12
19830 DIM GHJ%(500),GHK%(500),GHL%(500),GHM%(500),GHN%(500),GHP%(500),GHQ%(500)
19840 LOAD@ "IM071.TIF" 
19850 GET@A (0,0)-(30,40),GHJ%
19860 CLS
19870 LOAD@ "IM072.TIF" 
19880 GET@A (0,0)-(30,40),GHK%
19890 CLS
19895 '
19900 LOAD@ "IM073.TIF" 
19910 GET@A (0,0)-(30,40),GHL%
19920 CLS
19930 LOAD@ "IM074.TIF" 
19940 GET@A (0,0)-(30,40),GHM%
19950 CLS
19960 LOAD@ "IM075.TIF" 
19970 GET@A (0,0)-(30,40),GHN%
19980 CLS
19990 LOAD@ "IM076.TIF" 
19992 GET@A (0,0)-(30,40),GHP%
19994 CLS
19996 LOAD@ "IM077.TIF" 
19998 GET@A (0,0)-(30,40),GHQ%
19999 CLS
20000 '
20010 RETURN
20020 '
20030 *AHITA
20040 PUT@A(240,110)-(270,150),GHA%,PSET,6,5.5!:WAIT 3
20050 PUT@A(240,110)-(270,150),GHJ%,PSET,6,5.5!:WAIT 3
20060 PUT@A(240,110)-(270,150),GHK%,PSET,6,5.5!:WAIT 10
20070 LINE(200,110)-(550,330),PSET,0,BF
20080 RETURN
20090 '
20100 *AHITB
20110 PUT@A(220,110)-(250,150),GHL%,PSET,6,5.5!:WAIT 2
20120 PUT@A(220,110)-(250,150),GHM%,PSET,6,5.5!:WAIT 2
20125 PCMPLAY OTH%,100
20130 PUT@A(220,110)-(250,150),GHN%,PSET,6,5.5!:WAIT 2
20140 PUT@A(220,110)-(250,150),GHP%,PSET,6,5.5!:WAIT 2
20150 LINE(200,110)-(550,330),PSET,0,BF
20160 RETURN
20170 '
20180 *AHITZU
20190 PUT@A(200,110)-(230,150),GHQ%,PSET,6,5.5!
20210 RETURN
20220 '
20230 *ADERUI
20232 '
20234 DAM=RND*8+1
20238 IF DAM=2 THEN 20300
20240 '
20248 GOSUB *AHITA
20250 GOSUB *AHITB
20260 GOTO 20400
20280 '
20300 GOSUB *AFLYA
20302 GOSUB *AHITB
20310 GOTO 20400
20320 '
20350 GOSUB *AHITB
20380 '
20400 RETURN
20410 '
20420 *DOREHIT
20430 '
20440 IF DAR=1 THEN 20480
20450 IF DAR=2 THEN 20770
20460 IF DAR=3 THEN 20820
20470 '
20480 DAM=RND*21+1
20500 IF DAM=3 OR DAM=2 THEN 20730
20600 IF DAM=5 THEN 20740
20700 IF DAM=7 THEN 20750
20710 '
20720 GOSUB *ADERUI:GOSUB *MHIT:HIT=HIT+1:GOSUB *RUNER:GOSUB *MUCHK:GOTO 20880
20730 GOSUB *ADERUI:GOSUB *MTBH:TBH=TBH+1:GOSUB *RUNER:GOSUB *MUCHK:GOTO 20880
20740 GOSUB *ADERUI:GOSUB *MSBH:SBH=SBH+1:GOSUB *RUNER:GOSUB *MUCHK:GOTO 20880
20750 GOSUB *AFLYA:GOSUB *AHR:GOSUB *AHRR:HR=HR+1:GOSUB *RUNER:GOSUB *MUCHKHR:GOTO 20880
20760 '
20770 DAM=RND*19+1
20780 IF DAM=3 OR DAM=2 OR DAM=14 THEN 20730
20790 IF DAM=5 THEN 20740
20800 IF DAM=7 THEN 20750
20805 GOTO 20720
20810 '
20820 DAM=RND*16+1
20840 IF DAM=3 OR DAM=2 OR DAM=14 THEN 20730
20850 IF DAM=5 OR DAM=8 THEN 20740
20860 IF DAM=7 THEN 20750
20865 GOTO 20720
20870 '
20880 RETURN
20890 '
20900 *YOMU14
20910 '
20920 DIM GJA%(500),GJB%(500),GJC%(500),GJD%(500),GJE%(500)
20930 '
20940 LOAD@ "IM081.TIF" 
20950 GET@A (0,0)-(30,40),GJA%
20960 CLS
20970 LOAD@ "IM082.TIF" 
20980 GET@A (0,0)-(30,40),GJB%
20990 CLS
21000 LOAD@ "IM083.TIF" 
21010 GET@A (0,0)-(30,40),GJC%
21020 CLS
21030 LOAD@ "IM084.TIF" 
21040 GET@A (0,0)-(30,40),GJD%
21050 CLS
21060 LOAD@ "IM080.TIF" 
21070 GET@A (0,0)-(30,40),GJE%
21080 CLS
21090 RETURN
21100 '
21110 *AHR
21120 PUT@A(220,110)-(250,150),GJA%,PSET,6,5.5!:WAIT 2
21130 PUT@A(220,110)-(250,150),GJB%,PSET,6,5.5!:WAIT 2
21140 PUT@A(220,110)-(250,150),GJC%,PSET,6,5.5!:WAIT 2
21150 PUT@A(220,110)-(250,150),GJD%,PSET,6,5.5!:WAIT 2
21160 PUT@A(220,110)-(250,150),GJE%,PSET,6,5.5!:WAIT 2
21170 LINE(200,110)-(550,330),PSET,0,BF
21180 RETURN
21190 '
21620 *MHIT
21625 PCMPLAY OTL%,80:WAIT 2
21630 GOSUB *AHITZU
21640 SYMBOL (400,200),"ヒット",4,4,5
21642 WAIT 30
21650 LINE(200,110)-(640,330),PSET,0,BF
21660 RETURN
21670 '
21680 *MTBH
21685 PCMPLAY OTM%,80:WAIT 2
21690 GOSUB *AHITZU
21700 SYMBOL (400,200),"ツーベース",3,4,5
21702 WAIT 30
21710 LINE(200,110)-(640,330),PSET,0,BF
21720 RETURN
21730 '
21740 *MSBH
21745 PCMPLAY OTN%,80:WAIT 2
21750 GOSUB *AHITZU
21760 SYMBOL (400,200),"スリーベース",2.5!,4,5
21762 WAIT 30
21770 LINE(200,110)-(640,330),PSET,0,BF
21780 RETURN
21790 '
21800 *YOMU15
21810 DIM GLA%(500),GLB%(500),GLC%(500),GLD%(500),GLE%(500),GLF%(500),GLG%(500),GLH%(500),GLJ%(500)
21830 LOAD@ "IM085.TIF"
21840 GET@A (0,0)-(30,40),GLA%
21850 CLS
21860 LOAD@ "IM086.TIF"
21870 GET@A (0,0)-(30,40),GLB%
21880 CLS
21890 LOAD@ "IM087.TIF"
21900 GET@A (0,0)-(30,40),GLC%
21910 CLS
21920 LOAD@ "IM088.TIF"
21930 GET@A (0,0)-(30,40),GLD%
21940 CLS
21950 LOAD@ "IM089.TIF"
21960 GET@A (0,0)-(30,40),GLE%
21970 CLS
21980 LOAD@ "IM090.TIF"
21990 GET@A (0,0)-(30,40),GLF%
22000 CLS
22010 LOAD@ "IM091.TIF"
22020 GET@A (0,0)-(30,40),GLG%
22030 CLS
22040 LOAD@ "IM092.TIF"
22050 GET@A (0,0)-(30,40),GLH%
22060 CLS
22070 LOAD@ "IM093.TIF"
22072 GET@A (0,0)-(30,40),GLJ%
22074 CLS
22080 RETURN
22090 '
22100 *AHRR
22101 PCMPLAY OTP%,80
22102 SYMBOL (400,200),"ホームラン",3,4,5
22105 FOR I=1 TO 3
22110 PUT@A(210,110)-(240,150),GLA%,PSET,6,5.5!:WAIT 1
22120 PUT@A(210,110)-(240,150),GLB%,PSET,6,5.5!:WAIT 1
22130 PUT@A(210,110)-(240,150),GLC%,PSET,6,5.5!:WAIT 1
22140 PUT@A(210,110)-(240,150),GLD%,PSET,6,5.5!:WAIT 1
22150 PUT@A(210,110)-(240,150),GLE%,PSET,6,5.5!:WAIT 1
22160 PUT@A(210,110)-(240,150),GLF%,PSET,6,5.5!:WAIT 1
22170 PUT@A(210,110)-(240,150),GLG%,PSET,6,5.5!:WAIT 1
22180 PUT@A(210,110)-(240,150),GLH%,PSET,6,5.5!:WAIT 1
22185 NEXT
22190 LINE(200,110)-(640,330),PSET,0,BF
22200 RETURN
22210 '
22220 *ESEN
22230 '
22240 DIM GMA%(4000),GMB%(4000),GMC%(4000),GMD%(4000),GME%(4000),GMF%(4000),GMG%(4000),GMH%(4000),GMI%(4000)
22250 LOAD@ "IM094.TIF"
22260 GET@A(0,0)-(140,100),GMA%
22270 CLS
22280 LOAD@ "IM028.TIF"
22290 GET@A(0,0)-(140,100),GMB%
22300 CLS
22310 LOAD@ "IM034.TIF"
22320 GET@A(0,0)-(140,100),GMC%
22330 CLS
22340 LOAD@ "IM095.TIF"
22350 GET@A(0,0)-(140,100),GMD%
22360 CLS
22370 LOAD@ "IM097.TIF"
22380 GET@A(0,0)-(140,100),GME%
22390 CLS
22400 LOAD@ "IM096.TIF"
22410 GET@A(0,0)-(140,100),GMF%
22420 CLS
22430 LOAD@ "IM098.TIF"
22440 GET@A(0,0)-(140,100),GMG%
22450 CLS
22460 LOAD@ "IM104.TIF"
22470 GET@A(0,0)-(140,100),GMH%
22480 CLS
22490 LOAD@ "IM100.TIF"
22500 GET@A(0,0)-(140,100),GMI%
22510 CLS
22600 RETURN
22610 '
22620 *OTO
22630 DIM OTA%(5500),OTB%(1500),OTC%(4300),OTD%(5500)
22632 DIM OTE%(2300),OTF%(4600),OTG%(4300),OTH%(1500)
22634 DIM OTI%(2300),OTJ%(3300),OTK%(4700),OTL%(2300)
22636 DIM OTM%(2300),OTN%(3300),OTP%(4700),OTQ%(6000)
22640 '
22650 LOAD@ "PAN3.SND",OTA%
22660 LOAD@ "OUTI.SND",OTB%
22670 LOAD@ "OST.SND",OTC%
22680 LOAD@ "OBOUT.SND",OTD%
22690 LOAD@ "ONAGE.SND",OTE%
22700 LOAD@ "OFOAB.SND",OTF%
22710 LOAD@ "OBU.SND",OTG%
22720 LOAD@ "OHANE.SND",OTH%
22730 LOAD@ "OTEN.SND",OTI%
22740 LOAD@ "OCHN.SND",OTJ%
22750 LOAD@ "OFAUL.SND",OTK%
22752 LOAD@ "OHIT.SND",OTL%
22754 LOAD@ "OTBH.SND",OTM%
22756 LOAD@ "OSBH.SND",OTN%
22758 LOAD@ "OHR.SND",OTP%
22760 LOAD@ "PAN4.SND",OTQ%
22799 '
22800 RETURN
22810 '
22820 *AFOAB
22830 PCMPLAY OTF%,60
22840 PUT@A(340,110)-(370,150),GFE%,PSET,6,5.5!
22842 SYMBOL (140,160),"フォアボール",2.2!,4,4:WAIT 12
22850 LINE(140,110)-(640,330),PSET,0,BF
22860 RETURN
22870 '
22880 *TOKU1
22885 PCMPLAY OTI%,100 
22890 SYMBOL (400,200),"１点追加！",3,4,6
22900 PUT@A(210,110)-(240,150),GLJ%,PSET,6,5.5!:WAIT 40
22910 LINE(200,110)-(640,330),PSET,0,BF
22920 RETURN
22930 '
22940 *TOKU2
22945 PCMPLAY OTI%,100 
22950 SYMBOL (400,200),"２点追加！",3,4,6
22960 PUT@A(210,110)-(240,150),GLJ%,PSET,6,5.5!:WAIT 40
22970 LINE(200,110)-(640,330),PSET,0,BF
22980 RETURN
22990 '
23000 *TOKU3
23005 PCMPLAY OTI%,100 
23010 SYMBOL (400,200),"３点追加！",3,4,6
23020 PUT@A(210,110)-(240,150),GLJ%,PSET,6,5.5!:WAIT 40
23030 LINE(200,110)-(640,330),PSET,0,BF
23040 RETURN
23050 '
23060 *TOKU4
23065 PCMPLAY OTI%,100 
23070 SYMBOL (400,200),"４点追加！",3,4,6
23080 PUT@A(210,110)-(240,150),GLJ%,PSET,6,5.5!:WAIT 40
23090 LINE(200,110)-(640,330),PSET,0,BF
23100 RETURN
23110 '
23120 *ACNBU
23125 WAIT 1:PCMPLAY OTG%,60
23127 SYMBOL (160,160),"    ボール",2.2!,4,4
23130 PUT@A(340,110)-(370,150),GFE%,PSET,6,5.5!:WAIT 6
23140 LINE(160,110)-(640,330),PSET,0,BF
23150 RETURN
23160 '
23170 *MYOMU
23180 DIM MAA%(3000),MAB%(3200),MAC%(3000),MAD%(3000)
23190 LOAD@ "MUSIC.FMB"
23200 LOAD@ "M001.EUP",MAA%,1
23210 LOAD@ "M002.EUP",MAB%,1
23220 LOAD@ "M003.EUP",MAC%,1
23230 LOAD@ "M004.EUP",MAD%,1
23240 ''
23250 RETURN
23260 '
23280 *SYURYU
23310 '
23320 SYMBOL (280,200),"試      ",3,4,7:WAIT 2
23330 SYMBOL (280,200),"試合    ",3,4,7:WAIT 2
23340 SYMBOL (280,200),"試合終  ",3,4,7:WAIT 2
23350 SYMBOL (280,200),"試合終了",3,4,7:WAIT 24
23360 RETURN
23370 '
23380 *ACNGE
23390 SYMBOL (280,200),"チ      ",3,4,7:WAIT 2
23400 PCMPLAY OTJ%,90
23410 SYMBOL (280,200),"チェ    ",3,4,7:WAIT 2
23420 SYMBOL (280,200),"チェン  ",3,4,7:WAIT 2
23430 SYMBOL (280,200),"チェンジ",3,4,7:WAIT 24
23440 LINE(200,110)-(640,330),PSET,0,BF
23450 RETURN
23460 '
23470 *MUCHK
23480 '
23490 IF RUA=1 OR RUB=1 OR RUC=1 THEN 23590
23500 '
23520 PLAY(0)=-1 THEN 23570
23540 '
23550 PLAY@ MAA%,1 
23560 '
23570 GOTO 23610
23580 '
23590 PLAY@ MAB%,1
23600 '
23610 RETURN
23620 '
23630 *MUCHKHR
23640 '
23650 IF RUA=1 OR RUB=1 OR RUC=1 THEN 23710
23660 '
23680 PLAY@ MAA%,1
23700 GOTO 23730
23710 PLAY@ MAB%,1
23730 RETURN
33732 '
33734 *YOMU16
33736 DIM GPA%(500),GPB%(500),GPC%(500),GPD%(500),GPE%(500),GPF%(500),GPG%(500)
33740 LOAD@ "IM105.TIF"
33742 GET@A(0,0)-(30,40),GPA%:CLS
33744 LOAD@ "IM106.TIF"
33746 GET@A(0,0)-(30,40),GPB%:CLS
33748 LOAD@ "IM107.TIF"
33750 GET@A(0,0)-(30,40),GPC%:CLS
33752 LOAD@ "IM108.TIF"
33754 GET@A(0,0)-(30,40),GPD%:CLS
33756 LOAD@ "IM109.TIF"
33758 GET@A(0,0)-(30,40),GPE%:CLS
33760 LOAD@ "IM110.TIF"
33762 GET@A(0,0)-(30,40),GPF%:CLS
33764 LOAD@ "IM111.TIF"
33766 GET@A(0,0)-(30,40),GPG%:CLS
33770 RETURN
33780 '
33782 *AVCAT
33788 PCMPLAY OTA%,60
33800 PUT@A(170,110)-(200,150),GPA%,PSET,6,5.5!:WAIT 3
33802 PUT@A(170,110)-(200,150),GPB%,PSET,6,5.5!:WAIT 3
33804 PUT@A(170,110)-(200,150),GPC%,PSET,6,5.5!:WAIT 3
33805 PCMPLAY OTE%,60
33806 PUT@A(170,110)-(200,150),GPD%,PSET,6,5.5!:WAIT 3
33808 PUT@A(170,110)-(200,150),GPE%,PSET,6,5.5!:WAIT 3
33810 PUT@A(170,110)-(200,150),GPF%,PSET,6,5.5!:WAIT 3
33812 PUT@A(170,110)-(200,150),GPG%,PSET,6,5.5!:WAIT 3
33814 LINE(170,110)-(550,330),PSET,0,BF
33816 '
33818 RETURN
33820 '
33822 *YOMU17'
33824 DIM GPI%(500),GPJ%(500),GPK%(500),GPL%(500),GPM%(500),GPN%(500)
33826 '
33828 LOAD@ "IM112.TIF"
33830 GET@A(0,0)-(30,40),GPI%:CLS
33832 LOAD@ "IM113.TIF"
33834 GET@A(0,0)-(30,40),GPJ%:CLS
33836 LOAD@ "IM114.TIF"
33838 GET@A(0,0)-(30,40),GPK%:CLS
33840 LOAD@ "IM115.TIF"
33842 GET@A(0,0)-(30,40),GPL%:CLS
33844 LOAD@ "IM116.TIF"
33846 GET@A(0,0)-(30,40),GPM%:CLS
33848 LOAD@ "IM117.TIF"
33850 GET@A(0,0)-(30,40),GPN%:CLS
33852 '
33854 RETURN
33856 '
33858 *AWPLAY'
33860 PCMPLAY OTA%,60
33862 PUT@A(200,110)-(230,150),GPK%,PSET,6,5.5!:WAIT 3
33864 PUT@A(200,110)-(230,150),GPJ%,PSET,6,5.5!:WAIT 3
33866 PUT@A(200,110)-(230,150),GPI%,PSET,6,5.5!:WAIT 3
33868 PALETTE 0,2:SYMBOL (400,200),"セカンドアウト",2,2,2
33870 PALETTE 0,0
33872 PCMPLAY OTE%,60
33874 PUT@A(200,110)-(230,150),GPL%,PSET,6,5.5!:WAIT 3
33876 PUT@A(200,110)-(230,150),GPM%,PSET,6,5.5!:WAIT 3
33878 PUT@A(200,110)-(230,150),GPN%,PSET,6,5.5!:WAIT 3
33879 LINE(170,110)-(640,330),PSET,0,BF
33880 RETURN
33890 '
33892 *AWCOUT
33896 PCMPLAY OTA%,60
33898 PUT@A(350,110)-(380,150),GPK%,PSET,6,5.5!:WAIT 3
33900 PUT@A(350,110)-(380,150),GPJ%,PSET,6,5.5!:WAIT 3
33902 PUT@A(350,110)-(380,150),GPI%,PSET,6,5.5!:WAIT 3
33904 PALETTE 0,2:WAIT 1:PALETTE 0,0
33906 SYMBOL (150,200),"ダブルプレー",2,2,2:WAIT 50
33910 LINE(145,110)-(640,330),PSET,0,BF
33920 RETURN
33922 '
33924 *AFASTOU
33926 '
33928 PCMPLAY OTA%,60
33930 PUT@A(290,110)-(320,150),GPK%,PSET,6,5.5!:WAIT 3
33932 PUT@A(290,110)-(320,150),GPJ%,PSET,6,5.5!:WAIT 3
33934 PUT@A(290,110)-(320,150),GPI%,PSET,6,5.5!:WAIT 3
33936 PALETTE 0,2:WAIT 1:PALETTE 0,0
33938 'SYMBOL (400,200),"",2,2,2:WAIT 50
33940 LINE(170,110)-(640,330),PSET,0,BF
33942 RETURN
33944 '
33946 *YOMU18''
33948 DIM GPQ%(500),GPR%(500),GPS%(500),GPT%(500),GPU%(500)
33950 '
33952 LOAD@ "IM118.TIF"
33954 GET@A(0,0)-(30,40),GPQ%:CLS
33956 LOAD@ "IM119.TIF"
33958 GET@A(0,0)-(30,40),GPR%:CLS
33960 LOAD@ "IM120.TIF"
33962 GET@A(0,0)-(30,40),GPS%:CLS
33964 LOAD@ "IM121.TIF"
33966 GET@A(0,0)-(30,40),GPT%:CLS
33968 LOAD@ "IM122.TIF"
33970 GET@A(0,0)-(30,40),GPU%:CLS
33980 RETURN
33990 '
34000 *ADEDOBA
34010 PUT@A(350,110)-(380,150),GPQ%,PSET,6,5.5!:WAIT 3
34012 PUT@A(350,110)-(380,150),GPR%,PSET,6,5.5!:WAIT 3
34013 PCMPLAY OTQ%,120
34014 PUT@A(350,110)-(380,150),GPS%,PSET,6,5.5!:WAIT 3
34016 PALETTE 0,6:WAIT 1:PALETTE 0,0
34020 PUT@A(350,110)-(380,150),GPT%,PSET,6,5.5!:WAIT 3
34022 PUT@A(350,110)-(380,150),GPU%,PSET,6,5.5!:WAIT 3
34024 SYMBOL (150,200),"デッドボール",2,2.5!,6:WAIT 50
34030 LINE(150,110)-(640,330),PSET,0,BF
34032 RETURN
34040 '
34042 *DEADBALL
34044 '
34046 GOSUB *ADEDOBA
34048 BALL4=BALL4+1
34050 ST=0:BU=0:GOSUB *RUNER:GOSUB *MUCHK:SEN=SEN+1
34060 RETURN
34070 '
34080 *YOMU19
34090 DIM GQA%(500),GQB%(500),GQC%(500),GQD%(500),GQE%(500),GQF%(500)
34092 '
34094 LOAD@ "IM004.TIF"
34096 GET@A(0,0)-(30,40),GQA%:CLS
34098 LOAD@ "IM005.TIF"
34100 GET@A(0,0)-(30,40),GQB%:CLS
34102 LOAD@ "IM006.TIF"
34104 GET@A(0,0)-(30,40),GQC%:CLS
34106 LOAD@ "IM123.TIF"
34108 GET@A(0,0)-(30,40),GQD%:CLS
34110 LOAD@ "IM124.TIF"
34112 GET@A(0,0)-(30,40),GQE%:CLS
34114 LOAD@ "IM125.TIF"
34116 GET@A(0,0)-(30,40),GQF%:CLS
34120 RETURN
34130 '
34140 *AFLYA
34150 PUT@A(250,110)-(280,150),GQA%,PSET,6,5.5!:WAIT 3
34152 PUT@A(250,110)-(280,150),GQB%,PSET,6,5.5!:WAIT 3
34154 PUT@A(250,110)-(280,150),GQC%,PSET,6,5.5!:WAIT 3
34170 LINE(150,110)-(640,330),PSET,0,BF
34180 RETURN
34190 '
34200 *AFLYCH
34210 PUT@A(170,110)-(200,150),GQD%,PSET,6,5.5!:WAIT 3
34212 PCMPLAY OTA%,60
34222 PUT@A(170,110)-(200,150),GQE%,PSET,6,5.5!:WAIT 3
34228 PALETTE 0,2:WAIT 1:PALETTE 0,0
34234 PUT@A(170,110)-(200,150),GQF%,PSET,6,5.5!:WAIT 3
34250 LINE(150,110)-(640,330),PSET,0,BF
34260 RETURN