.� EUG MENUE by Richard Dimond V.2 Feb 1998
-�Z% �Tr@ ��"LOAD $.CODE8":L%=900:�=&2600
2�:�menu:�0:�
<9��menu:�22,1,19,2,4;0;23,1,0;0;0;0;28,0,3,39,0:�130:�
FKlns=&80:sklns=&81:skp=&82:cnt=&83:modflg=&84:?skp=0:?modflg=0:M%=�:T%=�
P"�L%:�T$:T$="EUG43 "+T$+" MENU"
Z��19-�T$/2,1);T$;�19-�T$/2);ĩT$,�126);:�26,28,2,29,35,4:�128:�:�1:�'"PLEASE SELECT -":�2:�'"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"
��1:�'�34,"+"):�3
��Y:�Z=1�Y:�A$:�'A$:�
��D$:�"DIR "+D$
��B$
��"FX21":�:a%=�B$,�):�a%
�0�a%=1 �2:M%=M% � �:�10,3);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%=�:�":0.$.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
�3� LETTERS,2,"1. John Crane","2. Richard Dimond"
�3�$,"TR12",0,"+crane",1,,0,,0,0,"+dimon",1,,0,,0
��� FEATURES,4,"1. An article from EUG6043 looking","   back at key events of the last","    1000 years","2. Knocking the Gate"
�1�$,"TR12",0,"+sing",3,,0,,0,0,"+gate",1,,0,,0
�E� PROGRAMMING,2,"1, Jigsaw Dave Edwards","2, Typing Dave Edwards"
�>�$.P,"TR12",1,"+JIG",1,"loader",0,,0,1,"",0,"MICROTY",0,,0
�/� GAMES,1,"1. Domino's from Richard Dimond"
�(�$,"TR1",1,"+quarts",1,"quarts",0,,0
�"� SALES,1,"1, Things for sale"
��$,"TR1",0,"+SALE",1,,0,,0
�

00000000  0d 00 0a 2e f4 20 45 55  47 20 4d 45 4e 55 45 20  |..... EUG MENUE |
00000010  62 79 20 52 69 63 68 61  72 64 20 44 69 6d 6f 6e  |by Richard Dimon|
00000020  64 20 56 2e 32 20 46 65  62 20 31 39 39 38 0d 00  |d V.2 Feb 1998..|
00000030  14 2d e7 5a 25 20 e5 8d  54 72 40 20 8b ff 22 4c  |.-.Z% ..Tr@ .."L|
00000040  4f 41 44 20 24 2e 43 4f  44 45 38 22 3a 4c 25 3d  |OAD $.CODE8":L%=|
00000050  39 30 30 3a d3 3d 26 32  36 30 30 0d 00 32 10 f5  |900:.=&2600..2..|
00000060  3a f2 6d 65 6e 75 3a fd  30 3a e0 0d 00 3c 39 dd  |:.menu:.0:...<9.|
00000070  f2 6d 65 6e 75 3a ef 32  32 2c 31 2c 31 39 2c 32  |.menu:.22,1,19,2|
00000080  2c 34 3b 30 3b 32 33 2c  31 2c 30 3b 30 3b 30 3b  |,4;0;23,1,0;0;0;|
00000090  30 3b 32 38 2c 30 2c 33  2c 33 39 2c 30 3a fb 31  |0;28,0,3,39,0:.1|
000000a0  33 30 3a db 0d 00 46 4b  6c 6e 73 3d 26 38 30 3a  |30:...FKlns=&80:|
000000b0  73 6b 6c 6e 73 3d 26 38  31 3a 73 6b 70 3d 26 38  |sklns=&81:skp=&8|
000000c0  32 3a 63 6e 74 3d 26 38  33 3a 6d 6f 64 66 6c 67  |2:cnt=&83:modflg|
000000d0  3d 26 38 34 3a 3f 73 6b  70 3d 30 3a 3f 6d 6f 64  |=&84:?skp=0:?mod|
000000e0  66 6c 67 3d 30 3a 4d 25  3d a3 3a 54 25 3d a3 0d  |flg=0:M%=.:T%=..|
000000f0  00 50 22 f7 4c 25 3a f3  54 24 3a 54 24 3d 22 45  |.P".L%:.T$:T$="E|
00000100  55 47 34 33 20 22 2b 54  24 2b 22 20 4d 45 4e 55  |UG43 "+T$+" MENU|
00000110  22 0d 00 5a 90 f1 8a 31  39 2d a9 54 24 2f 32 2c  |"..Z...19-.T$/2,|
00000120  31 29 3b 54 24 3b 8a 31  39 2d a9 54 24 2f 32 29  |1);T$;.19-.T$/2)|
00000130  3b c4 a9 54 24 2c bd 31  32 36 29 3b 3a ef 32 36  |;..T$,.126);:.26|
00000140  2c 32 38 2c 32 2c 32 39  2c 33 35 2c 34 3a fb 31  |,28,2,29,35,4:.1|
00000150  32 38 3a db 3a fb 31 3a  f1 27 22 50 4c 45 41 53  |28:.:.1:.'"PLEAS|
00000160  45 20 53 45 4c 45 43 54  20 2d 22 3a fb 32 3a f1  |E SELECT -":.2:.|
00000170  27 22 54 2e 20 54 6f 67  67 6c 65 20 22 3b 28 28  |'"T. Toggle ";((|
00000180  28 28 4d 25 2a 2d 31 29  82 20 31 29 2b 31 29 2a  |((M%*-1). 1)+1)*|
00000190  34 30 29 22 20 63 6f 6c  75 6d 6e 20 74 65 78 74  |40)" column text|
000001a0  22 0d 00 64 11 e7 4c 25  3e 39 30 30 20 e5 8d 44  |"..d..L%>900 ..D|
000001b0  78 40 0d 00 6e 41 f1 27  22 50 2e 20 50 72 69 6e  |x@..nA.'"P. Prin|
000001c0  74 20 61 6c 6c 20 74 65  78 74 20 66 69 6c 65 73  |t all text files|
000001d0  22 27 27 22 49 2e 20 49  6e 66 6f 72 6d 61 74 69  |"''"I. Informati|
000001e0  6f 6e 20 61 62 6f 75 74  20 45 55 47 22 3a e5 8d  |on about EUG":..|
000001f0  74 42 40 0d 00 78 1e f1  27 22 52 2e 20 52 65 74  |tB@..x..'"R. Ret|
00000200  75 72 6e 20 74 6f 20 4d  61 69 6e 20 6d 65 6e 75  |urn to Main menu|
00000210  22 0d 00 82 14 fb 31 3a  f1 27 c4 33 34 2c 22 2b  |".....1:.'.34,"+|
00000220  22 29 3a fb 33 0d 00 8c  18 f3 59 3a e3 5a 3d 31  |"):.3.....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 30 e7 61 25  3d 31 20 fb 32 3a 4d 25  |%...0.a%=1 .2:M%|
00000280  3d 4d 25 20 82 20 b9 3a  f1 8a 31 30 2c 33 29 3b  |=M% . .:..10,3);|
00000290  38 2d 28 34 2a 94 28 4d  25 29 29 3a e5 8d 74 6a  |8-(4*.(M%)):..tj|
000002a0  40 0d 00 be 11 e7 4c 25  3e 39 30 30 20 e5 8d 64  |@.....L%>900 ..d|
000002b0  5c 40 0d 00 c8 30 e7 61  25 3d 32 20 d7 22 24 2e  |\@...0.a%=2 ."$.|
000002c0  50 52 49 4e 54 22 20 8b  e7 61 25 3e 34 20 4c 25  |PRINT" ..a%>4 L%|
000002d0  3d 28 38 36 30 2b 61 25  2a 31 30 29 3a f2 6d 65  |=(860+a%*10):.me|
000002e0  6e 75 0d 00 d2 20 e7 4c  25 3d 39 30 30 3a e7 61  |nu... .L%=900:.a|
000002f0  25 3c 35 20 61 25 3d 61  25 2d 32 20 3a e5 8d 64  |%<5 a%=a%-2 :..d|
00000300  70 40 0d 00 dc 1b e7 61  25 3d 32 20 5a 25 3d a3  |p@.....a%=2 Z%=.|
00000310  3a 4c 25 3d 39 30 30 3a  f2 6d 65 6e 75 0d 00 e6  |:L%=900:.menu...|
00000320  19 e7 4c 25 3e 39 30 30  3a e7 61 25 3e 32 20 61  |..L%>900:.a%>2 a|
00000330  25 3d 61 25 2d 32 0d 00  f0 1a f3 20 52 25 2c 66  |%=a%-2..... R%,f|
00000340  24 2c 46 25 2c 50 24 2c  44 25 2c 53 24 2c 4e 25  |$,F%,P$,D%,S$,N%|
00000350  0d 00 fa 1e 24 26 31 32  30 3d 66 24 3a 24 26 31  |....$&120=f$:$&1|
00000360  33 34 3d 50 24 3a 24 26  31 34 38 3d 53 24 0d 01  |34=P$:$&148=S$..|
00000370  04 1f 61 25 3d 61 25 2d  31 3a e7 61 25 3c 3e 30  |..a%=a%-1:.a%<>0|
00000380  20 e5 8d 64 70 40 20 8b  e5 8d 54 4e 41 0d 01 0e  | ..dp@ ...TNA...|
00000390  16 5a 25 3d b9 3a d7 22  3a 30 2e 24 2e 50 52 49  |.Z%=.:.":0.$.PRI|
000003a0  4e 54 22 0d 03 84 8b dc  20 4d 41 49 4e 2c 36 2c  |NT"..... MAIN,6,|
000003b0  22 31 2e 20 47 75 73 22  2c 22 32 2e 20 4c 65 74  |"1. Gus","2. Let|
000003c0  74 65 72 73 22 2c 22 33  2e 20 46 65 61 74 75 72  |ters","3. Featur|
000003d0  65 73 22 2c 22 34 2e 20  50 72 6f 67 72 61 6d 6d  |es","4. Programm|
000003e0  69 6e 67 22 2c 22 35 2e  20 47 61 6d 65 73 22 2c  |ing","5. Games",|
000003f0  22 36 2e 20 53 68 6f 70  70 69 6e 67 22 2c 24 2c  |"6. Shopping",$,|
00000400  22 54 50 49 31 32 33 34  35 36 22 2c 30 2c 22 2b  |"TPI123456",0,"+|
00000410  69 6e 66 6f 22 2c 31 2c  2c 30 2c 2c 30 2c 30 2c  |info",1,,0,,0,0,|
00000420  22 2b 67 75 73 22 2c 31  2c 2c 30 2c 2c 30 0d 03  |"+gus",1,,0,,0..|
00000430  8e 33 dc 20 4c 45 54 54  45 52 53 2c 32 2c 22 31  |.3. LETTERS,2,"1|
00000440  2e 20 4a 6f 68 6e 20 43  72 61 6e 65 22 2c 22 32  |. John Crane","2|
00000450  2e 20 52 69 63 68 61 72  64 20 44 69 6d 6f 6e 64  |. Richard Dimond|
00000460  22 0d 03 93 33 dc 24 2c  22 54 52 31 32 22 2c 30  |"...3.$,"TR12",0|
00000470  2c 22 2b 63 72 61 6e 65  22 2c 31 2c 2c 30 2c 2c  |,"+crane",1,,0,,|
00000480  30 2c 30 2c 22 2b 64 69  6d 6f 6e 22 2c 31 2c 2c  |0,0,"+dimon",1,,|
00000490  30 2c 2c 30 0d 03 98 81  dc 20 46 45 41 54 55 52  |0,,0..... FEATUR|
000004a0  45 53 2c 34 2c 22 31 2e  20 41 6e 20 61 72 74 69  |ES,4,"1. An arti|
000004b0  63 6c 65 20 66 72 6f 6d  20 45 55 47 36 30 34 33  |cle from EUG6043|
000004c0  20 6c 6f 6f 6b 69 6e 67  22 2c 22 20 20 20 62 61  | looking","   ba|
000004d0  63 6b 20 61 74 20 6b 65  79 20 65 76 65 6e 74 73  |ck at key events|
000004e0  20 6f 66 20 74 68 65 20  6c 61 73 74 22 2c 22 20  | of the last"," |
000004f0  20 20 20 31 30 30 30 20  79 65 61 72 73 22 2c 22  |   1000 years","|
00000500  32 2e 20 4b 6e 6f 63 6b  69 6e 67 20 74 68 65 20  |2. Knocking the |
00000510  47 61 74 65 22 0d 03 9d  31 dc 24 2c 22 54 52 31  |Gate"...1.$,"TR1|
00000520  32 22 2c 30 2c 22 2b 73  69 6e 67 22 2c 33 2c 2c  |2",0,"+sing",3,,|
00000530  30 2c 2c 30 2c 30 2c 22  2b 67 61 74 65 22 2c 31  |0,,0,0,"+gate",1|
00000540  2c 2c 30 2c 2c 30 0d 03  a2 45 dc 20 50 52 4f 47  |,,0,,0...E. PROG|
00000550  52 41 4d 4d 49 4e 47 2c  32 2c 22 31 2c 20 4a 69  |RAMMING,2,"1, Ji|
00000560  67 73 61 77 20 44 61 76  65 20 45 64 77 61 72 64  |gsaw Dave Edward|
00000570  73 22 2c 22 32 2c 20 54  79 70 69 6e 67 20 44 61  |s","2, Typing Da|
00000580  76 65 20 45 64 77 61 72  64 73 22 0d 03 a7 3e dc  |ve Edwards"...>.|
00000590  24 2e 50 2c 22 54 52 31  32 22 2c 31 2c 22 2b 4a  |$.P,"TR12",1,"+J|
000005a0  49 47 22 2c 31 2c 22 6c  6f 61 64 65 72 22 2c 30  |IG",1,"loader",0|
000005b0  2c 2c 30 2c 31 2c 22 22  2c 30 2c 22 4d 49 43 52  |,,0,1,"",0,"MICR|
000005c0  4f 54 59 22 2c 30 2c 2c  30 0d 03 ac 2f dc 20 47  |OTY",0,,0.../. G|
000005d0  41 4d 45 53 2c 31 2c 22  31 2e 20 44 6f 6d 69 6e  |AMES,1,"1. Domin|
000005e0  6f 27 73 20 66 72 6f 6d  20 52 69 63 68 61 72 64  |o's from Richard|
000005f0  20 44 69 6d 6f 6e 64 22  0d 03 b1 28 dc 24 2c 22  | Dimond"...(.$,"|
00000600  54 52 31 22 2c 31 2c 22  2b 71 75 61 72 74 73 22  |TR1",1,"+quarts"|
00000610  2c 31 2c 22 71 75 61 72  74 73 22 2c 30 2c 2c 30  |,1,"quarts",0,,0|
00000620  0d 03 b6 22 dc 20 53 41  4c 45 53 2c 31 2c 22 31  |...". SALES,1,"1|
00000630  2c 20 54 68 69 6e 67 73  20 66 6f 72 20 73 61 6c  |, Things for sal|
00000640  65 22 0d 03 bb 1e dc 24  2c 22 54 52 31 22 2c 30  |e".....$,"TR1",0|
00000650  2c 22 2b 53 41 4c 45 22  2c 31 2c 2c 30 2c 2c 30  |,"+SALE",1,,0,,0|
00000660  0d ff                                             |..|
00000662