1*| Graphix And The Fade By
2*|"
jAmES LaWSon
(c)1988 Channel-X
3*| Music Programmed By
4*|"
Kevan Cheyne
5*|
6*|"
Kevan Music #15
CCL4 - 0482 655798
10MODE7
20ON ERROR GOTO 70
30PROCccl4`0482`655978
40PROCsetup
50PROCwords
60PROCmusic
65PROCfade(1010):PROCfade(1070):PROCf
ade(1130):PROCfade(1190)
70PROCend
75PRINT:PRINT
80END
90DEFPROCsetup
95VDU23;8202;0;0;0;
100VDU28,0,24,39,21
110DIMm$(3),env(3),w$(190)
120N=1:vol=0
125A$="01234567689:;<=>?@9:;<ABACDEFGH
I=>?@9:;<"
126D$="3 5 3 35 1 3 5 3 3551
"
127PROCenv:ENDPROC
129DEFPROCenv
130ENVELOPE1,5,1,-1,1,1,2,1,100,10,-10
,-8,110-vol,20
140ENVELOPE2,7,1,-1,1,1,1,1,116,10,-3,
-3,126-vol,0
150ENVELOPE3,1,0,0,-1,5,15,50,115,0,-1
,-1,115-vol,60-vol
160ENVELOPE4,2,0,0,0,0,0,0,115,0,-2,-4
,115-vol,40-(vol/2)
170ENVELOPE5,1,0,0,0,0,0,0,120,-5,-3,-
1,120-vol,20
180ENVELOPE6,1,0,0,0,0,0,0,115,0,-1,-1
,115-vol,40-(vol/2)
190ENVELOPE7,1,0,0,0,0,0,0,110,-3,-3,-
2,110-vol,0
200ENVELOPE8,5,1,-1,1,1,2,1,85,10,-1,-
1,95-vol,0
205ENVELOPE9,1,0,0,0,0,0,0,110,16,-3,-
3,126-vol,40-(vol/2)
206ENVELOPE10,1,0,0,0,0,0,0,90,10,-3,-
3,100-vol,40-(vol/2)
207ENVELOPE11,1,0,0,0,0,0,0,126,-3,-3,
-2,126-vol,0
208ENVELOPE12,5,1,-1,1,1,2,1,80,10,-6,
-7,90-vol,20
220ENDPROC
230DEFPROCmusic
240FORA=1TOLEN(A$)
250B%=ASC(MID$(A$,A,1))-&30
260LIN%=B%*60+470
270RESTORE LIN%:PROCplay:NEXT
280ENDPROC
290DEFPROCplay
300FORY=0TO3:READenv(Y):NEXT
310FORZ=0TO3:READm$(Z):NEXT
311READWD$
312IFA=34 m$(2)="X X X XZZ X
X ` ":WD$=". . . ... .
."
313IFA=35 m$(2)=" ` ½ ` a a `
` `a ":WD$=" /. . . . . .
. /."
314IFA=36 m$(2)="a ` ] ` ` ] `
d d d ":WD$=". . . . .
//. . ."
315IFm$(0)="" m$(0)=D$
316IFA=33 m$(2)=" X X X S ] ½ X
U ":WD$="//. . . . . . ./"
330FORC=1TOLENm$(1)
340IFN<191:IFMID$(WD$,C,1)="." PRINTw$
(N);:N=N+1
350IFMID$(WD$,C,1)="/" PRINT
360FORV=1TO3
370P=4*ASC(MID$(m$(V),C,1))
380F%=V OR &200
390F%=F%OR-&1000*(P=128)
395e=env(V)
400IFP=504 e=9:P=420
405IFP=132 e=3:P=304
406IFP=140 e=3:P=284
410SOUNDF%,e,P,1
420NEXT
425P=ASC(MID$(m$(0),C,1))-&30
427IFP=1 env(0)=3:P=4
431IFP=3 env(0)=4:P=6
432IFP=5 env(0)=5
434IFP=7 env(0)=10:P=4
435IFP=8 env(0)=11:P=6
436SOUND-&1000*(P=-16),env(0),P,1
440FORS=1TO115:NEXT
450NEXT
460ENDPROC
470DATA0,9,8,2
480DATA""
490DATA"JJJEJJJJJJJJJJJJJJJJJJJJJJJJJJ
JJ"
500DATA"ii ii b bb bb g gg gg
i "
510DATA"dd dd ] ]] ]] b bb bb
d "
520DATA""
530DATA0,9,8,2
540DATA"3 5 3 35 1 88888888888888
88"
550DATA"JJJJJJJJJJJJJJJJJJJJJJJJJJJJJJ
JJ"
560DATA"ii ii b bb bb g gg gg
"
570DATA"dd dd ] ]] ]] b bb bb
"
580DATA""
590DATA0,6,7,1
600DATA""
610DATA"L LLL J LLJ L L E EEE EE EE E
EE"
620DATA"dddddddddddddddddddddddddddddd
dd"
630DATA"`````]]]`]]]`]]``````]]]`]]]`]
]`"
640DATA""
650DATA0,6,1,7
660DATA""
670DATA"J J J J J J J J G G G GGG GGG!
"
680DATA"bbbbbaaabaabbaabbbbbbaaabaabba
ab"
690DATA"]]]]]]]]]]]]]]]]``````````````
``"
700DATA""
710DATA0,6,1,1
720DATA""
730DATA"L L L LLL LLL L E E E EEE EEEE
E "
740DATA"dddddddddddddddddddddddddddddd
dd"
750DATA"`````]]]`]]]`]]``````]]]`]]]`]
]`"
760DATA""
770DATA0,6,1,1
780DATA""
790DATA"J J J IIJ IJJ J G G G GGG GGG#
"
800DATA"bbbbbaaabaabbaabbbbbbaaabaabba
ab"
810DATA"]]]]]]]]]]]]]]]]``````````````
``"
820DATA""
830DATA0,6,2,12
840DATA""
850DATA"L L LLL L LLL L E E E EEE EEEE
EE"
860DATA"X X X Z X ] ½ X
"
870DATA"`````]]]`]]]`]]``````]]]`]]]`]
]`"
880DATA". . . . . . . ./"
890DATA0,6,2,12
900DATA""
910DATA"J J J JJJ JJJ J G G G G G GGG!
"
920DATA"X X X Z Z
"
930DATA"bbbbbaaabaabbaabbbbbbaaabaabba
ab"
940DATA". . . . . /"
950DATA0,6,2,12
960DATA"3 5 3 35 1 33333333333333
33"
970DATA"J J J JJJ JJJ J G G G GGG GGGG
GG"
980DATA"X X X X Z Z d d
d "
990DATA"bbbbbaaabaabbaabbbbbbaaabaabba
ab"
1000DATA". . . . . . //. .
."
1010DATA0,6,2,12
1020DATA"3 77573 3 735 773 77573 3 7355
77"
1030DATA"L L L J L JKL L E E E E E EEE
EE"
1040DATA" ` a ] d
d "
1050DATA"`````]]]`]]]`]]``````]]]`]]]`]
]`"
1060DATA" . . /.
."
1070DATA0,6,2,12
1080DATA"377757373773577737775737377355
77"
1090DATA"J J J J J JJJ J G G G GGG GGG
# "
1100DATA" d d b a ` ` d d
d "
1110DATA"bbbbbaaabaabbaabbbbbbaaabaabba
ab"
1120DATA" . . . . . /. .
. "
1130DATA0,6,2,12
1140DATA"377757373773577737775737377355
77"
1150DATA"L L L LLLL LL L E E E EEE EEE
E "
1160DATA" ` a ` ] d
d "
1170DATA"`````]]]`]]]`]]``````]]]`]]]`]
]`"
1180DATA" . . /.
."
1190DATA0,6,2,12
1200DATA"377757373773577737775737377355
77"
1210DATA"J J J JJJ JJJ J G G G G G GGG
G "
1220DATA" ddb a `
"
1230DATA"bbbbbaaabaabbaabbbbbbaaabaabba
ab"
1240DATA" ... . . //"
1250DATA0,6,2,8
1260DATA""
1270DATA"L L L LLL LLL L E E E E E EEEE
E "
1280DATA"X X X Z X ] ½ X
"
1290DATA"L S ] ½
"
1300DATA". . . . . . . . /"
1310DATA0,6,2,8
1320DATA""
1330DATA"J J J JJJ JJJ J G G G G G GGG
G "
1340DATA"X X X Z Z
"
1350DATA"J Q Z ] X
"
1360DATA". . . . . /"
1370DATA0,6,2,8
1380DATA""
1390DATA"L L L LLL LLL L E E E E E EEEE
E "
1400DATA"X X X Z X ] ½ X
"
1410DATA"L S X ] X ½ X
"
1420DATA". . . . . . . . /"
1430DATA0,6,2,8
1440DATA"3 5 3 35 1 33333333333333
33"
1450DATA"J J J JJJ JJJ J G G G GGG GGG@
GG"
1460DATA"X X X X ZZ Z d d
d "
1470DATA"J Q V ] X Z ]
"
1480DATA". . . . .. . //. .
."
1490DATA0,6,1,12
1500DATA"377757373773575737775737377355
77"
1510DATA"L L L JKL JLL L C C C ABCCBC C
CC"
1520DATA"hikhikhikhik÷÷÷÷hikhikhikhik÷÷
÷÷"
1530DATA"XXX XXXX XXX ]]XXX XXXX XXX
]]"
1540DATA"//// .. .. /.. .
."
1550DATA0,6,1,12
1560DATA"377757373773575737775737377355
77"
1570DATA"E E Q OPQ OPQ Q E E Q OPQQOPQ
J "
1580DATA"hikhikhikhik÷÷÷÷hikhikhikhik÷÷
÷÷"
1590DATA"XXX XXXX XXX ]]XXX XXXX XXX
]]"
1600DATA" /.. .
."
1610DATA0,6,1,12
1620DATA"3 5 3 35 1 33333333333333
33"
1630DATA"E E Q OPQ OPQ Q E E Q OPQQOPQ
J "
1640DATA"hikhikhikhik÷÷÷÷hikhikhikhik÷÷
÷÷"
1650DATA"XXX XXXX XXX ]]XXX XXXX XXX
]]"
1660DATA" /.. .
."
1670DATA0,6,2,12
1680DATA""
1690DATA"L LLL JKL JKL L E E QQQEE EL
EE"
1700DATA"X ` ]X `X `X ` `XX`X] X ]XX
]X"
1710DATA"`````]]]`]]]`]]``````]]]`]]]`]
]`"
1720DATA" /////"
1730DATA0,6,2,12
1740DATA""
1750DATA"J J J JJJ JJJJJG G G GG GG
G "
1760DATA"X Z X Z X Z X Z X ] X Z
X "
1770DATA"bbbbbaaabaabbaabbbbbbaaabaabba
ab"
1780DATA""
1790DATA0,6,2,12
1800DATA""
1810DATA"LLLLL JKLLJKL L E E Q EE EEE
E "
1820DATA"d kk kd kkdkd k dkd kkdkddkddk
d "
1830DATA"`````]]]`]]]`]]``````]]]`]]]`]
]`"
1840DATA""
1850DATA0,6,2,12
1860DATA""
1870DATA"J J J JJ JJ J G GGS S G GS
S "
1880DATA"d f fd f fd f fd f fd f ff
d "
1890DATA"bbbbbaaabaabbaabbbbbbaaabaabba
ab"
1900DATA" ."
1910DATA0,6,2,8
1920DATA""
1930DATA"L L L L L LLL L E E E E E EEEE
"
1940DATA"] ½ X ] ] ½ X ]
"
1950DATA"L `½]½X ½ `
"
1960DATA". . . . . /."
1970DATA0,6,2,8
1980DATA""
1990DATA"J J J J J JJJ J G G G G G GGG
G "
2000DATA"] ½ X Z Z
"
2010DATA"J V ] X Z V
"
2020DATA". . . . ////"
2030DATA0,6,2,6
2040DATA"6 "
2050DATA"@ "
2060DATA"S "
2070DATA"X "
2080DATA""
2090DEFPROCwords
2100RESTORE2130
2105FORI=1TO39:READw$(I):NEXT
2106FORI=40TO51:w$(I)=w$(I-12):NEXT
2107FORI=52TO79:READw$(I):NEXT
2108FORI=80TO103:w$(I)=w$(I-52):w$(I+87
)=w$(I-52):NEXT
2109FORI=104TO115:READw$(I):w$(I+12)=w$
(I):NEXT
2110FORI=128TO138:w$(I)="
Hmm":NEXT
2111FORI=139TO166:READw$(I):NEXT
2120ENDPROC
2130DATA"
One ",man ,come ,in ,the ,nam
e ,of ,love,"
One ",man ,come ,and ,go.,
"
One ",man ,come ,he ,to ,jus,ti,fy," O
ne ",man ,to ,o,ver,throw.
2135DATA"
In ",the ,name ,of ,love," Wh
at ",more ,in ,the ,name ,of ,love.
2140DATA"
One ",man ,caught ,on ,a ,bar
bed ,wire ,fence,"
One ",man ,he ,re,sis
t.,"
One ",man ,washed ,on ,an ,emp,ty ,
beach,"
One ",man ,be,trayed ,with ,a ,k
iss.
2145DATA"
Look ",out ,for ,me.," Look "
,out ,for ,me.,"
Come ",back ,to ,me.
2150DATA"
Ear",ly ,mor,ning ,A,pril ,fo
ur,"
Shot ",rings ,out ,in ,the ,Mem,phi
s ,sky.,"
Free ",at ,last ,they ,took ,y
our ,life,"
They ",could ,not ,take ,you
r ,pride.
2270DEFPROCend
2275CLS
2280FORN=0TO1:PRINTTAB(9,0+N)CHR$(141)"
Thanks For Listening";:NEXTN
2290FORN=0TO1:PRINTTAB(7,2+N)CHR$141"
I
Hope That You Liked It!";:NEXTN
2300FORQ=1TO5000:NEXT
2310CLS
2320FORN=0TO1:PRINTTAB(9,0+N)CHR$141"
P
erformed By
- U2";:NEXTN
2330FORN=0TO1:PRINTTAB(0,2+N)CHR$141"
P
rogrammed By Kevan Cheyne
Aug 1988";:NEX
TN
2335FORQ=1TO7000:NEXT
2340ENDPROC
2430DEFPROCfade(jrl):vol=vol+20:PROCenv
:RESTORE jrl:PROCplay:ENDPROC
5000DEFPROCccl4`0482`655978
5010CLS
5020PRINT"
5030PRINT"
5040PRINT"
,,,,,,,,,,j";
5050PRINT"
,,,,,,,,,,j";
5060PRINT"
And Channe
l-X Present";
5070PRINT"
x¶¶¶¶¶¶5"
5080PRINT"
t֦?!
5090PRINT"
¶¶w
5100PRINT"
'o¶¾0
5110PRINT"
+¶¶4
5120PRINT"
¶¶¶¶¶5
5130PRINT"
,,,,j";
5140PRINT"
,,,,,,,,,j";
5150PRINT"
By U2
5160PRINT"
,,,,,,,,,,j";
5170PRINT"
,,,,,,,,,,j";
5180PRINT"
pp0
5190PRINT"
|45
5200PRINT"
0482-
,,%
JrL
5210PRINT"
655798
,,,,,,,,,,j";
5220PRINT"
ppppppppppz";
5230ENDPROC