Plays the song.
Content
Image Gallery
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