/� EUG MENU ADAPTED FROM PROGS BY R. DIAMOND
�=&2500

�assem
("�22,4:�19,0,4;0;23;8202;0;0;0;
2.�12,12:�1267,12:�1267,1011:�12,1011:�12,12
<�10,3)" EUG DIAGRAM"
F�10,5)"~~~~~~~~~~~~~"
P�28,10,29,35,7 
Z�1:�"PLEASE SELECT -":�3
d�'"<A> NEWS ON DIAGRAM"
n�'"<B> CIRCLE FUNCTION"
x1�'"<C> IMPROVEMENTS FROM"''"    MICK COMLEY" 
��'"<D> SCREEN PRINTING"
��'"<R> RETURN TO MAIN MENU"
��26
�*FX21,0
��:a%=�"ABCDEFGHR",�):�a%  
�+�a%=1�f$="NEWS":g$="":h$="":�text:�Th@
�4�a%=2�f$="CIRCLE":g$="":h$="PCIRCLE":�text:�Th@
�8�a%=3�f$="IMPROVE":g$="":h$="DIAGRAM2":�text:�Th@  
�/�a%=4�f$="":g$="":h$="SCRPRINT":�text:�Th@
��a%=9��"DIR $":�"MENU"
��-102�Th@��
��
�
��text
�� �(f$)=0 � � �tKA

&�clear:�22,6:�"LOAD "+f$+" 2500"  

#�22,3,14:�''"SHIFT TO SCROLL"''


�print

"� �(g$)=0 � � �DOA

,%�"PRESS SPACE TO CONTINUE":key=� 

6$�clear:�22,6:�"LOAD "+g$+" 2500"

@$�22,3,14:�''"SHIFT TO SCROLL"'' 

J�print    

Os� �(h$)=0 � �;"<P> TO PRINT TEXT, <M> FOR MAIN MENU":� �;"<P> TO PRINT TEXT, <M> FOR MAIN MENU <R> TO RUN PROG"

^�

ha$=�

r�a$="M"��Th@

|$�a$="P"��15,0,2:�print:�3:�Th@ 

��a$="R"�� h$

���

�� h$

��

���assem

��i=0�2�2

�P%=&900

�	[OPTi

�
.print

�LDA#0:STA&70

�LDA#&25:STA&71

�
.L1 LDY#0

�.L2 LDA(&70),Y

�CMP#0:BEQrts

�CMP#&0D:BEQprt
CMP#&20:BCCspc
CMP#&7F:BCSspc
.prt JSR&FFE3
&.inc INY:BNE L2
0INC&71:JMP L1
:.spc LDA#&20
DJSR&FFE3:JMPinc
N.rts RTS
X
.clear
bLDA#0:STA&72
lLDA#&25:STA&73
v
.L3 LDY#0
�
.L4 LDA#0
�STA(&72),Y
�INY:BNE L4
�
INC&73
�
LDA&73
�CMP#&40
�
BNE L3
�RTS
�]
��
��
�

