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