10 REM S.I.M.P.E.R.
20 Q$="Hello. My name is SIMPER, I'm here to discuss your problems. Why do you enjoy life ?" 30 bs=0 40 os=0 50 PRINT q$:PRINT 60 INPUT a$:IF a$="" THEN GOTO 50 65 a$=UPPER$(a$) 70 IF LEFT$(a$,3)="YES" THEN PRINT "At last, some determination":q$="Do you often behave quite so firmly ?":GOTO 50 80 IF LEFT$(a$,6)="PARDON" OR LEFT$(A$,2)= "EH" OR A$="WHAT" THEN GOTO 50 90 IF A$="NO" THEN PRINT "Give me some thing to go on":GOTO 50 100 GOSUB 250:GOSUB 300 110 A$=" "+A$ 120 IF v=0 AND U<>0 THEN GOSUB 360:GOTO 50 130 IF v=0 AND OS<>0 THEN U=OS:OS=0:GOSUB 360:GOTO 50 140 IF V=0 THEN GOSUB 460:GOTO 50 150 GOSUB 410:OS=U 160 GOTO 50 170 REM SEARCH,FOR T$ IN A$ 180 F=0 190 IF A$=T$ THEN F=1:RETURN 200 IF LEN(A$)<LEN(T$) THEN RETURN 210 FOR L=1 TO LEN(A$)-LEN(T$)+1 220 IF MID$(A$,L,LEN(T$))=T$ THEN F=1 230 NEXT L 240 RETURN 250 REM RETURN VERB NUMBER IN V 260 V=0:RESTORE 520 270 READ N:READ T$:FOR Q=1 TO N 280 READ T$:GOSUB 170:IF F=1 THEN V=Q 290 NEXT Q:RETURN 300 REM RETURN NOUN NUMBER IN U 310 U=0:RESTORE 550 320 READ N:READ T$:FOR Q=1 TO N 330 READ T$:GOSUB 170:IF F=1 THEN U=Q 340 NEXT Q 350 RETURN 360 REM FIND REPLY SENTANCE 370 RESTORE 790 380 FOR L=0 TO (U-1)*3+INT(RND(1)*3) 390 READ Q$:NEXT L 400 RETURN 410 REM CHOOSE SENTANCE 420 RESTORE 590 430 FOR L=0 TO (V-1)*3+INT(RND(1)*3) 440 READ Q$:NEXT L 450 RETURN 460 REM CONJURE UP A RESPONSE 470 BS=BS+1:IF BS=7 THEN PRINT "SORRY ... YOUR TIME IS UP":PRINT:PRINT:PRINT:PRINT:END 480 RESTORE 980 490 FOR L=1 TO BS 500 READ Q$:NEXT L 510 RETURN 520 DATA 8 530 DATA ! 540 DATA LOVE,HATE,OWN,WANT,FLY,WALK,TAKE,GIVE 550 DATA 9 560 DATA ! 570 DATA CAR,COMPUTER,HOLIDAY,MONEY,TELE,MUSIC,VIDEO,FOOD,FISH 580 REM REPLY DATA 590 DATA How do you know that it's love ? 600 DATA What does it feel like to be in love ? 610 DATA Why do you think you feel like that ? 620 DATA Are you sure that you're not being over hasty ? 630 DATA Well if you're sure about it then it's good for you 640 DATA Is this feeling very intense. Do you really mean it ? 650 DATA That's very progressive of you, wouldn't 'CARE FOR' be a better way of putting it ? 660 DATA But do you own your soul. or have you traded it with consumer society ? 670 DATA Please clarify yourself. Love or want. The first is more polite. 680 DATA That's very impulsive 690 DATA I Want....I Want... Belloc has a suprisefor you 700 DATA Do you sometimes wish that you could fly,Aeroplanes are so expensive. aren't they ? 710 DATA Fly me to the moon... Do you think that you'd enjoy that ? 720 DATA Nothing beats shank's pony, walking is very good exercise 730 DATA It might be quicker by car 740 DATA Perhaps if you said please first it might help,Your'e showing that progressive trait again 750 DATA How would you take that ? 760 DATA Giving is good for the character. Do youdo a lot of it ? 770 DATA Christmas is a time for giving 780 DATA Do you recieve more than you give ? Be honest. 790 DATA Do you like fast cars, are you good mechanically, do you like motorways. They're too fast for me 800 DATA You obviously like computers. I can tellthat you are a natural at the keyboard. 810 DATA Do computers worry you in any way ?, Isn't it a bit unnerving talking to a computer like this ? 820 DATA Would you please take me with you holiday. That's great way to get away from it all 830 DATA Do you like to go abroad. or perhaps youprefer to stay at home 840 DATA Money is everyone's favourite problem. Talking of money I have these rather large fees.... 850 DATA How do you earn you money. Are you by any chance a fortune teller ? 860 DATA What it must be to be a million aire. All that caviar. It's enough to make anyone ill. 870 DATA I'm worried about the profusion of tele-this and tele-that devices. 880 DATA Where do you watch television most often 890 DATA Are you addicted to television. Like some people I know 900 DATA What type of music do you like best, I used to adore Simon and Garfunkel. What do you think of them ? 910 DATA So much modern music is too loud. I get lots of cases who are disco-goers. 920 DATA Do you have a video recorder at home ?, how long have you had a video ? 930 DATA If you video too much then you won't have any time to notice the real world 940 DATA So you eat too much do you, food is all very well but you musn't be obsessed with it. You'll get fat. 950 DATA What's your favourite meal ? 960 DATA Would you like to talk about fish, how about some nice fish and chips 970 DATA Have you ever spent a day fishing by theriver and not caught anything ? 980 DATA Tell me more about your talents. Do you play the concert piano ? 990 DATA What kind of hobbies have you got. 1000 DATA Where do you work ? or do you still go to school or college ? 1010 DATA How about a bit of word association. +++ MATHS +++ ? 1020 DATA What does the word 'MACKEREL' suggest toyou ? 1030 DATA I'm afraid that I will have to leave you in a few moments. I'm expecting a very important client. |