Home » Personal collection » Acorn ADFS disks » Electron » Music_2.ADF » MENU

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 » Personal collection » Acorn ADFS disks » Electron » Music_2.ADF
Filename: MENU
Read OK:
File size: 02AB bytes
Load address: FFFF0E00
Exec address: FFFF8023
File contents
   30MODE4
   40PROCinit
   60PROCmain
   70GOTO70
 2000DEF PROCcls
 2010VDU26
 2020FOR I%=1 TO 5
 2030PRINT STRING$(248,CHR$224);
 2040NEXT
 2050MOVE 0,28:DRAW 0,1023
 2060DRAW 1278,1023:DRAW 1278,28
 2080DRAW 0,28
 2090ENDPROC
 2100DEF PROCinit
 2110VDU 23,224,85,170,85,170,85,170,85,170
 2120COLOUR 129:COLOUR 0
 2130PROCtitle
 2140ENDPROC
 2150DEF PROCwindow(X%,Y%,W%,H%)
 2160VDU28,X%+1,Y%+1+H%,X%+1+W%,Y%+1
 2170COLOUR 128:CLS
 2171VDU28,X%,Y%+H%,X%+W%,Y%
 2172COLOUR129:CLS
 2180VDU28 X%+1,Y%+H%,X%+W%,Y%+1 
 2190ENDPROC
 2200DEF PROCtitle
 2210PROCcls:PROCwindow(2,2,30,2) 
 2220PRINT"Music Files Menu..From Elk PD"
 2230ENDPROC
 2240DEF PROCmain 
 2250PROCwindow(3,10,30,10)
 2251PRINT''"1. Music Files."
 2252PRINT''"2. Elk PD catalogue."
 2260IF INKEY(-49) PROCmusic
 2270IF INKEY(-50) PROCcat
 2280GOTO 2260
 2300ENDPROC
 2310DEF PROCmusic
 2320OSCLI"DIR MUSIC"
 2330*EXEC BOOT
 2340PROCmusic
 2350ENDPROC
 2360DEF PROCcat
 2370*DIR README
 2380CHAIN"!RUN"
 2390ENDPROC
�4
(	�init
<	�main
F	�DF@
�
� �cls
��26
�� I%=1 � 5
�� �248,�224);
��
� 0,28:� 0,1023
� 1278,1023:� 1278,28
 
