home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 14 / 64er_Magazin_Sonderheft_14_19xx_Markt__Technik_de.d64 / eliza (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  9KB  |  310 lines
  1. 10 print"[147]":
  2. 20 (NULL)4,8,4:(NULL)0,7,3:(NULL)1,8,7
  3. 30 rem august   1986
  4. 40 rem umgeschrieben von:m. holzmann
  5. 50 rem *****************************
  6. 60 rem abgeaendert fuer :plus/4,c 16
  7. 70 print"           [213][195][195][195][195][195][195][195][195][195][195][195][201] "
  8. 80 print"           [194] e l i z a [194]"
  9. 90 print"           [202][195][195][195][195][195][195][195][195][195][195][195][203] "
  10. 100 print"
  11. 110 [153]"
  12. 120 print"    eliza analysiert ihre probleme"
  13. 130 print
  14. 140 print"           sie benoetigen:
  15. 150 [153]
  16. 160 [153]"    1) englischkenntnisse "
  17. 170 [153]
  18. 180 [153]"    2) (wenn 1 nicht vorhanden):
  19. 190 print"       ein englischwoerterbuch"
  20. 200 print
  21. 210 print"    3) einige probleme       "
  22. 220 print"       (falls sie keine haben
  23. 230 [153]"       druecken sie 'reset')
  24. 240 print"
  25. 250 [153]"    4) sehr viel geduld !!!"
  26. 260 [153]
  27. 270 [153]"    wenn sie alles beisammen haben:
  28. 280 print"           taste druecken    "
  29. 290 print
  30. 300 get(NULL) aa$
  31. 310 (NULL)1,1:(NULL)0,2,6:(NULL)4,2,3
  32. 320 ifti<lthen 320
  33. 330 print"[147]"
  34. 340 dim s(42),n(42),r(42),k$(42)
  35. 350 n(1) = 3:k$(1) ="can you":s$(1)= " are ":r$(1)=" am "
  36. 360 n(2) = 2:k$(2) ="can i":s$(2)=" were":r$(2)=  " was "
  37. 370 n(3) = 4:k$(3) ="you are":s$(3)= " me ":r$(3)=    " you "
  38. 380 n(4) =-4:k$(4) ="youre"  :s$(4)="your":r$(4)=" my "
  39. 390 n(5) = 4:k$(5) ="i dont":s$(5)="ive":r$(5)="youve"
  40. 400 n(6) = 3:k$(6) ="i feel":s$(6)=" im ":r$(6)="youre"
  41. 410 n(7) = 3:k$(7) ="why dont you":s$(7)=" i":r$(7)=" you "
  42. 420 n(8) = 2:k$(8) ="why cant i"
  43. 430 n(9) = 3:k$(9) ="are you"
  44. 440 n(10)= 3:k$(10)="i cant"
  45. 450 n(11)= 4:k$(11)="i am"
  46. 460 n(12)=-4:k$(12)=" im"
  47. 470 n(13)= 3:k$(13)="you "
  48. 480 n(14)= 5:k$(14)="i want"
  49. 490 n(15)= 9:k$(15)="what "
  50. 500 n(16)=-9:k$(16)="how "
  51. 510 n(17)=-9:k$(17)="who "
  52. 520 n(18)=-9:k$(18)="where "
  53. 530 n(19)=-9:k$(19)="when "
  54. 540 n(20)=-9:k$(20)="why "
  55. 550 n(21)= 2:k$(21)="name"
  56. 560 n(22)= 4:k$(22)="cause"
  57. 570 n(23)= 4:k$(23)="sorry"
  58. 580 n(24)= 4:k$(24)="dream"
  59. 590 n(25)= 1:k$(25)="hello"
  60. 600 n(26)=-1:k$(26)="hi "
  61. 610 n(27)= 5:k$(27)="maybe"
  62. 620 n(28)= 5:k$(28)="no "
  63. 630 n(29)= 2:k$(29)="your"
  64. 640 n(30)= 4:k$(30)="always"
  65. 650 n(31)= 3:k$(31)="think"
  66. 660 n(32)= 7:k$(32)="like a"
  67. 670 n(33)= 3:k$(33)="yes "
  68. 680 n(34)= 6:k$(34)="friend"
  69. 690 n(35)= 7:k$(35)="computer"
  70. 700 n(36)= 3:k$(36)="eliza"
  71. 710 n(37)= 3:k$(37)="money"
  72. 720 n(38)= 1:k$(38)="i love"
  73. 730 n(39)= 1:k$(39)="love "
  74. 740 n(40)= 1:k$(40)="eberhard"
  75. 750 n(41)= 3:k$(41)="i hate"
  76. 760 n(42)= 7:k$(42)="nokeyfound"
  77. 770 goto 840
  78. 780 rem
  79. 790 for a=1 to len(x$)-len(y$)+1
  80. 800 if mid$(x$,a,len(y$))=y$ then return
  81. 810 next a
  82. 820 a=0
  83. 830 return
  84. 840 n1=42:n2=14:n3=120
  85. 850 s(1)=1
  86. 860 for i=2 to n1 step 1
  87. 870 s(i)=s(i-1)+abs(n(i-1))
  88. 880 n(i-1)=s(i)-1
  89. 890 if n(i)<0 then 920
  90. 900 r(i)=s(i)
  91. 910 goto 930
  92. 920 s(i)=s(i-1):r(i)=r(i-1)
  93. 930 next i
  94. 940 n(n1)=s(n1)+n(n1)-1
  95. 950 print"[209]: hi, i am eliza tell me your problem":print
  96. 960 q=0:p=ti+18000
  97. 970 m=ti+10
  98. 980 ifti<mthen980
  99. 990 input"[215]";i$
  100. 1000 q=q+1
  101. 1010 if q<>100 or ti>p then 1160
  102. 1020 print"[147]"
  103. 1030 print""
  104. 1040 print" $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$"
  105. 1050 print" $                                    $"
  106. 1060 print" $ your time is up!before i talk with $"
  107. 1070 print" $                                    $"
  108. 1080 print" $ you any longer,you have to pay the $"
  109. 1090 print" $                                    $"
  110. 1100 print" $     bill of $ 3999.90 + 21% vat!   $"
  111. 1110 print" $                                    $"
  112. 1120 print" $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$":print""
  113. 1130 m=ti+300
  114. 1140 ifti<mthen1140
  115. 1150 goto2850
  116. 1160 i$=" "+i$+" "
  117. 1170 for l=1 to len(i$)
  118. 1180 if mid$(i$,l,1)="'" then i$=left$(i$,l-1)+right$(i$,len(i$)-l)
  119. 1190 next l
  120. 1200 ifi$=p$thenui$="[209]: please dont repeat yourself":printui$:print:goto970
  121. 1210 rem
  122. 1220 s=0
  123. 1230 for k=0 to n1
  124. 1240 if k=o goto 1270
  125. 1250 x$=i$:y$=k$(k):gosub 780
  126. 1260 if a<>0 then s=k:t=a:f$=k$(k):goto 1280
  127. 1270 next k
  128. 1280 if s>0 then k=s:l=t:goto 1320
  129. 1290 if x=7 then 1370
  130. 1300 k=n1:goto 1470
  131. 1310 rem
  132. 1320 c$=" "+right$(i$,len(i$)-len(f$)-l+1)
  133. 1330 for x=1 to n2/2
  134. 1340 for l=1 to len(c$)
  135. 1350 if l+ len(s$(x))>len(c$) then 1390
  136. 1360 if mid$(c$,l,len(s$(x)))<>s$(x) then 1390
  137. 1370 c$=left$(c$,l-1)+r$(x)+right$(c$,len(c$)-l-len(s$(x))+1)
  138. 1380 l=l+len(r$(x))
  139. 1390 ifx=7then1430
  140. 1400 if l+len(r$(x))>len(c$) then 1430
  141. 1410 if mid$(c$,l,len(r$(x)))<>r$(x) then 1430
  142. 1420 c$=left$(c$,l-1)+s$(x)+right$(c$,len(c$)-l-len(r$(x))+1)
  143. 1430 next l
  144. 1440 next x
  145. 1450 if mid$(c$,2,1)=" " then c$=right$(c$,len(c$)-1)
  146. 1460 rem antwort
  147. 1470 restore
  148. 1480 fori=1to32:readb:next
  149. 1490 print
  150. 1500 for x=1 to r(k):read f$:next x
  151. 1510 r(k)=r(k)+1
  152. 1520 if r(k)>n(k) then r(k)=s(k)
  153. 1530 x$=f$:y$="*":gosub 780
  154. 1540 if a=0 then print"[209]: "f$:print:p$=i$:goto 970
  155. 1550 ui$=left$(f$,a-1)+c$+right$(f$,len(f$)-a)
  156. 1560 print"[209]: "ui$:print
  157. 1570 goto 970
  158. 1580 data169,0,133,160,169,128,133,161,133,161,160,0,177,160,73,128,145,160,200
  159. 1590 data192,0,208,245,230,161,169,132,197,161,208,237,96
  160. 1600 rem antworten
  161. 1610 data "don't you believe that i can*"
  162. 1620 data "perhaps you would like to be able to*"
  163. 1630 data "you want me to be able to*"
  164. 1640 data "perhaps you don't want to*"
  165. 1650 data "do you want to be able to*"
  166. 1660 data "what makes you think i am*"
  167. 1670 data "does it please you to believe i am*"
  168. 1680 data "perhaps you would like to be*"
  169. 1690 data "do you sometimes wish you were*"
  170. 1700 data "don't you really*"
  171. 1710 data "why don't you*"
  172. 1720 data "do you wish to be able to*"
  173. 1730 data "does that trouble you?"
  174. 1740 data "tell me more about such feelings.
  175. 1750 [131] "do you often feel*"
  176. 1760 [131] "do you enjoy feeling*"
  177. 1770 [131] "do you really believe i don't *"
  178. 1780 [131] "perhaps in good time i will*"
  179. 1790 [131] "do you want me to*"
  180. 1800 [131] "do you think you should be able to*"
  181. 1810 [131] "why can't you*"
  182. 1820 [131] "why are you interested in whether or not i am*"
  183. 1830 [131] "would you prefer if i were not*"
  184. 1840 [131] "perhaps in your phantasies i am*"
  185. 1850 [131] "how do you know you can't*"
  186. 1860 [131] "have you tried?"
  187. 1870 [131] "perhaps you can now*"
  188. 1880 [131] "did you come to me because you are*"
  189. 1890 [131] "how long have you been*"
  190. 1900 [131] "do you believe it is normal to be*"
  191. 1910 [131] "do you enjoy being*"
  192. 1920 [131] "we were discussing you - not me!"
  193. 1930 [131] "oh, i*"
  194. 1940 [131] "you're not really talking about me, are you?"
  195. 1950 [131] "what would it mean to you if you got*"
  196. 1960 [131] "why do you want*"
  197. 1970 [131] "suppose you soon got*"
  198. 1980 [131] "what if you never got*"
  199. 1990 [131] "i sometimes also want*"
  200. 2000 [131] "why do you ask?"
  201. 2010 [131] "does that question interest you?"
  202. 2020 [131] "what answer would please you the most?"
  203. 2030 [131] "what do you think?"
  204. 2040 [131] "are such questions in your mind often?"
  205. 2050 [131] "what is that you really want to know?"
  206. 2060 [131] "have you asked anyone else?"
  207. 2070 [131] "have you asked such questions before?"
  208. 2080 [131] "what else comes to mind when you ask that?"
  209. 2090 [131] "names don't interest me."
  210. 2100 [131] "i don't care about names - please go on."
  211. 2110 [131] "is that the real reason?"
  212. 2120 [131] "don't any other reasons come to mind?"
  213. 2130 [131] "does that reason explain anything else?"
  214. 2140 [131] "what other reasons might there be?"
  215. 2150 [131] "please don't apologize!"
  216. 2160 [131] "apologies are not necessary."
  217. 2170 [131] "what feelings do you have when you apologize?"
  218. 2180 [131] "don't be so defensive!"
  219. 2190 [131] "what does that dream suggest to you?"
  220. 2200 [131] "do you dream often?"
  221. 2210 [131] "what persons appear in your dreams?"
  222. 2220 [131] "are you disturbed by your dreams?"
  223. 2230 [131] "how do you do ... please state your problem."
  224. 2240 [131] "you don't seem quite certain."
  225. 2250 [131] "why the uncertain tone?"
  226. 2260 [131] "can't you be more positive?"
  227. 2270 [131] "you aren't sure?"
  228. 2280 [131] "don't you know?"
  229. 2290 [131] "why no*"
  230. 2300 [131] "don't say no it's always so negative."
  231. 2310 [131] "why not?"
  232. 2320 [131] "are you sure?"
  233. 2330 [131] "why no?"
  234. 2340 [131] "why are you concerned about my*"
  235. 2350 [131] "what about your own*"
  236. 2360 [131] "can't you think of a specific example?"
  237. 2370 [131] "when?"
  238. 2380 [131] "what are you thinking of?"
  239. 2390 [131] "really always?"
  240. 2400 [131] "do you really think so?"
  241. 2410 [131] "but you are not sure you*"
  242. 2420 [131] "do you doubt you*"
  243. 2430 [131] "in what way?"
  244. 2440 [131] "what resamblence do you see?"
  245. 2450 [131] "what does the similarity suggest to you?"
  246. 2460 [131] "what other connections do you see?"
  247. 2470 [131] "could there really be some connections?"
  248. 2480 [131] "how?"
  249. 2490 [131] "i understand!"
  250. 2500 [131] "are you sure?"
  251. 2510 [131] "you seem quite positive."
  252. 2520 [131] "i see."
  253. 2530 [131] "why do you bring up the topic of friends?"
  254. 2540 [131] "do your friends worry you?"
  255. 2550 [131] "do your friends pick on you?"
  256. 2560 [131] "are you sure you have any friends?"
  257. 2570 [131] "do you impose on your friends?"
  258. 2580 [131] "perhaps your love for friends worries you."
  259. 2590 [131] "do computers worry you?"
  260. 2600 [131] "are you talking about me in particulary?"
  261. 2610 [131] "are you frightened by machines?"
  262. 2620 [131] "why do you mention computers?"
  263. 2630 [131] "what do you think machines have to do with your problem?"
  264. 2640 [131] "don't you think computers can help people?"
  265. 2650 [131] "what is it about machines that worries you?"
  266. 2660 [131] "i think we want to talk about you not about me!"
  267. 2670 [131] "what's about me?"
  268. 2680 [131] "why do you always bring up my name?"
  269. 2690 [131] "why do you have problems with money?"
  270. 2700 [131] "do you think money is every thing?"
  271. 2710 [131]"i say: money is nothing!"
  272. 2720 [131] "man!! love is only for idiots! why do you love*?"
  273. 2730 [131] "whom do you love?"
  274. 2740 [131] "if you want to speak about crazy german-teachers, not with me!!!"
  275. 2750 [131] "you seem to be quite agressive! aren't you?"
  276. 2760 [131] "why do you hate*?"
  277. 2770 [131] " you are right! i agree with you!"
  278. 2780 [131] "do you have any psychological problems?"
  279. 2790 [131] "oh! indeed?"
  280. 2800 [131] "i see."
  281. 2810 [131] "i'm not sure i understand you fully."
  282. 2820 [131] "come, come elucidate your thoughts."
  283. 2830 [131] "can you elaborate that?"
  284. 2840 [131] "that is quite interesting!"
  285. 2850 q[178]0
  286. 2860 [153]"load"
  287. 2870 [153]"****************************************"
  288. 2880 [153]""
  289. 2890 [153]"                    "
  290. 2900 [153]"               "
  291. 2910 [153]"                    "
  292. 2920 [153]"               "
  293. 2930 [153]"                  "
  294. 2940 [153]"                              "
  295. 2950 [153]"                        "
  296. 2960 [153]"                        "
  297. 2970 [153]"                    "
  298. 2980 [153]"               "
  299. 2990 [153]"                   "
  300. 3000 [153]"               "
  301. 3010 [153]"                    "
  302. 3020 [153]""
  303. 3030 [153]"****************************************"
  304. 3040 q[178]q[170]1:[139] q[178]10[167]3080
  305. 3050 m[178]ti[170]40
  306. 3060 [139]ti[179]m[167]3060
  307. 3070 [137]3040
  308. 3080 [153]"load"
  309. 3090 [128]
  310.