$ od -c -N 50000 [eris]<Lisp>Carol>SOURCES>LLARRAYELT.DCOM!1
0000000 ( F I L E C R E A T E D " 3
0000020 - J a n - 8 4 1 4 : 0 7 : 3 2
0000040 " ( " c o m p i l e d o n
0000060 " { P H Y L U M } < L I S P C
0000100 O R E > S O U R C E S > L L A R
0000120 R A Y E L T . ; 4 9 ) \r " 3
0000140 - J a n - 8 4 0 1 : 4 3 : 2 3
0000160 " r e c o m p i l e d c h a
0000200 n g e s : P U T H A S H H A
0000220 S H A R R A Y i n W O R K
0000240 d a t e d " 3 - J a n - 8 4
0000260 0 1 : 5 3 : 3 7 " ) \r ( F I L
0000300 E C R E A T E D " 3 - J a n
0000320 - 8 4 1 4 : 0 6 : 5 0 " { P
0000340 H Y L U M } < L I S P C O R E >
0000360 S O U R C E S > L L A R R A Y E
0000400 L T . ; 4 9 6 8 6 3 7 c h a
0000420 n g e s t o : ( F N S \r P
0000440 U T H A S H H A S H A R R A Y
0000460 ) ( V A R S L L A R R A Y E
0000500 L T C O M S ) p r e v i o u s
0000520 d a t e : " 3 1 - D e c - 8
0000540 3 2 0 : 4 8 : 1 9 " \r { P H
0000560 Y L U M } < L I S P C O R E > S
0000600 O U R C E S > L L A R R A Y E L
0000620 T . ; 4 7 ) \r A I N D 1 \r ( L
0000640 ( 3 F I L E 2 N 1 I
0000660 N D E X 0 A P T R ) ) \0 245
0000700 006 \0 \0 004 @ 005 006 245 @ 005 \a 241 @ 204 j A
0000720 361 226 A l 033 \n \0 \0 277 @ 310 003 A @ 312 \0
0000740 \0 331 021 022 002 @ 312 \0 C d j 360 244 d l 004
0000760 360 225 277 @ 310 002 260 E d k 360 262 024 277 H 340
0001000 270 B 340 b 004 277 I 340 271 @ 310 002 340 260 . d
0001020 l 002 360 245 d l \a 360 262 027 277 H 340 340 270 B
0001040 340 340 b 004 277 I 340 340 271 @ 310 002 340 340 213 l
0001060 \b 360 221 h 205 @ l 033 \n \0 \0 I B 330 375 361
0001100 226 @ l 033 \n \0 \0 277 C g \0 \0 \n \0 \0 @
0001120 311 \0 I H 330 021 003 005 K 311 006 311 6 272 K L
0001140 M B l 004 J 016 @ 020 \0 ( 2 1 2 Q \
0001160 G E T O F D 2 0 2 Q \ L I S
0001200 P E R R O R 1 6 6 Q \ L I S
0001220 P E R R O R 2 3 Q \ L I S P
0001240 E R R O R ) \r ( 2 0 7 Q I N P
0001260 U T ) \r N I L \r A O U T D 1 \r
0001300 ( L ( 3 F I L E 2 N 1
0001320 I N D E X 0 A P T R ) )
0001340 \0 240 006 \0 \0 004 @ 005 006 245 @ 005 \a 241 @ 204
0001360 j A 361 226 A l 033 \n \0 \0 277 @ 310 003 A @
0001400 312 \0 \0 331 021 022 002 @ 312 \0 C d j 360 244 d
0001420 l 004 360 225 277 @ 310 002 260 @ d k 360 262 024 277
0001440 B 340 b 004 277 I 340 271 H 340 270 @ 310 002 340 260
0001460 ) d l 002 360 245 d l \a 360 262 027 277 B 340 340
0001500 b 004 277 I 340 340 271 H 340 340 270 @ 310 002 340 340
0001520 206 277 @ l 033 \n \0 \0 I B 330 375 361 226 @ l
0001540 033 \n \0 \0 277 C g \0 \0 \n \0 \0 @ 311 \0 I
0001560 H 330 021 003 005 K 311 006 311 8 272 K L M B l
0001600 004 J 016 @ 020 \0 ( 2 0 5 Q \ G E T
0001620 O F D 1 7 5 Q \ L I S P E R
0001640 R O R 1 6 1 Q \ L I S P E R
0001660 R O R 2 3 Q \ L I S P E R R
0001700 O R ) \r ( 2 0 2 Q O U T P U T
0001720 ) \r N I L \r A R R A Y D 1 \r (
0001740 L ( 3 O R I G 2 I N I T
0001760 V A L 1 T Y P E 0 S I Z
0002000 E ) ) 002 u 017 \0 \0 004 @ j 330 b \0 j
0002020 @ 361 247 d d n 377 377 361 230 277 @ l 033 \n \0
0002040 \0 277 @ 021 341 016 A d g \0 \0 360 233 277 @ l
0002060 003 330 342 342 270 j 261 \0 335 g \0 \0 360 255 A g
0002100 \0 \0 360 247 A d g \0 \0 360 231 277 @ k 330 342
0002120 270 k 261 \0 301 g \0 \0 360 247 A d g \0 \0 360
0002140 227 277 k 273 l 006 261 \0 255 233 A j 360 247 A d
0002160 g \0 \0 360 232 277 @ 340 270 k 273 l \v 261 \0 226
0002200 g \0 \0 360 224 l 002 261 \0 214 A d g \0 \0 360
0002220 262 030 277 B 265 017 o \0 \0 \0 b 004 277 k 273 l
0002240 \a 260 r \t \0 \0 260 364 g \0 \0 360 235 @ l 037
0002260 330 342 342 342 342 342 270 l \b 260 Z A g \0 \0 360
0002300 223 l 002 260 P @ A 360 223 l 002 260 H A d 003
0002320 262 @ d 001 g \0 \0 360 262 8 d 002 001 l 020 361
0002340 224 277 l 002 260 / 002 001 l \b 361 227 @ k 330 342
0002360 270 k 260 ! A 002 001 k 361 230 @ l 003 330 342 342
0002400 270 j 217 @ l 037 330 342 342 342 342 342 270 l \b 202
0002420 \t \0 \0 Z l 006 037 d J 317 \0 C 277 d @ 315
0002440 002 277 C d j 360 254 d k 360 250 265 004 k 204 l
0002460 033 \n \0 \0 274 d L 317 \0 \0 277 d j 315 003 277
0002500 H K \n \0 \0 275 d M 024 \0 277 Y B 242 261 001
0002520 . d 311 \0 _ 034 277 J d j 360 262 ) 277 B j
0002540 360 222 261 001 032 @ k 331 j _ 016 277 276 O 016 N
0002560 361 222 261 001 \n O 034 O 016 B 307 277 O 016 k 330
0002600 _ 016 260 355 k 360 262 - B j 360 222 261 \0 360 @
0002620 k 331 j _ 022 277 _ 020 277 O 022 O 020 361 222 261
0002640 \0 335 O 034 O 022 320 B 315 \0 277 O 022 k 330 _
0002660 022 260 352 J d l 002 360 262 , 277 B j 360 222 261
0002700 \0 275 O 034 _ 024 277 H d j 361 262 025 O 024 B
0002720 \n \0 \0 277 O 024 l 002 320 _ 024 277 k 331 260 352
0002740 277 261 \0 233 l 006 360 254 J l \v 360 247 J d l
0002760 \a 360 262 # 277 O 034 _ 026 277 H d j 361 262 024
0003000 O 026 B 024 \0 277 O 026 l 002 320 _ 026 277 k 331
0003020 260 353 277 260 i l \a 360 262 - o \0 \0 \0 B \n
0003040 \0 \0 263 Z O 034 _ 030 277 H d j 361 262 025 O
0003060 030 B \n \0 \0 277 O 030 l 002 320 _ 030 277 k 331
0003100 260 352 277 260 9 J l \b 360 262 0 B j 360 263 .
0003120 O 034 _ 032 277 H d j 361 262 036 O 032 n 377 377
0003140 315 \0 277 O 032 n 377 377 315 001 277 O 032 l 002 320
0003160 _ 032 277 k 331 260 341 277 202 \b \0 \0 I 020 \0 (
0003200 1 1 6 1 Q S H O U L D N T 1
0003220 0 5 2 Q P u t F l o a t 1 0
0003240 2 7 Q F E Q P 7 1 0 Q P u
0003260 t U n b o x e d 4 7 2 Q \ A
0003300 L L O C B L O C K 4 5 1 Q \
0003320 L I S P E R R O R 4 1 0 Q \
0003340 I L L E G A L . A R G 2 3 3 Q
0003360 F L O A T 2 6 Q \ L I S P
0003400 E R R O R ) \r ( 3 1 4 Q B I T
0003420 S 2 6 4 Q S I G N E D W O R
0003440 D 2 4 0 Q B I T 2 0 4 Q
0003460 F L O A T P 1 7 0 Q F I X P
0003500 1 5 0 Q D O U B L E P O I N
0003520 T E R 1 2 4 Q F L A G 1 1
0003540 5 Q P O I N T E R 7 6 Q W
0003560 O R D 6 7 Q S M A L L P O S
0003600 P 6 1 Q S M A L L P 4 0 Q
0003620 B Y T E ) \r ( 1 0 2 3 Q 0 .
0003640 0 2 1 7 Q 0 . 0 ) \r A R R A
0003660 Y S I Z E D 1 \r ( L ( 0 X
0003700 ) ) \0 005 \0 \0 \0 001 @ 310 002 020 \0 N I
0003720 L \r N I L \r ( ) \r A R R A Y T Y
0003740 P D 1 \r ( L ( 0 A R R A Y
0003760 ) ) \0 ` \0 \0 \0 001 @ d 005 006 244 l 034
0004000 \n \0 \0 312 \0 C d j 360 223 g \0 \0 020 d l
0004020 \v 360 223 g \0 \0 020 d l 006 360 223 g \0 \0 020
0004040 d k 360 223 g \0 \0 020 d l 004 360 223 g \0 \0
0004060 020 d l 002 360 223 g \0 \0 020 d l 003 360 223 g
0004100 \0 \0 020 d l \a 360 223 g \0 \0 020 l \b 360 223
0004120 g \0 \0 020 \b \0 \0 020 \0 ( 1 3 5 Q S
0004140 H O U L D N T 1 1 Q \ L I S
0004160 P E R R O R ) \r ( 1 3 1 Q B I
0004200 T 1 2 1 Q F L O A T P 1 1
0004220 0 Q H A R R A Y P 7 7 Q F
0004240 I X P 6 6 Q C O D E 5 5 Q
0004260 S M A L L P O S P 4 5 Q P
0004300 O I N T E R 3 4 Q D O U B L
0004320 E P O I N T E R 2 3 Q B Y T
0004340 E ) \r N I L \r A R R A Y O R I G
0004360 D 1 \r ( L ( 0 A R R A Y )
0004400 ) \0 017 \0 \0 \0 001 @ d 005 006 244 l 034 \n
0004420 \0 \0 312 \0 \0 020 \0 ( 1 1 Q \ L I S
0004440 P E R R O R ) \r N I L \r N I L \r
0004460 C O P Y A R R A Y D 1 \r ( L
0004500 ( 0 A R R A Y ) ) \0 d 005 \0 \0
0004520 001 @ d \t \0 \0 234 277 @ d \t \0 \0 \t \0 \0
0004540 \n \0 \0 020 \t \0 \0 @ \t \0 \0 @ \t \0 \0 021
0004560 # 004 J I h H \f \0 \0 [ H \ J d j 361
0004600 236 K L @ L ( * 277 L k 330 274 k 331 260 357
0004620 I g \0 \0 360 262 035 H 274 J d j 361 262 025 K
0004640 L @ L \n \0 \0 \v \0 \0 277 L k 330 274 k 331
0004660 260 352 K 020 \0 ( 1 2 7 Q S E T D
0004700 1 2 4 Q E L T D 4 7 Q A R
0004720 R A Y 3 5 Q A R R A Y S I Z
0004740 E 3 1 Q A R R A Y T Y P 2
0004760 5 Q A R R A Y O R I G 2 1 Q
0005000 R E H A S H 1 6 Q H A R R
0005020 A Y 1 3 Q H A R R A Y S I Z
0005040 E 4 H A R R A Y P ) \r ( 1 0
0005060 2 Q D O U B L E P O I N T E R
0005100 ) \r N I L \r A L L O C S T R I N
0005120 G D 1 \r ( L ( 2 O L D 1
0005140 I N I T C H A R 0 N ) )
0005160 \0 250 003 \0 \0 003 @ j 330 b \0 j @ 361 247 d
0005200 d n 377 377 361 230 277 @ l 033 \n \0 \0 277 @ l
0005220 003 330 342 342 \t \0 \0 021 001 \0 B 005 \a 262 3 B
0005240 d 006 \0 \0 @ 315 002 277 d H 024 \0 277 d j 315
0005260 003 277 d j 317 \0 C 277 d k 317 \0 020 277 d j
0005300 317 \0 277 d k 317 \0 020 277 k 317 \0 \0 260 035
0005320 l \a 037 d @ 315 002 277 d H 024 \0 277 d j 317
0005340 \0 C 277 d k 317 \0 \0 277 b 004 023 A 265 004 B
0005360 020 d 005 001 242 \t \0 \0 l 377 345 b 002 j 360 263
0005400 360 @ k 331 j B 311 \0 021 003 002 I H 361 252 J
0005420 I A 307 277 I k 330 Y 260 364 023 260 324 \0 ( 2
0005440 0 1 Q C H C O N 1 4 0 Q \
0005460 A L L O C B L O C K 2 6 Q \
0005500 L I S P E R R O R ) \r ( 5 5 Q
0005520 S T R I N G P ) \r N I L \r E L T
0005540 D 1 \r ( L ( 1 N 0 A )
0005560 ) \0 237 002 \0 \0 002 @ d 005 006 246 l 033 \n
0005600 \0 \0 277 @ 311 \0 A @ 312 \0 \0 331 021 002 001 j
0005620 I 361 250 I d @ 310 002 375 361 250 277 A l 033 \n
0005640 \0 \0 277 I @ 310 003 330 Y @ 312 \0 C d l 006
0005660 360 244 d l \v 360 230 277 H I 320 I 320 311 \0 020
0005700 d l 002 360 236 277 H I 320 I 320 X d 310 \0 H
0005720 310 001 365 020 d j 360 244 d l 004 360 224 277 H I
0005740 302 020 d k 360 226 277 H I 320 310 \0 020 d l \b
0005760 360 262 031 277 H I 342 342 342 342 320 310 \0 l 017 I
0006000 l 017 345 331 \n \0 \0 k 345 020 l \a 360 263 253 @
0006020 l 033 \n \0 \0 020 \0 ( 2 3 4 Q \ L I
0006040 S P E R R O R 2 1 6 Q L R S
0006060 H 5 1 Q \ L I S P E R R O R
0006100 1 1 Q \ L I S P E R R O R )
0006120 \r N I L \r N I L \r E L T D D 1
0006140 \r ( L ( 1 N 0 A ) ) \0
0006160 H 003 \0 \0 002 @ 005 006 264 006 @ 312 \0 C l \v
0006200 360 262 7 @ 311 \0 A @ 312 \0 \0 331 021 022 002 j
0006220 I 361 250 I d @ 310 002 375 361 250 277 A l 033 \n
0006240 \0 \0 277 I @ 310 003 330 Y H @ 310 002 Z 320 J
0006260 320 I 320 I 320 311 \0 020 @ A ( 020 \0 ( 5 4
0006300 Q \ L I S P E R R O R ) \r N I
0006320 L \r N I L \r S E T A D 1 \r ( L
0006340 ( 2 V 1 N 0 A ) )
0006360 \0 335 003 \0 \0 003 @ 005 006 265 003 205 312 \0 j
0006400 360 246 @ l 033 \n \0 \0 277 @ 311 \0 A @ 312 \0
0006420 \0 331 021 022 002 j I 361 250 I d @ 310 002 375 361
0006440 250 277 A l 033 \n \0 \0 277 I @ 310 003 330 Y @
0006460 312 \0 C d l 006 360 244 d l \v 360 232 277 H I
0006500 320 I 320 B 024 \0 B 020 d l 002 360 231 H I 320
0006520 I 320 B \n \0 \0 020 d j 360 244 d l 004 360 225
0006540 277 H I B 307 020 d k 360 227 H I 320 B 315 \0
0006560 B 020 d l \b 360 262 C 277 H I 342 342 342 342 320
0006600 B j 360 262 035 H I 342 342 342 342 320 310 \0 k l
0006620 017 I l 017 345 331 \n \0 \0 n 377 377 346 345 260 027
0006640 H I 342 342 342 342 320 310 \0 k l 017 I l 017 345
0006660 331 \n \0 \0 344 315 \0 B 020 l \a 360 235 H I 320
0006700 I 320 B \t \0 \0 Z 024 \0 J 020 @ l 033 \n \0
0006720 \0 020 \0 ( 3 3 2 Q \ L I S P E R
0006740 R O R 3 1 7 Q F L O A T 2
0006760 7 5 Q L L S H 2 4 2 Q L L
0007000 S H 1 3 7 Q P u t U n b o x
0007020 e d 6 1 Q \ L I S P E R R O
0007040 R 2 1 Q \ L I S P E R R O R
0007060 ) \r N I L \r N I L \r S E T D D
0007100 1 \r ( L ( 2 V 1 N 0
0007120 A ) ) \0 Y 003 \0 \0 003 @ 005 006 264 006 @
0007140 312 \0 C l \v 360 262 G @ d 312 \0 j 360 246
0007160 l 033 \n \0 \0 277 @ 311 \0 A @ 312 \0 \0 331 021
0007200 022 002 j I 361 250 I d @ 310 002 375 361 250 277 A
0007220 l 033 \n \0 \0 277 I @ 310 003 330 Y H @ 310 002
0007240 Z 320 J 320 I 320 I 320 B 024 \0 B 020 @ A B
0007260 * 020 \0 ( 7 2 Q \ L I S P E R R
0007300 O R 3 2 Q \ L I S P E R R O
0007320 R ) \r N I L \r N I L \r S U B A R
0007340 R A Y D 1 \r ( L ( 4 N E W
0007360 O R I G 3 O L D 2 M 1
0007400 N 0 X ) P 4 \ I N T
0007420 E R R U P T A B L E ) \0 252 \t \0
0007440 \0 005 @ d 005 006 246 l 034 \n \0 \0 277 @ 312 \0
0007460 C l 003 360 224 @ \t \0 \0 277 @ 310 002 @ 312 \0
0007500 \0 A B 021 T \b j J 361 225 J H k 330 330 272
0007520 K 241 H 210 j K 361 225 K H k 330 330 273 I J
0007540 361 h 360 264 g J K 361 h 360 264 ` K H 361 h
0007560 360 264 Y h 274 C 005 006 265 005 l 006 037 @ 311 \0
0007600 275 d 006 \0 \0 M 024 \0 277 K J 331 k 330 276 d
0007620 N 315 002 277 @ 312 \0 C _ 016 277 d O 016 317 \0
0007640 C 277 @ 310 003 J 330 I 331 _ 020 277 d O 020 315
0007660 003 277 d I 317 \0 \0 277 d k 317 \0 020 277 d j
0007700 317 \0 277 d k 317 \0 020 277 020 \0 ( 2 6 Q
0007720 \ I L L E G A L . A R G 1 1
0007740 Q \ L I S P E R R O R ) \r ( 1
0007760 4 2 Q A R R A Y P ) \r N I L \r
0010000 C L R H A S H D 1 \r ( L ( 0
0010020 H A R R A Y ) P 2 \ I N
0010040 T E R R U P T A B L E ) \0 D 003
0010060 \0 \0 001 @ 265 005 ` \0 \0 021 021 001 H d 003 221
0010100 001 X \t \0 \0 246 @ l 3 \n \0 \0 277 H 311 \0
0010120 Y 021 020 002 H 310 002 d j 361 262 025 I h 024 \0
0010140 277 I h 024 002 277 I l 004 320 271 k 331 260 352 277
0010160 H \t \0 \0 @ 020 \0 ( 1 0 0 Q \ H A
0010200 S H V A C A N C I E S 3 0 Q
0010220 \ L I S P E R R O R 2 1 Q H
0010240 A R R A Y P ) \r ( 5 S Y S H A
0010260 S H A R R A Y ) \r N I L \r G E T
0010300 H A S H D 1 \r ( L ( 1 H A
0010320 R R A Y 0 I T E M ) ) \0 255
0010340 \b \0 \0 002 @ 323 @ 322 346 A d 003 247 265 \t `
0010360 \0 \0 d 003 220 001 021 b \a I 005 006 231 I d 312
0010400 \0 C l 003 360 250 277 A l 3 \n \0 \0 277 I 311
0010420 \0 272 H I 310 002 k 331 345 273 @ J K 320 K 320
0010440 K 320 K 320 311 \0 \ 360 233 J K 320 K 320 K 320
0010460 K 320 311 002 020 L 254 J K 320 K 320 K 320 K 320
0010500 311 002 264 M K 275 k 276 I 310 002 N 331 _ 016 277
0010520 O 016 K 361 244 K O 016 331 202 K N 330 [ M 360
0010540 263 . J K 320 K 320 K 320 K 320 311 \0 \ d @
0010560 360 234 277 J K 320 K 320 K 320 K 320 311 002 020 263
0010600 321 J K 320 K 320 K 320 K 320 311 002 263 304 h 020
0010620 \0 ( 5 0 Q \ L I S P E R R O R
0010640 ) \r ( 1 5 Q S Y S H A S H A R
0010660 R A Y ) \r N I L \r H A R R A Y
0010700 D 1 \r ( L ( 0 L E N ) ) \0
0010720 Y 003 \0 \0 001 l \b @ j 330 021 002 001 H d I
0010740 361 262 G 277 H 265 003 i 022 021 ! 002 H 340 k 330
0010760 Y j H 361 255 H d n 377 377 361 247 277 d n 377
0011000 375 361 226 H l 033 \n \0 \0 277 l 006 037 I k \n
0011020 \0 \0 272 d J 024 \0 277 d H 315 002 277 d l 003
0011040 317 \0 C 277 \t \0 \0 020 d 330 X 260 263 \0 ( 1
0011060 2 1 Q \ H A S H V A C A N C I
0011100 E S 7 4 Q \ A L L O C B L O
0011120 C K 6 3 Q \ L I S P E R R O
0011140 R ) \r N I L \r N I L \r H A R R A
0011160 Y P D 1 \r ( L ( 0 X ) )
0011200 \0 021 \0 \0 \0 001 @ 005 006 264 \f @ 312 \0 C l
0011220 003 360 264 003 @ 020 \0 N I L \r N I L \r N
0011240 I L \r H A R R A Y S I Z E D 1
0011260 \r ( L ( 0 H A R R A Y ) )
0011300 \0 " \0 \0 \0 001 @ 265 \a ` \0 \0 b \0 003 224
0011320 @ 001 b \0 200 @ \t \0 \0 225 @ 310 002 k 331 020
0011340 @ l 3 \n \0 \0 020 \0 ( 3 7 Q \ L I
0011360 S P E R R O R 2 2 Q H A R R
0011400 A Y P ) \r ( 5 S Y S H A S H A
0011420 R R A Y ) \r N I L \r M A P H A S
0011440 H D 1 \r ( L ( 1 M A P H F
0011460 N 0 A R R A Y ) ) \0 I 004 \0
0011500 \0 002 @ d 003 247 265 \t ` \0 \0 d 003 220 001 \t
0011520 \0 \0 265 \b @ l 3 \n \0 \0 021 1 003 H 311 \0
0011540 Y H 310 002 [ 320 K 320 K 320 K 320 272 I d J
0011560 360 221 @ 020 311 002 265 \t I l 004 320 Y 260 361 I
0011600 311 \0 l 002 A 017 016 277 260 360 \0 ( 2 7 Q
0011620 \ L I S P E R R O R 1 7 Q H
0011640 A R R A Y P ) \r ( 1 0 Q S Y S
0011660 H A S H A R R A Y ) \r N I L \r P
0011700 U T H A S H D 1 \r ( L ( 2
0011720 H A R R A Y 1 V A L 0 I
0011740 T E M ) ) 001 K \v \0 \0 003 @ 323 @ 322
0011760 346 021 241 \n B d 003 247 265 \t ` \0 \0 d 003 220
0012000 001 _ 020 005 006 232 O 020 d 312 \0 C l 003 360 251
0012020 277 B l 3 \n \0 \0 277 O 020 311 \0 271 H O 020
0012040 310 002 k 331 345 273 @ I K 320 K 320 K 320 K 320
0012060 311 \0 \ 360 263 { I K 320 K 320 K 320 K 320 311
0012100 002 245 L 262 N K Z 200 K 275 k 276 O 020 310 002
0012120 N 331 _ 016 277 O 016 K 361 244 K O 016 331 202 K
0012140 N 330 [ M 360 233 J 265 ) o \0 \0 \0 \t \0 \0
0012160 260 I K 320 K 320 K 320 K 320 311 \0 \ 265 031
0012200 I K 320 K 320 K 320 K 320 311 002 251 J 265 003 K
0012220 273 A 263 W h 020 L @ 360 263 026 J 263 271 I K
0012240 320 K 320 K 320 K 320 311 002 263 254 K 272 260 250 A
0012260 263 + I K 320 K 320 K 320 K 320 o \0 \0 \0 024
0012300 \0 277 I O 020 310 002 _ 022 320 O 022 320 O 022 320
0012320 O 022 320 d 311 \0 k 330 024 \0 277 I K 320 K 320
0012340 K 320 K 320 A 024 002 A 020 I O 020 310 002 _ 024
0012360 320 O 024 320 O 024 320 O 024 320 d 311 \0 j 360 262
0012400 024 277 B 265 005 ` \0 \0 \t \0 \0 b 004 277 h 272
0012420 261 376 344 d 311 \0 k 331 024 \0 277 I K 320 K 320
0012440 K 320 K 320 @ 024 \0 277 I K 320 K 320 K 320 K
0012460 320 A 024 002 A 020 \0 ( 4 3 6 Q H A S
0012500 H O V E R F L O W 2 0 3 Q R
0012520 A I D 5 2 Q \ L I S P E R R
0012540 O R ) \r ( 4 3 3 Q S Y S H A S
0012560 H A R R A Y 2 0 Q S Y S H A
0012600 S H A R R A Y ) \r ( 3 2 2 Q
0012620 " D e l e t e d " 2 0 0 Q "
0012640 N o v a c a n t s l o t i
0012660 n h a s h a r r a y " ) \r R E
0012700 H A S H D 1 \r ( L ( 1 N E
0012720 W A R 0 O L D A R ) ) \0 @
0012740 005 \0 \0 002 A \t \0 \0 @ d 003 247 265 \t ` \0
0012760 \0 d 003 220 001 021 A 004 H 311 \0 Y H 310 002 \
0013000 320 L 320 L 320 L 320 272 I d J 360 221 A 020 311
0013020 002 [ 230 I 311 \0 K A \v \0 \0 277 I l 004 320
0013040 Y 260 350 \0 ( 6 6 Q P U T H A S H
0013060 3 C L R H A S H ) \r ( 1 4 Q
0013100 S Y S H A S H A R R A Y ) \r N
0013120 I L \r \ H A S H V A C A N C I E
0013140 S D 1 \r ( L ( 0 H A ) )
0013160 \0 035 001 \0 \0 001 @ 310 002 021 001 \0 @ 311 \0 H
0013200 320 H 320 H 320 H 320 H 342 H 342 342 342 330 024 \0
0013220 @ 020 \0 N I L \r N I L \r N I L \r G
0013240 R O W I N G H A R R A Y D 1 \r
0013260 ( L ( 1 O V E R F L O W 0
0013300 M I N K E Y S ) ) \0 023 \0 \0 \0
0013320 002 A g \0 \0 360 224 @ \t \0 \0 020 @ \t \0 \0
0013340 A 032 020 \0 ( 1 6 Q H A R R A Y
0013360 1 1 Q H A R R A Y ) \r ( 3 E
0013400 R R O R ) \r ( ) \r H A S H A R R
0013420 A Y D 1 \r ( L ( 1 O V E R
0013440 F L O W 0 M I N K E Y S ) )
0013460 \0 023 \0 \0 \0 002 A g \0 \0 360 224 @ \t \0
0013500 \0 020 @ \t \0 \0 A 032 020 \0 ( 1 6 Q H
0013520 A R R A Y 1 1 Q H A R R A Y
0013540 ) \r ( 3 E R R O R ) \r ( ) \r \
0013560 C O D E A R R A Y D 1 \r ( L
0013600 ( 1 A L I G N E D 0 N B Y
0013620 T E S ) ) \0 K 002 \0 \0 002 j @ 361 245
0013640 @ n 377 377 361 226 @ l 033 \n \0 \0 277 l 200 A
0013660 361 247 o \0 \0 \0 \t \0 \0 277 l 006 037 d l 004
0013700 317 \0 C 277 @ l 003 330 342 342 l 002 A \v \0 \0
0013720 021 002 001 H d I 024 \0 277 022 d @ 315 002 277 d
0013740 j 317 \0 \0 277 020 \0 ( 6 3 Q \ A L L
0013760 O C B L O C K 3 4 Q E R R O
0014000 R 1 7 Q \ L I S P E R R O R
0014020 ) \r N I L \r ( 3 1 Q " C o d e
0014040 n a m e t a b l e t o o
0014060 b i g ! " ) \r \ F I X C O D E N
0014100 U M D 1 \r ( L ( 2 N U M
0014120 1 B N 0 C A ) ) \0 035 001 \0
0014140 \0 003 @ 311 \0 021 001 \0 H A B l 377 345 307 H
0014160 A k 331 b 002 H A 302 B 343 344 307 B 020 \0 N
0014200 I L \r N I L \r N I L \r \ F I X C
0014220 O D E P T R D 1 \r ( L ( 2
0014240 P T R 1 B N 0 C A ) )
0014260 \0 ' 002 \0 \0 003 @ 311 \0 B 323 021 002 001 B 025
0014300 \0 277 H A I l 377 345 307 277 H A k 331 I 343
0014320 307 277 H A l 002 331 B 322 307 B 020 \0 N I L
0014340 \r N I L \r N I L \r \ A R R A Y T
0014360 Y P E N A M E D 1 \r ( L ( 0
0014400 X ) ) \0 032 \0 \0 \0 001 @ 312 \0 C d
0014420 l 004 360 223 g \0 \0 020 l 003 360 223 g \0 \0 020
0014440 g \0 \0 020 \0 N I L \r ( 2 7 Q A R
0014460 R A Y P 2 3 Q H A R R A Y P
0014500 1 3 Q C C O D E P ) \r N I L
0014520 \r \ A L L O C B L O C K D 1 \r
0014540 ( L ( 2 A L I G N 1 G C
0014560 T Y P E 0 N C E L L S ) P
0014600 3 \ I N T E R R U P T A B L
0014620 E ) \0 274 004 \0 \0 003 @ j 361 264 003 202 261
0014640 \0 264 l 002 @ 361 225 l 002 b \0 260 024 @ d n
0014660 377 375 361 232 277 o \0 \0 \0 @ \n \0 \0 277 @ l
0014700 002 330 021 ! 002 021 020 003 H B \n \0 \0 265 037 H
0014720 B \n \0 \0 265 030 \b \0 \0 277 H B \n \0 \0 265
0014740 \r 023 h l 025 i \v \0 \0 277 260 333 Y k 317 \0
0014760 360 277 I d 310 001 k 331 Z 320 J 320 k 317 \0 360
0015000 277 I A 265 004 j 205 i 360 221 k 200 A 317 \0 321
0015020 277 ` \0 \0 262 032 ` \0 \0 @ 361 264 \v ` \0 \0
0015040 @ 331 027 \0 \0 206 027 \0 \0 277 \b \0 \0 277 I l
0015060 002 320 Y 025 001 277 ` \0 \0 262 031 ` \0 \0 k 361
0015100 264 \v ` \0 \0 k 331 027 \0 \0 206 027 \0 \0 277 \b
0015120 \0 \0 I 020 \0 ( 2 7 0 Q \ D O R E
0015140 C L A I M 2 2 3 Q \ D O R E
0015160 C L A I M 1 1 7 Q \ L I S P
0015200 E R R O R 1 0 5 Q \ A L L O
0015220 C O L D B L O C K 7 7 Q R E
0015240 C L A I M 7 2 Q \ A L L O C
0015260 N E W B L O C K 6 3 Q \ A L
0015300 L O C O L D B L O C K 4 3 Q
0015320 E R R O R ) \r ( 2 6 4 Q \ R E
0015340 C L A I M . C O U N T D O W N
0015360 2 6 0 Q \ R E C L A I M . C O
0015400 U N T D O W N 2 5 3 Q \ R E
0015420 C L A I M . C O U N T D O W N
0015440 2 4 4 Q \ R E C L A I M . C O
0015460 U N T D O W N 2 3 7 Q \ R E
0015500 C L A I M . C O U N T D O W N
0015520 2 1 7 Q \ R E C L A I M . C O
0015540 U N T D O W N 2 1 3 Q \ R E
0015560 C L A I M . C O U N T D O W N
0015600 2 0 6 Q \ R E C L A I M . C O
0015620 U N T D O W N 1 7 7 Q \ R E
0015640 C L A I M . C O U N T D O W N
0015660 1 7 2 Q \ R E C L A I M . C O
0015700 U N T D O W N ) \r ( 3 7 Q " A
0015720 R R A Y S T O R A G E B L O
0015740 C K T O O L A R G E " ) \r \
0015760 A L L O C N E W B L O C K D 1
0016000 \r ( L ( 1 A L I G N 0 A
0016020 R L E N ) ) \0 335 005 \0 \0 002 A 262 T
0016040 ` \0 \0 l 002 320 021 021 001 l 002 H 323 l 377 345
0016060 342 k 345 331 Y l 002 360 253 I \t \0 \0 277 ` \0
0016100 \0 l 002 320 270 A l 200 H 323 l 377 345 342 331 Y
0016120 361 233 I \t \0 \0 277 ` \0 \0 l 002 320 270 @ l
0016140 002 331 n 200 \0 H 323 342 331 Y 361 224 I \t \0 \0
0016160 277 023 ` \0 \0 @ 320 @ 320 021 A 004 H m 377 320
0016200 Z 322 341 J 323 343 330 Y ` \0 \0 l 200 331 361 221
0016220 h 020 H m 376 320 [ 277 ` \0 \0 d I 361 262 4
0016240 277 ` \0 \0 n 252 250 315 \0 277 ` \0 \0 @ 315 001
0016260 277 @ k 361 233 K n 252 250 315 \0 277 K @ 315 001
0016300 277 ` \0 \0 ` \0 \0 g \0 \0 323 340 320 H 316 \0
0016320 277 020 j \n \0 \0 277 ` \0 \0 \ 343 L l 377 345
0016340 341 321 \t \0 \0 277 ` \0 \0 g \0 \0 323 340 320 `
0016360 \0 \0 l 002 330 316 \0 260 240 \0 ( 3 0 7 Q
0016400 \ N E W 2 P A G E 2 7 0 Q \
0016420 M A K E M D S E N T R Y 1 2 2
0016440 Q \ P A T C H B L O C K 7 0
0016460 Q \ P A T C H B L O C K 3 7
0016500 Q \ P A T C H B L O C K ) \r (
0016520 3 2 4 Q \ N x t A r r a y P a
0016540 g e 3 1 6 Q \ N x t A r r a
0016560 y P a g e 3 1 3 Q \ V A L S
0016600 P A C E 2 7 4 Q \ N x t A r
0016620 r a y P a g e 2 5 4 Q \ A r
0016640 r a y F r L s t 2 5 1 Q \ V
0016660 A L S P A C E 2 4 6 Q \ A r
0016700 r a y F r L s t 2 1 7 Q \ A
0016720 r r a y F r L s t 2 0 6 Q \
0016740 A r r a y F r L s t 1 7 5 Q
0016760 \ N x t A r r a y P a g e 1 5
0017000 5 Q \ L A S T A R R A Y P A G
0017020 E 1 2 7 Q \ A r r a y F r L
0017040 s t 7 4 Q \ A r r a y F r L
0017060 s t 4 3 Q \ A r r a y F r L
0017100 s t 5 \ A r r a y F r L s t
0017120 ) \r N I L \r \ A L L O C O L D B
0017140 L O C K D 1 \r ( L ( 1 A L
0017160 I G N 0 A R L E N ) ) 001 005
0017200 \a \0 \0 002 ` \0 \0 d 242 261 \0 376 021 a 006 H
0017220 310 \0 n 252 250 360 247 o \0 \0 \0 \t \0 \0 277 @
0017240 H 310 001 [ 361 222 261 \0 324 K @ 331 274 l 004 L
0017260 361 222 261 \0 201 H L 320 L 320 Y l 002 320 272 A
0017300 262 / J 323 l 377 345 342 k 345 j 360 242 261 \0 255
0017320 A l 200 J 323 l 377 345 342 331 361 222 261 \0 236 @
0017340 l 002 331 n 200 \0 J 323 342 331 361 222 261 \0 216 I
0017360 @ 315 001 277 I d 310 001 k 331 ] 320 M 320 @ 315
0017400 001 277 I n 025 U 317 \0 \f 277 ` \0 \0 g \0 \0
0017420 323 340 320 H 316 \0 277 H L 315 001 277 H d 310 001
0017440 k 331 ^ 320 N 320 X n 252 250 315 \0 277 H L 315
0017460 001 260 : H Y l 002 320 272 A 262 ) J 323 l 377
0017500 345 342 k 345 j 360 262 4 A l 200 J 323 l 377 345
0017520 342 331 361 263 ' @ l 002 331 n 200 \0 J 323 342 331
0017540 361 263 031 K b \0 277 I \t \0 \0 277 J I @ 320
0017560 @ 320 m 375 320 \n \0 \0 I 020 ` \0 \0 H 311 002
0017600 X 360 242 261 377 \f h 020 \0 ( 3 6 3 Q \
0017620 Z E R O W O R D S 3 4 6 Q \
0017640 D E L E T E B L O C K 3 1 Q
0017660 R A I D ) \r ( 3 7 0 Q \ F R E
0017700 E B L O C K L I S T 2 1 3 Q
0017720 \ F R E E B L O C K L I S T 2
0017740 1 0 Q \ V A L S P A C E 2
0017760 \ F R E E B L O C K L I S T ) \r
0020000 ( 2 6 Q " A r r a y f r e e
0020020 l i s t i n v a l i d " ) \r
0020040 \ D E L E T E B L O C K D 1 \r
0020060 ( L ( 0 B A S E ) ) \0 C 002
0020100 \0 \0 001 @ 311 002 265 \t o \0 \0 \0 \t \0 \0 @
0020120 311 004 021 002 001 @ d H 360 236 277 ` \0 \0 g \0
0020140 \0 323 340 320 h 316 \0 h 020 ` \0 \0 360 234 ` \0
0020160 \0 g \0 \0 323 340 320 H 316 \0 277 H I 316 004 I
0020200 H 316 002 h 020 \0 ( 1 3 Q R A I D )
0020220 \r ( 6 0 Q \ F R E E B L O C K
0020240 L I S T 5 5 Q \ V A L S P A
0020260 C E 5 0 Q \ F R E E B L O C
0020300 K L I S T 3 5 Q \ F R E E B
0020320 L O C K L I S T 3 2 Q \ V A
0020340 L S P A C E ) \r ( 1 0 Q " \ F
0020360 R E E B L O C K L I S T s c r
0020400 e w e d u p " ) \r \ L I N K B
0020420 L O C K D 1 \r ( L ( 0 B A
0020440 S E ) ) \0 F \0 \0 \0 001 l 004 @ 310 001
0020460 361 263 = ` \0 \0 250 @ d 316 002 277 @ d 260 037
0020500 @ ` \0 \0 316 002 277 @ ` \0 \0 311 004 316 004 277
0020520 ` \0 \0 311 004 @ 316 002 277 ` \0 \0 @ 316 004 277
0020540 ` \0 \0 g \0 \0 323 340 320 @ 316 \0 @ 020 h 020
0020560 \0 N I L \r ( 7 2 Q \ F R E E B
0020600 L O C K L I S T 6 7 Q \ V A
0020620 L S P A C E 6 0 Q \ F R E E
0020640 B L O C K L I S T 4 7 Q \ F
0020660 R E E B L O C K L I S T 3 7 Q
0020700 \ F R E E B L O C K L I S T
0020720 3 0 Q \ F R E E B L O C K L I
0020740 S T 1 2 Q \ F R E E B L O C
0020760 K L I S T ) \r N I L \r \ M E R G
0021000 E B A C K W A R D D 1 \r ( L
0021020 ( 0 B A S E ) ) \0 u 006 \0 \0 001
0021040 @ d ` \0 \0 360 263 i d m 376 320 312 \0 360 j
0021060 360 262 ^ m 376 320 @ 310 001 021 B 005 H d 312 \0
0021100 \f n 025 U 360 251 277 o \0 \0 \0 \t \0 \0 277 H
0021120 310 001 [ d n 377 377 I 331 361 225 @ \t \0 \0 @
0021140 020 @ j K 331 \ 320 L 320 Z d I K 330 Y 315
0021160 001 J d 310 001 k 331 ] 320 M 320 I 315 001 l 004
0021200 K 361 245 J d 311 002 245 277 J \t \0 \0 J 020 \t
0021220 \0 \0 @ 020 \0 ( 1 6 1 Q \ L I N K
0021240 B L O C K 1 5 4 Q \ L I N K
0021260 B L O C K 7 6 Q \ L I N K B
0021300 L O C K 5 5 Q R A I D ) \r (
0021320 4 \ A R R A Y S P A C E ) \r (
0021340 5 2 Q " B a d a r r a y b
0021360 l o c k " ) \r \ M E R G E F O R
0021400 W A R D D 1 \r ( L ( 0 B A
0021420 S E ) ) \0 h 004 \0 \0 001 @ 310 001 021 1
0021440 003 ` \0 \0 @ H 320 H 320 Y 360 247 I d 312 \0
0021460 360 j 360 241 h 020 310 001 Z I 312 \0 \f n 025 U
0021500 360 247 o \0 \0 \0 \t \0 \0 277 J n 377 377 H 331
0021520 361 263 343 l 004 J 361 250 I 311 002 224 I \t \0 \0
0021540 277 @ H J 330 Z 315 001 @ d 310 001 k 331 [ 320
0021560 K 320 J 315 001 l 004 H 361 264 274 @ \t \0 \0 277
0021600 260 264 \0 ( 1 4 3 Q \ L I N K B L
0021620 O C K 1 0 4 Q \ D E L E T E
0021640 B L O C K 5 5 Q R A I D ) \r
0021660 ( 1 0 Q \ A r r a y F r L s t
0021700 ) \r ( 5 2 Q " B a d a r r a
0021720 y b l o c k " ) \r \ P A T C H
0021740 B L O C K D 1 \r ( L ( 0 A
0021760 R L E N ) ) \0 \t \0 \0 \0 001 @ \t \0
0022000 \0 \t \0 \0 020 \0 ( 6 \ M E R G E B
0022020 A C K W A R D 3 \ A L L O C
0022040 N E W B L O C K ) \r N I L \r N I
0022060 L \r \ R E C L A I M A R R A Y B
0022100 L O C K D 1 \r ( L ( 0 P )
0022120 ) \0 h 004 \0 \0 001 @ m 376 320 021 1 003 H
0022140 312 \0 \f n 025 U 360 262 O H 312 \0 360 j 360 263
0022160 G H d 312 \0 321 k 360 262 024 d 310 001 k 331 Y
0022200 320 I 320 272 @ d J 360 264 # 277 H n 252 250 315
0022220 \0 277 H d 310 001 k 331 [ 320 K 320 n 252 250 315
0022240 \0 277 H \t \0 \0 \t \0 \0 260 024 024 \0 277 @ l
0022260 002 320 b \0 260 321 o \0 \0 \0 \t \0 \0 h 020 \0
0022300 ( 1 4 4 Q R A I D 1 2 0 Q
0022320 \ M E R G E F O R W A R D 1 1
0022340 5 Q \ M E R G E B A C K W A R
0022360 D ) \r N I L \r ( 1 4 1 Q " B a
0022400 d a r r a y b l o c k r e
0022420 c l a i m e d - - c o n t i n u
0022440 e w i t h ^ N b u t s a
0022460 v e s t a t e A S A P " ) \r
0022500 \ B Y T E L T D 1 \r ( L ( 1
0022520 J 0 A ) ) \0 : \0 \0 \0 002 @
0022540 d 005 006 262 030 d 312 \0 \0 j 360 236 d 312 \0 C
0022560 j 360 256 d 312 \0 C l 004 360 246 l 033 \n \0 \0
0022600 277 @ 310 002 A 361 246 A l 033 \n \0 \0 277 @ 311
0022620 \0 @ 310 003 A 330 302 020 \0 ( 5 5 Q \ L
0022640 I S P E R R O R 4 0 Q \ L I
0022660 S P E R R O R ) \r N I L \r N I L
0022700 \r \ B Y T E S E T A D 1 \r ( L
0022720 ( 2 V 1 J 0 A ) )
0022740 \0 I \0 \0 \0 003 @ d 005 006 262 030 d 312 \0 \0
0022760 j 360 236 d 312 \0 C j 360 256 d 312 \0 C l 004
0023000 360 246 l 033 \n \0 \0 277 @ 310 002 A 361 246 A l
0023020 033 \n \0 \0 277 @ d 312 \0 j 360 246 l 033 \n
0023040 \0 \0 277 @ 311 \0 @ 310 003 A 330 B 307 020 \0 (
0023060 7 3 Q \ L I S P E R R O R 5
0023100 5 Q \ L I S P E R R O R 4 0
0023120 Q \ L I S P E R R O R ) \r N I
0023140 L \r N I L \r \ W O R D E L T D
0023160 1 \r ( L ( 1 J 0 A ) )
0023200 \0 3 \0 \0 \0 002 @ d 005 006 235 d 312 \0 \0 j
0023220 360 226 d 312 \0 C k 360 246 l 033 \n \0 \0 277 @
0023240 310 002 A 361 246 A l 033 \n \0 \0 277 @ 311 \0 @
0023260 310 003 A 330 320 310 \0 020 \0 ( 4 4 Q \ L
0023300 I S P E R R O R 2 7 Q \ L I
0023320 S P E R R O R ) \r N I L \r N I L
0023340 \r \ G E T B A S E S T R I N G
0023360 D 1 \r ( L ( 2 N C H A R S
0023400 1 B Y T E O F F S E T 0 B
0023420 A S E ) ) \0 027 001 \0 \0 003 B \t \0 \0
0023440 021 001 \0 @ A H 311 \0 H 310 003 B \r 005 \0 \0
0023460 H 020 \0 ( 2 3 Q \ M O V E B Y T
0023500 E S 3 A L L O C S T R I N G
0023520 ) \r N I L \r N I L \r \ P U T B A
0023540 S E S T R I N G D 1 \r ( L (
0023560 2 S O U R C E 1 B Y T E O
0023600 F F S E T 0 B A S E ) ) \0
0023620 S \0 \0 \0 003 B 004 d l \a 360 262 026 277 B 311
0023640 \0 B 310 003 @ A B 310 002 b 004 \r 005 \0 \0 B
0023660 020 l 004 360 262 " ` \0 \0 B 323 340 320 311 \0 k
0023700 @ A ` \0 \0 B 323 340 320 311 \0 312 \0 \a b 004
0023720 \r 005 \0 \0 B 020 @ A B \t \0 \0 b 004 277 b
0023740 002 277 b \0 277 260 260 \0 ( 1 0 6 Q M K
0023760 S T R I N G 7 6 Q \ M O V E
0024000 B Y T E S 3 1 Q \ M O V E B
0024020 Y T E S ) \r ( 5 7 Q \ P N P S
0024040 P A C E 4 3 Q \ P N P S P A
0024060 C E ) \r N I L \r ( P R E T T Y C
0024100 O M P R I N T L L A R R A Y E
0024120 L T C O M S ) \r ( R P A Q Q L
0024140 L A R R A Y E L T C O M S ( (
0024160 * c o d e f o r a r r a y
0024200 s / s t r i n g s ) ( F N S
0024220 A I N A O U T A R R A Y A
0024240 R R A Y S I Z E A R R A Y T Y
0024260 P A R R A Y O R I G \r C O P
0024300 Y A R R A Y A L L O C S T R I
0024320 N G ) ( D E C L A R E : D O
0024340 N T C O P Y ( M A C R O S A
0024360 R R A Y S I Z E ) ) ( F N S
0024400 E L T E L T D S E T A S E
0024420 T D S U B A R R A Y ) ( C O
0024440 M S \r ( * H a s h a r r a
0024460 y s ) ( F N S C L R H A S H
0024500 G E T H A S H H A R R A Y
0024520 H A R R A Y P H A R R A Y S I
0024540 Z E M A P H A S H P U T H A
0024560 S H R E H A S H \ H A S H V
0024600 A C A N C I E S ) \r ( D E C L
0024620 A R E : D O N T C O P Y ( R
0024640 E C O R D S H A S H I N D E X
0024660 H A S H S L O T P O S T S L
0024700 O T ) ( M A C R O S \ F I R
0024720 S T I N D E X \ H A S H I N G
0024740 B I T S \ R E P R O B E ) )
0024760 ( \r F N S G R O W I N G H A R
0025000 R A Y H A S H A R R A Y ) (
0025020 E X P O R T ( G L O B A L V A
0025040 R S S Y S H A S H A R R A Y )
0025060 ) ) ( C O M S ( * S y s t
0025100 e m e n t r i e s f o r c
0025120 o m p i l e d \r c o d e b l
0025140 o c k s ) ( F N S \ C O D E
0025160 A R R A Y \ F I X C O D E N U
0025200 M \ F I X C O D E P T R ) )
0025220 ( C O M S ( * P r i v a t e
0025240 e n t r i e s ) ( F N S \
0025260 A R R A Y T Y P E N A M E \r \
0025300 A L L O C B L O C K \ A L L O
0025320 C N E W B L O C K \ A L L O C
0025340 O L D B L O C K ) ( * F u n
0025360 c t i o n s f o r m a n a g
0025400 i n g a r r a y g a r b a g
0025420 e . ) ( F N S \ D E L E T E
0025440 B L O C K \r \ L I N K B L O C
0025460 K \ M E R G E B A C K W A R D
0025500 \ M E R G E F O R W A R D \
0025520 P A T C H B L O C K \ R E C L
0025540 A I M A R R A Y B L O C K ) (
0025560 F N S \ B Y T E L T \ B Y T
0025600 E S E T A \r \ W O R D E L T )
0025620 ( F N S \ G E T B A S E S T
0025640 R I N G \ P U T B A S E S T R
0025660 I N G ) ( * \ A D D B A S E
0025700 2 a n d \ A D D B A S E 4
0025720 d o \ A D D B A S E o f 2
0025740 * N a n d 4 * N \r w i t h
0025760 o u t b o x i n g ) ( D E C
0026000 L A R E : D O N T C O P Y (
0026020 E X P O R T ( M A C R O S \
0026040 # B L O C K D A T A C E L L S
0026060 \ A D D B A S E 2 \ A D D B A
0026100 S E 4 \ B Y T E L T \r \ B Y
0026120 T E S E T A \ W O R D E L T )
0026140 ) ) ) ( * f o r M A K E I
0026160 N I T ) ( F N S C O P Y S T
0026200 R I N G P R E I N I T A R R A
0026220 Y S P O S T I N I T A R R A Y
0026240 S F I L E A R R A Y B A S E
0026260 \r F I L E B L O C K T R A I L E
0026300 R F I L E C O D E B L O C K
0026320 F I L E P A T C H B L O C K )
0026340 ( D E C L A R E : D O N T C O
0026360 P Y ( E X P O R T ( C O N S
0026400 T A N T S * \r B L O C K G C
0026420 T Y P E C O N S T A N T S ) (
0026440 C O N S T A N T S * A R R A
0026460 Y C O N S T A N T S ) ( C O N
0026500 S T A N T S * A R R A Y T Y
0026520 P E S ) ( R E C O R D S \r S
0026540 E Q U E N C E D E S C R I P T O
0026560 R A R R A Y P S T R I N G P
0026600 A R R A Y B L O C K ) ) ( G
0026620 L O B A L V A R S \ N x t A r
0026640 r a y P a g e \ F R E E B L O
0026660 C K L I S T \ A r r a y F r L
0026700 s t \r \ L A S T A R R A Y P A
0026720 G E ) ( * f o r M A K E I
0026740 N I T ) ( A D D V A R S ( I
0026760 N I T V A L U E S ( \ N x t A
0027000 r r a y P a g e ) ( \ L A S T
0027020 A R R A Y P A G E ) ) ( I N I
0027040 T P T R S ( \r \ F R E E B L O
0027060 C K L I S T ) ( \ A r r a y F
0027100 r L s t ) ) ( I N E W C O M S
0027120 ( F N S A L L O C S T R I N
0027140 G \ A L L O C B L O C K \ A
0027160 L L O C N E W B L O C K \ L I
0027200 N K B L O C K \r \ M E R G E B
0027220 A C K W A R D \ P A T C H B L
0027240 O C K ) ( F N S C O P Y S T
0027260 R I N G P R E I N I T A R R A
0027300 Y S P O S T I N I T A R R A Y
0027320 S F I L E A R R A Y B A S E
0027340 \r F I L E B L O C K T R A I L E
0027360 R F I L E C O D E B L O C K
0027400 F I L E P A T C H B L O C K ) )
0027420 ( M K I . S U B F N S ( \ A
0027440 L L O C O L D B L O C K . N
0027460 I L L ) ( \ M E R G E F O R W
0027500 A R D . \r N I L L ) ( \ F
0027520 I X C O D E N U M . I . F I
0027540 X U P N U M ) ( \ F I X C O D
0027560 E P T R . I . F I X U P P T
0027600 R ) ) ( E X P A N D M A C R O
0027620 F N S \ # B L O C K D A T A C
0027640 E L L S \r \ A D D B A S E 2
0027660 \ A D D B A S E 4 ) ) E V A L
0027700 @ C O M P I L E ( A D D V A R
0027720 S ( D O N T C O M P I L E F N
0027740 S C O P Y S T R I N G P R E
0027760 I N I T A R R A Y S P O S T I
0030000 N I T A R R A Y S \r F I L E A
0030020 R R A Y B A S E F I L E B L O
0030040 C K T R A I L E R F I L E C O
0030060 D E B L O C K F I L E P A T C
0030100 H B L O C K ) ) ) ( L O C A L
0030120 V A R S . T ) ) ) \r ( P U T
0030140 P R O P S L L A R R A Y E L T
0030160 C O P Y R I G H T ( " X e r
0030200 o x C o r p o r a t i o n "
0030220 1 9 8 2 1 9 8 3 1 9 8 4 ) )
0030240 \r N I L \r
0030245