   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,3)" EUG19 MAIN MENU" 
   80PRINTTAB(10,5)" ~~~~~~~~~~~~~~~"    
   90VDU28,10,29,35,7 
  100COLOUR1:PRINT"PLEASE SELECT -":COLOUR3
  110PRINT'"<A> Editroial"
  120PRINT'"<B> Letters"
  130PRINT'"<C> Programs"
  140PRINT'"<D> Features"
  160PRINT'"<E> Games"
  170PRINT'"<F> Shopping"
  185PRINT'"<Y> 40 Column text?"
  200*FX21,0
  210REPEAT:a%=INSTR("ABCDEFGY",GET$):UNTILa% 
  220IFa%=1THENf$="EDIT":fl%=1:PROCtext:GOTO40 
  230IFa%=2THENOSCLI"DIR L":CHAIN"LMenu"
  240IFa%=3THENOSCLI"DIR P":CHAIN"PMenu"
  250IFa%=4THENOSCLI"DIR F":CHAIN"FMenu" 
  270IFa%=5THENOSCLI"DIR G":CHAIN"GMenu"
  280IFa%=6THENOSCLI"DIR S":CHAIN"SMenu"
  290IFa%=7THEND%=TRUE:GOTO40  
  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"ELSEGOTO40
  430REPEAT:a%=INSTR("PMR",GET$):UNTILa%
  440IFa%=1 P=TRUE:VDU2,15:GOTO340
  450IFa%=2GOTO40
  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


