   10REM EUG MENU by Richard Dimond
   20lines=&80:skiplines=&81:skip=&82:count=&83:modeflag=&84
   30?lines=60:?skiplines=12
   40*LOAD  $.CODE4
   50VDU22,4:HIMEM=&2700
   60VDU19,0,4;0;23,1,0;0;0;0;
   70?skip=0:?modeflag=0:?count=?lines
   80P=FALSE:M=FALSE:D=FALSE:R=FALSE
   90MOVE12,12:DRAW1267,12:DRAW1267,1011:DRAW12,1011:DRAW12,12
  100PROCmenu:GOTO50
  110END
  120DEFPROCtext:P=FALSE
  130f%=0
  140VDU22,6:f%=f%+1:CALL&900:OSCLI"LOAD "+f$+STR$f%+" "+STR$~HIMEM
  150IFM m%=6ELSE m%=3
  160VDU22,m%:IFNOTP VDU14:PRINT''"SHIFT TO SCROLL"''
  170CALL&98C
  180IFf%=fl% IFD PROCspace:PROCpict("PIC",0,2):GOTO220
  190IFf%=fl% GOTO220
  200IFNOTP PROCspace
  210GOTO140
  220VDU3:IFNOTP PRINT''"<P> TO PRINT TEXT <M> FOR MENU"; ELSE ENDPROC
  230IF R a$="PMR":PRINT" <R> RUN PROGRAM" ELSEa$="PM"
  240REPEAT:a%=INSTR(a$,GET$):UNTILa%
  250IFa%=1 PROCprinter:GOTO130
  260IFa%=2 ENDPROC
  270IF a%=3 CHAIN P$
  280UNTILFALSE
  290DEFPROCpict(P$,m%,dl%)
  300d%=0:PROCspace
  310d%=d%+1:VDU22,m%:OSCLI"LOAD "+P$+STR$d%
  320IFNOTP PROCspace ELSE OSCLI"UCODE"
  330IFd%=dl% VDU22,3:ENDPROC
  340GOTO310
  350DEFPROCprinter
  360P=TRUE:M=FALSE:m%=3
  370PRINT''"Do you want perforation skip? (Y/N)"
  380PROCyn
  390IFa%<3 ?skip=-1 ELSE ?skip=0
  400VDU15,2:ENDPROC
  410DEFPROCyn:REPEAT:a%=INSTR("YyNn",GET$):UNTILa%:ENDPROC
  420DEFPROCspace PRINT''"PRESS SPACE TO CONTINUE"':G=GET:ENDPROC
  430DEFPROCmenu
  440PRINTTAB(7,2)" MAIN MENU"
  450PRINTTAB(7,3)" ~~~~~~~~~"
  460VDU28,2,30,35,4
  470COLOUR1:PRINT"PLEASE SELECT -":COLOUR3
  480PRINT'"<1> Editorial"
  490PRINT'"<2> More Sorrys from Gus"
  500PRINT'"<3> Letters"
  510PRINT'"<4> Features"
  520PRINT'"<5> Programming"
  530PRINT'"<6> Shopping"
  540PRINT'"<7> LMenu for EUG21"
  545PRINT'"<8> Information about EUG"
  550PRINT'"<Y> 40 Column text?"
  555PRINT
  560PRINT'"    Wot, No Games?"
  570*FX21,0
  580REPEAT:a%=INSTR("12345678Y",GET$):UNTILa%
  590IFa%=1THENf$="Edit":fl%=1:PROCtext:ENDPROC
  600IFa%=2THENf$="Boobs":fl%=1:PROCtext:ENDPROC
  610IFa%=3THENOSCLI"DIR L":CHAIN"LMENU"
  620IFa%=4THENOSCLI"DIR F":CHAIN"FMENU"
  630IFa%=5THENOSCLI"DIR P":CHAIN"PMENU"
  640IFa%=6THENOSCLI"DIR S":CHAIN"SMENU"
  650 IF a%=7 THENPROClmenu
  655 IF a%=8THENf$="INFO":fl%=1:PROCtext:ENDPROC
  660IFa%=8THENM=TRUE:VDU6,12:GOTO470
  680ENDPROC
  700DEF PROClmenu
  710CLS
  720PRINTTAB(0,3)"HAVE YOUR EUG21 DISC 1 READY "
  730PRINTTAB(0,5)"AND PRESS SPACE TO LOAD LMENU"
  740PRINTTAB(0,7)"ONCE LMENU HAS LOADED YOU WILL"
  750PRINTTAB(0,9)"NEED TO TYPE *MOUNT <ret>"
  760PRINTTAB(0,11)"THEN *DIR L <ret>"
  770PRINTTAB(0,13)"THEN YOU SHOULD SAVE LMENU "
  780PRINTTAB(0,15)"BEFORE RUNNING IT"
  790PRINTTAB(0,17)"THE LETTERS SECTION IN EUG21"
  800PRINTTAB(0,19)"IS WORTH SEEING"
  810PRINTTAB(0,23)"PRESS R TO RETURN TO MAIN MENU"
  820A$=GET$:IF A$="R" THEN ENDPROC ELSE CLS:OSCLI"LOAD 21LM":PRINTTAB(0,25)"NOW INSERT YOUR EUG21 DISC1"


 � EUG MENU by Richard Dimond
