Evergreen

Gallery

Source Code

    1 SOUND 7,63
   10 PAPER 4: BRIGHT 1: BORDER 4: INK 0: CLS : PRINT AT 10,6;"E V E R G R E E N"
   15 PAUSE 150: CLS : REM QTR=.4 till 2nd note line 80
   20 POKE 23692,255
   25 FOR B=1 TO 150: 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 "LOVE,",1001,1.6,9,"SOFT",1030,.4,9
   50 DATA "AS",1000,.4,10,"AN",1030,.4,12,"EAS-",1900,.4,12,"Y",1035,.4,14,"CHAIR;",1030,2,7
   55 DATA "  ",1995,0,0
   60 DATA "LOVE,",1900,1.6,7,"FRESH",1015,.4,7,"AS",1900,.4,9,"THE",1900,.4,10,"MORN-",1030,.4,9,"ING",1900,.4,12,"AIR.",1900,2,5
   65 DATA "  ",1995,0,30
   70 DATA "ONE",1050,1.6,17,"LOVE",1900,.4,14,"THAT",1900,.4,16,"IS",1900,.4,17,"SHARED",1055,.4,16,"BY",1900,.4,19,"TWO,",1900,2,12
   80 DATA "I",1065,.4,14,"HAVE",1900,.3,17,"FOUND",1900,1.2,10,"WITH",1900,.3,9,"YOU.",1125,1.2,7
   85 DATA " ",1995,0,30
   90 DATA "LIKE",1015,.3,5,"A",1900,.3,7,"ROSE",1030,1.5,5
  100 DATA "UN-",1900,.3,9,"DER",1900,.3,10,"THE",1900,.3,12,"A-",1035,.3,12,"PRIL",1900,.3,14,"SNOW,",1900,1.8,7
  105 DATA " ",1990,0,30
  110 DATA "I",1065,.6,19,"WAS",1900,.3,17,"AL-",1015,.3,14,"WAYS",1900,.3,12,"CER",1900,.15,8,"-",1900,.15,7,"TAIN",1900,.3,5,"LOVE",1030,.3,7,"WOULD",1900,.3,9,"GROW.",1900,1.8,5
  115 DATA "  ",1995,0,30
  120 DATA "LOVE,",1050,1.2,17,"AGE-",1900,.3,14,"LESS",1900,.3,16,"AND",1900,.3,17,"EV-",1055,.3,16,"ER-",1900,.3,19,"GREEN,",1900,1.8,12
  125 DATA "  ",1995,0,30
  130 DATA "SEL-",1105,.3,14,"DOM",1900,.3,17,"SEEN",1900,.6,14,"BY",1900,.3,9,"TWO.",1130,2.2,12
  140 DATA "YOU",1105,.6,17,"AND",1900,.3,16,"I",1900,.6,14,"WILL",1900,.15,16,"MAKE",1900,.15,17,"EACH",1055,.6,16,"NIGHT",1900,.15,12,"A",1900,.15,9,"FIRST,",1900,1.2,12
  145 DATA " ",1995,0,30
  150 DATA "EV-",1105,.3,17,"RY",1900,.3,16,"DAY",1900,.6,14,"A",1900,.15,16,"BE-",1900,.15,17,"GIN-",1055,.3,16,"NING.",1900,.6,12
  155 DATA " ",1995,0,30
  160 DATA "SPIR-",1105,.3,17,"ITS",1900,.3,16,"RISE",1025,.9,14,"AND",1900,.15,16,"THEIR",1900,.15,17,"DANCE",1055,.6,21,"IS",1900,.3,22,"UN-",1900,.3,21,"RE-",1900,.3,17,"HEARSED.",1055,1.2,12
  165 DATA " ",1990,0,30
  170 DATA "THEY",1030,.3,14,"WARM",1900,.3,17,"AND",1900,.15,16,"EX-",1900,.15,17,"CITE",1035,.3,16,"US",1900,.9,14
  175 DATA " ",1990,0,30
  180 DATA "CAUSE",1105,.6,22,"WE",1900,.3,22,"HAVE",1900,.3,21,"THE",1900,.3,22,"BRIGHT",1015,.3,21,"-",1900,.3,19,"EST",1900,.9,21
  185 DATA " ",1995,0,30
  190 DATA "LOVE,",1030,1.2,9,"TWO",1900,.3,9,"LIGHTS",1900,.3,10,"THAT",1900,.3,12,"SHINE",1900,.3,12,"AS",1035,.3,14,"ONE,",1900,1.8,7
  195 DATA " ",1995,0,30
  200 DATA "MORN-",1035,.3,7,"ING",1900,.3,7,"GLO-",1015,.6,7,"RY",1900,.3,7,"AND",1900,.3,9,"THE",1900,.3,10,"MID-",1030,.3,9,"NIGHT",1900,.3,12,"SUN.",1900,1.8,5
  205 DATA " ",1995,0,30
  210 DATA "TIME,",1050,1.2,17,"WE'VE",1900,.3,14,"LEARNED",1900,.3,16,"TO",1900,.3,17,"SAIL",1055,.3,16,"A-",1900,.3,19,"BOVE;",1900,1.8,12
  220 DATA "TIME",1065,.3,14,"WON'T",1900,.3,17,"CHANGE",1900,.6,10,"THE",1900,.3,10,"MEAN-",1900,.3,10,"ING",1900,.3,9,"OF",1125,1.2,7
  225 DATA " ",1995,0,30
  230 DATA "ONE",1015,.6,7,"LOVE",1030,1.2,5,"AGE-",1900,.3,9,"LESS",1900,.3,10,"AND",1900,.3,12,"EV-",1035,1.2,10,"ER",1900,.9,19,"EV-",1115,.3,10,"ER",1900,1.2,10,"GREEN.",1030,1.8,17
  300 GO SUB 1001: PAUSE 90: GO SUB 1999
  310 STOP 
 1000 SOUND 7,56;8,15;9,15;10,16;11,5;12,5;13,13: RETURN : REM ON
 1001 SOUND 7,58;8,8;10,8: RETURN : REM channels a & c only
 1015 SOUND 0,209;1,0;2,165;3,0;4,139;5,0: RETURN : REM C MAJ
 1025 SOUND 0,165;1,0;2,131;3,0;4,110;5,0: RETURN : REM E 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
 1055 SOUND 0,248;1,0;2,209;3,0;4,165;5,0: RETURN : REM A MIN
 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
 1115 SOUND 0,147;1,0;2,124;3,0;4,98;5,0: RETURN : REM F# MIN
 1125 SOUND 0,165;1,0;2,139;3,0;4,117;5,0: RETURN : REM Eb
 1130 SOUND 0,7;1,1;2,209;3,0;4,175;5,0: RETURN : REM Ab
 1900 RETURN : REM DUMMY CHORD TO REGULATE DATA
 1990 SOUND 7,63: PAUSE 30: SOUND 7,56;8,10;9,10;10,16;11,5;12,5;13,13: RETURN 
 1995 SOUND 7,63: PAUSE 40: SOUND 7,56;8,10;9,10;10,16;11,5;12,5;13,13: RETURN 
 1999 SOUND 7,63;8,0;9,0;10,0: RETURN : REM OFF
 9997 STOP 
 9998 CLEAR : SAVE "EVERGREEN" LINE 1