home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1984 June / 1984-06.d64 / therapy_64 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  5KB  |  139 lines
  1. 100 printchr$(142)chr$(8)chr$(30):poke53281,0:poke53280,0: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$;" is difficult":print"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 for you?"
  11. 180 gosub1160:gosub900
  12. 190 print:print"how does this make you feel, ";a$;"?":gosub1160:c$=p1$
  13. 200 printchr$(147)
  14. 205 print"so what you're saying, ";a$;",":print"is that your problem with ";b$
  15. 210 print"is making you feel ";c$;".":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 ";c$;" 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:print"this sounds difficult for you.":gosub1160
  26. 320 print:print"do you have a plan to deal with this    current situation?"
  27. 330 print"yes or no.":gosub1160
  28. 340 ifp1$<>"yes"then350
  29. 343 print"do you think this plan will be":print"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 word best describes"
  34. 385 print"how you are 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.   let's try some word";
  38. 430 print" association":print"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 withthis."
  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":print"that you said ";e$;"."
  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":print"with ";b$
  61. 660 gosub1160:gosub900:print:print"when i said ";b$;" you said ";f$
  62. 670 print"what do you think this means?":gosub1160:gosub900
  63. 680 print:print"are you distressed? do you 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 describe your feelings    in the dream?":gosub1160
  76. 800 print:print"did the dream have anything to do with  ";i$
  77. 810 gosub1160:fort=1to1000:nextt
  78. 820 rem ***all done***
  79. 830 print:print"i think we're moving in a               good direction.":print
  80. 840 print"we've discussed your problem with":printb$;" and how this makes you
  81. 850 [153]"feel ";c$;";"
  82. 860 [153]"and discussed some possible solutions."
  83. 870 [153]:[153]"i see your time is up.                  see you next week."
  84. 880 [128]
  85. 890 [143] ***keywords***
  86. 900 [139]q[177]0[167][142]
  87. 910 [129]j[178]1[164][195](p1$)[171]5
  88. 920 [139][202](p1$,j,5)[179][177]" fun "[167]930
  89. 925 [153]:[153]"what are your feelings about fun?":[137]950
  90. 930 [130]j
  91. 940 [142]
  92. 950 [141]1160:q[178]1:[153]:[153]"these feelings seem important."
  93. 960 [141]1160:[142]
  94. 1040 [143] ***dream keyword search***
  95. 1050 [129]j[178]1[164][195](p1$)[171]7
  96. 1060 [139][202](p1$,j,7)[178]" don't "[167]1120
  97. 1070 [130]j
  98. 1080 [129]j[178]1[164][195](p1$)[171]6
  99. 1090 [139][202](p1$,j,6)[178]" dont "[167]1120
  100. 1100 [130]j
  101. 1110 [142]
  102. 1120 [153][199](147)"why do you suppose that is?":[141]1160:[141]900
  103. 1130 [153]"this may be something that we'll want"
  104. 1140 [153]"to discuss later. we may find that it"
  105. 1150 [153]"relates to your problem with ";b$:qd[178]1:[142]
  106. 1160 [143] ***commodore punctuation input***
  107. 1170 p1$[178]""
  108. 1180 [161]p2$:[139]p2$[178]""[167]1180
  109. 1190 [153]p2$;
  110. 1200 [139]p2$[178][199](13)[167][142]
  111. 1210 p1$[178]p1$[170]p2$
  112. 1220 [137]1180
  113. 1230 [143] ***introduction***
  114. 1240 [153][199](147);[163]15)"therapy"
  115. 1250 [153]:[153]"would you like an introduction (y/n)"
  116. 1260 [161]q$:[139]q$[179][177]"y"[175]q$[179][177]"n"[167]1260
  117. 1270 [139]q$[178]"n"[167][142]
  118. 1280 [153][199](147);"welcome to your therapy session. dr. rom";
  119. 1285 [153]"will be with you in a ";
  120. 1290 [153]"moment. while you are waiting, here are some helpful"
  121. 1300 [153]"suggestions on how to get the most out  of your therapy session."
  122. 1305 [153]:[153]
  123. 1310 [153]"as with most things in life, with       therapy, the more you ";
  124. 1320 [153]"put in, the more  you get out. you may find it fun to try and trip ";
  125. 1330 [153]"up the doctor; make fun of his grammar, or insult him mercilessly."
  126. 1340 [153]"however, even though this is a parlor   game, you may still find ";
  127. 1350 [153]"yourself havinginteresting, and even important,"
  128. 1360 [153]"insights. this will only happen if you  try your best to utilize ";
  129. 1370 [153]"this session asan enjoyable way to mull over the"
  130. 1380 [153]"problems and peeves of life."
  131. 1390 [153]:[153]:[153][199](18)"hit any key to continue"
  132. 1400 [151]198,0:[146]198,1
  133. 1410 [153][199](147):[153]:[153]"i see the doctor is in now."
  134. 1420 [153]:[153]:[153]"to talk to dr. rom, just type in your"
  135. 1430 [153]"response; and hit ";[199](18);"return";[199](146);" when you are"
  136. 1440 [153]"finished.":[153]:[153]:[153]"enjoy your therapy session."
  137. 1450 [153][166]240);[199](18);"hit any key to begin"
  138. 1460 [151]198,0:[146]198,1:[142]
  139.