$ od -c -N 50000 [qv]<IDL>RELEASE0.1>PRINT.FDCOM!1
0000000 ( F I L E C R E A T E D " 3
0000020 - A p r - 8 6 0 0 : 1 6 : 0 8
0000040 " ( " c o m p i l e d o n
0000060 " { Q V } < I D L > S O U R C
0000100 E S > P R I N T . ; 2 2 ) " 1
0000120 2 - N o v - 8 5 1 4 : 5 9 : 2
0000140 3 " \r t c o m p l ' d i n
0000160 " I N T E R L I S P - D 7 -
0000200 F e b - 8 6 . . . " d a t e
0000220 d " 7 - F e b - 8 6 1 1 :
0000240 4 3 : 0 5 " ) \r ( F I L E C R E
0000260 A T E D " 1 6 - F e b - 8 6
0000300 1 3 : 1 5 : 3 8 " { Q V } < I
0000320 D L > S O U R C E S > P R I N T
0000340 . ; 2 2 2 1 8 3 5 c h a n g
0000360 e s t o : ( V A R S P R I
0000400 N T C O M S ) \r p r e v i o u
0000420 s d a t e : " 1 1 - F e b -
0000440 8 6 2 3 : 2 8 : 4 4 " { Q V
0000460 } < I D L > S O U R C E S > P R
0000500 I N T . ; 2 1 ) \r P P A A 0 0 0
0000520 1 A 0 0 0 2 D 1 \r ( N A M E
0000540 U E R R O R S E T I 1 U R
0000560 E S E T V A R S L S T I 0
0000600 U E R R O R N A M E F 0 P
0000620 R E C I S I O N ) \0 % \0 001 \0 002
0000640 P d 003 002 003 245 277 \b \0 \0 277 P d 001 \t \0
0000660 \0 \t \0 \0 030 277 P 002 P 002 001 \t \0 \0 \t \0
0000700 \0 030 h 020 \0 ( 4 0 Q F I X R 3
0000720 5 Q C O N V . A R I T H 2 3
0000740 Q F I X R 2 0 Q C O N V .
0000760 A R I T H 1 1 Q U E R R O R
0001000 ! ) \r N I L \r ( ) \r P P A A 0 0
0001020 0 1 A 0 0 0 3 D 1 \r ( N A M E
0001040 E R R O R S E T L ( 0 N
0001060 I L ) P 4 3 Q T E M P P
0001100 4 2 Q D P 3 7 Q H E I
0001120 G H T S L T R P 3 6 Q R C
0001140 P 3 5 Q L C P 3 3 Q
0001160 L P 3 2 Q D P 3 0 Q
0001200 S L I C E P 2 7 Q X D S U
0001220 B P 2 6 Q D P 2 5 Q
0001240 S P 2 3 Q R M P 2 2 Q
0001260 L M P 2 1 Q N C O L U M
0001300 N S P 2 0 Q S H P N D P
0001320 1 7 Q X D I M S P 1 6 Q
0001340 N U M F O R M A T P 1 5 Q
0001360 N D I M S P 1 2 Q C B
0001400 P 1 1 Q E M P T Y F L A G
0001420 P 1 0 Q P A G E W I D T H
0001440 P 7 V A L D I M P 6 F
0001460 I E L D W I D T H P 5 S Y
0001500 M P 4 S H A P E P 3
0001520 G S B P 2 L A B E L P R I
0001540 N T F L A G F 4 4 Q A F
0001560 4 5 Q F I L E F 4 6 Q
0001600 R O W L A B E L W I D T H F
0001620 4 7 Q P R E C I S I O N F
0001640 5 0 Q R E S E T V A R S L S T
0001660 F 5 1 Q L A B E L P R I N
0001700 T F L A G F 5 2 Q R E S E
0001720 T Y ) 003 6 $ \a 002 \0 W J 262 + W J
0001740 g \0 \0 \n \0 \0 235 g \0 \0 W J \t \0 \0 h
0001760 032 032 h 032 213 o \0 \0 \0 W J \t \0 \0 h 032
0002000 032 W P 032 c P 277 W H \t \0 \0 236 W H d
0002020 \t \0 \0 \n \0 \0 \t \0 \0 261 002 362 W R W H
0002040 \t \0 \0 d l 002 360 222 277 l 003 021 002 001 H d
0002060 I 361 221 277 I 022 ` \0 \0 037 W H 006 \0 \0 311
0002100 002 W H 006 \0 \0 311 004 g \0 \0 360 W N 001 W
0002120 N 002 001 l 002 330 330 W H \t \0 \0 \b \0 \0 021
0002140 G \f L 006 \0 \0 310 005 W H \t \0 \0 g \0 \0
0002160 360 226 g \0 \0 N h 032 212 g \0 \0 N W N 002
0002200 001 h 032 032 032 021 002 016 O 032 l 002 331 O 032 j
0002220 360 263 033 O 032 005 003 265 020 L O 032 \n \0 \0 l
0002240 003 J 361 232 O 020 214 \t \0 \0 262 357 j 260 362 O
0002260 020 W L 331 N k 330 333 _ 026 277 k O 026 361 242
0002300 O 026 200 k 021 003 021 W L l 002 333 O d O
0002320 " 361 223 277 O 020 215 N k 330 332 J l 002 361 222
0002340 W L 200 j 330 d l # 361 242 277 l # 021 002 023
0002360 W H \t \0 \0 O $ O & i \f \0 \0 277 W H
0002400 O $ O & \v \0 \0 023 O 036 j 361 263 035 O
0002420 O " 361 263 026 O 032 j 361 264 003 202 261 001 354 W
0002440 H k \n \0 \0 277 261 001 341 l 003 J 361 262 035 l
0002460 003 272 O 020 W L 331 N k 330 333 _ 030 277 k O
0002500 030 361 242 O 030 200 k _ " 277 O 036 j 361 264 016
0002520 i h O 036 g \0 \0 k \r 005 \0 \0 W H O 036
0002540 i h O 032 g \0 \0 g \0 \0 \r 005 \0 \0 021 022
0002560 026 k _ , O ( 363 256 O * O , k \v \0 \0
0002600 277 O , k 324 260 355 O * 022 \n \0 \0 021 002 030
0002620 J k 361 235 O 036 021 ! 033 k _ 4 O 2 363 264
0002640 I 023 O O " 361 242 261 \0 372 O k O "
0002660 M 264 \f h L O 032 k 331 \n \0 \0 032 021 024
0002700 O @ 242 261 \0 226 O @ j 360 222 261 \0 325 O @
0002720 005 003 230 O @ \t \0 \0 222 261 \0 307 j O @ 363
0002740 262 r O O : 260 p \t \0 \0 277 W H O 4
0002760 \n \0 \0 265 004 O 4 \t \0 \0 277 J l 002 361 262
0003000 L O . O 4 \n \0 \0 _ 6 277 o \0 \0 \0 \t
0003020 \0 \0 277 j L O 4 \n \0 \0 331 j 360 263 023 W
0003040 H O 4 O 6 \v \0 \0 265 004 O 6 \t \0 \0 277
0003060 J l 003 361 262 027 O 4 d O 016 360 237 277 O 022
0003100 251 W H O 6 \n \0 \0 _ 024 277 O 4 k 324 261
0003120 377 K O : O 363 263 I O 0 O 032 O : O
0003140 < d O 361 222 277 O 032 \v \0 \0 277 M 262
0003160 024 O > O : 030 277 O 0 O 032 k 331 O > \v
0003200 \0 \0 277 O 0 O : \n \0 \0 277 O : O " _
0003220 @ 324 _ : 277 O < O " 324 _ < 277 261 377 #
0003240 023 206 O 0 k \n \0 \0 277 \b \0 \0 277 k O 036
0003260 021 022 # O B O D 363 263 H O . O D O .
0003300 O D \n \0 \0 L O D \n \0 \0 375 361 231 O .
0003320 O D \n \0 \0 k 330 200 k _ F \v \0 \0 277 O
0003340 0 O D O F \v \0 \0 277 k O F 331 j 360 245
0003360 O D 265 017 i 212 O D m 377 324 _ D 277 260 265
0003400 h 022 222 261 376 215 023 h 022 022 022 c T i 020 \0
0003420 ( 1 4 1 5 Q A D J U S T . S E
0003440 L E C T I O N 1 4 0 3 Q S E
0003460 T R E L T 1 3 7 2 Q G E T R
0003500 E L T 1 3 6 0 Q G E T R E L
0003520 T 1 3 5 2 Q G E T R E L T
0003540 1 3 2 1 Q T E R P R I 1 3 1
0003560 5 Q P R I N T M A T R I X 1
0003600 2 5 7 Q P R I N T M A T R I X
0003620 1 2 4 7 Q A D J U S T . S E
0003640 L E C T I O N 1 2 2 2 Q A D
0003660 J U S T . S E L E C T I O N 1
0003700 1 5 5 Q G E T C O D E S 1 1
0003720 2 4 Q P R I N 1 1 1 1 5 Q
0003740 G E T L E V L A B 1 0 7 7 Q
0003760 G E T R E L T 1 0 6 7 Q P R
0004000 I N 1 1 0 5 5 Q G E T R E L
0004020 T 1 0 3 7 Q P R I N 1 1 0
0004040 3 0 Q G E T D I M L A B 1 0
0004060 2 0 Q T E R P R I 7 7 5 Q
0004100 \ F Z E R O P 7 4 1 Q G E T
0004120 R E L T 6 6 2 Q F S E L E C
0004140 T 6 4 5 Q S E T R E L T 6
0004160 2 3 Q D R O W C R E A T E 6
0004200 0 1 Q D R O W C R E A T E 5
0004220 1 2 Q P R I N T M A T R I X
0004240 4 5 4 Q P R I N T A R R A Y P
0004260 R O P S 4 4 2 Q P R I N T T
0004300 I T L E 4 3 2 Q G E T T I T
0004320 L E 3 1 7 Q \ F Z E R O P
0004340 3 0 4 Q G E T R E L T 2 2 2
0004360 Q A E L T T Y P E 2 0 4 Q
0004400 L I N E L E N G T H 2 0 1 Q
0004420 G E T V A L D I M 1 1 0 Q L
0004440 A B E L L E V E L 7 6 Q P R
0004460 I N 1 7 3 Q G E T A E L T
0004500 7 0 Q V S C A L A R P T R 6
0004520 1 Q V S C A L A R P 4 3 Q
0004540 O U T F I L E 2 4 Q O U T P
0004560 U T 1 3 Q O P E N P ) \r ( 6
0004600 1 7 Q A L L 6 1 4 Q P O I
0004620 N T E R 5 7 4 Q I N T E G E
0004640 R 2 4 1 Q F L O A T 2 3 2
0004660 Q F I X 2 2 5 Q I N T E G
0004700 E R 2 1 3 Q R O W H E A D E
0004720 R 1 6 0 Q S Y M M E T R I C
0004740 1 5 3 Q A R R A Y F R A M E
0004760 1 4 4 Q A R R A Y F R A M E
0005000 1 3 6 Q 004 003 G E N S T A T E
0005020 B L O C K T Y P E # 1 7 Q O
0005040 U T P U T 1 0 Q O U T P U T
0005060 ) \r ( 1 0 6 4 Q " = "
0005100 3 6 Q ( P R O G N ( C L O S
0005120 E F ( O U T P U T O L D V A
0005140 L U E ) ) ) ) \r P P A A 0 0 0 1
0005160 D 1 \r ( N A M E U E R R O R
0005200 S E T P 1 2 Q R E S E T Z
0005220 P 1 1 Q R E S E T Y P
0005240 1 0 Q L I S P X H I S T P
0005260 3 F I L E P 2 A I 1
0005300 U R E S E T V A R S L S T I
0005320 0 U E R R O R N A M E F
0005340 1 3 Q R O W L A B E L W I D T
0005360 H F 1 4 Q L A B E L P R I
0005400 N T F L A G F 1 5 Q R E S
0005420 E T V A R S L S T F 1 6 Q
0005440 A F 1 7 Q F I L E F 2
0005460 0 Q L I S P X H I S T F 2
0005500 1 Q P R E C I S I O N ) \0 304
0005520 \v \a \0 002 W 034 d 021 002 001 I \t \0 \0 022 W
0005540 036 021 B \a W 026 ] \t \0 \0 \t \0 \0 \ d j
0005560 361 263 ! 277 \b \0 \0 262 026 o \0 \0 \0 i \n \0
0005600 \0 277 M i \n \0 \0 277 i \t \0 \0 277 \b \0 \0
0005620 277 L c 026 W 030 _ 016 \t \0 \0 \t \0 \0 ^ d
0005640 j l 004 \v \0 \0 263 " 277 \b \0 \0 262 027 o \0
0005660 \0 \0 i \n \0 \0 277 O 016 i \n \0 \0 277 i \t
0005700 \0 \0 277 \b \0 \0 277 N c 030 g \0 \0 W 032 \n
0005720 \0 \0 262 \b \0 \0 262 027 o \0 \0 \0 i \n \0
0005740 \0 277 W " i \n \0 \0 277 i \t \0 \0 277 \b \0
0005760 \0 277 W 021 ! \n W 032 o \0 \0 \0 g \0 \0
0006000 \n \0 \0 221 h 202 g \0 \0 _ 024 \n \0 \0 277 O
0006020 024 222 \b \0 \0 J 020 \0 ( 3 0 0 Q E R
0006040 R O R ! 2 7 1 Q R E S E T R
0006060 E S T O R E 2 5 6 Q P P A A
0006100 0 0 0 1 A 0 0 0 3 2 3 4 Q U
0006120 E R R O R ! 2 3 0 Q T E R P
0006140 R I 2 2 3 Q P R I N 2 2 1
0006160 4 Q P R I N 1 2 0 2 Q U E
0006200 R R O R P R I N T ? 1 7 5 Q
0006220 P P A A 0 0 0 1 A 0 0 0 2 1 6
0006240 1 Q U E R R O R ! 1 5 5 Q
0006260 T E R P R I 1 5 0 Q P R I N
0006300 2 1 4 1 Q P R I N 1 1 2 7
0006320 Q U E R R O R P R I N T ? 1
0006340 2 1 Q B E T W E E N 1 1 1 Q
0006360 F I X R 1 0 6 Q C O N V .
0006400 A R I T H 7 3 Q U E R R O R
0006420 ! 6 7 Q T E R P R I 6 2 Q
0006440 P R I N 2 5 4 Q P R I N 1
0006460 4 2 Q U E R R O R P R I N T
0006500 ? 3 0 Q F I X R 2 5 Q C
0006520 O N V . A R I T H 1 1 Q C O
0006540 N V . A R R A Y ) \r ( 2 6 4 Q
0006560 E R R O R 2 5 3 Q I N T E R
0006600 N A L 1 7 0 Q U E R R O R G
0006620 U A R D ) \r ( 2 5 0 Q ( P P
0006640 A A 0 0 0 1 A 0 0 0 3 ) 2 1 0
0006660 Q " I l l e g a l v a l u e
0006700 f o r P R E C I S I O N :
0006720 " 1 3 5 Q " I n v a l i d
0006740 L A B E L P R I N T F L A G :
0006760 " 5 0 Q " I n v a l i d
0007000 R O W L A B E L W I D T H :
0007020 " ) \r P P A D 1 \r ( I 1
0007040 F I L E I 0 A F 0 R
0007060 E S E T V A R S L S T ) \0 \n \0
0007100 001 \0 002 o \0 \0 \0 P \n \0 \0 020 \0 ( 7
0007120 P P A A 0 0 0 1 ) \r N I L \r (
0007140 3 031 ( P R O G N ( A D D S P
0007160 E L L ( Q U O T E P P A )
0007200 1 ) ( A D D S P E L L ( Q U
0007220 O T E P P A ) 2 ) ( Q U O
0007240 T E P P A ) ) ) \r P R I N T A
0007260 R R A Y P R O P S D 1 \r ( P
0007300 2 V P 1 P I 2 R M
0007320 A R G I 1 L M A R G I
0007340 0 A F 3 N U M F O R M A
0007360 T ) \0 252 003 001 \0 003 @ 006 \0 \0 311 016 021
0007400 021 001 H 003 265 004 h 020 001 Y 002 242 261 \0 220 I
0007420 d 001 @ 006 \0 \0 311 016 026 360 242 261 \0 201 h \t
0007440 \0 \0 277 A j \n \0 \0 277 I 001 d g \0 \0 360
0007460 231 277 o \0 \0 \0 \t \0 \0 260 ^ d g \0 \0 360
0007500 262 023 277 o \0 \0 \0 \t \0 \0 277 S I 002 \n \0
0007520 \0 260 F g \0 \0 360 262 ) o \0 \0 \0 \t \0 \0
0007540 277 I 260 030 d 001 021 001 002 k \t \0 \0 277 @ J
0007560 \n \0 \0 265 003 J \t \0 \0 023 002 003 265 350 260 032
0007600 I 001 \t \0 \0 277 o \0 \0 \0 \t \0 \0 277 I 002
0007620 h \t \0 \0 \n \0 \0 277 \b \0 \0 277 H 002 X 261
0007640 377 d \0 ( 2 4 1 Q T E R P R I
0007660 2 3 5 Q P R I N T D E F 2 3
0007700 2 Q P O S I T I O N 2 2 3 Q
0007720 P R I N 1 2 1 3 Q P R I N
0007740 1 1 7 7 Q P R I N 1 1 7 1
0007760 Q G E T D I M L A B 1 6 3 Q
0010000 S P A C E S 1 4 6 Q P R I
0010020 N 1 1 2 7 Q P R I N T N U M
0010040 1 2 0 Q P R I N 1 7 7 Q
0010060 P R I N 1 5 6 Q T A B 5 0
0010100 Q T E R P R I ) \r ( 1 3 4 Q
0010120 K E E P S 1 0 5 Q H M E A N
0010140 6 5 Q P A I R N 3 4 Q A
0010160 R R A Y F R A M E 3 A R R A
0010200 Y F R A M E ) \r ( 2 2 0 Q "
0010220 : " 1 4 3 Q " K e p t :
0010240 " 1 1 5 Q " H a r m o n i
0010260 c m e a n o f c e l l N
0010300 ' s : " 7 4 Q " O b s e r v
0010320 a t i o n s m i s s i n g " )
0010340 \r P R I N T E L T D 1 \r ( P
0010360 0 C O D E I 1 C B I
0010400 0 E L T F 4 F I E L D W
0010420 I D T H F 5 L A B E L P R
0010440 I N T F L A G F 6 N U M F
0010460 O R M A T ) \0 K 004 003 \0 002 021 020 \0
0010500 U l 004 360 262 - A @ 021 022 003 J 264 \a I 003
0010520 265 017 h 022 X 262 034 T h H \v \0 \0 260 ( 001
0010540 273 J K 001 \n \0 \0 223 K 002 260 351 I 002 Y 260
0010560 340 @ 254 T l 003 331 \t \0 \0 277 h \t \0 \0 204
0010600 V @ \n \0 \0 h 020 \0 ( 1 0 7 Q P R
0010620 I N T N U M 1 0 1 Q P R I N
0010640 1 7 4 Q S P A C E S 5 1 Q
0010660 E Q P 3 7 Q P R I N T L A
0010700 B E L ) \r N I L \r ( ) \r P R I N
0010720 T L A B E L D 1 \r ( I 2 L
0010740 A B E L I 1 D E F A U L T
0010760 I 0 W I D T H ) \0 " \0 \0
0011000 \0 003 j @ 331 B 262 027 B \t \0 \0 @ 363 232 B
0011020 k @ o \0 \0 \0 \f \0 \0 200 B 265 003 A j \v
0011040 \0 \0 020 \0 ( 3 7 Q F L U S H R I
0011060 G H T 2 6 Q S U B S T R I N
0011100 G 1 1 Q N C H A R S ) \r N I
0011120 L \r ( 2 3 Q " " ) \r P R I N
0011140 T M A T R I X D 1 \r ( P 1 1
0011160 Q R O W P 1 0 Q R O W C
0011200 B P 7 R E A L R O W P
0011220 5 C O L P 3 I P 1
0011240 C O L O F F S E T P 0 S H
0011260 A P E I 1 L C I 0 A
0011300 S L I C E F 1 2 Q N D I M
0011320 S F 1 3 Q L A B E L P R I
0011340 N T F L A G F 1 4 Q A F
0011360 1 5 Q G S B F 1 6 Q C
0011400 B F 1 7 Q V A L D I M F
0011420 2 0 Q R O W L A B E L W I D
0011440 T H F 2 1 Q F I E L D W I
0011460 D T H F 2 2 Q S Y M F
0011500 2 3 Q E M P T Y F L A G ) 001
0011520 350 \n \n \0 002 @ 006 \0 \0 311 002 A k 331 021 002
0011540 001 @ g \0 \0 W 032 \v \0 \0 c 032 W 024 k 331
0011560 j 360 242 261 \0 225 W 026 k 361 262 I W 030 W 024
0011600 \n \0 \0 265 004 W 024 \t \0 \0 277 h \t \0 \0 277
0011620 W 026 l 002 361 262 . H k \n \0 \0 021 021 003 k
0011640 [ J 363 263 033 k \t \0 \0 277 W " I K 330 @
0011660 k K \v \0 \0 \v \0 \0 277 K k 324 260 344 023 \b
0011700 \0 \0 277 H k \n \0 \0 021 021 005 k ] L 363 263
0011720 3 k \t \0 \0 277 @ W 032 \t \0 \0 \n \0 \0 W
0011740 034 265 030 W 026 l 004 360 264 021 W 024 W 036 360 264
0011760 \n W 030 I M 330 \n \0 \0 \n \0 \0 277 M k 324
0012000 260 314 023 \b \0 \0 h 020 W 026 k 361 262 p h \t
0012020 \0 \0 277 W \t \0 \0 277 W 030 W 024 \n \0 \0
0012040 265 004 W 024 \t \0 \0 277 h \t \0 \0 277 W 030 W
0012060 024 k 331 \n \0 \0 265 006 W 024 k 331 \t \0 \0 277
0012100 W 026 l 002 361 262 3 W j \n \0 \0 277 H l
0012120 002 \n \0 \0 021 021 003 k [ J 363 263 034 k \t \0
0012140 \0 277 W " I K 330 @ l 002 K \v \0 \0 \v \0
0012160 \0 277 K k 324 260 343 023 \b \0 \0 277 H k \n \0
0012200 \0 W $ 221 A 200 k W 026 l 004 360 264 \t W 036
0012220 W 024 k 331 360 021 023 \t k _ 022 277 O 022 N 363
0012240 222 261 377 e O 020 231 W 030 O 016 \n \0 \0 c 034
0012260 277 W 026 l 002 361 236 W O 016 @ k O 022 \v
0012300 \0 \0 \v \0 \0 277 W & 263 Z H l 002 \n \0 \0
0012320 021 021 005 k ] L 363 263 J k \t \0 \0 277 @ W
0012340 032 \t \0 \0 \n \0 \0 W 034 265 030 W 026 l 004 360
0012360 264 021 W 024 W 036 360 264 \n W 030 I M 330 \n \0
0012400 \0 \n \0 \0 277 W $ 262 0 M d O 022 331 j 360
0012420 262 ( 277 W 032 H l 002 \n \0 \0 M 331 \n \0 \0
0012440 277 023 \b \0 \0 277 O 022 k 324 _ 022 277 O 016 k
0012460 324 _ 016 277 261 377 h M k 324 260 232 \0 ( 7 1
0012500 7 Q T E R P R I 7 1 2 Q S
0012520 K I P 7 0 5 Q G E T R E L T
0012540 6 5 6 Q P R I N T E L T 6
0012560 5 3 Q G E T C O D E S 6 2 1
0012600 Q G E T A E L T 6 1 6 Q N
0012620 E X T 6 0 7 Q S P A C E S
0012640 5 7 2 Q G E T R E L T 5 5 7
0012660 Q P R I N T L A B E L 5 5 4
0012700 Q G E T L E V L A B 5 3 0 Q
0012720 G E T C O D E S 4 5 3 Q G
0012740 E T R E L T 4 4 5 Q T E R P
0012760 R I 4 3 3 Q P R I N T L A B
0013000 E L 4 3 0 Q G E T L E V L A
0013020 B 4 1 3 Q S P A C E S 3 7
0013040 6 Q G E T R E L T 3 6 7 Q
0013060 T A B 3 5 1 Q P R I N 1 3
0013100 4 0 Q G E T D I M L A B 3 2
0013120 6 Q T E R P R I 3 2 1 Q P
0013140 R I N 1 3 1 2 Q G E T D I M
0013160 L A B 3 0 2 Q S P A C E S
0013200 2 7 4 Q T E R P R I 2 6 0 Q
0013220 T E R P R I 2 4 6 Q P R I
0013240 N T E L T 2 4 3 Q G E T C O
0013260 D E S 2 1 1 Q G E T A E L T
0013300 2 0 6 Q N E X T 1 7 7 Q
0013320 S P A C E S 1 6 2 Q G E T R
0013340 E L T 1 5 4 Q T E R P R I
0013360 1 4 2 Q P R I N T L A B E L
0013400 1 3 7 Q G E T L E V L A B 1
0013420 2 3 Q S P A C E S 1 0 6 Q
0013440 G E T R E L T 7 1 Q T E R P
0013460 R I 6 4 Q P R I N 1 5 5 Q
0013500 G E T D I M L A B 2 4 Q S
0013520 E T U P ) \r ( 1 7 Q R O W M A
0013540 J O R 3 A R R A Y F R A M E
0013560 ) \r ( ) \r P R I N T T I T L E
0013600 D 1 \r ( P 0 A C T I O N I
0013620 3 N O N E W L I N E I 2
0013640 R M I 1 L M I 0 T
0013660 I T ) \0 033 001 \0 \0 004 C 243 \b \0 \0 277
0013700 A j \n \0 \0 g \0 \0 021 001 \0 @ \t \0 \0 \b
0013720 \0 \0 h 020 \0 ( 2 7 Q T E R P R I
0013740 2 4 Q T R A V E R S E . T I
0013760 T L E 1 2 Q T A B 4 T E
0014000 R P R I ) \r ( 1 5 Q T I T L E
0014020 . P R I N T . A C T I O N ) \r (
0014040 ) \r S P A C E P D 1 \r ( I 1
0014060 I I 0 S ) \0 \b \0 \0 \0 002
0014100 @ A ) l 360 020 \0 N I L \r N I L \r
0014120 ( ) \r T I T L E . P R I N T . A
0014140 C T I O N D 1 \r ( P 5 I
0014160 P 4 J P 3 N S P 2
0014200 S P 1 A P 0 N A R
0014220 G S F 6 R M F 7 L M
0014240 ) \0 320 006 002 002 \0 e 021 001 \0 k 021 ! 003
0014260 I d H 363 221 h 020 a \t \0 \0 Z \t \0 \0 273
0014300 V K \b \0 \0 324 363 263 P V K \b \0 \0 324 360
0014320 262 8 I H 360 263 B J m 377 \n \0 \0 263 : I
0014340 k 324 a 005 \a 265 017 I k 324 I k 324 a \t \0
0014360 \0 \n \0 \0 k \n \0 \0 263 037 J I k 324 Y a
0014400 \n \0 \0 Z \t \0 \0 273 j 021 021 005 K L 363 255
0014420 023 I k 324 Y 260 234 J \t \0 \0 277 260 365 L k
0014440 324 275 o \0 \0 \0 J M k 324 \v \0 \0 265 005 K
0014460 k 324 m 377 324 274 V \b \0 \0 325 L M 325 361 263
0014500 ( W 016 \b \0 \0 331 j 360 253 h \t \0 \0 277 W
0014520 016 j \n \0 \0 277 J M \n \0 \0 232 M d L 360
0014540 222 277 260 252 k 324 275 J M L o \0 \0 \0 \f \0
0014560 \0 \t \0 \0 277 260 227 \0 ( 3 1 3 Q P R
0014600 I N 1 3 1 0 Q S U B S T R I
0014620 N G 2 6 2 Q S P A C E P 2
0014640 5 4 Q T A B 2 4 5 Q T E R
0014660 P R I 2 3 5 Q P O S I T I O
0014700 N 2 2 1 Q P O S I T I O N
0014720 2 0 4 Q S T R P O S 1 6 2 Q
0014740 P R I N 1 1 3 6 Q N C H A
0014760 R S 1 3 2 Q C O N C A T 1
0015000 1 7 Q S P A C E P 1 1 3 Q
0015020 \ S E T A R G 0 1 1 0 Q M K
0015040 S T R I N G 6 4 Q S P A C E
0015060 P 4 5 Q P O S I T I O N 3
0015100 4 Q P O S I T I O N 2 6 Q
0015120 N C H A R S 2 2 Q M K S T R
0015140 I N G ) \r N I L \r ( 3 0 5 Q
0015160 " " 1 7 5 Q " " ) \r A F D
0015200 E F P R I N T D 1 \r ( P 4
0015220 L A B P 3 I P 2 S H
0015240 P 0 L S T I 0 A F )
0015260 001 002 005 \0 \0 001 o \0 \0 \0 g \0 \0 021 020
0015300 \0 @ \t \0 \0 262 6 H o \0 \0 \0 h 032 \n \0
0015320 \0 X @ \t \0 \0 h 032 \n \0 \0 X o \0 \0 \0
0015340 h 032 \n \0 \0 X @ d \t \0 \0 \n \0 \0 h 032
0015360 \n \0 \0 X o \0 \0 \0 261 \0 265 H o \0 \0 \0
0015400 h 032 \n \0 \0 X @ \t \0 \0 h 032 \n \0 \0 X
0015420 o \0 \0 \0 h 032 \n \0 \0 270 @ 006 \0 \0 311 002
0015440 006 \0 \0 310 005 @ 006 \0 \0 311 002 021 " 004 k [
0015460 I 363 263 5 H o \0 \0 \0 h 032 \n \0 \0 X @
0015500 K \n \0 \0 265 003 K h 032 \n \0 \0 X o \0 \0
0015520 \0 h 032 \n \0 \0 X J K \n \0 \0 h 032 \n \0
0015540 \0 270 K k 324 260 312 023 @ g \0 \0 \n \0 \0 262
0015560 9 H o \0 \0 \0 h 032 \n \0 \0 270 @ g \0 \0
0015600 \n \0 \0 260 " d 001 021 001 003 H o \0 \0 \0 h
0015620 032 \n \0 \0 X @ K \n \0 \0 265 003 K h 032 \n
0015640 \0 \0 X 023 002 003 265 337 H o \0 \0 \0 h 032 \n
0015660 \0 \0 022 \n \0 \0 030 020 \0 ( 3 7 6 Q A
0015700 P P L Y 3 7 2 Q \ N C O N C
0015720 2 3 5 2 Q \ N C O N C 2 3
0015740 4 2 Q G E T D I M L A B 3 3
0015760 4 Q \ N C O N C 2 3 1 3 Q
0016000 G E T A R R A Y P R O P 3 0 3
0016020 Q \ N C O N C 2 2 6 7 Q G
0016040 E T A R R A Y P R O P 2 5 1 Q
0016060 \ N C O N C 2 2 4 4 Q G E
0016100 T R E L T 2 3 6 Q \ N C O N
0016120 C 2 2 2 4 Q \ N C O N C 2
0016140 2 1 4 Q G E T D I M L A B 2
0016160 0 6 Q \ N C O N C 2 1 4 1 Q
0016200 \ N C O N C 2 1 2 7 Q \ N
0016220 C O N C 2 1 2 2 Q S E R I A
0016240 L N U M B E R 1 1 5 Q \ N C
0016260 O N C 2 7 3 Q \ N C O N C 2
0016300 6 6 Q G E T A E L T 6 3 Q
0016320 V S C A L A R P T R 5 5 Q
0016340 \ N C O N C 2 4 3 Q \ N C O
0016360 N C 2 3 6 Q S E R I A L N U
0016400 M B E R 3 1 Q \ N C O N C 2
0016420 1 5 Q V S C A L A R P ) \r (
0016440 3 1 0 Q K E E P S 2 6 4 Q
0016460 K E E P S 1 6 1 Q A R R A Y
0016500 F R A M E 1 5 3 Q R O W H E
0016520 A D E R 1 4 6 Q A R R A Y F
0016540 R A M E 6 C O N C A T ) \r (
0016560 3 6 5 Q " ] " 3 2 7 Q "
0016600 " 2 7 6 Q " ; k e p t "
0016620 2 3 1 Q " = " 2 0 1 Q "
0016640 " 1 3 4 Q " : " 1 1 0 Q
0016660 " [ A r r a y " 1 0 0 Q
0016700 " ] " 5 0 Q " : " 2 4 Q
0016720 " [ S c a l a r " 3 031 (
0016740 C O N S N I L ( P A C K ) )
0016760 ) \r ( P R E T T Y C O M P R I N
0017000 T P R I N T C O M S ) \r ( R P
0017020 A Q Q P R I N T C O M S ( (
0017040 * p r e t t y p r i n t f n
0017060 s f o r a r r a y s ) ( F
0017100 N S P P A P R I N T A R R A
0017120 Y P R O P S P R I N T E L T
0017140 P R I N T L A B E L \r P R I N
0017160 T M A T R I X P R I N T T I T
0017200 L E S P A C E P T I T L E .
0017220 P R I N T . A C T I O N ) ( V
0017240 A R S ( L A B E L P R I N T F
0017260 L A G 4 ) ( P R E C I S I O
0017300 N ( Q U O T E ( 4 3 ) ) )
0017320 ( \r R O W L A B E L W I D T H
0017340 8 ) ) ( A L I S T S ( P R
0017360 E T T Y P R I N T Y P E M A C R
0017400 O S A R R A Y F R A M E ) )
0017420 ( F N S A F D E F P R I N T )
0017440 ( P ( D E F P R I N T ( Q
0017460 U O T E \r A R R A Y F R A M E
0017500 ) ( Q U O T E A F D E F P R
0017520 I N T ) ) ) ( D E C L A R E :
0017540 D O N T E V A L @ L O A D D
0017560 O E V A L @ C O M P I L E D O
0017600 N T C O P Y C O M P I L E R V
0017620 A R S ( A D D V A R S \r ( N
0017640 L A M A ) ( N L A M L ) ( L
0017660 A M A T I T L E . P R I N T .
0017700 A C T I O N ) ) ) ) ) \r ( R P A
0017720 Q Q L A B E L P R I N T F L A
0017740 G 4 ) \r ( R P A Q Q P R E C
0017760 I S I O N ( 4 3 ) ) \r ( R P
0020000 A Q Q R O W L A B E L W I D T
0020020 H 8 ) \r ( A D D T O V A R P
0020040 R E T T Y P R I N T Y P E M A C
0020060 R O S ( A R R A Y F R A M E
0020100 . P P A ) ) \r ( D E F P R I N
0020120 T ( Q U O T E A R R A Y F R
0020140 A M E ) ( Q U O T E A F D E
0020160 F P R I N T ) ) \r ( P U T P R O
0020200 P S P R I N T C O P Y R I G
0020220 H T ( " X e r o x C o r p o
0020240 r a t i o n " 1 9 8 3 1 9 8
0020260 4 1 9 8 5 1 9 8 6 ) ) \r N I
0020300 L \r
0020302