Home » Archimedes archive » Acorn User » AU 1994-11.adf » !StarInfo_StarInfo » Morris/!Beebmus/Menu
Morris/!Beebmus/Menu
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 » Archimedes archive » Acorn User » AU 1994-11.adf » !StarInfo_StarInfo |
| Filename: | Morris/!Beebmus/Menu |
| Read OK: | ✔ |
| File size: | 0424 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
1REM >Menu
2ON ERROR MODE 7:OSCLI"Tuning 0":VOICES 1:VOICE 1,"WaveSynth-Beep":QUIT
3VOICES 4
4DIM T$(16),F$(16)
5FOR I%=1 TO 3:READ T$(I%),F$(I%)
6NEXT
7MODE7
8FORI=0TO1
9PRINTTAB(0,I);CHR$(132);CHR$(157);TAB(9,I);CHR$(141);"�BBC Music Ports":NEXT
10FOR I%=1 TO 4
11PRINTTAB((39-LEN(T$(I%)))/2,I%+3);T$(I%):NEXT
12MOUSE TO 640,800
13*POINTER 1
14OFF
15PRINTTAB(0,21);"�Please select a tune-No matter how bad"
16PRINTTAB(5,23);"�Press ESCAPE to return here"
17OY%=23
18REPEAT:MOUSE X%,Y%,K%
19Y%=((1000-Y%)DIV4)DIV10
20IFY%<4 OR Y%>6 THENY%=OY%
21WAIT
22IFY%<>OY% THENPRINTTAB(0,OY%);" ":PRINTTAB(0,Y%);CHR$(129);CHR$(157);CHR$(135);:OY%=Y%
23UNTILK%<>0
24*POINTER 0
25f$="Tunes."+F$(Y%-3)
26*TUNING 0
27CHAIN f$
28REMDATA AirWolf Theme,Airwolf
29REMDATA Close to the Edit,Close
30REMDATA Eclipse (Henley),Eclipse
31REMDATA Golden Brown,Golden
32REMDATA Stairway to Heaven,Heaven
33DATA It's a Sin,ITSASIN
34REMDATA Lazer,Lazer
35REMDATA Lazer II,Lazer2
36REMDATA Lazer III,Lazer3
37REMDATA New Life DM,Newlife
38DATA Captain Pugwash,Pugwash
39REMDATA Sweet Dreams,SDreams
40DATA Small Town Boy,SmallTown
41REMDATA Thriller,THRILL
42REMDATA Tubular Bells,Tubular
43REMDATA Living On Video,Video
� >Menu 5� � � 7:�"Tuning 0":Ƞ 1:ȡ 1,"WaveSynth-Beep":Ș Ƞ 4 � T$(16),F$(16) � I%=1 � 3:� T$(I%),F$(I%) � �7 �I=0�1 :�0,I);�(132);�(157);�9,I);�(141);"�BBC Music Ports":� � I%=1 � 4 %�(39-�(T$(I%)))/2,I%+3);T$(I%):� ȗ � 640,800 *POINTER 1 � 5�0,21);"�Please select a tune-No matter how bad" *�5,23);"�Press ESCAPE to return here" OY%=23 �:ȗ X%,Y%,K% Y%=((1000-Y%)�4)�10 �Y%<4 � Y%>6 �Y%=OY% Ȗ A�Y%<>OY% ��0,OY%);" ":�0,Y%);�(129);�(157);�(135);:OY%=Y% �K%<>0 *POINTER 0 f$="Tunes."+F$(Y%-3) *TUNING 0 � f$ �DATA AirWolf Theme,Airwolf !�DATA Close to the Edit,Close "�DATA Eclipse (Henley),Eclipse �DATA Golden Brown,Golden #�DATA Stairway to Heaven,Heaven !� It's a Sin,ITSASIN "�DATA Lazer,Lazer #�DATA Lazer II,Lazer2 $�DATA Lazer III,Lazer3 % �DATA New Life DM,Newlife & � Captain Pugwash,Pugwash ' �DATA Sweet Dreams,SDreams ( � Small Town Boy,SmallTown )�DATA Thriller,THRILL * �DATA Tubular Bells,Tubular + �DATA Living On Video,Video �
00000000 0d 00 01 0b f4 20 3e 4d 65 6e 75 0d 00 02 35 ee |..... >Menu...5.| 00000010 20 85 20 eb 20 37 3a ff 22 54 75 6e 69 6e 67 20 | . . 7:."Tuning | 00000020 30 22 3a c8 a0 20 31 3a c8 a1 20 31 2c 22 57 61 |0":.. 1:.. 1,"Wa| 00000030 76 65 53 79 6e 74 68 2d 42 65 65 70 22 3a c8 98 |veSynth-Beep":..| 00000040 0d 00 03 08 c8 a0 20 34 0d 00 04 13 de 20 54 24 |...... 4..... T$| 00000050 28 31 36 29 2c 46 24 28 31 36 29 0d 00 05 1e e3 |(16),F$(16).....| 00000060 20 49 25 3d 31 20 b8 20 33 3a f3 20 54 24 28 49 | I%=1 . 3:. T$(I| 00000070 25 29 2c 46 24 28 49 25 29 0d 00 06 05 ed 0d 00 |%),F$(I%).......| 00000080 07 06 eb 37 0d 00 08 0a e3 49 3d 30 b8 31 0d 00 |...7.....I=0.1..| 00000090 09 3a f1 8a 30 2c 49 29 3b bd 28 31 33 32 29 3b |.:..0,I);.(132);| 000000a0 bd 28 31 35 37 29 3b 8a 39 2c 49 29 3b bd 28 31 |.(157);.9,I);.(1| 000000b0 34 31 29 3b 22 83 42 42 43 20 4d 75 73 69 63 20 |41);".BBC Music | 000000c0 50 6f 72 74 73 22 3a ed 0d 00 0a 0e e3 20 49 25 |Ports":...... I%| 000000d0 3d 31 20 b8 20 34 0d 00 0b 25 f1 8a 28 33 39 2d |=1 . 4...%..(39-| 000000e0 a9 28 54 24 28 49 25 29 29 29 2f 32 2c 49 25 2b |.(T$(I%)))/2,I%+| 000000f0 33 29 3b 54 24 28 49 25 29 3a ed 0d 00 0c 10 c8 |3);T$(I%):......| 00000100 97 20 b8 20 36 34 30 2c 38 30 30 0d 00 0d 0e 2a |. . 640,800....*| 00000110 50 4f 49 4e 54 45 52 20 31 0d 00 0e 05 87 0d 00 |POINTER 1.......| 00000120 0f 35 f1 8a 30 2c 32 31 29 3b 22 86 50 6c 65 61 |.5..0,21);".Plea| 00000130 73 65 20 73 65 6c 65 63 74 20 61 20 74 75 6e 65 |se select a tune| 00000140 2d 4e 6f 20 6d 61 74 74 65 72 20 68 6f 77 20 62 |-No matter how b| 00000150 61 64 22 0d 00 10 2a f1 8a 35 2c 32 33 29 3b 22 |ad"...*..5,23);"| 00000160 85 50 72 65 73 73 20 45 53 43 41 50 45 20 74 6f |.Press ESCAPE to| 00000170 20 72 65 74 75 72 6e 20 68 65 72 65 22 0d 00 11 | return here"...| 00000180 0a 4f 59 25 3d 32 33 0d 00 12 11 f5 3a c8 97 20 |.OY%=23.....:.. | 00000190 58 25 2c 59 25 2c 4b 25 0d 00 13 17 59 25 3d 28 |X%,Y%,K%....Y%=(| 000001a0 28 31 30 30 30 2d 59 25 29 81 34 29 81 31 30 0d |(1000-Y%).4).10.| 000001b0 00 14 18 e7 59 25 3c 34 20 84 20 59 25 3e 36 20 |....Y%<4 . Y%>6 | 000001c0 8c 59 25 3d 4f 59 25 0d 00 15 06 c8 96 0d 00 16 |.Y%=OY%.........| 000001d0 41 e7 59 25 3c 3e 4f 59 25 20 8c f1 8a 30 2c 4f |A.Y%<>OY% ...0,O| 000001e0 59 25 29 3b 22 20 20 20 22 3a f1 8a 30 2c 59 25 |Y%);" ":..0,Y%| 000001f0 29 3b bd 28 31 32 39 29 3b bd 28 31 35 37 29 3b |);.(129);.(157);| 00000200 bd 28 31 33 35 29 3b 3a 4f 59 25 3d 59 25 0d 00 |.(135);:OY%=Y%..| 00000210 17 0a fd 4b 25 3c 3e 30 0d 00 18 0e 2a 50 4f 49 |...K%<>0....*POI| 00000220 4e 54 45 52 20 30 0d 00 19 18 66 24 3d 22 54 75 |NTER 0....f$="Tu| 00000230 6e 65 73 2e 22 2b 46 24 28 59 25 2d 33 29 0d 00 |nes."+F$(Y%-3)..| 00000240 1a 0d 2a 54 55 4e 49 4e 47 20 30 0d 00 1b 08 d7 |..*TUNING 0.....| 00000250 20 66 24 0d 00 1c 1f f4 44 41 54 41 20 41 69 72 | f$.....DATA Air| 00000260 57 6f 6c 66 20 54 68 65 6d 65 2c 41 69 72 77 6f |Wolf Theme,Airwo| 00000270 6c 66 0d 00 1d 21 f4 44 41 54 41 20 43 6c 6f 73 |lf...!.DATA Clos| 00000280 65 20 74 6f 20 74 68 65 20 45 64 69 74 2c 43 6c |e to the Edit,Cl| 00000290 6f 73 65 0d 00 1e 22 f4 44 41 54 41 20 45 63 6c |ose...".DATA Ecl| 000002a0 69 70 73 65 20 28 48 65 6e 6c 65 79 29 2c 45 63 |ipse (Henley),Ec| 000002b0 6c 69 70 73 65 0d 00 1f 1d f4 44 41 54 41 20 47 |lipse.....DATA G| 000002c0 6f 6c 64 65 6e 20 42 72 6f 77 6e 2c 47 6f 6c 64 |olden Brown,Gold| 000002d0 65 6e 0d 00 20 23 f4 44 41 54 41 20 53 74 61 69 |en.. #.DATA Stai| 000002e0 72 77 61 79 20 74 6f 20 48 65 61 76 65 6e 2c 48 |rway to Heaven,H| 000002f0 65 61 76 65 6e 0d 00 21 18 dc 20 49 74 27 73 20 |eaven..!.. It's | 00000300 61 20 53 69 6e 2c 49 54 53 41 53 49 4e 0d 00 22 |a Sin,ITSASIN.."| 00000310 15 f4 44 41 54 41 20 4c 61 7a 65 72 2c 4c 61 7a |..DATA Lazer,Laz| 00000320 65 72 0d 00 23 19 f4 44 41 54 41 20 4c 61 7a 65 |er..#..DATA Laze| 00000330 72 20 49 49 2c 4c 61 7a 65 72 32 0d 00 24 1a f4 |r II,Lazer2..$..| 00000340 44 41 54 41 20 4c 61 7a 65 72 20 49 49 49 2c 4c |DATA Lazer III,L| 00000350 61 7a 65 72 33 0d 00 25 1d f4 44 41 54 41 20 4e |azer3..%..DATA N| 00000360 65 77 20 4c 69 66 65 20 44 4d 2c 4e 65 77 6c 69 |ew Life DM,Newli| 00000370 66 65 0d 00 26 1d dc 20 43 61 70 74 61 69 6e 20 |fe..&.. Captain | 00000380 50 75 67 77 61 73 68 2c 50 75 67 77 61 73 68 0d |Pugwash,Pugwash.| 00000390 00 27 1e f4 44 41 54 41 20 53 77 65 65 74 20 44 |.'..DATA Sweet D| 000003a0 72 65 61 6d 73 2c 53 44 72 65 61 6d 73 0d 00 28 |reams,SDreams..(| 000003b0 1e dc 20 53 6d 61 6c 6c 20 54 6f 77 6e 20 42 6f |.. Small Town Bo| 000003c0 79 2c 53 6d 61 6c 6c 54 6f 77 6e 0d 00 29 19 f4 |y,SmallTown..)..| 000003d0 44 41 54 41 20 54 68 72 69 6c 6c 65 72 2c 54 48 |DATA Thriller,TH| 000003e0 52 49 4c 4c 0d 00 2a 1f f4 44 41 54 41 20 54 75 |RILL..*..DATA Tu| 000003f0 62 75 6c 61 72 20 42 65 6c 6c 73 2c 54 75 62 75 |bular Bells,Tubu| 00000400 6c 61 72 0d 00 2b 1f f4 44 41 54 41 20 4c 69 76 |lar..+..DATA Liv| 00000410 69 6e 67 20 4f 6e 20 56 69 64 65 6f 2c 56 69 64 |ing On Video,Vid| 00000420 65 6f 0d ff |eo..| 00000424
.