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