home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / Misc / MEMORY-POWER (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  16.8 KB  |  400 lines
  1. 1 POKE808,234:REM"
  2. 2 [143]**MEMORY POWER BY ROBERT MATHEIS***
  3. 3 [153]"LOAD":[141] 16:[158]49152:[143] INSTALL BACKDROPS AND TURN ON
  4. 4 [158]49185:[141]28:[158]49185:[153]"LOADCLR":X[178]1:[141]5:[153]"OPEN"
  5. 5 [153][163]3)"      WAIT       WAIT   WAIT   WAIT    WAIT     WAIT       "
  6. 6 [153][163]3)"      WAIT       WAIT   WAIT   WAIT    WAIT     WAIT       "
  7. 7 [153][163]3)"  WAIT    WAIT   WAIT    WAIT   WAIT   WAIT    WAIT   WAIT     WAIT    "
  8. 8 [153][163]3)"      WAIT   WAIT    WAIT   WAIT   WAIT    WAIT   WAIT         "
  9. 9 [153][163]3)"      WAIT   WAIT    WAIT   WAIT   WAIT    WAIT     WAIT       "
  10. 10 [153][163]3)"  WAIT       WAIT    WAIT   WAIT   WAIT    WAIT   WAIT     WAIT   "
  11. 11 [153][163]3)"  WAIT       WAIT    WAIT   WAIT   WAIT    WAIT   WAIT     WAIT   "
  12. 12 [153][163]3)"  WAIT       WAIT    WAIT   WAIT   WAIT    WAIT   WAIT     WAIT   "
  13. 13 [153][163]3)"  WAIT           WAIT          WAIT     WAIT   WAIT   "
  14. 14 [143] BACKDROPS ML
  15. 15 [141]32
  16. 16 [129]U[178]49152[164]49272:[135] Q:[151] U,Q:CK[178]CK[170]Q:[130]
  17. 17 [139]CK[179][177]14738[167][153]"ERROR IN DATA":[128]
  18. 18 [129]T[178]50000[164]50000[170]254[169]2:[151] T,0:[130]
  19. 19 [131] 120,169,127,141,13,220,169,1,141,26,208,169,40,141,18,208,169,27
  20. 20 [131]141,17,208,169,81,141,20,3,169,192,141,21,3,88,96,173,18,208
  21. 21 [131] 201,38,208,249,173,17,208,73,16,141,17,208,96,120,169,49,141,20
  22. 22 [131]3,169,234,141,21,3,169,240,141,26,208,169,129,141,13,220,173,120
  23. 23 [131]195,141,32,208,141,33,208,88,96,169,1,141,25,208,174,18,208,224
  24. 24 [131]0,240,20,189,80,195,141,33,208,141,32,208,232,232,142,18,208,104
  25. 25 [131] 168,104,170,104,64,169,40,141,18,208,76,49,234
  26. 26 [142]
  27. 27 [143] LINE BACKDROP
  28. 28 X[178]0:[129]T[178]50000[164]50000[170]254[169]2:[151]T,0:[130]
  29. 29 [129]T[178]50000[170]40[164]50000[170]40[170]214[169]2
  30. 30 [151] T,5:T[178]T[170]X:X[178]X[170]2:[130]
  31. 31 [142]
  32. 32 [153]"           M  E  M  O  R  Y"
  33. 33 [129]I[178]1[164]1500:[130]I
  34. 34 [158]49201:[153]"LOAD"
  35. 35 [143]*****BORDER*****
  36. 36 [129] A[178]49152[164]49246:[135]AA:[151]A,AA:[130]
  37. 37 [131] 120,169,36,141,20,3,169,192
  38. 38 [131] 141,21,3,173,17,208,41,127,141
  39. 39 [131]17,208,169,44,141,18,208,169,1
  40. 40 [131] 141,26,208,169,127,141,13,220
  41. 41 [131] 88,96,238
  42. 42 [131] 32:[143] SCREEN
  43. 43 [131] 208,24,173,18,208
  44. 44 [131] 105,8,141,18,208,144,33,238,54
  45. 45 [131] 192,169,44,201,52,208,8,206,71
  46. 46 [131] 192,169,44,141,54,192,141,18
  47. 47 [131] 208,169,0,141
  48. 48 [131] 32:[143] SCREEN
  49. 49 [131] 208,169,1,141
  50. 50 [131] 25,208,76,49,234,169,1,141,25
  51. 51 [131] 208,104,168,104,170,104,64,0
  52. 52 [158] 49152
  53. 53 [156]:[134]IM(16)
  54. 54 [143] ********SET UP SCREEN**********
  55. 55 [151]53280,1:[151]53281,1:[153]"LOADSTOP"
  56. 56 [153]"      (null)NLEASHING (null)OUR (null)EMORY STOP(null)OWER!!!"
  57. 57 [153]"      TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  58. 58 [153]"PEEKY: (null)OBERT (null)ATHEIS"
  59. 59 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  60. 60 [153]"(null)CREEN (null)AME:   (null)MID$(null)STOP"
  61. 61 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  62. 62 [153]"      (null)E ALL WANT TO HAVE A MORE USEFULLMEMORY.";
  63. 63 [153]"  (null)HE INFORMATION YOU GET FROM   THIS COURSE WILL TEACH YOU HOW TO";
  64. 64 [153]"       IMPROVE YOUR MEMORY, AS WELL AS GIVE YOUTHE SPECIFIC";
  65. 65 [153]" INSTRUCTIONS ON HOW TO     MEMORIZE LISTS OF ITEMS."
  66. 66 [141]387
  67. 67 [153]"      LOAD(null)HE SYSTEM TAUGHT IN THIS PARTICULAR PROGRAM IS";
  68. 68 [153]" THE LINK-SYSTEMWAITSTOP.  (null)HIS SYSTEMIS USED FOR REMEMBERING THOUSANDS";
  69. 69 [153]" OF    ITEMS IN A SERIES, BOTH BACKWARDS AND   FORWARD."
  70. 70 [153]:[153]"PEEKVAL (null)(null)VAL(null)ATN(null)VALSTR$CLOSE(null)(null)CLOSEATN(null)ATN(null)VALCLOSE(null)(null)(null)(null)(null)VAL(null)ASCSTOPWAIT"
  71. 71 [141] 387
  72. 72 [143]***********START PROGRAM*********
  73. 73 [143]**********************************************************************
  74. 74 [153]"LOAD"
  75. 75 [153]"      RIGHT$N ORDER FOR THIS PROGRAM TO BE   MOST EFFECTIVE, RIGHT$ MUST";
  76. 76 [153]" FIRST SHOW YOU   HOW BAD YOUR MEMORY REALLY IS!!!"
  77. 77 [153]"      (null)O DO THIS RIGHT$CLOSEAM GOING TO GIVE YOU A SIMPLE TASK.  (null)N THE NEXT SCREEN RIGHT$CLOSE   WILL LIST 15 ITEMS.";
  78. 78 [153]" ATNLL YOU HAVE TO DO  IS MEMORIZE THEM BACKWARDS AND FORWARDS.VALASY!";
  79. 79 [153]" RIGHT$F YOU CAN'T THEN THAT IS WHAT    THIS PROGRAM IS ALL ABOUT."
  80. 80 [153]"      (null)EEP IN MIND THAT AT THE END OF   THIS PROGRAM YOU";
  81. 81 [153]" WILL KNOW THE LIST     BACKWARDS AND FORWARD.  (null)OU WILL ALSO";
  82. 82 [153]" BEABLE TO MEMORIZE LIMIT-LESS NUMBERS OF  ITEMS IN A SERIES!!!"
  83. 83 [153]:[153]"(null)(null)VALATN(null)VAL:WAIT (null)AKE THIS PROGRAM SERIOUSLY.    ATNLL THE METHODS";
  84. 84 [153]"TAUGHT HERE ARE PROVEN  TO WORK! ASCOLLOW THE INSTRUCTIONS, AND   YOU WILL ATTAIN AN EXCELLENT MEMORY!"
  85. 85 [141] 387
  86. 86 [143]*******SHOW LIST**************
  87. 87 [143]------------------------------
  88. 88 [134]WO$(20)
  89. 89 [153]"LOAD":[153]:[141]396:[129]W[178]1[164]15:[153]W;WO$(W):[130]
  90. 90 [153]"(null)LEASE MEMORIZE THIS LIST.  (null)AKE FOUR"
  91. 91 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  92. 92 [153]"MINUTES TO DO SO."
  93. 93 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  94. 94 [153]"RIGHT$F YOU FINISH EARLY, PRESS THE (null) KEY.WAITSTOP"
  95. 95 [136]TI$[178]"000000"
  96. 96 [136]A$[178][201](TI$,3):[136]A1$[178][200](A$,1):[136]A2$[178][201](A$,2)
  97. 97 [136]C$[178]A1$[170]":"[170]A2$:[153]"":[153]""C$"WAIT"
  98. 98 [161]RO$:[139]RO$[178]"X"[167]101
  99. 99 [139]TI$[178]"000400"[167]101
  100. 100 [137] 96
  101. 101 [136]M$[178]TI$
  102. 102 [139]LL[178][171]1[167][142]
  103. 103 [143]**********TEST********************************************************
  104. 104 [153]"LOAD":[151]53280,0:[151]53281,0
  105. 105 [153]"(null)OU HAD TIME TO MEMORIZE THE PREVIOUS   LIST."
  106. 106 [153]"LEFT$OPEFULLY, YOU MEMORIZED A FEW OF THEM. (null)HEN AGAIN, IT REALLY";
  107. 107 [153]" DOESN'T MATTER.   VALITHER WAY, LET'S SEE HOW YOU DID, SO WECAN";
  108. 108 [153]" CALCULATE IMPROVEMENT LATER ON."
  109. 109 [153]"(null)N THE NEXT SCREEN, YOU WILL BE ASKED TOLIST THE WORDS";
  110. 110 [153]" FROM MEMORY."
  111. 111 [153]"CLR(null)(null)(null) (null)(null)(null)(null) PEEKVAL(null)(null) :)"
  112. 112 [153]"RIGHT$F YOU DON'T KNOW THE WORD FOR THE      PARTICULAR NUMBER,";
  113. 113 [153]" THEN SIMPLY ENTER A  ZERO (0), INSTEAD OF THE WORD."
  114. 114 [141] 387:[151]53280,1:[151]53281,1:[153]"STOPLOAD"
  115. 115 [159]1,0:[134]AN$(20)
  116. 116 [134]AN(20):[153][199](142)
  117. 117 [129]I[178]1[164]15:[153]I;:[151]198,0:[153][194](198);:[153]"CMDCMD";
  118. 118 [132]1,AN$(I)
  119. 119 [139]AN$(I)[179][177]WO$(I)[167][136]AN(I)[178]0:MI[178]MI[170]1
  120. 120 [139]AN$(I)[178]WO$(I)[167][136]AN(I)[178]1:ME[178]ME[170]1
  121. 121 [153]:[130]
  122. 122 [141] 387
  123. 123 [143]********EVALUATION*****************************************************
  124. 124 [153]"LOAD":[151]53281,1:[151]53280,1
  125. 125 [153]"STOP          (null)(null)(null)(null) VAL(null)ATN(null)(null)ATN(null)RIGHT$(null)(null)....."
  126. 126 [153]"STOP          TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  127. 127 [136]D$[178][201](M$,2):[136]D1$[178][200](M$,4):[136]D2$[178][201](D1$,1)
  128. 128 [153]"RIGHT$T TOOK YOU ABOUT ";D2$;" MINUTE(S), AND ";D$
  129. 129 [153]"SECONDS TO MEMORIZE THIS LIST."
  130. 130 [153]"(null)OU MEMORIZED ";ME;" OF THE WORDS."
  131. 131 [153]"(null)OU MISSED ";MI;" OF THE WORDS."
  132. 132 [139] ME[178]15[167]AV1$[178]"100":[137]135
  133. 133 [139]ME[178]1[167]AV1$[178]"6":[137]135
  134. 134 [136]AV[178](ME[173]15)[172]100:[136]AV$[178][196](AV):[136]AV1$[178][200](AV$,3)
  135. 135 [153]"(null)OU MEMORIZED ";AV1$;"% OF THE WORDS."
  136. 136 [139]ME[177][178]14[167][153]"(null)OU APPEAR TO HAVE AN EXCELLENT MEMORY!"
  137. 137 [139]ME[179][177]15[175]ME[179][177]14[167][153]"RIGHT$T LOOKS LIKE YOUR MEMORY COULD USE SOMEIMPROVEMENT!"
  138. 138 [139]ME[177][178]14[167][153]"PEEKUT, IT CAN'T HURT TO IMPROVE IT."
  139. 139 [139]ME[179][177]15[175]ME[179][177]14[167][153]"PEEKUT, THAT IS WHAT THIS PROGRAM IS ALL   ABOUT."
  140. 140 [141] 387
  141. 141 [153]"LOAD(null)HESE ARE THE WORDS THAT YOU MISSED:"
  142. 142 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  143. 143 [153]:[139]ME[178]15[167][153]"(null)(null)(null)VAL! CHR$(null)VALATN(null)!":[137]150
  144. 144 [129]I[178]1[164]15:[139]AN$(I)[178]"0"[167][136]AN$(I)[178]"(FORGOT)"
  145. 145 [139]AN(I)[178]0[167][153]"ASCOR NUMBER";I"YOU PUT ";AN$(I)"WAIT, BUT"
  146. 146 [139]AN(I)[178]0[167][153]"THE CORRECT ANSWER WAS ";WO$(I);"WAIT"
  147. 147 [153]
  148. 148 [139]I[178]5[176]I[178]10[167][141]387:[153]"LOAD"
  149. 149 [130]I
  150. 150 [141] 387
  151. 151 [153]"LOADSTOP":[151]53281,1:[151]53280,1
  152. 152 [153]"           (null)IME TO (null)EMORIZE...."
  153. 153 [153]"           TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  154. 154 [153]:[153]"     (null)OU WON'T FEEL A THING AS YOU BEGINTO IMPROVE YOUR";
  155. 155 [153]" MEMORY.  RIGHT$T'S LIKE A    GAME IN WHICH YOU ALWAYS WIN.";
  156. 156 [153]"  (null)HE FIRSTRULE TO MEMORY IS 1) ASSOCIATION.";
  157. 157 [153]"  (null)OU  SEE, WHENEVER YOU MEMORIZE YOU AUTO-    MATICALLY ASSOCIATE";
  158. 158 [153]" WHAT YOU ARE TRYING TO MEMORIZE TO SOMETHING YOU ALREADY";
  159. 159 [153]"    HAVE MEMORIZED.  (null)HE WAY IN WHICH YOU   MEMORIZE NOW USES";
  160. 160 [153]" SUBCONSCIOUS ASSOCIAT-IONS.  (null)HIS PART OF THE PROGRAM WILL";
  161. 161 [153]"    TEACH YOU HOW TO MAKE YOUR ASSOCIATIONS CONSCIOUSLY.";
  162. 162 [153]"  (null)HIS WAY YOU CAN MEMORIZE EASILY WHENEVER YOU WANT."
  163. 163 [141] 387
  164. 164 [153]"LOAD"
  165. 165 [153]"             ATNN VALXAMPLE:"
  166. 166 [153]"             TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  167. 167 [153]:[153]"STR$O YOU REMEMBER EVER BEING TAUGHT THE   MUSIC STAFF NOTES?";
  168. 168 [153]"  (null)OU WERE SUPPOSED TOMEMORIZE THESE TOTALLY MEANINGLESS";
  169. 169 [153]"      LETTERS.  PEEKUT SOME OF US WERE TAUGHT TO REMEMBER THE NOTES WITH";
  170. 170 [153]" THE SENTENCE:"
  171. 171 [153]:[153]"VALWAITVERY CHR$WAITOOD PEEKWAITOY STR$WAITOES ASCWAITINE."
  172. 172 [153]:[153]"(null)HE FIRST LETTER OF EACH WORD WAS       CONSCIOUSLY ASSOCIATED";
  173. 173 [153]" TO THE LETTER ON THE STAFF.  RIGHT$N THIS WAY, YOU ASSOCIATED";
  174. 174 [153]" SOMETHING YOU KNEW FAIRLY WELL, OR COULDREMEMBER WELL";
  175. 175 [153]" (THE SENTENCE) TO THE     THING YOU WANTED TO MEMORIZE (THE       NOTES)."
  176. 176 [141] 387
  177. 177 [153]"LOAD"
  178. 178 [153]"(null)OW THAT YOU HAD TO READ THROUGH ALL OF THIS TEXT, RIGHT$ AM";
  179. 179 [153]" GOING TO GIVE YOU THE   SECOND AND LAST RULE TO THIS MEMORY";
  180. 180 [153]"     TECHNIQUE.  2) RIGHT$N ORDER TO REMEMBER ANY NEW PIECE OF";
  181. 181 [153]" INFORMATION, YOU MUST      ASSOCIATE IT IN SOME RIDICULOUS AND";
  182. 182 [153]"/OR  ILLOGICAL WAY TO SOMETHING YOU ALREADY  KNOW OR REMEMBER.";
  183. 183 [153]"  (null)HIS IS BECAUSE IT ISMUCH EASIER TO REMEMBER OR PICTURE";
  184. 184 [153]"      SOMETHING THAT IS ILLOGICAL.";
  185. 185 [153]"  ASCOR       EXAMPLE, IT IS MUCH EASIER TO PICTURE A BASEBALL BAT";
  186. 186 [153]" FLYING THROUGH THE AIR AND HITTING A LAMP, THAN IT IS TO SEE";
  187. 187 [153]" THE   BAT JUST LYING NEAR THE LAMP."
  188. 188 [141] 387
  189. 189 [153]"LOAD"
  190. 190 [153]"             VALNOUGH (null)EXT!"
  191. 191 [153]"             TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  192. 192 [153]:[153]"(null)HAT'S ENOUGH RULES FOR ME.  RIGHT$ WANT TO  BE THE FIRST TO TELL";
  193. 193 [153]" YOU THAT YOU HAVE  A MUCH BETTER MEMORY! LENONGRATULATIONS!";
  194. 194 [153]"  (null)O PROVE IT TO YOU WE WILL MEMORIZE THE LIST PRESENTED";
  195. 195 [153]" TO YOU AT THE BEGINNING  OF THE PROGRAM TOGETHER."
  196. 196 [153]:[153]"(null)(null)(null)VAL: RIGHT$T IS ESSENTIAL THAT YOU SEE THE  PICTURES,";
  197. 197 [153]" THAT RIGHT$ AM ABOUT TO DESCRIBE!  STR$ON'T JUST READ THE TEXT, THAT IS";
  198. 198 [153]" LESS  IMPORTANT THAN ACTUALLY PICTURING WHAT RIGHT$SAY.STOP"
  199. 199 [141] 387
  200. 200 [153]"LOAD"
  201. 201 [153]"(null)ET'S TAKE THE FIRST WORD, CARPET.  (null)E  WILL ASSUME THAT THIS";
  202. 202 [153]" WORD IS THE ITEM, THAT YOU CAN REMEMBER.  (null)OW ALL YOU HAVE";
  203. 203 [153]"TO DO IS ASSOCIATE IT TO THE NEXT ITEM  ON THE LIST.";
  204. 204 [153]:[153]"ASCOR EXAMPLE, PICTURE YOUR CARPET AT HOMEMADE OUT OF PAPER.";
  205. 205 [153]" (null)EE YOURSELF WALKING ON THAT PAPER CARPET AND FEEL THE PAPER";
  206. 206 [153]" CRINKLE UNDER   YOUR FOOT.  (null)EE THIS IN YOUR MIND'S EYE."
  207. 207 [153]:[153]"(null)ATN(null)VALCLOSEATNCLOSE(null)RIGHT$(null)(null)(null)VALCLOSE(null)(null)CLOSE(null)(null)(null)(null)CLOSEATN(null)STR$CLOSE(null)RIGHT$(null)(null)ATN(null)RIGHT$(null)VALCLOSE(null)LEFT$VALCLOSE(null)RIGHT$LEN(null)(null)(null)VAL."
  208. 208 [153]"(null)LEFT$RIGHT$(null)CLOSERIGHT$(null)CLOSEVAL(null)(null)VAL(null)(null)ATN(null)!!"
  209. 209 [141] 387
  210. 210 [153]"LOAD"
  211. 211 [153]"(null)OU HAVE JUST MADE A RIDICULOUS         ASSOCIATION BETWEEN CARPET";
  212. 212 [153]"AND PAPER.    (null)OW STOP THINKING ABOUT THE ASSOCIATION,AND WE WILL";
  213. 213 [153]" CONCENTRATE ON THE NEXT     WORD."::
  214. 214 [153]:[153]"(null)HE NEXT WORD IS: BOTTLE."
  215. 215 [153]:[153]"ASCOR THIS ASSOCIATION, YOU COULD PICTURE YOURSELF READING A";
  216. 216 [153]" CHR$RIGHT$CHR$ATN(null)(null)RIGHT$LEN BOTTLE,     INSTEAD OF A PAPER."
  217. 217 [153]:[153]"(null)VAL(null)VAL(null)PEEKVAL(null) (null)(null)CLOSE(null)(null)(null)(null)CLOSEATN(null)STR$CLOSE(null)RIGHT$(null)(null)ATN(null)RIGHT$(null)VAL!!"
  218. 218 [141] 387
  219. 219 [153]"LOAD"
  220. 220 [153]"(null)HE NEXT WORD IS BED.  STR$(null)(null)'(null) PICTURE A  BOTTLE LAYING ON A BED";
  221. 221 [153]", OR SOMETHING TO THAT EFFECT, BECAUSE IT IS NOT ILLOGICALENOUGH";
  222. 222 [153]", AND YOU WON'T REMEMBER IT.      RIGHT$NSTEAD, PICTURE YOURSELF SLEEPING";
  223. 223 [153]" IN A GIGANTIC BOTTLE INSTEAD OF A BED."
  224. 224 [153]:[153]"(null)VALVALCLOSE(null)LEFT$VALCLOSE(null)RIGHT$LEN(null)(null)(null)VAL!"
  225. 225 [141] 387
  226. 226 [153]"LOAD"
  227. 227 [153]"(null)OW YOU WANT TO ASSOCIATE BED TO FISH.  (null)IMPLE.  MID$UST PICTURE";
  228. 228 [153]" A CHR$RIGHT$CHR$ATN(null)(null)RIGHT$LEN FISH   SLEEPING IN YOUR BED.  (null)EE THE BED      GETTING";
  229. 229 [153]" WET AND SLIMY, BECAUSE OF THE   FISH."
  230. 230 [153]:[153]"(null)VAL(null)VAL(null)PEEKVAL(null) TO SEE THE PICTURE, AND YOU    HAVE JUST ASSOCIATED BED";
  231. 231 [153]" TO FISH."
  232. 232 [141]387
  233. 233 [153]"(null)OW ASSOCIATE FISH TO CHAIR. (null)EE        YOURSELF FISHING AND";
  234. 234 [153]" CATCHING CHAIRS    INSTEAD OF FISH."
  235. 235 [153]"(null)AKE A MOMENT TO SEE THE PICTURE IN YOURMIND'S EYE."
  236. 236 [141] 387
  237. 237 [153]"LOAD(null)OW REMEMBER THE WORD WINDOW.  MID$UST     PICTURE YOURSELF THROWING";
  238. 238 [153]" A CHAIR       THROUGH YOUR BEDROOM WINDOW."
  239. 239 [153]"(null)NCE AGAIN, BE SURE TO VIVIDLY SEE THE  PICTURE."
  240. 240 [141] 387
  241. 241 [153]"LOAD"
  242. 242 [153]"            CHR$OOD (null)EWS...."
  243. 243 [153]"(null)ERE GOING TO TAKE A BREAK FROM         MEMORIZING, FOR A LITTLE";
  244. 244 [153]" WHILE."
  245. 245 [153]"RIGHT$'M GOING TO GIVE YOU SOME RULES FOR    MAKING VIVID PICTURES,";
  246. 246 [153]" FOR YOUR         ASSOCIATIONS.  RIGHT$F YOU FOLLOW THESE";
  247. 247 [153]"      SUGGESTIONS THEN,";
  248. 248 [153]" YOU SHOULD HAVE NO    PROBLEM MAKING LONGLASTING ASSOCIATIONS."
  249. 249 [141] 387
  250. 250 [153]"LOAD(null)HESE SUGGESTIONS ARE:"
  251. 251 [153]"1) (null)ICTURE ITEMS LARGER THAN LIFE       (CHR$RIGHT$CHR$ATN(null)(null)RIGHT$LEN)!
  252. 252 PRINT"2) [208]ICTURE ITEMS IN ACTION, WHENEVER    POSSIBLE (EX. THROWING";
  253. 253 PRINT" CHAIRS THROUGH A WINDOW)."
  254. 254 PRINT"3) [197]XAGGERATE: PICTURE NOT JUST ONE, BUTMANY OF THE ITEMS,";
  255. 255 PRINT" THAT YOU ARE TRYING  TO MEMORIZE."
  256. 256 PRINT"4) [211]UBSTITUTION: PICTURE ONE ITEM       INSTEAD OF ANOTHER. (EX. ";
  257. 257 PRINT"CATCHING CHAIRSINSTEAD OF FISH)."
  258. 258 GOSUB387
  259. 259 PRINT"        [147][204]ET'S FINISH THE LIST."::
  260. 260 PRINT"[207]N THE FOLLOWING SCREEN, [201] AM GOING TO  LIST THE ASSOCIATIONS,";
  261. 261 PRINT" THAT [201] WOULD USE FOR THE REMAINING ITEMS."
  262. 262 PRINT"[193]T THIS POINT, HOWEVER, YOU MAY HAVE    YOUR OWN ASSOCIATIONS,";
  263. 263 PRINT" THAT YOU LIKE    BETTER THAN MINE.  [201]F THIS IS THE CASE, THEN";
  264. 264 PRINT" FEEL FREE TO USE THEM."
  265. 265 PRINT"[193]FTER YOU FINISH PICTURING THE          ASSOCIATIONS, [201] AM GOING TO";
  266. 266 PRINT" TRACK YOUR  PROGRESS, AND GIVE YOU SOME RESULTS";
  267. 267 PRINT"     (POSITIVE RESULTS!).
  268. 268 [141] 387
  269. 269 [153]"LOAD"
  270. 270 [153]"ATNSSOCIATE WINDOW TO FLOWER:"
  271. 271 [153]"PICTURE YOURSELF OPENING YOUR WINDOW,   AND A MILLION FLOWERS";
  272. 272 [153]" BOMBARD YOUR FACE!"
  273. 273 [129]I[178]1[164]1500:[130]I
  274. 274 [153]"ATNSSOCIATE FLOWER TO CIGARETTE:"
  275. 275 [153]"(null)EE YOURSELF SMOKING A FLOWER INSTEAD OFA CIGARETTE!"
  276. 276 [129]I[178]1[164]1500:[130]I
  277. 277 [153]"ATNSSOCIATE CIGARETTE TO NAIL:"
  278. 278 [153]"(null)ICTURE YOURSELF NAILING CIGARETTES INTOA WALL INSTEAD OF NAILS."
  279. 279 [129]I[178]1[164]1500:[130]I
  280. 280 [153]"ATNSSOCIATE NAIL TO TYPEWRITER:"
  281. 281 [153]"(null)ICTURE ALL THE KEYS ON YOUR TYPEWRITER AS NAILS, YOUR";
  282. 282 [153]" HURTING YOUR FINGERS, AS YOU TYPE."
  283. 283 [141] 387
  284. 284 [153]"STR$ID YOU CLEARLY SEE THE PICTURES IN     THESE ASSOCIATIONS? (Y/N)";
  285. 285 [133]RJ$:[139]RJ$[179][177]"Y"[167] 269
  286. 286 [153]"LOAD"
  287. 287 [153]"ATNSSOCIATE TYPEWRITER TO SHOE."
  288. 288 [153]"(null)EE YOURSELF WALKING IN A PAIR OF       TYPEWRITERS INSTEAD OF SHOES!
  289. 289 FOR I=1TO1500:NEXTI
  290. 290 PRINT"[193]SSOCIATE SHOE TO PEN."
  291. 291 PRINT"[211]EE YOURSELF WRITING WITH SHOES INSTEAD OF WITH A PEN!"
  292. 292 FORI=1TO1500:NEXTI
  293. 293 PRINT"[193]SSOCIATE PEN TO DONUT."
  294. 294 PRINT"[211]EE YOURSELF WRITING ON A DONUT WITH A  PEN."
  295. 295 FORI=1TO1500:NEXTI
  296. 296 PRINT"[198]INALLY, ASSOCIATE DONUT TO CAR."
  297. 297 PRINT"[208]ICTURE A [199][201][199][193][206][212][201][195] DONUT DRIVING YOUR   CAR."
  298. 298 FORI=1TO1500:NEXTI
  299. 299 GOSUB 387
  300. 300 PRINT"[196]ID YOU CLEARLY SEE THE PICTURES IN     THESE ASSOCIATIONS? (Y/N)";
  301. 301 INPUTRJ$:IFRJ$<>"Y"THEN 286
  302. 302 PRINT"[147]"
  303. 303 REM**********GIVE POSTTEST******
  304. 304 PRINT"[215]ELL, YOU NOW KNOW THE 15-ITEM LIST BACKWARDS AND FORWARD!"
  305. 305 PRINT"[194]UT, NOW [201] AM GOING TO PROVE IT TO YOU."
  306. 306 PRINT"[201] AM GOING TO QUIZ YOU ON THE LIST THAT YOU JUST MEMORIZED."
  307. 307 PRINT"[194]EFORE YOU DO THIS, HOWEVER, [201] AM GOING TO JUST SUM UP";
  308. 308 PRINT" QUICKLY HOW YOU ARE GOINGTO REMEMBER THE LIST."
  309. 309 PRINT"[193]MAZE [217]OURSELF!"
  310. 310 GOSUB 387
  311. 311 PRINT"[147]"
  312. 312 PRINT"[198]IRST, HAVE CONFIDENCE.  [217]OU MEMORIZED  THE LIST, AND YOU KNOW IT!"
  313. 313 PRINT"[212]HE QUIZ WILL BE EXACTLY THE SAME AS IT WAS THE FIRST TIME."
  314. 314 PRINT"[204]ET ME GIVE YOU AN EXAMPLE OF HOW TO DO IT."
  315. 315 GOSUB387
  316. 316 PRINT"[147]"
  317. 317 PRINT"[212]HE SECOND WORD IS [164][164][164][164][164][164][164][164][164][164][164]."
  318. 318 PRINT"[215]E ARE GOING TO ASSUME THAT YOU REMEMBERTHE FIRST WORD (CARPET)."
  319. 319 PRINT"[206]OW ALL YOU MUST DO IS THINK OF THE     ASSOCIATION.";
  320. 320 PRINT"  [215]HAT WAS THE CARPET YOU   WERE WALKING ON MADE OF";
  321. 321 INPUTPP$
  322. 322 IF PP$<>"PAPER"THENPRINT"[206]O, THE CARPET WAS MADE OF PAPER.";
  323. 323 IFPP$<>"PAPER"THENPRINT"  [201]T'S PERFECTLY FINE TO MAKE A MISTAKE."
  324. 324 IFPP$<>"PAPER"THENPRINT"[217]OU'LL DO FINE ON THE QUIZ, ANYWAY!"
  325. 325 IFPP$="PAPER"THENPRINT"[196]O YOU SEE HOW EASY THAT WAS?"
  326. 326 PRINT"[201]'M GOING TO GIVE YOU ANOTHER FOUR      MINUTES TO MEMORIZE";
  327. 327 PRINT" THE WORDS AGAIN, OR FIX YOUR ASSOCIATIONS.  [217]OU WON'T NEED  IT!"
  328. 328 PRINT"[206]OW DO IT ON YOUR OWN!"
  329. 329 GOSUB387
  330. 330 REM********GO BACK AND GIVE QUIZ*****************************************
  331. 331 RESTORE:LL=-1:GOSUB 89:CLOSE1,0:DIMNA$(20):DIMNA(20)
  332. 332 POKE53280,1:POKE53281,1:PRINT"[144]":PRINTCHR$(142)
  333. 333 PRINT"[147]THE FIRST WORD IS CARPET[146]"
  334. 334 PRINT"PLEASE ENTER THE WORDS FROM MEMORY."
  335. 335 PRINT:PRINT" 1  CARPET"
  336. 336 OPEN1,0
  337. 337 FORI=2TO15:PRINTI;:POKE198,0:PRINTPEEK(198);:PRINT"[157][157]";
  338. 338 INPUT#1,NA$(I)
  339. 339 IFNA$(I)<>WO$(I)THENLETNA(I)=0:NI=NI+1
  340. 340 IFNA$(I)=WO$(I)THENLETNA(I)=1:NE=NE+1
  341. 341 PRINT:NEXT
  342. 342 REM*********GIVE FINAL RESULTS***
  343. 343 PRINT"[147]"
  344. 344 PRINT"[212]HAT WASN'T SO BAD WAS IT?  [201]F IT WAS,  DON'T WORRY.  [197]VERYTHING";
  345. 345 PRINT" TAKES PRACTICE.[194]EFORE LONG, YOU WILL BE ABLE TO        MEMORIZE";
  346. 346 PRINT" LISTS BY JUST SKIMMING THROUGH THEM QUICKLY.  [212]RUST [205]E."
  347. 347 PRINT"[207]N THE NEXT SCREEN [201][160]AM GOING TO SHOW   YOU YOUR IMPROVEMENT.";
  348. 348 PRINT"  [195]OMPARE YOUR     RESULLTS OF YOUR POSTTEST AND PRETEST.  [217]OU";
  349. 349 PRINT" WILL BE AMAZED!  [198]IND THE WORDS IN  WHICH YOU STILL HAD";
  350. 350 PRINT" DIFFICULTY.  [212]HEN   MAKE A STRONGER ASSOCIATION (SEE THE    PICTURE";
  351. 351 PRINT" CLEARER).  [212]HIS IS IMPORTANT,   BECAUSE YOU ARE STILL DEVELOPING";
  352. 352 PRINT" YOUR   MEMORY SKILLS."
  353. 353 GOSUB 387
  354. 354 REM*******SHOW RESULTS**************************************************
  355. 355 POKE53280,1:POKE53281,1:PRINT"[144][147]"
  356. 356 PRINT"      [200]ERE ARE YOUR [210]ESULTS..."
  357. 357 NA$(1)="CARPET"
  358. 358 PRINT
  359. 359 PRINT"[195]ORRECT ANSWER";:PRINTTAB(16)"[208]RETEST";:PRINTTAB(28)"[208]OSTTEST"
  360. 360 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163]";:PRINTTAB(16)"[163][163][163][163][163][163][163]";:PRINTTAB(28)"[163][163][163][163][163][163][163][163]"
  361. 361 FORI=1TO15
  362. 362 FORI=1TO15:IFNA$(I)="0"THENLETNA$(I)="(FORGOT)"
  363. 363 PRINTI;WO$(I);:PRINTTAB(16)AN$(I);:PRINTTAB(28)NA$(I)
  364. 364 NEXT
  365. 365 GOSUB 387
  366. 366 REM*******ENDING CREDITS********
  367. 367 PRINT:PRINT"[147][212]HANK YOU FOR USING MY PROGRAM.  [208]LEASE LET ME KNOW HOW";
  368. 368 PRINT" YOU LIKED THE PROGRAM."
  369. 369 PRINT"[201][160]HOPE YOU WERE IMPRESSED WITH YOUR     RESULTS.  [201]F NOT, JUST";
  370. 370 PRINT" RUN THE PROGRAM  AGAIN, AND YOU WILL SURELY IMPROVE.";
  371. 371 PRINT
  372. 372 PRINT:PRINT"[193]NYONE WHO MAY BE INTERESTED IN LEARNINGTHE OTHER SECTIONS";
  373. 373 PRINT" OF THIS PROGRAM,     PLEASE CONTACT ME.  [207]THER SECTIONS"
  374. 374 PRINT"INCLUDE:"
  375. 375 PRINT:PRINT"[210]EMEMBERING ITEMS IN AND OUT OF ORDER."
  376. 376 PRINT"[210]EMEMBERING NUMBERS."
  377. 377 PRINT"[210]EMEMBERING NAMES AND FACES."
  378. 378 PRINT"[210]EMEMBERING REPORTS AND SPEECHES."
  379. 379 PRINT"[193]ND [205]ANY [205]ORE....."
  380. 380 PRINT:PRINT
  381. 381 PRINT"[205]AY YOUR LIFE NEVER AGAIN BE THE SAME!!![144]"
  382. 382 PRINT"[210]OBERT [205]ATHEIS"
  383. 383 PRINT"([194][207][196][217][194][201][204][196][197][210])"
  384. 384 PRINT"[156]([210][202][205])[144]"
  385. 385 GOTO 385
  386. 386 END
  387. 387 PRINT"":POKE198,0
  388. 388 PRINT"[208]LEASE [208]RESS  [195]  [212]O [195]ONTINUE[146]"
  389. 389 GETA$:IF A$="[195]"OR A$="C"THEN RETURN
  390. 390 FORJ=1TO400:NEXTJ
  391. 391 PRINT"[145]                                  [145]"
  392. 392 GETA$:IF A$="[195]"OR A$="C"THEN RETURN
  393. 393 FORKK=1TO400:NEXTKK
  394. 394 GOTO 388
  395. 395 REM************DATA**************
  396. 396 WO$(1)="CARPET":WO$(2)="PAPER":WO$(3)="BOTTLE":WO$(4)="BED":WO$(5)="FISH"
  397. 397 WO$(6)="CHAIR":WO$(7)="WINDOW":WO$(8)="FLOWER":WO$(9)="CIGARETTE"
  398. 398 WO$(10)="NAIL":WO$(11)="TYPEWRITER":WO$(12)="SHOE":WO$(13)="PEN"
  399. 399 WO$(14)="DONUT":WO$(15)="CAR":RETURN:**
  400.