$ od -c -N 50000 [_CDCSL_93-16_]<1>Cedar>release>SchemeLib>MixMaster.$cheme
0000000 # 001 006 001 \a r e q u i r e 021 020 I
0000020 n t e r p r e t e d C o d e 022
0000040 \0 017 023 023 001 \a \0 004 004 037 \a \0 004 032 024 025
0000060 026 \v 021 005 C e d a r 021 \t M i x M a
0000100 s t e r 021 017 M i x M a s t e r M
0000120 X C o d e 021 002 ( ) \0 \n # 001 006 024 \a
0000140 d i s p l a y \r f i l e n a m e
0000160 - b a s e \r s t r i n g - a p p
0000200 e n d 005 u n m i x 006 f o r m a t
0000220 017 t i o g a - f i l e - r e a d
0000240 \v t i o g a - u n m i x \n d o -
0000260 c o m m a n d \v h o b b i t - f
0000300 i l e 017 t r a n s f o r m - m x
0000320 t m p 020 t i o g a - f i l e - w
0000340 r i t e \a d o c - o u t \f f i l
0000360 e n a m e - e x t 005 t h u n k 005
0000400 f i r s t 006 d o c - i n \b o u t
0000420 - n a m e \b f i l e n a m e \b b
0000440 a s e n a m e \a i n - n a m e
0000460 021 020 I n t e r p r e t e d C o
0000500 d e 022 \0 017 023 023 001 \a 003 003 037 \b \0 001 (
0000520 001 $ \0 025 * \a 003 022 \b \a 021 \a 023 \a 022
0000540 \a 020 \a 017 \a 016 \a \r \a \v 017 024 024 004 023 \a
0000560 002 \a 001 \a \f \a 001 \a 002 \a 001 \a 005 \a 004 \a
0000600 006 \a \0 \a \n \a \0 \a \t \a \0 \a \b \a \0 \a
0000620 \a \a 002 \a 004 004 022 037 201 " \0 005 024 & \0 001
0000640 025 & \0 002 026 & \0 003 027 & \0 004 032 033 \0
0000660 003 030 005 034 \0 003 & \0 005 ( 006 & \0 006
0000700 005 022 - 005 016 0 006 002 005 & \0 001 035
0000720 \0 003 & \0 002 036 004 036 005 \0 003 030 \a 004 &
0000740 \0 003 036 006 001 003 & \0 004 036 \a 030 \b 030 \t
0000760 001 005 # 036 \b 004 003 & \0 \a 036 \t 030 \n
0001000 003 # 036 \n 003 \a 004 # 036 \v 030 \v 003 #
0001020 036 \f 002 003 # 036 \r 030 \f 003 # 036 016 002
0001040 003 # 036 017 030 \r 003 # 036 020 036 021 030 016 002
0001060 030 017 005 003 # 036 022 030 020 030 021 \n 017 017 017 017
0001100 021 001 . 021 022 A n o n y m o u s
0001120 f u n c t i o n 022 \0 017 023 023 \0 002 037
0001140 004 \0 001 024 * 021 002 m x 021 002 ( ) \0 021 006
0001160 . m x t m p 016 021 021 M i x M a s t
0001200 e r i n g ~ A : 021 001 . 021 001 .
0001220 021 001 . 021 001 . 021 005 M a k o 021 006 M
0001240 X C o d e 016 021 \b d o n e . ~ %
0001260 021 > ( f i l e n a m e ) M a k
0001300 e a . m x f i l e i n t
0001320 o s e p a r a t e S c h e m
0001340 e a n d M e s a f i l e s
0001360 \0 \a 003 021 002 ( ) \0 \n # 001 006 026 \v t i
0001400 o g a - u n m i x 004 l o o p 005 c
0001420 e d a r \a d e f a u l t 004 c o d
0001440 e \r t i o g a - f o r w a r d 020
0001460 t i o g a - c o p y - n o d e !
0001500 \n t i o g a - t e x t 004 l i s t
0001520 006 f o r m a t 035 t i o g a - i n
0001540 s e r t - t e x t - a s - s i b
0001560 l i n g ! 004 m e m v \f t i o g a
0001600 - f o r m a t 016 t i o g a - c o
0001620 m m e n t ? 003 n o t 003 t 5 9 004 n
0001640 o d e \n t i o g a - r o o t 003 o
0001660 u t \v t i o g a - c h i l d 020 t
0001700 i o g a - c r e a t e - d o c 006
0001720 d o c - i n 021 020 I n t e r p r
0001740 e t e d C o d e 022 \0 017 023 023 001 \a
0001760 \0 003 037 \b \0 001 ( 001 $ \0 025 * \a \0 022
0002000 003 \a 025 \a 022 \a 001 017 024 024 003 \a 024 \a 023 \a
0002020 021 004 004 037 \0 003 024 & \0 001 032 002 & \0 001
0002040 025 & \0 002 ( 003 & \0 002 002 033 \0 003 003
0002060 # 034 001 \t 017 017 \a 001 022 002 \a 020 \a 017
0002100 017 024 024 004 \n \a 016 \a \r \a \f \a \v \a \n \a
0002120 \t \a \b \a \a \a 006 \a 005 004 \a 037 P \0 \t
0002140 \0 022 M 032 033 \0 003 003 022 D 034 \0 003 &
0002160 \0 001 035 001 024 004 022 7 036 004 ! 001 001 036 005
0002200 025 026 036 006 027 036 \a \0 003 004 005 030 005 005 &
0002220 001 001 016 B 036 \b ! 001 001 \0 004 & 001 001 016
0002240 D ! 001 002 036 \t \0 003 \t 030 006 * 002 \a 004
0002260 \a 002 017 021 002 ~ S \a 002 \a 003 036 021 006 ( n
0002300 o d e ) \0 021 ? ( d o c - i n )
0002320 M a k e a . m x T i o g a
0002340 d o c u m e n t i n t o a
0002360 . m x t m p T i o g a d o
0002400 c u m e n t \0 \a \0 021 002 ( ) \0 \n #
0002420 001 006 006 016 f o r - e a c h - a p p
0002440 l y 004 p r o c 005 a p p l y 001 x \b
0002460 f o r - e a c h 003 l s t 021 020 I
0002500 n t e r p r e t e d C o d e 022
0002520 \0 017 023 023 001 \a \0 003 037 \b \0 001 ( 001 $ \0
0002540 025 * \a \0 022 002 \a 001 \a 005 017 027 002 027 002
0002560 001 \a 004 002 037 \b \0 003 032 ( 001 001 \n 021
0002600 022 A n o n y m o u s f u n c t
0002620 i o n 022 001 \a 003 017 024 024 001 \a 002 001 037 \t
0002640 \0 003 032 ! 001 \0 \0 \n 021 003 ( x ) \0 021
0002660 \n ( p r o c l s t ) \0 \a \0 021 002
0002700 ( ) \0 \n # 001 006 o 003 c d r 004 c o n
0002720 s 004 m e m v \r s t r i n g - a p
0002740 p e n d 003 c a r 005 a p p l y 005 p
0002760 a i r ? 016 f o r - e a c h - a p
0003000 p l y 006 f o r m a t 004 l o o p 003
0003020 n o t \b t y p e n a m e 006 m o d
0003040 u l e 005 n u l l ? \b f o r - e a
0003060 c h 004 c o d e 001 + 003 a r g 016 c e
0003100 d a r f y - s y m b o l \a d i s
0003120 p l a y 005 q n a m e 004 l i s t 003
0003140 l s t 003 d o c \b t e m p l a t e
0003160 021 c l o s e - o u t p u t - p o
0003200 r t \n r e l e a s e - a s 020 d e
0003220 f i n e - e n u m - t y p e 020 o
0003240 p e n - o u t p u t - f i l e 017
0003260 d e f i n e - r e p - t y p e 017
0003300 d e f i n e - r e f - t y p e \r
0003320 c e d a r - r e q u i r e 020 p r
0003340 i m i t i v e - e n a b l e \v d
0003360 e f i n e - p r o c 001 n 017 t r a
0003400 n s f o r m - m x t m p \f a p p
0003420 e n d - c e d a r 020 i n s e r t
0003440 - d i r e c t o r y 016 i n s e r
0003460 t - i m p o r t s 017 e m i t - c
0003500 e d a r - c o d e 020 e m i t - p
0003520 r o c - d e f i n e 016 e m i t -
0003540 p r o c - c a s e \r a r g - o p
0003560 t i o n a l ? \b a r g - n a m e
0003600 \r e m i t - r e f - t y p e \r e
0003620 m i t - r e p - t y p e 004 r e a
0003640 d 004 s o r t \b s t r i n g < ? 023
0003660 e m i t - k e y - v a l - a s s
0003700 i g n 004 e m i t 016 e m i t - e n
0003720 u m - t y p e \v e m i t - p - l
0003740 i s t \t e m i t - l i s t 006 m e
0003760 m b e r 004 n a m e 004 a r g s \a s
0004000 y m b o l ? 022 e m i t - r e s t
0004020 - a r g - c o p y \r e m i t - a
0004040 r g - c o p y 005 c e d a r 005 e r
0004060 r o r 003 e q ? \v c o d e - s t r
0004100 i n g 023 f i x - d e f a u l t -
0004120 m a r k e r s \t n a m e - l i s
0004140 t 003 s e p \r p r e f i x - s t r
0004160 i n g 005 w o r l d 016 p o s t f i
0004200 x - s t r i n g 004 r e s t \a n e
0004220 w l i n e 005 o t h e r \r c e d a
0004240 r - i m p o r t s 017 c e d a r -
0004260 d i r e c t o r y \v e o f - o b
0004300 j e c t ? 003 t 6 0 004 i t e m \t c
0004320 o m p o n e n t 001 x 003 f m t 002 c
0004340 x \b o p t i o n a l 005 n a r g s
0004360 004 l i n e \n s t r i n g - r e f
0004400 006 c h a r = ? 016 s y m b o l - >
0004420 s t r i n g 004 a r g n 001 < \t m i
0004440 x m a s t e r 020 c l o s e - i n
0004460 p u t - p o r t \a r e v e r s e
0004500 005 l i s t * \t c e d a r - k e y
0004520 006 a p p e n d 017 o p e n - i n p
0004540 u t - f i l e \n e n u m - t y p
0004560 e s \t r e p - t y p e s \t r e f
0004600 - t y p e s \a e n a b l e s \t d
0004620 i r e c t o r y \a i m p o r t s
0004640 \n c e d a r - c o d e 005 p r o c
0004660 s 002 i n \b b a s e n a m e \t c e
0004700 d a r n a m e \t c e d a r - o u
0004720 t \n s c h e m e - o u t \v r e q
0004740 u i r e - o u t 021 020 I n t e r
0004760 p r e t e d C o d e 022 \0 017 023 023
0005000 001 \a # 003 037 \b \0 001 ( 001 $ \0 025 * \a
0005020 # 022 & \a j \a i \a n \a m \a l \a k \a
0005040 f \a e \a & \a % \a g \a $ \a h \a " \a
0005060 ! \a d \a \a ' \a + \a * \a ) \a ( \a
0005100 c \a 037 \a 036 \a , \a b \a 035 \a - \a a \a
0005120 033 \a 1 \a 3 \a 2 \a 5 \a 4 \a 032 \a \t 017
0005140 024 024 004 037 \a ` \a 003 \a 034 \a 003 \a 034 \a 003
0005160 \a 034 \a 003 \a 003 \a . \a \b \a / \a 0 \a /
0005200 \a 0 \a \a \a \a \a \a \a \n \a \r \a \a \a \n
0005220 \a \r \a \a \a \a \a 016 \a \ \a [ \a 031 \a 031
0005240 \a 031 004 i 037 205 D \0 005 024 & \0 001 025 & \0
0005260 002 026 & \0 003 027 & \0 004 030 005 & \0 005 030 006
0005300 & \0 006 030 \a & \0 \a 030 \b & \0 \b 030 \t &
0005320 \0 \t 030 \n & \0 \n 030 \v & \0 \v 030 \f & \0
0005340 \f 030 \r & \0 \r 030 016 & \0 016 030 017 & \0 017
0005360 030 020 & \0 020 030 021 & \0 021 030 022 & \0 022 030
0005400 023 & \0 023 030 024 & \0 024 030 025 & \0 025 030 026
0005420 & \0 026 030 027 & \0 027 030 030 & \0 030 030 031 &
0005440 \0 031 030 032 & \0 032 030 033 & \0 033 030 034 & \0
0005460 034 030 035 & \0 035 030 036 & \0 036 030 037 & \0 037
0005500 030 & \0 030 ! & \0 ! 030 " & \0 " 030
0005520 # & \0 # 030 $ & \0 $ 032 033 \0 030 % 004
0005540 003 & \0 001 034 035 \0 030 & 004 003 & \0 002 036
0005560 004 036 005 \0 030 ' 004 003 & \0 003 036 006 036 \a
0005600 \0 030 ( 004 003 & \0 004 036 \b \0 030 ) 004
0005620 & \0 005 030 * & \0 006 030 + & \0 \a ( , &
0005640 \0 \b ( - & \0 \t 030 . & \0 \n ( / & \0
0005660 \v 030 0 & \0 \f 030 1 & \0 \r ( 2 & \0 016
0005700 030 3 & \0 017 ( 4 & \0 020 ( 5 & \0 021 (
0005720 6 & \0 022 ( 7 & \0 023 ( 8 & \0 024 ( 9
0005740 & \0 025 030 : & \0 026 ( ; & \0 027 ( < &
0005760 \0 030 ( = & \0 031 030 > & \0 032 ( ? & \0
0006000 033 ( @ & \0 034 030 A & \0 035 ( B & \0 036
0006020 ( C & \0 037 ( D & \0 ( E & \0 ! (
0006040 F & \0 " ( G & \0 # ( H & \0 $ 030 I
0006060 & \0 % ( J & \0 % % 036 \t 001 003 003
0006100 # 036 \n 002 030 K \0 005 # ! 030 L
0006120 \0 004 # # 030 M 036 \v \a 036 \f 004 030 N
0006140 030 O 006 004 # ! 030 P \0 004 # # 030
0006160 Q 036 \r 006 036 016 004 030 R 030 S 006 004 #
0006200 ! 030 T 003 # ! 030 U 003 # ! 030 V 003
0006220 # 036 017 031 026 004 # 036 020 034 032 004
0006240 # 036 021 035 004 # ! 030 W \0 004
0006260 # 036 022 036 023 017 003 003 023 002 036 ! 030 X
0006300 003 # 017 002 036 ! 030 Y 003 # ! 030 Z 003
0006320 # ! 030 [ 003 # ! 030 \ 003 # ! 030
0006340 ] 003 # 036 024 024 \f 004 # ! 030 ^ 003
0006360 # 036 025 036 026 017 003 003 023 002 l ! 030 _
0006400 003 # 036 027 021 017 004 # ! 030 ` 003 #
0006420 017 002 l ! 030 a 003 # ! 030 b 003 #
0006440 ! 030 c \0 004 # 036 030 025 \f 004 #
0006460 ! 030 d 003 # ! 030 e 003 # 036 031 ( f 036
0006500 032 \n 003 004 # ! 030 g \0 004 # !
0006520 030 h 003 # 036 033 001 003 # 036 034 002 003 #
0006540 036 035 003 003 # 036 036 004 \t 017 017 017 017 017
0006560 017 017 017 017 017 017 017 017 017 017 017 017 017 017 017 017
0006600 017 017 017 017 017 017 017 017 017 017 017 017 017 017 017 021
0006620 006 . m x t m p 021 016 M X C o d e .
0006640 r e q u i r e 021 \a . s c h e m e
0006660 021 \v M X C o d e . m e s a 021 \v M
0006700 X C o d e . m e s a 002 021 006 S c h
0006720 e m e 021 004 A t o m 003 021 006 S c h e
0006740 m e 021 004 A t o m 021 004 R o p e \a
0006760 & 022 001 \a 7 017 024 024 003 \a \n \a 6 \a 001 003
0007000 037 " \0 004 ! 001 \t \0 003 # 032 033 \0 !
0007020 001 006 004 003 022 034 \0 ! 001 006 004 & 001 006
0007040 024 * 025 * 036 036 021 006 ( n a m e ) \0
0007060 \a % 022 001 \a 7 017 024 024 003 \a \n \a 6 \a 001
0007100 003 037 033 \0 004 032 033 \0 ! 001 \a 004 003 022 031
0007120 034 \0 ! 001 \a 004 & 001 \a 024 * 025 * 036 036
0007140 021 006 ( n a m e ) \0 \0 \a $ 022 001 \a
0007160 017 017 024 024 001 \a 001 002 037 016 \0 003 032 \0 !
0007200 001 \n 004 & 001 \n 024 * 036 021 006 ( c o d e
0007220 ) \0 \0 023 \a ! 022 003 \a 030 \a 027 \a 017 016
0007240 027 002 027 002 003 \a 001 \a ] \a 020 003 037 ! \0 006
0007260 032 033 ! 001 \r \0 001 002 006 004 ! 001 \f
0007300 004 & 001 \f 034 024 ! 001 \r 004 & 001 \r 025 * 024
0007320 036 021 025 ( t e m p l a t e d o c
0007340 . c o d e ) \0 \0 \a 022 001 \a
0007360 017 016 023 023 001 \a _ 002 037 016 \0 003 032 \0 !
0007400 001 017 004 & 001 017 024 * 036 021 004 c o d e \0
0007420 \a ' 022 002 \a ^ \a ? 017 027 002 027 002 004 004
0007440 \a \n \a > \a = \a 003 004 004 037 034 \0 004 032 033
0007460 \0 024 004 003 022 023 034 \0 025 004 # 016 023 !
0007500 001 ! 035 026 001 004 \t \a < 021 020 n o t
0007520 a c e d a r f o r m 021 \b
0007540 021 027 ( c e d a r - k
0007560 e y c o d e - s t r i n g ) \0
0007600 \a + 022 001 \a 021 017 024 024 002 \a 006 \a 004 001
0007620 037 017 \0 002 032 \0 003 022 \f 033 \0 \t \0
0007640 * 021 005 ( a r g ) \0 \a * 022 001 \a 021
0007660 017 024 024 001 \a 006 001 037 006 \0 002 032 \0 \t 021
0007700 005 ( a r g ) \0 \a ) 022 \b \a " \a 030
0007720 \a 027 \a 017 \a X \a ; \a : \a \t 016 027 003 027
0007740 003 002 \a \0 \a \a 004 \v 037 G \0 003 024 & \0 004
0007760 025 & \0 005 026 & \0 006 027 & \0 004 ( 005 & \0
0010000 005 ( 006 & \0 006 ! 001 ! 030 \a \0 004 # 030
0010020 \b & \0 \a ( \t & \0 \a \a 032 001 003 003
0010040 # 033 ! 001 021 003 004 # ! 001 ! 030 \n \0
0010060 \n 017 017 017 023 \a ; 022 001 \a 021 017 024 024 004
0010100 004 \a 020 \a Y \a 022 \a 022 004 005 037 0 \0 005 032
0010120 024 ! 001 004 004 & 001 004 033 ! 001 004 025 004 022 #
0010140 ! 002 ! 026 034 ! 002 022 \0 003 003 ! 001 004 \v
0010160 ! 002 ! 027 035 ! 002 022 \0 003 003 \n 024 027 004
0010200 021 030 ~ A : A n
0010220 y _ A R G ~ A ; 021 030
0010240 ~ A : A n y _ P O
0010260 P [ ] ; 021 005 ( a r g ) \0 \a : 022
0010300 001 \a 021 017 024 024 001 \a 022 002 037 \v \0 004 ! 002
0010320 ! 024 032 \0 003 \n 021 027
0010340 ~ A : A n y _ R E S T ;
0010360 021 005 ( a r g ) \0 021 \r
0010400 ~ A = > { 017 \a \t 022 001 \a 8 017
0010420 024 024 004 \a \a 006 \a 004 \a \0 \a 9 \a \n \a \r
0010440 \a = 004 004 037 8 \0 004 032 \0 003 022 031 ! 001
0010460 005 033 \0 003 003 # ! 001 \a 034 \0 003 \t 035
0010500 \0 003 022 % ! 001 006 \0 \t 036 004 036 005
0010520 \0 003 003 022 6 036 006 024 \0 025 \v 026 * \a Z
0010540 021 032 I l l e g a l a r g u m e
0010560 n t l i s t t a i l 036 021 006 (
0010600 a r g s ) \0 021 \n
0010620 } ; 021 027 ( n t e m p l a t e
0010640 d o c . c o d e ) \0 \a ( 022
0010660 006 \a " \a 030 \a 027 \a 017 \a @ \a \t 016 027 003
0010700 027 003 001 \a \0 004 \a 037 037 \0 005 024 & \0 004 (
0010720 002 & \0 004 026 & \0 005 ( 004 & \0 005 005 030
0010740 005 030 006 032 001 003 \v 017 \a @ 022 001 \a 026
0010760 017 024 024 004 \n \a 006 \a 004 \a 001 \a 001 \a 004 \a
0011000 001 \a \0 \a 001 \a 004 \a \0 003 037 A \0 \t 032
0011020 \0 003 022 > ! 002 023 033 \0 003 003 022 - 034 024
0011040 035 ! 002 022 036 004 \0 003 003 036 005 025 ! 001 004
0011060 036 006 \0 003 003 004 004 \n 036 \a 036 \b \0 003
0011100 ! 001 004 036 \t \0 003 003 \n \0 * 021 001 [
0011120 021 001 ] 021 005 ( l s t ) \0 017 \a \t 022
0011140 003 \a S \a R \a 8 017 027 003 027 003 004 016 \a 006
0011160 \a 004 \a 020 \a 020 \a \0 \a 020 \a \0 \a W \a 004
0011200 \a V \a U \a \b \a \0 \a 9 004 \v 037 201 005 \0
0011220 \v 032 002 003 022 6 ! 002 023 033 002 003 003 022
0011240 % ! 001 005 034 \0 024 004 035 001 025 004 036 004
0011260 002 003 \v ! 001 005 036 005 \0 026 004 001 036
0011300 006 002 003 \v ! 002 ! 027 036 \a 036 \b ! 001 001
0011320 003 003 \0 ! 002 \0 036 \t 030 005 036 \n ! 001 002
0011340 030 006 004 004 022 \ ! 001 002 016 q 036 \v 030 \a 030
0011360 \b ! 001 004 036 \f ! 001 001 003 003 ! 001 002 006 004
0011400 001 036 \r 002 003 022 ~ 030 \t 016 200 030 \n !
0011420 001 \0 \f \b 024 024 024 021 201 005 D e
0011440 f i n e P r i m i t i v e [ n a
0011460 m e : ~ S , n A r g s : ~
0011500 A , p r o c : ~ A P r i m ,
0011520 d o c : ~ S , e n v : e
0011540 n v , o p t i o n a l : ~ A
0011560 , d o t t e d : ~ A , d a
0011600 t a : C o n s [ M a k e F i x
0011620 n u m [ ~ A ] , e n v ] ] ; 020
0011640 ( 023 017 021 005 ~ A ~ A 021 004 T R U E
0011660 021 005 F A L S E 021 025 ( n a r g s
0011700 o p t i o n a l a r g s ) \0 023
0011720 023 021 027 ( n t e m p l a t e d
0011740 o c . c o d e ) \0 \0 \a 037 022
0011760 001 \a T 017 024 024 001 \a \b 002 037 \n \0 004 032 !
0012000 001 002 024 \0 \v 021 004 ~ A ~ % 021 006 ( l
0012020 i n e ) \0 \a 036 022 002 \a \f \a \v 017 027
0012040 002 027 002 002 \a 001 \a 025 002 037 022 \0 004 032 033
0012060 \0 001 004 ! 001 026 004 & 001 026 024 * 036 021 021
0012100 ( m o d u l e t y p e n a m e
0012120 ) \0 \a , 022 003 \a \f \a \v \a 024 017 027 002
0012140 027 002 001 \a 003 004 \b 037 @ \0 004 024 & \0 002
0012160 \0 022 023 032 \0 025 001 005 016 025 001 & \0
0012200 002 ! 001 ! 026 001 002 005 # ! 001 ! 027 003
0012220 # ! 001 ! 030 005 002 004 # ! 001 ! 030 006
0012240 002 004 # ! 001 ! 030 \a \t 017 021 001 . 021 '
0012260 T h e ~ A : P R O C [ a :
0012300 A n y ] R E T U R N S [ ~
0012320 A ] = { 021 026 W I T H
0012340 a S E L E C T F R O M 021 032
0012360 a : ~ A = > R
0012400 E T U R N [ a ] ; 021 )
0012420 E N D C A S E = > C o m
0012440 p l a i n [ a , " n o t a
0012460 ~ A " ] ; 021 006 } ; 021 021 (
0012500 m o d u l e t y p e n a m e )
0012520 \0 \0 \a 035 022 002 \a \f \a \v 017 027 002 027 002
0012540 002 \a 001 \a 025 002 037 022 \0 004 032 033 \0 001
0012560 004 ! 001 032 004 & 001 032 024 * 036 021 021 ( m o
0012600 d u l e t y p e n a m e ) \0
0012620 \a - 022 003 \a \f \a \v \a 024 017 027 002 027 002 001
0012640 \a 003 004 \b 037 @ \0 004 024 & \0 002 \0 022 023
0012660 032 \0 025 001 005 016 025 001 & \0 002 ! 001
0012700 ! 026 001 002 005 # ! 001 ! 027 003 # ! 001
0012720 ! 030 005 002 004 # ! 001 ! 030 006 002 004 #
0012740 ! 001 ! 030 \a \t 017 021 001 . 021 ' T h
0012760 e ~ A : P R O C [ a : A n
0013000 y ] R E T U R N S [ ~ A ]
0013020 = { 021 026 W I T H a
0013040 S E L E C T F R O M 021 037
0013060 a : R E F ~ A = >
0013100 R E T U R N [ a ^ ] ; 021 0
0013120 E N D C A S E = > C
0013140 o m p l a i n [ a , " i s n
0013160 o t a R E F ~ A " ] ; 021 006
0013200 } ; 021 021 ( m o d u l e
0013220 t y p e n a m e ) \0 \0 \a 033 022 003
0013240 \a \f \a \v \a A 017 027 003 027 003 002 \a 001 \a 025
0013260 002 037 024 \0 005 032 033 \0 001 002 005 ! 001
0013300 035 004 & 001 035 024 * 036 021 033 ( m o d u l
0013320 e t y p e n a m e n a m e -
0013340 l i s t ) \0 \a 1 022 002 \a O \a Q 017
0013360 024 024 002 \a 022 \a > 004 005 037 - \0 004 024 & \0
0013400 001 032 \0 003 & \0 001 033 \0 001 004 022 036
0013420 ! 001 ! 025 001 \0 \v ! 001 \b 026 003 # !
0013440 001 ! 027 001 \0 \v 017 021 020 a
0013460 [ ~ A ] _ $ ~ A ; 021 004 A t o
0013500 m 021 a [ ~ A ] _ A
0013520 t o m . M a k e A t o m [ " ~ A
0013540 " ] ; 021 003 ( x ) \0 \a 3 022 004 \a \f
0013560 \a \v \a A \a 024 017 027 003 027 003 002 \a 003 \a 016
0013600 004 \r 037 | \0 005 024 & \0 003 \0 022 023 032
0013620 \0 025 001 005 016 025 001 & \0 003 ! 001 ! 026
0013640 001 003 001 006 004 # ! 001 ! 027 001
0013660 003 005 # ! 001 ! 030 005 003 004 # 033 ! 001 037
0013700 002 004 # ! 001 ! 030 006 003 # ! 001 ! 030 \a
0013720 001 003 005 # ! 001 ! 030 \b 003 003 005
0013740 # ! 001 ! 030 \t 001 004 # ! 001 ! 030 \n 003
0013760 # ! 001 ! 030 \v 003 004 # ! 001 ! 030 \f \t
0014000 017 021 001 . 021 : S y m b o l F o
0014020 r ~ A : R E F A R R A Y ~
0014040 A O F S y m b o l = I n
0014060 i t S y m b o l F o r ~ A [ ] ;
0014100 021 ? I n i t S y m b o l F o
0014120 r ~ A : P R O C R E T U R N
0014140 S [ a : R E F A R R A Y
0014160 ~ A O F S y m b o l ] =
0014200 { 021 a _ N E W [ A
0014220 R R A Y ~ A O F S y m b o
0014240 l ] ; 021 006 } ; 021 ' T
0014260 h e ~ A : P R O C [ a : A
0014300 n y ] R E T U R N S [ ~ A ]
0014320 = { 021 026 F O R k :
0014340 ~ A I N ~ A D O 021 *
0014360 I F a = S y m b o l F
0014400 o r ~ A [ k ] T H E N R E T
0014420 U R N [ k ] ; 021 016
0014440 E N D L O O P ; 021 % E R
0014460 R O R C o m p l a i n [ a ,
0014500 " i s n o t a ~ A " ] ; 021
0014520 006 } ; 021 033 ( m o d u l e
0014540 t y p e n a m e n a m e - l
0014560 i s t ) \0 \a 2 022 002 \a P \a F 016 024
0014600 024 004 005 \a \r \a 023 \a 005 \a \b \a G 001 037 $
0014620 \0 005 032 001 003 022 022 033 \0 ! 001 004 004 #
0014640 016 036 034 035 ! 001 004 \0 001 006 004 # 036 004
0014660 ! 001 004 \t 021 \f ( f m t . r e s
0014700 t ) \0 \a 5 022 002 \a 026 \a B 017 027 002 027
0014720 002 004 \a \a \r \a 023 \a 004 \a 006 \a \0 \a 023 \a
0014740 \0 003 037 3 \0 003 032 \0 003 022 \n 024 * 033 034
0014760 \0 003 ! 001 004 004 # 035 036 004 \0 003 003 022
0015000 1 036 005 001 ! 001 004 004 # ! 001 " 036 006
0015020 \0 003 001 \n 025 * 017 036 021 \t ( l s t
0015040 s e p ) \0 \a 4 022 004 \a C \a 026 \a B
0015060 \a E 017 027 004 027 004 001 \a 023 001 037 031 \0 003 032
0015100 \0 ! 001 004 004 # ! 001 " 001 002 004 #
0015120 ! 001 ! 003 \t 021 & ( p r e f i x -
0015140 s t r i n g l s t s e p p
0015160 o s t f i x - s t r i n g ) \0
0015200 \a 032 022 002 \a D \a N 017 027 002 027 002 001 \a \b
0015220 002 037 020 \0 006 032 ! 001 003 024 \0 001 ! 001
0015240 \0 \f 005 021 034 ( r e q u i r e ~ S
0015260 ~ S " ~ A M X C o d e " ) ~
0015300 % 021 021 ( w o r l d c o m p o n
0015320 e n t ) \0 017 \a \t 022 002 \a M \a L 017
0015340 024 024 004 # \a K \a 006 \a 004 \a 002 \a 016 \a \0
0015360 \a 002 \a 016 \a \0 \a 002 \a 016 \a \0 \a 002 \a 005
0015400 \a \0 \a 002 \a 005 \a \0 \a 002 \a 005 \a \0 \a 002
0015420 \a 005 \a \0 \a 002 \a 005 \a \0 \a 002 \a 005 \a \0
0015440 \a 002 \a 005 \a \0 \a \b \a . 004 016 037 202 035 \0
0015460 004 032 \0 003 022 \n 024 * 033 \0 003 022 026 034
0015500 \0 003 016 027 025 & \0 001 035 001 026 004 022 0
0015520 036 004 ! 001 \t 036 005 \0 003 004 # 017 001 023 036
0015540 006 001 027 004 022 G 036 \a ! 001 \b 036 \b \0
0015560 003 004 # 017 001 023 036 \t 001 030 005 004 022 _ 036
0015600 \n ! 001 027 036 \v \0 003 004 # 017 001 023 036 \f
0015620 001 030 006 004 022 w 036 \r ! 001 $ 036 016 \0
0015640 003 004 # 017 001 023 036 017 001 030 \a 004 022 217 036
0015660 020 ! 001 030 036 021 \0 003 004 # 017 001 023 036 022
0015700 001 030 \b 004 022 247 036 023 ! 001 033 036 024 \0
0015720 003 004 # 017 001 023 036 025 001 030 \t 004 022 277 036
0015740 026 ! 001 036 036 027 \0 003 004 # 017 001 023 036 030
0015760 001 030 \n 004 022 327 036 031 ! 001 016 036 032 \0
0016000 003 004 # 017 001 023 036 033 001 030 \v 004 022 357 036
0016020 034 ! 001 \v 036 035 \0 003 004 # 017 001 023 036 036
0016040 001 030 \f 004 023 001 \b 036 037 ! 001 020 036
0016060 \0 003 004 # 017 001 023 036 ! ! 001 003 030 \r \0
0016100 005 # ! 001 % 036 " ! 001 001 003 \t 017 \a H 001
0016120 \a J 001 \a I 001 \a 037 001 \a 032 001 \a 036 001 \a
0016140 035 001 \a 033 001 \a ! 001 \a < 001 \a 021 004 ~
0016160 S ~ % 021 006 ( i t e m ) \0 021 016 R u
0016200 n ~ A M X C o d e ~ % 021 020 - -
0016220 ~ A M X C o d e . m e s a 021 \n
0016240 D I R E C T O R Y 021 002 , 021 001
0016260 ; 021 027 ~ A M X C o d e : C E D
0016300 A R P R O G R A M 021 \b I M P O
0016320 R T S 021 002 , 021 \0 021 024 = B E
0016340 G I N O P E N S c h e m e ;
0016360 021 Z S y m b o l F r o m R o
0016400 p e : P R O C [ r o p e :
0016420 R o p e . R O P E ] R E T U R
0016440 N S [ S y m b o l ] ~ { R
0016460 E T U R N [ A t o m . M a k e A
0016500 t o m [ r o p e ] ] } ; 021 D
0016520 R o p e F r o m S y m b o l :
0016540 P R O C [ S y m b o l ] R E
0016560 T U R N S [ R o p e . R O P E
0016600 ] ~ A t o m . G e t P N a m
0016620 e ; 021 o ~ A P r i m : P R
0016640 O C [ S E L F : P r i m i t
0016660 i v e , A R G 1 , A R G 2 , A
0016700 R G 3 : A n y , R E S T :
0016720 P r o p e r L i s t ] R E T U
0016740 R N S [ r e s u l t : A n y
0016760 _ u n s p e c i f i e d ]
0017000 = { 021 017 I N N E R : P R O C
0017020 = { 021 . P O P : P
0017040 R O C R E T U R N S [ a :
0017060 A n y _ u n d e f i n e d ]
0017100 = { 021 @ I F R
0017120 E S T # N I L T H E N { a
0017140 _ R E S T . c a r ; R E S T
0017160 _ N A R R O W [ R E S T . c
0017200 d r ] } } ; 021 # D A T A
0017220 : P a i r ~ N A R R O W [
0017240 S E L F . d a t a ] ; 021 (
0017260 e n v : E n v i r o n m e n
0017300 t ~ N A R R O W [ D A T A .
0017320 c d r ] ; 021 / S E L E C
0017340 T N A T [ N A R R O W [ D A T
0017360 A . c a r , R E F I N T ] ^
0017400 ] F R O M 021 026 E N
0017420 D C A S E = > E R R O R 021 016
0017440 } ; I N N E R [ ! 021 006
0017460 ] ; 021 006 } ; 021 004
0017500 021 % ~ A I n i t :
0017520 P R O C [ e n v : E n v i r
0017540 o n m e n t ] = { 021 006
0017560 } ; 021 004 021 022 A n o n
0017600 y m o u s f u n c t i o n 022 001
0017620 \a ? 017 024 024 001 \a 003 002 037 \v \0 004 ! 001 !
0017640 032 024 \0 004 \t 021 002 021 \r ( c o d
0017660 e - s t r i n g ) \0 021 027 R e
0017700 g i s t e r I n i t [ ~ A I n i
0017720 t ] ; 021 004 E N D . 021 \n ( b a s e
0017740 n a m e ) \0 \a # 021 002 ( ) \0 \n
0017756