� 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)"          LETTERS MENU"

��7,3)" ~~~~~~~~~~~~"

��28,1,30,35,2

��1:�"PLEASE SELECT -":�3

�D�'"<1> Gareth Babb on the Internet       and some other goodies"

�\�'"<2> Tony Boarer having problems    with EUG21 and still not convinced about flippies"

�*�'"<3> Chris Chadwick's contributions"

�&�"<4> John Crane on the Super Elk"
F�'"<5> Richard Dimond having some        problems with his ROMBOX"
C�'"<6> Nick Walker having some           problems with his Elk"
L�'"<7> Alan Richardson down under     having problems with EUG and PRES"
+�'"<8> Mike Olive offering information"
!%�"<9> Paul Devonport and Watford"
& �'"<0> Gus looking for help"
0)�'"<Y> 40 Column text? <R> Main Menu"
:*FX21,0
D.� REPEAT:a%=INSTR("ABCDEFYR",GET$):UNTILa%
E�:a%=�"1234567890YR",�):�a%
N!�a%=1�f$="Babb":fl%=1:�text:�
X#�a%=2�f$="Boarer":fl%=2:�text:�
b!�a%=3�f$="Chad":fl%=1:�text:�
l"�a%=4�f$="Crane":fl%=2:�text:�
v!�a%=5�f$="Rich":fl%=1:�text:�
�#�a%=6�f$="Walker":fl%=1:�text:�
��a%=7�f$="NZ":fl%=1:�text:�
�"�a%=8�f$="Olive":fl%=1:�text:�
�"�a%=9�f$="Devon":fl%=1:�text:�
�!�a%=10�f$="Gus":fl%=1:�text:�
��a%=11�M=�:�6,12:�dVA
��a%=12��"DIR $":�"MENU"
��
�

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 22 f1 8a 37 2c 32 29  22 20 20 20 20 20 20 20  |."..7,2)"       |
00000410  20 20 20 4c 45 54 54 45  52 53 20 4d 45 4e 55 22  |   LETTERS MENU"|
00000420  0d 01 c2 19 f1 8a 37 2c  33 29 22 20 7e 7e 7e 7e  |......7,3)" ~~~~|
00000430  7e 7e 7e 7e 7e 7e 7e 7e  22 0d 01 cc 11 ef 32 38  |~~~~~~~~".....28|
00000440  2c 31 2c 33 30 2c 33 35  2c 32 0d 01 d6 1c fb 31  |,1,30,35,2.....1|
00000450  3a f1 22 50 4c 45 41 53  45 20 53 45 4c 45 43 54  |:."PLEASE SELECT|
00000460  20 2d 22 3a fb 33 0d 01  e0 44 f1 27 22 3c 31 3e  | -":.3...D.'"<1>|
00000470  20 47 61 72 65 74 68 20  42 61 62 62 20 6f 6e 20  | Gareth Babb on |
00000480  74 68 65 20 49 6e 74 65  72 6e 65 74 20 20 20 20  |the Internet    |
00000490  20 20 20 61 6e 64 20 73  6f 6d 65 20 6f 74 68 65  |   and some othe|
000004a0  72 20 67 6f 6f 64 69 65  73 22 0d 01 ea 5c f1 27  |r goodies"...\.'|
000004b0  22 3c 32 3e 20 54 6f 6e  79 20 42 6f 61 72 65 72  |"<2> Tony Boarer|
000004c0  20 68 61 76 69 6e 67 20  70 72 6f 62 6c 65 6d 73  | having problems|
000004d0  20 20 20 20 77 69 74 68  20 45 55 47 32 31 20 61  |    with EUG21 a|
000004e0  6e 64 20 73 74 69 6c 6c  20 6e 6f 74 20 63 6f 6e  |nd still not con|
000004f0  76 69 6e 63 65 64 20 61  62 6f 75 74 20 66 6c 69  |vinced about fli|
00000500  70 70 69 65 73 22 0d 01  f4 2a f1 27 22 3c 33 3e  |ppies"...*.'"<3>|
00000510  20 43 68 72 69 73 20 43  68 61 64 77 69 63 6b 27  | Chris Chadwick'|
00000520  73 20 63 6f 6e 74 72 69  62 75 74 69 6f 6e 73 22  |s contributions"|
00000530  0d 01 fe 26 f1 22 3c 34  3e 20 4a 6f 68 6e 20 43  |...&."<4> John C|
00000540  72 61 6e 65 20 6f 6e 20  74 68 65 20 53 75 70 65  |rane on the Supe|
00000550  72 20 45 6c 6b 22 0d 02  08 46 f1 27 22 3c 35 3e  |r Elk"...F.'"<5>|
00000560  20 52 69 63 68 61 72 64  20 44 69 6d 6f 6e 64 20  | Richard Dimond |
00000570  68 61 76 69 6e 67 20 73  6f 6d 65 20 20 20 20 20  |having some     |
00000580  20 20 20 70 72 6f 62 6c  65 6d 73 20 77 69 74 68  |   problems with|
00000590  20 68 69 73 20 52 4f 4d  42 4f 58 22 0d 02 12 43  | his ROMBOX"...C|
000005a0  f1 27 22 3c 36 3e 20 4e  69 63 6b 20 57 61 6c 6b  |.'"<6> Nick Walk|
000005b0  65 72 20 68 61 76 69 6e  67 20 73 6f 6d 65 20 20  |er having some  |
000005c0  20 20 20 20 20 20 20 20  20 70 72 6f 62 6c 65 6d  |         problem|
000005d0  73 20 77 69 74 68 20 68  69 73 20 45 6c 6b 22 0d  |s with his Elk".|
000005e0  02 17 4c f1 27 22 3c 37  3e 20 41 6c 61 6e 20 52  |..L.'"<7> Alan R|
000005f0  69 63 68 61 72 64 73 6f  6e 20 64 6f 77 6e 20 75  |ichardson down u|
00000600  6e 64 65 72 20 20 20 20  20 68 61 76 69 6e 67 20  |nder     having |
00000610  70 72 6f 62 6c 65 6d 73  20 77 69 74 68 20 45 55  |problems with EU|
00000620  47 20 61 6e 64 20 50 52  45 53 22 0d 02 1c 2b f1  |G and PRES"...+.|
00000630  27 22 3c 38 3e 20 4d 69  6b 65 20 4f 6c 69 76 65  |'"<8> Mike Olive|
00000640  20 6f 66 66 65 72 69 6e  67 20 69 6e 66 6f 72 6d  | offering inform|
00000650  61 74 69 6f 6e 22 0d 02  21 25 f1 22 3c 39 3e 20  |ation"..!%."<9> |
00000660  50 61 75 6c 20 44 65 76  6f 6e 70 6f 72 74 20 61  |Paul Devonport a|
00000670  6e 64 20 57 61 74 66 6f  72 64 22 0d 02 26 20 f1  |nd Watford"..& .|
00000680  27 22 3c 30 3e 20 47 75  73 20 6c 6f 6f 6b 69 6e  |'"<0> Gus lookin|
00000690  67 20 66 6f 72 20 68 65  6c 70 22 0d 02 30 29 f1  |g for help"..0).|
000006a0  27 22 3c 59 3e 20 34 30  20 43 6f 6c 75 6d 6e 20  |'"<Y> 40 Column |
000006b0  74 65 78 74 3f 20 3c 52  3e 20 4d 61 69 6e 20 4d  |text? <R> Main M|
000006c0  65 6e 75 22 0d 02 3a 0b  2a 46 58 32 31 2c 30 0d  |enu"..:.*FX21,0.|
000006d0  02 44 2e f4 20 52 45 50  45 41 54 3a 61 25 3d 49  |.D.. REPEAT:a%=I|
000006e0  4e 53 54 52 28 22 41 42  43 44 45 46 59 52 22 2c  |NSTR("ABCDEFYR",|
000006f0  47 45 54 24 29 3a 55 4e  54 49 4c 61 25 0d 02 45  |GET$):UNTILa%..E|
00000700  1f f5 3a 61 25 3d a7 22  31 32 33 34 35 36 37 38  |..:a%=."12345678|
00000710  39 30 59 52 22 2c be 29  3a fd 61 25 0d 02 4e 21  |90YR",.):.a%..N!|
00000720  e7 61 25 3d 31 8c 66 24  3d 22 42 61 62 62 22 3a  |.a%=1.f$="Babb":|
00000730  66 6c 25 3d 31 3a f2 74  65 78 74 3a e1 0d 02 58  |fl%=1:.text:...X|
00000740  23 e7 61 25 3d 32 8c 66  24 3d 22 42 6f 61 72 65  |#.a%=2.f$="Boare|
00000750  72 22 3a 66 6c 25 3d 32  3a f2 74 65 78 74 3a e1  |r":fl%=2:.text:.|
00000760  0d 02 62 21 e7 61 25 3d  33 8c 66 24 3d 22 43 68  |..b!.a%=3.f$="Ch|
00000770  61 64 22 3a 66 6c 25 3d  31 3a f2 74 65 78 74 3a  |ad":fl%=1:.text:|
00000780  e1 0d 02 6c 22 e7 61 25  3d 34 8c 66 24 3d 22 43  |...l".a%=4.f$="C|
00000790  72 61 6e 65 22 3a 66 6c  25 3d 32 3a f2 74 65 78  |rane":fl%=2:.tex|
000007a0  74 3a e1 0d 02 76 21 e7  61 25 3d 35 8c 66 24 3d  |t:...v!.a%=5.f$=|
000007b0  22 52 69 63 68 22 3a 66  6c 25 3d 31 3a f2 74 65  |"Rich":fl%=1:.te|
000007c0  78 74 3a e1 0d 02 80 23  e7 61 25 3d 36 8c 66 24  |xt:....#.a%=6.f$|
000007d0  3d 22 57 61 6c 6b 65 72  22 3a 66 6c 25 3d 31 3a  |="Walker":fl%=1:|
000007e0  f2 74 65 78 74 3a e1 0d  02 85 1f e7 61 25 3d 37  |.text:......a%=7|
000007f0  8c 66 24 3d 22 4e 5a 22  3a 66 6c 25 3d 31 3a f2  |.f$="NZ":fl%=1:.|
00000800  74 65 78 74 3a e1 0d 02  8a 22 e7 61 25 3d 38 8c  |text:....".a%=8.|
00000810  66 24 3d 22 4f 6c 69 76  65 22 3a 66 6c 25 3d 31  |f$="Olive":fl%=1|
00000820  3a f2 74 65 78 74 3a e1  0d 02 8f 22 e7 61 25 3d  |:.text:....".a%=|
00000830  39 8c 66 24 3d 22 44 65  76 6f 6e 22 3a 66 6c 25  |9.f$="Devon":fl%|
00000840  3d 31 3a f2 74 65 78 74  3a e1 0d 02 91 21 e7 61  |=1:.text:....!.a|
00000850  25 3d 31 30 8c 66 24 3d  22 47 75 73 22 3a 66 6c  |%=10.f$="Gus":fl|
00000860  25 3d 31 3a f2 74 65 78  74 3a e1 0d 02 94 1a e7  |%=1:.text:......|
00000870  61 25 3d 31 31 8c 4d 3d  b9 3a ef 36 2c 31 32 3a  |a%=11.M=.:.6,12:|
00000880  e5 8d 64 56 41 0d 02 9e  1b e7 61 25 3d 31 32 8c  |..dVA.....a%=12.|
00000890  ff 22 44 49 52 20 24 22  3a d7 22 4d 45 4e 55 22  |."DIR $":."MENU"|
000008a0  0d 02 a8 05 e1 0d ff                              |.......|
000008a7