home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / games / sports1.zip / FOOTBALL.ASC < prev    next >
Text File  |  1982-05-31  |  8KB  |  376 lines

  1. 100 PRINT ,"F O O T B A L L"
  2. 110 PRINT
  3. 120 PRINT "WOULD YOU LIKE INSTRUCTIONS FOR PLAYING FOOTBALL";
  4. 130 INPUT I$
  5. 140 IF LEFT$(I$,1)<>"Y" THEN 410
  6. 150 PRINT
  7. 160 PRINT
  8. 170 PRINT "ON OFFENSE YOU HAVE THE FOLLOWING PERMITTED PLAYS:" 
  9. 180 PRINT "PLAY","CODE"
  10. 190 PRINT "RUN","10" 
  11. 200 PRINT "PASS","11"
  12. 210 PRINT "SWEEP","12" 
  13. 220 PRINT "SCREEN PASS","13" 
  14. 230 PRINT "LONG PASS","14" 
  15. 240 PRINT "DRAW PLAY","15" 
  16. 250 PRINT "PUNT","16"
  17. 260 PRINT "FIELDGOAL","17" 
  18. 270 PRINT
  19. 280 PRINT "ON DEFENSE, YOU MAY TRY ONE OF THE FOLLOWING:"
  20. 290 PRINT "DEFENSE","CODE" 
  21. 300 PRINT "NORMAL","4","GOOD AGAINST SWEEP AND SCREEN" 
  22. 310 PRINT "HOLD","5","GOOD AGAINST RUN, PASS AND DRAW" 
  23. 320 PRINT "BLITZ","6","GOOD AGAINST PASS OR LONG PASS" 
  24. 330 PRINT "INTERCEPT","7","INCREASES THE ODDS FOR AN INTERCEPTION" 
  25. 340 PRINT "BLOCK","8","GIVES YOU A CHANCE TO BLOCK A KICK,"
  26. 350 PRINT " "," ","BUT DECREASES THE DISTANCE RUNBACK."
  27. 360 PRINT
  28. 370 PRINT "TO CALL A PARTICULAR PLAY JUST TYPE ITS CODE NUMBER." 
  29. 380 PRINT "ALSO, AT ANY TIME DURING PLAY YOU MAY CALL TIME OUT"
  30. 390 PRINT "BY TYPING A '2'.  HOWEVER YOU ARE PERMITTED ONLY THREE" 
  31. 400 PRINT "TIMEOUTS PER HALF." 
  32. 410 PRINT
  33. 420 PRINT
  34. 430 DEF FNT(X)=SIN(X)/COS(X)
  35. 440 DIM R(17)
  36. 450 FOR I=0 TO 17
  37. 460 READ R(I)
  38. 470 NEXT I 
  39. 480 DATA 9,13,100,0,9,10,12,11,12,0,1,5,3,4,6,2,8,7
  40. 490 F=0
  41. 500 Z3=0
  42. 510 O=0
  43. 520 L=0
  44. 530 DIM Z(5,3),P(2),D(2,5) 
  45. 540 FOR A=0 TO 5 
  46. 550 FOR B=0 TO 2 
  47. 560 READ Z(A,B),D(B,A) 
  48. 570 P(B)=0
  49. 580 NEXT B 
  50. 590 READ Z(A,3)
  51. 600 NEXT A 
  52. 610 PRINT "DO YOU WANT TO RECEIVE";
  53. 620 X=1
  54. 630 INPUT I$
  55. 640 S=1
  56. 650 IF LEFT$(I$,1)="Y" THEN S=2
  57. 660 K=S
  58. 670 T1=120 
  59. 680 U2=3 
  60. 690 U=3
  61. 700 C=900
  62. 710 GOSUB 2330
  63. 720 F1=50
  64. 730 B=INT(F1+O*20*RND(1)+(1-O)*29*(2-RND(0)^7-RND(0)^(3-Z2)))
  65. 740 O=0
  66. 750 Z9=8 
  67. 760 GOSUB 1570
  68. 770 L=0
  69. 780 IF B<=99 THEN 2420
  70. 790 PRINT "A  TOUCHBACK" 
  71. 800 B=20 
  72. 810 L=0
  73. 820 IF S=2 THEN 850
  74. 830 PRINT "MY "; 
  75. 840 GOTO 860
  76. 850 PRINT "YOUR "; 
  77. 860 GOSUB 3370
  78. 870 GOSUB 3060
  79. 880 D=1
  80. 890 F2=.03 
  81. 900 O=0
  82. 910 IF C<=0 THEN 2850
  83. 920 GOSUB 2610
  84. 930 Z2=1 
  85. 940 Z3=.3
  86. 950 IF C<=F*T1 THEN 3000
  87. 960 IF C<=0 THEN 2850
  88. 970 IF L=0 THEN 990
  89. 980 PRINT "TIME TO GO--";
  90. 990 PRINT INT(C/60);"MIN,";C-60*INT(C/60);"SEC.  ";
  91. 1000 PRINT "YOUR PLAY"; 
  92. 1010 GOSUB 3690
  93. 1020 IF S=1 THEN 1060
  94. 1030 IF Q>8 THEN 1000
  95. 1040 M=Q
  96. 1050 GOTO 1080
  97. 1060 Y=Q-8
  98. 1070 IF ABS(Q-10.5)^2>3 THEN 1000
  99. 1080 C=INT(C-L*(5+23*RND(1))) 
  100. 1090 L=1
  101. 1100 IF M=7 THEN 1840
  102. 1110 IF M=8 THEN 2000
  103. 1120 Y1=Y-1 
  104. 1130 IF RND(1)>Z(M-1,Y1) THEN 1320
  105. 1140 A=2
  106. 1150 GOSUB 3100
  107. 1160 IF M<4 THEN 1190
  108. 1170 PRINT "PASS COMPLETE.."; 
  109. 1180 L=SGN(INT(4*RND(1))) 
  110. 1190 IF RND(1)<F2 THEN 2590
  111. 1200 IF G>0 THEN 1290
  112. 1210 IF G=0 THEN 1250
  113. 1220 IF G+B<1 THEN 2250
  114. 1230 PRINT "LOSS OF";-G;
  115. 1240 GOTO 1690
  116. 1250 PRINT "NO GAIN"
  117. 1260 Z9=2 
  118. 1270 GOSUB 1570
  119. 1280 GOTO 1750
  120. 1290 IF B+G>99 THEN 1730
  121. 1300 PRINT "GAIN OF";G; 
  122. 1310 GOTO 1690
  123. 1320 IF M>3 THEN 1360
  124. 1330 A=1
  125. 1340 GOSUB 3100
  126. 1350 GOTO 1200
  127. 1360 IF RND(1)<.06*(2-SGN(Y-3)) THEN 1440
  128. 1370 IF RND(1)<.05+INT(Y/3.5)/5 THEN 1590
  129. 1380 Z9=6 
  130. 1390 GOSUB 1570
  131. 1400 PRINT "PASS INCOMPLETE"
  132. 1410 L=0
  133. 1420 G=0
  134. 1430 GOTO 3200
  135. 1440 PRINT "PASS **INTERCEPTED**";
  136. 1450 A=1
  137. 1460 GOSUB 3100
  138. 1470 IF B<40 THEN 1490
  139. 1480 G=20*(1+SGN(G))
  140. 1490 B=100-B-G
  141. 1500 S=3-S
  142. 1510 Z9=9 
  143. 1520 GOSUB 1570
  144. 1530 IF B<1 THEN 790
  145. 1540 IF B>99 THEN 1730
  146. 1550 PRINT "AT "; 
  147. 1560 GOTO 2440
  148. 1570 C=C-INT(4+Z9/2*(1+RND(1))) 
  149. 1580 RETURN 
  150. 1590 G=-(5+INT(10*RND(1)))
  151. 1600 PRINT "THE QUARTERBACK ";
  152. 1610 IF RND(1)>.5 THEN 1640
  153. 1620 PRINT "IS THROWN FOR A ";
  154. 1630 GOTO 1190
  155. 1640 G=-(2*G+8) 
  156. 1650 M=5
  157. 1660 A=1
  158. 1670 PRINT "SCRAMBLES FOR A ";
  159. 1680 GOTO 1190
  160. 1690 B=B+G
  161. 1700 PRINT "TO "; 
  162. 1710 GOSUB 3380
  163. 1720 IF B<=99 THEN 1750
  164. 1730 GOSUB 2070
  165. 1740 GOTO 710
  166. 1750 IF B1>B THEN 3200
  167. 1760 IF B1<B THEN 1810
  168. 1770 IF RND(1)>.5 THEN 1810
  169. 1780 PRINT "**MEASUREMENT**"
  170. 1790 GOSUB 3600
  171. 1800 IF RND(1)<.5 THEN 3200
  172. 1810 GOSUB 3060
  173. 1820 D=0
  174. 1830 GOTO 3200
  175. 1840 IF RND(1)<.06 THEN 1970
  176. 1850 B=B+30+INT(15*(1-RND(1)^3))
  177. 1860 Z9=2 
  178. 1870 GOSUB 1570
  179. 1880 IF B<=99 THEN 1930
  180. 1890 P1=3 
  181. 1900 GOSUB 2110
  182. 1910 IF P1=0 THEN 790
  183. 1920 GOTO 710
  184. 1930 PRINT "THE KICK IS ";
  185. 1940 Z2=0 
  186. 1950 S=3-S
  187. 1960 GOTO 2420
  188. 1970 PRINT "**BLOCKED** RECOVERED.."; 
  189. 1980 G=-INT(14*RND(1))
  190. 1990 GOTO 1490
  191. 2000 PRINT "THE PUNT IS ";
  192. 2010 IF RND(1)<.06 THEN 1970
  193. 2020 F1=B 
  194. 2030 Z2=1 
  195. 2040 S=3-S
  196. 2050 Z3=.65 
  197. 2060 GOTO 730
  198. 2070 PRINT "** TOUCHDOWN**" 
  199. 2080 P1=1 
  200. 2090 P(S)=P(S)+6
  201. 2100 B=130
  202. 2110 PRINT "THE KICK IS ";
  203. 2120 IF RND(1)<(B/132)^4 THEN 2150
  204. 2130 P1=0 
  205. 2140 PRINT "NO "; 
  206. 2150 PRINT "GOOD" 
  207. 2160 P(S)=P(S)+P1 
  208. 2170 GOSUB 2200
  209. 2180 S=3-S
  210. 2190 RETURN 
  211. 2200 PRINT "SCORE: ME";P(1);" YOU";P(2) 
  212. 2210 L=0
  213. 2220 IF X<5 THEN 2240
  214. 2230 IF P(1)<>P(2) THEN 2850
  215. 2240 RETURN 
  216. 2250 PRINT "**SAFETY**" 
  217. 2260 P(3-S)=P(3-S)+2
  218. 2270 F1=30
  219. 2280 S=3-S
  220. 2290 GOSUB 2200
  221. 2300 GOSUB 3520
  222. 2310 PRINT "FROM THE 20"
  223. 2320 GOTO 730
  224. 2330 GOSUB 3520
  225. 2340 IF S=2 THEN 2410
  226. 2350 PRINT "ON-SIDE"; 
  227. 2360 INPUT I$
  228. 2370 IF LEFT$(I$,1)<>"Y" THEN 2410
  229. 2380 F2=.15 
  230. 2390 Z2=1 
  231. 2400 O=1
  232. 2410 RETURN 
  233. 2420 B=100-B
  234. 2430 PRINT "RECEIVED AT ";
  235. 2440 GOSUB 3380
  236. 2450 IF Z2*RND(1)>Z3 THEN 2570
  237. 2460 IF RND(1)<F2 THEN 2580
  238. 2470 G=5+INT(100*RND(1))
  239. 2480 IF RND(1)<.15 THEN 2510
  240. 2490 G=INT(24*(1-RND(1)^2)) 
  241. 2500 IF G=0 THEN 2570
  242. 2510 B=B+G
  243. 2520 PRINT " AND RUN BACK...";
  244. 2530 L=1
  245. 2540 IF B>99 THEN 1730
  246. 2550 PRINT " TO ";
  247. 2560 GOSUB 3380
  248. 2570 IF RND(1)>F2 THEN 3340
  249. 2580 G=0
  250. 2590 PRINT "**FUMBLE**";
  251. 2600 GOTO 1490
  252. 2610 IF S=1 THEN 2640
  253. 2620 Y=INT(1+3.5*RND(1))
  254. 2630 RETURN 
  255. 2640 M=INT(55*RND(1)/10.5)+1
  256. 2650 IF (B1-B)/(5-D)<3 THEN 2670
  257. 2660 M=INT(6-4*RND(1)^2)
  258. 2670 IF L*F*60>=C THEN 2750
  259. 2680 IF D<4 THEN 2630
  260. 2690 PRINT "I'LL "; 
  261. 2700 IF B<55 THEN 2800
  262. 2710 IF 0<4*RND(1)-B1+B THEN 2830
  263. 2720 PRINT "TRY FOR A FIELD GOAL" 
  264. 2730 M=7
  265. 2740 RETURN 
  266. 2750 IF P(2)*U2<=P(1)*U2 THEN 2680
  267. 2760 PRINT "TIME OUT" 
  268. 2770 U2=U2-1
  269. 2780 GOSUB 3600
  270. 2790 GOTO 2680
  271. 2800 PRINT "PUNT" 
  272. 2810 M=8
  273. 2820 RETURN 
  274. 2830 PRINT "GO FOR IT"
  275. 2840 RETURN 
  276. 2850 IF X<4 THEN 2910
  277. 2860 IF P(1)=P(2) THEN 2910
  278. 2870 PRINT "THE GAME IS OVER" 
  279. 2880 PRINT "FINAL ";
  280. 2890 GOSUB 2200
  281. 2900 STOP 
  282. 2910 PRINT "END OF PERIOD";X
  283. 2920 GOSUB 2200
  284. 2930 F=1-F
  285. 2940 GOSUB 3600
  286. 2950 C=900
  287. 2960 X=X+1
  288. 2970 IF F<>0 THEN 890
  289. 2980 S=3-K
  290. 2990 GOTO 660
  291. 3000 IF T1=0 THEN 2850
  292. 3010 PRINT "2 MINUTE WARNING" 
  293. 3020 GOSUB 3600
  294. 3030 T1=0 
  295. 3040 C=120
  296. 3050 GOTO 960
  297. 3060 B1=B+10
  298. 3070 IF B1<=100 THEN 3090
  299. 3080 B1=100 
  300. 3090 RETURN 
  301. 3100 Q=1.3*(A*RND(1)-1)-.06 
  302. 3110 A=1
  303. 3120 IF Q>=0 THEN 3150
  304. 3130 A=0
  305. 3140 Q=-Q 
  306. 3150 M1=M-1 
  307. 3160 G=D(A,M1)+FNT(Q)*(D(2,M1)-D(A,M1))/3.5
  308. 3170 G=G+INT(RND(1)+.02)*A*100*RND(1)
  309. 3180 G=INT(G)
  310. 3190 RETURN 
  311. 3200 D=D+1
  312. 3210 IF D=5 THEN 3320
  313. 3220 IF D<>  1 THEN 3240
  314. 3230 PRINT "1ST"; 
  315. 3240 IF D<>2 THEN 3260
  316. 3250 PRINT "2ND"; 
  317. 3260 IF D<>3 THEN 3280
  318. 3270 PRINT "3RD"; 
  319. 3280 IF D<4 THEN 3300
  320. 3290 PRINT "4TH"; 
  321. 3300 PRINT " AND";B1-B;"   "; 
  322. 3310 GOTO 890
  323. 3320 S=3-S
  324. 3330 B=100-B
  325. 3340 IF S=2 THEN 850
  326. 3350 PRINT "MY "; 
  327. 3360 GOTO 860
  328. 3370 PRINT "BALL ON ";
  329. 3380 IF B=50 THEN 3480
  330. 3390 V=50-ABS(B-50) 
  331. 3400 C=C-INT(7+3*RND(1))
  332. 3410 IF S=1 THEN 3500
  333. 3420 IF B<50 THEN 3450
  334. 3430 PRINT "MY "; 
  335. 3440 GOTO 3460
  336. 3450 PRINT "YOUR "; 
  337. 3460 PRINT V
  338. 3470 RETURN 
  339. 3480 PRINT "THE 50" 
  340. 3490 RETURN 
  341. 3500 IF B<50 THEN 3430
  342. 3510 GOTO 3450
  343. 3520 IF S=2 THEN 3550
  344. 3530 PRINT "YOU"; 
  345. 3540 GOTO 3560
  346. 3550 PRINT "I"; 
  347. 3560 PRINT " KICK OFF." 
  348. 3570 F2=.06 
  349. 3580 Z2=0 
  350. 3590 RETURN 
  351. 3600 L=0
  352. 3610 PRINT "TIMEOUT CALLED..."
  353. 3620 PRINT  
  354. 3630 RETURN 
  355. 3640 IF U=0 THEN 3680
  356. 3650 U=U-1
  357. 3660 GOSUB 3600
  358. 3670 GOTO 3690
  359. 3680 PRINT "..WRONG, TRY AGAIN" 
  360. 3690 INPUT A
  361. 3700 IF ABS(INT(A))>17 THEN 3680
  362. 3710 Q=R(INT(ABS(A))) 
  363. 3720 IF Q=0 THEN 3680
  364. 3730 IF Q=100 THEN 3640
  365. 3740 RETURN 
  366. 3750 DATA .5,-2,.25,4,.5,13,.55 
  367. 3760 DATA .4,-2,.3,7,.65,15,.75 
  368. 3770 DATA .4,-2,.3,6,.6,15,.35
  369. 3780 DATA .65,-2,.65,6,.6,17,.9 
  370. 3790 DATA .4,2,.7,10,.4,27,.2 
  371. 3800 DATA .1,19,.4,35,.2,100,.1 
  372. 3810 END
  373. ,.3,6,.6,15,.35
  374. 3780 DATA .65,-2,.65,6,.6,17,.9 
  375. 3790 DATA .4,2,.7,10,.4,27,.2 
  376. 3800 DATA .1,19,.4,35,.2,100,.1