/ / Z E D 
 
 / / I D E N T 
 
   L O C A L   Z E D : = " Z   E D I T O R   V 0 _ 3   " ; 
 
   L O C A L   C R I D : = Z E D + "    2 0 1 5   S t e p h e n G 1 C M Z " ; 
 
 / / 
 
 
 
   L O C A L   L F : = C H A R ( 1 0 ) , S P : = "   " ; 
 
   
 
   / /   S T R 
 
   L O C A L   N W S : = "   N o t   W o r k i n g   " ; 
 
   L O C A L   E S C S : = " T A P   E s c   T O   C O N T I N U E " ; 
 
   L O C A L   Z F T Y P S : = { " A B O U T " , " I N F O " , " H E L P " , " N o t e s " , " P r o g r a m s " } ; 
 
   L O C A L   A C T I O N S : = { " A N A L Y Z E " , " F I N D _ S E A R C H " , " S E A R C H A L L " , " V I E W " , " S E N D " , " R E P L A C E " } ; 
 
   L O C A L   M E C A L L : = L F + " C O N T A C T   S t e p h e n G 1 C M Z " + L F ; 
 
   E X P O R T   Z S R C H D ; 
 
   E X P O R T   Z S L ; 
 
   E X P O R T   Z L L : = { 0 } ; 
 
   E X P O R T   Z V L : = { } ; 
 
 
 
   L O C A L   Z F T Y P N , Z F N ; 
 
   L O C A L   S R C , C N T ; 
 
   
 
   / / 
 
 
 
   B U S Z Y ( ) 
 
   B E G I N 
 
     D R A W M E N U ( "    2 0 1 5 " , " G 1 C M Z " , " ( B U S Y ) " ) ; 
 
   E N D ; 
 
 
 
   G R N T C K   ( ) 
 
   B E G I N 
 
     T E X T O U T _ P ( " '" , G 0 , 0 , 0 , 0 , # F F 0 0 h , 1 0 0 , # 0 h ) ;     
 
   E N D ; 
 
 
 
   A N L Z   ( Z F N A M E , T X T ) 
 
   B E G I N 
 
     L O C A L   C H , I ; 
 
     
 
     B U S Z Y ( ) ; 
 
     Z L L : = { } ; 
 
     C N T : = 1 ; 
 
   
 
     F O R   I   F R O M   1   T O   S I Z E ( T X T )   D O 
 
       C H : = M I D ( T X T , I , 1 ) ;     
 
       I F   C H   = =   L F   T H E N 
 
         C N T : = C N T + 1 ; 
 
         Z L L ( C N T ) : = I ; 
 
       E N D ; 
 
     E N D ; 
 
   E N D ; 
 
   / / A N L Z   A N D   S E A R C H A L L ( L F )   D O 
 
   / / A   S I M I L A R   J O B 
 
 
 
   A N A L Y Z E   ( Z F N A M E , T X T , C N T ) 
 
   B E G I N 
 
   L O C A L   S Z : = S I Z E ( T X T ) ;   
 
   L O C A L   S Z S : = Z F N A M E + L F + S Z + "   C H A R S   " + L F + 2 * S Z + "   B Y T E S " + L F ;   
 
     M S G B O X ( S Z S + C N T + "   L I N E S " + L F , 1 ) ;   
 
   E N D ; 
 
 
 
   L I N E S ( P ) 
 
   B E G I N 
 
     L O C A L   L C : = 0 ; 
 
     R E P E A T   
 
     L C : = L C + 1 ; 
 
     U N T I L   Z L L ( L C ) e"P     O R   L C = = S I Z E ( Z L L )   ; 
 
     R E T U R N   L C ;   
 
   E N D ; 
 
 
 
   C H S L I N ( Z S L ) 
 
   B E G I N 
 
     L O C A L   T T L : = S I Z E ( Z S L ) + "   F O U N D " ; 
 
     L O C A L   Q ; 
 
 
 
     I F   S I Z E ( Z S L ) > 0   T H E N 
 
       C H O O S E ( Q , T T L , Z S L ) ; 
 
     E L S E   / / W A . C H O O S E 
 
         / /   0   F O U N D   N E E D S   N O   T R A N S L A T I O N 
 
         M S G B O X ( T T L , 1 ) ; 
 
     E N D ; 
 
   E N D ; 
 
 
 
   V I E W E R ( Z F N A M E , T X T )   / / N O T   H P   V I E W 
 
   B E G I N 
 
     L O C A L   Z _ E D I T O R _ V I E W : = { } ; 
 
     L O C A L   I , S T , L O , H I , S Z ; 
 
     L O C A L   F R A G : = " N B :   Y O U   M A Y   S E E   O L D   R E S U L T S   A P P E N D E D   T O   Y O U R S " ; 
 
     L O C A L   S V S : = " S E A R C H   B E F O R E   V I E W I N G   P L E A S E " ; 
 
   
 
     I F   Z S R C H D   T H E N 
 
       M S G B O X ( "   E D I T I N G " + N W S + L F + F R A G , 1 ) ; 
 
       I F   1   T H E N 
 
         / / A L W A Y S   I N C L U D E   1 S T   L I N E 
 
         S T : = M I D ( T X T , 1 , Z L L ( 2 ) ) ; 
 
         Z V L ( 1 ) : = S T ; 
 
 
 
         F O R   I : = 1   T O   S I Z E ( Z S L )   D O 
 
           L O : = Z L L ( Z S L ( I ) ) ; 
 
           I F   ( Z S L ( I ) + 1 ) d"S I Z E ( Z L L )   T H E N 
 
             H I : = Z L L ( Z S L ( I ) + 1 ) ; 
 
           E L S E 
 
             H I : = S I Z E ( T X T ) ; 
 
           E N D ; 
 
           S Z : = H I - L O ; 
 
     / /   M S G B O X ( " L O " + L O + L F + " H I " + H I ) ; 
 
           S T : = M I D ( T X T , L O , S Z ) ; 
 
     / /   M S G B O X ( " S T " + S T ) ; 
 
     / /   Z V L ( I + 1 ) : = S T ; 
 
           Z V L ( I + 1 ) : = { Z S L ( I ) , S T } 
 
         E N D ; 
 
   
 
         Z _ E D I T O R _ V I E W : = Z V L ;   / / N I C E   N A M E 
 
         E D I T L I S T ( Z _ E D I T O R _ V I E W ) ; 
 
       E N D ; 
 
     E L S E 
 
       M S G B O X ( S V S , 1 ) ; 
 
     E N D ;     
 
   E N D ; 
 
 
 
   S E A R C H O N E ( Z F N A M E , T X T ) 
 
   B E G I N 
 
     L O C A L   T T L : = C R I D ; 
 
     L O C A L   L B L : = " F I N D   1 S T " ; 
 
     L O C A L   H L P : = Z F N A M E ; 
 
     L O C A L   I N : = " " ; 
 
     L O C A L   W , P ; 
 
     L O C A L   Z S L : = { } ; 
 
 
 
     W : = I N P U T ( I N , T T L , L B L , H L P , " " , " " ) ; 
 
     I F   W   T H E N 
 
       B U S Z Y ( ) ;   / /   Z S R C H D : = 1 ; 
 
       P : = I N S T R I N G ( T X T , I N ) ; 
 
       I F   P   T H E N 
 
         Z S L ( 1 ) : = L I N E S ( P ) - 1 ; 
 
       E N D ; 
 
       C H S L I N ( Z S L ) ; 
 
     E N D ; 
 
     
 
   E N D ; 
 
 
 
   S E A R C H A L L   ( Z F N A M E , T X T ) 
 
   B E G I N 
 
     L O C A L   T T L : = C R I D ; 
 
     L O C A L   L B L : = " F I N D   A L L " ; 
 
     L O C A L   H L P : = Z F N A M E ; 
 
     L O C A L   I N : = " " ; 
 
     L O C A L   S Z : = S I Z E ( T X T ) ; 
 
     L O C A L   W , P , P R E L ; 
 
     L O C A L   N F N D ; 
 
 
 
     W : = I N P U T ( I N , T T L , L B L , H L P , " " , " " ) ; 
 
     I F   W   T H E N 
 
       B U S Z Y ( ) ;   Z S R C H D : = 1 ; 
 
       / /   A N L Z ( Z F N A M E , T X T ) ; 
 
       I F   S I Z E ( I N ) = = 0   T H E N 
 
         I N : = L F ;   / / A V O I D   M A T C H   A L L 
 
       E N D ; 
 
     
 
       P : = 1 ;   
 
       Z S L : = { } ;   N F N D : = 0 ; 
 
   
 
       R E P E A T 
 
           P R E L : = I N S T R I N G ( M I D ( T X T , P ) , I N ) ; 
 
           I F   P R E L   T H E N 
 
             P : = P + P R E L ; 
 
             N F N D : = N F N D + 1 ; 
 
             I F   N F N D = = 1   T H E N 
 
               G R N T C K ; 
 
             E N D ; 
 
             Z S L ( N F N D ) : = L I N E S ( P - 1 ) - 1 ; 
 
       / /   M S G B O X ( L I N E S ( P - 1 ) ) ; 
 
             E L S E 
 
             / / P R I N T ( " Z E R O " ) ; 
 
           E N D ; 
 
       U N T I L   P R E L = = 0   O R   P > S Z ; 
 
 
 
       C H S L I N ( Z S L ) ; 
 
     E N D ; 
 
   E N D ; 
 
 
 
   Z S E N D ( ) 
 
   B E G I N 
 
   M S G B O X ( " C O N N E C T I V I T Y " + N W S + L F + M E C A L L + 
 
     " F O R   S U P P O R T " ) ; 
 
   E N D ; 
 
 
 
   Z R E P L   ( Z F N A M E , T X T ) 
 
   B E G I N 
 
     M S G B O X ( N W S ) ; 
 
   E N D ; 
 
 
 
   D O A C T N   ( Q , Z F N A M E ) 
 
   B E G I N 
 
     
 
     C A S E 
 
     I F   Q = = 1   T H E N   A N A L Y Z E ( Z F N A M E , S R C , C N T )   E N D ; 
 
     I F   Q = = 2   T H E N   S E A R C H O N E ( Z F N A M E , S R C )   E N D ; 
 
     I F   Q = = 3   T H E N   S E A R C H A L L ( Z F N A M E , S R C )   E N D ; 
 
     I F   Q = = 4   T H E N   V I E W E R ( Z F N A M E , S R C )   E N D ; 
 
 
 
     I F   Q = = 5   T H E N   Z S E N D ( ) ;   E N D ; 
 
     I F   Q = = 6   T H E N   Z R E P L ( Z F N A M E , S R C ) ;   E N D ; 
 
 
 
     / / I F   Q = = 2   T H E N     E N D ; 
 
     D E F A U L T 
 
     E N D ; 
 
 
 
   E N D ; 
 
 
 
   Z E D F ( Z F T Y P E , Z F ) 
 
   B E G I N 
 
     L O C A L   Q ; 
 
     L O C A L   Z F N A M E : = Z F T Y P E + " ( " + Z F + " ) " ; 
 
     L O C A L   Z F D : = Z F N A M E + S P + S I Z E ( E X P R ( Z F N A M E ) ) + "   B Y T E S " ; 
 
   
 
     / /   A N L Z   E A R L Y 
 
     S R C : = E X P R ( Z F N A M E ) ; 
 
     A N L Z ( Z F N A M E , S R C ) ; 
 
     Z S R C H D : = 0 ; 
 
     W H I L E 
 
       C H O O S E ( Q , Z F N A M E , A C T I O N S )   D O   
 
         D O A C T N ( Q , Z F N A M E ) ; 
 
     E N D ; 
 
   E N D ; 
 
 
 
   Z E D C H S F ( Z F T Y P E ) 
 
   B E G I N 
 
     L O C A L   Z F I L E S : = E X P R ( Z F T Y P E ) ; 
 
     L O C A L   L B L : = S I Z E ( Z F I L E S ) + S P + Z F T Y P E ; 
 
       
 
     I F   S I Z E ( Z F I L E S ) > 0   T H E N   / / W A . C H O O S E 
 
       W H I L E 
 
         C H O O S E ( Z F N , L B L , Z F I L E S )   D O   
 
           Z E D F ( Z F T Y P E , S T R I N G ( Z F I L E S ( Z F N ) ) ) ;   
 
         E N D ; 
 
     E L S E   / / W A . C H O O S E 
 
       M S G B O X ( 0 + S P + Z F T Y P E , 1 ) ;   / / E M P T Y   D I R 
 
     E N D ; 
 
   E N D ; 
 
 
 
   A B O U T 
 
 ( ) 
 
     B E G I N 
 
       L O C A L   A S : = " S t e p h e n G 1 C M Z   i s   a   s o f t w a r e   d e v e l o p e r   a n d   s y s t e m s   t e s t e r .   H e   w o u l d   b e   h a p p y   t o   w o r k   t o   y o u r   r e q u i r e m e n t s . " ; 
 
       
 
       L O C A L   A Z : = " Z   E D I T O R   i s   S t e p h e n G 1 C M Z ' s   f i r s t   H P   P r i m e   p r o g r a m .   " ; 
 
   
 
   P R I N T ( ) ;   P R I N T ( C R I D + L F ) ; 
 
   P R I N T ( A S + L F + L F + A Z + L F + L F + E S C S ) 
 
 ; 
 
   W A I T ; 
 
   E N D ; 
 
 
 
   I N F O ( ) 
 
   B E G I N 
 
     L O C A L   L S : = " L e g a l :   N o   l i a b i l i t y   i s   a c c e p t e d   a n d   i n   a n y   e v e n t   w i l l   b e   l i m i t e d   t o   t h e   a m o u n t   p a i d   f o r   t h i s   p r o g r a m . " ; 
 
   
 
     P R I N T ( ) ;   P R I N T ( C R I D + L F ) ; 
 
     P R I N T ( L F + L S + L F + E S C S ) ; 
 
     W A I T ; 
 
   E N D ; 
 
 
 
   H E L P ( ) 
 
   B E G I N 
 
     L O C A L   Q ; 
 
     L O C A L   S R : = " S e a r c h :   '= = F O U N D   
 
 T o   s e l e c t   a l l   l i n e s :   s e a r c h   f o r   E n t e r   o r   O K . " ;   
 
     L O C A L   V S : = " V i e w e r :     
 
 y o u   m i g h t   f i n d   t h e   l i n e   n u m b e r i n g   o f   t h e   t e x t   u s e f u l .   
 
 F i r s t   s e a r c h   t o   p o p u l a t e   t h e   s e l e c t e d   l i n e s . " ;   
 
     L O C A L   E A R : = " E d i t i n g   a n d   R e p l a c e m e n t :   
 
 N o t   i m p l e m e n t e d   y e t . " ;     
 
     L O C A L   E V : =   " E x p o r t e d   v a r i a b l e s : 
 
 Z L L :   l i s t   o f   l i n e   f e e d s . 
 
 Z S L :   l i s t   o f   s e l e c t e d   l i n e   n u m b e r s .   
 
 ( M u l t i p l e   m a t c h e s   o n   o n e   l i n e   a p p e a r   m u l t i p l e   t i m e s ) " ; 
 
     L O C A L   I S H : = " k n o w n   i s s u e s : 
 
 R E F E R   T O   F O R U M   F O R   L A T E S T " ; 
 
     L O C A L   T T L : = " H E L P " ; 
 
     L O C A L   H L P S E L : = { " T I P S " , " V A R S " , " S U P P O R T " } ; 
 
   
 
     W H I L E   C H O O S E ( Q , T T L , H L P S E L )   D O     
 
       P R I N T ( ) ;   P R I N T ( C R I D ) ; 
 
       C A S E 
 
         I F   Q = = 1   T H E N     
 
           P R I N T ( S R + L F + V S + L F + E A R + L F ) ; 
 
           E N D ; 
 
         I F   Q = = 2   T H E N 
 
           P R I N T ( E V + L F ) ; 
 
           E N D ; 
 
         I F   Q = = 3   T H E N 
 
           P R I N T ( I S H + L F ) ; 
 
           E N D ; 
 
         D E F A U L T 
 
       E N D ; 
 
         P R I N T ( E S C S ) ; 
 
         W A I T ; 
 
     E N D ; 
 
   E N D ; 
 
 
 
   Z E D C H S F T Y P ( ) 
 
   B E G I N 
 
     L O C A L   L B L : = C R I D ; 
 
     W H I L E     
 
       C H O O S E ( Z F T Y P N , L B L , Z F T Y P S )   D O 
 
           C A S E 
 
             I F   Z F T Y P N = = 1   T H E N   A B O U T ( )   E N D ; 
 
             I F   Z F T Y P N = = 2   T H E N   I N F O ( )   E N D ; 
 
             I F   Z F T Y P N = = 3   T H E N   H E L P ( )   E N D ; 
 
             D E F A U L T 
 
               B U S Z Y ( ) ; 
 
               Z E D C H S F ( Z F T Y P S ( Z F T Y P N ) ) ; 
 
             E N D ; 
 
       E N D ; 
 
   E N D ; 
 
 
 
   Z E D D O ( ) 
 
   B E G I N 
 
       Z E D C H S F T Y P ( ) ;   
 
   E N D ; 
 
 
 
   Z E D B Y E ( ) 
 
   B E G I N 
 
     L O C A L   T : = L F + " T H A N K S   F O R   U S I N G " + L F + Z E D + L F ; 
 
     L O C A L   G : = " B Y   S t e p h e n G 1 C M Z " ; 
 
     R E T U R N   T + G ; 
 
   E N D ; 
 
 
 
 E X P O R T   Z E D _ E D I T O R ( ) 
 
 B E G I N 
 
   Z E D D O ( ) ; 
 
   R E T U R N   Z E D B Y E ( ) ; 
 
 E N D ; 
 
 