L/LMenu

Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_19.ADF » L/LMenu

L/LMenu

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_19.ADF
Filename:	L/LMenu
Read OK:	✔
File size:	0669 bytes
Load address:	FFFF1D00
Exec address:	FFFF8023

File contents

   10REM EUG MENU ADAPTED FROM PROGS BY R. DIMOND
   20HIMEM=&2500
   30*LOAD $.CODE2
   35D%=FALSE
   40D=FALSE
   50VDU22,4:VDU19,0,4;0;23;8202;0;0;0;
   60MOVE12,12:DRAW1267,12:DRAW1267,1011:DRAW12,1011:DRAW12,12
   70PRINTTAB(10,2)" EUG19 LETTERS MENU" 
   80PRINTTAB(10,4)" ~~~~~~~~~~~~~~~~~~~"   
   90VDU28,5,29,35,8
  100COLOUR1:PRINT"PLEASE SELECT -":COLOUR3
  110PRINT'"<A> John Crane"
  120PRINT'"<B> Pete Howes"
  130PRINT'"<C> John McHugh"
  140PRINT'"<D> Derek Walker"
  150PRINT'"<E> John Woodhams"  
  160PRINT'"<F> Allan Eccles"
  170PRINT'"<G> Tony Boarer"
  190PRINT'"<Y> 40 Column text?"
  195PRINT'"<R>  Return to Main Menu" 
  200*FX21,0
  210REPEAT:a%=INSTR("ABCDEFGYR",GET$):UNTILa% 
  215IFa%=1THENf$="Crane":fl%=1:PROCtext:GOTO40  
  220IFa%=2THENf$="Howes":fl%=1:PROCtext:GOTO40
  230IFa%=3THENf$="McHugh":fl%=1:PROCtext:GOTO40  
  240IFa%=4THENf$="Walker":fl%=1:PROCtext:GOTO40 
  250IFa%=5THENf$="Wodhms":fl%=1:PROCtext:GOTO40 
  260IFa%=6THENf$="Eccles":fl%=1:PROCtext:GOTO40 
  270IFa%=7THENf$="BORER":fl%=1:PROCtext:GOTO40  
  300IFa%=8THEND%=TRUE:GOTO40
  305IFa%=9THENOSCLI"DIR $":CHAIN"MENU"
  310END
  320DEFPROCtext
  330P=FALSE
  340f%=0
  350VDU22,6:f%=f%+1:CALL&A3F:OSCLI"LOAD "+f$+STR$f%+" 2500"
  355IF D% m%=6ELSE m%=3
  360VDU22,m%:IFNOTP VDU14:PRINT''"SHIFT TO SCROLL"
  370IF D% PROCcol40 ELSE CALL&A0F  
  380IFf%=fl% IFD PRINT"PRESS SPACE TO CONTINUE":G=GET:PROCpict:GOTO420
  390IFf%=fl% GOTO420
  400IFNOTP PRINT''"PRESS SPACE TO CONTINUE":G=GET
  410GOTO350
  420VDU3:IFNOTP PRINT''"<P> TO PRINT TEXT <M> FOR MENU " ELSEGOTO30 
  430REPEAT:a%=INSTR("PMR",GET$):UNTILa%
  440IFa%=1 P=TRUE:VDU2,15:GOTO340
  450IFa%=2 GOTO40
  460IF a%=3 CHAIN P$
  470UNTILFALSE
  480DEFPROCpict
  490d%=0
  500d%=d%+1:VDU22,0:OSCLI"LOAD PIC"+STR$d%
  510IFNOTP PRINT"PRESS SPACE TO CONTINUE":G=GET ELSE CALL &90A
  520IFd%=dl% VDU22,3:ENDPROC
  530GOTO500
 1000DEFPROCcol40
 1010addr=HIMEM
 1020REPEAT
 1030a%=?addr
 1040IFa%=&0D THENPRINT
 1050IFa%=&1A a%=&20
 1060IFa%=&20 AND POS>28 THENPRINT
 1070IF a%=&20 AND POS=0 THENREPEAT:addr=addr+1:a%=?addr:UNTILa%<>&20
 1080PRINTCHR$a%;
 1090addr=addr+1
 1100UNTILa%=0
 1110ENDPROC
 2150IFa%=1THENf$="Crane":fl%=1:PROCtext:GOTO40


