home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / BASIC / FRIENDLY.ZIP / FOOTBALL.002 < prev    next >
Encoding:
Text File  |  1988-10-13  |  14.9 KB  |  181 lines
  1. 10 '7/29/82:09:00pm
  2. 20 KEY OFF:WIDTH 80:SCREEN 0,0,0:ON KEY(10) GOSUB 1670
  3. 30 COLOR 3,0:CLS:LOCATE 1,1:PRINT STRING$(80,219):FOR A=2 TO 22:LOCATE A,1:PRINT"█":LOCATE A,80:PRINT"█":NEXT:LOCATE 23,1:PRINT STRING$(80,219);:COLOR 15,0:LOCATE 2,30:PRINT"H E A D   C O A C H
  4. 40 LOCATE 5,22,O:PRINT"Would You Like Instructions ? <Y/N>":COLOR 3,0
  5. 50 GOSUB 1790:IF RP$="N" THEN 130 ELSE IF RP$<>"Y" THEN 50
  6. 60 LOCATE 3,26:PRINT"Welcome to the FRIENDLY BOWL":LOCATE 4,26:PRINT STRING$(28,"-"):LOCATE 5,13:PRINT"You are about to match wits  against the I.B.M. Personal":LOCATE 6,11:PRINT"Computer in a game of Football. You will be playing  N F L
  7. 70 LOCATE 7,11:PRINT"standard rules for the most part. One of the major changes":LOCATE 8,11:PRINT"in the rules we will play by is that a quarter is composed":LOCATE 9,11:PRINT"of  30  plays as opposed to  15  minutes.   The Two Minute
  8. 80 LOCATE 10,11:PRINT"Warning will be given after  24  plays.":LOCATE 11,13:PRINT"At the beginning of the game,you will have the option of":LOCATE 12,11:PRINT"kicking or receiving.  If you opt to receive,  you will be
  9. 90 LOCATE 13,11:PRINT"given the ball on the 20 yard line. During the 1st and 3rd":LOCATE 14,11:PRINT"quarters, you will be moving from left to right and in the":LOCATE 15,11:PRINT"2nd  and  4th quarters, just the opposite.  You may choose
  10. 100 LOCATE 16,11:PRINT"1  of  7 different offensive plays. You may punt or try to":LOCATE 17,11:PRINT"kick a  field  goal on any down,  but take some advice and":LOCATE 18,11:PRINT"do not try from more than  45  yards  out.  If you fail to
  11. 110 LOCATE 19,11:PRINT"get a first down,  I will take possession of the ball. You":LOCATE 20,11:PRINT"may now select any  1  of  5 defensives to try and keep me":LOCATE 21,11:PRINT"from scoring.
  12. 120 COLOR 15,0:LOCATE 25,28:PRINT"Strike Any Key To Continue";:COLOR 3,0:GOSUB 1790
  13. 130 CLS:XX=1:YY=1:GOSUB 1700:C$=CHR$(16):VSR=0:HSR=0:DN=1:YDS=10:QTR=1:PLS=0:M$=CHR$(17):Y$=CHR$(16)
  14. 140 COLOR 15,0:FOR J=26 TO 55:LOCATE 1,J:PRINT"█":NEXT:FOR I=1 TO 8:LOCATE I,54:PRINT"██":NEXT:FOR J=55 TO 26 STEP-1:LOCATE 8,J:PRINT"█":NEXT:FOR I=8 TO 1 STEP-1:LOCATE I,26:PRINT"██":NEXT:COLOR 3,0
  15. 150 LOCATE 3,30:PRINT"HOME     QTR  VISITORS":LOCATE 4,30:PRINT HSR TAB(39)QTR TAB(46)VSR:LOCATE 6,30:PRINT"DOWN":LOCATE 6,38:PRINT"YARDS TO GO":LOCATE 6,34:PRINT DN:LOCATE 6,49:PRINT YDS:COLOR 2,0:FOR J=11 TO 69:LOCATE 12,J:PRINT"█":NEXT
  16. 160 FOR I=13 TO 22:FOR J=65 TO 69:LOCATE I,J:PRINT"░":NEXT J,I:FOR J=69 TO 11 STEP-1:LOCATE 23,J:PRINT"█":NEXT:FOR I=22 TO 13 STEP-1:FOR J=11 TO 15:LOCATE I,J:PRINT"░":NEXT J,I:COLOR 7,0
  17. 170 GOSUB 1770:FOR I=13 TO 22:FOR J=20 TO 60 STEP 5:LOCATE I,J:PRINT"▌":NEXT J,I:COLOR 7,0:LOCATE 11,16:PRINT"0   10   20   30   40   50   40   30   20   10  0":COLOR 7,0:FOR I=1 TO 10:FOR J=1 TO 5:READ YRD(I,J):NEXT J,I
  18. 180 COLOR 15,0:LOCATE 3,1:PRINT"Would You Like To":LOCATE 4,1:PRINT"Kick Or Receive? <K/R>":COLOR 3,0
  19. 190 GOSUB 1790:IF RP$<>"R" AND RP$<>"K" THEN 190
  20. 200 HOLD$=RP$
  21. 210 FOR AA=500 TO 150 STEP -5:SOUND AA,1:NEXT:SOUND AA,0:IF HOLD$="K" THEN OPS=55:NPS=55 ELSE OPS=25:NPS=25:GOTO 540
  22. 220 LOCATE 3,60:PRINT"    It's My Ball     ":LOCATE 4,60:PRINT"On The":GOSUB 1450:COLOR 15,0:LOCATE 4,66:PRINT YLN:COLOR 3,0:LOCATE 4,70:PRINT"Yard Line "
  23. 230 COLOR 15,0:LOCATE 6,60:PRINT"Select A Defensive ":LOCATE 7,60:PRINT"Formation By Entering":LOCATE 8,60:PRINT"A Number From 1 To 5":COLOR 3,0:COLOR 15,0:LOCATE 2,31:PRINT"«»                 ":GOSUB 870:DN=1:YDS=10
  24. 240 COLOR 14,0:IF QTR=1 OR QTR=3 THEN LOCATE 17,NPS:PRINT M$
  25. 250 IF QTR=2 OR QTR=4 THEN LOCATE 17,NPS:PRINT Y$
  26. 260 COLOR 15,0:LOCATE 6,34:PRINT DN:LOCATE 6,49:PRINT YDS:COLOR 3,0:GOSUB 1450:COLOR 15,0:LOCATE 4,66:PRINT YLN:COLOR 3,0
  27. 270 GOSUB 1790:IF RP$<"0" OR RP$>"5" THEN 270
  28. 280 LOCATE 10,26:PRINT SPC(46):POSI=VAL(RP$):GOSUB 860:COLOR 7,0
  29. 290 IF OPS=20 OR OPS=25 OR OPS=30 OR OPS=35 OR OPS=40 OR OPS=45 OR OPS=50 OR OPS=55 OR OPS=60 THEN LOCATE 17,OPS:PRINT"▌" ELSE LOCATE 17,OPS:PRINT" "
  30. 300 COLOR 3,0:PLS=PLS+1
  31. 310 IF PLS=25 AND (QTR=2 OR QTR=4) THEN GOSUB 1780
  32. 320 IF PLS>30 AND QTR=4 THEN 1570
  33. 330 IF PLS>30 AND QTR=2 THEN GOSUB 1530:GOTO 210
  34. 340 IF PLS>30 THEN GOSUB 1560:GOTO 240
  35. 350 IF DN>3 AND NPS<35 AND (QTR=1 OR QTR=3) THEN GOSUB 1350:GOTO 540
  36. 360 IF DN>3 AND NPS>45 AND (QTR=2 OR QTR=4) THEN GOSUB 1350:GOTO 540
  37. 370 IF DN>3 THEN GOSUB 1190:GOTO 540
  38. 380 IF YRD(RW,POSI)=0 OR YRD(RW,POSI)=98 OR YRD(RW,POSI)<10 THEN DELAY=20:ELSE DELAY=40
  39. 390 COLOR 15,0:FOR HOLD=1 TO DELAY:SOUND 50,.5:LOCATE 10,33:PRINT"PLAY IN PROGRESS":LOCATE 10,33:PRINT"                ":SOUND 50,0:NEXT HOLD:COLOR 3,0
  40. 400 IF YRD(RW,POSI)=99 THEN GOSUB 950:GOTO 540
  41. 410 IF YRD(RW,POSI)=98 THEN GOSUB 1080:GOTO 540
  42. 420 IF YRD(RW,POSI)=100 THEN GOSUB 1120:GOTO 540
  43. 430 YDS=YDS-YRD(RW,POSI)
  44. 440 IF YDS=< 0 THEN DN=1:YDS=10 ELSE DN=DN+1
  45. 450 IF (QTR=1 OR QTR=3) THEN NPS=OPS-(YRD(RW,POSI)/2) ELSE NPS=OPS+(YRD(RW,POSI)/2)
  46. 460 IF NPS<16 AND (QTR=1 OR QTR=3) THEN GOSUB 1120:GOTO 540
  47. 470 IF NPS<16 AND (QTR=2 OR QTR=4) THEN GOSUB 1100:GOTO 540
  48. 480 IF NPS>64 AND (QTR=2 OR QTR=4) THEN GOSUB 1120:GOTO 540
  49. 490 IF NPS>64 AND (QTR=1 OR QTR=3) THEN GOSUB 1100:GOTO 540
  50. 500 OPS=NPS
  51. 510 IF QTR=1 OR QTR=3 THEN C$=M$
  52. 520 IF QTR=2 OR QTR=4 THEN C$=Y$
  53. 530 ON (SGN(YRD(RW,POSI))+2) GOSUB 1510,1470,1490:GOTO 240
  54. 540 GOSUB 1450:LOCATE 3,60:PRINT"  It's Your Ball   ":LOCATE 4,60:PRINT"On The":COLOR 15,0:LOCATE 4,66:PRINT YLN:COLOR 3,0:LOCATE 4,70:PRINT"Yard Line "
  55. 550 COLOR 15,0:LOCATE 6,60:PRINT"Select An Offensive":LOCATE 7,60:PRINT"Play By Entering A   ":LOCATE 8,60:PRINT"Number From 1 To 7  ":COLOR 3,0:COLOR 15,0:LOCATE 2,31:PRINT"                «»":GOSUB 840:DN=1:YDS=10
  56. 560 COLOR 14,0:IF QTR=1 OR QTR=3 THEN LOCATE 17,NPS:PRINT Y$
  57. 570 IF QTR=2 OR QTR=4 THEN LOCATE 17,NPS:PRINT M$
  58. 580 COLOR 15,0:LOCATE 6,34:PRINT DN:LOCATE 6,49:PRINT YDS:GOSUB 1450:LOCATE 4,66:PRINT YLN:COLOR 3,0
  59. 590 GOSUB 1790:IF RP$<"0" OR RP$>"7" THEN 590 ELSE LOCATE 10,26:PRINT SPC(46):POSI=VAL(RP$):GOSUB 860:COLOR 7,0
  60. 600 LOCATE 17,OPS:IF OPS=20 OR OPS=25 OR OPS=30 OR OPS=35 OR OPS=40 OR OPS=45 OR OPS=50 OR OPS=55 OR OPS=60 THEN PRINT"▌" ELSE PRINT" "
  61. 610 COLOR 3,0:PLS=PLS+1
  62. 620 IF PLS=25 AND (QTR=2 OR QTR=4) THEN GOSUB 1780
  63. 630 IF PLS>30 AND QTR=4 THEN 1570
  64. 640 IF PLS>30 AND QTR=2 THEN GOSUB 1530:GOTO 210
  65. 650 IF PLS>30 THEN GOSUB 1560:GOTO 560
  66. 660 IF POSI=7 THEN GOSUB 1140:GOTO 220
  67. 670 IF POSI=6 THEN GOSUB 1260:GOTO 220
  68. 680 IF YRD(RW,POSI)=0 OR YRD(RW,POSI)=98 OR YRD(RW,POSI)<10 THEN DELAY=20:ELSE DELAY=40
  69. 690 COLOR 15,0:FOR HOLD=1 TO DELAY:SOUND 50,.5:LOCATE 10,33:PRINT"PLAY IN PROGRESS":LOCATE 10,33:PRINT"                 ":SOUND 50,0:NEXT HOLD:COLOR 3,0
  70. 700 IF YRD(RW,POSI)=99 THEN GOSUB 890:GOTO 220
  71. 710 IF YRD(RW,POSI)=98 THEN GOSUB 1000:GOTO 220
  72. 720 IF YRD(RW,POSI)=100 THEN GOSUB 1050:GOTO 220
  73. 730 YDS=YDS-YRD(RW,POSI):IF YDS=<0 THEN DN=1:YDS=10 ELSE DN=DN+1
  74. 740 IF QTR=1 OR QTR=3 THEN NPS=OPS+(YRD(RW,POSI)/2) ELSE NPS=OPS-(YRD(RW,POSI)/2)
  75. 750 IF (QTR=1 OR QTR=3) AND NPS>64 THEN GOSUB 1050:GOTO 220
  76. 760 IF (QTR=2 OR QTR=4) AND NPS>64 THEN GOSUB 1020:GOTO 220
  77. 770 IF (QTR=2 OR QTR=4) AND NPS<16 THEN GOSUB 1050:GOTO 220
  78. 780 IF (QTR=1 OR QTR=3) AND NPS<16 THEN GOSUB 1020:GOTO 220
  79. 790 IF DN>4 AND (QTR=1 OR QTR=3) THEN LOCATE 10,27:PRINT"Ball Turned Over On 4th Down":BEEP:DN=1:YDS=10:C$=M$:OPS=NPS:GOTO 220
  80. 800 IF DN>4 AND (QTR=2 OR QTR=4) THEN LOCATE 10,27:PRINT"Ball Turned Over On 4th Down":BEEP:DN=1:YDS=10:C$=Y$:OPS=NPS:GOTO 220
  81. 810 OPS=NPS
  82. 820 IF QTR=1 OR QTR=3 THEN C$=Y$ ELSE C$=M$
  83. 830 ON (SGN(YRD(RW,POSI))+2) GOSUB 1510,1470,1490:GOTO 560
  84. 840 LOCATE 1,2:PRINT"    OFFENSIVE PLAY    ":PRINT"     SELECTION(1-7)     ":PRINT"   ------------------":PRINT"   1 = Line Plunge    ":PRINT"   2 = End Run        ":PRINT"   3 = Screen Pass    ":PRINT"   4 = Short Pass      "
  85. 850 PRINT"   5 = Long Bomb       ":PRINT"   6 = Field Goal      ":PRINT"   7 = Punt            ":RETURN
  86. 860 S$=RIGHT$(TIME$,2):N=VAL(S$):RANDOMIZE(N):R=RND*10:RW=FIX(R):RETURN
  87. 870 LOCATE 1,2:PRINT"DEFENSIVE FORMATIONS":PRINT"    SELECTION(1-5) ":PRINT" --------------------":PRINT"   1 = Goal Line      ":PRINT"   2 = Short Run      ":PRINT"   3 = Long Run       ":PRINT"   4 = Short Pass     "
  88. 880 PRINT"   5 = Long Pass      ":PRINT"                        ":PRINT"                        ":RETURN
  89. 890 LOCATE 10,30:PRINT"!!!! I Intercepted !!!!":DN=1:YDS=10
  90. 900 IF QTR=1 OR QTR=3 THEN NPS=OPS+5:C$=M$
  91. 910 IF QTR=2 OR QTR=4 THEN NPS=OPS-5:C$=Y$
  92. 920 IF (QTR=1 OR QTR=3) AND NPS>64 THEN NPS=55
  93. 930 IF (QTR=2 OR QTR=4) AND NPS<16 THEN NPS=25
  94. 940 OPS=NPS:RETURN
  95. 950 LOCATE 10,30:PRINT"!!! You Intercepted !!!":DN=1:YDS=10:IF QTR=1 OR QTR=3 THEN NPS=OPS-5:C$=Y$
  96. 960 IF QTR=2 OR QTR=4 THEN NPS=OPS+5:C$=M$
  97. 970 IF (QTR=1 OR QTR=3) AND NPS<16 THEN NPS=25
  98. 980 IF (QTR=2 OR QTR=4) AND NPS>64 THEN NPS=55
  99. 990 OPS=NPS:RETURN
  100. 1000 LOCATE 10,27:PRINT"!!!! Sorry, You Fumbled !!!!":BEEP:DN=1:YDS=10:IF QTR=1 OR QTR=3 THEN C$=M$ ELSE C$=Y$
  101. 1010 RETURN
  102. 1020 LOCATE 10,30:PRINT"!!!!   Safety    !!!!":DN=1:YDS=10
  103. 1030 IF QTR=1 OR QTR=3 THEN NPS=55:OPS=55:C$=M$ ELSE NPS=25:OPS=25:C$=Y$
  104. 1040 HSR=HSR+2:LOCATE 4,30:PRINT HSR:RETURN
  105. 1050 LOCATE 10,30:PRINT"!!!!  TOUCHDOWN  !!!!":DN=1:YDS=10:GOSUB 1710
  106. 1060 IF QTR=1 OR QTR=3 THEN NPS=55:OPS=55:C$=M$ ELSE NPS=25:OPS=25:C$=Y$
  107. 1070 VSR=VSR+7:LOCATE 4,47:PRINT VSR:RETURN
  108. 1080 LOCATE 10,28:PRINT"!!!! Oops , I Fumbled !!!!":BEEP:DN=1:YDS=10:IF QTR=1 OR QTR=3 THEN C$=Y$ ELSE C$=M$
  109. 1090 RETURN
  110. 1100 LOCATE 10,30:PRINT"!!!!   Safety    !!!!":DN=1:YDS=10:IF QTR=1 OR QTR=3 THEN NPS=25:OPS=25:C$=Y$ ELSE NPS=55:OPS=55:C$=M$
  111. 1110 VSR=VSR+2:LOCATE 4,47:PRINT VSR:RETURN
  112. 1120 LOCATE 10,30:PRINT"!!!!  TOUCHDOWN  !!!!":DN=1:YDS=10:IF QTR=1 OR QTR=3 THEN NPS=25:OPS=25:C$=Y$ ELSE NPS=55:OPS=55:C$=M$
  113. 1130 HSR=HSR+7:LOCATE 4,30:PRINT HSR:RETURN
  114. 1140 FOR AA=500 TO 150 STEP -5:SOUND AA,1:NEXT:SOUND AA,0:LOCATE 10,30:PRINT"!!!!  Good Punt  !!!!":DN=1:YDS=10
  115. 1150 IF QTR=1 OR QTR=3 THEN NPS=OPS+20:C$=M$ ELSE NPS=OPS-20:C$=Y$
  116. 1160 IF (QTR=1 OR QTR=3) AND NPS>64 THEN NPS=55
  117. 1170 IF (QTR=2 OR QTR=4) AND NPS<16 THEN NPS=25
  118. 1180 OPS=NPS:RETURN
  119. 1190 FOR AA=500 TO 150 STEP -5:SOUND AA,1:NEXT:SOUND AA,0
  120. 1200 LOCATE 10,30:PRINT"!!!!  Good Punt  !!!!":DN=1:YDS=10
  121. 1210 IF QTR=1 OR QTR=3 THEN NPS=OPS-20:C$=Y$ ELSE NPS=OPS+20:C$=M$
  122. 1220 IF (QTR=1 OR QTR=3) AND NPS<16 THEN NPS=25
  123. 1230 IF (QTR=2 OR QTR=4) AND NPS>64 THEN NPS=55
  124. 1240 OPS=NPS
  125. 1250 RETURN
  126. 1260 IF QTR=2 OR QTR=4 GOTO 1300
  127. 1270 IF (NPS>25 AND RW<9) OR (NPS>30 AND RW<7) OR (NPS>35 AND RW<5) OR (NPS>38 AND RW<4) THEN LOCATE 10,26:PRINT"!!!!  Field Goal Was Good  !!!!":DN=1:YDS=10:VSR=VSR+3:C$=M$:GOTO 1330
  128. 1280 LOCATE 10,26:PRINT"!!!!  Field Goal Try Wide  !!!!":IF NPS>55 THEN NPS=55:OPS=55
  129. 1290 RETURN
  130. 1300 IF (NPS<25 AND RW<9) OR (NPS<30 AND RW<7) OR (NPS>35 AND RW<5) OR (NPS<38 AND RW<4) THEN LOCATE 10,26:PRINT"!!!!  Field Goal Was Good  !!!!":DN=1:YDS=10:VSR=VSR+3:C$=Y$:GOTO 1330
  131. 1310 LOCATE 10,26: PRINT"!!!!  Field Goal Try Wide  !!!!":IF NPS<25 THEN NPS=25:OPS=25
  132. 1320 RETURN
  133. 1330 GOSUB 1710:LOCATE 4,47:PRINT VSR:IF QTR=1 OR QTR=3 THEN NPS=55:OPS=55 ELSE NPS=25:OPS=25
  134. 1340 RETURN
  135. 1350 IF QTR=2 OR QTR=4 THEN 1390
  136. 1360 IF (NPS<25 AND RW<9) OR (NPS<30 AND RW<7) OR (NPS<35 AND RW<5) THEN LOCATE 10,26:PRINT"!!!!  Field Goal Was Good  !!!!":DN=1:YDS=10:HSR=HSR+3:C$=Y$:GOTO 1420
  137. 1370 LOCATE 10,26:PRINT"!!!!  Field Goal Try Wide  !!!!":IF NPS<25 THEN NPS=25:OPS=25
  138. 1380 RETURN
  139. 1390 IF (NPS>55 AND RW<9) OR (NPS>50 AND RW<7) OR (NPS<45 AND RW<5) THEN LOCATE 10,26:PRINT"!!!!  Field Goal Was Good  !!!!":DN=1:YDS=10:HSR=HSR+3:C$=M$:GOTO 1420
  140. 1400 LOCATE 10,26:PRINT"!!!!  Field Goal Try Wide  !!!!":IF NPS>55 THEN NPS=55:OPS=55
  141. 1410 RETURN
  142. 1420 LOCATE 4,30:PRINT HSR
  143. 1430 IF QTR=1 OR QTR=3 THEN NPS=25:OPS=25 ELSE NPS=55:OPS=55
  144. 1440 RETURN
  145. 1450 YLN=(NPS-15)*2:IF YLN>50 THEN YLN=100-YLN
  146. 1460 RETURN
  147. 1470 LOCATE 10,32:IF POSI=1 OR POSI=2 THEN PRINT"No Gain On The Play" ELSE PRINT"  Incomplete Pass"
  148. 1480 RETURN
  149. 1490 LOCATE 10,27:IF POSI=1 OR POSI=2 THEN PRINT"   Gain Of" YRD(RW,POSI) "On The Play" ELSE PRINT"Pass Completed For" YRD(RW,POSI) "Yards"
  150. 1500 RETURN
  151. 1510 LOCATE 10,27:IF POSI=1 OR POSI=2 THEN PRINT"   Loss Of" ABS(YRD(RW,POSI)) "On The Play" ELSE PRINT"Quarterback Sacked:Loss Of" ABS(YRD(RW,POSI))
  152. 1520 RETURN
  153. 1530 QTR=QTR+1:PLS=1:LOCATE 9,32:PRINT"                   ":LOCATE 3,60:PRINT"End Of The Half ":LOCATE 4,60:PRINT SPC(19):LOCATE 4,39:PRINT QTR:GOSUB 1720
  154. 1540 IF HOLD$="K" THEN HOLD$="R" ELSE HOLD$="K"
  155. 1550 RETURN
  156. 1560 QTR=QTR+1:PLS=0:LOCATE 3,60:PRINT"End Of The Quarter":LOCATE 4,39:PRINT QTR:GOSUB 1750:NPS=80-OPS:OPS=NPS:RETURN
  157. 1570 CLS:LOCATE 4,28:PRINT"Time Is Up; The Game Is Over"
  158. 1580 IF HSR>VSR THEN LOCATE 7,28:PRINT"You Lost By A Score Of" HSR "To" VSR:LOCATE 8,31:PRINT"Better Luck Next Time"
  159. 1590 IF VSR>HSR THEN LOCATE 7,28:PRINT"You Won By A Score Of" VSR "To" HSR:LOCATE 8,31:PRINT"Congratulations  !!!!"
  160. 1600 COLOR 15,0:LOCATE 10,25:PRINT"Would You Like To Play Again? <Y/N>":COLOR 3,0
  161. 1610 GOSUB 1790:IF RP$="Y" THEN RESTORE:GOTO 130 ELSE IF RP$<>"N" THEN 1610
  162. 1620 CLEAR:ON ERROR GOTO 1630:RUN"MENU2.002"
  163. 1630 CLEAR:ON ERROR GOTO 1640:RUN"MENU1.001"
  164. 1640 RUN"MENU3.003
  165. 1650 DATA 0,2,14,10,0,2,98,0,8,40,8,4,8,4,99,-2,-4,0,99,0,6,10,0,6,50,00,6,12,0,0,4,-2,-8,18,0,0,16,-2,0,99,14,30,6,0,0,2,0,4,2,0
  166. 1660 DATA 0,2,14,10,0,2,98,6,8,40,8,4,8,4,99,-2,-4,0,99,0,6,10,0,6,50,00,6,12,0,0,4,-2,-8,18,0,0,16,-2,0,99,14,30,6,0,0,2,0,4,2,0
  167. 1670 KEY(10) OFF:XX=CSRLIN:YY=POS(0):LOCATE 25,1:PRINT SPC(79);:LOCATE 25,20
  168. 1680 COLOR 15,0:PRINT"Do You Wish To Leave This Game? <Y/N>";:COLOR 3,0
  169. 1690 GOSUB 1790:IF RP$="Y" THEN 1620 ELSE IF RP$<>"N" THEN 1690
  170. 1700 LOCATE 25,1:PRINT SPC(79);:LOCATE 25,25:COLOR 0,7:PRINT" Strike <F10> To Leave This Game ";:COLOR 3,0:LOCATE XX,YY:KEY(10) ON:RETURN
  171. 1710 PLAY"MB MN T220 O3":PLAY"O3 E2 D#4 E4 F8 F4 E8 F2":PLAY"O3 F8 F4 F8 E4 F4 G8 G4 F#8 G2":PLAY"O3 A4 O4 C4 O3 B4 A4 G4 E4 C4 D4":PLAY"O3 E8 G4 F8 E4 D4 C2. MF":RETURN
  172. 1720 PLAY"MN T240":PLAY"O1 C2 O0 B4. O1 C8 O0 A4 O1 C2 D4 E-4 E4 F4 F#4 G4 P4 O0G2":PLAY"O3 E4 P8 E8 E4 E4 E4 P8 E8 F4 F4 D8 C#8 MS D8 E8 D4 C4":PLAY"O3 ML C32 O2 B16. MS B8 A4 B4 G4 MNO3G4 P8 G8 G4 G4"
  173. 1730 PLAY"O3 G4 P8 G8 G#4 G#4 ML A8 MN G#8 MS A8 O4C8O3 MNB4 A4 G#2.":PLAY"O3 G#4 G4 P8 G8 MS O4 C4 P8 O3 A8 G4 F#4 G4 E4 MN D4":PLAY"O2 G8 F#8 G8 F#8 G4 O3 D4 O2 G8 F#8 G8 F#8 G4 O3":PLAY"O3 G4 P8 G8 MS O4 C4 P8 O3 A8 G4 F#4 G4 E-4 MN D4"
  174. 1740 PLAY"O2 F#8 E8 F#8 E8 F#4 G4 P4 G4.F8 E2 A4.G8 O1 B2 A2":PLAY"O1 G2 O2 F2 E2 D4.E8 F4 A2 O3 C4 D2 C2 O2 E1 D2":PLAY"O3 G4.F8 E2 A4. G8 O2 B2 A2 G2 O3F2 E2 D4.E8 F4 A4 O4D4.C8":PLAY"O3 E4 G4 C4.E8 D1 C1":RETURN
  175. 1750 PLAY "MN T200":PLAY "O2 C8 F8 A8 O3 C4 O2A8 O3C4.":FOR I=450  TO 300  STEP -10:SOUND I,.3:NEXT I :SOUND 32600,5:PLAY "O2 C#8 F#8 A#8 O3 C#4 O2A#8 O3C#4.":FOR I=475  TO 325  STEP -10:SOUND I,.3:NEXT I :SOUND 32600,5
  176. 1760 PLAY "O2 D8 G8 B8 O3 D4 O2B8 O3D4.":FOR I=500  TO 350  STEP -10:SOUND I,.3:NEXT I :SOUND 32600,5:RETURN
  177. 1770 PLAY "MB MN T180":PLAY "O2 C8.C16 F8 C8 F8 A8 F4 F8.F16 A8 F8 A8 O3C8 O2 A4 F8.A16 O3 C4  O2 A8.F16 C4 C8.C16 F4 F8.F16 F4 MF":RETURN
  178. 1780 LOCATE 9,32:COLOR 31,0:PRINT"Two Minute Warning";:BEEP:RETURN
  179. 1790 IF INKEY$<>"" THEN 1790
  180. 1800 DEF SEG=&H40:POKE &H17,(PEEK(&H17) OR 96):RP$=INKEY$:IF RP$="" THEN 1800 ELSE DEF SEG:RETURN
  181.