Atari 8-bit Source code

9 ? ""
10 ? " ********  ********"
20 DIM A$(25),​A0$(25),​A1$(25),​A2$(25),​A3$(25),​A4$(25),​A5$(25),​A6$(25),​A7$(25),​A8$(25),​A9$(25)
30 DIM B1$(25),​B2$(25),​B3$(25),​B4$(25),​B5$(25)
40 DIM C0$(25),​C1$(25),​C2$(25),​C3$(25),​C4$(25),​C5$(25),​C6$(25),​C7$(25),​C8$(25),​C9$(25)
50 DIM D$(25),​E$(25),​F$(25),​G$(25),​H$(25),​I$(25),​J$(25)
60 DIM Y$(10)
70 ?:​?
80 ? " O.K. WE'RE GOING TO WRITE SOME MAD-LIB STORIES TOGETHER. YOU SUPPLY THE WORDS,​ I SUPPLY THE PLOT."
90 ?
100 ? " FIRST I NEED 11 ADJECTIVES. ADJECTIVES MODIFY A NOUN,​ E.G.,​ RED,​ DIRTY,​ LARGE,​ ETC."
120 INPUT A1$:​INPUT A2$:​INPUT A3$:​INPUT A4$:​INPUT A5$:​INPUT A6$:​INPUT A7$:​INPUT A8$:​INPUT A9$:​INPUT A0$:​INPUT A$
140 ? ""
150 ? " NOW I NEED 5 ADVERBS. THEY MODIFY VERBS AND OFTEN END IN 'LY' (SLOWLY,​ GREEDLY,​ ETC.)"
170 INPUT B1$:​INPUT B2$:​INPUT B3$:​INPUT B4$:​INPUT B5$
180 ? ""
190 ? " O.K. NOW 10 NOUNS,​ E.G.,​ TELETYPE,​ INSECT,​ COAT,​ ETC."
200 INPUT C1$:​INPUT C2$:​INPUT C3$:​INPUT C4$:​INPUT C5$:​INPUT C6$:​INPUT C7$:​INPUT C8$:​INPUT C9$:​INPUT C0$
220 ? ""
230 ? " HOW ABOUT TWO FIRST NAMES OF BOYS":​INPUT D$:​INPUT E$
240 ?:​? " THE FIRST NAME OF A GIRL";:​INPUT F$
250 ?:​? " AND SOMEONE'S LAST NAME";:​INPUT G$
260 ?:​? " A GEOGRAPHICAL LOCATION";:​INPUT H$
270 ?:​? " A LIQUID";:​INPUT I$
280 ?:​? " AND FINALLY,​"
290 ? " AN EXCLAMATORY WORD";:​INPUT J$:​? ""
300 ? " VERY GOOD! WOULD YOU LIKE A NEWSPAPER AD (1),​ A WESTERN (2),​"
310 ? "A STORY ABOUT THE ARMY (3),​ OR A WATER BED (4). WHICH ONE,​ 1,​2,​3 OR 4";:​INPUT N
330 ?
340 IF N>0 AND N<5 THEN 360
350 ? " COME ON NOW -- 1,​ 2,​ 3 OR 4";:​INPUT N:​GOTO 340
360 FOR I=1 TO 6
370 ? ""
380 NEXT I
390 ON N GOTO 400,​530,​680,​840
400 PRINT " DAILY CLASSIFIED":​?
405 PRINT "FOR SALE:​ 1957 SEDAN. THIS"
410 PRINT A1$;" CAR IS IN A ";A2$
415 PRINT "CONDITION. IT WAS FORMERLY"
420 PRINT "OWNED BY A ";A3$;" SCHOOL"
425 PRINT "TEACHER WHO ALWAYS DROVE IT"
430 PRINT B1$;". THERE IS A ";A4$;" ";C1$
435 PRINT "IN THE BACK SEAT. IT HAS A"
440 PRINT "CHROME ";C2$;" ON THE HOOD,​ A"
445 PRINT A5$;" PAINT JOB,​ ";A6$;" TIRES"
450 PRINT "AND THE BACK OPENS INTO A"
455 PRINT A7$;" ";C3$;". WILL CONSIDER"
460 PRINT "TAKING A SLIGHTLY USED ";C4$
465 PRINT "IN TRADE."
470 CLOSE #1:​GOSUB 2000
475 ? "LOST:​ IN THE VICINITY OF ";H$
480 ? ",​ A ";A8$;" FRENCH POODLE"
485 ? "WITH ";A9$;" HAIR AND A ";A0$
490 ? "TAIL. IT ANSWERS TO THE NAME"
495 ? "OF ";F$;". WHEN LAST SEEN IT"
500 ? "WAS CARRING A ";C5$;" IN ITS"
505 ? "MOUTH. A ";A$;" REWARD IS"
510 ? "BEING OFFERED."
515 GOTO 1000
530 ? " AN ADULT WESTERN":​?
535 ? " TEX ";G$;",​ THE MARSHALL OF"
540 ? D$;" CITY RODE INTO TOWN. HE"
545 ? "SAT ";B2$;" IN THE SADDLE,​"
550 ? "READY FOR TROUBLE. HE KNEW"
555 ? "THAT HIS ";A1$;" ENEMY,​ ";E$
560 ? "THE KID WAS IN TOWN. THE KID"
565 ? "WAS IN LOVE WITH TEX'S HORSE,​"
570 ? F$;". SUDDENLY THE KID CAME"
575 ? "OUT OF THE ";A7$;" NUGGET"
580 ? "SALOON. 'DRAW TEX' HE YELLED"
585 ? B3$;". TEX REACHED FOR HIS"
590 ? C4$;",​ BUT BEFORE HE COULD GET"
595 ? "IT OUT OF HIS ";C5$;" THE KID"
600 ? "FIRED,​ HITTING TEX IN THE"
605 ? C6$;" AND THE ";C7$;"."
610 GOSUB 2000
615 ? " AS TEX FELL HE PULLED OUT"
620 ? "HIS OWN ";C8$;" AND SHOT THE"
625 ? "KID ";INT(50*RND(0)+3)
630 ? "TIMES IN THE ";C9$;". THE KID"
635 ? "DROPPED IN A POOL OF ";I$;"."
640 ? " '";J$;"!' TEX SAID. 'I HATED"
645 ? "TO DO IT BUT HE WAS ON THE"
650 ? "WRONG SIDE OF THE ";C0$;"."
655 GOTO 1000
680 ? " IF YOU PLAN ON JOINING THE"
685 ? "ARMY,​ THERE ARE SOME ";A$
690 ? "HINTS THAT WILL HELP YOU"
695 ? "BECOME A ";A0$;" SOLDIER."
700 ? " THE ARMY IS MADE UP OF"
705 ? "OFFICERS,​ NON-COMS AND"
710 ? C1$;"S. YOU CAN RECOGNIZE AN"
715 ? "OFFICER BY THE ";C2$;"S ON"
720 ? "HIS SHOULDERS AND THE FUNNY"
725 ? "LOOKING ";C3$;"S ON HIS CAP."
730 ? "WHEN YOU ADDRESS AN OFFICER,​"
735 ? "ALWAYS SAY '";C4$;"' AND SAY"
740 ? "IT ";B5$;". IF YOU GET A ";A9$
745 ? "HAIRCUT,​ KEEP YOUR ";C5$;"S"
750 ? "SHINED AND SEE THAT YOUR ";C6$
755 ? "IS CLEAN AT ALL TIMES,​ YOU"
760 ? "WILL BE A CREDIT TO THE"
765 ? "SLOGAN:​ THE ARMY BUILDS"
770 ? "BETTER ";C7$;"S!!"
775 GOSUB 2000
780 ? " YOU WILL BECOME FAMILIAR"
785 ? "WITH WEAPONS LIKE THE .50"
790 ? "CALIBRE ";C8$;" AND THE"
795 ? "AUTOMATIC ";C9$;". AT ROLL"
800 ? "CALL WHEN THE ";A8$
805 ? "SERGEANT CALLS YOUR NAME,​"
810 ? "SHOUT '";J$;"' LOUD AND"
815 ? "CLEAR."
820 ? " FOLLOW THIS ADVICE AND YOU"
825 ? "MAY WIN THE ";A7$;" CONDUCT"
830 ? C0$;"!!!!"
835 GOTO 1000
840 ? "BUST-A-BUTTON & DUCK DEPT STORE"
845 ? "DIX HILLS,​ NEW YORK":​?
850 ? "DEAR SIRS:​"
855 ? " LAST WEEK I PURCHASED A ";A2$
860 ? "CONTOUR WATER BED IN YOUR"
865 ? "STORE. I GOT IT ESPECIALLY"
870 ? "FOR MY ";A4$;" HUSBAND WHO"
875 ? "SLEEPS VERY ";B1$;" AND SAYS"
880 ? "THAT ";A6$;" WATER BEDS THAT"
885 ? "HAVE ";C1$;"S IN THEM MAKE"
890 ? "HIS ";C3$;" ACHE. WHEN THE"
895 ? "BED ARRIVED MY HUSBAND TESTED"
900 ? "IT ";B2$;" AND SAID THE ";A8$
905 ? C5$;" WAS BENT AND KEPT"
910 ? "PRESSING INTO HIS ";C6$;"."
915 ? "HE SAYS THIS COULD LEAD TO A"
920 ? A0$;" CONDITION OF THE"
925 ? C8$;"."
930 GOSUB 2000
935 ? " I WOULD LIKE TO EXCHANGE"
940 ? "THIS ";A9$;" BED FOR ONE THAT"
945 ? "WILL ALLOW MY HUSBAND TO"
950 ? "SLEEP ";B4$;" AND WON'T MAKE"
955 ? "HIS ";C0$;" SORE."
960 ?:​?
965 ? " YOURS ";B5$;",​"
970 ? " ";F$;" ";G$
1000 FOR I=1 TO 6
1010 NEXT I
1020 ?:​? "";:​INPUT Y$
1030 ?
1040 IF Y$="Y" THEN 1080
1050 IF Y$="N" THEN 1150
1060 ? "";:​INPUT Y$
1070 ?:​GOTO 1040
1080 ?:​? "";:​INPUT Y$
1090 ?
1100 IF Y$="Y" THEN ? "":​GOTO 300
1110 IF Y$="N" THEN ? "":​GOTO 100
1120 ? "";:​INPUT Y$
1130 ?:​GOTO 1100
1140 ?
1150 ? "":​? ""
1160 END
2000 OPEN #1,​4,​0,​"K:​":​POKE 752,​3:​?:​? "":​GET #1,​K:​? "":​CLOSE #1:​POKE 752,​0:​RETURN	

• Download link 1
• Download link 2