Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_13.ADF » PMENU
PMENU
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_User_Group » EUG_13.ADF |
| Filename: | PMENU |
| Read OK: | ✔ |
| File size: | 02E9 bytes |
| Load address: | FFFF0E00 |
| Exec address: | FFFF8023 |
File contents
10MODE1:VDU19,0,4;0;23;8202;0;0;0;
20MOVE12,12:DRAW1267,12:DRAW1267,1011:DRAW12,1011:DRAW12,12
30COLOUR2:PROCdb("PROGRAMS MENU",14,3)
40PRINTTAB(14,5)"~~~~~~~~~~~~~"
50VDU28,6,28,34,8
60COLOUR1:PRINT"PLEASE SELECT -":COLOUR3
70PRINT'"<A> ASC, VDU, CHR$ CODES"
80PRINT'"<B> COLOUR INFORMATION"
90PRINT'"<C> INKEY NEGATIVE VALUES"
100PRINT'"<D> TOKEN VALUES"
110PRINT''"<F> FILM SHOW"
120PRINT''"<M> MAIN MENU"
130REPEAT:a%=INSTR("ABCDFM",GET$):UNTILa%
140IF a%=1 THENCHAIN"$.AscCods"
150IF a%=2 THENCHAIN"$.ColInfo"
160IF a%=3 THENCHAIN"$.InkeyNg"
170IF a%=4 THENCHAIN"$.Tokens"
180IF a%=5 THENCHAIN"$.Films"
190IF a%=6 THENMODE6:CHAIN"$.MENU"
200END
210DEFPROCdb(A$,X%,Y%)
220VDU31,X%,Y%
230A%=10:X%=&56:Y%=0
240FORN%=1TO LENA$
250?&56=ASC(MID$(A$,N%))
260CALL&FFF1
270VDU23,255,?&57,?&57,?&58,?&58,?&59,?&59,?&5A,?&5A,255,8,10
280VDU23,255,?&5B,?&5B,?&5C,?&5C,?&5D,?&5D,?&5E,?&5E,255,11
290NEXT
300ENDPROC
�1:�19,0,4;0;23;8202;0;0;0;
.�12,12:�1267,12:�1267,1011:�12,1011:�12,12
�2:�db("PROGRAMS MENU",14,3)
(�14,5)"~~~~~~~~~~~~~"
2�28,6,28,34,8
< �1:�"PLEASE SELECT -":�3
F!�'"<A> ASC, VDU, CHR$ CODES"
P �'"<B> COLOUR INFORMATION"
Z"�'"<C> INKEY NEGATIVE VALUES"
d�'"<D> TOKEN VALUES"
n�''"<F> FILM SHOW"
x�''"<M> MAIN MENU"
��:a%=�"ABCDFM",�):�a%
�� a%=1 ��"$.AscCods"
�� a%=2 ��"$.ColInfo"
�� a%=3 ��"$.InkeyNg"
�� a%=4 ��"$.Tokens"
�� a%=5 ��"$.Films"
�� a%=6 ��6:�"$.MENU"
��
���db(A$,X%,Y%)
�
�31,X%,Y%
�A%=10:X%=&56:Y%=0
��N%=1� �A$
�?&56=�(�A$,N%))
�&FFF1
<�23,255,?&57,?&57,?&58,?&58,?&59,?&59,?&5A,?&5A,255,8,10
:�23,255,?&5B,?&5B,?&5C,?&5C,?&5D,?&5D,?&5E,?&5E,255,11
"�
,�
� 00000000 0d 00 0a 1f eb 31 3a ef 31 39 2c 30 2c 34 3b 30 |.....1:.19,0,4;0|
00000010 3b 32 33 3b 38 32 30 32 3b 30 3b 30 3b 30 3b 0d |;23;8202;0;0;0;.|
00000020 00 14 2e ec 31 32 2c 31 32 3a df 31 32 36 37 2c |....12,12:.1267,|
00000030 31 32 3a df 31 32 36 37 2c 31 30 31 31 3a df 31 |12:.1267,1011:.1|
00000040 32 2c 31 30 31 31 3a df 31 32 2c 31 32 0d 00 1e |2,1011:.12,12...|
00000050 20 fb 32 3a f2 64 62 28 22 50 52 4f 47 52 41 4d | .2:.db("PROGRAM|
00000060 53 20 4d 45 4e 55 22 2c 31 34 2c 33 29 0d 00 28 |S MENU",14,3)..(|
00000070 1a f1 8a 31 34 2c 35 29 22 7e 7e 7e 7e 7e 7e 7e |...14,5)"~~~~~~~|
00000080 7e 7e 7e 7e 7e 7e 22 0d 00 32 11 ef 32 38 2c 36 |~~~~~~"..2..28,6|
00000090 2c 32 38 2c 33 34 2c 38 0d 00 3c 1c fb 31 3a f1 |,28,34,8..<..1:.|
000000a0 22 50 4c 45 41 53 45 20 53 45 4c 45 43 54 20 2d |"PLEASE SELECT -|
000000b0 22 3a fb 33 0d 00 46 21 f1 27 22 3c 41 3e 20 20 |":.3..F!.'"<A> |
000000c0 41 53 43 2c 20 56 44 55 2c 20 43 48 52 24 20 43 |ASC, VDU, CHR$ C|
000000d0 4f 44 45 53 22 0d 00 50 1f f1 27 22 3c 42 3e 20 |ODES"..P..'"<B> |
000000e0 20 43 4f 4c 4f 55 52 20 49 4e 46 4f 52 4d 41 54 | COLOUR INFORMAT|
000000f0 49 4f 4e 22 0d 00 5a 22 f1 27 22 3c 43 3e 20 20 |ION"..Z".'"<C> |
00000100 49 4e 4b 45 59 20 4e 45 47 41 54 49 56 45 20 56 |INKEY NEGATIVE V|
00000110 41 4c 55 45 53 22 0d 00 64 19 f1 27 22 3c 44 3e |ALUES"..d..'"<D>|
00000120 20 20 54 4f 4b 45 4e 20 56 41 4c 55 45 53 22 0d | TOKEN VALUES".|
00000130 00 6e 17 f1 27 27 22 3c 46 3e 20 20 46 49 4c 4d |.n..''"<F> FILM|
00000140 20 53 48 4f 57 22 0d 00 78 17 f1 27 27 22 3c 4d | SHOW"..x..''"<M|
00000150 3e 20 20 4d 41 49 4e 20 4d 45 4e 55 22 0d 00 82 |> MAIN MENU"...|
00000160 19 f5 3a 61 25 3d a7 22 41 42 43 44 46 4d 22 2c |..:a%=."ABCDFM",|
00000170 be 29 3a fd 61 25 0d 00 8c 18 e7 20 61 25 3d 31 |.):.a%..... a%=1|
00000180 20 8c d7 22 24 2e 41 73 63 43 6f 64 73 22 0d 00 | .."$.AscCods"..|
00000190 96 18 e7 20 61 25 3d 32 20 8c d7 22 24 2e 43 6f |... a%=2 .."$.Co|
000001a0 6c 49 6e 66 6f 22 0d 00 a0 18 e7 20 61 25 3d 33 |lInfo"..... a%=3|
000001b0 20 8c d7 22 24 2e 49 6e 6b 65 79 4e 67 22 0d 00 | .."$.InkeyNg"..|
000001c0 aa 17 e7 20 61 25 3d 34 20 8c d7 22 24 2e 54 6f |... a%=4 .."$.To|
000001d0 6b 65 6e 73 22 0d 00 b4 16 e7 20 61 25 3d 35 20 |kens"..... a%=5 |
000001e0 8c d7 22 24 2e 46 69 6c 6d 73 22 0d 00 be 18 e7 |.."$.Films".....|
000001f0 20 61 25 3d 36 20 8c eb 36 3a d7 22 24 2e 4d 45 | a%=6 ..6:."$.ME|
00000200 4e 55 22 0d 00 c8 05 e0 0d 00 d2 12 dd f2 64 62 |NU"...........db|
00000210 28 41 24 2c 58 25 2c 59 25 29 0d 00 dc 0d ef 33 |(A$,X%,Y%).....3|
00000220 31 2c 58 25 2c 59 25 0d 00 e6 15 41 25 3d 31 30 |1,X%,Y%....A%=10|
00000230 3a 58 25 3d 26 35 36 3a 59 25 3d 30 0d 00 f0 0e |:X%=&56:Y%=0....|
00000240 e3 4e 25 3d 31 b8 20 a9 41 24 0d 00 fa 13 3f 26 |.N%=1. .A$....?&|
00000250 35 36 3d 97 28 c1 41 24 2c 4e 25 29 29 0d 01 04 |56=.(.A$,N%))...|
00000260 0a d6 26 46 46 46 31 0d 01 0e 3c ef 32 33 2c 32 |..&FFF1...<.23,2|
00000270 35 35 2c 3f 26 35 37 2c 3f 26 35 37 2c 3f 26 35 |55,?&57,?&57,?&5|
00000280 38 2c 3f 26 35 38 2c 3f 26 35 39 2c 3f 26 35 39 |8,?&58,?&59,?&59|
00000290 2c 3f 26 35 41 2c 3f 26 35 41 2c 32 35 35 2c 38 |,?&5A,?&5A,255,8|
000002a0 2c 31 30 0d 01 18 3a ef 32 33 2c 32 35 35 2c 3f |,10...:.23,255,?|
000002b0 26 35 42 2c 3f 26 35 42 2c 3f 26 35 43 2c 3f 26 |&5B,?&5B,?&5C,?&|
000002c0 35 43 2c 3f 26 35 44 2c 3f 26 35 44 2c 3f 26 35 |5C,?&5D,?&5D,?&5|
000002d0 45 2c 3f 26 35 45 2c 32 35 35 2c 31 31 0d 01 22 |E,?&5E,255,11.."|
000002e0 05 ed 0d 01 2c 05 e1 0d ff |....,....|
000002e9 
PMENU.m0
PMENU.m1
PMENU.m2
PMENU.m4
PMENU.m5
.