50 *FX 13,1
60MODE7:PRINTTAB(11,1)CHR$132;CHR$141
;"****************"
65VDU23;8202;0;0;0;
70PRINTTAB(11)CHR$132;CHR$141;"******
**********"
80FORI=0TO1:PRINTTAB(11)CHR$132;CHR$1
41;"*";CHR$131;"GOLDEN BROWN";CHR$132;"*
":NEXT
90FORI=0TO1:PRINTTAB(11)CHR$132;CHR$1
41;"****************":NEXT
100PRINTTAB(19,7)CHR$134;"by"
110PRINTTAB(13)CHR$134;"The Stranglers
"
111PRINT';CHR$131;" b # b # # b # b
# # b # b # # b "CHR$131;"ABBCCDEEFF
GGABBCCDEEFFGGABBCCDEEFFGGABB";CHR$30
115DIMOV%(2),Y%(2),NY%(2)
120?&7DE0=&84:?&7E30=&82:?&7E80=&81
130!&7E08=&9D86:!&7E58=&9D86
140A1=30:A2=127:O=1:GT=2:DF=0
150ENVELOPE1,1,0,0,0,2,2,2,A1,0,0,255,
128,1
160ENVELOPE2,1,0,0,0,1,1,1,A2,0,0,255,
128,1
170S$="BVCXZQAWSEDFTGYHJIKOLP;:[]`1234
567"
180ONGT GOTO350,390,430,470 ELSEGT=1:G
OTO350
190DL=16:T%=1
200FORK=1TOLENT$:T=TIME+DL
210F$=MID$(T$,K,1):G$=MID$(M$,K,1):H$=
MID$(N$,K,1)
220IFF$<>" "SOUND1,1,4*O+4*INSTR(S$,F$
),1
230IFG$<>" "SOUND3,2,4*O+4*INSTR(S$,G$
),1
240IFH$<>" "SOUND2,1,4*O+DF+4*INSTR(S$
,H$),1
250IN0=INSTR(S$,F$):IN1=INSTR(S$,G$):I
N2=INSTR(S$,H$)
260IFIN0=0 THENIN0=OV%(0)-67
270IFIN1=0 THENIN1=OV%(1)-67
275IFIN2=0 THENIN2=OV%(2)-67
280OV%(0)=IN0+67:OV%(1)=IN1+67:OV%(2)=
IN2+67
290FORI=0TO2:Y%(I)=&7FFF:NEXTI
300FORJ=0TO2:?NY%(J)=156
310Y%(J)=&7E80+OV%(J)-60-80*J
315NY%(J)=Y%(J)
320?Y%(J)=157:Y%(J)?1=156:NEXT
340REPEATUNTILTIME>=T:NEXT:GOTO180
350T$="Y I PO J T Y I PO J T Y I PO
J T Y I PO J T Y I PO J T Y I PO J T
Y I PO J T Y I PO J T "
360M$="C C B B B C C B B B C C B
B B C C B B B C C B B B C C B B B
C C B B B C C B B B "
370N$=" ` PO I O PO ` P O
I Y J IJ Y J IJ Y J IJ
Y J IJ Y T EW ":DF=48
380GT=GT+1:GOTO190
390T$="P[ P[[JO JOOIP IPPJOYOTOFOP[ P[
[JO JOOIP IPPJOYOTOFO":DF=0
400M$="E E EZ Z ZQ Q QWOWOWOWOE E
EZ Z ZQ Q QJTYTTTFT"
410N$="ET J EJO : JIP [ IWTWTWTWTET J
EJO : JIP [ IWTWTWTWT"
420GT=GT+1:GOTO190
430T$="P[ P[[JO JOOIP IPPJOYOTOFOP[ P[
[JO JOOO: O::I J Y T "
440M$="E E EZ Z ZQ Q QWOWOWOWOE E
EZ Z ZW W WITJTYTTT"
450N$="ET J EJO : JIP [ IWTWTWTWTET J
EJO : JO: : OIIJIYITI"
460GT=GT+1:GOTO190
470T$="Y I PO J T Y I PO J T "
480M$="C C B B B C C B B B "
490N$="YYYYYYTTJ J YYYYYYTTJ J "
500GT=GT+1:GOTO190