   10HIMEM=&2800
   20c$=CHR$224+CHR$225+CHR$226+CHR$227+CHR$8+CHR$8+CHR$8+CHR$8+CHR$10+CHR$228+CHR$229+CHR$230+CHR$231+CHR$8+CHR$8+CHR$8+CHR$8+CHR$10+CHR$232+CHR$233+CHR$234+CHR$235
   30VDU22,1:VDU19,0,4;0;23;8202;0;0;0; 
   40MOVE12,12:DRAW1267,12:DRAW1267,1011:DRAW12,1011:DRAW12,12
   50COLOUR2:PRINTTAB(10,2);c$;
   60PROCdb(" E N U",14,3)
   70PRINTTAB(10,5)"~~~~~~~~~~"
   80VDU28,10,29,35,7
   90COLOUR1:PRINT"PLEASE SELECT -"
  100COLOUR3
  110PRINT'"<A>  E.U.G. NEWS"
  120PRINT'"<B>  LETTERS"
  130PRINT'"<C>  ELK ENTERTAINMENT"
  140PRINT'"<D>  EU INDEX"
  150PRINT'"<E>  SP64 ICON STRIPPER"
  160PRINT'"<F>  UPGRADERS"
  170PRINT'"<G>  PROGRAMS"
  180PRINT'"<H>  ADVERTS"
  190PRINT'"<I>  COMPETITION"
  210VDU26
  220*FX21,0
  230REPEAT:a%=INSTR("ABCDEFGHIJ",GET$):UNTILa%
  240VDU22,6:f%=0:CALL&9BC
  250IF a%=1 THEN fl%=1:f$="$.NEWS":PROCtext:GOTO30
  260IF a%=2 THEN fl%=3:f$="$.LETTS":PROCtext:GOTO30
  270IF a%=3 THEN VDU22,5:OSCLI"$.E_LOAD":fl%=2:f$="$.ENT":PROCtext:GOTO30
  280IF a%=4 THEN fl%=1:f$="$.INDEX":PROCtext:GOTO30
  290IF a%=5 THEN fl%=1:f$="$.STRIP":PROCtext:GOTO30
  300IF a%=6 THEN fl%=2:f$="$.UG":PROCtext:GOTO30
  310IF a%=7 THEN fl%=1:f$="$.PROGS":PROCtext:GOTO30
  320IF a%=8 THEN fl%=1:f$="$.ADS":PROCtext:GOTO30
  330IF a%=9 THEN fl%=1:f$="$.COMP":PROCtext:VDU22,0:OSCLI"LOAD WORDSQ":IFGET:GOTO30
  350IF INKEY-102 GOTO30 ELSE END
  360END
  370DEFPROCdb(A$,X%,Y%)
  380VDU31,X%,Y%
  390A%=10:X%=&56:Y%=0
  400FORN%=1TO LENA$
  410?&56=ASC(MID$(A$,N%))
  420CALL&FFF1
  430VDU23,255,?&57,?&57,?&58,?&58,?&59,?&59,?&5A,?&5A,255,8,10
  440VDU23,255,?&5B,?&5B,?&5C,?&5C,?&5D,?&5D,?&5E,?&5E,255,11
  450NEXT
  460ENDPROC
  470DEFPROCtext
  480VDU22,6:f%=f%+1:CALL&9BC:OSCLI"LOAD $."+f$+STR$~f%+" 2800"
  490VDU22,3,14:PRINT''"PRESS SHIFT TO SCROLL"''
  500CALL&900
  510PRINT''"PRESS ";
  520IF f%=fl% AND f$="$.PROGS" PRINT;"<G> FOR PROGRAMS, ";:a$="MPG" ELSEIF f%<>fl% PRINT;"<F> TO LOAD NEXT FILE, ";:a$="MPF" ELSEa$="MP"
  530PRINT;"<P> TO PRINT TEXT, <M> FOR MAIN MENU"
  540REPEAT:a%=INSTR(a$,GET$):UNTILa%
  550IF a%=1 ENDPROC
  560IF a%=2 VDU2,15:CALL&900:VDU3:OSCLI"FX15":GOTO510
  570IF a%=3 IFf$="$.PROGS" THEN VDU22,6:HIMEM=&6000:CHAIN"$.PMENU" ELSE GOTO 480


