/� 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)" HELP MENU"
F�10,5)"~~~~~~~~~~~" 
K�28,10,29,35,7 
P�1:�"PLEASE SELECT -":�3
d!�'"<A> SECOND DRIVE PROBLEMS"
n!�'"<B> VIEWSTORE ON THE BEEB"
x�'"<C> "
��'"<D> "
��'"<E> "
��'"<F> "
��'"<G> "
��'"<H> "
��'"<R> RETURN TO MAIN MENU"
��26
�*FX21,0
��:a%=�"ABCDEFGHR",�):�a%
� �a%=1�f$="DRIVE":�text:�Th@
�"�a%=2�f$="VSTORE":�text:�Th@ 
�!�a%=3�f$="COMP1":�text:�Th@ 
� �a%=4�f$="COMP1":�text:�Th@

 �a%=5�f$="COMP1":�text:�Th@

 �a%=6�f$="COMP1":�text:�Th@

 �a%=7�f$="COMP1":�text:�Th@

" �a%=8�f$="COMP1":�text:�Th@

,�a%=9��"DIR $":�"MENU"

6�-102�Th@��

@�

J
��text

T
�clear

^�22,6:�"LOAD "+f$+" 2500"

h)�22,3,14:�''"PRESS SHIFT TO SCROLL"''

r
�print

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

��

�a$=�

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

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

���

�
�clear

��

���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
0CMP#&0D:BEQprt
:CMP#&20:BCCspc
DCMP#&7F:BCSspc
N.prt JSR&FFE3
X.inc INY:BNE L2
bINC&71:JMP L1
l.spc LDA#&20
vJSR&FFE3:JMPinc
�.rts RTS
�
.clear
�LDA#0:STA&72
�LDA#&25:STA&73
�
.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 17  f1 8a 31 30 2c 33 29 22  |2,12..<...10,3)"|
000000a0  20 48 45 4c 50 20 4d 45  4e 55 22 0d 00 46 19 f1  | HELP MENU"..F..|
000000b0  8a 31 30 2c 35 29 22 7e  7e 7e 7e 7e 7e 7e 7e 7e  |.10,5)"~~~~~~~~~|
000000c0  7e 7e 22 20 0d 00 4b 13  ef 32 38 2c 31 30 2c 32  |~~" ..K..28,10,2|
000000d0  39 2c 33 35 2c 37 20 0d  00 50 1c fb 31 3a f1 22  |9,35,7 ..P..1:."|
000000e0  50 4c 45 41 53 45 20 53  45 4c 45 43 54 20 2d 22  |PLEASE SELECT -"|
000000f0  3a fb 33 0d 00 64 21 f1  27 22 3c 41 3e 20 53 45  |:.3..d!.'"<A> SE|
00000100  43 4f 4e 44 20 44 52 49  56 45 20 50 52 4f 42 4c  |COND DRIVE PROBL|
00000110  45 4d 53 22 0d 00 6e 21  f1 27 22 3c 42 3e 20 56  |EMS"..n!.'"<B> V|
00000120  49 45 57 53 54 4f 52 45  20 4f 4e 20 54 48 45 20  |IEWSTORE ON THE |
00000130  42 45 45 42 22 0d 00 78  0c f1 27 22 3c 43 3e 20  |BEEB"..x..'"<C> |
00000140  22 0d 00 82 0c f1 27 22  3c 44 3e 20 22 0d 00 8c  |".....'"<D> "...|
00000150  0c f1 27 22 3c 45 3e 20  22 0d 00 96 0c f1 27 22  |..'"<E> ".....'"|
00000160  3c 46 3e 20 22 0d 00 a0  0c f1 27 22 3c 47 3e 20  |<F> ".....'"<G> |
00000170  22 0d 00 aa 0c f1 27 22  3c 48 3e 20 22 0d 00 b4  |".....'"<H> "...|
00000180  1f f1 27 22 3c 52 3e 20  52 45 54 55 52 4e 20 54  |..'"<R> RETURN T|
00000190  4f 20 4d 41 49 4e 20 4d  45 4e 55 22 0d 00 be 07  |O MAIN MENU"....|
000001a0  ef 32 36 0d 00 c8 0b 2a  46 58 32 31 2c 30 0d 00  |.26....*FX21,0..|
000001b0  d2 1c f5 3a 61 25 3d a7  22 41 42 43 44 45 46 47  |...:a%=."ABCDEFG|
000001c0  48 52 22 2c be 29 3a fd  61 25 0d 00 dc 20 e7 61  |HR",.):.a%... .a|
000001d0  25 3d 31 8c 66 24 3d 22  44 52 49 56 45 22 3a f2  |%=1.f$="DRIVE":.|
000001e0  74 65 78 74 3a e5 8d 54  68 40 0d 00 e6 22 e7 61  |text:..Th@...".a|
000001f0  25 3d 32 8c 66 24 3d 22  56 53 54 4f 52 45 22 3a  |%=2.f$="VSTORE":|
00000200  f2 74 65 78 74 3a e5 8d  54 68 40 20 0d 00 f0 21  |.text:..Th@ ...!|
00000210  e7 61 25 3d 33 8c 66 24  3d 22 43 4f 4d 50 31 22  |.a%=3.f$="COMP1"|
00000220  3a f2 74 65 78 74 3a e5  8d 54 68 40 20 0d 00 fa  |:.text:..Th@ ...|
00000230  20 e7 61 25 3d 34 8c 66  24 3d 22 43 4f 4d 50 31  | .a%=4.f$="COMP1|
00000240  22 3a f2 74 65 78 74 3a  e5 8d 54 68 40 0d 01 04  |":.text:..Th@...|
00000250  20 e7 61 25 3d 35 8c 66  24 3d 22 43 4f 4d 50 31  | .a%=5.f$="COMP1|
00000260  22 3a f2 74 65 78 74 3a  e5 8d 54 68 40 0d 01 0e  |":.text:..Th@...|
00000270  20 e7 61 25 3d 36 8c 66  24 3d 22 43 4f 4d 50 31  | .a%=6.f$="COMP1|
00000280  22 3a f2 74 65 78 74 3a  e5 8d 54 68 40 0d 01 18  |":.text:..Th@...|
00000290  20 e7 61 25 3d 37 8c 66  24 3d 22 43 4f 4d 50 31  | .a%=7.f$="COMP1|
000002a0  22 3a f2 74 65 78 74 3a  e5 8d 54 68 40 0d 01 22  |":.text:..Th@.."|
000002b0  20 e7 61 25 3d 38 8c 66  24 3d 22 43 4f 4d 50 31  | .a%=8.f$="COMP1|
000002c0  22 3a f2 74 65 78 74 3a  e5 8d 54 68 40 0d 01 2c  |":.text:..Th@..,|
000002d0  1a e7 61 25 3d 39 8c ff  22 44 49 52 20 24 22 3a  |..a%=9.."DIR $":|
000002e0  d7 22 4d 45 4e 55 22 0d  01 36 11 e7 a6 2d 31 30  |."MENU"..6...-10|
000002f0  32 e5 8d 54 68 40 8b e0  0d 01 40 05 e0 0d 01 4a  |2..Th@....@....J|
00000300  0a dd f2 74 65 78 74 0d  01 54 0a d6 63 6c 65 61  |...text..T..clea|
00000310  72 0d 01 5e 1d ef 32 32  2c 36 3a ff 22 4c 4f 41  |r..^..22,6:."LOA|
00000320  44 20 22 2b 66 24 2b 22  20 32 35 30 30 22 0d 01  |D "+f$+" 2500"..|
00000330  68 29 ef 32 32 2c 33 2c  31 34 3a f1 27 27 22 50  |h).22,3,14:.''"P|
00000340  52 45 53 53 20 53 48 49  46 54 20 54 4f 20 53 43  |RESS SHIFT TO SC|
00000350  52 4f 4c 4c 22 27 27 0d  01 72 0a d6 70 72 69 6e  |ROLL"''..r..prin|
00000360  74 0d 01 7c 2c f1 3b 22  3c 50 3e 20 54 4f 20 50  |t..|,.;"<P> TO P|
00000370  52 49 4e 54 20 54 45 58  54 2c 20 3c 4d 3e 20 46  |RINT TEXT, <M> F|
00000380  4f 52 20 4d 41 49 4e 20  4d 45 4e 55 22 0d 01 86  |OR MAIN MENU"...|
00000390  05 f5 0d 01 90 08 61 24  3d be 0d 01 9a 11 e7 61  |......a$=......a|
000003a0  24 3d 22 4d 22 8c e5 8d  54 68 40 0d 01 a4 23 e7  |$="M"...Th@...#.|
000003b0  61 24 3d 22 50 22 8c ef  31 35 2c 30 2c 32 3a d6  |a$="P"..15,0,2:.|
000003c0  70 72 69 6e 74 3a ef 33  3a e5 8d 54 68 40 0d 01  |print:.3:..Th@..|
000003d0  ae 06 fd a3 0d 01 b8 0a  d6 63 6c 65 61 72 0d 01  |.........clear..|
000003e0  c2 05 e1 0d 01 cc 0b dd  f2 61 73 73 65 6d 0d 01  |.........assem..|
000003f0  d6 0c e3 69 3d 30 b8 32  88 32 0d 01 e0 0b 50 25  |...i=0.2.2....P%|
00000400  3d 26 39 30 30 0d 01 ea  09 5b 4f 50 54 69 0d 01  |=&900....[OPTi..|
00000410  f4 0a 2e 70 72 69 6e 74  0d 01 fe 10 4c 44 41 23  |...print....LDA#|
00000420  30 3a 53 54 41 26 37 30  0d 02 08 12 4c 44 41 23  |0:STA&70....LDA#|
00000430  26 32 35 3a 53 54 41 26  37 31 0d 02 12 0d 2e 4c  |&25:STA&71.....L|
00000440  31 20 4c 44 59 23 30 0d  02 1c 12 2e 4c 32 20 4c  |1 LDY#0.....L2 L|
00000450  44 41 28 26 37 30 29 2c  59 0d 02 26 10 43 4d 50  |DA(&70),Y..&.CMP|
00000460  23 30 3a 42 45 51 72 74  73 0d 02 30 12 43 4d 50  |#0:BEQrts..0.CMP|
00000470  23 26 30 44 3a 42 45 51  70 72 74 0d 02 3a 12 43  |#&0D:BEQprt..:.C|
00000480  4d 50 23 26 32 30 3a 42  43 43 73 70 63 0d 02 44  |MP#&20:BCCspc..D|
00000490  12 43 4d 50 23 26 37 46  3a 42 43 53 73 70 63 0d  |.CMP#&7F:BCSspc.|
000004a0  02 4e 11 2e 70 72 74 20  4a 53 52 26 46 46 45 33  |.N..prt JSR&FFE3|
000004b0  0d 02 58 13 2e 69 6e 63  20 49 4e 59 3a 42 4e 45  |..X..inc INY:BNE|
000004c0  20 4c 32 0d 02 62 11 49  4e 43 26 37 31 3a 4a 4d  | L2..b.INC&71:JM|
000004d0  50 20 4c 31 0d 02 6c 10  2e 73 70 63 20 4c 44 41  |P L1..l..spc LDA|
000004e0  23 26 32 30 0d 02 76 13  4a 53 52 26 46 46 45 33  |#&20..v.JSR&FFE3|
000004f0  3a 4a 4d 50 69 6e 63 0d  02 80 0c 2e 72 74 73 20  |:JMPinc.....rts |
00000500  52 54 53 0d 02 8a 0a 2e  63 6c 65 61 72 0d 02 94  |RTS.....clear...|
00000510  10 4c 44 41 23 30 3a 53  54 41 26 37 32 0d 02 9e  |.LDA#0:STA&72...|
00000520  12 4c 44 41 23 26 32 35  3a 53 54 41 26 37 33 0d  |.LDA#&25:STA&73.|
00000530  02 a8 0d 2e 4c 33 20 4c  44 59 23 30 0d 02 b2 0d  |....L3 LDY#0....|
00000540  2e 4c 34 20 4c 44 41 23  30 0d 02 bc 0e 53 54 41  |.L4 LDA#0....STA|
00000550  28 26 37 32 29 2c 59 0d  02 c6 0e 49 4e 59 3a 42  |(&72),Y....INY:B|
00000560  4e 45 20 4c 34 0d 02 d0  0a 49 4e 43 26 37 33 0d  |NE L4....INC&73.|
00000570  02 da 0a 4c 44 41 26 37  33 0d 02 e4 0b 43 4d 50  |...LDA&73....CMP|
00000580  23 26 34 30 0d 02 ee 0a  42 4e 45 20 4c 33 0d 02  |#&40....BNE L3..|
00000590  f8 07 52 54 53 0d 03 02  05 5d 0d 03 0c 05 ed 0d  |..RTS....]......|
000005a0  03 16 05 e1 0d ff                                 |......|
000005a6