-� EUG MENU by Richard Dimond V.2 Feb 1998
-�Z% �Tr@ ��"LOAD $.CODE7":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$="EUG36 "+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,5,"1. Gus","2. Letters","3. Features","4. Games","5. Shopping",$,"TPI12345",0,"+info",1,,2,SCREEN,2,0,"+gus",1,,0,,0
��� LETTERS,4,"1. Dave Edwards bangs the table","2. Ron Goad baseing his DATA on an   answer","3. Robert Sprowson short of hours    in hundreds of years","4. D E Williams digitally seeking    an answer"
�[� $.L,"TR1234",0,"+EDDS",2,,0,,0,0,"+GOAD",1,,0,,0,0,"+SPROW",1,,0,,0,0,"+WLMS",1,,0,,0
�x� FEATURES,3,"1. Barcode Scanner Robert Sprowson","2. French Course Dave Edwards","3. More programming Dominic Ford"
�T� $.F,"TR123",0,"+barcd",2,,1,"BARC",0,1,,0,"LOADER",0,,0,1,"+P",3,"PTDemo",0,,0
�c� GAMES,3,"1. Shipwrecked II Jupiter 3","    Map printer Dominic Ford","2. SUNDAY information "
�:� $.G,"TR12",1,"+J3_",1,"print",0,,0,0,"+note",1,,0,,0
�"� SALES,1,"1, Robert Sprowson"
�!� $.S,"TR1",0,"+SALE",2,,0,,0
�"� SALES,1,"1, Robert Sprowson"
�!� $.S,"TR1",0,"+SALE",2,,0,,0
�2� <T$ Title>,<Y no. of lines>,<A$ Menu lines>,
�� <D$ Directroy path>,<B$ Key string>,<R%>,<f$ File name>,<F% no. of text files>,<P$ name of BASIC file>,<D% no. of screens>,<S$ file name of screens>,<N% mode no. of screens>
�

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 37 22 3a 4c 25 3d 39  |AD $.CODE7":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 33 36 20 22 2b 54 24  |$:T$="EUG36 "+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  7f dc 20 4d 41 49 4e 2c  35 2c 22 31 2e 20 47 75  |.. MAIN,5,"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 47 61 6d 65 73 22  2c 22 35 2e 20 53 68 6f  |. Games","5. Sho|
000003e0  70 70 69 6e 67 22 2c 24  2c 22 54 50 49 31 32 33  |pping",$,"TPI123|
000003f0  34 35 22 2c 30 2c 22 2b  69 6e 66 6f 22 2c 31 2c  |45",0,"+info",1,|
00000400  2c 32 2c 53 43 52 45 45  4e 2c 32 2c 30 2c 22 2b  |,2,SCREEN,2,0,"+|
00000410  67 75 73 22 2c 31 2c 2c  30 2c 2c 30 0d 03 8e cc  |gus",1,,0,,0....|
00000420  dc 20 4c 45 54 54 45 52  53 2c 34 2c 22 31 2e 20  |. LETTERS,4,"1. |
00000430  44 61 76 65 20 45 64 77  61 72 64 73 20 62 61 6e  |Dave Edwards ban|
00000440  67 73 20 74 68 65 20 74  61 62 6c 65 22 2c 22 32  |gs the table","2|
00000450  2e 20 52 6f 6e 20 47 6f  61 64 20 62 61 73 65 69  |. Ron Goad basei|
00000460  6e 67 20 68 69 73 20 44  41 54 41 20 6f 6e 20 61  |ng his DATA on a|
00000470  6e 20 20 20 61 6e 73 77  65 72 22 2c 22 33 2e 20  |n   answer","3. |
00000480  52 6f 62 65 72 74 20 53  70 72 6f 77 73 6f 6e 20  |Robert Sprowson |
00000490  73 68 6f 72 74 20 6f 66  20 68 6f 75 72 73 20 20  |short of hours  |
000004a0  20 20 69 6e 20 68 75 6e  64 72 65 64 73 20 6f 66  |  in hundreds of|
000004b0  20 79 65 61 72 73 22 2c  22 34 2e 20 44 20 45 20  | years","4. D E |
000004c0  57 69 6c 6c 69 61 6d 73  20 64 69 67 69 74 61 6c  |Williams digital|
000004d0  6c 79 20 73 65 65 6b 69  6e 67 20 20 20 20 61 6e  |ly seeking    an|
000004e0  20 61 6e 73 77 65 72 22  0d 03 93 5b dc 20 24 2e  | answer"...[. $.|
000004f0  4c 2c 22 54 52 31 32 33  34 22 2c 30 2c 22 2b 45  |L,"TR1234",0,"+E|
00000500  44 44 53 22 2c 32 2c 2c  30 2c 2c 30 2c 30 2c 22  |DDS",2,,0,,0,0,"|
00000510  2b 47 4f 41 44 22 2c 31  2c 2c 30 2c 2c 30 2c 30  |+GOAD",1,,0,,0,0|
00000520  2c 22 2b 53 50 52 4f 57  22 2c 31 2c 2c 30 2c 2c  |,"+SPROW",1,,0,,|
00000530  30 2c 30 2c 22 2b 57 4c  4d 53 22 2c 31 2c 2c 30  |0,0,"+WLMS",1,,0|
00000540  2c 2c 30 0d 03 98 78 dc  20 46 45 41 54 55 52 45  |,,0...x. FEATURE|
00000550  53 2c 33 2c 22 31 2e 20  42 61 72 63 6f 64 65 20  |S,3,"1. Barcode |
00000560  53 63 61 6e 6e 65 72 20  52 6f 62 65 72 74 20 53  |Scanner Robert S|
00000570  70 72 6f 77 73 6f 6e 22  2c 22 32 2e 20 46 72 65  |prowson","2. Fre|
00000580  6e 63 68 20 43 6f 75 72  73 65 20 44 61 76 65 20  |nch Course Dave |
00000590  45 64 77 61 72 64 73 22  2c 22 33 2e 20 4d 6f 72  |Edwards","3. Mor|
000005a0  65 20 70 72 6f 67 72 61  6d 6d 69 6e 67 20 44 6f  |e programming Do|
000005b0  6d 69 6e 69 63 20 46 6f  72 64 22 0d 03 9d 54 dc  |minic Ford"...T.|
000005c0  20 24 2e 46 2c 22 54 52  31 32 33 22 2c 30 2c 22  | $.F,"TR123",0,"|
000005d0  2b 62 61 72 63 64 22 2c  32 2c 2c 31 2c 22 42 41  |+barcd",2,,1,"BA|
000005e0  52 43 22 2c 30 2c 31 2c  2c 30 2c 22 4c 4f 41 44  |RC",0,1,,0,"LOAD|
000005f0  45 52 22 2c 30 2c 2c 30  2c 31 2c 22 2b 50 22 2c  |ER",0,,0,1,"+P",|
00000600  33 2c 22 50 54 44 65 6d  6f 22 2c 30 2c 2c 30 0d  |3,"PTDemo",0,,0.|
00000610  03 a2 63 dc 20 47 41 4d  45 53 2c 33 2c 22 31 2e  |..c. GAMES,3,"1.|
00000620  20 53 68 69 70 77 72 65  63 6b 65 64 20 49 49 20  | Shipwrecked II |
00000630  4a 75 70 69 74 65 72 20  33 22 2c 22 20 20 20 20  |Jupiter 3","    |
00000640  4d 61 70 20 70 72 69 6e  74 65 72 20 44 6f 6d 69  |Map printer Domi|
00000650  6e 69 63 20 46 6f 72 64  22 2c 22 32 2e 20 53 55  |nic Ford","2. SU|
00000660  4e 44 41 59 20 69 6e 66  6f 72 6d 61 74 69 6f 6e  |NDAY information|
00000670  20 22 0d 03 a7 3a dc 20  24 2e 47 2c 22 54 52 31  | "...:. $.G,"TR1|
00000680  32 22 2c 31 2c 22 2b 4a  33 5f 22 2c 31 2c 22 70  |2",1,"+J3_",1,"p|
00000690  72 69 6e 74 22 2c 30 2c  2c 30 2c 30 2c 22 2b 6e  |rint",0,,0,0,"+n|
000006a0  6f 74 65 22 2c 31 2c 2c  30 2c 2c 30 0d 03 ac 22  |ote",1,,0,,0..."|
000006b0  dc 20 53 41 4c 45 53 2c  31 2c 22 31 2c 20 52 6f  |. SALES,1,"1, Ro|
000006c0  62 65 72 74 20 53 70 72  6f 77 73 6f 6e 22 0d 03  |bert Sprowson"..|
000006d0  b1 21 dc 20 24 2e 53 2c  22 54 52 31 22 2c 30 2c  |.!. $.S,"TR1",0,|
000006e0  22 2b 53 41 4c 45 22 2c  32 2c 2c 30 2c 2c 30 0d  |"+SALE",2,,0,,0.|
000006f0  03 b6 22 dc 20 53 41 4c  45 53 2c 31 2c 22 31 2c  |..". SALES,1,"1,|
00000700  20 52 6f 62 65 72 74 20  53 70 72 6f 77 73 6f 6e  | Robert Sprowson|
00000710  22 0d 03 bb 21 dc 20 24  2e 53 2c 22 54 52 31 22  |"...!. $.S,"TR1"|
00000720  2c 30 2c 22 2b 53 41 4c  45 22 2c 32 2c 2c 30 2c  |,0,"+SALE",2,,0,|
00000730  2c 30 0d 03 e8 32 f4 20  3c 54 24 20 54 69 74 6c  |,0...2. <T$ Titl|
00000740  65 3e 2c 3c 59 20 6e 6f  2e 20 6f 66 20 6c 69 6e  |e>,<Y no. of lin|
00000750  65 73 3e 2c 3c 41 24 20  4d 65 6e 75 20 6c 69 6e  |es>,<A$ Menu lin|
00000760  65 73 3e 2c 0d 03 f2 b3  f4 20 3c 44 24 20 44 69  |es>,..... <D$ Di|
00000770  72 65 63 74 72 6f 79 20  70 61 74 68 3e 2c 3c 42  |rectroy path>,<B|
00000780  24 20 4b 65 79 20 73 74  72 69 6e 67 3e 2c 3c 52  |$ Key string>,<R|
00000790  25 3e 2c 3c 66 24 20 46  69 6c 65 20 6e 61 6d 65  |%>,<f$ File name|
000007a0  3e 2c 3c 46 25 20 6e 6f  2e 20 6f 66 20 74 65 78  |>,<F% no. of tex|
000007b0  74 20 66 69 6c 65 73 3e  2c 3c 50 24 20 6e 61 6d  |t files>,<P$ nam|
000007c0  65 20 6f 66 20 42 41 53  49 43 20 66 69 6c 65 3e  |e of BASIC file>|
000007d0  2c 3c 44 25 20 6e 6f 2e  20 6f 66 20 73 63 72 65  |,<D% no. of scre|
000007e0  65 6e 73 3e 2c 3c 53 24  20 66 69 6c 65 20 6e 61  |ens>,<S$ file na|
000007f0  6d 65 20 6f 66 20 73 63  72 65 65 6e 73 3e 2c 3c  |me of screens>,<|
00000800  4e 25 20 6d 6f 64 65 20  6e 6f 2e 20 6f 66 20 73  |N% mode no. of s|
00000810  63 72 65 65 6e 73 3e 0d  ff                       |creens>..|
00000819