;lines=&80:skiplines=&81:skip=&82:count=&83:modeflag=&84
?lines=60:?skiplines=12
(*LOAD  $.CODE4
2�22,4:�=&2700
<�19,0,4;0;23,1,0;0;0;0;
F%?skip=0:?modeflag=0:?count=?lines
PP=�:M=�:D=�:R=�
Z.�12,12:�1267,12:�1267,1011:�12,1011:�12,12
d�menu:�Tr@
n�
x��text:P=�
�f%=0
�/�22,6:f%=f%+1:�&900:�"LOAD "+f$+�f%+" "+�~�
��M m%=6� m%=3
�)�22,m%:�P �14:�''"SHIFT TO SCROLL"''
�	�&98C
�,�f%=fl% �D �space:�pict("PIC",0,2):�d\@
��f%=fl% �d\@
��P �space
�	�tL@
�3�3:�P �''"<P> TO PRINT TEXT <M> FOR MENU"; � �
�-� R a$="PMR":�" <R> RUN PROGRAM" �a$="PM"
��:a%=�a$,�):�a%
��a%=1 �printer:�tB@
�a%=2 �
� a%=3 � P$
��
"��pict(P$,m%,dl%)
,d%=0:�space
6"d%=d%+1:�22,m%:�"LOAD "+P$+�d%
@�P �space � �"UCODE"
J�d%=dl% �22,3:�
T	�TvA
^
��printer
hP=�:M=�:m%=3
r,�''"Do you want perforation skip? (Y/N)"
|�yn
��a%<3 ?skip=-1 � ?skip=0
��15,2:�
���yn:�:a%=�"YyNn",�):�a%:�
�/��space �''"PRESS SPACE TO CONTINUE"':G=�:�
�
��menu
��7,2)" MAIN MENU"
��7,3)" ~~~~~~~~~"
��28,2,30,35,4
��1:�"PLEASE SELECT -":�3
��'"<1> Editorial"
� �'"<2> More Sorrys from Gus"
��'"<3> Letters"
��'"<4> Features"
�'"<5> Programming"
�'"<6> Shopping"
�'"<7> LMenu for EUG21"
!!�'"<8> Information about EUG"
&�'"<Y> 40 Column text?"
+�
0�'"    Wot, No Games?"
:*FX21,0
D�:a%=�"12345678Y",�):�a%
N!�a%=1�f$="Edit":fl%=1:�text:�
X"�a%=2�f$="Boobs":fl%=1:�text:�
b�a%=3��"DIR L":�"LMENU"
l�a%=4��"DIR F":�"FMENU"
v�a%=5��"DIR P":�"PMENU"
��a%=6��"DIR S":�"SMENU"
� � a%=7 ��lmenu
�# � a%=8�f$="INFO":fl%=1:�text:�
��a%=8�M=�:�6,12:�dVA
��
�� �lmenu
��
�)�0,3)"HAVE YOUR EUG21 DISC 1 READY "
�)�0,5)"AND PRESS SPACE TO LOAD LMENU"
�*�0,7)"ONCE LMENU HAS LOADED YOU WILL"
�%�0,9)"NEED TO TYPE *MOUNT <ret>"
��0,11)"THEN *DIR L <ret>"
(�0,13)"THEN YOU SHOULD SAVE LMENU "
�0,15)"BEFORE RUNNING IT"
)�0,17)"THE LETTERS SECTION IN EUG21"
 �0,19)"IS WORTH SEEING"
