/� 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)" LETTERS MENU"
F�10,5)"~~~~~~~~~~~~~~"
P�28,10,29,35,7 
Z�1:�"PLEASE SELECT -":�3
d!�'"<A> SECOND DRIVE PROBLEMS"
n!�'"<B> VIEWSTORE ON THE BEEB"
x�'"<C> EXPANSION OF AN ELK"
��'"<D> COMMENTS ON EUG"
��'"<E> MANAGERIAL IRONY??"
��'"<R> RETURN TO MAIN MENU"
��26
�*FX21,0
��:a%=�"ABCDEFGHR",�):�a%  
�&�a%=1�f$="LETT1":g$="":�text:�Th@
�'�a%=2�f$="LETT2":g$="":�text:�Th@ 
�-�a%=3�f$="LETT3A":g$="LETT3B":�text:�Th@
�/�a%=4�f$="LETT4A":g$="LETT4B":�text:�Th@  
�&�a%=5�f$="LETT5":g$="":�text:�Th@
��a%=9��"DIR $":�"MENU"
��-102�Th@��
��
�
��text

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

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


�print

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

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

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

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

J�print    

T,�;"<P> TO PRINT TEXT, <M> FOR MAIN MENU"

^�

ha$=�

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

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

���

��

���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 1a  f1 8a 31 30 2c 33 29 22  |2,12..<...10,3)"|
000000a0  20 4c 45 54 54 45 52 53  20 4d 45 4e 55 22 0d 00  | LETTERS MENU"..|
000000b0  46 1b f1 8a 31 30 2c 35  29 22 7e 7e 7e 7e 7e 7e  |F...10,5)"~~~~~~|
000000c0  7e 7e 7e 7e 7e 7e 7e 7e  22 0d 00 50 13 ef 32 38  |~~~~~~~~"..P..28|
000000d0  2c 31 30 2c 32 39 2c 33  35 2c 37 20 0d 00 5a 1c  |,10,29,35,7 ..Z.|
000000e0  fb 31 3a f1 22 50 4c 45  41 53 45 20 53 45 4c 45  |.1:."PLEASE SELE|
000000f0  43 54 20 2d 22 3a fb 33  0d 00 64 21 f1 27 22 3c  |CT -":.3..d!.'"<|
00000100  41 3e 20 53 45 43 4f 4e  44 20 44 52 49 56 45 20  |A> SECOND DRIVE |
00000110  50 52 4f 42 4c 45 4d 53  22 0d 00 6e 21 f1 27 22  |PROBLEMS"..n!.'"|
00000120  3c 42 3e 20 56 49 45 57  53 54 4f 52 45 20 4f 4e  |<B> VIEWSTORE ON|
00000130  20 54 48 45 20 42 45 45  42 22 0d 00 78 1f f1 27  | THE BEEB"..x..'|
00000140  22 3c 43 3e 20 45 58 50  41 4e 53 49 4f 4e 20 4f  |"<C> EXPANSION O|
00000150  46 20 41 4e 20 45 4c 4b  22 0d 00 82 1b f1 27 22  |F AN ELK".....'"|
00000160  3c 44 3e 20 43 4f 4d 4d  45 4e 54 53 20 4f 4e 20  |<D> COMMENTS ON |
00000170  45 55 47 22 0d 00 87 1e  f1 27 22 3c 45 3e 20 4d  |EUG".....'"<E> M|
00000180  41 4e 41 47 45 52 49 41  4c 20 49 52 4f 4e 59 3f  |ANAGERIAL IRONY?|
00000190  3f 22 0d 00 8c 1f f1 27  22 3c 52 3e 20 52 45 54  |?".....'"<R> RET|
000001a0  55 52 4e 20 54 4f 20 4d  41 49 4e 20 4d 45 4e 55  |URN TO MAIN MENU|
000001b0  22 0d 00 96 07 ef 32 36  0d 00 a0 0b 2a 46 58 32  |".....26....*FX2|
000001c0  31 2c 30 0d 00 aa 1e f5  3a 61 25 3d a7 22 41 42  |1,0.....:a%=."AB|
000001d0  43 44 45 46 47 48 52 22  2c be 29 3a fd 61 25 20  |CDEFGHR",.):.a% |
000001e0  20 0d 00 b4 26 e7 61 25  3d 31 8c 66 24 3d 22 4c  | ...&.a%=1.f$="L|
000001f0  45 54 54 31 22 3a 67 24  3d 22 22 3a f2 74 65 78  |ETT1":g$="":.tex|
00000200  74 3a e5 8d 54 68 40 0d  00 be 27 e7 61 25 3d 32  |t:..Th@...'.a%=2|
00000210  8c 66 24 3d 22 4c 45 54  54 32 22 3a 67 24 3d 22  |.f$="LETT2":g$="|
00000220  22 3a f2 74 65 78 74 3a  e5 8d 54 68 40 20 0d 00  |":.text:..Th@ ..|
00000230  c8 2d e7 61 25 3d 33 8c  66 24 3d 22 4c 45 54 54  |.-.a%=3.f$="LETT|
00000240  33 41 22 3a 67 24 3d 22  4c 45 54 54 33 42 22 3a  |3A":g$="LETT3B":|
00000250  f2 74 65 78 74 3a e5 8d  54 68 40 0d 00 d2 2f e7  |.text:..Th@.../.|
00000260  61 25 3d 34 8c 66 24 3d  22 4c 45 54 54 34 41 22  |a%=4.f$="LETT4A"|
00000270  3a 67 24 3d 22 4c 45 54  54 34 42 22 3a f2 74 65  |:g$="LETT4B":.te|
00000280  78 74 3a e5 8d 54 68 40  20 20 0d 00 d7 26 e7 61  |xt:..Th@  ...&.a|
00000290  25 3d 35 8c 66 24 3d 22  4c 45 54 54 35 22 3a 67  |%=5.f$="LETT5":g|
000002a0  24 3d 22 22 3a f2 74 65  78 74 3a e5 8d 54 68 40  |$="":.text:..Th@|
000002b0  0d 00 dc 1a e7 61 25 3d  39 8c ff 22 44 49 52 20  |.....a%=9.."DIR |
000002c0  24 22 3a d7 22 4d 45 4e  55 22 0d 00 e6 11 e7 a6  |$":."MENU"......|
000002d0  2d 31 30 32 e5 8d 54 68  40 8b e0 0d 00 f0 05 e0  |-102..Th@.......|
000002e0  0d 00 fa 0a dd f2 74 65  78 74 0d 01 04 26 d6 63  |......text...&.c|
000002f0  6c 65 61 72 3a ef 32 32  2c 36 3a ff 22 4c 4f 41  |lear:.22,6:."LOA|
00000300  44 20 22 2b 66 24 2b 22  20 32 35 30 30 22 20 20  |D "+f$+" 2500"  |
00000310  0d 01 0e 23 ef 32 32 2c  33 2c 31 34 3a f1 27 27  |...#.22,3,14:.''|
00000320  22 53 48 49 46 54 20 54  4f 20 53 43 52 4f 4c 4c  |"SHIFT TO SCROLL|
00000330  22 27 27 0d 01 18 0a d6  70 72 69 6e 74 0d 01 22  |"''.....print.."|
00000340  16 e7 20 a9 28 67 24 29  3d 30 20 8c 20 e5 20 8d  |.. .(g$)=0 . . .|
00000350  44 54 41 0d 01 2c 25 f1  22 50 52 45 53 53 20 53  |DTA..,%."PRESS S|
00000360  50 41 43 45 20 54 4f 20  43 4f 4e 54 49 4e 55 45  |PACE TO CONTINUE|
00000370  22 3a 6b 65 79 3d a5 20  0d 01 36 24 d6 63 6c 65  |":key=. ..6$.cle|
00000380  61 72 3a ef 32 32 2c 36  3a ff 22 4c 4f 41 44 20  |ar:.22,6:."LOAD |
00000390  22 2b 67 24 2b 22 20 32  35 30 30 22 0d 01 40 24  |"+g$+" 2500"..@$|
000003a0  ef 32 32 2c 33 2c 31 34  3a f1 27 27 22 53 48 49  |.22,3,14:.''"SHI|
000003b0  46 54 20 54 4f 20 53 43  52 4f 4c 4c 22 27 27 20  |FT TO SCROLL"'' |
000003c0  0d 01 4a 0e d6 70 72 69  6e 74 20 20 20 20 0d 01  |..J..print    ..|
000003d0  54 2c f1 3b 22 3c 50 3e  20 54 4f 20 50 52 49 4e  |T,.;"<P> TO PRIN|
000003e0  54 20 54 45 58 54 2c 20  3c 4d 3e 20 46 4f 52 20  |T TEXT, <M> FOR |
000003f0  4d 41 49 4e 20 4d 45 4e  55 22 0d 01 5e 05 f5 0d  |MAIN MENU"..^...|
00000400  01 68 08 61 24 3d be 0d  01 72 11 e7 61 24 3d 22  |.h.a$=...r..a$="|
00000410  4d 22 8c e5 8d 54 68 40  0d 01 7c 23 e7 61 24 3d  |M"...Th@..|#.a$=|
00000420  22 50 22 8c ef 31 35 2c  30 2c 32 3a d6 70 72 69  |"P"..15,0,2:.pri|
00000430  6e 74 3a ef 33 3a e5 8d  54 68 40 0d 01 86 06 fd  |nt:.3:..Th@.....|
00000440  a3 0d 01 90 05 e1 0d 01  9a 0b dd f2 61 73 73 65  |............asse|
00000450  6d 0d 01 a4 0c e3 69 3d  30 b8 32 88 32 0d 01 ae  |m.....i=0.2.2...|
00000460  0b 50 25 3d 26 39 30 30  0d 01 b8 09 5b 4f 50 54  |.P%=&900....[OPT|
00000470  69 0d 01 c2 0a 2e 70 72  69 6e 74 0d 01 cc 10 4c  |i.....print....L|
00000480  44 41 23 30 3a 53 54 41  26 37 30 0d 01 d6 12 4c  |DA#0:STA&70....L|
00000490  44 41 23 26 32 35 3a 53  54 41 26 37 31 0d 01 e0  |DA#&25:STA&71...|
000004a0  0d 2e 4c 31 20 4c 44 59  23 30 0d 01 ea 12 2e 4c  |..L1 LDY#0.....L|
000004b0  32 20 4c 44 41 28 26 37  30 29 2c 59 0d 01 f4 10  |2 LDA(&70),Y....|
000004c0  43 4d 50 23 30 3a 42 45  51 72 74 73 0d 01 fe 12  |CMP#0:BEQrts....|
000004d0  43 4d 50 23 26 30 44 3a  42 45 51 70 72 74 0d 02  |CMP#&0D:BEQprt..|
000004e0  08 12 43 4d 50 23 26 32  30 3a 42 43 43 73 70 63  |..CMP#&20:BCCspc|
000004f0  0d 02 12 12 43 4d 50 23  26 37 46 3a 42 43 53 73  |....CMP#&7F:BCSs|
00000500  70 63 0d 02 1c 11 2e 70  72 74 20 4a 53 52 26 46  |pc.....prt JSR&F|
00000510  46 45 33 0d 02 26 13 2e  69 6e 63 20 49 4e 59 3a  |FE3..&..inc INY:|
00000520  42 4e 45 20 4c 32 0d 02  30 11 49 4e 43 26 37 31  |BNE L2..0.INC&71|
00000530  3a 4a 4d 50 20 4c 31 0d  02 3a 10 2e 73 70 63 20  |:JMP L1..:..spc |
00000540  4c 44 41 23 26 32 30 0d  02 44 13 4a 53 52 26 46  |LDA#&20..D.JSR&F|
00000550  46 45 33 3a 4a 4d 50 69  6e 63 0d 02 4e 0c 2e 72  |FE3:JMPinc..N..r|
00000560  74 73 20 52 54 53 0d 02  58 0a 2e 63 6c 65 61 72  |ts RTS..X..clear|
00000570  0d 02 62 10 4c 44 41 23  30 3a 53 54 41 26 37 32  |..b.LDA#0:STA&72|
00000580  0d 02 6c 12 4c 44 41 23  26 32 35 3a 53 54 41 26  |..l.LDA#&25:STA&|
00000590  37 33 0d 02 76 0d 2e 4c  33 20 4c 44 59 23 30 0d  |73..v..L3 LDY#0.|
000005a0  02 80 0d 2e 4c 34 20 4c  44 41 23 30 0d 02 8a 0e  |....L4 LDA#0....|
000005b0  53 54 41 28 26 37 32 29  2c 59 0d 02 94 0e 49 4e  |STA(&72),Y....IN|
000005c0  59 3a 42 4e 45 20 4c 34  0d 02 9e 0a 49 4e 43 26  |Y:BNE L4....INC&|
000005d0  37 33 0d 02 a8 0a 4c 44  41 26 37 33 0d 02 b2 0b  |73....LDA&73....|
000005e0  43 4d 50 23 26 34 30 0d  02 bc 0a 42 4e 45 20 4c  |CMP#&40....BNE L|
000005f0  33 0d 02 c6 07 52 54 53  0d 02 d0 05 5d 0d 02 da  |3....RTS....]...|
00000600  05 ed 0d 02 e4 05 e1 0d  ff                       |.........|
00000609