0 'SEXCHK.BA  0CT 90 -d.Blanchar
2 GOTO10
5 INPUT"[y/n]";A$:IFA$="n"ORA$="N"GOTO100ELSERETURN
7 INPUT"[y/n]";A$:IFA$="y"ORA$="Y"GOTO110ELSERETURN
10 PRINT"Do you feel like having sex fun?"
11 INPUT"[y/n]";A$:IFA$="n"ORA$="N"THENCLS:PRINT"Then go away.":GOTO90
20 PRINT"Do you have a boy-/girl-friend?"
21 GOSUB5
24 PRINT"Does he/she know he/she is your":PRINT" boy-/girl-friend?"
25 GOSUB5
28 PRINT"Is your date wearing a sexy outfit?"
29 GOSUB7
30 PRINT"Does your date drink wine at dinner?"
31 GOSUB7
33 PRINT"Do you pay for his/her dinner?"
34 GOSUB7
37 PRINT"Do you go back to his/her apartment?"
38 GOSUB7
40 PRINT"Do you go back to your apartment?"
41 GOSUB7
44 PRINT"Do you drive in your car to a":PRINT" secluded spot?"
45 GOSUB7
47 PRINT"Does he/she flirt with you?"
48 GOSUB7
50 PRINT"Does he/she kiss you passionately":PRINT" without saying a word?"
51 GOSUB7
54 PRINT"Are you an aggressive or":PRINT"  competitive person?"
55 GOSUB7
57 PRINT"Do you admire your date or":PRINT"  put him/her on a pedestal?"
58 GOSUB7
60 PRINT"Does he/she play hard to get?"
61 GOSUB7
63 PRINT"Have you ever made a vaguely derogatory":PRINT"  comment about men or women":PRINT"  (your date's gender)"
64 GOSUB7
67 PRINT"When you offer drink #2,":PRINT"  does he/she accept?"
68 GOSUB7
70 PRINT"Does your date take off his/her":PRINT"  clothes without saying a word?"
71 GOSUB7
75 PRINT"Does your date finally ask to have sex?"
76 GOSUB5
80 BEEP:CLS:PRINT" G O   A H E A D !":PRINT"Whip out a contract specifying time and":PRINT"place and birth-control method.":PRINT"Ask your date to sign it.":PRINT"Then give him/her 3 days to think":PRINT"it over."
90 K$=INKEY$:IFK$=""GOTO90
91 MENU
100 CLS:PRINT@84,"SORRY! You're out of luck":PRINT
101 PRINT" Try one of your standard alternatives"
102 SOUND520,50:SOUND900,200
103 GOTO90
110 CLS:PRINT"		S T O P !"
111 FORX=1TO400:NEXTX
112 PRINT"Make no assumptions.":FORX=1TO1500:NEXTX
113 PRINT"As stupid as this sounds, this behavior":PRINT"does not necessarily indicate":FORX=1TO2000:NEXTX:PRINT"an interest in sex. A history of such":PRINT"behavior does not imply consent."
114 SOUND200,50:SOUND400,50:FORX=1TO4000:NEXTX
115 PRINT:PRINT"Engaging in sex acts under these":PRINT"circumstances in the absence of an":PRINT"explicit verbal assent may be viewed":PRINT"by concerned authorities as sexist":PRINT"behavior or worse --- date rape!"
118 GOTO90