home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / SUBJECT-SHOOT (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  5.9 KB  |  184 lines
  1. 1 POKE53280,0:POKE53281,0:POKE646,7:H=1924:CL=54272:F=0:GOSUB4000:GOSUB3000
  2. 2 GOSUB1000
  3. 3 PRINT"[147]"
  4. 5 PRINT""A$
  5. 10 POKE53280,0:POKE53281,0:POKE646,7
  6. 30 XV=(PEEK(56320)AND15)
  7. 40 JV=15-XV:KV=(PEEK(56320)AND16)
  8. 50 IFJV=4THEND=-1
  9. 60 IFJV=8THEND=1
  10. 62 IFKV=0THEND=-40:H1=H:GOSUB390
  11. 65 IFK1=2THENGOSUB900
  12. 100 H=H+D:IFH<1904THENH=1904
  13. 200 IFH>1943THENH=1943
  14. 300 POKEH-D,32:POKEH,65:POKEH+CL,1
  15. 310 FORT=1TO25:NEXTT:D=0:GOTO30
  16. 390 H=H+D:H=H-40
  17. 400 IFH>=S1ANDH<=S2THENGOTO500
  18. 402 IFH>=1184ANDH<S2THENGOSUB800
  19. 403 IFH>S2ANDH<=1223THENGOSUB800
  20. 405 IFPEEK(H)<>32THENPOKEH+40,32:POKEH,32:GOTO3
  21. 410 POKEH-D,32:POKEH-40,30:POKEH-40+54272,4
  22. 420 GOTO390
  23. 500 POKE53280,2:POKE53281,5:GOSUB700
  24. 505 FORK=S1TOS2:POKEK,32:NEXT:FORT=1TO2000:NEXT
  25. 510 POKE53280,0:POKE53281,0
  26. 515 PRINT"YES! YOU GOT IT!!  YOUR SCORE IS ";P
  27. 518 PRINT"(PRESS RETURN FOR NEXT SENTENCE)
  28. 519 [161]A$:[139]A$[178]""[167]519
  29. 520 [139]A$[179][177][199](13)[167]519
  30. 550 S1[178]0:S2[178]0:M[178]0:[137]2
  31. 700 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  32. 710 [151]S[170]24,15:[151]S[170]5,10:[151]S[170]6,250:[151]S[170]4,129:[151]S[170]1,35:[151]S,200
  33. 720 [129]T[178]1[164]300:[130]:[151]S[170]4,128
  34. 730 P[178]P[170]1:[142]
  35. 800 [141]1100:[153]"NO! THAT IS NOT THE SUBJECT!"
  36. 805 M[178]M[170]1:[129]T[178]1[164]3000:[130]
  37. 810 [139]M[178]2[167][153]"CLRSORRY! YOUR TWO TRIES ARE UP!SYS":[129]T[178]1[164]3000:[130]:[137]2
  38. 820 [142]
  39. 900 [161]Z$:[139]Z$[178]""[167]900
  40. 910 [139]Z$[178]","[167]D[178][171]1
  41. 920 [139]Z$[178]"."[167]D[178]1
  42. 930 [139]Z$[178]"/"[167]D[178][171]40:[137]390
  43. 940 [142]
  44. 1000 [135]A$:LS[178][195](A$):[139]A$[178]"STOP"[167][137]5000
  45. 1010 [129]I[178]1[164]LS
  46. 1020 [139][202](A$,I,1)[178]"CLOSE"[167]S1[178]1184[170]I:[137]1030
  47. 1025 [130]
  48. 1030 [129]J[178]I[170]1[164]LS
  49. 1035 SU$[178]SU$[170][202](A$,J,1)
  50. 1040 [139][202](A$,J[170]1,1)[178]"CLOSE"[167]S2[178]S1[170]J[171]I[171]1:[137]1060
  51. 1050 [130]
  52. 1060 [142]
  53. 1100 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  54. 1110 [151]S[170]24,15:[151]S[170]5,18:[151]S[170]6,242
  55. 1120 [151]S[170]4,33:[151]S[170]1,4:[151]S,48
  56. 1130 [129]T[178]1[164]300:[130]:[151]S[170]4,32:[129]T[178]1[164]800:[130]
  57. 1140 [142]
  58. 2000 [131] "THATCLOSEMANCLOSEIS MY FATHER"
  59. 2010 [131] "CLOSEGEORGECLOSEIS MY FRIEND."
  60. 2020 [131]"IN THIS COTTAGE LIVES ACLOSEHERMITCLOSE."
  61. 2030 [131]"MUSTCLOSESHECLOSEEAT THE SALAD?"
  62. 2040 [131]"ACROSS THE FIELD MARCHED THECLOSEBANDCLOSE."
  63. 2050 [131]"DOCLOSEYOUCLOSEHAVE THE KEYS?"
  64. 2060 [131]"WHERE WAS YOURCLOSEFATHERCLOSEBORN?"
  65. 2070 [131]"BOY DIDCLOSEWECLOSELAUGH!"
  66. 2080 [131]"THERE IS AN OLDCLOSEROWBOATCLOSEAT THE RIVER."
  67. 2090 [131]"DOWN THE STAIRS STUMBLED THECLOSEGIRLCLOSE."
  68. 2100 [131]"NEVER HADCLOSESHECLOSERUN SO FAST!"
  69. 2110 [131]"WHICH SUIT DIDCLOSERONCLOSEBUY?"
  70. 2120 [131]"FROM THE CEILING HUNG AN ORNATECLOSELAMPCLOSE."
  71. 2130 [131]"AND LAUGHCLOSEWECLOSEDID!"
  72. 2140 [131]"MYCLOSEICLOSESPEND THE MONEY ON A NEW BOOK?"
  73. 2150 [131]"STOP"
  74. 3000 [153]"LOADJOYSTICK FOR(J)WAITSYS OR KEYBOARD PRINT(K)WAIT?
  75. 3010 INPUTC$:IFC$<>"J"ANDC$<>"K"THEN3010
  76. 3020 IFC$="J"THENK1=1
  77. 3030 IFC$="K"THENK1=2
  78. 3040 PRINT"[156]IF YOU CHOOSE THE KEYBOARD,YOU WILL NEEDTO ACTIVATE ";
  79. 3045 PRINT"THE CANNON BY PRESSING      EITHER < OR >."
  80. 3050 PRINT"THE FOLLOWING COMMANDS WORK WITH THE KEYBOARD:"
  81. 3055 PRINTTAB(4)"< = LEFT"
  82. 3060 PRINTTAB(4)"> = RIGHT"
  83. 3070 PRINTTAB(4)"/ = FIRE CANNON"
  84. 3080 PRINT"[158] PRESS RETURN TO CONTINUE "
  85. 3090 GETA$:IFA$=""THEN3090
  86. 3100 IFA$<>CHR$(13)THEN3090
  87. 3110 RETURN
  88. 4000 PRINT"[147]"
  89. 4005 FORI=1304TO1343:POKEI,102:POKEI+CL,5:NEXT
  90. 4010 FORI=1343TO1743STEP40:POKEI,102:POKEI+CL,5:NEXT
  91. 4020 FORI=1743TO1704STEP-1:POKEI,102:POKEI+CL,5:NEXT
  92. 4030 FORI=1704TO1304STEP-40:POKEI,102:POKEI+CL,5:NEXT
  93. 4040 PRINTTAB(12)"SU[158]BJE[156]C[159]T [129]S[153]H[156]OOT"
  94. 4050 PRINTTAB(6)"[156]A SUBJECT RECOGNITION GAME"
  95. 4060 PRINTTAB(3)"[158] PRESS RETURN FOR INSTRUCTIONS. "
  96. 4070 GETA$:IFA$=""THEN4070
  97. 4080 IFA$<>CHR$(13)THEN4070
  98. 4090 PRINT"[147]"TAB(12)"[145] INSTRUCTIONS "
  99. 4100 PRINT"[154]WELCOME TO SUBJECT SHOOT.[155]"
  100. 4110 PRINT"THE PURPOSE OF THIS GAME IS TO TEST YOURABILITY TO ";
  101. 4120 PRINT"RECOGNIZE THE SUBJECT OF A   SENTENCE.THE GAME WILL PRESENT ";
  102. 4130 PRINT"SENTENCESWITH SUBJECTS IN VARIOUS POSITIONS.SOME OF THE ";
  103. 4140 PRINT"SUBJECTS WILL BE EASY TO FIND;   OTHERS WILL BE MORE DIFFICULT. ";
  104. 4150 PRINT"WE WILL  BEGIN THE GAME WITH A SHORT LESSON ON   IDENTIFYING THE ";
  105. 4160 PRINT"SUBJECT OF A SENTENCE."
  106. 4170 PRINT"[156]PLEASE TYPE IN YOUR FIRST NAME."
  107. 4180 PRINT:INPUT"YOUR NAME PLEASE";N$
  108. 4185 PRINT"[129]THANK YOU[152] ";N$;"[129].LET'S GET STARTED."
  109. 4190 PRINTTAB(12)"[158] PRESS RETURN "
  110. 4200 GETA$:IFA$=""THEN4200
  111. 4210 IFA$<>CHR$(13)THEN4200
  112. 4220 PRINT"[147][145]"TAB(12)" LESSON 1 "
  113. 4230 PRINT"THE [158]SUBJECT IS THE PART OF THE SENTENCE ABOUT WHICH ";
  114. 4240 PRINT"SOMETHING IS BEING SAID."
  115. 4250 PRINT"[152]PLEASE EXAMINE THE FOLLOWING SENTENCES:"
  116. 4260 PRINT"[158]1)FATHER CAME HOME EARLY."
  117. 4265 PRINT"2)HAS MIKE COME YET?"
  118. 4270 PRINT"3)INTO THE HOUSE CAME JEFF."
  119. 4280 PRINT"4)HAVE YOU DONE YOUR HOMEWORK?"
  120. 4285 PRINT"5)I BELIEVE IN HONESTY!"
  121. 4290 PRINT"[159]CAN YOU IDENTIFY THE SUBJECTS?"
  122. 4300 PRINT"[158] PRESS SPACE BAR TO SEE SUBJECTS "
  123. 4310 GETA$:IFA$=""THEN4310
  124. 4320 IFA$<>CHR$(32)THEN4310
  125. 4330 FORI=1346TO1351:POKEI,119:POKEI+54272,8:FORT=1TO100:NEXT:NEXT
  126. 4335 PRINT""TAB(32)"[129](FATHER)":FORT=1TO1000:NEXT
  127. 4340 FORI=1470TO1473:POKEI,119:POKEI+54272,5:FORT=1TO100:NEXT:NEXT
  128. 4342 PRINTTAB(32)"(MIKE)":FORT=1TO1000:NEXT
  129. 4345 FORI=1606TO1609:POKEI,119:POKEI+54272,4:FORT=1TO100:NEXT:NEXT
  130. 4347 PRINTTAB(32)"[156](JEFF)":FORT=1TO1000:NEXT
  131. 4350 FORI=1711TO1713:POKEI,119:POKEI+54272,2:FORT=1TO100:NEXT:NEXT
  132. 4352 PRINTTAB(32)"(YOU)":FORT=1TO1000:NEXT
  133. 4355 POKE1826,119:POKE1826+54272,6
  134. 4357 PRINTTAB(33)"(I)":FORT=1TO1000:NEXT
  135. 4360 PRINT"[158]            PRESS RETURN             "
  136. 4365 FORT=1TO200:NEXTT
  137. 4370 PRINT"            PRESS RETURN             "
  138. 4380 FORT=1TO200:NEXTT
  139. 4390 GETA$:IFA$=""THEN4360
  140. 4400 IFA$<>CHR$(13)THEN4360
  141. 4410 PRINT"[147][145][129] LESSON CONTINUED "
  142. 4420 PRINT"[152]REMEMBER THAT ALTHOUGH THE  SUBJECT USUALLY COMES BEFORE ";
  143. 4430 PRINT"THE VERB,SOMETIMES IT MAY APPEAR IN OTHER POSITIONS.";
  144. 4440 PRINT"LET'S  TAKE ONE LAST LOOK AT SOME SENTENCES ANDTHEIR SUBJECTS. ";
  145. 4445 PRINT"NOTE SUBJECTS IN BLUE."
  146. 4450 PRINT"1)IT WAS JACK WHO CALLED YOUR FATHER."
  147. 4455 PRINT"2)ACROSS THE SKY FLEW THE BIRD."
  148. 4460 PRINT"3)ARE YOU CORRECT IN YOUR THINKING?"
  149. 4465 PRINT"4)RAYMOND IS THE TEAM CAPTAIN."
  150. 4470 PRINT"5)WHICH DRESS DID YOUR MOTHER BUY?"
  151. 4480 PRINT""TAB(12)"[158] PRESS RETURN "
  152. 4485 GETA$:IFA$=""THEN4485
  153. 4490 IFA$<>CHR$(13)THEN4485
  154. 4500 PRINT"[147]"TAB(9)"[156] GAME INSTRUCTIONS "
  155. 4510 PRINT"[152]THE OBJECT OF THE GAME THAT FOLLOWS IS  TO SHOOT THE ";
  156. 4520 PRINT"SUBJECT[152] OUT OF EACH SEN-   TENCE AS THAT SENTENCE APPEARS ON ";
  157. 4525 PRINT"THE   SCREEN."
  158. 4530 PRINT"YOU WILL GET TWO CHANCES TO SHOOT THE   SUBJECT. ";
  159. 4535 PRINT"IF YOU MISS BOTH TIMES,YOU WILLGET NO POINTS FOR THAT SENTENCE. ";
  160. 4540 PRINT"AND THENEXT SENTENCE WILL APPEAR."
  161. 4550 PRINT""TAB(10)"[129]GOOD LUCK ";N$"."
  162. 4560 PRINTTAB(12)"[158] PRESS RETURN "
  163. 4565 GETA$:IFA$=""THEN4565
  164. 4570 IFA$<>CHR$(13)THEN4565
  165. 4580 RETURN
  166. 5000 PRINT"[147]":PRINT"OKAY, ";N$;" THE GAME IS OVER."
  167. 5010 PRINT"[156]YOU HAVE COLLECTED ";P;" POINTS OUT OF 15."
  168. 5020 PRINT"BREAKDOWN"
  169. 5030 PRINT"   15=EXCELLENT"
  170. 5035 PRINT"   14=VERY GOOD"
  171. 5040 PRINT"12-13=OKAY
  172. 5050 [153]"BELOW 12= REVISION REQUIRED"
  173. 5060 [153][163]12)"SYS PRESS RETURN "
  174. 5065 [161]A$:[139]A$[178]""[167]5065
  175. 5070 [139]A$[179][177][199](13)[167]5065
  176. 5080 [153]"LOAD":[153][163]13)" OPTIONS "
  177. 5090 [153][163]5)"CLRR=RUN GAME OVER"
  178. 5095 [153][163]5)"FORQ=QUIT THE PROGRAM"
  179. 5100 [133]"PRINTYOUR CHOICE";A$
  180. 5110 [139]A$[179][177]"R"[175]A$[179][177]"Q"[167]5100
  181. 5120 [139]A$[178]"R"[167][137]1
  182. 5130 [139]A$[178]"Q"[167][128]
  183. 5140 [128]
  184.