Plays the song.
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
- Beethoven (computer_media)
Source Code
1 SOUND 7,63 10 PAPER 3: BRIGHT 1: BORDER 7: INK 7: CLS : PRINT AT 10,5;"E N D L E S S L O V E" 15 PAUSE 150: CLS 17 GO SUB 1000: GO SUB 1800 20 POKE 23692,255 25 RESTORE 40: FOR B=1 TO 214: READ L$,C,D,P 30 PRINT TAB P*1.2;L$: GO SUB C: BEEP D,P: IF P=30 THEN CLS 35 NEXT B 40 DATA "MY",1018,1,4,"LOVE",1018,1,4 45 DATA " ",1995,0,0 50 DATA "THERE'S",1018,.5,4," ON-",1900,.25,5,"LY",1900,.25,7,"YOU",1030,.5,7,"IN",1900,.25,5,"MY",1900,.25,4,"LIFE",1900,.75,5 55 DATA " ",1990,0,0 60 DATA "THE",1035,.25,2,"ON-",1900,.5,2,"LY",1900,.5,2,"THING",1018,.5,2,"THAT'S",1900,.5,4,"RIGHT.",1900,1,4 65 DATA " ",1990,0,30 70 DATA "MY",1015,.25,7,"FIRST",1900,.25,5,"LOVE",1018,1,4 75 DATA " ",1995,0,0 80 DATA "YOU'RE",1055,.5,4,"EV-",1900,.25,5,"'RY",1900,.25,7,"BREATH",1030,.5,7,"THAT",1900,.25,5,"I",1030,.25,7,"TAKE",1900,.75,5 85 DATA " ",1990,0,0 90 DATA "YOU'RE",1035,.25,2,"EV-",1900,.5,2,"'RY",1900,.5,2,"STEP",1018,.5,2,"I",1900,.5,7,"MAKE",1018,1,4 95 DATA " ",1990,0,30 100 DATA "AND",1018,.25,0,"I--",1030,2,9 105 DATA " ",1990,0,0 110 DATA "I",1035,.5,11,"WANT",1900,.25,12,"TO",1900,.25,14,"SHARE",1018,1,7,"ALL",1900,.75,7,"MY",1001,.25,14,"LOVE",1055,1,12," ",1000,0,0,"WITH",1030,.25,11,"YOU",1900,1,9 115 DATA " ",1990,0,0 120 DATA "NO",1035,.25,11,"ONE",1900,.25,12,"ELSE",1900,.5,14,"WILL",1015,.25,12,"DO",1900,.5,11 125 DATA " ",1995,0,30 130 DATA "AND",1018,.25,0,"YOUR",1015,.25,12,"EYES,",1030,2,9,"THEY",1050,.5,11,"TELL",1035,.25,11,"ME",1900,.25,12,"HOW",1900,.5,14,"MUCH",1015,.75,14,"YOU",1001,.25,16,"CARE",1055,1,12 135 DATA " ",1000,0,0,"OH,",1055,.25,14,"YES",1030,1,11 140 DATA " ",1990,0,30 150 DATA "YOU",1030,.5,11,"WILL",1900,.25,12,"AL-",1060,1,11,"WAYS",1900,.5,12,"BE",1050,2,12,"MY",1030,.5,12,"END-",1900,.5,12,"LESS",1900,.5,12,"LOVE",1018,2,12 155 DATA " ",1995,0,30," ",1000,0,0 160 DATA "TWO",1018,1,4,"HEARTS---",1900,1,4 165 DATA " ",1995,0,0 170 DATA "TWO",1018,.5,4,"HEARTS",1900,.25,5,"THAT",1900,.25,7,"BEAT",1030,.5,7,"AS",1900,.25,5,"ONE",1900,.75,5 175 DATA " ",1990,0,0 180 DATA "OUR",1035,.25,2,"LIVES",1900,.5,2,"HAVE",1900,.5,2,"JUST",1018,.5,2,"BE-",1900,.5,4,"GUN",1900,1,4 185 DATA " ",1985,0,0 190 DATA "FOR-",1018,.25,7,"EV-",1900,.25,5,"ER",1900,1,4 195 DATA " ",1995,0,30 200 DATA "I",1055,.5,4,"HOLD",1900,.25,5,"YOU",1900,.25,7,"CLOSE",1030,.5,7,"IN",1900,.25,5,"MY",1900,.25,7,"ARMS",1900,.75,5 210 DATA "I",1035,.25,2," CAN'T",1900,.5,2," RE-",1900,.5,2,"SIST",1018,.5,2," YOUR",1900,.5,7," CHARMS",1900,1,4 215 DATA " ",1990,0,30 220 DATA "AND",1018,.25,0," LOVE",1030,2,9 225 DATA " ",1990,0,0 230 DATA "I'D",1035,.5,11," BE",1900,.25,12," A",1900,.25,14," FOOL",1018,1,7," FOR",1900,.75,14," YOU",1055,1,12,"I'M",1900,.5,11,"SURE",1030,1.5,9 235 DATA " ",1990,0,0 240 DATA "YOU",1035,.25,11," KNOW",1900,.25,12," I",1900,.5,14," DON'T",1015,.25,12," MIND",1900,.25,11 245 DATA " ",1985,0,30 250 DATA "CAUSE",1030,2,9," YOU,",1080,.5,11," YOU",1035,.25,11," MEAN",1900,.25,12," THE",1900,.5,14," WORLD",1015,.75,14," TO",1900,.25,16," ME",1900,.75,16,"AND,",1900,1,12,"OH",1900,1,14 255 DATA " ",1990,0,0 260 DATA "I",1030,.5,14," KNOW",1900,1,12 265 DATA " ",1990,0,0 270 DATA "I",1060,.5,12," FOUND",1900,.75,11," IN",1900,.25,12," YOU",1050,2,12 275 DATA " ",1990,0,30 280 DATA "MY",1030,.5,12," END-",1900,.25,12," LESS",1900,.5,12," LOVE",1015,2,12 285 DATA " ",1985,0,30 290 DATA "AND",1018,.25,0," LOVE",1030,2,9 295 DATA " ",1990,0,0 300 DATA "I'D",1035,.5,11," BE",1900,.25,12," A",1900,.25,14," FOOL",1018,1,7," FOR",1900,.75,14," YOU",1055,1,12,"I'M",1900,.5,11,"SURE",1030,1.5,9 305 DATA " ",1990,0,0 310 DATA "YOU",1035,.25,11," KNOW",1900,.25,12," I",1900,.5,14," DON'T",1015,.25,12," MIND",1900,.25,11 315 DATA " ",1985,0,30 320 DATA "AND",1018,.25,12," YES,",1030,2,9," YOU'LL",1035,.25,11," BE",1900,.25,12," THE",1900,.5,14," ON-",1018,.5,14,"LY",1900,.25,19," ONE",1900,2,16 325 DATA " ",1999,0,30," ",1000,0,0 330 DATA "OH",1055,.5,19," NO,",1030,1,21," I",1900,.25,19," CAN'T",1900,.25,17," DE-",1900,.25,16,"NY",1900,1.5,19," THIS",1900,.5,16," LOVE",1030,1,21," I",1900,.25,19," HAVE",1900,.25,17," IN-",1900,.25,16,"SIDE",1060,1,19 335 DATA " ",1990,0,30 340 DATA "AND",1060,.25,16," I'LL",1900,.25,16," GIVE",1030,1,21," IT",1900,.25,19," ALL",1900,.25,17," TO",1900,.25,16," YOU",1060,1.5,19," MY",1900,.5,16," LOVE",1030,.5,21 345 DATA " ",1990,0,30 350 DATA "MY",1030,.5,12," END-",1900,.25,12,"LESS",1900,.25,12," LOVE",1018,3,12 400 SOUND 7,63: STOP 1000 SOUND 7,56;8,10;9,16;10,14;11,16;12,16;13,8: RETURN : REM ON 1001 SOUND 7,58;8,15;10,15: RETURN : REM channels a & c only 1015 SOUND 0,209;1,0;2,165;3,0;4,139;5,0: RETURN : REM C MAJ 1018 SOUND 0,165;1,0;2,139;3,0;4,104;5,0: RETURN : REM C MAJ chord inversion egc 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 1055 SOUND 0,248;1,0;2,209;3,0;4,165;5,0: RETURN : REM A MIN 1060 SOUND 0,165;1,0;2,139;3,0;4,110;5,0: RETURN : REM E MIN 1125 SOUND 0,165;1,0;2,139;3,0;4,117;5,0: RETURN : REM Eb 1800 GO SUB 1015 1805 RESTORE 1810: FOR b=1 TO 8: READ d,p: BEEP d,p: NEXT b 1810 DATA .25,12,.25,7,.25,12,.25,16,.25,14,.25,7,.25,14,.25,17 1812 GO SUB 1030 1815 RESTORE 1820: FOR b=1 TO 5: READ d,p: BEEP d,p: NEXT b 1820 DATA .25,16,.25,7,.25,12,.25,16,.5,14 1830 RETURN 1900 RETURN : REM DUMMY CHORD TO REGULATE DATA 1985 SOUND 7,63: PAUSE 20: SOUND 7,56;8,12;9,16;10,14;11,5;12,5;13,13: RETURN : REM 8TH rest 1990 SOUND 7,63: PAUSE 30: SOUND 7,56;8,16;9,15;10,15;11,64;12,64;13,13: RETURN : REM qtr rest 1995 SOUND 7,63: PAUSE 40: SOUND 7,56;8,12;9,15;10,16;11,64;12,64;13,13: RETURN : REM half rest 1999 SOUND 7,63;8,0;9,0;10,0: RETURN : REM OFF 9997 STOP 9998 CLEAR : SAVE "ENDLESSLUV" LINE 1