Back to Main page. Back to Main tapes page. 10 REM:BY BILL MCFADDEN OF BENSON 20 REM:COMPLETED 5-24-77 30 REM:ALL RIGHTS RESERVED 40 REM:MADLIB, A WORD INSERTION GAME 50 DIM X$[35],Y$[72],Z$[35] 60 FILES MAD.B952,DUMMY.B952 70 ENTER 2,A,Y$ 80 IF A>0 THEN 130 90 PRINT "THIS IS THE GAME OF MADLIB. YOU WILL BE ASKED TO TYPE IN" 100 PRINT "WORDS WHICH WILL BE INSERTED INTO ONE OR MORE FUNNY STORIES" 110 PRINT "MAKE SURE YOU HIT THE 'RETURN' KEY AFTER EACH ENTRY" 120 REM:INPUT WORDS 130 PRINT "TYPE IN TEN ADJECTIVES (WORDS THAT DESCRIBE SOMETHING)" 140 FOR X=1 TO 10 150 GOSUB 830 160 NEXT X 170 PRINT "VERY GOOD. NEXT, I NEED TEN NOUNS.(USE OBJECTS ONLY!)" 180 FOR X=1 TO 10 190 GOSUB 830 200 NEXT X 210 PRINT "THANK YOU FOR YOUR PATIENCE. NEXT, THREE ADVERBS." 220 PRINT "(WORDS THAT DESCRIBE HOW SOMETHING IS DONE)." 230 GOSUB 830 240 GOSUB 830 250 GOSUB 830 260 PRINT "A GIRL'S FIRST NAME "; 270 GOSUB 830 280 PRINT "A LIQUID "; 290 GOSUB 830 300 PRINT "SOMEONE'S LAST NAME "; 310 GOSUB 830 320 PRINT "AN INTERJECTION (EXCLAMATORY PHRASE) "; 330 GOSUB 830 340 PRINT "A BOY'S FIRST NAME "; 350 GOSUB 830 360 PRINT "A GEOGRAPHICAL LOCATION(PLACE) "; 370 GOSUB 830 380 PRINT "A NUMBER "; 390 INPUT X 400 CONVERT X TO X$ 410 GOSUB 840 420 REM:CHOOSE MADLIB 430 PRINT "NOW THE FUN BEGINS. CHOOSE THE 'MADLIB' YOU WOULD LIKE." 440 PRINT " (0) DO A CERTAIN NUMBER OF MADLIBS IN SEQUENCE" 450 PRINT " (1) NEWSPAPER AD"'10'13" (2) WESTERN"'10'13" (3) ARMY AD" 460 PRINT " (4) SHARK STORY"'10'13" (5) ALLGOO FACE CREAM AD" 470 PRINT " (6) WATERBED COMPLAINT" 480 REM:READ 'MAD' FILE 490 PRINT "WHICH ONE WOULD YOU LIKE "; 500 INPUT A 510 B=A 520 IF A THEN 550 530 PRINT "START,STOP "; 540 INPUT A,B 550 IF END #1 THEN 490 560 PRINT LIN(-10) 570 FOR D=A TO B 580 C=D*2-1 590 READ #1,C 600 GOTO TYP(-1)-1 OF 730,870,780 610 REM:READ NO. AND PRINT CORRESPONDING STRING 620 READ #1;Z 630 IF Z THEN 660 640 PRINT ". "; 650 GOTO 600 660 READ #2,1 670 ADVANCE #2;Z-1,X 680 READ #2;X$ 690 IF Z#27 OR LEN(X$)=35 THEN 710 700 X$[LEN(X$)+1,LEN(X$)+1]="!" 710 PRINT SPA(1);X$;SPA(1); 720 GOTO 600 730 REM:READ STORY AND PRINT 740 READ #1;Y$ 750 PRINT Y$; 760 GOTO 600 770 REM:NEXT RECORD 780 C=C+1 790 IF C=D*2+1 THEN 870 800 READ #1,C 810 GOTO 600 820 REM:INPUT WORD 830 INPUT X$ 840 PRINT #2;X$ 850 RETURN 860 REM:AGAIN? 870 PRINT LIN(-10) 880 NEXT D 890 PRINT "WOULD YOU LIKE TO USE THE SAME WORDS" 900 PRINT "IN A DIFFERENT STORY "; 910 INPUT Z$ 920 IF Z$[1,1]="Y" THEN 490 930 PRINT "DOES ANYONE ELSE WANT TO PLAY "; 940 INPUT Z$ 950 IF Z$[1,1]="Y" THEN 90 960 END