10 &"HERE WE GO AGAIN WITH MADLIB (NO. 2) BY DAVE AHL. THANKS TO" 20 &"ROGER PRICE FOR THE ORIGINAL STORY PLOTS.":& 30 DIM A$(11),B$(2),C$(10),X$(11),Y$(7) 40 &"YOU SUPPLY THE WORDS; I'LL WRITE THE STORIES. THE BIG DIFFERENCE" 50 &"FROM MADLIB-1 -- NO TWO STORIES ARE ALIKE !":& 60 &"FIRST, I NEED 11 ADJECTIVES, E.G., LUMPY, SHORT-SIGHTED, FUZZY," 70 &"PRUNE-FACED, WHIRLING, ETC.":INPUT A$(I) FOR I=1 TO 11 90 &:&"NOW I NEED TWO ADVERBS. THEY END IN 'LY', E.G., MODESTLY," 100 INPUT "STUPIDLY, GREEDILY, ETC."B$(1),B$(2) 120 &:&"NOW 7 NOUNS. THINGS LIKE BEER CAN, APRICOT, BIG TOE, WASH BASIN." 130 INPUT C$(I) FOR I=1 TO 7:&:INPUT "TWO FOODS"C$(9),C$(10) 140 INPUT "A GEOGRAPHICAL LOCATION";D$:INPUT "A CONTAINER";C$(8) 150 INPUT "THE FIRST NAME OF A GIRL";E$:INPUT "THE FIRST NAME OF A MAN";F$ 160 INPUT "AND FINALLY, SOMEONE'S LAST NAME";G$:G$=" "+G$ 170 X$(I)="" FOR I=1 TO 11:Y$(I)="" FOR I=1 TO 7 180 FOR I=1 TO 11 185 R=INT(RND*11+1) 190 IF X$(R)<>"" THEN 185 ELSE X$(R)=A$(I):NEXT I 200 FOR I=1 TO 7 210 R=INT(RND*7+1) 220 IF Y$(R)<>"" THEN 210 ELSE Y$(R)=C$(I):NEXT I 230 &:&"THANK YOU ! NOW, WHAT WOULD YOU LIKE:" 240 &" 1. TIPS ON SERVING WINE":&" 2. A BOOK REVIEW" 250 &" 3. BEAUTY ADVICE":&" 4. A FABLE" 260 &" 5. A WEDDING DESCRIPTION" 270 INPUT "PLEASE ANSWER '1', '2', ETC. OR 'ALL'";M$ 280 IF M$="ALL" OR M$="1" THEN 350 ELSE IF M$="2" THEN 500 290 IF M$="3" THEN 750 ELSE IF M$="4" THEN 600 300 IF M$="5" THEN 950 ELSE &"I DON'T UNDERSTAND '"M$"'.":GOTO 270 350 & FOR I=1 TO 5:& TAB(20);"TIPS ON SERVING WINE":& 360 &"A GOOD WINE, SERVED "B$(2)", CAN MAKE ANY MEAL A TRULY "X$(1) 370 &"OCCASION. THE RED WINES HAVE A "X$(3)" FLAVOR THAT BLENDS WITH" 380 &Y$(1)"S OR SMOKED "C$(9)". WHITE WINES RANGE IN FLAVOR FROM" 390 &X$(4)" TO "X$(6)". THE BEST WINES ARE MADE BY PEASANTS IN" 400 &D$" FROM THE JUICE OF RIPE "Y$(3)"S BY PUTTING THEM IN VATS" 410 &"AND SQUASHING THEM WITH THEIR "X$(8)" FEET. THIS IS WHAT GIVES" 420 &"WINE THAT "X$(10)" AROMA.":&:&"HERE ARE A FEW RULES:" 430 &" 1. ALWAYS SERVE WHITE WINE IN A "X$(2)" GLASS AT" 440 &" "Y$(5)" TEMPERATURE." 450 &" 2. NEVER SERVE BURGUNDY WITH FRIED "Y$(2)"S." 460 &" 3. WINES SHOULD ALWAYS BE DRUNK "B$(1)" OR YOU'RE LIABLE" 470 &" TO END UP WITH A "X$(7)" STOMACH." 490 GOSUB 1490 500 & FOR I=1 TO 5:& TAB(22);"A BOOK REVIEW":& 510 &F$;G$" HAS JUST WRITTEN AN AUTOBIOGRAPHY CALLED 'THE" 520 &Y$(7)" IN THE "X$(5)" "Y$(4)".' THE MAIN CHARACTER IN" 530 &"THIS "X$(9)" STORY IS A "X$(11)" GIRL NAMED "E$" WHO" 540 &"CAN'T DECIDE BETWEEN A CAREER IN "Y$(6)"S OR MARRIAGE TO A" 550 &X$(2)" BOY WHO HAS PROMISED HER A "X$(7)" "C$(10)". THE" 560 &"AUTHOR HAS MANY CONFLICTS TO RESOLVE, BUT FINDS THAT A "X$(10) 570 &"MARRIAGE IS THE ANSWER. THIS BOOK IS WRITTEN "B$(1)" AND" 580 &"FILLED WITH "X$(4)" LANGUAGE. IT PROVES THE OLD ADAGE:" 590 &" 'A WOMAN'S PLACE IS IN THE "Y$(5)".'" 595 GOSUB 1490 600 & FOR I=1 TO 5:& TAB (26)"A FABLE":& 610 &"ONCE UPON A TIME THERE WAS A VERY CURIOUS GIRL, "E$", WHO WAS" 620 &"ALWAYS POKING HER NOSE INTO EVERYBODY'S "C$(8)"S. SHE KEPT" 630 &"COMPANY WITH A "X$(6)" MAN NAMED "F$", WHO WAS ALWAYS BUYING" 640 &"HER "X$(9)" PRESENTS." 650 &:&"ONCE HE GAVE HER A DIAMOND "Y$(2)" TO WEAR ON HER "Y$(4) 660 &"AND HE BOUGHT HER A "X$(1)" "C$(9)" TO WEAR IN HER "Y$(7)".":& 670 &"THEN ONE DAY HE BOUGHT HER A "X$(11)" HORSE. AS SOON AS SHE" 680 &"SAW THE "X$(3)" ANIMAL SHE BEGAN TO EXAMINE IT "B$(1)"." 690 &"FIRST SHE LOOKED AT THE HORSE'S "Y$(3)", AND THEN AT ITS "C$(10)"." 700 &"THEN SHE OPENED ITS MOUTH SO SHE COULD LOOK AT ITS "Y$(1)"S." 710 &"AT THIS THE HORSE BECAME "X$(7)" AND BIT OFF HER "Y$(6)"." 720 &:&"MORAL: NEVER LOOK A GIFT HORSE IN THE "Y$(5)"!" 740 GOSUB 1490 750 & FOR I=1 TO 5:& TAB(22)"BEAUTY ADVICE":& 760 &"IF YOUR SKIN IS "X$(1)" OR "X$(3)", YOU CAN CURE THIS" 770 &"CONDITION WITH THE FOLLOWING CARE. EVERY MORNING BEFORE" 780 &"WASHING YOUR "Y$(1)", MASSAGE IT GENTLY WITH A "Y$(3) 790 &"THAT HAS BEEN SOAKED OVERNIGHT IN A "C$(8)" FULL OF WARM" 800 &Y$(7)"S. THEN MIX TOGETHER SOME "C$(9)" AND SOME "C$(10) 810 &"UNTIL THE MIXTURE BECOMES "X$(5)". PAT THIS ONTO YOUR" 820 &X$(9)" COMPLEXION FOR FIVE MINUTES. THEN REMOVE, USING A" 830 &Y$(6)", AND WASH YOUR FACE WITH "X$(6)" WATER. DO NOT" 840 &"OMIT THIS "X$(8)" STEP OR YOUR SKIN WILL BECOME "X$(11)"." 850 &:&"DO THIS "B$(2)" EVERY DAY AND YOU SOON WILL BE AS "X$(7) 860 &"AS "E$;G$"." 940 GOSUB 1490 950 & FOR I=1 TO 5:& TAB(17);"DESCRIPTION OF WEDDING":& 960 &"THE "X$(11)" WEDDING YESTERDAY AFTERNOON BETWEEN "X$(10) 970 &E$" AND HER GROOM "F$;G$" WAS CARRIED OFF "B$(2)". THE BRIDE" 980 &"WORE A LONG "X$(2)" "Y$(2)" WITH "X$(4)" EDGING AND A "X$(5) 990 &"NECKLINE. AT THE END OF THE "X$(8)" CEREMONY, THERE WASN'T A DRY" 1000 &Y$(4)" IN THE PLACE.":& 1010 &"LATER AT THE RECEPTION THE BRIDE'S MOTHER SAID, 'THE GROOM IS A" 1020 &X$(10)" MAN, JUST THE TYPE OF "C$(10)" WE WANTED FOR OUR" 1030 &X$(6)" DAUGHTER.' THE "X$(3)" COUPLE LEFT, MIDST A FLURRY OF" 1040 &X$(1)" CONGRATULATIONS, TO SPEND A "X$(7)" HONEYMOON VISITING" 1050 &Y$(6)"S IN "D$".":&:&"THEY ARE SURE TO LIVE "B$(1)" FOR MANY YEARS." 1485 GOTO 1500 1490 IF M$<>"ALL" THEN 1500 ELSE RETURN 1500 & FOR I=1 TO 5 1510 INPUT "ANOTHER STORY (Y OR N)";N$:IF N$="N" THEN 2000 1520 INPUT "SAME WORDS (Y OR N)";N$:&:IF N$="N" THEN 60 ELSE GOTO 170 2000 &:&"HOPE YOU HAD FUN ! BY THE WAY, IF YOU HAVEN'T RUN 'MADLIB', DO SO!" 2010 &"WATCH FOR 'MADLB3' TOO ! SO LONG FOR NOW.":&:END