0 DEF SEG=&H40:POKE &H17,PEEK(&H17) OR 64
1 CLS:PRINT TAB(27);"WARNING!


 THIS ADVENTURE DEALS WITH SEX AND OTHER ADULT THEMES. IF YOU ARE EASILY

OFFENDED, DO NOT PROCEED! RETURN THIS COPY TO THE STORE WHERE YOU PURCHASED IT

FOR A COMPLETE REFUND! YOU HAVE BEEN WARNED!"


"
2 PRINT"

      PROGRAM DYNAMICS IS HEREBY ABSOLVED OF ALL RESPONSIBILITY FOR THE USE

OR MISUSE OF THIS PROGRAM.":GOSUB 65001
3 CLEAR 300:CLS:DEFINT A-Z:DIM H$(26),L$(26),L(26,6),O$(56),O(56),NO$(56),VB$(35),D$(6):Z2=1
4 INPUT"WHAT IS YOUR FIRST NAME: ";NA$:IF NA$="" THEN 4 ELSE NA$=NA$+".DRI"
5 CLS:PRINT"DRIVE-IN


a TRUE LIFE Adventure



Copyright 1982 by Douglas C. Rogers"
1000 RESTORE:NL=26:NO=56:NV=35:NN=56:FOR X=1 TO 6:READ D$(X):NEXT:FOR X=1 TO NL:READ L$(X),L(X,1),L(X,2),L(X,3),L(X,4),L(X,5),L(X,6):NEXT:FOR X=20 TO 26:L$(X)=L$(10):NEXT:CP$="THE COPS ARE TAKING YOU AWAY!!!":L$="YOU LOSE!!!"
1010 FOR X=1 TO NO:READ O$(X),O(X):NEXT:FOR X=1 TO NV:READ VB$(X):NEXT:FOR X=1 TO NN:READ NO$(X):NEXT:FOR X=1 TO 20:READ H$(X):NEXT:H$(9)=H$(8):H$(15)=H$(13):H$(11)=H$(8):FOR X=21 TO 26:H$(X)=H$(20):NEXT:O(29)=-2:L=1:CLS:IF QZ=1 THEN 1080
1020 PRINT"     Well, here it is! The big evening!


     Your buddy Arnie set you up with this little number named Andrea, and here you are!

     What do you know? She LOOKS OK, at least! (After that last blind date of

Arnie's his LIFE ";
1030 PRINT"depended on that!)":PRINT"     Thing is, he didn't tell you a damn thing about her. What she likes and

doesn't like, how far she goes how fast... all the important stuff you need to

know."
1031 PRINT"

     With this background, your DRIVE-IN ADVENTURE is about to begin. As with

all adventures, you direct the computer with VERB-NOUN two-word English

sentences. Your sensual computer will be your eyes and ears and hands and... ";
1032 PRINT"well... you'll find out.":GOSUB 65001:CLS:PRINT"     You will also note that at times you'll get some direct feedback from

Andrea. Her comments will be printed on the screen between single quotes

(ex. 'HI!').

"
1035 PRINT"

     A few hints...

        You can leave the car by EXIT CAR

        There is a snack bar (somewhere)

        You can get lost! Be careful!

        There are laws against forcing your attentions on a lady

        HELP will sometimes give ";
1037 PRINT"more than one hint...":PRINT"           keep asking if you are stuck.

        INV (INVENTORY) will display a list of things you are holding.

        AGAIN repeats your last two word command (won't work for single word"
1038 PRINT"             commands... retype them...":PRINT"        SAVE will save the game to disk for later use. This is especially

             valuable if you get stuck and want to sleep on the problem."
1039 PRINT"        LOAD will recover the saved game. You can pick up right where you left

            off with location, moods, and inventory intact.":GOSUB 65001
1040 CLS:PRINT"     So, here you are at the drive-in.

     The movie is one of those crappie Japan-made monster movies and she looks

as bored as you are. The loudspeaker is blaring, and you're trying to think of

what to do next."
1050 PRINT:PRINT"     When you've got an idea, press <ENTER> to begin.









REMEMBER ----> You can always ask for HELP! (heh heh --- at ANY TIME --- heh heh heh)...";
1060 IF INKEY$ ="" THEN 1060 ELSE CLS
1080 LOCATE 1,1:PRINT"You are ";L$(L);STRING$(80-POS(0),32);:PRINT"You see: ";
1090 FL=0:FOR X=1 TO NO:IF O(X)=L THEN 1091 ELSE 1100
1091 IF POS(0)+LEN(O$(X))>79 THEN PRINT STRING$(80-POS(0),32);:PRINT"         ";
1092 PRINT O$(X);". ";:FL=1
1100 NEXT:IF FL=0 THEN PRINT"NOTHING";
1101 PRINT STRING$(80-POS(0),32);
1110 FL=0:FOR X=1 TO 6:IF L(L,X)<>0 THEN FL=1
1120 NEXT:IF FL=0 THEN 1170
1140 PRINT"YOU CAN GO: ";:FOR X=1 TO 6:IF L(L,X)<>0 THEN PRINT D$(X);
1160 NEXT
1161 PRINT STRING$(80-POS(0),32);
1170 PRINT STRING$(79,"="):AN$="":PRINT"WHAT WOULD YOU LIKE TO DO";:HP=POS(0)+1:VP=CSRLIN:PRINT STRING$(80-POS(0),32);:PRINT STRING$(80,32):LOCATE VP,HP:INPUT AN$:PRINT STRING$(240,32):PRINT STRING$(240,32):PRINT STRING$(240,32):LOCATE VP+2,1
1171 IF AN$="" THEN PRINTCHR$(30);CHR$(30);:GOTO 1170 ELSE IF AN$="AGAIN" THEN IF VB<>0 THEN 1260 ELSE PRINT"WHAT DO YOU MEAN":GOTO 1080
1172 IF LEFT$(AN$,4)="TURN" THEN INPUT"ARE YOU TRYING TO DEAL WITH THE LOADSPEAKER OR THE RADIO";A$:IF LEFT$(A$,1)="Y" THEN PRINT"TRY A NOUN-VERB COMBINATION INSTEAD OF VERB-NOUN":GOTO 1080
1173 IF Z2=1 THEN Z=INSTR(AN$," "):IF Z<>0 THEN 1230
1174 Z1=LEN(AN$):FOR ZZ=1 TO Z1:IF MID$(AN$,ZZ,1)=" " THEN Z=ZZ:GOTO 1230 ELSE NEXT
1175 VB=0:NB=0:IF AN$="SAVE" THEN 35000 ELSE IF AN$="LOAD" THEN 35100
1181 IF AN$="SCORE" THEN PRINT"You haven't SCORED yet!":GOTO 1080 ELSE IF LEFT$(AN$,3)="INV" THEN 1190 ELSE IF AN$="QUIT" THEN PRINT"YOU'LL NEVER BE A ROMEO!":GOTO 33000 ELSE IF AN$="HELP" THEN 57000
1182 FOR X=1 TO 6:IF AN$=LEFT$(D$(X),1) THEN IF L(L,X)=0 THEN 1189 ELSE L=L(L,X):X=6:GOTO 1080
1183 NEXT:PRINT"HUH?":GOTO 1080
1189 PRINT"You cannot go in that direction":GOTO 1080
1190 FL=0:PRINT"YOU ARE HOLDING:"
1200 FOR X=1 TO NO:IF O(X)=-1 THEN PRINT O$(X);:FL=1 ELSE 1210
1201 IF X=23 OR X=24 OR X=25 THEN PRINT" which you are wearing."ELSE PRINT"."
1210 NEXT:IF FL=0 THEN PRINT"NOTHING AT ALL"
1220 GOTO 1080
1230 VB=0:NB=0:VB$="":NO$="":VB$=LEFT$(AN$,3):NO$=MID$(AN$,Z+1,3)
1240 FOR X=1 TO NV:IF VB$(X)=VB$ THEN VB=X:X=NV ELSE NEXT:PRINT"I don't know how to ";LEFT$(AN$,Z-1);" something":GOTO 1080
1250 FOR X=1 TO NN:IF NO$(X)=NO$ THEN NB=X:X=NN ELSE NEXT:IF VB=1 THEN 1260 ELSE PRINT"I don't know what a ";RIGHT$(AN$,LEN(AN$)-Z);" is.":GOTO 1080
1260 IF VB<>1 THEN 1270 ELSE 59000
1270 ON VB GOTO 59000,54000,54000,53000,53000,53000,52000,59000,58000,58000,56000,55000,52000,51000,50000,50000,49000,48000,48000,48000,47000,46000,45000,45000,46000,43000,43000,42000,40000,41000,40500,34000,34000,48000,48000
1280 GOTO 1080
33000 QZ=1:FOR X=1 TO 2000:NEXT:PRINT TAB(5)"";:INPUT"WANT TO TRY AGAIN";AN$:IF LEFT$(AN$,1)<>"Y" THEN RUN"MENU" ELSE CLS:GOTO 1000
34000 PRINT"In this Adventure, you must FEEL your way, so to speak...":IF L>2 AND L<7 THEN PRINT"You might try READING the signs..."
34010 GOTO 1080
35000 PRINT"SAVING GAME":OPEN"O",1,NA$
35001 PRINT#Z2,L,RB,F1,F2,F3,F4,F5,F6,F7,F8,F9,F0,FA,FB,FF,R:FOR X=1 TO NN STEP7:PRINT#Z2,O(X),O(X+1),O(X+2),O(X+3),O(X+4),O(X+5),O(X+6):NEXT:GOTO 35102
35100 PRINT"LOADING GAME":OPEN"I",1,NA$
35101 INPUT#Z2,L,RB,F1,F2,F3,F4,F5,F6,F7,F8,F9,F0,FA,FB,FF,R:FOR X=1 TO NN STEP7:INPUT#Z2,O(X),O(X+1),O(X+2),O(X+3),O(X+4),O(X+5),O(X+6):NEXT
35102 CLOSE
35103 CLS:GOTO 1080
38000 IF RB=1 THEN PRINT"CONGRATULATIONS!!!!! (Don't forget to make another date)":GOSUB 65003:PRINT"Also remember to call Arnie and give him a pat on the back!":GOTO 33000
38010 FOR X=1 TO 2000:NEXT:CLS:PRINT TAB(10)"UH-OH!":PRINT:GOSUB 65003:PRINT"ANDREA WAS NOT ON THE PILL.":GOSUB 65003:PRINT:PRINT"YOU DIDN'T WEAR A RUBBER...":GOSUB 65003
38011 PRINT:PRINT"I bet you thought a 2 o'clock FEEDING meant going out for a PIZZA...":FOR X=1 TO 2500:NEXT:PRINT:PRINT"GUESS WHAT?":GOSUB 65003:CLS
38012 A$="WWWAAAAHHHHHHHHHHHHH!!!!!!!!":LOCATE 10,20:FOR X=1 TO LEN(A$):PRINT MID$(A$,X,1);:FOR Y=1 TO 100:NEXT:NEXT:GOSUB 65003
38020 CLS:LOCATE 11,26:PRINT L$:GOTO 33000
39000 FOR X=1 TO 100:CLS:LOCATE 10,38:PRINT"R A P E":FOR Y=1 TO 10:NEXT:NEXT:LOCATE 10,38:PRINT CP$:GOSUB 65003:LOCATE 12,25:PRINT"I TOLD YOU NOT TO RUSH IT!":GOTO 33000
40000 IF NB<>1 THEN 59300 ELSE IF O(1)=L THEN PRINT"SHE'S ALREADY HERE":GOTO 1080 ELSE O(1)=L:GOTO 59400
40500 IF NB<>39 THEN 59800 ELSE IF O(39)=-1 THEN O(39)=0:GOTO 59400 ELSE 59300
41000 IF NB=26 THEN IF O(26)<>-1 THEN 59300 ELSE IF O(29)>-2 THEN PRINT"IT'S ALREADY OPEN":GOTO 1080 ELSE O(29)=-1:PRINT"There's a dollar there":GOTO 1080
41020 PRINT"It is beyond my power to do that!":GOTO 1080
42000 IF NB<51 OR NB>54 THEN VB=20:GOTO 1270 ELSE IF O(22)=0 THEN 59600 ELSE IF F0<1 THEN 51999 ELSE FA=FA+1:IF FA=1 PRINT"Your finger is quickly lost in her wetness...":GOTO 1080
42040 IF FA=2 THEN PRINT"She pulls you closer, squirming with delight!":GOTO 1080 ELSE IF FA=3 THEN PRINT"She pulls your head down...":GOTO 1080 ELSE 59400
43000 IF NB<>1 THEN 45000 ELSE IF O(1)<>L THEN 46004 ELSE IF F9<1 THEN PRINT"UH OH! I THINK YOU BLEW IT! SHE'S LEFT IN A HUFF, YOU INSENCERE BASTARD!":AN$="QUIT":GOTO 1181
43010 IF FA<2 THEN PRINT"SHE SAYS 'OH ";NM$;", play with me some more before you eat me'":GOTO 1080
43020 IF FB<1 THEN PRINT"SHE SAYS 'OH, BABY! Eat me first!'":GOTO 1080
43025 IF R=3 THEN 39000
43030 FF=FF+1:IF FF=1 THEN PRINT"SHE SAYS 'Just a little longer, baby!'":FS=F8+F9+F0+FA+FB:GOTO 1080
43040 IF F8+F9+F0+FA+FB=FS THEN PRINT"'HEY! LIGHTEN UP!'":R=R+1:GOTO 1080
43050 IF FF=2 THEN PRINT"'NO...NOOOOOOOOOO...'":FS=F8+F9+F0+FA+FB:GOTO 1080
43060 IF FF=3 THEN FOR X=1 TO 20:CLS:COLOR 0,7:FOR Y=1 TO 10:NEXT Y:CLS:COLOR 7,0:NEXT:CLS:LOCATE 10,25:PRINT"YOU SCORED!!!!":GOTO 38000
43070 IF FF>3 THEN FF=2:GOTO 43050
45000 IF NB=1 THEN 59700 ELSE IF NB<38 THEN PRINT"I KNEW IT! You ARE Strange!!!!!":GOTO 1080 ELSE IF O(1)<>L THEN 46004
45002 IF NB=42 THEN PRINT"How Gallant!":F1=F1+1:GOTO 59400 ELSE IF NB<>56 THEN 45010
45005 IF F4>0 THEN F5=F5+1:GOTO 45100 ELSE PRINT"She doesn't seem willing...":GOTO 1080
45010 IF NB<43 OR NB>45 THEN 45030 ELSE IF F6<1 THEN 51999 ELSE IF O(20)=0 THEN PRINT"Her cleavage is NICE... what I can get to...":GOTO 1080 ELSE F8=F8+1:GOTO 45200
45030 IF NB=46 THEN 59400 ELSE IF NB<>47 THEN 45050 ELSE IF FG<>1 THEN PRINT"Somehow the mood is not right...":GOTO 1080 ELSE IF F2>0 THEN F3=F3+1:GOTO 45300 ELSE PRINT"SLOW DOWN, ROMEO!":GOTO 1080
45050 IF NB=48 THEN IF F9>1 THEN PRINT"YOU'RE REALLY TURNING HER ON!":F0=F0+1:GOTO 1080 ELSE 51999
45060 IF NB=49 OR NB=50 THEN IF F8>2 THEN PRINT"SHE LOVES IT!":F9=F9+1:GOTO 1080 ELSE 51999
45070 IF NB>50 AND NB<55 THEN IF FA>2 THEN FB=FB+1:PRINT"YES...YES...YES...":GOTO 1080 ELSE 51999
45080 IF NB=55 THEN IF F3>1 THEN PRINT"UMMMMMM":GOTO 1080 ELSE 51999
45100 IF F5=1 THEN PRINT"She tastes LUSCIOUS there too. Nice full lips...":GOTO 1080 ELSE IF F5=2 THEN PRINT"I could do this all night...":GOTO 1080 ELSE IF F5=3 THEN PRINT"WOW! Her tongue just flicked yours!":GOTO 1080 ELSE 59400
45200 IF F8=1 THEN PRINT"OH WOW!!!!!!":GOTO 1080 ELSE IF F8=2 THEN PRINT"They're nice and firm, um-m-m-m-m...":GOTO 1080 ELSE IF F8=3 THEN PRINT"Her nipples are getting harder as your tongue plays...":GOTO 1080 ELSE 59400
45300 IF F3=1 THEN PRINT"The perfume is sweet...maybe jasmine...":GOTO 1080 ELSE IF F3=2 THEN PRINT"Nice curve right THERE, where the ear and the neck meet...":GOTO 1080 ELSE 59400
46000 IF NB=1 THEN 46004 ELSE IF NB<38 THEN NB=1:GOTO 51001 ELSE IF NB=38 THEN IF O(38)=0 THEN 59300 ELSE PRINT"YUMMY!":O(38)=0:GOTO 1080
46002 IF NB=39 THEN IF O(39)=0 THEN 59300 ELSE PRINT"You DRINK Cola, DUMMY!":GOTO 1080
46003 IF NB=40 THEN IF O(40)=0 THEN 59300 ELSE PRINT"YUMMY!":O(40)=0:GOTO 1080
46004 IF O(1)<>L THEN PRINT"But Andrea isn't here!":GOTO 1080
46010 IF NB<43 OR NB>45 THEN 46020 ELSE IF O(20)=0 THEN IF F6>0 THEN 45010 ELSE 46030
46011 IF F7>0 THEN F8=F8+1:GOTO 45200
46020 IF NB>50 AND NB<55 THEN IF O(22)<>0 THEN 46090 ELSE 59600
46030 PRINT"IF YOU DON'T QUIT RUSHING THINGS, YOU'RE GOING TO BLOW IT!":GOTO 1080
46090 IF FA<1 THEN 46030
46100 FB=FB+1:IF FB=1 THEN PRINT"'OH ";NM$;"!'":GOTO 1080 ELSE IF FB=2 THEN PRINT"'UMMMM... Don't knock it if you ain't tried it!'

She's about to go INSANE!":GOTO 1080 ELSE PRINT"'OH-H-H-H-H-H-H-H-H-H-H!!!!!!!!'":GOTO 1080
47000 IF O(1)<>L THEN 46004 ELSE IF NB=55 THEN IF F3>0 THEN PRINT"SHE BLOWS BACK INTO YOUR EAR!":F4=F4+1:GOTO 1080
47010 IF NB=47 THEN IF F2>1 THEN PRINT"SHE LICKS YOUR EAR.":F3=F3+1:GOT0 1080
47020 IF NB>50 AND NB<54 AND F0>0 THEN PRINT"SHE PULLS YOU CLOSER!":GOTO 1080 ELSE 59400
48000 IF NB=1 OR NB=37 THEN 59700 ELSE IF NB<20 THEN PRINT"OK, but I don't think it'll do you any good":GOTO 1080 ELSE IF O(1)<>L THEN 46004
48012 IF NB=20 THEN IF F5>2 THEN F6=F6+1:GOTO 48200 ELSE PRINT"Your hand is moved back 2 inches":GOTO 1080
48020 IF NB=49 OR NB=50 THEN 45000 ELSE IF NB>22 AND NB<36 OR NB>37 AND NB<42 THEN PRINT"WHAT ARE YOU INTO, ANYWAY?":GOTO 1080
48040 IF NB>42 AND NB<46 THEN IF O(20)=0 THEN PRINT"Aren't you REALLY asking to ";LEFT$(AN$,Z);"the HALTER? It's on!":GOTO 1080 ELSE IF F6>1 THEN F7=F7+1:GOTO 48100 ELSE 51999
48050 IF NB=46 THEN F1=1:GOTO 59400
48060 IF NB=47 THEN IF F3<1 THEN F3=F3+1:GOTO 59400 ELSE 59400
48070 IF NB=48 THEN IF F9>1 THEN F0=F0+1:PRINT"OH-H-H-H":GOTO 1080 ELSE 59600
48080 IF NB>50 AND NB<55 THEN IF F0<1 THEN 51999 ELSE FA=FA+1:PRINT"OH-H-H-H BABY!":GOTO 1080
48090 IF NB=22 OR NB=21 THEN IF F0<>0 THEN PRINT"She puts her hand on yours and presses...":GOTO 1080 ELSE 51999
48091 GOTO 59300
48100 IF F7=1 THEN PRINT"Hey... I think these are even nicer than they looked!":GOTO 1080 ELSE PRINT"She seems to like it...":GOTO 1080
48200 IF F6=1 THEN PRINT"Man! If that cloth has to stretch 1 more inch...":GOTO 1080 ELSE IF F6=2 THEN PRINT"She takes a deep breath, and presses your hand into her breast":GOTO 1080 ELSE 59400
49000 IF NB<42 THEN PRINT"ARE YOU WANTING TO ACQUIRE SOMETHING?":GOTO 1080 ELSE IF O(1)<>L THEN 46004 ELSE IF O(30)=1 THEN PRINT"HOW CAN YOU DO ANYTHING WITH ALL THAT NOISE FROM THE MOVIE?":GOTO 1080
49010 IF NB=42 THEN F1=F1+1:IF F1>1 THEN 59400 ELSE PRINT"SHE SLIDES CLOSER TO YOU.":GOTO 1080
49030 IF NB=46 THEN PRINT"Don't you REALLY want to put YOUR ARM around HER???":GOTO 1080 ELSE 48040
50000 IF VB=15 AND NB=31 THEN O(30)=0:PRINT"I dropped it out the window...":GOTO 1080
50010 IF VB=15 AND NB=32 THEN PRINT"I think it broke when ";:NB=31:GOTO 50000
50030 IF VB<>16 THEN 59500 ELSE IF NB<>31 AND NB<>32 THEN 59500
50040 IF NB=31 THEN IF O(31)=L THEN PRINT"IT'S ALREADY OFF":GOTO 1080 ELSE O(31)=L:O(32)=0:GOTO 59400
50050 IF NB=32 THEN IF O(32)=L THEN PRINT"IT'S ALREADY ON":GOTO 1080 ELSE O(32)=L:O(31)=0:GOTO 59400 ELSE 51001
51000 IF NB>19 AND NB<23 THEN IF O(1)<>L THEN 46004
51001 IF NB<20 OR NB>25 THEN PRINT"HUH?":GOTO 1080 ELSE ON NB-19 GOTO 51010,51020,51030,51040,51050,51060
51010 IF L<>2 THEN 51013 ELSE GOSUB 51900:IF OF=1 THEN 1080 ELSE IF F6>2 THEN O(20)=L:O$(1)="ANDREA, with bare breasts":GOTO 59400 ELSE PRINT"'NOT SO FAST, BUSTER!'"
51011 IF F4=0 THEN PRINT"I THINK YOU'RE RUSHING THINGS A BIT":GOTO 1080 ELSE IF F2=0 THEN PRINT"YOU'VE SURE GOT ALOT TO LEARN!":GOTO 51999
51013 PRINT"IT SURE IS CRAMPED IN HERE... I CAN'T MANAGE IT...":GOTO 1080
51020 GOSUB 51900:IF OF=1 THEN 1080 ELSE IF F9>0 THEN O(21)=L:O$(1)="ANDREA, wearing nothing but panties":GOTO 59400
51021 IF O(20)=0 THEN PRINT"YOU'RE STARTING AT THE WRONG END.":GOTO 1080 ELSE PRINT"NICE TRY...":GOTO 1080
51030 GOSUB 51900:IF OF=1 THEN 1080 ELSE IF F0=0 THEN PRINT"TAKE YOUR TIME, ROMEO!":GOTO 1080
51032 IF O(23)=0 OR O(24)=0 OR O(22)=-1 THEN 59600 ELSE O(22)=L:O$(1)="A VERY BARE ANDREA (lookin' good!)":GOTO 59400
51040 GOSUB 51900:IF OF=1 THEN 1080 ELSE O(23)=L:IF O(1)=L THEN PRINT"Andrea says 'HMMMMMM'":GOTO 1080 ELSE 59400
51050 GOSUB 51900:IF OF=1 THEN 1080 ELSE IF O(1)<>L THEN 51052
51051 IF F8<1 THEN PRINT"'WHAT DO YOU THINK YOU'RE DOING?'":GOTO 1080
51052 O(24)=L:IF O(1)=L THEN PRINT"She smiles broadly"
51056 GOTO 1080
51060 GOSUB 51900:IF OF=1 THEN 1080 ELSE IF O(24)=-1 THEN 52001 ELSE IF O(1)<>L THEN 51064 ELSE IF FA<1 THEN PRINT"'OH NO YOU DON'T! PUT THOSE BACK ON!'":GOTO 1080
51064 O(25)=L:IF O(1)=L THEN PRINT"I think she likes what she sees..."
51066 GOTO 1080
51900 OF=0:IF O(NB)<>0 AND O(NB)<>-1 THEN PRINT"IT'S ALREADY OFF!":OF=1:RETURN ELSE RETURN
51999 PRINT"SHE PUSHES YOU BACK FOR YOUR UNWELCOME ADVANCE!":GOTO 1080
52000 IF NB=27 THEN IF O(27)<>-1 THEN PRINT"I DON'T HAVE ONE!":GOTO 1080 ELSE 52001 ELSE 52010
52001 IF O(25)=-1 OR O(24)=-1 THEN PRINT"Something's in the way":GOTO 1080 ELSE RB=1:O(27)=0:PRINT"Damn these slippery things...":GOSUB 65003:PRINT"There! It's on.":GOTO 1080
52010 IF NB>19 AND NB<23 THEN PRINT"HEY! YOU'RE INTO SOMETHING TOO KINKY FOR ME!":GOTO 1080
52020 IF NB>22 AND NB<26 AND O(NB)<>L THEN 59300
52025 IF NB=25 AND O(24)=-1 THEN 52001
52030 IF NB>22 AND NB<26 THEN O(NB)=-1:GOTO 59400
52040 IF NB=6 AND L=4 THEN PRINT"AH!!! That's much better.";:GOSUB 65003:H=POS(0):V=CSRLIN:PRINT" (Sorry Scott...I couldn't resist)";:FOR X=1 TO 2000:NEXT:LOCATE V,H:PRINT STRING$(34,32):GOTO 1080 ELSE 41020
53000 IF NB<>46 THEN 53020 ELSE IF F2>0 THEN PRINT"IT'S ALREADY THERE.":GOTO 1080 ELSE INPUT"AROUND WHAT (1 WORD)";AN$:AN$=LEFT$(AN$,3):IF AN$="SHO" OR AN$="WAI" OR AN$="BAC" THEN F2=1:GOTO 59400 ELSE PRINT"NO WAY!":GOTO 1080
53020 IF NB=1 THEN 54010 ELSE IF O(NB)<>-1 THEN PRINT"IT'S NOT IN THE INVENTORY":GOTO 1080 ELSE O(NB)=L:GOTO 59400
54000 IF O(NB)=-1 THEN PRINT"YOU'VE ALREADY GOT IT!":GOTO 1080
54010 IF NB<20 THEN PRINT"I'm not THAT strong!":GOTO 1080 ELSE IF NB=33 THEN PRINT"PICK THE FILTHY THING UP YOURSELF!":GOTO 1080
54030 IF NB=31 OR NB=32 OR NB=36 OR NB=37 THEN 59500 ELSE IF NB=30 THEN PRINT"It's connected to the post":GOTO 1080 ELSE IF NB=41 THEN PRINT AN$;" YOURSELF!":AN$="QUIT":GOTO 1181
54052 IF O(1)=L AND NB>41 THEN PRINT"I THINK THAT'S IMPOSSIBLE... (the girl comes with it!)":GOTO 1080
54060 IF O(NB)=L THEN O(NB)=-1:GOTO 59400 ELSE 59300
55000 IF O(28)<>-1 AND O(29)<>-1 THEN PRINT"How are you going to buy it?":GOTO 1080
55001 IF L<>4 OR NB<>27 THEN 55002 ELSE IF O(29)=-1 THEN PRINT"THE MACHINE CAN'T MAKE CHANGE!":GOTO 1080 ELSE O(27)=-1:GOTO 55040
55002 IF NB>37 AND NB<41 THEN IF L=19 THEN O(NB)=-1:GOTO 55040
55009 IF O(NB)<>L THEN 59300
55031 PRINT"THAT'S NOT FOR SALE!":GOTO 1080
55040 IF O(29)=-1 THEN O(29)=0:O(28)=-1 ELSE O(28)=0
55050 GOTO 59400
56000 IF NB<>2 THEN 56003 ELSE IF L=6 THEN PRINT"SIGN SAYS:

     SNACK BAR


<--- MEN'S ROOM

     LADIES ROOM --->":GOTO 1080
56001 IF L=19 THEN PRINT"SIGN SAYS:

POPCORN     .50

COLA        .25

CANDY       .25

PLEASE SAY ";CHR$(34);"BUY";CHR$(34);" AS YOU ORDER":GOTO 1080
56002 IF L=4 THEN PRINT"SUPER-CHIEFS!

package of 2

  50 cents

BUY them today":GOTO 1080
56003 IF NB=34 AND L=16 THEN PRINT"IT'S A NOTE FROM ARNIE:

HEY STUD!

  I forgot to tell you! Andrea is NOT on the pill! BE CAREFUL!

                                             Arnie":GOTO 1080
56100 PRINT"I see nothing to read here":GOTO 1080
57000 IF L>2 THEN PRINT H$(L):GOTO 1080
57001 IF L=2 THEN 57010 ELSE IF O(30)<>1 AND O(32)=1 AND F1=0 THEN PRINT"Holding hands is a good place to start.":GOTO 1080
57002 IF O(30)=1 AND O(32)=1 THEN PRINT"How can you even think with both the radio and loudspeaker on?":GOTO 1080
57003 IF O(31)=1 THEN PRINT H$(1):GOTO 1080
57006 IF F2>0 AND FG=0 THEN PRINT"I think a few refreshemnts are in order...":GOTO 1080
57007 PRINT"I'll help you a Little later on, but for now It's up to you.":GOTO 1080
57010 IF O(1)<>L AND H1=0 THEN PRINT H$(2):H1=1:GOTO 1080
57020 IF O(1)=1 THEN PRINT"I see I'm going to have to tell you everythIng!

Try: CALL ANDREA":GOTO 1080
57030 IF H2=0 THEN IF F5>3 AND F6<1 THEN PRINT"SOME girls like to be felt THROUGH the clothes first...":H2=1:GOTO 1080
57040 IF H3=0 THEN IF F8>1 AND F9<1 THEN PRINT"See that nice, flat tummy???????? Try your hand there!":H3=1:GOTO 1080
57050 IF H4=0 THEN IF F9>1 AND F0<1 THEN PRINT"Try being a leg man...":H4=1:GOTO 1080
57060 IF H5=0 THEN IF F0>1 AND FA<1 THEN PRINT"What are those things at the ends of your hands for?????":H5=1:GOTO 1080
57070 IF H6=0 THEN IF FA>1 AND FB<1 THEN PRINT"She looks good enough to EAT!":H6=1:GOTO 1080
57080 IF FB>1 THEN PRINT"YOU'RE ON YOUR OWN FROM HERE, OLD CHAP!":H7=1:GOTO 1080
57090 PRINT"Keep it up...":GOTO 1080
58000 IF NB=7 AND L=1 THEN L=7:F1=0:F2=0:F3=0:F4=0:F5=0:F6=0:F7=0:F8=0:F9=0:F0=0:FA=0:FB=0:FG=1:O(20)=0:O(21)=0:O(22)=0:O$(1)="ANDREA, wearing halter-top and shorts":GOTO 1080
58001 IF NB=7 AND L=2 THEN PRINT"BUT YOU'RE IN THE BACKSEAT!":GOTO 1080 ELSE IF NB=7 THEN 59200
59000 IF NB=36 THEN IF L=1 THEN L=2:GOTO 1080 ELSE IF L=2 THEN 59100 ELSE 59200
59001 IF NB=37 THEN IF L=2 THEN L=1:GOTO 1080 ELSE IF L=1 THEN 59100 ELSE 59200
59002 IF NB=1 THEN IF O(1)<>L THEN 46004 ELSE VB=26:GOTO 43000
59003 IF O(23)<>-1 AND O(24)<>-1 THEN PRINT"OOOOOOOOPS!

YOU'RE NOT DRESSED!":PRINT CP$:PRINT L$:GOTO 33000
59009 IF NB=7 THEN IF L=7 THEN L=1:GOTO 1080 ELSE IF L=9 OR L=8 OR L=11 THEN PRINT"I DON'T THINK THE PEOPLE IN THOSE CARS WOULD TAKE KINDLY TO THAT":GOTO 1080 ELSE 59300
59011 IF NB=15 THEN IF L=15 THEN L=17:GOTO 1080 ELSE IF L=15 THEN 59100 ELSE 59300
59012 IF NB=16 THEN IF L=13 THEN L=18:GOTO 1080 ELSE IF L=18 THEN 59100 ELSE 59300
59013 IF NB=17 THEN IF L=14 THEN L=16:GOTO 1080 ELSE IF L=17 THEN 59100 ELSE 59300
59014 IF NB=14 THEN IF L=6 THEN L=3:GOTO 1080 ELSE IF L=3 THEN 59100
59015 IF NB=13 THEN IF L=3 THEN L=19:GOTO 1080 ELSE IF L=19 THEN 59100
59016 IF NB=11 THEN IF L=6 THEN L=4:GOTO 1080 ELSE IF L=4 THEN 59100
59017 IF NB=12 THEN IF L=6 THEN L=5:CLS:PRINT"YOU'RE IN THE LADIES' ROOM YOU IDIOT!


AND THERE'S A LADY HERE SCREAMING!":GOSUB 65003:PRINT CP$:AN$="QUIT":GOTO 1181
59018 AN$=LEFT$(NO$,1):GOTO 1182
59100 PRINT"YOU'RE ALREADY THERE!":GOTO 1080
59200 PRINT"YOU'RE NOT EVEN IN THE CAR!":GOTO 1080
59300 PRINT"I DON'T SEE IT HERE.":GOTO 1080
59400 PRINT"OK":GOTO 1080
59500 PRINT"I DON'T UNDERSTAND...":GOTO 1080
59600 PRINT"I CAN'T DO THAT... YET!":GOTO 1080
59700 PRINT"YOU'LL HAVE TO BE MORE SPECIFIC! I'M JUST A DUMB COMPUTER!":GOTO 1080
59800 PRINT"You DRINK cola, DUMMY!":GOTO 1080
65000 FOR X=1 TO 20:NEXT:RETURN
65001 LOCATE 24,1:PRINT"Press <ENTER> to continue";
65002 IF INKEY$="" THEN 65002 ELSE RETURN
65003 FOR X=1 TO 1500:NEXT:RETURN
65100 DATA"NORTH ","EAST ","SOUTH ","WEST ","UP ","DOWN "
65110 DATA in the front seat of your car,0,0,0,0,0,0,in the backseat,0,0,0,0,0,0,in the snackbar,0,0,6,0,0,0,in the MEN'S ROOM,0,0,6,0,0,0,in the LADIES' ROOM,0,0,0,0,0,0,outside the snackbar,0,26,14,25,0,0
65120 DATA "Outside, next to YOUR car",9,20,11,10,0,0,next to a RED car,14,12,9,24,0,0,next to a BLUE car,8,12,7,23,0,0,in a vacant space,23,7,21,12,0,0,next to a CONVERTABLE,7,12,22,21,0,0,LOST!,12,12,12
65130 DATA 12,0,0,in the playground next to the SEE-SAW,6,14,8,25,0,0,in the playground next to the SLIDES,6,15,8,13,16,0,in the playground next to the SWINGS,6,26,8,14,0,0,at the top of the SLIDE,0,0,0,0,0,14
65140 DATA on the SWINGS,0,0,0,15,0,0,on the SEE-SAW,0,13,0,0,0,0,at the snackbar COUNTER,0,0,3,0,0,0,,12,12,12,7,0,0,,10,11,22,12,0,0,,11,12,12,12,0,0,,13,9,10,12,0,0
65150 DATA ,25,8,23,12,0,0,,12,13,24,12,0,0,,12,12,12,15,0,0
65160 DATA "ANDREA, wearing halter-top and shorts",1
65170 DATA sign,19,sign,6,ATTENDANT - waiting for order,19,PEOPLE - milling around,3,john,4,a convertable with the top up,11,a BLUE car,9,a RED car,8,YOUR car,7,,0,,0,service counter,3,,0,swings,15,seesaw,13,slide,14
65180 DATA towel dispenser,4,coin-operated MACHINE on wall,4
65190 DATA halter-top,0,shorts,0,panties,0,shirt,-1,slacks,-1,briefs,-1,billfold,-1,a pack of RUBBERS,0,.50 in CHANGE,0,a DOLLAR bill,0,loudspeaker,1,radio (OFF),1,radio (ON),0
65200 DATA used prophylactic,23,note,16,broken speaker,10,,0,,0,candy (2 bars),0,cola (2 cups),0,popcorn,0,sign on machine,4,,0,,0,,0,,0,,0,,0,,0,,0,,0,,0,,0,,0,,0,,0,,0
65210 DATA "GO ",GET,TAK,PUT,DRO,GIV,USE,ENT,EXI,LEA,REA,BUY,WEA,REM,LOU,RAD,HOL,STR,RUB,FON,BLO,SUC,KIS,LIC,EAT,FUC,SCR,FIN,CAL,OPE,DRI,LOO,EXA,FEE,PLA
65220 DATA AND,SIG,SIG,ATT,PEO,JOH,CAR,CAR,CAR,CAR,MEN,LAD,COU,SNA,SWI,SEE,SLI,DIS,MAC,HAL,SHO,PAN,SHI,SLA,BRI,BIL,RUB,CHA,DOL,LOU,OFF,ON,PRO,NOT,SPE,BAC,FRO,CAN,COL,POP,FUC,HAN,TIT,BRE,BOO,ARM,NEC,LEG,TUM,STO,CLI,CUN,PUS,VAG,EAR,LIP
65230 DATA They say MUSIC is nice...,"If she isn't here too, you aren't going to get anywhere",order at the COUNTER,try READing things,,go whichever way ya' gotta go!,CAREFUL! You could get LOST
65240 DATA keep going,,don't lose your bearings...,,THERE IS NO WAY OUT OF THIS MESS. YOU'D JUST AS WELL QUIT!,You don't have time for kid's games!,SOMETHING here might bear checking out...,
65250 DATA There's only one way down,,,Try paying for the stuff,You are about to get lost!