home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 201 / 201.d81 / b.arc baseball (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2001-01-01  |  8.7 KB  |  178 lines
  1. 10 poke56,48:poke55,0:clr:gosub780
  2. 15 dv=peek(186):ifdv<8thendv=8
  3. 16 poke1023,dv
  4. 20 print""spc(14)chr$(14)"[151][208]lease [215]ait[145][145][145][145][145][145][145][145]"
  5. 30 fora=49152to49999:readb:pokea,b:c=c+b:next
  6. 40 ifc<>104062thenprint"[147]data error":stop
  7. 50 data 173,4,220,141,166,3,169,18,141,5,212,169,100,141,1,212,169,0,133
  8. 60 data 187,133,188,133,189,173,30,208,32,199,192,169,0,141,167,3,32,85,193
  9. 70 data 32,15,194,32,254,194,32,182,194,32,15,194,173,120,3,201,250,208,8
  10. 80 data 169,0,141,162,3,76,152,192,174,167,3,208,114,201,76,176,220,201,69
  11. 90 data 144,216,169,27,141,163,3,169,37,141,164,3,162,7,173,100,3,205,163
  12. 100 data 3,144,8,205,164,3,176,3,76,38,192,173,163,3,24,105,24,141,163
  13. 110 data 3,173,164,3,24,105,24,141,164,3,202,16,219,169,2,141,21,208,173
  14. 120 data 100,3,56,233,9,162,255,232,56,233,24,176,250,189,175,192,141,162,3
  15. 130 data 120,169,240,141,26,208,169,49,141,20,3,169,234,141,21,3,169,129,141
  16. 140 data 13,220,88,96,1,5,2,5,3,5,2,5,1,201,30,240,3,76,38
  17. 150 data 192,169,4,141,162,3,76,152,192,169,2,141,21,208,169,1,141,28,208
  18. 160 data 160,7,169,0,153,110,3,136,16,248,169,90,141,101,3,169,230,141,121
  19. 170 data 3,169,227,141,131,3,169,0,141,40,208,169,12,141,37,208,169,11,141
  20. 180 data 38,208,169,127,141,13,220,169,214,141,20,3,169,193,141,21,3,169,27
  21. 190 data 141,17,208,169,129,141,26,208,169,250,141,18,208,169,117,141,100,3,169
  22. 200 data 130,141,120,3,169,129,141,26,208,96,165,187,208,26,169,127,141,0,220
  23. 210 data 169,0,141,1,220,173,1,220,201,239,240,1,96,165,189,208,14,230,187
  24. 220 data 230,189,238,101,3,173,101,3,201,145,240,1,96,169,0,133,187,96,173
  25. 230 data 165,3,240,24,169,0,133,162,32,189,193,41,63,9,64,197,162,208,252
  26. 240 data 32,189,193,41,3,170,76,147,193,169,255,141,0,220,169,0,141,1,220
  27. 250 data 169,254,141,0,220,173,1,220,201,248,176,234,73,255,74,74,74,162,255
  28. 260 data 232,74,144,252,134,2,189,206,193,133,5,189,210,193,133,6,189,202,193
  29. 270 data 133,253,169,0,133,254,169,20,133,248,169,224,141,130,3,169,0,133,251
  30. 280 data 133,252,169,3,141,21,208,96,173,166,3,10,10,56,109,166,3,141,166
  31. 290 data 3,96,200,250,180,200,5,0,0,248,0,0,0,255,169,1,141,25,208
  32. 300 data 169,0,133,3,160,7,162,14,185,100,3,157,0,208,185,120,3,157,1
  33. 310 data 208,185,110,3,10,102,3,185,130,3,153,248,7,202,202,136,16,227,165
  34. 320 data 3,141,16,208,169,250,141,18,208,230,162,76,188,254,198,247,240,1,96
  35. 330 data 169,90,133,247,32,39,193,165,253,24,109,140,3,141,140,3,173,120,3
  36. 340 data 101,254,141,120,3,174,167,3,208,26,201,66,208,22,169,0,133,254,169
  37. 350 data 50,133,253,165,252,48,6,169,60,133,251,208,4,169,190,133,251,173,150
  38. 360 data 3,24,101,251,141,150,3,173,100,3,101,252,141,100,3,201,16,240,4
  39. 370 data 201,217,208,17,165,251,73,255,24,105,1,133,251,165,252,73,255,105,0
  40. 380 data 133,252,198,248,208,60,169,20,133,248,165,251,24,101,5,133,251,165,252
  41. 390 data 101,6,133,252,165,254,16,21,173,130,3,201,224,240,6,206,130,3,76
  42. 400 data 181,194,169,226,141,130,3,76,181,194,173,130,3,201,226,240,6,238,130
  43. 410 data 3,76,181,194,169,224,141,130,3,96,165,188,208,67,173,30,208,41,3
  44. 420 data 201,3,208,58,169,0,133,5,133,6,230,188,173,100,3,56,237,101,3
  45. 430 data 24,105,15,16,2,169,0,201,28,144,2,169,27,10,170,189,22,195,133
  46. 440 data 251,189,23,195,133,252,169,128,141,4,212,169,129,141,4,212,169,255,133
  47. 450 data 254,169,120,133,253,96,173,120,3,201,120,208,16,173,100,3,201,113,144
  48. 460 data 9,201,121,176,5,169,1,141,167,3,96,64,255,87,255,100,255,113,255
  49. 470 data 126,255,139,255,152,255,165,255,188,255,201,255,214,255,227,255,240
  50. 480 data 255,0,0,0,0,16,0,29,0,42,0,55,0,68,0,91,0,104,0,117,0
  51. 490 data 130,0,143,0,156,0,169,0,192,0,192,0
  52. 500 ml$="[162]"+chr$(8)+"[189]<"+chr$(3)+"[149]x[202]"+chr$(16)+chr$(248)+"l[191][163]":poke835,0
  53. 510 poke836,208:poke830,0:poke831,216:poke828,0:poke829,56:poke56334,0
  54. 520 poke1,51:ml$=ml$:sys(peek(51)+256*peek(52)):poke1,55:poke56334,1
  55. 530 fori=12568to12671:readj:pokei,255-j:next
  56. 540 fori=12672to12727:readj:pokei,j:next
  57. 550 data 0,115,219,219,219,219,113,0,0,111,102,102,102,102,198,0
  58. 560 data 149,149,149,149,165,170,170,170,86,86,86,86,90,170,170,170
  59. 570 data 170,170,170,165,149,149,149,149,170,170,170,90,86,86,86,86
  60. 580 data 130,130,130,130,130,170,170,170,128,0,0,0,0,0,0,0
  61. 590 data 255,255,255,126,060,024,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
  62. 600 data 0,0,0,0,0,0,0,128,255,255,255,126,60,24,0,0,213,213,245,245,253,253
  63. 610 data 255,255,87,87,95,95,127,127,255,255,125,125,125,125,125,125,125,125
  64. 620 data 126,255,255,255,255,255,255,255,255,255,255,255,255,255,255,126
  65. 630 data 127,255,255,255,255,255,255,127,254,255,255,255,255,255,255,254
  66. 640 q=14336
  67. 650 readb:ifb<0thenfora=1toabs(b):pokeq,0:q=q+1:next:goto650
  68. 660 ifb=256thenff=1:goto730
  69. 670 pokeq,b:q=q+1:goto650
  70. 680 data -25,60,0,0,255,0,0,85,0,0,85,0,0,20,-51,20,0,0,255,0,0,255,0,0,85,0,0
  71. 690 data 20,-51,20,0,0,85,0,0,85,0,0,255,0,0,60,-66,255,0,7,255,224,31,255,248
  72. 700 data 63,255,252,127,255,254,127,255,254,255,255,255,255,255,255,239,256
  73. 710 data 129,0,0,0,0,0,0,0,0,0,0,0,0,0,0,129
  74. 720 data 128,0,0,0,0,0,0,128,1,0,0,0,0,0,0,1
  75. 730 poke53272,23:poke53270,200
  76. 740 cl(1)=10:cl(2)=14:fl=0:rm=20:pl=2
  77. 750 fora=54272to54295:pokea,0:next:pokea,15:poke54280,17:poke54284,18
  78. 760 in=1:sk=0:ck=0:p1$="home":p2$="visitor":gosub770:goto860
  79. 770 ifff=1thenreturn
  80. 780 print"[147]"spc(6);:poke53281,0:poke53280,0
  81. 790 print"[190][188][146]  [161][172][187][146][187] [172][172][187][146][187]  [190][188][146]  [161][172][188][146]  [161][172][162][146][190]"spc(11)"[161][188][190][146][161] [161][188][190][146][190] [161]";
  82. 800 print"[146][161]   [161][188][190][146][161] [161][146][161][161][146][161] [161][188][146][187]"spc(12)"[161][146][161][161][146][161] [161][172][188][146]  [161][146][161][172][187] [161][146][161][161][146][161]";
  83. 810 print" [161][146][161][190][146][190] [161][146][161]"spc(13)"[188][190][188][190] [188][190][188][190]  [162][162][146]  [188][190][188][190] [188][162][146][190]  [188][162][162][146][190]"spc(9);
  84. 820 print" [161][172][187][146][187] [190][188][146] [172][172][187][146][187][161][172][162][146][190][161][172][187][146][187] [190][188][146] [161][146][161]  [161][146][161]"spc(10)"[161][188][190][146][190][161]";
  85. 830 print"[188][190][146][161][188][188][146][162] [161][188][146][187] [161][188][190][146][190][161][188][190][146][161][161][146][161]  [161][146][161]"spc(10)"[161][146][161][161][146][161][161][146][161][161][146][161][172][187]";
  86. 840 print"[161][146][161][161][146][161]  [161][146][161][161][146][161][161][146][161][161][146][161][161][146][161]  [161][146][161]"spc(10)"[188][162][162][146] [188][190][188][190] [162][162][146] [188][162][162]";
  87. 850 print"[146][190][188][162][162][146] [188][190][188][190][188][162][162][146][190][188][162][162][146][190]":return
  88. 860 printchr$(14)""spc(12)"[129][208]ractice    [198]1":printspc(12)"[208]lay        [198]7"
  89. 865 printspc(12)"             ":printspc(12)"[209]uit        [209][145]"
  90. 870 poke198,0:wait198,1:getmt$:ifmt$<>"[133]"andmt$<>"[136]"andmt$<>"q"then870
  91. 875 ifmt$="q"then2000
  92. 880 ifmt$="[133]"thenfl=1:in$="1":goto920
  93. 890 c$="              ":printchr$(142)"[145][145][145][145]"spc(12)c$:print""spc(12)c$"[145][145][145][145]"
  94. 900 printspc(12)"1[146] or 2[146] players"
  95. 905 printspc(12)c$
  96. 910 poke198,0:wait198,1:getin$:ifin$=""orin$<"1"orin$>"2"then910
  97. 920 np=val(in$):poke933,-(np=1):print"[147]";:poke53280,2:poke53281,1:te=6:b$=""
  98. 930 poke53272,28:poke53282,3:poke53283,0:poke53270,peek(53270)or16
  99. 940 w=1063:pokew,160:a$=" [146]"
  100. 950 pokew+54272,6:c$="[159]                           ":d$="            "
  101. 960 foru=1to2:fori=1to12:printc$;:poke646,te:printd$:sm=w+40*i:pokesm,160
  102. 970 pokesm+54272,te:nexti:te=5:w=1543:nextu:printc$""d$""
  103. 980 print""spc(27)"            ":poke1543,160:poke55815,2
  104. 990 print"1b [146]#$ 2b [146]#$ 3b [146]#$ 2b [146]#$ 1b"
  105. 1000 print"[150]'('('('('('('('('(":print"%&%&%&%&%&%&%&%&%&"
  106. 1010 print""spc(12)"  [157][157]  [157][157]  ":print"[153][150]0"spc(24)"1":y=24
  107. 1020 x=1:fori=1to6:forz=1tox:b$=b$+a$:nextz:printb$"0";:printtab(y)"1"b$:b$=""
  108. 1030 y=y-1:x=x+1:nexti:print"       [146]0"spc(10)"1       ";
  109. 1040 iffl=1thenprint""spc(29)"practice":goto1100
  110. 1050 printspc(32)"[146]- .":printspc(31)"-[206][146]3[205][146].":printspc(30)"-[206][146]* [146],[205][146]."
  111. 1060 printspc(29)"-[206][146]*   [146],[205][146].":printspc(28)"-[206][146]*     [146],[205][146]."
  112. 1070 printspc(28)" 5"spc(3)"[195]"spc(3)"[146]6 [157]":printspc(28)",[205][146].     [146]-[206][146]*"
  113. 1080 printspc(29)",[205][146].   [146]-[206][146]*":printspc(30)",[205][146]. [146]-[206][146]*"
  114. 1090 printspc(31)",[205][146]4[206][146]*":printspc(32)",+*"
  115. 1100 gosub1600:iffl=1then1220
  116. 1110 iftemp=1thentemp=0:goto1210
  117. 1120 ifout<3then1210
  118. 1130 ifnp=1then1660
  119. 1140 ifin>=3andck=1ands(1)<>s(2)then1660
  120. 1150 out=0:temp=1:pokefb,32:pokesb,32:poketb,32
  121. 1160 print"[159]      change batters":fori=1to1000:next
  122. 1170 print"[145]"spc(6)"              ":ifnp=1thenck=0:in=in+1:pl=1:goto1190
  123. 1180 ck=ck+1:ifck=2thenck=0:in=in+1
  124. 1190 ifpl=1thenpl=2:p1$="home":p2$="visitor":goto1100
  125. 1200 pl=1:p1$="home":p2$="visitor":goto1100
  126. 1210 ifpeek(53250)>90thenfora=peek(53250)to90step-1:poke53250,a:next
  127. 1220 sys49152:ifpeek(930)thenpoke54283,16:poke54283,17
  128. 1230 iffl=1thenrm=rm-1:print""spc(28)"pitches"rm"[157] "
  129. 1240 iffl=1andrm=0then1690
  130. 1250 iffl=1then1210
  131. 1260 print"":kt=54272
  132. 1270 mt=peek(930):ifmt>4thenout=out+1:sk=0:goto1100
  133. 1280 ifmt=4thengosub1580
  134. 1290 ifmt=0thensk=sk+1:ifsk=3thenout=out+1:sk=0:goto1100
  135. 1300 ifmt=0then1100
  136. 1310 tm=mt:sk=0
  137. 1320 te=160:et=160:g0=cl(pl)
  138. 1330 a=2017:fb=1822:sb=1617:tb=1812:p1=peek(fb):p2=peek(sb):p3=peek(tb)
  139. 1340 gosub1510:gosub1530:b1=205:b2=206:b3=205:m0=a-39:m1=fb-41:m2=sb+39
  140. 1350 m3=tb+41:g1=5:g2=5:g3=5
  141. 1360 ifp1=160thenb1=160:g1=cl(pl)
  142. 1370 ifp2=160thenb2=160:g2=cl(pl)
  143. 1380 ifp3=160thenb3=160:g3=cl(pl)
  144. 1390 x=cl(pl):fori=1to4:gosub1530:gosub1570
  145. 1400 ifmt=4thengosub1640
  146. 1410 pokem0,te:pokem0+kt,g0:m0=m0-39:pokem1,b1:pokem1+kt,g1
  147. 1420 m1=m1-41:pokem2,b2:pokem2+kt,g2:m2=m2+39:pokem3,b3:pokem3+kt,g3:m3=m3+41
  148. 1430 next:gosub1530:pokefb,et:pokefb+kt,g0
  149. 1440 ifb1=160thenpokesb,160:pokesb+54272,g1
  150. 1450 ifb2=160thenpoketb,160:poketb+54272,g2
  151. 1460 ifb3=160thenpokea,160:pokea+54272,g3
  152. 1470 ifmt>1thente=206:et=32
  153. 1480 ifpeek(a)=160thens(pl)=s(pl)+1:pokea,43:pokea+kt,5:gosub1590:gosub1600
  154. 1490 tm=tm-1:iftm=0then1100
  155. 1500 g0=5:goto1330
  156. 1510 print""spc(33)" "
  157. 1520 print""spc(28)" "spc(9)" ":print""spc(33)"+":return
  158. 1530 print""spc(32);
  159. 1540 print"[206][146]3[205][157][157][157][157][206][146]* [146],[205][157][157][157][157][157][157][206][146]*   [146],[205][157][157][157][157][157][157][157][157][206][146]*     [146],[205]"
  160. 1550 print""spc(29)"[205][146].     [146]-[206][157][157][157][157][157][157][157][157][205][146].   [146]-[206]"
  161. 1560 printspc(31)"[205][146]. [146]-[206][157][157][157][157][205][146]4[206]":return
  162. 1570 poke54273,40:poke54277,1:poke54296,15:poke54276,128:poke54276,129:return
  163. 1580 poke54287,40:poke54291,220:poke54290,128:poke54290,129:return
  164. 1590 poke54273,70:poke54277,41:poke54296,15:poke54276,16:poke54276,17:return
  165. 1600 iffl=1thenprint""spc(28)"pitches"rm:return
  166. 1610 print""spc(28)p2$""s(2):printspc(28)""p1$"   "s(1)
  167. 1620 printspc(28)"inning "in:printspc(28)"strike "sk
  168. 1630 printspc(28)"out    "out:return
  169. 1640 poke53281,x:ifx=1thenx=cl(pl):return
  170. 1650 x=1:return
  171. 1660 print""spc(5)"[159]g a m e  o v e r"
  172. 1670 print"   any key to play again":poke198,0:wait198,1:getmt$:clr
  173. 1680 poke53280,0:poke53281,0:print"[147]":goto730
  174. 1690 print"[159] p r a c t i c e  o v e r":goto1670
  175. 2000 dv=peek(1023)::load"h",dv
  176. 9999 end
  177. 10000 d=peek(186):n$="b.arc baseball":open15,d,15,"s0:"+n$:close15:saven$,d:end
  178.