.� 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,3)" EUG19 MAIN MENU" 
P!�10,5)" ~~~~~~~~~~~~~~~"    
Z�28,10,29,35,7 
d�1:�"PLEASE SELECT -":�3
n�'"<A> Editroial"
x�'"<B> Letters"
��'"<C> Programs"
��'"<D> Features"
��'"<E> Games"
��'"<F> Shopping"
��'"<Y> 40 Column text?"
�*FX21,0
��:a%=�"ABCDEFGY",�):�a% 
�&�a%=1�f$="EDIT":fl%=1:�text:�Th@ 
��a%=2��"DIR L":�"LMenu"
��a%=3��"DIR P":�"PMenu"
��a%=4��"DIR F":�"FMenu" 
�a%=5��"DIR G":�"GMenu"
�a%=6��"DIR S":�"SMenu"
"�a%=7�D%=�:�Th@  
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
�4�3:�P �''"<P> TO PRINT TEXT <M> FOR MENU"��Th@
��: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�
�

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 12 2a 4c 4f  |...=&2500....*LO|
00000040  41 44 20 24 2e 43 4f 44  45 32 20 0d 00 23 08 44  |AD $.CODE2 ..#.D|
00000050  25 3d a3 0d 00 28 07 44  3d a3 0d 00 32 22 ef 32  |%=...(.D=...2".2|
00000060  32 2c 34 3a ef 31 39 2c  30 2c 34 3b 30 3b 32 33  |2,4:.19,0,4;0;23|
00000070  3b 38 32 30 32 3b 30 3b  30 3b 30 3b 0d 00 3c 2e  |;8202;0;0;0;..<.|
00000080  ec 31 32 2c 31 32 3a df  31 32 36 37 2c 31 32 3a  |.12,12:.1267,12:|
00000090  df 31 32 36 37 2c 31 30  31 31 3a df 31 32 2c 31  |.1267,1011:.12,1|
000000a0  30 31 31 3a df 31 32 2c  31 32 0d 00 46 1e f1 8a  |011:.12,12..F...|
000000b0  31 30 2c 33 29 22 20 45  55 47 31 39 20 4d 41 49  |10,3)" EUG19 MAI|
000000c0  4e 20 4d 45 4e 55 22 20  0d 00 50 21 f1 8a 31 30  |N MENU" ..P!..10|
000000d0  2c 35 29 22 20 7e 7e 7e  7e 7e 7e 7e 7e 7e 7e 7e  |,5)" ~~~~~~~~~~~|
000000e0  7e 7e 7e 7e 22 20 20 20  20 0d 00 5a 13 ef 32 38  |~~~~"    ..Z..28|
000000f0  2c 31 30 2c 32 39 2c 33  35 2c 37 20 0d 00 64 1c  |,10,29,35,7 ..d.|
00000100  fb 31 3a f1 22 50 4c 45  41 53 45 20 53 45 4c 45  |.1:."PLEASE SELE|
00000110  43 54 20 2d 22 3a fb 33  0d 00 6e 15 f1 27 22 3c  |CT -":.3..n..'"<|
00000120  41 3e 20 45 64 69 74 72  6f 69 61 6c 22 0d 00 78  |A> Editroial"..x|
00000130  13 f1 27 22 3c 42 3e 20  4c 65 74 74 65 72 73 22  |..'"<B> Letters"|
00000140  0d 00 82 14 f1 27 22 3c  43 3e 20 50 72 6f 67 72  |.....'"<C> Progr|
00000150  61 6d 73 22 0d 00 8c 14  f1 27 22 3c 44 3e 20 46  |ams".....'"<D> F|
00000160  65 61 74 75 72 65 73 22  0d 00 a0 11 f1 27 22 3c  |eatures".....'"<|
00000170  45 3e 20 47 61 6d 65 73  22 0d 00 aa 14 f1 27 22  |E> Games".....'"|
00000180  3c 46 3e 20 53 68 6f 70  70 69 6e 67 22 0d 00 b9  |<F> Shopping"...|
00000190  1b f1 27 22 3c 59 3e 20  34 30 20 43 6f 6c 75 6d  |..'"<Y> 40 Colum|
000001a0  6e 20 74 65 78 74 3f 22  0d 00 c8 0b 2a 46 58 32  |n text?"....*FX2|
000001b0  31 2c 30 0d 00 d2 1c f5  3a 61 25 3d a7 22 41 42  |1,0.....:a%=."AB|
000001c0  43 44 45 46 47 59 22 2c  be 29 3a fd 61 25 20 0d  |CDEFGY",.):.a% .|
000001d0  00 dc 26 e7 61 25 3d 31  8c 66 24 3d 22 45 44 49  |..&.a%=1.f$="EDI|
000001e0  54 22 3a 66 6c 25 3d 31  3a f2 74 65 78 74 3a e5  |T":fl%=1:.text:.|
000001f0  8d 54 68 40 20 0d 00 e6  1b e7 61 25 3d 32 8c ff  |.Th@ .....a%=2..|
00000200  22 44 49 52 20 4c 22 3a  d7 22 4c 4d 65 6e 75 22  |"DIR L":."LMenu"|
00000210  0d 00 f0 1b e7 61 25 3d  33 8c ff 22 44 49 52 20  |.....a%=3.."DIR |
00000220  50 22 3a d7 22 50 4d 65  6e 75 22 0d 00 fa 1c e7  |P":."PMenu".....|
00000230  61 25 3d 34 8c ff 22 44  49 52 20 46 22 3a d7 22  |a%=4.."DIR F":."|
00000240  46 4d 65 6e 75 22 20 0d  01 0e 1b e7 61 25 3d 35  |FMenu" .....a%=5|
00000250  8c ff 22 44 49 52 20 47  22 3a d7 22 47 4d 65 6e  |.."DIR G":."GMen|
00000260  75 22 0d 01 18 1b e7 61  25 3d 36 8c ff 22 44 49  |u".....a%=6.."DI|
00000270  52 20 53 22 3a d7 22 53  4d 65 6e 75 22 0d 01 22  |R S":."SMenu".."|
00000280  16 e7 61 25 3d 37 8c 44  25 3d b9 3a e5 8d 54 68  |..a%=7.D%=.:..Th|
00000290  40 20 20 0d 01 36 05 e0  0d 01 40 0a dd f2 74 65  |@  ..6....@...te|
000002a0  78 74 0d 01 4a 07 50 3d  a3 0d 01 54 08 66 25 3d  |xt..J.P=...T.f%=|
000002b0  30 0d 01 5e 2f ef 32 32  2c 36 3a 66 25 3d 66 25  |0..^/.22,6:f%=f%|
000002c0  2b 31 3a d6 26 41 33 46  3a ff 22 4c 4f 41 44 20  |+1:.&A3F:."LOAD |
000002d0  22 2b 66 24 2b c3 66 25  2b 22 20 32 35 30 30 22  |"+f$+.f%+" 2500"|
000002e0  0d 01 63 13 e7 20 44 25  20 6d 25 3d 36 8b 20 6d  |..c.. D% m%=6. m|
000002f0  25 3d 33 0d 01 68 27 ef  32 32 2c 6d 25 3a e7 ac  |%=3..h'.22,m%:..|
00000300  50 20 ef 31 34 3a f1 27  27 22 53 48 49 46 54 20  |P .14:.''"SHIFT |
00000310  54 4f 20 53 43 52 4f 4c  4c 22 0d 01 72 19 e7 20  |TO SCROLL"..r.. |
00000320  44 25 20 f2 63 6f 6c 34  30 20 8b 20 d6 26 41 30  |D% .col40 . .&A0|
00000330  46 20 20 0d 01 7c 39 e7  66 25 3d 66 6c 25 20 e7  |F  ..|9.f%=fl% .|
00000340  44 20 f1 22 50 52 45 53  53 20 53 50 41 43 45 20  |D ."PRESS SPACE |
00000350  54 4f 20 43 4f 4e 54 49  4e 55 45 22 3a 47 3d a5  |TO CONTINUE":G=.|
00000360  3a f2 70 69 63 74 3a e5  8d 74 64 41 0d 01 86 11  |:.pict:..tdA....|
00000370  e7 66 25 3d 66 6c 25 20  e5 8d 74 64 41 0d 01 90  |.f%=fl% ..tdA...|
00000380  28 e7 ac 50 20 f1 27 27  22 50 52 45 53 53 20 53  |(..P .''"PRESS S|
00000390  50 41 43 45 20 54 4f 20  43 4f 4e 54 49 4e 55 45  |PACE TO CONTINUE|
000003a0  22 3a 47 3d a5 0d 01 9a  09 e5 8d 44 5e 41 0d 01  |":G=.......D^A..|
000003b0  a4 34 ef 33 3a e7 ac 50  20 f1 27 27 22 3c 50 3e  |.4.3:..P .''"<P>|
000003c0  20 54 4f 20 50 52 49 4e  54 20 54 45 58 54 20 3c  | TO PRINT TEXT <|
000003d0  4d 3e 20 46 4f 52 20 4d  45 4e 55 22 8b e5 8d 54  |M> FOR MENU"...T|
000003e0  68 40 0d 01 ae 16 f5 3a  61 25 3d a7 22 50 4d 52  |h@.....:a%=."PMR|
000003f0  22 2c be 29 3a fd 61 25  0d 01 b8 19 e7 61 25 3d  |",.):.a%.....a%=|
00000400  31 20 50 3d b9 3a ef 32  2c 31 35 3a e5 8d 44 54  |1 P=.:.2,15:..DT|
00000410  41 0d 01 c2 0e e7 61 25  3d 32 e5 8d 54 68 40 0d  |A.....a%=2..Th@.|
00000420  01 cc 0f e7 20 61 25 3d  33 20 d7 20 50 24 0d 01  |.... a%=3 . P$..|
00000430  d6 06 fd a3 0d 01 e0 0a  dd f2 70 69 63 74 0d 01  |..........pict..|
00000440  ea 08 64 25 3d 30 0d 01  f4 21 64 25 3d 64 25 2b  |..d%=0...!d%=d%+|
00000450  31 3a ef 32 32 2c 30 3a  ff 22 4c 4f 41 44 20 50  |1:.22,0:."LOAD P|
00000460  49 43 22 2b c3 64 25 0d  01 fe 2f e7 ac 50 20 f1  |IC"+.d%.../..P .|
00000470  22 50 52 45 53 53 20 53  50 41 43 45 20 54 4f 20  |"PRESS SPACE TO |
00000480  43 4f 4e 54 49 4e 55 45  22 3a 47 3d a5 20 8b 20  |CONTINUE":G=. . |
00000490  d6 20 26 39 30 41 0d 02  08 13 e7 64 25 3d 64 6c  |. &90A.....d%=dl|
000004a0  25 20 ef 32 32 2c 33 3a  e1 0d 02 12 09 e5 8d 64  |% .22,3:.......d|
000004b0  74 41 0d 03 e8 0b dd f2  63 6f 6c 34 30 0d 03 f2  |tA......col40...|
000004c0  0a 61 64 64 72 3d 93 0d  03 fc 05 f5 0d 04 06 0c  |.addr=..........|
000004d0  61 25 3d 3f 61 64 64 72  0d 04 10 0e e7 61 25 3d  |a%=?addr.....a%=|
000004e0  26 30 44 20 8c f1 0d 04  1a 12 e7 61 25 3d 26 31  |&0D .......a%=&1|
000004f0  41 20 61 25 3d 26 32 30  0d 04 24 15 e7 61 25 3d  |A a%=&20..$..a%=|
00000500  26 32 30 20 80 20 b1 3e  32 38 20 8c f1 0d 04 2e  |&20 . .>28 .....|
00000510  33 e7 20 61 25 3d 26 32  30 20 80 20 b1 3d 30 20  |3. a%=&20 . .=0 |
00000520  8c f5 3a 61 64 64 72 3d  61 64 64 72 2b 31 3a 61  |..:addr=addr+1:a|
00000530  25 3d 3f 61 64 64 72 3a  fd 61 25 3c 3e 26 32 30  |%=?addr:.a%<>&20|
00000540  0d 04 38 09 f1 bd 61 25  3b 0d 04 42 0f 61 64 64  |..8...a%;..B.add|
00000550  72 3d 61 64 64 72 2b 31  0d 04 4c 09 fd 61 25 3d  |r=addr+1..L..a%=|
00000560  30 0d 04 56 05 e1 0d ff                           |0..V....|
00000568

MENU.m0

MENU.m1

MENU.m2

MENU.m4

MENU.m5

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

Tape/disk:	Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_19.ADF
Filename:	MENU
Read OK:	✔
File size:	0568 bytes
Load address:	FFFF1D00
Exec address:	FFFF8023

File contents