� EUG MENU by Richard Dimond
;lines=&80:skiplines=&81:skip=&82:count=&83:modeflag=&84
?lines=60:?skiplines=12
(*LOAD  $.CODE4
2�22,4:�=&2600
<�19,0,4;0;23,1,0;0;0;0;
F%?skip=0:?modeflag=0:?count=?lines
PP=�:M=�:D=�:R=�
Z.�12,12:�1267,12:�1267,1011:�12,1011:�12,12
d�menu:�Tr@
n�
x��text:P=�
�f%=0
�/�22,6:f%=f%+1:�&900:�"LOAD "+f$+�f%+" "+�~�
��M m%=6� m%=3
�)�22,m%:�P �14:�''"SHIFT TO SCROLL"''
�	�&98C
�,�f%=fl% �D �space:�pict("PIC",0,2):�d\@
��f%=fl% �d\@
��P �space
�	�tL@
�3�3:�P �''"<P> TO PRINT TEXT <M> FOR MENU"; � �
�-� R a$="PMR":�" <R> RUN PROGRAM" �a$="PM"
��:a%=�a$,�):�a%
��a%=1 �printer:�tB@

�a%=2 � �Tr@

�a%=3 �22,6:�=&6000:� P$

��

"��pict(P$,m%,dl%)

,d%=0:�space

6"d%=d%+1:�22,m%:�"LOAD "+P$+�d%

@�P �space � �"UCODE"

J�d%=dl% �22,3:�

T	�TvA

^
��printer

hP=�:M=�:m%=3

r,�''"Do you want perforation skip? (Y/N)"

|�yn

��a%<3 ?skip=-1 � ?skip=0

��15,2:�

���yn:�:a%=�"YyNn",�):�a%:�

�/��space �''"PRESS SPACE TO CONTINUE"':G=�:�

���menu        

� �10,2)" EUG25 Letters Menu"

� �10,3)" ~~~~~~~~~~~~~~~~~~"

��28,2,30,35,4

��1:�'"PLEASE SELECT -":�3

�5�'"1. D. E. Williams with some"'"    ROMBOX tips"

�@�'"2. John Crane looking for help"'"     with Stop Press 64"

�G�'"3. John Crane looking for help"'"     with a children's program"

�5�'"4. Robert Sprowson with some"'"     more tips"
4�'"5. Tony Boarer on formatting"'"   and drives"
�'"Y. 40 Column text?"
�'"R. Return to main menu"
	*FX21
&�:a%=�"12345YR",�):�a%
0%�a%=1 �R=�:f$="EUG":fl%=1:�text:�
:%�a%=2�R=�:f$="HELP":fl%=1:�text:�
D&�a%=3�R=�:f$="HELPJ":fl%=1:�text:�
N&�a%=4�R=�:f$="SPROW":fl%=1:�text:�
S%�a%=5�R=�:f$="lett":fl%=1:�text:�
X�a%=6�M=�:�6,12:�dVA
b�a%=7��"DIR $":�"MENU"
l�
�

00000000  0d 00 0a 20 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  0d 00 14 3b 6c 69 6e 65  73 3d 26 38 30 3a 73 6b  |...;lines=&80:sk|
00000030  69 70 6c 69 6e 65 73 3d  26 38 31 3a 73 6b 69 70  |iplines=&81:skip|
00000040  3d 26 38 32 3a 63 6f 75  6e 74 3d 26 38 33 3a 6d  |=&82:count=&83:m|
00000050  6f 64 65 66 6c 61 67 3d  26 38 34 0d 00 1e 1b 3f  |odeflag=&84....?|
00000060  6c 69 6e 65 73 3d 36 30  3a 3f 73 6b 69 70 6c 69  |lines=60:?skipli|
00000070  6e 65 73 3d 31 32 0d 00  28 12 2a 4c 4f 41 44 20  |nes=12..(.*LOAD |
00000080  20 24 2e 43 4f 44 45 34  0d 00 32 11 ef 32 32 2c  | $.CODE4..2..22,|
00000090  34 3a d3 3d 26 32 36 30  30 0d 00 3c 1b ef 31 39  |4:.=&2600..<..19|
000000a0  2c 30 2c 34 3b 30 3b 32  33 2c 31 2c 30 3b 30 3b  |,0,4;0;23,1,0;0;|
000000b0  30 3b 30 3b 0d 00 46 25  3f 73 6b 69 70 3d 30 3a  |0;0;..F%?skip=0:|
000000c0  3f 6d 6f 64 65 66 6c 61  67 3d 30 3a 3f 63 6f 75  |?modeflag=0:?cou|
000000d0  6e 74 3d 3f 6c 69 6e 65  73 0d 00 50 13 50 3d a3  |nt=?lines..P.P=.|
000000e0  3a 4d 3d a3 3a 44 3d a3  3a 52 3d a3 0d 00 5a 2e  |:M=.:D=.:R=...Z.|
000000f0  ec 31 32 2c 31 32 3a df  31 32 36 37 2c 31 32 3a  |.12,12:.1267,12:|
00000100  df 31 32 36 37 2c 31 30  31 31 3a df 31 32 2c 31  |.1267,1011:.12,1|
00000110  30 31 31 3a df 31 32 2c  31 32 0d 00 64 0f f2 6d  |011:.12,12..d..m|
00000120  65 6e 75 3a e5 8d 54 72  40 0d 00 6e 05 e0 0d 00  |enu:..Tr@..n....|
00000130  78 0e dd f2 74 65 78 74  3a 50 3d a3 0d 00 82 08  |x...text:P=.....|
00000140  66 25 3d 30 0d 00 8c 2f  ef 32 32 2c 36 3a 66 25  |f%=0.../.22,6:f%|
00000150  3d 66 25 2b 31 3a d6 26  39 30 30 3a ff 22 4c 4f  |=f%+1:.&900:."LO|
00000160  41 44 20 22 2b 66 24 2b  c3 66 25 2b 22 20 22 2b  |AD "+f$+.f%+" "+|
00000170  c3 7e 93 0d 00 96 11 e7  4d 20 6d 25 3d 36 8b 20  |.~......M m%=6. |
00000180  6d 25 3d 33 0d 00 a0 29  ef 32 32 2c 6d 25 3a e7  |m%=3...).22,m%:.|
00000190  ac 50 20 ef 31 34 3a f1  27 27 22 53 48 49 46 54  |.P .14:.''"SHIFT|
000001a0  20 54 4f 20 53 43 52 4f  4c 4c 22 27 27 0d 00 aa  | TO SCROLL"''...|
000001b0  09 d6 26 39 38 43 0d 00  b4 2c e7 66 25 3d 66 6c  |..&98C...,.f%=fl|
000001c0  25 20 e7 44 20 f2 73 70  61 63 65 3a f2 70 69 63  |% .D .space:.pic|
000001d0  74 28 22 50 49 43 22 2c  30 2c 32 29 3a e5 8d 64  |t("PIC",0,2):..d|
000001e0  5c 40 0d 00 be 11 e7 66  25 3d 66 6c 25 20 e5 8d  |\@.....f%=fl% ..|
000001f0  64 5c 40 0d 00 c8 0e e7  ac 50 20 f2 73 70 61 63  |d\@......P .spac|
00000200  65 0d 00 d2 09 e5 8d 74  4c 40 0d 00 dc 33 ef 33  |e......tL@...3.3|
00000210  3a e7 ac 50 20 f1 27 27  22 3c 50 3e 20 54 4f 20  |:..P .''"<P> TO |
00000220  50 52 49 4e 54 20 54 45  58 54 20 3c 4d 3e 20 46  |PRINT TEXT <M> F|
00000230  4f 52 20 4d 45 4e 55 22  3b 20 8b 20 e1 0d 00 e6  |OR MENU"; . ....|
00000240  2d e7 20 52 20 61 24 3d  22 50 4d 52 22 3a f1 22  |-. R a$="PMR":."|
00000250  20 3c 52 3e 20 52 55 4e  20 50 52 4f 47 52 41 4d  | <R> RUN PROGRAM|
00000260  22 20 8b 61 24 3d 22 50  4d 22 0d 00 f0 13 f5 3a  |" .a$="PM".....:|
00000270  61 25 3d a7 61 24 2c be  29 3a fd 61 25 0d 00 fa  |a%=.a$,.):.a%...|
00000280  18 e7 61 25 3d 31 20 f2  70 72 69 6e 74 65 72 3a  |..a%=1 .printer:|
00000290  e5 8d 74 42 40 0d 01 04  10 e7 61 25 3d 32 20 e5  |..tB@.....a%=2 .|
000002a0  20 8d 54 72 40 0d 01 0e  1c e7 61 25 3d 33 20 ef  | .Tr@.....a%=3 .|
000002b0  32 32 2c 36 3a d3 3d 26  36 30 30 30 3a d7 20 50  |22,6:.=&6000:. P|
000002c0  24 0d 01 18 06 fd a3 0d  01 22 15 dd f2 70 69 63  |$........"...pic|
000002d0  74 28 50 24 2c 6d 25 2c  64 6c 25 29 0d 01 2c 0f  |t(P$,m%,dl%)..,.|
000002e0  64 25 3d 30 3a f2 73 70  61 63 65 0d 01 36 22 64  |d%=0:.space..6"d|
000002f0  25 3d 64 25 2b 31 3a ef  32 32 2c 6d 25 3a ff 22  |%=d%+1:.22,m%:."|
00000300  4c 4f 41 44 20 22 2b 50  24 2b c3 64 25 0d 01 40  |LOAD "+P$+.d%..@|
00000310  19 e7 ac 50 20 f2 73 70  61 63 65 20 8b 20 ff 22  |...P .space . ."|
00000320  55 43 4f 44 45 22 0d 01  4a 13 e7 64 25 3d 64 6c  |UCODE"..J..d%=dl|
00000330  25 20 ef 32 32 2c 33 3a  e1 0d 01 54 09 e5 8d 54  |% .22,3:...T...T|
00000340  76 41 0d 01 5e 0d dd f2  70 72 69 6e 74 65 72 0d  |vA..^...printer.|
00000350  01 68 10 50 3d b9 3a 4d  3d a3 3a 6d 25 3d 33 0d  |.h.P=.:M=.:m%=3.|
00000360  01 72 2c f1 27 27 22 44  6f 20 79 6f 75 20 77 61  |.r,.''"Do you wa|
00000370  6e 74 20 70 65 72 66 6f  72 61 74 69 6f 6e 20 73  |nt perforation s|
00000380  6b 69 70 3f 20 28 59 2f  4e 29 22 0d 01 7c 07 f2  |kip? (Y/N)"..|..|
00000390  79 6e 0d 01 86 1c e7 61  25 3c 33 20 3f 73 6b 69  |yn.....a%<3 ?ski|
000003a0  70 3d 2d 31 20 8b 20 3f  73 6b 69 70 3d 30 0d 01  |p=-1 . ?skip=0..|
000003b0  90 0b ef 31 35 2c 32 3a  e1 0d 01 9a 1e dd f2 79  |...15,2:.......y|
000003c0  6e 3a f5 3a 61 25 3d a7  22 59 79 4e 6e 22 2c be  |n:.:a%=."YyNn",.|
000003d0  29 3a fd 61 25 3a e1 0d  01 a4 2f dd f2 73 70 61  |):.a%:..../..spa|
000003e0  63 65 20 f1 27 27 22 50  52 45 53 53 20 53 50 41  |ce .''"PRESS SPA|
000003f0  43 45 20 54 4f 20 43 4f  4e 54 49 4e 55 45 22 27  |CE TO CONTINUE"'|
00000400  3a 47 3d a5 3a e1 0d 01  ae 12 dd f2 6d 65 6e 75  |:G=.:.......menu|
00000410  20 20 20 20 20 20 20 20  0d 01 b8 20 f1 8a 31 30  |        ... ..10|
00000420  2c 32 29 22 20 45 55 47  32 35 20 4c 65 74 74 65  |,2)" EUG25 Lette|
00000430  72 73 20 4d 65 6e 75 22  0d 01 c2 20 f1 8a 31 30  |rs Menu"... ..10|
00000440  2c 33 29 22 20 7e 7e 7e  7e 7e 7e 7e 7e 7e 7e 7e  |,3)" ~~~~~~~~~~~|
00000450  7e 7e 7e 7e 7e 7e 7e 22  0d 01 cc 11 ef 32 38 2c  |~~~~~~~".....28,|
00000460  32 2c 33 30 2c 33 35 2c  34 0d 01 d6 1d fb 31 3a  |2,30,35,4.....1:|
00000470  f1 27 22 50 4c 45 41 53  45 20 53 45 4c 45 43 54  |.'"PLEASE SELECT|
00000480  20 2d 22 3a fb 33 0d 01  e0 35 f1 27 22 31 2e 20  | -":.3...5.'"1. |
00000490  44 2e 20 45 2e 20 57 69  6c 6c 69 61 6d 73 20 77  |D. E. Williams w|
000004a0  69 74 68 20 73 6f 6d 65  22 27 22 20 20 20 20 52  |ith some"'"    R|
000004b0  4f 4d 42 4f 58 20 74 69  70 73 22 0d 01 ea 40 f1  |OMBOX tips"...@.|
000004c0  27 22 32 2e 20 4a 6f 68  6e 20 43 72 61 6e 65 20  |'"2. John Crane |
000004d0  6c 6f 6f 6b 69 6e 67 20  66 6f 72 20 68 65 6c 70  |looking for help|
000004e0  22 27 22 20 20 20 20 20  77 69 74 68 20 53 74 6f  |"'"     with Sto|
000004f0  70 20 50 72 65 73 73 20  36 34 22 0d 01 f4 47 f1  |p Press 64"...G.|
00000500  27 22 33 2e 20 4a 6f 68  6e 20 43 72 61 6e 65 20  |'"3. John Crane |
00000510  6c 6f 6f 6b 69 6e 67 20  66 6f 72 20 68 65 6c 70  |looking for help|
00000520  22 27 22 20 20 20 20 20  77 69 74 68 20 61 20 63  |"'"     with a c|
00000530  68 69 6c 64 72 65 6e 27  73 20 70 72 6f 67 72 61  |hildren's progra|
00000540  6d 22 0d 01 fe 35 f1 27  22 34 2e 20 52 6f 62 65  |m"...5.'"4. Robe|
00000550  72 74 20 53 70 72 6f 77  73 6f 6e 20 77 69 74 68  |rt Sprowson with|
00000560  20 73 6f 6d 65 22 27 22  20 20 20 20 20 6d 6f 72  | some"'"     mor|
00000570  65 20 74 69 70 73 22 0d  02 03 34 f1 27 22 35 2e  |e tips"...4.'"5.|
00000580  20 54 6f 6e 79 20 42 6f  61 72 65 72 20 6f 6e 20  | Tony Boarer on |
00000590  66 6f 72 6d 61 74 74 69  6e 67 22 27 22 20 20 20  |formatting"'"   |
000005a0  61 6e 64 20 64 72 69 76  65 73 22 0d 02 08 1a f1  |and drives".....|
000005b0  27 22 59 2e 20 34 30 20  43 6f 6c 75 6d 6e 20 74  |'"Y. 40 Column t|
000005c0  65 78 74 3f 22 0d 02 12  1e f1 27 22 52 2e 20 52  |ext?".....'"R. R|
000005d0  65 74 75 72 6e 20 74 6f  20 6d 61 69 6e 20 6d 65  |eturn to main me|
000005e0  6e 75 22 0d 02 1c 09 2a  46 58 32 31 0d 02 26 1a  |nu"....*FX21..&.|
000005f0  f5 3a 61 25 3d a7 22 31  32 33 34 35 59 52 22 2c  |.:a%=."12345YR",|
00000600  be 29 3a fd 61 25 0d 02  30 25 e7 61 25 3d 31 20  |.):.a%..0%.a%=1 |
00000610  8c 52 3d a3 3a 66 24 3d  22 45 55 47 22 3a 66 6c  |.R=.:f$="EUG":fl|
00000620  25 3d 31 3a f2 74 65 78  74 3a e1 0d 02 3a 25 e7  |%=1:.text:...:%.|
00000630  61 25 3d 32 8c 52 3d a3  3a 66 24 3d 22 48 45 4c  |a%=2.R=.:f$="HEL|
00000640  50 22 3a 66 6c 25 3d 31  3a f2 74 65 78 74 3a e1  |P":fl%=1:.text:.|
00000650  0d 02 44 26 e7 61 25 3d  33 8c 52 3d a3 3a 66 24  |..D&.a%=3.R=.:f$|
00000660  3d 22 48 45 4c 50 4a 22  3a 66 6c 25 3d 31 3a f2  |="HELPJ":fl%=1:.|
00000670  74 65 78 74 3a e1 0d 02  4e 26 e7 61 25 3d 34 8c  |text:...N&.a%=4.|
00000680  52 3d a3 3a 66 24 3d 22  53 50 52 4f 57 22 3a 66  |R=.:f$="SPROW":f|
00000690  6c 25 3d 31 3a f2 74 65  78 74 3a e1 0d 02 53 25  |l%=1:.text:...S%|
000006a0  e7 61 25 3d 35 8c 52 3d  a3 3a 66 24 3d 22 6c 65  |.a%=5.R=.:f$="le|
000006b0  74 74 22 3a 66 6c 25 3d  31 3a f2 74 65 78 74 3a  |tt":fl%=1:.text:|
000006c0  e1 0d 02 58 19 e7 61 25  3d 36 8c 4d 3d b9 3a ef  |...X..a%=6.M=.:.|
000006d0  36 2c 31 32 3a e5 8d 64  56 41 0d 02 62 1a e7 61  |6,12:..dVA..b..a|
000006e0  25 3d 37 8c ff 22 44 49  52 20 24 22 3a d7 22 4d  |%=7.."DIR $":."M|
000006f0  45 4e 55 22 0d 02 6c 05  e1 0d ff                 |ENU"..l....|
000006fb