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