Plays his Ode to Joy.
Appears on
One of a series of library tapes. Programs on these tapes were renamed to a number series. This tape contained programs 20083 to 20120. These tapes were compiled by Tony Willing.
Related Content
- Endless Love (computer_media)
Gallery
Source Code
5 BORDER 1: INK 1: PAPER 6: CLS : PRINT AT 10,5;"""O D E T O J O Y""";AT 16,9;"WITH CHORDS": PAUSE 200: CLS : PRINT : REM QTR=.4 10 GO SUB 1000 50 POKE 23692,255 75 FOR B=1 TO 96: READ L$,C,D,P 100 PRINT TAB INT (P*1.5);L$: GO SUB C: BEEP D,P: NEXT B 125 DATA "SING",1030,.4,9 150 DATA "TO",1030,.4,9 155 DATA "JOY",1015,.4,10 160 DATA "AND",1030,.4,12 165 DATA "GLAD-",1015,.4,12,"NESS",1015,.4,10,"NOW",1030,.4,9 170 DATA "AND",1015,.4,7,"EV ",1030,.4,5,"ER",1030,.4,5 175 DATA "MORE",1015,.4,7,"TO",1050,.4,9,"FREE-",1030,.6,9,"DOM'S",1015,.2,7,"SONG.",1015,1,7 180 DATA "O-",1030,.4,9,"PEN",1030,.4,9,"UP",1030,.4,10,"OUR",1030,.4,12 185 DATA "HEART'S",1105,.4,12,"DE-",1105,.35,10,"SIRE",1105,.35,9,"WITH",1105,.35,7 190 DATA "LOVE",1030,.35,5,"THAT'S",1030,.35,5,"EV-",1015,.35,7,"ER-",1030,.35,9 195 DATA "LAST",1015,.52,7,"-",1030,.1,5,"ING.",1030,1,5 200 DATA "LET",1015,.35,7,"THIS",1015,.35,7,"MA-",1030,.35,9,"GIC",1030,.35,5 205 DATA "BRING",1015,.35,7,"TO",1015,.15,9,"-",1015,.1,10,"GETH-",1030,.35,9,"ER",1030,.35,5 210 DATA "ALL",1015,.35,7,"WHO",1015,.15,9,"-",1015,.1,10,"DWELL",1005,.35,9,"UP-",1005,.35,7,"ON",1050,.35,5 215 DATA "THE",1035,.35,7,"EARTH.",1015,.5,0,"ALL",1030,.7,9,"MAN-",1030,.35,9,"KIND",1030,.35,10,"SHALL",1030,.35,12 220 DATA "BE",1105,.35,12,"TO-",1105,.35,10,"GETH-",1105,.35,9,"ER",1105,.15,10,"AND",1105,.15,7 225 DATA "PEACE",1030,.35,5,"SHALL",1030,.35,5,"REIGN",1015,.35,7,"UP-",1030,.35,9 230 DATA "ON",1015,.5,7,"THE",1015,.15,5,"EARTH.",1030,.7,5 235 DATA "BLUE",1015,.35,7,"THE",1900,.35,7,"SKY,",1030,.35,9,"AND",1900,.35,5 240 DATA "GREEN",1015,.35,7,"THE",1900,.15,9,"-",1900,.1,10,"FOR-",1030,.35,9,"EST;",1900,.35,5 245 DATA "ALL",1015,.35,7,"OUR",1900,.15,9,"-",1900,.1,10,"CHIL-",1005,.35,9,"DREN",1900,.35,7 250 DATA "CAN",1050,.35,5,"RUN",1035,.35,7,"FREE",1015,.35,0,"AND",1030,1,9 255 DATA "THROUGH",1030,.35,9,"MU-",1105,.35,10,"SIC",1030,.35,12 260 DATA "BRING",1105,.35,12,"TO-",1900,.35,10,"GETH-",1900,.35,9,"ER",1065,.15,10,"-",1900,.1,7 265 DATA "ALL",1030,.35,5,"WHO",1900,.35,5,"SING",1015,.35,7,"THE",1030,.35,9 270 DATA "ODE",1015,.5,7,"TO",1030,.25,5,"JOY!",1900,1.5,5 450 GO SUB 1999: PAUSE 90: BRIGHT 0: PAPER 1: CLS : STOP 1000 SOUND 7,56;8,16;9,16;10,14;11,10;12,10;13,13: RETURN : REM ON 1005 SOUND 0,248;1,0;2,197;3,0;4,165;5,0: RETURN : REM A MAJ 1015 SOUND 0,209;1,0;2,165;3,0;4,139;5,0: RETURN : REM C MAJ 1030 SOUND 0,156;1,0;2,124;3,0;4,104;5,0: RETURN : REM F MAJ 1035 SOUND 0,139;1,0;2,110;3,0;4,93;5,0: RETURN : REM G MAJ 1050 SOUND 0,186;1,0;2,156;3,0;4,124;5,0: RETURN : REM D MINOR D FNATURAL A 1065 SOUND 0,23;1,1;2,234;3,0;4,186;5,0: RETURN : REM G MIN 1105 SOUND 0,234;1,0;2,186;3,0;4,156;5,0: RETURN : REM B FLAT MAJ 1900 RETURN : REM SAME CHORD 1999 SOUND 7,63;8,0;9,0;10,0: RETURN : REM OFF 9997 STOP 9998 CLEAR : SAVE "BEETHOVEN" LINE 1