10 POKE53280,5:POKE53281,1:PRINT"[147][144]"
20 PRINT"":T$="[193]MAZINGLY? [199]RACEFUL??":GOSUB60000
22 T$="BY":GOSUB60000:T$="[212]OM [202]EFFRIES":GOSUB60000:PRINT
30 T$="  [212]HIS ARRANGEMENT OF THE EARLY":GOSUB60000
40 T$="[193]MERICAN FOLK SONG IS ONE OF THE FIRST":GOSUB60000
50 T$="SONGS THAT [201] WROTE FOR THE [195]-64.":GOSUB60000:GOSUB61000
55 PRINT""
60 T$="[201] EXPERIMENTED WITH A LOT OF":GOSUB60000
70 T$="THINGS IN [193]MAZING.  [198]OR EXAMPLE,":GOSUB60000
80 T$="THE VIBRATO IN THE FIRST VERSE COMES":GOSUB60000
90 T$="FROM PUTTING ALL THREE VOICES ON THE ":GOSUB60000
100 T$="SAME NOTE, BUT SLIGHTLY OUT OF TUNE":GOSUB60000
110 T$="WITH EACH OTHER.  [212]HIS IS CALLED":GOSUB60000
120 T$="DE-TUNING.":GOSUB60000:GOSUB61000
130 T$="[210]ING [205]ODULATION ON [214]OICE 3 AND":GOSUB60000
140 T$="ENVELOPES ([193][196][211][210]'S) SET A LITTLE":GOSUB60000
150 T$="DIFFERENTLY FOR EACH VOICE ENHANCE THE":GOSUB60000
160 T$="EFFECT.  [217]OU MAY NOTICE A FOURTH NOTE":GOSUB60000
170 T$="IN EACH OF THE LAST TWO CHORDS IN THE":GOSUB60000
180 T$="FIRST VERSE.  [212]HIS IS PRODUCED BY":GOSUB60000
190 T$="DIFFERENCE TONES WHICH OCCUR IF YOU":GOSUB60000
2000 T$="TUNE ALL THREE VOICES JUST RIGHT.":GOSUB60000:GOSUB61000
2002 PRINT""
2010 T$="[206]OTICE IN THE SECOND VERSE THAT THE":GOSUB60000
2020 T$="NOTES ARE TUNED DIFFERENTLY THAN":GOSUB60000
2030 T$="YOU WOULD EXPECT.  [212]HIS GIVES THE":GOSUB60000
2032 T$="CHURCH ORGAN SOUND.":GOSUB60000:GOSUB61000
2040 PRINT""
2042 T$="[212]HE THIRD VERSE RUNS OFF A SMALL":GOSUB60000
2050 T$="[205]ACHINE [204]ANGUAGE DRIVER STORED AT":GOSUB60000
2060 T$="49152 ($[195]000).  [201]F YOU LISTEN":GOSUB60000
2070 T$="CAREFULLY, YOU WILL HEAR A SLIDE":GOSUB60000
2080 T$="FROM NOTE TO NOTE IN VOICE 1, WHICH":GOSUB60000
2090 T$="ADDS SUBTLE TOUCH OF COLOR.":GOSUB60000
2100 T$="[201] HOPE YOU ENJOY IT.":GOSUB60000:GOSUB61000
2200 PRINT"[147]        1. [204][207][193][196] AND [208][204][193][217] MUSIC"
2210 PRINT"        2. [210]ETURN TO [204][207][193][196][211][212][193][210]"
2220 PRINT"[215]HICH ?";
2230 POKE198,0:WAIT198,1:GETK$:IFK$<>"1"ANDK$<>"2"THEN2230
2240 IFK$="1"THENF$="AMAZING GRACE"
2250 IFK$="2"THENF$="HELLO"
2260 PRINTK$
2280 T$="WORKING...":GOSUB60000
2290 PRINT"LOAD"CHR$(34)F$CHR$(34)",8":PRINT"RUN"
2300 POKE631,13:POKE632,13:POKE198,2:END
60000 REM   CENTERING
60002 T=LEN(T$):T=20-T/2:PRINTTAB(T)T$:PRINT
60004 RETURN
60006 :
61000 REM   WAIT FOR KEY
61002 POKE783,PEEK(783)AND254
61004 POKE781,23:POKE782,13:SYS65520:PRINT"<PRESS A KEY>"
61006 POKE198,0:WAIT198,1:PRINT"[147]":RETURN