     6   k820309 59                                                                                                                                                    
       varying_strings.f90 VARYING_STRINGS          STRINGS CLEAR PUSH SHIFT LEN ELEMENT i@| gen@LEN gen@EXTRACT gen@INIT gen@CLEAR gen@DISPOSE gen@PUSH gen@POP gen@SHIFT gen@UNSHIFT gen@ELEMENT                                           
                                                     |  COPY_VS #     @      X                                       COPY_VS%SIZE LHS RHS                                       SIZE       
D A                             $       STRINGS       
                               $      STRINGS                                           u LEN_VS %     @    X                                          VS       
                               $      STRINGS                                           u EXTRACT_VS &     @     X                        $                 EXTRACT_VS%MIN EXTRACT_VS%MAX EXTRACT_VS%PRESENT VS START FINISH STRINGS                                       MIN                                       MAX                                       PRESENT       
                               $      STRINGS       
 A                                     
 A                                                                          u INIT_VS #     @      X                                       VS       D A                             $       STRINGS                                            u CLEAR_VS #     @      X                                      CLEAR_VS%SIZE VS                                       SIZE       
D A                             $       STRINGS                                            u DISPOSE_VS #     @      X                                       DISPOSE_VS%SIZE VS                                       SIZE       
D A                             $       STRINGS                                            u PUSH_VS PUSH_VC #     @      X                                        VS STRING       
D A                             $       STRINGS       
                                     VARYING_STRING #     @      X                                        VS STRING       
D A                             $       STRINGS       
                                     1                                            u POP_VS &     @    X                                          VS VARYING_STRING       
D A                             $       STRINGS                                            u SHIFT_VS &     @    X                                          VS VARYING_STRING       
D A                             $       STRINGS                                            u UNSHIFT_VS #     @      X                                        VS STRING       
D A                             $       STRINGS       
                                     VARYING_STRING                                            u ELEMENT_VS &     @    X                                          VS POS VARYING_STRING       
                               $      STRINGS       
                                              @                         '$            LENGTH BODY                                                                                                 VARYING_STRING       &                             ,      fn#fn %         b   uapp(VARYING_STRINGS #   s  4   J   ISO_VARYING_STRING      <      i@|      Q      COPY_VS    4  1      COPY_VS%SIZE    e  <   a   COPY_VS%LHS      <   a   COPY_VS%RHS      ;       gen@LEN      C      LEN_VS    [  <   a   LEN_VS%VS      ?       gen@EXTRACT            EXTRACT_VS    _  0      EXTRACT_VS%MIN      0      EXTRACT_VS%MAX #     4      EXTRACT_VS%PRESENT      <   a   EXTRACT_VS%VS !   /  0   a   EXTRACT_VS%START "   _  0   a   EXTRACT_VS%FINISH      <       gen@INIT      ?      INIT_VS    
  <   a   INIT_VS%VS    F  =       gen@CLEAR      M      CLEAR_VS      1      CLEAR_VS%SIZE      <   a   CLEAR_VS%VS    =  ?       gen@DISPOSE    |  O      DISPOSE_VS       1      DISPOSE_VS%SIZE      <   a   DISPOSE_VS%VS    8  D       gen@PUSH    |  F      PUSH_VS      <   a   PUSH_VS%VS      C   a   PUSH_VS%STRING    A	  F      PUSH_VC    	  <   a   PUSH_VC%VS    	  8   a   PUSH_VC%STRING    	  ;       gen@POP    6
  R      POP_VS    
  <   a   POP_VS%VS    
  =       gen@SHIFT      R      SHIFT_VS    S  <   a   SHIFT_VS%VS      ?       gen@UNSHIFT      F      UNSHIFT_VS      <   a   UNSHIFT_VS%VS "   P  C   a   UNSHIFT_VS%STRING      ?       gen@ELEMENT      V      ELEMENT_VS    (  <   a   ELEMENT_VS%VS    d  0   a   ELEMENT_VS%POS      H       STRINGS      8   a   STRINGS%LENGTH      s   a   STRINGS%BODY 