home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Software / SPIRIT-ADVISOR (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  11KB  |  303 lines
  1. 0 REM    FROM Q-LINK DISK # 92
  2. 10 PRINT"[147][142][152]":V=53248:S=54272:POKE53281,15:POKE53280,15:SC=1024:RN=RND(-TI)
  3. 15 X=RND(-TI):DIMA$(50):DIMB$(50):DIMC$(50):DIMD$(50):DIME$(50):DIMF$(50)
  4. 20 DIMG$(50):DIMH$(50):DIMQ1$(10)
  5. 25 DIMAA$(20):DIMBB$(20):DIMCC$(20):DIMDD$(20):DIMEE$(20):DIMFF$(20):DIMGG$(20)
  6. 30 DIMI$(20)
  7. 35 FORJ=0TO24:POKES+J,0:NEXT:POKES+24,15
  8. 40 GOSUB 995:QM=170
  9. 45 FORJ=0TO15:READA$(J):NEXT
  10. 50 FORJ=1TO15:READB$(J):NEXT
  11. 55 FORJ=1TO15:READC$(J):NEXT
  12. 60 FORJ=1TO15:READD$(J):NEXT
  13. 65 FORJ=1TO10:READE$(J):NEXT
  14. 70 FORJ=1TO15:READF$(J):NEXT
  15. 75 FORJ=1TO15:READG$(J):NEXT
  16. 80 FORJ=1TO15:READH$(J):NEXT
  17. 85 FORJ=1TO15:READI$(J):NEXT
  18. 90 PRINT"[154]ASK ME SENTENCES BEGINNING WITH"
  19. 95 PRINT"WHAT,WHERE,HOW,WHY,WHO,IS,DOES":PRINT"WILL,SHALL,ARE,DO,WHEN,";
  20. 100 PRINT"HOW MANY":PRINT"I WILL TRY TO ANSWER YOU, BUT"
  21. 105 PRINT"PLEASE UNDERSTAND IF I SEEM FLIP":PRINT"    I AM NEW AT THIS AND"
  22. 110 PRINT"HAVE A FEW THINGS TO LEARN YET"
  23. 115 INPUT"[150]YOUR NAME";NM$:PRINT"[147][152]"
  24. 120 Q=0:QQ=0:QR=0:X=X+1:QX=0
  25. 125 IFX>9THENX=0
  26. 130 Q3$= Q$:PRINT
  27. 135 FOR T=1TO3000:NEXT
  28. 140 PRINT"[147]     WHAT,WHERE,HOW,WHY,WHO,IS,DOES"
  29. 145 PRINT"     WILL,SHALL,ARE,DO,WHEN,HOW MANY
  30. 148 [153]"        PRESS <POKE_> TO END SESSION.
  31. 150 PRINT"ASK-";
  32. 153 OPEN1,0:INPUT#1,Q$:PRINT:CLOSE1:PRINT"[147][152]":Q1$(X)=Q$
  33. 154 IFQ$="_"THENPOKE53281,6:POKE53280,14:PRINT"[147][154]":FORD=1TO2E3:NEXT:POKE53269,0:END
  34. 155 CO=RND(1)*11:POKE1560,108:POKE1562,108:POKES+1560,CO:POKES+1562,CO
  35. 160 IFQ$=Q3$THENFORT=1TO999:NEXT:PRINT"BUT I JUST ANSWERED THAT":Q3$="":GOTO135
  36. 165 IFR>8THENGOSUB1210
  37. 170 L=LEN(Q$):XQ=XQ+1:GOSUB 835:GOSUB 695
  38. 175 IFLEFT$(Q$,6)="WHERE "THEN Q=1
  39. 180 IFLEFT$(Q$,5)="WHEN "THEN Q=2
  40. 185 IFLEFT$(Q$,4)="WHY "THEN  Q=3
  41. 190 IFLEFT$(Q$,5)="WHAT "THEN Q=4
  42. 195 IFLEFT$(Q$,4)="HOW "THEN  Q=5
  43. 200 IFLEFT$(Q$,3)="WHO"THEN  Q=6
  44. 205 IFLEFT$(Q$,5)="WILL "THEN  Q=7
  45. 210 IFLEFT$(Q$,6)="SHALL "THEN  Q=7
  46. 215 IFLEFT$(Q$,3)="DO "THEN  Q=8
  47. 220 IFLEFT$(Q$,5)="DOES "THEN  Q=8
  48. 225 IFLEFT$(Q$,3)="IS "THEN  Q=9
  49. 230 IFLEFT$(Q$,4)="ARE "THEN  Q=9
  50. 235 GOSUB 895:IFYS>0THENYS=0:GOTO120
  51. 240 IFQ<>0THEN260
  52. 245 IFRND(1)<=.3THENPRINT"THAT DOES NOT COMPUTE!!":GOTO120
  53. 250 IFRND(1)>=.6THENPRINT"THAT'S CLEAR AS MUD, WHATCHA MEAN!!":GOTO120
  54. 255 PRINT"I DO NOT UNDERSTAND YOU":GOTO120
  55. 260 :
  56. 265 FORJ=1TOL:IFMID$(Q$,J,6)=" YOUR "THENQQ=1:GOTO305
  57. 270 NEXT
  58. 275 FORJ=1TOL:IFMID$(Q$,J,4)=" MY "THENQQ=2:QR=1:GOTO305
  59. 280 NEXT
  60. 285 FORJ=1TOL:IFMID$(Q$,J,4)="THE "THENQQ=3:GOTO305
  61. 290 NEXT
  62. 295 FORJ=1TOL:IFMID$(Q$,J,5)=" YOU "THENQQ=1:GOTO305
  63. 300 GOTO305
  64. 305 IFQQ=1ORQQ=2THENGOTO315
  65. 310 GOTO325
  66. 315 FORJ=1TOL:IFMID$(Q$,J,5)=" NAME"THENQQ=6:GOTO360
  67. 320 NEXT
  68. 325 IFQ=2ORQ=7THENPRINT:PRINT"YOU'RE ASKING ABOUT THE FUTURE?":GOTO355
  69. 330 IFQQ=0THENGOTO360
  70. 335 ONQQGOTO340,345,350
  71. 340 PRINT:PRINT"YOU WISH TO KNOW ABOUT YOURSELF?":GOTO360
  72. 345 PRINT:PRINT"YOU WISH TO KNOW ABOUT ME?":GOTO360
  73. 350 :
  74. 355 IFQ=7ANDQQ=1THENPRINT"YOU'RE ASKING ABOUT YOUR FUTURE?"
  75. 360 GOSUB 960:POKEV+21,5:PRINT:PRINT"YOU ASK "LEFT$(Q$,30)
  76. 365 PRINTMID$(Q$,31,40)"[151]":POKEV+21,6
  77. 370 IFRND(1)<=.3THENPRINT"THIS IS MY REPLY:[151]":GOTO385
  78. 375 IFRND(1)>=.6THENPRINT"WELL YOU SEE IT'S LIKE THIS:[151]":GOTO385
  79. 380 PRINT"I ANSWER:[151]
  80. 385 [129]T[178]1[164]2E3:[130]:[151]V[170]21,5
  81. 390 R[178][181]([187](1)[172]15)[170]1:RH[178][181]([187](1)[172]10)[170]1
  82. 395 [139]Q[178]0[167]Z$[178]"I HONESTLY DON'T KNOW":[137]445
  83. 400 [139]Q[178]1[167]Z$[178]A$(R):[137]445
  84. 405 [139]Q[178]2[167]Z$[178]B$(R):[137]445
  85. 410 [139]Q[178]3[167]Z$[178]C$(R):[137]445
  86. 415 [139]Q[178]4[167]Z$[178]D$(R):[137]445
  87. 420 [139]Q[178]5[167]Z$[178]E$(RH):[141] 510:[137]445
  88. 425 [139]Q[178]6[167]Z$[178]F$(R):[137]445
  89. 430 [139]Q[178]7[167]Z$[178]G$(R):[137]445
  90. 435 [139]Q[178]8[167]Z$[178]H$(R):[137]445
  91. 440 [139]Q[178]9[167]Z$[178]I$(R):[137]445
  92. 445 [139]Q[178]0[167]Z$[178]"I HONESTLY DON'T KNOW"
  93. 450 [139]HM[178]1[167]HM[178]0:[137] 535
  94. 455 LL[178][195](Z$):[139]QQ[178]6[167][137]490
  95. 460 [153]:[129]J[178]1[164]LL:[153][202](Z$,J,1);:[129]T[178]1[164]100:[130]:[130]
  96. 465 RR[178][181]([187](1)[172]10)[170]1
  97. 470 [139]QQ[178]1[167][153]AA$(RR);:[137] 535
  98. 475 [139]QQ[178]2[167][153]BB$(RR);:[137] 535
  99. 480 [139]QQ[178]3[167][153]CC$(RR);:[137] 535
  100. 485 [139]QQ[178]4[167][153]DD$(RR);:[137] 535
  101. 490 [139]QQ[178]6[175]QR[178]1[167][141] 630:QR[178]0:[137] 535
  102. 495 [139]QQ[178]6[167][153]:[153]"YOUR NAME IS "NM$:[137] 535
  103. 500 [137] 535
  104. 505 :
  105. 510 [129]J[178]1[164]L:[139][202](Q$,J,5)[178]" MANY"[167][137] 525
  106. 515 [130]
  107. 520 [142]
  108. 525 [153]"SOMEWHERE BETWEEN";[181]([187](1)[172]20)"AND"[181]([187](1)[172]100)[170]21
  109. 530 HM[178]1:[142]
  110. 535 Q1[178][181]([187](1)[172]8)[170]1:Q2[178][181]([187](1)[172]8)[170]1:Q6[178][181]([187](1)[172]20)
  111. 540 [139]Q6[179]3[167][129]T[178]1[164]2000:[130]:[141] 860
  112. 545 [151]V[170]21,6
  113. 550 [139]Q1[177]7[175]XQ[177]9[167][141] 560:[139]YN$[178]"N"[167][137]360
  114. 555 [137]120
  115. 560 [139][187](1)[177].5[167][153]:[153]"LOADPARDON ME...POKE":[153]:[137]570
  116. 565 [153]:[153]"LOADEXCUSE ME...POKE":[153]
  117. 570 [129]T[178]1[164]1000:[130]:[153]"BUT WHEN YOU ASKED ME":[153]
  118. 575 [129]J[178]1[164][195](Q1$(Q2)):[153]"PRINT#"[202](Q1$(Q2),J,1);
  119. 580 [129]T[178]1[164]100:[130]:[130]:[153]
  120. 585 [139][187](1)[177].5[167][129]T[178]1[164]1E3:[130]:[153]"WAS THAT AN OK ANSWER Y/NPOKE":[137] 595
  121. 590 [129]T[178]1[164]1E3:[130]:[153]"DEFWAS THE ANSWER SUFFICIENT  Y/NPOKE"
  122. 595 [161]YN$:[139]YN$[178]""[167] 595
  123. 600 [153]
  124. 605 [139]YN$[178]"N"[167] Q$[178]Q1$(Q2): [142]
  125. 610 [139]YN$[178]"Y"[167][153]"I'M USUALLY RIGHT
  126. 615 RETURN
  127. 620 PRINT
  128. 625 GOTO120
  129. 630 NM=INT(RND(1)*7)+1:ON NM GOSUB 640, 645, 650, 655, 660, 665, 670
  130. 635 RETURN
  131. 640 PRINT"SOMETIMES, LORELDA, THE ALL SEEING":RETURN
  132. 645 PRINT"AT TIMES I AM "NM$", THE MIRROR":RETURN
  133. 650 PRINT"ALL THINGS ALL NAMES":RETURN
  134. 655 PRINT"IT IS ESPIRITUS SOMETIMES"
  135. 660 PRINT"SOMETIMES, ROGER ":RETURN
  136. 665 PRINT"IT IS NOT FOR YOU TO KNOW":RETURN
  137. 670 MN=LEN(NM$)
  138. 675 PRINT"FOOL, IT'S ";
  139. 680 FORJ=0TOMN
  140. 685 IFMN-J=0THENPRINT", THE WISE":RETURN
  141. 690 PRINTMID$(NM$,MN-J,1);:NEXT:RETURN
  142. 695 FORJ=1TOL:IFMID$(Q$,J,5)=" YOU "THENQ4$=LEFT$(Q$,J):GOTO 710
  143. 700 NEXT
  144. 705 GOTO 730
  145. 710 Q5$=RIGHT$(Q$,L-(J+3))
  146. 715 Q3$="I "
  147. 720 Q$=Q4$+Q3$+Q5$
  148. 725 RETURN
  149. 730 FORJ=1TOL:IFMID$(Q$,J,3)=" I "THENQ4$=LEFT$(Q$,J):GOTO 745
  150. 735 NEXT
  151. 740 GOTO 765
  152. 745 Q5$=RIGHT$(Q$,L-(J+2))
  153. 750 Q3$="YOU "
  154. 755 Q$=Q4$+Q3$+Q5$
  155. 760 RETURN
  156. 765 FORJ=1TOL:IFMID$(Q$,J,6)=" YOUR "THENQ4$=LEFT$(Q$,J):GOTO 780
  157. 770 NEXT
  158. 775 GOTO 800
  159. 780 Q5$=RIGHT$(Q$,L-(J+5))
  160. 785 Q3$="MY "
  161. 790 Q$=Q4$+Q3$+Q5$
  162. 795 RETURN
  163. 800 FORJ=1TOL:IFMID$(Q$,J,4)=" MY "THENQ4$=LEFT$(Q$,J):GOTO 815
  164. 805 NEXT
  165. 810 GOTO 830
  166. 815 Q5$=RIGHT$(Q$,L-(J+3))
  167. 820 Q3$="YOUR "
  168. 825 Q$=Q4$+Q3$+Q5$
  169. 830 RETURN
  170. 835 IFRIGHT$(Q$,3)=" ME"THENQ4$=" YOU":GOTO 845
  171. 840 RETURN
  172. 845 Q3$=LEFT$(Q$,L-3)
  173. 850 Q$=Q3$+Q4$
  174. 855 RETURN
  175. 860 PRINT"[147]":ONQ6GOTO 865, 880
  176. 865 IFRND(1)<=.3THENPRINT"HOW'S THAT "NM$:RETURN
  177. 870 IFRND(1)>=.6THENPRINT"OH BOY! AM I HOT!!":RETURN
  178. 875 PRINT"I'M PRETTY GOOD,EH":RETURN
  179. 880 IFRND(1)<=.3THENPRINT"USE CAUTION NOW "NM$:RETURN
  180. 885 IFRND(1)>=.6THENPRINT"EASY DOES IT!":RETURN
  181. 890 PRINT"PLEASE BE CAREFUL, "NM$:RETURN
  182. 895 :
  183. 900 IFLEFT$(Q$,8)="YOU ARE "THENPRINT"YOU SAY I AM ";MID$(Q$,9,20):YS=1
  184. 905 FORT=1TO1000:NEXT
  185. 910 IFYS=1THENYS$="IT TAKES ONE TO KNOW ONE!"
  186. 915 IFYS=1THENFORJ=1TOLEN(YS$):PRINTMID$(YS$,J,1);:FORT=1TO100:NEXT:NEXT:PRINT
  187. 920 IFYS=1THENRETURN
  188. 925 IFLEFT$(Q$,4)="YOU "THENPRINT"YOU SAY I ";MID$(Q$,5,30):YS=2
  189. 930 IFYS=2THENFORT=1TO1000:NEXT
  190. 935 IFYS=2THENYS$="I DON'T THINK YOU KNOW ME!"
  191. 940 IFYS=2THENFORJ=1TOLEN(YS$):PRINTMID$(YS$,J,1);:FORT=1TO100:NEXT:NEXT:PRINT
  192. 945 RETURN
  193. 950 REM**** POKEV+21,64:FORT=1TO500:POKEV+21,128
  194. 955 REM**** RETURN
  195. 960 POKE54276,128:POKE54283,128
  196. 965 FORL=5TO56STEP50
  197. 970 POKE 54272,1:POKE 54273,L/10:POKE54279,1:POKE54280,1
  198. 975 POKE 54277,254:POKE 54278,24:POKE54284,254:POKE54285,24
  199. 980 POKE 54276,129:POKE54283,129
  200. 985 NEXT
  201. 990 RETURN
  202. 995 PRINT"[147]";
  203. 1000 PRINT"[151][188]  [146][208][208] [165][167]  [146][208] [207] [146][208]  [146]  [146][208]     [146][208]  [146][208]  [146]  [146][208]  [146] [207] [146][208]";
  204. 1005 PRINT"   [146][167][167] [204][186] [223][223][146]   [146]   [146]  [146]    [223] [223][146]  [146][186]  [146]  [146][186]  [146]   [146]
  205. 1010 [153]" POKE  WAITTHENTHEN GETWAITGET (null) WAIT   WAIT   WAIT  WAITSQR   (null)  WAIT  WAIT   WAIT  WAIT(null)  WAIT   WAIT
  206. 1015 PRINT"            [146][208]  [146][205]  [146][167]  [146]  [146][208]  [146][208]  [146][208]"
  207. 1020 PRINT"          [151]  [146][186]  [146][167]  [146][167]  [146] [223][223][146]  [146][167]  [146][186]"
  208. 1025 PRINT"            [146][167]  [146][186]  [146][206]  [146] [204] [146]  [146][186]  [146][205]":FORD=1TO2E3:NEXT
  209. 1027 FORT=1TO17:PRINT:FORD=1TO 20:NEXT:NEXT
  210. 1030 V=53248:FORI=832TO1022:READ D:POKEI,D:NEXT
  211. 1035 DATA 0,0,0,0,0,0,112,0
  212. 1040 DATA 14,28,0,56,7,0,224,1
  213. 1045 DATA 195,128,3,195,192,7,231,224
  214. 1050 DATA 6,102,96,3,195,192,0,24
  215. 1055 DATA 0,64,24,2,112,153,14,124
  216. 1060 DATA 102,62,47,0,244,57,195,156
  217. 1065 DATA 25,126,152,15,36,240,3,165
  218. 1070 DATA 192,0,255,0,0,0,0,0
  219. 1075 DATA 0,0,0,0,0,0,112,0
  220. 1080 DATA 14,28,0,56,7,0,224,3
  221. 1085 DATA 195,192,3,195,192,6,102,96
  222. 1090 DATA 6,102,96,3,195,192,0,24
  223. 1095 DATA 0,0,24,0,192,153,3,96
  224. 1100 DATA 102,14,56,0,24,30,0,120
  225. 1105 DATA 15,129,224,3,255,192,0,126
  226. 1110 DATA 0,0,0,0,0,0,0,0
  227. 1115 POKE2040,13:POKE2041,14:POKEV+39, 8:POKEV+40, 8:POKEV+29,3 :REM 12
  228. 1120 POKEV,141:POKEV+2,141:POKEV+1,152:POKEV+21,2
  229. 1125 FORTT=1TO152:POKEV+3,TT:FORT=1TO10:NEXT:NEXT:FORT=1TO1000:NEXT
  230. 1130 FORJ=1582TO1560STEP-1:POKEJ,108:POKEJ+54272,5:POKEJ+2,108:GOSUB1160
  231. 1135 POKEJ,32:POKEJ+2,32:NEXT:POKE1560,108:POKE1562,108
  232. 1140 FORT=1TO1000:NEXT:POKEV+21,2
  233. 1145 POKE2042,15:POKEV+41,1:POKEV+4,152:POKEV+5,170:POKEV+21,6
  234. 1150 POKEV+21,5:FORT=1TO1000:NEXT:POKEV+21,6
  235. 1155 RETURN
  236. 1160 POKES+5,4:POKES+6,240:POKES+1,50:POKES+4,17:FORT=1TO10:NEXT:POKES+4,16
  237. 1165 RETURN
  238. 1170 DATA 0,0,0,0,0,0,0,0
  239. 1175 DATA 0,0,0,0,0,0,0,0
  240. 1180 DATA 14,0,0,27,0,0,49,128
  241. 1185 DATA 0,32,128,0,1,128,0,7
  242. 1190 DATA 0,0,12,0,0,8,0,0
  243. 1195 DATA 0,0,0,8,0,0,0,0
  244. 1200 DATA 0,0,0,0,0,0,0,0
  245. 1205 DATA 0,0,0,0,0,0,0,0
  246. 1210 IFQM>140THENFORQM=165TO140STEP-1:POKEV+5,QM:FORT=1TO20:NEXT:NEXT:RETURN
  247. 1215 IFQM<170THENFORQM=QM TO170:POKEV+5,QM:FORT=1TO20:NEXT:NEXT:RETURN
  248. 1220 DATA"FAR AWAY","WI[168]HIN YOUR REACH","CLOSER THAN YOU THINK"
  249. 1225 DATA"BEYOND YOUR REACH","I THINK YOU KNOW","HMMM, THAT'S A PUZZLE"
  250. 1230 DATA"TRY LOOKING AROUND YOU","HIDDEN HIDDEN","WHERE YOU LEAST SUSPECT"
  251. 1235 DATA"IT MUST BE KEPT SECRET NOW"
  252. 1240 DATA"DEEP, SO DEEP","BEYOND MY SEEING","NEXT TO YOUR HEART","I CANNOT TELL
  253. 1245 [131]"BETTER YOU DON'T KNOW
  254. 1250 DATA"WITHIN THE YEAR","BEFORE TOMORROW'S TOMORROW","TOO EARLY TO TELL"
  255. 1255 DATA"IT HAS HAPPENED","VERY SOON NOW","NOT SURE WHEN","NOT FOR A WHILE"
  256. 1260 DATA"IT IS DONE","AFTER YOU PRAY","WAIT A LITTLE LONGER"
  257. 1265 DATA"WHENEVER YOU LIKE","BEFORE YOU TIRE OF LOOKING","SEEK NOT THIS ANSWER
  258. 1270 [131]"PERHAPS SOONER THAN YOU'D LIKE","AFTER YOU'VE GIVEN UP HOPE"
  259. 1275 [131]"NOT FOR YOU TO KNOW","BECAUSE IT IS","ONLY A FEW MAY KNOW"
  260. 1280 [131]"BECAUSE THERE ARE SPIRITS","NOT SURE WHY","BECAUSE IT IS IMPORTANT"
  261. 1285 [131]"GOD HAS WILLED IT","YOU MUST KNOW WHY","BECAUSE IT CAN'T BE HELPED"
  262. 1290 [131]"WHO SAID IT WAS","BECAUSE, SOME THINGS ARE","BECAUSE LIFE IS STRANGE
  263. 1295 DATA"BECAUSE IT IS SO","OTHERWISE IT MIGHT BE HARMFUL
  264. 1300 [131]"DO NOT ASK, FOOLISH ONE
  265. 1305 DATA"A DANGEROUS MISSION","MUCH MONEY","A FINE THING","HAPPINESS"
  266. 1310 DATA"IT IS DIFFICULT TO GUESS","A WORTHLESS QUEST","A USELESS QUESTION"
  267. 1315 DATA"I SEE IT AS SMALL MATTER","INCREDIBLE TROUBLE","WHY BOTHER WITH IT"
  268. 1320 DATA"YOU THINK I KNOW ALL?","I CANNOT TELL YOU","A MYSTERY INDEED!
  269. 1325 [131]"PLEASE DO NOT ASK THIS","ASK YOURSELF, OH SMART ONE
  270. 1330 DATA"WITH A STEADY HAND","WITH STRENGTH","WITH MUCH EFFORT","YOU KNOW HOW"
  271. 1335 DATA"YOU MUST PRAY FIRST","WITH HELP FROM FRIENDS","SEEK FRIENDS
  272. 1340 "AS EASY AS WISHING FOR IT","WITH MUCH LUCK","IMPOSSIBLE
  273. 1345 DATA"A CLOSE FRIEND","A LOVER","YOUR SPIRIT GUIDE","MANY CLOSE ONES"
  274. 1350 DATA"ONE OF SEVERAL ENEMIES","YOUR BEST FRIEND","YOUR GREATEST ENEMY"
  275. 1355 DATA"A NEW PERSON","THE ONE YOU LEAST SUSPECT","GOD ONLY KNOWS"
  276. 1360 DATA"SOMEONE TRULY SPECIAL","AN UNUSUAL PERSON","A STRANGER TO YOU NOW
  277. 1365 [131]"I CANNOT SAY WHO, TO YOU","I KNOW WHO BUT FEAR SAYING SO
  278. 1370 REM***DO
  279. 1375 REM*** DATA"MAYBE YES AND MAYBE NO","THERE IS A CHANCE","SOME SAY SO"
  280. 1380 REM***WILL
  281. 1385 DATA"YES,THIS WILL HAPPEN","NO, THIS WILL NOT HAPPEN
  282. 1390 [131]"I AM NOT CERTAIN IT WILL BE","WHY ASK, IT IS ALREADY DONE"
  283. 1395 [131]"THE FUTURE, AH IT IS CLEAR, YES!","NEVER, NEVER, NO NEVER
  284. 1400 DATA"IT IS IN THE FUTURE TOO FAR TO KNOW","DEFINITELY SO"
  285. 1405 DATA"BUT NO, THIS IS NOT SUPPOSED TO BE!","MOST CERTAINLY NOT!
  286. 1410 [131]"BUT YES, YOU KNOW IT IN YOUR HEART","THERE IS NO GUARANTEE OF THIS"
  287. 1415 [131]"THIS IS A GUESS...YES!","THIS IS A GUESS...NO!
  288. 1420 DATA"FIND THIS OUT FOR YOURSELF
  289. 1425 [131]"YES, THIS IS TRUE","AT CERTAIN TIMES I DO THINK SO
  290. 1430 DATA"I THINK YOU KNOW","DO EAGLES SOAR?","ASK SOMEONE CLOSE TO YOU"
  291. 1435 DATA"AS SURE AS I CAN BE TODAY","THIS IS FOOLISH","YOU TELL ME WISE ONE"
  292. 1440 DATA"I DON'T REALLY KNOW","THIS IS AFFIRMATIVE","HAH! OF COURSE!
  293. 1445 [131]"I CANNOT TELL RIGHT NOW","NOW, COME ON, THINK ABOUT IT
  294. 1450 DATA"YES, YES!...OKAY?","NOPE, NOT AT ALL
  295. 1455 [131]"COUNT ON IT","IT APPEARS TO BE TRUE","WHY NOT ASK THE SOURCE"
  296. 1460 [131]"THIS IS PROBABLY TRUE","I'M NOT SO SURE","NAH, I DON'T THINK SO"
  297. 1465 [131]"PROBABLY NOT, BUT IT'S UNCLEAR","YEP, I'M REAL SURE THAT'S SO"
  298. 1470 [131]"MMMM HMMM!","YOUR GUESS IS AS GOOD AS MINE","YOU CAN BET ON IT!
  299. 1475 DATA"YOU WOULD NOT LIKE THE ANSWER","I'M NOT TOO SURE","DON'T BOTHER ME!"
  300. 1480 DATA"I'M AFRAID TO ANSWER!","ARE BUTTERFLIES FREE?","AM I A SPIRIT?"
  301. 1485 DATA"THIS ONE IS EASY...YES!"
  302. 1490 REM         Q-LINK DISK # 92
  303.