� 0,28
*�
4� �init
>(� 23,224,85,170,85,170,85,170,85,170
H
� 129:� 0
R
�title
\�
f� �window(X%,Y%,W%,H%)
p!�28,X%+1,Y%+1+H%,X%+1+W%,Y%+1
z� 128:�
{�28,X%,Y%+H%,X%+W%,Y%
|
�129:�
��28 X%+1,Y%+H%,X%+W%,Y%+1 
��
�� �title
��cls:�window(2,2,30,2) 
�$�"Music Files Menu..From Elk PD"
��
�� �main 
��window(3,10,30,10)
��''"1. Music Files."
��''"2. Elk PD catalogue."
�� �(-49) �music
�� �(-50) �cat
�
� �dTH
��
	� �music
	�"DIR MUSIC"
	*EXEC BOOT
	$
�music
	.�
	8
� �cat
	B*DIR README
	L�"!RUN"
	V�
�
00000000  0d 00 1e 06 eb 34 0d 00  28 09 f2 69 6e 69 74 0d  |.....4..(..init.|
00000010  00 3c 09 f2 6d 61 69 6e  0d 00 46 09 e5 8d 44 46  |.<..main..F...DF|
00000020  40 0d 07 d0 0a dd 20 f2  63 6c 73 0d 07 da 07 ef  |@..... .cls.....|
00000030  32 36 0d 07 e4 0e e3 20  49 25 3d 31 20 b8 20 35  |26..... I%=1 . 5|
00000040  0d 07 ee 11 f1 20 c4 32  34 38 2c bd 32 32 34 29  |..... .248,.224)|
00000050  3b 0d 07 f8 05 ed 0d 08  02 13 ec 20 30 2c 32 38  |;.......... 0,28|
00000060  3a df 20 30 2c 31 30 32  33 0d 08 0c 19 df 20 31  |:. 0,1023..... 1|
00000070  32 37 38 2c 31 30 32 33  3a df 20 31 32 37 38 2c  |278,1023:. 1278,|
00000080  32 38 0d 08 20 0a df 20  30 2c 32 38 0d 08 2a 05  |28.. .. 0,28..*.|
00000090  e1 0d 08 34 0b dd 20 f2  69 6e 69 74 0d 08 3e 28  |...4.. .init..>(|
000000a0  ef 20 32 33 2c 32 32 34  2c 38 35 2c 31 37 30 2c  |. 23,224,85,170,|
000000b0  38 35 2c 31 37 30 2c 38  35 2c 31 37 30 2c 38 35  |85,170,85,170,85|
000000c0  2c 31 37 30 0d 08 48 0d  fb 20 31 32 39 3a fb 20  |,170..H.. 129:. |
000000d0  30 0d 08 52 0a f2 74 69  74 6c 65 0d 08 5c 05 e1  |0..R..title..\..|
000000e0  0d 08 66 1a dd 20 f2 77  69 6e 64 6f 77 28 58 25  |..f.. .window(X%|
000000f0  2c 59 25 2c 57 25 2c 48  25 29 0d 08 70 21 ef 32  |,Y%,W%,H%)..p!.2|
00000100  38 2c 58 25 2b 31 2c 59  25 2b 31 2b 48 25 2c 58  |8,X%+1,Y%+1+H%,X|
00000110  25 2b 31 2b 57 25 2c 59  25 2b 31 0d 08 7a 0b fb  |%+1+W%,Y%+1..z..|
00000120  20 31 32 38 3a db 0d 08  7b 19 ef 32 38 2c 58 25  | 128:...{..28,X%|
00000130  2c 59 25 2b 48 25 2c 58  25 2b 57 25 2c 59 25 0d  |,Y%+H%,X%+W%,Y%.|
00000140  08 7c 0a fb 31 32 39 3a  db 0d 08 84 1e ef 32 38  |.|..129:......28|
00000150  20 58 25 2b 31 2c 59 25  2b 48 25 2c 58 25 2b 57  | X%+1,Y%+H%,X%+W|
00000160  25 2c 59 25 2b 31 20 0d  08 8e 05 e1 0d 08 98 0c  |%,Y%+1 .........|
00000170  dd 20 f2 74 69 74 6c 65  0d 08 a2 1b f2 63 6c 73  |. .title.....cls|
00000180  3a f2 77 69 6e 64 6f 77  28 32 2c 32 2c 33 30 2c  |:.window(2,2,30,|
00000190  32 29 20 0d 08 ac 24 f1  22 4d 75 73 69 63 20 46  |2) ...$."Music F|
000001a0  69 6c 65 73 20 4d 65 6e  75 2e 2e 46 72 6f 6d 20  |iles Menu..From |
000001b0  45 6c 6b 20 50 44 22 0d  08 b6 05 e1 0d 08 c0 0c  |Elk PD".........|
000001c0  dd 20 f2 6d 61 69 6e 20  0d 08 ca 17 f2 77 69 6e  |. .main .....win|
000001d0  64 6f 77 28 33 2c 31 30  2c 33 30 2c 31 30 29 0d  |dow(3,10,30,10).|
000001e0  08 cb 18 f1 27 27 22 31  2e 20 4d 75 73 69 63 20  |....''"1. Music |
000001f0  46 69 6c 65 73 2e 22 0d  08 cc 1d f1 27 27 22 32  |Files.".....''"2|
00000200  2e 20 45 6c 6b 20 50 44  20 63 61 74 61 6c 6f 67  |. Elk PD catalog|
00000210  75 65 2e 22 0d 08 d4 13  e7 20 a6 28 2d 34 39 29  |ue."..... .(-49)|
00000220  20 f2 6d 75 73 69 63 0d  08 de 11 e7 20 a6 28 2d  | .music..... .(-|
00000230  35 30 29 20 f2 63 61 74  0d 08 e8 0a e5 20 8d 64  |50) .cat..... .d|
00000240  54 48 0d 08 fc 05 e1 0d  09 06 0c dd 20 f2 6d 75  |TH.......... .mu|
00000250  73 69 63 0d 09 10 10 ff  22 44 49 52 20 4d 55 53  |sic....."DIR MUS|
00000260  49 43 22 0d 09 1a 0e 2a  45 58 45 43 20 42 4f 4f  |IC"....*EXEC BOO|
00000270  54 0d 09 24 0a f2 6d 75  73 69 63 0d 09 2e 05 e1  |T..$..music.....|
00000280  0d 09 38 0a dd 20 f2 63  61 74 0d 09 42 0f 2a 44  |..8.. .cat..B.*D|
00000290  49 52 20 52 45 41 44 4d  45 0d 09 4c 0b d7 22 21  |IR README..L.."!|
000002a0  52 55 4e 22 0d 09 56 05  e1 0d ff                 |RUN"..V....|
000002ab
MENU.m0
MENU.m1
MENU.m2
MENU.m4
MENU.m5