home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / RINGSIDE.DSK / RSSSCORE.bas < prev    next >
BASIC Source File  |  2014-09-09  |  34KB  |  557 lines
  1. 1  GOTO 200
  2. 10 Q5 = 3: IF YS = 1  THEN Q5 = 2: HOME : VTAB 21: FOR T1 = 1 TO 2: PRINT "ENTER SCORE FOR "NM$(T1): VTAB 20 +T1: HTAB 30: INPUT SC(0,0): GOSUB 12:SC(T1,3) = SC(T1,3) +SC(0,0):JS%(((T1 *T1) -1) +(A -1),RD) = SC(0,0): NEXT 
  3. 11  RETURN 
  4. 12  IF SC(0,0) >10  OR SC(0,0) <0  THEN  VTAB 20 +T1: HTAB 30: INPUT SC(0,0): GOTO 12
  5. 13  RETURN 
  6. 20  IF YS = 1  THEN  HOME : VTAB 21: FOR Q5 = 1 TO 2: PRINT "ENTER SCORE FOR "NM$(Q5): VTAB 20 +Q5: HTAB 30: INPUT T0(Q5): GOSUB 22: NEXT :W1 = 1:T1 = T0(1):L1 = 2:T2 = T0(2)
  7. 21  RETURN 
  8. 22  IF T0(Q5) >10  OR T0(Q5) <0  THEN  VTAB 20 +Q5: HTAB 30: INPUT T0(Q5): GOTO 22
  9. 23  RETURN 
  10. 200  IF (VB = 4  OR VB = 5)  AND FE = 1  THEN 960
  11. 205  GOTO 240
  12. 210 WV(1) = 14:WV(0) = 7.5:A$ = "$":WV(5) = 0: GOSUB 2100:WV(0) = 34.6: GOSUB 2100:WV(5) = 3: RETURN 
  13. 211 MS$ = "CLOSED R-EYE":Y2(FA) = 1:RE = 1:TR$ = "1": RETURN 
  14. 212 MS$ = "CLOSED L-EYE":Y3(FA) = 1:RE = 1:TR$ = "2": RETURN 
  15. 213 WV(0) = 1: IF FA = 2  THEN WV(0) = 30.7
  16. 214 A$ = MS$:WV(5) = 3: GOSUB 2100: RETURN 
  17. 215  IF AA% = 1  OR (AA% = 41  AND LS = 80)  THEN SG%(0,RD +1) = P0(1):SG%(1,RD +1) = P0(2)
  18. 216  RETURN 
  19. 217 A$ = "": FOR A = 1 TO 2:A$ = A$ +"J1-":SC(0,0) = SC(A,1): GOSUB 223:A$ = A$ +"    J2-":SC(0,0) = SC(A,2): GOSUB 223:A$ = A$ +"    J3-":SC(0,0) = SC(A,3): GOSUB 223:A$ = A$ +"    ": NEXT : RETURN 
  20. 223 A$ = A$ +LT$( INT(SC(0,0)/100)): IF SC(0,0) >99  THEN SC(0,0) = SC(0,0) -100
  21. 224 A$ = A$ +LT$( INT(SC(0,0)/10)):SC(0,0) = SC(0,0) -(( INT(SC(0,0)/10)) *10)
  22. 225 A$ = A$ +LT$(SC(0,0)): RETURN 
  23. 226 WV(1) = 4.7 +(FD%(A,B)) +((FD%(A,B)) *.5):A$ = "$$$$$$$$$$":WV(0) = 1:WV(5) = 0: GOSUB 2100: RETURN 
  24. 227 WV(1) = 4.7 +(FD%(A,B)) +((FD%(A,B)) *.5):A$ = "$$$$$$$$$$":WV(0) = 30.7:WV(5) = 0: GOSUB 2100: RETURN 
  25. 230 WV(1) = 4.5:WV(0) = 1:A$ = "$$$$$$$$$$$":WV(5) = 0: GOSUB 2100:WV(0) = 30: GOSUB 2100:WV(5) = 3: RETURN 
  26. 231 A$ = "ROUND ": IF RD +1 <10  THEN A$ = A$ +"0"
  27. 232 A$ = A$ +LT$(RD +1): RETURN 
  28. 240  IF RD <NR  THEN WV(1) = 4.5:WV(0) = 17.7:A$ = "$$$$$$$":WV(5) = 0: GOSUB 2100:WV(5) = 3: GOSUB 231:WV(0) = 18: GOSUB 2100: GOSUB 210:KX%(1) = 0:KX%(2) = 0:DP%(1) = 0:DP%(2) = 0
  29. 241 CY% = 0:KY% = 0:TY% = 9:RS%(6) = 0:RS%(8) = 0:LB% = 0:VF = 0:W9(1) = 0:W9(2) = 0
  30. 242  IF RD <NR  THEN WV(1) = 6.6:WV(0) = 19.3:A$ = "$$$$$$":WV(5) = 0: GOSUB 2100:WV(5) = 3:WV(0) = 19.3:A$ = " 3:00 ": GOSUB 2100
  31. 243 A = 1:B = 2:IR%(0) = RP(B) +PH%(A)
  32. 244 IR%(0) = IR%(0) +(S%(A) *(1 -(IR%(0)/(2 * ABS(S%(A))))))
  33. 245 ER(A) = ER(A) -(IR%(0) -(IR%(A)/NR)):ER(0) = ER(A)/IR%(A): IF ER(A) < = 0  THEN ER(A) = 0:ER(0) = 0
  34. 246  IF ER(A) >IR%(A)  THEN ER(A) = IR%(A) -1
  35. 247  IF (ER(A) >0  AND DA%(A) = 3)  OR (ER(A) >56.25  AND DA%(A) = 2)  OR (ER(A) >112.5  AND DA%(A) = 1)  THEN DA%(A) = DA%(A) -1:CU(A) = CU(A) +1:FO(A) = FO(A) +1:SA(A) = SA(A) +1:FI(A) = FI(A) +1:KC(A) = KC(A) +1:PC(A) = PC(A) +1
  36. 248  IF ER(A) < = 112.5  AND DA%(A) = 0  THEN DA%(A) = 1:CU(A) = CU(A) -1:FO(A) = FO(A) -1:SA(A) = SA(A) -1:FI(A) = FI(A) -1:KC(A) = KC(A) -1:PC(A) = PC(A) -1:S5(A) = S5(A) -1:S6(A) = S6(A) -10:S0(A) = S0(A) -2:S3(A) = S3(A) +2
  37. 249  IF ER(A) < = 56.25  AND DA%(A) = 1  THEN DA%(A) = 2:CU(A) = CU(A) -1:FO(A) = FO(A) -1:SA(A) = SA(A) -1:FI(A) = FI(A) -1:KC(A) = KC(A) -1:PC(A) = PC(A) -1:S5(A) = S5(A) -1:S6(A) = S6(A) -10:S0(A) = S0(A) -2:S3(A) = S3(A) +2
  38. 250  IF ER(A) < = 0  AND DA%(A) = 2  THEN DA%(A) = 3:CU(A) = 1:FO(A) = 0:SA(A) = 1:FI(A) = 0:KC(A) = 1:PC(A) = 1:S5(A) = S5(A) -1:S6(A) = S6(A) -10:S0(A) = S0(A) -2:S3(A) = S3(A) +2
  39. 253  GOSUB 1380
  40. 254  IF A = 1  THEN A = 2:B = 1:IR%(0) = RP(B) +PH%(A): GOTO 244
  41. 255 A3 =  INT(L5 * RND(1)) +1: IF MF(1) >0  THEN S5(2) = S5(2) -5
  42. 256  IF MF(2) >0  THEN S5(1) = S5(1) -5
  43. 257 MF(1) = 0:MF(2) = 0:MG(1) = 0:MG(2) = 0
  44. 258  IF RP(1) >RP(2)  THEN R8 = 1:R9 = 2: GOSUB 468: GOTO 297
  45. 259  IF RP(2) >RP(1)  THEN R8 = 2:R9 = 1: GOSUB 468: GOTO 312
  46. 260  IF AG(1) >AG(2)  THEN R8 = 1:R9 = 2: GOSUB 468: GOTO 265
  47. 261  IF AG(2) >AG(1)  THEN R8 = 2:R9 = 1: GOSUB 468: GOTO 265
  48. 262 R8 =  INT(2 * RND(1)) +1: IF R8 = 1  THEN R9 = 2
  49. 263  IF R8 = 2  THEN R9 = 1
  50. 264  GOSUB 468
  51. 265  GOSUB 289
  52. 266  IF KT(1) >0  AND KT(2) >0  THEN W1 = 1:L1 = 2: GOTO 270
  53. 267  IF KT(1) >0  OR P0(2) = 5  OR P0(2) = 2  THEN W1 = 2:L1 = 1:T1 = 10:T2 = 9: GOSUB 679: GOSUB 681: GOSUB 683: GOTO 272
  54. 268  IF KT(2) >0  OR P0(1) = 5  OR P0(1) = 2  THEN W1 = 1:L1 = 2:T1 = 10:T2 = 9: GOSUB 679: GOSUB 681: GOSUB 683: GOTO 272
  55. 269 W1 = 1:L1 = 2
  56. 270  GOSUB 668
  57. 271 KT(1) = 0:KT(2) = 0:KF = 0
  58. 272  GOSUB 406: IF RD = NR  THEN  GOSUB 801: GOTO 319
  59. 273  IF DS$ = "Y"  THEN  GOSUB 750
  60. 274  GOSUB 801
  61. 276  GOSUB 862
  62. 277  GOSUB 590: GOSUB 504: GOSUB 585:FR% = 0: HOME : VTAB 21
  63. 280  &  GOTO "RSSROUND"
  64. 289 CL(1) = 0:CL(2) = 0:RM(1) = 0:RM(2) = 0:PH%(1) = 0:PH%(2) = 0
  65. 290 RP(1) = 0:RP(2) = 0:KF = 0
  66. 291 I = 1
  67. 292  IF KT(I) >0  THEN A1 =  INT(L5 * RND(1)) +1:Y1(I) = 1
  68. 293  IF (KT(I) = 1  AND A1 <5)  OR (KT(I) = 2  AND A1 <9)  OR (KT(I) = 3  AND A1 <13)  OR (KT(I) = 4  AND A1 <17)  OR (KT(I) = 5  AND A1 <21)  OR (KT(I) = 6  AND A1 <29)  OR (KT(I) = 7  AND A1 <37)  OR (KT(I) = 8  AND A1 <45)  OR (KT(I) = 9  AND A1 <53)  THEN 295
  69. 294 Y1(I) = 0
  70. 295  IF I = 1  THEN I = 2: GOTO 292
  71. 296  RETURN 
  72. 297 D = RP(1) -RP(2): IF D >16  AND MH(2) >0  THEN FF = 1:FA = 2: IF RD <NR  THEN 467
  73. 298 MH(2) = 0:MH(1) = 0: IF RP(1) >19  THEN K9 = TK(2):CD =  INT( RND(1) *100) +1:FF = 1:FA = 2: GOSUB 436
  74. 299  IF RP(2) >19  THEN K9 = TK(1):CD =  INT( RND(1) *100) +1:FF = 2:FA = 1: GOSUB 436
  75. 300  GOSUB 289:W1 = 1:L1 = 2:HA = AC:AC = A3
  76. 301  IF KT(1) >0  AND KT(2) >0  THEN 303
  77. 302  IF D <6  AND (KT(1) >0  OR KT(2) >0  OR P0(1) = 5  OR P0(2) = 5  OR P0(1) = 2  OR P0(2) = 2)  THEN  GOSUB 615: GOSUB 679: GOSUB 681: GOSUB 683: GOTO 310
  78. 303  IF D <6  THEN  GOSUB 669: GOTO 310
  79. 304  IF D <13  THEN  GOSUB 685: GOTO 310
  80. 305  IF D <17  THEN  GOSUB 688: GOTO 310
  81. 306  IF D <21  THEN  GOSUB 695: GOTO 310
  82. 307  IF D <25  THEN  GOSUB 699: GOTO 310
  83. 308  IF D <31  THEN  GOSUB 706: GOTO 310
  84. 309  GOSUB 711
  85. 310 AC = HA:KT(1) = 0:KT(2) = 0:KF = 0
  86. 311  GOTO 272
  87. 312 D = RP(2) -RP(1): IF D >16  AND MH(1) >0  THEN FF = 2:FA = 1: IF RD <NR  THEN 467
  88. 313 MH(1) = 0:MH(2) = 0: IF RP(2) >19  THEN K9 = TK(1):CD =  INT( RND(1) *100) +1:FF = 2:FA = 1: GOSUB 436
  89. 314  IF RP(1) >19  THEN K9 = TK(2):CD =  INT( RND(1) *100) +1:FF = 1:FA = 2: GOSUB 436
  90. 315  GOSUB 289
  91. 316 W1 = 2:L1 = 1
  92. 317 HA = AC:AC = A3
  93. 318  GOTO 301
  94. 319  GOTO 716
  95. 406  IF RD = NR  THEN 435
  96. 407  FOR A = 1 TO 6:CA(1) = CA(1) +FE%(0,A):CA(2) = CA(2) +FE%(1,A): NEXT :OK%(1) = 0:OK%(2) = 0
  97. 408  IF CA(1) <6  THEN 410
  98. 409 T7 =  INT( RND(1) *100) +1:Q5 = 1: GOSUB 1261: IF (CA(1) >5  AND CA(1) <7  AND T7 <21)  OR (CA(1) = 7  AND T7 <41)  OR (CA(1) = 8  AND T7 <61)  OR (CA(1) >8)  THEN XX = 1
  99. 410  IF CA(2) <6  THEN 412
  100. 411 T7 =  INT( RND(1) *100) +1:Q5 = 2: GOSUB 1261: IF (CA(2) >5  AND CA(2) <7  AND T7 <21)  OR (CA(2) = 7  AND T7 <41)  OR (CA(2) = 8  AND T7 <61)  OR (CA(2) >8)  THEN XZ = 1
  101. 412 B = 8: IF G1 = 0  THEN B = 9
  102. 413  IF B = 9  AND G2 = 0  THEN 419
  103. 414 Q5 = 0:Q6 = 1: GOSUB 1250: FOR A = B TO 9
  104. 415 T7 =  INT(100 * RND(1)) +1
  105. 416  IF (CP(1,A) = 2  AND T7 <5)  OR (CP(1,A) = 4  AND T7 <13)  OR (CP(1,A) = 6  AND T7 <37)  OR (CP(1,A) = 8)  THEN XX = 1
  106. 417  IF A = 8  AND G2 = 0  THEN A = 9
  107. 418  NEXT 
  108. 419 B = 8: IF G3 = 0  THEN B = 9
  109. 420  IF B = 9  AND G4 = 0  THEN 426
  110. 421 Q5 = 0:Q6 = 2: GOSUB 1250: FOR A = B TO 9
  111. 422 T7 =  INT(100 * RND(1)) +1
  112. 423  IF (CP(2,A) = 2  AND T7 <5)  OR (CP(2,A) = 4  AND T7 <13)  OR (CP(2,A) = 6  AND T7 <37)  OR (CP(2,A) = 8)  THEN XZ = 1
  113. 424  IF A = 8  AND G4 = 0  THEN A = 9
  114. 425  NEXT 
  115. 426  REM 
  116. 427  IF XX = 1  OR XZ = 1  THEN  HOME : VTAB 21
  117. 428  IF XX = 1  THEN XZ = 2
  118. 429  IF XZ = 1  THEN XX = 2
  119. 430  IF XX = 0  AND XZ = 0  THEN 433
  120. 431  PRINT "HIS CUTS ARE TOO SERIOUS.": PRINT NM$(XX)" CANNOT ANSWER THE BELL FOR": PRINT "THE NEXT ROUND. IT'S A TKO."
  121. 432 BO = XZ:NB = XX: GOTO 716
  122. 433 RE = 0:G1 = 0:G2 = 0:G3 = 0:G4 = 0:CA(1) = 0:CA(2) = 0: GOSUB 1131:HR%(1) = 0:HR%(2) = 0
  123. 434 CR$(1) = " ":CR$(2) = " "
  124. 435  RETURN 
  125. 436  IF RD = NR  THEN 466
  126. 437  GOSUB 640
  127. 443  IF TR$ = " "  THEN 466
  128. 444 MS$ = "              ": GOSUB 801
  129. 445  IF TR$ = "A"  THEN SR(FA) = SR(FA) +1: IF SR(FA) = 1  THEN S0(FF) = S0(FF) +3:S0(FA) = S0(FA) -2:A$ = "THE RIGHT EYE OF " +NM$(FA) +" IS STARTING TO SWELL SHUT.":MS$ = "SWOLLEN R-EYE":TR$ = "1": GOSUB 2100
  130. 446  IF TR$ = "B"  THEN SL(FA) = SL(FA) +1: IF SL(FA) = 1  THEN S0(FF) = S0(FF) +3:S0(FA) = S0(FA) -2:A$ = "THE LEFT EYE OF " +NM$(FA) +" IS STARTING TO SWELL SHUT.":MS$ = "SWOLLEN L-EYE":TR$ = "2": GOSUB 2100
  131. 447  IF TR$ = "C"  AND SR(FA) >0  THEN MC(FA) = MC(FA) +1: IF MC(FA) = 1  THEN S2(FF) = S2(FF) +2:A$ = "THE RIGHT EYE OF " +NM$(FA) +" IS COMPLETELY": GOSUB 2100:WV(1) = 18.4:A$ = "SWOLLEN SHUT.":WV(0) = 1: GOSUB 2100: GOSUB 211
  132. 448  IF TR$ = "C"  AND SR(FA) = 0  THEN TR$ = "A": GOTO 445
  133. 449  IF TR$ = "D"  AND SL(FA) >0  THEN MD(FA) = MD(FA) +1: IF MD(FA) = 1  THEN S2(FF) = S2(FF) +2:A$ = "THE LEFT EYE OF " +NM$(FA) +" IS COMPLETELY": GOSUB 2100:WV(1) = 18.4:A$ = "SWOLLEN SHUT.":WV(0) = 1: GOSUB 2100: GOSUB 212
  134. 450  IF TR$ = "D"  AND SL(FA) = 0  THEN TR$ = "B": GOTO 446
  135. 451  IF TR$ = "E"  THEN ME(FA) = ME(FA) +1: IF ME(FA) = 1  THEN S0(FF) = S0(FF) +5:A$ = NM$(FA) +" IS CARRYING HIS ARMS LOWER DUE TO EXCESSIVE": GOSUB 2100:WV(1) = 18.4:WV(0) = 1:A$ = "BODY PUNCHES.": GOSUB 2100:MS$ = "ARMS LOWERED"
  136. 452  IF TR$ = "F"  THEN MF(FA) = MF(FA) +1: IF MF(FA) = 1  THEN S5(FF) = S5(FF) +5:A$ = NM$(FA) +" WAS STUNNED BY SOME VICIOUS SHOTS TO THE HEAD.": GOSUB 2100
  137. 453  IF TR$ = "G"  THEN MG(FA) = 1:A$ = NM$(FA) +" TOOK A TREMENDOUS AMOUNT OF PUNISHMENT": GOSUB 2100:WV(1) = 18.4:WV(0) = 1:A$ = "THAT ROUND.": GOSUB 2100
  138. 454  IF TR$ = "H"  THEN MH(FA) = 1:A$ = NM$(FA) +" WAS SHOOK UP PRETTY GOOD. HE BETTER BE CAREFUL.": GOSUB 2100
  139. 455  IF TR$ = "I"  THEN 467
  140. 456  IF  LEFT$(MS$,1) < >" "  THEN 458
  141. 457  GOTO 465
  142. 458  IF RE = 0  THEN 463
  143. 459 A = 0
  144. 460 A = A +1: IF CA$(FA -1,A) < >TR$  THEN 460
  145. 461 WV(1) = 4.7 +A +(A *.5):WV(0) = 1: IF FA = 2  THEN WV(0) = 30.7
  146. 462 A$ = "$$$$$$$$$$":WV(5) = 0: GOSUB 2100: GOSUB 213: GOTO 465
  147. 463  IF FA = 1  THEN K1(0) = K1(0) +1:WV(1) = 4.7 +K1(0) +(K1(0) *.5):WV(0) = 1:A$ = MS$: GOSUB 2100: IF TR$ = "1"  OR TR$ = "2"  THEN CA$(FA -1,K1(0)) = TR$
  148. 464  IF FA = 2  THEN K2(0) = K2(0) +1:WV(1) = 4.7 +K2(0) +(K2(0) *.5):WV(0) = 30.7:A$ = MS$: GOSUB 2100: IF TR$ = "1"  OR TR$ = "2"  THEN CA$(FA -1,K2(0)) = TR$
  149. 465  GOSUB 752: GOSUB 752: HOME : VTAB 21: IF Y2(FA) = 1  AND Y3(FA) = 1  THEN 467
  150. 466  RETURN 
  151. 467  HOME : VTAB 21: GOSUB 771: PRINT NM$(FA)" TOOK TOO MUCH PUNISHMENT.": PRINT "HE CANNOT ANSWER THE BELL FOR ": PRINT "THE NEXT ROUND. ":BO = FF:NB = FA: GOTO 716
  152. 468 R1 = RD +1:R2 = RD:R3 = RD -1: IF IP% = 1  THEN PT%(1,RD +1) = RP(1):PT%(2,RD +1) = RP(2): GOTO 470
  153. 469 PR(1,RD) = RP(1):PR(2,RD) = RP(2):R1 = RD:R2 = RD -1:R3 = RD -2
  154. 470  IF RD = NR  OR (RS%(5) < >1  AND IP% = 1)  OR VA = 1  THEN 489
  155. 471  IF IP% = 1  THEN RK = PT%(R8,R1): GOTO 473
  156. 472 RK = PR(R8,R1)
  157. 473  IF (RK >25  AND TK(R9) = 5)  OR (RK >27  AND TK(R9) = 4)  OR (RK >29  AND TK(R9) = 3)  OR (RK >32  AND TK(R9) = 2)  OR (K1(0) = 6)  OR (K2(0) = 6)  THEN 490
  158. 474  IF RK >37  AND TK(R9) = 1  THEN 490
  159. 475  IF R2 = 0  THEN 485
  160. 476  IF IP% = 1  THEN RK = PT%(R8,R1) +PT%(R8,R2): GOTO 478
  161. 477 RK = PR(R8,R1) +PR(R8,R2)
  162. 478  IF (RK >40  AND TK(R9) = 5)  OR (RK >42  AND TK(R9) = 4)  OR (RK >44  AND TK(R9) = 3)  OR (RK >47  AND TK(R9) = 2)  THEN 490
  163. 479  IF RK >52  AND TK(R9) = 1  THEN 490
  164. 480  IF R3 = 0  THEN 485
  165. 481  IF IP% = 1  THEN RK = PT%(R8,R1) +PT%(R8,R2) +PT%(R8,R3): GOTO 483
  166. 482 RK = PR(R8,R1) +PR(R8,R2) +PR(R8,R3)
  167. 483  IF (RK >50  AND TK(R9) = 5)  OR (RK >52  AND TK(R9) = 4)  OR (RK >54  AND TK(R9) = 3)  OR (RK >57  AND TK(R9) = 2)  THEN 490
  168. 484  IF RK >62  AND TK(R9) = 1  THEN 490
  169. 485  IF R8 = 1  THEN R8 = 2:R9 = 1: GOTO 487
  170. 486  IF R8 = 2  THEN R8 = 1:R9 = 2
  171. 487  IF QQ = 1  THEN QQ = 0: GOTO 489
  172. 488 QQ = 1: GOTO 471
  173. 489  GOSUB 870: RETURN 
  174. 490 A =  INT(10 * RND(1)) +1: IF A >5 +TK(R9)  AND IP% = 0  THEN 485
  175. 491 FF = R8:FA = R9: GOTO 467
  176. 504 RF = 0
  177. 505  IF Z0 = 1  OR Z0 = 2  OR Z0 = 3  THEN PS(1) = ((SC(1,1) +SC(1,2) +SC(1,3))/3):PS(2) = ((SC(2,1) +SC(2,2) +SC(2,3))/3)
  178. 506  IF (NR = 10  AND (RD = 0  OR RD = 1  OR RD = 2))  OR (NR = 12  AND (RD = 0  OR RD = 1  OR RD = 2))  OR (NR = 15  AND (RD = 0  OR RD = 1  OR RD = 2  OR RD = 3))  THEN RF = 1
  179. 507  IF (NR = 10  AND (RD = 8  OR RD = 9))  OR (NR = 12  AND (RD = 10  OR RD = 11))  OR (NR = 15  AND (RD = 13  OR RD = 14))  THEN RF = 3
  180. 508  IF RF = 1  OR RF = 3  THEN 510
  181. 509 RF = 2
  182. 510 A = 0:B = 0: IF Z0 = 3  THEN A = 2:B = 1: GOSUB 595:A = 1:B = 2: GOSUB 595: GOTO 543
  183. 511  IF Z0 = 2  OR Z0 = 0  THEN A = 1:B = 0
  184. 512  IF Z0 = 1  THEN  GOTO 528
  185. 513  SPEED= 255: HOME : VTAB 21: PRINT "1-FLT FOOTED 2-COVER  UP("CU(A)") 3-CHG IN("FI(A)")": PRINT "4-STK/MVE("FO(A)") 5-STAY AWAY("SA(A)") 6-GO  KO("KC(A)")"
  186. 514  PRINT "7-PRT CUT("PC(A)")":P0(A) = 1: VTAB 23: HTAB 14: PRINT NM$(A)"-": SPEED= 150: GOSUB 535: FLASH : PRINT "FLAT FOOTED": NORMAL 
  187. 515  IF ((PK$ = "P"  AND  PDL(B) <35)  OR (PK$ = "K"  AND  PEEK( -16384) = 177))  AND P0(A) < >1  THEN P0(A) = 1: POKE  -16368,0: GOSUB 535: FLASH : PRINT "FLAT FOOTED": NORMAL 
  188. 516  IF ((PK$ = "P"  AND ( PDL(B) >34  AND  PDL(B) <70))  OR (PK$ = "K"  AND  PEEK( -16384) = 178))  AND P0(A) < >2  THEN P0(A) = 2: POKE  -16368,0: GOSUB 535: FLASH : PRINT "COVER UP("CU(A)")": NORMAL 
  189. 517  IF RD < >0  AND RD < >1  AND RD < >2  AND RD < >3  THEN  IF FI(A) = 0  OR (SG%(A -1,RD) = 3  AND SG%(A -1,RD -1) = 3  AND SG%(A -1,RD -2) = 3  AND SG%(A -1,RD -3) = 3)  THEN 519
  190. 518  IF ((PK$ = "P"  AND ( PDL(B) >69  AND  PDL(B) <105))  OR (PK$ = "K"  AND  PEEK( -16384) = 179))  AND P0(A) < >3  THEN P0(A) = 3: POKE  -16368,0: GOSUB 535: FLASH : PRINT "CHARGE IN("FI(A)")": NORMAL 
  191. 519  IF RD < >0  AND RD < >1  AND RD < >2  AND RD < >3  THEN  IF FO(A) = 0  OR (SG%(A -1,RD) = 4  AND SG%(A -1,RD -1) = 4  AND SG%(A -1,RD -2) = 4  AND SG%(A -1,RD -3) = 4)  THEN 522
  192. 520  IF ((PK$ = "P"  AND ( PDL(B) >104  AND  PDL(B) <140))  OR (PK$ = "K"  AND  PEEK( -16384) = 180))  AND P0(A) < >4  THEN P0(A) = 4: POKE  -16368,0: GOSUB 535: FLASH : PRINT "STICK & MOVE("FO(A)")": NORMAL 
  193. 522  IF ((PK$ = "P"  AND ( PDL(B) >139  AND  PDL(B) <175))  OR (PK$ = "K"  AND  PEEK( -16384) = 181))  AND P0(A) < >5  THEN P0(A) = 5: POKE  -16368,0: GOSUB 535: FLASH : PRINT "STAY AWAY("SA(A)")": NORMAL 
  194. 524  IF ((PK$ = "P"  AND ( PDL(B) >174  AND  PDL(B) <210))  OR (PK$ = "K"  AND  PEEK( -16384) = 182))  AND P0(A) < >6  THEN P0(A) = 6: POKE  -16368,0: GOSUB 535: FLASH : PRINT "GO FOR KO("KC(A)")": NORMAL 
  195. 525  IF ((PK$ = "P"  AND  PDL(B) >209)  OR (PK$ = "K"  AND  PEEK( -16384) = 183))  AND P0(A) < >7  THEN P0(A) = 7: POKE  -16368,0: GOSUB 535: FLASH : PRINT "PROTECT CUTS("PC(A)")": NORMAL 
  196. 526 PK% =  -16287:A0(A) =  PEEK(PK% +B): IF (PK$ = "P"  AND A0(A) <128)  OR (PK$ = "K"  AND  PEEK( -16384) < >141)  THEN 515
  197. 527  POKE  -16368,0: CALL ( -1052):II = A: GOSUB 631: IF Z0 = 2  THEN A = 2:B = 1: GOSUB 595: GOTO 543
  198. 528  IF A = 2  THEN 542
  199. 529 A = 2:B = 1: GOTO 513
  200. 535  VTAB 23: HTAB 13 +( LEN(NM$(A)) +2): PRINT "                ": VTAB 23: HTAB 13 +( LEN(NM$(A)) +2): RETURN 
  201. 542  IF Z0 = 1  THEN A = 1:B = 2: GOSUB 595
  202. 543  GOSUB 230:WV(1) = 4.5:WV(0) = 1:A$ = SY$(1): GOSUB 2100:WV(0) = 30:A$ = SY$(2): GOSUB 2100: IF AA% = 1  OR (AA% = 41  AND LS = 80)  THEN SG%(0,RD +1) = P0(1):SG%(1,RD +1) = P0(2)
  203. 544  FOR Q5 = 1 TO 2
  204. 545  IF Q5 = 1  THEN Q6 = 2
  205. 546  IF Q5 = 2  THEN Q6 = 1
  206. 547 S0(Q5) = P1(Q5):S1(Q5) = AG(Q5):S2(Q5) = BC(Q5):S3(Q5) = DF(Q5):S4(Q5) = K1(Q5):S5(Q5) = HP(Q5):S6(Q5) = ES(Q5): IF P0(Q5) = 2  AND AA% = 1  THEN CF%(0) = 1
  207. 548  ON P0(Q5) GOTO 584,550,553,560,567,574,582
  208. 550  IF P0(Q6) = 2  OR P0(Q6) = 5  THEN 584
  209. 551 P1(Q5) = 10
  210. 552 K1(Q5) = K1(Q5) +2: GOSUB 1229:BC(Q5) = BC(Q5) -AQ%:DF(Q5) = DF(Q5) -AR%: GOTO 584
  211. 553  IF P0(Q6) = 1  OR P0(Q6) = 7  THEN DF(Q5) = DF(Q5) +5:K1(Q5) = K1(Q5) +1:BC(Q5) = BC(Q5) -2
  212. 554  IF P0(Q6) = 2  THEN AG(Q5) = AG(Q5) +2:HP(Q5) = HP(Q5) +1
  213. 555  IF P0(Q6) = 3  THEN DF(Q5) = DF(Q5) +5:K1(Q5) = K1(Q5) +2:HP(Q5) = HP(Q5) +1:BC(Q5) = BC(Q5) -6
  214. 556  IF P0(Q6) = 4  THEN BC(Q5) = BC(Q5) -2:DF(Q5) = DF(Q5) +4:K1(Q5) = K1(Q5) +1
  215. 557  IF P0(Q6) = 5  THEN AG(Q5) = AG(Q5) +2:BC(Q5) = BC(Q5) -1
  216. 558  IF P0(Q6) = 6  THEN K1(Q5) = K1(Q5) +2:DF(Q5) = DF(Q5) +6:AG(Q5) = AG(Q5) -2:BC(Q5) = BC(Q5) -3
  217. 559  GOSUB 1200:AG(Q5) = AG(Q5) +AR%:BC(Q5) = BC(Q5) +AR%:ES(Q5) = ES(Q5) +(AR% *3): GOTO 584
  218. 560  IF P0(Q6) = 1  OR P0(Q6) = 7  THEN HP(Q5) = HP(Q5) -2:DF(Q5) = DF(Q5) -5:K1(Q5) = K1(Q5) -2:BC(Q5) = BC(Q5) -2
  219. 561  IF P0(Q6) = 2  THEN HP(Q5) = HP(Q5) -2
  220. 562  IF P0(Q6) = 3  THEN HP(Q5) = HP(Q5) -1:K1(Q5) = K1(Q5) -1:BC(Q5) = BC(Q5) -2
  221. 563  IF P0(Q6) = 4  THEN HP(Q5) = HP(Q5) -4:DF(Q5) = DF(Q5) -6:K1(Q5) = K1(Q5) -3:BC(Q5) = BC(Q5) -2
  222. 564  IF P0(Q6) = 5  THEN HP(Q5) = HP(Q5) -2:DF(Q5) = DF(Q5) -5:K1(Q5) = K1(Q5) -3
  223. 565  IF P0(Q6) = 6  THEN HP(Q5) = HP(Q5) -1:K1(Q5) = K1(Q5) -1:BC(Q5) = BC(Q5) -2
  224. 566  GOSUB 1210:AR% = AR% -5:DF(Q5) = DF(Q5) -AR%:BC(Q5) = BC(Q5) +AQ%: GOTO 584
  225. 567  IF P0(Q6) = 1  OR P0(Q6) = 7  THEN DF(Q5) = DF(Q5) -5:K1(Q5) = K1(Q5) -2:HP(Q5) = HP(Q5) -4:BC(Q5) = BC(Q5) -3
  226. 568  IF P0(Q6) = 2  THEN 584
  227. 569  IF P0(Q6) = 3  THEN K1(Q5) = K1(Q5) -2:HP(Q5) = HP(Q5) -3:BC(Q5) = BC(Q5) -4
  228. 570  IF P0(Q6) = 4  THEN DF(Q5) = DF(Q5) -5:K1(Q5) = K1(Q5) -3:HP(Q5) = HP(Q5) -4:BC(Q5) = BC(Q5) -4
  229. 571  IF P0(Q6) = 5  THEN 584
  230. 572  IF P0(Q6) = 6  THEN K1(Q5) = K1(Q5) -1:HP(Q5) = HP(Q5) -3:BC(Q5) = BC(Q5) -4
  231. 573  GOSUB 1211:BC(Q5) = BC(Q5) +AQ%:DF(Q5) = DF(Q5) -AR%:P1(Q5) =  INT(P1(Q5)/3):P1(Q5) = P1(Q5) +(AR%/2): GOTO 584
  232. 574  IF P0(Q6) = 1  OR P0(Q6) = 7  THEN K1(Q5) = K1(Q5) +1:DF(Q5) = DF(Q5) +4:BC(Q5) = BC(Q5) -2
  233. 575  IF P0(Q6) = 2  THEN AG(Q5) = AG(Q5) +2:BC(Q5) = BC(Q5) +1:HP(Q5) = HP(Q5) +1
  234. 576  IF P0(Q6) = 3  THEN K1(Q5) = K1(Q5) +2:DF(Q5) = DF(Q5) +6:BC(Q5) = BC(Q5) -1:AG(Q5) = AG(Q5) -1
  235. 577  IF P0(Q6) = 4  THEN AG(Q5) = AG(Q5) -1:DF(Q5) = DF(Q5) +5:K1(Q5) = K1(Q5) +1:BC(Q5) = BC(Q5) -2
  236. 578  IF P0(Q6) = 5  THEN AG(Q5) = AG(Q5) +3:DF(Q5) = DF(Q5) +2
  237. 579  IF P0(Q6) = 6  THEN DF(Q5) = DF(Q5) +6:K1(Q5) = K1(Q5) +3:AG(Q5) = AG(Q5) -2:BC(Q5) = BC(Q5) -2
  238. 580  GOSUB 1220:AG(Q5) = AG(Q5) +AR%:BC(Q5) = BC(Q5) +AR%: IF HP(Q5) <8  THEN HP(Q5) = 8
  239. 581  GOTO 584
  240. 582  GOSUB 1270:BC(Q5) = BC(Q5) -AR%:DF(Q5) = DF(Q5) +AQ%
  241. 584  NEXT : GOSUB 761: RETURN 
  242. 585 P1(1) = P1(1) +(DF(2) -S3(2))
  243. 586 P1(2) = P1(2) +(DF(1) -S3(1))
  244. 587  IF AG(1) >AG(2)  THEN BO = 1:NB = 2
  245. 588  IF AG(2) >AG(1)  THEN BO = 2:NB = 1
  246. 589  RETURN 
  247. 590 P0(1) = 1:P0(2) = 1
  248. 591  FOR Q5 = 1 TO 2
  249. 592 P1(Q5) = S0(Q5):AG(Q5) = S1(Q5):BC(Q5) = S2(Q5):DF(Q5) = S3(Q5):K1(Q5) = S4(Q5):HP(Q5) = S5(Q5):ES(Q5) = S6(Q5)
  250. 593  NEXT 
  251. 594  RETURN 
  252. 595  IF RD < >0  AND RD < >1  AND RD < >2  AND RD < >3  THEN  IF FO(A) = 0  OR (SG%(A -1,RD) = 4  AND SG%(A -1,RD -1) = 4  AND SG%(A -1,RD -2) = 4  AND SG%(A -1,RD -3) = 4)  THEN 599
  253. 596  IF FT$(A) = "B"  AND (FO(A) >2  OR (PS(A) -PS(B) >2  AND FO(A) >1))  THEN P0(A) = 4
  254. 597  IF FT$(A) = "B"  AND (HP(B) >8  OR ES(B) >75)  AND FO(A) >1  THEN P0(A) = 4
  255. 598  IF FT$(A) = "B"  AND PS(A) -PS(B) <1  AND FO(A) >1  AND FO(A) >FI(A)  THEN P0(A) = 4
  256. 599  IF RD < >0  AND RD < >1  AND RD < >2  AND RD < >3  THEN  IF FI(A) = 0  OR (SG%(A -1,RD) = 3  AND SG%(A -1,RD -1) = 3  AND SG%(A -1,RD -2) = 3  AND SG%(A -1,RD -3) = 3)  THEN 603
  257. 600  IF FT$(A) = "S"  AND FI(A) >2  THEN P0(A) = 3
  258. 601  IF FT$(A) = "S"  AND HP(B) <8  AND ES(B) <60  AND FI(A) >1  THEN P0(A) = 3
  259. 602  IF (FT$(A) = "S"  AND PS(A) -PS(B) <1  AND FI(A) >1)  OR (FT$(A) = "B"  AND FI(A) > = FO(A))  THEN P0(A) = 3
  260. 603  IF PS(A) -PS(B) >2 +(NR -RD)  AND RF = 3  THEN P0(A) = 5:Q5 =  INT(2 * RND(1)) +1: IF Q5 = 1  THEN P0(A) = 1
  261. 604  IF ((RF = 2  AND DA%(A) = 1  AND PS(A) -PS(B) >1)  OR (RF = 1  AND DA%(A) = 1  AND HP(B) <8  AND ES(B) <65))  AND SG%(A -1,RD) < >1  THEN P0(A) = 1
  262. 605  IF RF = 1  AND DA%(A) = 1  AND HP(B) >7  AND ES(B) >65  AND SG%(A -1,RD) < >5  THEN P0(A) = 5
  263. 606  IF (Y1(A) >0  AND (K1(A) +K2(A)) >5)  AND HP(B) >8  THEN P0(A) = 5
  264. 607  IF MF(A) >0  OR MG(A) >0  OR MH(A) >0  THEN P0(A) = 5
  265. 608  IF RD +1 = NR  THEN 611
  266. 609  FOR C = 1 TO 9:CA(A) = CA(A) +CP(A,C): NEXT : IF (CA(A) >6  OR (BG(A,1) +BG(A,2)) >1)  AND (RF = 1  OR RF = 2)  THEN SP =  INT((10 +(4 -PC(A))) * RND(1)) +1: IF SP <10  THEN P0(A) = 7
  267. 610  IF (CA(A) >5  OR (BG(A,1) +BG(A,2)) >0)  AND (RF = 3)  THEN SP =  INT((10 +(4 -PC(A))) * RND(1)) +1: IF SP <10  THEN P0(A) = 7
  268. 611 C = HP(A) -HP(B)
  269. 612  IF PS(B) -PS(A) >2 +(NR -RD)  AND RF = 3  THEN SP =  INT((10 +(4 -KC(A))) * RND(1)) +1: IF SP <10  THEN P0(A) = 6
  270. 613  IF (C >2  AND RF = 1  AND ER(A)/187.5 >.90  AND KC(A) > = FO(A)  AND KC(A) > = FI(A))  OR (Y1(B) >0  AND RF <3)  THEN SP =  INT((10 +(4 -KC(A))) * RND(1)) +1: IF SP <10  THEN P0(A) = 6
  271. 614 CA(1) = 0:CA(2) = 0:II = A: GOSUB 631: RETURN 
  272. 615  IF KT(L1) >0  THEN T1 = 10:T2 = 9
  273. 616  IF KT(W1) >0  THEN T1 = 9:T2 = 10
  274. 617  IF P0(L1) = 5  OR P0(L1) = 2  THEN T1 = 10:T2 = 9
  275. 618  IF P0(W1) = 5  OR P0(W1) = 2  THEN T1 = 9:T2 = 10
  276. 619  RETURN 
  277. 631  REM  
  278. 632  IF P0(II) = 1  THEN SY$(II) = "FLAT FOOTED":S%(II) =  -8
  279. 633  IF P0(II) = 2  THEN SY$(II) = "COVER UP":S%(II) =  -5
  280. 634  IF P0(II) = 3  THEN SY$(II) = "CHARGE IN":S%(II) = 20
  281. 635  IF P0(II) = 4  THEN SY$(II) = "STICK-MOVE":S%(II) = 25
  282. 636  IF P0(II) = 5  THEN SY$(II) = "STAY AWAY":S%(II) =  -5
  283. 637  IF P0(II) = 6  THEN SY$(II) = "GO FOR KO":S%(II) = 30
  284. 638  IF P0(II) = 7  THEN SY$(II) = "PROTECT CUTS":S%(II) =  -5
  285. 639  RETURN 
  286. 640 TR$ = " ": IF CD >16  THEN 644
  287. 641 CD =  INT( RND(1) *2) +1: ON CD GOSUB 642,643: GOTO 660
  288. 642 TR$ = "A": RETURN 
  289. 643 TR$ = "B": RETURN 
  290. 644  IF CD >31  THEN 648
  291. 645 CD =  INT( RND(1) *2) +1: ON CD GOSUB 646,647: GOTO 660
  292. 646 TR$ = "C": RETURN 
  293. 647 TR$ = "D": RETURN 
  294. 648  IF CD >37  THEN 650
  295. 649 TR$ = "E": GOTO 660
  296. 650  IF CD >43  THEN 652
  297. 651 TR$ = "F": GOTO 660
  298. 652  IF CD >43 +(K9 *8)  THEN 656
  299. 653 CD =  INT( RND(1) *2) +1: ON CD GOSUB 654,655: GOTO 660
  300. 654 TR$ = "G": RETURN 
  301. 655 TR$ = "H": RETURN 
  302. 656  IF CD >43 +(K9 *8) +(K9 *2)  THEN 660
  303. 657 TR$ = "I": RETURN 
  304. 660  RETURN 
  305. 665 VB = 5: GOTO 716
  306. 666  REM 
  307. 667  GOTO 716
  308. 668  GOSUB 10: FOR W1 = 1 TO 2: FOR A = 1 TO Q5:SC(W1,A) = SC(W1,A) +10:JS%(((W1 *W1) -1) +(A -1),RD) = 10: NEXT : NEXT : RETURN 
  309. 669  GOSUB 930
  310. 678  RETURN 
  311. 679 SC(W1,1) = SC(W1,1) +T1:SC(L1,1) = SC(L1,1) +T2:JS%(((W1 *W1) -1),RD) = T1:JS%(((L1 *L1) -1),RD) = T2
  312. 680  RETURN 
  313. 681 SC(W1,2) = SC(W1,2) +T1:SC(L1,2) = SC(L1,2) +T2:JS%((W1 *W1),RD) = T1:JS%((L1 *L1),RD) = T2
  314. 682  RETURN 
  315. 683  GOSUB 20:SC(W1,3) = SC(W1,3) +T1:SC(L1,3) = SC(L1,3) +T2:JS%(((W1 *W1) +1),RD) = T1:JS%(((L1 *L1) +1),RD) = T2
  316. 684  RETURN 
  317. 685 T1 = 10:T2 = 9: GOSUB 679
  318. 686  GOSUB 681: GOSUB 683
  319. 687  RETURN 
  320. 688  GOSUB 942
  321. 694  RETURN 
  322. 695 T1 = 10:T2 = 8: GOSUB 679
  323. 696  GOSUB 681
  324. 697  GOSUB 683
  325. 698  RETURN 
  326. 699  GOSUB 951
  327. 705  RETURN 
  328. 706 T1 = 10:T2 = 7
  329. 707  GOSUB 679
  330. 708  GOSUB 681
  331. 709  GOSUB 683
  332. 710  RETURN 
  333. 711 T1 = 10:T2 = 6
  334. 712  GOSUB 679
  335. 713  GOSUB 681
  336. 714  GOSUB 683
  337. 715  RETURN 
  338. 716  GOTO 960
  339. 749  FOR A = 1 TO 3: CALL (RB%): FOR Q5 = 1 TO 50: NEXT : NEXT : RETURN 
  340. 750 WV(1) = 2:WV(0) = 1:WV(5) = 0:A$ = B$: GOSUB 2100:WV(5) = 3:WV(2) = 1: GOSUB 217: GOSUB 2100
  341. 751  RETURN 
  342. 752  FOR Q5 = 1 TO 1600: NEXT : RETURN 
  343. 761  FOR A = 1 TO 2: IF BC(A) <1  THEN BC(A) = 1
  344. 762  GOSUB 791
  345. 763  IF HP(A) <1  THEN HP(A) = 1
  346. 764  IF P1(A) <1  THEN P1(A) = 1
  347. 765  IF K1(A) <1  THEN K1(A) = 1
  348. 766  IF S0(A) <1  THEN S0(A) = 1
  349. 767  IF S2(A) <1  THEN S2(A) = 1
  350. 768  IF S4(A) <1  THEN S4(A) = 1
  351. 769  IF S5(A) <1  THEN S5(A) = 1
  352. 770  NEXT : RETURN 
  353. 771  IF IP% = 0  THEN  RETURN 
  354. 772  IF VF >0  THEN VF = VF +1: IF VF = 3  THEN VF = 0
  355. 773  IF VF >0  THEN  POP : GOTO 485
  356. 774  PRINT "WAIT A SECOND... THE REF IS LOOKING": PRINT "AT "NM$(FA)".": GOSUB 752: GOSUB 752: IF A <5 +TK(FA)  OR K1(0) >5  OR K2(0) >5  THEN  PRINT "HE STOPS THE FIGHT.": PRINT NM$(FF)" IS THE WINNER ON A TKO.":BO = FF:NB = FA: GOTO 716
  357. 775  PRINT NM$(FA)" IS GIVEN A STANDING 8 COUNT.":VF = VF +1: POP : GOTO 485
  358. 776 A =  INT(6 * RND(1)) +1: RETURN 
  359. 777  GOTO 777
  360. 791  IF K1(A) >10  THEN K1(A) = 10
  361. 792  IF S4(A) >10  THEN S4(A) = 10
  362. 793  IF AG(A) >20  THEN AG(A) = 20
  363. 794  RETURN 
  364. 801  FOR WV = 17 TO 18:A$ = B$:WV(1) = WV +.4:WV(5) = 0:WV(0) = 1: GOSUB 2100: NEXT :WV(1) = 17.4:WV(0) = 1:WV(5) = 3: RETURN 
  365. 862 A$ = "$$$$":WV(1) = 15.3:WV(0) = 16.5:WV(5) = 0: GOSUB 2100:WV(0) = 22.5: GOSUB 2100:WV(5) = 3:WV(0) = 16.5:SC(0,0) =  INT((ER(1)/IR%(1)) *100):A$ = "": GOSUB 223:A$ = A$ +"%": GOSUB 2100
  366. 863 WV(0) = 22.5:SC(0,0) =  INT((ER(2)/IR%(2)) *100):A$ = "": GOSUB 223:A$ = A$ +"%": GOSUB 2100
  367. 866  RETURN 
  368. 870  IF K1(0) >4  THEN FF = 2:FA = 1: GOTO 774
  369. 872  IF K2(0) >4  THEN FF = 1:FA = 2: GOTO 774
  370. 874  RETURN 
  371. 930  GOSUB 776: ON A GOSUB 934,934,934,933,933,935
  372. 931  GOSUB 776: ON A GOSUB 937,937,937,936,936,938
  373. 932  GOSUB 776: ON A GOSUB 940,940,940,939,939,941: RETURN 
  374. 933 T1 = 10:T2 = 9: GOSUB 679: RETURN 
  375. 934 T1 = 10:T2 = 10: GOSUB 679: RETURN 
  376. 935 T1 = 9:T2 = 10: GOSUB 679: RETURN 
  377. 936 T1 = 10:T2 = 9: GOSUB 681: RETURN 
  378. 937 T1 = 10:T2 = 10: GOSUB 681: RETURN 
  379. 938 T1 = 9:T2 = 10: GOSUB 681: RETURN 
  380. 939 T1 = 10:T2 = 9: GOSUB 683: RETURN 
  381. 940 T1 = 10:T2 = 10: GOSUB 683: RETURN 
  382. 941 T1 = 9:T2 = 10: GOSUB 683: RETURN 
  383. 942  GOSUB 776: ON A GOSUB 945,945,946,946,946,946
  384. 943  GOSUB 776: ON A GOSUB 947,947,948,948,948,948
  385. 944  GOSUB 776: ON A GOSUB 949,949,950,950,950,950: RETURN 
  386. 945 T1 = 10:T2 = 8: GOSUB 679: RETURN 
  387. 946 T1 = 10:T2 = 9: GOSUB 679: RETURN 
  388. 947 T1 = 10:T2 = 8: GOSUB 681: RETURN 
  389. 948 T1 = 10:T2 = 9: GOSUB 681: RETURN 
  390. 949 T1 = 10:T2 = 8: GOSUB 683: RETURN 
  391. 950 T1 = 10:T2 = 9: GOSUB 683: RETURN 
  392. 951  GOSUB 776: ON A GOSUB 954,954,955,955,955,955
  393. 952  GOSUB 776: ON A GOSUB 956,956,957,957,957,957
  394. 953  GOSUB 776: ON A GOSUB 958,958,959,959,959,959: RETURN 
  395. 954 T1 = 10:T2 = 7: GOSUB 679: RETURN 
  396. 955 T1 = 10:T2 = 8: GOSUB 679: RETURN 
  397. 956 T1 = 10:T2 = 7: GOSUB 681: RETURN 
  398. 957 T1 = 10:T2 = 8: GOSUB 681: RETURN 
  399. 958 T1 = 10:T2 = 7: GOSUB 683: RETURN 
  400. 959 T1 = 10:T2 = 8: GOSUB 683: RETURN 
  401. 960  GOSUB 985: GOSUB 1280: GOSUB 801:A$ = "ENTER  (C)  TO  DISPLAY  JUDGES  SCORE  CARDS.":IN = 1:WV(2) = 1:WV(1) = 18: GOSUB 2100
  402. 961  IF  PEEK( -16384) <128  THEN 961
  403. 962  IF  PEEK( -16384) < >195  THEN  POKE  -16368,0: GOTO 961
  404. 963  POKE  -16368,0: POKE 34,0: HOME : TEXT 
  405. 965  VTAB 3: HTAB 35: PRINT "KNOCK": PRINT "   JUDGE1  JUDGE2  JUDGE3  STRAT  DOWNS": PRINT : PRINT "R# WB  LB  WB  LB  WB  LB  WB LB  WB LB"
  406. 966  FOR A = 1 TO RD: VTAB 6 +A: IF A <10  THEN  PRINT "0"A
  407. 967  IF A >9  THEN  PRINT A
  408. 968  VTAB 6 +A
  409. 969  HTAB 4: PRINT JS%((BO *BO) -1,A); TAB( 8)JS%((NB *NB) -1,A) TAB( 12)JS%((BO *BO),A) TAB( 16)JS%((NB *NB),A) TAB( 20)JS%((BO *BO) +1,A) TAB( 24)JS%((NB *NB) +1,A) TAB( 28)SP$(SG%(BO -1,A)) TAB( 31)SP$(SG%(NB -1,A))
  410. 970  VTAB 6 +A: HTAB 36: PRINT KC%(BO -1,A) TAB( 39)KC%(NB -1,A): NEXT 
  411. 971  VTAB 22: PRINT "TL "SC(BO,1) TAB( 8)SC(NB,1) TAB( 12)SC(BO,2) TAB( 16)SC(NB,2) TAB( 20)SC(BO,3) TAB( 24)SC(NB,3)
  412. 972  VTAB 1: IF RL% = 0  THEN  PRINT "DRAW BOXER (WB) - "NM$(1): PRINT "DRAW BOXER (LB) - "NM$(2): GOTO 974
  413. 973  PRINT "WINNING BOXER (WB) - "NM$(BO): PRINT "LOSING  BOXER (LB) - "NM$(NB)
  414. 974  INVERSE : ON VB GOSUB 975,976,977,978,979: NORMAL : GOTO 980
  415. 975  PRINT " SPLIT DECISION ": RETURN 
  416. 976  PRINT " UNANIMOUS DECISION ": RETURN 
  417. 977  PRINT " DRAW ": RETURN 
  418. 978  PRINT " TECHNICAL KNOCKOUT ": RETURN 
  419. 979  PRINT " KNOCKOUT ": RETURN 
  420. 980  SPEED= 255: VTAB 23: INVERSE : PRINT " ENTER (P) TO PLAY AGAIN "
  421. 981  IF  PEEK( -16384) <128  THEN 981
  422. 982  IF  PEEK( -16384) = 208  THEN 984
  423. 983  POKE  -16368,0: GOTO 981
  424. 984  POKE  -16368,0: &  RUN "HELLO"
  425. 985  IF RD <NR  THEN RL% = 1: GOTO 998
  426. 986 BO = 0:NB = 0
  427. 987  IF SC(1,1) >SC(2,1)  THEN BO = BO +1:VC%(1) = 1: GOTO 989
  428. 988  IF SC(2,1) >SC(1,1)  THEN NB = NB +1:VC%(1) = 2
  429. 989  IF SC(1,2) >SC(2,2)  THEN BO = BO +1:VC%(2) = 1: GOTO 991
  430. 990  IF SC(2,2) >SC(1,2)  THEN NB = NB +1:VC%(2) = 2
  431. 991  IF SC(1,3) >SC(2,3)  THEN BO = BO +1:VC%(3) = 1: GOTO 993
  432. 992  IF SC(2,3) >SC(1,3)  THEN NB = NB +1:VC%(3) = 2
  433. 993 VB = 1
  434. 994  IF BO = 3  OR NB = 3  THEN VB = 2
  435. 995  IF BO >NB  THEN BO = 1:NB = 2:RL% = 1: GOTO 998
  436. 996  IF NB >BO  THEN BO = 2:NB = 1:RL% = 1: GOTO 998
  437. 997 BO = 1:NB = 2:RL% = 0:VB = 3
  438. 998  RETURN 
  439. 1000 IN = SN:WV(5) = 3:WV(0) = 1:A$ = CB$(A,FD%(A,B)):WV(1) = WV(1) -.2: GOSUB 2100: RETURN 
  440. 1001 IN = SN:WV(5) = 3:WV(0) = 30.7:A$ = CB$(A,FD%(A,B)):WV(1) = WV(1) -.2: GOSUB 2100: RETURN 
  441. 1131 T1 = 0: FOR A = 0 TO 1: FOR B = 1 TO FC%(A,0): IF FE%(A,FD%(A,B)) >0  THEN SP =  INT( RND(1) *100) +1: GOSUB 1137: IF G5 = 1  THEN G5 = 0: GOTO 1136
  442. 1132 SN = 0: IF (FC%(A,FD%(A,B)) >1  AND CA$(A,FD%(A,B)) <"G")  OR (FC%(A,FD%(A,B)) >2  AND CA$(A,FD%(A,B)) >"F")  THEN SN = 1
  443. 1133  IF A = 0  AND CB$(A,FD%(A,B)) >" "  THEN  GOSUB 226:WV(1) = 4.5 +(FD%(A,B)) +((FD%(A,B)) *.5):WV(0) = 1.: GOSUB 2100:WV(1) = WV(1) +.4:WV(0) = 1: GOSUB 2100: GOSUB 1000
  444. 1134  IF A = 1  AND CB$(A,FD%(A,B)) >" "  THEN  GOSUB 227:WV(1) = 4.5 +(FD%(A,B)) +((FD%(A,B)) *.5):WV(0) = 30.7: GOSUB 2100:WV(1) = WV(1) +.4:WV(0) = 30.7: GOSUB 2100: GOSUB 1001
  445. 1135 FE%(A,FD%(A,B)) = 0
  446. 1136  NEXT :T1 = 0: NEXT : RETURN 
  447. 1137  IF CA$(A,FD%(A,B)) <"H"  THEN 1143
  448. 1138  GOSUB 801: GOSUB 1235: IF SP <(95 -(CH(A +1) *3)) -(((FE%(A,B))/2) *5)  THEN 1143
  449. 1139  IF A = 0  AND CA$(A,FD%(A,B)) = "H"  THEN G1 = 1:G5 = 1
  450. 1140  IF A = 0  AND CA$(A,FD%(A,B)) = "I"  THEN G2 = 1:G5 = 1
  451. 1141  IF A = 1  AND CA$(A,FD%(A,B)) = "H"  THEN G3 = 1:G5 = 1
  452. 1142  IF A = 1  AND CA$(A,FD%(A,B)) = "I"  THEN G4 = 1:G5 = 1
  453. 1143  RETURN 
  454. 1200  ON FI(Q5) GOSUB 1201,1202,1203,1204,1205: RETURN 
  455. 1201 AR% = 1: RETURN 
  456. 1202 AR% = 2: RETURN 
  457. 1203 AR% = 3: RETURN 
  458. 1204 AR% = 4: RETURN 
  459. 1205 AR% = 5: RETURN 
  460. 1210  ON FO(Q5) GOSUB 1212,1213,1214,1215,1216: RETURN 
  461. 1211  ON SA(Q5) GOSUB 1212,1213,1214,1215,1216: RETURN 
  462. 1212 AR% = 0:AQ% = 0: RETURN 
  463. 1213 AR% = 5:AQ% = 1: RETURN 
  464. 1214 AR% = 10:AQ% = 2: RETURN 
  465. 1215 AR% = 15:AQ% = 3: RETURN 
  466. 1216 AR% = 20:AQ% = 4: RETURN 
  467. 1220  ON KC(Q5) GOSUB 1221,1222,1223,1224,1225: RETURN 
  468. 1221 AR% = 1: RETURN 
  469. 1222 AR% = 2: RETURN 
  470. 1223 AR% = 3: RETURN 
  471. 1224 AR% = 4: RETURN 
  472. 1225 AR% = 5: RETURN 
  473. 1229  ON CU(Q5) GOSUB 1230,1231,1232,1233,1234: RETURN 
  474. 1230 AQ% = 7:AR% =  -10: RETURN 
  475. 1231 AQ% = 6:AR% =  -7: RETURN 
  476. 1232 AQ% = 5:AR% =  -4: RETURN 
  477. 1233 AQ% = 4:AR% =  -1: RETURN 
  478. 1234 AQ% = 3:AR% = 2: RETURN 
  479. 1235  IF T1 = 1  THEN 1240
  480. 1236 T1 = 1:C =  INT( RND(1) *3) +1: ON C GOSUB 1237,1238,1239: GOSUB 2100: GOTO 1240
  481. 1237 A$ = "THE CUT MAN FOR " +NM$(A +1) +" IS WORKING FEVERISHLY TO": GOSUB 2100:WV(1) = 18.4:A$ = "TRY AND STOP THE BLEEDING.":WV(0) = 1: RETURN 
  482. 1238 A$ = "THEY'RE WORKING HARD TO TRY AND STOP THE BLEEDING OVER": GOSUB 2100:WV(1) = 18.4:WV(0) = 1:A$ = "THE EYE OF " +NM$(A +1) +".": RETURN 
  483. 1239 A$ = "THAT GASH COULD GIVE " +NM$(A +1) +" TROUBLE IF THEY DON'T": GOSUB 2100:WV(1) = 18.4:WV(0) = 1:A$ = "STOP THE BLEEDING.": RETURN 
  484. 1240  RETURN 
  485. 1250 SP =  INT( RND(1) *100) +1: IF SP >25  OR Q5 = 1  OR OK%(Q6) = 1  THEN  GOSUB 801: GOTO 1260
  486. 1251  GOSUB 801:A$ = "THEY'RE CALLING THE DOCTOR TO LOOK AT THE GASH": GOSUB 2100:WV(1) = 18.4:WV(0) = 1:A$ = "ON THE FACE OF " +NM$(Q6) +".": GOSUB 2100: RETURN 
  487. 1252 Q5 = 1
  488. 1260  RETURN 
  489. 1261  GOSUB 801:A$ = "THE DOCTOR IS EXAMINING THE CUTS ON " +NM$(Q5) +" TO ": GOSUB 2100:WV(1) = 18.4:WV(0) = 1:A$ = "SEE IF HE CAN CONTINUE.": GOSUB 2100
  490. 1262 OK%(Q5) = 1
  491. 1269  RETURN 
  492. 1270  ON PC(Q5) GOSUB 1271,1272,1273,1274,1275: RETURN 
  493. 1271 AR% = 2:AQ% = 8: RETURN 
  494. 1272 AR% = 2:AQ% = 6: RETURN 
  495. 1273 AR% = 1:AQ% = 5: RETURN 
  496. 1274 AR% = 0:AQ% = 4: RETURN 
  497. 1275 AR% = 0:AQ% = 2: RETURN 
  498. 1280  IF VB = 4  OR VB = 5  THEN 1510
  499. 1282  HOME : VTAB 21
  500. 1285  ON VB GOSUB 1290,1400,1450: GOTO 1510
  501. 1290  PRINT B2$: GOSUB 752: GOSUB 752: GOSUB 752: GOSUB 752: PRINT "WE HAVE A SPLIT DECISION."
  502. 1300  IF VC%(1) +VC%(2) +VC%(3) = BO  THEN A = NB:VD = NB:VE = VE +1: GOTO 1315
  503. 1302 A =  INT( RND(1) *2) +1
  504. 1305  IF A = NB  THEN VD = NB: GOTO 1315
  505. 1310 VD = BO: GOTO 1335
  506. 1315 VE = VE +1: FOR A = 1 TO 3
  507. 1320  IF VC%(A) = NB  THEN  PRINT "JUDGE #"A" "SC(NB,A)"-"SC(BO,A)" "NM$(NB):A = 3: GOTO 1330
  508. 1325  IF VC%(A) = 0  THEN  PRINT "JUDGE #"A" "SC(NB,A)"-"SC(BO,A)" A DRAW."
  509. 1330  NEXT 
  510. 1332  GOSUB 752: GOSUB 752
  511. 1335 VE = VE +1: FOR A = 1 TO 3
  512. 1337  IF A = VC%(0)  THEN 1345
  513. 1340  IF VC%(A) = BO  THEN VC%(0) = A: PRINT "JUDGE #"A" "SC(BO,A)"-"SC(NB,A)" "NM$(BO):A = 3
  514. 1345  NEXT 
  515. 1347  GOSUB 752: GOSUB 752
  516. 1350  IF VE = 3  THEN 1370
  517. 1355  IF VD = NB  THEN 1335
  518. 1360  GOTO 1315
  519. 1370  RETURN 
  520. 1380  IF CU(A) <1  THEN CU(A) = 1
  521. 1381  IF FO(A) < = 0  THEN FO(A) = 0: IF ER(A) >0  THEN FO(A) = 1
  522. 1382  IF SA(A) <1  THEN SA(A) = 1
  523. 1383  IF FI(A) < = 0  THEN FI(A) = 0: IF ER(A) >0  THEN FI(A) = 1
  524. 1384  IF KC(A) <1  THEN KC(A) = 1
  525. 1385  IF PC(A) <1  THEN PC(A) = 1
  526. 1386  IF CU(A) >CU(A +2)  THEN CU(A) = CU(A +2)
  527. 1387  IF FO(A) >FO(A +2)  THEN FO(A) = FO(A +2)
  528. 1388  IF SA(A) >SA(A +2)  THEN SA(A) = SA(A +2)
  529. 1389  IF FI(A) >FI(A +2)  THEN FI(A) = FI(A +2)
  530. 1390  IF KC(A) >KC(A +2)  THEN KC(A) = KC(A +2)
  531. 1391  IF PC(A) >PC(A +2)  THEN PC(A) = PC(A +2)
  532. 1392  IF ES(A) <0  THEN ES(A) = 0
  533. 1393  RETURN 
  534. 1400  PRINT B2$: GOSUB 752: GOSUB 752: GOSUB 752: GOSUB 752: PRINT "WE HAVE A UNANIMOUS DECISION.": GOSUB 752: GOSUB 752
  535. 1405  FOR A = 1 TO 3
  536. 1410  PRINT "JUDGE #"A" "SC(BO,A)"-"SC(NB,A)
  537. 1415  GOSUB 752: GOSUB 752
  538. 1420  NEXT 
  539. 1425  VTAB 23: HTAB 23: PRINT "*WINNER-": GOSUB 752: GOSUB 752: GOSUB 752: GOSUB 752
  540. 1430  VTAB 23: HTAB 31: PRINT NM$(BO)
  541. 1435  RETURN 
  542. 1450  PRINT B2$: GOSUB 752: GOSUB 752: GOSUB 752: GOSUB 752: PRINT "WE HAVE A DRAW."
  543. 1455  FOR A = 1 TO 3
  544. 1460  IF SC(1,A) >SC(2,A)  THEN  PRINT "JUDGE #"A" "SC(1,A)"-"SC(2,A)" "NM$(1)
  545. 1462  IF SC(2,A) >SC(1,A)  THEN  PRINT "JUDGE #"A" "SC(2,A)"-"SC(1,A)" "NM$(2)
  546. 1464  IF SC(2,A) = SC(1,A)  THEN  PRINT "JUDGE #"A" "SC(2,A)"-"SC(1,A)" DRAW"
  547. 1466  GOSUB 752: GOSUB 752
  548. 1470  NEXT 
  549. 1475  RETURN 
  550. 1510  RETURN 
  551. 2100  POKE 232,WV(10): POKE 233,WV(11):X = 7 *WV(0) -6:Y = 8 *WV(1) -8
  552. 2110  IF WV(2)  THEN X = 0:WV(3) = 176:WV(4) = 0: HCOLOR= 0: FOR Z = 1 TO  LEN(A$): DRAW  ASC( MID$ (A$,Z,1)) -31 AT X,Y: DRAW 99: CALL 62923:WV(4) = WV(4) + PEEK(224): NEXT :X = (280 -WV(4))/2
  553. 2115  HCOLOR= WV(5): DRAW 100 AT X,Y
  554. 2120  FOR Z = 1 TO  LEN(A$): DRAW  ASC( MID$ (A$,Z,1)) -31: XDRAW 99: NEXT : CALL 62923:WV(6) = X:X =  PEEK(224) + PEEK(225) *256:WV(2) = 0:WV(0) = (X +6)/7: IF   NOT (IN)  THEN  RETURN 
  555. 2130  POKE 232,0: POKE 233,64:WV(4) = X:WV(7) = 8 * PEEK(WV(8) +1):WV(9) = WV(4) -WV(6): IF WV(9) <256  THEN  SCALE= WV(9): ROT= 0: FOR I = Y -(Y >0) TO Y +WV(7): XDRAW 3 AT WV(6),I: NEXT : GOTO 2150
  556. 2140  SCALE= WV(7): ROT= 16: FOR I = X TO WV(4): XDRAW 3 AT I,Y: NEXT 
  557. 2150  ROT= 0: SCALE= 1:IN = 0: RETURN