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