D� EUG MENU by Richard Dimond. Adapted to one pass printing 12/95
 *LOAD CODE5
�=&2600
(�23,1,0;0;0;0;
2skip=&82
6�
7e�"Shock, Horror, Richard's new printout program doesn't work. Using the old one as an emergency."
8�
9�
<E�"All text files will be printed."''" Press SPACE to start.":A=� 
F@�''"Do you want perforation skip? (Y/N)":�:a%=�"YyNn",�):�a%
P"�a%<3 ?skip=-1 � ?skip=0:�15,2
Z� X =1 � 21
d� f$
n'�22,6:�&900:�"LOAD "+f$+" "+�~�    
x	�22,3
�	�&9AA
�� X
��"MENU"
���EDIT1,INFO1,L.BELLIS1,L.BELLIS2,L.EDLET1,L.EUG1,L.SPROW1,L.VIGLEN1,F.PSUTXT1,F.Z881,P.CDTXT1,P.DOCS1,P.FKMTXT1,P.SORRY1,G.GLFTXT1,G.REPTXT1,S.SALE1,S.SALE2,S.SPROW1,S.SOS1,S.WANT1
�

00000000  0d 00 0a 44 f4 20 45 55  47 20 4d 45 4e 55 20 62  |...D. EUG MENU b|
00000010  79 20 52 69 63 68 61 72  64 20 44 69 6d 6f 6e 64  |y Richard Dimond|
00000020  2e 20 41 64 61 70 74 65  64 20 74 6f 20 6f 6e 65  |. Adapted to one|
00000030  20 70 61 73 73 20 70 72  69 6e 74 69 6e 67 20 31  | pass printing 1|
00000040  32 2f 39 35 0d 00 14 10  20 2a 4c 4f 41 44 20 43  |2/95.... *LOAD C|
00000050  4f 44 45 35 0d 00 1e 0b  d3 3d 26 32 36 30 30 0d  |ODE5.....=&2600.|
00000060  00 28 12 ef 32 33 2c 31  2c 30 3b 30 3b 30 3b 30  |.(..23,1,0;0;0;0|
00000070  3b 0d 00 32 0c 73 6b 69  70 3d 26 38 32 0d 00 36  |;..2.skip=&82..6|
00000080  05 f1 0d 00 37 65 f1 22  53 68 6f 63 6b 2c 20 48  |....7e."Shock, H|
00000090  6f 72 72 6f 72 2c 20 52  69 63 68 61 72 64 27 73  |orror, Richard's|
000000a0  20 6e 65 77 20 70 72 69  6e 74 6f 75 74 20 70 72  | new printout pr|
000000b0  6f 67 72 61 6d 20 64 6f  65 73 6e 27 74 20 77 6f  |ogram doesn't wo|
000000c0  72 6b 2e 20 55 73 69 6e  67 20 74 68 65 20 6f 6c  |rk. Using the ol|
000000d0  64 20 6f 6e 65 20 61 73  20 61 6e 20 65 6d 65 72  |d one as an emer|
000000e0  67 65 6e 63 79 2e 22 0d  00 38 05 f1 0d 00 39 05  |gency."..8....9.|
000000f0  f1 0d 00 3c 45 f1 22 41  6c 6c 20 74 65 78 74 20  |...<E."All text |
00000100  66 69 6c 65 73 20 77 69  6c 6c 20 62 65 20 70 72  |files will be pr|
00000110  69 6e 74 65 64 2e 22 27  27 22 20 50 72 65 73 73  |inted."''" Press|
00000120  20 53 50 41 43 45 20 74  6f 20 73 74 61 72 74 2e  | SPACE to start.|
00000130  22 3a 41 3d a5 20 0d 00  46 40 f1 27 27 22 44 6f  |":A=. ..F@.''"Do|
00000140  20 79 6f 75 20 77 61 6e  74 20 70 65 72 66 6f 72  | you want perfor|
00000150  61 74 69 6f 6e 20 73 6b  69 70 3f 20 28 59 2f 4e  |ation skip? (Y/N|
00000160  29 22 3a f5 3a 61 25 3d  a7 22 59 79 4e 6e 22 2c  |)":.:a%=."YyNn",|
00000170  be 29 3a fd 61 25 0d 00  50 22 e7 61 25 3c 33 20  |.):.a%..P".a%<3 |
00000180  3f 73 6b 69 70 3d 2d 31  20 8b 20 3f 73 6b 69 70  |?skip=-1 . ?skip|
00000190  3d 30 3a ef 31 35 2c 32  0d 00 5a 0f e3 20 58 20  |=0:.15,2..Z.. X |
000001a0  3d 31 20 b8 20 32 31 0d  00 64 08 f3 20 66 24 0d  |=1 . 21..d.. f$.|
000001b0  00 6e 27 ef 32 32 2c 36  3a d6 26 39 30 30 3a ff  |.n'.22,6:.&900:.|
000001c0  22 4c 4f 41 44 20 22 2b  66 24 2b 22 20 22 2b c3  |"LOAD "+f$+" "+.|
000001d0  7e 93 20 20 20 20 0d 00  78 09 ef 32 32 2c 33 0d  |~.    ..x..22,3.|
000001e0  00 82 09 d6 26 39 41 41  0d 00 8c 07 ed 20 58 0d  |....&9AA..... X.|
000001f0  00 96 0b d7 22 4d 45 4e  55 22 0d 00 a0 b8 dc 45  |...."MENU".....E|
00000200  44 49 54 31 2c 49 4e 46  4f 31 2c 4c 2e 42 45 4c  |DIT1,INFO1,L.BEL|
00000210  4c 49 53 31 2c 4c 2e 42  45 4c 4c 49 53 32 2c 4c  |LIS1,L.BELLIS2,L|
00000220  2e 45 44 4c 45 54 31 2c  4c 2e 45 55 47 31 2c 4c  |.EDLET1,L.EUG1,L|
00000230  2e 53 50 52 4f 57 31 2c  4c 2e 56 49 47 4c 45 4e  |.SPROW1,L.VIGLEN|
00000240  31 2c 46 2e 50 53 55 54  58 54 31 2c 46 2e 5a 38  |1,F.PSUTXT1,F.Z8|
00000250  38 31 2c 50 2e 43 44 54  58 54 31 2c 50 2e 44 4f  |81,P.CDTXT1,P.DO|
00000260  43 53 31 2c 50 2e 46 4b  4d 54 58 54 31 2c 50 2e  |CS1,P.FKMTXT1,P.|
00000270  53 4f 52 52 59 31 2c 47  2e 47 4c 46 54 58 54 31  |SORRY1,G.GLFTXT1|
00000280  2c 47 2e 52 45 50 54 58  54 31 2c 53 2e 53 41 4c  |,G.REPTXT1,S.SAL|
00000290  45 31 2c 53 2e 53 41 4c  45 32 2c 53 2e 53 50 52  |E1,S.SALE2,S.SPR|
000002a0  4f 57 31 2c 53 2e 53 4f  53 31 2c 53 2e 57 41 4e  |OW1,S.SOS1,S.WAN|
000002b0  54 31 0d ff                                       |T1..|
000002b4