Beethoven

Related Content

• Endless Love (computer_media)

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