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