home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_18_(11-1984).d64 / dr.sigmund (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  3KB  |  68 lines
  1. 100 REM SIGMUND
  2. 110 C$="[144][159][156][158]":K$="[168][209][162]=[161]":POKE53280,6:POKE53281,0
  3. 120 PRINT"[147]":PRINT"HELLO, I AM ANNA, SECRETARY TO DR."
  4. 130 PRINT"SIGMUND. IS THIS YOUR FIRST ";
  5. 140 INPUT"VISIT";A$:PRINT:IFLEFT$(A$,1)="N"THEN270
  6. 150 INPUT"WHAT IS YOUR NAME";B$:PRINT
  7. 160 PRINT"YOU ARE IN LUCK "B$".":PRINT"DR. SIGMUND WILL SEE YOU NOW."
  8. 170 FORT=1TO4000:NEXTT:PRINT"[147]"
  9. 180 PRINT"PLEASE, MAKE YOURSELF COMFORTABLE ON    THE COUCH.":PRINT
  10. 190 PRINT"I SEE THAT YOU ARE A LITTLE BIT": PRINT" NERVOUS, "B$","
  11. 200 PRINT"NOW TRY TO RELAX.":FORT=1TO4000:NEXTT:PRINT
  12. 210 PRINT"I HAVE SOME PRETTY PICTURES TO SHOW YOU."
  13. 220 PRINT"JUST LET YOUR MIND GO TO REST. LOOK AT  THE PICTURES AND PICK FROM"
  14. 230 PRINT"THE LIST WHAT":PRINT"IT REMINDS YOU OF. IF SOMETHING"
  15. 240 PRINT"ELSE, JUST ENTER THAT.":FORT=1TO7000:NEXTT:S=0
  16. 250 FORT=1TO5000:NEXTT
  17. 260 S=S+1:IFS=14THEN740
  18. 270 PRINT"[147]OK, HERE IS A PICTURE:":PRINT
  19. 280 FORX=0TO9:PRINTTAB( 6);:FORY=1TO20:C=INT( RND(7)*8+1):PRINTMID$(C$,C,1);
  20. 290 K=INT(RND(8)*6+1):PRINTMID$(K$,K,1);
  21. 300 NEXTY:PRINT" ":NEXTX
  22. 310 PRINT
  23. 320 PRINT"   SPIDER   MOTHER      CAT"
  24. 330 PRINT"   SNAKE    BUTTERFLY   ROPE"
  25. 340 PRINT"   FATHER   REINDEER    FOOD"
  26. 345 PRINT"   INK BLOT CAMEL       FACE"
  27. 350 PRINT:INPUTO$:PRINT"[147]"
  28. 360 IFO$="SPIDER"      THEN520
  29. 370 IFO$="MOTHER"      THEN540
  30. 380 IFO$="CAT"         THEN560
  31. 390 IFO$="SNAKE"       THEN580
  32. 400 IFO$="BUTTERFLY"   THEN600
  33. 410 IFO$="ROPE"        THEN620
  34. 420 IFO$="REINDEER"    THEN640
  35. 430 IFO$="FOOD"        THEN660
  36. 440 IFO$="FATHER"      THEN670
  37. 450 IFO$="INK BLOT"    THEN680
  38. 460 IFO$="FACE"        THEN700
  39. 470 IFO$="CAMEL"       THEN720
  40. 480 PRINT"TELL ME ABOUT YOUR CHILDHOOD.":INPUTP$
  41. 490 PRINT"[147]GO ON...":INPUTP$:PRINT"[147]HMMM...TELL ME MORE.":INPUTP$
  42. 500 PRINT"[147]THAT IS ENOUGH FOR NOW. CALL ME TOMORROW ABOUT THIS."
  43. 510 GOTO250
  44. 520 PRINT"OBVIOUSLY YOU FEEL ENTANGLED. THE"
  45. 530 PRINT"SPIDER IS A SYMBOL OF YOUR FEAR OF      FRUSTRATION.":GOTO250
  46. 540 PRINT"YOUR DEEP FEELINGS FOR YOUR MOTHER ARE"
  47. 550 PRINT"ONLY NATURAL. DO NOT BE AFRAID TO LET   THEM SHOW.":GOTO250
  48. 560 PRINT"SOMEWHERE IN YOUR SUB-CONSCIOUS,        YOU HAVE A FEAR OF CATS."
  49. 570 PRINT"YOU STARTLE WHEN ONE CROSSES YOUR PATH  AT NIGHT.":GOTO250
  50. 580 PRINT"BEWARE THE SNAKE. YOU NEED TO CONTROL   YOURSELF IN TENSE SITUATIONS."
  51. 590 GOTO250
  52. 600 PRINT"THE BUTTERFLY SYMBOLIZES YOUR FREE      SPIRIT AND GREAT INNER JOY."
  53. 610 PRINT"LET YOURSELF HAVE FUN.":GOTO250
  54. 620 PRINT"THE ROPE IS A SIGN OF THE STRONG SUPPORT YOU OFFER YOUR FRIENDS."
  55. 630 PRINT"YOU HAVE GREAT INNER RESERVES.":GOTO250
  56. 640 PRINT"YOU ARE BLESSED WITH A CHILDLIKE LOVE   FOR NATURE. YOUR HEART IS ";
  57. 650 PRINT"PURE.":GOTO250
  58. 660 PRINT"EITHER YOU ARE HUNGRY OR YOU DESIRE TO  FEED OTHERS.":GOTO250
  59. 670 PRINT"YOUR FEELINGS FOR YOUR FATHER MUST      SOMEDAY BE EXPLORED.":GOTO250
  60. 680 PRINT"YOU ARE A REALIST. UNFORTUNATELY, YOU   ARE WITHOUT IMAGINATION."
  61. 690 GOTO250
  62. 700 PRINT"YOU ARE LIKE A NEWBORN CHILD, YOU ARE"
  63. 710 PRINT"ATTRACTED TO FACES. YOU SEEK ACCEPTANCE AND LOVE.":GOTO250
  64. 720 PRINT"ONE HUMP OR TWO?":PRINT"SERIOUSLY, YOU ARE IN A SPIRITUAL DESERT, "
  65. 730 PRINT"YOU ALONE CAN PREPARE TO REENTER THE   WORLD.":GOTO250
  66. 740 PRINT"[147]THANK YOU FOR COMING. I WILL SEE YOU    AGAIN  NEXT WEEK."
  67. 750 PRINT"PLEASE LEAVE $50 ON THE TV."
  68.