-� EUG MENU by Richard Dimond V.2 Feb 1998
-�Z% �Tr@ ��"LOAD $.CODE8":L%=900:�=&2600
2�:�menu:�0:�
<3��menu:�22,4,19,0,4;0;23,1,0;0;0;0;28,2,30,35,2
FKlns=&80:sklns=&81:skp=&82:cnt=&83:modflg=&84:?skp=0:?modflg=0:M%=�:T%=�
P.�12,12:�1267,12:�1267,1011:�12,1011:�12,12
Z��L%:�T$:T$="EUG40 "+T$+" MENU":�17-�T$/2);T$;�17-�T$/2);ĩT$,�126);�0,3)"PLEASE SELECT -":�'"T. Toggle ";((((M%*-1)� 1)+1)*40)" column text"
d�L%>900 �Dx@
nA�'"P. Print all text files"''"I. Information about EUG":�tB@
x�'"R. Return to Main menu"
��'�34,"+")
��Y:�Z=1�Y:�A$:�'A$:�
��D$:�"DIR "+D$
��B$
��"FX21":�:a%=�B$,�):�a%
�-�a%=1 M%=M% � �:�10,5);8-(4*�(M%)):�tj@
��L%>900 �d\@
�0�a%=2 �"$.PRINT" ��a%>4 L%=(860+a%*10):�menu
� �L%=900:�a%<5 a%=a%-2 :�dp@
��a%=2 Z%=�:L%=900:�menu
��L%>900:�a%>2 a%=a%-2
�� R%,f$,F%,P$,D%,S$,N%
�$&120=f$:$&134=P$:$&148=S$

a%=a%-1:�a%<>0 �dp@ ��TNA

Z%=�:�"$.PRINT"
��� MAIN,6,"1. Gus","2. Letters","3. Features","4. Programming","5. Games","6. Shopping",$,"TPI123456",0,"+info",1,,0,,0,0,"+gus",1,,0,,0
��� LETTERS,3,"1. Richard Dimond improves our       lives","2. Alan Richardson and Acorn down     under","3. John Crane musing on HD"
�H�$.L,"TR123",0,"+dimon",1,,0,,0,0,"+RICH",1,,0,,0,0,"+crane",1,,0,,0
�/� FEATURES,1,"1. Reprint of Cumana article"
��$,"TR1",0,"+cuman",1,,0,,0
�T� PROGRAMMING,2,"1, New CODE8 and How the EUG discs   work","2. Prettyprint ROM"
�;�$.P,"TR12",1,"+eugex",2,"CD8SRC",0,,0,0,"+man",1,,0,,0
�"� GAMES,2,"1. Alien","2. Golf"
�3�$,"TR12",1,"",0,"ALIEN",0,,0,1,"",0,"GOLF"0,,0
�<� SALES,1,"1, Things for sale",$,"TR1",0,"+SALE",1,,0,,0
�

