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 >
Wrap
Commodore BASIC
|
2019-04-13
|
3KB
|
68 lines
100 REM SIGMUND
110 C$="[144][159][156][158]":K$="[168][209][162]=[161]":POKE53280,6:POKE53281,0
120 PRINT"[147]":PRINT"HELLO, I AM ANNA, SECRETARY TO DR."
130 PRINT"SIGMUND. IS THIS YOUR FIRST ";
140 INPUT"VISIT";A$:PRINT:IFLEFT$(A$,1)="N"THEN270
150 INPUT"WHAT IS YOUR NAME";B$:PRINT
160 PRINT"YOU ARE IN LUCK "B$".":PRINT"DR. SIGMUND WILL SEE YOU NOW."
170 FORT=1TO4000:NEXTT:PRINT"[147]"
180 PRINT"PLEASE, MAKE YOURSELF COMFORTABLE ON THE COUCH.":PRINT
190 PRINT"I SEE THAT YOU ARE A LITTLE BIT": PRINT" NERVOUS, "B$","
200 PRINT"NOW TRY TO RELAX.":FORT=1TO4000:NEXTT:PRINT
210 PRINT"I HAVE SOME PRETTY PICTURES TO SHOW YOU."
220 PRINT"JUST LET YOUR MIND GO TO REST. LOOK AT THE PICTURES AND PICK FROM"
230 PRINT"THE LIST WHAT":PRINT"IT REMINDS YOU OF. IF SOMETHING"
240 PRINT"ELSE, JUST ENTER THAT.":FORT=1TO7000:NEXTT:S=0
250 FORT=1TO5000:NEXTT
260 S=S+1:IFS=14THEN740
270 PRINT"[147]OK, HERE IS A PICTURE:":PRINT
280 FORX=0TO9:PRINTTAB( 6);:FORY=1TO20:C=INT( RND(7)*8+1):PRINTMID$(C$,C,1);
290 K=INT(RND(8)*6+1):PRINTMID$(K$,K,1);
300 NEXTY:PRINT" ":NEXTX
310 PRINT
320 PRINT" SPIDER MOTHER CAT"
330 PRINT" SNAKE BUTTERFLY ROPE"
340 PRINT" FATHER REINDEER FOOD"
345 PRINT" INK BLOT CAMEL FACE"
350 PRINT:INPUTO$:PRINT"[147]"
360 IFO$="SPIDER" THEN520
370 IFO$="MOTHER" THEN540
380 IFO$="CAT" THEN560
390 IFO$="SNAKE" THEN580
400 IFO$="BUTTERFLY" THEN600
410 IFO$="ROPE" THEN620
420 IFO$="REINDEER" THEN640
430 IFO$="FOOD" THEN660
440 IFO$="FATHER" THEN670
450 IFO$="INK BLOT" THEN680
460 IFO$="FACE" THEN700
470 IFO$="CAMEL" THEN720
480 PRINT"TELL ME ABOUT YOUR CHILDHOOD.":INPUTP$
490 PRINT"[147]GO ON...":INPUTP$:PRINT"[147]HMMM...TELL ME MORE.":INPUTP$
500 PRINT"[147]THAT IS ENOUGH FOR NOW. CALL ME TOMORROW ABOUT THIS."
510 GOTO250
520 PRINT"OBVIOUSLY YOU FEEL ENTANGLED. THE"
530 PRINT"SPIDER IS A SYMBOL OF YOUR FEAR OF FRUSTRATION.":GOTO250
540 PRINT"YOUR DEEP FEELINGS FOR YOUR MOTHER ARE"
550 PRINT"ONLY NATURAL. DO NOT BE AFRAID TO LET THEM SHOW.":GOTO250
560 PRINT"SOMEWHERE IN YOUR SUB-CONSCIOUS, YOU HAVE A FEAR OF CATS."
570 PRINT"YOU STARTLE WHEN ONE CROSSES YOUR PATH AT NIGHT.":GOTO250
580 PRINT"BEWARE THE SNAKE. YOU NEED TO CONTROL YOURSELF IN TENSE SITUATIONS."
590 GOTO250
600 PRINT"THE BUTTERFLY SYMBOLIZES YOUR FREE SPIRIT AND GREAT INNER JOY."
610 PRINT"LET YOURSELF HAVE FUN.":GOTO250
620 PRINT"THE ROPE IS A SIGN OF THE STRONG SUPPORT YOU OFFER YOUR FRIENDS."
630 PRINT"YOU HAVE GREAT INNER RESERVES.":GOTO250
640 PRINT"YOU ARE BLESSED WITH A CHILDLIKE LOVE FOR NATURE. YOUR HEART IS ";
650 PRINT"PURE.":GOTO250
660 PRINT"EITHER YOU ARE HUNGRY OR YOU DESIRE TO FEED OTHERS.":GOTO250
670 PRINT"YOUR FEELINGS FOR YOUR FATHER MUST SOMEDAY BE EXPLORED.":GOTO250
680 PRINT"YOU ARE A REALIST. UNFORTUNATELY, YOU ARE WITHOUT IMAGINATION."
690 GOTO250
700 PRINT"YOU ARE LIKE A NEWBORN CHILD, YOU ARE"
710 PRINT"ATTRACTED TO FACES. YOU SEEK ACCEPTANCE AND LOVE.":GOTO250
720 PRINT"ONE HUMP OR TWO?":PRINT"SERIOUSLY, YOU ARE IN A SPIRITUAL DESERT, "
730 PRINT"YOU ALONE CAN PREPARE TO REENTER THE WORLD.":GOTO250
740 PRINT"[147]THANK YOU FOR COMING. I WILL SEE YOU AGAIN NEXT WEEK."
750 PRINT"PLEASE LEAVE $50 ON THE TV."