home *** CD-ROM | disk | FTP | other *** search
/ Generous Efforts of Many / gemcd.zip / GEM.CD.B.po / GAMES:BASIC.3 / FOOTBALL.bas < prev    next >
BASIC Source File  |  2010-05-14  |  15KB  |  369 lines
  1. 1  REM  FOOTBALL  12/27/81
  2. 2  REM        
  3. 3  REM  THE PROGRAM ALLOWS TWO      PEOPLE TO PLAY FOOTBALL
  4. 4  REM      
  5. 5  REM      
  6. 6  REM  APPLE II W/APPLESOFT
  7. 7  REM        
  8. 8  REM  RANDY COEN
  9. 9  REM        
  10. 10  REM 
  11. 11  REM  ***********************
  12. 13  REM  *                     *
  13. 14  REM  *  SAN MATEO COUNTY   *
  14. 15  REM  * OFFICE OF EDUCATION *
  15. 16  REM  *          &          *
  16. 17  REM  *   COMPUTER-USING    *
  17. 18  REM  *      EDUCATORS      *
  18. 19  REM  *                     *
  19. 20  REM  *      SOFTSWAP       *
  20. 21  REM  *                     *
  21. 22  REM  *   333 MAIN STREET   *
  22. 23  REM  *     REDWOOD CITY    *
  23. 24  REM  *       CA 94063      *
  24. 25  REM  *   (415) 363-5472    *
  25. 26  REM  *                     *
  26. 28  REM  *                     *
  27. 29  REM  ***********************
  28. 30  REM  *PROGRAM MAY BE COPIED*
  29. 31  REM  *FOR EDUCATIONAL USE &*
  30. 32  REM  *MAY NOT BE SOLD.COPY-*
  31. 33  REM  *RIGHT 1982 CUE, INC. *
  32. 34  REM  ***********************
  33. 35  GOTO 100
  34. 50  VTAB 24: PRINT "PRESS <RETURN> TO GO ON, <ESC> TO END ";
  35. 52  GET IN$: IF  LEN(IN$) <1  THEN 52
  36. 54  IF  ASC(IN$) = (27)  THEN 3350
  37. 55  IF  ASC(IN$) < >13  THEN 52
  38. 56  PRINT : RETURN 
  39. 100  HOME 
  40. 110  VTAB 12: PRINT "                FOOTBALL                                   BY                                  RANDY COEN"
  41. 120  VTAB 18: PRINT "YOU CAN PLAY A GAME OF FOOTBALL AGAINST THE COMPUTER."
  42. 130  GOSUB 50
  43. 140  HOME 
  44. 150  REM  SETTING VARIBLES
  45. 160 DM = 0: REM  DOWN MARKER
  46. 170 YDLN = 20: REM  YARD LINE
  47. 180 YTG = 40: REM  YARDS TO GO
  48. 190 PLIQ = 11: REM  # OF PLAYS IN QUARTER
  49. 200 T1S = 0: REM  SCORE OF TEAM # 1
  50. 210 T2S = 0: REM  SCORE OF TEAM # 2
  51. 220 QTR = 1: REM  QUARTER
  52. 230  PRINT "     THIS GAME IS DESIGNED TO SIMULATE"
  53. 240  PRINT "A FOOTBALL GAME. THE MAIN PURPOSE OF "
  54. 250  PRINT "THE GAME IS TO TEACH YOU ABOUT OFFENSES"
  55. 260  PRINT "AND DEFENSES. THROUGH THE GAME YOU WILL"
  56. 270  PRINT "BE ABLE TO SEE HOW DIFFERENT PLAYS WORK"
  57. 280  PRINT "IN DIFFERENT SITUATIONS. THIS GAME IS "
  58. 290  PRINT "IN SCALE AND IS SOMEWHAT SMALLER THAN"
  59. 300  PRINT "A REGULAR FIELD, BUT THE PLAYS ARE LIFE"
  60. 310  PRINT "LIKE IN THEIR CREATION."
  61. 320  PRINT "     A FEW POINTS SHOULD BE MADE.FIRST,"
  62. 330  PRINT "THERE ARE NO KICK-OFFS, THE BALL WILL"
  63. 340  PRINT "START ON THE 20 YARD LINE. NEXT, YOU"
  64. 350  PRINT "CAN'T PUNT, SO MAKE THE MOST OF YOUR "
  65. 360  PRINT "PLAYS. ANOTHER THING, YOU ONLY GET FOUR"
  66. 370  PRINT "DOWNS. IF YOU MAKE A TOUCHDOWN, THEN "
  67. 380  PRINT "THE EXTRA POINT IS AUTOMATICALLY GOOD."
  68. 390  PRINT "THERE ARE ONLY TEN PLAYS PER QUARTER."
  69. 400  PRINT "I HOPE YOU ENJOY THE GAME.  GOOD LUCK."
  70. 410  REM  GET STATEMENT TO CONTINUE
  71. 420  GOSUB 50
  72. 430  SPEED= 255
  73. 440  TEXT : HOME : VTAB 9: PRINT "TEAM #1, TYPE IN YOUR TEAM'S NAME": INPUT " => ";B$
  74. 450  IF B$ = ""  THEN 440
  75. 460  TEXT : HOME : VTAB 9: PRINT "TEAM #2, TYPE IN YOUR TEAM'S NAME": INPUT " => ";C$
  76. 470 C$ =  LEFT$(C$,9):B$ =  LEFT$(B$,9): IF C$ = B$  THEN 440
  77. 480  IF C$ = ""  THEN 460
  78. 490  GOSUB 1420: REM  SUBROUTINE FOR COIN FLIP
  79. 500  GOSUB 850: REM  SUBROUTINE FOR SCOREBOARD
  80. 510  GOSUB 1120: REM  OFFENSIVE PLAYS 
  81. 520  GOSUB 1970 REM  DEFENSIVE PLAYS
  82. 530  GOSUB 570: REM  FIELD
  83. 540  GOSUB 1580: REM  PLAY OUTCOMES
  84. 550  GOSUB 2150: REM  BALLMOVEMENT
  85. 560  GOTO 500
  86. 570  REM  FIELD GRAPHICS
  87. 580  HOME : GR 
  88. 590  COLOR= 12
  89. 600  REM  BOUNDARIES TO FIELD
  90. 610  VLIN 0,25 AT 0
  91. 620  HLIN 39,0 AT 0
  92. 630  VLIN 0,25 AT 39
  93. 640  HLIN 0,39 AT 25
  94. 650  COLOR= 4: REM   YARD LINES 
  95. 660  VLIN 0,25 AT 19
  96. 670  VLIN 0,25 AT 9: REM   10 YD 
  97. 680  VLIN 0,25 AT 14: REM   20 YD
  98. 690  VLIN 0,25 AT 24: REM   20 YD
  99. 700  VLIN 0,25 AT 29:
  100. 710  REM  END ZONE LINES
  101. 720  COLOR= 9
  102. 730  VLIN 0,25 AT 34
  103. 740  VLIN 0,25 AT 4
  104. 750  COLOR= 7: REM   END ZONES
  105. 760  HLIN 0,4 AT 10
  106. 770  HLIN 0,4 AT 15
  107. 780  HLIN 0,4 AT 5
  108. 790  HLIN 0,4 AT 20
  109. 800  HLIN 34,39 AT 4
  110. 810  HLIN 34,39 AT 15
  111. 820  HLIN 34,39 AT 20
  112. 830  HLIN 34,39 AT 10
  113. 840  RETURN 
  114. 850  HOME : TEXT : REM  SCOREBOARD
  115. 860 PLIQ = PLIQ -1: REM  PLAY COUNTER TO QUARTER
  116. 870  IF PLIQ = 0  THEN PLIQ = 11:QTR = QTR +1
  117. 880 DM = DM +1: REM  DOWN MARKER
  118. 890  IF DM = 5  THEN TEAM = 11 -TEAM:DM = 1:YDLN = 60 -YDLN
  119. 900 LL = YDLN
  120. 910  IF YDLN >30  THEN LL = 60 -LL
  121. 920 YTG = 60 -YDLN
  122. 930  HOME : HTAB 15: PRINT "SCOREBOARD"
  123. 940  VTAB 5: PRINT "DOWN "DM
  124. 950  VTAB 5: HTAB 21: PRINT "BALL ON ";LL;" YARD LINE"
  125. 960  VTAB 7: PRINT "YARDS TO GO: "YTG
  126. 970  VTAB 7: HTAB 21: PRINT PLIQ" PLAYS TO GO"
  127. 980  VTAB 9
  128. 990  PRINT "THE ";
  129. 1000  IF TEAM = 1  THEN  PRINT B$;
  130. 1010  IF TEAM = 10  THEN  PRINT C$;
  131. 1020  PRINT " HAVE THE BALL"
  132. 1030  VTAB 12: PRINT "SCORE:"
  133. 1040  PRINT "======"
  134. 1050  VTAB 15: PRINT B$": "T1S
  135. 1060  PRINT : PRINT C$": "T2S
  136. 1070  VTAB 14: HTAB 26: PRINT "QUARTER"
  137. 1080  VTAB 16: HTAB 29: PRINT QTR
  138. 1090  GOSUB 50
  139. 1100  IF QTR = 5  THEN  GOTO 3350
  140. 1110  RETURN 
  141. 1120  REM  OFFENSIVE PLAYS
  142. 1130  HOME : TEXT 
  143. 1140 H$ = "1.DIVE"
  144. 1150 I$ = "2.OFF TACKLE"
  145. 1160 J$ = "3.END SWEEP"
  146. 1170 K$ = "4.SHORT PASS"
  147. 1180 L$ = "5.LONG PASS"
  148. 1190 M$ = "6.Q.B. OPTION"
  149. 1200 N$ = "7.TRICK PLAY"
  150. 1210  REM  PUTTING PLAYS ON THE SCREEN
  151. 1220  HTAB 12: VTAB 1: PRINT "OFFENSIVE PLAYS"
  152. 1230  VTAB 3: PRINT H$"-A RUN USE TO GET SHORT YARDAGE,": VTAB 4: PRINT "USUALLY OVER THE CENTER."
  153. 1240  VTAB 6: PRINT I$"-A RUN THAT GOES THROUGH THE": VTAB 7: PRINT "LINE, THAT CAN MAKE GOOD YARDAGE."
  154. 1250  VTAB 9: PRINT J$"-A RUN THAT GOES AROUND THE": VTAB 10: PRINT "END.THIS RUN CAN GAIN OR LOSE YARDAGE."
  155. 1260  VTAB 12: PRINT K$"-A SHORT PASS TO THE TIGHT-": VTAB 13: PRINT "END OR RUNNING BACK,USUALLY A SAFE PLAY"
  156. 1270  VTAB 15: PRINT L$"-A PASS WHICH HAS MORE": VTAB 16: PRINT "RISK,BUT GIVES LONG YARDAGE WHEN GOOD."
  157. 1280  VTAB 18: PRINT M$"-THE QUARTERBACK HAS THE": VTAB 19: PRINT "OPTION OF RUNNING OR PASSING THE BALL."
  158. 1290  VTAB 21: PRINT N$"-THIS PLAY IS RISKY MOST OF": VTAB 22: PRINT "TIME,BUT CAN GIVE YOU A BIG GAIN ALSO."
  159. 1300  VTAB 23: PRINT "WHAT PLAY DO YOU WANT?  (1-7)";: GET ZZ$
  160. 1310  REM  CHECK PLAY
  161. 1320  IF  VAL(ZZ$) >0  AND  VAL(ZZ$) <8  THEN  RETURN 
  162. 1330  HOME : PRINT "PLEASE TYPE IN A NUMBER FROM 1 TO 7."
  163. 1340  PRINT : PRINT H$
  164. 1350  PRINT : PRINT I$
  165. 1360  PRINT : PRINT J$
  166. 1370  PRINT : PRINT K$
  167. 1380  PRINT : PRINT L$
  168. 1390  PRINT : PRINT M$
  169. 1400  PRINT : PRINT N$
  170. 1410  GOTO 1300
  171. 1420  REM  COIN FLIP TO DECIDE WHO GETS THE BALL FIRST
  172. 1430  TEXT : HOME : VTAB 5: PRINT "HELLO TEAMS, I'M YOUR REFEREE TODAY"
  173. 1440  VTAB 7: PRINT "AND WE ARE GOING TO DECIDE WHO GETS"
  174. 1450  VTAB 9: PRINT "THE BALL FIRST. CAPTAIN OF THE "B$
  175. 1460  VTAB 11: PRINT "WOULD YOU PLEASE TYPE IN (H FOR HEADS)"
  176. 1470  VTAB 13: PRINT "OR (T FOR TAILS).";: GET D$
  177. 1480  IF D$ = "T"  THEN 1510
  178. 1490  IF D$ = "H"  THEN 1510
  179. 1500  GOTO 1420
  180. 1510 XX% =  RND(1) *100
  181. 1520 DD$ = "H"
  182. 1530  IF XX% >50  THEN DD$ = "T"
  183. 1540  IF D$ = DD$  THEN  HOME : VTAB 12: PRINT "YOU HAVE WON THE TOSS AND ARE ON": PRINT : PRINT  TAB( 10);"OFFENSE":TEAM = 1:B = 14: GOTO 1560
  184. 1550  HOME : VTAB 12: PRINT "YOU HAVE LOST THE TOSS AND ARE ON": PRINT : PRINT  TAB( 10);"DEFENSE":TEAM = 10:B = 24
  185. 1560  GOSUB 50
  186. 1570  RETURN 
  187. 1580  REM  PLAY OUTCOMES
  188. 1590  REM  OD=1 + DIRECTION
  189. 1600  REM  OD=10 - DIRECTION
  190. 1610  IF ZZ$ = "1"  AND YY$ = "1"  THEN  PRINT "THE FULLBACK IS STOPPED COLD, NO GAIN.": RETURN 
  191. 1620  IF ZZ$ = "1"  AND YY$ = "2"  THEN  PRINT "THE FULLBACK GOES OVER THE CENTER FOR": PRINT "TWO YARDS.":X = 1: RETURN 
  192. 1630  IF ZZ$ = "1"  AND YY$ = "4"  THEN  PRINT "THE FULLBACK IS CAUGHT FOR A TWO YARD": PRINT "LOSS.":X =  -1: RETURN 
  193. 1640  IF ZZ$ = "1"  AND YY$ = "3"  THEN  PRINT "THE FULLBACK BREAKS INTO THE DEFENSIVE": PRINT "BACKFIELD FOR 6 YARDS.":X = 3: RETURN 
  194. 1650  IF ZZ$ = "1"  AND YY$ = "5"  THEN  PRINT "THE FULLBACK IS STOPPED FOR NO GAIN.": RETURN 
  195. 1660  IF ZZ$ = "2"  AND YY$ = "1"  THEN  PRINT "THE HALFBACK HITS THE LINE FOR 4 YARDS.":X = 2: RETURN 
  196. 1670  IF ZZ$ = "2"  AND YY$ = "2"  THEN  PRINT "THE HALFBACK BREAKS A TACKLE FOR 6 YARDS.":X = 3: RETURN 
  197. 1680  IF ZZ$ = "2"  AND YY$ = "3"  THEN  PRINT "THE HALFBACK GETS INTO THE SECONDARY": PRINT "FOR 10 YARDS.":X = 5: RETURN 
  198. 1690  IF ZZ$ = "2"  AND YY$ = "4"  THEN  PRINT "THE HALFBACK IS HIT FOR NO GAIN.": RETURN 
  199. 1700  IF ZZ$ = "2"  AND YY$ = "5"  THEN  PRINT "THE HALFBACK TAKES A SHOT FOR A 4": PRINT "YARD LOSS.":X =  -2: RETURN 
  200. 1710  IF ZZ$ = "3"  AND YY$ = "1"  THEN  PRINT "THE HALFBACK FIGHTS FOR 4 YARDS": PRINT "AROUND THE END.":X = 2: RETURN 
  201. 1720  IF ZZ$ = "3"  AND YY$ = "2"  THEN  PRINT "THE HALFBACK ROLLS FOR 6 YARDS.":X = 3: RETURN 
  202. 1730  IF ZZ$ = "3"  AND YY$ = "3"  THEN  PRINT "THE DEFENSE LOOKS FOR THE PASS AS THE": PRINT "HALFBACK TURNS THE CORNER FOR 12 YARDS.":X = 6: RETURN 
  203. 1740  IF ZZ$ = "3"  AND YY$ = "4"  THEN  PRINT "THE LINEBACKER BREAKS THROUGH TO GRAB": PRINT "THE HALFBACK FOR A 6 YARD LOSS.":X =  -3: RETURN 
  204. 1750  IF ZZ$ = "3"  AND YY$ = "5"  THEN  PRINT "THE HALFBACK FIGHTS HIS WAY FOR 4 YARDS.":X = 2: RETURN 
  205. 1760  IF ZZ$ = "4"  AND YY$ = "1"  THEN  PRINT "PASS COMPLETE TO THE TIGHT-END FOR": PRINT "6 YARDS.":X = 3: RETURN 
  206. 1770  IF ZZ$ = "4"  AND YY$ = "2"  THEN  PRINT "THE PASS IS KNOCKED DOWN BY THE OUTSIDE": PRINT "LINEBACKER, NO GAIN.": RETURN 
  207. 1780  IF ZZ$ = "4"  AND YY$ = "3"  THEN  PRINT "LINEBACKER TACKLES THE END FOR NO GAIN.": RETURN 
  208. 1790  IF ZZ$ = "4"  AND YY$ = "4"  THEN  PRINT "TIGHT-END CATCHES THE BALL FOR 18 YARDS.":X = 9: RETURN 
  209. 1800  IF ZZ$ = "4"  AND YY$ = "5"  THEN  PRINT "DEFENSIVE LINE KNOCKS THE BALL DOWN,": PRINT "INCOMPLETE PASS.": RETURN 
  210. 1810  IF ZZ$ = "5"  AND YY$ = "1"  THEN  PRINT "THE PASS IS CAUGHT BY THE SPLIT-END": PRINT "FOR 20 YARDS.":X = 10: RETURN 
  211. 1820  IF ZZ$ = "5"  AND YY$ = "2"  THEN  PRINT "THE PASS IS INCOMPLETE.": RETURN 
  212. 1830  IF ZZ$ = "5"  AND YY$ = "3"  THEN  PRINT "THE QUARTERBACK RUNS OUT OF TIME AND IS": PRINT "HIT FOR A LOSS OF 16 YARDS.":X =  -8: RETURN 
  213. 1840  IF ZZ$ = "5"  AND YY$ = "4"  THEN  PRINT "THE QUARTERBACK IS NAILED FOR A 10": PRINT "YARD LOSS.":X =  -5: RETURN 
  214. 1850  IF ZZ$ = "5"  AND YY$ = "5"  THEN  PRINT "THE QUARTERBACK OVERRTHROWS HIS RECEIVER.": RETURN 
  215. 1860  IF ZZ$ = "6"  AND YY$ = "1"  THEN  PRINT "THE QUARTERBACK KEEPS THE BALL FOR": PRINT "6 YARDS.":X = 3: RETURN 
  216. 1870  IF ZZ$ = "6"  AND YY$ = "2"  THEN  PRINT "THE LINEBACKER BREAKS UP THE PLAY": PRINT "FOR NO GAIN.": RETURN 
  217. 1880  IF ZZ$ = "6"  AND YY$ = "3"  THEN  PRINT "THE QUARTERBACK RUNS AROUND THE END": PRINT "FOR 4 YARDS.":X = 2: RETURN 
  218. 1890  IF ZZ$ = "6"  AND YY$ = "4"  THEN  PRINT "DEFENSE SACKS THE QUARTERBACK": PRINT "FOR A 6 YARD LOSS.":X =  -3: RETURN 
  219. 1900  IF ZZ$ = "6"  AND YY$ = "5"  THEN  PRINT "QUARTERBACK THROWS A 12 YARD PASS": PRINT "TO THE END.":X = 6: RETURN 
  220. 1910  IF ZZ$ = "7"  AND YY$ = "1"  THEN  PRINT "A FLEA-FLICKER WORKS FOR A 30 YARD GAIN.":X = 15: RETURN 
  221. 1920  IF ZZ$ = "7"  AND YY$ = "2"  THEN  PRINT "QUARTERBACK LOSES CONTROL OF THE BALL,": PRINT "HE GETS IT BACK BUT FOR A 16 YARD LOSS.":X =  -8: RETURN 
  222. 1930  IF ZZ$ = "7"  AND YY$ = "3"  THEN  PRINT "BALL BOUNCES OFF THE SPLIT-END'S HEAD,": PRINT "BUT IS CAUGHT BY THE OFFENSE. 18 YARDS.":X = 9: RETURN 
  223. 1940  IF ZZ$ = "7"  AND YY$ = "4"  THEN  PRINT "DEFENDER FALLS DOWN, BUT THE END DROPS": PRINT "THE BALL, NO GAIN.": RETURN 
  224. 1950  IF ZZ$ = "7"  AND YY$ = "5"  THEN  PRINT "QUARTERBACK THROWS THE BALL, BUT": PRINT "IT HITS THE GOALPOST, NO GAIN.": RETURN 
  225. 1960  FOR G = 1 TO 1500: NEXT G: RETURN 
  226. 1970  HOME : REM  DEFENSIVE PLAYS
  227. 1980 O$ = "1.FIVE-THREE"
  228. 1990 P$ = "2.THREE-FOUR"
  229. 2000 Q$ = "3.PREVENT"
  230. 2010 R$ = "4.BLITZ"
  231. 2020 S$ = "5.GOAL LINE"
  232. 2030  REM  TELLING WHAT EACH PLAY DOES
  233. 2040  HTAB 12: PRINT "DEFENSIVE PLAYS"
  234. 2050  VTAB 3: PRINT O$"-WELL BALANCED DEFENSE, BUT": VTAB 4: PRINT "LOOKS FOR THE RUN."
  235. 2060  VTAB 6: PRINT P$"-WELL BALANCED DEFENSE, BUT": VTAB 7: PRINT "CONTAINS THE SHORT PASS."
  236. 2070  VTAB 9: PRINT Q$"-A DEFENSE AGAINST THE": VTAB 10: PRINT "LONG PASS."
  237. 2080  VTAB 12: PRINT R$"-DEFENSE SENDS A LINEBACKER TO": VTAB 13: PRINT "RUSH THE QUARTERBACK. IT CAN CAUSE BIG": VTAB 14: PRINT "LOSSES OR CAN BE HIT FOR LARGE GAINS."
  238. 2090  VTAB 16: PRINT S$"-A DEFENSE TO STOP A RUN BY": VTAB 17: PRINT "JAMMING UP THE MIDDLE, AROUND THE": VTAB 18: PRINT "CENTER."
  239. 2100  VTAB 20: PRINT "WHICH DEFENSE DO YOU WANT? (1-5)";: GET YY$
  240. 2110  REM  CHECKING VALIDITY OF PLAYS
  241. 2120  IF  VAL(YY$) >0  AND  VAL(YY$) <6  THEN  RETURN 
  242. 2130  HOME : PRINT "PLEASE TYPE IN ONE OF THESE PLAYS"
  243. 2140  PRINT : PRINT O$: PRINT : PRINT P$: PRINT : PRINT Q$: PRINT : PRINT R$: PRINT : PRINT S$: GOTO 2100
  244. 2150  REM  BALL MOVEMENT
  245. 2160  REM  SETTING BALL POSITION
  246. 2170  COLOR= 15
  247. 2180  PLOT B,12
  248. 2190  FOR G = 1 TO 500: NEXT G
  249. 2200  COLOR= 0
  250. 2210  PLOT B,12
  251. 2220  COLOR= 15
  252. 2230 YDLN = YDLN +2 *X
  253. 2240  IF TEAM = 10  THEN X =  -X
  254. 2250 B = B +X
  255. 2260  IF B <5  THEN  GOSUB 2320: GOTO 2290
  256. 2270  IF B >33  THEN  GOSUB 2320: GOTO 2290
  257. 2280  PLOT B,12
  258. 2290 X = 0
  259. 2300  REM 
  260. 2310  GOTO 3340
  261. 2320  GR : REM  GRAPHICS FOR SCORE
  262. 2330  HOME 
  263. 2340  REM  S
  264. 2350  COLOR= 2
  265. 2360  FOR G = 5 TO 1  STEP  -1
  266. 2370  PLOT G +2,10
  267. 2380  FOR J = 1 TO 100: NEXT J
  268. 2390  NEXT G
  269. 2400  FOR G = 1 TO 6.
  270. 2410  PLOT 3,G +9
  271. 2420  FOR J = 1 TO 100: NEXT J
  272. 2430  NEXT G
  273. 2440  FOR G = 1 TO 5
  274. 2450  PLOT G +2,15
  275. 2460  FOR J = 1 TO 100: NEXT J
  276. 2470  NEXT G
  277. 2480  FOR G = 1 TO 6
  278. 2490  PLOT 7,G +14
  279. 2500  FOR J = 1 TO 100: NEXT J
  280. 2510  NEXT G
  281. 2520  FOR G = 5 TO 1  STEP  -1
  282. 2530  PLOT G +2,20
  283. 2540  FOR J = 1 TO 100: NEXT J
  284. 2550  NEXT G
  285. 2560  REM  C
  286. 2570  COLOR= 9
  287. 2580  FOR G = 5 TO 1  STEP  -1
  288. 2590  PLOT G +10,10
  289. 2600  FOR J = 1 TO 100: NEXT J
  290. 2610  NEXT G
  291. 2620  FOR G = 1 TO 11
  292. 2630  PLOT 11,G +9
  293. 2640  FOR J = 1 TO 100: NEXT J
  294. 2650  NEXT G
  295. 2660  FOR G = 1 TO 5
  296. 2670  PLOT G +10,20
  297. 2680  FOR J = 1 TO 100: NEXT J
  298. 2690  NEXT G
  299. 2700  REM  O
  300. 2710  COLOR= 4
  301. 2720  FOR G = 1 TO 5
  302. 2730  PLOT G +18,10
  303. 2740  FOR J = 1 TO 100: NEXT J
  304. 2750  NEXT G
  305. 2760  FOR G = 1 TO 11
  306. 2770  PLOT 23,G +9
  307. 2780  FOR J = 1 TO 100: NEXT J
  308. 2790  NEXT G
  309. 2800  FOR G = 5 TO 1  STEP  -1
  310. 2810  PLOT G +18,20
  311. 2820  FOR J = 1 TO 100: NEXT J
  312. 2830  NEXT G
  313. 2840  FOR G = 11 TO 1  STEP  -1
  314. 2850  PLOT 19,G +9
  315. 2860  FOR J = 1 TO 100: NEXT J
  316. 2870  NEXT G
  317. 2880  REM  R
  318. 2890  COLOR= 9
  319. 2900  FOR G = 11 TO 1  STEP  -1
  320. 2910  PLOT 27,G +9
  321. 2920  FOR J = 1 TO 100: NEXT J
  322. 2930  NEXT G
  323. 2940  FOR G = 1 TO 5
  324. 2950  PLOT G +26,10
  325. 2960  FOR J = 1 TO 100: NEXT J
  326. 2970  NEXT G
  327. 2980  FOR G = 1 TO 6
  328. 2990  PLOT 31,G +9
  329. 3000  FOR J = 1 TO 100: NEXT J
  330. 3010  NEXT G
  331. 3020  FOR G = 5 TO 1  STEP  -1
  332. 3030  PLOT G +26,15
  333. 3040  FOR J = 1 TO 100: NEXT J
  334. 3050  NEXT G
  335. 3060  FOR G = 1 TO 6
  336. 3070  PLOT 30,G +14
  337. 3080  FOR J = 1 TO 100: NEXT J
  338. 3090  NEXT G
  339. 3100  REM  E
  340. 3110  COLOR= 2
  341. 3120  FOR G = 5 TO 1  STEP  -1
  342. 3130  PLOT G +34,10
  343. 3140  FOR J = 1 TO 100: NEXT J
  344. 3150  NEXT G
  345. 3160  FOR G = 1 TO 11
  346. 3170  PLOT 35,G +9
  347. 3180  FOR J = 1 TO 100: NEXT J
  348. 3190  NEXT G
  349. 3200  FOR G = 1 TO 5
  350. 3210  PLOT G +34,20
  351. 3220  FOR J = 1 TO 100: NEXT J
  352. 3230  NEXT G
  353. 3240  FOR G = 1 TO 3
  354. 3250  PLOT G +34,15
  355. 3260  FOR J = 1 TO 100: NEXT J
  356. 3270  NEXT G
  357. 3280  IF TEAM = 1  AND B <5  THEN T2S = T2S +2:TEAM = 10:B = 24
  358. 3290  IF TEAM = 1  AND B >33  THEN T1S = T1S +7:TEAM = 10:B = 24
  359. 3300  IF TEAM = 10  AND B >33  THEN T1S = T1S +2:TEAM = 1:B = 14
  360. 3310  IF TEAM = 10  AND B <5  THEN T2S = T2S +7:TEAM = 1:B = 14
  361. 3320 DM = 0:YTG = 40:YDLN = 20
  362. 3330  RETURN 
  363. 3340  GOSUB 50: RETURN 
  364. 3350  REM  END
  365. 3360  TEXT : HOME 
  366. 3370  VTAB 12: PRINT B$" "T1S
  367. 3380  VTAB 12: HTAB 20: PRINT C$" "T2S
  368. 3390  VTAB 16: PRINT "THANKS FOR PLAYING FOOTBALL."
  369. 3400  PRINT  CHR$(4)"-STARTUP"