1 *| [0x0C] 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 [0x15] 10 MODE7 20 ON ERROR GOTO 70 30 PROCccl4_0482_655978 40 PROCsetup 50 PROCwords 60 PROCmusic 65 PROCfade(1010):PROCfade(1070):PROCfade(1130):PROCfade(1190) 70 PROCend 75 PRINT:PRINT 80 END 90 DEFPROCsetup 95 VDU23;8202;0;0;0; 100 VDU28,0,24,39,21 110 DIMm$(3),env(3),w$(190) 120 N=1:vol=0 125 A$="01234567689:;<=>?@9:;?@9:;<" 126 D$="3 5 3 35 1 3 5 3 3551 " 127 PROCenv:ENDPROC 129 DEFPROCenv 130 ENVELOPE1,5,1,-1,1,1,2,1,100,10,-10,-8,110-vol,20 140 ENVELOPE2,7,1,-1,1,1,1,1,116,10,-3,-3,126-vol,0 150 ENVELOPE3,1,0,0,-1,5,15,50,115,0,-1,-1,115-vol,60-vol 160 ENVELOPE4,2,0,0,0,0,0,0,115,0,-2,-4,115-vol,40-(vol/2) 170 ENVELOPE5,1,0,0,0,0,0,0,120,-5,-3,-1,120-vol,20 180 ENVELOPE6,1,0,0,0,0,0,0,115,0,-1,-1,115-vol,40-(vol/2) 190 ENVELOPE7,1,0,0,0,0,0,0,110,-3,-3,-2,110-vol,0 200 ENVELOPE8,5,1,-1,1,1,2,1,85,10,-1,-1,95-vol,0 205 ENVELOPE9,1,0,0,0,0,0,0,110,16,-3,-3,126-vol,40-(vol/2) 206 ENVELOPE10,1,0,0,0,0,0,0,90,10,-3,-3,100-vol,40-(vol/2) 207 ENVELOPE11,1,0,0,0,0,0,0,126,-3,-3,-2,126-vol,0 208 ENVELOPE12,5,1,-1,1,1,2,1,80,10,-6,-7,90-vol,20 220 ENDPROC 230 DEFPROCmusic 240 FORA=1TOLEN(A$) 250 B%=ASC(MID$(A$,A,1))-&30 260 LIN%=B%*60+470 270 RESTORE LIN%:PROCplay:NEXT 280 ENDPROC 290 DEFPROCplay 300 FORY=0TO3:READenv(Y):NEXT 310 FORZ=0TO3:READm$(Z):NEXT 311 READWD$ 312 IFA=34 m$(2)="X X X XZZ X X _ ":WD$=". . . ... . ." 313 IFA=35 m$(2)=" _ \ _ a a _ _ _a ":WD$=" /. . . . . . . /." 314 IFA=36 m$(2)="a _ ] _ _ ] _ d d d ":WD$=". . . . . //. . ." 315 IFm$(0)="" m$(0)=D$ 316 IFA=33 m$(2)=" X X X S ] \ X U ":WD$="//. . . . . . ./" 330 FORC=1TOLENm$(1) 340 IFN<191:IFMID$(WD$,C,1)="." PRINTw$(N);:N=N+1 350 IFMID$(WD$,C,1)="/" PRINT 360 FORV=1TO3 370 P=4*ASC(MID$(m$(V),C,1)) 380 F%=V OR &200 390 F%=F%OR-&1000*(P=128) 395 e=env(V) 400 IFP=504 e=9:P=420 405 IFP=132 e=3:P=304 406 IFP=140 e=3:P=284 410 SOUNDF%,e,P,1 420 NEXT 425 P=ASC(MID$(m$(0),C,1))-&30 427 IFP=1 env(0)=3:P=4 431 IFP=3 env(0)=4:P=6 432 IFP=5 env(0)=5 434 IFP=7 env(0)=10:P=4 435 IFP=8 env(0)=11:P=6 436 SOUND-&1000*(P=-16),env(0),P,1 440 FORS=1TO115:NEXT 450 NEXT 460 ENDPROC 470 DATA0,9,8,2 480 DATA"" 490 DATA"JJJEJJJJJJJJJJJJJJJJJJJJJJJJJJJJ" 500 DATA"ii ii b bb bb g gg gg i " 510 DATA"dd dd ] ]] ]] b bb bb d " 520 DATA"" 530 DATA0,9,8,2 540 DATA"3 5 3 35 1 8888888888888888" 550 DATA"JJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJ" 560 DATA"ii ii b bb bb g gg gg " 570 DATA"dd dd ] ]] ]] b bb bb " 580 DATA"" 590 DATA0,6,7,1 600 DATA"" 610 DATA"L LLL J LLJ L L E EEE EE EE EEE" 620 DATA"dddddddddddddddddddddddddddddddd" 630 DATA"_____]]]_]]]_]]______]]]_]]]_]]_" 640 DATA"" 650 DATA0,6,1,7 660 DATA"" 670 DATA"J J J J J J J J G G G GGG GGG! " 680 DATA"bbbbbaaabaabbaabbbbbbaaabaabbaab" 690 DATA"]]]]]]]]]]]]]]]]________________" 700 DATA"" 710 DATA0,6,1,1 720 DATA"" 730 DATA"L L L LLL LLL L E E E EEE EEEEE " 740 DATA"dddddddddddddddddddddddddddddddd" 750 DATA"_____]]]_]]]_]]______]]]_]]]_]]_" 760 DATA"" 770 DATA0,6,1,1 780 DATA"" 790 DATA"J J J IIJ IJJ J G G G GGG GGG# " 800 DATA"bbbbbaaabaabbaabbbbbbaaabaabbaab" 810 DATA"]]]]]]]]]]]]]]]]________________" 820 DATA"" 830 DATA0,6,2,12 840 DATA"" 850 DATA"L L LLL L LLL L E E E EEE EEEEEE" 860 DATA"X X X Z X ] \ X " 870 DATA"_____]]]_]]]_]]______]]]_]]]_]]_" 880 DATA". . . . . . . ./" 890 DATA0,6,2,12 900 DATA"" 910 DATA"J J J JJJ JJJ J G G G G G GGG! " 920 DATA"X X X Z Z " 930 DATA"bbbbbaaabaabbaabbbbbbaaabaabbaab" 940 DATA". . . . . /" 950 DATA0,6,2,12 960 DATA"3 5 3 35 1 3333333333333333" 970 DATA"J J J JJJ JJJ J G G G GGG GGGGGG" 980 DATA"X X X X Z Z d d d " 990 DATA"bbbbbaaabaabbaabbbbbbaaabaabbaab" 1000 DATA". . . . . . //. . ." 1010 DATA0,6,2,12 1020 DATA"3 77573 3 735 773 77573 3 735577" 1030 DATA"L L L J L JKL L E E E E E EEE EE" 1040 DATA" _ a ] d d " 1050 DATA"_____]]]_]]]_]]______]]]_]]]_]]_" 1060 DATA" . . /. ." 1070 DATA0,6,2,12 1080 DATA"37775737377357773777573737735577" 1090 DATA"J J J J J JJJ J G G G GGG GGG # " 1100 DATA" d d b a _ _ d d d " 1110 DATA"bbbbbaaabaabbaabbbbbbaaabaabbaab" 1120 DATA" . . . . . /. . . " 1130 DATA0,6,2,12 1140 DATA"37775737377357773777573737735577" 1150 DATA"L L L LLLL LL L E E E EEE EEE E " 1160 DATA" _ a _ ] d d " 1170 DATA"_____]]]_]]]_]]______]]]_]]]_]]_" 1180 DATA" . . /. ." 1190 DATA0,6,2,12 1200 DATA"37775737377357773777573737735577" 1210 DATA"J J J JJJ JJJ J G G G G G GGG G " 1220 DATA" ddb a _ " 1230 DATA"bbbbbaaabaabbaabbbbbbaaabaabbaab" 1240 DATA" ... . . //" 1250 DATA0,6,2,8 1260 DATA"" 1270 DATA"L L L LLL LLL L E E E E E EEEEE " 1280 DATA"X X X Z X ] \ X " 1290 DATA"L S ] \ " 1300 DATA". . . . . . . . /" 1310 DATA0,6,2,8 1320 DATA"" 1330 DATA"J J J JJJ JJJ J G G G G G GGG G " 1340 DATA"X X X Z Z " 1350 DATA"J Q Z ] X " 1360 DATA". . . . . /" 1370 DATA0,6,2,8 1380 DATA"" 1390 DATA"L L L LLL LLL L E E E E E EEEEE " 1400 DATA"X X X Z X ] \ X " 1410 DATA"L S X ] X \ X " 1420 DATA". . . . . . . . /" 1430 DATA0,6,2,8 1440 DATA"3 5 3 35 1 3333333333333333" 1450 DATA"J J J JJJ JJJ J G G G GGG GGG@GG" 1460 DATA"X X X X ZZ Z d d d " 1470 DATA"J Q V ] X Z ] " 1480 DATA". . . . .. . //. . ." 1490 DATA0,6,1,12 1500 DATA"37775737377357573777573737735577" 1510 DATA"L L L JKL JLL L C C C ABCCBC CCC" 1520 DATA"hikhikhikhik~~~~hikhikhikhik~~~~" 1530 DATA"XXX XXXX XXX ]]XXX XXXX XXX ]]" 1540 DATA"//// .. .. /.. .." 1550 DATA0,6,1,12 1560 DATA"37775737377357573777573737735577" 1570 DATA"E E Q OPQ OPQ Q E E Q OPQQOPQ J " 1580 DATA"hikhikhikhik~~~~hikhikhikhik~~~~" 1590 DATA"XXX XXXX XXX ]]XXX XXXX XXX ]]" 1600 DATA" /.. . ." 1610 DATA0,6,1,12 1620 DATA"3 5 3 35 1 3333333333333333" 1630 DATA"E E Q OPQ OPQ Q E E Q OPQQOPQ J " 1640 DATA"hikhikhikhik~~~~hikhikhikhik~~~~" 1650 DATA"XXX XXXX XXX ]]XXX XXXX XXX ]]" 1660 DATA" /.. . ." 1670 DATA0,6,2,12 1680 DATA"" 1690 DATA"L LLL JKL JKL L E E QQQEE EL EE" 1700 DATA"X _ ]X _X _X _ _XX_X] X ]XX ]X" 1710 DATA"_____]]]_]]]_]]______]]]_]]]_]]_" 1720 DATA" /////" 1730 DATA0,6,2,12 1740 DATA"" 1750 DATA"J J J JJJ JJJJJG G G GG GG G " 1760 DATA"X Z X Z X Z X Z X ] X Z X " 1770 DATA"bbbbbaaabaabbaabbbbbbaaabaabbaab" 1780 DATA"" 1790 DATA0,6,2,12 1800 DATA"" 1810 DATA"LLLLL JKLLJKL L E E Q EE EEE E " 1820 DATA"d kk kd kkdkd k dkd kkdkddkddkd " 1830 DATA"_____]]]_]]]_]]______]]]_]]]_]]_" 1840 DATA"" 1850 DATA0,6,2,12 1860 DATA"" 1870 DATA"J J J JJ JJ J G GGS S G GS S " 1880 DATA"d f fd f fd f fd f fd f ffd " 1890 DATA"bbbbbaaabaabbaabbbbbbaaabaabbaab" 1900 DATA" ." 1910 DATA0,6,2,8 1920 DATA"" 1930 DATA"L L L L L LLL L E E E E E EEEE " 1940 DATA"] \ X ] ] \ X ] " 1950 DATA"L _\]\X \ _ " 1960 DATA". . . . . /." 1970 DATA0,6,2,8 1980 DATA"" 1990 DATA"J J J J J JJJ J G G G G G GGG G " 2000 DATA"] \ X Z Z " 2010 DATA"J V ] X Z V " 2020 DATA". . . . ////" 2030 DATA0,6,2,6 2040 DATA"6 " 2050 DATA"@ " 2060 DATA"S " 2070 DATA"X " 2080 DATA"" 2090 DEFPROCwords 2100 RESTORE2130 2105 FORI=1TO39:READw$(I):NEXT 2106 FORI=40TO51:w$(I)=w$(I-12):NEXT 2107 FORI=52TO79:READw$(I):NEXT 2108 FORI=80TO103:w$(I)=w$(I-52):w$(I+87)=w$(I-52):NEXT 2109 FORI=104TO115:READw$(I):w$(I+12)=w$(I):NEXT 2110 FORI=128TO138:w$(I)="†Hmm":NEXT 2111 FORI=139TO166:READw$(I):NEXT 2120 ENDPROC 2130 DATA"‚One ",man ,come ,in ,the ,name ,of ,love,"‚One ",man ,come ,and ,go.,"‚One ",man ,come ,he ,to ,jus,ti,fy,"‚One ",man ,to ,o,ver,throw. 2135 DATA"ƒIn ",the ,name ,of ,love,"ƒWhat ",more ,in ,the ,name ,of ,love. 2140 DATA"‚One ",man ,caught ,on ,a ,barbed ,wire ,fence,"‚One ",man ,he ,re,sist.,"‚One ",man ,washed ,on ,an ,emp,ty ,beach,"‚One ",man ,be,trayed ,with ,a ,kiss. 2145 DATA"Look ",out ,for ,me.,"Look ",out ,for ,me.,"Come ",back ,to ,me. 2150 DATA"‚Ear",ly ,mor,ning ,A,pril ,four,"‚Shot ",rings ,out ,in ,the ,Mem,phis ,sky.,"‚Free ",at ,last ,they ,took ,your ,life,"‚They ",could ,not ,take ,your ,pride. 2270 DEFPROCend 2275 CLS 2280 FORN=0TO1:PRINTTAB(9,0+N)CHR$(141)"…Thanks For Listening";:NEXTN 2290 FORN=0TO1:PRINTTAB(7,2+N)CHR$141"‚I Hope That You Liked It!";:NEXTN 2300 FORQ=1TO5000:NEXT 2310 CLS 2320 FORN=0TO1:PRINTTAB(9,0+N)CHR$141"ƒPerformed By…-†U2";:NEXTN 2330 FORN=0TO1:PRINTTAB(0,2+N)CHR$141"‚Programmed By Kevan Cheyne…Aug 1988";:NEXTN 2335 FORQ=1TO7000:NEXT 2340 ENDPROC 2430 DEFPROCfade(jrl):vol=vol+20:PROCenv:RESTORE jrl:PROCplay:ENDPROC 5000 DEFPROCccl4_0482_655978 5010 CLS 5020 PRINT"„‡TETRACHLOROMETHANE - 0482 655798!" 5030 PRINT"„‡TETRACHLOROMETHANE - 0482 655798!" 5040 PRINT"”µ,,,,,,, ’ à¼ô” ,,,,,,,,,,,,,,,,,,,ê"; 5050 PRINT"”µ,,,,,,, ’ à· ¢í°‡”,,,,,,,,,,,,,,,,,,,ê"; 5060 PRINT"”µ,,,’ xl²m0  í‡And Channel-X Present"; 5070 PRINT"”µ,,,’ h0h% ktm ¢¡‘ àü|ô¨|ü° øÿÿÿÿÿÿµ" 5080 PRINT"”µ,,,’  k2mx'*v% ‘ øÿ¿«ÿý²ïÿôþÿ?¡”,,,,ê"; 5090 PRINT"”µ’ +vm0 p<,‘êÿ÷  âóó ûÿÿ÷ ”,,,,ê"; 5100 PRINT"—’t à!” ,,,,‘¢¯¯§¨¯¯¡  «ÿÿ´”,,,ê"; 5120 PRINT"’+tmk|' { h' ” ‘ÿÿÿÿÿÿÿÿÿÿÿÿ5”,,,ê"; 5130 PRINT"—’*~lr-.!à7—7sss+4 _pðð” ,,,,ê"; 5140 PRINT"”µ’*4¢£-$z —5ÿ5ÿ5uðpjhüjpppp” ,,,,,,,,,ê"; 5150 PRINT"”µ’ ë° è¥ —5ÿ5ÿ5h|jjjÿ_|ltj‡By U2”,,,,ê"; 5160 PRINT"”µ’ «  ª  —5ÿ5ÿ5bó¢sjÿjÿjÿj”,,,,,,,,,,ê"; 5170 PRINT"”µ,,,,,,,,,—5ÿ5¯!*/jÿjÿjÿjÿj”,,,,,,,,,,ê"; 5180 PRINT"”µ,,,,,,,,,—5ÿ5ÿ}o}jÿjÿjÿz¿jppp0” ,,,,,ê"; 5190 PRINT"”µ,,,,,,,,,—5ÿ5ÿ5h|jÿjÿ*ÿ|||||45” ,,,,,ê"; 5200 PRINT"”µ‡0482- —5/%ÿ5*/¢/./h,,,,,,,%‡ˆJrL‰”ê"; 5210 PRINT"”µ‡655798 —``5/%7`````` ” ,,,,,,,,,,,,ê"; 5220 PRINT"”õððððððððððð—```!”ððððððððððððððððððððú"; 5230 ENDPROC