Ringside Seat
Emulation Item Preview
Share or Embed This Item
Notes
Disk info for Ringside_Seat_1983_SSI_cr_T._Foley_RDOS.dsk:
File Name: a2_Ringside_Seat_1983_SSI_cr_T._Foley_RDOS/Ringside_Seat_1983_SSI_cr_T._Foley_RDOS.dsk
Disk Name: RDOS 3.3 BY KRAKOWICZ
Physical Size (bytes): 143360
Free Space (bytes): 0
Used Space (bytes): 116480
Physical Size (KB): 140
Free Space (KB): 0
Used Space (KB): 113
Archive Order: DOS
Disk Format: RDOS 2.1
Total Blocks: 455
Free Blocks: 0
Used Blocks: 455
Disk directory for Ringside_Seat_1983_SSI_cr_T._Foley_RDOS.dsk:
a2_Ringside_Seat_1983_SSI_cr_T._Foley_RDOS/Ringside_Seat_1983_SSI_cr_T._Foley_RDOS.dsk RDOS 3.3 BY KRAKOWICZ
B 026 RDOS 2.1 COPYRIGHT 1981 6,656 000
T 001 SYSTEMBOOT 256 026
A 001 HELLO 119 027
A 008 STARTGAME 1,931 028
B 001 QWERTY 48 036
A 059 PRERSS 14,973 037
A 089 RSSROUND 22,562 096
A 089 RSSSCORE 22,661 185
A 052 ADDBOXERS 13,194 274
B 032 RSS.RING/TEXT 8,192 326
B 005 RSS.FONT 2-59 1,031 358
B 001 RSS.INVERSE 57 363
B 020 RSS.ANIMATION 4,908 364
B 003 SSI.INIT 768 384
T 001 DISKCHECK 256 387
T 016 FIGHTMENU 3,840 388
T 001 GOMEZ-BW 256 404
T 001 ZARATE-BW 256 405
T 001 PINTOR-BW 256 406
T 001 LOPEZ-FW 256 407
T 001 O'GRADY-FW 256 408
T 001 DAVIS-LW 256 409
T 001 ESCALERA-JL 256 410
T 001 ARGUELLO-JL 256 411
T 001 DURAN-LW 256 412
T 001 PRYOR-LW 256 413
T 001 MANCINI-LW 256 414
T 001 CANZONERI-LW 256 415
T 001 ARMSTRONG-LW 256 416
T 001 DEJESUS-LW 256 417
T 001 GAVILON-WW 256 418
T 001 CUEVAS-WW 256 419
T 001 BENITEZ-WW 256 420
T 001 ROBINSON-WW 256 421
T 001 WALCOTT-WW 256 422
T 001 ARMSTRONG-WW 256 423
T 001 BRAXTON-LH 256 424
T 001 DURAN-WW 256 425
T 001 HEARNS-WW 256 426
T 001 LEONARD-WW 256 427
T 001 ANTUOFERMO-MW 256 428
T 001 ZALE-MW 256 429
T 001 LAMOTTA-MW 256 430
T 001 GRAZIANO-MW 256 431
T 001 ROBINSON-MW 256 432
T 001 HAGLER-MW 256 433
T 001 FOSTER-LH 256 434
T 001 GALINDEZ-LH 256 435
T 001 MOORE-LH 256 436
T 001 SPINKS-LH 256 437
T 001 HOLMES-HW 256 438
T 001 ALI-HW 256 439
T 001 MARCIANO-HW 256 440
T 001 DEMPSEY-HW 256 441
T 001 LOUIS-HW 256 442
T 001 FRAZIER-HW 256 443
T 001 LISTON-HW 256 444
T 001 COONEY-HW 256 445
T 001 NORTON-HW 256 446
T 001 FOREMAN-HW 256 447
T 001 SHAVERS-HW 256 448
T 001 WALCOTT-HW 256 449
T 001 PATTERSON-HW 256 450
T 001 CHARLES-HW 256 451
T 001 TUNNEY-LH 256 452
T 001 TUNNEY-HW 256 453
A 001 BOX 41 454
RDOS 2.1 format; 0 bytes free; 116,480 bytes used.
Text found in Ringside_Seat_1983_SSI_cr_T._Foley_RDOS.dsk/ADDBOXERS.bas:
5 ONERR GOTO 6000
6 EP = 34
10 DIM SM$(75),SR(75),SP$(75),SV$(75),Z1$(75),Z2%(75),Z3$(75),Z4$(75)
11 DIM QD(18),DC$(8)
12 DC$(1) = "BW":DC$(2) = "FW":DC$(3) = "JL":DC$(4) = "LW":DC$(5) = "WW":DC$(6) = "MW":DC$(7) = "LH":DC$(8) = "HW"
14 POKE 34,0: HOME : VTAB 10
15 PRINT "ENTER (C) TO CHANGE A FIGHTER": PRINT : PRINT "ENTER (A) TO ADD A FIGHTER": PRINT : PRINT "ENTER (R) TO RETURN TO MAIN MENU": PRINT : PRINT "ENTER (L) TO LIST FIGHTERS": PRINT : PRINT "ENTER (O) TO OMIT A FIGHTER"
16 GOSUB 11200
17 AN$ = " "
18 IF CH$ = "R" THEN 60000
20 BO = 1
22 CN$ = " ":TM = 1: IF CH$ = "A" OR CH$ = "C" OR CH$ = "O" THEN HOME : VTAB 10: PRINT "PLEASE INSERT A SAVE FIGHTER DISK (RET)": PRINT : PRINT "(C) TO CANCEL FUNCTION": GOSUB 12000
23 IF CN$ = "C" THEN 14
24 TM = 0: IF CH$ = "A" OR CH$ = "C" OR CH$ = "O" THEN & READ "DISKCHECK": INPUT A: & END : IF A < >0 THEN 22
25 IF CH$ = "A" THEN FC$ = "ALL"
26 POKE 34,0: HOME : VTAB 10
27 IF CH$ = "L" THEN HOME : VTAB 10: PRINT "PLEASE INSERT DISK TO LIST (RET)": GOSUB 12000: HOME : VTAB 10: GOSUB 6500: INPUT RD$
28 IF CH$ < >"L" THEN 31
29 IF RD$ < >"BW" AND RD$ < >"FW" AND RD$ < >"JL" AND RD$ < >"LW" AND RD$ < >"WW" AND RD$ < >"MW" AND RD$ < >"LH" AND RD$ < >"HW" AND RD$ < >"ALL" THEN 26
30 GOTO 11000
31 HOME : VTAB 10: PRINT "ENTER FIGHTER NAME-DIVISION": INPUT X$
32 & READ "FIGHTMENU"
33 INPUT A$: INPUT BR(1): INPUT FP$(1): INPUT DV$(1)
34 IF A$ = "END" THEN & END : GOTO 38
35 IF A$ = X$ THEN & END : GOTO 45
36 GOTO 33
38 IF CH$ < >"A" THEN HOME : VTAB 5: FLASH : PRINT "THAT FIGHTER NAME-DV DOES NOT EXIST": NORMAL : VTAB 10: GOTO 15
40 GOTO 900
45 IF CH$ = "A" THEN HOME : VTAB 5: FLASH : PRINT X$" ALREADY EXISTS": NORMAL : VTAB 10: GOTO 15
50 IF CH$ = "O" THEN PRINT : PRINT "(Y) TO OMIT "X$: PRINT "(N) TO CANCEL FUNCTION": GOSUB 14000: IF YN$ = "N" THEN 14
51 IF CH$ = "O" THEN 390
58 & READ A$
60 INPUT NM$(1): INPUT BR(1): INPUT FP$(1): INPUT DV$(1): INPUT CB(1): INPUT CS(1): INPUT HP(1): INPUT KI(1): INPUT K1(1): INPUT K2(1): INPUT KB(1): INPUT CO(1)
61 INPUT CH(1): INPUT TK(1): INPUT AG(1): INPUT ER(1): INPUT DF(1): INPUT FI(1): INPUT FO(1): INPUT CU(1): INPUT KC(1): INPUT SA(1): INPUT PC(1): INPUT P1(1): INPUT P2(1)
62 INPUT C1(1): INPUT RT(1): INPUT J(1): INPUT H(1): INPUT C(1): INPUT O(1): INPUT U(1): INPUT ES(1): INPUT IC(1)
90 & END
100 GOTO 1000
115 HOME : VTAB 22
120 INPUT "1)NAME: ";NM$(BO): IF LEN(NM$(BO)) >10 THEN NM$(BO) = " ": GOTO 115
121 VTAB 1: HTAB 8: PRINT " ": VTAB 1: HTAB 8: PRINT NM$(BO): IF FC$ = "ALL" THEN 124
122 GOTO 1160
124 HOME : VTAB 22:EP = 2: INPUT "2)RATING: ";BR(BO): IF BR(BO) <1 OR BR(BO) >10 THEN BR(BO) = 1: GOTO 124
125 VTAB 1: HTAB 28: PRINT " ": VTAB 1: HTAB 28: PRINT BR(BO): IF FC$ = "ALL" THEN 127
126 GOTO 1160
127 HOME : VTAB 22: INPUT "3)DIV: ";DV$(BO): IF DV$(BO) < >"BW" AND DV$(BO) < >"FW" AND DV$(BO) < >"JL" AND DV$(BO) < >"LW" AND DV$(BO) < >"WW" AND DV$(BO) < >"MW" AND DV$(BO) < >"LH" AND DV$(BO) < >"HW" THEN DV$(BO) = " ": GOTO 127
128 VTAB 1: HTAB 37: PRINT " ": VTAB 1: HTAB 37: PRINT DV$(BO)
129 IF FC$ = "ALL" THEN 138
130 GOTO 1160
138 HOME
139 VTAB 22
140 INPUT "4)STYLE: ";FP$(BO)
141 IF FP$(BO) < >"B" AND FP$(BO) < >"S" AND FP$(BO) < >"B/S" THEN 138
143 VTAB 2: HTAB 9: PRINT " ": VTAB 2: HTAB 9: PRINT FP$(BO)
145 IF FC$ = "ALL" THEN 153
146 GOTO 1160
153 HOME
154 VTAB 22:EP = 3
155 INPUT "5)VS BOXER: ";CB(BO)
156 IF CB(BO) < -3 OR CB(BO) >3 THEN 153
158 VTAB 2: HTAB 24: PRINT " ": VTAB 2: HTAB 24: PRINT CB(BO)
160 IF FC$ = "ALL" THEN 163
161 GOTO 1160
163 HOME
164 VTAB 22:EP = 4
165 INPUT "6)VS SLUGGER: ";CS(BO)
166 IF CS(BO) < -3 OR CS(BO) >3 THEN 163
168 VTAB 2: HTAB 39: PRINT " ": VTAB 2: HTAB 39: PRINT CS(BO)
170 IF FC$ = "ALL" THEN 173
171 GOTO 1160
173 HOME
174 VTAB 22:EP = 5
175 INPUT "A)FOLLOW UP: ";KI(BO)
176 IF KI(BO) <1 OR KI(BO) >11 THEN 173
178 VTAB 4: HTAB 18: PRINT " ": VTAB 4: HTAB 18: PRINT KI(BO)
180 IF FC$ = "ALL" THEN 183
181 GOTO 1160
183 HOME
184 VTAB 22:EP = 6
185 INPUT "B)CUT OPPONENT: ";CO(BO)
186 IF CO(BO) <1 OR CO(BO) >10 THEN 183
188 VTAB 4: HTAB 39: PRINT " ": VTAB 4: HTAB 39: PRINT CO(BO)
190 IF FC$ = "ALL" THEN 193
191 GOTO 1160
193 HOME
194 VTAB 22:EP = 7
195 INPUT "C)CHARGE IN: ";FI(BO)
196 IF FI(BO) <1 OR FI(BO) >5 THEN 193
198 VTAB 5: HTAB 18: PRINT " ": VTAB 5: HTAB 18: PRINT FI(BO)
200 IF FC$ = "ALL" THEN 203
201 GOTO 1160
203 HOME
204 VTAB 22:EP = 8
205 INPUT "D)STICK & MOVE: ";FO(BO)
206 IF FO(BO) <1 OR FO(BO) >5 THEN 203
208 VTAB 5: HTAB 39: PRINT " ": VTAB 5: HTAB 39: PRINT FO(BO)
210 IF FC$ = "ALL" THEN 213
211 GOTO 1160
213 HOME
214 VTAB 22:EP = 9
215 INPUT "E)COVER UP: ";CU(BO)
216 IF CU(BO) <1 OR CU(BO) >5 THEN 213
218 VTAB 6: HTAB 18: PRINT " ": VTAB 6: HTAB 18: PRINT CU(BO)
219 IF FC$ = "ALL" THEN 221
220 GOTO 1160
221 HOME : VTAB 22:EP = 32: INPUT "F)STAY AWAY: ";SA(BO): IF SA(BO) <1 OR SA(BO) >5 THEN 221
222 VTAB 6: HTAB 39: PRINT " ": VTAB 6: HTAB 39: PRINT SA(BO)
223 IF FC$ = "ALL" THEN 225
224 GOTO 1160
225 HOME : VTAB 22:EP = 33: INPUT "G)PROTECT CUTS: ";PC(BO): IF PC(BO) <1 OR PC(BO) >5 THEN 225
227 VTAB 7: HTAB 18: PRINT " ": VTAB 7: HTAB 18: PRINT PC(BO)
228 IF FC$ = "ALL" THEN 230
229 GOTO 1160
230 HOME : VTAB 22:EP = 10: INPUT "H)GO FOR KO: ";KC(BO)
231 IF KC(BO) <1 OR KC(BO) >5 THEN 230
232 VTAB 7: HTAB 39: PRINT " ": VTAB 7: HTAB 39: PRINT KC(BO)
233 IF FC$ = "ALL" THEN 235
234 GOTO 1160
235 HOME : VTAB 22:EP = 11: INPUT "I)TAKE PUNCH: ";K1(BO)
236 IF K1(BO) <1 OR K1(BO) >5 THEN 235
238 VTAB 8: HTAB 18: PRINT " ": VTAB 8: HTAB 18: PRINT K1(BO)
240 IF FC$ = "ALL" THEN 243
241 GOTO 1160
243 HOME
244 VTAB 22:EP = 12
245 INPUT "J)T/P WHEN HURT: ";K2(BO)
246 IF K2(BO) <0 OR K2(BO) >5 THEN 243
248 VTAB 8: HTAB 39: PRINT " ": VTAB 8: HTAB 39: PRINT K2(BO)
250 IF FC$ = "ALL" THEN 253
251 GOTO 1160
253 HOME
254 VTAB 22:EP = 13
255 INPUT "K)AVOID KO: ";KB(BO)
256 IF KB(BO) <1 OR KB(BO) >10 THEN 253
258 VTAB 9: HTAB 18: PRINT " ": VTAB 9: HTAB 18: PRINT KB(BO)
260 IF FC$ = "ALL" THEN 263
261 GOTO 1160
263 HOME
264 VTAB 22:EP = 14
265 INPUT "L)TRAPPED: ";IC(BO)
266 IF (IC(BO) <10 OR IC(BO) >14) AND (IC(BO) <20 OR IC(BO) >24) AND (IC(BO) <30 OR IC(BO) >34) THEN 263
268 VTAB 9: HTAB 39: PRINT " ": VTAB 9: HTAB 39: PRINT IC(BO)
270 IF FC$ = "ALL" THEN 273
271 GOTO 1160
273 HOME
274 VTAB 22:EP = 15
275 INPUT "M)TAKE PUNISHMNT: ";TK(BO)
276 IF TK(BO) <1 OR TK(BO) >5 THEN 273
278 VTAB 10: HTAB 18: PRINT " ": VTAB 10: HTAB 18: PRINT TK(BO)
280 IF FC$ = "ALL" THEN 283
281 GOTO 1160
283 HOME
284 VTAB 22:EP = 16
285 INPUT "N)NOT GET CUT: ";CH(BO)
286 IF CH(BO) <1 OR CH(BO) >10 THEN 283
288 VTAB 10: HTAB 39: PRINT " ": VTAB 10: HTAB 39: PRINT CH(BO)
290 IF FC$ = "ALL" THEN 293
291 GOTO 1160
293 HOME
294 VTAB 22:EP = 17
295 INPUT "O)STRENGTH: ";HP(BO)
296 IF HP(BO) <5 OR HP(BO) >12 THEN 293
298 VTAB 12: HTAB 18: PRINT " ": VTAB 12: HTAB 18: PRINT HP(BO)
300 IF FC$ = "ALL" THEN 303
301 GOTO 1160
303 HOME
304 VTAB 22:EP = 18
305 INPUT "P)QUICKNESS: ";DF(BO)
306 IF DF(BO) < -9 OR DF(BO) >9 THEN 303
308 VTAB 12: HTAB 39: PRINT " ": VTAB 12: HTAB 39: PRINT DF(BO)
310 IF FC$ = "ALL" THEN 313
311 GOTO 1160
313 HOME
314 VTAB 22:EP = 19
315 INPUT "Q)STAMINA: ";ER(BO)
316 IF ER(BO) <50 OR ER(BO) >125 THEN 313
318 VTAB 13: HTAB 18: PRINT " ": VTAB 13: HTAB 18: PRINT ER(BO)
320 IF FC$ = "ALL" THEN 322
321 GOTO 1160
322 HOME
323 VTAB 22:EP = 20
324 INPUT "R)AGGRESSIVENESS: ";AG(BO): IF AG(BO) <1 OR AG(BO) >11 THEN 322
325 VTAB 13: HTAB 39: PRINT " ": VTAB 13: HTAB 39: PRINT AG(BO): IF FC$ = "ALL" THEN 327
326 GOTO 1160
327 HOME
328 VTAB 22:EP = 21
329 INPUT "S)PUNCHES LAND: ";P1(BO): IF P1(BO) <1 OR P1(BO) >75 THEN 327
330 VTAB 15: HTAB 18: PRINT " ": VTAB 15: HTAB 18: PRINT P1(BO): IF FC$ = "ALL" THEN 332
331 GOTO 1160
332 HOME
333 VTAB 22:EP = 22
334 INPUT "T)PUNCHES MISS: ";P2(BO): IF P1(BO) +P2(BO) >87 OR P2(BO) <1 THEN 332
335 VTAB 15: HTAB 39: PRINT " ": VTAB 15: HTAB 39: PRINT P2(BO): IF FC$ = "ALL" THEN 337
336 GOTO 1160
337 HOME
338 VTAB 22:EP = 23
339 INPUT "U)CLINCHES OPP: ";C1(BO): IF P1(BO) +P2(BO) +C1(BO) >94 OR C1(BO) <1 THEN 337
340 VTAB 16: HTAB 18: PRINT " ": VTAB 16: HTAB 18: PRINT C1(BO): IF FC$ = "ALL" THEN 342
341 GOTO 1160
342 HOME
343 VTAB 22:EP = 24
344 INPUT "V)MOVES AROUND: ";RT(BO): IF P1(BO) +P2(BO) +C1(BO) +RT(BO) >100 OR RT(BO) <1 THEN 342
345 VTAB 16: HTAB 39: PRINT " ": VTAB 16: HTAB 39: PRINT RT(BO): IF FC$ = "ALL" THEN 347
346 GOTO 1160
347 HOME
348 VTAB 22:EP = 25
349 INPUT "W)JABS: ";J(BO): IF J(BO) <1 OR J(BO) >75 THEN 347
350 VTAB 18: HTAB 18: PRINT " ": VTAB 18: HTAB 18: PRINT J(BO): IF FC$ = "ALL" THEN 352
351 GOTO 1160
352 HOME
353 VTAB 22:EP = 26
354 INPUT "X)HOOKS: ";H(BO): IF J(BO) +H(BO) >81 OR H(BO) <1 THEN 352
355 VTAB 18: HTAB 39: PRINT " ": VTAB 18: HTAB 39: PRINT H(BO): IF FC$ = "ALL" THEN 357
356 GOTO 1160
357 HOME
358 VTAB 22:EP = 27
359 INPUT "Y)CROSSES: ";C(BO): IF J(BO) +H(BO) +C(BO) >87 OR C(BO) <1 THEN 357
360 VTAB 19: HTAB 18: PRINT " ": VTAB 19: HTAB 18: PRINT C(BO): IF FC$ = "ALL" THEN 362
361 GOTO 1160
362 HOME
363 VTAB 22:EP = 28
364 INPUT "Z)COMBINATIONS: ";O(BO): IF J(BO) +H(BO) +C(BO) +O(BO) >94 OR O(BO) <1 THEN 362
365 VTAB 19: HTAB 39: PRINT " ": VTAB 19: HTAB 39: PRINT O(BO): IF FC$ = "ALL" THEN 367
366 GOTO 1160
367 HOME
368 VTAB 22:EP = 29
369 INPUT "/)UPPERCUTS: ";U(BO): IF J(BO) +H(BO) +C(BO) +O(B0) +U(BO) >100 OR U(BO) <1 THEN 367
370 VTAB 20: HTAB 18: PRINT " ": VTAB 20: HTAB 18: PRINT U(BO): IF FC$ = "ALL" THEN 372
371 GOTO 1160
372 HOME
373 VTAB 22:EP = 30
374 INPUT ".)% EXTRA STING: ";ES(BO): IF ES(BO) <1 OR ES(BO) >99 THEN 372
378 VTAB 20: HTAB 39: PRINT " ": VTAB 20: HTAB 39: PRINT ES(BO)
380 GOTO 1160
390 REM
400 IF CH$ = "C" OR CH$ = "O" THEN A1$ = A$: & DEL A$
410 & READ "FIGHTMENU"
415 X$ = NM$(1) +"-" +DV$(1)
420 INPUT A$: INPUT A: INPUT Q1$: INPUT Q2$
422 IF (CH$ = "C" OR CH$ = "O") AND A$ = A1$ THEN 420
425 IF A$ = "END" THEN & END : GOSUB 13000: IF CH$ < >"O" THEN & DEF X$,1: & PRINT X$: GOTO 500
426 IF A$ = "END" AND CH$ = "O" THEN 605
427 AC% = AC% +1: IF AC% = 75 THEN & END :AC% = 0: GOSUB 13200: POKE 34,0: HOME : VTAB 17: GOTO 610
428 Z1$(AC%) = A$:Z2%(AC%) = A:Z3$(AC%) = Q1$:Z4$(AC%) = Q2$
430 IF A$ = X$ THEN & END : GOSUB 13100:AC% = 0: GOTO 1160
435 GOTO 420
500 PRINT NM$(1): PRINT BR(BO): PRINT FP$(BO): PRINT DV$(BO): PRINT CB(BO): PRINT CS(BO): PRINT HP(BO): PRINT KI(BO): PRINT K1(BO): PRINT K2(BO): PRINT KB(BO)
501 PRINT CO(BO): PRINT CH(BO): PRINT TK(BO): PRINT AG(BO): PRINT ER(BO): PRINT DF(BO): PRINT FI(BO): PRINT FO(BO): PRINT CU(BO): PRINT KC(BO): PRINT SA(BO): PRINT PC(BO): PRINT P1(BO): PRINT P2(BO): PRINT C1(BO): PRINT RT(BO): PRINT J(BO)
502 PRINT H(BO): PRINT C(BO): PRINT O(BO): PRINT U(BO): PRINT ES(BO): PRINT IC(BO)
600 & END
605 POKE 34,0: HOME : VTAB 15: IF CH$ = "A" THEN PRINT "LAST FIGHTER ADDED WAS "X$
606 IF CH$ = "C" THEN PRINT "LAST FIGHTER CHANGED WAS "X$
607 IF CH$ = "O" THEN PRINT "LAST FIGHTER OMITTED WAS "A1$
608 PRINT
610 IF CH$ = "A" THEN PRINT "MORE ADDS (Y) OR (N) ?"
612 IF CH$ = "C" THEN PRINT "MORE CHANGES (Y) OR (N) ?"
614 IF CH$ = "O" THEN PRINT "MORE OMITS (Y) OR (N) ?"
616 IF CH$ = "L" THEN PRINT "MORE LISTING (Y) OR (N) ?"
618 GOSUB 14000
620 IF YN$ = "N" THEN 14
622 IF CH$ = "A" THEN FC$ = "ALL": GOTO 31
624 IF CH$ = "C" OR CH$ = "O" THEN 31
626 IF CH$ = "L" THEN 26
630 GOTO 60000
900 NM$(1) = " ":BR(1) = 0:DV$(1) = " ":R = 17:FP$(1) = " ":CB(1) = 0:CS(1) = 0:KI(1) = 0:CO(1) = 0:FI(1) = 0:FO(1) = 0:CU(1) = 0:KC(1) = 0:K1(1) = 0:K2(1) = 0:KB(1) = 0:IC(1) = 0:TK(1) = 0:CH(1) = 0
910 HP(1) = 0:DF(1) = 0:ER(1) = 0:AG(1) = 0:P1(1) = 0:P2(1) = 0:C1(1) = 0:RT(1) = 0:J(1) = 0:H(1) = 0:C(1) = 0:O(1) = 0:U(1) = 0:ES(1) = 0
920 SA(1) = 0:PC(1) = 0
1000 HOME : PRINT "1)NAME:"NM$(1); TAB( 19)"2)RATING:"BR(1); TAB( 31)"3)DIV:"DV$(1)
1005 VTAB 2: PRINT "4)STYLE:"FP$(1); TAB( 13)"5)VS BOXER:"CB(1); TAB( 26)"6)VS SLUGGER:"CS(1)
1010 VTAB 3: PRINT "----------------ABILITY-----------------"
1030 VTAB 4: PRINT "A)FOLLOW UP :"KI(1) TAB( 22)"B)CUT OPPONENT :"CO(1)
1040 VTAB 5: PRINT "C)CHARGE IN :"FI(1) TAB( 22)"D)STICK & MOVE :"FO(1)
1050 VTAB 6: PRINT "E)COVER UP :"CU(1) TAB( 22)"F)STAY AWAY :"SA(1)
1055 VTAB 7: PRINT "G)PROTECT CUTS :"PC(1) TAB( 22)"H)GO FOR KO :"KC(1)
1060 VTAB 8: PRINT "I)TAKE PUNCH :"K1(1) TAB( 22)"J)T/P WHEN HURT :"K2(1)
1070 VTAB 9: PRINT "K)AVOID KO :"KB(1) TAB( 22)"L)TRAPPED :"IC(1)
1080 VTAB 10: PRINT "M)TAKE PUNISHMNT:"TK(1) TAB( 22)"N)NOT GET CUT :"CH(1)
1085 VTAB 11: PRINT "-----------------RATING-----------------"
1090 VTAB 12: PRINT "O)STRENGTH :"HP(1) TAB( 22)"P)QUICKNESS :"DF(1)
1100 VTAB 13: PRINT "Q)STAMINA :"ER(1) TAB( 22)"R)AGGRESSIVENESS:"AG(1)
1105 VTAB 14: PRINT "-----------------% TIME-----------------"
1110 VTAB 15: PRINT "S)PUNCHES LAND :"P1(1) TAB( 22)"T)PUNCHES MISS :"P2(1)
1120 VTAB 16: PRINT "U)CLINCHES OPP :"C1(1) TAB( 22)"V)MOVES AROUND :"RT(1)
1125 VTAB 17: PRINT "----------------% LANDED----------------"
1130 VTAB 18: PRINT "W)JABS :"J(1) TAB( 22)"X)HOOKS :"H(1)
1140 VTAB 19: PRINT "Y)CROSSES :"C(1) TAB( 22)"Z)COMBINATIONS :"O(1)
1150 VTAB 20: PRINT "/)UPPERCUTS :"U(1) TAB( 22)".)% EXTRA STING :"ES(1)
1155 VTAB 21: PRINT "----------------------------------------"
1156 POKE 34,21
1157 IF CH$ = "A" THEN 115
1158 IF CH$ = "C" THEN 1160
1159 IF AN$ = "R" THEN VTAB 22: PRINT "ENTER (C) TO CONTINUE": GOSUB 13400:FC$ = "NO": GOTO 1367
1160 QK = 0: IF P1(BO) +P2(BO) +C1(BO) +RT(BO) < >100 THEN HOME : VTAB 23: INVERSE : PRINT "'% TIME SECTION' NOT EQUAL TO 100": NORMAL : VTAB 22: INPUT "ENTER FIELD CODE TO CHANGE ";FC$:QK = 1: GOTO 1200
1165 IF J(BO) +H(BO) +C(BO) +U(BO) +O(BO) < >100 THEN HOME : VTAB 23: INVERSE : PRINT "'% LANDED SECTION' NOT EQUAL TO 100": NORMAL : VTAB 22: INPUT "ENTER FIELD CODE TO CHANGE ";FC$:QK = 1: GOTO 1200
1170 VTAB 22: PRINT "ENTER FIELD CODE TO CHANGE, OR (ALL), OR"
1180 VTAB 23: PRINT "(NO) TO IGNORE, OR (END) TO ACCEPT "
1190 VTAB 23: HTAB 37: INPUT FC$
1200 IF FC$ = "ALL" THEN 115
1205 IF FC$ = "1" THEN 115
1210 IF FC$ = "2" THEN 124
1215 IF FC$ = "3" THEN 127
1217 IF FC$ = "4" THEN 138
1220 IF FC$ = "5" THEN 153
1222 IF FC$ = "6" THEN 163
1225 IF FC$ = "A" THEN 173
1230 IF FC$ = "B" THEN 183
1235 IF FC$ = "C" THEN 193
1240 IF FC$ = "D" THEN 203
1245 IF FC$ = "E" THEN 213
1250 IF FC$ = "F" THEN 221
1255 IF FC$ = "G" THEN 225
1260 IF FC$ = "H" THEN 230
1265 IF FC$ = "I" THEN 235
1270 IF FC$ = "J" THEN 243
1275 IF FC$ = "K" THEN 253
1280 IF FC$ = "L" THEN 263
1285 IF FC$ = "M" THEN 273
1290 IF FC$ = "N" THEN 283
1295 IF FC$ = "O" THEN 293
1300 IF FC$ = "P" THEN 303
1305 IF FC$ = "Q" THEN 313
1310 IF FC$ = "R" THEN 322
1315 IF FC$ = "S" THEN 327
1320 IF FC$ = "T" THEN 332
1325 IF FC$ = "U" THEN 337
1330 IF FC$ = "V" THEN 342
1335 IF FC$ = "W" THEN 347
1340 IF FC$ = "X" THEN 352
1345 IF FC$ = "Y" THEN 357
1350 IF FC$ = "Z" THEN 362
1355 IF FC$ = "/" THEN 367
1360 IF FC$ = "." THEN 372
1363 IF QK = 1 THEN 1160
1364 QK = 0
1365 IF FC$ = "END" THEN HOME : GOTO 390
1367 IF FC$ = "NO" THEN POKE 34,0: HOME : VTAB 17: GOTO 610
1370 HOME : GOTO 1160
1990 GOTO 605
5040 GOTO 605
6000 ON EP GOTO 26,124,153,163,173,183,193,203,213,230,235,243,253,263,273,283,293,303,313,322,327,332,337,342,347,352,357,362,367,372,11100,221,227,14
6500 PRINT "ENTER WEIGHT CLASS INITIALS": PRINT : PRINT "BW - BANTAMWEIGHT": PRINT "FW - FEATHERWEIGHT": PRINT "JL - JUNIOR LIGHTWEIGHT": PRINT "LW - LIGHTWEIGHT": PRINT "WW - WELTERWEIGHT": PRINT "MW - MIDDLEWEIGHT"
6510 PRINT "LH - LIGHT HEAVYWEIGHT": PRINT "HW - HEAVYWEIGHT": PRINT "ALL - ALL WEIGHT CLASSES"
6520 RETURN
10000 GOTO 60000
11000 HOME : VTAB 1: PRINT "ID#"; TAB( 6)"NAME"; TAB( 18)"RATING"; TAB( 27)"STYLE"; TAB( 35)"DIV": PRINT
11002 IF AN$ < >" " THEN 11039
11005 CT = 0: & READ "FIGHTMENU"
11030 INPUT NM$(1): INPUT BR(1): INPUT FP$(1): INPUT DV$(1)
11032 IF NM$(1) = "END" THEN & END : GOTO 11034
11033 CT = CT +1:SM$(CT) = NM$(1):SR(CT) = BR(1):SP$(CT) = FP$(1):SV$(CT) = DV$(1): GOTO 11030
11034 Y = 0: FOR X = 1 TO 8: FOR A = 1 TO CT: IF SV$(A) = DC$(X) THEN Y = Y +1:SM$(0) = SM$(Y):SR(0) = SR(Y):SP$(0) = SP$(Y):SV$(0) = SV$(Y):SM$(Y) = SM$(A):SR(Y) = SR(A):SP$(Y) = SP$(A):SV$(Y) = SV$(A): GOTO 11036
11035 GOTO 11038
11036 SM$(A) = SM$(0):SR(A) = SR(0):SP$(A) = SP$(0):SV$(A) = SV$(0)
11038 NEXT : NEXT
11039 FOR A = 1 TO CT
11040 IF RD$ = "ALL" OR SV$(A) = RD$ THEN PRINT TAB( 2)A; TAB( 6)SM$(A); TAB( 20)SR(A); TAB( 29)SP$(A); TAB( 35)SV$(A)
11045 IF QC = 0 THEN QC = 3
11050 IF RD$ = "ALL" OR SV$(A) = RD$ THEN QC = QC +1:QD(QC) = A
11060 IF QC = 18 THEN POKE 34,18: VTAB 19: PRINT "ENTER (C) TO CONTINUE LIST": PRINT : PRINT "ENTER (S) TO STOP LISTING": GOSUB 13300
11070 IF AY$ = "S" THEN A = CT:AY$ = " ": GOTO 11090
11080 IF QC = 18 THEN POKE 34,0: HOME : VTAB 1: FOR QE = 4 TO 18:QD(QE) = 0: NEXT
11085 IF QC = 18 THEN QC = 0: PRINT "ID#"; TAB( 6)"NAME"; TAB( 18)"RATING"; TAB( 27)"STYLE"; TAB( 35)"DIV": PRINT
11090 NEXT A
11100 POKE 34,18: HOME : VTAB 19
11110 PRINT "ENTER (R) TO REVIEW A FIGHTER": PRINT : PRINT "ENTER (E) TO END THIS FUNCTION":AN$ = " ": GOSUB 14100
11122 EP = 31
11125 IF AN$ = "R" THEN HOME : PRINT : PRINT "ENTER ID# OF FIGHTER TO REVIEW ": INPUT FR%: FOR A = 4 TO 18: IF FR% = QD(A) THEN A = 18: GOTO 11128
11126 IF AN$ = "R" THEN NEXT : HOME : VTAB 19: GOTO 11100
11127 GOTO 11129
11128 X$ = SM$(FR%):QC = 0: POKE 34,0: GOTO 32
11129 QC = 0
11130 POKE 34,0: HOME : VTAB 17: GOTO 608
11200 CH$ = " ": IF PEEK( -16384) <128 THEN 11200
11210 IF PEEK( -16384) = 193 THEN CH$ = "A"
11220 IF PEEK( -16384) = 195 THEN CH$ = "C"
11225 IF PEEK( -16384) = 207 THEN CH$ = "O"
11230 IF PEEK( -16384) = 204 THEN CH$ = "L"
11235 IF PEEK( -16384) = 210 THEN CH$ = "R"
11237 IF CH$ = " " THEN POKE -16368,0: GOTO 11200
11240 POKE -16368,0: RETURN
12000 IF PEEK( -16384) <128 THEN 12000
12005 IF PEEK( -16384) = 141 THEN 12010
12006 CN$ = " ": IF TM = 0 THEN 12008
12007 IF PEEK( -16384) = 195 AND (CH$ = "A" OR CH$ = "C" OR CH$ = "O") THEN CN$ = "C": GOTO 12010
12008 POKE -16368,0: GOTO 12000
12010 POKE -16368,0: RETURN
13000 & DEL "FIGHTMENU": & DEF "FIGHTMENU",50
13010 & PRINT "FIGHTMENU"
13015 IF AC% = 0 THEN 13050
13020 FOR A = 1 TO AC%
13030 PRINT Z1$(A): PRINT Z2%(A): PRINT Z3$(A): PRINT Z4$(A)
13040 NEXT A
13045 IF CH$ = "O" THEN 13060
13050 PRINT NM$(1) +"-" +DV$(1): PRINT BR(1): PRINT FP$(1): PRINT DV$(1)
13060 PRINT "END": PRINT 0: PRINT "END": PRINT "END"
13065 AC% = 0
13070 & END
13080 RETURN
13100 HOME : VTAB 22: PRINT X$" ALREADY EXISTS (RET)": GOSUB 12000: RETURN
13300 IF PEEK( -16384) <128 THEN 13300
13305 AY$ = " "
13310 IF PEEK( -16384) = 195 THEN AY$ = "C"
13320 IF PEEK( -16384) = 211 THEN AY$ = "S"
13330 POKE -16368,0
13340 IF AY$ < >"C" AND AY$ < >"S" THEN 13300
13350 RETURN
13400 IF PEEK( -16384) <128 THEN 13400
13410 IF PEEK( -16384) = 195 THEN POKE -16368,0: GOTO 13430
13420 POKE -16368,0: GOTO 13400
13430 RETURN
14000 IF PEEK( -16384) <128 THEN 14000
14005 YN$ = " "
14010 IF PEEK( -16384) = 206 THEN YN$ = "N"
14020 IF PEEK( -16384) = 217 THEN YN$ = "Y"
14025 IF YN$ = " " THEN POKE -16368,0: GOTO 14000
14030 POKE -16368,0
14040 RETURN
14100 IF PEEK( -16384) <128 THEN 14100
14115 IF PEEK( -16384) = 210 THEN AN$ = "R"
14117 IF PEEK( -16384) = 197 THEN AN$ = "E"
14119 IF AN$ < >"E" AND AN$ < >"R" THEN POKE -16368,0: GOTO 14100
14120 POKE -16368,0
14130 RETURN
60000 POKE 34,0: HOME : VTAB 10: PRINT "PLEASE INSERT SSI GAME DISK (RET)"
60010 IF PEEK( -16384) <128 THEN 60010
60020 IF PEEK( -16384) < >141 THEN POKE -16368,0: GOTO 60010
60030 POKE -16368,0: HOME
60032 & READ "DISKCHECK"
60034 INPUT A
60036 & END
60038 IF A < >1 THEN 60000
60040 POKE 103,2816 - INT(2816/256) *256: POKE 104, INT(2816/256): & RUN "STARTGAME"
60100 REM
60110 IF CO = 32168 THEN 60040
60120 GOTO 60000
Text found in Ringside_Seat_1983_SSI_cr_T._Foley_RDOS.dsk/HELLO.bas:
1 & RECALL "QWERTY": CALL 768
2 IF PEEK(0) THEN CALL -1052: GOTO 2
3 SPEED= 255: TEXT
10 POKE 103,2816 - INT(2816/256) *256: POKE 104, INT(2816/256)
20 & RUN "STARTGAME"
Text found in Ringside_Seat_1983_SSI_cr_T._Foley_RDOS.dsk/PRERSS.bas:
1 ONERR GOTO 1000
5 LOMEM: 40140
6 CLEAR
20 RB% = -1052
25 B2$ = "THE JUDGES ARE ADDING THEIR SCORE CARDS."
30 B$ = "$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$"
55 GOTO 265
60 IF PEEK( -16384) <128 THEN 60
61 IF PEEK( -16384) = 202 THEN YS = 1: GOTO 64
62 IF PEEK( -16384) = 141 THEN YS = 0: GOTO 64
63 POKE -16368,0: GOTO 60
64 POKE -16368,0: RETURN
90 REM
105 SPEED= 150
120 DIM R1$(4),NM$(2),DV$(2),SY$(2),HG%(1),CR$(2),CA$(1,6),PT%(2,15),RS%(8),KX%(2),KZ%(2),JA$(0),JB$(0),JS%(5,15),KC%(1,15),SG%(1,15),SP$(7),FC%(1,6),FD%(1,6),CB$(1,6),HR%(2),FE%(1,6)
130 DIM CB(2),CS(2),HP(2),KI(2),K1(2),K2(2),KB(2),CO(2),CH(2),TK(2),AG(2),SA(4),PC(4)
140 DIM ER(2),DF(2),FI(4),FO(4),CU(4),KC(4),P1(2),P2(2),C1(2),RT(2),J(2),H(2)
150 DIM C(2),O(2),U(2),ES(2),IC(2),RP(2),BR(2),PM(2),PL(2),CL(2),RM(2)
160 DIM KH%(2),SC(2,3),FT$(2),FP$(2),TS$(2),WV(11),LT$(15)
170 DIM SR(2),SL(2),MC(2),MD(2),ME(2),MF(2),MG(2),MH(2),T0(2)
180 DIM S0(2),S1(2),S2(2),S3(2),S4(2),S5(2),P0(2),PR(2,15),A0(2)
190 DIM CP(2,9),CA(2),BG(2,2),Y2(2),Y3(2),RC(1),RD(1),D9(1,8),D8(1,4)
195 DIM M0%(2),M1%(2),UB%(2),PS(2),RR(2),OK%(2),DP%(2),PH%(2),VC%(3),IR%(2),S%(2),DA%(2),S6(2),W9(2),X9(2)
200 RC(0) = 32:RD(0) = 22:RC(1) = 14:RD(1) = 16:D9(0,1) = 4782:D9(0,2) = 5076:D9(0,3) = 5370:D9(0,4) = 5622:D9(0,5) = 5874:D9(0,6) = 6168:D9(0,7) = 6462:D9(0,8) = 6714
201 D9(1,1) = 2304:D9(1,2) = 2598:D9(1,3) = 2892:D9(1,4) = 3144:D9(1,5) = 3228:D9(1,6) = 3522:D9(1,7) = 3816:D9(1,8) = 4068
202 LT$(0) = "0":LT$(1) = "1":LT$(2) = "2":LT$(3) = "3":LT$(4) = "4":LT$(5) = "5":LT$(6) = "6":LT$(7) = "7":LT$(8) = "8":LT$(9) = "9"
203 LT$(10) = "10":LT$(11) = "11":LT$(12) = "12":LT$(13) = "13":LT$(14) = "14":LT$(15) = "15":B1$ = "&&&&&&&&&&&&&&&&&"
204 D8(0,1) = 4782:D8(0,2) = 5076:D8(0,3) = 5874:D8(0,4) = 6168:D8(1,1) = 2304:D8(1,2) = 2598:D8(1,3) = 3228:D8(1,4) = 3522
205 IF Z0 = 3 OR Z0 = 4 THEN 262
206 HOME : VTAB 15: PRINT "ENTER (K) FOR KEYBOARD (P) FOR PADDLES": GOSUB 1800: IF PK$ = "K" THEN 262
207 IF Z0 = 0 OR Z0 = 2 THEN 210
208 GOTO 235
210 HOME : VTAB 15: PRINT "PRESS BUTTON ON PADDLE FOR FIGHTER #1":A = 0
220 A0(1) = PEEK( -16287):A0(2) = PEEK( -16286): IF A0(2) >127 AND A = 0 THEN A = 1: INVERSE : FLASH : HTAB 14: PRINT "WRONG PADDLE": NORMAL : GOTO 220
230 IF A0(1) <128 THEN 220
235 IF Z0 = 0 OR Z0 = 1 THEN 240
237 GOTO 262
240 HOME : VTAB 15: PRINT "PRESS BUTTON ON PADDLE FOR FIGHTER #2":A = 0
250 A0(2) = PEEK( -16286):A0(1) = PEEK( -16287): IF A0(1) >127 AND A = 0 THEN A = 1: INVERSE : FLASH : HTAB 14: PRINT "WRONG PADDLE": NORMAL : GOTO 250
260 IF A0(2) <128 THEN 250
262 GOTO 280
265 EP = 2
270 HOME : VTAB 15: PRINT "COMPUTER CONTROL:": PRINT : PRINT "(0) - NEITHER FIGHTER": PRINT "(1) - FIGHTER #1": PRINT "(2) - FIGHTER #2": PRINT "(3) - BOTH FIGHTERS": PRINT "(4) - DEMO": GOSUB 1100
272 IF Z0 < >0 AND Z0 < >1 AND Z0 < >2 AND Z0 < >3 AND Z0 < >4 THEN 270
273 IF Z0 = 4 THEN YS = 0: GOTO 90
274 HOME : VTAB 15: PRINT "(RET)-COMPUTER SCORE FIGHT AS JUDGE #3": PRINT " (J)- PLAYER SCORE FIGHT AS JUDGE #3": GOSUB 60: GOTO 90
280 HOME : VTAB 21
290 L5 = 80: SPEED= 255
310 SPEED= 150
401 IF Z0 = 4 THEN BO = 1: GOSUB 1200: GOTO 430
403 IF BO = 2 THEN EP = 3: GOTO 410
405 EP = 3:BO = 1
410 HOME : VTAB 15: PRINT "ENTER NAME-DIVISION OF FIGHTER #"BO: INPUT NM$(BO): PRINT : PRINT "(Y) TO CONTINUE": PRINT "(N) TO CANCEL": GOSUB 1750: IF DV$(0) = "Y" THEN PRINT : PRINT "PLEASE INSERT DISK WITH FIGHTER (RET)": GOSUB 12000
411 IF DV$(0) = "N" AND Z0 < >4 THEN 401
420 & READ "FIGHTMENU"
421 INPUT LQ$(BO): INPUT BR(BO): INPUT FP$(BO): INPUT XQ$
422 IF LQ$(BO) = "END" THEN & END : GOTO 401
423 IF LQ$(BO) = NM$(BO) THEN & END : GOTO 430
424 GOTO 421
430 & READ NM$(BO)
440 INPUT LQ$(BO): INPUT BR(BO): INPUT FP$(BO): INPUT DV$(BO): INPUT CB(BO): INPUT CS(BO): INPUT HP(BO): INPUT KI(BO): INPUT K1(BO): INPUT K2(BO)
450 INPUT KB(BO): INPUT CO(BO): INPUT CH(BO): INPUT TK(BO): INPUT AG(BO): INPUT ER(BO): INPUT DF(BO): INPUT FI(BO): INPUT FO(BO): INPUT CU(BO)
460 INPUT KC(BO): INPUT SA(BO): INPUT PC(BO): INPUT P1(BO): INPUT P2(BO): INPUT C1(BO): INPUT RT(BO): INPUT J(BO): INPUT H(BO): INPUT C(BO): INPUT O(BO): INPUT U(BO): INPUT ES(BO): INPUT IC(BO)
462 & END
463 IF BO = 1 AND Z0 = 4 THEN BO = 2: GOTO 430
465 IF BO = 1 THEN BO = 2:EP = 4: GOTO 410
470 IF BO = 2 THEN HOME : VTAB 21:EP = 7: IF Z0 < >4 THEN INPUT "ENTER NUMBER OF ROUNDS THIS FIGHT ";NR: GOTO 490
471 IF BO = 2 AND Z0 = 4 THEN A = INT(3 * RND(1)) +1: ON A GOSUB 473,474,475: GOTO 493
473 NR = 10: PRINT : PRINT "THIS IS A 10 ROUND FIGHT": PRINT "BETWEEN "LQ$(1)" AND "LQ$(2): FOR ZZ = 1 TO 1600: NEXT : RETURN
474 NR = 12: PRINT : PRINT "THIS IS A 12 ROUND FIGHT": PRINT "BETWEEN "LQ$(1)" AND "LQ$(2): FOR ZZ = 1 TO 1600: NEXT : RETURN
475 NR = 15: PRINT : PRINT "THIS IS A 15 ROUND FIGHT": PRINT "BETWEEN "LQ$(1)" AND "LQ$(2): FOR ZZ = 1 TO 1600: NEXT : RETURN
490 IF NR <3 OR NR >15 THEN HOME : VTAB 21: INPUT "ENTER NUMBER OF ROUNDS THIS FIGHT ";NR: GOTO 490
491 HOME : VTAB 21: PRINT "DO YOU WANT THE BELL TO RING": PRINT "BETWEEN ROUNDS (Y) OR (N) ?": GOSUB 1750:RB% = -1953: IF DV$(0) = "Y" THEN RB% = -1052
492 HOME : VTAB 21: PRINT "PLEASE INSERT SSI GAME DISK (RET)": GOSUB 12000
493 & READ "DISKCHECK": INPUT A: & END
494 IF A < >1 THEN 492
495 GOSUB 970:P1(1) = P1(1) +DF(2)
500 P1(2) = P1(2) +DF(1)
510 ER(1) = (ER(1) *15)/10
520 ER(2) = (ER(2) *15)/10
525 GOTO 680
530 I = 1:A = 2
540 IF BC(I) = 12 AND BC(A) = 12 THEN BC(I) = 10:BC(A) = 10
550 IF BC(I) = 12 AND BC(A) = 11 THEN BC(I) = 10:BC(A) = 9
560 IF BC(I) = 11 AND BC(A) = 11 THEN BC(I) = 10:BC(A) = 10
570 IF BC(I) = 11 AND BC(A) = 10 THEN BC(I) = 10:BC(A) = 9
580 IF BC(I) = 9 AND BC(A) = 9 THEN BC(I) = 10:BC(A) = 10
590 IF BC(I) = 9 AND BC(A) = 8 THEN BC(I) = 10:BC(A) = 9
600 IF BC(I) = 9 AND BC(A) = 7 THEN BC(I) = 10:BC(A) = 8
610 IF BC(I) = 8 AND BC(A) = 8 THEN BC(I) = 10:BC(A) = 10
620 IF BC(I) = 8 AND BC(A) = 7 THEN BC(I) = 10:BC(A) = 9
630 IF BC(I) = 8 AND BC(A) = 6 THEN BC(I) = 10:BC(A) = 8
640 IF BC(I) = 7 AND BC(A) = 7 THEN BC(I) = 10:BC(A) = 10
650 IF BC(I) = 7 AND BC(A) = 6 THEN BC(I) = 10:BC(A) = 9
660 IF BC(I) = 7 AND BC(A) = 5 THEN BC(I) = 10:BC(A) = 8
670 IF I = 1 THEN I = 2:A = 1: GOTO 540
675 RETURN
680 GOTO 910
910 SPEED= 255: GOSUB 11000:WV(5) = 3:WV(0) = 1:WV(1) = 1:WV(2) = 0:IN = 0: POKE 49235,0: POKE 49232,0: POKE 49239,0: HOME : VTAB 21: GOSUB 1300: SPEED= 150
950 NM$(1) = LQ$(1):NM$(2) = LQ$(2): GOSUB 40000:A0(0) = 176
951 & GOTO "RSSROUND"
960 GOTO 10000
970 P2(1) = P1(1) +P2(1):C1(1) = P2(1) +C1(1):RT(1) = C1(1) +RT(1):H(1) = J(1) +H(1):C(1) = H(1) +C(1):O(1) = C(1) +O(1):U(1) = O(1) +U(1)
980 P2(2) = P1(2) +P2(2):C1(2) = P2(2) +C1(2):RT(2) = C1(2) +RT(2):H(2) = J(2) +H(2):C(2) = H(2) +C(2):O(2) = C(2) +O(2):U(2) = O(2) +U(2)
990 RETURN
1000 IF PEEK(222) = 255 THEN PR# 6
1010 ON EP GOTO 100,265,405,410,400,400,470
1100 IF PEEK( -16384) >127 THEN 1103
1101 A = PEEK(203) +1: IF A >255 THEN A = 0
1102 POKE 203,A: GOTO 1100
1103 Z0 = 5: GOSUB 1104: POKE -16368,0: RETURN
1104 IF PEEK( -16384) = 176 THEN Z0 = 0
1105 IF PEEK( -16384) = 177 THEN Z0 = 1
1106 IF PEEK( -16384) = 178 THEN Z0 = 2
1107 IF PEEK( -16384) = 179 THEN Z0 = 3
1108 IF PEEK( -16384) = 180 THEN Z0 = 4
1110 RETURN
1200 A = INT( RND(1) *7) +1
1201 B = INT( RND(1) *7) +1
1205 IF A = B THEN POKE 78, INT( RND(1) *255) +1: GOTO 1201
1210 ON A GOSUB 1220,1221,1222,1223,1225,1226,1227
1211 BO = 2: ON B GOSUB 1220,1221,1222,1223,1225,1226,1227:BO = 1: GOTO 1230
1220 NM$(BO) = "ALI-HW": RETURN
1221 NM$(BO) = "FRAZIER-HW": RETURN
1222 NM$(BO) = "MARCIANO-HW": RETURN
1223 NM$(BO) = "HOLMES-HW": RETURN
1225 NM$(BO) = "LOUIS-HW": RETURN
1226 NM$(BO) = "LISTON-HW": RETURN
1227 NM$(BO) = "DEMPSEY-HW": RETURN
1230 RETURN
1300 IF FP$(1) = "B/S" AND Z0 < >4 THEN A = 1: GOTO 1310
1305 A = 1:FT$(1) = FP$(1): IF Z0 = 4 AND FP$(1) = "B/S" THEN FT$(1) = "S":FP$(1) = "S":TS$(1) = "B/S": IF CS(2) >CB(2) THEN FT$(1) = "B":FP$(1) = "B"
1310 IF FP$(A) = "B/S" THEN HOME : VTAB 21: PRINT "FIGHT "LQ$(A)" AS (B) OR (S) ?": GOSUB 1500: IF FT$(A) < >"B" AND FT$(A) < >"S" THEN HOME : VTAB 21: GOTO 1310
1315 IF A = 2 THEN 1330
1320 IF FP$(2) = "B/S" AND Z0 < >4 THEN A = 2: GOTO 1310
1325 FT$(2) = FP$(2): IF Z0 = 4 AND FP$(2) = "B/S" THEN FT$(2) = "S":FP$(2) = "S":TS$(2) = "B/S": IF CS(1) >CB(1) THEN FT$(2) = "B":FP$(2) = "B"
1330 IF FT$(1) = "B" THEN BC(2) = CB(2)
1335 IF FT$(1) = "S" THEN BC(2) = CS(2)
1340 IF FT$(2) = "B" THEN BC(1) = CB(1)
1345 IF FT$(2) = "S" THEN BC(1) = CS(1)
1350 IF (TS$(1) = "B/S" OR FP$(1) = "B/S") AND FT$(1) = "B" THEN HP(1) = HP(1) -1
1355 IF (TS$(2) = "B/S" OR FP$(2) = "B/S") AND FT$(2) = "B" THEN HP(2) = HP(2) -1
1360 WV(1) = 3.3:A$ = FT$(1) +LT$(BR(1)) +"-" +LQ$(1):WV(0) = 1: GOSUB 50100:A$ = FT$(2) +LT$(BR(2)) +"-" +LQ$(2):WV(0) = 30: GOSUB 50100
1365 GOSUB 1700
1370 GOSUB 530
1380 RETURN
1500 IF PEEK( -16384) <128 THEN 1500
1510 IF PEEK( -16384) = 194 THEN FT$(A) = "B"
1520 IF PEEK( -16384) = 211 THEN FT$(A) = "S"
1530 POKE -16368,0: RETURN
1700 BC(1) = BR(1) +BC(1)
1710 BC(2) = BR(2) +BC(2)
1720 RETURN
1750 DV$(0) = " ": IF PEEK( -16384) <128 THEN 1750
1751 IF PEEK( -16384) = 206 THEN DV$(0) = "N"
1752 IF PEEK( -16384) = 217 THEN DV$(0) = "Y"
1754 IF DV$(0) = " " THEN POKE -16368,0: GOTO 1750
1756 POKE -16368,0: RETURN
1800 PK$ = " ": IF PEEK( -16384) <128 THEN 1800
1810 IF PEEK( -16384) = 203 THEN PK$ = "K"
1820 IF PEEK( -16384) = 208 THEN PK$ = "P"
1830 IF PK$ = " " THEN POKE -16368,0: GOTO 1800
1840 POKE -16368,0: RETURN
10000 GOTO 10000
11000 HOME : TEXT : POKE 230,32: CALL 62450:UL$ = "@"
11170 SCALE= 1: ROT= 0: HCOLOR= 3:UL = ASC(UL$):WV(5) = 3
11180 J = 768:I = 1:WV(8) = PEEK(J) + PEEK(J +1) *256:WV(10) = PEEK(J):WV(11) = PEEK(J +1)
11200 & RECALL "RSS.RING/TEXT",8192: & RECALL "RSS.ANIMATION",2048
11220 & RECALL "RSS.INVERSE",16384:WV(8) = 16441
11230 I = 1: & RECALL "RSS.FONT 2-59",16441
11235 J = 768:X = WV(8): POKE J,X - INT(X/256) *256:WV(10) = PEEK(J): POKE J +1, INT(X/256):WV(11) = PEEK(J +1)
11236 A$ = "": IF CB(1) <0 THEN A$ = "-"
11237 A$ = A$ +LT$( ABS(CB(1))) +"/": IF CS(1) <0 THEN A$ = A$ +"-"
11238 A$ = A$ +LT$( ABS(CS(1))):WV(1) = 2:WV(0) = 1: GOSUB 50100:WV(0) = 30:A$ = "": IF CB(2) <0 THEN A$ = "-"
11239 A$ = A$ +LT$( ABS(CB(2))) +"/": IF CS(2) <0 THEN A$ = A$ +"-"
11240 A$ = A$ +LT$( ABS(CS(2))): GOSUB 50100
11241 POKE 252,55: POKE 253,68: POKE 254,22: POKE 255,21: POKE 828,1: POKE 829,1: POKE 214,6: POKE 215,18: POKE 7,4: POKE 8,3: POKE 770,1: POKE 771,1: CALL 2048
11242 POKE 252,71: POKE 253,84: POKE 254,17: POKE 255,16: POKE 214,90: POKE 215,18: POKE 7,32: POKE 8,3: POKE 770,1: POKE 771,1: CALL 2048
11260 WV(1) = 6.6:WV(0) = 19.5:A$ = "3:00": GOSUB 50100:WV(1) = 3.5:WV(0) = 17:A$ = "R.S.S. ARENA": GOSUB 50100:WV(1) = 4.5:WV(0) = 18:A$ = "ROUND 01": GOSUB 50100
11300 RETURN
12000 IF PEEK( -16384) <128 THEN 12000
12005 IF PEEK( -16384) < >141 THEN POKE -16368,0: GOTO 12000
12010 POKE -16368,0: RETURN
39000 RETURN
40000 IR%(1) = ER(1):IR%(2) = ER(2):CU(3) = CU(1):CU(4) = CU(2):FI(3) = FI(1):FI(4) = FI(2):FO(3) = FO(1):FO(4) = FO(2):SA(3) = SA(1):SA(4) = SA(2):KC(3) = KC(1):KC(4) = KC(2):PC(3) = PC(1):PC(4) = PC(2)
40010 A9 = 0:R1$(1) = "R":R1$(2) = "L":R1$(3) = "R":R1$(4) = "L":SP$(1) = "FF":SP$(2) = "CU":SP$(3) = "CI":SP$(4) = "SM":SP$(5) = "SA":SP$(6) = "KO":SP$(7) = "PC"
40015 REM
40020 VB = 4:X9(1) = 1:X9(2) = 31.9:L5 = 80: SPEED= 255: IF Z0 = 4 THEN DS$ = "Y": GOTO 40110
40030 HOME : VTAB 21: PRINT "DO YOU WANT TO SEE THE CUMULATIVE": PRINT "JUDGES SCORING WHILE THE FIGHT IS": PRINT "IN PROGRESS (Y) OR (N) ?"
40035 DS$ = " "
40040 IF PEEK( -16384) >127 THEN 40070
40050 A = PEEK(203) +1: IF A >255 THEN A = 0
40060 POKE 203,A: GOTO 40040
40070 IF PEEK( -16384) = 206 THEN DS$ = "N"
40080 IF PEEK( -16384) = 217 THEN DS$ = "Y"
40090 IF DS$ = " " THEN POKE -16368,0: GOTO 40040
40100 POKE -16368,0
40110 KI(1) = KI(1) -(4 -TK(2)):KI(2) = KI(2) -(4 -TK(1)): FOR A = 1 TO 2
40120 IF A = 1 THEN B = 2
40130 IF A = 2 THEN B = 1
40140 IF HP(A) = 4 THEN K1(B) = K1(B) -3
40150 IF HP(A) = 5 THEN K1(B) = K1(B) -2
40160 IF HP(A) = 6 THEN K1(B) = K1(B) -1
40170 IF HP(A) >9 THEN K1(B) = K1(B) +1
40180 IF HP(A) >11 THEN K1(B) = K1(B) +1
40190 NEXT
40200 HOME : PRINT
40230 VTAB 21
40240 IF Z0 = 4 THEN Z0 = 3
40250 P0(1) = 1:P0(2) = 1:AA% = 1: GOSUB 40504: GOSUB 40585:AA% = 0
40260 IF AG(1) >AG(2) THEN 40400
40270 IF AG(2) >AG(1) THEN 40410
40280 LF = 1
40290 IF BR(1) >BR(2) THEN 40400
40300 IF BR(2) >BR(1) THEN 40410
40310 RN = INT( RND(1) *2) +1: ON RN GOTO 40400,40410
40400 BO = 1:NB = 2: GOTO 40420
40410 BO = 2:NB = 1
40420 AA% = 1:LS = 40
40450 RETURN
40504 RF = 1
40510 A = 0:B = 0: IF Z0 = 3 THEN A = 2:B = 1: GOSUB 40595:A = 1:B = 2: GOSUB 40595: GOTO 40543
40511 IF Z0 = 2 OR Z0 = 0 THEN A = 1:B = 0
40512 IF Z0 = 1 THEN 40528
40513 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)")"
40514 PRINT "7-PRT CUT("PC(A)")":P0(A) = 1: VTAB 23: HTAB 14: PRINT NM$(A)"-": SPEED= 150: GOSUB 40535: FLASH : PRINT "FLAT FOOTED": NORMAL
40515 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 40535: FLASH : PRINT "FLAT FOOTED": NORMAL
40516 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 40535: FLASH : PRINT "COVER UP("CU(A)")": NORMAL
40518 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 40535: FLASH : PRINT "CHARGE IN("FI(A)")": NORMAL
40520 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 40535: FLASH : PRINT "STICK & MOVE("FO(A)")": NORMAL
40522 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 40535: FLASH : PRINT "STAY AWAY("SA(A)")": NORMAL
40524 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 40535: FLASH : PRINT "GO FOR KO("KC(A)")": NORMAL
40525 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 40535: FLASH : PRINT "PROTECT CUTS("PC(A)")": NORMAL
40526 PK% = -16287:A0(A) = PEEK(PK% +B): IF (PK$ = "P" AND A0(A) <128) OR (PK$ = "K" AND PEEK( -16384) < >141) THEN 40515
40527 POKE -16368,0: CALL ( -1052):II = A: GOSUB 40631: IF Z0 = 2 THEN A = 2:B = 1: GOSUB 40595: GOTO 40543
40528 IF A = 2 THEN 40542
40529 A = 2:B = 1: GOTO 40513
40535 VTAB 23: HTAB 13 +( LEN(NM$(A)) +2): PRINT " ": VTAB 23: HTAB 13 +( LEN(NM$(A)) +2): RETURN
40542 IF Z0 = 1 THEN A = 1:B = 2: GOSUB 40595
40543 WV(1) = 4.5:WV(0) = 1:A$ = SY$(1): GOSUB 50100:WV(0) = 30:A$ = SY$(2): GOSUB 50100:SG%(0,RD +1) = P0(1):SG%(1,RD +1) = P0(2)
40544 FOR Q5 = 1 TO 2
40545 IF Q5 = 1 THEN Q6 = 2
40546 IF Q5 = 2 THEN Q6 = 1
40547 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
40548 ON P0(Q5) GOTO 40584,40550,40553,40560,40567,40574,40582
40550 IF P0(Q6) = 2 OR P0(Q6) = 5 THEN 40584
40551 P1(Q5) = 10
40552 K1(Q5) = K1(Q5) +2: GOSUB 41229:BC(Q5) = BC(Q5) -AQ%:DF(Q5) = DF(Q5) -AR%: GOTO 40584
40553 IF P0(Q6) = 1 OR P0(Q6) = 7 THEN DF(Q5) = DF(Q5) +5:K1(Q5) = K1(Q5) +1:BC(Q5) = BC(Q5) -2
40554 IF P0(Q6) = 2 THEN AG(Q5) = AG(Q5) +2:HP(Q5) = HP(Q5) +1
40555 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
40556 IF P0(Q6) = 4 THEN BC(Q5) = BC(Q5) -2:DF(Q5) = DF(Q5) +4:K1(Q5) = K1(Q5) +1
40557 IF P0(Q6) = 5 THEN AG(Q5) = AG(Q5) +2:BC(Q5) = BC(Q5) -1
40558 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
40559 GOSUB 41200:AG(Q5) = AG(Q5) +AR%:BC(Q5) = BC(Q5) +AR%:ES(Q5) = ES(Q5) +(AR% *3): GOTO 40584
40560 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) -1
40561 IF P0(Q6) = 2 THEN HP(Q5) = HP(Q5) -2
40562 IF P0(Q6) = 3 THEN HP(Q5) = HP(Q5) -1:K1(Q5) = K1(Q5) -1:BC(Q5) = BC(Q5) -2
40563 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
40564 IF P0(Q6) = 5 THEN HP(Q5) = HP(Q5) -2:DF(Q5) = DF(Q5) -5:K1(Q5) = K1(Q5) -3
40565 IF P0(Q6) = 6 THEN HP(Q5) = HP(Q5) -1:K1(Q5) = K1(Q5) -1:BC(Q5) = BC(Q5) -2
40566 GOSUB 41210:AR% = AR% -5:DF(Q5) = DF(Q5) -AR%:BC(Q5) = BC(Q5) +AQ%: GOTO 40584
40567 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
40568 IF P0(Q6) = 2 THEN 40584
40569 IF P0(Q6) = 3 THEN K1(Q5) = K1(Q5) -2:HP(Q5) = HP(Q5) -3:BC(Q5) = BC(Q5) -4
40570 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
40571 IF P0(Q6) = 5 THEN 40584
40572 IF P0(Q6) = 6 THEN K1(Q5) = K1(Q5) -1:HP(Q5) = HP(Q5) -3:BC(Q5) = BC(Q5) -4
40573 GOSUB 41211:BC(Q5) = BC(Q5) +AQ%:DF(Q5) = DF(Q5) -AR%:P1(Q5) = INT(P1(Q5)/3):P1(Q5) = P1(Q5) +(AR%/2): GOTO 40584
40574 IF P0(Q6) = 1 OR P0(Q6) = 7 THEN K1(Q5) = K1(Q5) +1:DF(Q5) = DF(Q5) +4:BC(Q5) = BC(Q5) -2
40575 IF P0(Q6) = 2 THEN AG(Q5) = AG(Q5) +2:BC(Q5) = BC(Q5) +1:HP(Q5) = HP(Q5) +1
40576 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
40577 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
40578 IF P0(Q6) = 5 THEN AG(Q5) = AG(Q5) +3:DF(Q5) = DF(Q5) +2
40579 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
40580 GOSUB 41220:AG(Q5) = AG(Q5) +AR%:BC(Q5) = BC(Q5) +AR%:ES(Q5) = ES(Q5) +(AR% *3): IF HP(Q5) <8 THEN HP(Q5) = 8
40581 GOTO 40584
40582 GOSUB 41279:BC(Q5) = BC(Q5) -AR%:DF(Q5) = DF(Q5) +AQ%
40584 NEXT : GOSUB 40761: RETURN
40585 P1(1) = P1(1) +(DF(2) -S3(2))
40586 P1(2) = P1(2) +(DF(1) -S3(1))
40587 IF AG(1) >AG(2) THEN BO = 1:NB = 2
40588 IF AG(2) >AG(1) THEN BO = 2:NB = 1
40589 RETURN
40595 REM
40596 IF FT$(A) = "B" AND FI(A) >1 THEN RN = RND(1) *100: IF RN <(FI(A) *28) *(IR%(A)/157) THEN P0(A) = 3
40597 IF FT$(A) = "B" AND FO(A) >1 THEN RN = RND(1) *100: IF RN <(FO(A) *28) *(IR%(A)/157) THEN P0(A) = 4
40600 IF FT$(A) = "S" AND FO(A) >1 THEN RN = RND(1) *100: IF RN <(FO(A) *28) *(IR%(A)/157) THEN P0(A) = 4
40601 IF FT$(A) = "S" AND FI(A) >1 THEN RN = RND(1) *100: IF RN <(FI(A) *28) *(IR%(A)/157) THEN P0(A) = 3
40603 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
40604 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
40605 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
40606 IF (Y1(A) >0 AND (K1(A) +K2(A)) >5) AND HP(B) >8 THEN P0(A) = 5
40607 IF MF(A) >0 OR MG(A) >0 OR MH(A) >0 THEN P0(A) = 5
40611 C = HP(A) -HP(B)
40612 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
40613 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
40614 CA(1) = 0:CA(2) = 0:II = A: GOSUB 40631: RETURN
40631 REM
40632 IF P0(II) = 1 THEN SY$(II) = "FLAT FOOTED":S%(II) = -10
40633 IF P0(II) = 2 THEN SY$(II) = "COVER UP":S%(II) = -8
40634 IF P0(II) = 3 THEN SY$(II) = "CHARGE IN":S%(II) = 20
40635 IF P0(II) = 4 THEN SY$(II) = "STICK-MOVE":S%(II) = 25
40636 IF P0(II) = 5 THEN SY$(II) = "STAY AWAY":S%(II) = -10
40637 IF P0(II) = 6 THEN SY$(II) = "GO FOR KO":S%(II) = 30
40638 IF P0(II) = 7 THEN SY$(II) = "PROTECT CUTS":S%(II) = -10
40639 RETURN
40761 FOR A = 1 TO 2: IF BC(A) <1 THEN BC(A) = 1
40762 GOSUB 40791
40763 IF HP(A) <1 THEN HP(A) = 1
40764 IF P1(A) <1 THEN P1(A) = 1
40765 IF K1(A) <1 THEN K1(A) = 1
40766 IF S0(A) <1 THEN S0(A) = 1
40767 IF S2(A) <1 THEN S2(A) = 1
40768 IF S4(A) <1 THEN S4(A) = 1
40769 IF S5(A) <1 THEN S5(A) = 1
40770 NEXT : RETURN
40791 IF K1(A) >10 THEN K1(A) = 10
40792 IF S4(A) >10 THEN S4(A) = 10
40793 IF AG(A) >20 THEN AG(A) = 20
40794 RETURN
41200 ON FI(Q5) GOSUB 41201,41202,41203,41204,41205: RETURN
41201 AR% = 1: RETURN
41202 AR% = 2: RETURN
41203 AR% = 3: RETURN
41204 AR% = 4: RETURN
41205 AR% = 5: RETURN
41210 ON FO(Q5) GOSUB 41212,41213,41214,41215,41216: RETURN
41211 ON SA(Q5) GOSUB 41212,41213,41214,41215,41216: RETURN
41212 AR% = 0:AQ% = 0: RETURN
41213 AR% = 5:AQ% = 1: RETURN
41214 AR% = 10:AQ% = 2: RETURN
41215 AR% = 15:AQ% = 3: RETURN
41216 AR% = 20:AQ% = 4: RETURN
41220 ON KC(Q5) GOSUB 41221,41222,41223,41224,41225: RETURN
41221 AR% = 1: RETURN
41222 AR% = 2: RETURN
41223 AR% = 3: RETURN
41224 AR% = 4: RETURN
41225 AR% = 5: RETURN
41229 ON CU(Q5) GOSUB 41230,41231,41232,41233,41234: RETURN
41230 AQ% = 7:AR% = -10: RETURN
41231 AQ% = 6:AR% = -7: RETURN
41232 AQ% = 5:AR% = -4: RETURN
41233 AQ% = 4:AR% = -1: RETURN
41234 AQ% = 3:AR% = 2: RETURN
41270 ON PC(Q5) GOSUB 41271,41272,41273,41274,41275: RETURN
41271 AR% = 2:AQ% = 8: RETURN
41272 AR% = 2:AQ% = 6: RETURN
41273 AR% = 1:AQ% = 5: RETURN
41274 AR% = 0:AQ% = 4: RETURN
41275 AR% = 0:AQ% = 2: RETURN
50000 REM
50100 REM
50102 POKE 232,WV(10): POKE 233,WV(11)
50105 X = 7 *WV(0) -6:Y = 8 *WV(1) -8
50115 HCOLOR= WV(5): DRAW 100 AT X,Y
50120 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: RETURN
Text found in Ringside_Seat_1983_SSI_cr_T._Foley_RDOS.dsk/QWERTY.txt:
Offset Hex Data Characters
======= ================================================ =================
$000000 AE F1 BA BD 89 C0 A9 00 20 1E BD A9 00 85 00 C6 .q:=.@). .=)...F
$000010 00 F0 17 20 65 BC B0 F7 C1 00 C1 00 EA EA BD 8E .p. e<0w A.A.jj=.
$000020 C0 BD 8C C0 10 FB 49 EE A9 00 85 00 60 00 00 00 @=.@.{In )...`...
** END **
Text found in Ringside_Seat_1983_SSI_cr_T._Foley_RDOS.dsk/RSSROUND.bas:
0 ONERR GOTO 1050
1 C8 = 0: GOTO 21
2 BC = 0: IF HG%(BO -1) = 11 OR HG%(BO -1) = 13 OR HG%(BO -1) = 33 OR HG%(BO -1) = 42 OR HG%(BO -1) = 30 OR HG%(BO -1) = 74 OR HG%(BO -1) = 70 THEN BC = 1
3 IF FM = 1 THEN FM = 0: RETURN
4 A = 1: IF CK <1 THEN A = INT( RND(1) *300) +1
5 IF A = 7 OR CK >0 THEN IF SQ(3) = 0 OR SQ(3) = 1 THEN SQ(0) = SQ(0) +2:SQ(1) = 1
6 IF A = 7 OR CK >0 THEN IF SQ(3) = 2 THEN SQ(0) = SQ(0) +1:SQ(1) = 1
7 IF A = 7 OR CK >0 THEN IF SQ(3) = 3 THEN SQ(0) = 1:SQ(1) = SQ(1) +1
8 POKE 828,SQ(0): POKE 829,SQ(1): RETURN
9 POKE 214,RC(BC): POKE 215,RD(BC): CALL 6912: CALL 2048: RETURN
10 A = INT( RND(1) *100) +1: IF A >25 AND LEFT$(JA$(0),3) = LEFT$(NM$(BO),3) THEN GOSUB 853
11 IF RP(BO) 50 THEN RS%(6) = 1: GOSUB 801:A$ = NM$(BO) +" IS COMING ON STRONG NOW.": GOSUB 2100:TY% = 0
12 RETURN
14 B = 0:A = INT( RND(1) *100) +1: IF A <25 +(PC(NB) *10) THEN B = 1:A = INT( RND(1) *2) +1: GOTO 16
15 A = 1: GOTO 18
16 IF A = 1 THEN A = 4
17 IF PU$ = "JAB" THEN PU$ = "HOOK"
18 RETURN
21 SPEED= 150
25 IF A9 = 1 THEN 59
26 GOTO 32
27 IF PK$ = "P" THEN A0(A) = PEEK(B): RETURN
28 A0(A) = PEEK( -16384): POKE -16368,0: IF A0(A) < >C THEN A0(A) = 126
29 RETURN
32 HOME : VTAB 21:A = FRE(0):N1$ = NM$(1)
36 N2$ = NM$(2):TY% = 9
37 GOTO 59
38 WV(5) = 3:WV(0) = 19.3:A$ = " 2:56 ": GOSUB 2100: RETURN
39 A$ = B$:WV(1) = 1:WV(0) = 1:WV(5) = 0: GOSUB 2100:WV(5) = 3: RETURN
40 GOSUB 752: GOSUB 752: RETURN
45 IF B = 1 THEN PRINT "IT'S A HARD "S1$" "PU$: PRINT S2$" BY "NM$(BO)"."
46 RETURN
59 POKE 78, INT( RND(1) *255) +1: GOSUB 761:NM$(1) = N1$:NM$(2) = N2$
60 IF AA% = 1 OR (AA% = 41 AND LS = 80) THEN GOSUB 749: CALL 6912: POKE 252,55: POKE 253,68: POKE 254,22: POKE 255,21: POKE 7,4: GOSUB 2200:JB$(0) = "THE FIGHTERS ARE AT RING CENTER NOW"
61 IF AA% = 1 OR (AA% = 41 AND LS = 80) THEN GOSUB 39:WV(2) = 1:A$ = JB$(0): GOSUB 2100:FR% = 0:HG%(0) = 32:HG%(1) = 42:JA$(0) = JB$(0):WV(1) = 6.6:WV(0) = 19.3:A$ = "$$$$$$":WV(5) = 0: GOSUB 2100: GOSUB 38
62 IF RS%(5) = 1 THEN RS%(5) = 0:A = INT( RND(1) *40) +1: IF A < = (AG(BO) +(AG(BO) -AG(NB))) AND LEFT$(JA$(0),5) = "THE F" THEN GOSUB 717
63 CF% = INT( RND(1) *20) +1: IF CF% < = BC(BO) THEN 67
64 IF BO = 1 THEN 66
65 BO = 1:NB = 2: GOTO 67
66 BO = 2:NB = 1
67 AA% = AA% +1:RN = INT( RND(1) *100) +1
68 IF RN < = P1(BO) THEN AA% = AA% +1:SR = INT( RND(1) *100) +1:A = INT(4 * RND(1)) +1:SR$ = R1$(A):RQ% = RND(1) *10000: GOTO 74
69 IF RN < = P2(BO) THEN PU$ = "MISS": GOTO 112
70 GOSUB 530: IF RN < = C1(BO) -AR% THEN D = RP(BO) -RP(NB): IF D <4 AND LEFT$(JA$(0),3) < > LEFT$(NM$(NB),3) AND KF <1 THEN PU$ = "CLINCH":CL(BO) = CL(BO) +1: GOTO 112
71 IF RN < = C1(BO) -AR% THEN PU$ = "MISS": GOTO 112
72 IF RN < = RT(BO) AND LEFT$(JA$(0),3) < > LEFT$(NM$(NB),3) AND KF <1 THEN RM(BO) = RM(BO) +1:PU$ = "MOVEMENT": GOTO 112
73 PU$ = "MISS": GOTO 112
74 SE = ((HP(BO) ^2) *7) +((RP(BO) ^2) *(K1(NB) +(K2(NB) *((KX%(NB) +(DP%(BO)/2)) >.6))))
75 IF SE >2500 AND W9(NB) = 0 THEN W9(NB) = 1:WV(1) = 15.4:WV(0) = X9(NB):A$ = "READY TO GO": GOSUB 2100
77 IF RQ% 2 AND P0(BO) < >5 THEN AA% = AA% +1: GOTO 98
78 IF P0(BO) = 6 THEN SE = SE +(KC(BO) *150): IF RQ% 0 AND P0(NB) = 2 THEN RP(BO) = RP(BO) +.5
94 IF HI >0 THEN RP(BO) = RP(BO) +HI -J2(0):PH%(BO) = PH%(BO) +((HI *.5) -(J2(0) *.5))
95 GOTO 112
98 K8 = K1(NB) *7
99 IF Y1(NB) THEN K8 = K8 +(K2(NB) *7)
100 KH%(1) = INT( RND(1) *100) +1: IF A0(0) <10 THEN 103
101 IF KH%(1) KI(BO) THEN KF = 0:FU% = 1:DV$(1) = SY$(1):DV$(2) = SY$(2):RS%(5) = 0: GOSUB 1101: GOTO 112
108 REM
109 IF AA% > = LS THEN 222
110 A7 = A7 +1
111 KF = 2:RS%(5) = 0: GOTO 67
112 IF PU$ = "MISS" THEN PH%(BO) = PH%(BO) +1:A = 100 * RND(1): IF A < = ES(BO) THEN PH%(BO) = PH%(BO) +.5
113 IF PU$ = "MISS" THEN 175
114 IF PU$ = "CLINCH" THEN 180
115 IF PU$ = "MOVEMENT" THEN 183
116 IF PU$ = "NOTHING" THEN 164
117 HOME : VTAB 21:RS%(5) = 1: IF P0(NB) = 7 THEN GOSUB 14: ON A GOTO 118,119,118,121
118 A = INT(4 * RND(1)) +1: IF A = 1 THEN S2$ = "TO THE HEAD":SQ(2) = 0
119 IF A = 2 THEN S2$ = "TO THE BODY":SQ(2) = 1
120 IF A = 3 THEN S2$ = "TO THE JAW":SQ(2) = 0
121 IF A = 4 THEN S2$ = "TO THE MIDSECTION":SQ(2) = 1
122 IF PU$ = "JAB" THEN S2$ = "TO THE HEAD":SQ(2) = 0
123 IF PU$ = "UPPERCUT" AND (A = 1 OR A = 4) THEN 127
124 IF PU$ = "UPPERCUT" THEN S2$ = "TO THE CHIN":SQ(2) = 0
125 IF PU$ = "CROSS" AND (A = 1 OR A = 3) THEN 127
126 IF PU$ = "CROSS" THEN S2$ = "TO THE FACE":SQ(2) = 0
127 IF SR$ = "L" THEN S1$ = "LEFT":SQ(3) = 0
128 IF SR$ = "R" THEN S1$ = "RIGHT":SQ(3) = 1
129 IF SR$ = "R" AND PU$ = "COMBINATION" THEN S1$ = "RIGHT LEFT":SQ(0) = 1:SQ(1) = 7:SQ(3) = 3
130 IF SR$ = "L" AND PU$ = "COMBINATION" THEN S1$ = "LEFT RIGHT":SQ(0) = 7:SQ(1) = 1:SQ(3) = 2
131 IF SQ(2) = 0 AND SQ(3) = 0 THEN R = 1
132 IF SQ(2) = 0 AND SQ(3) = 1 THEN R = 2
133 IF SQ(2) = 0 AND SQ(3) = 2 THEN R = 3
134 IF SQ(2) = 0 AND SQ(3) = 3 THEN R = 4
135 IF SQ(2) = 1 AND SQ(3) = 0 THEN R = 5
136 IF SQ(2) = 1 AND SQ(3) = 1 THEN R = 6
137 IF SQ(2) = 1 AND SQ(3) = 2 THEN R = 7
138 IF SQ(2) = 1 AND SQ(3) = 3 THEN R = 8
139 GOSUB 2: POKE 214,D9(BC,R) - INT(D9(BC,R)/256) *256: POKE 215, INT(D9(BC,R)/256): CALL 6912: CALL 2048
140 B = INT(3 * RND(1)) +1: ON B GOTO 141,142,143
141 IF J2(0) <3 THEN PRINT NM$(BO)" CONNECTS WITH A "S1$: PRINT PU$" "S2$".": GOTO 146
142 IF J2(0) <3 THEN PRINT NM$(NB)" IS TAGGED WITH A "S1$: PRINT PU$" "S2$".": GOTO 146
143 IF J2(0) <3 THEN PRINT "IT'S A "S1$" "PU$: PRINT S2$" BY "NM$(BO)".": GOTO 146
144 GOSUB 45: IF B = 2 THEN PRINT NM$(NB)" IS NAILED BY A "S1$: PRINT PU$" "S2$".": GOTO 146
145 IF B = 3 THEN PRINT NM$(NB)" IS ROCKED BY A "S1$: PRINT PU$" "S2$"."
146 IF A = 7 THEN PRINT NM$(NB)" FALLS TO THE CANVAS.": PRINT "THE REF BEGINS THE COUNT.......": GOSUB 752: PRINT "WAIT A SECOND...": GOSUB 752: PRINT "IT'S RULED A SLIP.": POKE 828,5: POKE 829,1: GOSUB 9: GOTO 154
147 IF CK <1 THEN 152
148 IF CK >0 THEN PRINT NM$(NB)" FALLS TO THE CANVAS.": PRINT "THE REF BEGINS THE COUNT.......":KC%(NB -1,RD +1) = KC%(NB -1,RD +1) +1:VA = 1
149 GOSUB 752: FOR X9 = 1 TO CK:Q5 = A0(0) -1:A0(0) = A0(0) -1: GOSUB 189: VTAB 23: HTAB 32: PRINT X9:Q5 = PEEK( -16336):Q5 = PEEK( -16336): GOSUB 752: NEXT : PRINT :A = INT( RND(1) *100) +1: PRINT : IF CK = 10 THEN 664
150 POKE 828,5: POKE 829,1: GOSUB 9: PRINT NM$(NB)" GETS TO HIS FEET.": GOSUB 752: GOSUB 752: IF MG(NB) <1 AND A <100 -(RP(BO)/4) THEN GOSUB 40: PRINT NM$(NB)" IS ALLOWED TO CONTINUE.":CK = 0: GOSUB 1150: GOSUB 851
151 IF MG(NB) >0 OR A >99 -(RP(BO)/4) THEN WT = 1: GOSUB 40: PRINT "THE FIGHT HAS BEEN STOPPED.": PRINT NM$(NB)" WON'T BE ALLOWED TO CONTINUE.": PRINT NM$(BO)" IS THE WINNER ON A TKO.": GOTO 716
152 IF HI = 4 THEN HI = 0: GOTO 155
153 IF HI = 5 THEN HI = 0: GOTO 159
154 HI = 0: GOTO 163
155 A = INT(3 * RND(1)) +1: ON A GOSUB 156,157,158:AG(BO) = AG(BO) +1: GOSUB 853: GOTO 163
156 PRINT NM$(NB)" IS STAGGERED BY THE PUNCH.": RETURN
157 PRINT NM$(NB)" IS STUNNED BY THE PUNCH.": RETURN
158 PRINT NM$(NB)" IS MOMENTARILY DAZED.": RETURN
159 A = INT(3 * RND(1)) +1: ON A GOSUB 160,161,162:AG(BO) = AG(BO) +3: GOSUB 853:DP%(BO) = DP%(BO) +1: GOTO 163
160 PRINT NM$(NB)" IS CRUSHED BY THE PUNCH,": PRINT "IT MADE HIS KNEES BUCKLE.": RETURN
161 PRINT NM$(NB)" IS STOPPED DEAD.": PRINT NM$(BO)" MOVES IN FOR THE KILL.": RETURN
162 PRINT NM$(NB)" IS HURT.": PRINT "HE'S ALMOST OUT ON HIS FEET.": RETURN
163 GOSUB 1101: GOSUB 381:R8 = BO:R9 = NB:IP% = 1
164 A = INT( RND(1) *100) +1: ON A >((ER(NB)/IR%(NB)) *100) -(KX%(NB) *10) GOSUB 468:IP% = 0:VA = 0: GOSUB 809: IF LB% = BO AND RS%(5) = 1 THEN GOSUB 10
165 GOSUB 859:RE = 0:CR$(1) = " ":CR$(2) = " ":A0(1) = 126:A0(2) = 126: IF KF >0 THEN 171
166 IF Z0 = 1 OR Z0 = 2 OR Z0 = 3 THEN A0(1) = 126:A0(2) = 126: IF P0(NB) < >2 THEN GOSUB 492
167 IF Z0 = 1 OR Z0 = 3 THEN 170
168 IF P0(1) < >2 THEN A = 1:B = -16287:C = 218: GOSUB 27
169 IF Z0 = 2 THEN 171
170 IF P0(2) < >2 AND Z0 < >3 THEN A = 2:B = -16286:C = 175: GOSUB 27
171 IF A0(1) >127 THEN GOSUB 801:A$ = NM$(1) +" IS COVERING UP.":P0(1) = 2:SY$(1) = "COVER UP": GOSUB 2100
172 IF A0(2) >127 THEN GOSUB 801:A$ = NM$(2) +" IS COVERING UP.":P0(2) = 2:SY$(2) = "COVER UP": GOSUB 2100
173 IF A0(1) >127 OR A0(2) >127 THEN GOSUB 591: GOSUB 543:P1(1) = P1(1) +(DF(2) -S3(2)):P1(2) = P1(2) +(DF(1) -S3(1))
174 GOTO 189
175 HOME : VTAB 21: POKE 828,4: POKE 829,4:A = INT( RND(1) *4) +1:FM = 1: GOSUB 2: POKE 214,D8(BC,A) - INT(D8(BC,A)/256) *256: POKE 215, INT(D8(BC,A)/256): CALL 6912: CALL 2048
176 SP = INT(3 * RND(1)) +1: ON SP GOSUB 177,178,200: GOTO 163
177 PRINT NM$(BO)" SWINGS AT "NM$(NB): PRINT "AND MISSES.": RETURN
178 PRINT NM$(NB)" SLIPS THE PUNCH.": RETURN
180 HOME : VTAB 21: POKE 828,7: POKE 829,7: POKE 214,224: POKE 215,16: CALL 6912: CALL 2048
181 PRINT NM$(BO)" TIES "NM$(NB)" UP."
182 GOTO 163
183 HOME : VTAB 21
184 IF LEFT$(JA$(0),3) = LEFT$(NM$(BO),3) THEN PRINT NM$(BO)" IS TRYING TO WORK FREE.": GOSUB 752: HOME : VTAB 21: GOSUB 717: GOTO 188
185 GOSUB 215:A = INT(2 * RND(1)) +1: IF P0(BO) = 3 OR P0(BO) = 6 THEN IF A = 1 THEN PRINT NM$(BO)" IS TRYING TO FIGHT IN CLOSE.": GOTO 163
186 IF P0(BO) = 3 OR P0(BO) = 6 THEN IF A = 2 THEN PRINT NM$(BO)" IS CHARGING IN HARD.": GOTO 163
187 IF A = 1 THEN PRINT NM$(BO)" IS BOBBING AND WEAVING.": GOTO 163
188 IF A = 2 THEN PRINT NM$(BO)" IS MOVING AROUND.": GOTO 163
189 WV(1) = 6.6:WV(0) = 19.3:A$ = "$$$$$$":WV(5) = 0: GOSUB 2100:WV(5) = 3:WV(0) = 19.3: ON CK >0 GOTO 191:CH%(0) = AA%:Q5 = 0: IF LS = 80 THEN CH%(0) = AA% -40
190 IF CH%(0) <41 THEN Q5 = INT(CH%(0) *4.5):Q5 = 180 -Q5:A0(0) = Q5
191 IF Q5 >119 THEN S1(0) = 2:S2(0) = Q5 -120
192 IF Q5 >59 AND Q5 <120 THEN S1(0) = 1:S2(0) = Q5 -60
193 IF Q5 <60 THEN S1(0) = 0:S2(0) = Q5
194 IF S2(0) <10 THEN A$ = " " +LT$(S1(0)) +":0" +LT$(S2(0)) +" ": GOSUB 2100: ON CK >0 GOTO 336: GOTO 196
195 A$ = " " +LT$(S1(0)) +":" +LT$( INT(S2(0)/10)) +LT$(S2(0) -(( INT(S2(0)/10)) *10)): GOSUB 2100: IF CK THEN RETURN
196 ON KF GOTO 105,107
197 IF AA% > = LS THEN 222
198 AA% = AA% +1: GOTO 59
200 PRINT NM$(BO)" SWINGS WILDLY AND MISSES.": RETURN
215 POKE 828,3: POKE 829,3: POKE 214,224: POKE 215,16: CALL 6912: CALL 2048: RETURN
222 IF S2(0) < >0 THEN WV(1) = 6.6:WV(0) = 19.3:A$ = "$$$$$$":WV(5) = 0: GOSUB 2100:WV(5) = 3:A$ = " 0:00 ":WV(0) = 19.3: GOSUB 2100
223 GOSUB 749: GOSUB 801:RD = RD +1:RS%(5) = 0
224 WV(1) = 15.4:WV(0) = 1:A$ = "$$$$$$$$$$$":WV(5) = 0: GOSUB 2100:WV(0) = 31.9: GOSUB 2100:WV(5) = 3
233 IF AA% > = 80 THEN AA% = 1:LS = 40:A9 = 1: GOTO 235
234 A9 = 0:AA% = 41:LS = 80
235 REM
236 HOME : VTAB 21
237 WV(1) = 1:WV(0) = 1:A$ = B$:WV(5) = 0: GOSUB 2100:WV(5) = 3: IF RD "A" THEN 350
348 IF CP(NB,1) >0 THEN RE = 1
349 CP(NB,1) = CP(NB,1) +1:NC% = CP(NB,1): GOTO 380
350 IF CR$(NB) < >"B" THEN 353
351 IF CP(NB,2) >0 THEN RE = 1
352 CP(NB,2) = CP(NB,2) +1:NC% = CP(NB,2): GOTO 380
353 IF CR$(NB) < >"C" THEN 356
354 IF CP(NB,3) >0 THEN RE = 1
355 CP(NB,3) = CP(NB,3) +1:NC% = CP(NB,3): GOTO 380
356 IF CR$(NB) < >"D" THEN 359
357 IF CP(NB,4) >0 THEN RE = 1
358 CP(NB,4) = CP(NB,4) +1:NC% = CP(NB,4): GOTO 380
359 IF CR$(NB) < >"E" THEN 362
360 IF CP(NB,5) >0 THEN RE = 1
361 CP(NB,5) = CP(NB,5) +1:NC% = CP(NB,5): GOTO 380
362 IF CR$(NB) < >"F" THEN 365
363 IF CP(NB,6) >0 THEN RE = 1
364 CP(NB,6) = CP(NB,6) +1:NC% = CP(NB,6): GOTO 380
365 IF CR$(NB) < >"G" THEN 368
366 IF CP(NB,7) >0 THEN RE = 1
367 CP(NB,7) = CP(NB,7) +2:NC% = CP(NB,7): GOTO 380
368 IF CR$(NB) < >"H" THEN 374
369 IF CP(NB,8) >0 THEN RE = 1
370 CP(NB,8) = CP(NB,8) +2:NC% = CP(NB,8): IF BG(NB,1) <2 THEN BG(NB,1) = BG(NB,1) +1:S2(NB) = S2(NB) -1:BC(NB) = BC(NB) -1
371 IF NB = 1 THEN G1 = 1
372 IF NB = 2 THEN G3 = 1
373 GOTO 379
374 IF CR$(NB) < >"I" THEN 380
375 IF CP(NB,9) >0 THEN RE = 1
376 CP(NB,9) = CP(NB,9) +2:NC% = CP(NB,9): IF BG(NB,2) <2 THEN BG(NB,2) = BG(NB,2) +1:S2(NB) = S2(NB) -1:BC(NB) = BC(NB) -1
377 IF NB = 1 THEN G2 = 1
378 IF NB = 2 THEN G4 = 1
379 GOSUB 761
380 RETURN
381 IF CR$(NB) = " " THEN 405
382 VTAB 24
383 MS$ = " "
384 IF CR$(NB) = "A" THEN PRINT "THAT SHOT GAVE "NM$(NB)" A BLOODY NOSE.":MS$ = "BLOODY NOSE"
385 IF CR$(NB) = "B" THEN PRINT "THERE'S A SLIGHT CUT ON THE RIGHT": PRINT "CHEEK OF "NM$(NB)".":MS$ = "CUT R-CHEEK"
386 IF CR$(NB) = "C" THEN PRINT "THERE'S BLOOD COMING FROM A CUT": PRINT "ON THE LEFT CHEEK OF "NM$(NB)".":MS$ = "CUT L-CHEEK"
387 IF CR$(NB) = "D" THEN PRINT "THAT SHOT CAUSED A CUT OVER": PRINT "THE RIGHT EYE OF "NM$(NB)".":MS$ = "CUT OVER R-EYE"
388 IF CR$(NB) = "E" THEN PRINT "A CUT JUST APPEARED OVER THE": PRINT "LEFT EYE OF "NM$(NB)".":MS$ = "CUT OVER L-EYE"
389 IF CR$(NB) = "F" THEN PRINT NM$(NB)" JUST ACQUIRED A CUT ON": PRINT "THE BRIDGE OF HIS NOSE.":MS$ = "CUT BRDGE NOSE"
390 IF CR$(NB) = "G" THEN PRINT NM$(NB)" JUST GOT A SPLIT LIP.":MS$ = "SPLIT LIP"
391 IF CR$(NB) = "H" THEN PRINT "A TERRIBLE GASH JUST OPENED": PRINT "ON THE RIGHT EYE OF "NM$(NB)".":MS$ = "BAD GASH R-EYE"
392 IF CR$(NB) = "I" THEN PRINT "THERE'S A WICKED GASH OVER THE LEFT": PRINT "EYE FROM THAT SHOT.":MS$ = "BAD GASH L-EYE"
393 IF RE = 1 THEN PRINT "IT'S GETTING MUCH WORSE!"
394 IF LEFT$(MS$,1) < >" " THEN 396
395 GOTO 403
396 IF RE = 0 THEN FC%(NB -1,0) = FC%(NB -1,0) +1: GOTO 401
397 B = 0
398 B = B +1: IF CA$(NB -1,B) < >CR$(NB) THEN 398
399 FC%(NB -1,B) = NC%:FE%(NB -1,B) = NC%:WV(5) = 0:A$ = "$$$$$$$$$$": GOSUB 410:WV(5) = 3:A$ = MS$: GOSUB 410
400 GOTO 403
401 IF NB = 1 THEN K1(0) = K1(0) +1:WV(1) = 4.2 +K1(0) +(K1(0) *.5):WV(5) = 5:A$ = B1$:WV(0) = 1.3: GOSUB 2100:WV(1) = WV(1) +1.1:WV(0) = 1.3: GOSUB 2100:WV(0) = 1:WV(1) = 4.7 +K1(0) +(K1(0) *.5): GOSUB 420
402 IF NB = 2 THEN K2(0) = K2(0) +1:WV(1) = 4.2 +K2(0) +(K2(0) *.5):WV(5) = 5:A$ = B1$:WV(0) = 30.8: GOSUB 2100:WV(1) = WV(1) +1.1:WV(0) = 30.8: GOSUB 2100:WV(0) = 30.7:WV(1) = 4.7 +K2(0) +(K2(0) *.5): GOSUB 421
403 NORMAL : GOSUB 752: GOSUB 752
404 HOME : VTAB 21
405 RETURN
410 WV(1) = 4.7 +B +(B *.5):WV(0) = 1: IF NB = 2 THEN WV(0) = 30.7
411 GOSUB 2100:D = 0:Q5 = 0: IF WV(5) = 3 THEN A$ = B1$:WV(5) = 5:D = .3:Q5 = .1
412 WV(1) = 4.5 +B +(B *.5): IF WV(5) = 5 THEN WV(1) = 4.2 +B +(B *.5)
413 WV(0) = 1 +D: IF NB = 2 THEN WV(0) = 30.7 +Q5
414 GOSUB 2100:WV(1) = WV(1) +.4: IF WV(5) = 5 THEN WV(1) = WV(1) +.7
415 WV(0) = 1 +D: IF NB = 2 THEN WV(0) = 30.7 +Q5
416 GOSUB 2100: RETURN
420 WV(5) = 3:A$ = MS$: GOSUB 2100:CA$(NB -1,K1(0)) = CR$(NB):FC%(NB -1,K1(0)) = NC%:FE%(NB -1,K1(0)) = NC%:CB$(NB -1,K1(0)) = MS$:FD%(NB -1,FC%(NB -1,0)) = K1(0): RETURN
421 WV(5) = 3:A$ = MS$: GOSUB 2100:CA$(NB -1,K2(0)) = CR$(NB):FC%(NB -1,K2(0)) = NC%:FE%(NB -1,K2(0)) = NC%:CB$(NB -1,K2(0)) = MS$:FD%(NB -1,FC%(NB -1,0)) = K2(0): RETURN
425 IF AA% = 1 OR (AA% = 41 AND LS = 80) THEN SG%(0,RD +1) = P0(1):SG%(1,RD +1) = P0(2)
426 RETURN
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
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
469 PR(1,RD) = RP(1):PR(2,RD) = RP(2):R1 = RD:R2 = RD -1:R3 = RD -2
470 IF RD = NR OR (RS%(5) < >1 AND IP% = 1) OR VA = 1 THEN 489
471 IF IP% = 1 THEN RK = PT%(R8,R1): GOTO 473
472 RK = PR(R8,R1)
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) = 5) OR (K2(0) = 5) THEN 490
474 IF RK >37 AND TK(R9) = 1 THEN 490
475 IF R2 = 0 THEN 485
476 IF IP% = 1 THEN RK = PT%(R8,R1) +PT%(R8,R2): GOTO 478
477 RK = PR(R8,R1) +PR(R8,R2)
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
479 IF RK >52 AND TK(R9) = 1 THEN 490
480 IF R3 = 0 THEN 485
481 IF IP% = 1 THEN RK = PT%(R8,R1) +PT%(R8,R2) +PT%(R8,R3): GOTO 483
482 RK = PR(R8,R1) +PR(R8,R2) +PR(R8,R3)
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
484 IF RK >62 AND TK(R9) = 1 THEN 490
485 IF R8 = 1 THEN R8 = 2:R9 = 1: GOTO 487
486 IF R8 = 2 THEN R8 = 1:R9 = 2
487 IF QQ = 1 THEN QQ = 0: GOTO 489
488 QQ = 1: GOTO 471
489 GOSUB 870: RETURN
490 REM
491 FF = R8:FA = R9: GOTO 467
492 IF NB = 1 AND Z0 = 1 AND LS -AA% >5 THEN 496
493 IF NB = 2 AND Z0 = 2 AND LS -AA% >5 THEN 496
494 IF Z0 = 3 AND LS -AA% >5 THEN 496
495 GOTO 503
496 IF (RP(BO) >30) OR (RP(BO) >25 AND TK(NB) >1) OR (RP(BO) >22 AND TK(NB) >2) OR (RP(BO) >20 AND TK(NB) >3) OR (RP(BO) >18 AND TK(NB) >4) THEN A0(NB) = 128
497 IF RD >0 THEN RK = RP(BO) +PR(BO,RD): GOTO 499
498 GOTO 503
499 IF RK >45 OR (RK >40 AND TK(NB) >1) OR (RK >37 AND TK(NB) >2) OR (RK >35 AND TK(NB) >3) OR (RK >33 AND TK(NB) >4) THEN A0(NB) = 128
500 IF RD >1 THEN R1 = RD -1:RK = RP(BO) +PR(BO,RD) +PR(BO,R1): GOTO 502
501 GOTO 503
502 IF RK >55 OR (RK >50 AND TK(NB) >1) OR (RK >47 AND TK(NB) >2) OR (RK >45 AND TK(NB) >3) OR (RK >43 AND TK(NB) >4) THEN A0(NB) = 128
503 RETURN
530 AR% = 0: IF LEFT$(JA$(0),3) < > LEFT$(NM$(BO),3) THEN RETURN
531 ON ( INT(IC(BO)/10)) GOSUB 532,533,534: RETURN
532 AR% = -4: RETURN
533 AR% = 0: RETURN
534 AR% = 10: RETURN
543 WV(1) = 4.5:WV(0) = 1:WV(5) = 0:A$ = "$$$$$$$$$$": GOSUB 2100:WV(0) = 30: GOSUB 2100:WV(5) = 3:WV(0) = 1:A$ = SY$(1): GOSUB 2100:WV(0) = 30:A$ = SY$(2): GOSUB 2100: GOSUB 425
544 FOR Q5 = 1 TO 2
545 IF Q5 = 1 THEN Q6 = 2
546 IF Q5 = 2 THEN Q6 = 1
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
548 ON P0(Q5) GOTO 584,550,553,560,567,574,582
550 IF P0(Q6) = 2 OR P0(Q6) = 5 THEN 584
551 P1(Q5) = 10
552 K1(Q5) = K1(Q5) +2: GOSUB 1229:BC(Q5) = BC(Q5) -AQ%:DF(Q5) = DF(Q5) -AR%: GOTO 584
553 REM
554 IF P0(Q6) = 2 THEN AG(Q5) = AG(Q5) +2:HP(Q5) = HP(Q5) +1
559 GOSUB 1200:AG(Q5) = AG(Q5) +AR%:BC(Q5) = BC(Q5) +AR%:ES(Q5) = ES(Q5) +(AR% *3): GOTO 584
560 REM
561 IF P0(Q6) = 2 THEN HP(Q5) = HP(Q5) -2
566 GOSUB 1210:AR% = AR% -5:DF(Q5) = DF(Q5) -AR%:BC(Q5) = BC(Q5) +AQ%: GOTO 584
567 REM
568 IF P0(Q6) = 2 THEN 584
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
574 REM
575 IF P0(Q6) = 2 THEN AG(Q5) = AG(Q5) +2:BC(Q5) = BC(Q5) +1:HP(Q5) = HP(Q5) +1
580 GOSUB 1220:AG(Q5) = AG(Q5) +AR%:BC(Q5) = BC(Q5) +AR%: IF HP(Q5) <8 THEN HP(Q5) = 8
581 GOTO 584
582 GOSUB 1270:BC(Q5) = BC(Q5) -AR%:DF(Q5) = DF(Q5) +AQ%
584 NEXT : GOSUB 761: RETURN
585 P1(1) = P1(1) +(DF(2) -S3(2))
586 P1(2) = P1(2) +(DF(1) -S3(1))
587 IF AG(1) >AG(2) THEN BO = 1:NB = 2
588 IF AG(2) >AG(1) THEN BO = 2:NB = 1
589 RETURN
590 P0(1) = 1:P0(2) = 1
591 FOR Q5 = 1 TO 2
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)
593 NEXT
594 RETURN
620 IF A <50 -(AG(BO) -AG(NB)) THEN RP$ = "RC"
621 IF A >49 -(AG(BO) -AG(NB)) THEN RP$ = "NR"
622 IF A >54 -(AG(BO) -AG(NB)) THEN RP$ = "BC"
623 IF A >59 -(AG(BO) -AG(NB)) THEN RP$ = "AC"
624 IF A >64 -(AG(BO) -AG(NB)) THEN RP$ = "RNC"
625 IF A >69 -(AG(BO) -AG(NB)) THEN RP$ = "LNC"
626 IF A >74 -(AG(BO) -AG(NB)) THEN RP$ = "FR"
627 RETURN
664 PRINT NM$(NB)" IS OUT; THE FIGHT IS OVER.": PRINT "THE WINNER IS "NM$(BO): PRINT "WITH A KNOCKOUT."
665 VB = 5: GOTO 716
716 FE = 1: GOTO 240
717 IF FR% = 1 THEN BC(1) = BC(1) -(IC(2) -(( INT(IC(2)/10)) *10)):P1(1) = P1(1) -5
718 IF FR% = 2 THEN BC(2) = BC(2) -(IC(1) -(( INT(IC(1)/10)) *10)):P1(2) = P1(2) -5
719 FR% = 0
720 AA% = AA% +1:A = INT( RND(1) *80) +1: GOSUB 620
721 IF RP$ = "RC" OR P0(BO) = 2 OR P0(BO) = 5 THEN JA$(0) = "THE FIGHTERS ARE AT RING CENTER NOW": GOTO 726
722 FR% = BO:BC(BO) = BC(BO) +(IC(NB) -(( INT(IC(NB)/10)) *10)):P1(BO) = P1(BO) +5: IF RP$ = "NR" THEN JA$(0) = NM$(NB) +" IS CAUGHT ON THE NEAR ROPES"
723 IF RP$ = "BC" OR RP$ = "AC" OR RP$ = "RNC" OR RP$ = "LNC" THEN JA$(0) = NM$(NB) +" IS TRAPPED IN THE CORNER"
724 IF RP$ = "FR" THEN JA$(0) = NM$(NB) +" IS CAUGHT ON THE FAR ROPES"
726 IF JA$(0) = JB$(0) THEN 737
729 IF RP$ = "RC" OR P0(BO) = 2 OR P0(BO) = 5 THEN VT = 63:VS = 76:HR = 21:HL = 19: GOSUB 2300:HG%(0) = 32:HG%(1) = 42: GOTO 736
730 IF RP$ = "LNC" THEN VT = 56:VS = 69:HR = 20:HL = 18: GOSUB 2300:HG%(NB -1) = 0:HG%(BO -1) = 11
731 IF RP$ = "NR" THEN VT = 63:VS = 76:HR = 20:HL = 18: GOSUB 2300:HG%(BO -1) = 33:HG%(NB -1) = 34
732 IF RP$ = "BC" THEN VT = 56:VS = 69:HR = 21:HL = 19: GOSUB 2300:HG%(NB -1) = 70:HG%(BO -1) = 61
733 IF RP$ = "AC" THEN VT = 72:VS = 85:HR = 19:HL = 17: GOSUB 2300:HG%(NB -1) = 4:HG%(BO -1) = 13
734 IF RP$ = "RNC" THEN VT = 72:VS = 85:HR = 22:HL = 20: GOSUB 2300:HG%(NB -1) = 74:HG%(BO -1) = 63
735 IF RP$ = "FR" THEN VT = 66:VS = 79:HR = 22:HL = 20: GOSUB 2300:HG%(NB -1) = 30:HG%(BO -1) = 31
736 WV(1) = 1:WV(0) = 1:WV(5) = 0:A$ = B$: GOSUB 2100:WV(1) = 1:WV(2) = 1:WV(5) = 3:A$ = JA$(0): GOSUB 2100:JB$(0) = JA$(0)
737 REM
739 AA% = AA% -1
740 RETURN
749 FOR A = 1 TO 3: CALL (RB%): FOR Q5 = 1 TO 50: NEXT : NEXT : RETURN
752 FOR Q5 = 1 TO 1600: NEXT : RETURN
761 FOR A = 1 TO 2: IF BC(A) <1 THEN BC(A) = 1
762 GOSUB 791
763 IF HP(A) <1 THEN HP(A) = 1
764 IF P1(A) <1 THEN P1(A) = 1
765 IF K1(A) <1 THEN K1(A) = 1
766 IF S0(A) <1 THEN S0(A) = 1
767 IF S2(A) <1 THEN S2(A) = 1
768 IF S4(A) <1 THEN S4(A) = 1
769 IF S5(A) <1 THEN S5(A) = 1
770 NEXT : RETURN
771 IF IP% = 0 THEN RETURN
772 IF VF >0 THEN VF = VF +1: IF VF = 3 THEN VF = 0
773 IF VF >0 OR FA = BO THEN POP : GOTO 485
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) >4 OR K2(0) >4 THEN PRINT "HE STOPS THE FIGHT.": PRINT NM$(FF)" IS THE WINNER ON A TKO.":BO = FF:NB = FA: GOTO 716
775 PRINT NM$(FA)" IS GIVEN A STANDING 8 COUNT.":VF = VF +1: POP : GOTO 485
776 A = INT(6 * RND(1)) +1: RETURN
777 GOTO 777
791 IF K1(A) >10 THEN K1(A) = 10
792 IF S4(A) >10 THEN S4(A) = 10
793 IF AG(A) >20 THEN AG(A) = 20
794 RETURN
801 IF C8 = 1 THEN FOR WV = 17 TO 18:WV(0) = 1:A$ = B$:WV(5) = 0:WV(1) = WV +.4: GOSUB 2100: NEXT
802 WV(5) = 3:WV(1) = 17.4:WV(0) = 1: RETURN
809 IF (RS%(5) = 1 AND LB% < >BO) OR (KY% = 1 AND KF = 0) THEN GOSUB 801:KY% = 0:C8 = 0
810 FOR A = 1 TO 6:CA(1) = CA(1) +FE%(0,A):CA(2) = CA(2) +FE%(1,A): NEXT : IF (CA(1) >2 OR CA(2) >2) AND LS -AA% <26 THEN A = 1: GOSUB 900
811 CA(1) = 0:CA(2) = 0
812 IF KF >0 AND KY% = 0 THEN GOSUB 920:KY% = 1: RETURN
813 D = RP(1) -RP(2):D = ABS(D)
814 IF RP(BO) 26 OR RS%(5) = 0 THEN RETURN
815 ON D GOTO 850,850,850,850,850,835,835,835,835,835,835,835,835,835,835,835,830,830,830,830,825,825,825,825,820,820,820,820,820,820: IF D = 0 THEN 850
816 IF TY% = 1 THEN RETURN
817 TY% = 1: GOSUB 801:A = INT(2 * RND(1)) +1: ON A GOSUB 818,819: GOSUB 2100: RETURN
818 A$ = NM$(BO) +" IS ON A RAMPAGE.": RETURN
819 A$ = NM$(NB) +" IS ALMOST OUT ON HIS FEET.": RETURN
820 IF TY% = 2 THEN RETURN
821 TY% = 2: GOSUB 801:A = INT(3 * RND(1)) +1: ON A GOSUB 823,824,823: GOSUB 2100: RETURN
823 A$ = NM$(NB) +" LOOKS SERIOUSLY HURT.": RETURN
824 A$ = NM$(BO) +" IS REALLY PUNISHING HIM NOW.": RETURN
825 IF TY% = 3 THEN RETURN
826 TY% = 3: GOSUB 801:A = INT(3 * RND(1)) +1: ON A GOSUB 829,828,829: GOSUB 2100: RETURN
828 A$ = NM$(NB) +" LOOKS ALMOST HELPLESS.": RETURN
829 A$ = NM$(BO) +" WON'T LET " +NM$(NB) +" BREATHE. HE'S TATTOOING": GOSUB 2100:A$ = "HIM WITH EVERYTHING HE THROWS.":WV(1) = 18.4:WV(0) = 1: RETURN
830 IF TY% = 4 THEN RETURN
831 TY% = 4: GOSUB 801:A = INT(3 * RND(1)) +1: ON A GOSUB 832,833,834: GOSUB 2100: RETURN
832 A$ = NM$(NB) +" CAN'T GET IT TOGETHER AT ALL THIS ROUND.": RETURN
833 A$ = NM$(BO) +" IS GIVING LESSONS NOW.": RETURN
834 A$ = NM$(BO) +" IS IN COMMAND OF THE RING.": RETURN
835 IF TY% = 5 THEN RETURN
836 TY% = 5: GOSUB 801:A = INT(5 * RND(1)) +1: ON A GOSUB 837,838,839,840,841: GOSUB 2100: RETURN
837 A$ = NM$(BO) +" IS IN CONTROL THIS ROUND.": RETURN
838 A$ = NM$(BO) +" APPEARS TO BE GETTING THE BEST OF HIS MAN NOW.": RETURN
839 A$ = NM$(BO) +" SEEMS TO BE AHEAD THIS ROUND.": RETURN
840 A$ = "IT LOOKS LIKE " +NM$(BO) +" IS LEADING THIS ROUND.": RETURN
841 A$ = NM$(BO) +" LOOKS PRETTY EFFECTIVE SO FAR THIS ROUND.": RETURN
850 RETURN
851 IF LEFT$(JA$(0),5) < >"THE F" THEN GOSUB 717
852 RETURN
853 IF LEFT$(JA$(0),3) < > LEFT$(NM$(NB),3) THEN GOSUB 717
854 RETURN
859 IF RS%(5) = 1 AND LB% < >BO THEN RS%(6) = 0
860 IF RS%(5) = 1 THEN LB% = BO
861 RETURN
870 IF K1(0) >4 THEN FF = 2:FA = 1: GOTO 774
872 IF K2(0) >4 THEN FF = 1:FA = 2: GOTO 774
874 RETURN
900 IF CA(A) <3 THEN 918
901 IF CA(A) >7 THEN CA(A) = 7
902 SP = INT(10 * RND(1)) +1: ON CA(A) GOSUB 903,903,904,904,912,914,916: GOTO 918
903 RETURN
904 ON SP GOSUB 910,905,910,905,906,905,905,906,905,910: RETURN
905 RETURN
906 IF CY% < >1 AND RF <3 THEN CY% = 1: GOSUB 801:A$ = "WE'LL HAVE TO SEE IF " +NM$(A) +" HAS TROUBLE": GOSUB 2100:WV(1) = 18.4:WV(0) = 1:A$ = "WITH THESE CUTS OF HIS.": GOSUB 2100
907 RETURN
910 IF CY% < >1 AND RF <3 THEN CY% = 1: GOSUB 801:A$ = NM$(A) +" IS WIPING THE BLOOD FROM HIS FACE.": GOSUB 2100
911 RETURN
912 IF CY% < >2 AND SP = 7 THEN CY% = 2: GOSUB 801:A$ = NM$(A) +" NEEDS ATTENTION FOR HIS CUTS.": GOSUB 2100
913 RETURN
914 IF CY% < >3 AND SP = 7 THEN CY% = 3: GOSUB 801:A$ = NM$(A) +" IS IN SERIOUS TROUBLE BECAUSE OF HIS CUTS.": GOSUB 2100
915 RETURN
916 IF CY% < >4 AND SP >8 THEN CY% = 4: GOSUB 801:A$ = NM$(A) +" IS BLEEDING PROFUSELY, THERE'S BLOOD ALL OVER.": GOSUB 2100
917 RETURN
918 IF A = 1 THEN A = 2: GOTO 900
919 RETURN
920 A = INT( RND(1) *3) +1: ON A GOSUB 921,922,923: GOSUB 2100: RETURN
921 GOSUB 801:A$ = NM$(BO) +" IS GOING AFTER HIS MAN NOW.": RETURN
922 GOSUB 801:A$ = "LET'S SEE IF " +NM$(BO) +" CAN FOLLOW UP.": RETURN
923 GOSUB 801:A$ = NM$(NB) +" WAS LEVELED BY THAT BLAST. HIS LEGS ARE": GOSUB 2100:WV(1) = 18.4:WV(0) = 1:A$ = "AWFULLY WOBBLY.": RETURN
999 REM
1001 RETURN
1050 REM
1052 PR# 6
1101 IF FU% = 1 THEN FU% = 0:WV(1) = 4.5:WV(0) = 1:A$ = "$$$$$$$$$$$":WV(5) = 0: GOSUB 2100:WV(0) = 30: GOSUB 2100:A$ = DV$(1):WV(0) = 1:WV(5) = 3: GOSUB 2100:WV(0) = 30:A$ = DV$(2): GOSUB 2100
1110 IF RS%(5) = 0 OR VA = 1 THEN 1130
1111 GOSUB 1160: IF CR$(NB) = " " THEN IF (S2$ = "TO THE HEAD" OR S2$ = "TO THE FACE") AND FC%(NB -1,0) >0 THEN 1113
1112 GOTO 1130
1113 HR%(NB) = HR%(NB) +1:A = INT( RND(1) *12) +1
1114 IF A >(HR%(NB) +CH(NB)) THEN 1130
1115 A = INT( RND(1) *FC%(NB -1,0)) +1
1117 REM
1118 B = (FD%(NB -1,A)):MS$ = CB$(NB -1,FD%(NB -1,A)):WV(5) = 0:A$ = "$$$$$$$$$$": GOSUB 410:WV(5) = 3:A$ = MS$: GOSUB 410
1120 FE%(NB -1,FD%(NB -1,A)) = FC%(NB -1,FD%(NB -1,A))
1121 IF NB = 1 AND CB$(NB -1,FD%(NB -1,A)) = "BAD GASH R-EYE" THEN G1 = 1
1122 IF NB = 1 AND CB$(NB -1,FD%(NB -1,A)) = "BAD GASH L-EYE" THEN G2 = 1
1123 IF NB = 2 AND CB$(NB -1,FD%(NB -1,A)) = "BAD GASH R-EYE" THEN G3 = 1
1124 IF NB = 2 AND CB$(NB -1,FD%(NB -1,A)) = "BAD GASH L-EYE" THEN G4 = 1
1130 NORMAL : GOSUB 346: RETURN
1150 KZ%(NB) = KZ%(NB) +1:KX%(NB) = KX%(NB) +1
1151 REM
1152 IF NB = 1 THEN A$ = "$":WV(1) = 14:WV(0) = 7.5:WV(5) = 0: GOSUB 2100:WV(0) = 12: GOSUB 2100:A$ = LT$(KX%(1)):WV(0) = 7.5:WV(5) = 3: GOSUB 2100:A$ = LT$(KZ%(1)):WV(0) = 12: GOSUB 2100
1154 IF NB = 2 THEN A$ = "$":WV(1) = 14:WV(0) = 34.6:WV(5) = 0: GOSUB 2100:WV(0) = 39.2: GOSUB 2100:A$ = LT$(KX%(2)):WV(0) = 34.6:WV(5) = 3: GOSUB 2100:A$ = LT$(KZ%(2)):WV(0) = 39.2: GOSUB 2100
1156 AG(BO) = AG(BO) +3: RETURN
1160 CR$(NB) = " ": IF S2$ < >"TO THE JAW" AND S2$ < >"TO THE HEAD" AND S2$ < >"TO THE FACE" AND S2$ < >"TO THE CHIN" THEN RETURN
1161 IF S2$ = "TO THE JAW" THEN A = INT( RND(1) *25) +1: IF A 0) TO Y +WV(7): XDRAW 3 AT WV(6),I: NEXT : GOTO 2150
2140 SCALE= WV(7): ROT= 16: FOR I = X TO WV(4): XDRAW 3 AT I,Y: NEXT
2150 ROT= 0: SCALE= 1:IN = 0: RETURN
2200 VT = 63:VS = 76:HR = 21:HL = 19: GOSUB 2300: RETURN
2300 CALL 6912: POKE 252,VT: POKE 253,VS: POKE 254,HR: POKE 255,HL: POKE 828,1: POKE 829,1: POKE 214,0: POKE 215,9: POKE 7,4: POKE 8,3: POKE 770,1: POKE 771,1: CALL 2048: POKE 770,175: POKE 771,175: RETURN
Text found in Ringside_Seat_1983_SSI_cr_T._Foley_RDOS.dsk/RSSSCORE.bas:
1 ONERR GOTO 5
2 GOTO 200
5 PR# 6
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
11 RETURN
12 IF SC(0,0) >10 OR SC(0,0) <0 THEN VTAB 20 +T1: HTAB 30: INPUT SC(0,0): GOTO 12
13 RETURN
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)
21 RETURN
22 IF T0(Q5) >10 OR T0(Q5) <0 THEN VTAB 20 +Q5: HTAB 30: INPUT T0(Q5): GOTO 22
23 RETURN
200 IF (VB = 4 OR VB = 5) AND FE = 1 THEN 960
205 GOTO 240
210 WV(1) = 14:WV(0) = 7.5:A$ = "$":WV(5) = 0: GOSUB 2100:WV(0) = 34.6: GOSUB 2100:WV(5) = 3: RETURN
211 MS$ = "CLOSED R-EYE":Y2(FA) = 1:RE = 1:TR$ = "1": RETURN
212 MS$ = "CLOSED L-EYE":Y3(FA) = 1:RE = 1:TR$ = "2": RETURN
213 WV(0) = 1: IF FA = 2 THEN WV(0) = 30.7
214 A$ = MS$:WV(5) = 3: GOSUB 2100: RETURN
215 IF AA% = 1 OR (AA% = 41 AND LS = 80) THEN SG%(0,RD +1) = P0(1):SG%(1,RD +1) = P0(2)
216 RETURN
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
223 A$ = A$ +LT$( INT(SC(0,0)/100)): IF SC(0,0) >99 THEN SC(0,0) = SC(0,0) -100
224 A$ = A$ +LT$( INT(SC(0,0)/10)):SC(0,0) = SC(0,0) -(( INT(SC(0,0)/10)) *10)
225 A$ = A$ +LT$(SC(0,0)): RETURN
226 WV(1) = 4.7 +(FD%(A,B)) +((FD%(A,B)) *.5):A$ = "$$$$$$$$$$":WV(0) = 1:WV(5) = 0: GOSUB 2100: RETURN
227 WV(1) = 4.7 +(FD%(A,B)) +((FD%(A,B)) *.5):A$ = "$$$$$$$$$$":WV(0) = 30.7:WV(5) = 0: GOSUB 2100: RETURN
230 WV(1) = 4.5:WV(0) = 1:A$ = "$$$$$$$$$$$":WV(5) = 0: GOSUB 2100:WV(0) = 30: GOSUB 2100:WV(5) = 3: RETURN
231 A$ = "ROUND ": IF RD +1 <10 THEN A$ = A$ +"0"
232 A$ = A$ +LT$(RD +1): RETURN
240 IF RD IR%(A) THEN ER(A) = IR%(A) -1
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
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
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
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
253 GOSUB 1380
254 IF A = 1 THEN A = 2:B = 1:IR%(0) = RP(B) +PH%(A): GOTO 244
255 A3 = INT(L5 * RND(1)) +1: IF MF(1) >0 THEN S5(2) = S5(2) -5
256 IF MF(2) >0 THEN S5(1) = S5(1) -5
257 MF(1) = 0:MF(2) = 0:MG(1) = 0:MG(2) = 0
258 IF RP(1) >RP(2) THEN R8 = 1:R9 = 2: GOSUB 468: GOTO 297
259 IF RP(2) >RP(1) THEN R8 = 2:R9 = 1: GOSUB 468: GOTO 312
262 R8 = INT(2 * RND(1)) +1: IF R8 = 1 THEN R9 = 2
263 IF R8 = 2 THEN R9 = 1
264 GOSUB 468
265 GOSUB 289
266 IF KT(1) >0 AND KT(2) >0 THEN W1 = 1:L1 = 2: GOTO 270
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
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
269 W1 = 1:L1 = 2
270 GOSUB 668
271 KT(1) = 0:KT(2) = 0:KF = 0
272 GOSUB 406: IF RD = NR THEN GOSUB 801: GOTO 319
273 IF DS$ = "Y" THEN GOSUB 750
274 GOSUB 801
276 GOSUB 862
277 GOSUB 590: GOSUB 504: GOSUB 585:FR% = 0: HOME : VTAB 21:A0(0) = 176:KX%(1) = 0:KX%(2) = 0
280 & GOTO "RSSROUND"
289 CL(1) = 0:CL(2) = 0:RM(1) = 0:RM(2) = 0:PH%(1) = 0:PH%(2) = 0
290 RP(1) = 0:RP(2) = 0:KF = 0
291 I = 1
292 IF KT(I) >0 THEN A1 = INT(L5 * RND(1)) +1:Y1(I) = 1
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
294 Y1(I) = 0
295 IF I = 1 THEN I = 2: GOTO 292
296 RETURN
297 D = RP(1) -RP(2): IF D >16 AND MH(2) >0 THEN FF = 1:FA = 2: IF RD 19 THEN K9 = TK(2):CD = INT( RND(1) *100) +1:FF = 1:FA = 2: GOSUB 436
299 IF RP(2) >19 THEN K9 = TK(1):CD = INT( RND(1) *100) +1:FF = 2:FA = 1: GOSUB 436
300 GOSUB 289:W1 = 1:L1 = 2:HA = AC:AC = A3
301 IF KT(1) >0 AND KT(2) >0 THEN 303
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
303 IF D <6 THEN GOSUB 669: GOTO 310
304 IF D <13 THEN GOSUB 685: GOTO 310
305 IF D <17 THEN GOSUB 688: GOTO 310
306 IF D <21 THEN GOSUB 695: GOTO 310
307 IF D <25 THEN GOSUB 699: GOTO 310
308 IF D <31 THEN GOSUB 706: GOTO 310
309 GOSUB 711
310 AC = HA:KT(1) = 0:KT(2) = 0:KF = 0
311 GOTO 272
312 D = RP(2) -RP(1): IF D >16 AND MH(1) >0 THEN FF = 2:FA = 1: IF RD 19 THEN K9 = TK(1):CD = INT( RND(1) *100) +1:FF = 2:FA = 1: GOSUB 436
314 IF RP(1) >19 THEN K9 = TK(2):CD = INT( RND(1) *100) +1:FF = 1:FA = 2: GOSUB 436
315 GOSUB 289
316 W1 = 2:L1 = 1
317 HA = AC:AC = A3
318 GOTO 301
319 GOTO 716
406 IF RD = NR THEN 435
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
408 IF CA(1) <6 THEN 410
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
410 IF CA(2) <6 THEN 412
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
412 B = 8: IF G1 = 0 THEN B = 9
413 IF B = 9 AND G2 = 0 THEN 419
414 Q5 = 0:Q6 = 1: GOSUB 1250: FOR A = B TO 9
415 T7 = INT(100 * RND(1)) +1
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
417 IF A = 8 AND G2 = 0 THEN A = 9
418 NEXT
419 B = 8: IF G3 = 0 THEN B = 9
420 IF B = 9 AND G4 = 0 THEN 426
421 Q5 = 0:Q6 = 2: GOSUB 1250: FOR A = B TO 9
422 T7 = INT(100 * RND(1)) +1
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
424 IF A = 8 AND G4 = 0 THEN A = 9
425 NEXT
426 REM
427 IF XX = 1 OR XZ = 1 THEN HOME : VTAB 21
428 IF XX = 1 THEN XZ = 2
429 IF XZ = 1 THEN XX = 2
430 IF XX = 0 AND XZ = 0 THEN 433
431 PRINT "HIS CUTS ARE TOO SERIOUS.": PRINT NM$(XX)" CANNOT ANSWER THE BELL FOR": PRINT "THE NEXT ROUND. IT'S A TKO."
432 BO = XZ:NB = XX: GOTO 716
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
434 CR$(1) = " ":CR$(2) = " "
435 RETURN
436 IF RD = NR THEN 466
437 GOSUB 640
443 IF TR$ = " " THEN 466
444 MS$ = " ": GOSUB 801
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) +" LOOKS A LITTLE PUFFY.":MS$ = "PUFFY R-EYE":TR$ = "1": GOSUB 2100
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) +" LOOKS A LITTLE PUFFY.":MS$ = "PUFFY L-EYE":TR$ = "2": GOSUB 2100
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
448 IF TR$ = "C" AND SR(FA) = 0 THEN TR$ = "A": GOTO 445
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
450 IF TR$ = "D" AND SL(FA) = 0 THEN TR$ = "B": GOTO 446
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"
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
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
454 IF TR$ = "H" THEN MH(FA) = 1:A$ = NM$(FA) +" WAS SHOOK UP PRETTY GOOD. HE BETTER BE CAREFUL.": GOSUB 2100
455 IF TR$ = "I" THEN 467
456 IF LEFT$(MS$,1) < >" " THEN 458
457 GOTO 465
458 IF RE = 0 THEN 463
459 A = 0
460 A = A +1: IF CA$(FA -1,A) < >TR$ THEN 460
461 WV(1) = 4.7 +A +(A *.5):WV(0) = 1: IF FA = 2 THEN WV(0) = 30.7
462 A$ = "$$$$$$$$$$":WV(5) = 0: GOSUB 2100: GOSUB 213: GOTO 465
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$
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$
465 GOSUB 752: GOSUB 752: HOME : VTAB 21: IF Y2(FA) = 1 AND Y3(FA) = 1 THEN 467
466 RETURN
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
468 A = INT( RND(1) *100) +1: ON A <((ER(R9)/IR%(R9)) *100) -(KX%(R9) *10) GOTO 489: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
469 PR(1,RD) = RP(1):PR(2,RD) = RP(2):R1 = RD:R2 = RD -1:R3 = RD -2
470 IF RD = NR OR (RS%(5) < >1 AND IP% = 1) OR VA = 1 THEN 489
471 IF IP% = 1 THEN RK = PT%(R8,R1): GOTO 473
472 RK = PR(R8,R1)
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
474 IF RK >37 AND TK(R9) = 1 THEN 490
475 IF R2 = 0 THEN 485
476 IF IP% = 1 THEN RK = PT%(R8,R1) +PT%(R8,R2): GOTO 478
477 RK = PR(R8,R1) +PR(R8,R2)
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
479 IF RK >52 AND TK(R9) = 1 THEN 490
480 IF R3 = 0 THEN 485
481 IF IP% = 1 THEN RK = PT%(R8,R1) +PT%(R8,R2) +PT%(R8,R3): GOTO 483
482 RK = PR(R8,R1) +PR(R8,R2) +PR(R8,R3)
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
484 IF RK >62 AND TK(R9) = 1 THEN 490
485 IF R8 = 1 THEN R8 = 2:R9 = 1: GOTO 487
486 IF R8 = 2 THEN R8 = 1:R9 = 2
487 IF QQ = 1 THEN QQ = 0: GOTO 489
488 QQ = 1: GOTO 471
489 GOSUB 870: RETURN
490 A = INT(10 * RND(1)) +1: IF A >5 +TK(R9) AND IP% = 0 THEN 485
491 FF = R8:FA = R9: GOTO 467
504 RF = 0
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)
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
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
508 IF RF = 1 OR RF = 3 THEN 510
509 RF = 2
510 A = 0:B = 0: IF Z0 = 3 THEN A = 2:B = 1: GOSUB 595:A = 1:B = 2: GOSUB 595: GOTO 543
511 IF Z0 = 2 OR Z0 = 0 THEN A = 1:B = 0
512 IF Z0 = 1 THEN GOTO 528
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)")"
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
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
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
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
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
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
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
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
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
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
526 PK% = -16287:A0(A) = PEEK(PK% +B): IF (PK$ = "P" AND A0(A) <128) OR (PK$ = "K" AND PEEK( -16384) < >141) THEN 515
527 POKE -16368,0: CALL ( -1052):II = A: GOSUB 631: IF Z0 = 2 THEN A = 2:B = 1: GOSUB 595: GOTO 543
528 IF A = 2 THEN 542
529 A = 2:B = 1: GOTO 513
535 VTAB 23: HTAB 13 +( LEN(NM$(A)) +2): PRINT " ": VTAB 23: HTAB 13 +( LEN(NM$(A)) +2): RETURN
542 IF Z0 = 1 THEN A = 1:B = 2: GOSUB 595
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)
544 FOR Q5 = 1 TO 2
545 IF Q5 = 1 THEN Q6 = 2
546 IF Q5 = 2 THEN Q6 = 1
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
548 ON P0(Q5) GOTO 584,550,553,560,567,574,582
550 IF P0(Q6) = 2 OR P0(Q6) = 5 THEN 584
551 P1(Q5) = 10
552 K1(Q5) = K1(Q5) +2: GOSUB 1229:BC(Q5) = BC(Q5) -AQ%:DF(Q5) = DF(Q5) -AR%: GOTO 584
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
554 IF P0(Q6) = 2 THEN AG(Q5) = AG(Q5) +2:HP(Q5) = HP(Q5) +1
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
556 IF P0(Q6) = 4 THEN BC(Q5) = BC(Q5) -2:DF(Q5) = DF(Q5) +4:K1(Q5) = K1(Q5) +1
557 IF P0(Q6) = 5 THEN AG(Q5) = AG(Q5) +2:BC(Q5) = BC(Q5) -1
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
559 GOSUB 1200:AG(Q5) = AG(Q5) +AR%:BC(Q5) = BC(Q5) +AR%:ES(Q5) = ES(Q5) +(AR% *3): GOTO 584
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) -1
561 IF P0(Q6) = 2 THEN HP(Q5) = HP(Q5) -2
562 IF P0(Q6) = 3 THEN HP(Q5) = HP(Q5) -1:K1(Q5) = K1(Q5) -1:BC(Q5) = BC(Q5) -2
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
564 IF P0(Q6) = 5 THEN HP(Q5) = HP(Q5) -2:DF(Q5) = DF(Q5) -5:K1(Q5) = K1(Q5) -3
565 IF P0(Q6) = 6 THEN HP(Q5) = HP(Q5) -1:K1(Q5) = K1(Q5) -1:BC(Q5) = BC(Q5) -2
566 GOSUB 1210:AR% = AR% -5:DF(Q5) = DF(Q5) -AR%:BC(Q5) = BC(Q5) +AQ%: GOTO 584
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
568 IF P0(Q6) = 2 THEN 584
569 IF P0(Q6) = 3 THEN K1(Q5) = K1(Q5) -2:HP(Q5) = HP(Q5) -3:BC(Q5) = BC(Q5) -4
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
571 IF P0(Q6) = 5 THEN 584
572 IF P0(Q6) = 6 THEN K1(Q5) = K1(Q5) -1:HP(Q5) = HP(Q5) -3:BC(Q5) = BC(Q5) -4
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
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
575 IF P0(Q6) = 2 THEN AG(Q5) = AG(Q5) +2:BC(Q5) = BC(Q5) +1:HP(Q5) = HP(Q5) +1
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
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
578 IF P0(Q6) = 5 THEN AG(Q5) = AG(Q5) +3:DF(Q5) = DF(Q5) +2
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
580 GOSUB 1220:AG(Q5) = AG(Q5) +AR%:BC(Q5) = BC(Q5) +AR%: IF HP(Q5) <8 THEN HP(Q5) = 8
581 GOTO 584
582 GOSUB 1270:BC(Q5) = BC(Q5) -AR%:DF(Q5) = DF(Q5) +AQ%
584 NEXT : GOSUB 761: RETURN
585 P1(1) = P1(1) +(DF(2) -S3(2))
586 P1(2) = P1(2) +(DF(1) -S3(1))
587 IF AG(1) >AG(2) THEN BO = 1:NB = 2
588 IF AG(2) >AG(1) THEN BO = 2:NB = 1
589 RETURN
590 P0(1) = 1:P0(2) = 1
591 FOR Q5 = 1 TO 2
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)
593 NEXT
594 RETURN
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
596 IF FT$(A) = "B" AND FI(A) >1 THEN RN = RND(1) *100: IF RN <(FI(A) *28) *(IR%(A)/157) THEN P0(A) = 3
597 IF FT$(A) = "B" AND FO(A) >1 THEN RN = RND(1) *100: IF RN <(FO(A) *28) *(IR%(A)/157) THEN P0(A) = 4
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
600 IF FT$(A) = "S" AND FO(A) >1 THEN RN = RND(1) *100: IF RN <(FO(A) *28) *(IR%(A)/157) THEN P0(A) = 4
601 IF FT$(A) = "S" AND FI(A) >1 THEN RN = RND(1) *100: IF RN <(FI(A) *28) *(IR%(A)/157) THEN P0(A) = 3
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
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
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
606 IF (Y1(A) >0 AND (K1(A) +K2(A)) >5) AND HP(B) >8 THEN P0(A) = 5
607 IF MF(A) >0 OR MG(A) >0 OR MH(A) >0 THEN P0(A) = 5
608 IF RD +1 = NR THEN 611
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
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
611 C = HP(A) -HP(B)
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
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
614 CA(1) = 0:CA(2) = 0:II = A: GOSUB 631: RETURN
615 IF KT(L1) >0 THEN T1 = 10:T2 = 9
616 IF KT(W1) >0 THEN T1 = 9:T2 = 10
617 IF P0(L1) = 5 OR P0(L1) = 2 THEN T1 = 10:T2 = 9
618 IF P0(W1) = 5 OR P0(W1) = 2 THEN T1 = 9:T2 = 10
619 RETURN
631 REM
632 IF P0(II) = 1 THEN SY$(II) = "FLAT FOOTED":S%(II) = -10
633 IF P0(II) = 2 THEN SY$(II) = "COVER UP":S%(II) = -8
634 IF P0(II) = 3 THEN SY$(II) = "CHARGE IN":S%(II) = 20
635 IF P0(II) = 4 THEN SY$(II) = "STICK-MOVE":S%(II) = 25
636 IF P0(II) = 5 THEN SY$(II) = "STAY AWAY":S%(II) = -10
637 IF P0(II) = 6 THEN SY$(II) = "GO FOR KO":S%(II) = 30
638 IF P0(II) = 7 THEN SY$(II) = "PROTECT CUTS":S%(II) = -10
639 RETURN
640 TR$ = " ": IF CD >16 THEN 644
641 CD = INT( RND(1) *2) +1: ON CD GOSUB 642,643: GOTO 660
642 TR$ = "A": RETURN
643 TR$ = "B": RETURN
644 IF CD >31 THEN 648
645 CD = INT( RND(1) *2) +1: ON CD GOSUB 646,647: GOTO 660
646 TR$ = "C": RETURN
647 TR$ = "D": RETURN
648 IF CD >37 THEN 650
649 TR$ = "E": GOTO 660
650 IF CD >43 THEN 652
651 TR$ = "F": GOTO 660
652 IF CD >43 +(K9 *8) THEN 656
653 CD = INT( RND(1) *2) +1: ON CD GOSUB 654,655: GOTO 660
654 TR$ = "G": RETURN
655 TR$ = "H": RETURN
656 IF CD >43 +(K9 *8) +(K9 *2) THEN 660
657 TR$ = "I": RETURN
660 RETURN
665 VB = 5: GOTO 716
666 REM
667 GOTO 716
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
669 GOSUB 930
678 RETURN
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
680 RETURN
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
682 RETURN
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
684 RETURN
685 T1 = 10:T2 = 9: GOSUB 679
686 GOSUB 681: GOSUB 683
687 RETURN
688 GOSUB 942
694 RETURN
695 T1 = 10:T2 = 8: GOSUB 679
696 GOSUB 681
697 GOSUB 683
698 RETURN
699 GOSUB 951
705 RETURN
706 T1 = 10:T2 = 7
707 GOSUB 679
708 GOSUB 681
709 GOSUB 683
710 RETURN
711 T1 = 10:T2 = 6
712 GOSUB 679
713 GOSUB 681
714 GOSUB 683
715 RETURN
716 GOTO 960
749 FOR A = 1 TO 3: CALL (RB%): FOR Q5 = 1 TO 50: NEXT : NEXT : RETURN
750 WV(1) = 2:WV(0) = 1:WV(5) = 0:A$ = B$: GOSUB 2100:WV(5) = 3:WV(2) = 1: GOSUB 217: GOSUB 2100
751 RETURN
752 FOR Q5 = 1 TO 1600: NEXT : RETURN
761 FOR A = 1 TO 2: IF BC(A) <1 THEN BC(A) = 1
762 GOSUB 791
763 IF HP(A) <1 THEN HP(A) = 1
764 IF P1(A) <1 THEN P1(A) = 1
765 IF K1(A) <1 THEN K1(A) = 1
766 IF S0(A) <1 THEN S0(A) = 1
767 IF S2(A) <1 THEN S2(A) = 1
768 IF S4(A) <1 THEN S4(A) = 1
769 IF S5(A) <1 THEN S5(A) = 1
770 NEXT : RETURN
771 IF IP% = 0 THEN RETURN
772 IF VF >0 THEN VF = VF +1: IF VF = 3 THEN VF = 0
773 IF VF >0 THEN POP : GOTO 485
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
775 PRINT NM$(FA)" IS GIVEN A STANDING 8 COUNT.":VF = VF +1: POP : GOTO 485
776 A = INT(6 * RND(1)) +1: RETURN
777 GOTO 777
791 IF K1(A) >10 THEN K1(A) = 10
792 IF S4(A) >10 THEN S4(A) = 10
793 IF AG(A) >20 THEN AG(A) = 20
794 RETURN
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
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
863 WV(0) = 22.5:SC(0,0) = INT((ER(2)/IR%(2)) *100):A$ = "": GOSUB 223:A$ = A$ +"%": GOSUB 2100
866 RETURN
870 IF K1(0) >4 THEN FF = 2:FA = 1: GOTO 774
872 IF K2(0) >4 THEN FF = 1:FA = 2: GOTO 774
874 RETURN
930 GOSUB 776: ON A GOSUB 934,934,934,933,933,935
931 GOSUB 776: ON A GOSUB 937,937,937,936,936,938
932 GOSUB 776: ON A GOSUB 940,940,940,939,939,941: RETURN
933 T1 = 10:T2 = 9: GOSUB 679: RETURN
934 T1 = 10:T2 = 10: GOSUB 679: RETURN
935 T1 = 9:T2 = 10: GOSUB 679: RETURN
936 T1 = 10:T2 = 9: GOSUB 681: RETURN
937 T1 = 10:T2 = 10: GOSUB 681: RETURN
938 T1 = 9:T2 = 10: GOSUB 681: RETURN
939 T1 = 10:T2 = 9: GOSUB 683: RETURN
940 T1 = 10:T2 = 10: GOSUB 683: RETURN
941 T1 = 9:T2 = 10: GOSUB 683: RETURN
942 GOSUB 776: ON A GOSUB 945,945,946,946,946,946
943 GOSUB 776: ON A GOSUB 947,947,948,948,948,948
944 GOSUB 776: ON A GOSUB 949,949,950,950,950,950: RETURN
945 T1 = 10:T2 = 8: GOSUB 679: RETURN
946 T1 = 10:T2 = 9: GOSUB 679: RETURN
947 T1 = 10:T2 = 8: GOSUB 681: RETURN
948 T1 = 10:T2 = 9: GOSUB 681: RETURN
949 T1 = 10:T2 = 8: GOSUB 683: RETURN
950 T1 = 10:T2 = 9: GOSUB 683: RETURN
951 GOSUB 776: ON A GOSUB 954,954,955,955,955,955
952 GOSUB 776: ON A GOSUB 956,956,957,957,957,957
953 GOSUB 776: ON A GOSUB 958,958,959,959,959,959: RETURN
954 T1 = 10:T2 = 7: GOSUB 679: RETURN
955 T1 = 10:T2 = 8: GOSUB 679: RETURN
956 T1 = 10:T2 = 7: GOSUB 681: RETURN
957 T1 = 10:T2 = 8: GOSUB 681: RETURN
958 T1 = 10:T2 = 7: GOSUB 683: RETURN
959 T1 = 10:T2 = 8: GOSUB 683: RETURN
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
961 IF PEEK( -16384) <128 THEN 961
962 IF PEEK( -16384) < >195 THEN POKE -16368,0: GOTO 961
963 SPEED= 255: POKE -16368,0: POKE 34,0: HOME : TEXT
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"
966 FOR A = 1 TO RD: VTAB 6 +A: IF A <10 THEN PRINT "0"A
967 IF A >9 THEN PRINT A
968 VTAB 6 +A
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))
970 VTAB 6 +A: HTAB 36: PRINT KC%(BO -1,A) TAB( 39)KC%(NB -1,A): NEXT
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)
972 VTAB 1: IF RL% = 0 THEN PRINT "DRAW BOXER (WB) - "NM$(1): PRINT "DRAW BOXER (LB) - "NM$(2): GOTO 974
973 PRINT "WINNING BOXER (WB) - "NM$(BO): PRINT "LOSING BOXER (LB) - "NM$(NB)
974 INVERSE : ON VB GOSUB 975,976,977,978,979: NORMAL : GOTO 980
975 PRINT " SPLIT DECISION ": RETURN
976 PRINT " UNANIMOUS DECISION ": RETURN
977 PRINT " DRAW ": RETURN
978 PRINT " TECHNICAL KNOCKOUT ": RETURN
979 PRINT " KNOCKOUT ": RETURN
980 VTAB 23: INVERSE : PRINT " ENTER (P) TO PLAY AGAIN "
981 IF PEEK( -16384) <128 THEN 981
982 IF PEEK( -16384) = 208 THEN 984
983 POKE -16368,0: GOTO 981
984 POKE -16368,0: & RUN "HELLO"
985 IF RD SC(2,1) THEN BO = BO +1:VC%(1) = 1: GOTO 989
988 IF SC(2,1) >SC(1,1) THEN NB = NB +1:VC%(1) = 2
989 IF SC(1,2) >SC(2,2) THEN BO = BO +1:VC%(2) = 1: GOTO 991
990 IF SC(2,2) >SC(1,2) THEN NB = NB +1:VC%(2) = 2
991 IF SC(1,3) >SC(2,3) THEN BO = BO +1:VC%(3) = 1: GOTO 993
992 IF SC(2,3) >SC(1,3) THEN NB = NB +1:VC%(3) = 2
993 VB = 1
994 IF BO = 3 OR NB = 3 THEN VB = 2
995 IF BO >NB THEN BO = 1:NB = 2:RL% = 1: GOTO 998
996 IF NB >BO THEN BO = 2:NB = 1:RL% = 1: GOTO 998
997 BO = 1:NB = 2:RL% = 0:VB = 3
998 RETURN
1000 IN = SN:WV(5) = 3:WV(0) = 1:A$ = CB$(A,FD%(A,B)):WV(1) = WV(1) -.2: GOSUB 2100: RETURN
1001 IN = SN:WV(5) = 3:WV(0) = 30.7:A$ = CB$(A,FD%(A,B)):WV(1) = WV(1) -.2: GOSUB 2100: RETURN
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
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
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
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
1135 FE%(A,FD%(A,B)) = 0
1136 NEXT :T1 = 0: NEXT : RETURN
1137 IF CA$(A,FD%(A,B)) <"H" THEN 1143
1138 GOSUB 801: GOSUB 1235: IF SP <(95 -(CH(A +1) *3)) -(((FE%(A,B))/2) *5) THEN 1143
1139 IF A = 0 AND CA$(A,FD%(A,B)) = "H" THEN G1 = 1:G5 = 1
1140 IF A = 0 AND CA$(A,FD%(A,B)) = "I" THEN G2 = 1:G5 = 1
1141 IF A = 1 AND CA$(A,FD%(A,B)) = "H" THEN G3 = 1:G5 = 1
1142 IF A = 1 AND CA$(A,FD%(A,B)) = "I" THEN G4 = 1:G5 = 1
1143 RETURN
1200 ON FI(Q5) GOSUB 1201,1202,1203,1204,1205: RETURN
1201 AR% = 1: RETURN
1202 AR% = 2: RETURN
1203 AR% = 3: RETURN
1204 AR% = 4: RETURN
1205 AR% = 5: RETURN
1210 ON FO(Q5) GOSUB 1212,1213,1214,1215,1216: RETURN
1211 ON SA(Q5) GOSUB 1212,1213,1214,1215,1216: RETURN
1212 AR% = 0:AQ% = 0: RETURN
1213 AR% = 5:AQ% = 1: RETURN
1214 AR% = 10:AQ% = 2: RETURN
1215 AR% = 15:AQ% = 3: RETURN
1216 AR% = 20:AQ% = 4: RETURN
1220 ON KC(Q5) GOSUB 1221,1222,1223,1224,1225: RETURN
1221 AR% = 1: RETURN
1222 AR% = 2: RETURN
1223 AR% = 3: RETURN
1224 AR% = 4: RETURN
1225 AR% = 5: RETURN
1229 ON CU(Q5) GOSUB 1230,1231,1232,1233,1234: RETURN
1230 AQ% = 7:AR% = -10: RETURN
1231 AQ% = 6:AR% = -7: RETURN
1232 AQ% = 5:AR% = -4: RETURN
1233 AQ% = 4:AR% = -1: RETURN
1234 AQ% = 3:AR% = 2: RETURN
1235 IF T1 = 1 THEN 1240
1236 T1 = 1:C = INT( RND(1) *3) +1: ON C GOSUB 1237,1238,1239: GOSUB 2100: GOTO 1240
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
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
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
1240 RETURN
1250 SP = INT( RND(1) *100) +1: IF SP >25 OR Q5 = 1 OR OK%(Q6) = 1 THEN GOSUB 801: GOTO 1260
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
1252 Q5 = 1
1260 RETURN
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
1262 OK%(Q5) = 1
1269 RETURN
1270 ON PC(Q5) GOSUB 1271,1272,1273,1274,1275: RETURN
1271 AR% = 2:AQ% = 8: RETURN
1272 AR% = 2:AQ% = 6: RETURN
1273 AR% = 1:AQ% = 5: RETURN
1274 AR% = 0:AQ% = 4: RETURN
1275 AR% = 0:AQ% = 2: RETURN
1280 IF VB = 4 OR VB = 5 THEN 1510
1282 HOME : VTAB 21
1285 ON VB GOSUB 1290,1400,1450: GOTO 1510
1290 PRINT B2$: GOSUB 752: GOSUB 752: GOSUB 752: GOSUB 752: PRINT "WE HAVE A SPLIT DECISION."
1300 IF VC%(1) +VC%(2) +VC%(3) = BO THEN A = NB:VD = NB:VE = VE +1: GOTO 1315
1302 A = INT( RND(1) *2) +1
1305 IF A = NB THEN VD = NB: GOTO 1315
1310 VD = BO: GOTO 1335
1315 VE = VE +1: FOR A = 1 TO 3
1320 IF VC%(A) = NB THEN PRINT "JUDGE #"A" "SC(NB,A)"-"SC(BO,A)" "NM$(NB):A = 3: GOTO 1330
1325 IF VC%(A) = 0 THEN PRINT "JUDGE #"A" "SC(NB,A)"-"SC(BO,A)" A DRAW."
1330 NEXT
1332 GOSUB 752: GOSUB 752
1335 VE = VE +1: FOR A = 1 TO 3
1337 IF A = VC%(0) THEN 1345
1340 IF VC%(A) = BO THEN VC%(0) = A: PRINT "JUDGE #"A" "SC(BO,A)"-"SC(NB,A)" "NM$(BO):A = 3
1345 NEXT
1347 GOSUB 752: GOSUB 752
1350 IF VE = 3 THEN 1370
1355 IF VD = NB THEN 1335
1360 GOTO 1315
1370 RETURN
1380 IF CU(A) <1 THEN CU(A) = 1
1381 IF FO(A) < = 0 THEN FO(A) = 0: IF ER(A) >0 THEN FO(A) = 1
1382 IF SA(A) <1 THEN SA(A) = 1
1383 IF FI(A) < = 0 THEN FI(A) = 0: IF ER(A) >0 THEN FI(A) = 1
1384 IF KC(A) <1 THEN KC(A) = 1
1385 IF PC(A) <1 THEN PC(A) = 1
1386 IF CU(A) >CU(A +2) THEN CU(A) = CU(A +2)
1387 IF FO(A) >FO(A +2) THEN FO(A) = FO(A +2)
1388 IF SA(A) >SA(A +2) THEN SA(A) = SA(A +2)
1389 IF FI(A) >FI(A +2) THEN FI(A) = FI(A +2)
1390 IF KC(A) >KC(A +2) THEN KC(A) = KC(A +2)
1391 IF PC(A) >PC(A +2) THEN PC(A) = PC(A +2)
1392 IF ES(A) <0 THEN ES(A) = 0
1393 RETURN
1400 PRINT B2$: GOSUB 752: GOSUB 752: GOSUB 752: GOSUB 752: PRINT "WE HAVE A UNANIMOUS DECISION.": GOSUB 752: GOSUB 752
1405 FOR A = 1 TO 3
1410 PRINT "JUDGE #"A" "SC(BO,A)"-"SC(NB,A)
1415 GOSUB 752: GOSUB 752
1420 NEXT
1425 VTAB 23: HTAB 23: PRINT "*WINNER-": GOSUB 752: GOSUB 752: GOSUB 752: GOSUB 752
1430 VTAB 23: HTAB 31: PRINT NM$(BO)
1435 RETURN
1450 PRINT B2$: GOSUB 752: GOSUB 752: GOSUB 752: GOSUB 752: PRINT "WE HAVE A DRAW."
1455 FOR A = 1 TO 3
1460 IF SC(1,A) >SC(2,A) THEN PRINT "JUDGE #"A" "SC(1,A)"-"SC(2,A)" "NM$(1)
1462 IF SC(2,A) >SC(1,A) THEN PRINT "JUDGE #"A" "SC(2,A)"-"SC(1,A)" "NM$(2)
1464 IF SC(2,A) = SC(1,A) THEN PRINT "JUDGE #"A" "SC(2,A)"-"SC(1,A)" DRAW"
1466 GOSUB 752: GOSUB 752
1470 NEXT
1475 RETURN
1510 RETURN
2100 POKE 232,WV(10): POKE 233,WV(11):X = 7 *WV(0) -6:Y = 8 *WV(1) -8
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
2115 HCOLOR= WV(5): DRAW 100 AT X,Y
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
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
2140 SCALE= WV(7): ROT= 16: FOR I = X TO WV(4): XDRAW 3 AT I,Y: NEXT
2150 ROT= 0: SCALE= 1:IN = 0: RETURN
Text found in Ringside_Seat_1983_SSI_cr_T._Foley_RDOS.dsk/STARTGAME.bas:
1 ONERR GOTO 500: POKE 34,0
2 HOME : VTAB 2: INVERSE : PRINT " STRATEGIC SIMULATIONS INC. PRESENTS: "
3 VTAB 4
4 INVERSE : FLASH : HTAB 7: PRINT " R I N G S I D E S E A T "
5 NORMAL : PRINT : INVERSE
6 HTAB 6: PRINT " SPC( SGN TO SPC( / AT THEN COLOR= FN POS COLOR= ABS RESTORE NOT > ^ AT POS COLOR= GOSUB SAVE IF REM GOSUB IF POKE WAIT COLOR= ": HTAB 6: PRINT " INT = AT SPC( - TO ^ COLOR= ABS + TO OR / INT COLOR= ABS > COLOR= / SGN TO / > SCRN( - SPC( SQR RUN ": HTAB 6: PRINT " INT RESTORE ^ > ABS AT / COLOR= TO OR THEN COLOR= SPC( > SPC( TO IF SPC( > ^ TO RESTORE RESTORE RESTORE "
10 NORMAL
19 VTAB 10: PRINT "PLEASE TYPE:": PRINT
20 PRINT "(P) PLAY RINGSIDE SEAT"
25 PRINT
30 PRINT "(E) ENTER/REVISE/LIST FIGHTER DATA"
31 PRINT
32 PRINT "(I) INITIALIZE SSI SAVE FIGHTER DISK"
33 PRINT
35 PRINT "(Q) QUIT NOW"
40 GOSUB 400
41 POKE 34,18: HOME : VTAB 19
45 IF A$ = "Q" THEN 500
47 IF A$ = "I" THEN 350
50 IF A$ = "E" THEN PRINT : PRINT "NOW LOADING ENTER/REVISE/LIST PROGRAM": PRINT : PRINT "PLEASE WAIT...": GOTO 200
60 IF A$ = "P" THEN PRINT : PRINT "NOW LOADING RINGSIDE SEAT": PRINT : PRINT "PLEASE WAIT...": GOTO 250
66 INVERSE : FLASH
67 PRINT
70 PRINT "INVALID RESPONSE, PLEASE TRY AGAIN"
75 NORMAL
80 GOTO 40
200 POKE 34,8: POKE 103,2048 - INT(2048/256) *256: POKE 104, INT(2048/256): & RUN "ADDBOXERS"
210 GOTO 500
250 REM
300 POKE 34,8: POKE 103,17472 - INT(17472/256) *256: POKE 104, INT(17472/256): & RUN "BOX"
310 GOTO 500
350 & RECALL "SSI.INIT",2048: PRINT : PRINT "THIS WILL INIT A SAVE FIGHTER DISK": PRINT : PRINT "IF THIS IS YOUR REQUEST,": PRINT "PLEASE INSERT A BLANK DISK (RET)"
355 IF PEEK( -16384) <128 THEN 355
360 IF PEEK( -16384) < >141 THEN POKE -16368,0: GOTO 355
361 HOME : VTAB 19: PRINT : PRINT "(Y) TO INITIALIZE": PRINT "(N) TO CANCEL FUNCTION": GOSUB 470
362 IF YN$ = "N" THEN HOME : GOTO 386
370 PRINT : FLASH : PRINT "NOW INITIALIZING SAVE FIGHTER DISK"
372 NORMAL
375 CALL 2048
377 POKE -16368,0
378 IF PEEK(0) = 0 THEN & DEF "FIGHTMENU",50: & PRINT "FIGHTMENU": PRINT "END": PRINT 0: PRINT "END": PRINT "END": & END : & DEF "DISKCHECK",1: & PRINT "DISKCHECK": PRINT 0: & END
379 HOME
380 IF PEEK(0) = 0 THEN PRINT "SUCCESSFUL INIT"
385 IF PEEK(0) < >0 THEN PRINT "UNSUCCESSFUL INIT"
386 PRINT : PRINT "PLEASE INSERT SSI GAME DISK (RET)"
387 IF PEEK( -16384) <128 THEN 387
388 IF PEEK( -16384) < >141 THEN POKE -16368,0: GOTO 387
389 POKE -16368,0
393 HOME
394 & READ "DISKCHECK"
395 INPUT A
396 & END
397 IF A < >1 THEN HOME : GOTO 386
399 GOTO 40
400 IF PEEK( -16384) >127 THEN 430
410 A = PEEK(203) +1: IF A >255 THEN A = 0
420 POKE 203,A: GOTO 400
430 IF PEEK( -16384) = 197 THEN A$ = "E"
435 IF PEEK( -16384) = 201 THEN A$ = "I"
440 IF PEEK( -16384) = 208 THEN A$ = "P"
450 IF PEEK( -16384) = 209 THEN A$ = "Q"
460 POKE -16368,0: RETURN
470 YN$ = " ": IF PEEK( -16384) <128 THEN 470
471 IF PEEK( -16384) = 206 THEN YN$ = "N"
472 IF PEEK( -16384) = 217 THEN YN$ = "Y"
474 IF YN$ = " " THEN POKE -16368,0: GOTO 470
476 POKE -16368,0: RETURN
500 VTAB 21: PRINT "THANKYOU FOR PLAYING RINGSIDE SEAT."
510 GOTO 510
- Addeddate
- 2014-06-12 20:11:55
- Emulator
- apple2e
- Emulator_ext
- dsk
- Identifier
- a2_Ringside_Seat_1983_SSI_cr_T._Foley_RDOS
- Scanner
- Internet Archive Python library 0.6.5
comment
Reviews
396 Views
DOWNLOAD OPTIONS
IN COLLECTIONS
The Apple II Library: Games The Software Library: Apple Computer Software Library The Emulation StationUploaded by Jason Scott on