.� EUG MENU ADAPTED FROM PROGS BY R. DIMOND
�=&2500
*LOAD $.CODE2
#D%=�
(D=�
2"�22,4:�19,0,4;0;23;8202;0;0;0;
<.�12,12:�1267,12:�1267,1011:�12,1011:�12,12
F!�10,2)" EUG19 LETTERS MENU" 
P$�10,4)" ~~~~~~~~~~~~~~~~~~~"   
Z�28,5,29,35,8
d�1:�"PLEASE SELECT -":�3
n�'"<A> John Crane"
x�'"<B> Pete Howes"
��'"<C> John McHugh"
��'"<D> Derek Walker"
��'"<E> John Woodhams"  
��'"<F> Allan Eccles"
��'"<G> Tony Boarer"
��'"<Y> 40 Column text?"
�!�'"<R>  Return to Main Menu" 
�*FX21,0
��:a%=�"ABCDEFGYR",�):�a% 
�(�a%=1�f$="Crane":fl%=1:�text:�Th@  
�&�a%=2�f$="Howes":fl%=1:�text:�Th@
�)�a%=3�f$="McHugh":fl%=1:�text:�Th@  
�(�a%=4�f$="Walker":fl%=1:�text:�Th@ 
�(�a%=5�f$="Wodhms":fl%=1:�text:�Th@ 
(�a%=6�f$="Eccles":fl%=1:�text:�Th@ 
(�a%=7�f$="BORER":fl%=1:�text:�Th@  
,�a%=8�D%=�:�Th@
1�a%=9��"DIR $":�"MENU"
6�
@
��text
JP=�
Tf%=0
^/�22,6:f%=f%+1:�&A3F:�"LOAD "+f$+�f%+" 2500"
c� D% m%=6� m%=3
h'�22,m%:�P �14:�''"SHIFT TO SCROLL"
r� D% �col40 � �&A0F  
|9�f%=fl% �D �"PRESS SPACE TO CONTINUE":G=�:�pict:�tdA
��f%=fl% �tdA
�(�P �''"PRESS SPACE TO CONTINUE":G=�
�	�D^A
�7�3:�P �''"<P> TO PRINT TEXT <M> FOR MENU " ��T^@ 
��:a%=�"PMR",�):�a%
��a%=1 P=�:�2,15:�DTA
��a%=2 �Th@
�� a%=3 � P$
���
�
��pict
�d%=0
�!d%=d%+1:�22,0:�"LOAD PIC"+�d%
�/�P �"PRESS SPACE TO CONTINUE":G=� � � &90A
�d%=dl% �22,3:�
	�dtA
���col40
�
addr=�
��
a%=?addr
�a%=&0D ��
�a%=&1A a%=&20
$�a%=&20 � �>28 ��
.3� a%=&20 � �=0 ��:addr=addr+1:a%=?addr:�a%<>&20
8	�a%;
Baddr=addr+1
L	�a%=0
V�
f'�a%=1�f$="Crane":fl%=1:�text:�Th@ 
�

00000000  0d 00 0a 2e f4 20 45 55  47 20 4d 45 4e 55 20 41  |..... EUG MENU A|
00000010  44 41 50 54 45 44 20 46  52 4f 4d 20 50 52 4f 47  |DAPTED FROM PROG|
00000020  53 20 42 59 20 52 2e 20  44 49 4d 4f 4e 44 0d 00  |S BY R. DIMOND..|
00000030  14 0b d3 3d 26 32 35 30  30 0d 00 1e 11 2a 4c 4f  |...=&2500....*LO|
00000040  41 44 20 24 2e 43 4f 44  45 32 0d 00 23 08 44 25  |AD $.CODE2..#.D%|
00000050  3d a3 0d 00 28 07 44 3d  a3 0d 00 32 22 ef 32 32  |=...(.D=...2".22|
00000060  2c 34 3a ef 31 39 2c 30  2c 34 3b 30 3b 32 33 3b  |,4:.19,0,4;0;23;|
00000070  38 32 30 32 3b 30 3b 30  3b 30 3b 0d 00 3c 2e ec  |8202;0;0;0;..<..|
00000080  31 32 2c 31 32 3a df 31  32 36 37 2c 31 32 3a df  |12,12:.1267,12:.|
00000090  31 32 36 37 2c 31 30 31  31 3a df 31 32 2c 31 30  |1267,1011:.12,10|
000000a0  31 31 3a df 31 32 2c 31  32 0d 00 46 21 f1 8a 31  |11:.12,12..F!..1|
000000b0  30 2c 32 29 22 20 45 55  47 31 39 20 4c 45 54 54  |0,2)" EUG19 LETT|
000000c0  45 52 53 20 4d 45 4e 55  22 20 0d 00 50 24 f1 8a  |ERS MENU" ..P$..|
000000d0  31 30 2c 34 29 22 20 7e  7e 7e 7e 7e 7e 7e 7e 7e  |10,4)" ~~~~~~~~~|
000000e0  7e 7e 7e 7e 7e 7e 7e 7e  7e 7e 22 20 20 20 0d 00  |~~~~~~~~~~"   ..|
000000f0  5a 11 ef 32 38 2c 35 2c  32 39 2c 33 35 2c 38 0d  |Z..28,5,29,35,8.|
00000100  00 64 1c fb 31 3a f1 22  50 4c 45 41 53 45 20 53  |.d..1:."PLEASE S|
00000110  45 4c 45 43 54 20 2d 22  3a fb 33 0d 00 6e 16 f1  |ELECT -":.3..n..|
00000120  27 22 3c 41 3e 20 4a 6f  68 6e 20 43 72 61 6e 65  |'"<A> John Crane|
00000130  22 0d 00 78 16 f1 27 22  3c 42 3e 20 50 65 74 65  |"..x..'"<B> Pete|
00000140  20 48 6f 77 65 73 22 0d  00 82 17 f1 27 22 3c 43  | Howes".....'"<C|
00000150  3e 20 4a 6f 68 6e 20 4d  63 48 75 67 68 22 0d 00  |> John McHugh"..|
00000160  8c 18 f1 27 22 3c 44 3e  20 44 65 72 65 6b 20 57  |...'"<D> Derek W|
00000170  61 6c 6b 65 72 22 0d 00  96 1b f1 27 22 3c 45 3e  |alker".....'"<E>|
00000180  20 4a 6f 68 6e 20 57 6f  6f 64 68 61 6d 73 22 20  | John Woodhams" |
00000190  20 0d 00 a0 18 f1 27 22  3c 46 3e 20 41 6c 6c 61  | .....'"<F> Alla|
000001a0  6e 20 45 63 63 6c 65 73  22 0d 00 aa 17 f1 27 22  |n Eccles".....'"|
000001b0  3c 47 3e 20 54 6f 6e 79  20 42 6f 61 72 65 72 22  |<G> Tony Boarer"|
000001c0  0d 00 be 1b f1 27 22 3c  59 3e 20 34 30 20 43 6f  |.....'"<Y> 40 Co|
000001d0  6c 75 6d 6e 20 74 65 78  74 3f 22 0d 00 c3 21 f1  |lumn text?"...!.|
000001e0  27 22 3c 52 3e 20 20 52  65 74 75 72 6e 20 74 6f  |'"<R>  Return to|
000001f0  20 4d 61 69 6e 20 4d 65  6e 75 22 20 0d 00 c8 0b  | Main Menu" ....|
00000200  2a 46 58 32 31 2c 30 0d  00 d2 1d f5 3a 61 25 3d  |*FX21,0.....:a%=|
00000210  a7 22 41 42 43 44 45 46  47 59 52 22 2c be 29 3a  |."ABCDEFGYR",.):|
00000220  fd 61 25 20 0d 00 d7 28  e7 61 25 3d 31 8c 66 24  |.a% ...(.a%=1.f$|
00000230  3d 22 43 72 61 6e 65 22  3a 66 6c 25 3d 31 3a f2  |="Crane":fl%=1:.|
00000240  74 65 78 74 3a e5 8d 54  68 40 20 20 0d 00 dc 26  |text:..Th@  ...&|
00000250  e7 61 25 3d 32 8c 66 24  3d 22 48 6f 77 65 73 22  |.a%=2.f$="Howes"|
00000260  3a 66 6c 25 3d 31 3a f2  74 65 78 74 3a e5 8d 54  |:fl%=1:.text:..T|
00000270  68 40 0d 00 e6 29 e7 61  25 3d 33 8c 66 24 3d 22  |h@...).a%=3.f$="|
00000280  4d 63 48 75 67 68 22 3a  66 6c 25 3d 31 3a f2 74  |McHugh":fl%=1:.t|
00000290  65 78 74 3a e5 8d 54 68  40 20 20 0d 00 f0 28 e7  |ext:..Th@  ...(.|
000002a0  61 25 3d 34 8c 66 24 3d  22 57 61 6c 6b 65 72 22  |a%=4.f$="Walker"|
000002b0  3a 66 6c 25 3d 31 3a f2  74 65 78 74 3a e5 8d 54  |:fl%=1:.text:..T|
000002c0  68 40 20 0d 00 fa 28 e7  61 25 3d 35 8c 66 24 3d  |h@ ...(.a%=5.f$=|
000002d0  22 57 6f 64 68 6d 73 22  3a 66 6c 25 3d 31 3a f2  |"Wodhms":fl%=1:.|
000002e0  74 65 78 74 3a e5 8d 54  68 40 20 0d 01 04 28 e7  |text:..Th@ ...(.|
000002f0  61 25 3d 36 8c 66 24 3d  22 45 63 63 6c 65 73 22  |a%=6.f$="Eccles"|
00000300  3a 66 6c 25 3d 31 3a f2  74 65 78 74 3a e5 8d 54  |:fl%=1:.text:..T|
00000310  68 40 20 0d 01 0e 28 e7  61 25 3d 37 8c 66 24 3d  |h@ ...(.a%=7.f$=|
00000320  22 42 4f 52 45 52 22 3a  66 6c 25 3d 31 3a f2 74  |"BORER":fl%=1:.t|
00000330  65 78 74 3a e5 8d 54 68  40 20 20 0d 01 2c 14 e7  |ext:..Th@  ..,..|
00000340  61 25 3d 38 8c 44 25 3d  b9 3a e5 8d 54 68 40 0d  |a%=8.D%=.:..Th@.|
00000350  01 31 1a e7 61 25 3d 39  8c ff 22 44 49 52 20 24  |.1..a%=9.."DIR $|
00000360  22 3a d7 22 4d 45 4e 55  22 0d 01 36 05 e0 0d 01  |":."MENU"..6....|
00000370  40 0a dd f2 74 65 78 74  0d 01 4a 07 50 3d a3 0d  |@...text..J.P=..|
00000380  01 54 08 66 25 3d 30 0d  01 5e 2f ef 32 32 2c 36  |.T.f%=0..^/.22,6|
00000390  3a 66 25 3d 66 25 2b 31  3a d6 26 41 33 46 3a ff  |:f%=f%+1:.&A3F:.|
000003a0  22 4c 4f 41 44 20 22 2b  66 24 2b c3 66 25 2b 22  |"LOAD "+f$+.f%+"|
000003b0  20 32 35 30 30 22 0d 01  63 13 e7 20 44 25 20 6d  | 2500"..c.. D% m|
000003c0  25 3d 36 8b 20 6d 25 3d  33 0d 01 68 27 ef 32 32  |%=6. m%=3..h'.22|
000003d0  2c 6d 25 3a e7 ac 50 20  ef 31 34 3a f1 27 27 22  |,m%:..P .14:.''"|
000003e0  53 48 49 46 54 20 54 4f  20 53 43 52 4f 4c 4c 22  |SHIFT TO SCROLL"|
000003f0  0d 01 72 19 e7 20 44 25  20 f2 63 6f 6c 34 30 20  |..r.. D% .col40 |
00000400  8b 20 d6 26 41 30 46 20  20 0d 01 7c 39 e7 66 25  |. .&A0F  ..|9.f%|
00000410  3d 66 6c 25 20 e7 44 20  f1 22 50 52 45 53 53 20  |=fl% .D ."PRESS |
00000420  53 50 41 43 45 20 54 4f  20 43 4f 4e 54 49 4e 55  |SPACE TO CONTINU|
00000430  45 22 3a 47 3d a5 3a f2  70 69 63 74 3a e5 8d 74  |E":G=.:.pict:..t|
00000440  64 41 0d 01 86 11 e7 66  25 3d 66 6c 25 20 e5 8d  |dA.....f%=fl% ..|
00000450  74 64 41 0d 01 90 28 e7  ac 50 20 f1 27 27 22 50  |tdA...(..P .''"P|
00000460  52 45 53 53 20 53 50 41  43 45 20 54 4f 20 43 4f  |RESS SPACE TO CO|
00000470  4e 54 49 4e 55 45 22 3a  47 3d a5 0d 01 9a 09 e5  |NTINUE":G=......|
00000480  8d 44 5e 41 0d 01 a4 37  ef 33 3a e7 ac 50 20 f1  |.D^A...7.3:..P .|
00000490  27 27 22 3c 50 3e 20 54  4f 20 50 52 49 4e 54 20  |''"<P> TO PRINT |
000004a0  54 45 58 54 20 3c 4d 3e  20 46 4f 52 20 4d 45 4e  |TEXT <M> FOR MEN|
000004b0  55 20 22 20 8b e5 8d 54  5e 40 20 0d 01 ae 16 f5  |U " ...T^@ .....|
000004c0  3a 61 25 3d a7 22 50 4d  52 22 2c be 29 3a fd 61  |:a%=."PMR",.):.a|
000004d0  25 0d 01 b8 19 e7 61 25  3d 31 20 50 3d b9 3a ef  |%.....a%=1 P=.:.|
000004e0  32 2c 31 35 3a e5 8d 44  54 41 0d 01 c2 0f e7 61  |2,15:..DTA.....a|
000004f0  25 3d 32 20 e5 8d 54 68  40 0d 01 cc 0f e7 20 61  |%=2 ..Th@..... a|
00000500  25 3d 33 20 d7 20 50 24  0d 01 d6 06 fd a3 0d 01  |%=3 . P$........|
00000510  e0 0a dd f2 70 69 63 74  0d 01 ea 08 64 25 3d 30  |....pict....d%=0|
00000520  0d 01 f4 21 64 25 3d 64  25 2b 31 3a ef 32 32 2c  |...!d%=d%+1:.22,|
00000530  30 3a ff 22 4c 4f 41 44  20 50 49 43 22 2b c3 64  |0:."LOAD PIC"+.d|
00000540  25 0d 01 fe 2f e7 ac 50  20 f1 22 50 52 45 53 53  |%.../..P ."PRESS|
00000550  20 53 50 41 43 45 20 54  4f 20 43 4f 4e 54 49 4e  | SPACE TO CONTIN|
00000560  55 45 22 3a 47 3d a5 20  8b 20 d6 20 26 39 30 41  |UE":G=. . . &90A|
00000570  0d 02 08 13 e7 64 25 3d  64 6c 25 20 ef 32 32 2c  |.....d%=dl% .22,|
00000580  33 3a e1 0d 02 12 09 e5  8d 64 74 41 0d 03 e8 0b  |3:.......dtA....|
00000590  dd f2 63 6f 6c 34 30 0d  03 f2 0a 61 64 64 72 3d  |..col40....addr=|
000005a0  93 0d 03 fc 05 f5 0d 04  06 0c 61 25 3d 3f 61 64  |..........a%=?ad|
000005b0  64 72 0d 04 10 0e e7 61  25 3d 26 30 44 20 8c f1  |dr.....a%=&0D ..|
000005c0  0d 04 1a 12 e7 61 25 3d  26 31 41 20 61 25 3d 26  |.....a%=&1A a%=&|
000005d0  32 30 0d 04 24 15 e7 61  25 3d 26 32 30 20 80 20  |20..$..a%=&20 . |
000005e0  b1 3e 32 38 20 8c f1 0d  04 2e 33 e7 20 61 25 3d  |.>28 .....3. a%=|
000005f0  26 32 30 20 80 20 b1 3d  30 20 8c f5 3a 61 64 64  |&20 . .=0 ..:add|
00000600  72 3d 61 64 64 72 2b 31  3a 61 25 3d 3f 61 64 64  |r=addr+1:a%=?add|
00000610  72 3a fd 61 25 3c 3e 26  32 30 0d 04 38 09 f1 bd  |r:.a%<>&20..8...|
00000620  61 25 3b 0d 04 42 0f 61  64 64 72 3d 61 64 64 72  |a%;..B.addr=addr|
00000630  2b 31 0d 04 4c 09 fd 61  25 3d 30 0d 04 56 05 e1  |+1..L..a%=0..V..|
00000640  0d 08 66 27 e7 61 25 3d  31 8c 66 24 3d 22 43 72  |..f'.a%=1.f$="Cr|
00000650  61 6e 65 22 3a 66 6c 25  3d 31 3a f2 74 65 78 74  |ane":fl%=1:.text|
00000660  3a e5 8d 54 68 40 20 0d  ff                       |:..Th@ ..|
00000669

L/LMenu.m0

L/LMenu.m1

L/LMenu.m2

L/LMenu.m4

L/LMenu.m5

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .