A simple and moderately crude test of your match.
Content
Image Gallery
Source Code
5 BORDER 7: PAPER 7: CLS : PRINT AT 10,7; PAPER 2; INK 6; FLASH 1;"TURN OFF THE TAPE"; FLASH 0: PAUSE 500
90 REM DATING GAME By S.J.(Butch) Weinberg for T/S1000 May 1984 Mod. for T/S2068 Aug.1984 Rated R!!!
100 GO SUB 5600: CLS
200 GO SUB 5000: GO SUB 5010
210 GO SUB 3200
220 LET S=0
280 GO SUB 5000
290 PRINT '' INK 2;" \* BY S.J.(BUTCH) Weinberg 8/84"'' INK 0;"Will there be 1 player or 2?"''"Touch the number"''"then ENTER.": LET W=331
300 INPUT T
310 IF T=1 THEN BEEP .20,1: GO SUB 5500
320 IF T=2 THEN BEEP .20,1: BEEP .20,1: GO SUB 5550
500 DIM A$(9,32)
510 LET A$(1)="1. Haven't we met before?"
520 LET A$(2)="2. Where do I know you from?"
530 LET A$(3)="3. My name is....what's yours?"
540 LET A$(4)="4. Do you come here very often?"
550 LET A$(5)="5. Shall we jump in the sack?"
560 LET A$(6)="1"
570 LET A$(7)="What line would you prefer?"
580 CLS : BEEP .05,2: BEEP .05,4: BEEP .05,6: PRINT ,A$(6)'A$(7)''A$(1)'A$(2)'A$(3)'A$(4)'A$(5)
590 IF T=1 THEN GO SUB 3000
600 IF T=2 THEN GO SUB 3100
610 LET A$(8)=A$(A): LET W=W+30
620 LET A$(9)=A$(AA)
630 PRINT 'A$(8)'A$(9)
640 IF T=1 AND A=AA THEN GO SUB 5100
650 IF T=1 AND A<>AA THEN GO SUB 5150
660 IF T=2 AND A=AA THEN GO SUB 5200
670 IF T=2 AND A<>AA THEN GO SUB 5250
680 GO SUB 3200
700 DIM B$(9,32)
710 LET B$(1)="1. With friends of yours."
720 LET B$(2)="2. With friends of mine."
730 LET B$(3)="3. At a resteraunt."
740 LET B$(4)="4. Nude at your place."
750 LET B$(5)="5. Nude at my place."
760 LET B$(6)="2"
770 LET B$(7)="Where would you like dinner?"
780 CLS : BEEP .05,2: BEEP .05,4: BEEP .05,6: PRINT ,B$(6)'B$(7)''B$(1)'B$(2)'B$(3)'B$(4)'B$(5)
790 IF T=1 THEN GO SUB 3000
800 IF T=2 THEN GO SUB 3100
810 LET B$(8)=B$(A): LET W=W-4881
820 LET B$(9)=B$(AA)
830 PRINT 'B$(8)'B$(9)
840 IF T=1 AND A=AA THEN GO SUB 5100
850 IF T=1 AND A<>AA THEN GO SUB 5150
860 IF T=2 AND A=AA THEN GO SUB 5200
870 IF T=2 AND A<>AA THEN GO SUB 5250
880 GO SUB 3200
900 DIM C$(9,32)
910 LET C$(1)="1. Chinese"
920 LET C$(2)="2. German"
930 LET C$(3)="3. Greek"
940 LET C$(4)="4. Italian"
950 LET C$(5)="5. Soul"
960 LET C$(6)="3"
970 LET C$(7)="What type food shal we have?"
980 CLS : BEEP .05,2: BEEP .05,4: BEEP .05,6: PRINT ,C$(6)'C$(7)''C$(1)'C$(2)'C$(3)'C$(4)'C$(5)
990 IF T=1 THEN GO SUB 3000
1000 IF T=2 THEN GO SUB 3100
1010 LET C$(8)=C$(A)
1020 LET C$(9)=C$(AA)
1030 PRINT 'C$(8)'C$(9)
1040 IF T=1 AND A=AA THEN GO SUB 5100
1050 IF T=1 AND A<>AA THEN GO SUB 5150
1060 IF T=2 AND A=AA THEN GO SUB 5200
1070 IF T=2 AND A<>AA THEN GO SUB 5250
1080 GO SUB 3200
1100 DIM D$(9,32)
1110 LET D$(1)="1. Cake"
1120 LET D$(2)="2. Candy"
1130 LET D$(3)="3. Cookies"
1140 LET D$(4)="4. Fruit"
1150 LET D$(5)="5. NONE"
1160 LET D$(6)="3"
1170 LET D$(7)="What type desert do you like?"
1180 CLS : BEEP .05,2: BEEP .05,4: BEEP .05,6: PRINT ,D$(6)'D$(7)''D$(1)'D$(2)'D$(3)'D$(4)'D$(5)
1190 IF T=1 THEN GO SUB 3000
1200 IF T=2 THEN GO SUB 3100
1210 LET D$(8)=D$(A)
1220 LET D$(9)=D$(AA)
1230 PRINT 'D$(8)'D$(9)
1240 IF T=1 AND A=AA THEN GO SUB 5100
1250 IF T=1 AND A<>AA THEN GO SUB 5150
1260 IF T=2 AND A=AA THEN GO SUB 5200
1270 IF T=2 AND A<>AA THEN GO SUB 5250
1280 GO SUB 3200
1300 DIM E$(9,32)
1310 LET E$(1)="1. Cit-Com."
1320 LET E$(2)="2. Drama"
1330 LET E$(3)="3. Sifi."
1340 LET E$(4)="4. Soap's"
1350 LET E$(5)="5. Talk & News"
1360 LET E$(6)="5"
1370 LET E$(7)="What type of Tv. do you like?"
1380 CLS : BEEP .05,2: BEEP .05,4: BEEP .05,6: PRINT ,E$(6)'E$(7)''E$(1)'E$(2)'E$(3)'E$(4)'E$(5)
1390 IF T=1 THEN GO SUB 3000
1400 IF T=2 THEN GO SUB 3100
1410 LET E$(8)=E$(A)
1420 LET E$(9)=E$(AA)
1430 PRINT 'E$(8)'E$(9)
1440 IF T=1 AND A=AA THEN GO SUB 5100
1450 IF T=1 AND A<>AA THEN GO SUB 5150
1460 IF T=2 AND A=AA THEN GO SUB 5200
1470 IF T=2 AND A<>AA THEN GO SUB 5250
1480 GO SUB 3200
1500 DIM F$(9,32)
1510 LET F$(1)="1. Comedy"
1520 LET F$(2)="2. Horror"
1530 LET F$(3)="3. Musical"
1540 LET F$(4)="4. Porno"
1550 LET F$(5)="5. Sifi."
1560 LET F$(6)="6"
1570 LET F$(7)="What type movies do you like?"
1580 CLS : BEEP .05,2: BEEP .05,4: BEEP .05,6: PRINT ,F$(6)'F$(7)''F$(1)'F$(2)'F$(3)'F$(4)'F$(5)
1590 IF T=1 THEN GO SUB 3000
1600 IF T=2 THEN GO SUB 3100
1610 LET F$(8)=F$(A)
1620 LET F$(9)=F$(AA)
1630 PRINT 'F$(8)'F$(9)
1640 IF T=1 AND A=AA THEN GO SUB 5100
1650 IF T=1 AND A<>AA THEN GO SUB 5150
1660 IF T=2 AND A=AA THEN GO SUB 5200
1670 IF T=2 AND A<>AA THEN GO SUB 5250
1680 GO SUB 3200
1700 DIM G$(9,32)
1710 LET G$(1)="1. Biographys"
1720 LET G$(2)="2. Fiction"
1730 LET G$(3)="3. Non Fiction"
1740 LET G$(4)="4. Sifi."
1750 LET G$(5)="5. Sports"
1760 LET G$(6)="7"
1770 LET G$(7)="What type reading do you like?"
1780 CLS : BEEP .05,2: BEEP .05,4: BEEP .05,6: PRINT ,G$(6)'G$(7)''G$(1)'G$(2)'G$(3)'G$(4)'G$(5)
1790 IF T=1 THEN GO SUB 3000
1800 IF T=2 THEN GO SUB 3100
1810 LET G$(8)=G$(A)
1820 LET G$(9)=G$(AA)
1830 PRINT 'G$(8)'G$(9)
1840 IF T=1 AND A=AA THEN GO SUB 5100
1850 IF T=1 AND A<>AA THEN GO SUB 5150
1860 IF T=2 AND A=AA THEN GO SUB 5200
1870 IF T=2 AND A<>AA THEN GO SUB 5250
1880 GO SUB 3200
1900 DIM H$(9,32)
1910 LET H$(1)="1. Clasical"
1920 LET H$(2)="2. Disco"
1930 LET H$(3)="3. Jazz"
1940 LET H$(4)="4. Pop"
1950 LET H$(5)="5. Rock"
1960 LET H$(6)="8"
1970 LET H$(7)="What type music do you like?"
1980 CLS : BEEP .05,2: BEEP .05,4: BEEP .05,6: PRINT ,H$(6)'H$(7)''H$(1)'H$(2)'H$(3)'H$(4)'H$(5)
1990 IF T=1 THEN GO SUB 3000
2000 IF T=2 THEN GO SUB 3100
2010 LET H$(8)=H$(A)
2020 LET H$(9)=H$(AA)
2030 PRINT 'H$(8)'H$(9)
2040 IF T=1 AND A=AA THEN GO SUB 5100
2050 IF T=1 AND A<>AA THEN GO SUB 5150
2060 IF T=2 AND A=AA THEN GO SUB 5200
2070 IF T=2 AND A<>AA THEN GO SUB 5250
2080 GO SUB 3200
2100 DIM I$(9,32)
2110 LET I$(1)="1. On comercial Tv."
2120 LET I$(2)="2. On pay or cable Tv."
2130 LET I$(3)="3. On closed circut theater Tv."
2140 LET I$(4)="4. Going to events"
2150 LET I$(5)="5. Not at all"
2160 LET I$(6)="9"
2170 LET I$(7)="Which way do you like sports?"
2180 CLS : BEEP .05,2: BEEP .05,4: BEEP .05,6: PRINT ,I$(6)'I$(7)''I$(1)'I$(2)'I$(3)'I$(4)'I$(5)
2190 IF T=1 THEN GO SUB 3000
2200 IF T=2 THEN GO SUB 3100
2210 LET I$(8)=I$(A)
2220 LET I$(9)=I$(AA)
2230 PRINT 'I$(8)'I$(9)
2240 IF T=1 AND A=AA THEN GO SUB 5100
2250 IF T=1 AND A<>AA THEN GO SUB 5150
2260 IF T=2 AND A=AA THEN GO SUB 5200
2270 IF T=2 AND A<>AA THEN GO SUB 5250
2280 GO SUB 3200
2300 DIM J$(9,32)
2310 LET J$(1)="1. Athletic"
2320 LET J$(2)="2. Kinky"
2330 LET J$(3)="3. Normal"
2340 LET J$(4)="4. Oral"
2350 LET J$(5)="5. NONE"
2360 LET J$(6)="10"
2370 LET J$(7)="What type sex do you like?"
2380 CLS : BEEP .05,2: BEEP .05,4: BEEP .05,6: PRINT ,J$(6)'J$(7)''J$(1)'J$(2)'J$(3)'J$(4)'J$(5)
2390 IF T=1 THEN GO SUB 3000
2400 IF T=2 THEN GO SUB 3100
2410 LET J$(8)=J$(A)
2420 LET J$(9)=J$(AA)
2430 PRINT 'J$(8)'J$(9)
2440 IF T=1 AND A=AA THEN GO SUB 5100
2450 IF T=1 AND A<>AA THEN GO SUB 5150
2460 IF T=2 AND A=AA THEN GO SUB 5200
2470 IF T=2 AND A<>AA THEN GO SUB 5250
2475 GO SUB 3200
2480 IF T=1 AND S<4 THEN GO TO 5300
2481 IF T=1 AND S>=4 AND S<=7 THEN GO TO 5330
2482 IF T=1 AND S>7 THEN GO TO 5350
2485 IF T=2 AND S<4 THEN GO TO 5400
2486 IF T=2 AND S>=4 AND S<=7 THEN GO TO 5430
2487 IF T=2 AND S>7 THEN GO TO 5450
3000 LET A=INT (RND*4)+1
3010 INPUT AA
3020 IF AA<1 OR AA>5 THEN GO TO 3010
3030 RETURN
3100 BEEP .05,5: BEEP .05,2: PRINT 'W$,
3110 PAUSE 3000: LET A=CODE INKEY$-48
3115 IF A<1 OR A>5 THEN GO TO 3110
3116 BEEP .05,5: BEEP .05,2: PRINT V$
3120 PAUSE 3000: LET AA=CODE INKEY$-48
3125 IF AA<1 OR AA>5 THEN GO TO 3120
3126 RETURN
3200 PRINT TAB 5; PAPER 6; INK 0;"TOUCH C TO CONTINUE"
3210 IF INKEY$="" THEN GO TO 3210
3215 IF INKEY$="S" OR INKEY$="s" THEN STOP
3220 IF INKEY$="C" OR INKEY$="c" THEN CLS : RETURN
3230 IF INKEY$<>"C" OR INKEY$<>"c" OR INKEY$<>"S" OR INKEY$<>"s" THEN GO TO 3210
5000 BORDER 3: PRINT TAB 5;"\..\..\.:\::DATING GAME\::\:.\..\..": RETURN
5010 PRINT : PRINT "In this game you will be asked"'"10 questions."''"Each question will list 5"'"answers below it."''
5020 PRINT "All you have to do is to touch"'"the # of your answer then enter."''"The computer will take the part"'"of your counterpart (1 player)."''
5030 PRINT "In (2 player) game each player "'"just touches there number"'"to pick there answers."'': GO SUB 3200
5040 GO SUB 5000: PRINT ''"The computer will keep score"'"giving 1 point for each match."''"Some of the questions and some"'"answers make this an adult game."''
5050 PRINT "So chase the kids off before"'"going any farther."''"We wouldn't want any problems."''TAB 5;"Touch S to stop."'': GO TO 210
5100 PRINT INK 1;''"Congratulations ";N$;" You and"'"your computer counterpart"'"have the same likes on this.": LET S=S+1: PRINT "Your score so far ";S'': BEEP .15,6: BEEP .15,9: BEEP .15,12: BEEP .25,17: BEEP .15,12: BEEP .15,17: RETURN
5150 PRINT INK 2;''"Sorry ";N$;" your computer"'"counterpart didn't"'" agree with you."'"Your score so far ";S'': BEEP .50,-10: BEEP 1,-20: RETURN
5200 PRINT INK 1;''"Congratulations ";N$;" you"'" and ";M$;" agree on"'" this subject."': LET S=S+1: PRINT "Your score so far ";S'': BEEP .15,6: BEEP .15,9: BEEP .15,12: BEEP .25,17: BEEP .15,12: BEEP .15,17: RETURN
5250 PRINT INK 2;''"Sorry ";N$;" you and"'M$;" don't agree on this."'"Your score so far ";S'': BEEP .50,-10: BEEP 1,-20: RETURN
5300 CLS : GO SUB 5000: BORDER 6: PAPER 7: PRINT '' INK 2;"Well ";V$;N$;" your"'"computer counterpart and you"'"are not at all compatible."''"Hopefully you will do better in"'"real life with your dates!": BEEP .25,10: BEEP .25,5: BEEP .25,10: BEEP .25,5: BEEP .25,10: BEEP .25,5: GO TO 5800
5330 CLS : GO SUB 5000: BORDER 6: PAPER 7: PRINT '' INK 1;"Well ";V$;N$;" your"'"computer counterpart and you"'"have a 50/50 chance to make it."''"Hopefully you will do as well"'"in real life with your dates!": BEEP .25,5: BEEP .25,10: BEEP .25,5: BEEP .25,10: BEEP .25,5: BEEP .25,10 : GO TO 5800
5350 CLS : GO SUB 5000: BORDER 4: PAPER 7: PRINT '' INK 4;"Well ";V$;N$;" your"'"computer counterpart and you"'"seem to be a good match."''"Hopefully you will do as well in"'"real life with your dates!!!": BEEP .15,6: BEEP .15,9: BEEP .15,12: BEEP .25,17: BEEP .15,12: BEEP .15,17: GO TO 5800
5400 CLS : GO SUB 5000: BORDER 2: PAPER 7: PRINT '' INK 2;"Well ";W$;M$;" you and"'V$;N$;" don't seem to agree"'"to well on these subjects."''"Hopefully you agree on others.": BEEP .25,10: BEEP .25,5: BEEP .25,10: BEEP .25,5: BEEP .25,10: BEEP .25,5: GO TO 5800
5430 CLS : GO SUB 5000: BORDER 6: PAPER 7: PRINT '' INK 1;"Well ";W$;M$;" you and"'V$;N$;" seem to agree on"'"around half of these subjects."''"Hopefully you do as well"'"or better on others.": BEEP .25,5: BEEP .25,10: BEEP .25,5: BEEP .25,10: BEEP .25,5: BEEP .25,10: GO TO 5800
5450 CLS : GO SUB 5000: BORDER 4: PAPER 7: PRINT '' INK 4;"Well ";W$;M$;" you and"'V$;N$;" seem to agree on the"'"majority of these subjects!"''"Hopefully you will do"'"as well on others!": BEEP .15,6: BEEP .15,9: BEEP .15,12: BEEP .25,17: BEEP .15,12: BEEP .15,17: GO TO 5800
5500 PRINT '"Who will be playing?"'"Type name, touch ENTER": INPUT N$
5510 PRINT ''"Are you male or female?"'"Touch M or F then ENTER.": INPUT V$
5520 IF V$="M" OR V$="m" THEN LET V$="Mr. "
5525 IF V$="F" OR V$="f" THEN LET V$="Ms. "
5530 PRINT '"Ok ";V$;N$;" lets play!": PAUSE 200: RETURN
5550 PRINT '"Who is the female?"'"Type name, touch ENTER": LET W$="Ms. ": INPUT M$
5560 PRINT '"Who is the male?"'"Type name, touch ENTER": LET V$="Mr. ": INPUT N$
5570 PRINT ''"Ok ";W$;M$;" and ";V$;N$'"lets play!": PAUSE 200: RETURN
5600 CLS : FOR L=1 TO 3
5610 FOR P=1 TO 7
5620 LET K=INT 19*RND
5630 PRINT TAB K; PAPER P; INK 9;"DATING GAME": BEEP .25,K
5640 NEXT P
5650 NEXT L
5660 POKE 23692,23
5670 FOR L=1 TO 3
5680 FOR P=1 TO 7
5690 BORDER 6: PRINT PAPER P; INK 9;"\: \: \: \: \: \: \: \: \: \: DATING GAME\: \: \: \: \: \: \: \: \: \: ": BEEP .05,P*L
5700 NEXT P
5710 NEXT L
5720 RETURN
5800 PRINT ''" Would you like to try again?"''" Touch Y for yes N for no.": PAUSE 5000
5810 IF INKEY$="Y" OR INKEY$="y" THEN RUN 200
5820 IF INKEY$="N" OR INKEY$="n" THEN GO TO 5850
5850 PRINT '' INK 4;" I hope you enjoyed playing"''TAB 9;"DATING GAME"'' INK 2;" \* By (BUTCH) 8/84": BEEP .20,17: BEEP .20,17: BEEP .20,17: BEEP .15,5: BEEP .20,14: BEEP .20,10: STOP
9997 STOP
9998 SAVE "DatingGame" LINE 1