00000000  0d 00 0a 2d 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  20 56 2e 32 20 46 65 62  20 31 39 39 38 0d 00 14  | V.2 Feb 1998...|
00000030  2d e7 5a 25 20 e5 8d 54  72 40 20 8b ff 22 4c 4f  |-.Z% ..Tr@ .."LO|
00000040  41 44 20 24 2e 43 4f 44  45 38 22 3a 4c 25 3d 39  |AD $.CODE8":L%=9|
00000050  30 30 3a d3 3d 26 32 36  30 30 0d 00 32 10 f5 3a  |00:.=&2600..2..:|
00000060  f2 6d 65 6e 75 3a fd 30  3a e0 0d 00 3c 33 dd f2  |.menu:.0:...<3..|
00000070  6d 65 6e 75 3a ef 32 32  2c 34 2c 31 39 2c 30 2c  |menu:.22,4,19,0,|
00000080  34 3b 30 3b 32 33 2c 31  2c 30 3b 30 3b 30 3b 30  |4;0;23,1,0;0;0;0|
00000090  3b 32 38 2c 32 2c 33 30  2c 33 35 2c 32 0d 00 46  |;28,2,30,35,2..F|
000000a0  4b 6c 6e 73 3d 26 38 30  3a 73 6b 6c 6e 73 3d 26  |Klns=&80:sklns=&|
000000b0  38 31 3a 73 6b 70 3d 26  38 32 3a 63 6e 74 3d 26  |81:skp=&82:cnt=&|
000000c0  38 33 3a 6d 6f 64 66 6c  67 3d 26 38 34 3a 3f 73  |83:modflg=&84:?s|
000000d0  6b 70 3d 30 3a 3f 6d 6f  64 66 6c 67 3d 30 3a 4d  |kp=0:?modflg=0:M|
000000e0  25 3d a3 3a 54 25 3d a3  0d 00 50 2e ec 31 32 2c  |%=.:T%=...P..12,|
000000f0  31 32 3a df 31 32 36 37  2c 31 32 3a df 31 32 36  |12:.1267,12:.126|
00000100  37 2c 31 30 31 31 3a df  31 32 2c 31 30 31 31 3a  |7,1011:.12,1011:|
00000110  df 31 32 2c 31 32 0d 00  5a 91 f7 4c 25 3a f3 54  |.12,12..Z..L%:.T|
00000120  24 3a 54 24 3d 22 45 55  47 34 30 20 22 2b 54 24  |$:T$="EUG40 "+T$|
00000130  2b 22 20 4d 45 4e 55 22  3a f1 8a 31 37 2d a9 54  |+" MENU":..17-.T|
00000140  24 2f 32 29 3b 54 24 3b  8a 31 37 2d a9 54 24 2f  |$/2);T$;.17-.T$/|
00000150  32 29 3b c4 a9 54 24 2c  bd 31 32 36 29 3b 8a 30  |2);..T$,.126);.0|
00000160  2c 33 29 22 50 4c 45 41  53 45 20 53 45 4c 45 43  |,3)"PLEASE SELEC|
00000170  54 20 2d 22 3a f1 27 22  54 2e 20 54 6f 67 67 6c  |T -":.'"T. Toggl|
00000180  65 20 22 3b 28 28 28 28  4d 25 2a 2d 31 29 82 20  |e ";((((M%*-1). |
00000190  31 29 2b 31 29 2a 34 30  29 22 20 63 6f 6c 75 6d  |1)+1)*40)" colum|
000001a0  6e 20 74 65 78 74 22 0d  00 64 11 e7 4c 25 3e 39  |n text"..d..L%>9|
000001b0  30 30 20 e5 8d 44 78 40  0d 00 6e 41 f1 27 22 50  |00 ..Dx@..nA.'"P|
000001c0  2e 20 50 72 69 6e 74 20  61 6c 6c 20 74 65 78 74  |. Print all text|
000001d0  20 66 69 6c 65 73 22 27  27 22 49 2e 20 49 6e 66  | files"''"I. Inf|
000001e0  6f 72 6d 61 74 69 6f 6e  20 61 62 6f 75 74 20 45  |ormation about E|
000001f0  55 47 22 3a e5 8d 74 42  40 0d 00 78 1e f1 27 22  |UG":..tB@..x..'"|
00000200  52 2e 20 52 65 74 75 72  6e 20 74 6f 20 4d 61 69  |R. Return to Mai|
00000210  6e 20 6d 65 6e 75 22 0d  00 82 0e f1 27 c4 33 34  |n menu".....'.34|
00000220  2c 22 2b 22 29 0d 00 8c  18 f3 59 3a e3 5a 3d 31  |,"+").....Y:.Z=1|
00000230  b8 59 3a f3 41 24 3a f1  27 41 24 3a ed 0d 00 96  |.Y:.A$:.'A$:....|
00000240  12 f3 44 24 3a ff 22 44  49 52 20 22 2b 44 24 0d  |..D$:."DIR "+D$.|
00000250  00 a0 07 f3 42 24 0d 00  aa 1b ff 22 46 58 32 31  |....B$....."FX21|
00000260  22 3a f5 3a 61 25 3d a7  42 24 2c be 29 3a fd 61  |":.:a%=.B$,.):.a|
00000270  25 0d 00 b4 2d e7 61 25  3d 31 20 4d 25 3d 4d 25  |%...-.a%=1 M%=M%|
00000280  20 82 20 b9 3a f1 8a 31  30 2c 35 29 3b 38 2d 28  | . .:..10,5);8-(|
00000290  34 2a 94 28 4d 25 29 29  3a e5 8d 74 6a 40 0d 00  |4*.(M%)):..tj@..|
000002a0  be 11 e7 4c 25 3e 39 30  30 20 e5 8d 64 5c 40 0d  |...L%>900 ..d\@.|
000002b0  00 c8 30 e7 61 25 3d 32  20 d7 22 24 2e 50 52 49  |..0.a%=2 ."$.PRI|
000002c0  4e 54 22 20 8b e7 61 25  3e 34 20 4c 25 3d 28 38  |NT" ..a%>4 L%=(8|
000002d0  36 30 2b 61 25 2a 31 30  29 3a f2 6d 65 6e 75 0d  |60+a%*10):.menu.|
000002e0  00 d2 20 e7 4c 25 3d 39  30 30 3a e7 61 25 3c 35  |.. .L%=900:.a%<5|
000002f0  20 61 25 3d 61 25 2d 32  20 3a e5 8d 64 70 40 0d  | a%=a%-2 :..dp@.|
00000300  00 dc 1b e7 61 25 3d 32  20 5a 25 3d a3 3a 4c 25  |....a%=2 Z%=.:L%|
00000310  3d 39 30 30 3a f2 6d 65  6e 75 0d 00 e6 19 e7 4c  |=900:.menu.....L|
00000320  25 3e 39 30 30 3a e7 61  25 3e 32 20 61 25 3d 61  |%>900:.a%>2 a%=a|
00000330  25 2d 32 0d 00 f0 1a f3  20 52 25 2c 66 24 2c 46  |%-2..... R%,f$,F|
00000340  25 2c 50 24 2c 44 25 2c  53 24 2c 4e 25 0d 00 fa  |%,P$,D%,S$,N%...|
00000350  1e 24 26 31 32 30 3d 66  24 3a 24 26 31 33 34 3d  |.$&120=f$:$&134=|
00000360  50 24 3a 24 26 31 34 38  3d 53 24 0d 01 04 1f 61  |P$:$&148=S$....a|
00000370  25 3d 61 25 2d 31 3a e7  61 25 3c 3e 30 20 e5 8d  |%=a%-1:.a%<>0 ..|
00000380  64 70 40 20 8b e5 8d 54  4e 41 0d 01 0e 13 5a 25  |dp@ ...TNA....Z%|
00000390  3d b9 3a d7 22 24 2e 50  52 49 4e 54 22 0d 03 84  |=.:."$.PRINT"...|
000003a0  8b dc 20 4d 41 49 4e 2c  36 2c 22 31 2e 20 47 75  |.. MAIN,6,"1. Gu|
000003b0  73 22 2c 22 32 2e 20 4c  65 74 74 65 72 73 22 2c  |s","2. Letters",|
000003c0  22 33 2e 20 46 65 61 74  75 72 65 73 22 2c 22 34  |"3. Features","4|
000003d0  2e 20 50 72 6f 67 72 61  6d 6d 69 6e 67 22 2c 22  |. Programming","|
000003e0  35 2e 20 47 61 6d 65 73  22 2c 22 36 2e 20 53 68  |5. Games","6. Sh|
000003f0  6f 70 70 69 6e 67 22 2c  24 2c 22 54 50 49 31 32  |opping",$,"TPI12|
00000400  33 34 35 36 22 2c 30 2c  22 2b 69 6e 66 6f 22 2c  |3456",0,"+info",|
00000410  31 2c 2c 30 2c 2c 30 2c  30 2c 22 2b 67 75 73 22  |1,,0,,0,0,"+gus"|
00000420  2c 31 2c 2c 30 2c 2c 30  0d 03 8e 87 dc 20 4c 45  |,1,,0,,0..... LE|
00000430  54 54 45 52 53 2c 33 2c  22 31 2e 20 52 69 63 68  |TTERS,3,"1. Rich|
00000440  61 72 64 20 44 69 6d 6f  6e 64 20 69 6d 70 72 6f  |ard Dimond impro|
00000450  76 65 73 20 6f 75 72 20  20 20 20 20 20 20 6c 69  |ves our       li|
00000460  76 65 73 22 2c 22 32 2e  20 41 6c 61 6e 20 52 69  |ves","2. Alan Ri|
00000470  63 68 61 72 64 73 6f 6e  20 61 6e 64 20 41 63 6f  |chardson and Aco|
00000480  72 6e 20 64 6f 77 6e 20  20 20 20 20 75 6e 64 65  |rn down     unde|
00000490  72 22 2c 22 33 2e 20 4a  6f 68 6e 20 43 72 61 6e  |r","3. John Cran|
000004a0  65 20 6d 75 73 69 6e 67  20 6f 6e 20 48 44 22 0d  |e musing on HD".|
000004b0  03 93 48 dc 24 2e 4c 2c  22 54 52 31 32 33 22 2c  |..H.$.L,"TR123",|
000004c0  30 2c 22 2b 64 69 6d 6f  6e 22 2c 31 2c 2c 30 2c  |0,"+dimon",1,,0,|
000004d0  2c 30 2c 30 2c 22 2b 52  49 43 48 22 2c 31 2c 2c  |,0,0,"+RICH",1,,|
000004e0  30 2c 2c 30 2c 30 2c 22  2b 63 72 61 6e 65 22 2c  |0,,0,0,"+crane",|
000004f0  31 2c 2c 30 2c 2c 30 0d  03 98 2f dc 20 46 45 41  |1,,0,,0.../. FEA|
00000500  54 55 52 45 53 2c 31 2c  22 31 2e 20 52 65 70 72  |TURES,1,"1. Repr|
00000510  69 6e 74 20 6f 66 20 43  75 6d 61 6e 61 20 61 72  |int of Cumana ar|
00000520  74 69 63 6c 65 22 0d 03  9d 1f dc 24 2c 22 54 52  |ticle".....$,"TR|
00000530  31 22 2c 30 2c 22 2b 63  75 6d 61 6e 22 2c 31 2c  |1",0,"+cuman",1,|
00000540  2c 30 2c 2c 30 0d 03 a2  54 dc 20 50 52 4f 47 52  |,0,,0...T. PROGR|
00000550  41 4d 4d 49 4e 47 2c 32  2c 22 31 2c 20 4e 65 77  |AMMING,2,"1, New|
00000560  20 43 4f 44 45 38 20 61  6e 64 20 48 6f 77 20 74  | CODE8 and How t|
00000570  68 65 20 45 55 47 20 64  69 73 63 73 20 20 20 77  |he EUG discs   w|
00000580  6f 72 6b 22 2c 22 32 2e  20 50 72 65 74 74 79 70  |ork","2. Prettyp|
00000590  72 69 6e 74 20 52 4f 4d  22 0d 03 a7 3b dc 24 2e  |rint ROM"...;.$.|
000005a0  50 2c 22 54 52 31 32 22  2c 31 2c 22 2b 65 75 67  |P,"TR12",1,"+eug|
000005b0  65 78 22 2c 32 2c 22 43  44 38 53 52 43 22 2c 30  |ex",2,"CD8SRC",0|
000005c0  2c 2c 30 2c 30 2c 22 2b  6d 61 6e 22 2c 31 2c 2c  |,,0,0,"+man",1,,|
000005d0  30 2c 2c 30 0d 03 ac 22  dc 20 47 41 4d 45 53 2c  |0,,0...". GAMES,|
000005e0  32 2c 22 31 2e 20 41 6c  69 65 6e 22 2c 22 32 2e  |2,"1. Alien","2.|
000005f0  20 47 6f 6c 66 22 0d 03  b1 33 dc 24 2c 22 54 52  | Golf"...3.$,"TR|
00000600  31 32 22 2c 31 2c 22 22  2c 30 2c 22 41 4c 49 45  |12",1,"",0,"ALIE|
00000610  4e 22 2c 30 2c 2c 30 2c  31 2c 22 22 2c 30 2c 22  |N",0,,0,1,"",0,"|
00000620  47 4f 4c 46 22 30 2c 2c  30 0d 03 b6 3c dc 20 53  |GOLF"0,,0...<. S|
00000630  41 4c 45 53 2c 31 2c 22  31 2c 20 54 68 69 6e 67  |ALES,1,"1, Thing|
00000640  73 20 66 6f 72 20 73 61  6c 65 22 2c 24 2c 22 54  |s for sale",$,"T|
00000650  52 31 22 2c 30 2c 22 2b  53 41 4c 45 22 2c 31 2c  |R1",0,"+SALE",1,|
00000660  2c 30 2c 2c 30 0d ff                              |,0,,0..|
00000667