10 'MODIFIED BY SHANE ONEILL ON 12/31/83
100 '
105 SCREEN 0,0,0:COLOR 2,0,0:WIDTH 80:KEY OFF:CLS
120 PRINT "Congratulations!  You are about to run the silliest program ever
130 PRINT "written for this computer.
140 PRINT:PRINT "Tap any key to continue...";
150 Z$=INKEY$:IF Z$="" THEN 150
1000 '
1005 CLS
1010 PRINT:PRINT "-Menu-"
1020 PRINT:PRINT " 1 - 'Leave It To Beaver!'"
1030 PRINT:PRINT " 2 - 'The Tonight Show'"
1040 PRINT:PRINT " 3 - 'Beverly Hillbillies'"
1050 PRINT:PRINT " 4 - 'The Flintstones'
1060 PRINT:PRINT " 5 - 'The Addams Family'"
1070 PRINT:PRINT " 6 - The Music Used While Contestants Enter 'Final Jeapordy!'
1080 PRINT:PRINT " E - Please, sir, I've had quite enough.
2010 LOCATE 19,1:PRINT "Deposit 25 cents and enter one selection: ";
2020 A$=INKEY$: IF A$="" THEN 2020
2030 IF A$="E" OR A$="e" THEN 32700
2041 IF A$="1" THEN 9000
2042 IF A$="2" THEN 9100
2043 IF A$="3" THEN 9200
2044 IF A$="4" THEN 9300
2045 IF A$="5" THEN 9500
2046 IF A$="6" THEN 9600
2090 LOCATE 21,1:PRINT "That's not on the playlist.  Try again."
2095 GOTO 2010
9000 '
9001 '  "Leave It To Beaver!"
9002 '
9005 CLS:LOCATE 13,15:PRINT " 'Gee Wally,   GET THE HECK OFF MY BED!!!!!!!!'"
9010 PLAY "MS T190"
9015 PLAY "O2 L8 C L4 F L8 AO3CO2AF L4 G L8 B- L4O3D"
9020 PLAY "L8 CO2BO3CF L4 D L8O2B- L4 G.. P16"
9025 PLAY "L8 C L4 F L8 AO3CO2AF L4 G L8 B- L4O3D"
9030 PLAY "L8 CO2BO3CFDO2GE L4 F.. P8"
9035 PLAY "O3 L4 A L8 A L4 G. L8 FGF L4 E- L8 EDE-EFGG+ L4 A.. P8"
9040 PLAY "O1 L4 G L8 G L4 F. L8 EFE L4 D- L8 DDEFGO3GO2GO3CO2B-AG. P16"
9045 PLAY "O2 L8 C L4 F L8 AO3CO2AF L4 G L8 B- L4O3D"
9050 PLAY "L8 CO2BO3CF L4 D L8O2B- L4 G.. P16"
9055 PLAY "O3 L8 C L4 F L8 AO2CO1AF L4 G L8 B- L4O3D"
9060 PLAY "L8 CO2BO3CFDO2GE L4 F. L8O3F"
9099 GOTO 1000
9100 '
9101 '  "Johnny's Theme"
9102 '
9105 CLS:LOCATE 13,25:PRINT " 'Wrong again, 8088-breath!' "
9110 PLAY "O3 MN T170"
9115 PLAY "L4 A L8 G P16 F P16 L4 E P32 D.. P16.. L8 D.F P16 AG... P4
9120 PLAY "L4 A L8 G P16 F P16 L16 E.DE. L4 D.. P16.. L8 D.F P16 AG... P4
9125 PLAY "L16 GAO4C L8O3G P16 F P16 L16 E.DE. L4 D. P16.. L8 D.F P16 AG... P4
9130 PLAY "GF P2 GF P2 L16 G. P16 G- L4 F P4 L8 MS F.E.C.E P32 AGF.. P32
9135 PLAY "MN L8O4DO3A P2O4DO3G P2
9140 PLAY "L4 A L8 G P16 F P16 L4 E P32 D. P16.
9145 PLAY "O1 L8 F P16 L16 C.O2B.O3C. L8 D-.C. P4 L4 O3 EA
9199 GOTO 1000
9200 '
9201 ' "Beverly Hillbillies"
9202 '
9205 CLS:LOCATE 13,15:PRINT " 'Hills, that is... Swimmin' Pools... Movie Stars.'"
9210 PLAY "O2 MS T190"
9215 PLAY "L8 CCFCFGAAFF L4 G P32 G P32 C. P16"
9220 PLAY "L8 C L4 E L8 EF L4 G L8 FEFGFD L4 C. P16"
9225 PLAY "L8 C L4 FFA L8 GFB-AB-O3C L4 D. P16"
9230 PLAY "L8 D L4 C L8 CC L4 C L8 CCO2CD L4 EF..."
9299 GOTO 1000
9300 '
9301 ' "The Flintstones"
9302 '
9305 CLS:LOCATE 13,31:PRINT "'Yabba Dabba Doo!'"
9315 PLAY "L8 MS O3 T170"
9320 PLAY "L8 G.. P64 C P4O4C. P32O3AG.. P64 C P4 G. P64 FEEFG L4 CDE P8O2D.GO3P32."
9325 PLAY "L8 G.. P64 C P4O4C. P32O3AG.. P64 C P4 G. P64 FEEFG L4 CDC... P4"
9330 PLAY "L4 BE P8. L8O4C.O3BBAABA.. P4 L4 AD P8. L8 B.AAGGAG L16O4G.G..G.G.O3
9335 PLAY "L8 G.. P64 C P4O4C. P32O3AG.. P64 C P4 G. P64 FEEFG L4 CD P4 "
9340 PLAY "L8O2EFG L4 CD P4 L8O3EFG L4O4CDC..."
9345 PLAY "L4O3G. L8 EDC P8 L4O5C. L8 CO4BA P4 L4O2G P4 C P4O3G P4 F P4.
9350 PLAY "L4O4EFG L2O5CDC.."
9399 GOTO 1000
9500 '
9501 ' "The Adaams Family"
9502 '
9505 CLS:LOCATE 13,17:PRINT "'Morticia, what are we having for dinner?"
9507 LOCATE 14,17:PRINT"'Fried neighbor'"
9525 GOSUB 9545
9530 GOSUB 9565
9535 GOSUB 9545
9540 GOSUB 9565:GOTO 9599
9545 PLAY "O3 T220 L8 CDEF P4 O0 L4 F P8 F P8"
9550 PLAY "O3 L8 DEF#G P4 O1 L4 G P8 G P8"
9555 PLAY "O3 L8 DEF#G P4 DEF#G P4 CDEF P4 O1 L4 F P8 F P8"
9560 RETURN
9565 PLAY "P4 T187"
9570 PLAY "O3 L8 CF.AF.D O2 B-. O3 G P4"
9575 PLAY "FE.GE.C O2 A. O3 F P4"
9580 PLAY "CF.AF.D O2 B-. O3 G P4"
9585 IF Z=1 THEN PLAY "T100"
9590 PLAY "F L64EF L8 E.CD.EF P4"
9595 RETURN
9599 GOTO 1000
9600 '
9601 ' The "Final Jepoardy Theme"
9602 '
9605 CLS:LOCATE 13,15:PRINT "'Please keep your answer in the form of a question.'"
9625 PLAY "T150 O3 L4"
9630 PLAY "DGDO2GO3DGD P4"
9635 PLAY "DGDG MS B P8 MN L8 AGF#EE- L4"
9640 PLAY "DGDO2GO3DGD P4"
9645 PLAY "MS G P8 L8 E L4 DC MNO2BA L4 G"
9650 PLAY "P4"
9655 PLAY "O3 L4"
9660 PLAY "EAEO2AO3EAE P4"
9665 PLAY "EAEA MSO4C# P8 MN L8O3BAG#F#F L4"
9670 PLAY "EAEO2AO3EAE P4"
9675 PLAY "MS A P8 L8 F# L4 ED MN L2 MS C#O2B L4 MN A"
9680 PLAY "O1 L4 AA"
9699 GOTO 1000
32700 '
32767 CLS:KEY ON:PLAY "O3 L8 DEF#G P4 DEF#G P4 CDEF P4 O1 L4 F P8 F P8