�=&2800
bc$=�224+�225+�226+�227+�8+�8+�8+�8+�10+�228+�229+�230+�231+�8+�8+�8+�8+�10+�232+�233+�234+�235
#�22,1:�19,0,4;0;23;8202;0;0;0; 
(.�12,12:�1267,12:�1267,1011:�12,1011:�12,12
2�2:�10,2);c$;
<�db(" E N U",14,3)
F�10,5)"~~~~~~~~~~"
P�28,10,29,35,7
Z�1:�"PLEASE SELECT -"
d�3
n�'"<A>  E.U.G. NEWS"
x�'"<B>  LETTERS"
��'"<C>  ELK ENTERTAINMENT"
��'"<D>  EU INDEX"
��'"<E>  SP64 ICON STRIPPER"
��'"<F>  UPGRADERS"
��'"<G>  PROGRAMS"
��'"<H>  ADVERTS"
��'"<I>  COMPETITION"
��26
�*FX21,0
��:a%=�"ABCDEFGHIJ",�):�a%
��22,6:f%=0:�&9BC
�*� a%=1 � fl%=1:f$="$.NEWS":�text:�T^@
+� a%=2 � fl%=3:f$="$.LETTS":�text:�T^@
;� a%=3 � �22,5:�"$.E_LOAD":fl%=2:f$="$.ENT":�text:�T^@
+� a%=4 � fl%=1:f$="$.INDEX":�text:�T^@
"+� a%=5 � fl%=1:f$="$.STRIP":�text:�T^@
,(� a%=6 � fl%=2:f$="$.UG":�text:�T^@
6+� a%=7 � fl%=1:f$="$.PROGS":�text:�T^@
@)� a%=8 � fl%=1:f$="$.ADS":�text:�T^@
JB� a%=9 � fl%=1:f$="$.COMP":�text:�22,0:�"LOAD WORDSQ":�:�T^@
^� �-102 �T^@ � �
h�
r��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
��
��
�
��text
�2�22,6:f%=f%+1:�&9BC:�"LOAD $."+f$+�~f%+" 2800"
�)�22,3,14:�''"PRESS SHIFT TO SCROLL"''
�	�&900
��''"PRESS ";
v� f%=fl% � f$="$.PROGS" �;"<G> FOR PROGRAMS, ";:a$="MPG" �� f%<>fl% �;"<F> TO LOAD NEXT FILE, ";:a$="MPF" �a$="MP"
,�;"<P> TO PRINT TEXT, <M> FOR MAIN MENU"
�:a%=�a$,�):�a%
&� a%=1 �
0'� a%=2 �2,15:�&900:�3:�"FX15":�d~A
:<� a%=3 �f$="$.PROGS" � �22,6:�=&6000:�"$.PMENU" � � �d`A
�

00000000  0d 00 0a 0b d3 3d 26 32  38 30 30 0d 00 14 62 63  |.....=&2800...bc|
00000010  24 3d bd 32 32 34 2b bd  32 32 35 2b bd 32 32 36  |$=.224+.225+.226|
00000020  2b bd 32 32 37 2b bd 38  2b bd 38 2b bd 38 2b bd  |+.227+.8+.8+.8+.|
00000030  38 2b bd 31 30 2b bd 32  32 38 2b bd 32 32 39 2b  |8+.10+.228+.229+|
00000040  bd 32 33 30 2b bd 32 33  31 2b bd 38 2b bd 38 2b  |.230+.231+.8+.8+|
00000050  bd 38 2b bd 38 2b bd 31  30 2b bd 32 33 32 2b bd  |.8+.8+.10+.232+.|
00000060  32 33 33 2b bd 32 33 34  2b bd 32 33 35 0d 00 1e  |233+.234+.235...|
00000070  23 ef 32 32 2c 31 3a ef  31 39 2c 30 2c 34 3b 30  |#.22,1:.19,0,4;0|
00000080  3b 32 33 3b 38 32 30 32  3b 30 3b 30 3b 30 3b 20  |;23;8202;0;0;0; |
00000090  0d 00 28 2e ec 31 32 2c  31 32 3a df 31 32 36 37  |..(..12,12:.1267|
000000a0  2c 31 32 3a df 31 32 36  37 2c 31 30 31 31 3a df  |,12:.1267,1011:.|
000000b0  31 32 2c 31 30 31 31 3a  df 31 32 2c 31 32 0d 00  |12,1011:.12,12..|
000000c0  32 12 fb 32 3a f1 8a 31  30 2c 32 29 3b 63 24 3b  |2..2:..10,2);c$;|
000000d0  0d 00 3c 16 f2 64 62 28  22 20 45 20 4e 20 55 22  |..<..db(" E N U"|
000000e0  2c 31 34 2c 33 29 0d 00  46 17 f1 8a 31 30 2c 35  |,14,3)..F...10,5|
000000f0  29 22 7e 7e 7e 7e 7e 7e  7e 7e 7e 7e 22 0d 00 50  |)"~~~~~~~~~~"..P|
00000100  12 ef 32 38 2c 31 30 2c  32 39 2c 33 35 2c 37 0d  |..28,10,29,35,7.|
00000110  00 5a 19 fb 31 3a f1 22  50 4c 45 41 53 45 20 53  |.Z..1:."PLEASE S|
00000120  45 4c 45 43 54 20 2d 22  0d 00 64 06 fb 33 0d 00  |ELECT -"..d..3..|
00000130  6e 18 f1 27 22 3c 41 3e  20 20 45 2e 55 2e 47 2e  |n..'"<A>  E.U.G.|
00000140  20 4e 45 57 53 22 0d 00  78 14 f1 27 22 3c 42 3e  | NEWS"..x..'"<B>|
00000150  20 20 4c 45 54 54 45 52  53 22 0d 00 82 1e f1 27  |  LETTERS".....'|
00000160  22 3c 43 3e 20 20 45 4c  4b 20 45 4e 54 45 52 54  |"<C>  ELK ENTERT|
00000170  41 49 4e 4d 45 4e 54 22  0d 00 8c 15 f1 27 22 3c  |AINMENT".....'"<|
00000180  44 3e 20 20 45 55 20 49  4e 44 45 58 22 0d 00 96  |D>  EU INDEX"...|
00000190  1f f1 27 22 3c 45 3e 20  20 53 50 36 34 20 49 43  |..'"<E>  SP64 IC|
000001a0  4f 4e 20 53 54 52 49 50  50 45 52 22 0d 00 a0 16  |ON STRIPPER"....|
000001b0  f1 27 22 3c 46 3e 20 20  55 50 47 52 41 44 45 52  |.'"<F>  UPGRADER|
000001c0  53 22 0d 00 aa 15 f1 27  22 3c 47 3e 20 20 50 52  |S".....'"<G>  PR|
000001d0  4f 47 52 41 4d 53 22 0d  00 b4 14 f1 27 22 3c 48  |OGRAMS".....'"<H|
000001e0  3e 20 20 41 44 56 45 52  54 53 22 0d 00 be 18 f1  |>  ADVERTS".....|
000001f0  27 22 3c 49 3e 20 20 43  4f 4d 50 45 54 49 54 49  |'"<I>  COMPETITI|
00000200  4f 4e 22 0d 00 d2 07 ef  32 36 0d 00 dc 0b 2a 46  |ON".....26....*F|
00000210  58 32 31 2c 30 0d 00 e6  1d f5 3a 61 25 3d a7 22  |X21,0.....:a%=."|
00000220  41 42 43 44 45 46 47 48  49 4a 22 2c be 29 3a fd  |ABCDEFGHIJ",.):.|
00000230  61 25 0d 00 f0 14 ef 32  32 2c 36 3a 66 25 3d 30  |a%.....22,6:f%=0|
00000240  3a d6 26 39 42 43 0d 00  fa 2a e7 20 61 25 3d 31  |:.&9BC...*. a%=1|
00000250  20 8c 20 66 6c 25 3d 31  3a 66 24 3d 22 24 2e 4e  | . fl%=1:f$="$.N|
00000260  45 57 53 22 3a f2 74 65  78 74 3a e5 8d 54 5e 40  |EWS":.text:..T^@|
00000270  0d 01 04 2b e7 20 61 25  3d 32 20 8c 20 66 6c 25  |...+. a%=2 . fl%|
00000280  3d 33 3a 66 24 3d 22 24  2e 4c 45 54 54 53 22 3a  |=3:f$="$.LETTS":|
00000290  f2 74 65 78 74 3a e5 8d  54 5e 40 0d 01 0e 3b e7  |.text:..T^@...;.|
000002a0  20 61 25 3d 33 20 8c 20  ef 32 32 2c 35 3a ff 22  | a%=3 . .22,5:."|
000002b0  24 2e 45 5f 4c 4f 41 44  22 3a 66 6c 25 3d 32 3a  |$.E_LOAD":fl%=2:|
000002c0  66 24 3d 22 24 2e 45 4e  54 22 3a f2 74 65 78 74  |f$="$.ENT":.text|
000002d0  3a e5 8d 54 5e 40 0d 01  18 2b e7 20 61 25 3d 34  |:..T^@...+. a%=4|
000002e0  20 8c 20 66 6c 25 3d 31  3a 66 24 3d 22 24 2e 49  | . fl%=1:f$="$.I|
000002f0  4e 44 45 58 22 3a f2 74  65 78 74 3a e5 8d 54 5e  |NDEX":.text:..T^|
00000300  40 0d 01 22 2b e7 20 61  25 3d 35 20 8c 20 66 6c  |@.."+. a%=5 . fl|
00000310  25 3d 31 3a 66 24 3d 22  24 2e 53 54 52 49 50 22  |%=1:f$="$.STRIP"|
00000320  3a f2 74 65 78 74 3a e5  8d 54 5e 40 0d 01 2c 28  |:.text:..T^@..,(|
00000330  e7 20 61 25 3d 36 20 8c  20 66 6c 25 3d 32 3a 66  |. a%=6 . fl%=2:f|
00000340  24 3d 22 24 2e 55 47 22  3a f2 74 65 78 74 3a e5  |$="$.UG":.text:.|
00000350  8d 54 5e 40 0d 01 36 2b  e7 20 61 25 3d 37 20 8c  |.T^@..6+. a%=7 .|
00000360  20 66 6c 25 3d 31 3a 66  24 3d 22 24 2e 50 52 4f  | fl%=1:f$="$.PRO|
00000370  47 53 22 3a f2 74 65 78  74 3a e5 8d 54 5e 40 0d  |GS":.text:..T^@.|
00000380  01 40 29 e7 20 61 25 3d  38 20 8c 20 66 6c 25 3d  |.@). a%=8 . fl%=|
00000390  31 3a 66 24 3d 22 24 2e  41 44 53 22 3a f2 74 65  |1:f$="$.ADS":.te|
000003a0  78 74 3a e5 8d 54 5e 40  0d 01 4a 42 e7 20 61 25  |xt:..T^@..JB. a%|
000003b0  3d 39 20 8c 20 66 6c 25  3d 31 3a 66 24 3d 22 24  |=9 . fl%=1:f$="$|
000003c0  2e 43 4f 4d 50 22 3a f2  74 65 78 74 3a ef 32 32  |.COMP":.text:.22|
000003d0  2c 30 3a ff 22 4c 4f 41  44 20 57 4f 52 44 53 51  |,0:."LOAD WORDSQ|
000003e0  22 3a e7 a5 3a e5 8d 54  5e 40 0d 01 5e 15 e7 20  |":..:..T^@..^.. |
000003f0  a6 2d 31 30 32 20 e5 8d  54 5e 40 20 8b 20 e0 0d  |.-102 ..T^@ . ..|
00000400  01 68 05 e0 0d 01 72 12  dd f2 64 62 28 41 24 2c  |.h....r...db(A$,|
00000410  58 25 2c 59 25 29 0d 01  7c 0d ef 33 31 2c 58 25  |X%,Y%)..|..31,X%|
00000420  2c 59 25 0d 01 86 15 41  25 3d 31 30 3a 58 25 3d  |,Y%....A%=10:X%=|
00000430  26 35 36 3a 59 25 3d 30  0d 01 90 0e e3 4e 25 3d  |&56:Y%=0.....N%=|
00000440  31 b8 20 a9 41 24 0d 01  9a 13 3f 26 35 36 3d 97  |1. .A$....?&56=.|
00000450  28 c1 41 24 2c 4e 25 29  29 0d 01 a4 0a d6 26 46  |(.A$,N%)).....&F|
00000460  46 46 31 0d 01 ae 3c ef  32 33 2c 32 35 35 2c 3f  |FF1...<.23,255,?|
00000470  26 35 37 2c 3f 26 35 37  2c 3f 26 35 38 2c 3f 26  |&57,?&57,?&58,?&|
00000480  35 38 2c 3f 26 35 39 2c  3f 26 35 39 2c 3f 26 35  |58,?&59,?&59,?&5|
00000490  41 2c 3f 26 35 41 2c 32  35 35 2c 38 2c 31 30 0d  |A,?&5A,255,8,10.|
000004a0  01 b8 3a ef 32 33 2c 32  35 35 2c 3f 26 35 42 2c  |..:.23,255,?&5B,|
000004b0  3f 26 35 42 2c 3f 26 35  43 2c 3f 26 35 43 2c 3f  |?&5B,?&5C,?&5C,?|
000004c0  26 35 44 2c 3f 26 35 44  2c 3f 26 35 45 2c 3f 26  |&5D,?&5D,?&5E,?&|
000004d0  35 45 2c 32 35 35 2c 31  31 0d 01 c2 05 ed 0d 01  |5E,255,11.......|
000004e0  cc 05 e1 0d 01 d6 0a dd  f2 74 65 78 74 0d 01 e0  |.........text...|
000004f0  32 ef 32 32 2c 36 3a 66  25 3d 66 25 2b 31 3a d6  |2.22,6:f%=f%+1:.|
00000500  26 39 42 43 3a ff 22 4c  4f 41 44 20 24 2e 22 2b  |&9BC:."LOAD $."+|
00000510  66 24 2b c3 7e 66 25 2b  22 20 32 38 30 30 22 0d  |f$+.~f%+" 2800".|
00000520  01 ea 29 ef 32 32 2c 33  2c 31 34 3a f1 27 27 22  |..).22,3,14:.''"|
00000530  50 52 45 53 53 20 53 48  49 46 54 20 54 4f 20 53  |PRESS SHIFT TO S|
00000540  43 52 4f 4c 4c 22 27 27  0d 01 f4 09 d6 26 39 30  |CROLL"''.....&90|
00000550  30 0d 01 fe 10 f1 27 27  22 50 52 45 53 53 20 22  |0.....''"PRESS "|
00000560  3b 0d 02 08 76 e7 20 66  25 3d 66 6c 25 20 80 20  |;...v. f%=fl% . |
00000570  66 24 3d 22 24 2e 50 52  4f 47 53 22 20 f1 3b 22  |f$="$.PROGS" .;"|
00000580  3c 47 3e 20 46 4f 52 20  50 52 4f 47 52 41 4d 53  |<G> FOR PROGRAMS|
00000590  2c 20 22 3b 3a 61 24 3d  22 4d 50 47 22 20 8b e7  |, ";:a$="MPG" ..|
000005a0  20 66 25 3c 3e 66 6c 25  20 f1 3b 22 3c 46 3e 20  | f%<>fl% .;"<F> |
000005b0  54 4f 20 4c 4f 41 44 20  4e 45 58 54 20 46 49 4c  |TO LOAD NEXT FIL|
000005c0  45 2c 20 22 3b 3a 61 24  3d 22 4d 50 46 22 20 8b  |E, ";:a$="MPF" .|
000005d0  61 24 3d 22 4d 50 22 0d  02 12 2c f1 3b 22 3c 50  |a$="MP"...,.;"<P|
000005e0  3e 20 54 4f 20 50 52 49  4e 54 20 54 45 58 54 2c  |> TO PRINT TEXT,|
000005f0  20 3c 4d 3e 20 46 4f 52  20 4d 41 49 4e 20 4d 45  | <M> FOR MAIN ME|
00000600  4e 55 22 0d 02 1c 13 f5  3a 61 25 3d a7 61 24 2c  |NU".....:a%=.a$,|
00000610  be 29 3a fd 61 25 0d 02  26 0c e7 20 61 25 3d 31  |.):.a%..&.. a%=1|
00000620  20 e1 0d 02 30 27 e7 20  61 25 3d 32 20 ef 32 2c  | ...0'. a%=2 .2,|
00000630  31 35 3a d6 26 39 30 30  3a ef 33 3a ff 22 46 58  |15:.&900:.3:."FX|
00000640  31 35 22 3a e5 8d 64 7e  41 0d 02 3a 3c e7 20 61  |15":..d~A..:<. a|
00000650  25 3d 33 20 e7 66 24 3d  22 24 2e 50 52 4f 47 53  |%=3 .f$="$.PROGS|
00000660  22 20 8c 20 ef 32 32 2c  36 3a d3 3d 26 36 30 30  |" . .22,6:.=&600|
00000670  30 3a d7 22 24 2e 50 4d  45 4e 55 22 20 8b 20 e5  |0:."$.PMENU" . .|
00000680  20 8d 64 60 41 0d ff                              | .d`A..|
00000687

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_13.ADF
Filename:	MENU
Read OK:	✔
File size:	0687 bytes
Load address:	FFFF1D00
Exec address:	FFFF8023

File contents