� 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 �"DIR $":�

�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 Main Menu"

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

��28,2,30,35,4

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

��'"1. Editorial"

��'"2. Letters"

��'"3. Features"

��'"4. Programming"
�'"5. Games"
�'"6. Shopping"
 �'"7. Information about EUG"

�'"Y. 40 Column text?"
4�'"P. One pass printing"''"   of all text files"
	*FX21
�:a%=�"1234567YP",�):�a%
&&�a%=1 �R=�:f$="Edit":fl%=1:�text:�
:�a%=2��"DIR L":�"LMenu"
D�a%=3��"DIR F":�"FMenu"
N�a%=4��"DIR P":�"PMenu"
X�a%=5��"DIR G":�"GMenu"
b�a%=6��"DIR S":�"SMenu"
g%�a%=7�R=�:f$="info":fl%=1:�text:�
l�a%=8�M=�:�6,12:�dVA
q�a%=9��"Print"
v�
�

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  14 e7 61 25 3d 32 20 ff  |..tB@.....a%=2 .|
000002a0  22 44 49 52 20 24 22 3a  e1 0d 01 0e 1c e7 61 25  |"DIR $":......a%|
000002b0  3d 33 20 ef 32 32 2c 36  3a d3 3d 26 36 30 30 30  |=3 .22,6:.=&6000|
000002c0  3a d7 20 50 24 0d 01 18  06 fd a3 0d 01 22 15 dd  |:. P$........"..|
000002d0  f2 70 69 63 74 28 50 24  2c 6d 25 2c 64 6c 25 29  |.pict(P$,m%,dl%)|
000002e0  0d 01 2c 0f 64 25 3d 30  3a f2 73 70 61 63 65 0d  |..,.d%=0:.space.|
000002f0  01 36 22 64 25 3d 64 25  2b 31 3a ef 32 32 2c 6d  |.6"d%=d%+1:.22,m|
00000300  25 3a ff 22 4c 4f 41 44  20 22 2b 50 24 2b c3 64  |%:."LOAD "+P$+.d|
00000310  25 0d 01 40 19 e7 ac 50  20 f2 73 70 61 63 65 20  |%..@...P .space |
00000320  8b 20 ff 22 55 43 4f 44  45 22 0d 01 4a 13 e7 64  |. ."UCODE"..J..d|
00000330  25 3d 64 6c 25 20 ef 32  32 2c 33 3a e1 0d 01 54  |%=dl% .22,3:...T|
00000340  09 e5 8d 54 76 41 0d 01  5e 0d dd f2 70 72 69 6e  |...TvA..^...prin|
00000350  74 65 72 0d 01 68 10 50  3d b9 3a 4d 3d a3 3a 6d  |ter..h.P=.:M=.:m|
00000360  25 3d 33 0d 01 72 2c f1  27 27 22 44 6f 20 79 6f  |%=3..r,.''"Do yo|
00000370  75 20 77 61 6e 74 20 70  65 72 66 6f 72 61 74 69  |u want perforati|
00000380  6f 6e 20 73 6b 69 70 3f  20 28 59 2f 4e 29 22 0d  |on skip? (Y/N)".|
00000390  01 7c 07 f2 79 6e 0d 01  86 1c e7 61 25 3c 33 20  |.|..yn.....a%<3 |
000003a0  3f 73 6b 69 70 3d 2d 31  20 8b 20 3f 73 6b 69 70  |?skip=-1 . ?skip|
000003b0  3d 30 0d 01 90 0b ef 31  35 2c 32 3a e1 0d 01 9a  |=0.....15,2:....|
000003c0  1e dd f2 79 6e 3a f5 3a  61 25 3d a7 22 59 79 4e  |...yn:.:a%=."YyN|
000003d0  6e 22 2c be 29 3a fd 61  25 3a e1 0d 01 a4 2f dd  |n",.):.a%:..../.|
000003e0  f2 73 70 61 63 65 20 f1  27 27 22 50 52 45 53 53  |.space .''"PRESS|
000003f0  20 53 50 41 43 45 20 54  4f 20 43 4f 4e 54 49 4e  | SPACE TO CONTIN|
00000400  55 45 22 27 3a 47 3d a5  3a e1 0d 01 ae 12 dd f2  |UE"':G=.:.......|
00000410  6d 65 6e 75 20 20 20 20  20 20 20 20 0d 01 b8 1d  |menu        ....|
00000420  f1 8a 31 30 2c 32 29 22  20 45 55 47 32 35 20 4d  |..10,2)" EUG25 M|
00000430  61 69 6e 20 4d 65 6e 75  22 0d 01 c2 1d f1 8a 31  |ain Menu"......1|
00000440  30 2c 33 29 22 20 7e 7e  7e 7e 7e 7e 7e 7e 7e 7e  |0,3)" ~~~~~~~~~~|
00000450  7e 7e 7e 7e 7e 22 0d 01  cc 11 ef 32 38 2c 32 2c  |~~~~~".....28,2,|
00000460  33 30 2c 33 35 2c 34 0d  01 d6 1d fb 31 3a f1 27  |30,35,4.....1:.'|
00000470  22 50 4c 45 41 53 45 20  53 45 4c 45 43 54 20 2d  |"PLEASE SELECT -|
00000480  22 3a fb 33 0d 01 e0 14  f1 27 22 31 2e 20 45 64  |":.3.....'"1. Ed|
00000490  69 74 6f 72 69 61 6c 22  0d 01 ea 12 f1 27 22 32  |itorial".....'"2|
000004a0  2e 20 4c 65 74 74 65 72  73 22 0d 01 f4 13 f1 27  |. Letters".....'|
000004b0  22 33 2e 20 46 65 61 74  75 72 65 73 22 0d 01 fe  |"3. Features"...|
000004c0  16 f1 27 22 34 2e 20 50  72 6f 67 72 61 6d 6d 69  |..'"4. Programmi|
000004d0  6e 67 22 0d 02 03 10 f1  27 22 35 2e 20 47 61 6d  |ng".....'"5. Gam|
000004e0  65 73 22 0d 02 08 13 f1  27 22 36 2e 20 53 68 6f  |es".....'"6. Sho|
000004f0  70 70 69 6e 67 22 0d 02  0b 20 f1 27 22 37 2e 20  |pping"... .'"7. |
00000500  49 6e 66 6f 72 6d 61 74  69 6f 6e 20 61 62 6f 75  |Information abou|
00000510  74 20 45 55 47 22 0d 02  0d 1a f1 27 22 59 2e 20  |t EUG".....'"Y. |
00000520  34 30 20 43 6f 6c 75 6d  6e 20 74 65 78 74 3f 22  |40 Column text?"|
00000530  0d 02 0f 34 f1 27 22 50  2e 20 4f 6e 65 20 70 61  |...4.'"P. One pa|
00000540  73 73 20 70 72 69 6e 74  69 6e 67 22 27 27 22 20  |ss printing"''" |
00000550  20 20 6f 66 20 61 6c 6c  20 74 65 78 74 20 66 69  |  of all text fi|
00000560  6c 65 73 22 0d 02 12 09  2a 46 58 32 31 0d 02 1c  |les"....*FX21...|
00000570  1c f5 3a 61 25 3d a7 22  31 32 33 34 35 36 37 59  |..:a%=."1234567Y|
00000580  50 22 2c be 29 3a fd 61  25 0d 02 26 26 e7 61 25  |P",.):.a%..&&.a%|
00000590  3d 31 20 8c 52 3d a3 3a  66 24 3d 22 45 64 69 74  |=1 .R=.:f$="Edit|
000005a0  22 3a 66 6c 25 3d 31 3a  f2 74 65 78 74 3a e1 0d  |":fl%=1:.text:..|
000005b0  02 3a 1b e7 61 25 3d 32  8c ff 22 44 49 52 20 4c  |.:..a%=2.."DIR L|
000005c0  22 3a d7 22 4c 4d 65 6e  75 22 0d 02 44 1b e7 61  |":."LMenu"..D..a|
000005d0  25 3d 33 8c ff 22 44 49  52 20 46 22 3a d7 22 46  |%=3.."DIR F":."F|
000005e0  4d 65 6e 75 22 0d 02 4e  1b e7 61 25 3d 34 8c ff  |Menu"..N..a%=4..|
000005f0  22 44 49 52 20 50 22 3a  d7 22 50 4d 65 6e 75 22  |"DIR P":."PMenu"|
00000600  0d 02 58 1b e7 61 25 3d  35 8c ff 22 44 49 52 20  |..X..a%=5.."DIR |
00000610  47 22 3a d7 22 47 4d 65  6e 75 22 0d 02 62 1b e7  |G":."GMenu"..b..|
00000620  61 25 3d 36 8c ff 22 44  49 52 20 53 22 3a d7 22  |a%=6.."DIR S":."|
00000630  53 4d 65 6e 75 22 0d 02  67 25 e7 61 25 3d 37 8c  |SMenu"..g%.a%=7.|
00000640  52 3d a3 3a 66 24 3d 22  69 6e 66 6f 22 3a 66 6c  |R=.:f$="info":fl|
00000650  25 3d 31 3a f2 74 65 78  74 3a e1 0d 02 6c 19 e7  |%=1:.text:...l..|
00000660  61 25 3d 38 8c 4d 3d b9  3a ef 36 2c 31 32 3a e5  |a%=8.M=.:.6,12:.|
00000670  8d 64 56 41 0d 02 71 12  e7 61 25 3d 39 8c d7 22  |.dVA..q..a%=9.."|
00000680  50 72 69 6e 74 22 0d 02  76 05 e1 0d ff           |Print"..v....|
0000068d