Home » Personal collection » Acorn ADFS disks » Electron » Music_2.ADF » SAMPLES/BROWN
SAMPLES/BROWN
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Personal collection » Acorn ADFS disks » Electron » Music_2.ADF |
| Filename: | SAMPLES/BROWN |
| Read OK: | ✔ |
| File size: | 0677 bytes |
| Load address: | FFFF1D00 |
| Exec address: | FFFF8023 |
File contents
10 REM GOLDEN BROWN 20 REM CONVERTED TO THE ELK BY BOB. 30MODE4 40PRINT''" **************" 50PRINT" * By *" 60PRINT" * By *" 70PRINT" * Stranglers *" 80PRINT" * Adapted By *" 90PRINT" * J.P.Cope *" 100PRINT" **************" 110 A1=30:A2=127:O=1:GT=2:DF=0:TIME=0 120 ENVELOPE 1,1,0,0,0,2,2,2,A1,0,0,255,128,1 130 ENVELOPE 2,1,0,0,0,1,1,1,A2,0,0,255,128,1 140 S$="BVCXZQAWSEDFTGYHJIKOLP;:[]_1234567" 150 ON GT GOTO 230,270,310,350 ELSE GT=1:GOTO 230 160 DL=15:T%=1 170 FOR K=1 TO LEN T$:T=TIME+DL 180 F$=MID$(T$,K,1):G$=MID$(M$,K,1):H$=MID$(N$,K,1) 190 IF F$<>" "THEN SOUND1,1,4*O+4*INSTR(S$,F$),1 200 IF G$<>" "THEN SOUND3,2,4*O+4*INSTR(S$,G$),1 210 IF H$<>" "THEN SOUND2,1,4*O+DF+4*INSTR(S$,H$),1 220 REPEAT UNTIL TIME>=T:NEXT:GOTO 150 230 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 " 240 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 " 250 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 260 GT=GT+1:GOTO 160 270 T$="P[ P[[JO JOOIP IPPJOYOTOFOP[ P[[JO JOOIP IPPJOYOTOFO":DF=0 280 M$="E E EZ Z ZQ Q QWOWOWOWOE E EZ Z ZQ Q QJTYTTTFT" 290 N$="ET J EJO : JIP [ IWTWTWTWTET J EJO : JIP [ IWTWTWTWT" 300 GT=GT+1:GOTO 160 310 T$="P[ P[[JO JOOIP IPPJOYOTOFOP[ P[[JO JOOO: O::I J Y T " 320 M$="E E EZ Z ZQ Q QWOWOWOWOE E EZ Z ZW W WITJTYTTT" 330 N$="ET J EJO : JIP [ IWTWTWTWTET J EJO : JO: : OIIJIYITI" 340 GT=GT+1:GOTO 160 350 T$="Y I PO J T Y I PO J T " 360 M$="C C B B B C C B B B " 370 N$="YYYYYYTTJ J YYYYYYTTJ J " 380 GT=GT+1:GOTO160
� GOLDEN BROWN # � CONVERTED TO THE ELK BY BOB. �4 (#�''" **************" 2"�" * By *" <!�" * By *" F!�" * Stranglers *" P!�" * Adapted By *" Z!�" * J.P.Cope *" d!�" **************" n$ A1=30:A2=127:O=1:GT=2:DF=0:�=0 x* � 1,1,0,0,0,2,2,2,A1,0,0,255,128,1 �* � 2,1,0,0,0,1,1,1,A2,0,0,255,128,1 �. S$="BVCXZQAWSEDFTGYHJIKOLP;:[]_1234567" �. � GT � �df@,�TNA,�TvA,�D^A � GT=1:� �df@ � DL=15:T%=1 � � K=1 � � T$:T=�+DL �, F$=�T$,K,1):G$=�M$,K,1):H$=�N$,K,1) �& � F$<>" "� �1,1,4*O+4*�S$,F$),1 �% � G$<>" "� �3,2,4*O+4*�S$,G$),1 �) � H$<>" "� �2,1,4*O+DF+4*�S$,H$),1 � � � �>=T:�:� �tV@ �l 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 " �l 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 " �t 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 GT=GT+1:� �t`@ D T$="P[ P[[JO JOOIP IPPJOYOTOFOP[ P[[JO JOOIP IPPJOYOTOFO":DF=0 ? M$="E E EZ Z ZQ Q QWOWOWOWOE E EZ Z ZQ Q QJTYTTTFT" "@ N$="ET J EJO : JIP [ IWTWTWTWTET J EJO : JIP [ IWTWTWTWT" , GT=GT+1:� �t`@ 6? T$="P[ P[[JO JOOIP IPPJOYOTOFOP[ P[[JO JOOO: O::I J Y T " @@ M$="E E EZ Z ZQ Q QWOWOWOWOE E EZ Z ZW W WITJTYTTT" JA N$="ET J EJO : JIP [ IWTWTWTWTET J EJO : JO: : OIIJIYITI" T GT=GT+1:� �t`@ ^$ T$="Y I PO J T Y I PO J T " h% M$="C C B B B C C B B B " r# N$="YYYYYYTTJ J YYYYYYTTJ J " | GT=GT+1:�t`@ �
00000000 0d 00 0a 13 20 f4 20 47 4f 4c 44 45 4e 20 42 52 |.... . GOLDEN BR| 00000010 4f 57 4e 0d 00 14 23 20 f4 20 43 4f 4e 56 45 52 |OWN...# . CONVER| 00000020 54 45 44 20 54 4f 20 54 48 45 20 45 4c 4b 20 42 |TED TO THE ELK B| 00000030 59 20 42 4f 42 2e 0d 00 1e 06 eb 34 0d 00 28 23 |Y BOB......4..(#| 00000040 f1 27 27 22 20 20 20 20 20 20 20 20 20 20 20 20 |.''" | 00000050 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 22 0d |**************".| 00000060 00 32 22 f1 22 20 20 20 20 20 20 20 20 20 20 20 |.2"." | 00000070 20 2a 20 20 20 20 20 42 79 20 20 20 20 20 2a 22 | * By *"| 00000080 20 0d 00 3c 21 f1 22 20 20 20 20 20 20 20 20 20 | ..<!." | 00000090 20 20 20 2a 20 20 20 20 20 42 79 20 20 20 20 20 | * By | 000000a0 2a 22 0d 00 46 21 f1 22 20 20 20 20 20 20 20 20 |*"..F!." | 000000b0 20 20 20 20 2a 20 53 74 72 61 6e 67 6c 65 72 73 | * Stranglers| 000000c0 20 2a 22 0d 00 50 21 f1 22 20 20 20 20 20 20 20 | *"..P!." | 000000d0 20 20 20 20 20 2a 20 41 64 61 70 74 65 64 20 42 | * Adapted B| 000000e0 79 20 2a 22 0d 00 5a 21 f1 22 20 20 20 20 20 20 |y *"..Z!." | 000000f0 20 20 20 20 20 20 2a 20 20 4a 2e 50 2e 43 6f 70 | * J.P.Cop| 00000100 65 20 20 2a 22 0d 00 64 21 f1 22 20 20 20 20 20 |e *"..d!." | 00000110 20 20 20 20 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a | *********| 00000120 2a 2a 2a 2a 2a 22 0d 00 6e 24 20 41 31 3d 33 30 |*****"..n$ A1=30| 00000130 3a 41 32 3d 31 32 37 3a 4f 3d 31 3a 47 54 3d 32 |:A2=127:O=1:GT=2| 00000140 3a 44 46 3d 30 3a d1 3d 30 20 0d 00 78 2a 20 e2 |:DF=0:.=0 ..x* .| 00000150 20 31 2c 31 2c 30 2c 30 2c 30 2c 32 2c 32 2c 32 | 1,1,0,0,0,2,2,2| 00000160 2c 41 31 2c 30 2c 30 2c 32 35 35 2c 31 32 38 2c |,A1,0,0,255,128,| 00000170 31 20 20 20 0d 00 82 2a 20 e2 20 32 2c 31 2c 30 |1 ...* . 2,1,0| 00000180 2c 30 2c 30 2c 31 2c 31 2c 31 2c 41 32 2c 30 2c |,0,0,1,1,1,A2,0,| 00000190 30 2c 32 35 35 2c 31 32 38 2c 31 20 20 20 0d 00 |0,255,128,1 ..| 000001a0 8c 2e 20 53 24 3d 22 42 56 43 58 5a 51 41 57 53 |.. S$="BVCXZQAWS| 000001b0 45 44 46 54 47 59 48 4a 49 4b 4f 4c 50 3b 3a 5b |EDFTGYHJIKOLP;:[| 000001c0 5d 5f 31 32 33 34 35 36 37 22 20 20 0d 00 96 2e |]_1234567" ....| 000001d0 20 ee 20 47 54 20 e5 20 8d 64 66 40 2c 8d 54 4e | . GT . .df@,.TN| 000001e0 41 2c 8d 54 76 41 2c 8d 44 5e 41 20 8b 20 47 54 |A,.TvA,.D^A . GT| 000001f0 3d 31 3a e5 20 8d 64 66 40 20 0d 00 a0 14 20 44 |=1:. .df@ .... D| 00000200 4c 3d 31 35 3a 54 25 3d 31 20 20 20 20 20 0d 00 |L=15:T%=1 ..| 00000210 aa 1a 20 e3 20 4b 3d 31 20 b8 20 a9 20 54 24 3a |.. . K=1 . . T$:| 00000220 54 3d 91 2b 44 4c 20 20 0d 00 b4 2c 20 46 24 3d |T=.+DL ..., F$=| 00000230 c1 54 24 2c 4b 2c 31 29 3a 47 24 3d c1 4d 24 2c |.T$,K,1):G$=.M$,| 00000240 4b 2c 31 29 3a 48 24 3d c1 4e 24 2c 4b 2c 31 29 |K,1):H$=.N$,K,1)| 00000250 20 20 20 20 0d 00 be 26 20 e7 20 46 24 3c 3e 22 | ...& . F$<>"| 00000260 20 22 8c 20 d4 31 2c 31 2c 34 2a 4f 2b 34 2a a7 | ". .1,1,4*O+4*.| 00000270 53 24 2c 46 24 29 2c 31 20 20 0d 00 c8 25 20 e7 |S$,F$),1 ...% .| 00000280 20 47 24 3c 3e 22 20 22 8c 20 d4 33 2c 32 2c 34 | G$<>" ". .3,2,4| 00000290 2a 4f 2b 34 2a a7 53 24 2c 47 24 29 2c 31 20 0d |*O+4*.S$,G$),1 .| 000002a0 00 d2 29 20 e7 20 48 24 3c 3e 22 20 22 8c 20 d4 |..) . H$<>" ". .| 000002b0 32 2c 31 2c 34 2a 4f 2b 44 46 2b 34 2a a7 53 24 |2,1,4*O+DF+4*.S$| 000002c0 2c 48 24 29 2c 31 20 20 0d 00 dc 17 20 f5 20 fd |,H$),1 .... . .| 000002d0 20 91 3e 3d 54 3a ed 3a e5 20 8d 74 56 40 20 0d | .>=T:.:. .tV@ .| 000002e0 00 e6 6c 20 54 24 3d 22 59 20 20 49 20 50 4f 20 |..l T$="Y I PO | 000002f0 4a 20 54 20 59 20 20 49 20 50 4f 20 4a 20 54 20 |J T Y I PO J T | 00000300 59 20 20 49 20 50 4f 20 4a 20 54 20 59 20 20 49 |Y I PO J T Y I| 00000310 20 50 4f 20 4a 20 54 20 59 20 20 49 20 50 4f 20 | PO J T Y I PO | 00000320 4a 20 54 20 59 20 20 49 20 50 4f 20 4a 20 54 20 |J T Y I PO J T | 00000330 59 20 20 49 20 50 4f 20 4a 20 54 20 59 20 20 49 |Y I PO J T Y I| 00000340 20 50 4f 20 4a 20 54 20 22 20 20 0d 00 f0 6c 20 | PO J T " ...l | 00000350 4d 24 3d 22 43 20 20 43 20 20 42 20 42 20 42 20 |M$="C C B B B | 00000360 43 20 20 43 20 20 42 20 42 20 42 20 43 20 20 43 |C C B B B C C| 00000370 20 20 42 20 42 20 42 20 43 20 20 43 20 20 42 20 | B B B C C B | 00000380 42 20 42 20 43 20 20 43 20 20 42 20 42 20 42 20 |B B C C B B B | 00000390 43 20 20 43 20 20 42 20 42 20 42 20 43 20 20 43 |C C B B B C C| 000003a0 20 20 42 20 42 20 42 20 43 20 20 43 20 20 42 20 | B B B C C B | 000003b0 42 20 42 20 22 20 20 0d 00 fa 74 20 4e 24 3d 22 |B B " ...t N$="| 000003c0 20 20 5f 20 50 4f 20 20 20 20 20 20 49 20 4f 20 | _ PO I O | 000003d0 50 4f 20 20 20 20 20 20 20 20 5f 20 50 20 4f 20 |PO _ P O | 000003e0 20 20 49 20 59 20 4a 20 49 4a 20 20 20 20 20 20 | I Y J IJ | 000003f0 59 20 4a 20 49 4a 20 20 20 20 20 20 59 20 4a 20 |Y J IJ Y J | 00000400 49 4a 20 20 20 20 20 20 59 20 4a 20 49 4a 20 20 |IJ Y J IJ | 00000410 20 20 20 20 59 20 54 20 45 57 20 20 20 20 20 20 | Y T EW | 00000420 22 3a 44 46 3d 34 38 20 20 20 20 0d 01 04 15 20 |":DF=48 .... | 00000430 47 54 3d 47 54 2b 31 3a e5 20 8d 74 60 40 20 20 |GT=GT+1:. .t`@ | 00000440 0d 01 0e 44 20 54 24 3d 22 50 5b 20 50 5b 5b 4a |...D T$="P[ P[[J| 00000450 4f 20 4a 4f 4f 49 50 20 49 50 50 4a 4f 59 4f 54 |O JOOIP IPPJOYOT| 00000460 4f 46 4f 50 5b 20 50 5b 5b 4a 4f 20 4a 4f 4f 49 |OFOP[ P[[JO JOOI| 00000470 50 20 49 50 50 4a 4f 59 4f 54 4f 46 4f 22 3a 44 |P IPPJOYOTOFO":D| 00000480 46 3d 30 20 0d 01 18 3f 20 4d 24 3d 22 45 20 20 |F=0 ...? M$="E | 00000490 45 20 45 5a 20 20 5a 20 5a 51 20 20 51 20 51 57 |E EZ Z ZQ Q QW| 000004a0 4f 57 4f 57 4f 57 4f 45 20 20 45 20 45 5a 20 20 |OWOWOWOE E EZ | 000004b0 5a 20 5a 51 20 20 51 20 51 4a 54 59 54 54 54 46 |Z ZQ Q QJTYTTTF| 000004c0 54 22 20 0d 01 22 40 20 4e 24 3d 22 45 54 20 4a |T" .."@ N$="ET J| 000004d0 20 45 4a 4f 20 3a 20 4a 49 50 20 5b 20 49 57 54 | EJO : JIP [ IWT| 000004e0 57 54 57 54 57 54 45 54 20 4a 20 45 4a 4f 20 3a |WTWTWTET J EJO :| 000004f0 20 4a 49 50 20 5b 20 49 57 54 57 54 57 54 57 54 | JIP [ IWTWTWTWT| 00000500 22 20 20 0d 01 2c 16 20 47 54 3d 47 54 2b 31 3a |" ..,. GT=GT+1:| 00000510 e5 20 8d 74 60 40 20 20 20 0d 01 36 3f 20 54 24 |. .t`@ ..6? T$| 00000520 3d 22 50 5b 20 50 5b 5b 4a 4f 20 4a 4f 4f 49 50 |="P[ P[[JO JOOIP| 00000530 20 49 50 50 4a 4f 59 4f 54 4f 46 4f 50 5b 20 50 | IPPJOYOTOFOP[ P| 00000540 5b 5b 4a 4f 20 4a 4f 4f 4f 3a 20 4f 3a 3a 49 20 |[[JO JOOO: O::I | 00000550 4a 20 59 20 54 20 22 20 0d 01 40 40 20 4d 24 3d |J Y T " ..@@ M$=| 00000560 22 45 20 20 45 20 45 5a 20 20 5a 20 5a 51 20 20 |"E E EZ Z ZQ | 00000570 51 20 51 57 4f 57 4f 57 4f 57 4f 45 20 20 45 20 |Q QWOWOWOWOE E | 00000580 45 5a 20 20 5a 20 5a 57 20 20 57 20 57 49 54 4a |EZ Z ZW W WITJ| 00000590 54 59 54 54 54 22 20 20 0d 01 4a 41 20 4e 24 3d |TYTTT" ..JA N$=| 000005a0 22 45 54 20 4a 20 45 4a 4f 20 3a 20 4a 49 50 20 |"ET J EJO : JIP | 000005b0 5b 20 49 57 54 57 54 57 54 57 54 45 54 20 4a 20 |[ IWTWTWTWTET J | 000005c0 45 4a 4f 20 3a 20 4a 4f 3a 20 3a 20 4f 49 49 4a |EJO : JO: : OIIJ| 000005d0 49 59 49 54 49 22 20 20 20 0d 01 54 19 20 47 54 |IYITI" ..T. GT| 000005e0 3d 47 54 2b 31 3a e5 20 8d 74 60 40 20 20 20 20 |=GT+1:. .t`@ | 000005f0 20 20 0d 01 5e 24 20 54 24 3d 22 59 20 20 49 20 | ..^$ T$="Y I | 00000600 50 4f 20 4a 20 54 20 59 20 20 49 20 50 4f 20 4a |PO J T Y I PO J| 00000610 20 54 20 22 20 20 0d 01 68 25 20 4d 24 3d 22 43 | T " ..h% M$="C| 00000620 20 20 43 20 20 42 20 42 20 42 20 43 20 20 43 20 | C B B B C C | 00000630 20 42 20 42 20 42 20 22 20 20 20 0d 01 72 23 20 | B B B " ..r# | 00000640 4e 24 3d 22 59 59 59 59 59 59 54 54 4a 20 4a 20 |N$="YYYYYYTTJ J | 00000650 59 59 59 59 59 59 54 54 4a 20 4a 20 22 20 0d 01 |YYYYYYTTJ J " ..| 00000660 7c 17 20 47 54 3d 47 54 2b 31 3a e5 8d 74 60 40 ||. GT=GT+1:..t`@| 00000670 20 20 20 20 20 0d ff | ..| 00000677
SAMPLES/BROWN.m0
SAMPLES/BROWN.m1
SAMPLES/BROWN.m2
SAMPLES/BROWN.m4
SAMPLES/BROWN.m5
.