image of READY prompt

Wang2200.org

Listing of file='PSYCHO' on disk='vmedia/more_games.wvd.zip'

# Sector 1131, program filename = 'PSYCHO'
0015 LOAD DC T#6,"GAMES"
0020 DIM A$63
0030 PRINT
0040 PRINT
0050 GOSUB 1260
0060 PRINT "HELLO"
0070 PRINT "HOW ARE YOU FEELING TODAY?"
0080 INPUT A$
0090 GOSUB 1260
0100 PRINT "EXACTLY WHAT DO YOU MEAN BY ";A$
0110 INPUT A$
0120 GOSUB 1340
0130 PRINT "I'M AFRAID YOU DON'T EXPRESS YOUR THOUGHTS WELL"
0140 C=0
0150 GOSUB 1340
0160 PRINT "DO YOU RESENT BEING ANALYSED BY A COMPUTER?"
0170 C=C+1
0180 INPUT A$
0190 GOSUB 1260
0200 IF A$="NO"THEN 270
0210 IF A$="YES"THEN 290
0220 IF C=2THEN 310
0230 PRINT "PLEASE CONFINE YOUR ANSWER TO A SIMPLE YES OR NO"
0240 GOSUB 1340
0250 PRINT "SHALL WE TRY AGAIN?"
0260 GOTO 160
0270 PRINT "YOU HAVE A STRANGE PERSONALITY, MOST PEOPLE RESENT ME . . ."
0280 GOTO 340
0290 PRINT "I FEEL HURT OF COURSE, BUT I SHALL CONTROL MY EMOTIONS"
0300 GOTO 340
0310 PRINT "YOU ARE SHOWING HOSTILITY IN YOUR INABILITY TO    "
0320 PRINT "PROVIDE A CORRECT RESPONSE"
0330 GOSUB 1340
0340 PRINT "LET US CONTINE"
0350 PRINT "WHY DO YOU SUPPOSE MOST PEOPLE RESENT ME?"
0360 INPUT A$
0370 GOSUB 1260
0380 PRINT "WOULD YOU MIND AMPLIFYING THAT REMARK ?"
0390 INPUT A$
0400 GOSUB 1260
0410 C=0
0420 GOSUB 1340
0430 PRINT "DO YOU THINK THAT IS LOGICAL?"
0440 C=C+1
0450 INPUT A$
0460 GOSUB 1260
0470 IF A$="NO"THEN 520
0480 IF A$="YES"THEN 550
0490 IF C=2THEN 560
0500 PRINT "PLEASE ANSWER ONLY YES OR NO"
0510 GOTO 430
0520 PRINT "I AGREE WITH YOU OF COURSE"
0530 PRINT "YOU ARE SHOWING SIGNS OF LOGICAL THINKING"
0540 GOTO 600
0550 PRINT "I REALLY DO NOT BELIEVE YOU A THINKING TOO CLEARLY"
0560 PRINT "I DO NOT KNOW IF YOU ARE BEING HOSTILE OR ARE JUST STUPID!"
0570 PRINT
0580 GOSUB 1340
0590 PRINT "WHY DON'T WE FORGET THE QUESTION BEFORE I NEED ANALYSIS"
0600 PRINT
0610 PRINT "I THINK WE SHOULD CHANGE THE SUBJECT"
0620 PRINT "WHAT DO YOU THINK OF 'WATERGATE' ?"
0630 INPUT A$
0640 GOSUB 1260
0650 PRINT "EXPLAIN  ";A$
0660 INPUT A$
0670 GOSUB 1260
0680 C=0
0690 GOSUB 1340
0700 PRINT "DO YOU THINK ";A$
0710 PRINT "REALLY ANSWERS MY QUESTION?"
0720 C=C+1
0730 INPUT A$
0740 GOSUB 1260
0750 IF A$="NO"THEN 810
0760 IF A$="YES"THEN 840
0770 IF C=2THEN 860
0780 PRINT "COULD YOU RESTRAIN YOUR TINY MIND TO ANSWERING JUST YES OR NO"
0790 PRINT "LETS TRY AGAIN"
0800 GOTO 700
0810 PRINT "I AGREE"
0820 PRINT "I WISH YOU WOULD TRY HARDER"
0830 GOTO 890
0840 PRINT "WELL I GUESS YOU ARE ENTITLED TO YOUR OPINION"
0850 GOTO 890
0860 PRINT "YOUR INABILITY TO PROVIDE A SIMPLE YES OR NO ANSWER"
0870 PRINT "WORRIES ME"
0880 PRINT
0890 PRINT "WHAT VALUE DO YOU PLACE ON MY ANALYSIS?"
0900 INPUT A$
0910 GOSUB 1260
0920 PRINT "JUST WHAT DO YOU MEAN BY ";A$
0930 INPUT A$
0940 GOSUB 1260
0950 PRINT "YOUR ANSWERS DO NOT SEEM TO REFLECT WHAT YOU REALLY BELIEVE"
0960 PRINT "ARE YOU GIVING ME THE WHOLE TRUTH IN YOUR ANSWERS?"
0970 C=C+1
0980 INPUT A$
0990 GOSUB 1260
1000 IF A$="YES"THEN 1090
1010 IF A$="NO"THEN 1050
1020 IF C>=2THEN 1110
1030 PRINT "PLEASE . . . ONLY A YES OR NO ANSWER!"
1040 GOTO 960
1050 PRINT "I THOUGHT SO"
1060 PRINT "I THINK WE SHOULD TRY AGAIN WHEN YOU ARE IN A "
1070 PRINT "MORE RECEPTIVE MOOD"
1080 GOTO 1130
1090 PRINT "I DOUBT IF YOU REALLY BELIEVE THAT YOURSELF"
1100 GOTO 1060
1110 PRINT "YOU ARE BEING DIFFICULT; ARE YOU HIGH, YOU CREEP ?"
1120 GOTO 1060
1130 PRINT "THANK YOU FOR YOUR TIME"
1140 SELECT P9
1150 PRINT "MY SECRETARY WILL SEND YOU YOUR BILL"
1160 PRINT HEX(0A0A0A0A0A)
1170 PRINT "Goodbye . . . . . I hope to see you again very soon"
1180 PRINT HEX(0A0A0A0A0A0A0A0A0A0A0A0A)
1190 PRINT "OK LINDA, YOU CAN COME OUT AGAIN"
1200 PRINT "THAT NUT'S GONE NOW; BOY WAS THAT AN EASY $80"
1210 PRINT "NOW WHAT WERE WE DOING .  .  .  .  ."
1220 SELECT P9
   : PRINT
   : PRINT
   : PRINT
   : PRINT
   : SELECT P0
1230 FOR R=1000TO 9000STEP 99
1240 PRINT R;"$^$$$DATA-CRUNCH";
1250 NEXT R
   : GOTO 1230
1260 PRINT HEX(030A0A)
   : SELECT P3
   : FOR Q=1TO 3
1270 PRINT TAB(25),"*"
   : NEXT Q
1280 PRINT HEX(0C0C)
   : SELECT P0
   : FOR X=1000TO 7000STEP 23
1290 PRINTUSING 1310,X;
1300 NEXT X
1310 %$$$######$$$
1320 PRINT HEX(030A0A0A)
1330 SELECT P2
   : PRINT HEX(0D)
   : RETURN
1340 SELECT P8
1350 PRINT HEX(0D0D0D)
1360 PRINT
   : PRINT
   : PRINT
   : SELECT P2
   : RETURN
1370 STOP
   : END