$ od -c -N 50000 [eris]<Lisp>Harmony>SOURCES>ADVISE.DCOM!1
0000000 ( F I L E C R E A T E D " 1 4
0000020 - A u g - 8 4 2 0 : 1 8 : 5 4
0000040 " ( " c o m p i l e d o n
0000060 " { E R I S } < L I S P C O R
0000100 E > S O U R C E S > A D V I S E
0000120 . ; 2 ) \r " 1 4 - A u g - 8 4
0000140 1 4 : 4 9 : 3 2 " b r e c o
0000160 m p i l e d c h a n g e s :
0000200 U N A D V I S E R E A D V I S
0000220 E i n " I N T E R L I S P -
0000240 D 1 4 - A u g - 8 4 . . . "
0000260 d a t e d \r " 1 4 - A u g -
0000300 8 4 1 1 : 5 6 : 0 6 " ) \r ( F
0000320 I L E C R E A T E D " 1 4 - A
0000340 u g - 8 4 1 9 : 2 7 : 3 1 "
0000360 { E R I S } < L I S P C O R E >
0000400 S O U R C E S > A D V I S E . ;
0000420 2 1 2 4 4 6 c h a n g e s
0000440 t o : ( F N S U N A D V I S
0000460 E \r R E A D V I S E ) p r e
0000500 v i o u s d a t e : " 2 1 -
0000520 N O V - 7 8 2 3 : 2 1 : 0 5 "
0000540 { E R I S } < L I S P C O R E
0000560 > S O U R C E S > A D V I S E .
0000600 ; 1 ) \r A D V I S E D 1 \r ( P
0000620 7 X P 6 Y P 2 D
0000640 P 1 Y P 0 X I 3
0000660 W H A T I 2 W H E R E
0000700 I 1 W H E N I 0 F N )
0000720 002 H \v \0 \0 004 021 0 002 @ d 004 l 004 361
0000740 263 025 \t \0 \0 b \0 277 C 222 261 001 025 A 222 261
0000760 \0 373 261 001 \r 002 001 g \0 \0 360 242 261 \0 277 @
0001000 002 002 001 271 @ 001 X 004 l 004 361 263 2 I 004 l
0001020 004 361 245 H I \n \0 \0 020 021 0 005 I 260 033 d
0001040 001 021 001 006 H N i \v \0 \0 022 273 L 265 \a K
0001060 h 032 ] 201 K & 274 002 003 265 346 M 020 I 004 l
0001100 004 361 263 ' 021 0 005 H 260 034 d 001 021 001 \a O
0001120 016 I i \v \0 \0 022 273 L 265 \a K h 032 ] 201
0001140 K & 274 002 003 265 345 M 020 021 0 005 H 260 A d
0001160 001 021 001 \a 021 0 \n I 260 $ d 001 021 001 006 O
0001200 016 N i \v \0 \0 022 _ 020 277 O 022 265 \t O 020
0001220 h 032 _ 024 202 O 020 & _ 022 277 002 003 265 335 O
0001240 024 022 022 [ 003 226 L 265 \f K ] \ 277 002 003 265
0001260 300 M 020 \t \0 \0 \ K 031 260 363 021 0 005 @ 260
0001300 & d 001 021 001 \a O 016 A \t \0 \0 B \t \0 \0
0001320 C \t \0 \0 \f \0 \0 022 273 L 265 \a K h 032 ]
0001340 201 K & 274 002 003 265 333 M 020 B 265 \r A b 006
0001360 277 g \0 \0 b 002 277 206 b 006 277 h b 004 277 @
0001400 g \0 \0 \n \0 \0 277 @ \t \0 \0 Z 265 \r @ o
0001420 \0 \0 \0 032 \t \0 \0 260 I \t \0 \0 226 @ g \0
0001440 \0 033 263 9 @ g \0 \0 J \v \0 \0 271 @ I 001
0001460 I 002 001 o \0 \0 \0 I 002 002 Y d 002 226 277 g
0001500 \0 \0 I 032 200 001 h 032 o \0 \0 \0 \t \0 \0 \v
0001520 \0 \0 Y h 032 032 032 \n \0 \0 204 J 002 002 001 Y
0001540 277 g \0 \0 @ d ` \0 \0 \n \0 \0 032 \n \0 \0
0001560 277 A X d 242 261 \0 247 d g \0 \0 360 230 277 I
0001600 002 002 001 002 002 001 211 d g \0 \0 360 262 025 277 I
0001620 002 002 002 271 B 263 e C I \t \0 \0 \n \0 \0 260
0001640 b g \0 \0 360 262 : I 002 002 001 002 002 001 \t \0
0001660 \0 001 Y d 001 g \0 \0 360 263 023 277 g \0 \0 A
0001700 g \0 \0 h 032 032 032 \t \0 \0 h 020 002 o \0 \0
0001720 \0 I 002 001 h 032 C \v \0 \0 \n \0 \0 260 $ H
0001740 g \0 \0 360 262 330 I 002 001 C d 004 l 004 361 242
0001760 h 032 202 \t \0 \0 \n \0 \0 206 I C B i \f \0
0002000 \0 277 @ g \0 \0 A B C h 032 032 032 \v \0 \0
0002020 277 ` \0 \0 226 @ g \0 \0 \n \0 \0 @ 020 \0 (
0002040 1 1 0 4 Q M A R K A S C H A N
0002060 G E D 1 0 7 0 Q / A D D P R
0002100 O P 1 0 5 1 Q A D D R U L E
0002120 1 0 4 1 Q / N C O N C 1 0
0002140 3 6 Q A P P E N D 1 0 0 5 Q
0002160 / R P L A C A 1 0 0 2 Q S
0002200 U B P A I R 7 6 2 Q E R R O
0002220 R 7 3 1 Q L A S T 7 0 7 Q
0002240 / A T T A C H 7 0 4 Q F L
0002260 A S T 6 3 0 Q / S E T A T O
0002300 M V A L 6 2 4 Q / D R E M O
0002320 V E 6 0 2 Q / P U T D 5 7
0002340 2 Q S U B P A I R 5 6 7 Q
0002360 C O P Y 5 2 4 Q S A V E D
0002400 5 0 4 Q E X P R P 4 7 7 Q
0002420 H E L P 4 6 3 Q G E T D 4
0002440 5 6 Q R E S T O R E 3 7 7 Q
0002460 A D V I S E 3 7 4 Q C O P
0002500 Y 3 7 0 Q C O P Y 3 6 4 Q
0002520 C O P Y 3 3 6 Q L A S T
0002540 2 5 6 Q A D V I S E 1 1 7 6
0002560 Q A D V I S E 1 1 2 2 Q A
0002600 D V I S E 1 1 0 0 Q A D V I
0002620 S E 1 1 5 Q F N C H E C K )
0002640 \r ( 1 1 0 1 Q A D V I C E 1
0002660 0 7 4 Q F I L E P K G F L G
0002700 1 0 5 6 Q A D V I C E 1 0 1
0002720 3 Q B I N D 7 5 3 Q ? 7
0002740 4 7 Q A D V I S E 7 4 0 Q
0002760 A D V - R E T U R N 7 1 4 Q
0003000 A R O U N D 6 6 3 Q A F T E
0003020 R 6 4 4 Q B E F O R E 6 2
0003040 1 Q A D V I S E D F N S 6 1
0003060 4 Q A D V I S E D F N S 5 5
0003100 2 Q P R O G N 5 2 0 Q A D
0003120 V I S E D 5 1 1 Q A D V I S
0003140 E D 4 5 3 Q B R O K E N 4
0003160 3 4 Q B E F O R E 4 2 Q I
0003200 N ) \r ( 7 7 1 Q ( * ) 5 6 4
0003220 Q ( A D V - P R O G ( ! V A
0003240 L U E ) ( A D V - S E T Q !
0003260 V A L U E ( A D V - P R O G
0003300 N I L ( A D V - R E T U R N
0003320 D E F ) ) ) ( A D V - R E T U
0003340 R N ! V A L U E ) ) 5 3 7 Q
0003360 ( D E F ) 4 7 3 Q ( N O T
0003400 D E F I N E D ) ) \r U N A D V
0003420 I S E D 1 \r ( P 1 2 Q R E
0003440 A D V I C E P 1 1 Q A L I
0003460 A S P 1 0 Q A D V I C E
0003500 P 7 F N P 3 F N I
0003520 0 X ) 001 C \v \0 003 001 @ \t \0 \0 b
0003540 \0 d 001 i 360 232 277 ` \0 \0 001 h 032 b \0 260
0003560 032 263 031 ` \0 \0 \t \0 \0 b \0 277 g \0 \0 \t
0003600 \0 \0 277 g \0 \0 \t \0 \0 277 021 0 002 @ 261 \0
0003620 376 d 001 021 001 003 021 0 006 K \t \0 \0 261 \0 332
0003640 d 001 021 001 \a O 016 g \0 \0 033 O 016 g \0 \0
0003660 033 O 016 g \0 \0 033 021 003 \n ` \0 \0 262 3 O
0003700 016 d ` \0 \0 034 263 , \t \0 \0 263 % O 016 l
0003720 F ` \0 \0 \v \0 \0 265 026 O 016 l F ` \0 \0
0003740 h d g \0 \0 \r 006 \0 \0 265 004 O 016 _ 016 201
0003760 O 016 g \0 \0 \n \0 \0 277 g \0 \0 O 016 ` \0
0004000 \0 \n \0 \0 \n \0 \0 277 g \0 \0 O 016 ` \0 \0
0004020 \n \0 \0 \n \0 \0 277 O 022 265 O O 020 262 023 O
0004040 024 235 O 016 g \0 \0 O 022 O 020 032 \v \0 \0 277
0004060 g \0 \0 O 016 O 022 O 020 032 032 ` \0 \0 032 \n
0004100 \0 \0 277 O 016 g \0 \0 \n \0 \0 277 O 016 g \0
0004120 \0 \n \0 \0 O 022 225 O 016 \t \0 \0 277 022 022 274
0004140 M 265 022 L h 032 ^ 214 001 O 022 002 i \v \0 \0
0004160 277 260 252 L & 275 002 003 265 003 202 261 377 % N 022
0004200 022 X 003 226 I 265 020 H Z Y 277 002 003 265 003 202
0004220 261 377 001 J 020 \t \0 \0 Y H 031 260 357 \0 ( 4
0004240 7 4 Q L A S T 4 2 4 Q C H
0004260 N G N M 4 0 0 Q P U T D 3
0004300 7 0 Q R E S T O R E 3 5 7 Q
0004320 / R E M P R O P 3 4 6 Q /
0004340 S E T A T O M V A L 3 2 3 Q
0004360 / P U T 2 7 2 Q / S E T A T
0004400 O M V A L 2 6 7 Q / D R E M
0004420 O V E 2 5 3 Q / S E T A T O
0004440 M V A L 2 5 0 Q / D R E M O
0004460 V E 2 3 4 Q / R E M P R O P
0004500 2 1 5 Q F I X S P E L L 1
0004520 7 3 Q F I X S P E L L 1 5 7
0004540 Q F N T Y P 1 0 1 Q P A C
0004560 K - I N - 5 5 Q / S E T A T
0004600 O M V A L 4 6 Q / S E T A T
0004620 O M V A L 3 5 Q R E V E R S
0004640 E 3 N L A M B D A . A R G S
0004660 ) \r ( 3 6 5 Q A D V I S E D
0004700 3 5 4 Q A D V I C E 3 4 2 Q
0004720 A D V I N F O L S T 3 2 7 Q
0004740 A D V I N F O L S T 3 1 3 Q
0004760 R E A D V I C E 2 6 4 Q A
0005000 D V I S E D F N S 2 5 7 Q A
0005020 D V I S E D F N S 2 4 5 Q B
0005040 R O K E N F N S 2 4 0 Q B R
0005060 O K E N F N S 2 3 1 Q B R O
0005100 K E N 2 1 1 Q F N T Y P 2
0005120 0 4 Q U S E R W O R D S 1 7
0005140 0 Q A D V I S E D F N S 1 5
0005160 1 Q A D V I S E D F N S 1 4
0005200 1 Q D W I M F L G 1 3 2 Q
0005220 R E A D V I C E 1 2 4 Q A L
0005240 I A S 1 1 6 Q A D V I C E
0005260 5 2 Q A D V I N F O L S T 4
0005300 3 Q A D V I S E D F N S 3 2
0005320 Q A D V I S E D F N S 1 6 Q
0005340 A D V I S E D F N S ) \r ( ) \r
0005360 R E A D V I S E D 1 \r ( P 4
0005400 F N P 0 S P L S T I
0005420 0 X ) \0 250 \b \0 003 001 021 020 \0 @ 265
0005440 $ 021 0 003 ` \0 \0 \t \0 \0 260 024 d 001 \t \0
0005460 \0 271 J 265 \a I h 032 [ 201 I & 272 002 003 265
0005500 355 K 020 \t \0 \0 b \0 001 i 360 227 ` \0 \0 001
0005520 \t \0 \0 020 ` \0 \0 021 0 003 ` \0 \0 217 d 001
0005540 001 271 J 265 \a I h 032 [ 201 I & 272 002 003 265
0005560 357 K 022 \n \0 \0 X d \n \0 \0 X 021 0 003 @
0005600 260 5 d 001 021 001 004 021 0 \a L \t \0 \0 260 025
0005620 d 001 \t \0 \0 275 N 265 \b M h 032 _ 016 201 M
0005640 & 276 002 003 265 354 O 016 022 022 Y 003 226 J 265 \f
0005660 I [ Z 277 002 003 265 314 K 020 \t \0 \0 Z I 031
0005700 260 363 \0 ( 2 4 1 Q L A S T 1 7
0005720 1 Q R E A D V I S E 0 1 6 2
0005740 Q P A C K - I N - 1 3 7 Q
0005760 I N T E R S E C T I O N 1 3 2
0006000 Q \ A P P E N D 2 6 7 Q R
0006020 E A D V I S E 1 5 2 Q N L A
0006040 M B D A . A R G S 2 5 Q R E
0006060 A D V I S E 1 1 6 Q R E V E
0006100 R S E ) \r ( 1 0 1 Q A D V I N
0006120 F O L S T 7 3 Q A D V I S E
0006140 D F N S 6 3 Q A D V I N F O
0006160 L S T 1 3 Q A D V I N F O L
0006200 S T ) \r ( ) \r R E A D V I S E 0
0006220 D 1 \r ( P 0 Y I 0 F
0006240 N F 1 S P L S T ) \0 [ 001
0006260 001 \0 001 021 020 \0 @ g \0 \0 033 265 032 @ g \0
0006300 \0 033 X 230 @ g \0 \0 033 H 032 265 \n @ ` \0
0006320 \0 \n \0 \0 002 X 265 2 ` \0 \0 262 " @ \t \0
0006340 \0 263 034 @ l F Q \v \0 \0 265 032 @ l F `
0006360 \0 \0 h d g \0 \0 \r 006 \0 \0 265 \t @ o \0
0006400 \0 \0 032 020 b \0 260 261 @ \n \0 \0 020 \0 ( 1
0006420 3 0 Q R E A D V I S E 1 1 0
0006440 7 Q F I X S P E L L 6 6 Q
0006460 F I X S P E L L 5 5 Q F N T
0006500 Y P 4 0 Q A S S O C ) \r ( 1
0006520 0 3 Q F N T Y P 7 6 Q U S
0006540 E R W O R D S 4 7 Q D W I M
0006560 F L G 3 5 Q A D V I N F O L
0006600 S T 2 4 Q A L I A S 1 5 Q
0006620 A D V I C E 6 R E A D V I
0006640 C E ) \r ( 1 1 6 Q ( - n o
0006660 a d v i c e s a v e d ) ) \r R
0006700 E A D V I S E 1 D 1 \r ( P 0
0006720 A L I A S I 1 F N I
0006740 0 L S T ) \0 q 001 \0 \0 002 021 020 \0
0006760 A 265 \r @ 001 b 002 277 @ 002 b \0 277 A g \0
0007000 \0 @ \v \0 \0 277 @ 001 X 265 ? A g \0 \0 \n
0007020 \0 \0 277 A g \0 \0 \n \0 \0 277 A g \0 \0 \n
0007040 \0 \0 277 g \0 \0 A ` \0 \0 \n \0 \0 \n \0 \0
0007060 277 @ 002 b \0 277 g \0 \0 A @ 001 032 \n \0 \0
0007100 277 @ 002 b \0 232 260 360 001 H 002 \n \0 \0 277 260
0007120 274 H 265 004 A 020 001 \t \0 \0 277 260 371 \0 ( 1
0007140 5 4 Q R E L I N K 1 4 0 Q
0007160 C H N G N M 1 2 2 Q A P P L
0007200 Y 1 0 2 Q / S E T A T O M V
0007220 A L 7 7 Q / D R E M O V E
0007240 6 4 Q R E S T O R E 5 4 Q
0007260 R E S T O R E 4 4 Q / R E M
0007300 P R O P 2 7 Q / P U T ) \r (
0007320 1 1 3 Q A D V I S E 7 4 Q
0007340 A D V I S E D F N S 7 0 Q A
0007360 D V I S E D F N S 6 1 Q A D
0007400 V I S E D 5 1 Q B R O K E N
0007420 4 1 Q A D V I C E 2 3 Q
0007440 R E A D V I C E ) \r N I L \r A D
0007460 V I S E 1 D 1 \r ( P 0 Z
0007500 I 2 F L G I 1 Y I
0007520 0 X F 1 W H E N F 2
0007540 W H E R E F 3 W H A T )
0007560 \0 / 001 003 \0 003 021 020 \0 A @ h i \v \0
0007600 \0 \n \0 \0 X 004 l 004 361 221 H 020 B 235 H Q
0007620 \t \0 \0 R \t \0 \0 S \t \0 \0 203 H Q R S
0007640 \f \0 \0 H 020 \0 ( 5 3 Q A D V I S
0007660 E 4 3 Q C O P Y 3 7 Q C
0007700 O P Y 3 3 Q C O P Y 1 4 Q
0007720 C H N G N M 1 1 Q F N C H
0007740 E C K ) \r N I L \r N I L \r A D V
0007760 I S E D U M P D 1 \r ( P 1 0
0010000 Q Y P 7 F N P 3 F
0010020 N I 1 F L G I 0 X )
0010040 \0 | \t \0 \0 002 021 0 002 @ 260 U d 001 021
0010060 001 003 021 0 006 K \t \0 \0 260 6 d 001 021 021 \b
0010100 O 016 g \0 \0 033 _ 020 262 027 O 016 g \0 \0 O
0010120 016 g \0 \0 033 O 020 \t \0 \0 032 \v \0 \0 277 O
0010140 016 022 274 M 265 \a L h 032 ^ 201 L & 275 002 003
0010160 265 313 N 022 022 X 003 226 I 265 ! H Z Y 277 002
0010200 003 265 254 J 022 b \0 d g \0 \0 \n \0 \0 A 264
0010220 \n g \0 \0 @ 032 \t \0 \0 020 \t \0 \0 Y H 031
0010240 260 336 \0 ( 1 6 5 Q L A S T 1 6
0010260 1 Q P R I N T D E F 1 1 4 6
0010300 Q M A K E D E F L I S T 6 6
0010320 Q P U T 6 2 Q A P P E N D
0010340 2 1 Q P A C K - I N - ) \r (
0010360 1 5 4 Q R E A D V I S E 1 4
0010400 3 Q R E A D V I C E 5 4 Q
0010420 A L I A S 4 7 Q R E A D V I
0010440 C E 3 5 Q A D V I C E ) \r N
0010460 I L \r A D D R U L E A 0 1 8 7
0010500 D 1 \r ( N A M E E R R O R S E
0010520 T L ( 2 E R R O R S E T .
0010540 W 1 E R R O R S E T . V 0
0010560 E R R O R S E T . U ) F 0
0010600 W H E R E F 1 L S T F
0010620 2 N E W ) \0 034 \0 003 \0 003 Q g
0010640 \0 \0 P 002 032 o \0 \0 \0 P 001 R h 032 032 h
0010660 032 032 032 \n \0 \0 h 032 020 \0 ( 2 7 Q E
0010700 D I T E ) \r ( 3 L C ) \r ( 1 2
0010720 Q ( B E L O W ^ ) ) \r A D D
0010740 R U L E D 1 \r ( P 1 Y P
0010760 0 X I 3 F L G I 2
0011000 W H E R E I 1 N E W I
0011020 0 L S T ) \0 212 002 \0 \0 004 021
0011040 001 B d 004 l 004 361 263 @ 277 B g \0 \0 360 256
0011060 B g \0 \0 360 250 B g \0 \0 360 242 B 265 026 C
0011100 231 A @ \t \0 \0 \n \0 \0 @ 020 @ A h 032 \n
0011120 \0 \0 020 g \0 \0 360 250 B d g \0 \0 360 262 9
0011140 277 A @ \n \0 \0 020 002 245 B 001 b 004 260 265 C
0011160 262 025 @ l 002 \n \0 \0 X 262 035 H 002 b 006 277
0011200 H \t \0 \0 277 o \0 \0 \0 \t \0 \0 C 225 @ C
0011220 \n \0 \0 277 263 265 B o \0 \0 \0 032 i d \v \0
0011240 \0 277 \b \0 \0 h 020 \0 ( 2 0 6 Q E R
0011260 R O R ! 2 0 2 Q P R I N T
0011300 1 6 4 Q / N C O N C 1 5 5 Q
0011320 A D D R U L E A 0 1 8 7 1 4
0011340 5 Q / R P L A C D 1 3 1 Q
0011360 N L E F T 1 0 7 Q / A T T A
0011400 C H 6 3 Q / N C O N C 5 2
0011420 Q / A T T A C H 4 7 Q F L
0011440 A S T ) \r ( 7 6 Q T O P 6 7
0011460 Q F I R S T 3 3 Q E N D
0011500 2 5 Q B O T T O M 1 7 Q L
0011520 A S T ) \r ( 1 7 4 Q ( n o t
0011540 f o u n d ) 1 5 2 Q ( D U M
0011560 M Y . F O R . E R R O R S E T )
0011600 ) \r C A D V I C E D 1 \r ( P
0011620 0 X I 0 F N S ) \0 S 001
0011640 \0 \0 001 @ 260 036 d 001 021 001 \0 H g \0 \0 g
0011660 \0 \0 \v \0 \0 277 H g \0 \0 g \0 \0 \v \0 \0
0011700 023 002 003 265 343 @ \t \0 \0 @ 260 & d 001 021 001
0011720 \0 H g \0 \0 g \0 \0 \v \0 \0 277 H g \0 \0
0011740 \n \0 \0 277 H g \0 \0 g \0 \0 \v \0 \0 023 002
0011760 003 265 333 @ 020 \0 ( 1 1 2 Q C H A N
0012000 G E P R O P 7 7 Q R E M P R
0012020 O P 6 7 Q C H A N G E P R O
0012040 P 4 5 Q C O M P I L E 3 4
0012060 Q C H A N G E P R O P 2 1 Q
0012100 C H A N G E P R O P ) \r ( 1 0
0012120 7 Q E X P R 1 0 4 Q O R I
0012140 G E X P R 7 4 Q E X P R 6
0012160 4 Q A D V I S E D 6 1 Q C
0012200 A D V I S E D 3 1 Q O R I G
0012220 E X P R 2 6 Q E X P R 1 6
0012240 Q C A D V I S E D 1 3 Q A
0012260 D V I S E D ) \r N I L \r ( P R E
0012300 T T Y C O M P R I N T A D V I
0012320 S E C O M S ) \r ( R P A Q Q A
0012340 D V I S E C O M S ( ( F N S
0012360 * A D V I S E F N S ) ( V A
0012400 R S ( A D V I S E D F N S )
0012420 ( A D V I N F O L S T ) ) ( P
0012440 ( M A P 2 C ( Q U O T E (
0012460 P R O G S E T Q \r R E T U R
0012500 N ) ) ( Q U O T E ( A D V -
0012520 P R O G A D V - S E T Q A D
0012540 V - R E T U R N ) ) ( F U N C
0012560 T I O N M O V D ) ) ) ( D E
0012600 C L A R E : D O N T E V A L @
0012620 L O A D \r D O E V A L @ C O M
0012640 P I L E D O N T C O P Y C O
0012660 M P I L E R V A R S ( A D D V
0012700 A R S ( N L A M A R E A D V
0012720 I S E U N A D V I S E ) ( N
0012740 L A M L ) ( L A M A ) ) ) (
0012760 B L O C K S * \r A D V I S E
0013000 B L O C K S ) ) ) \r ( R P A Q Q
0013020 A D V I S E F N S ( A D V I
0013040 S E A D V I S E 1 U N A D V
0013060 I S E A D V I S E D U M P R
0013100 E A D V I S E R E A D V I S E
0013120 0 R E A D V I S E 1 A D D R
0013140 U L E C A D V I C E ) ) \r ( R
0013160 P A Q Q A D V I S E D F N S
0013200 N I L ) \r ( R P A Q Q A D V I
0013220 N F O L S T N I L ) \r ( M A P
0013240 2 C ( Q U O T E ( P R O G
0013260 S E T Q R E T U R N ) ) ( Q
0013300 U O T E ( A D V - P R O G A
0013320 D V - S E T Q A D V - R E T U
0013340 R N ) ) ( F U N C T I O N M
0013360 O V D ) ) \r ( R P A Q Q A D V
0013400 I S E B L O C K S ( ( N I L
0013420 A D V I S E ( G L O B A L V A
0013440 R S A D V I S E D F N S F I
0013460 L E P K G F L G ) ) ( N I L
0013500 U N A D V I S E ( G L O B A L
0013520 V A R S \r A D V I S E D F N S
0013540 B R O K E N F N S A D V I N
0013560 F O L S T D W I M F L G U S
0013600 E R W O R D S ) ) ( N I L R
0013620 E A D V I S E R E A D V I S E
0013640 0 R E A D V I S E 1 ( G L O
0013660 B A L V A R S \r A D V I N F O
0013700 L S T D W I M F L G U S E R
0013720 W O R D S A D V I S E D F N S
0013740 ) ) ) ) \r ( P U T P R O P S A
0013760 D V I S E C O P Y R I G H T
0014000 ( " X e r o x C o r p o r a t
0014020 i o n " T 1 9 7 8 1 9 8 4
0014040 ) ) \r N I L \r
0014047