10MODE7:VDU23;8202;0;0;0;:PROCtitle:P
ROCvaribles:PROCwords:PROCintro`envs
15P$="0":PROCmusic:SOUND0,0,0,1:PROCf
ade`envelopes:PROCenvelopes:P$="12345678
9:;<=>;?@A@BCD=>E?@A@BFGHIJKLMNO;?@A@BPQ
RSTUTVW":PROCmusic:PROCfade:PROCend
20DEFPROCvaribles:v=0:D=0:N=1:I=0:T%=
40:FORC=0TO3:SOUNDC,0,0,1:NEXTC:DIMm$(4)
,e$(4),S(3),W$(395):ONERRORPROCend
23PRINT''''
25WP$="012553556455555555":IFINKEY(-2
56)=253 OR INKEY(-256)=245 T%=T%+30
40ENDPROC
50DEFPROCwords:FORJ=1TOLENWP$:D%=ASCM
ID$(WP$,J,1)-&30:R%=D%*20+4000:RESTORE R
%:REPEAT:I=I+1:READW$(I):UNTILW$(I)="E":
I=I-1:NEXT:ENDPROC
60DEFPROCmusic:FORJ=1TOLENP$:D%=ASCMI
D$(P$,J,1)-&30:R%=D%*90+400:RESTORE R%:P
ROCplay:NEXT:ENDPROC
70DEFPROCplay:FORX=0TO3:READm$(X):NEX
T:FORX=0TO3:READe$(X):NEXT:READwd$:FORL=
1TOLENm$(0)
80IFMID$(wd$,L,1)=","PRINTW$(N);:N=N+
1
90IFMID$(wd$,L,1)="/"PRINT
100FORV=1TO3:P=4*ASCMID$(m$(V),L,1):E$
=MID$(e$(V),L,1):IFMID$(m$(V),L,1)=""THE
NP=128
110IFE$=" "ORE$=""S(V)=S(V):GOTO130
120S(V)=ASC(E$)-&40
130G%=V OR &200:G%=G% OR -&1000*(P=128
):P=P:SOUNDG%,S(V),P,1:NEXT
140P=ASCMID$(m$(0),L,1)-&30:E$=MID$(e$
(0),L,1):IF E$=" "ORE$=""THEN D=D:GOTO 1
60
150D=ASC(E$)-&40
160SOUND-&1000*(P=-16),D,P,1
170FORtime=1TOT%:NEXTtime:NEXT:ENDPROC
180DEFPROCfade:QQ=4180:F=9:T%=T%+4:REP
EAT:v=v+F:PROCfade`envelopes:RESTORE QQ:
PROCplay:QQ=QQ+90:F=F+2:UNTILQQ=4810:END
PROC
400DATA" 4 4 4 4 4
"
410DATA"] [] ["
420DATA"Q OQ O"
430DATA"Q OQ O O O O O"
440DATA" A B C A B
"
450DATA"D"
460DATA"E"
470DATA"D E F G GH"
480DATA", ,, , //////"
490DATA"6 4 446 6 4 4 5 6 4 446 6 4 4
5 "
500DATA"V R T V
T"
510DATA"VV] [ ]V V] bb] VV] [ ]V V] XX
Y"
520DATA"J J JE F FFH HH HC J
FH"
530DATA"M L KLM L KLN M L KLM L KL
N"
540DATA"G E
G"
550DATA"C"
560DATA"D"
570DATA""
580DATA"6 4 446 6 4 4 5 6 4 446 6 4 4
5 "
590DATA"V R T V
T"
600DATA"VV] [ ]V V] bb] VV] [ ]V V] XX
Y"
610DATA"J J JE F FFH HH HC J
EE"
620DATA"M L KLM L KLN M L KLM L KL
N"
630DATA"G E
G"
640DATA"C"
650DATA"D"
660DATA""
670DATA"6 4 446 6 4 4 5 6 4 446 6 4 4
5 "
680DATA"V T Q V
T"
690DATA"VV] [ ]V V] bb] VV] [ ]V V] XX
Y"
700DATA"C C CC H HFE EE EJ J J H"
710DATA"M L KLM L KLN M L KLM L KL
N "
720DATA"G E
G"
730DATA"C"
740DATA"D"
750DATA""
760DATA"6 4 446 6 4 4 5 6 4 446 6 4 4
5 "
770DATA"V T Q V
T"
780DATA"VV] [ ]V V] bb] VV] [ ]V V] XX
Y"
790DATA"C C CC H HFE EE EJ J H J"
800DATA"M L KLM L KLN M L KLM L KL
N"
810DATA"G E
G"
820DATA"C"
830DATA"D"
840DATA"/"
850DATA"6 4 446 6 4 4 5 6 4 446 6 4 4
5 "
860DATA"V V R V V XV T V TVY
XV"
870DATA"VV] [ ]V V] bb] VV] [ ]V V] XX
Y"
880DATA"J J JE F FFH HH HC J
FH"
890DATA"M L KLM L KLN M L KLM L KL
N"
900DATA"G E H E H"
910DATA"C"
920DATA"D"
930DATA""
940DATA"6 4 446 6 4 4 5 6 4 446 6 4 4
5 "
950DATA"V V R VT V @TTV VY YX V
T"
960DATA"VV] [ ]V V] bb] VV] [ ]V V] XX
Y"
970DATA"J J JE F FFH HH HC J
EE"
980DATA"M L KLM L KLN M L KLM L KL
N"
990DATA"G E H @H
G"
1000DATA"C"
1010DATA"D"
1020DATA""
1030DATA"6 4 446 6 4 4 5 6 4 446 6 4 4
5 "
1040DATA"V C CC H V VTT EE EJ T TV
V"
1050DATA"VV] [ ]V V] bb] VV] [ ]V V] XX
Y"
1060DATA"Y [ [ ]
T"
1070DATA"M L KLM L KLN M L KLM L KL
N"
1080DATA"GD H D H"
1090DATA"C"
1100DATA"F
G"
1110DATA""
1120DATA"6 4 446 6 4 4 5 6 4 44444 4
"
1130DATA"V C CC H VT V EE EJ T V
"
1140DATA"VV] [ ]V V] bb] VV] [ ]VT ] V
Y"
1150DATA"Y [ [ J H J"
1160DATA"M L KLM L KLN M L KLK"
1170DATA"GD H D H
"
1180DATA"C H C HC
"
1190DATA"F D"
1200DATA"/"
1210DATA"6 4 446 6 4 4 5 6 4 446 6 4 4
5 "
1220DATA"J J JE F FFH HH HC J
FH"
1230DATA"V R T T"
1240DATA" Q YY X V VR T"
1250DATA"M L KLM L KLN M L KLM L KL
N"
1260DATA"D"
1270DATA"E"
1280DATA"A"
1290DATA" , ,, , / , ,, , /"
1300DATA"6 4 446 6 4 4 5 6 4 446 6 4 4
5 "
1310DATA"J J JE C FFH HH HC J O
Q"
1320DATA"V R T V"
1330DATA" Q YY X Y X VV R T"
1340DATA"M L KLM L KLN M L KLM L KL
N"
1350DATA"D P"
1360DATA"E"
1370DATA"A"
1380DATA" , ,, , , , / ,, , , /"
1390DATA"6 4 446 6 4 4 5 6 4 446 6 4 4
5 "
1400DATA"M @C CC H HFE EE EJ J J M"
1410DATA"Y [ [ ]"
1420DATA" T ] ] ] YY ] V ][ ]"
1430DATA"M L KLM L KLN M L KLM L KL
N"
1440DATA"P @D P"
1450DATA"F"
1460DATA"A"
1470DATA" , , , , ,, , / , ,, , /"
1480DATA"6 4 446 6 4 4 5 6 4 446 6 4 4
4 "
1490DATA"J @C CC H HFE E EJ J H J"
1500DATA"Y [ [ ]"
1510DATA" T ] ] ] YY ] V ][ ]"
1520DATA"M L KLM L KLN M L KLM LK"
1530DATA"P @D"
1540DATA"F"
1550DATA"A"
1560DATA" , , , , ,, , / , ,, , //"
1570DATA"6 4 446 6 4 4 5 6 4 446 6 4 4
5 "
1580DATA"J JVJE F V FFH HHVHC J V
FH"
1590DATA"Q M O M"
1600DATA" Q YY X V VR T"
1610DATA"M L KLM L KLN M L KLM L KL
N"
1620DATA"D ND ND ND ND
"
1630DATA"O"
1640DATA"A"
1650DATA" , ,, , / , ,, , /"
1660DATA"6 4 446 6 4 4 5 6 4 446 6 4 4
5 "
1670DATA"J JVJE C V FFH HHVHC J O
Q"
1680DATA"Q M O Q"
1690DATA" Q YY X Y X VV R T"
1700DATA"M L KLM L KLN M L KLM L KL
N"
1710DATA"D ND ND ND P"
1720DATA"O"
1730DATA"A"
1740DATA" , ,, , , , / ,, , , /"
1750DATA"6 4 446 6 4 4 5 6 4 446 444 4
4 "
1760DATA"J @C CC H HFT E EJ TTT V"
1770DATA"Y [ [ ]"
1780DATA" T ] ] ] YY ] V ][ ]"
1790DATA"M L KLM L KLN M L KLM K"
1800DATA"H @D HD OPH"
1810DATA"F"
1820DATA"A"
1830DATA" , , , , ,, , / , ,, , //"
1840DATA"6 4 446 6 4 4 5 6 4 446 6 4 4
5 "
1850DATA"V C CC H HFE EE EJ J J H
T"
1860DATA"VV] [ ]V V] bb] VV] [ ]V V] XX
Y"
1870DATA" ] [] [ £ ] Y V
Y "
1880DATA"M L KLM L KLN M L KLM L KL
N"
1890DATA"GD
G"
1900DATA"C"
1910DATA"B A"
1920DATA" , ,, , / , , , ,
,"
1930DATA"6 4 446 6 4 4 5 6 4 446 6 4 4
5 "
1940DATA"V C CC H HFT Q M
T"
1950DATA"VV] [ ]V V] bb] VV] [ ]V V] XX
Y"
1960DATA" ] [] [ £ £ ] Y V
"
1970DATA"M L KLM L KLN M L KLM L KL
N"
1980DATA"GD F
G"
1990DATA"C"
2000DATA"B A"
2010DATA"/ , ,, , / , , , , ,
//"
2020DATA"6 4 446 6 4 4 5 6 4 446 6 4 44
4 "
2030DATA"V C CC H HFE EE EJ T V"
2040DATA"VV] [ ]V V] bb] VV] [ ]V V] XX
Y"
2050DATA" ] [] [ £ £ ] Y V"
2060DATA"M L KLM L KLN M L KLM L K"
2070DATA"GD H"
2080DATA"C"
2090DATA"B"
2100DATA"/ , ,, , / , , , , ,
//"
2110DATA"6 4 446 6 4 4 5 6 4 446 6 4 4
5 "
2120DATA"C C CC H HFE EE EJ J J H"
2130DATA"Y [ [ ]"
2140DATA" ]] ] ] YY ] ] ][ ]"
2150DATA"M L KLM L KLN M L KLM L KL
N"
2160DATA"D"
2170DATA"O"
2180DATA"I"
2190DATA"/ / / / / / / / / / / / / / /
/ "
2200DATA"6 4 446 6 4 4 5 6 4 446 6 4 4
44"
2210DATA"C C CC H HFE EE EJ J H J"
2220DATA"Y [ [ ]"
2230DATA" ]] ] ] YY ] ] ][ ]T V"
2240DATA"M L KLM L KLN M L KLM L K"
2250DATA"D"
2260DATA"O"
2270DATA"I H"
2280DATA"/ / / / / / / / / / / / / / /
/ "
2290DATA"6 4 446 6 4 4 5 6 4 446 6 4 4
5 "
2300DATA"M @C CC H HFE EE E Y Y Y"
2310DATA"Y [ [ Q VY ] ] V]
V"
2320DATA" T ] ] ] YY ] V ][ ] M"
2330DATA"M L KLM L KLN M L KLM L KL
N"
2340DATA"P @D J"
2350DATA"F J"
2360DATA"A P"
2370DATA" , , , , ,, , / , ,, , /"
2380DATA"6 4 446 6 4 4 5 6 4 446 6 4 4
4 "
2390DATA"M M MH A HHJ J JC J
JJ"
2400DATA"] ["
2410DATA"Y V"
2420DATA"M L KLM L KLN M L KLM L K"
2430DATA"D"
2440DATA"O"
2450DATA"O"
2460DATA"////, / , / ,
/"
2470DATA"6 4 446 6 4 4 5 6 4 446 6 4 4
44"
2480DATA"M M MH A HHJ J JC J
JJ"
2490DATA"] ["
2500DATA"Y V"
2510DATA"M L KLM L KLN M L KLM L K"
2520DATA"D"
2530DATA"O"
2540DATA"O"
2550DATA" , //////"
2560DATA"6 4 446 6 4 4 5 6 4 446 6 4 4
5 "
2570DATA"F F FA F FFH H HC H
HH"
2580DATA"Y V R ] [ X"
2590DATA"V X"
2600DATA"M L KLM L KLN M L KLM L KL
N"
2610DATA"D"
2620DATA"F"
2630DATA"O"
2640DATA""
2650DATA"6 4 446 6 4 4 5 6 4 446 6 4 4
44"
2660DATA"F F FA F FFH H HC H
HH"
2670DATA"Y V R ] [
T"
2680DATA"V X"
2690DATA"M L KLM L KLN M L KLM L K"
2700DATA"D"
2710DATA"F G"
2720DATA"O"
2730DATA""
2740DATA"6 4 446 6 4 4 5 6 4 446 6 4 4
5 "
2750DATA"J J JE F FFH HH HC J
FH"
2760DATA" VY] Y V TX[ X Y"
2770DATA"V @
T"
2780DATA"M L KLM L KLN M L KLM L KL
N"
2790DATA"D"
2800DATA"J"
2810DATA"G @G"
2820DATA""
2830DATA"6 4 446 6 4 4 5 6 4 446 6 4 4
4 "
2840DATA"J J JE F FFH HH HC J
FH"
2850DATA" VY] Y V TX[ X Y"
2860DATA"V @ T V"
2870DATA"M L KLM L KLN M L KLM L K"
2880DATA"D"
2890DATA"J"
2900DATA"G @H"
2910DATA""
2920DATA"6 4 446 6 4 4 5 6 4 446 6 4 4
4 "
2930DATA"V F FF H FFE E EE J
T"
2940DATA"VV] [ ]V V] bb] VV] [ ]V V] XX
Y"
2950DATA" ] [] [ QQQ TTT"
2960DATA"M L KLM L KLN M L KLM L KL
N"
2970DATA"GD
G"
2980DATA"C"
2990DATA"B OPH OPH"
3000DATA" , ,, , /"
3010DATA"6 4 446 6 4 4 5 6 4 446 6 4 4
5 "
3020DATA"V F FF H FFE E EE T V"
3030DATA"VV] [ ]V V] bb] VV] [ ]V V] XX
Y"
3040DATA" ] [] [ £ ] Y"
3050DATA"M L KLM L KLN M L KLM L KL
N"
3060DATA"GD H"
3070DATA"C"
3080DATA"B F"
3090DATA" , ,, , / //////
"
3100DATA"5 4 45 5 4 5 5 4 45 5 4
5 "
3110DATA"J JV E F V FFH HHV C J V
FH"
3120DATA"Q M O M"
3130DATA" Q YY X V VR T"
3140DATA"N L LN L LN N L LN L L
N"
3150DATA"D JD JD JD JD
"
3160DATA"E"
3170DATA"A"
3180DATA" , ,, , / , ,, , /"
3190DATA"5 4 45 5 4 5 5 4 45 5 4 4
4 "
3200DATA"J JV E C V FFH HHV C J O
Q"
3210DATA"Q M O Q"
3220DATA" Q YY X Y X VV R T"
3230DATA"N L LN L LN N L LN L K"
3240DATA"D JD JD JD P"
3250DATA"E"
3260DATA"A"
3270DATA" , ,, , , , / ,, , , /"
3280DATA" 44 4444 4 44 4444 4
"
3290DATA" ] [] [ £ ] Y V
Y "
3300DATA"F H E J"
3310DATA"M V O V O V Q V"
3320DATA"L"
3330DATA"B A"
3340DATA"O"
3350DATA"E J E J E J E J"
3360DATA" , ,, , / , , , ,
,"
3370DATA" 44 4444 4 44 4444 4
4 "
3380DATA" ] [] [ £ £ ] Y V
"
3390DATA"F H E J"
3400DATA"M V O V O V Q V"
3410DATA"L K"
3420DATA"B A"
3430DATA"O"
3440DATA"E J E J E J E J"
3450DATA"/ , ,, , / , , , , ,
//"
3460DATA"6 4 446 6 4 4 5 6 4 446 6 4 4
5 "
3470DATA" ] [] [ £ ] Y V
Y "
3480DATA"V CVCC H V V E EE EJ J J H
T"
3490DATA"M V O V V O V Q V"
3500DATA"M L NLM L NLN M L NLM L NL
N"
3510DATA"B A"
3520DATA"GD HD H D
G"
3530DATA"E H E P E J E J"
3540DATA" , ,, , / , , , ,
,"
3550DATA"6 4 446 6 4 4 5 6 4 446 6 4 4
44"
3560DATA" ] [] [ £ £ ] Y V
"
3570DATA"V C CC H HFE EE EJ T V"
3580DATA"M V O V O V Q V"
3590DATA"M L NLM L NLN M L NLM K"
3600DATA"B A"
3610DATA"GD H"
3620DATA"E J E J E J E J"
3630DATA"/ , ,, , / , , , , ,
//"
3640DATA"6 4 446 6 4 4 5 6 4 446 6 4 4
5 "
3650DATA"V C CC H HFE EE EJ TVYYV
T"
3660DATA"VV] [ ]V V] bb] VV] [ ]V V] XX
Y"
3670DATA" ] [] [ £ ] Y V
Y "
3680DATA"M L KLM L KLN M L KLM L KL
N"
3690DATA"GD H
G"
3700DATA"C"
3710DATA"B A"
3720DATA" , ,, , / , , , ,
,"
3730DATA"6 4 446 6 4 4 5 6 4 446 6 4 4
44"
3740DATA"V C CC H HFE EEJ TVY YX V
T"
3750DATA"VV] [ ]V V] bb] VV] [ ]V V] XX
Y"
3760DATA" ] [] [ £ £ ] Y V
"
3770DATA"M L KLM L KLN M L KLM L K"
3780DATA"GD H"
3790DATA"C"
3800DATA"B A"
3810DATA"/ , ,, , / , , , , ,
//"
3820DATA"6 4 446 6 4 4 5 6 4 446 6 4 4
4 "
3830DATA"V C CC H HFE EEJ TVY YX V
T"
3840DATA" VXY^]]^^]^£]]]]]]]]]]]]
½]"
3850DATA" ] [] [ £ £ ] Y V
"
3860DATA"M L KLM L KLN M L KLM K"
3870DATA"GD H"
3880DATA"H"
3890DATA"B A"
3900DATA"/ , ,, , / , , , , ,///
//"
3910DATA"6 4 446 6 4 4 5 6 4 446 6 4 4
5 "
3920DATA"V C CC H HFE EE EJ TVYYV
T"
3930DATA"VV] [ ]V V] bb] VV] [ ]V V] XX
Y"
3940DATA"bde ee dedbb £ b£]]]]]]]]"
3950DATA"M L KLM L KLN M L KLM L KL
N"
3960DATA"GD H
G"
3970DATA"C"
3980DATA"H"
3990DATA""
4000DATA" All ","day, ",all ,day!,E
4020DATA" I ",don't ,know ,"why,"," I "
,don't ,know ,"how,"," I ",thought ,it ,
looked ,good ,"but,"," I'm ",not ,sure ,
"now,"," I've ",seen ,it ,fall ,to ,piec
,"es,"," Too ",ma,ny ,"times,"," The ",g
lue ,I ,"want, ",is ,of ,a," a ",dif
4030DATAferent ,kind.,E
4040DATA" Re",mem,ber ,we ," thought ",
it ,would be ,"fun,"," We ",pro,grammed
,Au,to,"cad,"," How ",good ,it ,"seemed,
"," I ",ne,ver ,thought ,of ,pro,"blems,
"," As ",Ger,ald ,"said,"," And ",when ,
I ,tried ,to ,make ,"it,"," It ",fell
4050DATA" like ",lead!,E
4060DATA" I ",thought ,that ,I'd design
ed," A ",fool,proof ,"thing,"," But ",no
w ,I ,know ,it ,"is,"," A ",dif,ferent ,
"game,"," I ",know ,that ,I ,should ,sli
ng ,"it,"," Out ",through ,the ,"door,",
" And ",Sav,ille's ,nicked ,the ,ca
4065DATA"ble,",
4070DATA" From ",the ,store.,E
4080DATA" I ",don't ,know ,"why,"," I "
,don't ,know ,"how,"," I ",thought ,I'd
,fixed ,it ,"but,"," I'm ",not ,sure ,"n
ow,"," I've ",seen ,the ,Nim,bus ,crash,
"ing,"," The ",screen ,is ,"dark,"
4085DATA" And ",I've ,had ,prob,lems ,w
ith," it,"," Right ",from ,the ,start.,E
4090DATA" heart.",E
4100DATA" All ","day, ",all ,"day, ","
Watch ",it ,all ,fall ,"down,"," All ","
day, ",all ,"day, "," A-",Lev,el ,Pro,je
ct.,E
4120DATA" When you look around,"," you
wonder,"," Do you just build it,"," or a
re you REALLY stupid?"," All ","day, ",a
ll ,"day, "," All ","day, ",all ,day.,E
4180DATA"6 4 446 6 4 4 5 "
4190DATA"V C CC H HF"
4200DATA"VV] [ ]V V] bb] "
4210DATA" ^ ^^"
4220DATA"M L KLM L KL"
4230DATA"GD"
4240DATA"C"
4250DATA"H"
4260DATA""
4270DATA"6 4 446 6 4 4 44"
4280DATA"E EEJ TVY YX VT"
4290DATA"VV] [ ]V V] XXY"
4300DATA" ] ]] V]£"
4310DATA"M L KLM L K"
4320DATA" H G"
4330DATA"C"
4340DATA"H"
4350DATA""
4360DATA"6 4 446 6 4 4 5 "
4370DATA"V C CC H HF"
4380DATA"VV] [ ]V V] bb]"
4390DATA"^] [ Y X V T R"
4400DATA"M L KLM L KL"
4410DATA"GD"
4420DATA"C"
4430DATA"H"
4440DATA""
4450DATA"6 4 446 "
4460DATA"E EE EJ "
4470DATA"VV] [ ]V"
4480DATA"V V YXVT"
4490DATA"M L KLM"
4500DATA" H "
4510DATA"C"
4520DATA"H"
4530DATA""
4540DATA"6 4 4 5 "
4550DATA"TVYYV T"
4560DATA" V] XXY"
4570DATA" V T"
4580DATA" L KL"
4590DATA" G"
4600DATA"C"
4610DATA"H"
4620DATA""
4630DATA"6 4 446 "
4640DATA"V C CC H"
4650DATA"VV] [ ]V"
4660DATA"T V V XY"
4670DATA"M L KLM"
4680DATA"GD"
4690DATA"C"
4700DATA"H"
4710DATA""
4720DATA"6 4 4 4 "
4730DATA"H HF"
4740DATA"V] bb] V"
4750DATA"Y V R O"
4760DATA"M L KL"
4770DATA"GD"
4780DATA"C"
4790DATA"H"
4800DATA""
5100DEFPROCenvelopes
5110ENVELOPE 1,4,1,-1,1,1,2,1,105,-2,-4
,-3,115,60
5120ENVELOPE 2,5,0,-1,1,1,1,1,126,-1,-1
,-2,118,10
5150ENVELOPE 5,6,0,0,0,0,0,0,127,0,0,0,
65,55
5160ENVELOPE 6,4,1,-1,1,1,2,1,126,-1,-1
,-1,105,95
5190ENVELOPE 9,130,1,-1,0,1,1,0,127,-10
,-5,-5,110,0
5200ENVELOPE 10,1,0,0,0,0,0,0,127,-1,-1
,-2,118,10
5240ENVELOPE 14,1,0,0,0,0,0,0,90,-30,-1
0,-2,115,50
5250ENVELOPE 15,6,0,0,0,0,0,0,127,0,0,-
1,90,70
5260ENVELOPE 16,18,0,0,0,0,0,0,127,-20,
-20,-20,120,100
5270ENDPROC
5300DEFPROCfade`envelopes
5310ENVELOPE 3,1,0,0,0,0,0,0,127,-3,-2,
-2,110-v,50-(v/2)
5320ENVELOPE 4,2,0,0,0,0,0,0,127,-14,-1
4,-4,126-v,40-(v/2)
5330ENVELOPE 7,4,0,0,0,0,0,0,127,127,-1
0,-3,126-v,126-v
5340ENVELOPE 11,1,0,0,0,0,0,0,127,0,-40
,-3,120-v,96-v
5350ENVELOPE 12,1,0,0,0,0,0,0,127,-25,-
4,-3,115-v,0
5360ENVELOPE 13,2,0,0,0,0,0,0,127,-50,-
6,-4,122-v,0
5370ENVELOPE 8,7,0,0,0,0,0,0,127,60,-50
,-6,126-v,0
5380ENDPROC
5500DEFPROCintro`envs
5510ENVELOPE 1,1,0,0,0,0,0,0,127,0,-40,
-3,126,96
5520ENVELOPE 2,1,0,0,0,0,0,0,127,0,-30,
-4,96,66
5530ENVELOPE 3,1,0,0,0,0,0,0,127,0,-20,
-5,66,36
5540ENVELOPE 4,5,1,-1,1,1,2,1,126,-1,-2
,-3,110,80
5550ENVELOPE 5,5,1,-1,1,1,2,1,126,-1,-2
,-6,100,0
5560ENVELOPE 6,4,1,-1,1,1,2,1,126,-8,-2
,-4,80,0
5570ENVELOPE 7,4,1,-1,1,1,2,1,126,-8,-2
,-4,60,0
5580ENVELOPE 8,4,1,-1,1,1,2,1,126,-8,-2
,-4,40,0
5590ENDPROC
6040DEFPROCend:CLS
6041PRINT" Written partly to annoy QEGS
Computer Centre and for QEGS DT Depar
tment."
6060END
9000DEFPROCtitle
9010CLS
9011PRINT"
,,,,,,,((((";
9015PRINT" Fantastically Fruity freak
ouT Music"
9016PRINT" presents"
9020PRINT"
,,,,,,,,,,,";
9030PRINT"
(Watch It All Fall D
own)
,,,,,,,((((";
9035PRINT''''''''
9040PRINT'"
,,,,,,,,,,,,";
9041PRINT" A tale of doom and despond
ency from a prospective A-Level cand
idate...! Music by Danny Pugh, Words
by Joel.
,,,,,,,((((";
9042VDU28,0,16,39,9
9050ENDPROC