$ od -c -N 50000 [phylum]<LISP>KOTO>Library>IRISIO.DCom!1
0000000 ( F I L E C R E A T E D " 1 2
0000020 - N o v - 8 5 1 9 : 1 3 : 0 5
0000040 " ( " c o m p i l e d o n
0000060 " { E R I S } < I R I S > K O
0000100 T O > I R I S I O . ; 2 ) " 1
0000120 7 - O c t - 8 5 1 8 : 5 8 : 4
0000140 4 " \r r e c o m p i l e d c
0000160 h a n g e s : I R I S . S E N
0000200 D F S i n " I N T E R L I S
0000220 P - D 1 7 - O c t - 8 5 . .
0000240 . " d a t e d " 1 7 - O c t
0000260 - 8 5 1 9 : 1 9 : 5 8 " ) \r (
0000300 F I L E C R E A T E D " 1 2 -
0000320 N o v - 8 5 1 9 : 1 1 : 4 3 "
0000340 { E R I S } < I R I S > K O T
0000360 O > I R I S I O . ; 2 2 1 0 2
0000400 6 c h a n g e s t o : ( V
0000420 A R S I R I S I O C O M S )
0000440 ( F N S \r I R I S . S E N D F
0000460 S ) p r e v i o u s d a t e
0000500 : " 9 - S e p - 8 5 1 3 :
0000520 4 7 : 2 8 " { E R I S } < I R
0000540 I S > K O T O > I R I S I O . ;
0000560 1 ) \r I R I S . G E X I T D 1
0000600 \r ( I 0 s t r e a m F 0
0000620 I R I S C O N N ) \0 \t \0 001 \0
0000640 001 @ 265 003 P \t \0 \0 020 \0 ( 6 S P P
0000660 . F O R C E O U T P U T ) \r N I
0000700 L \r ( ) \r I R I S . G F L U S H
0000720 D 1 \r ( I 0 s t r e a m
0000740 F 0 I R I S C O N N ) \0 \t
0000760 \0 001 \0 001 @ 265 003 P \t \0 \0 020 \0 ( 6
0001000 S P P . F O R C E O U T P U T )
0001020 \r N I L \r ( ) \r I R I S . G I N
0001040 I T D 1 \r ( I 0 S T R E A
0001060 M F 0 I R I S C O N N )
0001100 \0 023 \0 001 \0 001 @ 265 005 P b \0 \t \0 \0 @
0001120 \t \0 \0 @ \t \0 \0 020 \0 ( 2 0 Q S P
0001140 P . F O R C E O U T P U T 1 4
0001160 Q I R I S . X G I N I T 1 0
0001200 Q I R I S . S E T F A S T C O
0001220 M ) \r N I L \r ( ) \r I R I S . G
0001240 R E S E T D 1 \r ( I 0 S T
0001260 R E A M ) \0 \n \0 \0 \0 001 @ \t \0 \0
0001300 @ \t \0 \0 020 \0 ( 7 S P P . F O R
0001320 C E O U T P U T 3 I R I S .
0001340 X G R E S E T ) \r N I L \r ( ) \r
0001360 I R I S . R E C B S D 1 \r ( P
0001400 1 4 Q j P 1 2 Q a L o
0001420 n g P 1 1 Q a r r a y M a
0001440 x P 1 0 Q p t r P 7
0001460 i P 5 j P 1 n B y t
0001500 e s P 0 n L o n g s I
0001520 1 s t r e a m I 0 v a l
0001540 u e s F 1 6 Q n V a l s )
0001560 001 * 016 001 \0 002 021 @ 003 A 006 \0 \0 311 \f
0001600 006 \0 \0 311 6 l ~ 360 262 361 l 036 j d 021
0001620 003 006 M L 363 263 037 N A 006 \0 \0 311 \f 006 \0
0001640 \0 311 6 l 331 M \n \0 \0 324 276 M l 006
0001660 324 ] 260 341 N 022 Y l 003 330 342 342 X A 006 \0
0001700 \0 311 \f 006 \0 \0 311 6 l ~ 360 263 026 o \0
0001720 \0 \0 i \n \0 \0 277 A \t \0 \0 264 006 A 260
0001740 367 020 H k 331 j @ \t \0 \0 @ \t \0 \0 W 034
0001760 330 021 024 \n O 016 N 363 222 261 \0 230 l 036 j d
0002000 021 003 \r O 030 O 026 363 263 % O 032 A 006 \0 \0
0002020 311 \f 006 \0 \0 311 6 l 331 O 030 \n \0 \0
0002040 324 _ 032 277 O 030 l 006 324 _ 030 260 332 O 032 022
0002060 _ 024 277 O 016 l \a 345 j 360 262 031 A 006 \0 \0
0002100 311 \f 006 \0 \0 311 6 277 A l . ! 277 A \t
0002120 \0 \0 277 l 002 j 273 272 K J 363 263 $ O 020 K
0002140 330 O 022 363 263 025 @ O 020 K 330 O 024 K 340 340
0002160 340 \n \0 \0 l 377 345 * 277 K k 324 [ 260 334 O
0002200 016 k 324 _ 016 277 O 020 l 003 324 _ 020 277 261 377
0002220 f 023 A 006 \0 \0 311 \f 006 \0 \0 311 6 h 020
0002240 \0 ( 3 7 4 Q L R S H 3 3 2 Q
0002260 S P P . F O R C E O U T P U T
0002300 2 5 0 Q L L S H 1 6 6 Q
0002320 A R R A Y O R I G 1 6 2 Q A
0002340 R R A Y O R I G 1 4 3 Q S P
0002360 P . R E A D P 1 3 6 Q P R I
0002400 N T 6 3 Q L L S H ) \r ( 4 4
0002420 3 Q S P P C O N 4 3 6 Q S
0002440 T R E A M 3 1 5 Q S P P C O
0002460 N 3 1 0 Q S T R E A M 2 3
0002500 5 Q S P P C O N 2 3 0 Q S
0002520 T R E A M 1 1 6 Q S P P C O
0002540 N 1 1 1 Q S T R E A M 5 1
0002560 Q S P P C O N 4 4 Q S T R
0002600 E A M 1 3 Q S P P C O N 6
0002620 S T R E A M ) \r ( 1 3 2 Q
0002640 " I R I S . R E C B S : e r r
0002660 o r i n a r r a y t r a n
0002700 s p o r t " ) \r I R I S . R E C
0002720 F S D 1 \r ( P 1 1 Q j P
0002740 7 a L o n g P 6 a F l
0002760 o a t P 5 p t r P 4
0003000 i P 2 j P 0 n L o n
0003020 g s I 1 s t r e a m I
0003040 0 v a l u e s ) 001 004 \v \0 \0 002
0003060 021 020 \0 A 006 \0 \0 311 \f 006 \0 \0 311 6 l
0003100 ~ 360 262 361 l 036 j d 021 003 003 J I 363 263 037
0003120 K A 006 \0 \0 311 \f 006 \0 \0 311 6 l 331
0003140 J \n \0 \0 324 273 J l 006 324 Z 260 341 K 022 X
0003160 A 006 \0 \0 311 \f 006 \0 \0 311 6 l ~ 360 263
0003200 033 o \0 \0 \0 i \n \0 \0 277 i \t \0 \0 277 A
0003220 \t \0 \0 264 006 A 260 367 020 H k 331 j @ \t
0003240 \0 \0 l 003 037 021 024 \a L K 363 263 y l 036 j
0003260 d 021 003 \n O 022 O 020 363 263 % O 024 A 006 \0
0003300 \0 311 \f 006 \0 \0 311 6 l 331 O 022 \n \0
0003320 \0 324 _ 024 277 O 022 l 006 324 _ 022 260 332 O 024
0003340 022 _ 016 277 L l \a 345 j 360 262 031 A 006 \0 \0
0003360 311 \f 006 \0 \0 311 6 277 A l . ! 277 A \t
0003400 \0 \0 277 N O 016 343 343 315 \0 277 N O 016 n 377
0003420 377 345 315 001 277 @ M N * 277 L k 324 274 M k
0003440 324 275 260 206 023 A 006 \0 \0 311 \f 006 \0 \0 311 6
0003460 h 020 \0 ( 3 2 1 Q S P P . F O
0003500 R C E O U T P U T 2 4 0 Q L
0003520 L S H 1 6 1 Q A R R A Y O R
0003540 I G 1 4 2 Q S P P . R E A D
0003560 P 1 3 5 Q T E R P R I 1 3
0003600 0 Q P R I N 1 6 3 Q L L S
0003620 H ) \r ( 3 7 5 Q S P P C O N
0003640 3 7 0 Q S T R E A M 3 0 4 Q
0003660 S P P C O N 2 7 7 Q S T R
0003700 E A M 2 2 5 Q S P P C O N
0003720 2 2 0 Q S T R E A M 1 1 0 Q
0003740 S P P C O N 1 0 3 Q S T R
0003760 E A M 5 1 Q S P P C O N 4
0004000 4 Q S T R E A M 1 3 Q S P
0004020 P C O N 6 S T R E A M ) \r (
0004040 1 2 4 Q " I R I S . R E C F
0004060 L S : e r r o r i n a r r
0004100 a y t r a n s p o r t " ) \r I
0004120 R I S . R E C L S D 1 \r ( P
0004140 1 0 Q j P 6 a L o n g
0004160 P 5 p t r P 4 i P
0004200 2 j P 0 n L o n g s I
0004220 1 S T R E A M I 0 v a
0004240 l u e s F 1 2 Q s t r e a
0004260 m ) \0 352 \n 001 \0 002 021 020 \0 A 006 \0 \0
0004300 311 \f 006 \0 \0 311 6 l ~ 360 262 361 l 036 j
0004320 d 021 003 003 J I 363 263 037 K A 006 \0 \0 311 \f
0004340 006 \0 \0 311 6 l 331 J \n \0 \0 324 273 J
0004360 l 006 324 Z 260 341 K 022 X A 006 \0 \0 311 \f 006
0004400 \0 \0 311 6 l ~ 360 263 030 o \0 \0 \0 i \n
0004420 \0 \0 277 W 024 \t \0 \0 264 \a W 024 260 365 020
0004440 H k 331 j @ \t \0 \0 021 023 006 L K 363 263 e
0004460 l 036 j d 021 003 \t O 020 O 016 363 263 % O 022
0004500 A 006 \0 \0 311 \f 006 \0 \0 311 6 l 331 O
0004520 020 \n \0 \0 324 _ 022 277 O 020 l 006 324 _ 020 260
0004540 332 O 022 022 276 L l \a 345 j 360 262 031 A 006 \0
0004560 \0 311 \f 006 \0 \0 311 6 277 A l . ! 277 A
0004600 \t \0 \0 277 @ M N * 277 L k 324 274 M k 324
0004620 275 260 232 023 A 006 \0 \0 311 \f 006 \0 \0 311 6
0004640 h 020 \0 ( 3 1 1 Q S P P . F O R
0004660 C E O U T P U T 2 3 2 Q L L
0004700 S H 1 5 6 Q A R R A Y O R I
0004720 G 1 3 6 Q S P P . R E A D P
0004740 1 3 0 Q P R I N T 6 3 Q
0004760 L L S H ) \r ( 3 4 3 Q S P P C
0005000 O N 3 3 6 Q S T R E A M 2
0005020 7 4 Q S P P C O N 2 6 7 Q
0005040 S T R E A M 2 1 7 Q S P P C
0005060 O N 2 1 2 Q S T R E A M 1
0005100 1 0 Q S P P C O N 1 0 3 Q
0005120 S T R E A M 5 1 Q S P P C O
0005140 N 4 4 Q S T R E A M 1 3 Q
0005160 S P P C O N 6 S T R E A M
0005200 ) \r ( 1 2 4 Q " I R I S . R
0005220 E C L S : e r r o r i n a
0005240 r r a y t r a n s p o r t " )
0005260 \r I R I S . R E C S S D 1 \r (
0005300 P 1 1 Q j P 7 a L o n
0005320 g P 6 p t r P 5 i
0005340 P 3 j P 1 n S h o r t
0005360 s P 0 n L o n g s I 1
0005400 s t r e a m I 0 v a l u
0005420 e s ) 001 016 \v \0 \0 002 021 001 A 006 \0
0005440 \0 311 \f 006 \0 \0 311 6 l ~ 360 262 361 l 036
0005460 j d 021 003 004 K J 363 263 037 L A 006 \0 \0 311
0005500 \f 006 \0 \0 311 6 l 331 K \n \0 \0 324 274
0005520 K l 006 324 [ 260 341 L 022 Y k 330 342 X A 006
0005540 \0 \0 311 \f 006 \0 \0 311 6 l ~ 360 263 026 o
0005560 \0 \0 \0 i \n \0 \0 277 A \t \0 \0 264 006 A
0005600 260 367 020 H k 331 j @ \t \0 \0 021 023 \a M L
0005620 363 222 261 \0 206 l 036 j d 021 003 \n O 022 O 020
0005640 363 263 % O 024 A 006 \0 \0 311 \f 006 \0 \0 311 6
0005660 l 331 O 022 \n \0 \0 324 _ 024 277 O 022 l
0005700 006 324 _ 022 260 332 O 024 022 _ 016 277 M l \a 345
0005720 j 360 262 031 A 006 \0 \0 311 \f 006 \0 \0 311 6
0005740 277 A l . ! 277 A \t \0 \0 277 @ N O 016 343
0005760 343 * 277 M H k 331 375 363 245 I k 345 j 360 233
0006000 @ N k 330 O 016 n 377 377 345 * 277 M k 324 275
0006020 N l 002 324 276 261 377 y 023 A 006 \0 \0 311 \f 006
0006040 \0 \0 311 6 h 020 \0 ( 3 1 7 Q S P
0006060 P . F O R C E O U T P U T 2 3
0006100 6 Q L L S H 1 6 0 Q A R R
0006120 A Y O R I G 1 4 1 Q S P P .
0006140 R E A D P 1 3 4 Q P R I N T
0006160 6 3 Q L L S H ) \r ( 4 0 7 Q
0006200 S P P C O N 4 0 2 Q S T R
0006220 E A M 3 0 2 Q S P P C O N
0006240 2 7 5 Q S T R E A M 2 2 3 Q
0006260 S P P C O N 2 1 6 Q S T R
0006300 E A M 1 1 4 Q S P P C O N
0006320 1 0 7 Q S T R E A M 5 1 Q
0006340 S P P C O N 4 4 Q S T R E A
0006360 M 1 3 Q S P P C O N 6 S
0006400 T R E A M ) \r ( 1 3 0 Q " I
0006420 R I S . R E C S S : e r r o r
0006440 i n a r r a y t r a n s p
0006460 o r t " ) \r I R I S . S E N D B
0006500 S D 1 \r ( P 7 a L o n g
0006520 P 6 a r r a y M a x P 5
0006540 p t r P 4 i P 2 S
0006560 T R E A M P 1 V A L U E
0006600 P 0 n L o n g s I 2 s
0006620 t r e a m I 1 n V a l s
0006640 I 0 v a l u e s F 1 3 Q
0006660 a L o n g ) 002 O \v 001 \0 003 021 020
0006700 \0 A l 003 330 342 342 X @ d 005 006 242 261 001 -
0006720 277 A B 021 002 002 I \t \0 \0 d g \0 \0 360 262
0006740 ( 277 j I 361 230 J l 377 ! 277 J l 377 205 J
0006760 j ! 277 J j ! 277 J I 343 l 377 345 ! 277 J
0007000 I l 377 345 ! 260 * g \0 \0 360 262 034 J I j
0007020 302 ! 277 J I k 302 ! 277 J I l 002 302 ! 277
0007040 J I l 003 302 ! 207 I o \0 \0 \0 \n \0 \0 023
0007060 H k 331 j @ \t \0 \0 @ \t \0 \0 A 330 021 024
0007100 \a L K 363 222 261 \0 263 l 004 j d 021 003 \n O
0007120 022 O 020 363 263 & M O 022 330 N 363 263 026 O 024
0007140 @ M O 022 330 ( O 022 340 340 340 \n \0 \0 324 _
0007160 024 277 O 022 k 324 _ 022 260 331 O 024 022 _ 016 277
0007200 L l \a 345 j 360 224 B l . ! 277 O 016 B 021
0007220 002 002 I \t \0 \0 d g \0 \0 360 262 ( 277 j I
0007240 361 230 J l 377 ! 277 J l 377 205 J j ! 277 J
0007260 j ! 277 J I 343 l 377 345 ! 277 J I l 377 345
0007300 ! 260 * g \0 \0 360 262 034 J I j 302 ! 277 J
0007320 I k 302 ! 277 J I l 002 302 ! 277 J I l 003
0007340 302 ! 207 I o \0 \0 \0 \n \0 \0 023 L k 324 274
0007360 M l 004 324 275 261 377 L h 020 003 264 376 A B 021
0007400 002 002 I \t \0 \0 d g \0 \0 360 262 ( 277 j I
0007420 361 230 J l 377 ! 277 J l 377 205 J j ! 277 J
0007440 j ! 277 J I 343 l 377 345 ! 277 J I l 377 345
0007460 ! 260 * g \0 \0 360 262 034 J I j 302 ! 277 J
0007500 I k 302 ! 277 J I l 002 302 ! 277 J I l 003
0007520 302 ! 207 I o \0 \0 \0 \n \0 \0 023 H k 331 j
0007540 @ 021 003 005 L K 363 263 221 j l 030 j 021 003 \n
0007560 O 020 O 022 363 263 036 M 237 O 024 M 001 M 002 275
0007600 O 022 \n \0 \0 324 _ 024 277 O 022 m 370 324 _ 022
0007620 277 260 337 O 024 022 c 026 277 L l \a 345 j 360 224
0007640 B l . ! 277 W 026 B 021 002 002 I \t \0 \0 d
0007660 g \0 \0 360 262 ( 277 j I 361 230 J l 377 ! 277
0007700 J l 377 205 J j ! 277 J j ! 277 J I 343 l
0007720 377 345 ! 277 J I l 377 345 ! 260 * g \0 \0 360
0007740 262 034 J I j 302 ! 277 J I k 302 ! 277 J I
0007760 l 002 302 ! 277 J I l 003 302 ! 207 I o \0 \0
0010000 \0 \n \0 \0 023 L k 324 \ 261 377 \ \0 ( 1 1
0010020 0 5 Q E R R O R 7 6 0 Q T
0010040 Y P E N A M E 7 0 6 Q L L S
0010060 H 6 3 4 Q E R R O R 5 0 7
0010100 Q T Y P E N A M E 4 5 4 Q
0010120 E R R O R 3 2 7 Q T Y P E N
0010140 A M E 2 5 7 Q L L S H 1 7
0010160 5 Q A R R A Y O R I G 1 7 1
0010200 Q A R R A Y O R I G 1 6 0 Q
0010220 E R R O R 3 3 Q T Y P E N
0010240 A M E ) \r ( 1 0 4 0 Q F I X P
0010260 7 6 4 Q S M A L L P 5 6 7
0010300 Q F I X P 5 1 3 Q S M A L
0010320 L P 4 0 7 Q F I X P 3 3 3
0010340 Q S M A L L P 1 1 3 Q F I
0010360 X P 3 7 Q S M A L L P ) \r (
0010400 1 1 0 2 Q " c a n ' t b e
0010420 s e n t t h r u I R I S .
0010440 S E N D L ( n e i t h e r a
0010460 n F I X P n o r a S M A
0010500 L L P ) " 6 3 1 Q " c a n '
0010520 t b e s e n t t h r u I
0010540 R I S . S E N D L ( n e i t h
0010560 e r a n F I X P n o r a
0010600 S M A L L P ) " 4 5 1 Q "
0010620 c a n ' t b e s e n t t h
0010640 r u I R I S . S E N D L ( n
0010660 e i t h e r a n F I X P n
0010700 o r a S M A L L P ) " 1 5
0010720 5 Q " c a n ' t b e s e n
0010740 t t h r u I R I S . S E N D
0010760 L ( n e i t h e r a n F I
0011000 X P n o r a S M A L L P )
0011020 " ) \r I R I S . S E N D F S D
0011040 1 \r ( P 1 2 Q j P 1 0 Q
0011060 i P 7 c o u n t e r P
0011100 5 f l o a t P 4 p t r
0011120 P 3 i P 1 S T R E A
0011140 M P 0 V A L U E I 2
0011160 s t r e a m I 1 n V a l s
0011200 I 0 v a l u e s ) 003 P \v
0011220 \0 \0 003 @ d 005 006 242 261 \0 273 d \t \0 \0 (
0011240 3 020 242 261 \0 257 A 340 340 B 021 002 001 H \t \0
0011260 \0 d g \0 \0 360 262 ( 277 j H 361 230 I l 377
0011300 ! 277 I l 377 205 I j ! 277 I j ! 277 I H
0011320 343 l 377 345 ! 277 I H l 377 345 ! 260 * g \0
0011340 \0 360 262 034 I H j 302 ! 277 I H k 302 ! 277
0011360 I H l 002 302 ! 277 I H l 003 302 ! 207 H o
0011400 \0 \0 \0 \n \0 \0 023 A k 331 j @ \t \0 \0 021
0011420 003 004 K d J 363 222 261 002 q l \a 345 j 360 224
0011440 B l . ! 277 @ L ( 006 \0 \0 021 001 005 B M
0011460 j 302 ! 277 B M k 302 ! 277 B M l 002 302 !
0011500 277 B M l 003 302 ! 023 K k 324 273 L k 324 274
0011520 260 302 @ 003 242 261 \0 270 @ d 001 3 020 242 261 \0
0011540 260 277 A 340 340 B 021 002 001 H \t \0 \0 d g \0
0011560 \0 360 262 ( 277 j H 361 230 I l 377 ! 277 I l
0011600 377 205 I j ! 277 I j ! 277 I H 343 l 377 345
0011620 ! 277 I H l 377 345 ! 260 * g \0 \0 360 262 034
0011640 I H j 302 ! 277 I H k 302 ! 277 I H l 002
0011660 302 ! 277 I H l 003 302 ! 207 H o \0 \0 \0 \n
0011700 \0 \0 023 @ j 021 022 \b N 003 265 004 h 020 001 _
0011720 020 277 O 016 l \a 345 j 360 224 B l . ! 277 O
0011740 020 006 \0 \0 021 001 005 B M j 302 ! 277 B M k
0011760 302 ! 277 B M l 002 302 ! 277 B M l 003 302 !
0012000 023 N 002 276 O 016 k 324 _ 016 277 260 275 @ 003 242
0012020 261 \0 365 @ 001 \t \0 \0 242 261 \0 354 @ d 001 001
0012040 3 020 242 261 \0 343 277 A 340 340 B 021 002 001 H \t
0012060 \0 \0 d g \0 \0 360 262 ( 277 j H 361 230 I l
0012100 377 ! 277 I l 377 205 I j ! 277 I j ! 277 I
0012120 H 343 l 377 345 ! 277 I H l 377 345 ! 260 * g
0012140 \0 \0 360 262 034 I H j 302 ! 277 I H k 302 !
0012160 277 I H l 002 302 ! 277 I H l 003 302 ! 207 H
0012200 o \0 \0 \0 \n \0 \0 023 @ m 377 021 022 \b N 003
0012220 265 004 h 020 001 _ 020 277 O 016 k 324 _ 016 l \a
0012240 345 j 360 224 B l . ! 277 O 020 001 006 \0 \0 021
0012260 001 005 B M j 302 ! 277 B M k 302 ! 277 B M
0012300 l 002 302 ! 277 B M l 003 302 ! 023 O 016 k 324
0012320 _ 016 l \a 345 j 360 224 B l . ! 277 O 020 002
0012340 006 \0 \0 021 001 005 B M j 302 ! 277 B M k 302
0012360 ! 277 B M l 002 302 ! 277 B M l 003 302 ! 023
0012400 N 002 ^ 260 214 @ 003 242 261 \0 321 @ d 001 003 242
0012420 261 \0 312 d 001 001 3 020 242 261 \0 301 277 A 340 340
0012440 B 021 002 001 H \t \0 \0 d g \0 \0 360 262 ( 277
0012460 j H 361 230 I l 377 ! 277 I l 377 205 I j !
0012500 277 I j ! 277 I H 343 l 377 345 ! 277 I H l
0012520 377 345 ! 260 * g \0 \0 360 262 034 I H j 302 !
0012540 277 I H k 302 ! 277 I H l 002 302 ! 277 I H
0012560 l 003 302 ! 207 H o \0 \0 \0 \n \0 \0 023 @ m
0012600 377 021 022 \b N 003 265 004 h 020 001 _ 020 021 021 \n
0012620 O 022 003 265 \b 023 N 002 ^ 260 354 001 _ 024 277 O
0012640 016 k 324 _ 016 l \a 345 j 360 224 B l . ! 277
0012660 O 024 006 \0 \0 021 001 005 B M j 302 ! 277 B M
0012700 k 302 ! 277 B M l 002 302 ! 277 B M l 003 302
0012720 ! 023 O 022 002 _ 022 260 273 @ o \0 \0 \0 \n \0
0012740 \0 020 \0 ( 1 5 1 5 Q E R R O R
0012760 1 3 5 1 Q E R R O R 1 2 2 4
0013000 Q T Y P E N A M E 7 6 3 Q
0013020 E R R O R 6 3 6 Q T Y P E N
0013040 A M E 6 0 4 Q P O S I T I O
0013060 N P 4 5 6 Q E R R O R 3 3
0013100 1 Q T Y P E N A M E 1 7 3 Q
0013120 A R R A Y O R I G 1 6 2 Q
0013140 E R R O R 3 5 Q T Y P E N A
0013160 M E 1 3 Q A R R A Y O R I G
0013200 ) \r ( 1 4 4 1 Q F L O A T P
0013220 1 3 0 4 Q F I X P 1 2 3 0 Q
0013240 S M A L L P 1 1 1 7 Q F L
0013260 O A T P 1 0 3 3 Q F L O A T
0013300 P 7 1 6 Q F I X P 6 4 2 Q
0013320 S M A L L P 5 2 0 Q F L O
0013340 A T P 4 1 1 Q F I X P 3 3
0013360 5 Q S M A L L P 2 2 7 Q F
0013400 L O A T P 1 1 5 Q F I X P
0013420 4 1 Q S M A L L P ) \r ( 1 5
0013440 1 2 Q " - - i s n o t a
0013460 n l i s t [ o f l i s t ]
0013500 / a r r a y o f n u m b e r
0013520 s " 1 3 4 6 Q " c a n ' t
0013540 b e s e n t t h r u I R I
0013560 S . S E N D L ( n e i t h e r
0013600 a n F I X P n o r a S
0013620 M A L L P ) " 7 6 0 Q " c a
0013640 n ' t b e s e n t t h r u
0013660 I R I S . S E N D L ( n e i
0013700 t h e r a n F I X P n o r
0013720 a S M A L L P ) " 4 5 3 Q
0013740 " c a n ' t b e s e n t
0013760 t h r u I R I S . S E N D L
0014000 ( n e i t h e r a n F I X P
0014020 n o r a S M A L L P ) "
0014040 1 5 7 Q " c a n ' t b e s
0014060 e n t t h r u I R I S . S E
0014100 N D L ( n e i t h e r a n
0014120 F I X P n o r a S M A L L
0014140 P ) " ) \r I R I S . S E N D L S
0014160 D 1 \r ( P 1 1 Q j P 7
0014200 i P 6 c o u n t e r P
0014220 4 p t r P 3 i P 1
0014240 S T R E A M P 0 V A L U
0014260 E I 2 s t r e a m I 1
0014300 n V a l s I 0 v a l u e
0014320 s ) 003 \r \n \0 \0 003 @ d 005 006 242 261 \0
0014340 371 d \t \0 \0 ( 3 020 242 261 \0 355 A 340 340 B
0014360 021 002 001 H \t \0 \0 d g \0 \0 360 262 ( 277 j
0014400 H 361 230 I l 377 ! 277 I l 377 205 I j ! 277
0014420 I j ! 277 I H 343 l 377 345 ! 277 I H l 377
0014440 345 ! 260 * g \0 \0 360 262 034 I H j 302 ! 277
0014460 I H k 302 ! 277 I H l 002 302 ! 277 I H l
0014500 003 302 ! 207 H o \0 \0 \0 \n \0 \0 023 A k 331
0014520 j @ \t \0 \0 021 003 004 K d J 363 222 261 001 361
0014540 l \a 345 j 360 224 B l . ! 277 @ L ( B 021
0014560 002 001 H \t \0 \0 d g \0 \0 360 262 ( 277 j H
0014600 361 230 I l 377 ! 277 I l 377 205 I j ! 277 I
0014620 j ! 277 I H 343 l 377 345 ! 277 I H l 377 345
0014640 ! 260 * g \0 \0 360 262 034 I H j 302 ! 277 I
0014660 H k 302 ! 277 I H l 002 302 ! 277 I H l 003
0014700 302 ! 207 H o \0 \0 \0 \n \0 \0 023 K k 324 273
0014720 L k 324 274 260 204 @ 003 242 261 \0 362 @ d 001 3
0014740 020 242 261 \0 352 277 A 340 340 B 021 002 001 H \t \0
0014760 \0 d g \0 \0 360 262 ( 277 j H 361 230 I l 377
0015000 ! 277 I l 377 205 I j ! 277 I j ! 277 I H
0015020 343 l 377 345 ! 277 I H l 377 345 ! 260 * g \0
0015040 \0 360 262 034 I H j 302 ! 277 I H k 302 ! 277
0015060 I H l 002 302 ! 277 I H l 003 302 ! 207 H o
0015100 \0 \0 \0 \n \0 \0 023 @ j 021 022 \a M 003 265 004
0015120 h 020 001 _ 016 277 N l \a 345 j 360 224 B l .
0015140 ! 277 O 016 B 021 002 001 H \t \0 \0 d g \0 \0
0015160 360 262 ( 277 j H 361 230 I l 377 ! 277 I l 377
0015200 205 I j ! 277 I j ! 277 I H 343 l 377 345 !
0015220 277 I H l 377 345 ! 260 * g \0 \0 360 262 034 I
0015240 H j 302 ! 277 I H k 302 ! 277 I H l 002 302
0015260 ! 277 I H l 003 302 ! 207 H o \0 \0 \0 \n \0
0015300 \0 023 M 002 275 N k 324 276 260 203 @ 003 242 261 001
0015320 016 @ d 001 003 242 261 001 \a d 001 001 3 020 242 261
0015340 \0 376 277 A 340 340 B 021 002 001 H \t \0 \0 d g
0015360 \0 \0 360 262 ( 277 j H 361 230 I l 377 ! 277 I
0015400 l 377 205 I j ! 277 I j ! 277 I H 343 l 377
0015420 345 ! 277 I H l 377 345 ! 260 * g \0 \0 360 262
0015440 034 I H j 302 ! 277 I H k 302 ! 277 I H l
0015460 002 302 ! 277 I H l 003 302 ! 207 H o \0 \0 \0
0015500 \n \0 \0 023 @ m 377 021 022 \a M 003 265 004 h 020
0015520 001 _ 016 021 021 \t O 020 003 265 \b 023 M 002 ] 260
0015540 354 001 _ 022 277 N k 324 ^ l \a 345 j 360 224 B
0015560 l . ! 277 O 022 B 021 002 001 H \t \0 \0 d g
0015600 \0 \0 360 262 ( 277 j H 361 230 I l 377 ! 277 I
0015620 l 377 205 I j ! 277 I j ! 277 I H 343 l 377
0015640 345 ! 277 I H l 377 345 ! 260 * g \0 \0 360 262
0015660 034 I H j 302 ! 277 I H k 302 ! 277 I H l
0015700 002 302 ! 277 I H l 003 302 ! 207 H o \0 \0 \0
0015720 \n \0 \0 023 O 020 002 _ 020 261 377 177 @ o \0 \0
0015740 \0 \n \0 \0 020 \0 ( 1 4 1 2 Q E R R
0015760 O R 1 3 7 1 Q E R R O R 1
0016000 2 4 4 Q T Y P E N A M E 1 1
0016020 5 1 Q E R R O R 1 0 2 4 Q
0016040 T Y P E N A M E 7 4 7 Q E R
0016060 R O R 6 2 2 Q T Y P E N A M
0016100 E 5 5 4 Q E R R O R 4 2 7
0016120 Q T Y P E N A M E 3 6 1 Q
0016140 E R R O R 2 3 4 Q T Y P E N
0016160 A M E 1 7 3 Q A R R A Y O R
0016200 I G 1 6 2 Q E R R O R 3 5
0016220 Q T Y P E N A M E 1 3 Q A
0016240 R R A Y O R I G ) \r ( 1 3 2 4 Q
0016260 F I X P 1 2 5 0 Q S M A L
0016300 L P 1 1 0 4 Q F I X P 1 0
0016320 3 0 Q S M A L L P 7 0 2 Q
0016340 F I X P 6 2 6 Q S M A L L P
0016360 5 0 7 Q F I X P 4 3 3 Q
0016400 S M A L L P 3 1 4 Q F I X P
0016420 2 4 0 Q S M A L L P 1 1 5
0016440 Q F I X P 4 1 Q S M A L L
0016460 P ) \r ( 1 4 0 7 Q " - - i
0016500 s n o t a n l i s t [ o
0016520 f l i s t ] / a r r a y o f
0016540 n u m b e r s " 1 3 6 6 Q
0016560 " c a n ' t b e s e n t t
0016600 h r u I R I S . S E N D L (
0016620 n e i t h e r a n F I X P
0016640 n o r a S M A L L P ) " 1
0016660 1 4 6 Q " c a n ' t b e s
0016700 e n t t h r u I R I S . S E
0016720 N D L ( n e i t h e r a n
0016740 F I X P n o r a S M A L L
0016760 P ) " 7 4 4 Q " c a n ' t
0017000 b e s e n t t h r u I R I
0017020 S . S E N D L ( n e i t h e r
0017040 a n F I X P n o r a S
0017060 M A L L P ) " 5 5 1 Q " c a
0017100 n ' t b e s e n t t h r u
0017120 I R I S . S E N D L ( n e i
0017140 t h e r a n F I X P n o r
0017160 a S M A L L P ) " 3 5 6 Q
0017200 " c a n ' t b e s e n t
0017220 t h r u I R I S . S E N D L
0017240 ( n e i t h e r a n F I X P
0017260 n o r a S M A L L P ) "
0017300 1 5 7 Q " c a n ' t b e s
0017320 e n t t h r u I R I S . S E
0017340 N D L ( n e i t h e r a n
0017360 F I X P n o r a S M A L L
0017400 P ) " ) \r I R I S . S E N D Q S
0017420 D 1 \r ( P 4 p t r P 3
0017440 i P 1 S T R E A M P
0017460 0 V A L U E I 2 s t r e
0017500 a m I 1 n V a l s I 0
0017520 v a l u e s ) 002 334 005 \0 \0 003 A
0017540 340 340 340 021 021 001 H \t \0 \0 d g \0 \0 360 262
0017560 ( 277 j H 361 230 I l 377 ! 277 I l 377 205 I
0017600 j ! 277 I j ! 277 I H 343 l 377 345 ! 277 I
0017620 H l 377 345 ! 260 * g \0 \0 360 262 034 I H j
0017640 302 ! 277 I H k 302 ! 277 I H l 002 302 ! 277
0017660 I H l 003 302 ! 207 H o \0 \0 \0 \n \0 \0 023
0017700 @ d 005 006 242 261 001 2 277 A 340 j d 021 003 004
0017720 K d J 363 221 h 020 l \a 345 j 360 224 B l .
0017740 ! 277 @ L ( 341 341 @ L k 330 ( 341 341 341 @
0017760 L l 002 330 ( 341 @ L l 003 330 ( 344 344 344 B
0020000 021 002 001 H \t \0 \0 d g \0 \0 360 262 ( 277 j
0020020 H 361 230 I l 377 ! 277 I l 377 205 I j ! 277
0020040 I j ! 277 I H 343 l 377 345 ! 277 I H l 377
0020060 345 ! 260 * g \0 \0 360 262 034 I H j 302 ! 277
0020100 I H k 302 ! 277 I H l 002 302 ! 277 I H l
0020120 003 302 ! 207 H o \0 \0 \0 \n \0 \0 023 K k 330
0020140 l \a 345 j 360 224 B l . ! 277 @ L l 004 330
0020160 ( 341 341 341 @ L l 005 330 ( 341 341 @ L l 006
0020200 330 ( @ L l \a 330 ( 341 344 344 344 B 021 002 001
0020220 H \t \0 \0 d g \0 \0 360 262 ( 277 j H 361 230
0020240 I l 377 ! 277 I l 377 205 I j ! 277 I j !
0020260 277 I H 343 l 377 345 ! 277 I H l 377 345 ! 260
0020300 * g \0 \0 360 262 034 I H j 302 ! 277 I H k
0020320 302 ! 277 I H l 002 302 ! 277 I H l 003 302 !
0020340 207 H o \0 \0 \0 \n \0 \0 023 K l 002 324 273 L
0020360 l \b 324 274 261 376 334 003 242 261 001 8 A 340 j @
0020400 021 003 004 K d J 363 222 261 376 315 l \a 345 j 360
0020420 224 B l . ! 277 @ 001 341 341 @ 002 001 341 341 341
0020440 @ 002 002 001 341 @ 002 002 002 001 344 344 344 B 021 002
0020460 001 H \t \0 \0 d g \0 \0 360 262 ( 277 j H 361
0020500 230 I l 377 ! 277 I l 377 205 I j ! 277 I j
0020520 ! 277 I H 343 l 377 345 ! 277 I H l 377 345 !
0020540 260 * g \0 \0 360 262 034 I H j 302 ! 277 I H
0020560 k 302 ! 277 I H l 002 302 ! 277 I H l 003 302
0020600 ! 207 H o \0 \0 \0 \n \0 \0 023 @ l 005 \n \0
0020620 \0 b \0 277 K k 330 l \a 345 j 360 224 B l .
0020640 ! 277 @ d 001 ( 341 341 341 @ d 002 001 ( 341 341
0020660 @ 002 002 001 @ 002 002 002 001 341 344 344 344 B 021 002
0020700 001 H \t \0 \0 d g \0 \0 360 262 ( 277 j H 361
0020720 230 I l 377 ! 277 I l 377 205 I j ! 277 I j
0020740 ! 277 I H 343 l 377 345 ! 277 I H l 377 345 !
0020760 260 * g \0 \0 360 262 034 I H j 302 ! 277 I H
0021000 k 302 ! 277 I H l 002 302 ! 277 I H l 003 302
0021020 ! 207 H o \0 \0 \0 \n \0 \0 023 @ l 005 \n \0
0021040 \0 b \0 277 K l 002 324 273 L l \b 324 274 261 376
0021060 325 @ o \0 \0 \0 \n \0 \0 020 \0 ( 1 3 3 1
0021100 Q E R R O R 1 3 0 1 Q N T
0021120 H 1 2 7 2 Q E R R O R 1 1
0021140 4 5 Q T Y P E N A M E 1 0 6
0021160 1 Q N T H 1 0 5 2 Q E R R
0021200 O R 7 2 5 Q T Y P E N A M E
0021220 6 1 1 Q E R R O R 4 6 4 Q
0021240 T Y P E N A M E 3 7 4 Q E
0021260 R R O R 2 4 7 Q T Y P E N A
0021300 M E 1 3 7 Q E R R O R 1 2
0021320 Q T Y P E N A M E ) \r ( 1 2 2
0021340 5 Q F I X P 1 1 5 1 Q S M
0021360 A L L P 1 0 0 5 Q F I X P
0021400 7 3 1 Q S M A L L P 5 4 4 Q
0021420 F I X P 4 7 0 Q S M A L L
0021440 P 3 2 7 Q F I X P 2 5 3 Q
0021460 S M A L L P 7 2 Q F I X P
0021500 1 6 Q S M A L L P ) \r ( 1
0021520 3 2 6 Q " - - n e i t h e r
0021540 a n a r r a y n o r a
0021560 l i s t " 1 2 6 7 Q " c a n
0021600 ' t b e s e n t t h r u
0021620 I R I S . S E N D L ( n e i t
0021640 h e r a n F I X P n o r
0021660 a S M A L L P ) " 1 0 4 7 Q
0021700 " c a n ' t b e s e n t
0021720 t h r u I R I S . S E N D L
0021740 ( n e i t h e r a n F I X P
0021760 n o r a S M A L L P ) "
0022000 6 0 6 Q " c a n ' t b e s
0022020 e n t t h r u I R I S . S E
0022040 N D L ( n e i t h e r a n
0022060 F I X P n o r a S M A L L
0022100 P ) " 3 7 1 Q " c a n ' t
0022120 b e s e n t t h r u I R I
0022140 S . S E N D L ( n e i t h e r
0022160 a n F I X P n o r a S
0022200 M A L L P ) " 1 3 4 Q " c a
0022220 n ' t b e s e n t t h r u
0022240 I R I S . S E N D L ( n e i
0022260 t h e r a n F I X P n o r
0022300 a S M A L L P ) " ) \r I R I
0022320 S . S E N D S S D 1 \r ( P 1
0022340 3 Q a L o n g P 1 2 Q p
0022360 n t P 1 1 Q i P 7 a
0022400 L o n g P 6 p t r P 5
0022420 i P 3 S T R E A M P
0022440 2 V A L U E P 1 n B y t
0022460 e s P 0 n L o n g s I
0022500 2 s t r e a m I 1 n V a
0022520 l s I 0 v a l u e s ) 002
0022540 B \f \0 \0 003 A 342 A 340 021 002 001 @ d 005 006
0022560 242 261 001 024 d \t \0 \0 ( 3 020 242 261 001 \b I
0022600 B 021 002 003 J \t \0 \0 d g \0 \0 360 262 ( 277
0022620 j J 361 230 K l 377 ! 277 K l 377 205 K j !
0022640 277 K j ! 277 K J 343 l 377 345 ! 277 K J l
0022660 377 345 ! 260 * g \0 \0 360 262 034 K J j 302 !
0022700 277 K J k 302 ! 277 K J l 002 302 ! 277 K J
0022720 l 003 302 ! 207 J o \0 \0 \0 \n \0 \0 023 H k
0022740 331 j @ \t \0 \0 021 023 \a M L 363 221 h 020 @
0022760 N ( _ 016 277 H M 363 245 A k 345 j 360 234 O
0023000 016 @ N k 330 ( 341 341 324 _ 016 277 M l \a 345
0023020 j 360 224 B l . ! 277 O 016 B 021 002 003 J \t
0023040 \0 \0 d g \0 \0 360 262 ( 277 j J 361 230 K l
0023060 377 ! 277 K l 377 205 K j ! 277 K j ! 277 K
0023100 J 343 l 377 345 ! 277 K J l 377 345 ! 260 * g
0023120 \0 \0 360 262 034 K J j 302 ! 277 K J k 302 !
0023140 277 K J l 002 302 ! 277 K J l 003 302 ! 207 J
0023160 o \0 \0 \0 \n \0 \0 023 M k 324 275 N l 002 324
0023200 276 261 377 h @ 003 242 261 001 026 @ d 001 3 020 242
0023220 261 001 016 277 I B 021 002 003 J \t \0 \0 d g \0
0023240 \0 360 262 ( 277 j J 361 230 K l 377 ! 277 K l
0023260 377 205 K j ! 277 K j ! 277 K J 343 l 377 345
0023300 ! 277 K J l 377 345 ! 260 * g \0 \0 360 262 034
0023320 K J j 302 ! 277 K J k 302 ! 277 K J l 002
0023340 302 ! 277 K J l 003 302 ! 207 J o \0 \0 \0 \n
0023360 \0 \0 023 H k 331 j @ 021 023 \v O 022 O 020 363
0023400 222 261 376 354 O 024 001 O 024 002 _ 024 277 _ 026 277
0023420 O 024 262 023 O 026 O 024 001 O 024 002 _ 024 277 341
0023440 341 324 _ 026 277 O 022 d l \a 345 j 360 227 277 B
0023460 l . ! 277 O 022 B 021 002 003 J \t \0 \0 d g
0023500 \0 \0 360 262 ( 277 j J 361 230 K l 377 ! 277 K
0023520 l 377 205 K j ! 277 K j ! 277 K J 343 l 377
0023540 345 ! 277 K J l 377 345 ! 260 * g \0 \0 360 262
0023560 034 K J j 302 ! 277 K J k 302 ! 277 K J l
0023600 002 302 ! 277 K J l 003 302 ! 207 J o \0 \0 \0
0023620 \n \0 \0 023 O 022 k 324 _ 022 261 377 c @ o \0
0023640 \0 \0 \n \0 \0 020 \0 ( 1 0 7 7 Q E R
0023660 R O R 1 0 5 5 Q E R R O R
0023700 7 3 0 Q T Y P E N A M E 6 1
0023720 4 Q E R R O R 4 6 7 Q T Y
0023740 P E N A M E 4 2 1 Q E R R O
0023760 R 2 7 4 Q T Y P E N A M E
0024000 2 0 0 Q A R R A Y O R I G 1
0024020 6 7 Q E R R O R 4 2 Q T Y
0024040 P E N A M E 2 2 Q A R R A Y
0024060 O R I G ) \r ( 1 0 1 0 Q F I X
0024100 P 7 3 4 Q S M A L L P 5 4
0024120 7 Q F I X P 4 7 3 Q S M A
0024140 L L P 3 5 4 Q F I X P 3 0
0024160 0 Q S M A L L P 1 2 2 Q F
0024200 I X P 4 6 Q S M A L L P ) \r
0024220 ( 1 0 7 4 Q " - - i s n
0024240 o t a n l i s t [ o f l
0024260 i s t ] / a r r a y o f n u
0024300 m b e r s " 1 0 5 2 Q " c a
0024320 n ' t b e s e n t t h r u
0024340 I R I S . S E N D L ( n e i
0024360 t h e r a n F I X P n o r
0024400 a S M A L L P ) " 6 1 1 Q
0024420 " c a n ' t b e s e n t
0024440 t h r u I R I S . S E N D L
0024460 ( n e i t h e r a n F I X P
0024500 n o r a S M A L L P ) "
0024520 4 1 6 Q " c a n ' t b e s
0024540 e n t t h r u I R I S . S E
0024560 N D L ( n e i t h e r a n
0024600 F I X P n o r a S M A L L
0024620 P ) " 1 6 4 Q " c a n ' t
0024640 b e s e n t t h r u I R I
0024660 S . S E N D L ( n e i t h e r
0024700 a n F I X P n o r a S
0024720 M A L L P ) " ) \r I R I S . S E
0024740 T F A S T C O M D 1 \r ( I 0
0024760 S T R E A M ) \0 016 \0 \0 \0 001 @
0025000 l 020 ! @ l ! ! @ l ! 020 \0 N I L
0025020 \r N I L \r ( ) \r ( P R E T T Y C
0025040 O M P R I N T I R I S I O C O
0025060 M S ) \r ( R P A Q Q I R I S I
0025100 O C O M S ( ( C O M S ( *
0025120 U s e r l e v e l p r i m i
0025140 t i v e s ) ( F N S I R I S
0025160 . G E X I T I R I S . G F L U
0025200 S H I R I S . G I N I T I R
0025220 I S . G R E S E T ) \r ( M A C
0025240 R O S I R I S . G F L U S H )
0025260 ) ( C O M S ( * L o w e r
0025300 l e v e l p r i m i t i v e
0025320 s ) ( F N S I R I S . R E C
0025340 B S I R I S . R E C F S I R
0025360 I S . R E C L S \r I R I S . R
0025400 E C S S I R I S . S E N D B S
0025420 I R I S . S E N D F S I R I
0025440 S . S E N D L S I R I S . S E
0025460 N D Q S I R I S . S E N D S S
0025500 I R I S . S E T F A S T C O M
0025520 ) ( M A C R O S \r I R I S .
0025540 D O S Y N C I R I S . E C H O
0025560 F F I R I S . E C H O O N I
0025600 R I S . F L U S H G I R I S .
0025620 G C M D I R I S . G E T G C H
0025640 A R I R I S . G E X I T I R
0025660 I S . G F I N I S H \r I R I S
0025700 . P U T G C H A R I R I S . R
0025720 E C 3 2 I R I S . R E C 6 I
0025740 R I S . R E C B I R I S . R E
0025760 C C R I R I S . R E C F I R
0026000 I S . R E C L I R I S . R E C
0026020 O I R I S . R E C O S \r I R
0026040 I S . R E C S I R I S . S E N
0026060 D 6 I R I S . S E N D 8 I R
0026100 I S . S E N D B I R I S . S E
0026120 N D C I R I S . S E N D F I
0026140 R I S . S E N D L I R I S . S
0026160 E N D O I R I S . S E N D S
0026200 \r S P P I N P U T S T R E A M
0026220 S P P S T R E A M ? ) ( C O N
0026240 S T A N T S ( S T D E R R T
0026260 ) ( I R I S \ A E S C 4 6 )
0026300 ( I R I S \ R E S C 1 2 6 )
0026320 ( I R I S \ T E S C 1 6 ) )
0026340 ) ( \r D E C L A R E : E V A
0026360 L @ L O A D D O N T C O P Y
0026400 ( P ( L O A D D E F ( Q U O
0026420 T E F L O A T P ) ( Q U O T
0026440 E R E C O R D ) ( Q U O T E
0026460 L L A R I T H ) ) ) ) ( I N
0026500 I T V A R S ( \r I R I S C O N
0026520 N ) ( I R I S S P P O N T )
0026540 ) ( D E C L A R E : D O N T
0026560 E V A L @ L O A D D O E V A L
0026600 @ C O M P I L E D O N T C O P
0026620 Y C O M P I L E R V A R S (
0026640 A D D V A R S ( N L A M A ) \r
0026660 ( N L A M L ) ( L A M A ) )
0026700 ) ) ) \r ( P U T P R O P S I R
0026720 I S . G F L U S H M A C R O
0026740 ( a r g ? ( * J u s t f o
0026760 r s p e e d . . . ) ( i f
0027000 a r g ? t h e n ( C O N S
0027020 ( Q U O T E I R I S . F L U S
0027040 H G ) a r g ? ) \r e l s e
0027060 ( Q U O T E ( I R I S . F L U
0027100 S H G I R I S C O N N ) ) ) )
0027120 ) \r ( P U T P R O P S I R I S
0027140 . D O S Y N C M A C R O ( (
0027160 i ) ( C O N D ( ( E Q 0
0027200 ( L O G A N D i 7 ) ) ) (
0027220 T N I L ) ) ) ) \r ( P U T P R
0027240 O P S I R I S . E C H O F F
0027260 M A C R O ( ( S T R E A M )
0027300 ( S T R E A M P R O P S T R E
0027320 A M ( Q U O T E I R I S \ E
0027340 C H O F L A G ) N I L ) ) ) \r
0027360 ( P U T P R O P S I R I S . E
0027400 C H O O N M A C R O ( ( S T
0027420 R E A M ) ( S T R E A M P R O
0027440 P S T R E A M ( Q U O T E
0027460 I R I S \ E C H O F L A G ) T
0027500 ) ) ) \r ( P U T P R O P S I R
0027520 I S . F L U S H G M A C R O
0027540 ( = . S P P . F O R C E O U
0027560 T P U T ) ) \r ( P U T P R O P S
0027600 I R I S . G C M D M A C R O
0027620 ( ( C M D S T R E A M ) (
0027640 * S e n d s a c o m m a n
0027660 d ) ( B O U T S T R E A M
0027700 I R I S \ T E S C ) ( * E s
0027720 c a p e \r c h a r a c t e r )
0027740 ( I R I S . S E N D 6 C M D
0027760 S T R E A M ) ( * . . . f
0030000 o l l o w e d b y t h e n
0030020 u m b e r i n t w o s i x
0030040 b i t s t r a n s m i s s i
0030060 o n ) ( \r I R I S . S E N D 6
0030100 ( L R S H C M D 6 ) S T
0030120 R E A M ) ) ) \r ( P U T P R O P
0030140 S I R I S . G E T G C H A R
0030160 M A C R O ( ( S T R E A M )
0030200 ( B I N ( S P P I N P U T S T
0030220 R E A M S T R E A M ) ) ) ) \r
0030240 ( P U T P R O P S I R I S . G
0030260 E X I T M A C R O ( ( s t r
0030300 e a m ) ( i f s t r e a m
0030320 t h e n ( I R I S . F L U S H
0030340 G s t r e a m ) e l s e (
0030360 I R I S . F L U S H G I R I S
0030400 C O N N ) ) \r ) ) \r ( P U T P R
0030420 O P S I R I S . G F I N I S H
0030440 M A C R O ( ( s t r e a m )
0030460 ( * n u l l d e f n ) (
0030500 I R I S . F L U S H G s t r e
0030520 a m ) ) ) \r ( P U T P R O P S
0030540 I R I S . P U T G C H A R M A
0030560 C R O ( ( o n e c h a r S P
0030600 P S T R E A M ) ( B O U T S
0030620 P P S T R E A M o n e c h a r
0030640 ) ) ) \r ( P U T P R O P S I R
0030660 I S . R E C 3 2 M A C R O (
0030700 ( s t r e a m ) ( f o r j
0030720 f r o m 0 t o 3 0 b y
0030740 6 s u m ( L L S H ( I R I
0030760 S . R E C 6 s t r e a m ) j
0031000 ) ) ) ) \r ( P U T P R O P S I
0031020 R I S . R E C 6 M A C R O (
0031040 ( S T R E A M ) ( * R e c i
0031060 e v e a 6 b i t w o r d
0031100 ; w e s u b s t r a c t 3
0031120 2 b e c a u s e t h e o t
0031140 h e r e n d \r a d d 3 s 3
0031160 2 t o a v o i d s e n d i
0031200 n g c o n t r o l c h a r a
0031220 c t e r s ) ( * N O L O N
0031240 G E R A N D S 6 3 ) ( I D
0031260 I F F E R E N C E ( I R I S .
0031300 G E T G C H A R S T R E A M \r
0031320 ) 3 2 ) ) ) \r ( P U T P R O P
0031340 S I R I S . R E C B M A C R
0031360 O ( L A M B D A ( S T R E A
0031400 M ) ( * R e c e i v e a
0031420 b y t e ) ( * i s p a s s
0031440 e d t h e s p p o u t p u
0031460 t s t r e a m , s o \r m u s
0031500 t g r a b t h e i n p u t
0031520 s t r e a m f r o m i t )
0031540 ( S E T Q S T R E A M ( S
0031560 P P I N P U T S T R E A M S T
0031600 R E A M ) ) ( w h i l e ( N
0031620 E Q I R I S \ R E S C ( B I
0031640 N \r S T R E A M ) ) ) ( L O
0031660 G O R ( I R I S . R E C 6 S
0031700 T R E A M ) ( L L S H ( I R
0031720 I S . R E C 6 S T R E A M )
0031740 6 ) ) ) ) \r ( P U T P R O P S
0031760 I R I S . R E C C R M A C R O
0032000 ( ( S T R E A M ) ( * r e
0032020 c i e v e a C a r r i a g e
0032040 R e t u r n ) ( I R I S . G E
0032060 T G C H A R S T R E A M ) (
0032100 * O R ( E Q ( \r I R I S .
0032120 G E T G C H A R S T R E A M )
0032140 ( I P L U S 3 2 ( C H A R
0032160 C O D E C R ) ) ) ( E R R O
0032200 R \r " I R I S . R E C C R r
0032220 e c e i v e d a n o n - c a
0032240 r r i a g e r e t u r n f r
0032260 o m t h e I R I S " ) ) ) )
0032300 \r ( P U T P R O P S I R I S .
0032320 R E C F M A C R O ( L A M B
0032340 D A ( S P P S T R E A M ) (
0032360 * g b n " 1 7 - J u n - 8 5
0032400 1 7 : 3 1 " ) ( * r e c e
0032420 i v e a f l o a t . u s e
0032440 s \r I R I S . R E C L t o
0032460 r e c e i v e a 3 2 b i t
0032500 w o r d a n d c o n v e r
0032520 t i t t o f l o a t ) (
0032540 P R O G ( A F L O A T A L O
0032560 N G ) ( S E T Q A L O N G
0032600 ( \r I R I S . R E C L S P P S
0032620 T R E A M ) ) ( S E T Q A F
0032640 L O A T ( N C R E A T E ( Q
0032660 U O T E F L O A T P ) ) ) (
0032700 r e p l a c e ( F L O A T P
0032720 H I W O R D ) o f A F L O A
0032740 T w i t h ( \r L R S H A L
0032760 O N G 1 6 ) ) ( r e p l a c
0033000 e ( F L O A T P L O W O R D
0033020 ) o f A F L O A T w i t h
0033040 ( L O G A N D A L O N G 6
0033060 5 5 3 5 ) ) ( R E T U R N A
0033100 F L O A T ) ) ) ) \r ( P U T P R
0033120 O P S I R I S . R E C L M A
0033140 C R O ( ( s t r e a m ) ( w
0033160 h i l e ( N E Q I R I S \ R
0033200 E S C ( I R I S . G E T G C H
0033220 A R s t r e a m ) ) d o N
0033240 I L ) ( I R I S . R E C 3 2
0033260 \r s t r e a m ) ) ) \r ( P U T P
0033300 R O P S I R I S . R E C O M
0033320 A C R O ( ( S T R E A M ) (
0033340 * R e c i e v e a b o o l
0033360 e a n ) ( I R I S . R E C B
0033400 S T R E A M ) ) ) \r ( P U T P R
0033420 O P S I R I S . R E C O S M
0033440 A C R O ( ( v a l u e s S T
0033460 R E A M ) ( * R e c i e v e
0033500 a n a r r a y o f b o o
0033520 l e a n ) ( I R I S . R E C B
0033540 S v a l u e s S T R E A M )
0033560 \r ) ) \r ( P U T P R O P S I R
0033600 I S . R E C S M A C R O ( (
0033620 s t r e a m ) ( * R e c i e
0033640 v e a S M A L L I N T E G
0033660 E R ) ( w h i l e ( N E Q
0033700 ( I R I S . G E T G C H A R s
0033720 t r e a m ) \r I R I S \ R E S
0033740 C ) d o N I L ) ( L E T *
0033760 ( ( 1 s t b y t e ( I R I S
0034000 . R E C 6 s t r e a m ) ) (
0034020 2 n d b y t e ( I R I S . R E
0034040 C 6 s t r e a m ) ) ) ( L O
0034060 G O R 1 s t b y t e ( \r L L
0034100 S H 2 n d b y t e 6 ) ( L
0034120 L S H ( I R I S . R E C 6 s
0034140 t r e a m ) 1 2 ) ) ) ) ) \r (
0034160 P U T P R O P S I R I S . S E
0034200 N D 6 M A C R O ( ( n S T
0034220 R E A M ) ( * A d d 3 2
0034240 t o a v o i d s e n d i n g
0034260 c o n t r o l c h a r a c t
0034300 e r s ) ( B O U T S T R E A
0034320 M ( \r I P L U S 3 2 ( L O
0034340 G A N D 6 3 n ) ) ) ) ) \r (
0034360 P U T P R O P S I R I S . S E
0034400 N D 8 M A C R O ( ( n S T
0034420 R E A M ) ( B O U T S T R E
0034440 A M n ) ) ) \r ( P U T P R O P
0034460 S I R I S . S E N D B M A C
0034500 R O ( ( V A L U E S T R E A
0034520 M ) ( * S e n d a b y t
0034540 e ) ( I R I S . S E N D 8 V
0034560 A L U E S T R E A M ) ) ) \r (
0034600 P U T P R O P S I R I S . S E
0034620 N D C M A C R O ( ( s t r i
0034640 n g s t r e a m ) ( * S e
0034660 n d a s t r i n g o f c
0034700 h a r a c t e r s ) ( * s h
0034720 o u l d p r o b a b l y \r a
0034740 l l o c a t e a g l o b a l
0034760 r e s o u r c e ) ( I R I S
0035000 . S E N D B S ( N C O N C 1
0035020 ( C H C O N s t r i n g ) 0
0035040 ) ( A D D 1 ( N C H A R S
0035060 s t r i n g ) ) s t r e a m )
0035100 ) ) \r ( P U T P R O P S I R I
0035120 S . S E N D F M A C R O ( (
0035140 v a l u e s t r e a m ) ( *
0035160 S e n d a f l o a t ) (
0035200 L E T ( ( f l o a t ( F L O
0035220 A T v a l u e ) ) ) ( I R I
0035240 S . S E N D 8 ( \r \ G E T B A
0035260 S E B Y T E f l o a t 0 )
0035300 s t r e a m ) ( I R I S . S E
0035320 N D 8 ( \ G E T B A S E B Y T
0035340 E f l o a t 1 ) s t r e a
0035360 m ) ( I R I S . S E N D 8 (
0035400 \ G E T B A S E B Y T E \r f l
0035420 o a t 2 ) s t r e a m ) (
0035440 I R I S . S E N D 8 ( \ G E T
0035460 B A S E B Y T E f l o a t 3
0035500 ) s t r e a m ) ) ) ) \r ( P U
0035520 T P R O P S I R I S . S E N D
0035540 L M A C R O ( L A M B D A
0035560 ( V A L U E S T R E A M ) (
0035600 * S e n d s a 3 2 b i t
0035620 i n t e g e r ) ( S E L E C
0035640 T Q ( T Y P E N A M E V A L
0035660 U E ) \r ( S M A L L P ( i f
0035700 ( I L E S S P V A L U E 0
0035720 ) t h e n ( I R I S . S E N
0035740 D 8 2 5 5 S T R E A M ) (
0035760 I R I S . S E N D 8 2 5 5 S
0036000 T R E A M ) e l s e ( I R I
0036020 S . S E N D 8 0 \r S T R E A
0036040 M ) ( I R I S . S E N D 8 0
0036060 S T R E A M ) ) ( I R I S .
0036100 S E N D 8 ( L O G A N D ( L
0036120 R S H V A L U E 8 ) 2 5 5
0036140 ) S T R E A M ) ( I R I S .
0036160 S E N D 8 ( L O G A N D \r V
0036200 A L U E 2 5 5 ) S T R E A M
0036220 ) ) ( F I X P ( I R I S . S
0036240 E N D 8 ( \ G E T B A S E B Y
0036260 T E V A L U E 0 ) S T R E
0036300 A M ) ( I R I S . S E N D 8
0036320 ( \ G E T B A S E B Y T E V A
0036340 L U E 1 \r ) S T R E A M )
0036360 ( I R I S . S E N D 8 ( \ G E
0036400 T B A S E B Y T E V A L U E
0036420 2 ) S T R E A M ) ( I R I S
0036440 . S E N D 8 ( \ G E T B A S E
0036460 B Y T E V A L U E 3 ) S T
0036500 R E A M ) ) ( \r E R R O R V
0036520 A L U E " c a n ' t b e s
0036540 e n t t h r u I R I S . S E
0036560 N D L ( n e i t h e r a n
0036600 F I X P n o r a S M A L L
0036620 P ) " ) ) ) ) \r ( P U T P R O P
0036640 S I R I S . S E N D O M A C
0036660 R O ( ( v a l u e S T R E A
0036700 M ) ( * s e n d a b o o
0036720 l e a n ) ( I R I S . S E N D
0036740 B v a l u e S T R E A M ) )
0036760 ) \r ( P U T P R O P S I R I S
0037000 . S E N D S M A C R O ( ( v
0037020 a l u e S T R E A M ) ( *
0037040 S e n d a S M A L L I N T
0037060 E G E R ( 1 6 b i t s ) )
0037100 ( I R I S . S E N D 8 ( L O G
0037120 A N D 2 5 5 \r ( L R S H v
0037140 a l u e 8 ) ) S T R E A M )
0037160 ( I R I S . S E N D 8 ( L O
0037200 G A N D 2 5 5 v a l u e )
0037220 S T R E A M ) ) ) \r ( P U T P R
0037240 O P S S P P I N P U T S T R E
0037260 A M M A C R O ( ( O U T P U
0037300 T S T R E A M ) ( * g b n
0037320 " 1 7 - J u n - 8 5 1 7 : 4 0
0037340 " ) ( f e t c h ( S P P C O
0037360 N S P P I N P U T S T R E A M
0037400 \r ) o f ( f e t c h ( S T
0037420 R E A M F 1 ) o f O U T P
0037440 U T S T R E A M ) ) ) ) \r ( P U
0037460 T P R O P S S P P S T R E A M
0037500 ? M A C R O ( L A M B D A
0037520 ( S T R E A M ) ( A N D ( T
0037540 Y P E N A M E S T R E A M (
0037560 Q U O T E S T R E A M ) ) (
0037600 T Y P E N A M E P ( f e t c h
0037620 F 1 \r o f S T R E A M )
0037640 ( Q U O T E S P P C O N ) ) )
0037660 ) ) \r ( R P A Q Q S T D E R R
0037700 T ) \r ( R P A Q Q I R I S \
0037720 A E S C 4 6 ) \r ( R P A Q Q
0037740 I R I S \ R E S C 1 2 6 ) \r (
0037760 R P A Q Q I R I S \ T E S C
0040000 1 6 ) \r ( C O N S T A N T S (
0040020 S T D E R R T ) ( I R I S \
0040040 A E S C 4 6 ) ( I R I S \ R
0040060 E S C 1 2 6 ) ( I R I S \ T
0040100 E S C 1 6 ) ) \r ( R P A Q ?
0040120 I R I S C O N N ) \r ( R P A Q ?
0040140 I R I S S P P O N T ) \r ( P
0040160 U T P R O P S I R I S I O C
0040200 O P Y R I G H T ( " X e r o x
0040220 C o r p o r a t i o n " 1 9
0040240 8 5 ) ) \r N I L \r
0040251