*+�0,23)"PRESS R TO RETURN TO MAIN MENU"
4KA$=�:� A$="R" � � � �:�"LOAD 21LM":�0,25)"NOW INSERT YOUR EUG21 DISC1"
�

00000000  0d 00 0a 20 f4 20 45 55  47 20 4d 45 4e 55 20 62  |... . EUG MENU b|
00000010  79 20 52 69 63 68 61 72  64 20 44 69 6d 6f 6e 64  |y Richard Dimond|
00000020  0d 00 14 3b 6c 69 6e 65  73 3d 26 38 30 3a 73 6b  |...;lines=&80:sk|
00000030  69 70 6c 69 6e 65 73 3d  26 38 31 3a 73 6b 69 70  |iplines=&81:skip|
00000040  3d 26 38 32 3a 63 6f 75  6e 74 3d 26 38 33 3a 6d  |=&82:count=&83:m|
00000050  6f 64 65 66 6c 61 67 3d  26 38 34 0d 00 1e 1b 3f  |odeflag=&84....?|
00000060  6c 69 6e 65 73 3d 36 30  3a 3f 73 6b 69 70 6c 69  |lines=60:?skipli|
00000070  6e 65 73 3d 31 32 0d 00  28 12 2a 4c 4f 41 44 20  |nes=12..(.*LOAD |
00000080  20 24 2e 43 4f 44 45 34  0d 00 32 11 ef 32 32 2c  | $.CODE4..2..22,|
00000090  34 3a d3 3d 26 32 37 30  30 0d 00 3c 1b ef 31 39  |4:.=&2700..<..19|
000000a0  2c 30 2c 34 3b 30 3b 32  33 2c 31 2c 30 3b 30 3b  |,0,4;0;23,1,0;0;|
000000b0  30 3b 30 3b 0d 00 46 25  3f 73 6b 69 70 3d 30 3a  |0;0;..F%?skip=0:|
000000c0  3f 6d 6f 64 65 66 6c 61  67 3d 30 3a 3f 63 6f 75  |?modeflag=0:?cou|
000000d0  6e 74 3d 3f 6c 69 6e 65  73 0d 00 50 13 50 3d a3  |nt=?lines..P.P=.|
000000e0  3a 4d 3d a3 3a 44 3d a3  3a 52 3d a3 0d 00 5a 2e  |:M=.:D=.:R=...Z.|
000000f0  ec 31 32 2c 31 32 3a df  31 32 36 37 2c 31 32 3a  |.12,12:.1267,12:|
00000100  df 31 32 36 37 2c 31 30  31 31 3a df 31 32 2c 31  |.1267,1011:.12,1|
00000110  30 31 31 3a df 31 32 2c  31 32 0d 00 64 0f f2 6d  |011:.12,12..d..m|
00000120  65 6e 75 3a e5 8d 54 72  40 0d 00 6e 05 e0 0d 00  |enu:..Tr@..n....|
00000130  78 0e dd f2 74 65 78 74  3a 50 3d a3 0d 00 82 08  |x...text:P=.....|
00000140  66 25 3d 30 0d 00 8c 2f  ef 32 32 2c 36 3a 66 25  |f%=0.../.22,6:f%|
00000150  3d 66 25 2b 31 3a d6 26  39 30 30 3a ff 22 4c 4f  |=f%+1:.&900:."LO|
00000160  41 44 20 22 2b 66 24 2b  c3 66 25 2b 22 20 22 2b  |AD "+f$+.f%+" "+|
00000170  c3 7e 93 0d 00 96 11 e7  4d 20 6d 25 3d 36 8b 20  |.~......M m%=6. |
00000180  6d 25 3d 33 0d 00 a0 29  ef 32 32 2c 6d 25 3a e7  |m%=3...).22,m%:.|
00000190  ac 50 20 ef 31 34 3a f1  27 27 22 53 48 49 46 54  |.P .14:.''"SHIFT|
000001a0  20 54 4f 20 53 43 52 4f  4c 4c 22 27 27 0d 00 aa  | TO SCROLL"''...|
000001b0  09 d6 26 39 38 43 0d 00  b4 2c e7 66 25 3d 66 6c  |..&98C...,.f%=fl|
000001c0  25 20 e7 44 20 f2 73 70  61 63 65 3a f2 70 69 63  |% .D .space:.pic|
000001d0  74 28 22 50 49 43 22 2c  30 2c 32 29 3a e5 8d 64  |t("PIC",0,2):..d|
000001e0  5c 40 0d 00 be 11 e7 66  25 3d 66 6c 25 20 e5 8d  |\@.....f%=fl% ..|
000001f0  64 5c 40 0d 00 c8 0e e7  ac 50 20 f2 73 70 61 63  |d\@......P .spac|
00000200  65 0d 00 d2 09 e5 8d 74  4c 40 0d 00 dc 33 ef 33  |e......tL@...3.3|
00000210  3a e7 ac 50 20 f1 27 27  22 3c 50 3e 20 54 4f 20  |:..P .''"<P> TO |
00000220  50 52 49 4e 54 20 54 45  58 54 20 3c 4d 3e 20 46  |PRINT TEXT <M> F|
00000230  4f 52 20 4d 45 4e 55 22  3b 20 8b 20 e1 0d 00 e6  |OR MENU"; . ....|
00000240  2d e7 20 52 20 61 24 3d  22 50 4d 52 22 3a f1 22  |-. R a$="PMR":."|
00000250  20 3c 52 3e 20 52 55 4e  20 50 52 4f 47 52 41 4d  | <R> RUN PROGRAM|
00000260  22 20 8b 61 24 3d 22 50  4d 22 0d 00 f0 13 f5 3a  |" .a$="PM".....:|
00000270  61 25 3d a7 61 24 2c be  29 3a fd 61 25 0d 00 fa  |a%=.a$,.):.a%...|
00000280  18 e7 61 25 3d 31 20 f2  70 72 69 6e 74 65 72 3a  |..a%=1 .printer:|
00000290  e5 8d 74 42 40 0d 01 04  0b e7 61 25 3d 32 20 e1  |..tB@.....a%=2 .|
000002a0  0d 01 0e 0f e7 20 61 25  3d 33 20 d7 20 50 24 0d  |..... a%=3 . P$.|
000002b0  01 18 06 fd a3 0d 01 22  15 dd f2 70 69 63 74 28  |......."...pict(|
000002c0  50 24 2c 6d 25 2c 64 6c  25 29 0d 01 2c 0f 64 25  |P$,m%,dl%)..,.d%|
000002d0  3d 30 3a f2 73 70 61 63  65 0d 01 36 22 64 25 3d  |=0:.space..6"d%=|
000002e0  64 25 2b 31 3a ef 32 32  2c 6d 25 3a ff 22 4c 4f  |d%+1:.22,m%:."LO|
000002f0  41 44 20 22 2b 50 24 2b  c3 64 25 0d 01 40 19 e7  |AD "+P$+.d%..@..|
00000300  ac 50 20 f2 73 70 61 63  65 20 8b 20 ff 22 55 43  |.P .space . ."UC|
00000310  4f 44 45 22 0d 01 4a 13  e7 64 25 3d 64 6c 25 20  |ODE"..J..d%=dl% |
00000320  ef 32 32 2c 33 3a e1 0d  01 54 09 e5 8d 54 76 41  |.22,3:...T...TvA|
00000330  0d 01 5e 0d dd f2 70 72  69 6e 74 65 72 0d 01 68  |..^...printer..h|
00000340  10 50 3d b9 3a 4d 3d a3  3a 6d 25 3d 33 0d 01 72  |.P=.:M=.:m%=3..r|
00000350  2c f1 27 27 22 44 6f 20  79 6f 75 20 77 61 6e 74  |,.''"Do you want|
00000360  20 70 65 72 66 6f 72 61  74 69 6f 6e 20 73 6b 69  | perforation ski|
00000370  70 3f 20 28 59 2f 4e 29  22 0d 01 7c 07 f2 79 6e  |p? (Y/N)"..|..yn|
00000380  0d 01 86 1c e7 61 25 3c  33 20 3f 73 6b 69 70 3d  |.....a%<3 ?skip=|
00000390  2d 31 20 8b 20 3f 73 6b  69 70 3d 30 0d 01 90 0b  |-1 . ?skip=0....|
000003a0  ef 31 35 2c 32 3a e1 0d  01 9a 1e dd f2 79 6e 3a  |.15,2:.......yn:|
000003b0  f5 3a 61 25 3d a7 22 59  79 4e 6e 22 2c be 29 3a  |.:a%=."YyNn",.):|
000003c0  fd 61 25 3a e1 0d 01 a4  2f dd f2 73 70 61 63 65  |.a%:..../..space|
000003d0  20 f1 27 27 22 50 52 45  53 53 20 53 50 41 43 45  | .''"PRESS SPACE|
000003e0  20 54 4f 20 43 4f 4e 54  49 4e 55 45 22 27 3a 47  | TO CONTINUE"':G|
000003f0  3d a5 3a e1 0d 01 ae 0a  dd f2 6d 65 6e 75 0d 01  |=.:.......menu..|
00000400  b8 16 f1 8a 37 2c 32 29  22 20 4d 41 49 4e 20 4d  |....7,2)" MAIN M|
00000410  45 4e 55 22 0d 01 c2 16  f1 8a 37 2c 33 29 22 20  |ENU"......7,3)" |
00000420  7e 7e 7e 7e 7e 7e 7e 7e  7e 22 0d 01 cc 11 ef 32  |~~~~~~~~~".....2|
00000430  38 2c 32 2c 33 30 2c 33  35 2c 34 0d 01 d6 1c fb  |8,2,30,35,4.....|
00000440  31 3a f1 22 50 4c 45 41  53 45 20 53 45 4c 45 43  |1:."PLEASE SELEC|
00000450  54 20 2d 22 3a fb 33 0d  01 e0 15 f1 27 22 3c 31  |T -":.3.....'"<1|
00000460  3e 20 45 64 69 74 6f 72  69 61 6c 22 0d 01 ea 20  |> Editorial"... |
00000470  f1 27 22 3c 32 3e 20 4d  6f 72 65 20 53 6f 72 72  |.'"<2> More Sorr|
00000480  79 73 20 66 72 6f 6d 20  47 75 73 22 0d 01 f4 13  |ys from Gus"....|
00000490  f1 27 22 3c 33 3e 20 4c  65 74 74 65 72 73 22 0d  |.'"<3> Letters".|
000004a0  01 fe 14 f1 27 22 3c 34  3e 20 46 65 61 74 75 72  |....'"<4> Featur|
000004b0  65 73 22 0d 02 08 17 f1  27 22 3c 35 3e 20 50 72  |es".....'"<5> Pr|
000004c0  6f 67 72 61 6d 6d 69 6e  67 22 0d 02 12 14 f1 27  |ogramming".....'|
000004d0  22 3c 36 3e 20 53 68 6f  70 70 69 6e 67 22 0d 02  |"<6> Shopping"..|
000004e0  1c 1b f1 27 22 3c 37 3e  20 4c 4d 65 6e 75 20 66  |...'"<7> LMenu f|
000004f0  6f 72 20 45 55 47 32 31  22 0d 02 21 21 f1 27 22  |or EUG21"..!!.'"|
00000500  3c 38 3e 20 49 6e 66 6f  72 6d 61 74 69 6f 6e 20  |<8> Information |
00000510  61 62 6f 75 74 20 45 55  47 22 0d 02 26 1b f1 27  |about EUG"..&..'|
00000520  22 3c 59 3e 20 34 30 20  43 6f 6c 75 6d 6e 20 74  |"<Y> 40 Column t|
00000530  65 78 74 3f 22 0d 02 2b  05 f1 0d 02 30 1a f1 27  |ext?"..+....0..'|
00000540  22 20 20 20 20 57 6f 74  2c 20 4e 6f 20 47 61 6d  |"    Wot, No Gam|
00000550  65 73 3f 22 0d 02 3a 0b  2a 46 58 32 31 2c 30 0d  |es?"..:.*FX21,0.|
00000560  02 44 1c f5 3a 61 25 3d  a7 22 31 32 33 34 35 36  |.D..:a%=."123456|
00000570  37 38 59 22 2c be 29 3a  fd 61 25 0d 02 4e 21 e7  |78Y",.):.a%..N!.|
00000580  61 25 3d 31 8c 66 24 3d  22 45 64 69 74 22 3a 66  |a%=1.f$="Edit":f|
00000590  6c 25 3d 31 3a f2 74 65  78 74 3a e1 0d 02 58 22  |l%=1:.text:...X"|
000005a0  e7 61 25 3d 32 8c 66 24  3d 22 42 6f 6f 62 73 22  |.a%=2.f$="Boobs"|
000005b0  3a 66 6c 25 3d 31 3a f2  74 65 78 74 3a e1 0d 02  |:fl%=1:.text:...|
000005c0  62 1b e7 61 25 3d 33 8c  ff 22 44 49 52 20 4c 22  |b..a%=3.."DIR L"|
000005d0  3a d7 22 4c 4d 45 4e 55  22 0d 02 6c 1b e7 61 25  |:."LMENU"..l..a%|
000005e0  3d 34 8c ff 22 44 49 52  20 46 22 3a d7 22 46 4d  |=4.."DIR F":."FM|
000005f0  45 4e 55 22 0d 02 76 1b  e7 61 25 3d 35 8c ff 22  |ENU"..v..a%=5.."|
00000600  44 49 52 20 50 22 3a d7  22 50 4d 45 4e 55 22 0d  |DIR P":."PMENU".|
00000610  02 80 1b e7 61 25 3d 36  8c ff 22 44 49 52 20 53  |....a%=6.."DIR S|
00000620  22 3a d7 22 53 4d 45 4e  55 22 0d 02 8a 13 20 e7  |":."SMENU".... .|
00000630  20 61 25 3d 37 20 8c f2  6c 6d 65 6e 75 0d 02 8f  | a%=7 ..lmenu...|
00000640  23 20 e7 20 61 25 3d 38  8c 66 24 3d 22 49 4e 46  |# . a%=8.f$="INF|
00000650  4f 22 3a 66 6c 25 3d 31  3a f2 74 65 78 74 3a e1  |O":fl%=1:.text:.|
00000660  0d 02 94 19 e7 61 25 3d  38 8c 4d 3d b9 3a ef 36  |.....a%=8.M=.:.6|
00000670  2c 31 32 3a e5 8d 64 56  41 0d 02 a8 05 e1 0d 02  |,12:..dVA.......|
00000680  bc 0c dd 20 f2 6c 6d 65  6e 75 0d 02 c6 05 db 0d  |... .lmenu......|
00000690  02 d0 29 f1 8a 30 2c 33  29 22 48 41 56 45 20 59  |..)..0,3)"HAVE Y|
000006a0  4f 55 52 20 45 55 47 32  31 20 44 49 53 43 20 31  |OUR EUG21 DISC 1|
000006b0  20 52 45 41 44 59 20 22  0d 02 da 29 f1 8a 30 2c  | READY "...)..0,|
000006c0  35 29 22 41 4e 44 20 50  52 45 53 53 20 53 50 41  |5)"AND PRESS SPA|
000006d0  43 45 20 54 4f 20 4c 4f  41 44 20 4c 4d 45 4e 55  |CE TO LOAD LMENU|
000006e0  22 0d 02 e4 2a f1 8a 30  2c 37 29 22 4f 4e 43 45  |"...*..0,7)"ONCE|
000006f0  20 4c 4d 45 4e 55 20 48  41 53 20 4c 4f 41 44 45  | LMENU HAS LOADE|
00000700  44 20 59 4f 55 20 57 49  4c 4c 22 0d 02 ee 25 f1  |D YOU WILL"...%.|
00000710  8a 30 2c 39 29 22 4e 45  45 44 20 54 4f 20 54 59  |.0,9)"NEED TO TY|
00000720  50 45 20 2a 4d 4f 55 4e  54 20 3c 72 65 74 3e 22  |PE *MOUNT <ret>"|
00000730  0d 02 f8 1e f1 8a 30 2c  31 31 29 22 54 48 45 4e  |......0,11)"THEN|
00000740  20 2a 44 49 52 20 4c 20  3c 72 65 74 3e 22 0d 03  | *DIR L <ret>"..|
00000750  02 28 f1 8a 30 2c 31 33  29 22 54 48 45 4e 20 59  |.(..0,13)"THEN Y|
00000760  4f 55 20 53 48 4f 55 4c  44 20 53 41 56 45 20 4c  |OU SHOULD SAVE L|
00000770  4d 45 4e 55 20 22 0d 03  0c 1e f1 8a 30 2c 31 35  |MENU "......0,15|
00000780  29 22 42 45 46 4f 52 45  20 52 55 4e 4e 49 4e 47  |)"BEFORE RUNNING|
00000790  20 49 54 22 0d 03 16 29  f1 8a 30 2c 31 37 29 22  | IT"...)..0,17)"|
000007a0  54 48 45 20 4c 45 54 54  45 52 53 20 53 45 43 54  |THE LETTERS SECT|
000007b0  49 4f 4e 20 49 4e 20 45  55 47 32 31 22 0d 03 20  |ION IN EUG21".. |
000007c0  1c f1 8a 30 2c 31 39 29  22 49 53 20 57 4f 52 54  |...0,19)"IS WORT|
000007d0  48 20 53 45 45 49 4e 47  22 0d 03 2a 2b f1 8a 30  |H SEEING"..*+..0|
000007e0  2c 32 33 29 22 50 52 45  53 53 20 52 20 54 4f 20  |,23)"PRESS R TO |
000007f0  52 45 54 55 52 4e 20 54  4f 20 4d 41 49 4e 20 4d  |RETURN TO MAIN M|
00000800  45 4e 55 22 0d 03 34 4b  41 24 3d be 3a e7 20 41  |ENU"..4KA$=.:. A|
00000810  24 3d 22 52 22 20 8c 20  e1 20 8b 20 db 3a ff 22  |$="R" . . . .:."|
00000820  4c 4f 41 44 20 32 31 4c  4d 22 3a f1 8a 30 2c 32  |LOAD 21LM":..0,2|
00000830  35 29 22 4e 4f 57 20 49  4e 53 45 52 54 20 59 4f  |5)"NOW INSERT YO|
00000840  55 52 20 45 55 47 32 31  20 44 49 53 43 31 22 0d  |UR EUG21 DISC1".|
00000850  ff                                                |.|
00000851

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_22.ADF
Filename:	MENU
Read OK:	✔
File size:	0851 bytes
Load address:	FFFF0E00
Exec address:	FFFF802B

File contents