00000000  0d 00 0a 2f f4 20 45 55  47 20 4d 45 4e 55 20 41  |.../. EUG MENU A|
00000010  44 41 50 54 45 44 20 46  52 4f 4d 20 50 52 4f 47  |DAPTED FROM PROG|
00000020  53 20 42 59 20 52 2e 20  44 49 41 4d 4f 4e 44 0d  |S BY R. DIAMOND.|
00000030  00 14 0b d3 3d 26 32 35  30 30 0d 00 1e 0a f2 61  |....=&2500.....a|
00000040  73 73 65 6d 0d 00 28 22  ef 32 32 2c 34 3a ef 31  |ssem..(".22,4:.1|
00000050  39 2c 30 2c 34 3b 30 3b  32 33 3b 38 32 30 32 3b  |9,0,4;0;23;8202;|
00000060  30 3b 30 3b 30 3b 0d 00  32 2e ec 31 32 2c 31 32  |0;0;0;..2..12,12|
00000070  3a df 31 32 36 37 2c 31  32 3a df 31 32 36 37 2c  |:.1267,12:.1267,|
00000080  31 30 31 31 3a df 31 32  2c 31 30 31 31 3a df 31  |1011:.12,1011:.1|
00000090  32 2c 31 32 0d 00 3c 19  f1 8a 31 30 2c 33 29 22  |2,12..<...10,3)"|
000000a0  20 45 55 47 20 44 49 41  47 52 41 4d 22 0d 00 46  | EUG DIAGRAM"..F|
000000b0  1a f1 8a 31 30 2c 35 29  22 7e 7e 7e 7e 7e 7e 7e  |...10,5)"~~~~~~~|
000000c0  7e 7e 7e 7e 7e 7e 22 0d  00 50 13 ef 32 38 2c 31  |~~~~~~"..P..28,1|
000000d0  30 2c 32 39 2c 33 35 2c  37 20 0d 00 5a 1c fb 31  |0,29,35,7 ..Z..1|
000000e0  3a f1 22 50 4c 45 41 53  45 20 53 45 4c 45 43 54  |:."PLEASE SELECT|
000000f0  20 2d 22 3a fb 33 0d 00  64 1b f1 27 22 3c 41 3e  | -":.3..d..'"<A>|
00000100  20 4e 45 57 53 20 4f 4e  20 44 49 41 47 52 41 4d  | NEWS ON DIAGRAM|
00000110  22 0d 00 6e 1b f1 27 22  3c 42 3e 20 43 49 52 43  |"..n..'"<B> CIRC|
00000120  4c 45 20 46 55 4e 43 54  49 4f 4e 22 0d 00 78 31  |LE FUNCTION"..x1|
00000130  f1 27 22 3c 43 3e 20 49  4d 50 52 4f 56 45 4d 45  |.'"<C> IMPROVEME|
00000140  4e 54 53 20 46 52 4f 4d  22 27 27 22 20 20 20 20  |NTS FROM"''"    |
00000150  4d 49 43 4b 20 43 4f 4d  4c 45 59 22 20 0d 00 82  |MICK COMLEY" ...|
00000160  1b f1 27 22 3c 44 3e 20  53 43 52 45 45 4e 20 50  |..'"<D> SCREEN P|
00000170  52 49 4e 54 49 4e 47 22  0d 00 8c 1f f1 27 22 3c  |RINTING".....'"<|
00000180  52 3e 20 52 45 54 55 52  4e 20 54 4f 20 4d 41 49  |R> RETURN TO MAI|
00000190  4e 20 4d 45 4e 55 22 0d  00 96 07 ef 32 36 0d 00  |N MENU".....26..|
000001a0  a0 0b 2a 46 58 32 31 2c  30 0d 00 aa 1e f5 3a 61  |..*FX21,0.....:a|
000001b0  25 3d a7 22 41 42 43 44  45 46 47 48 52 22 2c be  |%=."ABCDEFGHR",.|
000001c0  29 3a fd 61 25 20 20 0d  00 b4 2b e7 61 25 3d 31  |):.a%  ...+.a%=1|
000001d0  8c 66 24 3d 22 4e 45 57  53 22 3a 67 24 3d 22 22  |.f$="NEWS":g$=""|
000001e0  3a 68 24 3d 22 22 3a f2  74 65 78 74 3a e5 8d 54  |:h$="":.text:..T|
000001f0  68 40 0d 00 be 34 e7 61  25 3d 32 8c 66 24 3d 22  |h@...4.a%=2.f$="|
00000200  43 49 52 43 4c 45 22 3a  67 24 3d 22 22 3a 68 24  |CIRCLE":g$="":h$|
00000210  3d 22 50 43 49 52 43 4c  45 22 3a f2 74 65 78 74  |="PCIRCLE":.text|
00000220  3a e5 8d 54 68 40 0d 00  c3 38 e7 61 25 3d 33 8c  |:..Th@...8.a%=3.|
00000230  66 24 3d 22 49 4d 50 52  4f 56 45 22 3a 67 24 3d  |f$="IMPROVE":g$=|
00000240  22 22 3a 68 24 3d 22 44  49 41 47 52 41 4d 32 22  |"":h$="DIAGRAM2"|
00000250  3a f2 74 65 78 74 3a e5  8d 54 68 40 20 20 0d 00  |:.text:..Th@  ..|
00000260  c8 2f e7 61 25 3d 34 8c  66 24 3d 22 22 3a 67 24  |./.a%=4.f$="":g$|
00000270  3d 22 22 3a 68 24 3d 22  53 43 52 50 52 49 4e 54  |="":h$="SCRPRINT|
00000280  22 3a f2 74 65 78 74 3a  e5 8d 54 68 40 0d 00 dc  |":.text:..Th@...|
00000290  1a e7 61 25 3d 39 8c ff  22 44 49 52 20 24 22 3a  |..a%=9.."DIR $":|
000002a0  d7 22 4d 45 4e 55 22 0d  00 e6 11 e7 a6 2d 31 30  |."MENU"......-10|
000002b0  32 e5 8d 54 68 40 8b e0  0d 00 f0 05 e0 0d 00 fa  |2..Th@..........|
000002c0  0a dd f2 74 65 78 74 0d  00 ff 16 e7 20 a9 28 66  |...text..... .(f|
000002d0  24 29 3d 30 20 8c 20 e5  20 8d 74 4b 41 0d 01 04  |$)=0 . . .tKA...|
000002e0  26 d6 63 6c 65 61 72 3a  ef 32 32 2c 36 3a ff 22  |&.clear:.22,6:."|
000002f0  4c 4f 41 44 20 22 2b 66  24 2b 22 20 32 35 30 30  |LOAD "+f$+" 2500|
00000300  22 20 20 0d 01 0e 23 ef  32 32 2c 33 2c 31 34 3a  |"  ...#.22,3,14:|
00000310  f1 27 27 22 53 48 49 46  54 20 54 4f 20 53 43 52  |.''"SHIFT TO SCR|
00000320  4f 4c 4c 22 27 27 0d 01  18 0a d6 70 72 69 6e 74  |OLL"''.....print|
00000330  0d 01 22 16 e7 20 a9 28  67 24 29 3d 30 20 8c 20  |..".. .(g$)=0 . |
00000340  e5 20 8d 44 4f 41 0d 01  2c 25 f1 22 50 52 45 53  |. .DOA..,%."PRES|
00000350  53 20 53 50 41 43 45 20  54 4f 20 43 4f 4e 54 49  |S SPACE TO CONTI|
00000360  4e 55 45 22 3a 6b 65 79  3d a5 20 0d 01 36 24 d6  |NUE":key=. ..6$.|
00000370  63 6c 65 61 72 3a ef 32  32 2c 36 3a ff 22 4c 4f  |clear:.22,6:."LO|
00000380  41 44 20 22 2b 67 24 2b  22 20 32 35 30 30 22 0d  |AD "+g$+" 2500".|
00000390  01 40 24 ef 32 32 2c 33  2c 31 34 3a f1 27 27 22  |.@$.22,3,14:.''"|
000003a0  53 48 49 46 54 20 54 4f  20 53 43 52 4f 4c 4c 22  |SHIFT TO SCROLL"|
000003b0  27 27 20 0d 01 4a 0e d6  70 72 69 6e 74 20 20 20  |'' ..J..print   |
000003c0  20 0d 01 4f 73 e7 20 a9  28 68 24 29 3d 30 20 8c  | ..Os. .(h$)=0 .|
000003d0  20 f1 3b 22 3c 50 3e 20  54 4f 20 50 52 49 4e 54  | .;"<P> TO PRINT|
000003e0  20 54 45 58 54 2c 20 3c  4d 3e 20 46 4f 52 20 4d  | TEXT, <M> FOR M|
000003f0  41 49 4e 20 4d 45 4e 55  22 3a 8b 20 f1 3b 22 3c  |AIN MENU":. .;"<|
00000400  50 3e 20 54 4f 20 50 52  49 4e 54 20 54 45 58 54  |P> TO PRINT TEXT|
00000410  2c 20 3c 4d 3e 20 46 4f  52 20 4d 41 49 4e 20 4d  |, <M> FOR MAIN M|
00000420  45 4e 55 20 3c 52 3e 20  54 4f 20 52 55 4e 20 50  |ENU <R> TO RUN P|
00000430  52 4f 47 22 0d 01 5e 05  f5 0d 01 68 08 61 24 3d  |ROG"..^....h.a$=|
00000440  be 0d 01 72 11 e7 61 24  3d 22 4d 22 8c e5 8d 54  |...r..a$="M"...T|
00000450  68 40 0d 01 7c 24 e7 61  24 3d 22 50 22 8c ef 31  |h@..|$.a$="P"..1|
00000460  35 2c 30 2c 32 3a d6 70  72 69 6e 74 3a ef 33 3a  |5,0,2:.print:.3:|
00000470  e5 8d 54 68 40 20 0d 01  81 10 e7 61 24 3d 22 52  |..Th@ .....a$="R|
00000480  22 8c d7 20 68 24 0d 01  86 06 fd a3 0d 01 8b 08  |".. h$..........|
00000490  d7 20 68 24 0d 01 90 05  e1 0d 01 9a 0b dd f2 61  |. h$...........a|
000004a0  73 73 65 6d 0d 01 a4 0c  e3 69 3d 30 b8 32 88 32  |ssem.....i=0.2.2|
000004b0  0d 01 ae 0b 50 25 3d 26  39 30 30 0d 01 b8 09 5b  |....P%=&900....[|
000004c0  4f 50 54 69 0d 01 c2 0a  2e 70 72 69 6e 74 0d 01  |OPTi.....print..|
000004d0  cc 10 4c 44 41 23 30 3a  53 54 41 26 37 30 0d 01  |..LDA#0:STA&70..|
000004e0  d6 12 4c 44 41 23 26 32  35 3a 53 54 41 26 37 31  |..LDA#&25:STA&71|
000004f0  0d 01 e0 0d 2e 4c 31 20  4c 44 59 23 30 0d 01 ea  |.....L1 LDY#0...|
00000500  12 2e 4c 32 20 4c 44 41  28 26 37 30 29 2c 59 0d  |..L2 LDA(&70),Y.|
00000510  01 f4 10 43 4d 50 23 30  3a 42 45 51 72 74 73 0d  |...CMP#0:BEQrts.|
00000520  01 fe 12 43 4d 50 23 26  30 44 3a 42 45 51 70 72  |...CMP#&0D:BEQpr|
00000530  74 0d 02 08 12 43 4d 50  23 26 32 30 3a 42 43 43  |t....CMP#&20:BCC|
00000540  73 70 63 0d 02 12 12 43  4d 50 23 26 37 46 3a 42  |spc....CMP#&7F:B|
00000550  43 53 73 70 63 0d 02 1c  11 2e 70 72 74 20 4a 53  |CSspc.....prt JS|
00000560  52 26 46 46 45 33 0d 02  26 13 2e 69 6e 63 20 49  |R&FFE3..&..inc I|
00000570  4e 59 3a 42 4e 45 20 4c  32 0d 02 30 11 49 4e 43  |NY:BNE L2..0.INC|
00000580  26 37 31 3a 4a 4d 50 20  4c 31 0d 02 3a 10 2e 73  |&71:JMP L1..:..s|
00000590  70 63 20 4c 44 41 23 26  32 30 0d 02 44 13 4a 53  |pc LDA#&20..D.JS|
000005a0  52 26 46 46 45 33 3a 4a  4d 50 69 6e 63 0d 02 4e  |R&FFE3:JMPinc..N|
000005b0  0c 2e 72 74 73 20 52 54  53 0d 02 58 0a 2e 63 6c  |..rts RTS..X..cl|
000005c0  65 61 72 0d 02 62 10 4c  44 41 23 30 3a 53 54 41  |ear..b.LDA#0:STA|
000005d0  26 37 32 0d 02 6c 12 4c  44 41 23 26 32 35 3a 53  |&72..l.LDA#&25:S|
000005e0  54 41 26 37 33 0d 02 76  0d 2e 4c 33 20 4c 44 59  |TA&73..v..L3 LDY|
000005f0  23 30 0d 02 80 0d 2e 4c  34 20 4c 44 41 23 30 0d  |#0.....L4 LDA#0.|
00000600  02 8a 0e 53 54 41 28 26  37 32 29 2c 59 0d 02 94  |...STA(&72),Y...|
00000610  0e 49 4e 59 3a 42 4e 45  20 4c 34 0d 02 9e 0a 49  |.INY:BNE L4....I|
00000620  4e 43 26 37 33 0d 02 a8  0a 4c 44 41 26 37 33 0d  |NC&73....LDA&73.|
00000630  02 b2 0b 43 4d 50 23 26  34 30 0d 02 bc 0a 42 4e  |...CMP#&40....BN|
00000640  45 20 4c 33 0d 02 c6 07  52 54 53 0d 02 d0 05 5d  |E L3....RTS....]|
00000650  0d 02 da 05 ed 0d 02 e4  05 e1 0d ff              |............|
0000065c