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