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