Home » Personal collection » Acorn ADFS disks » Electron » Music_2.ADF » MUSIC/HELLO
MUSIC/HELLO
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: | MUSIC/HELLO |
| Read OK: | ✔ |
| File size: | 04D5 bytes |
| Load address: | FFFF1D00 |
| Exec address: | FFFF8023 |
File contents
10DIM pn$(40),name$(40),title$(40):*FX15
20*K.10OLD|MRUN|M
30*EXEC
40ON ERROR GOTO 270
50N$="Music":A%=0:Y%=0:E%=0:fs%=(USR&FFDA)AND&FF
60SOUND-2,0,0,0:MODE7:PRINT:IF INKEY(-1) Z%=0
70PRINT CHR$ 131CHR$141 N$" programs"'CHR$ 131CHR$141 N$" programs"'CHR$ 129CHR$141 "______________________________________"
80 PRINTCHR$132CHR$157"�Press ESCAPE to return to LOGO"
90PRINT
100I%=0:REPEAT:READ name$(I%),title$(I%):I%=I%+1:UNTILname$(I%-1)="*":max=I%-2
110FOR I%=0 TO max:PRINTCHR$129;CHR$(65+I%);CHR$130;name$(I%);TAB(28);CHR$134;"(";LEFT$(title$(I%),8);")":NEXT
120PRINT:PRINT"�Press the �LETTER �of your program"'"�Or�@�for a random demo:";
130REPEAT:IF Z%=&A00 A=64+RND(max+1) ELSE IF Z%=&A01 A=W%+1 ELSE A=GET AND &DF
140IF A=64 Z%=&A00+0*RND(-TIME)+0*RND(10)
150IF A>0 AND A<=max Z%=&A01:A=A+64
160IF Z%=&A00 AND A=W% A=0
170IF Z%=&A01 AND W%=max-65 Z%=0
180UNTILA>64 AND A<66+max:W%=A
190VDU129,A:A=A-65
210IF fs%=4 CHAINLEFT$(title$(A),7) ELSE CHAINtitle$(A)
220END
230DATA All Creatures Theme,ALL-C,M*A*S*H,MASH,New Life - DEPECHE MODE,NEWLIFE
240DATA Equinoxe 5,Equix5,ZooLook,ZooLook,Sky Toccatta with display,Tocc2
250DATA Arpegiator,Arpegia,Cheers Theme,Cheers,Cold Tea,ColdTea,Close to the Edge,Close,Captain Pugwash,Pugwash
260DATA Pugwash II - The Remix!!,PugW2,Airwolf,AIRWOLF,**** THAT'S ALL!! ****,HELLO,*,*
270REPORT:Z%=0:END:PRINT:IF fs%=5 OSCLI"I AM BOOT":CLOSE#0:OSCLI"DIR $.TELETEXT":V%=100:W%=30005:CHAIN"VIEWDATA"
280END
(� pn$(40),name$(40),title$(40):*FX15
*K.10OLD|MRUN|M
*EXEC
(� � � �TNA
2.N$="Music":A%=0:Y%=0:E%=0:fs%=(�&FFDA)�&FF
< �-2,0,0,0:�7:�:� �(-1) Z%=0
Fh� � 131�141 N$" programs"'� 131�141 N$" programs"'� 129�141 "______________________________________"
P0 �132�157"�Press ESCAPE to return to LOGO"
Z�
dCI%=0:�:� name$(I%),title$(I%):I%=I%+1:�name$(I%-1)="*":max=I%-2
nQ� I%=0 � max:�129;�(65+I%);�130;name$(I%);�28);�134;"(";�title$(I%),8);")":�
xH�:�"�Press the �LETTER �of your program"'"�Or�@�for a random demo:";
�<�:� Z%=&A00 A=64+�(max+1) � � Z%=&A01 A=W%+1 � A=� � &DF
�"� A=64 Z%=&A00+0*�(-�)+0*�(10)
�!� A>0 � A<=max Z%=&A01:A=A+64
�� Z%=&A00 � A=W% A=0
� � Z%=&A01 � W%=max-65 Z%=0
��A>64 � A<66+max:W%=A
��129,A:A=A-65
�'� fs%=4 �title$(A),7) � �title$(A)
��
�L� All Creatures Theme,ALL-C,M*A*S*H,MASH,New Life - DEPECHE MODE,NEWLIFE
�G� Equinoxe 5,Equix5,ZooLook,ZooLook,Sky Toccatta with display,Tocc2
�m� Arpegiator,Arpegia,Cheers Theme,Cheers,Cold Tea,ColdTea,Close to the Edge,Close,Captain Pugwash,Pugwash
V� Pugwash II - The Remix!!,PugW2,Airwolf,AIRWOLF,**** THAT'S ALL!! ****,HELLO,*,*
U�:Z%=0:�:�:� fs%=5 �"I AM BOOT":�#0:�"DIR $.TELETEXT":V%=100:W%=30005:�"VIEWDATA"
�
� 00000000 0d 00 0a 28 de 20 70 6e 24 28 34 30 29 2c 6e 61 |...(. pn$(40),na|
00000010 6d 65 24 28 34 30 29 2c 74 69 74 6c 65 24 28 34 |me$(40),title$(4|
00000020 30 29 3a 2a 46 58 31 35 0d 00 14 13 2a 4b 2e 31 |0):*FX15....*K.1|
00000030 30 4f 4c 44 7c 4d 52 55 4e 7c 4d 0d 00 1e 09 2a |0OLD|MRUN|M....*|
00000040 45 58 45 43 0d 00 28 0e ee 20 85 20 e5 20 8d 54 |EXEC..(.. . . .T|
00000050 4e 41 0d 00 32 2e 4e 24 3d 22 4d 75 73 69 63 22 |NA..2.N$="Music"|
00000060 3a 41 25 3d 30 3a 59 25 3d 30 3a 45 25 3d 30 3a |:A%=0:Y%=0:E%=0:|
00000070 66 73 25 3d 28 ba 26 46 46 44 41 29 80 26 46 46 |fs%=(.&FFDA).&FF|
00000080 0d 00 3c 1f d4 2d 32 2c 30 2c 30 2c 30 3a eb 37 |..<..-2,0,0,0:.7|
00000090 3a f1 3a e7 20 a6 28 2d 31 29 20 5a 25 3d 30 0d |:.:. .(-1) Z%=0.|
000000a0 00 46 68 f1 20 bd 20 31 33 31 bd 31 34 31 20 4e |.Fh. . 131.141 N|
000000b0 24 22 20 70 72 6f 67 72 61 6d 73 22 27 bd 20 31 |$" programs"'. 1|
000000c0 33 31 bd 31 34 31 20 4e 24 22 20 70 72 6f 67 72 |31.141 N$" progr|
000000d0 61 6d 73 22 27 bd 20 31 32 39 bd 31 34 31 20 22 |ams"'. 129.141 "|
000000e0 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f |________________|
*
00000100 5f 5f 5f 5f 5f 5f 22 0d 00 50 30 20 f1 bd 31 33 |______"..P0 ..13|
00000110 32 bd 31 35 37 22 83 50 72 65 73 73 20 45 53 43 |2.157".Press ESC|
00000120 41 50 45 20 74 6f 20 72 65 74 75 72 6e 20 74 6f |APE to return to|
00000130 20 4c 4f 47 4f 22 20 0d 00 5a 05 f1 0d 00 64 43 | LOGO" ..Z....dC|
00000140 49 25 3d 30 3a f5 3a f3 20 6e 61 6d 65 24 28 49 |I%=0:.:. name$(I|
00000150 25 29 2c 74 69 74 6c 65 24 28 49 25 29 3a 49 25 |%),title$(I%):I%|
00000160 3d 49 25 2b 31 3a fd 6e 61 6d 65 24 28 49 25 2d |=I%+1:.name$(I%-|
00000170 31 29 3d 22 2a 22 3a 6d 61 78 3d 49 25 2d 32 0d |1)="*":max=I%-2.|
00000180 00 6e 51 e3 20 49 25 3d 30 20 b8 20 6d 61 78 3a |.nQ. I%=0 . max:|
00000190 f1 bd 31 32 39 3b bd 28 36 35 2b 49 25 29 3b bd |..129;.(65+I%);.|
000001a0 31 33 30 3b 6e 61 6d 65 24 28 49 25 29 3b 8a 32 |130;name$(I%);.2|
000001b0 38 29 3b bd 31 33 34 3b 22 28 22 3b c0 74 69 74 |8);.134;"(";.tit|
000001c0 6c 65 24 28 49 25 29 2c 38 29 3b 22 29 22 3a ed |le$(I%),8);")":.|
000001d0 0d 00 78 48 f1 3a f1 22 84 50 72 65 73 73 20 74 |..xH.:.".Press t|
000001e0 68 65 20 81 4c 45 54 54 45 52 20 84 6f 66 20 79 |he .LETTER .of y|
000001f0 6f 75 72 20 70 72 6f 67 72 61 6d 22 27 22 84 4f |our program"'".O|
00000200 72 81 40 84 66 6f 72 20 61 20 72 61 6e 64 6f 6d |r.@.for a random|
00000210 20 64 65 6d 6f 3a 22 3b 0d 00 82 3c f5 3a e7 20 | demo:";...<.:. |
00000220 5a 25 3d 26 41 30 30 20 41 3d 36 34 2b b3 28 6d |Z%=&A00 A=64+.(m|
00000230 61 78 2b 31 29 20 8b 20 e7 20 5a 25 3d 26 41 30 |ax+1) . . Z%=&A0|
00000240 31 20 41 3d 57 25 2b 31 20 8b 20 41 3d a5 20 80 |1 A=W%+1 . A=. .|
00000250 20 26 44 46 0d 00 8c 22 e7 20 41 3d 36 34 20 5a | &DF...". A=64 Z|
00000260 25 3d 26 41 30 30 2b 30 2a b3 28 2d 91 29 2b 30 |%=&A00+0*.(-.)+0|
00000270 2a b3 28 31 30 29 0d 00 96 21 e7 20 41 3e 30 20 |*.(10)...!. A>0 |
00000280 80 20 41 3c 3d 6d 61 78 20 5a 25 3d 26 41 30 31 |. A<=max Z%=&A01|
00000290 3a 41 3d 41 2b 36 34 0d 00 a0 18 e7 20 5a 25 3d |:A=A+64..... Z%=|
000002a0 26 41 30 30 20 80 20 41 3d 57 25 20 41 3d 30 0d |&A00 . A=W% A=0.|
000002b0 00 aa 1e e7 20 5a 25 3d 26 41 30 31 20 80 20 57 |.... Z%=&A01 . W|
000002c0 25 3d 6d 61 78 2d 36 35 20 5a 25 3d 30 0d 00 b4 |%=max-65 Z%=0...|
000002d0 19 fd 41 3e 36 34 20 80 20 41 3c 36 36 2b 6d 61 |..A>64 . A<66+ma|
000002e0 78 3a 57 25 3d 41 0d 00 be 11 ef 31 32 39 2c 41 |x:W%=A.....129,A|
000002f0 3a 41 3d 41 2d 36 35 0d 00 d2 27 e7 20 66 73 25 |:A=A-65...'. fs%|
00000300 3d 34 20 d7 c0 74 69 74 6c 65 24 28 41 29 2c 37 |=4 ..title$(A),7|
00000310 29 20 8b 20 d7 74 69 74 6c 65 24 28 41 29 0d 00 |) . .title$(A)..|
00000320 dc 05 e0 0d 00 e6 4c dc 20 41 6c 6c 20 43 72 65 |......L. All Cre|
00000330 61 74 75 72 65 73 20 54 68 65 6d 65 2c 41 4c 4c |atures Theme,ALL|
00000340 2d 43 2c 4d 2a 41 2a 53 2a 48 2c 4d 41 53 48 2c |-C,M*A*S*H,MASH,|
00000350 4e 65 77 20 4c 69 66 65 20 2d 20 44 45 50 45 43 |New Life - DEPEC|
00000360 48 45 20 4d 4f 44 45 2c 4e 45 57 4c 49 46 45 0d |HE MODE,NEWLIFE.|
00000370 00 f0 47 dc 20 45 71 75 69 6e 6f 78 65 20 35 2c |..G. Equinoxe 5,|
00000380 45 71 75 69 78 35 2c 5a 6f 6f 4c 6f 6f 6b 2c 5a |Equix5,ZooLook,Z|
00000390 6f 6f 4c 6f 6f 6b 2c 53 6b 79 20 54 6f 63 63 61 |ooLook,Sky Tocca|
000003a0 74 74 61 20 77 69 74 68 20 64 69 73 70 6c 61 79 |tta with display|
000003b0 2c 54 6f 63 63 32 0d 00 fa 6d dc 20 41 72 70 65 |,Tocc2...m. Arpe|
000003c0 67 69 61 74 6f 72 2c 41 72 70 65 67 69 61 2c 43 |giator,Arpegia,C|
000003d0 68 65 65 72 73 20 54 68 65 6d 65 2c 43 68 65 65 |heers Theme,Chee|
000003e0 72 73 2c 43 6f 6c 64 20 54 65 61 2c 43 6f 6c 64 |rs,Cold Tea,Cold|
000003f0 54 65 61 2c 43 6c 6f 73 65 20 74 6f 20 74 68 65 |Tea,Close to the|
00000400 20 45 64 67 65 2c 43 6c 6f 73 65 2c 43 61 70 74 | Edge,Close,Capt|
00000410 61 69 6e 20 50 75 67 77 61 73 68 2c 50 75 67 77 |ain Pugwash,Pugw|
00000420 61 73 68 0d 01 04 56 dc 20 50 75 67 77 61 73 68 |ash...V. Pugwash|
00000430 20 49 49 20 2d 20 54 68 65 20 52 65 6d 69 78 21 | II - The Remix!|
00000440 21 2c 50 75 67 57 32 2c 41 69 72 77 6f 6c 66 2c |!,PugW2,Airwolf,|
00000450 41 49 52 57 4f 4c 46 2c 2a 2a 2a 2a 20 54 48 41 |AIRWOLF,**** THA|
00000460 54 27 53 20 41 4c 4c 21 21 20 2a 2a 2a 2a 2c 48 |T'S ALL!! ****,H|
00000470 45 4c 4c 4f 2c 2a 2c 2a 20 0d 01 0e 55 f6 3a 5a |ELLO,*,* ...U.:Z|
00000480 25 3d 30 3a e0 3a f1 3a e7 20 66 73 25 3d 35 20 |%=0:.:.:. fs%=5 |
00000490 ff 22 49 20 41 4d 20 42 4f 4f 54 22 3a d9 23 30 |."I AM BOOT":.#0|
000004a0 3a ff 22 44 49 52 20 24 2e 54 45 4c 45 54 45 58 |:."DIR $.TELETEX|
000004b0 54 22 3a 56 25 3d 31 30 30 3a 57 25 3d 33 30 30 |T":V%=100:W%=300|
000004c0 30 35 3a d7 22 56 49 45 57 44 41 54 41 22 0d 01 |05:."VIEWDATA"..|
000004d0 18 05 e0 0d ff |.....|
000004d5 
MUSIC/HELLO.m0
MUSIC/HELLO.m1
MUSIC/HELLO.m2
MUSIC/HELLO.m4
MUSIC/HELLO.m5
.