$ od -c -N 50000 [qv]<IDL>RELEASE0.1>LISPUSERS>UNBOXEDOPS.DCOM!1 0000000 ( F I L E C R E A T E D " 3 0000020 - M a r - 8 6 2 2 : 4 1 : 0 6 0000040 " ( " c o m p i l e d o n 0000060 " { Q V } < P E D E R S E N > 0000100 L I S P > U N B O X E D O P S . 0000120 ; 1 ) \r " 1 2 - N o v - 8 5 0000140 1 4 : 5 9 : 2 3 " t c o m p l 0000160 ' d i n " I N T E R L I S P 0000200 - D 7 - F e b - 8 6 . . . 0000220 " d a t e d " 7 - F e b - 0000240 8 6 1 1 : 4 3 : 0 5 " ) \r ( F 0000260 I L E C R E A T E D " 3 - M 0000300 a r - 8 6 2 2 : 4 0 : 2 2 " 0000320 { Q V } < P E D E R S E N > L I 0000340 S P > U N B O X E D O P S . ; 1 0000360 9 3 5 8 c h a n g e s t o 0000400 : ( V A R S \r U N B O X E D 0000420 O P S C O M S ) ( F N S \ U 0000440 N B O X F L O A T 1 . P A T C H 0000460 ) p r e v i o u s d a t e : 0000500 " 2 0 - F e b - 8 6 1 5 : 5 0000520 8 : 5 5 " \r { E R I S } < L I 0000540 S P U S E R S > K O T O > U N B 0000560 O X E D O P S . ; 1 ) \r U F A B 0000600 S D 1 \r ( L ( 0 X ) ) \0 0000620 \t \0 \0 \0 001 @ 355 001 355 002 355 \0 020 \0 N I 0000640 L \r N I L \r ( ) \r U F E Q P D 0000660 1 \r ( L ( 1 Y 0 X ) ) 0000700 \0 \a \0 \0 \0 002 @ A \n \0 \0 020 \0 ( 4 0000720 F E Q P ) \r N I L \r ( ) \r U F G 0000740 E Q D 1 \r ( L ( 1 Y 0 0000760 X ) ) \0 \a \0 \0 \0 002 A @ 363 h 360 020 0001000 \0 N I L \r N I L \r ( ) \r U F G R 0001020 E A T E R P D 1 \r ( L ( 1 0001040 Y 0 X ) ) \0 005 \0 \0 \0 002 @ A 0001060 362 020 \0 N I L \r N I L \r ( ) \r U F 0001100 I X D 1 \r ( L ( 0 X ) ) 0001120 \0 005 \0 \0 \0 001 @ j 330 020 \0 N I L \r N 0001140 I L \r ( ) \r U F L E Q D 1 \r ( 0001160 L ( 1 Y 0 X ) ) \0 \a \0 0001200 \0 \0 002 @ A 363 h 360 020 \0 N I L \r N I 0001220 L \r ( ) \r U F L E S S P D 1 \r 0001240 ( L ( 1 Y 0 X ) ) \0 005 0001260 \0 \0 \0 002 A @ 362 020 \0 N I L \r N I L 0001300 \r ( ) \r U F M A X D 1 \r ( L 0001320 ( 0 A R G S ) ) \0 ! 004 \0 002 \0 0001340 e 021 001 \0 H k ` \0 \0 021 003 003 J d I 363 0001360 221 K 020 a K 362 222 J a 273 J k 324 Z 260 357 0001400 \0 N I L \r ( 1 0 Q M I N . F L 0001420 O A T ) \r ( ) \r U F M I N D 1 0001440 \r ( L ( 0 A R G S ) ) \0 " 0001460 004 \0 002 \0 e 021 001 \0 H k ` \0 \0 021 003 003 0001500 J d I 363 221 K 020 a K 375 362 222 J a 273 J 0001520 k 324 Z 260 356 \0 N I L \r ( 1 0 Q M 0001540 A X . F L O A T ) \r ( ) \r U F M 0001560 I N U S D 1 \r ( L ( 0 X ) 0001600 ) \0 006 \0 \0 \0 001 @ \t \0 \0 020 \0 ( 3 0001620 F M I N U S ) \r N I L \r ( ) \r 0001640 U F R E M A I N D E R D 1 \r ( 0001660 L ( 1 Y 0 X ) ) \0 \a \0 0001700 \0 \0 002 @ A \n \0 \0 020 \0 ( 4 F R E 0001720 M A I N D E R ) \r N I L \r ( ) \r 0001740 \ U N B O X F L O A T 1 . P A T 0001760 C H D 1 \r ( L ( 0 O P ) ) 0002000 001 3 004 \0 \0 001 \b \0 \0 @ d j 360 262 < 0002020 277 \b \0 \0 f 021 1 003 k H 321 310 004 Y ` \0 0002040 \0 I l 002 331 Y 320 d 310 \0 375 310 001 321 Z I 0002060 l 002 \n \0 \0 k H 321 I 315 004 l 003 037 [ J 0002100 322 315 \0 K J 323 315 001 K 020 k 360 262 8 \b \0 0002120 \0 f 021 1 003 k H 321 310 004 Y ` \0 \0 I l 0002140 002 331 Y 320 d 310 \0 375 310 001 321 Z I l 002 \n 0002160 \0 \0 k H 321 I 315 004 J 006 \0 \0 [ 310 \0 K 0002200 310 001 321 020 @ d l 002 360 262 7 277 \b \0 \0 f 0002220 h 021 022 002 k H 321 310 004 Z ` \0 \0 J l 002 0002240 331 Z 320 d 310 \0 375 310 001 321 Y J l 002 \n \0 0002260 \0 k H 321 J 315 004 I 355 \0 \t \0 \0 355 001 020 0002300 l 003 360 262 6 \b \0 \0 f h 021 022 002 k H 321 0002320 310 004 Z ` \0 \0 J l 002 331 Z 320 d 310 \0 375 0002340 310 001 321 Y J l 002 \n \0 \0 k H 321 J 315 004 0002360 I 355 \0 \t \0 \0 355 001 020 @ l 004 360 262 3 \b 0002400 \0 \0 f h 021 022 002 k H 321 310 004 Z ` \0 \0 0002420 J l 002 331 Z 320 d 310 \0 375 310 001 321 Y J l 0002440 002 \n \0 \0 k H 321 J 315 004 I 355 \0 j 330 020 0002460 o \0 \0 \0 @ \n \0 \0 020 \0 ( 4 6 0 Q 0002500 H E L P 4 3 4 Q \ M A K E F 0002520 R E E B L O C K 3 7 2 Q \ S 0002540 L O W R E T U R N 3 5 6 Q F 0002560 M I N U S 3 4 2 Q \ M A K E 0002600 F R E E B L O C K 3 0 0 Q \ 0002620 S L O W R E T U R N 2 6 5 Q 0002640 A B S 2 5 1 Q \ M A K E F R 0002660 E E B L O C K 2 0 7 Q \ S L 0002700 O W R E T U R N 1 5 2 Q \ M 0002720 A K E F R E E B L O C K 1 1 1 0002740 Q \ S L O W R E T U R N 5 5 0002760 Q \ M A K E F R E E B L O C K 0003000 1 4 Q \ S L O W R E T U R N 0003020 2 \ S L O W R E T U R N ) \r 0003040 ( 4 1 0 Q \ S T A C K S P A C 0003060 E 3 1 6 Q \ S T A C K S P A 0003100 C E 2 2 5 Q \ S T A C K S P 0003120 A C E 1 6 4 Q F L O A T P 0003140 1 2 6 Q \ S T A C K S P A C E 0003160 3 1 Q \ S T A C K S P A C E 0003200 ) \r ( 4 5 4 Q " \ U N B O X 0003220 F L O A T 1 c a l l e d w i 0003240 t h i l l e g a l o p " ) 0003260 \r ( P R E T T Y C O M P R I N T 0003300 U N B O X E D O P S C O M S ) 0003320 \r ( R P A Q Q U N B O X E D O 0003340 P S C O M S ( ( M A C R O S 0003360 U F A B S U F A B S 1 U F E 0003400 Q P U F E Q P 2 U F G E Q 0003420 U F G E Q 2 U F G R E A T E R 0003440 P U F G R E A T E R P 2 U F 0003460 I X \r U F I X 1 U F L E Q 0003500 U F L E Q 2 U F L E S S P U 0003520 F L E S S P 2 U F M A X U F 0003540 M A X 2 U F M I N U F M I N 0003560 2 U F M I N U S U F M I N U 0003600 S 1 U F R E M A I N D E R \r 0003620 U F R E M A I N D E R 2 ) ( F 0003640 N S U F A B S U F E Q P U 0003660 F G E Q U F G R E A T E R P 0003700 U F I X U F L E Q U F L E S 0003720 S P U F M A X U F M I N U 0003740 F M I N U S U F R E M A I N D 0003760 E R \r \ U N B O X F L O A T 1 0004000 . P A T C H ) ( D E C L A R E 0004020 : D O N T E V A L @ L O A D 0004040 D O C O P Y ( P ( M O V D 0004060 ( Q U O T E \ U N B O X F L O 0004100 A T 1 . P A T C H ) ( Q U O T 0004120 E \r \ U N B O X F L O A T 1 ) 0004140 ) ) ) ( D E C L A R E : D O 0004160 N T E V A L @ L O A D D O E V 0004200 A L @ C O M P I L E D O N T C 0004220 O P Y ( L O C A L V A R S . 0004240 T ) ) ( D E C L A R E : \r 0004260 D O N T E V A L @ L O A D D O 0004300 E V A L @ C O M P I L E D O N 0004320 T C O P Y C O M P I L E R V A 0004340 R S ( A D D V A R S ( N L A 0004360 M A ) ( N L A M L ) ( L A M 0004400 A U F M I N U F M A X ) ) ) 0004420 ) ) \r ( D E F M A C R O U F A 0004440 B S ( & O P T I O N A L ( A 0004460 R G 1 N I L A R G 1 G I V E 0004500 N ) & R E S T R E S T A R G 0004520 S & W H O L E O R I G I N A 0004540 L ) ( i f ( O R ( N O T 0004560 A R G 1 G I V E N \r ) R E S T 0004600 A R G S ) t h e n ( P R I N 0004620 T O U T T " * * * * * * * * 0004640 * * * * " T ) ( P R I N T O 0004660 U T T " I l l e g a l a r 0004700 g s t o U F A B S " , , 0004720 O R I G I N A L T ) ( \r P 0004740 R I N T O U T T " * * * * * 0004760 * * * * * * * " T ) ) ( L I 0005000 S T ( Q U O T E U F A B S 1 0005020 ) A R G 1 ) ) \r ( P U T P R O 0005040 P S U F A B S 1 D M A C R O 0005060 ( ( X ) ( \ F L O A T B O X 0005100 ( ( O P C O D E S U B F L O 0005120 A T 1 2 ) ( \ F L O A T U N 0005140 B O X X ) ) ) ) ) \r ( D E F M 0005160 A C R O U F E Q P ( & W H O 0005200 L E O R I G I N A L & O P T 0005220 I O N A L ( A R G 1 N I L 0005240 A R G 1 G I V E N ) ( A R G 2 0005260 N I L A R G 2 G I V E N ) 0005300 & R E S T R E S T A R G S ) 0005320 ( \r i f ( O R ( N O T A R 0005340 G 1 G I V E N ) ( N O T A R 0005360 G 2 G I V E N ) R E S T A R G 0005400 S ) t h e n ( P R I N T O U 0005420 T T " * * * * * * * * * * * 0005440 * " T ) ( P R I N T O U T 0005460 T \r " I l l e g a l a r g s 0005500 t o U F E Q P " , , O 0005520 R I G I N A L T ) ( P R I N 0005540 T O U T T " * * * * * * * * 0005560 * * * * " T ) ) ( L I S T 0005600 ( Q U O T E U F E Q P 2 ) A 0005620 R G 1 A R G 2 ) \r ) \r ( P U T 0005640 P R O P S U F E Q P 2 D M A 0005660 C R O ( ( X Y ) ( E Q ( 0005700 \ F L O A T U N B O X ( F D I 0005720 F F E R E N C E X Y ) ) N 0005740 I L ) ) ) \r ( D E F M A C R O 0005760 U F G E Q ( & W H O L E O R 0006000 I G I N A L & O P T I O N A L 0006020 ( A R G 1 N I L A R G 1 G 0006040 I V E N ) ( A R G 2 N I L 0006060 A R G 2 G I V E N ) & R E S T 0006100 R E S T A R G S ) ( \r i f 0006120 ( O R ( N O T A R G 1 G I V 0006140 E N ) ( N O T A R G 2 G I V 0006160 E N ) R E S T A R G S ) t h 0006200 e n ( P R I N T O U T T " 0006220 * * * * * * * * * * * * " T ) 0006240 ( P R I N T O U T T \r " I 0006260 l l e g a l a r g s t o U 0006300 F G E Q " , , O R I G I N 0006320 A L T ) ( P R I N T O U T 0006340 T " * * * * * * * * * * * * " 0006360 T ) ) ( L I S T ( Q U O T 0006400 E U F G E Q 2 ) A R G 1 A 0006420 R G 2 ) \r ) \r ( P U T P R O P S 0006440 U F G E Q 2 D M A C R O ( 0006460 ( X Y ) ( N O T ( ( O P C 0006500 O D E S S W A P U B F L O A 0006520 T 2 5 ) ( \ F L O A T U N B 0006540 O X X ) ( \ F L O A T U N B 0006560 O X Y ) ) ) ) ) \r ( D E F M A 0006600 C R O U F G R E A T E R P ( 0006620 & W H O L E O R I G I N A L 0006640 & O P T I O N A L ( A R G 1 0006660 N I L A R G 1 G I V E N ) ( 0006700 A R G 2 N I L A R G 2 G I V 0006720 E N ) & R E S T \r R E S T A 0006740 R G S ) ( i f ( O R ( N O 0006760 T A R G 1 G I V E N ) ( N O 0007000 T A R G 2 G I V E N ) R E S 0007020 T A R G S ) t h e n ( P R I 0007040 N T O U T T " * * * * * * * 0007060 * * * * * " T ) ( \r P R I N 0007100 T O U T T " I l l e g a l 0007120 a r g s t o U F G R E A T E 0007140 R P " , , O R I G I N A L 0007160 T ) ( P R I N T O U T T 0007200 " * * * * * * * * * * * * " T 0007220 ) ) ( L I S T ( Q U O T E 0007240 \r U F G R E A T E R P 2 ) A R 0007260 G 1 A R G 2 ) ) \r ( P U T P R 0007300 O P S U F G R E A T E R P 2 0007320 D M A C R O ( ( X Y ) ( ( 0007340 O P C O D E S U B F L O A T 2 0007360 5 ) ( \ F L O A T U N B O X 0007400 X ) ( \ F L O A T U N B O X 0007420 Y ) ) ) ) \r ( D E F M A C R O 0007440 U F I X ( & W H O L E O R 0007460 I G I N A L & O P T I O N A L 0007500 ( A R G 1 N I L A R G 1 G 0007520 I V E N ) & R E S T R E S T 0007540 A R G S ) ( i f ( O R ( N 0007560 O T A R G 1 G I V E N ) \r R 0007600 E S T A R G S ) t h e n ( P 0007620 R I N T O U T T " * * * * * 0007640 * * * * * * * " T ) ( P R I 0007660 N T O U T T " I l l e g a l 0007700 a r g s t o U F I X " , 0007720 , O R I G I N A L T ) ( 0007740 \r P R I N T O U T T " * * * 0007760 * * * * * * * * * " T ) ) ( 0010000 L I S T ( Q U O T E U F I X 0010020 1 ) A R G 1 ) ) \r ( P U T P R 0010040 O P S U F I X 1 D M A C R O 0010060 ( ( X ) ( ( O P C O D E S 0010100 U B F L O A T 1 4 ) ( \ F L 0010120 O A T U N B O X X ) ) ) ) \r ( 0010140 D E F M A C R O U F L E Q ( 0010160 & W H O L E O R I G I N A L 0010200 & O P T I O N A L ( A R G 1 0010220 N I L A R G 1 G I V E N ) ( 0010240 A R G 2 N I L A R G 2 G I V 0010260 E N ) & R E S T R E S T A R 0010300 G S ) ( \r i f ( O R ( N O 0010320 T A R G 1 G I V E N ) ( N O 0010340 T A R G 2 G I V E N ) R E S 0010360 T A R G S ) t h e n ( P R I 0010400 N T O U T T " * * * * * * * 0010420 * * * * * " T ) ( P R I N T 0010440 O U T T \r " I l l e g a l 0010460 a r g s t o U F L E Q " , 0010500 , O R I G I N A L T ) ( 0010520 P R I N T O U T T " * * * * 0010540 * * * * * * * * " T ) ) ( L 0010560 I S T ( Q U O T E U F L E Q 0010600 2 ) A R G 1 A R G 2 ) \r ) \r 0010620 ( P U T P R O P S U F L E Q 2 0010640 D M A C R O ( ( X Y ) ( 0010660 N O T ( ( O P C O D E S U B 0010700 F L O A T 2 5 ) ( \ F L O A 0010720 T U N B O X X ) ( \ F L O A 0010740 T U N B O X Y ) ) ) ) ) \r ( D 0010760 E F M A C R O U F L E S S P 0011000 ( & W H O L E O R I G I N A L 0011020 & O P T I O N A L ( A R G 1 0011040 N I L A R G 1 G I V E N ) 0011060 ( A R G 2 N I L A R G 2 G I 0011100 V E N ) & R E S T R E S T A 0011120 R G S ) \r ( i f ( O R ( N 0011140 O T A R G 1 G I V E N ) ( N 0011160 O T A R G 2 G I V E N ) R E 0011200 S T A R G S ) t h e n ( P R 0011220 I N T O U T T " * * * * * * 0011240 * * * * * * " T ) ( P R I N 0011260 T O U T T \r " I l l e g a l 0011300 a r g s t o U F L E S S P 0011320 " , , O R I G I N A L T 0011340 ) ( P R I N T O U T T " * 0011360 * * * * * * * * * * * " T ) ) 0011400 ( L I S T ( Q U O T E U F 0011420 L E S S P 2 ) A R G 1 \r A R 0011440 G 2 ) ) \r ( P U T P R O P S U 0011460 F L E S S P 2 D M A C R O ( 0011500 ( X Y ) ( ( O P C O D E S 0011520 S W A P U B F L O A T 2 5 ) 0011540 ( \ F L O A T U N B O X X ) 0011560 ( \ F L O A T U N B O X Y ) 0011600 ) ) ) \r ( D E F M A C R O U F 0011620 M A X ( & O P T I O N A L ( 0011640 A R G 1 N I L A R G 1 G I V 0011660 E N ) ( A R G 2 N I L A R 0011700 G 2 G I V E N ) & R E S T R 0011720 E S T A R G S ) ( i f ( N O 0011740 T \r A R G 1 G I V E N ) t h 0011760 e n ( Q U O T E M I N . F L 0012000 O A T ) e l s e i f ( N O T 0012020 A R G 2 G I V E N ) t h e n 0012040 ( B Q U O T E ( F L O A T 0012060 , A R G 1 ) ) e l s e i f 0012100 R E S T A R G S \r t h e n ( 0012120 B Q U O T E ( U F M A X ( U 0012140 F M A X 2 , A R G 1 , A 0012160 R G 2 ) . , R E S T A R G S 0012200 ) ) e l s e ( L I S T ( Q 0012220 U O T E U F M A X 2 ) A R G 0012240 1 A R G 2 ) ) ) \r ( P U T P R 0012260 O P S U F M A X 2 D M A C R 0012300 O ( ( X Y ) ( \ F L O A T 0012320 B O X ( ( O P C O D E S U B 0012340 F L O A T 2 6 ) ( \ F L O A 0012360 T U N B O X X ) ( \ F L O A 0012400 T U N B O X Y ) ) ) ) ) \r ( D 0012420 E F M A C R O U F M I N ( & 0012440 O P T I O N A L ( A R G 1 N 0012460 I L A R G 1 G I V E N ) ( A 0012500 R G 2 N I L A R G 2 G I V E 0012520 N ) & R E S T R E S T A R G 0012540 S ) ( i f ( N O T \r A R G 0012560 1 G I V E N ) t h e n ( Q U 0012600 O T E M A X . F L O A T ) e 0012620 l s e i f ( N O T A R G 2 G 0012640 I V E N ) t h e n ( B Q U O 0012660 T E ( F L O A T , A R G 1 0012700 ) ) e l s e i f R E S T A R 0012720 G S \r t h e n ( B Q U O T E 0012740 ( U F M I N ( U F M I N 2 0012760 , A R G 1 , A R G 2 ) . 0013000 , R E S T A R G S ) ) e l s 0013020 e ( L I S T ( Q U O T E U 0013040 F M I N 2 ) A R G 1 A R G 2 0013060 ) ) ) \r ( P U T P R O P S U F 0013100 M I N 2 D M A C R O ( ( X 0013120 Y ) ( \ F L O A T B O X ( ( 0013140 O P C O D E S U B F L O A T 2 0013160 7 ) ( \ F L O A T U N B O X 0013200 X ) ( \ F L O A T U N B O X 0013220 Y ) ) ) ) ) \r ( D E F M A C R 0013240 O U F M I N U S ( & W H O L 0013260 E O R I G I N A L & O P T I 0013300 O N A L ( A R G 1 N I L A 0013320 R G 1 G I V E N ) & R E S T 0013340 R E S T A R G S ) ( i f ( O 0013360 R ( N O T \r A R G 1 G I V E 0013400 N ) R E S T A R G S ) t h e 0013420 n ( P R I N T O U T T " * 0013440 * * * * * * * * * * * " T ) 0013460 ( P R I N T O U T T " I l l 0013500 e g a l a r g s t o U F M 0013520 I N U S " , , \r O R I G I 0013540 N A L T ) ( P R I N T O U T 0013560 T " * * * * * * * * * * * * 0013600 " T ) ) ( L I S T ( Q U O 0013620 T E U F M I N U S 1 ) A R G 0013640 1 ) ) \r ( P U T P R O P S U F 0013660 M I N U S 1 D M A C R O ( ( 0013700 X ) ( \ F L O A T B O X ( ( 0013720 O P C O D E S U B F L O A T 1 0013740 3 ) ( \ F L O A T U N B O X 0013760 X ) ) ) ) ) \r ( D E F M A C R 0014000 O U F R E M A I N D E R ( & 0014020 W H O L E O R I G I N A L & 0014040 O P T I O N A L ( A R G 1 N 0014060 I L A R G 1 G I V E N ) ( A 0014100 R G 2 N I L A R G 2 G I V E 0014120 N ) & R E S T \r R E S T A R 0014140 G S ) ( i f ( O R ( N O T 0014160 A R G 1 G I V E N ) ( N O T 0014200 A R G 2 G I V E N ) R E S T 0014220 A R G S ) t h e n ( P R I N 0014240 T O U T T " * * * * * * * * 0014260 * * * * " T ) ( \r P R I N T 0014300 O U T T " I l l e g a l a 0014320 r g s t o U F R E M A I N D 0014340 E R " , , O R I G I N A L 0014360 ) ( P R I N T O U T T " * 0014400 * * * * * * * * * * * " T ) ) 0014420 ( L I S T ( Q U O T E \r U 0014440 F R E M A I N D E R 2 ) A R G 0014460 1 A R G 2 ) ) \r ( P U T P R O 0014500 P S U F R E M A I N D E R 2 0014520 D M A C R O ( ( X Y ) ( \ 0014540 F L O A T B O X ( ( O P C O D 0014560 E S U B F L O A T 2 8 ) ( 0014600 \ F L O A T U N B O X X ) ( 0014620 \ F L O A T U N B O X Y ) ) \r 0014640 ) ) ) \r ( M O V D ( Q U O T E 0014660 \ U N B O X F L O A T 1 . P A 0014700 T C H ) ( Q U O T E \ U N B 0014720 O X F L O A T 1 ) ) \r ( P U T P 0014740 R O P S U N B O X E D O P S 0014760 C O P Y R I G H T ( " X e r o 0015000 x C o r p o r a t i o n " 1 0015020 9 8 6 ) ) \r N I L \r 0015032