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