0 REM DIXIE.BAS, "Dixie" in three-part harmony, Markle, 1/15/84
1 REM Copyright (c) 1984 by CompuQuill
5 GOTO 10
7 SAVE "DIXIE.BAS":END
10 BEEP OFF:SOUND ON' Internal speaker off, external speaker/TV sound on
20 CLS:KEY OFF:COLOR 4,,7:PRINT:PRINT TAB(17);"DIXIE":PRINT:COLOR 1
29 ' Strings to initialize the three voices of the sound chip: Background, Legato, Octave, Length, Tempo
30 PLAY "MB ML 02 L4 T90 V12","MB ML 01 L4 T90 V8","MB ML 01 L4 T90 V8"
99 ' LYRICS
100 PRINT" I-- WISH I WAS- IN THE"
110 PRINT" LAND OF COT-TON, OLD TIMES THERE ARE"
120 PRINT" NOT FOR-GOT-TEN, LOOK A-WAY, LOOK A-"
130 PRINT" WAY, LOOK A-WAY, DIX-IE LAND!"
140 PRINT:PRINT" IN-- DIX-IE LAND- WHERE-"
150 PRINT" I WAS BORN IN,EAR-LY ON ONE"
160 PRINT" FROST-Y MORN-IN', LOOK A-WAY, LOOK A-"
170 PRINT" WAY, LOOK A-WAY, DIX-IE LAND!"
180 PRINT:PRINT" THEN I WISH I WAS IN DI X-IE, HOO-"
190 PRINT" RAY, H00-RAY; IN DIX-IE LAND I'LL"
200 PRINT" TAKE MY STAND, TO LIVE AND DIE IN"
210 PRINT" DIX-IE, A-WAY, A-WAY, A-WAY"
220 PRINT" DOWN SOUTH IN DIX-IE,"
230 PRINT" A-WAY, A-WAY, A-WAY,"
240 PRINT" DOWN SOUTH-- IN DIX-IE."
299 ' VERSE
300 PLAY "G16E16C8C8C16U16E16F16","P16P16P8G8P8G8","P16P16<C8>E8<G8>E8"
310 PLAY "G8G8G8E8A8A8A8.G16","P8G8P8C8P8C8P8C8","<C8>E8E8G8F8A8<C8>A8"
320 PLAY "A8.G16A16816>C16D16E.C16<G16","P8C8A8C8P8E8P8E8","F8A8P8P8G8C8G8C8
330 PLAY ">C.<G16E16G.D16E16CP4","P8C8P8C8F8G8<G8>F8E8G8<G8'","E8G8E8G8F8G8<G8>F8 E8G8<G8"
340 PLAY "G16E16C8C8C16D16E16F16",">G8P8G8P8G8","P8<C8>E8<G8>E8"
350 PLAY "G8G8G8E8A8A8A8.G16","P8G8P8C8P8C8P8C8","<C8>E8E8G8F8A8<C8>A8"
360 PLAY "A8.G16A16B16>C16D16E.C16<G16","P8C8A8C8P8E8P8E8","F8A8P8P8G8C8G8C8"
370 PLAY ">C.<G16E16G.D16E16CP4","P8C8P8C8F8G8<G8>F8E8G8<G8","E8G8E8G8F8G8<G8>F8E8G8<G8"
399 ' REFRAIN
400 PLAY "G16G16>C8EBD8.C16<A8>C<A8","E8C8G8E8C8F8C8<C8>C8","E8C8E8E8G8F8A8<C8>A8"
410 PLAY ">D.<A8>D.<G8>C8E8D8.C16","F#8C8D8C8B8F8E8D8<C8>G8E8C8","F#8A8D8A8G8F8E8D8<C8>E8E8G8"
420 PLAY "<A8B8>C8.<A16G8E8>C8,<E16E8DE8","F8C8A8C8G8C8E8C8G8<G8A8B8","F8A8A8C8G8C8E8G8G8<G8A8B8"
430 PLAY "C.E8D.A8","C8>G8<G8>G8D8G8<G8>G8","C8>E8<G8>E8D8F8<D8>F8"
440 PLAY "G8E8>C8.E16D8C<E8","<C8>G8<G8>G8F8E8G8<G8","<C8>E8<G8>E8F8E8G8<G8"
450 PLAY "C.E8D.A8",'"C8>G8<G8>G8D8G8<G8>G8","C8>E8<G8>E8D8F8<G8>F8"
460 PLAY "G8E8>EC16D8C",'"E8G8<C>P16F8E8","E8G8<GP16G8>C8"
500 END
