home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1984 June / 1984-06.d64 / therapy_vic (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  5KB  |  141 lines
  1. 100 printchr$(142)chr$(8)chr$(30):poke36879,8:gosub1230:poke198,0
  2. 105 q=0:qd=0
  3. 110 printchr$(147);"hello. i'm dr. rom.   what's your name?"
  4. 115 gosub1160:a$=p1$:print
  5. 120 print"in one word, ";a$;",":print"what is your problem?":gosub1160:b$=p1$
  6. 130 print:printb$;"...?":print:print"can you tell me more?"
  7. 140 gosub1160:gosub900
  8. 150 print:print"i understand ";b$:print"is difficult for you."
  9. 160 gosub1160:ifp1$="no"thenprint"maybe i'm not quite   understanding..."
  10. 170 print:print"can you be more       specific? how is":printb$;" a problem?"
  11. 180 gosub1160:gosub900
  12. 190 print:print"how does this make youfeel, ";a$;"?":gosub1160:c$=p1$
  13. 200 printchr$(147)
  14. 205 print"so what you're saying,";a$;", is that your":print"problem with ";b$
  15. 210 print"is making you feel ":printc$;".":gosub1160
  16. 220 print:print"can you elaborate on  your feelings?":gosub1160:gosub900
  17. 230 print:print"has this been a       problem for you before? (yes or no)":gosub1160
  18. 240 ifp1$<>"no"then260
  19. 250 print"i see. then this new  situation must be     difficult for you.":goto320
  20. 260 print:print"did you also feel":printc$;" then?"
  21. 270 gosub1160:print"tell me more."
  22. 280 gosub1160:gosub900
  23. 290 printchr$(147)"i think we have       something here. do    you see a pattern?"
  24. 300 gosub1160:print:print"go on..."
  25. 310 gosub1160:print"this sounds difficult for you.":gosub1160
  26. 320 print:print"do you have a plan to deal with this currentsituation?";
  27. 330 print" (yes or no)":gosub1160
  28. 340 ifp1$<>"yes"then350
  29. 343 print"do you think this planwill be successful?":goto360
  30. 350 print:print"why don't you make a  list of possible      solutions, then."
  31. 360 gosub1160:gosub900
  32. 370 fort=1to500:nextt:printchr$(147)
  33. 380 print"okay, what single wordbest describes";
  34. 385 print" how youare feeling right now?"
  35. 390 gosub1160:d$=p1$::print:printd$;"...?"
  36. 400 gosub1160:gosub900:print
  37. 410 print"i'm thinking of doing something here.":print"let's try some word"
  38. 430 print"association and see   where it leads us."
  39. 440 print"what do you think     (yes or no)?":gosub1160
  40. 450 ifp1$="yes"then490
  41. 460 print:print"you seem to be having some problems with    this."
  42. 470 print"can you tell me about it?":gosub1160:ifp1$="no"then840
  43. 480 print:print"i really think a word association would be  useful right now."
  44. 490 print:print"let's do it."
  45. 500 print"i'll say a word. you  say the first word    that comes to your    mind."
  46. 510 rem ***word association***
  47. 520 fort=1to5000:nextt:printchr$(147);"dog":print:gosub1160
  48. 530 print:print"drink":print:gosub1160
  49. 540 print:print"home":print:gosub1160:e$=p1$
  50. 550 print:printb$:print:gosub1160:f$=p1$
  51. 560 print:print"feelings":print:gosub1160
  52. 570 print:print"fun":print:gosub1160:g$=p1$
  53. 580 print:print"mom":print:gosub1160:i$=p1$
  54. 590 print:printc$:print:gosub1160:j$=p1$
  55. 600 fort=1to1000:nextt:printchr$(147)
  56. 610 print"i noticed when i said home that you said":printe$;"."
  57. 620 print"does this somehow     reflect how you feel  about yourself?"
  58. 630 print"yes or no":gosub1160:ifp1$<>"yes"then650
  59. 640 print:print"in what way?":gosub1160:gosub900
  60. 650 print:print"how does this relate  to your problem with":printb$
  61. 660 gosub1160:gosub900:print:print"when i said ";b$:print"you said ";f$
  62. 670 print"what do you think thismeans?":gosub1160:gosub900
  63. 680 print:print"are you distressed? doyou want a kleenex?":gosub1160
  64. 690 ifp1$<>"yes"then710
  65. 700 print"here.":fort=1to1000:nextt
  66. 710 print:print"it's interesting that when i said fun,  you said ";g$
  67. 720 gosub1160:gosub900:printchr$(147);"hmmmm..."
  68. 730 print:print"it seems to me, ";a$;","
  69. 735 print"that this all ties in to your problem"
  70. 740 print"with ";b$
  71. 750 gosub1160:goto770
  72. 760 rem ***dreams***
  73. 770 print:print"let's try a different":print"approach,";a$
  74. 780 print"tell me about one of  your dreams.":gosub1160:gosub1040:ifqd=1then840
  75. 790 print:print"how would you describeyour feelings in the  dream?":gosub1160
  76. 800 print:print"did the dream have    anything to do with":printi$
  77. 810 gosub1160:fort=1to1000:nextt
  78. 820 rem ***all done***
  79. 830 print:print"[147]i think we're moving  in a good direction.":print
  80. 840 print"we've discussed your  problem with":printb$:print"and how this makes you"
  81. 850 print"feel ";c$;";"
  82. 860 print"and discussed some    possible solutions."
  83. 870 print:print"i see your time is up.see you next week."
  84. 880 end
  85. 890 rem ***keywords***
  86. 900 ifq>0thenreturn
  87. 910 forj=1tolen(p1$)-5
  88. 920 ifmid$(p1$,j,5)<>" fun "then930
  89. 925 print:print"what are your         feelings about fun?":goto950
  90. 930 nextj
  91. 940 return
  92. 950 gosub1160:q=1:print:print"these feelings seem   important."
  93. 960 gosub1160:return
  94. 1040 rem ***dream keyword search***
  95. 1050 forj=1tolen(p1$)-7
  96. 1060 ifmid$(p1$,j,7)=" don't "then1120
  97. 1070 nextj
  98. 1080 forj=1tolen(p1$)-6
  99. 1090 ifmid$(p1$,j,6)=" dont "then1120
  100. 1100 nextj
  101. 1110 return
  102. 1120 printchr$(147)"why do you suppose that is?":gosub1160:gosub900
  103. 1130 print"this may be something that we'll want"
  104. 1140 print"to discuss later. we may find that it"
  105. 1150 print"relates to your problem with ";b$:qd=1:return
  106. 1160 rem ***commodore punctuation input***
  107. 1170 p1$=""
  108. 1180 getp2$:ifp2$=""then1180
  109. 1190 printp2$;
  110. 1200 ifp2$=chr$(13)thenreturn
  111. 1210 p1$=p1$+p2$
  112. 1220 goto1180
  113. 1230 rem ***introduction***
  114. 1240 printchr$(147);tab(6)"therapy"
  115. 1250 print:print"would you like an     introduction (y/n)"
  116. 1260 getq$:ifq$<>"y"andq$<>"n"then1260
  117. 1270 ifq$="n"thenreturn
  118. 1280 printchr$(147);"welcome to your       therapy session.      dr. rom";
  119. 1285 print" will be with  you in a ";
  120. 1290 print"moment. whileyou are waiting, here are some helpful"
  121. 1300 print"suggestions on how to get the most out of   your therapy session."
  122. 1305 print:print
  123. 1310 print"as with most things inlife, with therapy,   the more you ";
  124. 1320 print"put in,  the more  you get out.you may find it fun totry and trip ";
  125. 1330 print"up the   doctor; make fun of   his grammar, or insulthim mercilessly."
  126. 1332 print:printchr$(18)"hit any key"
  127. 1335 poke198,0:wait198,1
  128. 1340 print"[147]however, even though  this is a parlor      game, you may still   find ";
  129. 1350 print"yourself having  interesting, and even important,";
  130. 1360 print" insights.  this will only happen if you  try your best to utilize ";
  131. 1370 print"this       session as an         enjoyable way to mull over the ";
  132. 1380 print"problems and peeves of life."
  133. 1390 print:printchr$(18)"hit any key"
  134. 1400 poke198,0:wait198,1
  135. 1410 printchr$(147):print"i see the doctor is in now."
  136. 1420 print:print"to talk to dr. rom,   just type in your"
  137. 1430 print"response; and hit ";chr$(18):print"return";chr$(146);" when you are"
  138. 1440 print"finished.":print:print:print"enjoy your therapy session."
  139. 1450 print:printchr$(18);" hit any key to begin"
  140. 1460 poke198,0:wait198,1:return
  141.