0REM" NEW LIFE - 1985
10MODE7:VDU23,1,0;0;0;0;:FORT=0TO1:PR
INTCHR$141;SPC6;" Depeche Mode : New Lif
e":NEXT:PRINT" by Laurence Fenn (c)
BtA 1985":VDU28,0,24,39,4
20ONERRORGOTO2660
30DIMW$(320):PROCREAD:C%=1:DIMMUS$(3)
,E(3),N(3):TEMP=1:TU=0:W=4.3:KEY=1:VOL=1
26
40FORT%=0TO3:SOUNDT%,0,0,0:NEXT
50*FX21,4
60*FX21,5
70*FX21,6
80*FX21,7
90*FX15,0
100*FX200,2
110ENVELOPE1,1,0,0,0,0,0,0,127,-3,-5,-
5,VOL,0
120ENVELOPE2,1,0,0,0,0,0,0,127,-3,-5,-
5,VOL-36,0
130ENVELOPE3,1,0,0,0,0,0,0,80,-2,0,-2,
VOL-16,0
140ENVELOPE4,1,0,0,0,0,0,0,127,-3,-5,-
2,VOL-36,0
150ENVELOPE5,4,-48,1,-1,1,1,1,127,-3,-
5,-6,VOL-16,0
160ENVELOPE6,1,0,0,0,0,0,0,127,-3,-5,-
2,VOL-26,0
170ENVELOPE7,4,1,-1,0,1,1,0,100,0,0,-2
,VOL-16,0
180ENVELOPE8,2,1,0,0,120,0,0,127,0,0,-
1,VOL,0
190ENVELOPE9,2,0,0,0,0,0,0,127,-10,-5,
-7,VOL-26,0
200ENVELOPE10,4,1,-2,1,1,1,1,127,-3,-1
,-3,VOL-36,0
210ENVELOPE11,2,0,0,0,0,0,0,100,0,0,-1
,VOL-36,0
220ENVELOPE12,1,1,2,-3,50,20,70,100,0,
0,0,VOL-36,0
230P$="10245?6789:;10245@<=>9:;1ABACDE
FG1HHIJKLMNOOPPQRSTUVWVWVWVWVWX"
240FORJ%=1TOLENP$:D%=ASC(MID$(P$,J%,1)
)-&30
250REL%=D%*50+380
260RESTORE REL%:PROCP(D%):NEXT
270FORQ=1TO2000:NEXT:GOTO2660
280DEFPROCP(D%):FORX%=0TO3:READE(X%):N
EXT
290FORX%=0TO3:READMUS$(X%):NEXT:FORL%=
1TOLENMUS$(1):T=TIME+W:FORG%=1TO3
300P=4*ASC(MID$(MUS$(G%),L%,1)):B%=G%
OR &200:B%=B%OR-&1000*(P=128):P=P+(KEY*4
)-91*(G%=1ANDE(G%)=0):ENV=E(G%)
310SOUNDB%,ENV,P+TU,TEMP:PROCwrd:NEXT
320IFMUS$(0)=""SOUND-&1000*(MID$(MUS$(
1),L%,1)=" "),E(0),3,TEMP ELSE P=ASC(MID
$(MUS$(0),L%,1))-&30:SOUND-&1000*(P=-16)
,E(0),P,1
330IFINKEY(-99)NEXT:GOTO360
340IFJ%>56ANDVOL>37 VOL=VOL-.5:ENVELOP
E10,4,1,-2,1,1,1,1,127,-3,-1,-3,VOL-36,0
350REPEATUNTILTIME-T>W:NEXT
360ENDPROC
370::::TUNE DATA FOLLOWS:::::::::::
380DATA1,0,3,1
390DATA""
400DATA"N N N N N N N N N N N N N N N
N "
410DATA"B X N W U N X N W U B B B
B "
420DATA"N Z Z U N N N U Z N N N
N "
430DATA1,0,1,1
440DATA""
450DATA"N N N "
460DATA"B B B "
470DATA"N N N "
480DATA1,0,3,1
490DATA""
500DATA"N N N N N N N N N N N N N N N
"
510DATA"N X N W U N X N W U B B B
"
520DATA" Z Z U N N N U Z N N N
"
530DATA1,0,3,1
540DATA""
550DATA"N "
560DATA"B "
570DATA"N "
580DATA1,0,3,1
590DATA""
600DATA"L L L L G G G G N N N N N N N
N N "
610DATA"@ N X N W U N X N W U B B
B @ "
620DATA"L Z Z U N N N U Z N N
N L "
630DATA1,0,3,1
640DATA""
650DATA"L L L G G G G N N N N N N N "
660DATA"N X N W U N X N W U "
670DATA" Z Z U N N N U Z "
680DATA1,0,6,5
690DATA""
700DATA"L L L L G G G G N N N N N N N
N "
710DATA"X W R S U Z
UW"
720DATA"X X W S S S U W U U
W "
730DATA1,0,6,5
740DATA""
750DATA"L L L L G G G G N N N N N N N
N "
760DATA"X W R S U N
UW"
770DATA"X S S W W U N
N "
780DATA1,0,6,5
790DATA""
800DATA"L L L L G G G G N N N N N N N
N "
810DATA"X W R S U Z
UW"
820DATA"X X X X W S S S U U W U U
W "
830DATA1,0,6,5
840DATA""
850DATA"L L L L G G G G N N N N N N N
N "
860DATA"X W R S U N
"
870DATA"X S S W U N
"
880DATA1,0,2,5
890DATA""
900DATA"I I M I N I I I L L P L Q L P
L S S W S X S W S G G K G L G K G "
910DATA"U ½ Y U ½ Y U ½ X ` ½ X ` ½ X
` S Z W S Z W S Z S Z W S Z W S Z "
920DATA"U U U W X S S S
W S S W S S "
930DATA1,0,2,5
940DATA""
950DATA"I I M I N I I I L L P L Q L P
L S S W S X S W S G G K G L "
960DATA"U ½ Y U ½ Y U ½ X ` ½ X ` ½ X
` S Z W S Z W S Z S Z W S Z "
970DATA"U U U W X S S S
W S S W S S "
980DATA1,0,6,5
990DATA""
1000DATA"L L L L G G G G N N N N N N N
N "
1010DATA"X W R S U Z
UW"
1020DATA" X W S S S U W U U
W "
1030DATA1,0,6,5
1040DATA""
1050DATA"L L L L G G G G N N N N N N N
N "
1060DATA"X W R S U N
UW"
1070DATA"X S S W U N
N "
1080DATA1,0,6,5
1090DATA""
1100DATA"L L L L G G G G N N N N N N N
N "
1110DATA"X W R S U Z
UW"
1120DATA"X X W S S U W U U
W "
1130DATA1,0,6,5
1140DATA""
1150DATA"N "
1160DATA"UW"
1170DATA"W "
1180DATA1,0,6,5
1190DATA""
1200DATA"N "
1210DATA"UW"
1220DATA" "
1230DATA1,0,7,1
1240DATA""
1250DATA"N N N N N N N N N N N N N N N
N "
1260DATA"N P R
"
1270DATA"B Z U N N N N U Z B B
B "
1280DATA1,0,7,1
1290DATA""
1300DATA"N N N N N N N N N N N N N N N
N "
1310DATA"R P N
"
1320DATA"B Z U N N N N U Z B B
B "
1330DATA1,0,7,1
1340DATA""
1350DATA"N N N N N N N N "
1360DATA"R S U "
1370DATA" Z Z U N N "
1380DATA1,0,1,8
1390DATA""
1400DATA"N N N N N N N "
1410DATA"N N U Z "
1420DATA"B "
1430DATA0,0,0,5
1440DATA""
1450DATA"
"
1460DATA"
"
1470DATA"N X X W S S S U W U U
W X S S W U N "
1480DATA0,0,0,5
1490DATA""
1500DATA"
"
1510DATA"
"
1520DATA"N X X X X W S S U U W U U
W X S S W U N "
1530DATA0,0,0,5
1540DATA""
1550DATA"
"
1560DATA"
"
1570DATA"U U U W X S S S
W S S W S S U U
U W X S S S W S S
W S S "
1580DATA1,0,9,3
1590DATA""
1600DATA"N N N N N N N N N N N N N N N
N "
1610DATA"f m j f m j f m f m j f m j f
m "
1620DATA"B N X N W U N X N W U B B
B "
1630DATA1,0,9,3
1640DATA""
1650DATA"L L L L G G G G N N N N N N N
N "
1660DATA"d k h d ` f c ` f m j f m j f
m "
1670DATA"@ N X N W U N X N W U B B
B "
1680DATA1,0,9,3
1690DATA""
1700DATA"L L L L G G G G N N N N N N N
"
1710DATA"d k h d ` f c ` f m j f m j f
"
1720DATA"@ N X N W U N X N W U
"
1730DATA1,0,9,5
1740DATA""
1750DATA"N L L L L G G G G N N N N N N
N N "
1760DATA"m d k h d ` f c ` f m j f m j
f m "
1770DATA"N X X W S S S U W U U
W "
1780DATA1,0,9,5
1790DATA""
1800DATA"L L L L G G G G N N N N N N N
N "
1810DATA"d k h d ` f c ` f m j f m j f
m "
1820DATA"X S S W W U N
N "
1830DATA1,0,9,5
1840DATA""
1850DATA"L L L L G G G G N N N N N N N
N "
1860DATA"d k h d ` f c ` f m j f m j f
m "
1870DATA"X X X X W S S S U U W U U
W "
1880DATA1,0,9,5
1890DATA""
1900DATA"L L L L G G G G N N N N N N N
N "
1910DATA"d k h d ` f c ` f m j f m j f
m "
1920DATA"X S S W U N
"
1930DATA1,0,10,5
1940DATA""
1950DATA"I I M I N I I I L L P L Q L P
L S S W S X S W S G G K G L G K G "
1960DATA"U Y ½ a a a X ½ ` d d
d S W Z ` ` ` S W Z ` ` ` "
1970DATA"U U U W X S S S
W S S W S S "
1980DATA1,0,10,3
1990DATA""
2000DATA"N N N N N N N N N N N N N N N
N N N N N N N N N N N N N N N N N "
2010DATA"d c a Z Z
Z d c a f f f "
2020DATA" N X N W U N X N W U
N X N W U N X N W U "
2030DATA1,0,10,11
2040DATA""
2050DATA"N N N N N N N N N N N N N N N
N "
2060DATA"L P S G K N N R U Z U R
N "
2070DATA"NNNNNNNNNNNNNNNNNNNNNNNNNNNNNN
NN"
2080DATA1,0,10,11
2090DATA""
2100DATA"N N N N N N N N N N N N N N N
N "
2110DATA"L P S G K N N R U Z U R
N "
2120DATA"RRRRRRRRRRRRRRRRRRRRRRRRRRRRRR
RR"
2130DATA1,0,10,11
2140DATA""
2150DATA"N N N N N N N N N N N N N N N
N "
2160DATA"L P S G K N N R U Z U R
N "
2170DATA"UUUUUUUUUUUUUUUUUUUUUUUUUUUUUU
UU"
2180DATA1,0,10,11
2190DATA""
2200DATA"N N N N N N N N N N N N N "
2210DATA"L P S G K N N R U Z "
2220DATA"XXXXXXXXXXXXXXXXXXXXXXXXXX"
2230DATA1,0,10,12
2240DATA""
2250DATA"N N N "
2260DATA"U R N "
2270DATA"N "
2280DATA1,0,10,10
2290DATA""
2300DATA"L L L L G G G G N N N N N N N
N "
2310DATA"L P S G K N N R U Z U R
N "
2320DATA"Z Z ½ Z ^ Z a a ^ f Z a ` ^
` "
2330DATA1,0,10,10
2340DATA""
2350DATA"L L L L G G G G N N N N N N N
N "
2360DATA"L P S G K N N R U Z U R
N "
2370DATA"Z Z ½ Z ^ Z a a ` ^ ` ^ ½ ^
Z "
2380DATA11,0,11,11
2390DATA""
2400DATA"N "
2410DATA"N "
2420DATA"N "
2430DEFPROCwrd
2440IFNOT(B%<4600 AND E(3)=5 AND G%=3)
ENDPROC
2450IFW$(C%)="&"CLS:C%=C%+1
2460IFW$(C%)="#"PRINT:C%=C%+1
2470IFW$(C%)="$"PRINT:VDU11:C%=C%+1
2480IFW$(C%)="%"PRINT:C%=C%+1
2490PRINTW$(C%);:C%=C%+1
2500ENDPROC
2510DEFPROCREAD
2520RESTORE2530:A=0:REPEAT:A=A+1:READW$
(A):UNTILW$(A)="":ENDPROC
2530DATAI ,stand ,still ,step,ing
2540
2550REM" there's a reason! ^
2560
2570DATAon ,a ,shade,d ,street,$,And ,I
,watch ,that ,man ,to ,a ,strange,r.,#,
You ,think ,you ,on,ly ,know ,me ,#,When
,you ,turn ,on ,the ,"light,",#,Now ,th
e ,room ,is ,lit ,with ,dang,er.,#
2580DATA%,Com,pli,ca,"ting,",cir,cu,la,
"ting,",#,Ne,w ,"life,",#,Ne,w ,life.,#,
Op,er,a,"ting,",gen,er,a,"ting,",#,Ne,w
,"life,",#,Ne,w ,life.
2590DATA&,Tran,si,tion ,to ,a,noth,er ,
place ,#,Or ,the ,time ,will ,pass ,more
,slow,ly.,#,You ,keep ,your ,"views, ",
#,And ,your ,shad,ows ,"wrecked, ",#,Lik
e ,a ,film ,I've ,"seen, ",now ,show ,me
.
2600DATA#,%,Com,pli,ca,"ting,",cir,cu,l
a,"ting,",#,Ne,w ,"life,",#,Ne,w ,life.,
#,Op,er,a,"ting,",gen,er,a,"ting,",#,Ne,
w ,"life,",#,Ne,w ,life.,&
2610DATAA ,space ,is ,hid,"den, ",#,And
,we're ,out ,of ,sight ,#,And ,the ,roa
d ,just ,leads ,to ,no,where.,#,The ,str
an,ger ,in ,the ,door ,#,Is ,the ,same ,
as ,be,fore ,#,So ,the ,ques,tion ,ans,w
ers ,no,where.,#
2620DATA%,Com,pli,ca,"ting,",cir,cu,la,
"ting,",#,Ne,w ,"life,",#,Ne,w ,life.,#,
Op,er,a,"ting,",gen,er,a,"ting,",#,Ne,w
,"life,",#,Ne,w ,life.,&
2630DATAI ,stand ,still ,step,ing ,on ,
a ,shade,d ,street,$,And ,I ,watch ,that
,man ,to ,a ,strange,r.,#,You ,think ,y
ou ,on,ly ,know ,me ,#,When ,you ,turn ,
on ,the ,"light,",#,Now ,the ,room ,is ,
lit ,with ,dang,er.,#
2640DATA%,Com,pli,ca,"ting,",cir,cu,la,
"ting,",#,Ne,w ,"life,",#,Ne,w ,life.,#,
Op,er,a,"ting,",gen,er,a,"ting,",#,Ne,w
,"life,",#,Ne,w ,life.,#,%
2650DATA""
2660MODE7
2670VDU23;10,32;0;0;0;
2680VDU&98,&1C,1,0,1,0
2690*EXEC !BOOT
2700END