8bitfiles.net/archives/archives.tar/archives/genie-commodore-file-library/C64-128BBS/P.BOXING

Commodore BASIC | 2019-04-13 | 4.6 KB | 156 lines

1 A$="\F1\C2[139][139][139]  [215]ELCOME TO [195]-[206][197][212] [195]HAMPIONSHIP [194]OXING[139]":SYSO
2 A$="\C1    [195]REATED FOR THE [206][207][206]-[208][210][207][208][200][197][212] [194][194][211][139]":SYSO
3 A$="\C6   501-521-5905 24 HRS 300/1200 [194]AUD[139][139]":SYSO
4 IF CA<25 THEN A$="\C7[217]OU DON'T HAVE ENOUGH CREDITS![139]":SYSO:SYS52605:GOTO1812
5 A$="\C8    [212]HERE'S A BIG CROWD GATHERED AT[139]":SYSO
6 A$="\C5      [206]ON-[208]ROPHET [211]QUARE [199]ARDENS![139]":SYSO
7 CLOSE2:CLOSE15:OPEN15,8,15:OPEN2,8,2,"CC.BOXCHAMP,S,R"
8 GOSUB1003:IFA$<>"00"THEN GOSUB 600:GOTO11
9 INPUT#2,XA$:INPUT#2,ZD
10 CLOSE2:CLOSE15:IF ABS(ZD-ID)<1THEN GOSUB500:GOTO13
11 IF ZD=-29 THEN IF ID=29 AND LEFT$(NA$,8)="[194][210].[199][210][193][198][216]"THEN GOSUB500:GOTO13
12 A$="[139][139]\C5"+XA$+" IS THE CURRENT CHAMPION![139]":SYSO:CA=CA-10
13 A$="[139][193]RE YOU READY ,"+NA$+" ([217]/[206]) ? ":SYSO
14 GOSUB1007:A$="\C1"+AN$+"[139]":SYSO:IFAN$="[206]"THEN1812
15 A$="\F1\C7[139][139]"+NA$+" VERSUS "+XA$+"!!![139]":SYSO
17 A$="[139][139][139]\C6[196]IFFERANT PUNCHES ARE:  1 - [198]ULL [211]WING[139]":SYSO
18 A$="                        2 - [200]OOK[139]":SYSO
19 A$="                        3 - [213]PPERCUT[139]":SYSO
20 A$="                        4 - [202]AB[139]":SYSO
21 A$="\C5[139][139][215]HAT IS YOUR BEST PUNCH? ":SYSO:GOSUB1007:A$="\C1"+AN$+"[139]":SYSO
22 XB=VAL(AN$):IFXB<1ORXB>4THEN15
23 A$="\C5[139][139][215]HAT IS YOUR VULNERABILTY? ":SYSO:GOSUB1007:A$="\C1"+AN$+"[139]":SYSO
24 XD=VAL(AN$):IFXD<1ORXD>4THEN15
25 YB=INT(RND(0)*4)+1:YD=INT(RND(0)*4)+1:IFYB=YDTHEN25
26 A$="\F1\C7[139][139]"+XA$+"'S ADVANTAGE IS "+STR$(YB)+"[139]":SYSO
27 A$="[217]OUR [207]PPONENT'S VULNERABLITY IS SECRET.[139]":SYSO:XJ=0:XL=0
28 FOR X9=1 TO 3
29 IF XJ>= 2 THEN 124
30 IF XL>= 2 THEN 125
31 XX=0:XY=0
32 A$="\C5[139][139][210]OUND "+STR$(X9)+" BEGINS...[139]":SYSO:FOR X8=1 TO 7
33 X3=INT(RND(0)*10)+1
34 IF X3>5 THEN 74
35 A$="\C6"+NA$+"'S PUNCH > ":SYSO:GOSUB1007:A$="\C1"+AN$+"[139]":SYSO:XP=VAL(AN$)
36 IF XP=XB THEN XX=XX+2
37 ON XP GOTO 46,57,65
38 A$="\C6"+NA$+" JABBS AT "+XA$+"'S HEAD "
39 IF YD=4 THEN 42
40 X3=INT(RND(0)*8)+1
41 IF X3<4 THEN 44
42 XX=XX+3:A$=A$+"[139]":SYSO
43 GOTO 110
44 A$=A$+" [201]T'S BLOCKED![139]":SYSO
45 GOTO 110
46 A$="\C6"+NA$+" SWINGS..."
47 IF YD=4 THEN 53
48 X3=INT(RND(0)*30)+1
49 IF X3<10 THEN 53
50 A$=A$+" AND MISSES![139]":SYSO
51 IF XX=1 THEN 110
52 GOTO 110
53 A$=A$+" AND CONNECTS![139]":SYSO
54 IF XX>45 THEN 122
55 XX=XX+15
56 GOTO 110
57 A$="\C6"+NA$+" GIVES THE HOOK... "
58 IF YD=2 THEN 61
59 X3=INT(RND(0)*2)+1
60 IFX3=1 THEN 64
61 A$=A$+" [195]ONNECTS![139]":SYSO
62 XX=XX+7
63 GOTO 110
64 A$=A$+" IT'S BLOCKED![139]":SYSO
65 A$="\C6"+NA$+" TRIES AN UPPERCUT..."
66 IF YD=3 THEN 71
67 X3=INT(RND(0)*100)+1
68 IF X3<51 THEN 71
69 A$=A$+" IT'S BLOCKED![139]":SYSO
70 GOTO 110
71 A$=A$+" AND CONNECTS![139]":SYSO
72 XX=XX+4
73 GOTO 110
74 X3=INT(RND(0)*4)+1
76 IF X3=YB THEN XY=XY+2
77 ON YJ GOTO 87,97,101
78 A$="\C7"+XA$+" JABBS AND"
79 IF XD=4 THEN 84
80 X3=INT(RND(0)*7)+1
81 IF X3>4 THEN 84
82 A$=A$+" IT'S BLOCKED![139]":SYSO
83 GOTO 110
84 A$=A$+" BLOOD SPILLS![139]":SYSO
85 XY=XY+5
86 GOTO 110
87 A$="\C7"+XA$+" TAKES A SWING,"
88 IF XD=1 THEN 93
89 X3=INT(RND(0)*60)+1
90 IF X3<30 THEN 93
91 A$=A$+" IT'S BLOCKED![139]":SYSO
92 GOTO 110
93 A$=A$+" [208][207][215]!!!!![139]":SYSO
94 IFXY>35 THEN 123
95 XY=XY+15
96 GOTO 110
97 A$="\C7"+XA$+" GETS "+NA$+" IN THE JAW!!![139]":SYSO
98 XY=XY+7
99 IFXY>50 THEN 123
100 GOTO 110
101 A$="\C7"+NA$+" IS ATTACKED BY AN UPPERCUT.[139]":SYSO
102 IF XD=3 THEN105
103 X3=INT(RND(0)*200)+1
104 IF X3>75 THEN 108
105 A$=XA$+" CONNECTS!!!![139]":SYSO
106 XY=XY+8
107 GOTO 110
108 A$="[194][204][207][195][203][197][196] AND HITS "+XA$+" WITH A HOOK![139]":SYSO
109 XX=XX+5
110 NEXT X8
111 A$="\S8\S0\C5[212]HE ROUND IS OVER AND...[139]":SYSO
112 IF XX>XY THEN115
113 A$="\C7"+XA$+" WINS ROUND "+STR$(X9)+"[139]":SYSO
114 XJ=XJ+1:GOTO117
115 A$="\C6"+NA$+" WINS ROUND "+STR$(X9)+"":SYSO
116 XL=XL+1
117 A$="\C5[139][139][208]RESS ANY KEY TO CONTINUE [139]":SYSO:GOSUB1007
118 A$="\F1[139]":SYSO
119 NEXT X9
120 IF XJ>=2 THEN 124
121 IF XL>=2 THEN 125
122 A$="\C6"+XA$+" IS KNOCKED OUT COLD![139]":SYSO:A$=NA$+" WINS!![139]":SYSO:GOTO 126
123 A$="\C7"+NA$+" IS KNOCKED OUT COLD![139]":SYSO:A$=XA$+" WINS!![139]":SYSO:GOTO 131
124 A$="\C7"+XA$+" WINS! [199]OOD [199]OING, "+XA$+"[139]":SYSO:GOTO 131
125 A$="\C6"+NA$+" WINS! [193]MAZING![139]":SYSO
126 IF ZD=ID THEN A$="[202]UST FOR PRACTICE, NO CREDIT BONUS.[139]":SYSO:GOTO131
127 CLOSE2:CLOSE15:OPEN15,8,15,"S0:CC.BOXCHAMP":OPEN2,8,2,"CC.BOXCHAMP,S,W"
128 GOSUB1003:IFA$<>"00"THENCLOSE2:CLOSE15:GOTO130
129 PRINT#2,NA$:PRINT#2,ID:CLOSE2:CLOSE15
130 A$="[217]OU WIN 25 [195]REDITS![139]":SYSO:CA=CA+25
131 IF TR$<"
"THEN SYS52605:GOTO1080
132 A$="\C4[193]NOTHER GAME, "+NA$+" ([217]/[206]) ?":SYSO:GOSUB 1007:A$="\C1"+AN$+"[139]":SYSO
133 IF AN$="[217]" THEN 1
134 A$="\F1\C5[139][139][139][201] WISH TO THANK EVERYONE AT RINGSIDE[139]":SYSO
135 A$="FOR THEIR FINE SUPPORT!  [201]'M YOUR[139]":SYSO
136 A$="ANNOUNCER, [194][210].[199][210][193][198][216] SAYING [199]OOD [206]IGHT[139]":SYSO
137 A$="FROM [206]ON-[208]ROPHET [211]QUARE [199]ARDENS![139]":SYSO
138 SYS52605:GOTO1812
500 X1=INT(RND(0)*6)+1
502 IF X1=1 THEN XA$="[207]PUS THE [208]ENGUIN"
503 IF X1=2 THEN XA$="[194]ILL THE [195]AT"
504 IF X1=3 THEN XA$="[212]HE [205]ASKED [211]YSOP"
505 IF X1=4 THEN XA$="[212]HE [205]ANGY [205]ENACE"
506 IF X1=5 THEN XA$="[199]ARFIELD THE [195]AT"
507 IF X1=6 THEN XA$="[205]ILDRED THE [205]AID"
508 A$="[139][139]\C5[201]T SEEMS YOU ARE THE CURRENT [195]HAMPION![139]":SYSO
509 A$="[212]HIS EVENING YOUR SPARRING PARTNER IS[139]":SYSO
510 A$=XA$+".[139]":SYSO
511 RETURN
600 XA$="[194][210].[199][210][193][198][216]":ZD=-29
601 IFA$<>"62"THEN606
603 CLOSE2:CLOSE15
604 OPEN2,8,2,"CC.BOXCHAMP,S,W"
605 PRINT#2,XA$:PRINT#2,ZD
606 CLOSE2:CLOSE15
607 RETURN
999 REM 12/15/87  BOB UNDERDOWN