Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_09.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_User_Group » EUG_09.ADF
Filename: MENU
Read OK:
File size: 0351 bytes
Load address: FFFF1D00
Exec address: FFFF8023
File contents
   10REM MENU
   20MODE0
   30VDU23,1,0;0;0;0;
   40*LOAD TITLE 3000
   50IF GET
   60MODE4
   70VDU23,1,0;0;0;0;
   80PROCdouble("M E N U",15,2)
   90PROCdouble("*******",15,4)
  100PRINT''
  110PRINT"USE LETTER KEYS TO MAKE YOUR SELECTION"
  120PRINT'''
  130PRINT"(A) LETTERS"
  140PRINT'"(B) GAMES EXTRA!"
  150PRINT'"(C) GRAPHICS"
  160PRINT'"(D) PROGRAMS"
  170PRINT'"(E) GLOBE"
  180PRINT'"(F) ADVERTS"
  190PRINT'"(G) THE LAST BIT !"
  200REPEAT
  210A$=GET$
  220UNTIL A$="A" OR A$="B" OR A$="C" OR A$="D" OR A$="E" OR A$="F" OR A$="G"
  230IF A$="A" THEN CHAIN"LETMEN"
  240IF A$="B" THEN CHAIN"GAMES"
  250IF A$="C" THEN CHAIN"PICMEN"
  260IF A$="D" THEN CHAIN"PROGS"
  270IF A$="E" THEN CHAIN"globe"
  280IF A$="F" THEN CHAIN"ADVERTS"
  290IF A$="G" THEN CHAIN"LAST"
  300END
  310 DEF PROCdouble(A$,K,L)
  320LOCAL N
  330A%=135
  340A%=&A:X%=0:Y%=&A
  350D=&A00
  360FOR N=1 TO LEN(A$)
  370B$=MID$(A$,N,1)
  380?D=ASC(B$)
  390CALL (&FFF1)
  400VDU23,240,D?1,D?1,D?2,D?2,D?3,D?3,D?4,D?4
  410VDU23,241,D?5,D?5,D?6,D?6,D?7,D?7,D?8,D?8
  420PRINTTAB(K+N,L);CHR$240;TAB(K+N,L+1);CHR$241
  430NEXT N
  440ENDPROC


� MENU
�0
�23,1,0;0;0;0;
(*LOAD TITLE 3000
2� �
<�4
F�23,1,0;0;0;0;
P�double("M E N U",15,2)
Z�double("*******",15,4)
d�''
n-�"USE LETTER KEYS TO MAKE YOUR SELECTION"
x�'''
��"(A) LETTERS"
��'"(B) GAMES EXTRA!"
��'"(C) GRAPHICS"
��'"(D) PROGRAMS"
��'"(E) GLOBE"
��'"(F) ADVERTS"
��'"(G) THE LAST BIT !"
��
�A$=�
�B� A$="A" � A$="B" � A$="C" � A$="D" � A$="E" � A$="F" � A$="G"
�� A$="A" � �"LETMEN"
�� A$="B" � �"GAMES"
�� A$="C" � �"PICMEN"
� A$="D" � �"PROGS"
� A$="E" � �"globe"
� A$="F" � �"ADVERTS"
"� A$="G" � �"LAST"
,�
6 � �double(A$,K,L)
@� N
J
A%=135
TA%=&A:X%=0:Y%=&A
^
D=&A00
h� N=1 � �(A$)
rB$=�A$,N,1)
|?D=�(B$)
�
� (&FFF1)
�+�23,240,D?1,D?1,D?2,D?2,D?3,D?3,D?4,D?4
�+�23,241,D?5,D?5,D?6,D?6,D?7,D?7,D?8,D?8
� �K+N,L);�240;�K+N,L+1);�241
�� N
��
�
00000000  0d 00 0a 0a f4 20 4d 45  4e 55 0d 00 14 06 eb 30  |..... MENU.....0|
00000010  0d 00 1e 12 ef 32 33 2c  31 2c 30 3b 30 3b 30 3b  |.....23,1,0;0;0;|
00000020  30 3b 0d 00 28 14 2a 4c  4f 41 44 20 54 49 54 4c  |0;..(.*LOAD TITL|
00000030  45 20 33 30 30 30 0d 00  32 07 e7 20 a5 0d 00 3c  |E 3000..2.. ...<|
00000040  06 eb 34 0d 00 46 12 ef  32 33 2c 31 2c 30 3b 30  |..4..F..23,1,0;0|
00000050  3b 30 3b 30 3b 0d 00 50  1b f2 64 6f 75 62 6c 65  |;0;0;..P..double|
00000060  28 22 4d 20 45 20 4e 20  55 22 2c 31 35 2c 32 29  |("M E N U",15,2)|
00000070  0d 00 5a 1b f2 64 6f 75  62 6c 65 28 22 2a 2a 2a  |..Z..double("***|
00000080  2a 2a 2a 2a 22 2c 31 35  2c 34 29 0d 00 64 07 f1  |****",15,4)..d..|
00000090  27 27 0d 00 6e 2d f1 22  55 53 45 20 4c 45 54 54  |''..n-."USE LETT|
000000a0  45 52 20 4b 45 59 53 20  54 4f 20 4d 41 4b 45 20  |ER KEYS TO MAKE |
000000b0  59 4f 55 52 20 53 45 4c  45 43 54 49 4f 4e 22 0d  |YOUR SELECTION".|
000000c0  00 78 08 f1 27 27 27 0d  00 82 12 f1 22 28 41 29  |.x..'''....."(A)|
000000d0  20 4c 45 54 54 45 52 53  22 0d 00 8c 18 f1 27 22  | LETTERS".....'"|
000000e0  28 42 29 20 47 41 4d 45  53 20 45 58 54 52 41 21  |(B) GAMES EXTRA!|
000000f0  22 0d 00 96 14 f1 27 22  28 43 29 20 47 52 41 50  |".....'"(C) GRAP|
00000100  48 49 43 53 22 0d 00 a0  14 f1 27 22 28 44 29 20  |HICS".....'"(D) |
00000110  50 52 4f 47 52 41 4d 53  22 0d 00 aa 11 f1 27 22  |PROGRAMS".....'"|
00000120  28 45 29 20 47 4c 4f 42  45 22 0d 00 b4 13 f1 27  |(E) GLOBE".....'|
00000130  22 28 46 29 20 41 44 56  45 52 54 53 22 0d 00 be  |"(F) ADVERTS"...|
00000140  1a f1 27 22 28 47 29 20  54 48 45 20 4c 41 53 54  |..'"(G) THE LAST|
00000150  20 42 49 54 20 21 22 0d  00 c8 05 f5 0d 00 d2 08  | BIT !".........|
00000160  41 24 3d be 0d 00 dc 42  fd 20 41 24 3d 22 41 22  |A$=....B. A$="A"|
00000170  20 84 20 41 24 3d 22 42  22 20 84 20 41 24 3d 22  | . A$="B" . A$="|
00000180  43 22 20 84 20 41 24 3d  22 44 22 20 84 20 41 24  |C" . A$="D" . A$|
00000190  3d 22 45 22 20 84 20 41  24 3d 22 46 22 20 84 20  |="E" . A$="F" . |
000001a0  41 24 3d 22 47 22 0d 00  e6 18 e7 20 41 24 3d 22  |A$="G"..... A$="|
000001b0  41 22 20 8c 20 d7 22 4c  45 54 4d 45 4e 22 0d 00  |A" . ."LETMEN"..|
000001c0  f0 17 e7 20 41 24 3d 22  42 22 20 8c 20 d7 22 47  |... A$="B" . ."G|
000001d0  41 4d 45 53 22 0d 00 fa  18 e7 20 41 24 3d 22 43  |AMES"..... A$="C|
000001e0  22 20 8c 20 d7 22 50 49  43 4d 45 4e 22 0d 01 04  |" . ."PICMEN"...|
000001f0  17 e7 20 41 24 3d 22 44  22 20 8c 20 d7 22 50 52  |.. A$="D" . ."PR|
00000200  4f 47 53 22 0d 01 0e 17  e7 20 41 24 3d 22 45 22  |OGS"..... A$="E"|
00000210  20 8c 20 d7 22 67 6c 6f  62 65 22 0d 01 18 19 e7  | . ."globe".....|
00000220  20 41 24 3d 22 46 22 20  8c 20 d7 22 41 44 56 45  | A$="F" . ."ADVE|
00000230  52 54 53 22 0d 01 22 16  e7 20 41 24 3d 22 47 22  |RTS"..".. A$="G"|
00000240  20 8c 20 d7 22 4c 41 53  54 22 0d 01 2c 05 e0 0d  | . ."LAST"..,...|
00000250  01 36 16 20 dd 20 f2 64  6f 75 62 6c 65 28 41 24  |.6. . .double(A$|
00000260  2c 4b 2c 4c 29 0d 01 40  07 ea 20 4e 0d 01 4a 0a  |,K,L)..@.. N..J.|
00000270  41 25 3d 31 33 35 0d 01  54 14 41 25 3d 26 41 3a  |A%=135..T.A%=&A:|
00000280  58 25 3d 30 3a 59 25 3d  26 41 0d 01 5e 0a 44 3d  |X%=0:Y%=&A..^.D=|
00000290  26 41 30 30 0d 01 68 11  e3 20 4e 3d 31 20 b8 20  |&A00..h.. N=1 . |
000002a0  a9 28 41 24 29 0d 01 72  0f 42 24 3d c1 41 24 2c  |.(A$)..r.B$=.A$,|
000002b0  4e 2c 31 29 0d 01 7c 0c  3f 44 3d 97 28 42 24 29  |N,1)..|.?D=.(B$)|
000002c0  0d 01 86 0d d6 20 28 26  46 46 46 31 29 0d 01 90  |..... (&FFF1)...|
000002d0  2b ef 32 33 2c 32 34 30  2c 44 3f 31 2c 44 3f 31  |+.23,240,D?1,D?1|
000002e0  2c 44 3f 32 2c 44 3f 32  2c 44 3f 33 2c 44 3f 33  |,D?2,D?2,D?3,D?3|
000002f0  2c 44 3f 34 2c 44 3f 34  0d 01 9a 2b ef 32 33 2c  |,D?4,D?4...+.23,|
00000300  32 34 31 2c 44 3f 35 2c  44 3f 35 2c 44 3f 36 2c  |241,D?5,D?5,D?6,|
00000310  44 3f 36 2c 44 3f 37 2c  44 3f 37 2c 44 3f 38 2c  |D?6,D?7,D?7,D?8,|
00000320  44 3f 38 0d 01 a4 20 f1  8a 4b 2b 4e 2c 4c 29 3b  |D?8... ..K+N,L);|
00000330  bd 32 34 30 3b 8a 4b 2b  4e 2c 4c 2b 31 29 3b bd  |.240;.K+N,L+1);.|
00000340  32 34 31 0d 01 ae 07 ed  20 4e 0d 01 b8 05 e1 0d  |241..... N......|
00000350  ff                                                |.|
00000351
MENU.m0
MENU.m1
MENU.m2
MENU.m4
MENU.m5