#   !" &/  "  ""         D E M A G O G 
 
 #   (#"'+  ! "  /  -! !!-    #!!/+'  "!"  : ) 
 
 #   /  +/  "  F 2 
 
 
 
 s t r   f n a m e ,   e x t ,   s ,   t a b ,   t 
 
 n u m   i ,   m ,   r i ,   b i ,   s i ,   l i ,   p r i ,   p b i ,   p s i ,   p l i ,   n w ,   s t r a n ,   N ,   f s i z e ,   e m o ,   m x ,   m 1 ,   m 2 
 
 s t r   r a d o s t     #   A;>20,   2K@060NI85  ?>;>68B5;L=K5  M<>F88
 
 s t r   b o r b a     #   A;>20,   2K@060NI85  =0AB@>5=8O  1>@L1K
 
 s t r   s t r a h     #   A;>20,   2K@060NI85  >B@8F0B5;L=K5  M<>F88
 
 s t r   l o v e     #   A;>20,   2K@060NI85  A5:AC0;L=K5  >B=>H5=8O
 
 s t r   w     #   >G5@54=>5  A;>2>  2  B5:AB5
 
 s t r   v i e w 
 
 
 
 r a d o s t   =   ' AG0AB* | @04>AB* | * @04>20* | 25A5;* | ;8:>20* | ;8:CN* | A<5E* | A<5O* | =0A;064* | C;K1* | C4>2>;LAB28* | C4>2>;5B2>@* | 2>AB>@* | 3>@4* | <5GB* | =03@04* | =03@064* | CA?5E* | CA?5H=* | C25@5==* | 4>25@O* | 4>25@8* | A8<?0B8* | ?@074=* | ?0@04* | =8@20=* | M:AB07* | B0;0=B* | 35=80;L=* | 35=89| 1;8AB0B* | 2>AE8* | 25;8:>;5?* | 3@0=48>7=* | ?>B@OA0NI* | B>@65AB2* | C206* | C<8;5* | 1;03>40@* | =56=* | A0<>4>2>;L* | >1;53G5=8* | 157>?0A=* | ?@542:CH5=* | 1;065=* | >G0@>20B5;L=* | >682;5==* | ?>154* | A:07>G=* | 3>;>2>:@C68B5;L=* | 4>2>;L=* | 2>72KH5==* | >15A?5G5==* | C3>48;* | 24>E=>2;5=* ' 
 
 
 
 b o r b a   =   ' 1>9* | 1>52* | 18B2* | A@065=8* | 2>9=* | A@078* | 2>64L| 2KAB@5;* | AB@5;L1* | ?5@5AB@5;* | 4@0:* | 4@0G* | C40@* | ?>154* | @52>;NF8* | <OB56* | :0<?0=* | ?@5A;54* | @5H8B5;L=* | >B203* | >B206* | 15AAB@0H* | 0@<8* | 0@<59* | 48287* | D;>B* | >@C48* | ?>;:>2>4* | 04<8@0;* | 35=5@0;* | ?CH5G=* | 7;>1* | 7;>AB* | O@>AB* | >@C6* | 1><1* | 27@K2* | >B?>@* | E@01@* | ?@>2>@=* | M=5@38G=* | 0:B82=* | A8;* | @572* | 1>4@* | <>I=* | :@5?:* '   
 
 
 
 s t r a h   =   ' AB@0E| C60A* | :>H<0@* | AB@0H=* | A<5@B* | * <CG5=* | <CG8B* | ?KB:* | 4>?@>* | >BG0O=8* | 10@0:* | =0478@0B5;* | ;035@* | :0@F5@* | BN@L<* | 70:;NG5==* | ?>=>A* | 10;0=4* | A:5;5B* | 7M:* | H<>=* | C18;* | C182* | C189* | C18BL| @0AAB@5;* | 70AB@5;* | :07=L* | :07=8* | :07=5=* | :07=OB| 2A:@8:* | 1>;L| 1>;LN| 1>;8| 1>;5=| 1>;57=* | C<8@0* | C<5@* | 03>=8* | A;57K* | 2AE;8?* | E@8?* | 38;L>B8=* | 28A5;8F* | 3@CAB* | =5?@8OB=* | =574>@>2* | ?;0:0;* | ?;0:0BL| ?;0G| @K40* | <C:0| <C:8| <C:C| ABK4* | 704KE0* | =5C25@5=* | =5C4>2>;LAB2* | =54>25@* | 3>@5| B@52>* | B>A:* | ?5G0;L* | >3>@G* | >184* | >186* | 1>O7* | 8A?C3* | 4>A04* | 3=52* | >A:>@1;* | 2>7<CI* | =5=028* | =5?@8O7* | 7028AB* | 70284C* | @0AB5@O==* | =5B5@?5* | 3>@5G* | C4028* | >B@51L* | ?@5AKI5=* | >B2@0I5=8* | >B2@0B8B* | >:@>202;5=* | 65AB>:>A* | M:A:@5<5=B| 3>2=* | <5@B2* | @C30* | >1@C3* | C<>;O* | * ?>I04* | * B5@7* | A0<>C189AB2* | =5?>?@028<* | ?>25A8;* | ?>25A8BL* | 25H0;* | C4CH* | * ?0=8:* ' 
 
 
 
 l o v e   =   ' B@0E* | A=>H* | ?>F5;C* | :;8B>@* | @072@0* | @0A?CB=* | A?5@<* | AB@0AB* | A;04>AB@0AB* | 2;030;8I* | 2038=* | EC5* | EC9* | ?874* | 510* | <>H>=:* | A5<O* | A5<5=8* | O3>48F* | 1;C4* | 4@>G8* | <0ABC@1* | A>4><* | 2>7;N1;* | ;N1>2* | D;8@B* | ?>@>G=* | 704=8F* | D0;;* | ?5=8A* | O8G:8* | >@38* | 0=CA* | ?;>BL* | <0B:* | :>=G8;| :>=G8;0| :>=G8;8| :>=G82| <5=AB@C* | 452AB25==* | ?>B0A:C* | D;035;;OF* | M@5:F* | 30@5<* | =0;>6=8F* | 70G0B* | 15@5<5=* | 7015@5<5=* | A>2>:C?;* | F5;><C4@* | G;5=* | ;>1>:| ;>1:* | ?>E>B* | 1;O4* | ?@>AB8BCB:* | 3@C4L| 3@C48' 
 
 
 
 f n a m e   =   O p e n D i a l o g ( 0 ) 
 
 i f   ( f n a m e   = =   ' ' ) 
 
         e x i t 
 
 f i 
 
 
 
 f s i z e   =   f i l e s i z e ( f n a m e ) 
 
 m   =   l e n ( f n a m e ) 
 
 e x t   =   s u b ( f n a m e , m - 3 , 4 ) 
 
 e x t   =   l o w e r ( e x t ) 
 
 
 
 i f   ( e x t   < >   ' . t x t ' ) 
 
         S h o w M e s s a g e ( ' $09;  4>;65=  8<5BL  B8?  . t x t ' ) 
 
         e x i t 
 
 f i 
 
 
 
 w o r d s ( f n a m e , ' W ' ) 
 
 N   =   W . c o u n t   
 
 
 
 r i   =   0 ;   b i   =   0 ;   s i   =   0 ;   l i   =   0 ;   n w   =   0 ;   t a b   =   c h r ( 9 ) 
 
 t   =   t i m e ( ) ;   p u t   ' 0G0;>:   ' ,   t a b ,   t 
 
 G a u g e I n i t ( 0 , N ) 
 
 i   =   0 
 
 d o   i   <   N 
 
         i   =   i + 1 
 
         s   =   s e e ( W . + i ) 
 
         w   =   l o w e r ( b o d y ( s ) ) 
 
         i f   ( s   < >   ' ~ E ~ ' )   &   ( s   < >   ' ~ Z ~ ' )   &   ( w   < >   ' ' )   
 
                 n w   =   n w + 1 
 
                 i f   S t r M a t c h ( w , r a d o s t ) 
 
                         r i   =   r i + 1 
 
                 f i 
 
                 i f   S t r M a t c h ( w , b o r b a ) 
 
                         b i   =   b i + 1 
 
                 f i 
 
                 i f   S t r M a t c h ( w , s t r a h ) 
 
                         s i   =   s i + 1 
 
                 f i 
 
                 i f   S t r M a t c h ( w , l o v e ) 
 
                         l i   =   l i + 1 
 
                 f i 
 
                 i f   i   %   1 0 0 0   = =   0 ;   G a u g e ( i ) ;   f i ; 
 
         f i 
 
 o d 
 
 G a u g e ( 0 ) 
 
 t   =   t i m e ( ) ;   p u t   ' :>=G0=85:   ' ,   t a b ,   t 
 
 
 
 p u t 
 
 p u t   ' $09;:   ' , f n a m e 
 
 p u t 
 
 
 
 i f   n w   = =   0 
 
         S h o w M e s s a g e ( ' %%%,   ?CAB>9  D09;! ' ) 
 
         p u t   ' -B>B  D09;  =5  A>45@68B  A;>2' 
 
         e x i t 
 
 f i 
 
 
 
 i f   ( r i   = =   0 )   &   ( b i   = =   0 )   &   ( l i   = =   0 )   &   ( s i   = =   0 ) 
 
         p u t   ' %0@0:B5@  B5:AB0:   #"' 
 
         p u t   ' -<>F8>=0;L=>ABL  B5:AB0  -   "!#"!"#"' 
 
         e x i t 
 
 f i 
 
 
 
 s t r a n   =   f l o o r ( n w / 2 5 0 + 1 ) 
 
 p r i   =   r o u n d ( 1 0 0 * r i / n w , 3 )   
 
 p b i   =   r o u n d ( 1 0 0 * b i / n w , 3 )   
 
 p l i   =   r o u n d ( 1 0 0 * l i / n w , 3 )   
 
 p s i   =   r o u n d ( 1 0 0 * s i / n w , 3 )   
 
 e m o   =   ( 1 0 0 * r i / n w - 0 . 5 7 ) + ( 1 0 0 * b i / n w - 0 . 5 9 ) + ( 1 0 0 * l i / n w - 0 . 0 9 ) + ( 1 0 0 * s i / n w - 0 . 6 6 ) 
 
 
 
 p u t   '  07<5@  D09;0:   ' ,   f s i z e ,   '   109B' 
 
 p u t   ' !;>2  2  B5:AB5:   ' ,   n w , 
 
 p u t   ' ,   :=86=KE  AB@0=8F  ?@8<5@=>:   ' ,   s t r a n 
 
 p u t 
 
 p u t   ' !;>2,   2K@060NI8E. . . ' 
 
 p u t   
 
 p u t   t a b ,   ' ?>;>68B5;L=K5  M<>F88:   ' , t a b ,   r i ,   t a b , '   ( ' , p r i , ' %       =>@<0  -   0 . 5 7 % ) ' 
 
 p u t   t a b ,   ' =0AB@>5=8O  1>@L1K:                     ' , t a b ,   b i ,   t a b , '   ( ' , p b i , ' %       =>@<0  -   0 . 5 9 % ) ' 
 
 p u t   t a b ,   ' A5:AC0;L=K5  >B=>H5=8O:   ' , t a b ,   l i ,   t a b , '   ( ' , p l i , ' %       =>@<0  -   0 . 0 9 % ) ' 
 
 p u t   t a b ,   ' >B@8F0B5;L=K5  M<>F88:   ' , t a b ,   s i ,   t a b , '   ( ' , p s i , ' %       =>@<0  -   0 . 6 6 % ) ' 
 
 p u t 
 
 v i e w   =   c h a r s ( ' + ' , c e i l ( 6 0 * r i / ( r i + b i + l i + s i ) ) ) + '     @04>ABL' ;   p u t   v i e w 
 
 v i e w   =   c h a r s ( ' + ' , c e i l ( 6 0 * b i / ( r i + b i + l i + s i ) ) ) + '     1>@L10' ;   p u t   v i e w 
 
 v i e w   =   c h a r s ( ' + ' , c e i l ( 6 0 * l i / ( r i + b i + l i + s i ) ) ) + '     M@>B8:0' ;   p u t   v i e w 
 
 v i e w   =   c h a r s ( ' + ' , c e i l ( 6 0 * s i / ( r i + b i + l i + s i ) ) ) + '     B@03548O' ;   p u t   v i e w 
 
 p u t 
 
 i f   e m o   >   0 . 0 5   
 
         p u t   ' -<>F8>=0;L=>ABL  B5:AB0  -   +(/' 
 
 f i 
 
 i f   e m o   <   ( - 0 . 0 5 ) 
 
         p u t   ' -<>F8>=0;L=>ABL  B5:AB0  -   !/' 
 
 f i 
 
 
 
 p u t   ' %0@0:B5@  B5:AB0:   ' , 
 
 
 
 i f   r i   <   b i ;   m x   =   b i ;   e l s e ;   m x   =   r i ;   f i 
 
 i f   m x   <   l i ;   m x   =   l i ;   f i 
 
 i f   m x   <   s i ;   m x   =   s i ;   f i 
 
 m 1   =   m x / 3 
 
 m 2   =   2 * m x / 3 
 
 
 
 #   A;8  B5:AB  ?>?0405B  A@07C  2  =5A:>;L:>  :0B53>@89,   B>  >=8  ?5G0B0NBAO  2A5,   @0745;5==K5  B>G:>9
 
 #   0  ?@0:B8:5  =5  70<5G5=>,   GB>1K  B5:AB  C4>2;5B2>@O;  1>;55,   G5<  42C<  :0B53>@8O<
 
 i f   r i   > =   b i + l i + s i 
 
         p u t   ' "!"'!.   ' , 
 
 f i 
 
 i f   b i   > =   r i + l i + s i 
 
         p u t   '  !!+.   ' , 
 
 f i 
 
 i f   l i   > =   r i + b i + s i 
 
         p u t   ' - ".   ' , 
 
 f i 
 
 i f   s i   > =   r i + b i + l i 
 
         p u t   ' " '!.   ' , 
 
 f i 
 
 i f   ( r i   > =   m 2 )   &   ( b i   > =   m 2 )   &   ( l i   > =   m 2 )   &   ( s i   > =   m 2 ) 
 
         p u t   ' !" !."+/ - "'!.   ' , 
 
 f i 
 
 i f   ( r i   > =   m 2 )   &   ( b i   > =   m 2 )   &   ( l i   <   m 1 )   &   ( s i     > =     m 2 ) 
 
         p u t   ' !" !."+.   ' , 
 
 f i 
 
 i f   ( r i   > =   b i )   &   ( s i - r i   <   m 1 )   &   ( b i   > =   l i )   &   ( b i + r i + l i   > =   s i )   &   ( s i   = =   m x ) 
 
         p u t   '  "'!.   ' , 
 
 f i 
 
 i f   ( b i   > =   r i )   &   ( b i   > =   l i )   &   ( b i + r i + l i   > =   s i )   &   ( s i   = =   m x ) 
 
         p u t   '  '!.   ' , 
 
 f i 
 
 i f   ( r i   > =   b i )   &   ( s i - r i   > =   m 1 )   &   ( b i   > =   l i )   &   ( b i + r i + l i   > =   s i )   &   ( s i   = =   m x ) 
 
         p u t   '  '-  "'!.   ' , 
 
 f i 
 
 i f   ( b i   > =   r i )   &   ( s i - b i   > =   m 1 )   &   ( r i   > =   l i )   &   ( b i + r i + l i   > =   s i )   &   ( s i   = =   m x )   
 
         p u t   '  -  "'!.   ' , 
 
 f i 
 
 i f   ( r i   > =   b i )   &   ( b i   > =   s i )   &   ( s i   > =   m 1 )   &   ( r i   = =   m x ) 
 
         p u t   ' #" .).   ' , 
 
 f i 
 
 i f   ( r i   > =   s i )   &   ( s i   > =   b i )   &   ( b i   > =   m 1 )   &   ( l i   <   m 1 )   &   ( r i   > =   m 2 ) 
 
         p u t   ' ". +.   ' , 
 
 f i 
 
 i f   ( r i   > =   m 1 )   &   ( r i   <   m 2 )   &   ( b i   = =   m x )   &   ( s i   > =   m 1 )   &   ( s i   <   m 2 ) 
 
         p u t   ' !"+.   ' , 
 
 f i 
 
 i f   ( r i   > =   m 1 )   &   ( r i   <   m 2 )   &   ( b i   = =   m x )   &   ( s i   > =   m 2 )   &   ( s i   <   m x ) 
 
         p u t   ' # ).   ' , 
 
 f i 
 
 i f   ( r i   > =   m 2 )   &   ( b i   <   m 2 )   &   ( l i   = =   m x )   &   ( s i   > =   m 2 ) 
 
         p u t   ' - "/ !- %.   ' , 
 
 f i 
 
 i f   ( r i   <   m 2 )   &   ( b i   <   m 2 )   &   ( l i   = =   m x )   &   ( s i   > =   m 2 ) 
 
         p u t   ' - "/ !.   ' , 
 
 f i 
 
 i f   ( r i   <   m 1 )   &   ( b i   <   m 1 )   &   ( l i   > =   m 1 )   &   ( s i   > =   m 1 ) 
 
         p u t   ' !.   ' , 
 
 f i 
 
 i f   ( r i   <   m 1 )   &   ( b i   > =   m 1 )   &   ( l i   > =   m 1 )   &   ( s i   > =   m 1 ) 
 
         p u t   ' !/ !.   ' , 
 
 f i 
 
 i f   ( r i   > =   m 2 )   &   ( b i   > =   m 2 )   &   ( l i   > =   m 2 )   &   ( s i   <   m 1 ) 
 
         p u t   ' !/ %.   ' , 
 
 f i 
 
 i f   ( r i   = =   m x )   &   ( b i   > =   m 1 )   &   ( l i   > =   m 1 )   &   ( s i   > =   m 2 ) 
 
         p u t   ' %.   ' , 
 
 f i 
 
 i f   ( r i   > = m 2 )   &   ( b i   <   m 1 )   &   ( s i   > =   m 1 )   &   ( l i   > = m 1 )   &   ( l i   <   m 2 ) 
 
         p u t   ' !/  .,.   ' 
 
 f i 
 
 