1 &"WANT TO HAVE A DEBATE WITH YOUR FATHER, EH?":&
2 DIM M$(2)\RANDOMIZE
3 A=2
5 LET M$(2)="FATHER" 
9 RANDOMIZE
10 PRINT "DO YOU WANT THE INSTRUCTIONS";\INPUT Q1$
40 IF Q1$="YES" THEN 60 
50 GOTO 74
60 PRINT "YOU ARE GOING TO PLAY A GAME IN WHICH YOU WILL DISCUSS" 
62 PRINT "A PROBLEM WITH YOUR "M$(A)" AND ATTEMPT TO GET HIM TO"
63 PRINT "AGREE WITH YOU IN THREE TRIES." 
64 PRINT
66 PRINT "FOR EACH STATEMENT YOU MAKE, I WILL TELL YOU WHAT " 
67 PRINT "YOUR "M$(A)" REPLIED."
68 PRINT
70 PRINT "YOU MUST SELECT YOUR STATEMENTS FROM ONE" 
72 PRINT "OF THE FOLLOWING SIX."
73 PRINT
74 PRINT "**********" 
75 PRINT "1.    O.K. I WILL STAY HOME." 
76 PRINT "2.    BUT I'D REALLY LIKE TO GO. ALL MY FRIENDS ARE GOING." 
100 PRINT "3.    IF ALL MY WORK IS DONE, I SHOULD BE ABLE TO GO."
110 PRINT "4.    IF YOU LET ME GO OUT I'LL BABYSIT ALL NEXT WEEK." 
120 PRINT "5.    YOU NEVER LET ME DO WHAT I WANT TO DO." 
130 PRINT "6.    I'M GOING ANYWAY!"  
132 PRINT "**********" 
134 PRINT
136 PRINT "WHEN A QUESTION MARK APPEARS, TYPE THE NUMBER"
137 PRINT "OF YOUR RESPONCE FOLLOWED BY A RETURN." 
138 PRINT
140 PRINT "YOU WILL RECIEVE POINTS BASED ON HOW SUCCESSFULL YOU" 
142 PRINT "ARE AT CONVINCING YOUR FATHER." 
144 PRINT
146 PRINT "THE ISSUE IS:"
148 PRINT "   YOU WANT TO GO OUT SATURDAY NIGHT."
149 PRINT "   YOUR "M$(A)" OPPOSES THE IDEA."
150 PRINT
155 PRINT "WHEN YOU FIRST BRING UP THE IDEA, YOUR "M$(A)" STATES:" 
156 P1=-1
157 P3=2 
158 P5=-1
159 C=1
160 P6=-2
161 X=0
162 I6=0 
164 PRINT
165 PRINT "NO, YOU CAN'T GO OUT ON A DATE SAT. NITE AND THAT'S THAT."  
170 PRINT "HOW WOULD YO APPROACH YOUR "M$(A) 
172 PRINT "WHAT WOULD YOU SAY FIRST";\INPUT I1 
180 ON I1 GOTO 220,240,420,420,238,205   
185 PRINT "NO, YOU CAN NOT GO OUT ON A SAT. NIGHT."
186 X=X-2\I6=I6+I1 
189 IF I6=I2 THEN 274
190 C=C+1
195 IF C=3 THEN 370
196 IF I2=6 THEN 280 
200 GOTO 246 
205 PRINT "YOUR "M$(A)" SAID:" 
210 GOTO 185 
220 PRINT "AGREEMENT REACHED"
222 X=X+P1 
230 GOTO 370 
238 X=X+P5 
240 PRINT "YOUR "M$(A)" SAID:" 
242 PRINT "I DON'T THINK YOU DESERVE TO GO OUT SAT. NITE." 
246 PRINT "WHAT IS YOUR REPLY";
250 INPUT I2 
260 ON I2 GOTO 220,320,350,350,318,205 
270 PRINT "YOUR "M$(A)" SAID:" 
271 X=X+P3 
274 PRINT "WHAT IS YOUR REPLY";
280 INPUT I3 
290 ON I3 GOTO 310,372,300,300,310,312 
293 X=X+P1 
294 X=X+P1 
295 GOTO 372 
300 X=X+2
302 GOTO 372 
310 X=X-1\GOTO 372 
312 X=X-2
314 PRINT "DISCUSSION ENDED. NO AGREEMENT REACHED."
315 GOTO 370 
318 X=X+P5 
320 PRINT "YOUR "M$(A)" SAID:" 
322 PRINT "NO, I'M SORRY, BUT YOU REALLY DON'T DESERVE TO GO ";
324 PRINT "SAT. NITE." 
325 PRINT "WHAT IS YOUR REPLY";\INPUT I3 
340 ON I3 GOTO 220,300,350,350,294,293 
350 PRINT "YOUR FATHER SAID:"
351 X=X+P3 
352 PRINT "O.K. IF YOU DO THAT YOU CAN GO OUT SAT. NITE."
370 PRINT
372 PRINT "ON A SCALE OF -7 TO 4, YOUR SCORE WAS";X;"POINTS."
373 GOTO 450 
420 PRINT "YOUR "M$(A)" SAID:" 
421 X=X+P3 
422 PRINT "WELL, MAYBE, BUT I DON'T THINK YOU SHOULD GO."
424 PRINT "WHAT IS YOUR REPLY";\GOTO 250 
430 PRINT
450 PRINT "IT IS NOW SAT. NITE, WHICH DO YOU DO?"
460 PRINT "    1. GO OUT." 
470 PRINT "    2. STAY HOME."
472 INPUT Q3 
474 IF I1>1 THEN 476 
475 GOTO 480 
476 IF I2>1 THEN 478 
477 GOTO 480 
478 IF I3<5 THEN 480 
479 GOTO 482 
480 IF RND(X)>.5 THEN 485  
482 PRINT "YOUR FATHER CHECKED UP ON YOU." 
484 GOTO 487 
485 PRINT "YOUR FATHER DIDN'T CHECK UP ON YOU."
486 GOTO 487 
487 ON Q3 GOTO 516,488 
488 PRINT "YOUR SCORE IS NOW";X;"POINTS."
500 GOTO 550 
502 IF I2=3 THEN 508 
504 IF I2=4 THEN 508 
506 GOTO 514 
508 X=X+1
510 GOTO 488 
514 ON I3 GOTO 488,488,508,508,488,488 
516 IF I1=1 THEN 520 
517 ON I2 GOTO 520,518,488,488,518,518 
518 ON I3 GOTO 520,520,488,488,520,520 
520 X=X-1
522 GOTO 488 
550 ON X+8 GOTO 600,600,600,600,650,650,650,650,670,700,700,700
600 PRINT "YOU DIDN'T REALLY SUCCED IN CHANGING YOUR"
602 PRINT M$(A)"'S IDEAS AT ALL."
610 GOTO 750 
650 PRINT "YOU DIDN'T SUCCEED IN CONVINCING YOUR  "M$(A)"."
660 GOTO 750 
670 PRINT "YOU CONVINCED YOUR "M$(A)" BUT IT TOOK YOU TOO" 
672 PRINT "MANY TRIES."
680 GOTO 750 
700 PRINT "WELL DONE!" 
750 PRINT
774 T1=T1+1
776 PRINT "WOULD YOU LIKE TO TRY AGAIN";\INPUT Q5$ 
784 IF Q5$="YES" THEN 155
999 END