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