$ od -c -N 50000 [phylum]<LISPUSERS>Lyric>mesatolisp!1
0000000 ( D E F I N E - F I L E - I N F
0000020 O 247 P A C K A G E " I N T E
0000040 R L I S P " 247 R E A D T A B L
0000060 E " I N T E R L I S P " 247 B
0000100 A S E 1 0 ) \r 006 001 ( F I L E C
0000120 R E A T E D " 1 0 - A p r - 8
0000140 7 1 8 : 0 7 : 5 2 " 006 004 { E
0000160 R I S } < L I S P U S E R S > L
0000200 Y R I C > M E S A T O L I S P .
0000220 ; 4 006 001 2 8 5 4 1 3 \r \r
0000240 c h a n g e s t o % :
0000260 ( V A R S M E S A T O L I
0000300 S P C O M S ) \r
0000320 ( F N S
0000340 S C A N . S T A R T S C A N
0000360 . T O K E N P A R S E . C E D
0000400 A R P A R S E . B I N P A R
0000420 S E . F I L E ) \r \r
0000440 p r e v i o u s d a t e % :
0000460 " 9 - A p r - 8 7 1 2 : 2 5
0000500 : 1 2 " { E R I S } < L I S P
0000520 U S E R S > L Y R I C > M E S A
0000540 T O L I S P . ; 3 ) \r \r \r ( *
0000560 " \r C o p y r i g h t ( c )
0000600 1 9 8 5 , 1 9 8 7 b y X e
0000620 r o x C o r p o r a t i o n .
0000640 A l l r i g h t s r e s
0000660 e r v e d . \r " ) \r \r ( P R E T
0000700 T Y C O M P R I N T M E S A T
0000720 O L I S P C O M S ) \r \r ( R P A
0000740 Q Q 006 002 M E S A T O L I S P C
0000760 O M S 006 001 \r [
0001000 \r 006 006 ( *
0001020 ; ; " M E S A T O L I S P
0001040 - - B y K e l l y R o a c
0001060 h . L y r i c i z e d b y
0001100 L . M a s i n t e r " ) 006 001
0001120 \r \r ( C O M S
0001140 \r \r 006 006 ( * ; ; ; " S C A N
0001160 : r e a d i n g m e s a / c
0001200 e d a r f i l e s " ) 006 001 \r \r
0001220 [ I
0001240 N I T V A R S ( S C A N . S T
0001260 R I N G ( C L : M A K E - A R
0001300 R A Y 2 5 6 : I N I T I A L
0001320 - E L E M E N T ' # \ A : E
0001340 L E M E N T - T Y P E \r
0001360
*
0001420 ' C L : C H A R
0001440 A C T E R : A D J U S T A B L
0001460 E T : F I L L - P O I N T E
0001500 R 0 ) ) \r
0001520 ( S C A N
0001540 . C H A R N I L ) \r
0001560
0001600 ( S C A N . Q D O T N I L ) \r
0001620
0001640 ( S C A N . B O T H .
0001660 R E S E R V E D ' ( ! % #
0001700 % ( % ) * + % , - %
0001720 . | . . | / % : ; <
0001740 < = = = > > > = @ A
0001760 B S \r
0002000
*
0002040 A L L A N D A N Y A P P
0002060 L Y A R R A Y B A S E B E
0002100 G I N B R O A D C A S T C O
0002120 D E \r
0002140
*
0002200 C O M P U T E D C O N T I N
0002220 U E D E C R E A S I N G D E
0002240 F I N I T I O N S D E P E N D
0002260 E N T \r
0002300
*
0002340 D E S C R I P T O R D I R
0002360 E C T O R Y D O E L S E E
0002400 N A B L E E N D E N D C A S
0002420 E E N D L O O P \r
0002440
*
0002500 E N T R Y E R
0002520 R O R E X I T E X I T S E
0002540 X P O R T S F I N I S H E D
0002560 F I R S T F O R F O R K \r
0002600
*
0002640 F R A
0002660 M E F R E E F R O M G O
0002700 G O T O I F I M P O R T S
0002720 I N I N L I N E I N T E R N
0002740 A L \r
0002760
*
0003020 I S T Y P E J O I N L A S
0003040 T L E N G T H L O C K S L
0003060 O N G L O O P L O O P H O L
0003100 E M A C H I N E \r
0003120
*
0003160 M A X M I N
0003200 M O D M O N I T O R M O N I
0003220 T O R E D N A R R O W N E W
0003240 N I L L N O T N O T I F Y
0003260 \r
0003300
0003320 N
0003340 U L L O F O P E N O R O
0003360 R D O R D E R E D O V E R L
0003400 A I D P A C K E D P O I N T
0003420 E R P O R T \r
0003440
*
0003500 P R E D P R I V A
0003520 T E P R O C P R O C E D U R
0003540 E P R O C E S S P R O G R A
0003560 M P U B L I C \r
0003600
*
0003640 R E A D O N L Y
0003660 R E C O R D R E J E C T R E
0003700 L A T I V E R E P E A T R E
0003720 S T A R T R E S U M E \r
0003740
*
0004000 R E T R Y
0004020 R E T U R N R E T U R N S
0004040 S E L E C T S E Q U E N C E
0004060 S H A R E S S I G N A L S I
0004100 Z E \r
0004120
*
0004160 S T A R T S T A T E S T O
0004200 P S U C C T H E N T H R O
0004220 U G H T O T R A N S F E R
0004240 T R A S H \r
0004260
*
0004320 T Y P E U N C O U N T
0004340 E D U N T I L U S I N G V
0004360 A L V A R W A I T W H I L
0004400 E W I T H Z O N E \r
0004420
*
0004460 % [ % ]
0004500 ^ _ { % | } ~ ) ) \r
0004520
0004540 ( S C A N . C E D A R .
0004560 R E S E R V E D ' ( C E D A R
0004600 C H E C K E D C O N S L I
0004620 S T P A I N T E D R E F S
0004640 A F E T R U S T E D \r
0004660
*
0004720 U
0004740 N C H E C K E D U N S A F E )
0004760 ) \r
0005000 ( S C A N . M E S
0005020 A . R E S E R V E D ' ( R E S
0005040 I D E N T ] \r
0005060 ( F N S S C A N . I
0005100 N I T S C A N . S T A R T S
0005120 C A N . T E S T S C A N . T E
0005140 S T F I L E S C A N . O P E N
0005160 S T R E A M S C A N . T O K E
0005200 N \r
0005220 S C A N . N U M B E
0005240 R S C A N . A C C E P T S C
0005260 A N . A P P E N D D E C I M A L
0005300 S C A N . A P P E N D O C T A
0005320 L S C A N . A P P E N D H E X
0005340 \r
0005360 S C A N . A P P E N D
0005400 T O S C A L E S C A N . V A L
0005420 I D F R A C T I O N S C A N .
0005440 D E C I M A L S C A N . O C T
0005460 A L S C A N . O C T A L C H A
0005500 R \r
0005520 S C A N . H E X S
0005540 C A N . F L O A T I N G S C A
0005560 N . E S C A P E ) \r
0005600 ( P ( S C A N
0005620 . I N I T ) ) ) \r
0005640 ( C O M S
0005660
*
0005720 006 006 ( * ; " P A
0005740 R S E * " ) 006 001 \r
0005760 [ I N I T V A R
0006000 S ( P A R S E . F I L E L S T
0006020 N I L ) \r
0006040 ( P A R S
0006060 E . S T R E A M N I L ) \r
0006100
0006120 ( P A R S E . F I L E C O
0006140 M S N I L ) \r
0006160 ( P A
0006200 R S E . L A N G U A G E N I L
0006220 ) \r
0006240 ( P A R S E . D I
0006260 R L S T N I L ) \r
0006300 (
0006320 P A R S E . C L A S S N I L )
0006340 \r
0006360 ( P A R S E . A T O
0006400 M N I L ) \r
0006420 ( P A R
0006440 S E . C L A S S 2 N I L ) \r
0006460
0006500 ( P A R S E . A T O M 2
0006520 N I L ) \r
0006540 ( P A R S
0006560 E . C A S E H E A D . F I R S T
0006600 ' ( W I T H S E L E C T ) )
0006620 \r
0006640 ( P A R S E . D E F
0006660 H E A D . F I R S T ' ( D E F
0006700 I N I T I O N S ) ) \r
0006720
0006740 ( P A R S E . D E P E N D E N T
0006760 . F I R S T ' ( M A C H I N E
0007000 ) ) \r
0007020 ( P A R S E . D
0007040 O T E S T . F I R S T ' ( U N
0007060 T I L W H I L E ) ) \r
0007100
0007120 ( P A R S E . F O R C L A U S
0007140 E . F I R S T ' ( F O R T H
0007160 R O U G H ) ) \r
0007200 ( P A
0007220 R S E . H E A P . F I R S T '
0007240 ( U N C O U N T E D ) ) \r
0007260
0007300 ( P A R S E . I N T E R V A
0007320 L . F I R S T ' ( % ( % [ )
0007340 ) \r
0007360 ( P A R S E . O P
0007400 T R E L A T I O N . F I R S T
0007420 ' ( % # < < = = > > =
0007440 I N N O T ~ ) ) \r
0007460
0007500 ( P A R S E . O R D E R E D .
0007520 F I R S T ' ( O R D E R E D )
0007540 ) \r
0007560 ( P A R S E . O R
0007600 D E R L I S T . F O L L O W '
0007620 ( ! ; E N D % ] } ) ) \r
0007640
0007660 ( P A R S E . P A C K
0007700 E D . F I R S T ' ( P A C K E
0007720 D ) ) \r
0007740 ( P A R S E .
0007760 P R E F I X O P . F I R S T '
0010000 ( A B S B A S E L E N G T H
0010020 L O N G M A X M I N O R
0010040 D P R E D S U C C ) ) \r
0010060
0010100 ( P A R S E . P R O G H E
0010120 A D . F I R S T ' ( M O N I T
0010140 O R P R O G R A M R E S I D
0010160 E N T ) ) \r
0010200 ( P A R S
0010220 E . Q U A L I F I E R . F I R S
0010240 T ' ( % . % [ ^ ) ) \r
0010260
0010300 ( P A R S E . R A N G E .
0010320 F O L L O W ' ( ! % ) % ,
0010340 | . . | % : ; = > A N
0010360 D D O E L S E E N D E N
0010400 D C A S E E N D L O O P E X
0010420 I T S \r
0010440
*
0010500 F I N I S H E D F R O M
0010520 N U L L O R R E P E A T S
0010540 E L E C T T H E N T R A S H
0010560 U N T I L \r
0010600
*
0010640 W H I L E % ] } )
0010660 ) \r
0010700 ( P A R S E . T R
0010720 A N S F E R . F I R S T ' ( B
0010740 R O A D C A S T E R R O R J
0010760 O I N N O T I F Y R E S T A
0011000 R T R E T U R N S I G N A L
0011020 S T A R T \r
0011040
*
0011100 T R A N S
0011120 F E R ) ) \r
0011140 ( P A R S
0011160 E . T R A N S F E R M O D E . F
0011200 I R S T ' ( E R R O R P O R
0011220 T P R O C E S S P R O G R A
0011240 M S I G N A L ) ) \r
0011260
0011300 ( P A R S E . T R A N S F E R O
0011320 P . F I R S T ' ( E R R O R
0011340 F O R K J O I N N E W S I
0011360 G N A L S T A R T ) ) \r
0011400
0011420 ( P A R S E . T Y P E C O N
0011440 S . F I R S T ' ( % ( A R R
0011460 A Y B A S E D E S C R I P T
0011500 O R E R R O R F R A M E L
0011520 O N G M A C H I N E \r
0011540
*
0011600 M O N
0011620 I T O R E D O R D E R E D P
0011640 A C K E D P O I N T E R P O
0011660 R T P R O C P O R C E D U R
0011700 E \r
0011720
*
0011760 P R O C E S S P R O G R
0012000 A M R E C O R D S I G N A L
0012020 U N C O U N T E D V A R %
0012040 [ { ) ) \r
0012060 ( P A R S
0012100 E . T Y P E O P . F I R S T '
0012120 ( F I R S T L A S T N I L L
0012140 ) ) \r
0012160 ( P A R S E . V
0012200 A R I A N T P A R T . F I R S T
0012220 ' ( P A C K E D S E L E C T
0012240 S E Q U E N C E ) ) \r
0012260
0012300 ( P A R S E . C A T C H L I S
0012320 T . F O L L O W ' ( E N D %
0012340 ] } ) ) \r
0012360 ( P A R S
0012400 E . C O N T R O L I D . F O L L
0012420 O W ' ( D E C R E A S I N G
0012440 I N _ ) ) \r
0012460 ( P A R
0012500 S E . D E C L I S T . F O L L O
0012520 W ' ( ; E N D } ) ) \r
0012540
0012560 ( P A R S E . D E F A U L
0012600 T O P T . F O L L O W ' ( % ,
0012620 ; E N D % ] } ) ) \r
0012640
0012660 ( P A R S E . E X I T L I
0012700 S T . F O L L O W ' ( E N D
0012720 E N D L O O P F I N I S H E D
0012740 } ) ) \r
0012760 ( P A R S E
0013000 . M O D U L E L I S T . F O L L
0013020 O W ' ( I E Q P E X P O R T
0013040 S S H A R E S ) ) \r
0013060
0013100 ( P A R S E . O P T A R G S . F
0013120 O L L O W ' ( ; E L S E E
0013140 N D E N D C A S E E N D L O
0013160 O P E X I T S F I N I S H E
0013200 D R E P E A T % ] } ) ) \r
0013220
0013240 ( P A R S E . O P T E
0013260 X P . F O L L O W ' ( ! % ,
0013300 ; E N D F R O M % ] }
0013320 ) ) \r
0013340 ( P A R S E . S
0013360 C O P E . F O L L O W ' ( E N
0013400 D E X I T S } ) ) \r
0013420
0013440 ( P A R S E . S T A T E M E N
0013460 T L I S T . F O L L O W ' ( E
0013500 N D E N D L O O P E X I T S
0013520 R E P E A T } ) ) \r
0013540
0013560 ( P A R S E . T Y P E E X P .
0013600 F O L L O W ' ( ! % , ;
0013620 = = > D E C R E A S I N G
0013640 E N D E X P O R T S F R O M
0013660 I M P O R T S I N O F \r
0013700
*
0013740 S
0013760 H A R E S % ] _ } ) ) \r
0014000
0014020 ( P A R S E . P R E D E
0014040 F I N E D . T Y P E S ' ( A T
0014060 O M B O O L B O O L E A N
0014100 C A R D I N A L C H A R C H
0014120 A R A C T E R C O N D I T I O
0014140 N \r
0014160
*
0014220 I N T I N T E G
0014240 E R M D S Z o n e M O N I T
0014260 O R L O C K N A T R E A L
0014300 S T R I N G \r
0014320
*
0014360 S t r i
0014400 n g B o d y U N S P E C I F I
0014420 E D W O R D ) ) \r
0014440 (
0014460 P A R S E . R E L O P S ( L I
0014500 S T ' = ' % # ' < ' < =
0014520 ' > ' > = ) ) \r
0014540 (
0014560 P A R S E . A D D O P S ( L I
0014600 S T ' + ' - ) ) \r
0014620
0014640 ( P A R S E . M U L T O P S (
0014660 L I S T ' * ' / ' M O D )
0014700 ) \r
0014720 ( P A R S E . T R
0014740 A N S F E R O P S ' ( S I G N
0014760 A L E R R O R S T A R T J
0015000 O I N N E W F O R K ) ) \r
0015020
0015040 ( P A R S E . P R E F I
0015060 X O P S ' ( L O N G A B S
0015100 P R E D S U C C O R D M I
0015120 N M A X B A S E L E N G T
0015140 H ) ) \r
0015160 ( P A R S E .
0015200 T Y P E O P S ' ( F I R S T
0015220 L A S T N I L L ) ) \r
0015240
0015260 ( P A R S E . N O T S ' ( ~
0015300 N O T ] \r
0015320 ( R E C O R D S P A R
0015340 S E R S T A T E M I N T E R V
0015360 A L M R A N G E M R E L A T
0015400 I V E M P A I N T E D M E N
0015420 U M E R A T E D M R E C O R D
0015440 M V A R \r
0015460 M A R R
0015500 A Y M D E S C R I P T O R M
0015520 F R A M E M R E F M L I S T
0015540 P A I R I T E M D E F A U L
0015560 T T Y P E L I S T T Y P E I
0015600 T E M M P O I N T E R \r
0015620
0015640 C A S E H E A D B I N D
0015660 I T E M K E Y I T E M F I E
0015700 L D L I S T P A I R L I S T
0015720 O R D E R L I S T K E Y L I S
0015740 T E X P L I S T ) \r
0015760 ( F N S P A
0016000 R S E . M E S A P A R S E . C
0016020 E D A R P A R S E . F I L E
0016040 P A R S E . G E T . S T A T E
0016060 P A R S E . S E T . S T A T E
0016100 P A R S E . B I N \r
0016120 P A
0016140 R S E . V A R I D P A R S E .
0016160 S M U R F P A R S E . T H I S
0016200 I S . M E S A P A R S E . T H
0016220 I S I S . C E D A R P A R S E
0016240 . M O D U L E \r
0016260 P A R S
0016300 E . I N C L U D E I T E M P A
0016320 R S E . I N C L U D E C H E C K
0016340 P A R S E . S E A D I R T P
0016360 A R S E . P R O G H E A D P A
0016400 R S E . R E S I D E N T \r
0016420
0016440 P A R S E . S A F E P A R S
0016460 E . D E F H E A D P A R S E .
0016500 T I L D E P A R S E . D E F I
0016520 N I T I O N S P A R S E . D E
0016540 F B O D Y P A R S E . L O C K
0016560 S \r
0016600 P A R S E . L A M B
0016620 D A P A R S E . M O D U L E I
0016640 T E M P A R S E . D E C L A R
0016660 A T I O N P A R S E . P U B L
0016700 I C P A R S E . E N T R Y \r
0016720
0016740 P A R S E . I D L I S T
0016760 P A R S E . I D E N T L I S T
0017000 P A R S E . P O S I T I O N P
0017020 A R S E . O P T B I T S P A R
0017040 S E . I N T E R V A L \r
0017060
0017100 P A R S E . T Y P E E X P . H E
0017120 R E P A R S E . T Y P E E X P
0017140 P A R S E . R A N G E P A R
0017160 S E . T Y P E A P P L P A R S
0017200 E . T Y P E A P P L . C O N T
0017220 \r
0017240 P A R S E . T Y P E I D
0017260 P A R S E . T Y P E I D . C O
0017300 N T P A R S E . T Y P E C O N
0017320 S P A R S E . T Y P E C O N S
0017340 1 P A R S E . T Y P E C O N S
0017360 . C O N T \r
0017400 P A R S E .
0017420 T Y P E C O N S . R A N G E P
0017440 A R S E . T Y P E C O N S . R E
0017460 L A T I V E P A R S E . T Y P
0017500 E C O N S . P A I N T E D \r
0017520
0017540 P A R S E . T Y P E C O N S
0017560 2 P A R S E . T Y P E C O N S
0017600 . I N T E R V A L P A R S E .
0017620 T Y P E C O N S . D E P E N D E
0017640 N T \r
0017660 P A R S E . T Y P
0017700 E C O N S . E N U M E R A T E D
0017720 P A R S E . T Y P E C O N S .
0017740 R E C O R D P A R S E . T Y P
0017760 E C O N S . O R D E R E D \r
0020000
0020020 P A R S E . T Y P E C O N S
0020040 . V A R P A R S E . T Y P E C
0020060 O N S . P A C K E D P A R S E
0020100 . T Y P E C O N S . D E S C R I
0020120 P T O R \r
0020140 P A R S E . T
0020160 Y P E C O N S . S A F E P A R
0020200 S E . T Y P E C O N S . H E A P
0020220 P A R S E . T Y P E C O N S .
0020240 L O N G P A R S E . T Y P E C
0020260 O N S . F R A M E \r
0020300 P A
0020320 R S E . T Y P E C O N S . R E F
0020340 P A R S E . T Y P E C O N S .
0020360 L I S T P A R S E . I D E N T
0020400 P A R S E . E L E M E N T P
0020420 A R S E . M O N I T O R E D \r
0020440
0020460 P A R S E . D E P E N D E
0020500 N T P A R S E . R E C L I S T
0020520 P A R S E . V A R I A N T P A
0020540 I R P A R S E . P A I R I T E
0020560 M P A R S E . D E F A U L T O
0020600 P T \r
0020620 P A R S E . V A R
0020640 I A N T P A R T P A R S E . V
0020660 C A S E H E A D P A R S E . T
0020700 A G T Y P E P A R S E . V A R
0020720 I A N T I T E M P A R S E . T
0020740 Y P E L I S T \r
0020760 P A R S
0021000 E . T Y P E I T E M P A R S E
0021020 . P O I N T E R T Y P E P A R
0021040 S E . T R A N S F E R M O D E
0021060 P A R S E . I N I T I A L I Z A
0021100 T I O N \r
0021120 P A R S E . I
0021140 N I T V A L U E P A R S E . C
0021160 H E C K E D P A R S E . C O D
0021200 E L I S T P A R S E . S T A T
0021220 E M E N T P A R S E . S T A T
0021240 E M E N T 1 \r
0021260 P A R S E
0021300 . S T A T E M E N T 2 P A R S
0021320 E . S T A T E M E N T . C A S E
0021340 H E A D P A R S E . S T A T E
0021360 M E N T . F O R C L A U S E \r
0021400
0021420 P A R S E . S T A T E M E
0021440 N T . R E T U R N P A R S E .
0021460 S T A T E M E N T . T R A N S F
0021500 E R P A R S E . S T A T E M E
0021520 N T . L B R A C K E T \r
0021540
0021560 P A R S E . S T A T E M E N T .
0021600 I F P A R S E . B L O C K P
0021620 A R S E . S C O P E P A R S E
0021640 . B I N D I T E M P A R S E .
0021660 E X I T S \r
0021700 P A R S E .
0021720 C A S E S T M T I T E M P A R
0021740 S E . C A S E E X P I T E M P
0021760 A R S E . E X I T I T E M P A
0022000 R S E . C A S E T E S T P A R
0022020 S E . C O N T R O L I D \r
0022040
0022060 P A R S E . F O R C L A U S E
0022100 P A R S E . D I R E C T I O N
0022120 P A R S E . D O T E S T P A
0022140 R S E . D O E X I T P A R S E
0022160 . E N A B L E S \r
0022200 P A R
0022220 S E . C A T C H L I S T P A R
0022240 S E . C A T C H C A S E P A R
0022260 S E . O P T A R G S P A R S E
0022300 . T R A N S F E R P A R S E .
0022320 K E Y I T E M \r
0022340 P A R S
0022360 E . O P T E X P P A R S E . E
0022400 X P P A R S E . E X P 1 P A
0022420 R S E . E X P 2 P A R S E . E
0022440 X P . T R A N S F E R O P P A
0022460 R S E . E X P . I F \r
0022500 P
0022520 A R S E . E X P . C A S E H E A
0022540 D P A R S E . E X P . L H S
0022560 P A R S E . E X P . L B R A C K
0022600 E T P A R S E . E X P . E R R
0022620 O R \r
0022640 P A R S E . E X P
0022660 . D I S J U N C T P A R S E .
0022700 D I S J U N C T P A R S E . C
0022720 O N J U N C T P A R S E . N E
0022740 G A T I O N P A R S E . R E L
0022760 A T I O N \r
0023000 P A R S E .
0023020 S U M P A R S E . P R O D U C
0023040 T P A R S E . O P T R E L A T
0023060 I O N P A R S E . R E L A T I
0023100 O N T A I L P A R S E . R E L
0023120 O P \r
0023140 P A R S E . A D D
0023160 O P P A R S E . M U L T O P
0023200 P A R S E . F A C T O R P A R
0023220 S E . P R I M A R Y P A R S E
0023240 . A T O M P A R S E . P R I M
0023260 A R Y . N I L \r
0023300 P A R S
0023320 E . P R I M A R Y . L B R A C K
0023340 E T P A R S E . P R I M A R Y
0023360 . P R E F I X O P P A R S E .
0023400 P R I M A R Y . V A L P A R S
0023420 E . P R I M A R Y . A L L \r
0023440
0023460 P A R S E . P R I M A R Y .
0023500 N E W P A R S E . P R I M A R
0023520 Y . T Y P E O P P A R S E . P
0023540 R I M A R Y . S I Z E P A R S
0023560 E . P R I M A R Y . I S T Y P E
0023600 \r
0023620 P A R S E . P R I M A
0023640 R Y . A T P A R S E . P R I M
0023660 A R Y . D E S C R I P T O R P
0023700 A R S E . P R I M A R Y . C O N
0023720 S P A R S E . P R I M A R Y .
0023740 L I S T \r
0023760 P A R S E . P
0024000 R I M A R Y . L H S P A R S E
0024020 . P R I M A R Y . L H S . N E W
0024040 P A R S E . P R I M A R Y . L
0024060 H S . C O N S \r
0024100 P A R S
0024120 E . P R I M A R Y . L H S . L I
0024140 S T P A R S E . Q U A L I F I
0024160 E R P A R S E . L H S P A R
0024200 S E . Q U A L I F I E R . H E R
0024220 E \r
0024240 P A R S E . O P T C
0024260 A T C H P A R S E . T R A N S
0024300 F E R O P P A R S E . P R E F
0024320 I X O P P A R S E . T Y P E O
0024340 P P A R S E . D E S C L I S T
0024360 \r
0024400 P A R S E . D I R E C
0024420 T O R Y P A R S E . I M P O R
0024440 T S P A R S E . P O I N T E R
0024460 P R E F I X P A R S E . E X P
0024500 O R T S P A R S E . F I E L D
0024520 L I S T \r
0024540 P A R S E . U
0024560 S I N G P A R S E . C A T C H
0024600 H E A D P A R S E . D E C L I
0024620 S T P A R S E . P A I R L I S
0024640 T P A R S E . V A R I A N T L
0024660 I S T \r
0024700 P A R S E . O R
0024720 D E R L I S T P A R S E . L H
0024740 S L I S T P A R S E . I N C L
0024760 U D E L I S T P A R S E . M O
0025000 D U L E L I S T P A R S E . E
0025020 L E M E N T L I S T \r
0025040 P
0025060 A R S E . B I N D L I S T P A
0025100 R S E . S T A T E M E N T L I S
0025120 T P A R S E . C A S E S T M T
0025140 L I S T P A R S E . C A S E L
0025160 A B E L \r
0025200 P A R S E . E
0025220 X I T L I S T P A R S E . K E
0025240 Y L I S T P A R S E . C A S E
0025260 E X P L I S T P A R S E . E X
0025300 P L I S T P A R S E . O P E N
0025320 \r
0025340 P A R S E . C L A S S
0025360 P A R S E . C A S E H E A D
0025400 P A R S E . R E A D O N L Y P
0025420 A R S E . O R D E R E D P A R
0025440 S E . B A S E P A R S E . P A
0025460 C K E D \r
0025500 P A R S E . H
0025520 E A P P A R S E . I N L I N E
0025540 P A R S E . A R G U M E N T S
0025560 P A R S E . I N T E R F A C E
0025600 P A R S E . S H A R E S P A
0025620 R S E . D E F A U L T \r
0025640
0025660 P A R S E . O P T S I Z E P A
0025700 R S E . B O U N D S P A R S E
0025720 . L E N G T H P A R S E . I N
0025740 D E X T Y P E P A R S E . E L
0025760 S E P A R T \r
0026000 P A R S E
0026020 . O T H E R P A R T P A R S E
0026040 . F R E E P A R S E . C A T C
0026060 H A N Y P A R S E . N O T P
0026100 A R S E . N E W P A R S E . O
0026120 P T T Y P E \r
0026140 P A R S E
0026160 . A R G L I S T P A R S E . R
0026200 E T U R N L I S T ) ) \r
0026220 ( C O M S \r
0026240 \r
0026260 006 006 ( * ; ; " B U I L D "
0026300 ) 006 001 \r \r
0026320 [ I N I T V A R S ( B U
0026340 I L D . N E X T . S C O P E N
0026360 I L ) \r
0026400 ( B U I L D .
0026420 C U R R E N T . S C O P E N I
0026440 L ) \r
0026460 ( B U I L D . S
0026500 C O P E . S T A C K N I L ) \r
0026520
0026540 ( B U I L D . P R E F
0026560 I X N I L ) \r
0026600 ( B U
0026620 I L D . F I L E C O M S N I L
0026640 ) \r
0026660 ( B U I L D . B O
0026700 O L E A N . F N S ' ( A N D
0026720 O R N O T t y p e ? I G R
0026740 E A T E R P I L E S S P I G
0026760 E Q I L E Q I E Q P Z E R
0027000 O P \r
0027020
*
0027060 M I N U S P E V E N P O
0027100 D D P F G R E A T E R P F L
0027120 E S S P F E Q P G R E A T E
0027140 R P L E S S P \r
0027160
*
0027220 G E Q L E Q )
0027240 ) \r
0027260 ( B U I L D . C A
0027300 R D I N A L . F N S ' ( A D D
0027320 1 C H A R C O D E F I X G
0027340 C D I D I F F E R E N C E I
0027360 M A X I M I N I M I N U S
0027400 I M O D \r
0027420
*
0027460 I P L U S I Q U O
0027500 T I E N T I R E M A I N D E R
0027520 I T I M E S L O G A N D L
0027540 O G N O T L O G O R \r
0027560
*
0027620 L O G
0027640 X O R N T H C H A R C O D E
0027660 S U B 1 ) ) \r
0027700 ( B U I
0027720 L D . M I X E D . F N S ' ( A
0027740 B S D I F F E R E N C E E X
0027760 P T M A X M I N M I N U S
0030000 M O D P L U S Q U O T I E
0030020 N T R E M A I N D E R \r
0030040
*
0030100 T I M E S )
0030120 ) \r
0030140 ( B U I L D . R E
0030160 A L . F N S ' ( A N T I L O G
0030200 A R C C O S A R C S I N A
0030220 R C T A N A R C T A N 2 C O
0030240 S F D I F F E R E N C E F L
0030260 O A T \r
0030300
*
0030340 F M A X F M I N F M I N
0030360 U S F M O D F P L U S F Q
0030400 U O T I E N T F R E M A I N D
0030420 E R F T I M E S \r
0030440
*
0030500 L O G S I N
0030520 S Q R T T A N ) ) \r
0030540
0030560 ( B U I L D . Q U A L I F Y . W
0030600 O R D S ' ( F R E E N E W
0030620 S I Z E ) ) \r
0030640 [ B U I
0030660 L D . C A R D I N A L . A R I T
0030700 H O P . A L I S T ( L I S T
0030720 ( C O N S ' = ' I E Q P ) \r
0030740
*
0031020 ( C O N S '
0031040 % # ' I E Q P ) \r
0031060
*
0031140 ( C O N S ' < ' I L E
0031160 S S P ) \r
0031200
*
0031240 ( C
0031260 O N S ' < = ' I L E Q ) \r
0031300
*
0031360 ( C O N S ' >
0031400 ' I G R E A T E R P ) \r
0031420
*
0031500 ( C O N S ' > =
0031520 ' I G E Q ) \r
0031540
*
0031620 ( C O N S ' + ' I P L U S )
0031640 \r
0031660
*
0031720 ( C O N S
0031740 ' - ' I D I F F E R E N C E )
0031760 \r
0032000
*
0032040 ( C O N S
0032060 ' * ' I T I M E S ) \r
0032100
*
0032160 ( C O N S ' / ' I
0032200 Q U O T I E N T ) \r
0032220
*
0032300 ( C O N S ' 0 - ' I M
0032320 I N U S ) \r
0032340
*
0032400 (
0032420 C O N S ' M A X ' I M A X )
0032440 \r
0032460
*
0032520 ( C O N S
0032540 ' M I N ' I M I N ) \r
0032560
*
0032640 ( C O N S ' M O D
0032660 ' I M O D ] \r
0032700 [ B U I
0032720 L D . M I X E D . A R I T H O P
0032740 . A L I S T ( L I S T ( C O
0032760 N S ' = ' E Q P ) \r
0033000
*
0033060 ( C O N S ' % # ' E Q P
0033100 ) \r
0033120
*
0033160 ( C O N S ' <
0033200 ' L E S S P ) \r
0033220
*
0033260 (
0033300 C O N S ' < = ' G R E A T E
0033320 R P ) \r
0033340
*
0033400 ( C O N S
0033420 ' > ' G R E A T E R P ) \r
0033440
*
0033520 ( C O N S ' > = ' L
0033540 E S S P ) \r
0033560
*
0033620 ( C O N
0033640 S ' + ' P L U S ) \r
0033660
*
0033740 ( C O N S ' - ' D I F F
0033760 E R E N C E ) \r
0034000
*
0034040 ( C
0034060 O N S ' * ' T I M E S ) \r
0034100
*
0034160 ( C O N S ' / ' Q
0034200 U O T I E N T ) \r
0034220
*
0034260 (
0034300 C O N S ' 0 - ' M I N U S )
0034320 \r
0034340
*
0034400 ( C O N S ' M A
0034420 X ' M A X ) \r
0034440
*
0034500 ( C
0034520 O N S ' M I N ' M I N ) \r
0034540
*
0034620 ( C O N S ' M O D
0034640 ' I M O D ] \r
0034660 [ B U I
0034700 L D . R E A L . A R I T H O P .
0034720 A L I S T ( L I S T ( C O N
0034740 S ' = ' F E Q P ) \r
0034760
*
0035040 ( C O N S ' % # ' F E Q P
0035060 ) \r
0035100
*
0035140 ( C O N S ' <
0035160 ' F L E S S P ) \r
0035200
*
0035240 ( C
0035260 O N S ' < = ' F G R E A T E
0035300 R P ) \r
0035320
*
0035360 ( C O N S '
0035400 > ' F G R E A T E R P ) \r
0035420
*
0035500 ( C O N S ' > = ' F L
0035520 E S S P ) \r
0035540
*
0035600 ( C O N S
0035620 ' + ' F P L U S ) \r
0035640
*
0035720 ( C O N S ' - ' F D I F F
0035740 E R E N C E ) \r
0035760
*
0036020 ( C O
0036040 N S ' * ' F T I M E S ) \r
0036060
*
0036140 ( C O N S ' / ' F Q
0036160 U O T I E N T ) \r
0036200
*
0036240 ( C
0036260 O N S ' 0 - ' F M I N U S )
0036300 \r
0036320
*
0036360 ( C O N S ' M A X
0036400 ' F M A X ) \r
0036420
*
0036460 ( C O
0036500 N S ' M I N ' F M I N ) \r
0036520
*
0036600 ( C O N S ' M O D '
0036620 I M O D ] \r
0036640 ( B U I L
0036660 D . C A R D I N A L . T Y P E S
0036700 ' ( C A R D I N A L C H A R
0036720 C H A R A C T E R I N T I
0036740 N T E G E R N A T W O R D ]
0036760 \r (
0037000 R E C O R D S S C O P E ) \r
0037020 ( F N
0037040 S B U I L D . I N I T B U I
0037060 L D . P U S H . S C O P E B U
0037100 I L D . P O P . S C O P E B U
0037120 I L D . G C . S C O P E B U I
0037140 L D . S T O R E . E X P O R T S
0037160 \r
0037200 B U I L D . S T O R E
0037220 . I D E N T L I S T B U I L D
0037240 . S T O R E . I N T E R F A C E
0037260 S B U I L D . S T O R E . I N
0037300 T E R F A C E \r
0037320 B U I L
0037340 D . S T O R E . O P E N B U I
0037360 L D . S T O R E . U S I N G B
0037400 U I L D . I N I T I A L I Z A T
0037420 I O N B U I L D . I N I T I A
0037440 L I Z E . V A R S \r
0037460 B U
0037500 I L D . I N I T I A L I Z E . V
0037520 A R B U I L D . I N I T I A L
0037540 I Z E . F N B U I L D . I N I
0037560 T I A L I Z E . R E C O R D B
0037600 U I L D . R E C O R D \r
0037620
0037640 B U I L D . T Y P E B U I L D
0037660 . S T O R E . A R G L I S T B
0037700 U I L D . S T O R E . R E T U R
0037720 N L I S T B U I L D . S T O R
0037740 E . P A I R L I S T \r
0037760 B
0040000 U I L D . S T O R E . P A I R I
0040020 T E M B U I L D . S T O R E .
0040040 V A R L I S T B U I L D . I D
0040060 B U I L D . F I E L D I D B
0040100 U I L D . P R O C I D \r
0040120
0040140 B U I L D . R E C O R D I D B
0040160 U I L D . T Y P E I D B U I L
0040200 D . V A R I D B U I L D . L O
0040220 C A L V A R I D B U I L D . G
0040240 L O B A L V A R I D \r
0040260 B
0040300 U I L D . U L T I M A T E . T Y
0040320 P E B U I L D . R E F I N E .
0040340 T Y P E B U I L D . I M M E D
0040360 I A T E . T Y P E B U I L D .
0040400 L O O K U P . T Y P E \r
0040420
0040440 B U I L D . L O O K U P B U I
0040460 L D . T Y P E A T O M B U I L
0040500 D . Q U A L I F Y B U I L D .
0040520 Q U A L I F Y . P R E F I X O P
0040540 \r
0040560 B U I L D . Q U A L I
0040600 F Y . T Y P E O P B U I L D .
0040620 Q U A L I F Y . E X P L I S T
0040640 B U I L D . Q U A L I F Y . I D
0040660 B U I L D . A R I T H . E X P
0040700 1 \r
0040720 B U I L D . A R I T
0040740 H . E X P 2 B U I L D . A R I
0040760 T H . E X P * B U I L D . A R
0041000 I T H . A D D 1 S U B 1 B U I
0041020 L D . C O E R C E . A R I T H O
0041040 P \r
0041060 B U I L D . S T R O
0041100 N G E S T . T Y P E . A M O N G
0041120 B U I L D . S T R O N G E S T
0041140 . T Y P E B U I L D . C O E R
0041160 C E B U I L D . C O E R C E .
0041200 M A R R A Y \r
0041220 B U I L D
0041240 . C O E R C E . M L I S T B U
0041260 I L D . C O E R C E . E X P L I
0041300 S T B U I L D . A L I G N B
0041320 U I L D . A L I G N . V A L U E
0041340 \r
0041360 B U I L D . A D D . T
0041400 O . F I L E C O M S B U I L D
0041420 . A D D 1 B U I L D . C A L L
0041440 B U I L D . C H A R C O D E
0041460 B U I L D . C O N D \r
0041500 B
0041520 U I L D . C O P Y . O F B U I
0041540 L D . F E T C H B U I L D . F
0041560 O R C L A U S E . B Y B U I L
0041600 D . F O R C L A U S E . I N \r
0041620
0041640 B U I L D . F O R C L A U
0041660 S E . T H R O U G H B U I L D
0041700 . I N B U I L D . I S T Y P E
0041720 B U I L D . L A M B D A B U
0041740 I L D . N E W B U I L D . O R
0041760 \r
0042000 B U I L D . P R O G
0042020 B U I L D . P R O G N B U I L
0042040 D . R E P L A C E B U I L D .
0042060 R E T U R N B U I L D . S E L
0042100 E C T Q B U I L D . S E L E C
0042120 T Q . F N \r
0042140 B U I L D .
0042160 S E L E C T Q . C C L A U S E
0042200 B U I L D . S E L E C T Q . T E
0042220 S T B U I L D . S E L E C T Q
0042240 . S C L A U S E B U I L D . S
0042260 E L E C T Q . K E Y \r
0042300 B
0042320 U I L D . S E L E C T T R U E F
0042340 R O M B U I L D . S E L E C T
0042360 T R U E F R O M . C L A U S E
0042400 B U I L D . S E T Q B U I L D
0042420 . S E T Q . A R R A Y \r
0042440
0042460 B U I L D . S E T Q . O R D E R
0042500 L I S T B U I L D . S U B 1
0042520 B U I L D . T A I L ) \r
0042540 ( P ( B U
0042560 I L D . I N I T ] ) \r \r \r \r 006 004
0042600 ( * ; ; " M E S A T O L I S
0042620 P - - B y K e l l y R o
0042640 a c h . L y r i c i z e d
0042660 b y L . M a s i n t e r " )
0042700 006 001 \r \r \r \r \r 006 004 ( * ; ; ;
0042720 " S C A N : r e a d i n g m
0042740 e s a / c e d a r f i l e s "
0042760 ) 006 001 \r \r \r ( R P A Q ? 006 002 S
0043000 C A N . S T R I N G 006 001 ( C L
0043020 : M A K E - A R R A Y 2 5 6
0043040 : I N I T I A L - E L E M E N T
0043060 ' # \ A : E L E M E N T - T
0043100 Y P E ' C L : C H A R A C T E
0043120 R : A D J U S T A B L E T
0043140 \r
0043160 : F I L L
0043200 - P O I N T E R 0 ) ) \r \r ( R
0043220 P A Q ? 006 002 S C A N . C H A R
0043240 006 001 N I L ) \r \r ( R P A Q ?
0043260 006 002 S C A N . Q D O T 006 001 N I
0043300 L ) \r \r ( R P A Q ? 006 002 S C A
0043320 N . B O T H . R E S E R V E D 006
0043340 001 \r ' ( ! % #
0043360 % ( % ) * + % , -
0043400 % . | . . | / % : ; <
0043420 < = = = > > > = @
0043440 A B S A L L A N D A N Y
0043460 A P P L Y A R R A Y B A S E
0043500 B E G I N \r
0043520 B R O A D C A S T C O D
0043540 E C O M P U T E D C O N T I
0043560 N U E D E C R E A S I N G D
0043600 E F I N I T I O N S D E P E N
0043620 D E N T D E S C R I P T O R
0043640 D I R E C T O R Y D O \r
0043660 E L S E E N
0043700 A B L E E N D E N D C A S E
0043720 E N D L O O P E N T R Y E
0043740 R R O R E X I T E X I T S
0043760 E X P O R T S F I N I S H E D
0044000 F I R S T F O R F O R K
0044020 \r F R A M
0044040 E F R E E F R O M G O G
0044060 O T O I F I M P O R T S I
0044100 N I N L I N E I N T E R N A
0044120 L I S T Y P E J O I N L A
0044140 S T L E N G T H L O C K S
0044160 L O N G \r
0044200 L O O P L O O P H O L E M
0044220 A C H I N E M A X M I N M
0044240 O D M O N I T O R M O N I T
0044260 O R E D N A R R O W N E W
0044300 N I L L N O T N O T I F Y
0044320 N U L L O F \r
0044340 O P E N O R O R D
0044360 O R D E R E D O V E R L A I D
0044400 P A C K E D P O I N T E R
0044420 P O R T P R E D P R I V A T
0044440 E P R O C P R O C E D U R E
0044460 P R O C E S S \r
0044500 P R O G R A M P U B
0044520 L I C R E A D O N L Y R E C
0044540 O R D R E J E C T R E L A T
0044560 I V E R E P E A T R E S T A
0044600 R T R E S U M E R E T R Y
0044620 R E T U R N R E T U R N S \r
0044640 S E L E C
0044660 T S E Q U E N C E S H A R E
0044700 S S I G N A L S I Z E S T
0044720 A R T S T A T E S T O P S
0044740 U C C T H E N T H R O U G H
0044760 T O T R A N S F E R T R A
0045000 S H \r T
0045020 Y P E U N C O U N T E D U N
0045040 T I L U S I N G V A L V A
0045060 R W A I T W H I L E W I T
0045100 H Z O N E % [ % ] ^ _
0045120 { % | } ~ ) ) \r \r ( R P
0045140 A Q ? 006 002 S C A N . C E D A R
0045160 . R E S E R V E D 006 001 ' ( C E
0045200 D A R C H E C K E D C O N S
0045220 L I S T P A I N T E D R E
0045240 F S A F E T R U S T E D U
0045260 N C H E C K E D U N S A F E )
0045300 ) \r \r ( R P A Q ? 006 002 S C A N
0045320 . M E S A . R E S E R V E D 006 001
0045340 ' ( R E S I D E N T ) ) \r ( D
0045360 E F I N E Q \r \r ( 006 004 S C A N .
0045400 I N I T 006 001 \r [ L A M B D A
0045420 N I L 006 006 006 001
0045440
*
0045500 006 006 ( * k b r
0045520 % : " 2 5 - N o v - 8 5 1 2
0045540 : 0 5 " ) 006 001 \r ( P R O
0045560 G N I L \r
0045600 ( 006 002 f o r 006 001 A T O M 006 002
0045620 i n 006 001 S C A N . B O T H . R
0045640 E S E R V E D 006 002 d o 006 001 (
0045660 P U T P R O P A T O M ' S C
0045700 A N . R E S E R V E D ' B O T
0045720 H ) ) \r ( 006
0045740 002 f o r 006 001 A T O M 006 002 i n
0045760 006 001 S C A N . C E D A R . R E
0046000 S E R V E D 006 002 d o 006 001 ( P
0046020 U T P R O P A T O M ' S C A
0046040 N . R E S E R V E D ' C E D A
0046060 R ) ) \r ( 006
0046100 002 f o r 006 001 A T O M 006 002 i n
0046120 006 001 S C A N . M E S A . R E S
0046140 E R V E D 006 002 d o 006 001 ( P U
0046160 T P R O P A T O M ' S C A N
0046200 . R E S E R V E D ' M E S A ]
0046220 ) \r \r ( 006 004 S C A N . S T A R T
0046240 006 001 \r [ L A M B D A N I L
0046260 006 006 006 001
0046300
*
0046340 006 006 ( * ; " E d i t e d
0046360 1 0 - A p r - 8 7 1 1 : 3 9
0046400 b y M a s i n t e r " ) 006 001 \r
0046420 ( C L : S E T F ( C L
0046440 : F I L L - P O I N T E R S C
0046460 A N . S T R I N G ) \r
0046500 0 ] ) \r \r ( 006 004 S C
0046520 A N . T E S T 006 001 \r [ L A M
0046540 B D A ( S T R I N G ) 006 006 006 001
0046560
*
0046620 006 006 ( * ; "
0046640 E d i t e d 6 - A p r - 8 7
0046660 1 5 : 0 5 b y M a s i n t
0046700 e r " ) 006 001 \r
0046720 \r 006 006 ( *
0046740 H o w w o u l d s c a n n
0046760 e r p a r s e a f i l e
0047000 c o n t a i n i n g t h i s
0047020 S T R I N G ? * ) 006 001 \r \r
0047040 ( P R O G ( S T R E A M
0047060 T O K E N ) \r
0047100 ( S E T Q S T R E A M ( O
0047120 P E N S T R I N G S T R E A M
0047140 S T R I N G ) ) \r
0047160 ( S E T Q S C A N . C H
0047200 A R ( C L : R E A D - C H A R
0047220 S T R E A M ) ) \r
0047240 ( S E T Q S C A N . Q
0047260 D O T N I L ) \r
0047300 ( S E T Q T O K E N (
0047320 006 002 S C A N . T O K E N 006 001 S
0047340 T R E A M ) ) \r
0047360 ( C L O S E F S T R E A M
0047400 ) \r ( R E T
0047420 U R N T O K E N ] ) \r \r ( 006 004
0047440 S C A N . T E S T F I L E 006 001 \r
0047460 [ L A M B D A ( F I L E )
0047500 006 006 006 001
0047520
*
0047560 006 006 ( * k b r % : " 2 5 -
0047600 N o v - 8 5 1 2 : 0 5 " ) 006 001
0047620 \r \r
0047640 006 006 ( * H o w w
0047660 o u l d s c a n n e r p a r
0047700 s e a f i l e c o n t a i
0047720 n i n g t h i s S T R I N G
0047740 ? * ) 006 001 \r \r ( P R O
0047760 G ( S T R E A M ) \r
0050000 ( S E T Q S T R E A
0050020 M ( 006 002 S C A N . O P E N S T
0050040 R E A M 006 001 F I L E ) ) \r
0050060 [ 006 002 d o 006 001
0050100 ( S E T Q T O K E N ( 006 002 S
0050120 C A N . T O K E N 006 001 S T R E
0050140 A M ) ) \r
0050160 ( P R I N T T O K E N
0050200 T ) \r
0050220 ( C O N D \r
0050240 ( ( E Q ( C A
0050260 R T O K E N ) \r
0050300 '
0050320 E O F ) \r
0050340 ( R E T U R N ] \r
0050360 ( C L O S E
0050400 F S T R E A M ] ) \r \r ( 006 004 S
0050420 C A N . O P E N S T R E A M 006 001
0050440 \r [ L A M B D A ( F I L E
0050460 ) 006 006 006 001
0050500
0050520 006
0050540 006 ( * ; " E d i t e d 6
0050560 - A p r - 8 7 1 5 : 0 5 b y
0050600 M a s i n t e r " ) 006 001 \r
0050620
*
0050700 006 006 ( *
0050720 O p e n F I L E , r e t u r
0050740 n S T R E A M . \r 006 001
0050760
*
0051040 006 006 * ) 006 001 \r
0051060 ( P R O G ( S T R E A
0051100 M T O K E N ) \r
0051120 ( S E T Q S T R E A M
0051140 ( O P E N S T R E A M F I L E
0051160 ' I N P U T ) ) \r
0051200 ( S E T F I L E P T R
0051220 S T R E A M 0 ) \r
0051240 ( S E T Q S C A N . C
0051260 H A R ( C L : R E A D - C H A
0051300 R S T R E A M ) ) \r
0051320 ( S E T Q S C A N .
0051340 Q D O T N I L ) \r
0051360 ( R E T U R N S T R E
0051400 A M ] ) \r \r ( 006 004 S C A N . T O
0051420 K E N 006 001 \r [ L A M B D A
0051440 ( S T R E A M ) 006 006 006 001
0051460
*
0051520 006 006 ( * ; " E d i t
0051540 e d 1 0 - A p r - 8 7 1 5 :
0051560 5 9 b y M a s i n t e r " )
0051600 006 001 \r \r
0051620 006 006 ( * ; ;
0051640 " R e t u r n ( C L A S S V
0051660 A L U E ) " ) 006 001 \r \r
0051700 ( P R O G ( S C A N C L A S
0051720 S V A L U E V A L I D C
0051740 A D V A N C E P C H A R C O
0051760 M M E N T D A S H C R L F S
0052000 T A T E N E S T ) \r
0052020 ( C L : S E T F ( C
0052040 L : F I L L - P O I N T E R S
0052060 C A N . S T R I N G ) \r
0052100 0 ) \r
0052120 [ 006 002 d o 006
0052140 001 ( 006 002 w h i l e 006 001 ( < =
0052160 ( C L : C H A R - I N T S C
0052200 A N . C H A R ) \r
0052220 (
0052240 C L : C H A R - I N T ' # \ S
0052260 p a c e ) ) 006 002 d o 006 001 ( C
0052300 O N D \r
0052320
*
0052360 ( ( E O F P S
0052400 T R E A M ) \r
0052420
*
0052460 ( G O
0052500 E N D F I L E ) ) ) \r
0052520
*
0052560 ( S E T
0052600 Q S C A N . C H A R ( C L :
0052620 R E A D - C H A R S T R E A M
0052640 ) ) ) \r
0052660 ( C A S E S C A N . C H A
0052700 R \r
0052720 ( ( # \ a # \ b
0052740 # \ c # \ d # \ e # \ f
0052760 # \ g # \ h # \ i # \ j
0053000 # \ k # \ l # \ m # \ n
0053020 # \ o # \ p # \ q # \ r
0053040 # \ s # \ t \r
0053060
0053100 # \ u # \ v # \ w #
0053120 \ x # \ y # \ z ) \r
0053140
0053160 ( 006 002 S C A N . S T A R T 006 001
0053200 S C A N . C H A R ) \r
0053220
0053240 [ 006 002 d o 006 001 ( 006 002 S C A N
0053260 . A C C E P T 006 001 S T R E A M
0053300 ) \r
0053320 ( C O N D
0053340 \r
0053360 ( ( N
0053400 O T ( O R ( C L : A L P H A
0053420 - C H A R - P S C A N . C H A
0053440 R ) \r
0053460
0053500 ( C L : D I G
0053520 I T - C H A R - P S C A N . C
0053540 H A R ) ) ) \r
0053560
0053600 ( R E T U R N ] \r
0053620
0053640 ( S E T Q C L A S S ' I
0053660 D ) \r
0053700 ( S E T Q V A
0053720 L U E ( M K A T O M S C A N
0053740 . S T R I N G ) ) \r
0053760 (
0054000 S E T Q V A L I D T ) \r
0054020
0054040 ( G O G O T N E X T ) )
0054060 \r
0054100 ( ( # \ A # \ B #
0054120 \ C # \ D # \ E # \ F #
0054140 \ G # \ H # \ I # \ J #
0054160 \ K # \ L # \ M # \ N #
0054200 \ O # \ P # \ Q # \ R #
0054220 \ S # \ T \r
0054240
0054260 # \ U # \ V # \ W # \
0054300 X # \ Y # \ Z )
0054320 006 006 ( * T B W s t
0054340 u f f c o n c e r n i n g H
0054360 T I n d e x . \r 006 001
0054400
*
0054460 006 006 * ) 006 001 \r
0054500
0054520 ( 006 002 S C A N . S T A R T
0054540 006 001 S C A N . C H A R ) \r
0054560
0054600 [ 006 002 d o 006 001 ( 006 002 S C
0054620 A N . A C C E P T 006 001 S T R E
0054640 A M ) \r
0054660 ( C O
0054700 N D \r
0054720 (
0054740 ( N O T ( O R ( C L : A L P
0054760 H A - C H A R - P S C A N . C
0055000 H A R ) \r
0055020
0055040 ( C L : D
0055060 I G I T - C H A R - P S C A N
0055100 . C H A R ) ) ) \r
0055120
0055140 ( R E T U R N ] \r
0055160
0055200 ( S E T Q C L A S S
0055220 ' I D ) \r
0055240 ( S E T Q
0055260 V A L U E ( M K A T O M S C
0055300 A N . S T R I N G ) ) \r
0055320
0055340 ( S E T Q V A L I D T ) \r
0055360
0055400 ( G O G O T N E X T
0055420 ) ) \r
0055440 ( ( # \ 0 # \ 1
0055460 # \ 2 # \ 3 # \ 4 # \ 5
0055500 # \ 6 # \ 7 # \ 8 # \ 9
0055520 ) \r
0055540 ( 006 002 S C A N . S
0055560 T A R T 006 001 S C A N . C H A R
0055600 ) \r
0055620 ( S E T Q S C A
0055640 N ( 006 002 S C A N . N U M B E R
0055660 006 001 S T R E A M N I L ) ) \r
0055700
0055720 ( S E T Q C L A S S
0055740 ( C A R S C A N ) ) \r
0055760
0056000 ( S E T Q V A L U E ( C
0056020 A D R S C A N ) ) \r
0056040
0056060 ( S E T Q V A L I D ( C A D
0056100 D R S C A N ) ) \r
0056120 (
0056140 C O N D \r
0056160 ( ( N
0056200 O T V A L I D ) \r
0056220
0056240 ( S C A N . E R R O R ) )
0056260 ) \r
0056300 ( G O G O T N E
0056320 X T ) ) \r
0056340 ( ( # \ _ #
0056360 \ 254 ) \r
0056400 ( S E T Q C
0056420 L A S S ' _ ) \r
0056440 ( S
0056460 E T Q V A L U E C L A S S )
0056500 \r
0056520 ( G O G E T N E X
0056540 T ) ) \r
0056560 ( ( # \ ^ # \
0056600 255 ) \r
0056620 ( S E T Q C L
0056640 A S S ' ^ ) \r
0056660 ( S E
0056700 T Q V A L U E C L A S S ) \r
0056720
0056740 ( G O G E T N E X T
0056760 ) ) \r
0057000 ( ( # \ , # \ ;
0057020 # \ : # \ # # \ + # \ *
0057040 # \ / # \ @ # \ ! # \ (
0057060 # \ ) # \ [ # \ ] # \ {
0057100 # \ } ) \r
0057120 [ S E T Q
0057140 C L A S S ( M K A T O M (
0057160 C H A R A C T E R ( C L : C H
0057200 A R - I N T S C A N . C H A R
0057220 ] \r
0057240 ( S E T Q V A L
0057260 U E C L A S S ) \r
0057300 (
0057320 G O G E T N E X T ) ) \r
0057340
0057360 [ ( # \ ' ) \r
0057400 ( S E
0057420 T Q S C A N . C H A R ( C L
0057440 : R E A D - C H A R S T R E A
0057460 M ) ) \r
0057500 ( S E T Q S
0057520 C A N ( 006 002 S C A N . E S C A
0057540 P E 006 001 S T R E A M ) ) \r
0057560
0057600 ( S E T Q V A L U E (
0057620 C A R S C A N ) ) \r
0057640
0057660 ( S E T Q V A L I D ( C A D
0057700 R S C A N ) ) \r
0057720 ( S
0057740 E T Q A D V A N C E ( C A D
0057760 D R S C A N ) ) \r
0060000 (
0060020 C O N D \r
0060040 ( ( N
0060060 O T V A L I D ) \r
0060100
0060120 ( S C A N . E R R O R ) )
0060140 ) \r
0060160 ( S E T Q C L A
0060200 S S ' C H A R ) \r
0060220 (
0060240 C O N D \r
0060260 ( A D
0060300 V A N C E ( G O G E T N E X
0060320 T ) ) \r
0060340 ( T (
0060360 G O G O T N E X T ] \r
0060400
0060420 [ ( # \ " ) \r
0060440 ( C L :
0060460 S E T F ( C L : F I L L - P O
0060500 I N T E R S C A N . S T R I N
0060520 G ) \r
0060540 0
0060560 ) \r
0060600 ( S E T Q A D V
0060620 A N C E T ) \r
0060640 [ 006 002
0060660 d o 006 001 [ C O N D \r
0060700
0060720 ( A D V A N C E
0060740 ( S E T Q S C A N . C H A R
0060760 ( C L : R E A D - C H A R S T
0061000 R E A M ] \r
0061020 [
0061040 C A S E S C A N . C H A R (
0061060 ( # \ " ) \r
0061100
*
0061140 ( S E T Q S C A N . C H A R
0061160 ( \ B I N S T R E A M ) ) \r
0061200
*
0061240 ( C O N D \r
0061260
*
0061320 ( ( N O
0061340 T ( I E Q P S C A N . C H A
0061360 R ( C H A R C O D E % " ) )
0061400 ) \r
0061420
*
0061460 ( R E T U R N ] \r
0061500
0061520 ( S E T Q S C A N ( 006 002
0061540 S C A N . E S C A P E 006 001 S T
0061560 R E A M ) ) \r
0061600
0061620 ( C L : V E C T O R - P U S H -
0061640 E X T E N D ( C L : I N T - C
0061660 H A R ( C A R S C A N ) ) \r
0061700
*
0061740 S C A N . S T R I N G ) \r
0061760
0062000 ( S E T Q V A L I
0062020 D ( C A D R S C A N ) ) \r
0062040
0062060 ( S E T Q A D
0062100 V A N C E ( C A D D R S C A
0062120 N ) ) \r
0062140 ( C O
0062160 N D \r
0062200 (
0062220 ( N O T V A L I D ) \r
0062240
0062260 ( S C A N . E
0062300 R R O R ] \r
0062320 ( S E T Q
0062340 V A L U E ( C L : C O P Y -
0062360 S E Q S C A N . S T R I N G )
0062400 ) \r
0062420 ( C O N D \r
0062440
0062460 ( ( O R ( E Q L S
0062500 C A N . C H A R ' # \ l ) \r
0062520
0062540 ( E Q L
0062560 S C A N . C H A R ' # \ L )
0062600 ) \r
0062620 ( S E T Q
0062640 C L A S S ' S T R I N G ) \r
0062660
0062700 ( G O G E T
0062720 N E X T ) ) \r
0062740 (
0062760 T ( S E T Q C L A S S ' S
0063000 T R I N G ) \r
0063020
0063040 ( C O N D \r
0063060
0063100 ( ( E Q L ( C L :
0063120 C H A R - U P C A S E S C A N
0063140 . C H A R ) \r
0063160
0063200 ' # \ G )
0063220 \r
0063240
0063260 ( G O G E T N E X T ) ) \r
0063300
0063320 ( T (
0063340 G O G O T N E X T ] \r
0063360
0063400 ( ( # \ - ) \r
0063420 ( S E T
0063440 Q S C A N . C H A R ( C L :
0063460 R E A D - C H A R S T R E A M
0063500 ) ) \r
0063520 ( C O N D \r
0063540
0063560 ( ( N O T ( E Q L
0063600 S C A N . C H A R ' # \ - )
0063620 ) \r
0063640 ( S E T Q
0063660 C L A S S ' - ) \r
0063700
0063720 ( S E T Q V A L U E
0063740 ' - ) \r
0063760 ( G O
0064000 G O T N E X T ) ) ) \r
0064020
0064040 ( S E T Q S C A N . C H A R
0064060 ' # \ N u l l ) \r
0064100 (
0064120 006 002 d o 006 001 ( S E T Q P C H
0064140 A R S C A N . C H A R ) \r
0064160
0064200 ( S E T Q S C A
0064220 N . C H A R ( C L : R E A D -
0064240 C H A R S T R E A M ) ) \r
0064260
0064300 ( C A S E S C A
0064320 N . C H A R [ # \ - ( C O N
0064340 D \r
0064360
*
0064420 ( ( E Q L P C H A R '
0064440 # \ - ) \r
0064460
*
0064520 ( S E T Q C O M
0064540 M E N T ' D A S H ) \r
0064560
*
0064620 ( R
0064640 E T U R N ] \r
0064660
0064700 ( # \ N e w l i n e
0064720 ( S E T Q C O M M E N T '
0064740 C R L F ) \r
0064760
0065000 ( R E T
0065020 U R N ) ) \r
0065040
0065060 N I L ) ) \r
0065100
0065120 ( S E T Q S C A N . C H A R
0065140 ( C L : R E A D - C H A R S T
0065160 R E A M ) ) \r
0065200 ( C O N
0065220 D \r
0065240 ( ( A N D
0065260 ( E Q C O M M E N T ' D A S
0065300 H ) \r
0065320
0065340 ( E Q L S C A N . C H A R
0065360 ' # \ N e w l i n e ) ) \r
0065400
0065420 ( S E T Q D A S H
0065440 C R L F T ) ) )
0065460 006 006 ( * T
0065500 B W s t u f f a b o u t f
0065520 o r m a t t i n g * ) 006 001 \r
0065540
0065560 ) \r
0065600 [ ( # \ . )
0065620 \r
0065640 ( C O N D \r
0065660
0065700 ( S C A N . Q D O T (
0065720 S E T Q S C A N . Q D O T N
0065740 I L ) \r
0065760
0066000 ( S E T Q C L A S S '
0066020 | . . | ) \r
0066040
0066060 ( S E T Q V A L U E
0066100 ' | . . | ) \r
0066120
0066140 ( G O G E T N E
0066160 X T ) ) ) \r
0066200 ( C O N D
0066220 \r
0066240 ( ( E O F P
0066260 S T R E A M ) \r
0066300
0066320 ( S E T Q C L A S S ' % .
0066340 ) \r
0066360 ( S E T Q
0066400 V A L U E ' % . ) \r
0066420
0066440 ( G O G O T N E X T
0066460 ) ) ) \r
0066500 ( S E T Q S
0066520 C A N . C H A R ( C L : R E A
0066540 D - C H A R S T R E A M ) ) \r
0066560
0066600 ( C A S E S C A N .
0066620 C H A R ( # \ . ( S E T Q
0066640 C L A S S ' | . . | ) \r
0066660
*
0066720 ( S E T Q V A L
0066740 U E ' | . . | ) \r
0066760
*
0067020 ( G O G E T N E X T )
0067040 ) \r
0067060 ( ( #
0067100 \ 0 # \ 1 # \ 2 # \ 3 #
0067120 \ 4 # \ 5 # \ 6 # \ 7 #
0067140 \ 8 # \ 9 ) \r
0067160
0067200 ( 006 002 S C A N . S T A R
0067220 T 006 001 ' # \ . ) \r
0067240
0067260 ( S E T Q S C A N
0067300 ( 006 002 S C A N . N U M B E R 006
0067320 001 S T R E A M T ) ) \r
0067340
0067360 ( S E T Q C
0067400 L A S S ( C A R S C A N ) )
0067420 \r
0067440 ( S E
0067460 T Q V A L U E ( C A D R S
0067500 C A N ) ) \r
0067520
0067540 ( S E T Q V A L I D ( C
0067560 A D D R S C A N ) ) \r
0067600
0067620 ( C O N D \r
0067640
0067660 ( ( N
0067700 O T V A L I D ) \r
0067720
0067740 ( S C A N .
0067760 E R R O R ) ) ) \r
0070000
0070020 ( G O G O T N E X T
0070040 ) ) \r
0070060 ( T
0070100 ( S E T Q C L A S S ' % .
0070120 ) \r
0070140
0070160 ( S E T Q V A L U E ' % . )
0070200 \r
0070220 (
0070240 G O G O T N E X T ] \r
0070260
0070300 [ ( # \ = ) \r
0070320 ( S E T
0070340 Q S C A N . C H A R ( C L :
0070360 R E A D - C H A R S T R E A M
0070400 ) ) \r
0070420 ( C O N D \r
0070440
0070460 ( ( E Q L S C A N
0070500 . C H A R ' # \ > ) \r
0070520
0070540 ( S E T Q C L A S S
0070560 ' = > ) \r
0070600 (
0070620 S E T Q V A L U E ' = > ) \r
0070640
0070660 ( G O G E T
0070700 N E X T ) ) \r
0070720 (
0070740 T ( S E T Q C L A S S ' =
0070760 ) \r
0071000 ( S E
0071020 T Q V A L U E ' = ) \r
0071040
0071060 ( G O G O T N
0071100 E X T ] \r
0071120 [ ( # \ < ) \r
0071140
0071160 ( S E T Q S C A N .
0071200 C H A R ( C L : R E A D - C H
0071220 A R S T R E A M ) ) \r
0071240
0071260 ( C A S E S C A N . C H A R
0071300 ( # \ = ( S E T Q C L A S
0071320 S ' < = ) \r
0071340
*
0071400 ( S E T Q V A L U E ' < =
0071420 ) \r
0071440
0071460 ( G O
0071500 G E T N E X T ) ) \r
0071520
0071540 ( # \ < ( S E T Q
0071560 S T A T E ' P L A I N ) \r
0071600
0071620 ( S E T Q
0071640 N E S T 1 ) \r
0071660
0071700 [ 006 002 d o 006 001 ( S E T
0071720 Q S C A N . C H A R ( C L :
0071740 R E A D - C H A R S T R E A M
0071760 ) ) \r
0072000
0072020 ( C A S E S C A N . C H
0072040 A R ( # \ > ( S E L E C T Q
0072060 S T A T E \r
0072100
*
0072160 ( ( P L A I N L E F T B R O C
0072200 K E T ) \r
0072220
*
0072300 ( S E T Q S T A T E
0072320 ' R I G H T B R O C K E T ) ) \r
0072340
*
0072420 ( R I G H T B
0072440 R O C K E T ( S E T Q S T A
0072460 T E ' P L A I N ) \r
0072500
*
0072600 ( S E T Q N E S T ( S U
0072620 B 1 N E S T ) ) \r
0072640
*
0072740 ( C O N D \r
0072760
*
0073060 ( ( Z E R O P N E S T ) \r
0073100
*
0073200 ( R E T U R
0073220 N ) ) ) ) \r
0073240
*
0073300 N
0073320 I L ) ) \r
0073340
0073360 ( # \ <
0073400 ( S E L E C T Q S T A T E \r
0073420
*
0073460 ( (
0073500 P L A I N R I G H T B R O C K
0073520 E T ) \r
0073540
*
0073600 ( S E T Q S
0073620 T A T E ' L E F T B R O C K E
0073640 T ) ) \r
0073660
*
0073720 ( R I G H T B R O C K E T
0073740 ( S E T Q S T A T E ' P L
0073760 A I N ) \r
0074000
*
0074060 ( S E T Q N E S T ( A D
0074100 D 1 N E S T ) ) \r
0074120
*
0074200 ( C O N D \r
0074220
*
0074300 ( ( Z
0074320 E R O P N E S T ) \r
0074340
*
0074420 ( R E T
0074440 U R N ) ) ) ) \r
0074460
*
0074520 N I L ) ) \r
0074540
*
0074600 ( T ( S E T Q S T A T
0074620 E ' P L A I N ] \r
0074640
0074660 ( S E T Q S C A N
0074700 . C H A R ( C L : R E A D - C
0074720 H A R S T R E A M ) ) \r
0074740
*
0075020 006 006 ( * T
0075040 B W f o r m a t t i n g s t
0075060 u f f * ) 006 001 \r
0075100
0075120 ) \r
0075140
0075160 ( T ( S E T Q C L A S S
0075200 ' < ) \r
0075220
0075240 ( S E T Q V A L U E '
0075260 < ) \r
0075300
0075320 ( G O G O T N E X T ] \r
0075340
0075360 [ ( # \ > ) \r
0075400 ( S
0075420 E T Q S C A N . C H A R ( C
0075440 L : R E A D - C H A R S T R E
0075460 A M ) ) \r
0075500 ( C O N D \r
0075520
0075540 ( ( E Q L S C
0075560 A N . C H A R ' # \ = ) \r
0075600
0075620 ( S E T Q C L A
0075640 S S ' > = ) \r
0075660
0075700 ( S E T Q V A L U E ' > =
0075720 ) \r
0075740 ( G O G
0075760 E T N E X T ) ) \r
0076000
0076020 ( T ( S E T Q C L A S S
0076040 ' > ) \r
0076060 (
0076100 S E T Q V A L U E ' > ) \r
0076120
0076140 ( G O G O
0076160 T N E X T ] \r
0076200 ( T [ S
0076220 E T Q C L A S S ( M K A T O
0076240 M ( C H A R A C T E R ( C L
0076260 : C H A R - I N T S C A N . C
0076300 H A R ] \r
0076320 ( S E T
0076340 Q V A L U E C L A S S ) \r
0076360
0076400 ( G O G E T N E X
0076420 T ] \r G E T N E X T
0076440 \r ( S E T Q
0076460 S C A N . C H A R ( C L : R
0076500 E A D - C H A R S T R E A M )
0076520 ) \r G O T N E X T \r
0076540 [ C O N D \r
0076560 ( ( E
0076600 Q C L A S S ' I D ) \r
0076620 [ C O N D
0076640 \r
0076660 ( ( E Q V A L U E N I L
0076700 ) \r \r
0076720 006 006 ( * H a c k
0076740 N I L t o N I L L b e c
0076760 a u s e I c a n ' t p u t
0077000 p r o p e r t i e s o n N
0077020 I L . \r 006 001
0077040 006 006 * ) 006 001 \r \r
0077060 ( S E T Q
0077100 V A L U E ' N I L L ] \r
0077120 ( C O N D
0077140 \r
0077160 ( ( G E T P R O P V A L U
0077200 E ' S C A N . R E S E R V E D
0077220 ) \r
0077240 ( S E T Q C L A S S
0077260 V A L U E ] \r
0077300 ( R E T U R N ( L I S T C
0077320 L A S S V A L U E ) ) \r
0077340 E N D F I L E \r
0077360 ( S E T Q C L A S S
0077400 ' E O F ) \r
0077420 ( S E T Q V A L U E ' E O
0077440 F ) \r ( R E
0077460 T U R N ( L I S T C L A S S
0077500 V A L U E ] ) \r \r ( 006 004 S C A
0077520 N . N U M B E R 006 001 \r [ L A
0077540 M B D A ( S T R E A M F L O
0077560 A T ) 006 006 006 001
0077600
0077620 006 006 ( * ;
0077640 " E d i t e d 6 - A p r - 8
0077660 7 1 5 : 5 8 b y M a s i n
0077700 t e r " ) 006 001 \r
0077720
*
0100000 006 006 ( * R e t u r n
0100020 ( C L A S S V A L U E V A
0100040 L I D ) * ) 006 001 \r ( P
0100060 R O G ( C L A S S V A L U E
0100100 V A L I D H E X C O U N T
0100120 H E X S I G V S T A R T S
0100140 C A N ) \r (
0100160 S E T Q H E X C O U N T 0 )
0100200 \r ( S E T Q
0100220 H E X S I G 0 ) \r
0100240 ( S E T Q C L A S S
0100260 ' L N U M ) \r
0100300 [ 006 002 d o 006 001 ( C A S E
0100320 S C A N . C H A R ( ( # \ 0
0100340 # \ 1 # \ 2 # \ 3 # \ 4
0100360 # \ 5 # \ 6 # \ 7 # \ 8
0100400 # \ 9 ) \r
0100420
0100440 ( 006 002 S C A N . A C C E
0100460 P T 006 001 S T R E A M ) ) \r
0100500
0100520 [ ( # \ e # \ E ) \r
0100540
0100560 [ S E T Q H E X S I G (
0100600 L O G O R H E X S I G ( L L
0100620 S H 1 ( I D I F F E R E N C
0100640 E ( C H A R C O D E e ) \r
0100660
*
0100740 ( C
0100760 H A R C O D E a ] \r
0101000
0101020 ( S E T Q H E X C O U N T (
0101040 A D D 1 H E X C O U N T ) ) \r
0101060
0101100 ( 006 002 S C A N . A C C
0101120 E P T 006 001 S T R E A M ) \r
0101140
0101160 ( C O N D \r
0101200
0101220 ( [ A N D ( I E Q P H E X
0101240 C O U N T 1 ) \r
0101260
0101300 ( O R ( E Q L
0101320 S C A N . C H A R ' # \ + ) \r
0101340
*
0101400 ( E Q L S C A N . C H A R
0101420 ' # \ - ] \r
0101440
0101460 ( S E T Q F L O A T T ) \r
0101500
0101520 ( 006 002 S C A N .
0101540 A C C E P T 006 001 S T R E A M ]
0101560 \r
0101600 ( ( # \ a # \ b #
0101620 \ c # \ d # \ e # \ f ) \r
0101640
0101660 [ S E T Q H E X S I
0101700 G ( L O G O R H E X S I G
0101720 ( L L S H 1 ( I D I F F E R
0101740 E N C E ( C L : C H A R - I N
0101760 T S C A N . C H A R ) \r
0102000
*
0102060 ( C H A
0102100 R C O D E a ] \r
0102120 ( S
0102140 E T Q H E X C O U N T ( A D
0102160 D 1 H E X C O U N T ) ) \r
0102200
0102220 ( 006 002 S C A N . A C C E P
0102240 T 006 001 S T R E A M ) ) \r
0102260
0102300 ( ( # \ A # \ B # \ C #
0102320 \ D # \ E # \ F ) \r
0102340
0102360 [ S E T Q H E X S I G ( L
0102400 O G O R H E X S I G ( L L S
0102420 H 1 ( I D I F F E R E N C E
0102440 S C A N . C H A R ( C H A R
0102460 C O D E A ] \r
0102500 ( S E
0102520 T Q H E X C O U N T ( A D D
0102540 1 H E X C O U N T ) ) \r
0102560
0102600 ( 006 002 S C A N . A C C E P T
0102620 006 001 S T R E A M ) ) \r
0102640
0102660 ( ( # \ h # \ H ) \r
0102700
0102720 [ S E T Q H E X S I G ( L O
0102740 G O R H E X S I G ( L L S H
0102760 1 ( I D I F F E R E N C E
0103000 ( C H A R C O D E h ) \r
0103020
*
0103100 ( C H A
0103120 R C O D E a ] \r
0103140 ( S
0103160 E T Q H E X C O U N T ( A D
0103200 D 1 H E X C O U N T ) ) \r
0103220
0103240 ( 006 002 S C A N . A C C E P
0103260 T 006 001 S T R E A M ) ) \r
0103300
0103320 ( ( # \ . ) \r
0103340 ( C O
0103360 N D \r
0103400 ( ( O R
0103420 ( N O T ( I E Q P H E X C O
0103440 U N T 0 ) ) \r
0103460
0103500 F L O A T ) \r
0103520
0103540 ( R E T U R N ) ) ) \r
0103560
0103600 ( S E T Q S C A N .
0103620 C H A R ( C L : R E A D - C H
0103640 A R S T R E A M ) ) \r
0103660
0103700 ( C O N D \r
0103720 (
0103740 ( E Q L S C A N . C H A R '
0103760 # \ . ) \r
0104000 ( S
0104020 E T Q S C A N . Q D O T T )
0104040 \r
0104060 ( R E T U R
0104100 N ) ) ) \r
0104120 ( S E T Q
0104140 F L O A T T ) \r
0104160 ( C
0104200 L : V E C T O R - P U S H - E X
0104220 T E N D ' # \ . S C A N . S
0104240 T R I N G ) ) \r
0104260 ( T (
0104300 R E T U R N ] \r
0104320 ( C L : V E C T O R - P U S
0104340 H - E X T E N D ' # \ N u l l
0104360 S C A N . S T R I N G ) \r
0104400 [ C O N D \r
0104420 ( F L O A
0104440 T ( S E T Q C L A S S ' F
0104460 L N U M ) \r
0104500 ( S E T Q
0104520 S C A N ( 006 002 S C A N . F L O
0104540 A T I N G 006 001 S C A N . S T R
0104560 I N G ) ) \r
0104600 ( S E T Q
0104620 V ( C A R S C A N ) ) \r
0104640
0104660 ( S E T Q V A L I D ( C
0104700 A D R S C A N ) ) ) \r
0104720 ( [ N O T (
0104740 Z E R O P ( L O G A N D H E
0104760 X S I G ( L L S H 1 ( I D
0105000 I F F E R E N C E ( C H A R C
0105020 O D E h ) \r
0105040
*
0105100 (
0105120 C H A R C O D E a ] \r
0105140 ( S E T Q
0105160 S C A N ( 006 002 S C A N . H E X
0105200 006 001 S C A N . S T R I N G ) )
0105220 \r (
0105240 S E T Q V ( C A R S C A N
0105260 ) ) \r
0105300 ( S E T Q V A L I D ( C A
0105320 D R S C A N ) ) ) \r
0105340 ( ( I E Q P H
0105360 E X C O U N T 0 ) \r
0105400 ( S E T Q S
0105420 C A N ( 006 002 S C A N . D E C I
0105440 M A L 006 001 S C A N . S T R I N
0105460 G ) ) \r
0105500 ( S E T Q V ( C A R S
0105520 C A N ) ) \r
0105540 ( S E T Q V A L I D
0105560 ( C A D R S C A N ) ) ) \r
0105600 ( ( I E Q
0105620 P H E X C O U N T 1 ) \r
0105640 ( S E L
0105660 E C T C H E X S I G \r
0105700 ( (
0105720 L L S H 1 ( I D I F F E R E
0105740 N C E ( C H A R C O D E b )
0105760 \r
0106000
0106020 ( C H A R C O D E a ) )
0106040 ) \r
0106060 ( S E T Q
0106100 S C A N ( 006 002 S C A N . O C T
0106120 A L 006 001 S C A N . S T R I N G
0106140 ) ) ) \r
0106160 ( ( L L S H 1 (
0106200 I D I F F E R E N C E ( C H A
0106220 R C O D E c ) \r
0106240
0106260 ( C H A R
0106300 C O D E a ) ) ) \r
0106320
0106340 ( S E T Q C L A S S ' C
0106360 H A R ) \r
0106400 ( S E T
0106420 Q S C A N ( 006 002 S C A N . O
0106440 C T A L C H A R 006 001 S C A N .
0106460 S T R I N G ) ) ) \r
0106500 ( ( L L
0106520 S H 1 ( I D I F F E R E N C
0106540 E ( C H A R C O D E d ) \r
0106560
*
0106620 ( C H A R C O D E a ) ) )
0106640 \r
0106660 ( S E T Q S C
0106700 A N ( 006 002 S C A N . D E C I M
0106720 A L 006 001 S C A N . S T R I N G
0106740 ) ) ) \r
0106760 ( ( L L S H 1 (
0107000 I D I F F E R E N C E ( C H A
0107020 R C O D E e ) \r
0107040
0107060 ( C H A R
0107100 C O D E a ) ) ) \r
0107120
0107140 ( S E T Q C L A S S ' F
0107160 L N U M ) \r
0107200 ( S E
0107220 T Q S C A N ( 006 002 S C A N .
0107240 F L O A T I N G 006 001 S C A N .
0107260 S T R I N G ) ) ) \r
0107300 ( S E T
0107320 Q S C A N ( 006 002 S C A N . H
0107340 E X 006 001 S C A N . S T R I N G
0107360 ) ) ) \r
0107400 ( S E T Q V ( C A R S
0107420 C A N ) ) \r
0107440 ( S E T Q V A L I D
0107460 ( C A D R S C A N ) ) ) \r
0107500 ( T ( S
0107520 E T Q S C A N ( 006 002 S C A N
0107540 . H E X 006 001 S C A N . S T R I
0107560 N G ) ) \r
0107600 ( S E T Q V ( C A
0107620 R S C A N ) ) \r
0107640 ( S E T Q V
0107660 A L I D ( C A D R S C A N ]
0107700
0107720 006 006 ( * T B W s
0107740 t u f f * ) 006 001 \r
0107760 ( R E T U R N ( L I S
0110000 T C L A S S V V A L I D ]
0110020 ) \r \r ( 006 004 S C A N . A C C E P
0110040 T 006 001 \r [ L A M B D A ( S
0110060 T R E A M ) 006 006 006 001
0110100
*
0110140 006 006 ( * ; " E d i t e d
0110160 6 - A p r - 8 7 1 5 : 2 5
0110200 b y M a s i n t e r " ) 006 001
0110220 \r ( C L : V E C T O R -
0110240 P U S H - E X T E N D S C A N
0110260 . C H A R S C A N . S T R I N
0110300 G ) \r ( S E T Q S C A
0110320 N . C H A R ( C L : R E A D -
0110340 C H A R S T R E A M ] ) \r \r (
0110360 006 004 S C A N . A P P E N D D E C
0110400 I M A L 006 001 \r [ L A M B D A
0110420 ( V D I G I T ) 006 006 006 001
0110440
*
0110500 006 006 ( * k b r
0110520 % : " 2 5 - N o v - 8 5 1 2
0110540 : 0 6 " ) 006 001 \r
0110560
*
0110640 006 006 ( * D I G I T
0110660 i s a c h a r a c t e r c
0110700 o d e . \r 006 001
0110720
*
0111000 006 006 R e t u r n ( N E
0111020 W V V A L I D ) * ) 006 001 \r
0111040 ( P R O G ( M A X V M
0111060 A X D D V A L I D N E W V
0111100 ) \r ( S E T
0111120 Q M A X V 4 2 9 4 9 6 7 2 9
0111140 ) \r ( S E T
0111160 Q M A X D 5 ) \r
0111200 ( S E T Q D ( I D I
0111220 F F E R E N C E D I G I T (
0111240 C H A R C O D E 0 ) ) ) \r
0111260 [ S E T Q V A
0111300 L I D ( O R ( I L E S S P
0111320 V M A X V ) \r
0111340
0111360 ( A N D ( I E Q P V M
0111400 A X V ) \r
0111420
0111440 ( I L E Q D M A X D
0111460 ] \r ( S E T
0111500 Q N E W V ( I P L U S ( I
0111520 T I M E S 1 0 V ) \r
0111540
0111560 D ) ) \r
0111600 ( R E T U R N ( L
0111620 I S T N E W V V A L I D ] )
0111640 \r \r ( 006 004 S C A N . A P P E N D
0111660 O C T A L 006 001 \r [ L A M B D
0111700 A ( V D I G I T ) 006 006 006 001
0111720
*
0111760 006 006 ( * k b
0112000 r % : " 2 5 - N o v - 8 5 1
0112020 2 : 0 6 " ) 006 001 \r
0112040
*
0112120 006 006 ( * D I G I T
0112140 i s a c h a r a c t e r
0112160 c o d e . \r 006 001
0112200
*
0112260 006 006 R e t u r n ( N
0112300 E W V V A L I D ) * ) 006 001 \r
0112320 ( P R O G ( M A X V
0112340 D V A L I D N E W V ) \r
0112360 ( S E T Q M A
0112400 X V 5 3 6 8 7 0 9 1 1 ) \r
0112420 ( S E T Q D
0112440 ( I D I F F E R E N C E D I G
0112460 I T ( C H A R C O D E 0 ) )
0112500 ) \r ( S E T
0112520 Q V A L I D ( I L E Q V
0112540 M A X V ) ) \r
0112560 ( S E T Q N E W V ( I P L
0112600 U S ( I T I M E S 8 V ) \r
0112620
0112640 D ) ) \r
0112660 ( R E T U R
0112700 N ( L I S T N E W V V A L
0112720 I D ] ) \r \r ( 006 004 S C A N . A P
0112740 P E N D H E X 006 001 \r [ L A M
0112760 B D A ( V D I G I T ) 006 006 006
0113000 001
0113020
0113040 006 006 ( *
0113060 k b r % : " 2 5 - N o v - 8 5
0113100 1 2 : 0 6 " ) 006 001 \r
0113120
*
0113200 006 006 ( * D I G
0113220 I T i s a c h a r a c t e
0113240 r c o d e . \r 006 001
0113260
*
0113340 006 006 R e t u r n
0113360 ( N E W V V A L I D ) * ) 006
0113400 001 \r ( P R O G ( M A X
0113420 V D V A L I D N E W V ) \r
0113440 ( S E T Q
0113460 M A X V 2 6 8 4 3 5 4 5 5 ) \r
0113500 [ C O N D \r
0113520 [ ( A
0113540 N D ( I G E Q D I G I T (
0113560 C H A R C O D E 0 ) ) \r
0113600
0113620 ( I L E Q D I G I T ( C H A
0113640 R C O D E 9 ) ) ) \r
0113660 ( S E T Q D
0113700 ( I D I F F E R E N C E D I
0113720 G I T ( C H A R C O D E 0 ]
0113740 \r ( T
0113760 ( S E T Q D ( I P L U S
0114000 D I G I T ( I M I N U S ( C
0114020 H A R C O D E A ) ) \r
0114040
0114060 1 0 ] \r
0114100 ( S E T Q V
0114120 A L I D ( I L E Q V M A X
0114140 V ) ) \r ( S
0114160 E T Q N E W V ( I P L U S
0114200 ( I T I M E S 1 6 V ) \r
0114220
0114240 D ) ) \r
0114260 ( R E T U R N
0114300 ( L I S T N E W V V A L I D
0114320 ] ) \r \r ( 006 004 S C A N . A P P E
0114340 N D T O S C A L E 006 001 \r [ L
0114360 A M B D A ( V D I G I T ) 006
0114400 006 006 001
0114420
0114440 006 006 (
0114460 * k b r % : " 2 5 - N o v -
0114500 8 5 1 2 : 0 6 " ) 006 001 \r
0114520
*
0114600 006 006 ( * D
0114620 I G I T i s a c h a r a c
0114640 t e r c o d e . \r 006 001
0114660
*
0114740 006 006 R e t u r
0114760 n ( N E W V V A L I D ) *
0115000 ) 006 001 \r ( P R O G ( M
0115020 A X V M A X D D V A L I D
0115040 N E W V ) \r
0115060 ( S E T Q M A X V 6 5 5 3
0115100 ) \r ( S E T
0115120 Q M A X D 5 ) \r
0115140 ( S E T Q D ( I D I
0115160 F F E R E N C E D I G I T (
0115200 C H A R C O D E 0 ) ) ) \r
0115220 [ S E T Q V A
0115240 L I D ( O R ( I L E S S P
0115260 V M A X V ) \r
0115300
0115320 ( A N D ( I E Q P V M
0115340 A X V ) \r
0115360
0115400 ( I L E Q D M A X D
0115420 ] \r ( S E T
0115440 Q N E W V ( I P L U S ( I
0115460 T I M E S 1 0 V ) \r
0115500
0115520 D ) ) \r
0115540 ( R E T U R N ( L
0115560 I S T N E W V V A L I D ] )
0115600 \r \r ( 006 004 S C A N . V A L I D F
0115620 R A C T I O N 006 001 \r [ L A M
0115640 B D A ( V D I G I T ) 006 006 006
0115660 001
0115700
0115720 006 006 ( *
0115740 k b r % : " 2 5 - N o v - 8 5
0115760 1 2 : 0 6 " ) 006 001 \r
0116000
*
0116060 006 006 ( * D I G
0116100 I T i s a c h a r a c t e
0116120 r c o d e . \r 006 001
0116140
*
0116220 006 006 R e t u r n
0116240 V A L I D . * ) 006 001 \r
0116260 ( P R O G ( M A X V M A X D
0116300 D V A L I D ) \r
0116320 ( S E T Q M A X V 2
0116340 1 4 7 4 8 3 6 4 ) \r
0116360 ( S E T Q M A X D 7
0116400 ) \r ( S E T
0116420 Q D ( I D I F F E R E N C E
0116440 D I G I T ( C H A R C O D E
0116460 0 ) ) ) \r
0116500 [ S E T Q V A L I D ( O R
0116520 ( I L E S S P V M A X V ) \r
0116540
0116560 ( A N D (
0116600 I E Q P V M A X V ) \r
0116620
0116640 ( I L E
0116660 Q D M A X D ] \r
0116700 ( R E T U R N V A L I
0116720 D ] ) \r \r ( 006 004 S C A N . D E C
0116740 I M A L 006 001 \r [ L A M B D A
0116760 ( B U F F E R ) 006 006 006 001
0117000
*
0117040 006 006 ( * ; " E d i
0117060 t e d 6 - A p r - 8 7 1 5
0117100 : 4 8 b y M a s i n t e r "
0117120 ) 006 001 \r
0117140
*
0117220 006 006 ( * R e t u r n ( V A
0117240 L U E V A L I D ) * ) 006 001 \r
0117260 ( P R O G ( V A L U E
0117300 V A L I D B U F F E R P T R
0117320 C V S C A N S C A L E )
0117340 \r ( S E T Q
0117360 V A L I D T ) \r
0117400 ( S E T Q B U F F E R
0117420 P T R 0 ) \r
0117440 ( S E T Q V 0 ) \r
0117460 ( 006 002 w h i l e 006 001
0117500 ( A N D ( I G E Q ( S E T
0117520 Q C ( C L : C H A R - I N T
0117540 ( C L : E L T B U F F E R
0117560 B U F F E R P T R ) ) ) \r
0117600
0117620 ( C H A R C O
0117640 D E 0 ) ) \r
0117660 ( I L
0117700 E Q C ( C H A R C O D E 9
0117720 ) ) ) 006 002 d o 006 001 [ C O N D
0117740 \r
0117760
*
0120020 ( V A L I D ( S E T Q
0120040 S C A N ( 006 002 S C A N . A P
0120060 P E N D D E C I M A L 006 001 V
0120100 C ) ) \r
0120120
*
0120160 ( S
0120200 E T Q V ( C A R S C A N )
0120220 ) \r
0120240
*
0120300 ( S E T
0120320 Q V A L I D ( C A D R S C
0120340 A N ] \r
0120360
*
0120420 ( S E T Q B U F F E R
0120440 P T R ( A D D 1 B U F F E R
0120460 P T R ) ) ) \r
0120500 [ C O N D \r
0120520 ( ( O R ( I E Q P C
0120540 ( C H A R C O D E d ) ) \r
0120560
0120600 ( I E Q P C ( C H A R C O
0120620 D E D ) ) ) \r
0120640 ( S E T Q S C A L
0120660 E 0 ) \r
0120700 ( S E T Q B U F F E R P
0120720 T R ( A D D 1 B U F F E R P
0120740 T R ) ) \r
0120760 ( 006 002 w h i l e 006 001 ( A
0121000 N D ( I G E Q ( S E T Q C
0121020 ( C L : C H A R - I N T ( C
0121040 L : E L T B U F F E R B U F
0121060 F E R P T R ) ) ) \r
0121100
0121120 ( C H A R C
0121140 O D E 0 ) ) \r
0121160
0121200 ( I L E Q C ( C H A R C
0121220 O D E 9 ) ) ) 006 002 d o 006 001
0121240 [ C O N D \r
0121260
*
0121320 ( V A
0121340 L I D ( S E T Q S C A N (
0121360 006 002 S C A N . A P P E N D T O S
0121400 C A L E 006 001 S C A L E C ) \r
0121420
*
0121500 )
0121520 \r
0121540
*
0121600 (
0121620 S E T Q S C A L E ( C A R
0121640 S C A N ) ) \r
0121660
*
0121740 ( S E T Q V A L I D
0121760 ( C A D R S C A N ] \r
0122000
*
0122060 ( S E T Q B U F F E R P T R
0122100 ( A D D 1 B U F F E R P T R
0122120 ) ) ) \r
0122140 ( 006 002 f o r 006 001 I 006 002 f
0122160 r o m 006 001 1 006 002 t o 006 001 S
0122200 C A L E 006 002 d o 006 001 ( S E T
0122220 Q S C A N ( 006 002 S C A N . A
0122240 P P E N D D E C I M A L 006 001 V
0122260 ( C H A R C O D E 0 ) ) ) \r
0122300
*
0122340 ( S E T Q V
0122360 ( C A R S C A N ) ) \r
0122400
*
0122440 ( S E T Q V A L I D
0122460 ( C A D R S C A N ] \r
0122500 ( C O N D \r
0122520 ( [ N O T (
0122540 Z E R O P ( C L : C H A R - I
0122560 N T ( C L : E L T B U F F E
0122600 R B U F F E R P T R ] \r
0122620 ( S E T Q
0122640 V A L I D N I L ) ) ) \r
0122660 ( S E T Q V A
0122700 L U E V ) \r
0122720 ( R E T U R N ( L I S T V
0122740 A L U E V A L I D ] ) \r \r ( 006
0122760 004 S C A N . O C T A L 006 001 \r
0123000 [ L A M B D A ( B U F F E R )
0123020 006 006 006 001
0123040
0123060 006 006 ( *
0123100 ; " E d i t e d 6 - A p
0123120 r - 8 7 1 5 : 5 5 b y M a
0123140 s i n t e r " ) 006 001 \r
0123160
*
0123240 006 006 ( * R e t
0123260 u r n ( V A L U E V A L I D
0123300 ) * ) 006 001 \r ( P R O G
0123320 ( V A L U E V A L I D B U
0123340 F F E R P T R C V S C A N
0123360 S C A L E ) \r
0123400 ( S E T Q B U F F E R P T
0123420 R 0 ) \r (
0123440 S E T Q V A L I D T ) \r
0123460 ( S E T Q V
0123500 0 ) \r ( 006 002
0123520 w h i l e 006 001 ( A N D ( I G
0123540 E Q ( S E T Q C ( C L : C
0123560 H A R - I N T ( C L : E L T
0123600 B U F F E R B U F F E R P T R
0123620 ) ) ) \r
0123640
0123660 ( C H A R C O D E 0 ) ) \r
0123700
0123720 ( I L E Q C ( C H A
0123740 R C O D E 7 ) ) ) 006 002 d o 006
0123760 001 [ C O N D \r
0124000
*
0124040 ( V A L I
0124060 D ( S E T Q S C A N ( 006 002
0124100 S C A N . A P P E N D O C T A L
0124120 006 001 V C ) ) \r
0124140
*
0124220 ( S E T Q V ( C A R
0124240 S C A N ) ) \r
0124260
*
0124340 ( S E T Q V A L I D ( C A
0124360 D R S C A N ] \r
0124400
*
0124440 ( S E T Q B
0124460 U F F E R P T R ( A D D 1 B
0124500 U F F E R P T R ) ) ) \r
0124520 [ C O N D \r
0124540 ( ( O R ( I
0124560 E Q P C ( C H A R C O D E
0124600 b ) ) \r
0124620 ( I E Q P C ( C
0124640 H A R C O D E B ) ) ) \r
0124660 ( S E T Q
0124700 S C A L E 0 ) \r
0124720 ( S E T Q B U
0124740 F F E R P T R ( A D D 1 B U
0124760 F F E R P T R ) ) \r
0125000 ( 006 002 w h i l e
0125020 006 001 ( A N D ( I G E Q ( S
0125040 E T Q C ( C L : C H A R - I
0125060 N T ( C L : E L T B U F F E
0125100 R B U F F E R P T R ) ) ) \r
0125120
0125140 (
0125160 C H A R C O D E 0 ) ) \r
0125200
0125220 ( I L E Q C (
0125240 C H A R C O D E 7 ) ) ) 006 002
0125260 d o 006 001 [ C O N D \r
0125300
*
0125360 ( V A L I D ( S E T Q S
0125400 C A N ( 006 002 S C A N . A P P E
0125420 N D T O S C A L E 006 001 S C A L
0125440 E C ) \r
0125460
*
0125540 ) \r
0125560
*
0125640 ( S E T Q S C A L E
0125660 ( C A R S C A N ) ) \r
0125700
*
0125760 ( S E T Q
0126000 V A L I D ( C A D R S C A N
0126020 ] \r
0126040
*
0126100 ( S E T Q B U F F
0126120 E R P T R ( A D D 1 B U F F
0126140 E R P T R ) ) ) \r
0126160 ( 006 002 f o r 006 001
0126200 I 006 002 f r o m 006 001 1 006 002 t
0126220 o 006 001 S C A L E 006 002 d o 006 001
0126240 ( S E T Q S C A N ( 006 002 S
0126260 C A N . A P P E N D O C T A L 006
0126300 001 V ( C H A R C O D E 0 )
0126320 ) ) \r
0126340
0126360 ( S E T Q
0126400 V ( C A R S C A N ) ) \r
0126420
*
0126460 ( S E T Q V A L
0126500 I D ( C A D R S C A N ] \r
0126520 ( C O N D \r
0126540 ( [ N O
0126560 T ( Z E R O P ( C L : C H A
0126600 R - I N T ( C L : E L T B U
0126620 F F E R B U F F E R P T R ] \r
0126640 ( S
0126660 E T Q V A L I D N I L ) ) )
0126700 \r ( S E T Q
0126720 V A L U E V ) \r
0126740 ( R E T U R N ( L I S
0126760 T V A L U E V A L I D ] ) \r
0127000 \r ( 006 004 S C A N . O C T A L C H
0127020 A R 006 001 \r [ L A M B D A (
0127040 B U F F E R ) 006 006 006 001
0127060
*
0127120 006 006 ( * ; " E d i t e
0127140 d 6 - A p r - 8 7 1 5 : 5
0127160 7 b y M a s i n t e r " ) 006
0127200 001 \r
0127220
*
0127260 006
0127300 006 ( * R e t u r n ( V A L U
0127320 E V A L I D ) * ) 006 001 \r
0127340 ( P R O G ( V A L U E V
0127360 A L I D B U F F E R P T R C
0127400 V S C A N S C A L E ) \r
0127420 ( S E T Q B
0127440 U F F E R P T R 0 ) \r
0127460 ( S E T Q V A L I
0127500 D T ) \r (
0127520 S E T Q V 0 ) \r
0127540 ( 006 002 w h i l e 006 001 (
0127560 A N D ( I G E Q ( S E T Q
0127600 C ( C L : C H A R - I N T (
0127620 C L : E L T B U F F E R B U
0127640 F F E R P T R ) ) ) \r
0127660
0127700 ( C H A R C O D E
0127720 0 ) ) \r
0127740 ( I L E Q
0127760 C ( C H A R C O D E 7 ) )
0130000 ) 006 002 d o 006 001 [ C O N D \r
0130020
*
0130100 ( V A L I D ( S E T Q S
0130120 C A N ( 006 002 S C A N . A P P E
0130140 N D O C T A L 006 001 V C ) ) \r
0130160
*
0130240 ( S E T Q
0130260 V ( C A R S C A N ) ) \r
0130300
*
0130360 ( S E T Q V A
0130400 L I D ( C A D R S C A N ] \r
0130420
*
0130500 ( S E T Q B U F F E R P T R
0130520 ( A D D 1 B U F F E R P T R )
0130540 ) ) \r [ C O
0130560 N D \r
0130600 ( ( O R ( I E Q P C ( C H
0130620 A R C O D E c ) ) \r
0130640 ( I E
0130660 Q P C ( C H A R C O D E C
0130700 ) ) ) \r
0130720 ( S E T Q B U F F E R P T
0130740 R ( A D D 1 B U F F E R P T
0130760 R ] \r ( C O
0131000 N D \r
0131020 ( [ N O T ( Z E R O P ( C L
0131040 : C H A R - I N T ( C L : E L
0131060 T B U F F E R B U F F E R P
0131100 T R ] \r
0131120 ( S E T Q V A L I D N I
0131140 L ) ) ) \r (
0131160 C O N D \r
0131200 ( ( N O T ( O R ( I G E
0131220 Q V 0 ) \r
0131240 ( I
0131260 L E Q V 2 5 5 ) ) ) \r
0131300 ( S E T Q
0131320 V A L I D N I L ) ) ) \r
0131340 ( S E T Q V A
0131360 L U E V ) \r
0131400 ( R E T U R N ( L I S T V
0131420 A L U E V A L I D ] ) \r \r ( 006
0131440 004 S C A N . H E X 006 001 \r [ L
0131460 A M B D A ( B U F F E R ) 006 006
0131500 006 001
0131520
0131540 006 006 ( * ;
0131560 " E d i t e d 6 - A p r -
0131600 8 7 1 5 : 4 5 b y M a s i
0131620 n t e r " ) 006 001 \r
0131640
*
0131720 006 006 ( * R e t u r
0131740 n ( V A L U E V A L I D )
0131760 * ) 006 001 \r ( P R O G (
0132000 V A L U E V A L I D B U F F
0132020 E R P T R C V S C A N S
0132040 C A L E ) \r
0132060 ( S E T Q B U F F E R P T R
0132100 0 ) \r ( S E
0132120 T Q V A L I D T ) \r
0132140 ( S E T Q V 0 )
0132160 \r ( 006 002 w h
0132200 i l e 006 001 [ N O T ( Z E R O
0132220 P ( S E T Q C ( C L : C H
0132240 A R - I N T ( C L : E L T B
0132260 U F F E R B U F F E R P T R ]
0132300 \r 006 002
0132320 d o 006 001 ( C O N D \r
0132340 [ [
0132360 O R ( A N D ( I G E Q C
0132400 ( C H A R C O D E 0 ) ) \r
0132420
0132440 ( I L E Q
0132460 C ( C H A R C O D E 9 ) )
0132500 ) \r
0132520 ( A N D (
0132540 I G E Q C ( C H A R C O D E
0132560 A ) ) \r
0132600
0132620 ( I L E Q C ( C H A R C
0132640 O D E F ] \r
0132660 ( C O N D
0132700 \r
0132720 ( V A L I D (
0132740 S E T Q S C A N ( 006 002 S C A
0132760 N . A P P E N D H E X 006 001 V
0133000 C ) ) \r
0133020
0133040 ( S E T Q V ( C A R S
0133060 C A N ) ) \r
0133100
0133120 ( S E T Q V A L I D
0133140 ( C A D R S C A N ] \r
0133160 [
0133200 ( A N D ( I G E Q C ( C H
0133220 A R C O D E a ) ) \r
0133240
0133260 ( I L E Q C ( C H A
0133300 R C O D E f ) ) ) \r
0133320 (
0133340 C O N D \r
0133360 ( V A L
0133400 I D [ S E T Q S C A N ( 006
0133420 002 S C A N . A P P E N D H E X 006
0133440 001 V ( I D I F F E R E N C E
0133460 C ( I D I F F E R E N C E
0133500 ( C H A R C O D E \r
0133520
*
0133640 a ) \r
0133660
*
0133760 ( C H A R C O D E
0134000 A ] \r
0134020
0134040 ( S E T Q V ( C A R S C
0134060 A N ) ) \r
0134100
0134120 ( S E T Q V A L I D (
0134140 C A D R S C A N ] \r
0134160 ( T
0134200 ( R E T U R N ) ) ) \r
0134220 ( S E T
0134240 Q B U F F E R P T R ( A D D
0134260 1 B U F F E R P T R ) ) ) \r
0134300 [ C O N D \r
0134320 ( ( O R
0134340 ( I E Q P C ( C H A R C O
0134360 D E h ) ) \r
0134400 ( I E Q P C
0134420 ( C H A R C O D E H ) ) ) \r
0134440 ( S
0134460 E T Q S C A L E 0 ) \r
0134500 ( S E T Q
0134520 B U F F E R P T R ( A D D 1
0134540 B U F F E R P T R ) ) \r
0134560 ( 006 002 w h
0134600 i l e 006 001 ( A N D ( I G E Q
0134620 ( S E T Q C ( C L : C H A
0134640 R - I N T ( C L : E L T B U
0134660 F F E R B U F F E R P T R ) )
0134700 ) \r
0134720
0134740 ( C H A R C O D E 0 ) ) \r
0134760
0135000 ( I L E Q
0135020 C ( C H A R C O D E 9 ) ) )
0135040 006 002 d o 006 001 [ C O N D \r
0135060
*
0135140 ( V A L I D ( S E T
0135160 Q S C A N ( 006 002 S C A N . A
0135200 P P E N D T O S C A L E 006 001 S
0135220 C A L E C ) \r
0135240
*
0135320 ) \r
0135340
*
0135420 ( S E T Q S C A
0135440 L E ( C A R S C A N ) ) \r
0135460
*
0135540 ( S E
0135560 T Q V A L I D ( C A D R S
0135600 C A N ] \r
0135620
*
0135660 ( S E T Q B
0135700 U F F E R P T R ( A D D 1 B
0135720 U F F E R P T R ) ) ) \r
0135740 ( 006 002 f o r
0135760 006 001 I 006 002 f r o m 006 001 1
0136000 006 002 t o 006 001 S C A L E 006 002 d
0136020 o 006 001 ( S E T Q S C A N (
0136040 006 002 S C A N . A P P E N D H E X
0136060 006 001 V ( C H A R C O D E 0
0136100 ) ) ) \r
0136120
0136140 ( S E T
0136160 Q V ( C A R S C A N ) ) \r
0136200
*
0136240 ( S E T Q V A
0136260 L I D ( C A D R S C A N ] \r
0136300 ( C O N D \r
0136320 ( [ N
0136340 O T ( Z E R O P ( C L : C H
0136360 A R - I N T ( C L : E L T B
0136400 U F F E R B U F F E R P T R ]
0136420 \r (
0136440 S E T Q V A L I D N I L ) )
0136460 ) \r ( S E T
0136500 Q V A L U E V ) \r
0136520 ( R E T U R N ( L I
0136540 S T V A L U E V A L I D ] )
0136560 \r \r ( 006 004 S C A N . F L O A T I
0136600 N G 006 001 \r [ L A M B D A (
0136620 B U F F E R ) 006 006 006 001
0136640
*
0136700 006 006 ( * ; " E d i t e
0136720 d 6 - A p r - 8 7 1 5 : 4
0136740 6 b y M a s i n t e r " ) 006
0136760 001 \r
0137000
*
0137040 006
0137060 006 ( * R e t u r n ( V A L U
0137100 E V A L I D ) * ) 006 001 \r
0137120 ( P R O G ( V A L U E V
0137140 A L I D B U F F E R P T R C
0137160 V E X P S C A N S C A L
0137200 E O P ) \r
0137220 ( S E T Q B U F F E R P T R
0137240 0 ) \r ( S E
0137260 T Q V A L I D T ) \r
0137300 ( S E T Q V 0 )
0137320 \r ( S E T Q
0137340 E X P 0 ) \r
0137360 ( 006 002 w h i l e 006 001 ( A N
0137400 D [ < = ( C H A R C O D E
0137420 0 ) \r
0137440 ( S E T Q
0137460 C ( C L : C H A R - I N T (
0137500 C L : E L T B U F F E R B U
0137520 F F E R P T R ] \r
0137540 (
0137560 < C ( C H A R C O D E 9 )
0137600 ) ) 006 002 d o 006 001 ( S E T Q
0137620 V A L I D ( A N D V A L I D
0137640 ( 006 002 S C A N . V A L I D F R
0137660 A C T I O N 006 001 V C ) ) ) \r
0137700
*
0137740 [ C O
0137760 N D \r
0140000
*
0140040 ( V A L I D ( S E T Q
0140060 S C A N ( 006 002 S C A N . A P P
0140100 E N D D E C I M A L 006 001 V C
0140120 ) ) \r
0140140
*
0140200 ( S E T Q
0140220 V ( C A R S C A N ) ) ) \r
0140240
*
0140300 (
0140320 T ( S E T Q E X P ( A D D
0140340 1 E X P ] \r
0140360
*
0140420 ( S E T Q B U F F E R
0140440 P T R ( A D D 1 B U F F E R
0140460 P T R ) ) ) \r
0140500 [ C O N D \r
0140520 ( ( = C ( C H A R C
0140540 O D E % . ) ) \r
0140560 ( S E T Q B U F
0140600 F E R P T R ( A D D 1 B U F
0140620 F E R P T R ) ) \r
0140640 ( S E T Q C (
0140660 C L : C H A R - I N T ( C L :
0140700 E L T B U F F E R B U F F E
0140720 R P T R ) ) ) \r
0140740 ( C O N D \r
0140760 ( [ N
0141000 O T ( A N D ( I G E Q C
0141020 ( C H A R C O D E 0 ) ) \r
0141040
0141060 ( I L E Q
0141100 C ( C H A R C O D E 9 ] \r
0141120
0141140 ( S E T Q V A L I D N I L
0141160 ) ) ) \r
0141200 ( 006 002 w h i l e 006 001 ( A N
0141220 D ( I G E Q ( S E T Q C
0141240 ( C L : C H A R - I N T ( C L
0141260 : E L T B U F F E R B U F F
0141300 E R P T R ) ) ) \r
0141320
0141340 ( C H A R C O
0141360 D E 0 ) ) \r
0141400
0141420 ( I L E Q C ( C H A R C O
0141440 D E 9 ) ) ) 006 002 d o 006 001 (
0141460 S E T Q V A L I D ( A N D
0141500 V A L I D ( 006 002 S C A N . V A
0141520