1  REM ***MOD LIBS ALAN ***
998  PRINT "USE UPPER CASE ON TERMINALS WITH A"
999  PRINT "UPPER AND LOWER CASE MODE"
1000  REM ***::: BY MIKE BRAY :::***
1010  REM ***::: JUNE 19,1973 :::***
1020  REM ***::: MADE FOR THE PEOPLE'S COMPUTER COMPANY :::***
1030  PRINT LIN(-2)
1040  DIM A$[30],B$[30],C$[30],D$[30],E$[30],F$[30],G$[30],H$[30]
1050  DIM I$[30],J$[30],K$[30],L$[30],M$[30],N$[30],O$[30],P$[30]
1060  DIM Q$[72]
1070  PRINT "DO YOU WANT INSTRUCTIONS";
1080  INPUT Q$
1090  IF Q$="YES" THEN 1130
1100  IF Q$="NO" THEN 1240
1110  PRINT "'YES OR 'NO'!"'7"!"
1120  GOTO 1070
1130  PRINT "THIS IS A MAD LIBS PROGRAM."
1140  PRINT 
1150  PRINT "NOUN       =  A PERSON, PLACE OR THING"
1160  PRINT "ADJECTIVE  =  A WORD YOU CAN PUT 'VERY' IN FRONT OF"
1170  PRINT "CELEBRITY  =  A FAMOUS PERSON"
1180  PRINT "LIQUID     =  NOT A SOLID OR A GAS"
1190  PRINT "NUMBER     "'16'16'16'16'16'16'16'16'16'16'16'16'16'16'16'16'16'16'16'16"=  A NUMBER"
1200  PRINT "ANIMAL     =  AN ANIMAL  WHAT ELSE??"
1210  PRINT "VERB       =  SOMTHING YOU CAN DO"
1220  PRINT "EXCLAMATION   =  AN OUTCRY"
1230  PRINT "GEOGRAPHICAL LOCATION  =  A PLACE"
1240  LET N=INT(RND(0)*100)+1
1260  IF N<33 THEN 2170
1270  IF N<66 THEN 2380
1850  PRINT "I NEED A GEOGRAPHICAL LOCATION";
1860  INPUT A$
1870  PRINT "I NEED AN ADJECTIVE";
1880  INPUT B$
1890  PRINT "I NEED A PLURAL NOUN";
1900  INPUT C$
1910  PRINT "I NEED AN ADJECTIVE";
1920  INPUT D$
1930  PRINT "I NEED A PLURAL NOUN";
1940  INPUT E$
1950  PRINT "I NEED A NUMBER";
1960  INPUT A
1970  PRINT "I NEED ANOTHER NUMBER";
1980  INPUT B
1990  PRINT "I NEED A NOUN";
2000  INPUT F$
2010  PRINT "NOW I WILL PRINT OUT THE STORY."
2020  PRINT LIN(-2)
2030  PRINT "                              WEATHER REPORT"
2040  PRINT 
2050  PRINT "HERE IS TOMORROW'S WEATHER REPORT FOR "A$" AND"
2060  PRINT "VICINITY. EARLY TOMORROW A "B$" FRONT WILL COLLIDE"
2070  PRINT "WITH A MASS OF HOT "C$" MOVING FROM THE NORTH."
2080  PRINT "THIS MEANS WE CAN EXPECT "D$" WINDS AND OCCASIONAL"
2090  PRINT E$" BY LATE AFTERNOON. WIND SPEED WILL BE"
2100  PRINT A" MILES PER HOUR AND THE TEMPERATURE SHOULD"
2110  PRINT "BE AROUND "B" DEGREES. SO, IF YOU'RE GOING OUT,"
2120  PRINT "YOU'D BETTER WEAR YOUR "F$"."
2130  PRINT 
2140  PRINT " T"'7"H"'7"E"'7" E"'7"N"'7"D"'7
2150  PRINT LIN(-2)
2170  PRINT "I NEED AN ADJECTIVE";
2180  INPUT A$
2190  PRINT "I NEED A NOUN";
2200  INPUT B$
2210  PRINT "I NEED A PLURAL NOUN";
2220  INPUT C$
2230  PRINT "I NEED A NOUN";
2240  INPUT D$
2250  PRINT "NOW I WILL PRINT OUT THE STORY."
2260  PRINT LIN(-2)
2270  PRINT "               A FATHER GOOSE RHYME"
2280  PRINT 
2290  PRINT "THREE "A$" MICE. SEE HOW THEY RUN!"'7
2300  PRINT "THEY ALL RAN AFTER THE FARMER'S "B$"."
2310  PRINT "WHO CUT OFF THEIR "C$" WITH A CARVING "D$"."
2320  PRINT "DID YOU EVER SEE SUCH A SIGHT IN YOUR LIFE"
2330  PRINT "AS THREE "A$" MICE?"'7
2340  PRINT 
2350  PRINT "  T"'7"H"'7"E"'7" E"'7"N"'7"D"'7
2360  PRINT LIN(-2)
2380  PRINT "I NEED AN ANIMAL  (PLURAL)";
2390  INPUT A$
2400  PRINT "I NEED A PLURAL NOUN";
2410  INPUT B$
2420  PRINT "I NEED A NOUN";
2430  INPUT C$
2440  PRINT "I NEED A MALE CELEBRITY";
2450  INPUT D$
2460  PRINT "I NEED A NOUN ";
2470  INPUT E$
2480  PRINT "I NEED ANOTHER NOUN";
2490  INPUT F$
2500  PRINT "I NEED A NUMBER";
2510  INPUT A
2520  PRINT "I NEED A CELEBRITY";
2530  INPUT G$
2540  PRINT "I NEED AN ADJECTIVE";
2550  INPUT H$
2560  PRINT "I NEED A CELEBRITY";
2570  INPUT I$
2580  PRINT "I NEED AN ADJECTIVE";
2590  INPUT J$
2600  PRINT "I NEED A NOUN";
2610  INPUT K$
2620  PRINT "I NEED ANOTHER NOUN";
2630  INPUT L$
2640  PRINT "I NEED A VERB ENDING IN  'ING' ";
2650  INPUT M$
2660  PRINT "NOW I WILL PRINT OUT THE STORY."
2670  PRINT LIN(-2)
2680  PRINT "                      FOOT BALL BROADCAST."
2690  PRINT 
2700  PRINT "GOOD AFTERNOON, LADIES AND GENTLEMEN. THIS IS YOUR FAVORITE"
2710  PRINT "SPORTSCASTER BRINGING YOU THE BIG FOOT BALL GAME BETWEEN THE COLUM-"
2720  PRINT "BIA UNIVERSITY "A$" AND THE WEST POINT "B$"."
2730  PRINT "THE CENTER HAS JUST SNAPPED THE "C$" BACK TO THE"
2740  PRINT "COLUMBIA STAR HALF-BACK, "D$", WHO IS RUNNING"
2750  PRINT "AROUND HIS OWN LEFT "E$".  THERE HE'S TACKLED HARD"
2760  PRINT "AROUND THE "F$".  NOW IT'S WEST POINT'S BALL AND"
2770  PRINT A"TO GO.  THEY'RE COMING OUT OF THE HUDDLE.  THE BALL"
2780  PRINT "IS SNAPPED TO "G$", WHO FADES BACK AND THROWS"
2790  PRINT "A LONG "H$" PASS, WHICH IS CAUGHT BY "I$","
2800  PRINT "WHO IS WEST POINT'S "J$" QUARTERBACK.  HE'S IN THE CLEAR"
2810  PRINT "AND HE RACES OVER THE "K$" FOR A TOUCHDOWN!"'7'7'7"   NO, NO"
2820  PRINT '7"WAIT.. THE REFFEREE IS CALLING THE PLAY BACK TO THE "L$
2830  PRINT "LINE.  HE'S GOING TO PENALIZE WEST POINT FOR "M$"."
2840  PRINT 
2850  PRINT " T"'7"H"'7"E"'7" E"'7"N"'7"D"'7"!"
2860  PRINT LIN(-2)
2880  END 
