$ od -c -N 50000 [eris]<Lisp>JCAI>library>LISPDIAGNOSTICS.FLOPPY!1
0000000 P I L O T \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0000020 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
*
0001000 303 \f \0 001 \0 M \0 002 \0 017 \0 \0 001 \0 \0
0001020 \0 002 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0001040 \0 \0 \0 \0 \0 \t \0 \0 \0 \0 \0 017 L I S P
0001060 D I A G N O S T I C S \0 \0 \0 \0 \0
0001100 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
*
0002000 2 313 \0 001 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0002020 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
*
0002400 \0 \0 \0 002 \0 \0 \0 002 \0 001 \0 \0 \b 006 \0 \0
0002420 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
*
0003000 262 313 \0 001 \0 \b \0 e \0 001 \0 \0 \b 006 \0
0003020 \0 002 \0 002 \0 \0 \b 004 \0 # \0 @ \0 003 \0 \0
0003040 \b 004 \0 d \0 ( \0 004 \0 \0 \b 004 \0 215 \0 203
0003060 \0 005 \0 \0 \b 004 001 021 \0 253 \0 006 \0 \0 \b 004
0003100 001 275 \0 \a \0 \a \0 \0 \b 004 001 305 \0 005 \0 \b
0003120 \0 \0 \b 004 001 313 \0 \a \0 \0 \0 \0 \0 \0 \0 \0
0003140 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
*
0005000 2 313 \0 001 \0 002 \0 \0 \0 002 \0 001 \0 \0 \b 006
0005020 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
*
0005400 \0 \0 \0 @ \0 \0 \0 001 \0 \0 \0 \0 \b 004 \0 \0
0005420 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
*
0006000 252 252 \0 001 377 377 366 177 235 354 035 244 235 355 \0 ?
0006020 \0 \0 \0 \0 \0 \0 \0 ? \0 \0 } 232 \0 \0 \0 022
0006040 \0 d L I S P D I A G N O S T I C
0006060 S . ; 1 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0006100 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
*
0006200 \0 \0 \0 \0 \0 \0 \0 002 \0 273 \b 256 \0 001 \0 \0
0006220 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
*
0007000 006 001 ( F I L E C R E A T E D "
0007020 1 6 - D e c - 8 4 1 8 : 4 8 :
0007040 5 1 " 006 004 { E R I S } < L I S
0007060 P C O R E > L I B R A R Y > L I
0007100 S P D I A G N O S T I C S . ; 3
0007120 6 006 001 3 1 4 7 2 \r \r
0007140 c h a n g e s t o :
0007160 ( V A R S L I S P D I A G N O
0007200 S T I C S C O M S ) \r \t \t
0007220 ( F N S D S K P R O C . A U X
0007240 \ L D . B L O C K C H E C K
0007260 E X E R C I S E M A K E D I A
0007300 G N O S T I C S M E N U D S K
0007320 P R O C \r \t \t \t D S K P R O C
0007340 . D O 1 C O P Y ) \r \r
0007360 p r e v i o u s d a t e :
0007400 " 9 - D e c - 8 4 1 4 : 2 6
0007420 : 3 2 " { E R I S } < L I S P
0007440 C O R E > L I B R A R Y > L I S
0007460 P D I A G N O S T I C S . ; 3 3
0007500 ) \r \r \r ( * C o p y r i g h t
0007520 ( c ) 1 9 8 4 b y X e r
0007540 o x C o r p o r a t i o n .
0007560 A l l r i g h t s r e s e r
0007600 v e d . ) \r \r ( P R E T T Y C O
0007620 M P R I N T L I S P D I A G N
0007640 O S T I C S C O M S ) \r \r ( R P
0007660 A Q Q 006 002 L I S P D I A G N O
0007700 S T I C S C O M S 006 001 ( ( C O
0007720 M S ( * " T h i s w o u l
0007740 d b e a g o o d o n e
0007760 f o r t h e s y s t e m t
0010000 o h a v e " ) \r \t \t \t \t (
0010020 F N S U N S H A D E A L L I T
0010040 E M S p r i n t o u t . S U B
0010060 R ) ) \r \t \t \t ( I N I T
0010100 V A R S ( D I A G N O S T I C
0010120 S R E C O R D S T R E A M T )
0010140 \r \t \t \t \t ( D I A G
0010160 N O S T I C S C O N T R O L W I
0010200 N D O W . P O S I T I O N ( c
0010220 r e a t e P O S I T I O N X
0010240 C O O R D _ \r \t \t \t \t \t \t \t
0010260 \t \t \t 8 0 0 Y C O O R D _
0010300 8 0 ) ) ) \r \t \t \t ( V
0010320 A R S ( E X E R C I S E . R U
0010340 N N E R N I L ) \r \t \t \t \t
0010360 ( E X E R C I S E . S T A T E
0010400 ( Q U O T E S T O P ) ) \r \t \t
0010420 \t \t E X E R C I S E . P O S
0010440 S I B I L I T I E S ) \r \t \t \t
0010460 ( C O N S T A N T S \ L
0010500 D . I N F O S H A D E ) \r \t \t \t
0010520 ( G L O B A L V A R S
0010540 D I A G N O S T I C S R E C O R
0010560 D S T R E A M D I A G N O S T
0010600 I C S C O N T R O L W I N D O W
0010620 . P O S I T I O N \r \t \t \t \t \t
0010640 E X E R C I S E . R U N N E R
0010660 E X E R C I S E . S T A T E E
0010700 X E R C I S E . P O S S I B I L
0010720 I T I E S ) \r \t \t \t ( F
0010740 N S E X E R C I S E \ L D .
0010760 B L O C K C H E C K \ L D . S
0011000 T O P P R O C S ) \r \t \t \t
0011020 ( C O M S ( * " S o m e
0011040 u s e r - i n t e r f a c e ,
0011060 m e n u - l i k e t h i n g s
0011100 " ) \r \t \t \t \t ( C O N S T A
0011120 N T S ( \ L D . D P M . M E N
0011140 U B O R D E R S I Z E 3 ) ) \r
0011160 \t \t \t \t ( I N I T V A R S
0011200 ( \ L D . D C W . W I N D O W
0011220 N I L ) \r \t \t \t \t \t ( \
0011240 L D . D P M . M E N U N I L )
0011260 \r \t \t \t \t \t ( \ L D . D
0011300 P M . W I N D O W N I L ) \r \t
0011320 \t \t \t \t ( \ L D . D P M
0011340 . W I N D O W B O R D E R S I Z
0011360 E N I L ) \r \t \t \t \t \t
0011400 ( \ L D . D P M . I T E M S N
0011420 I L ) \r \t \t \t \t \t ( \ L
0011440 D . D P M . S P A C E W I D T H
0011460 N I L ) ) \r \t \t \t \t ( F N
0011500 S M A K E D I A G N O S T I C
0011520 S M E N U \ L D . D C W . W H
0011540 E N S E L E C T E D \ L D . D
0011560 P M . W H E N S E L E C T E D )
0011600 \r \t \t \t \t ( G L O B A L V A
0011620 R S \ L D . D C W . W I N D O
0011640 W \ L D . D P M . M E N U \
0011660 L D . D P M . W I N D O W \r \t
0011700 \t \t \t \t \ L D . D P
0011720 M . W I N D O W B O R D E R S I
0011740 Z E \ L D . D P M . F O N T H
0011760 E I G H T \r \t \t \t \t \t
0012000 \ L D . D P M . I T E M S
0012020 \ L D . D P M . S P A C E W I D
0012040 T H ) ) \r \t \t \t ( D E C
0012060 L A R E : E V A L @ C O M P I
0012100 L E D O N T C O P Y ( R E C
0012120 O R D S E X E R C I S E . P O
0012140 S S I B I L I T I E S ) \r \t \t \t
0012160 \t ( M A C R O S l
0012200 d p r i n t o u t ) ) \r \t \t \t
0012220 ( C O M S ( * " V a r
0012240 i o u s b a c k g r o u n d
0012260 a c t i v i t i e s t o s t
0012300 r e s s h a r d w a r e " ) \r
0012320 \t \t \t \t ( F N S D S K P R
0012340 O C D S K P R O C . A U X D
0012360 S K P R O C . D O 1 C O P Y E
0012400 T H E R P R O C D A E M O N P
0012420 R O C ) ) \r \t \t \t ( C O
0012440 M S ( * " V a r i o u s d
0012460 i a g n o s t i c a n d b e
0012500 n c h m a r k a c t i v i t i
0012520 e s " ) \r \t \t \t \t ( F N S
0012540 E M U P R O C 2 0 R E C L A I
0012560 M ) \r \t \t \t \t ( * " A f t
0012600 e r t h e T A N S P E E D
0012620 b e n c h m a r k " ) \r \t \t \t \t
0012640 ( F N S \ L D . T A N S P
0012660 E E D ) \r \t \t \t \t ( * " E
0012700 x t r a c t i o n f r o m G
0012720 a b r i e l ' s B R O W S E
0012740 b e n c h m a r k " ) \r \t \t \t \t
0012760 ( F N S \ L D . B R O W S
0013000 E \ L D . B R O W S E I N I T
0013020 \ L D . B R O W S E M A T C H
0013040 ) \r \t \t \t \t ( V A R S ( !
0013060 B R O W S E I N I T N I L ) )
0013100 \r \t \t \t \t ( G L O B A L V A
0013120 R S ! B R O W S E I N I T ) \r
0013140 \t \t \t \t ( D E C L A R E :
0013160 E V A L @ C O M P I L E D O N
0013200 T C O P Y ( M A C R O S C H
0013220 A R 1 ) ) ) \r \t \t \t ( D
0013240 E C L A R E : D O N T E V A L
0013260 @ C O M P I L E D O N T E V A
0013300 L @ L O A D D O C O P Y ( *
0013320 " P P L o s s a g e " ) \r \t \t
0013340 \t \t ( A D D V A R S
0013360 ( D I S P L A Y F O N T E X T
0013400 E N S I O N S S T R I K E ) \r
0013420 \t \t \t \t \t ( D I S
0013440 P L A Y F O N T D I R E C T O R
0013460 I E S { F L O P P Y } ) \r \t \t
0013500 \t \t \t ( L I S P U
0013520 S E R S D I R E C T O R I E S
0013540 { F L O P P Y } ) ) \r \t \t \t \t
0013560 ( V A R S ( ! M T U
0013600 S E R A I D F L G N I L ) ) \r
0013620 \t \t \t \t ( F I L E S
0013640 ( C O M P I L E D F R O M
0013660 V A L U E O F L I S P U S E R
0013700 S D I R E C T O R I E S ) \r \t \t
0013720 \t \t \t P A G E H O L D
0013740 M A C R O T E S T A U X M A
0013760 C R O T E S T P L U R A L ) \r
0014000 \t \t \t \t ( P ( M A
0014020 K E D I A G N O S T I C S M E N
0014040 U ) ) ) \r \t \t \t ( D E C
0014060 L A R E : D O N T E V A L @ L
0014100 O A D D O E V A L @ C O M P I
0014120 L E D O N T C O P Y C O M P
0014140 I L E R V A R S \r \t \t \t \t
0014160 ( A D D V A R S ( N L A
0014200 M A ) \r \t \t \t \t \t
0014220 ( N L A M L ) \r \t \t \t \t \t
0014240 ( L A M A p r i n t o
0014260 u t . S U B R ) ) ) ) ) \r \r \r \r
0014300 006 004 ( * " T h i s w o u l d
0014320 b e a g o o d o n e f
0014340 o r t h e s y s t e m t o
0014360 h a v e " ) 006 001 \r \r ( D E F I
0014400 N E Q \r \r ( 006 004 U N S H A D E A
0014420 L L I T E M S 006 001 \r ( L A M
0014440 B D A ( 006 001 M E N U 006 001 )
0014460
*
0014520 006 003 ( *
0014540 J o n L " 1 - D e c - 8 4
0014560 1 8 : 1 9 " ) 006 001 \r ( 006
0014600 001 P R O G 006 001 ( ( I T E M S
0014620 ( 006 002 f e t c h 006 001 ( 006 001 M E
0014640 N U 006 001 I T E M S ) 006 002 o f
0014660 006 001 M E N U ) ) ) \r
0014700 ( 006 001 M A P C 006 001 I
0014720 T E M S ( 006 001 F U N C T I O N
0014740 006 001 ( L A M B D A ( I T E M
0014760 ) \r \t \t ( 006 001 S H A D E
0015000 I T E M 006 001 I T E M M E N U
0015020 W H I T E S H A D E ) ) ) ) )
0015040 ) ) \r \r ( 006 004 p r i n t o u t .
0015060 S U B R 006 001 \r ( L A M B D A
0015100 N
0015120
*
0015160 006 003 ( * J o n L "
0015200 1 - D e c - 8 4 2 2 : 5 2 " )
0015220 006 001 \r \r 006 003
0015240 ( * * T e m p o r a r i l y
0015260 , t h i s p r i n t s o u
0015300 t t o \ T o p L e v e l T t
0015320 y W i n d o w u n t i l w e
0015340 c a n a l s o m a k e a
0015360 b r o a d c a s t s t r e a
0015400 m . ) 006 001 \r \r \r ( 006 001 O
0015420 R 006 001 ( 006 001 I G E Q 006 001 N
0015440 2 ) \r \t ( 006 001 S H O U L D N T 006
0015460 001 " T o o f e w a r g s "
0015500 ) ) \r ( 006 002 b i n d 006 001
0015520 X ( S T R E A M _ ( 006 001 A
0015540 R G 006 001 N 1 ) ) 006 002 f o r
0015560 006 001 I 006 002 f r o m 006 001 2
0015600 006 002 t o 006 001 N 006 002 d o 006 001
0015620 ( 006 001 S E L E C T Q 006 001 ( 006 001
0015640 S E T Q 006 001 X ( 006 001 A R G 006
0015660 001 N I ) ) \r \t \t \t \t \t \t \t
0015700 ( T ( 006 001 T E R P R
0015720 I 006 001 S T R E A M ) \r \t \t \t \t
0015740 \t \t \t \t ( 006 001 T E R P R I 006 001
0015760 \ T o p L e v e l T t y W i n
0016000 d o w ) ) \r \t \t \t \t \t \t \t
0016020 ( ( , - 1 ) \r \t \t \t \t \t
0016040 \t \t \t ( 006 001 S P A C E S 006 001 1
0016060 S T R E A M ) \r \t \t \t \t \t \t \t
0016100 \t ( 006 001 S P A C E S 006 001 1 \
0016120 T o p L e v e l T t y W i n d o
0016140 w ) ) \r \t \t \t \t \t \t \t
0016160 ( 006 001 P R O G N 006 001 ( 006 001 P
0016200 R I N 1 006 001 X S T R E A M )
0016220 \r \t \t \t \t \t \t \t \t ( 006
0016240 001 P R I N 1 006 001 X \ T o p L
0016260 e v e l T t y W i n d o w ) ) )
0016300 ) ) ) \r ) \r \r ( R P A Q ? 006 002
0016320 D I A G N O S T I C S R E C O R
0016340 D S T R E A M 006 001 T ) \r \r ( R
0016360 P A Q ? 006 002 D I A G N O S T I
0016400 C S C O N T R O L W I N D O W .
0016420 P O S I T I O N 006 001 ( c r e a
0016440 t e P O S I T I O N X C O O
0016460 R D _ 8 0 0 Y C O O R D
0016500 _ 8 0 ) ) \r \r ( R P A Q Q 006
0016520 002 E X E R C I S E . R U N N E R
0016540 006 001 N I L ) \r \r ( R P A Q Q
0016560 006 002 E X E R C I S E . S T A T E
0016600 006 001 S T O P ) \r \r ( R P A Q Q
0016620 006 002 E X E R C I S E . P O S S
0016640 I B I L I T I E S 006 001 ( ( T
0016660 ( E M U P R O C ) \r \t \t \t \t
0016700 " B e n c h M a r k s " ) \r \t \t
0016720 \t ( ( A N D ( H
0016740 O S T N A M E P ( Q U O T E
0016760 D S K ) ) \r \t \t \t \t (
0017000 I G E Q ( D I S K F R E E P A
0017020 G E S ) \r \t \t \t \t \t 5 0 0
0017040 ) ) \r \t \t \t \t ( D S K P R O C )
0017060 \r \t \t \t \t " D i s k A c t i v
0017100 i t y " ) \r \t \t \t
0017120 ( ( S T A R T . C L E A R I N G
0017140 H O U S E T ) \r \t \t \t \t ( E T
0017160 H E R P R O C ) \r \t \t \t \t " E t
0017200 h e r n e t A c t i v i t y "
0017220 ) \r \t \t \t ( T (
0017240 D A E M O N P R O C ) \r \t \t \t \t
0017260 " S w a p - o u t W o r k
0017300 i n g S e t " ) ) ) \r ( D E C L
0017320 A R E : E V A L @ C O M P I L
0017340 E \r \r ( R P A Q Q 006 002 \ L D
0017360 . I N F O S H A D E 006 001 1 6 9
0017400 2 0 ) \r \r ( C O N S T A N T S
0017420 \ L D . I N F O S H A D E ) \r )
0017440 \r ( D E C L A R E : D O E V A
0017460 L @ C O M P I L E D O N T C O
0017500 P Y \r \r ( G L O B A L V A R S
0017520 D I A G N O S T I C S R E C O R
0017540 D S T R E A M D I A G N O S T
0017560 I C S C O N T R O L W I N D O W
0017600 . P O S I T I O N E X E R C I
0017620 S E . R U N N E R E X E R C I
0017640 S E . S T A T E \r \t E
0017660 X E R C I S E . P O S S I B I L
0017700 I T I E S ) \r ) \r ( D E F I N E
0017720 Q \r \r ( 006 004 E X E R C I S E 006 001
0017740 \r ( L A M B D A ( N )
0017760
*
0020020 006 003
0020040 ( * J o n L " 1 6 - D e c -
0020060 8 4 1 7 : 0 9 " ) 006 001 \r
0020100 ( 006 001 S E T Q 006 001 E X E R C
0020120 I S E . S T A T E N I L ) \r
0020140 ( 006 001 R E S E T L S T 006 001
0020160 ( 006 001 P R O G 006 001 ( ( O E M
0020200 S E R R O R M E S S A G E S T
0020220 R E A M ) \r \t \t ( O D
0020240 R S D I A G N O S T I C S R E
0020260 C O R D S T R E A M ) \r \t \t
0020300 ( D P M . F O N T M E N
0020320 U F O N T ) \r \t \t R U
0020340 N N I N G P R O C S M E N U S
0020360 T A T E D C W M E N U D C W
0020400 I T E M S ) \r \t \t ( 006 002
0020420 i f 006 001 ( 006 001 A N D 006 001 ( 006
0020440 001 E Q 006 001 D I A G N O S T I C
0020460 S R E C O R D S T R E A M T )
0020500 \r \t \t \t ( 006 001 H O S T
0020520 N A M E P 006 001 ( 006 001 Q U O T E
0020540 006 001 D S K ) ) ) \r \t \t \t 006 002 t
0020560 h e n 006 001 ( 006 001 R E S E T S A
0020600 V E 006 001 ( 006 001 S E T Q 006 001 D
0020620 I A G N O S T I C S R E C O R D
0020640 S T R E A M ( 006 001 O P E N S T
0020660 R E A M 006 001 ( 006 001 Q U O T E 006
0020700 001 \r \t \t \t \t \t \t \t \t \t {
0020720 D S K } D I A G N O S T I C S R
0020740 E C O R D ) \r \t \t \t \t \t \t \t \t \t
0020760 \t ( 006 001 Q U O T E 006 001 O U
0021000 T P U T ) ) ) \r \t \t \t \t \t ( 006 001
0021020 Q U O T E 006 001 ( 006 001 P R O G N
0021040 006 001 ( 006 001 C L O S E F ? 006 001
0021060 O L D V A L U E ) \r \t \t \t \t \t \t
0021100 ( 006 001 S E T Q 006 001
0021120 D I A G N O S T I C S R E C O R
0021140 D S T R E A M T ) ) ) ) ) \r \t
0021160 \t ( 006 002 i f 006 001 ( 006 001
0021200 E Q 006 001 E R R O R M E S S A G
0021220 E S T R E A M T ) \r \t \t \t 006 002
0021240 t h e n 006 001 ( 006 001 S E T Q 006 001
0021260 E R R O R M E S S A G E S T R
0021300 E A M D I A G N O S T I C S R
0021320 E C O R D S T R E A M ) ) \r \t \t
0021340 ( 006 002 i f 006 001 ( 006 001 W
0021360 I N D O W P 006 001 \ L D . D C W
0021400 . W I N D O W ) \r \t \t \t 006 002 t h
0021420 e n 006 001 ( 006 001 D E T A C H A L
0021440 L W I N D O W S 006 001 \ L D . D
0021460 C W . W I N D O W ) \r \t \t
0021500 006 002 e l s e 006 001 ( 006 002 M
0021520 A K E D I A G N O S T I C S M E
0021540 N U 006 001 ) ) \r \t \t ( 006 001
0021560 O P E N W 006 001 \ L D . D C W .
0021600 W I N D O W ) \r \t \t ( 006
0021620 002 U N S H A D E A L L I T E M S
0021640 006 001 ( 006 001 S E T Q 006 001 D C W
0021660 M E N U ( 006 001 C A R 006 001 ( 006
0021700 001 W I N D O W P R O P 006 001 \ L
0021720 D . D C W . W I N D O W ( 006 001
0021740 Q U O T E 006 001 M E N U ) ) ) )
0021760 ) \r \t \t ( 006 001 S H A D E
0022000 I T E M 006 001 ( 006 001 A S S O C 006
0022020 001 ( 006 001 Q U O T E 006 001 S t a
0022040 r t E x e r c i s e ) \r \t \t \t \t
0022060 ( 006 001 S E T Q 006 001
0022100 D C W I T E M S ( 006 002 f e t c
0022120 h 006 001 ( 006 001 M E N U 006 001 I T
0022140 E M S ) 006 002 o f 006 001 D C W M
0022160 E N U ) ) ) \r \t \t \t
0022200 D C W M E N U \ L D . I N F
0022220 O S H A D E ) \r \t \t ( 006
0022240 001 S E T Q 006 001 R U N N I N G P
0022260 R O C S ( 006 001 S E T Q 006 001 \
0022300 L D . D P M . I T E M S ) ) \r \t
0022320 \t ( 006 001 S E T Q 006 001 \
0022340 L D . D P M . S P A C E W I D T
0022360 H ( 006 001 S T R I N G W I D T H
0022400 006 001 " " D P M . F O N T )
0022420 ) \r \t \t ( 006 001 S E T Q 006
0022440 001 \ L D . D P M . F O N T H E
0022460 I G H T ( 006 001 F O N T H E I G
0022500 H T 006 001 D P M . F O N T ) ) \r
0022520 \t \t ( 006 002 b i n d 006 001
0022540 P R O C 006 002 f o r 006 001 \ P o
0022560 s s i b i l i t y 006 002 i n 006 001
0022600 ( 006 001 P R O G 1 006 001 E X E R
0022620 C I S E . P O S S I B I L I T I
0022640 E S \r
0022660
*
0022740 006 003 ( * C o m m e n t P P
0022760 L o s s a g e ) 006 001 ) \r \t \t
0023000 006 002 a s 006 001 T H I S
0023020 H E I G H T 006 002 f r o m 006 001
0023040 0 006 002 b y 006 001 ( 006 001 I P L U
0023060 S 006 001 \ L D . D P M . F O N T
0023100 H E I G H T \ L D . D P M . M
0023120 E N U B O R D E R S I Z E ) \r \t
0023140 \t 006 002 e a c h t i
0023160 m e 006 001 ( 006 002 i f 006 001 ( 006 001
0023200 E Q 006 001 E X E R C I S E . S T
0023220 A T E ( 006 001 Q U O T E 006 001 S
0023240 T O P ) ) \r \t \t \t \t 006 002
0023260 t h e n 006 001 ( 006 001 R E T U R N
0023300 006 001 ( 006 001 S E T Q 006 001 R U N
0023320 N I N G P R O C S ) ) ) \r \t \t
0023340 006 002 w h e n 006 001 (
0023360 006 001 S E T Q 006 001 P R O C \r \t \t
0023400 \t ( 006 001 C A R 006 001
0023420 ( 006 001 L I S T P 006 001 ( 006 001 N L
0023440 S E T Q 006 001 ( 006 001 P R O G N 006
0023460 001 ( 006 001 N L S E T Q 006 001 ( 006
0023500 001 D E L . P R O C E S S 006 001 \r \t
0023520 \t \t \t \t \t \t \t ( 006 001 C A R
0023540 006 001 ( 006 002 f e t c h 006 001 ( E
0023560 X E R C I S E . P O S S I B I L
0023600 I T I E S \r \t \t \t \t \t \t \t \t \t \t
0023620 P R O C F O R M ) \r \t \t \t \t \t
0023640 \t \t \t \t 006 002 o f 006 001 \ P
0023660 o s s i b i l i t y ) ) ) ) \r \t
0023700 \t \t \t \t \t \t ( 006 001 A N D 006 001
0023720 ( 006 001 E V A L 006 001 ( 006 002 f e t
0023740 c h 006 001 ( E X E R C I S E . P
0023760 O S S I B I L I T I E S \r \t \t \t
0024000 \t \t \t \t \t \t T E S T F
0024020 O R M ) \r \t \t \t \t \t \t \t \t
0024040 006 002 o f 006 001 \ P o s s
0024060 i b i l i t y ) ) \r \t \t \t \t \t \t
0024100 \t ( 006 001 A D D . P R
0024120 O C E S S 006 001 ( 006 002 f e t c h
0024140 006 001 ( \r E X E R C I S E . P O
0024160 S S I B I L I T I E S P R O C
0024200 F O R M ) 006 002 o f 006 001 \ P o
0024220 s s i b i l i t y ) \r \t \t \t \t \t
0024240 \t \t \t \t ( 006 001 Q U O T E 006
0024260 001 S U S P E N D ) \r \t \t \t \t \t
0024300 \t \t \t \t T ) ) ) ) ) ) ) \r
0024320 \t \t 006 002 d o 006 001
0024340 ( 006 002 D E C L A R E 006 001 ( 006 001
0024360 S P E C V A R S 006 001 \ P o s s
0024400 i b i l i t y ) ) \r \t \t \t (
0024420 006 002 p u s h 006 001 \ L D . D P M
0024440 . I T E M S ( 006 001 L I S T 006 001
0024460 ( 006 001 C O N C A T 006 001 " "
0024500 ( 006 002 f e t c h 006 001 ( E X E
0024520 R C I S E . P O S S I B I L I T
0024540 I E S \r \t \t \t \t \t \t \t \t \t \t
0024560 M E N U I T E M F O R M
0024600 ) \r \t \t \t \t \t \t \t \t 006 002 o
0024620 f 006 001 \ P o s s i b i l i t y
0024640 ) ) \r \t \t \t \t \t \t N I L
0024660 " L E F T t o W a k e U p
0024700 , M I D D L E t o S u s p
0024720 e n d " \r \t \t \t \t \t \t (
0024740 006 001 L I S T 006 001 ( 006 001 P R O C
0024760 E S S . N A M E 006 001 P R O C )
0025000 \r \t \t \t \t \t \t \t T H I S H E
0025020 I G H T ) ) ) \r \t \t \t ( 006 002
0025040 p u s h 006 001 R U N N I N G P R
0025060 O C S P R O C ) ) \r \t \t
0025100 ( 006 002 i f 006 001 ( 006 001 O R 006 001
0025120 ( 006 001 N U L L 006 001 R U N N I
0025140 N G P R O C S ) \r \t \t \t
0025160 ( 006 001 E Q 006 001 E X E R C I S E
0025200 . S T A T E ( 006 001 Q U O T E 006
0025220 001 S T O P ) ) ) \r \t \t \t 006 002 t
0025240 h e n 006 001 ( 006 002 U N S H A D E
0025260 A L L I T E M S 006 001 D C W M E
0025300 N U ) \r \t \t \t ( 006 001 R
0025320 E T U R N 006 001 ( 006 001 Q U O T E
0025340 006 001 A B O R T ) ) ) \r \t \t
0025360 ( 006 001 S E T Q 006 001 \ L D .
0025400 D P M . M E N U \r \t \t
0025420 ( 006 002 c r e a t e 006 001 M E N
0025440 U \r \t \t \t I T E M S
0025460 _ \ L D . D P M . I T E M S
0025500 \r \t \t \t M E N U F O
0025520 N T _ D P M . F O N T \r \t \t
0025540 \t M E N U B O R D E
0025560 R S I Z E _ 1 \r \t \t \t
0025600 M E N U C O L U M N S _
0025620 1 \r \t \t \t W H E N
0025640 S E L E C T E D F N _ ( 006 001 F
0025660 U N C T I O N 006 001 \ L D . D P
0025700 M . W H E N S E L E C T E D ) )
0025720 ) \r \t \t ( 006 001 S E T Q 006
0025740 001 \ L D . D P M . I T E M S
0025760 ( 006 002 f e t c h 006 001 ( 006 001 M E
0026000 N U 006 001 I T E M S ) 006 002 o f
0026020 006 001 \ L D . D P M . M E N U )
0026040 ) \r
0026060
*
0026120 006
0026140 003 ( * J u s t t o b e s
0026160 u r e o f t h e r i g h t
0026200 E Q a l i t y ! ) 006 001 \r \t \t
0026220 ( 006 001 A T T A C H M E N U
0026240 006 001 \ L D . D P M . M E N U
0026260 \ L D . D C W . W I N D O W (
0026300 006 001 Q U O T E 006 001 T O P ) \r \t
0026320 \t \t \t ( 006 001 Q U O T E 006 001 R I
0026340 G H T ) ) \r \t \t ( 006 001 S
0026360 E T Q 006 001 \ L D . D P M . W I
0026400 N D O W ( 006 001 O R 006 001 ( 006 001
0026420 C A R 006 001 ( 006 001 A T T A C H E
0026440 D W I N D O W S 006 001 \ L D . D
0026460 C W . W I N D O W ) ) \r \t \t \t \t
0026500 \t ( 006 001 S H O U L D N
0026520 T 006 001 ) ) ) \r \t \t ( 006 001
0026540 S E T Q 006 001 \ L D . D P M . W
0026560 I N D O W B O R D E R S I Z E
0026600 ( 006 001 W I N D O W P R O P 006 001
0026620 \ L D . D P M . W I N D O W (
0026640 006 001 Q U O T E 006 001 B O R D E R
0026660 ) ) ) \r \t \t ( 006 001 S E T
0026700 Q 006 001 E X E R C I S E . R U N
0026720 N E R ) \r \t \t ( 006 001 S E
0026740 T Q 006 001 E X E R C I S E . S T
0026760 A T E ( 006 001 Q U O T E 006 001 R
0027000 U N N I N G ) ) \r \t \t (
0027020 006 002 p r i n t o u t . S U B R 006
0027040 001 D I A G N O S T I C S R E C
0027060 O R D S T R E A M T " \t \t \t
0027100 L e g e n d " T T \r \t \t \t
0027120 \t " ! - > C o m p l e
0027140 t e d ! D I A G N O S E o f
0027160 M A C R O T E S T " \r \t \t \t \t
0027200 T " @ - > C o m p l
0027220 e t e d T A N S P E E D b e
0027240 n c h m a r k " T \r \t \t \t \t
0027260 " # - > C o m p l e t
0027300 e d B R O W S E b e n c h m
0027320 a r k " \r \t \t \t \t T " $
0027340 - > F o u n d a C l e
0027360 a r i n g H o u s e o n t
0027400 h e E t h e r N e t " T \r
0027420 \t \t \t \t " - - > L o o
0027440 k e d , b u t f a i l d t
0027460 o f i n d a C l e a r i n
0027500 g H o u s e " \r \t \t \t \t
0027520 T " [ x x x ] - > T r i e
0027540 d 3 2 r e t r i e v a l s
0027560 f r o m C H a n d g o t
0027600 x x x f a i l u r e s " T
0027620 T \r \t \t \t \t " { x x x }
0027640 - > C o p i e d a n d
0027660 d e l e t e d x x x c o p i
0027700 e s o f t h e D i s k f
0027720 i l e " \r \t \t \t \t " ( x x
0027740 x ) - > F i n i s h e d w
0027760 i t h x x x ' t h r u n o
0030000 f t h e E M U P R O C l o
0030020 o p . " T \r \t \t \t \t "
0030040 G D A T E o n n e w l i n
0030060 e m a r k s r e l e a s e
0030100 o f w o r k i n g s e t p
0030120 a g e s . " \r \t \t \t \t T
0030140 T T ) \r \t \t ( 006 001 M A
0030160 P C 006 001 R U N N I N G P R O C
0030200 S ( 006 001 F U N C T I O N 006 001
0030220 W A K E . P R O C E S S ) ) \r \t
0030240 \t ( 006 001 S H A D E I T E
0030260 M 006 001 ( 006 001 A S S O C 006 001 (
0030300 006 001 Q U O T E 006 001 S t a r t E
0030320 x e r c i s e ) \r \t \t \t \t
0030340 D C W I T E M S ) \r \t \t \t
0030360 D C W M E N U W
0030400 H I T E S H A D E ) \r \t \t L P
0030420
*
0030460 006 003 ( * J
0030500 u s t l e t t h e p r o c
0030520 e s s e s r u n u n t i l
0030540 w e S T O P t h e m ) 006 001 \r
0030560 \t \t ( 006 002 i f 006 001 ( 006
0030600 001 O R 006 001 ( 006 001 E Q 006 001 ( 006
0030620 001 S E T Q 006 001 M E N U S T A T
0030640 E ( 006 001 B L O C K 006 001 1 0 0
0030660 0 0 ) ) \r \t \t \t \t ( 006 001 Q U O T
0030700 E 006 001 S T O P ) ) \r \t \t \t
0030720 ( 006 001 E Q 006 001 E X E R C I
0030740 S E . S T A T E ( 006 001 Q U O T
0030760 E 006 001 S T O P ) ) ) \r \t \t \t 006
0031000 002 t h e n 006 001 ( 006 001 P R O G 006
0031020 001 ( ( 006 001 M E N U 006 001 ( 006 001
0031040 C A R 006 001 ( 006 001 W I N D O W P
0031060 R O P 006 001 \ L D . D C W . W I
0031100 N D O W ( 006 001 Q U O T E 006 001
0031120 M E N U ) ) ) ) \r \t \t \t \t
0031140 I T E M ) \r \t \t \t
0031160 ( 006 001 A N D 006 001 ( 006
0031200 001 S E T Q 006 001 I T E M ( 006 001
0031220 A S S O C 006 001 ( 006 001 Q U O T E
0031240 006 001 S t o p E x e r c i s e )
0031260 \r \t \t \t \t \t \t \t ( 006 002 f e t
0031300 c h 006 001 ( 006 001 M E N U 006 001 I
0031320 T E M S ) 006 002 o f 006 001 M E N
0031340 U ) ) ) \r \t \t \t \t \t ( 006 001 S H A
0031360 D E I T E M 006 001 I T E M M E
0031400 N U \ L D . I N F O S H A D E
0031420 ) ) \r \t \t \t
0031440 ( 006 002 \ L D . S T O P P R O C
0031460 S 006 001 R U N N I N G P R O C S
0031500 M E N U ) \r \t \t \t
0031520 ( 006 001 D E T A C H A L
0031540 L W I N D O W S 006 001 \ L D . D
0031560 C W . W I N D O W ) \r \t \t \t
0031600 ( 006 001 A N D 006
0031620 001 ( 006 001 N E Q 006 001 D I A G N
0031640 O S T I C S R E C O R D S T R E
0031660 A M T ) \r \t \t \t \t \t ( 006 001 C L
0031700 O S E F 006 001 D I A G N O S T I
0031720 C S R E C O R D S T R E A M ) )
0031740 \r \t \t \t (
0031760 006 001 A N D 006 001 I T E M ( 006 001
0032000 S H A D E I T E M 006 001 I T E M
0032020 M E N U W H I T E S H A D E
0032040 ) ) ) \r \t \t \t ( 006 001 S
0032060 E T Q 006 001 E R R O R M E S S A
0032100 G E S T R E A M O E M S ) \r \t
0032120 \t \t ( 006 001 S E T Q 006 001
0032140 D I A G N O S T I C S R E C O
0032160 R D S T R E A M O D R S ) \r \t
0032200 \t \t ( 006 001 R E T U R N
0032220 006 001 ( 006 001 Q U O T E 006 001 S T
0032240 O P ) ) \r \t \t 006 002 e
0032260 l s e i f 006 001 M E N U S T A T
0032300 E \r \t \t \t 006 002 t h e n 006 001
0032320
0032340 006 003
0032360 ( * S o m e d a y , l o o k
0032400 f o r m o r e i n t e r e
0032420 s t i n g s i g n a l s ) 006 001
0032440 \r \t \t \t ) \r \t \t ( 006 001 G
0032460 O 006 001 L P ) ) ) ) ) \r \r ( 006 004
0032500 \ L D . B L O C K C H E C K 006 001
0032520 \r ( L A M B D A ( 006 001 T I
0032540 M E 006 001 P O S N A M E )
0032560
*
0032620 006 003 ( * J o n L " 1 6 -
0032640 D e c - 8 4 1 7 : 1 0 " ) 006 001
0032660 \r ( 006 001 P R O G 006 001 (
0032700 ( S I G N A L ( 006 002 i f 006 001
0032720 ( 006 001 D I S M I S S 006 001 T I M
0032740 E ) \r \t \t 006 002 e l s e
0032760 i f 006 001 ( 006 001 N U L L 006 001 T
0033000 I M E ) \r \t \t 006 002
0033020 t h e n 006 001
0033040
0033060 006 003 ( * A l l
0033100 o w t w o p a s s e s a r
0033120 o u n d t h e s c h e d u l
0033140 e r l o o p w h e n 006 001 \r
0033160 \t \t \t \t \t \t \t 006 003 b l
0033200 o c k i n g f o r 0 t i m
0033220 e ; t h i s h e l p s t h
0033240 e M O U S E t r a c k e r )
0033260 006 001 \r \t \t \t ( 006 001 B L O
0033300 C K 006 001 ) ) ) \r \t N E W P
0033320 O L D P ) \r
0033340 ( 006 002 i f 006 001 ( 006 001 O R 006 001
0033360 ( 006 001 E Q 006 001 S I G N A L
0033400 ( 006 001 Q U O T E 006 001 S T O P )
0033420 ) \r \t \t ( 006 001 E Q 006 001 E X
0033440 E R C I S E . S T A T E ( 006 001
0033460 Q U O T E 006 001 S T O P ) ) ) \r
0033500 \t 006 002 t h e n 006 001
0033520 ( 006 001 R E T F R O M 006 001 P O S
0033540 ( 006 001 Q U O T E 006 001 S T O P
0033560 ) ) \r \t 006 002 e l s e i f
0033600 006 001 S I G N A L \r \t
0033620 006 002 t h e n 006 001
0033640
*
0033700 006 003 ( * D o s o m e
0033720 a c t i o n p r e c i p i t
0033740 a e d b y t h e m e n u )
0033760 006 001 \r \t ) \r
0034000 ( 006 002 i f 006 001 ( 006
0034020 001 E Q 006 001 N A M E ( 006 001 Q U
0034040 O T E 006 001 D O N ' T ) ) \r \t
0034060 006 002 t h e n 006 001 ( 006
0034100 001 R E T U R N 006 001 ) \r \t
0034120 006 002 e l s e i f 006 001 ( 006 001 A N
0034140 D 006 001 N A M E ( 006 001 L I T A
0034160 T O M 006 001 N A M E ) ) \r \t
0034200 006 002 e l s e i f 006 001 ( 006 001
0034220 A N D 006 001 P O S ( 006 001 L I T
0034240 A T O M 006 001 P O S ) ) \r \t
0034260 006 002 t h e n 006 001 ( 006 001
0034300 S E T Q 006 001 N A M E P O S )
0034320 \r \t 006 002 e l s e 006 001 (
0034340 006 001 S H O U L D N T 006 001 ) ) \r
0034360 ( 006 002 i f 006 001
0034400 ( 006 001 S E T Q 006 001 N E W P
0034420 ( 006 002 f i n d 006 001 I T E M 006
0034440 002 i n 006 001 \ L D . D P M . I T
0034460 E M S 006 002 s u c h t h a t 006 001
0034500 ( 006 001 E Q 006 001 N A M E ( 006
0034520 001 C A R 006 001 ( 006 001 C A D D D R
0034540 006 001 I T E M ) ) ) ) ) \r \t
0034560 006 002 t h e n 006 001 ( 006 002
0034600 i f 006 001 ( 006 001 A N D 006 001 E X
0034620 E R C I S E . R U N N E R ( 006
0034640 001 S E T Q 006 001 O L D P ( 006 002
0034660 f i n d 006 001 I T E M 006 002 i n
0034700 006 001 \ L D . D P M . I T E M S
0034720 \r \t \t \t \t \t \t \t 006 002 s u c h
0034740 t h a t 006 001 ( 006 001 E Q 006 001 E
0034760 X E R C I S E . R U N N E R \r \t
0035000 \t \t \t \t \t \t \t ( 006
0035020 001 C A R 006 001 ( 006 001 C A D D D R
0035040 006 001 I T E M ) ) ) ) ) ) \r \t \t
0035060 006 002 t h e n 006 001
0035100
*
0035140 006 003 ( * F i r s t , t a k
0035160 e a w a y t h e " b a t o
0035200 n " f r o m t h e o l d
0035220 p r o c e s s ) 006 001 \r \t \t \t
0035240 ( 006 001 B I T B L T 006 001 N I
0035260 L N I L N I L \ L D . D P
0035300 M . W I N D O W \ L D . D P M
0035320 . W I N D O W B O R D E R S I Z
0035340 E \r \t \t \t \t ( 006 001 C A D
0035360 R 006 001 ( 006 001 C A D D D R 006 001
0035400 O L D P ) ) \r \t \t \t \t \
0035420 L D . D P M . S P A C E W I D T
0035440 H \ L D . D P M . F O N T H E
0035460 I G H T ( 006 001 Q U O T E 006 001
0035500 T E X T U R E ) \r \t \t \t \t
0035520 ( 006 001 Q U O T E 006 001 R E P L
0035540 A C E ) \r \t \t \t \t W H I
0035560 T E S H A D E ) ) \r \t \t (
0035600 006 001 B I T B L T 006 001 N I L 0
0035620 0 \ L D . D P M . W I N D O
0035640 W \ L D . D P M . W I N D O W
0035660 B O R D E R S I Z E ( 006 001 C A
0035700 D R 006 001 ( 006 001 C A D D D R 006 001
0035720 N E W P ) ) \r \t \t \t \ L
0035740 D . D P M . S P A C E W I D T H
0035760 \ L D . D P M . F O N T H E I
0036000 G H T ( 006 001 Q U O T E 006 001 T
0036020 E X T U R E ) \r \t \t \t ( 006
0036040 001 Q U O T E 006 001 R E P L A C E
0036060 ) \r \t \t \t B L A C K S H A
0036100 D E )
0036120 006 003 ( * H
0036140 e r e , w e g i v e t h e
0036160 " b a t o n " t o t h e
0036200 p r o c e s s N A M E - -
0036220 b y 006 001 \r \t \t \t \t \t \t \t
0036240 006 003 t u r n i n g o n s
0036260 o m e b i t s i n t h e
0036300 m e n u i t e m r e f l e c t
0036320 i n g t h a t 006 001 \r \t \t \t \t
0036340 \t \t \t 006 003 p r o c e s
0036360 s ) 006 001 \r \t \t ( 006 001 S E T
0036400 Q 006 001 E X E R C I S E . R U N
0036420 N E R N A M E ) ) ) ) ) \r \r (
0036440 006 004 \ L D . S T O P P R O C S 006
0036460 001 \r ( L A M B D A ( P R O
0036500 C S M E N U )
0036520
0036540 006
0036560 003 ( * J o n L " 1 - D e c
0036600 - 8 4 2 1 : 1 3 " ) 006 001 \r \r
0036620 006 003 ( * W h
0036640 e n w e w a n t t o s t
0036660 o p , t h e f i n d o u t
0036700 w h o i s s t i l l a l
0036720 i v e , a n d g i v e t h
0036740 e m t h e S T O P s i g n
0036760 a l ; t h e n w a i t a r
0037000 o u n d f o r 6 0 006 001 \r \t
0037020 006 003 s e c o n d s s o t
0037040 o s e e i f t h e y " g
0037060 i v e u p " g r a c e f u l
0037100 l y . ) 006 001 \r \r \r ( 006 001
0037120 M A P C 006 001 ( 006 001 S E T Q 006 001
0037140 P R O C S ( 006 001 M A P C O N
0037160 C 006 001 ( 006 001 M K L I S T 006 001
0037200 P R O C S ) \r \t \t \t
0037220 ( 006 001 F U N C T I O N 006 001 (
0037240 L A M B D A ( P R O C ) \r \t \t
0037260 \t \t ( 006 001 A N D 006 001 ( 006
0037300 001 P R O C E S S P 006 001 P R O C
0037320 ) \r \t \t \t \t \t ( 006 001 L I S T 006 001
0037340 P R O C ) ) ) ) ) ) \r \t (
0037360 006 001 F U N C T I O N 006 001 ( L A
0037400 M B D A ( P R O C ) \r \t
0037420 ( 006 001 W A K E . P R O C E
0037440 S S 006 001 P R O C ( 006 001 Q U O
0037460 T E 006 001 S T O P ) ) ) ) ) \r
0037500 ( 006 002 b i n d 006 001 S T O
0037520 P P E R S P N 006 002 f o r D u
0037540 r a t i o n 006 001 6 0 006 002 t i
0037560 m e r U n i t s 006 001 ( 006 001 Q U
0037600 O T E 006 001 S E C O N D S ) 006
0037620 002 u n t i l 006 001 ( 006 001 N U L L
0037640 006 001 P R O C S ) 006 002 e a c h
0037660 t i m e 006 001 ( 006 001 B L O C K 006
0037700 001 ) \r 006 002 w h e n
0037720 006 001 ( 006 001 S E T Q 006 001 S T O
0037740 P P E R S ( 006 002 f o r 006 001 P
0037760 006 002 i n 006 001 P R O C S 006 002
0040000 w h e n 006 001 ( 006 001 P R O C E S
0040020 S . F I N I S H E D P 006 001 P )
0040040 006 002 c o l l e c t 006 001 P ) )
0040060 \r 006 002 d o 006 001 (
0040100 006 001 S E T Q 006 001 P R O C S (
0040120 006 001 L D I F F E R E N C E 006 001
0040140 P R O C S S T O P P E R S ) )
0040160 \r \t ( 006 002 f o r 006 001 P I
0040200 T E M 006 002 i n 006 001 S T O P P
0040220 E R S \r \t 006 002 d o 006 001
0040240 ( 006 001 S E T Q 006 001 P N ( 006
0040260 001 P R O C E S S . N A M E 006 001
0040300 P ) ) \r \t \t ( 006 002 i f 006 001 ( 006
0040320 001 S E T Q 006 001 I T E M ( 006 002
0040340 f i n d 006 001 I T E M 006 002 i n
0040360 006 001 \ L D . D P M . I T E M S
0040400 006 002 s u c h t h a t 006 001 ( 006
0040420 001 E Q 006 001 P N ( 006 001 C A R 006
0040440 001 ( 006 001 C A D D D R 006 001 I T
0040460 E M ) ) ) ) ) \r \t \t 006 002
0040500 t h e n 006 001 ( 006 001 S H A D E I
0040520 T E M 006 001 I T E M M E N U
0040540 D A R K B I T S H A D E ) ) ) )
0040560 \r ( 006 002 i f 006 001 P R O
0040600 C S \r \t 006 002 t h e n 006 001 ( 006 002
0040620 p r i n t o u t . S U B R 006 001
0040640 D I A G N O S T I C S R E C O R
0040660 D S T R E A M T " P r o c e
0040700 s s e s w h i c h d i d n '
0040720 t t e r m i n a t e n o r m
0040740 a l l y : " \r \t \t \t (
0040760 006 001 M A P C A R 006 001 P R O C S
0041000 ( 006 001 Q U O T E 006 001 P R O C
0041020 E S S . N A M E ) ) \r \t \t \t
0041040 T ) \r \t ( 006 001 M A
0041060 P C 006 001 P R O C S ( 006 001 F U
0041100 N C T I O N 006 001 D E L . P R O
0041120 C E S S ) ) ) ) ) \r ) \r \r \r \r 006
0041140 004 ( * " S o m e u s e r - i
0041160 n t e r f a c e , m e n u - l
0041200 i k e t h i n g s " ) 006 001 \r \r
0041220 ( D E C L A R E : E V A L @ C
0041240 O M P I L E \r \r ( R P A Q Q
0041260 006 002 \ L D . D P M . M E N U B O
0041300 R D E R S I Z E 006 001 3 ) \r \r (
0041320 C O N S T A N T S ( \ L D . D
0041340 P M . M E N U B O R D E R S I Z
0041360 E 3 ) ) \r ) \r \r ( R P A Q ?
0041400 006 002 \ L D . D C W . W I N D O W
0041420 006 001 N I L ) \r \r ( R P A Q ?
0041440 006 002 \ L D . D P M . M E N U 006 001
0041460 N I L ) \r \r ( R P A Q ? 006 002
0041500 \ L D . D P M . W I N D O W 006 001
0041520 N I L ) \r \r ( R P A Q ? 006 002
0041540 \ L D . D P M . W I N D O W B O
0041560 R D E R S I Z E 006 001 N I L ) \r
0041600 \r ( R P A Q ? 006 002 \ L D . D P
0041620 M . I T E M S 006 001 N I L ) \r \r
0041640 ( R P A Q ? 006 002 \ L D . D P M
0041660 . S P A C E W I D T H 006 001 N I
0041700 L ) \r ( D E F I N E Q \r \r ( 006 004
0041720 M A K E D I A G N O S T I C S M
0041740 E N U 006 001 \r ( L A M B D A
0041760 N I L
0042000
*
0042040 006 003 ( * J o n L " 1 6
0042060 - D e c - 8 4 1 7 : 0 6 " ) 006
0042100 001 \r ( 006 001 A N D 006 001 (
0042120 006 001 W I N D O W P 006 001 \ L D .
0042140 D C W . W I N D O W ) \r \t ( 006
0042160 001 C L O S E W 006 001 \ L D . D C
0042200 W . W I N D O W ) ) \r (
0042220 006 001 S E T Q 006 001 \ L D . D C W
0042240 . W I N D O W ( 006 001 A D D M E
0042260 N U 006 001 ( 006 002 c r e a t e 006 001
0042300 M E N U \r \t \t \t \t \t I T E
0042320 M S _ ( 006 001 Q U O T E 006 001 (
0042340 ( S t a r t E x e r c i s e \r \t
0042360 \t \t \t \t \t \t ( 006 001 P R O
0042400 G 006 001 ( ( \ I N T E R R U P T
0042420 A B L E N I L ) ) \r \t \t \t \t \t
0042440 \t \t ( 006 001 S
0042460 E T Q 006 001 E X E R C I S E . S
0042500 T A T E ( 006 001 Q U O T E 006 001
0042520 R U N ) ) \r \t \t \t \t \t \t \t
0042540 ( 006 001 A D D . P R
0042560 O C E S S 006 001 ( 006 001 Q U O T E
0042600 006 001 ( 006 002 E X E R C I S E 006 001
0042620 ) ) ) ) \r \t \t \t \t \t \t \t
0042640 " B e g i n s d i a g n o s t
0042660 i c s u i t e p r o c e s s
0042700 e s " ) \r \t \t \t \t \t \t \t ( S
0042720 t o p E x e r c i s e ( 006 001 W
0042740 A K E . P R O C E S S 006 001 ( 006
0042760 001 Q U O T E 006 001 E X E R C I S
0043000 E ) \r \t \t \t \t \t \t \t \t \t \t
0043020 ( 006 001 S E T Q 006 001 \r \t \t
0043040 \t \t \t \t \t \t \t \t E X E R C
0043060 I S E . S T A T E \r \t \t \t \t \t \t
0043100 \t \t \t \t \t ( 006 001 Q U O T E 006 001
0043120 S T O P ) ) ) \r \t \t \t \t \t \t \t \t
0043140 \t \r \t \t \t \t \t " S t o p
0043160 s a n d d e l e t e s t h
0043200 e d i a g n o s t i c p r o
0043220 c e s s e s ( i f a n y ) "
0043240 ) ) ) \r \t \t \t \t \t W H E N S
0043260 E L E C T E D F N _ ( 006 001 F U
0043300 N C T I O N 006 001 \ L D . D C W
0043320 . W H E N S E L E C T E D ) \r \t
0043340 \t \t \t \t M E N U F O N T _
0043360 ( 006 001 F O N T C R E A T E 006 001
0043400 ( 006 001 Q U O T E 006 001 H E L V E
0043420 T I C A ) \r \t \t \t \t \t \t \t \t 1 8
0043440 ) \r \t \t \t \t \t M E N U T I T
0043460 L E F O N T _ ( 006 001 F O N T C
0043500 R E A T E 006 001 ( 006 001 Q U O T E
0043520 006 001 T I M E S R O M A N ) \r \t
0043540 \t \t \t \t \t \t \t 1 2 ) \r
0043560 \t \t \t \t \t T I T L E _ "
0043600 D i a g n o s t i c s C o n t
0043620 r o l " \r \t \t \t \t \t C E N T
0043640 E R F L G _ T \r \t \t \t \t \t
0043660 I T E M H E I G H T _ 3 0
0043700 \r \t \t \t \t \t I T E M W I D T
0043720 H _ ( 006 001 I M A X 006 001 1 5 0
0043740 ( 006 001 I P L U S 006 001 2 0 (
0043760 006 001 S T R I N G W I D T H 006 001 \r
0044000 \t \t \t \t \t \t \t \t \t " S t a r t E
0044020 x e r c i s e " \r \t \t \t \t \t \t \t
0044040 \t \t ( 006 001 F O N T C R E A T E 006
0044060 001 ( 006 001 Q U O T E 006 001 H E L
0044100 V E T I C A ) \r \t \t \t \t \t \t \t \t
0044120 \t \t 1 8 ) ) ) ) \r \t \t \t
0044140 \t \t M E N U B O R D E R S I
0044160 Z E _ \ L D . D P M . M E N
0044200 U B O R D E R S I Z E ) \r \t \t \t
0044220 \t N I L D I A G N O S T I
0044240 C S C O N T R O L W I N D O W .
0044260 P O S I T I O N ) ) \r (
0044300 006 001 W I N D O W P R O P 006 001 \
0044320 L D . D C W . W I N D O W ( 006
0044340 001 Q U O T E 006 001 A F T E R M O
0044360 V E F N ) \r \t \t ( 006 001 F U N C T
0044400 I O N 006 001 ( L A M B D A ( W
0044420 I N D O W ) \r \t \t ( 006 001
0044440 O R 006 001 ( 006 001 E Q 006 001 W I N
0044460 D O W \ L D . D C W . W I N D
0044500 O W ) \r \t \t \t ( 006 001 S H O U L D
0044520 N T 006 001 ) ) \r \t \t ( 006 001
0044540 P R O G 006 001 ( ( R E G ( 006 001
0044560 W I N D O W P R O P 006 001 W I N
0044600 D O W ( 006 001 Q U O T E 006 001 R
0044620 E G I O N ) ) ) ) \r \t \t
0044640 ( 006 001 S E T Q 006 001
0044660 D I A G N O S T I C S C O N T R
0044700 O L W I N D O W . P O S I T I O
0044720 N ( 006 002 c r e a t e 006 001 P O
0044740 S I T I O N \r \t \t \t \t \t \t \t \t \t
0044760 X C O O R D _ ( 006 002 f e t
0045000 c h 006 001 \r \t \t \t \t \t \t \t \t \t
0045020 ( R E G I O N L E F T ) \r
0045040 \t \t \t \t \t \t \t \t \t \t 006
0045060 002 o f 006 001 R E G ) \r \t \t \t \t \t
0045100 \t \t \t \t Y C O O R D _ ( 006
0045120 002 f e t c h 006 001 \r \t \t \t \t \t \t \t
0045140 \t \t ( R E G I O N B O
0045160 T T O M ) \r \t \t \t \t \t \t \t \t \t \t
0045200 006 002 o f 006 001 R E G )
0045220 ) ) ) ) ) ) \r ( 006 001 W I
0045240 N D O W P R O P 006 001 \ L D . D
0045260 C W . W I N D O W ( 006 001 Q U O
0045300 T E 006 001 R E S H A P E F N ) \r
0045320 \t \t ( 006 001 Q U O T E 006 001 D O N
0045340 ' T ) ) \r ( 006 001 W I N D
0045360 O W P R O P 006 001 \ L D . D C W
0045400 . W I N D O W ( 006 001 Q U O T E
0045420 006 001 C L O S E F N ) \r \t \t ( 006
0045440 001 F U N C T I O N 006 001 ( L A M
0045460 B D A ( W I N D O W ) \r \t \t
0045500 ( 006 001 S E T Q 006 001 \ L D
0045520 . D C W . W I N D O W ) ) ) ) \r
0045540 \ L D . D C W . W I N D
0045560 O W ) ) \r \r ( 006 004 \ L D . D C W
0045600 . W H E N S E L E C T E D 006 001 \r
0045620 ( L A M B D A ( I T E M
0045640 M E N U B U T T O N )
0045660
0045700 006 003 (
0045720 * J o n L " 1 - D e c - 8
0045740 4 1 8 : 2 9 " ) 006 001 \r
0045760 ( 006 001 S H A D E I T E M 006 001 I
0046000 T E M M E N U G R A Y S H A
0046020 D E ) \r ( 006 001 E V A L 006
0046040 001 ( 006 001 C A D R 006 001 I T E M
0046060 ) ) ) ) \r \r ( 006 004 \ L D . D P M
0046100 . W H E N S E L E C T E D 006 001 \r
0046120 ( L A M B D A ( I T E M
0046140 M E N U B U T T O N )
0046160
0046200 006 003 (
0046220 * J o n L " 1 - D e c - 8
0046240 4 0 0 : 0 8 " ) 006 001 \r
0046260 ( 006 001 P R O G 006 001 ( ( S T U F
0046300 F ( 006 001 C A D D D R 006 001 I T
0046320 E M ) ) ) \r \r
0046340 006 003 ( * T h i s S T U F F
0046360 i n t h e 4 t h s l o t
0046400 o f t h e m e n u i t e m
0046420 s h o u l d b e a l i s
0046440 t o f t h e p r o c e s s
0046460 n a m e a n d t h e h e
0046500 i g h t i n t h e m e n u
0046520 w i n d o w 006 001 \r \t 006 003 o
0046540 f t h i s i t e m . ) 006 001 \r
0046560 \r \r ( 006 001 A
0046600 P P L Y * 006 001 ( 006 001 S E L E C
0046620 T Q 006 001 B U T T O N \r \t \t \t
0046640 ( L E F T ( 006 001 F U N C T
0046660 I O N 006 001 W A K E . P R O C E
0046700 S S ) ) \r \t \t \t ( M I D D
0046720 L E ( 006 001 F U N C T I O N 006 001
0046740 S U S P E N D . P R O C E S S
0046760 ) ) \r \t \t \t ( 006 001 R E T U
0047000 R N 006 001 ) ) \r \t \t ( 006 001 O R
0047020 006 001 ( 006 001 F I N D . P R O C E
0047040 S S 006 001 ( 006 001 C A R 006 001 S T
0047060 U F F ) ) \r \t \t ( 006
0047100 001 R E T U R N 006 001 ) ) ) ) ) ) \r
0047120 ) \r ( D E C L A R E : D O E V
0047140 A L @ C O M P I L E D O N T C
0047160 O P Y \r \r ( G L O B A L V A R S
0047200 \ L D . D C W . W I N D O W
0047220 \ L D . D P M . M E N U \ L D
0047240 . D P M . W I N D O W \ L D .
0047260 D P M . W I N D O W B O R D E R
0047300 S I Z E \ L D . D P M . F O N
0047320 T H E I G H T \r \t \ L
0047340 D . D P M . I T E M S \ L D .
0047360 D P M . S P A C E W I D T H ) \r
0047400 ) \r ( D E C L A R E : E V A L
0047420 @ C O M P I L E D O N T C O P
0047440 Y \r [ D E C L A R E : E V A
0047460 L @ C O M P I L E \r \r ( R E C
0047500 O R D 006 002 E X E R C I S E . P
0047520 O S S I B I L I T I E S 006 001 (
0047540 T E S T F O R M P R O C F O R
0047560 M M E N U I T E M F O R M ) )
0047600 \r ] \r \r ( D E C L A R E : E V
0047620 A L @ C O M P I L E \r \r 006 001 (
0047640 P U T P R O P S 006 004 l d p r i
0047660 n t o u t 006 002 M A C R O 006 001
0047700 ( ( S T R E A M . R E S T )
0047720 \r 006 001 ( 006 001 P R O G N 006 001
0047740
*
0050020 006 003 ( * H o w w e '
0050040 d l i k e a b r o a d c a
0050060 s t s t r e a m h e r e ! )
0050100 006 001 \r \t ( 006 002 p r i n t o u t
0050120 006 001 S T R E A M . R E S T
0050140 ) \r \t ( 006 002 p r i n t o u t 006
0050160 001 \ T o p L e v e l T t y W i
0050200 n d o w . R E S T ) ) ) ) \r
0050220 ) \r ) \r \r \r \r 006 004 ( * " V a r
0050240 i o u s b a c k g r o u n d
0050260 a c t i v i t i e s t o s t
0050300 r e s s h a r d w a r e " ) 006
0050320 001 \r \r ( D E F I N E Q \r \r ( 006 004
0050340 D S K P R O C 006 001 \r ( L A M
0050360 B D A ( N )
0050400
*
0050440 006 003 ( * J o n L
0050460 " 1 6 - D e c - 8 4 1 8 : 2
0050500 7 " ) 006 001 \r
0050520
*
0050600 006 003 ( * C a u s e a
0050620 l o t o f D S K a c t i v
0050640 i t y ) 006 001 \r ( 006 001 R E
0050660 S E T L S T 006 001 ( 006 001 R E S E
0050700 T S A V E 006 001 N I L ( 006 001 Q
0050720 U O T E 006 001 ( 006 001 P R O G N 006
0050740 001 ( 006 001 C L O S E F ? 006 001 (
0050760 006 001 Q U O T E 006 001 { D S K } R
0051000 A N D O M D A T A ) ) \r \t \t \t \t
0051020 \t ( 006 001 C L O S E F ? 006 001
0051040 ( 006 001 Q U O T E 006 001 { C O R
0051060 E } R A N D O M D A T A ) ) \r \t
0051100 \t \t \t \t ( 006 002 u n t i l 006
0051120 001 ( 006 001 N U L L 006 001 ( 006 001 D
0051140 E L F I L E 006 001 ( 006 001 Q U O T
0051160 E 006 001 { D S K } R A N D O M D
0051200 A T A ) ) ) ) \r \t \t \t \t \t
0051220 ( 006 002 u n t i l 006 001 ( 006 001 N U
0051240 L L 006 001 ( 006 001 D E L F I L E 006
0051260 001 ( 006 001 Q U O T E 006 001 { C O
0051300 R E } R A N D O M D A T A ) ) )
0051320 ) \r \t \t \t \t \t ( 006 001 R E S
0051340 E T L S T 006 001 ( 006 001 P R O G 1
0051360 006 001 \r
0051400
*
0051460 006 003 ( * C o m m e n t P P
0051500 L o s s a g e ) 006 001 ) \r \t \t \t \t
0051520 \t \t ( 006 001 R E S E T S
0051540 A V E 006 001 ( 006 001 C N D I R 006 001
0051560 ( 006 001 Q U O T E 006 001 { D S K
0051600 } ) ) \r \t \t \t \t \t \t \t \t ( 006 001 L
0051620 I S T 006 001 ( 006 001 F U N C T I O
0051640 N 006 001 C N D I R ) \r \t \t \t \t \t
0051660 \t \t \t ( 006 001 D I R E
0051700 C T O R Y N A M E 006 001 T ) ) )
0051720 \r \t \t \t \t \t \t ( ( L A
0051740 M B D A ( X ) \r \t \t \t \t \t \t \t
0051760 ( 006 001 M A P C 006 001 X ( 006 001
0052000 F U N C T I O N 006 001 C L O S E
0052020 F ? ) ) \r \t \t \t \t \t \t \t ( 006 001
0052040 M A P C 006 001 X ( 006 001 F U N C
0052060 T I O N 006 001 D E L F I L E ) )
0052100 ) \r \t \t \t \t \t \t (
0052120 006 001 D I R E C T O R Y 006 001 ( 006
0052140 001 Q U O T E 006 001 T E M P R A N
0052160 D O M C O P Y * ) ) ) ) ) ) ) \r
0052200 \t ( 006 002 D S K P R O
0052220 C . A U X 006 001 N ) ) ) ) \r \r (
0052240 006 004 D S K P R O C . A U X 006 001 \r
0052260 ( L A M B D A ( N )
0052300
*
0052340 006 003 (
0052360 * J o n L " 1 6 - D e c - 8
0052400 4 1 8 : 4 4 " ) 006 001 \r
0052420 ( 006 001 O R 006 001 ( 006 001 F I X P 006
0052440 001 N ) \r \t ( 006 001 S E T Q 006 001
0052460 N M A X . S M A L L P ) ) \r
0052500 ( 006 001 P R O G 006 001 ( S O
0052520 U R C E C O R E S O U R C E
0052540 N F I L E S ) \r
0052560 ( 006 002 u n t i l 006 001 ( 006 001
0052600 N U L L 006 001 ( 006 001 D E L F I L
0052620 E 006 001 ( 006 001 Q U O T E 006 001 {
0052640 D S K } R A N D O M D A T A ) )
0052660 ) ) \r ( 006 002
0052700 u n t i l 006 001 ( 006 001 N U L L 006
0052720 001 ( 006 001 D E L F I L E 006 001 (
0052740 006 001 Q U O T E 006 001 { C O R E }
0052760 R A N D O M D A T A ) ) ) ) \r
0053000 ( 006 001 S E T Q
0053020 006 001 C O R E S O U R C E ( 006
0053040 001 O P E N F I L E 006 001 ( 006 001 Q
0053060 U O T E 006 001 { C O R E } R A N
0053100 D O M D A T A ) \r \t \t \t \t
0053120 ( 006 001 Q U O T E 006 001 O U T
0053140 P U T ) ) ) 006 003
0053160 ( * F i r s t , c r e a t e
0053200 a m o d e r a t e l y l a
0053220 r g e f i l e t o c o p y
0053240 ) 006 001 \r ( 006
0053260 002 f o r 006 001 I 006 002 f r o m 006
0053300 001 0 006 002 t o 006 001 9 9 \r \t
0053320 006 002 d o 006 001 ( 006 002 \ L
0053340 D . B L O C K C H E C K 006 001 1
0053360 0 0 ( 006 001 Q U O T E 006 001 D S
0053400 K P R O C . A U X ) \r \t \t \t \t (
0053420 006 001 Q U O T E 006 001 D S K P R O
0053440 C ) ) \r \t \t ( 006 002 f o r 006 001 J
0053460 006 002 f r o m 006 001 0 006 002 t o
0053500 006 001 9 006 002 d o 006 001 ( 006 002 p
0053520 r i n t o u t 006 001 C O R E S O
0053540 U R C E " N o w h e r e ' s
0053560 y e t a n o t h e r l i n
0053600 e , t h e " \r \t \t \t \t \t \t (
0053620 006 001 I P L U S 006 001 ( 006 001 I T I
0053640 M E S 006 001 I 1 0 ) \r \t \t \t \t
0053660 \t \t J 1 ) \r \t \t
0053700 \t \t \t \t " ' t h o n e . " T
0053720 ) ) ) \r ( 006
0053740 001 T E R P R I 006 001 C O R E S O
0053760 U R C E ) \r
0054000 ( 006 001 C L O S E F 006 001 C O R E
0054020 S O U R C E ) \r
0054040 ( 006 001 S E T Q 006 001 S O U R
0054060 C E ( 006 002 D S K P R O C . D O
0054100 1 C O P Y 006 001 C O R E S O U R
0054120 C E ( 006 001 Q U O T E 006 001 { D
0054140 S K } R A N D O M D A T A ) \r \t
0054160 \t \t \t \t C O R E S O U R C E ) )
0054200 \r ( 006 002 p r
0054220 i n t o u t . S U B R 006 001 D I
0054240 A G N O S T I C S R E C O R D S
0054260 T R E A M T \r \t \t \t " F i
0054300 n i s h e d i n i t i a l i z
0054320 i n g t h e s o u r c e f
0054340 i l e f o r D S K P R O C "
0054360 \r \t \t \t T ) \r
0054400 ( 006 002 \ L D . B L O C K C H
0054420 E C K 006 001 2 5 0 ( 006 001 Q U O
0054440 T E 006 001 D S K P R O C . A U X
0054460 ) \r \t \t \t ( 006 001 Q U O T E 006
0054500 001 D S K P R O C ) )
0054520 006 003
0054540 ( * T h e n m a k e a r
0054560 a n d o m n u m b e r o f
0054600 c o p i e s , a n d t h e n
0054620 d e l e t e 006 001 \r \t \t \t \t \t \t
0054640 \t 006 003 t h e m ) 006 001 \r
0054660 ( 006 002 t o 006
0054700 001 N \r \t 006 002 d o 006 001
0054720 ( 006 001 M A P C 006 001 ( 006 002 b i
0054740 n d 006 001 S S D S 006 002 t o 006
0054760 001 ( 006 001 S E T Q 006 001 N F I L
0055000 E S ( 006 001 R A N D 006 001 3 7
0055020 ) ) \r \t \t \t 006 002 c o l l e c t
0055040 006 001 ( 006 002 \ L D . B L O C K C
0055060 H E C K 006 001 ( 006 001 I T I M E S
0055100 006 001 1 0 0 0 ( 006 001 R A N D 006
0055120 001 1 5 ) ) \r \t \t \t \t \t \t (
0055140 006 001 Q U O T E 006 001 D S K P R O
0055160 C . A U X ) \r \t \t \t \t \t \t ( 006
0055200 001 Q U O T E 006 001 D S K P R O C
0055220 ) ) \r \t \t \t \t ( 006 002 D S K P R
0055240 O C . D O 1 C O P Y 006 001 S O U
0055260 R C E ( 006 001 P A C K * 006 001 (
0055300 006 001 Q U O T E 006 001 { D S K } T
0055320 E M P R A N D O M C O P Y ) \r \t
0055340 \t \t \t \t \t \t \t ( 006 001 S E L E C T
0055360 C 006 001 ( 006 001 R A N D 006 001 1
0055400 5 ) \r \t \t \t \t \t \t \t \t \t ( 1
0055420 " 2 5 . T X T " ) \r \t \t \t \t \t \t
0055440 \t \t \t ( 2 " . T X T " ) \r \t
0055460 \t \t \t \t \t \t \t \t ( 3 " M U M
0055500 B L E " ) \r \t \t \t \t \t \t \t \t \t
0055520 ( 4 " 2 3 4 5 . M U M B L E "
0055540 ) \r \t \t \t \t \t \t \t \t \t ( 5 "
0055560 " ) \r \t \t \t \t \t \t \t \t \t ( 006 001
0055600 S H O U L D N T 006 001 ) ) ) \r \t \t
0055620 \t \t \t \t C O R E S O U R C E
0055640 ) ) \r \t \t ( 006 001 F U
0055660 N C T I O N 006 001 ( L A M B D A
0055700 ( F I L E ) \r \t \t \t ( 006 002
0055720 \ L D . B L O C K C H E C K 006 001
0055740 2 5 0 ( 006 001 Q U O T E 006 001
0055760 D S K P R O C . A U X ) \r \t \t \t
0056000 \t \t ( 006 001 Q U O T E 006 001 D
0056020 S K P R O C ) ) \r \t \t \t ( 006
0056040 001 D E L F I L E 006 001 F I L E )
0056060 ) ) ) \r \t \t ( 006 002 p r i n t o u
0056100 t . S U B R 006 001 D I A G N O S
0056120 T I C S R E C O R D S T R E A M
0056140 ( 006 001 Q U O T E 006 001 { ) \r \t
0056160 \t \t N F I L E S \r
0056200 \t \t \t ( 006 001 Q U O
0056220 T E 006 001 } ) ) ) ) ) ) \r \r ( 006
0056240 004 D S K P R O C . D O 1 C O P Y
0056260 006 001 \r ( L A M B D A ( S O
0056300 U R C E D E S T I N A T I O N
0056320 C O R E S O U R C E )
0056340
0056360 006 003 ( * J o n L " 1 6 - D e
0056400 c - 8 4 1 8 : 1 6 " ) 006 001 \r
0056420 ( 006 002 L E T 006 001 ( ( S S
0056440 ( 006 001 O P E N S T R E A M 006 001
0056460 S O U R C E ( 006 001 Q U O T E
0056500 006 001 I N P U T ) ) ) \r
0056520 ( D S ( 006 001 O P E
0056540 N S T R E A M 006 001 D E S T I N
0056560 A T I O N ( 006 001 Q U O T E 006 001
0056600 O U T P U T ) ) ) \r
0056620 ( F I L E L E N 0 )
0056640 \r T H I S R
0056660 O U N D ) \r ( 006 001 S
0056700 E T Q 006 001 F I L E L E N ( 006
0056720 001 G E T F I L E I N F O 006 001 S
0056740 S ( 006 001 Q U O T E 006 001 L E N
0056760 G T H ) ) ) \r ( 006 002
0057000 b i n d 006 001 ( N B Y T E S _
0057020 F I L E L E N ) 006 002 w h i l
0057040 e 006 001 ( 006 001 I G R E A T E R P
0057060 006 001 N B Y T E S 0 ) \r \t 006
0057100 002 d o 006 001 ( 006 001 \ L D . B L O
0057120 C K C H E C K 006 001 2 5 0 ( 006
0057140 001 Q U O T E 006 001 D S K P R O C
0057160 . A U X ) \r \t \t \t ( 006 001
0057200 Q U O T E 006 001 D S K P R O C )
0057220 ) \r \t ( 006 002 t o 006 001 (
0057240 006 001 S E T Q 006 001 T H I S R O U
0057260 N D ( 006 001 I M I N 006 001 N B Y
0057300 T E S 5 1 2 ) ) 006 002 d o 006 001
0057320 ( 006 001 \ B O U T 006 001 D S (
0057340 006 001 \ B I N 006 001 S S ) ) ) \r \t
0057360 ( 006 002 a d d 006 001 N B Y
0057400 T E S ( 006 001 I M I N U S 006 001
0057420 T H I S R O U N D ) ) ) \r
0057440 ( 006 001 C L O S E F 006 001 D
0057460 S ) \r ( 006 001 \ L D .
0057500 B L O C K C H E C K 006 001 2 5 0
0057520 ( 006 001 Q U O T E 006 001 D S K P
0057540 R O C . A U X ) \r \t \t
0057560 ( 006 001 Q U O T E 006 001 D S K P
0057600 R O C ) ) \r ( 006 002 i
0057620 f 006 001 C O R E S O U R C E \r \t
0057640 006 002 t h e n 006 001 ( 006 001 C L
0057660 O S E F 006 001 S S ) \r \t
0057700 ( 006 001 S E T Q 006 001 S S
0057720 ( 006 001 O P E N S T R E A M 006 001
0057740 C O R E S O U R C E ( 006 001 Q U
0057760 O T E 006 001 I N P U T ) ) ) \r \t
0060000 006 002 e l s e 006 001 ( 006 001 S E T F
0060020 I L E P T R 006 001 S S 0 ) ) \r
0060040 ( 006 001 S E T Q 006 001
0060060 D S ( 006 001 O P E N S T R E A M
0060100 006 001 D S ( 006 001 Q U O T E 006 001
0060120 I N P U T ) ) )
0060140 006 003 ( * N o
0060160 w c o m p a r e t h e f i
0060200 l e t o s e e t h a t i
0060220 t " m a d e i t " ) 006 001 \r
0060240 ( 006 002 i f 006 001 ( 006 001
0060260 N E Q 006 001 F I L E L E N ( 006
0060300 001 G E T F I L E I N F O 006 001 D
0060320 S ( 006 001 Q U O T E 006 001 L E N
0060340 G T H ) ) ) \r \t 006 002 t h e n
0060360 006 001 ( 006 001 ! M R A I D 006 001 D
0060400 E S T I N A T I O N " D S K
0060420 c o p y f a i l u r e - -
0060440 w r o n g l e n g t h " ) \r \t
0060460 006 002 e l s e 006 001 ( 006 002 b i n d
0060500 006 001 ( N B Y T E S _ F I L
0060520 E L E N ) 006 002 w h i l e 006 001
0060540 ( 006 001 I G R E A T E R P 006 001 N
0060560 B Y T E S 0 ) \r \t \t 006 002 d o 006
0060600 001 ( 006 001 \ L D . B L O C K C H
0060620 E C K 006 001 2 5 0 ( 006 001 Q U O
0060640 T E 006 001 D S K P R O C . A U X
0060660 ) \r \t \t \t \t ( 006 001 Q U O T
0060700 E 006 001 D S K P R O C ) ) \r \t \t
0060720 ( 006 002 t o 006 001 ( 006 001 S E
0060740 T Q 006 001 T H I S R O U N D (
0060760 006 001 I M I N 006 001 N B Y T E S
0061000 5 1 2 ) ) 006 002 w h e n 006 001 (
0061020 006 001 N E Q 006 001 ( 006 001 \ B I N 006
0061040 001 S S ) \r \t \t \t \t \t \t \t \t
0061060 ( 006 001 \ B I N 006 001 D S ) )
0061100 \r \t \t 006 002 d o 006 001
0061120 ( 006 001 ! M R A I D 006 001 D E S T
0061140 I N A T I O N " D S K c o p
0061160 y f a i l u r e - - d a t
0061200 a d i f f e r e n t " ) \r \t \t
0061220 \t ( 006 001 R E T U R N 006 001 ( 006
0061240 001 S E T Q 006 001 T H I S R O U N
0061260 D ) ) ) \r \t \t ( 006 002 a d d
0061300 006 001 N B Y T E S ( 006 001 I M I
0061320 N U S 006 001 ( 006 001 O R 006 001 T H
0061340 I S R O U N D ( 006 001 R E T U R
0061360 N 006 001 ) ) ) ) ) ) \r
0061400 ( 006 001 C L O S E F 006 001 S S ) \r
0061420 ( 006 001 C L O S E F 006
0061440 001 D S ) \r ( 006 001 \
0061460 L D . B L O C K C H E C K 006 001
0061500 5 0 0 ( 006 001 Q U O T E 006 001 D
0061520 S K P R O C . A U X ) \r \t \t
0061540 ( 006 001 Q U O T E 006 001 D
0061560 S K P R O C ) ) \r (
0061600 006 001 F U L L N A M E 006 001 D S )
0061620 ) ) ) \r \r ( 006 004 E T H E R P R O
0061640 C 006 001 \r ( L A M B D A ( N
0061660 )
0061700
*
0061740 006 003 ( * J o n L " 9 - D
0061760 e c - 8 4 1 3 : 4 5 " ) 006 001 \r
0062000 ( 006 002 D E C L A R E 006 001
0062020 ( 006 001 G L O B A L V A R S 006 001
0062040 L O C A L . C L E A R I N G H
0062060 O U S E ) ) \r ( 006 001 O R
0062100 006 001 ( 006 001 F I X P 006 001 N ) \r
0062120 \t ( 006 001 S E T Q 006 001 N M A X
0062140 . S M A L L P ) ) \r ( 006
0062160 002 f o r 006 001 I 006 002 t o 006 001
0062200 N \r 006 002 b i n d 006
0062220 001 ( J _ 0 ) \r \t (
0062240 J F _ 0 ) \r 006
0062260 002 d o 006 001 ( 006 002 i f 006 001 ( 006
0062300 001 E V E N P 006 001 I 6 4 ) \r \t
0062320 006 002 t h e n 006 001 (
0062340 006 002 \ L D . B L O C K C H E C K
0062360 006 001 1 0 0 0 ( 006 001 Q U O T E
0062400 006 001 E T H E R P R O C ) ) \r \t
0062420 \t ( 006 001 S E T Q 006 001 L O
0062440 C A L . C L E A R I N G H O U S
0062460 E ) \r \t \t ( 006 002 p r i n t
0062500 o u t . S U B R 006 001 D I A G N
0062520 O S T I C S R E C O R D S T R E
0062540 A M ( 006 002 i f 006 001 ( 006 001 C A
0062560 R 006 001 ( 006 001 L I S T P 006 001 (
0062600 006 001 N L S E T Q 006 001 ( 006 001 S T
0062620 A R T . C L E A R I N G H O U S
0062640 E 006 001 \r \t \t \t \t \t \t \t \t \t \t
0062660 T ) ) ) ) \r \t \t \t \t \t \t \t
0062700 006 002 t h e n 006 001 ( 006
0062720 001 Q U O T E 006 001 $ ) \r \t \t \t \t
0062740 \t \t \t 006 002 e l s e 006 001
0062760 ( 006 001 Q U O T E 006 001 - ) ) ) )
0063000 \r \t ( 006 002 i f 006 001 L O C A
0063020 L . C L E A R I N G H O U S E \r
0063040 \t 006 002 t h e n 006 001
0063060 ( 006 002 \ L D . B L O C K C H E C
0063100 K 006 001 ( 006 002 i f 006 001 ( 006 001 E
0063120 V E N P 006 001 I 8 ) \r \t \t \t \t
0063140 006 002 t h e n 006 001
0063160 1 0 0 0 \r \t \t \t \t 006 002
0063200 e l s e 006 001 N I L ) \r \t \t \t \t
0063220 ( 006 001 Q U O T E 006 001 E T
0063240 H E R P R O C ) ) \r \t \t (
0063260 006 002 i f 006 001 ( 006 001 C A R 006 001
0063300 ( 006 001 L I S T P 006 001 ( 006 001 N L
0063320 S E T Q 006 001 ( 006 001 C H . L I S
0063340 T . O R G A N I Z A T I O N S 006
0063360 001 ) ) ) ) \r \t \t 006 002 e
0063400 l s e 006 001 ( 006 002 a d d 006 001 J
0063420 F 1 ) ) \r \t \t ( 006 002 i f
0063440 006 001 ( 006 001 I G E Q 006 001 ( 006 002
0063460 a d d 006 001 J 1 ) \r \t \t \t
0063500 3 2 ) \r \t \t
0063520 006 002 t h e n 006 001 ( 006 001 S E T Q
0063540 006 001 J 1 ) \r \t \t \t (
0063560 006 002 p r i n t o u t . S U B R 006
0063600 001 D I A G N O S T I C S R E C
0063620 O R D S T R E A M ( 006 001 Q U O
0063640 T E 006 001 % [ ) \r \t \t \t \t \t
0063660 J F \r \t \t \t \t \t ( 006 001 Q
0063700 U O T E 006 001 % ] ) ) \r \t \t \t
0063720 ( 006 001 S E T Q 006 001 J F
0063740 0 ) ) \r \t 006 002 e l s e 006
0063760 001 ( 006 002 \ L D . B L O C K C H
0064000 E C K 006 001 2 0 0 0 0 ( 006 001 Q
0064020 U O T E 006 001 E T H E R P R O C
0064040 ) ) \r \t \t ( 006 001 S E T Q 006 001
0064060 L O C A L . C L E A R I N G H O
0064100 U S E ) \r \t \t ( 006 001 N L S E T
0064120 Q 006 001 ( 006 001 S T A R T . C L E
0064140 A R I N G H O U S E 006 001 T ) )
0064160 ) ) ) ) \r \r ( 006 004 D A E M O N P
0064200 R O C 006 001 \r ( L A M B D A
0064220 ( N )
0064240
*
0064300 006 003 ( * J o n L " 7
0064320 - D e c - 8 4 0 1 : 3 7 " ) 006
0064340 001 \r ( 006 001 O R 006 001 ( 006
0064360 001 F I X P 006 001 N ) \r \t ( 006 001 S
0064400 E T Q 006 001 N M A X . S M A L
0064420 L P ) ) \r ( 006 002 t o 006 001
0064440 N \r 006 002 d o 006 001
0064460 ( 006 002 t o 006 001 ( 006 001 C O N S
0064500 T A N T 006 001 ( 006 001 Q U O T I E
0064520 N T 006 001 ( 006 001 T I M E S 006 001
0064540 1 0 6 0 ) \r \t \t \t \t 1 0 )
0064560 ) \r \t 006 002 d o 006 001 (
0064600 006 002 \ L D . B L O C K C H E C K
0064620 006 001 1 0 0 0 0 ( 006 001 Q U O T
0064640 E 006 001 D A E M O N P R O C ) \r
0064660 \t \t \t \t ( 006 001 Q U O T E 006 001 D
0064700 O N ' T ) ) ) \r \r
0064720 006 003 ( * * R a n d o m
0064740 p e r t u r b a t i o n o f
0064760 t h e w o r k i n g s e t
0065000 e v e r y 1 0 m i n u t e
0065020 s + o r - a f e w s e c
0065040 o n d s ) 006 001 \r \r \r \t ( 006 002
0065060 \ L D . B L O C K C H E C K 006 001
0065100 ( 006 001 I T I M E S 006 001 1 0 0
0065120 0 ( 006 001 R A N D 006 001 5 1 0
0065140 ) ) \r \t \t \t ( 006 001 Q U O T E
0065160 006 001 D A E M O N P R O C ) ) \r
0065200 \t ( 006 001 \ R E L E A S E W O
0065220 R K I N G S E T 006 001 ) \r \t (
0065240 006 002 p r i n t o u t . S U B R 006
0065260 001 D I A G N O S T I C S R E C
0065300 O R D S T R E A M T ( 006 001 G
0065320 D A T E 006 001 ) \r \t \t \t T ) ) )
0065340 ) \r ) \r \r \r \r 006 004 ( * " V a r
0065360 i o u s d i a g n o s t i c
0065400 a n d b e n c h m a r k a c
0065420 t i v i t i e s " ) 006 001 \r \r ( D
0065440 E F I N E Q \r \r ( 006 004 E M U P R
0065460 O C 006 001 \r ( L A M B D A (
0065500 N )
0065520
*
0065560 006 003 ( * J o n L " 7 -
0065600 D e c - 8 4 0 1 : 2 3 " ) 006 001
0065620 \r
0065640
*
0065700 006 003
0065720 ( * B a s i c a l l y , j u
0065740 s t r u n s a l o t o f
0065760 t e s t o f e m u l a t o
0066000 r 006 001 \r \t \t \t \t \t \t \t
0066020 006 003 i n s t r u c t o n s ) 006
0066040 001 \r ( 006 001 O R 006 001 ( 006
0066060 001 F I X P 006 001 N ) \r \t ( 006 001 S
0066100 E T Q 006 001 N M A X . S M A L
0066120 L P ) )
0066140
0066160 006 003 ( * F i r s t ,
0066200 r u n t h e s t a n d a r
0066220 d M A C R O T E S T d i a g
0066240 n o s t i c s ) 006 001 \r (
0066260 006 002 f o r 006 001 R U N # 006 002 t
0066300 o 006 001 N \r 006 002 d
0066320 o 006 001 ( 006 002 i f 006 001 ( 006 001 A
0066340 N D 006 001 ( 006 001 G E T D 006 001 (
0066360 006 001 Q U O T E 006 001 ! N U M B E
0066400 R T E S T ) ) \r \t \t ( 006 001
0066420 G E T D 006 001 ( 006 001 Q U O T E 006
0066440 001 C H E C K F R E E L I S T S
0066460 ) ) ) \r \t 006 002 t h e
0066500 n 006 001 ( 006 002 f o r 006 001 T E S
0066520 T 006 002 i n 006 001 ( 006 001 Q U O T
0066540 E 006 001 ( ! N U M B E R T E S T
0066560 ! F N U M T E S T ! M I X N
0066600 U M T E S T ! G C T E S T !
0066620 C O N S T E S T ! F V A R T E
0066640 S T \r \t \t \t \t \t \t ! I
0066660 N T E R P T E S T C H E C K C
0066700 O N S P A G E S C H E C K F R
0066720 E E L I S T S \r \t \t \t \t \t \t
0066740 2 0 R E C L A I M C H E
0066760 C K F R E E L I S T S ) ) \r \t \t
0067000 006 002 d o 006 001 ( 006 002
0067020 \ L D . B L O C K C H E C K 006 001
0067040 5 0 0 ( 006 001 Q U O T E 006 001
0067060 E M U P R O C ) ) \r \t \t \t ( 006
0067100 001 A P P L Y * 006 001 T E S T ) )
0067120 \r \t \t ( 006 002 p r i n t o u
0067140 t . S U B R 006 001 D I A G N O S
0067160 T I C S R E C O R D S T R E A M
0067200 ( 006 001 Q U O T E 006 001 ! ) ) )
0067220 \r \t ( 006 002 \ L D . B L O C K
0067240 C H E C K 006 001 ( 006 001 I T I M E
0067260 S 006 001 1 0 0 0 ( 006 001 R A N D
0067300 006 001 1 5 ) ) \r \t \t \t ( 006
0067320 001 Q U O T E 006 001 E M U P R O C
0067340 ) ) \r \t ( 006 002 \ L D . T A N
0067360 S P E E D 006 001 ) \r \t ( 006 002 \
0067400 L D . B L O C K C H E C K 006 001
0067420 ( 006 001 I T I M E S 006 001 1 0 0 0
0067440 ( 006 001 R A N D 006 001 1 5 ) )
0067460 \r \t \t \t ( 006 001 Q U O T E 006 001
0067500 E M U P R O C ) ) \r \t ( 006
0067520 002 \ L D . B R O W S E 006 001 ) \r \t
0067540 ( 006 002 \ L D . B L O C K C H
0067560 E C K 006 001 1 0 0 0 ( 006 001 Q U
0067600 O T E 006 001 E M U P R O C ) ) \r
0067620 \t ( 006 002 p r i n t o u t . S
0067640 U B R 006 001 D I A G N O S T I C
0067660 S R E C O R D S T R E A M ( 006
0067700 001 Q U O T E 006 001 % ( ) \r \t \t \t
0067720 R U N # \r \t \t \t ( 006 001 Q U O
0067740 T E 006 001 % ) ) ) ) ) ) \r \r ( 006
0067760 004 2 0 R E C L A I M 006 001 \r (
0070000 L A M B D A N I L
0070020
*
0070060 006 003 ( * J
0070100 o n L " 2 8 - N o v - 8 4 1
0070120 3 : 5 2 " ) 006 001 \r ( 006 001
0070140 F R P T Q 006 001 2 0 ( 006 001 R E
0070160 C L A I M 006 001 ) ) ) ) \r ) \r \r \r
0070200 \r 006 004 ( * " A f t e r t h e
0070220 T A N S P E E D b e n c h m
0070240 a r k " ) 006 001 \r \r ( D E F I N E
0070260 Q \r \r ( 006 004 \ L D . T A N S P E
0070300 E D 006 001 \r ( L A M B D A N
0070320 I L
0070340
*
0070400 006 003 ( * J o n L " 7 -
0070420 D e c - 8 4 0 1 : 2 2 " ) 006 001
0070440 \r
0070460
*
0070520 006 003
0070540 ( * T A N S P E E D b e n c
0070560 h m a r k i s a f a i r l
0070600 y g o o d t e s t o f f
0070620 l o a t i n g 006 001 \r \t \t \t \t \t \t
0070640 \t 006 003 p o i n t a r
0070660 i t h m e t i c a l s o ) 006 001
0070700 \r ( 006 002 f o r 006 001 I
0070720 F ( A _ 1 . 0 ) 006 002 f r
0070740 o m 006 001 0 006 002 t o 006 001 2 4
0070760 9 8 \r 006 002 d o 006 001
0071000 ( 006 001 A N D 006 001 ( 006 001 E V E
0071020 N P 006 001 I 3 2 ) \r \t
0071040 ( 006 002 \ L D . B L O C K C
0071060 H E C K 006 001 5 0 0 ( 006 001 Q U
0071100 O T E 006 001 E M U P R O C ) ) )
0071120 \r \t ( 006 001 S E T Q 006 001 A
0071140 ( 006 001 F P L U S 006 001 ( 006 001 T A
0071160 N 006 001 ( 006 001 A R C T A N 006 001
0071200 ( 006 001 A N T I L O G 006 001 ( 006 001
0071220 L O G 006 001 ( 006 001 S Q R T 006 001
0071240 ( 006 001 F T I M E S 006 001 A A )
0071260 ) ) ) \r \t \t \t \t T )
0071300 \r \t \t \t T ) \r \t \t \t
0071320 1 . 0 ) ) \r 006 002
0071340 f i n a l l y 006 001 ( 006 002 i f 006
0071360 001 ( 006 001 L E S S P 006 001 2 5 .
0071400 0 ( 006 001 A B S 006 001 ( 006 001 S E
0071420 T Q 006 001 F ( 006 001 D I F F E R
0071440 E N C E 006 001 A 2 5 0 0 . 0 )
0071460 ) ) ) \r \t \t 006 002 t h e n 006
0071500 001 ( ! M R A I D ( 006 001 L I S
0071520 T 006 001 ( 006 001 Q U O T E 006 001 (
0071540 T A N S P E E D ) ) \r \t \t \t \t
0071560 ( 006 001 Q U O T E 006 001
0071600 006 002 = > 006 001 ) \r \t \t \t \t
0071620 F \r \t \t \t \t ( 006
0071640 001 Q U O T E 006 001 s h o u l d -
0071660 h a v e - b e e n ) \r \t \t \t \t
0071700 2 4 7 6 . 2 4 6 ) ) \r
0071720 \t \t 006 002 e l s e 006 001 ( 006 002 p
0071740 r i n t o u t . S U B R 006 001 D
0071760 I A G N O S T I C S R E C O R D
0072000 S T R E A M ( 006 001 Q U O T E 006
0072020 001 @ ) ) ) ) ) ) \r ) \r \r \r \r 006
0072040 004 ( * " E x t r a c t i o n
0072060 f r o m G a b r i e l ' s B
0072100 R O W S E b e n c h m a r k "
0072120 ) 006 001 \r \r ( D E F I N E Q \r \r (
0072140 006 004 \ L D . B R O W S E 006 001 \r
0072160 ( L A M B D A N I L
0072200
*
0072240 006 003 ( *
0072260 J o n L " 7 - D e c - 8 4
0072300 0 1 : 2 3 " ) 006 001 \r
0072320
*
0072400 006 003 ( * U n f
0072420 o r t u n a t e l y , t h i s
0072440 h a s t o b e a c o p
0072460 y o f t h e c o d e i n
0072500 006 001 \r \t \t \t \t \t \t \t
0072520 006 003 B R O W S E s i n c e w
0072540 e w a n t t o d o t h e
0072560 i n i t p h a s e o n l y
0072600 o n c e ) 006 001 \r ( 006 002
0072620 i f 006 001 ! B R O W S E I N I T
0072640 \r 006 002 e l s e 006 001
0072660 ( 006 001 S E T Q 006 001 ! B R O W S
0072700 E I N I T \r \t ( 006 002 \
0072720 L D . B R O W S E I N I T 006 001
0072740 1 0 0 1 0 4 \r \t \t \t
0072760 ( 006 001 Q U O T E 006 001 ( ( A
0073000 A A B B B B A A
0073020 A A A B B A A A )
0073040 \r \t \t \t \t ( A A
0073060 B B B B A A ( A A
0073100 ) \r \t \t \t \t \t ( B B ) ) \r \t
0073120 \t \t \t ( A A A
0073140 B ( B A ) \r \t \t \t \t \t B
0073160 A B A ) ) ) ) ) ) \r
0073200 ( 006 002 f o r 006 001 U N I T S \r
0073220 006 002 o n 006 001 ( 006 002
0073240 b i n d 006 001 A N ( 006 001 R A
0073260 N D 006 001 _ 2 1 ) \r \t \t ( L
0073300 _ ! B R O W S E I N I T ) 006
0073320 002 w h i l e 006 001 L \r \t
0073340 006 002 d o 006 001 ( 006 002 \ L D . B
0073360 L O C K C H E C K 006 001 N I L
0073400 ( 006 001 Q U O T E 006 001 E M U P R
0073420 O C ) ) \r \t \t ( 006 002 i f 006 001 (
0073440 006 001 E Q 006 001 0 ( 006 001 S E T Q
0073460 006 001 N ( 006 001 I M O D 006 001 (
0073500 006 001 S E T Q 006 001 R A N D ( 006
0073520 001 I M O D 006 001 ( 006 001 I T I M E
0073540 S 006 001 R A N D 1 7 ) \r \t \t \t
0073560 \t \t \t \t 2 5 1 ) ) \r \t \t \t \t \t
0073600 ( 006 001 L E N G T H 006 001 L ) ) )
0073620 ) \r \t \t 006 002 t h e n 006 001
0073640 ( 006 002 p u s h 006 001 A ( 006 002
0073660 p o p 006 001 L ) ) \r \t \t 006 002
0073700 e l s e 006 001 ( 006 002 f o r 006 001
0073720 N 006 002 f r o m 006 001 N 006 002 t
0073740 o 006 001 2 006 002 b y 006 001 - 1
0073760 006 002 a s 006 001 X 006 002 o n 006 001
0074000 L 006 002 d o 006 001 N I L 006 002 f
0074020 i n a l l y 006 001 ( 006 001 P R O G
0074040 N 006 001 ( 006 002 p u s h 006 001 A
0074060 ( 006 001 C A D R 006 001 X ) ) \r \t \t
0074100 \t \t \t \t \t \t \t \t ( 006 001 R P L A C
0074120 D 006 001 X \r \t \t \t \t \t \t \t \t \t \t
0074140 \t ( 006 001 C D D R 006 001 X ) ) ) )
0074160 ) \r \t 006 002 f i n a l l
0074200 y 006 001 ( 006 001 R E T U R N 006 001
0074220 A ) ) \r 006 002 d o 006
0074240 001 ( 006 002 f o r 006 001 P A T S
0074260 006 002 o n 006 001 ( 006 001 Q U O T E 006
0074300 001 ( ( * A ? B * B ? B
0074320 A * A A * B * A ) \r \t \t
0074340 \t \t ( * A * B * B * A (
0074360 * A ) \r \t \t \t \t ( * B )
0074400 ) \r \t \t \t \t ( ? ? * ( B A
0074420 ) * ? ? ) ) ) \r \t
0074440 006 002 d o 006 001 ( 006 002 f o r 006 001
0074460 P 006 002 o n 006 001 ( 006 001 G E T P
0074500 006 001 ( 006 001 C A R 006 001 U N I T
0074520 S ) \r \t \t \t \t ( 006 001 Q U O T E 006
0074540 001 P A T T E R N ) ) \r \t \t
0074560 006 002 d o 006 001 ( 006 002 \ L D . B
0074600 L O C K C H E C K 006 001 N I L
0074620 ( 006 001 Q U O T E 006 001 E M U P R
0074640 O C ) ) \r \t \t ( 006 002
0074660 \ L D . B R O W S E M A T C H 006
0074700 001 ( 006 001 C A R 006 001 P A T S )
0074720 \r \t \t \t \t ( 006 001 C
0074740 A R 006 001 P ) \r \t \t \t \t
0074760 N I L ) ) ) ) \r (
0075000 006 002 p r i n t o u t . S U B R 006
0075020 001 D I A G N O S T I C S R E C
0075040 O R D S T R E A M ( 006 001 Q U O
0075060 T E 006 001 # ) ) ) ) \r \r ( 006 004 \
0075100 L D . B R O W S E I N I T 006 001 \r
0075120 ( L A M B D A ( N M N
0075140 P A T S I P A T S )
0075160
0075200 006 003 (
0075220 * J o n L " 3 0 - N o v - 8
0075240 4 2 2 : 5 0 " ) 006 001 \r
0075260 ( 006 001 S E T Q 006 001 I P A T S
0075300 ( 006 001 S U B S T 006 001 N I L N
0075320 I L I P A T S ) ) \r (
0075340 006 002 b i n d 006 001 ( A _ N I
0075360 L ) \r \t ( L O S E R _ ( 006
0075400 001 L A S T 006 001 I P A T S ) )
0075420 006 002 f i r s t 006 001 ( 006 001 R P L
0075440 A C D 006 001 L O S E R I P A T
0075460 S ) 006 002 f o r 006 001 006 002 o l d
0075500 006 001 N 006 002 f r o m 006 001 N
0075520 006 002 t o 006 001 1 006 002 b y 006 001
0075540 - 1 \r 006 002 a s 006 001
0075560 ( I _ M ) 006 002 b y 006 001
0075600 ( 006 002 i f 006 001 ( 006 001 Z E R O P
0075620 006 001 I ) \r \t \t \t 006 002 t h e n
0075640 006 001 M \r \t \t 006 002
0075660 e l s e 006 001 ( 006 001 S U B 1 006 001
0075700 I ) ) \r 006 002 a s
0075720 006 001 ( N A M E _ ( 006 001 G E N
0075740 S Y M 006 001 ) ) 006 002 b y 006 001 (
0075760 006 001 G E N S Y M 006 001 ) \r
0076000 006 002 d o 006 001 ( 006 002 \ L D
0076020 . B L O C K C H E C K 006 001 N I
0076040 L ( 006 001 Q U O T E 006 001 E M U
0076060 P R O C ) ) \r \t ( 006 002 p u s
0076100 h 006 001 A N A M E ) \r \t (
0076120 006 001 R P T Q 006 001 I ( 006 001 P U
0076140 T P R O P 006 001 N A M E ( 006 001
0076160 G E N S Y M 006 001 ) \r \t \t \t
0076200 N I L ) ) \r \t ( 006 001 P U T P
0076220 R O P 006 001 N A M E ( 006 001 Q U
0076240 O T E 006 001 P A T T E R N ) \r \t
0076260 \t ( 006 002 b i n d 006 001 ( A
0076300 _ N I L ) 006 002 f o r 006 001
0076320 I 006 002 f r o m 006 001 N P A T S
0076340 006 002 t o 006 001 1 006 002 b y 006 001
0076360 - 1 006 002 a s 006 001 I P A T S
0076400 006 002 o n 006 001 I P A T S \r \t \t
0076420 006 002 d o 006 001 ( 006 002
0076440 p u s h 006 001 A ( 006 001 C A R 006
0076460 001 I P A T S ) ) 006 002 f i n a
0076500 l l y 006 001 ( 006 001 R E T U R N 006
0076520 001 A ) ) ) \r \t ( 006 001 R P T
0076540 Q 006 001 ( 006 001 D I F F E R E N C
0076560 E 006 001 M I ) \r \t \t ( 006 001 P U
0076600 T P R O P 006 001 N A M E ( 006 001
0076620 G E N S Y M 006 001 ) \r \t \t \t N I
0076640 L ) ) \r 006 002 f i n
0076660 a l l y 006 001 ( 006 001 P R O G N 006
0076700 001
0076720
0076740 006 003 ( * J u
0076760 s t t o b r e a k t h e
0077000 c i r c u l a r i t y ) 006 001 \r \t
0077020 \t ( 006 001 R P L A C D
0077040 006 001 L O S E R N I L ) \r \t \t
0077060 ( 006 001 R E T U R N 006
0077100 001 A ) ) ) ) ) \r \r ( 006 004 \ L D
0077120 . B R O W S E M A T C H 006 001 \r
0077140 ( L A M B D A ( P A T D A
0077160 T A L I S T )
0077200
0077220 006 003 ( *
0077240 J o n L " 2 5 - F E B - 8 3
0077260 1 3 : 3 8 " ) 006 001 \r (
0077300 006 001 C O N D 006 001 \r (
0077320 ( 006 001 N U L L 006 001 P A T ) \r \t
0077340 ( 006 001 N U L L 006 001 D A T ) ) \r
0077360 ( ( 006 001 N U L L 006 001
0077400 D A T ) \r \t N I L ) \r
0077420 ( ( 006 001 O R 006 001 ( 006 001 E Q
0077440 006 001 ( 006 001 C A R 006 001 P A T )
0077460 \r \t ( 006 001 Q U O T
0077500 E 006 001 ? ) ) \r \t ( 006 001 E
0077520 Q 006 001 ( 006 001 C A R 006 001 P A T
0077540 ) \r \t ( 006 001 C A R
0077560 006 001 D A T ) ) ) \r \t ( 006 002 \ L
0077600 D . B R O W S E M A T C H 006 001
0077620 ( 006 001 C D R 006 001 P A T ) \r \t \t
0077640 \t ( 006 001 C D R 006 001 D A T ) \r
0077660 \t \t \t A L I S T ) ) \r
0077700 ( ( 006 001 E Q 006 001 ( 006 001 C A
0077720 R 006 001 P A T ) \r \t ( 006 001
0077740 Q U O T E 006 001 * ) ) \r \t ( 006 001
0077760 O R 006 001 ( 006 002 \ L D . B R O W
0100000 S E M A T C H 006 001 ( 006 001 C D R
0100020 006 001 P A T ) \r \t \t \t
0100040 D A T A L I S T ) \r \t
0100060 ( 006 002 \ L D . B R O W S E M A T
0100100 C H 006 001 ( 006 001 C D R 006 001 P A
0100120 T ) \r \t \t \t ( 006 001 C D
0100140 R 006 001 D A T ) \r \t \t \t
0100160 A L I S T ) \r \t ( 006 002
0100200 \ L D . B R O W S E M A T C H 006
0100220 001 P A T ( 006 001 C D R 006 001 D
0100240 A T ) \r \t \t \t A L I S
0100260 T ) ) ) \r ( T ( 006
0100300 001 C O N D 006 001 \r \t ( ( 006 001
0100320 N L I S T P 006 001 ( 006 001 C A R 006
0100340 001 P A T ) ) \r \t ( 006
0100360 001 C O N D 006 001 \r \t
0100400 ( ( 006 001 E Q 006 001 ( C H A R 1
0100420 ( 006 001 C A R 006 001 P A T ) ) \r \t
0100440 \t ( 006 001 Q U O T E 006 001
0100460 ? ) ) \r \t \t ( 006 001 P R O G 006 001
0100500 ( ( V A L ( 006 001 F A S S O C
0100520 006 001 ( 006 001 C A R 006 001 P A T )
0100540 \r \t \t \t \t A L I S T )
0100560 ) ) \r \t \t ( 006 001 R
0100600 E T U R N 006 001 ( 006 001 C O N D 006
0100620 001 \r \t \t \t \t ( V A L ( 006 002 \
0100640 L D . B R O W S E M A T C H 006 001
0100660 ( 006 001 C O N S 006 001 ( 006 001 C D
0100700 R 006 001 V A L ) \r \t \t \t \t \t \t \t
0100720 ( 006 001 C D R 006 001 P A
0100740 T ) ) \r \t \t \t \t \t \t
0100760 D A T A L I S T ) ) \r \t \t \t
0101000 \t ( T ( 006 002 \ L D . B R O W
0101020 S E M A T C H 006 001 ( 006 001 C D R
0101040 006 001 P A T ) \r \t \t \t \t \t \t
0101060 ( 006 001 C D R 006 001 D A T )
0101100 \r \t \t \t \t \t \t ( 006 001 C
0101120 O N S 006 001 ( 006 001 C O N S 006 001
0101140 ( 006 001 C A R 006 001 P A T ) \r \t \t
0101160 \t \t \t \t \t \t ( 006 001 C A R 006 001
0101200 D A T ) ) \r \t \t \t \t \t \t \t
0101220 A L I S T ) ) ) ) ) ) ) \r \t
0101240 ( ( 006 001 E Q 006 001 ( C
0101260 H A R 1 ( 006 001 C A R 006 001 P A
0101300 T ) ) \r \t \t ( 006 001 Q U O
0101320 T E 006 001 * ) ) \r \t \t ( 006 001 P
0101340 R O G 006 001 ( ( V A L ( 006 001 F
0101360 A S S O C 006 001 ( 006 001 C A R 006 001
0101400 P A T ) \r \t \t \t \t A
0101420 L I S T ) ) ) \r \t \t
0101440 ( 006 001 R E T U R N 006 001 ( 006 001
0101460 C O N D 006 001 \r \t \t \t \t ( V A L
0101500 ( 006 002 \ L D . B R O W S E M A
0101520 T C H 006 001 ( 006 001 A P P E N D 006
0101540 001 ( 006 001 C D R 006 001 V A L ) \r
0101560 \t \t \t \t \t \t \t ( 006
0101600 001 C D R 006 001 P A T ) ) \r \t \t \t
0101620 \t \t \t D A T A L
0101640 I S T ) ) \r \t \t \t \t ( T ( 006
0101660 002 f o r 006 001 ( L _ N I L )
0101700 006 002 b y 006 001 ( 006 001 N C O N C
0101720 006 001 L ( 006 001 L I S T 006 001 (
0101740 006 001 C A R 006 001 D ) ) ) 006 002 a
0101760 s 006 001 E \r \t \t \t \t
0102000 006 002 o n 006 001 ( 006 001 C O N S 006
0102020 001 N I L D A T ) 006 002 a s 006
0102040 001 ( D _ D A T ) 006 002 b y
0102060 006 001 ( 006 001 C D R 006 001 D ) \r \t
0102100 \t \t \t 006 002 d o 006 001
0102120 ( 006 001 C O N D 006 001 \r \t \t \t \t \t
0102140 ( ( 006 002 \ L D . B R O W
0102160 S E M A T C H 006 001 ( 006 001 C D R
0102200 006 001 P A T ) \r \t \t \t \t \t \t \t
0102220 D \r \t \t \t \t \t \t \t
0102240 ( 006 001 C O N S 006 001 ( 006
0102260 001 C O N S 006 001 ( 006 001 C A R 006 001
0102300 P A T ) \r \t \t \t \t \t \t \t \t \t
0102320 L ) \r \t \t \t \t \t \t \t \t
0102340 A L I S T ) ) \r \t \t \t \t \t
0102360 ( 006 001 R E T U R N 006 001 T
0102400 ) ) ) ) ) ) ) ) ) ) ) \r \t
0102420 ( T ( 006 001 A N D 006 001 ( 006 001 N
0102440 O T 006 001 ( 006 001 N L I S T P 006 001
0102460 ( 006 001 C A R 006 001 D A T ) ) )
0102500 \r \t \t ( 006 002 \ L D . B R O
0102520 W S E M A T C H 006 001 ( 006 001 C A
0102540 R 006 001 P A T ) \r \t \t \t \t
0102560 ( 006 001 C A R 006 001 D A T ) \r \t
0102600 \t \t \t A L I S T ) \r \t \t
0102620 ( 006 002 \ L D . B R O W S E
0102640 M A T C H 006 001 ( 006 001 C D R 006 001
0102660 P A T ) \r \t \t \t \t ( 006
0102700 001 C D R 006 001 D A T ) \r \t \t \t \t
0102720 A L I S T ) ) ) ) ) ) )
0102740 ) \r ) \r \r ( R P A Q Q 006 002 ! B
0102760 R O W S E I N I T 006 001 N I L )
0103000 \r ( D E C L A R E : D O E V A
0103020 L @ C O M P I L E D O N T C O
0103040 P Y \r \r ( G L O B A L V A R S
0103060 ! B R O W S E I N I T ) \r ) \r (
0103100 D E C L A R E : E V A L @ C O
0103120 M P I L E D O N T C O P Y \r
0103140 ( D E C L A R E : E V A L @ C
0103160 O M P I L E \r \r 006 001 ( P U T P
0103200 R O P S 006 004 C H A R 1 006 002 M
0103220 A C R O 006 001 ( ( X ) ( N T H
0103240 C H A R X 1 ) ) ) \r ) \r ) \r
0103260 ( D E C L A R E : D O N T E V
0103300 A L @ C O M P I L E D O N T E
0103320 V A L @ L O A D D O C O P Y
0103340 \r \r ( A D D T O V A R 006 002 D I
0103360 S P L A Y F O N T E X T E N S I
0103400 O N S 006 001 S T R I K E ) \r \r (
0103420 A D D T O V A R 006 002 D I S P L
0103440 A Y F O N T D I R E C T O R I E
0103460 S 006 001 { F L O P P Y } ) \r \r (
0103500 A D D T O V A R 006 002 L I S P U
0103520 S E R S D I R E C T O R I E S 006
0103540 001 { F L O P P Y } ) \r \r \r ( R
0103560 P A Q Q 006 002 ! M T U S E R A I
0103600 D F L G 006 001 N I L ) \r \r ( F I
0103620 L E S L O A D ( C O M P I L E
0103640 D F R O M V A L U E O F L
0103660 I S P U S E R S D I R E C T O R
0103700 I E S ) \r \t P A G E H O L
0103720 D M A C R O T E S T A U X M
0103740 A C R O T E S T P L U R A L )
0103760 \r \r ( M A K E D I A G N O S T I
0104000 C S M E N U ) \r ) \r ( D E C L A
0104020 R E : D O N T E V A L @ L O A
0104040 D D O E V A L @ C O M P I L E
0104060 D O N T C O P Y C O M P I L
0104100 E R V A R S \r \r ( A D D T O V
0104120 A R 006 002 N L A M A 006 001 ) \r \r
0104140 ( A D D T O V A R 006 002 N L A M
0104160 L 006 001 ) \r \r ( A D D T O V A R
0104200 006 002 L A M A 006 001 p r i n t o
0104220 u t . S U B R ) \r ) \r ( P U T P
0104240 R O P S L I S P D I A G N O S
0104260 T I C S C O P Y R I G H T (
0104300 " X e r o x C o r p o r a t i
0104320 o n " 1 9 8 4 ) ) \r ( D E C L
0104340 A R E : D O N T C O P Y \r
0104360 ( F I L E M A P ( N I L ( 2
0104400 8 1 1 3 7 8 1 ( U N S H A D
0104420 E A L L I T E M S 2 8 2 1 .
0104440 3 1 0 6 ) ( p r i n t o u t
0104460 . S U B R 3 1 0 8 . 3 7 7
0104500 9 ) ) ( 4 5 5 3 1 3 4 0 3
0104520 ( \r E X E R C I S E 4 5 6 3
0104540 . 1 0 0 4 3 ) ( \ L D . B L
0104560 O C K C H E C K 1 0 0 4 5 .
0104600 1 2 0 6 1 ) ( \ L D . S T O
0104620 P P R O C S 1 2 0 6 3 . 1
0104640 3 4 0 1 ) ) ( 1 3 7 6 3 1 6
0104660 4 6 5 ( \r M A K E D I A G N O
0104700 S T I C S M E N U 1 3 7 7 3
0104720 . 1 5 7 3 2 ) ( \ L D . D C
0104740 W . W H E N S E L E C T E D 1
0104760 5 7 3 4 . 1 5 9 2 4 ) ( \
0105000 L D . D P M . W H E N S E L E C
0105020 T E D 1 5 9 2 6 . \r 1 6 4
0105040 6 3 ) ) ( 1 7 1 0 7 2 3 7 7
0105060 9 ( D S K P R O C 1 7 1 1 7
0105100 . 1 8 0 7 7 ) ( D S K P R
0105120 O C . A U X 1 8 0 7 9 . 2
0105140 0 1 2 4 ) ( D S K P R O C . D
0105160 O 1 C O P Y 2 0 1 2 6 . \r
0105200 2 1 9 0 7 ) ( E T H E R P R O
0105220 C 2 1 9 0 9 . 2 3 1 5 6 )
0105240 ( D A E M O N P R O C 2 3 1
0105260 5 8 . 2 3 7 7 7 ) ) ( 2 3
0105300 8 3 8 2 5 2 1 3 ( E M U P R
0105320 O C 2 3 8 4 8 . 2 5 0 6 8
0105340 ) ( \r 2 0 R E C L A I M 2 5
0105360 0 7 0 . 2 5 2 1 1 ) ) ( 2
0105400 5 2 5 7 2 6 1 3 9 ( \ L D .
0105420 T A N S P E E D 2 5 2 6 7 .
0105440 2 6 1 3 7 ) ) ( 2 6 1 9 7
0105460 3 0 6 9 1 ( \ L D . B R O W S
0105500 E 2 6 2 0 7 . \r 2 7 7 0 6
0105520 ) ( \ L D . B R O W S E I N I
0105540 T 2 7 7 0 8 . 2 8 7 4 4 )
0105560 ( \ L D . B R O W S E M A T C
0105600 H 2 8 7 4 6 . 3 0 6 8 9 )
0105620 ) ) ) ) \r S T O P \r @ @ @ @ @ @
0105640 @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @
*
0106000 2 313 \0 001 \0 @ \0 \0 \0 001 \0 \0 \0 \0 \b 004
0106020 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
*
0106400 \0 \0 \0 ( \0 \0 \0 001 \0 \0 \0 \0 \b 004 \0 \0
0106420 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
*
0107000 252 252 \0 001 377 377 8 P 235 350 035 274 235 355 \0 '
0107020 \0 \0 \0 \0 \0 \0 \0 ' \0 \0 L 254 \0 \0 \0 \v
0107040 \0 d P A G E H O L D . ; 1 \0 \0 \0
0107060 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
*
0107200 \0 \0 \0 \0 \0 \0 \0 002 \0 273 \b 256 \0 001 \0 \0
0107220 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
*
0110000 006 001 ( F I L E C R E A T E D "
0110020 1 3 - D e c - 8 4 0 4 : 2 8 :
0110040 2 7 " 006 004 { E R I S } < L I S
0110060 P C O R E > L I B R A R Y > P A
0110100 G E H O L D . ; 2 7 006 001 1 9 3
0110120 6 8 \r \r p r e v
0110140 i o u s d a t e : " 1 - D
0110160 e c - 8 4 1 7 : 0 9 : 2 3 "
0110200 { E R I S } < L I S P U S E R S
0110220 > P A G E H O L D . ; 2 6 ) \r \r
0110240 \r ( * C o p y r i g h t ( c
0110260 ) 1 9 8 2 , 1 9 8 3 , 1 9
0110300 8 4 b y X e r o x C o r p
0110320 o r a t i o n . A l l r i g
0110340 h t s r e s e r v e d . ) \r \r
0110360 ( P R E T T Y C O M P R I N T
0110400 P A G E H O L D C O M S ) \r \r (
0110420 R P A Q Q 006 002 P A G E H O L D
0110440 C O M S 006 001 ( ( C O M S ( *
0110460 * " T e m p o r a r y k l
0110500 u d g e p a t c h e s . " ) \r
0110520 \t \t \t ( P ( U N A D V I
0110540 S E P A G E F U L L F N ) ) )
0110560 \r \t \t ( C O M S ( *
0110600 " P a r a m e t e r s a d j
0110620 u s t a b l e b y u s e r .
0110640 " ) \r \t \t \t ( I N I T V A
0110660 R S ( P A G E . W A I T . S E
0110700 C O N D S 2 0 ) \r \t \t \t \t
0110720 ( P A G E . W A I T . A C
0110740 T I V I T Y ( Q U O T E W I
0110760 N K I N G ) ) \r \t \t \t \t
0111000 ( P A G E . W A I T . I G N O
0111020 R E T Y P E A H E A D N I L )
0111040 \r \t \t \t \t ( P A G E .
0111060 W A I T . F O N T ( F O N T C
0111100 R E A T E ( Q U O T E H E L
0111120 V E T I C A ) \r \t \t \t \t \t \t \t \t
0111140 1 2 ) ) \r \t \t \t \t (
0111160 P A G E . W A I T . H O L D M S
0111200 G ( Q U O T E ( " - - S
0111220 H I F T t o h o l d t y p
0111240 e o u t - - " \r \t \t \t \t \t \t
0111260 \t \t 1 9 8 ) ) ) \r \t \t \t \t
0111300 ( P A G E . W A I T . R E
0111320 L E A S E M S G ( Q U O T E
0111340 ( " - - R e l e a s e S H
0111360 I F T f o r m o r e - -
0111400 " \r \t \t \t \t \t \t \t \t 2 1
0111420 5 ) ) ) \r \t \t \t \t ( P
0111440 A G E . W A I T . S T O P M S G
0111460 ( Q U O T E ( " - - S c
0111500 r o l l i n g S t o p p e d
0111520 - - " 1 6 9 ) ) ) ) \r \t \t \t
0111540 ( G L O B A L V A R S P
0111560 A G E . W A I T . S E C O N D S
0111600 P A G E . W A I T . A C T I V
0111620 I T Y P A G E . W A I T . I G
0111640 N O R E T Y P E A H E A D \r \t
0111660 \t \t \t P A G E . W
0111700 A I T . F O N T P A G E . W A
0111720 I T . H O L D M S G P A G E .
0111740 W A I T . R E L E A S E M S G
0111760 \r \t \t \t \t P A G E
0112000 . W A I T . S T O P M S G ) ) \r
0112020 \t \t ( D E C L A R E :
0112040 D O N T C O P Y ( M A C R O
0112060 S S H I F T D O W N ? C T R
0112100 L R E A L L Y D O W N ? ) \r \t \t
0112120 \t ( R E C O R D S
0112140 P A G E H O L D B U T T O N
0112160 P A G E H O L D M S G ) ) \r \t \t
0112200 ( V A R S ( H o l d
0112220 i n g B u t t o n M e n u N I
0112240 L ) \r \t \t \t ( H o l d B u
0112260 t t o n B o t t o m L i n e (
0112300 F O N T D E S C E N T P A G E
0112320 . W A I T . F O N T ) ) \r \t \t \t
0112340 ( T i t l e B a r H e i g
0112360 h t ( F O N T H E I G H T (
0112400 D S P F O N T N I L W i n d
0112420 o w T i t l e D i s p l a y S t
0112440 r e a m ) ) ) \r \t \t \t ( \
0112460 P A G E H O L D . D I S M I S S
0112500 . T I M E R ( S E T U P T I M
0112520 E R 0 ) ) ) \r \t \t (
0112540 G L O B A L V A R S H o l d i
0112560 n g B u t t o n M e n u H o l
0112600 d B u t t o n B o t t o m L i n
0112620 e T i t l e B a r H e i g h t
0112640 \r \t \t \t \t \ P A G E H O L D
0112660 . D I S M I S S . T I M E R ) \r
0112700 \t \t ( F N S E N D .
0112720 O F . P A G E . H O L D \ P a
0112740 g e H o l d . p r i n t M e s s
0112760 a g e \ P a g e H o l d . b u
0113000 t t o n E v e n t F n \r \t \t \t
0113020 \ P a g e H o l d . d o M e
0113040 n u ) \r \t \t ( C O M S
0113060 ( * " I t e m s r e l a t
0113100 e d t o t h e P A G E H O
0113120 L D B U T T O N r e s o u r c
0113140 e " ) \r \t \t \t ( D E C L A
0113160 R E : D O N T C O P Y ( R E
0113200 S O U R C E S P A G E H O L D
0113220 B U T T O N ) ) \r \t \t \t (
0113240 I N I T R E S O U R C E S P A
0113260 G E H O L D B U T T O N ) \r \t \t
0113300 \t ( F N S M a k e P a g
0113320 e H o l d B u t t o n \ P a g
0113340 e H o l d . G E T ) ) \r \t \t
0113360 ( P ( M O V D ? ( Q U
0113400 O T E P A G E F U L L F N ) \r
0113420 \t \t \t ( Q U O T E
0113440 O L D P A G E F U L L F N ) )
0113460 \r \t \t \t ( M O V D ( Q U O T E
0113500 E N D . O F . P A G E . H O L
0113520 D ) \r \t \t \t ( Q U O
0113540 T E P A G E F U L L F N ) ) )
0113560 \r \t \t ( L O C A L V A
0113600 R S . T ) ) ) \r \f 006 004 ( *
0113620 * " T e m p o r a r y k l u
0113640 d g e p a t c h e s . " ) 006 001
0113660 \r \r ( U N A D V I S E P A G E
0113700 F U L L F N ) \r \r \r \r 006 004 ( *
0113720 " P a r a m e t e r s a d j u
0113740 s t a b l e b y u s e r . "
0113760 ) 006 001 \r \r \r ( R P A Q ? 006 002 P
0114000 A G E . W A I T . S E C O N D S
0114020 006 001 2 0 ) \r \r ( R P A Q ? 006
0114040 002 P A G E . W A I T . A C T I V
0114060 I T Y 006 001 ( Q U O T E W I N
0114100 K I N G ) ) \r \r ( R P A Q ? 006
0114120 002 P A G E . W A I T . I G N O R
0114140 E T Y P E A H E A D 006 001 N I L
0114160 ) \r \r ( R P A Q ? 006 002 P A G E
0114200 . W A I T . F O N T 006 001 ( F O
0114220 N T C R E A T E ( Q U O T E
0114240 H E L V E T I C A ) \r \t \t \t \t
0114260 1 2 ) ) \r \r ( R P A Q ? 006 002
0114300 P A G E . W A I T . H O L D M S
0114320 G 006 001 ( Q U O T E ( " - -
0114340 S H I F T t o h o l d t
0114360 y p e o u t - - " 1 9 8 )
0114400 ) ) \r \r ( R P A Q ? 006 002 P A G
0114420 E . W A I T . R E L E A S E M S
0114440 G 006 001 ( Q U O T E ( " - -
0114460 R e l e a s e S H I F T f
0114500 o r m o r e - - " 2 1 5
0114520 ) ) ) \r \r ( R P A Q ? 006 002 P A
0114540 G E . W A I T . S T O P M S G 006
0114560 001 ( Q U O T E ( " - - S
0114600 c r o l l i n g S t o p p e d
0114620 - - " 1 6 9 ) ) ) \r ( D E
0114640 C L A R E : D O E V A L @ C O
0114660 M P I L E D O N T C O P Y \r \r
0114700 ( G L O B A L V A R S P A G E
0114720 . W A I T . S E C O N D S P A
0114740 G E . W A I T . A C T I V I T Y
0114760 P A G E . W A I T . I G N O R
0115000 E T Y P E A H E A D P A G E .
0115020 W A I T . F O N T \r \t
0115040 P A G E . W A I T . H O L D M S
0115060 G P A G E . W A I T . R E L E
0115100 A S E M S G P A G E . W A I T
0115120 . S T O P M S G ) \r ) \r ( D E C
0115140 L A R E : D O N T C O P Y \r
0115160 ( D E C L A R E : E V A L @ C
0115200 O M P I L E \r \r 006 001 ( P U T P
0115220 R O P S 006 004 S H I F T D O W N
0115240 ? 006 002 M A C R O 006 001 ( N I L
0115260 \r 006 001 ( 006 001 O R 006 001 ( 006 001
0115300 K E Y D O W N P 006 001 ( 006 001 Q U
0115320 O T E 006 001 L S H I F T ) ) \r
0115340 ( 006 001 K E Y D O W N P
0115360 006 001 ( 006 001 Q U O T E 006 001 R S
0115400 H I F T ) ) ) ) ) \r \r 006 001 ( P U
0115420 T P R O P S 006 004 C T R L R E A
0115440 L L Y D O W N ? 006 002 M A C R O
0115460 006 001 ( ( N ) \r 006 001 ( 006 001 A
0115500 N D 006 001 ( 006 001 K E Y D O W N P
0115520 006 001 ( 006 001 Q U O T E 006 001 C T
0115540 R L ) ) \r ( 006 001 P
0115560 R O G N 006 001
0115600
*
0115640 006 003 ( * C o n s i
0115660 d e r i t a s p a z z i
0115700 f h e d i d n ' t k e e p
0115720 t h e C T R L k e y 006 001
0115740 \r \t \t \t \t \t \t \t 006 003 d
0115760 o w n f o r a t l e a s t
0116000 N m i l l i s e c o n d s )
0116020 006 001 \r \t ( 006 001 \ D I
0116040 S M I S S . W I T H O U T . B L
0116060 O C K I N G 006 001 N \ P A G E
0116100 H O L D . D I S M I S S . T I M
0116120 E R ) \r \t ( 006 001 K E
0116140 Y D O W N P 006 001 ( 006 001 Q U O T
0116160 E 006 001 C T R L ) ) ) ) ) ) \r )
0116200 \r \r [ D E C L A R E : E V A L
0116220 @ C O M P I L E \r \r ( R E C O
0116240 R D 006 002 P A G E H O L D B U T
0116260 T O N 006 001 ( T I M E R S A C
0116300 T I V I T Y B U T T O N I M A
0116320 G E P A G E H O L D B U T T O
0116340 N W I D T H ) ) \r \r ( R E C O R
0116360 D 006 002 P A G E H O L D M S G 006
0116400 001 ( M S G W I D T H ) ) \r ]
0116420 \r ) \r \r ( R P A Q Q 006 002 H o l
0116440 d i n g B u t t o n M e n u 006 001
0116460 N I L ) \r \r ( R P A Q 006 002 H
0116500 o l d B u t t o n B o t t o m L
0116520 i n e 006 001 ( F O N T D E S C E
0116540 N T P A G E . W A I T . F O N
0116560 T ) ) \r \r ( R P A Q 006 002 T i t
0116600 l e B a r H e i g h t 006 001 ( F
0116620 O N T H E I G H T ( D S P F O
0116640 N T N I L W i n d o w T i t
0116660 l e D i s p l a y S t r e a m )
0116700 ) ) \r \r ( R P A Q 006 002 \ P A G
0116720 E H O L D . D I S M I S S . T I
0116740 M E R 006 001 ( S E T U P T I M E
0116760 R 0 ) ) \r ( D E C L A R E :
0117000 D O E V A L @ C O M P I L E D
0117020 O N T C O P Y \r \r ( G L O B A L
0117040 V A R S H o l d i n g B u t t
0117060 o n M e n u H o l d B u t t o
0117100 n B o t t o m L i n e T i t l
0117120 e B a r H e i g h t \ P A G E
0117140 H O L D . D I S M I S S . T I M
0117160 E R ) \r ) \r ( D E F I N E Q \r \r
0117200 ( 006 004 E N D . O F . P A G E . H
0117220 O L D 006 001 \r ( L A M B D A
0117240 ( S T R E A M )
0117260
*
0117320 006 003 ( * J o n L " 1
0117340 - D e c - 8 4 1 6 : 3 8 " ) 006
0117360 001 \r ( 006 002 L E T * 006 001
0117400 ( ( W I N D O W ( 006 001 W F R O
0117420 M D S 006 001 ( 006 002 i f 006 001 ( 006
0117440 001 N U L L 006 001 S T R E A M ) \r
0117460 \t \t \t \t 006 002 t h e n 006 001 ( 006 001
0117500 T T Y D I S P L A Y S T R E A M
0117520 006 001 ) \r \t \t \t 006 002 e
0117540 l s e 006 001 ( 006 001 \ D T E S T 006
0117560 001 S T R E A M ( 006 001 Q U O T
0117600 E 006 001 S T R E A M ) ) ) ) ) \r
0117620 ( W A I T
0117640 . S E C S ( 006 001 O R 006 001 ( 006
0117660 001 W I N D O W P R O P 006 001 W I
0117700 N D O W ( 006 001 Q U O T E 006 001
0117720 P A G E . W A I T . S E C O N D
0117740 S ) ) \r \t \t \t P A G E . W A
0117760 I T . S E C O N D S ) ) ) \r
0120000 ( 006 002 D E C L A R E 006
0120020 001 ( 006 001 S P E C V A R S 006 001
0120040 W I N D O W W A I T . S E C S
0120060 ) ) \r ( 006 002 i f 006
0120100 001 ( 006 001 O R 006 001 ( 006 001 N U L
0120120 L 006 001 W A I T . S E C S ) \r \t
0120140 ( 006 001 A N D 006 001
0120160 ( 006 001 N O T 006 001 ( 006 001 F I X P
0120200 006 001 W A I T . S E C S ) ) \r \t
0120220 \t ( 006 001 N E Q 006 001 W A
0120240 I T . S E C S ( 006 001 Q U O T E
0120260 006 001 S T O P ) ) ) ) \r \t
0120300 006 002 t h e n 006 001
0120320
*
0120360 006 003 ( * I f w e
0120400 ' r e l o s i n g b e c a u
0120420 s e o f a n i n v a l i d
0120440 v a l u e i n 006 001 \r \t \t \t
0120460 \t \t \t \t 006 003 P A G E .
0120500 W A I T . S E C O N D S t h e
0120520 n t r y t o f i x i t
0120540 u p . ) 006 001 \r \t \t ( 006 002 i f 006 001
0120560 ( 006 001 N U L L 006 001 ( 006 001 W I
0120600 N D O W P R O P 006 001 W I N D O
0120620 W ( 006 001 Q U O T E 006 001 P A G
0120640 E . W A I T . S E C O N D S ) )
0120660 ) \r \t \t 006 002 t h e n 006 001
0120700 ( 006 001 S E T Q 006 001 P A G E .
0120720 W A I T . S E C O N D S 0 ) )
0120740 \r \t \t T \r \t 006 002 e l s e i f 006
0120760 001 ( 006 001 A N D 006 001 ( 006 001 N O
0121000 T 006 001 ( S H I F T D O W N ? )
0121020 ) \r \t \t ( 006 001 N E Q 006
0121040 001 W A I T . S E C S ( 006 001 Q
0121060 U O T E 006 001 S T O P ) ) \r \t \t
0121100 ( 006 001 O R 006 001 ( 006 001
0121120 I L E S S P 006 001 W A I T . S E
0121140 C S 1 ) \r \t \t \t ( C T R L R
0121160 E A L L Y D O W N ? 1 2 5 ) \r
0121200 \t \t \t ( 006 001 A N D 006 001 ( 006 001
0121220 N O T 006 001 P A G E . W A I T .
0121240 I G N O R E T Y P E A H E A D )
0121260 \r \t \t \t ( 006 001 E Q 006
0121300 001 ( 006 001 T H I S . P R O C E S
0121320 S 006 001 ) \r \t \t \t \t ( 006 001 T T
0121340 Y . P R O C E S S 006 001 ) ) \r \t \t
0121360 \t ( 006 001 R E A D P 006
0121400 001 T ) ) ) ) \r \t 006 002 t h
0121420 e n 006 001
0121440
*
0121500 006 003 ( * I m m e d i a t e
0121520 r e l e a s e c a s e ) 006 001
0121540 \r \t \t T \r \t 006 002 e l s e 006 001 \r
0121560 \t ( 006 001 R E S E T L S T 006 001
0121600
*
0121640 006 003 ( * A
0121660 R E S E T L S T s o t h a
0121700 t t h e b u t t o n c a n
0121720 b e f o r c e d d o w n ,
0121740 006 001 \r \t \t \t \t \t \t \t
0121760 006 003 r e g a r d l e s s o f
0122000 h o w t h i n g s g o t e
0122020 x i t e d ) 006 001 \r \t ( 006
0122040 002 L E T * 006 001 ( ( C U R R E N
0122060 T B U T T O N ( G E T R E S O
0122100 U R C E P A G E H O L D B U T
0122120 T O N ( 006 001 O R 006 001 ( 006 001 W
0122140 I N D O W P R O P 006 001 W I N D
0122160 O W ( 006 001 Q U O T E 006 001 \r \t
0122200 \t \t \t \t \t \t \t \t P
0122220 A G E . W A I T . A C T I V I T
0122240 Y ) ) \r \t \t \t \t \t \t \t \t P A
0122260 G E . W A I T . A C T I V I T Y
0122300 ) ) ) \r
0122320 ( B O R D E R S I
0122340 Z E ( 006 001 O R 006 001 ( 006 001 F I
0122360 X P 006 001 ( 006 001 W I N D O W P R
0122400 O P 006 001 W I N D O W ( 006 001 Q
0122420 U O T E 006 001 B O R D E R ) ) )
0122440 \r \t \t \t \t 0 ) ) \r
0122460 (
0122500 R E G ( 006 001 W I N D O W P R O
0122520 P 006 001 W I N D O W ( 006 001 Q U
0122540 O T E 006 001 R E G I O N ) ) ) \r
0122560
0122600 ( L E F T ( 006 001 I D I F
0122620 F E R E N C E 006 001 ( 006 001 I D I
0122640 F F E R E N C E 006 001 ( 006 002 f e
0122660 t c h 006 001 ( R E G I O N P R
0122700 I G H T ) 006 002 o f 006 001 R E G
0122720 ) \r \t \t \t \t \t \t B O R D E
0122740 R S I Z E ) \r \t \t \t \t
0122760 ( 006 002 f e t c h 006 001 P A G E
0123000 H O L D B U T T O N W I D T H
0123020 006 002 o f 006 001 C U R R E N T B U
0123040 T T O N ) ) ) \r
0123060 ( B O T T
0123100 O M ( 006 001 I D I F F E R E N C
0123120 E 006 001 ( 006 002 f e t c h 006 001 (
0123140 R E G I O N P T O P ) 006 002 o
0123160 f 006 001 R E G ) \r \t \t \t \t \t ( 006
0123200 001 I P L U S 006 001 T i t l e B a
0123220 r H e i g h t B O R D E R S I
0123240 Z E ) ) ) \r
0123260 ( B U T T O N
0123300 . W I N D O W ( 006 002 f e t c h
0123320 006 001 B U T T O N I M A G E 006
0123340 002 o f 006 001 C U R R E N T B U T
0123360 T O N ) ) ) \r
0123400 ( 006 002 i f 006 001 ( 006
0123420 001 I G R E A T E R P 006 001 L E F
0123440 T ( 006 001 I D I F F E R E N C E
0123460 006 001 S C R E E N W I D T H 2
0123500 5 ) ) \r \t \t 006 002 t h e n 006
0123520 001
0123540
0123560 006 003 ( * I f t
0123600 h e r i g h t e d g e o f
0123620 t h e w i n d o w i s a
0123640 l m o s t o f f t h e 006 001
0123660 \r \t \t \t \t \t \t \t 006 003 s
0123700 c r e e n t h e n p u t t
0123720 h e " b u t t o n " o n t
0123740 h e l e f t s i d e . ) 006 001
0123760 \r \t \t \t ( 006 001 S E T Q 006 001 L E
0124000 F T ( 006 001 I P L U S 006 001 B O
0124020 R D E R S I Z E ( 006 002 f e t c
0124040 h 006 001 ( R E G I O N L E F T
0124060 ) 006 002 o f 006 001 R E G ) ) ) )
0124100 \r \t ( 006 002 i f 006 001
0124120 ( 006 001 I G R E A T E R P 006 001
0124140 B O T T O M ( 006 001 I D I F F E
0124160 R E N C E 006 001 S C R E E N H E
0124200 I G H T 1 2 ) ) \r \t \t 006
0124220 002 t h e n 006 001
0124240
0124260 006 003 (
0124300 * I f t h e t o p o f
0124320 t h e w i n d o w i s a l
0124340 m o s t o f f t h e s c r
0124360 e e n 006 001 \r \t \t \t \t \t \t \t
0124400 006 003 t h e n p u t t h
0124420 e " b u t t o n " o n t h
0124440 e b o t t o m . ) 006 001 \r \t \t \t
0124460 ( 006 001 S E T Q 006 001 B O T T O M
0124500 ( 006 001 I P L U S 006 001 B O R D
0124520 E R S I Z E ( 006 001 I D I F F E
0124540 R E N C E 006 001 ( 006 002 f e t c h
0124560 006 001 ( R E G I O N B O T T O
0124600 M ) \r \t \t \t \t \t \t \t \t
0124620 006 002 o f 006 001 R E G ) \r \t \t
0124640 \t \t \t \t \t \t ( 006 001 W I N
0124660 D O W P R O P 006 001 ( 006 002 f e t
0124700 c h 006 001 B U T T O N I M A G E
0124720 \r \t \t \t \t \t \t \t \t \t \t 006 002
0124740 o f 006 001 C U R R E N T B U T T
0124760 O N ) \r \t \t \t \t \t \t \t \t \t \t ( 006
0125000 001 Q U O T E 006 001 H E I G H T )
0125020 ) ) ) ) ) \r \t ( 006
0125040 001 P R O G 006 001 ( ( I N F I N I
0125060 T Y M A X . F I X P ) \r \t \t
0125100 ( B U T T O N . W I N
0125120 D O W ( 006 002 f e t c h 006 001 B
0125140 U T T O N I M A G E 006 002 o f 006
0125160 001 C U R R E N T B U T T O N )
0125200 ) \r \t \t ( A C T I V
0125220 I T Y ( 006 002 f e t c h 006 001 A
0125240 C T I V I T Y 006 002 o f 006 001 C
0125260 U R R E N T B U T T O N ) ) \r \t
0125300 \t ( F I R S T I M E
0125320 P T ) \r \t \t ( M E
0125340 S S A G E S T A T E 1 ) \r \t \t
0125360 F L A S H I N T E R
0125400 V A L M E S S A G E S T A T E
0125420 I N I T S T O P F L G I N D
0125440 E F I N I T E H O L D H O L D
0125460 P R O P W A I T T I M E R \r
0125500 \t \t F L A S H T I M
0125520 E R M E N U S I G N A L T I
0125540 M E R S L S T ) \r \t \t
0125560 ( 006 001 W I N D O W P R O P 006 001
0125600 B U T T O N . W I N D O W ( 006
0125620 001 Q U O T E 006 001 E N D . O F .
0125640 P A G E . H O L D ) \r \t \t \t \t
0125660 T ) \r \t \t ( 006 001 M O V
0125700 E W 006 001 B U T T O N . W I N D
0125720 O W L E F T B O T T O M ) \r
0125740 \t \t ( 006 001 D S P R E S
0125760 E T 006 001 B U T T O N . W I N D
0126000 O W ) \r \t \t ( 006 001 R E
0126020 S E T S A V E 006 001 ( 006 001 P R O
0126040 G N 006 001 B U T T O N . W I N D
0126060 O W ) \r \t \t \t \t ( 006 001 Q U O T E
0126100 006 001 ( 006 001 A N D 006 001 ( 006 001 W
0126120 I N D O W P 006 001 O L D V A L U
0126140 E ) \r \t \t \t \t \t ( 006 001 C
0126160 L O S E W 006 001 O L D V A L U E
0126200 ) ) ) ) \r \t \t ( 006 001 O
0126220 P E N W 006 001 B U T T O N . W I
0126240 N D O W ) \r \t \t I N I T I A L
0126260 I Z E T I M E R S \r \t \t
0126300 ( 006 001 S E T Q 006 001 T I M E R
0126320 S L S T ( 006 002 f e t c h 006 001
0126340 T I M E R S 006 002 o f 006 001 C U
0126360 R R E N T B U T T O N ) ) \r \t \t
0126400 ( 006 001 S E T Q 006 001 F
0126420 L A S H T I M E R ( 006 001 S E T
0126440 U P T I M E R 006 001 0 ( 006 002 p
0126460 o p 006 001 T I M E R S L S T ) \r
0126500 \t \t \t \t \t \t ( 006 001 Q U O T E
0126520 006 001 T I C K S ) ) ) \r \t \t
0126540 ( 006 001 S E T Q 006 001 F L A
0126560 S H I N T E R V A L ( 006 002 i f
0126600 006 001 ( 006 001 E Q 006 001 A C T I V
0126620 I T Y ( 006 001 Q U O T E 006 001 F
0126640 L A S H I N G ) ) \r \t \t \t \t \t
0126660 006 002 t h e n 006 001 ( 006 001
0126700 S E T Q 006 001 M E S S A G E S T
0126720 A T E I N I T 4 ) \r \t \t \t \t \t
0126740 \t ( 006 001 S E L E C T C 006 001
0126760 \ M A C H I N E T Y P E \r \t \t \t
0127000 \t \t \t \t ( \ D A N D E L I
0127020 O N ( 006 001 C O N S T A N T 006 001
0127040 ( 006 001 T I M E S 006 001 1 2 5 0
0127060 \r \t \t \t \t \t \t \t \t \t \ D
0127100 L I O N . R C L K M I L L I S E
0127120 C O N D ) ) ) \r \t \t \t \t \t \t \t
0127140 ( 006 001 C O N S T A N T 006 001
0127160 ( 006 001 T I M E S 006 001 1 2 5 0
0127200 \r \t \t \t \t \t \t \t \t \t \ A
0127220 L T O . R C L K M I L L I S E C
0127240 O N D ) ) ) \r \t \t \t \t \t 006
0127260 002 e l s e 006 001
0127300 006 003 ( * S o i t '
0127320 s W I N K I N G o r N I L
0127340 ) 006 001 \r \t \t \t \t \t \t ( 006 001 S E T
0127360 Q 006 001 M E S S A G E S T A T E
0127400 I N I T 2 ) \r \t \t \t \t \t \t ( 006
0127420 001 S E L E C T C 006 001 \ M A C H
0127440 I N E T Y P E \r \t \t \t \t \t \t \t
0127460 ( \ D A N D E L I O N ( 006 001 C
0127500 O N S T A N T 006 001 ( 006 001 T I M
0127520 E S 006 001 7 5 0 \r \t \t \t \t \t \t
0127540 \t \t \t \ D L I O N . R C L
0127560 K M I L L I S E C O N D ) ) ) \r
0127600 \t \t \t \t \t \t \t ( 006 001 C O N S T
0127620 A N T 006 001 ( 006 001 T I M E S 006 001
0127640 7 5 0 \ A L T O . R C L K M
0127660 I L L I S E C O N D ) ) ) \r \t \t
0127700 \t \t \t ) ) \r \t \t
0127720 ( 006 001 S E T Q 006 001 W A I T
0127740 T I M E R ( 006 002 i f 006 001 ( 006
0127760 001 E Q 006 001 W A I T . S E C S
0130000 ( 006 001 Q U O T E 006 001 S T O P )
0130020 ) \r \t \t \t \t \t 006 002 t h e n 006 001
0130040
0130060 006 003 ( * I n i t i a l i z a t
0130100 i o n d o n e i n c a s e
0130120 a m e n u s e l e c t i o
0130140 n c h a n g e s 006 001 \r \t \t \t \t
0130160 \t \t \t 006 003 s t a t e )
0130200 006 001 \r \t \t \t \t \t ( 006
0130220 001 S E T Q 006 001 F I R S T I M E
0130240 P ( 006 001 S E T Q 006 001 S T O P
0130260 F L G T ) ) \r \t \t \t \t \t
0130300 ( 006 001 S E T Q 006 001 M E S
0130320 S A G E S T A T E ( 006 001 S E T
0130340 Q 006 001 M E S S A G E S T A T E
0130360 I N I T 1 ) ) \r \t \t \t \t \t
0130400 N I L \r \t \t \t \t
0130420 006 002 e l s e 006 001 ( 006 001 S
0130440 E T Q 006 001 S T O P F L G ) \r \t
0130460 \t \t \t \t ( 006 001 S E T U P
0130500 T I M E R 006 001 W A I T . S E C
0130520 S ( 006 002 p o p 006 001 T I M E R
0130540 S L S T ) \r \t \t \t \t \t \t \t ( 006 001
0130560 Q U O T E 006 001 S E C O N D S )
0130600 ) ) ) \r \t \t ( 006 001 A N
0130620 D 006 001 I N D E F I N I T E H O
0130640 L D ( 006 001 B L O C K 006 001 3 7
0130660 5 ) ) \r \t \t L O O P ( 006 002 i f
0130700 006 001 F L A S H T I M E R \r \t \t
0130720 \t 006 002 t h e n 006 001 ( 006 002 i f
0130740 006 001 ( 006 001 A N D 006 001 ( S H I
0130760 F T D O W N ? ) \r \t \t \t \t
0131000 ( 006 001 O R 006 001 ( 006 001 N
0131020 U L L 006 001 I N D E F I N I T E
0131040 H O L D ) \r \t \t \t \t \t ( 006
0131060 001 T I M E R E X P I R E D ? 006 001
0131100 I N D E F I N I T E H O L D
0131120 ( 006 001 Q U O T E 006 001 S E C O N
0131140 D S ) ) ) \r \t \t \t \t
0131160 ( 006 001 N O T 006 001 S T O P F L
0131200 G ) ) \r \t \t \t \t 006 002 t h e n
0131220 006 001
0131240 006 003 ( * L o
0131260 c k i n o n h o l d i n g
0131300 m e s s a g e w h i l e S
0131320 H I F T i s d o w n ) 006 001 \r
0131340 \t \t \t \t ( 006 001 D S
0131360 P R E S E T 006 001 B U T T O N .
0131400 W I N D O W ) \r \t \t \t \t
0131420 ( 006 001 \ P a g e H o l d .
0131440 p r i n t M e s s a g e 006 001 C
0131460 U R R E N T B U T T O N T P
0131500 A G E . W A I T . R E L E A S E
0131520 M S G ) \r \t \t \t \t
0131540 ( 006 001 S E T Q 006 001 W A I T T I
0131560 M E R ( 006 001 S E T Q 006 001 F L
0131600 A S H T I M E R ) ) \r \t \t \t \t 006
0131620 002 e l s e i f 006 001 ( 006 001 T I M
0131640 E R E X P I R E D ? 006 001 F L A
0131660 S H T I M E R ( 006 001 Q U O T E
0131700 006 001 T I C K S ) ) \r \t \t \t \t
0131720 006 002 t h e n 006 001 ( 006 002 i f 006
0131740 001 ( 006 001 O R 006 001 F I R S T I
0131760 M E P ( 006 001 A N D 006 001 A C T
0132000 I V I T Y ( 006 001 N O T 006 001 S
0132020 T O P F L G ) ) ) \r \t \t \t \t \t
0132040 006 002 t h e n 006 001 \r \t \t \t \t \t
0132060 ( 006 001 S E T Q 006 001 F I
0132100 R S T I M E P ) \r \t \t \t \t \t
0132120 ( 006 002 i f 006 001 ( 006 001 I L E
0132140 Q 006 001 ( 006 002 a d d 006 001 M E S
0132160 S A G E S T A T E - 1 ) \r \t \t
0132200 \t \t \t \t 0 ) \r \t \t \t
0132220 \t \t \t 006 002 t h e n 006 001 ( 006 001 \
0132240 P a g e H o l d . p r i n t M e
0132260 s s a g e 006 001 C U R R E N T B
0132300 U T T O N T \r \t \t \t \t \t \t \t \t
0132320 \t ( 006 002 i f 006 001 S T
0132340 O P F L G \r \t \t \t \t \t \t \t \t \t \t
0132360 006 002 t h e n 006 001 \r \t \t \t \t \t
0132400 \t \t \t \t \t P A G E . W A I T . S
0132420 T O P M S G \r \t \t \t \t \t \t \t \t \t
0132440 006 002 e l s e 006 001
0132460 \r \t \t \t \t \t \t \t \t \t P
0132500 A G E . W A I T . R E L E A S E
0132520 M S G ) ) \r \t \t \t \t \t \t
0132540 ( 006 001 S E T Q 006 001 M E S S A
0132560 G E S T A T E M E S S A G E S
0132600 T A T E I N I T ) \r \t \t \t \t \t
0132620 006 002 e l s e i f 006 001
0132640 I N D E F I N I T E H O L D \r \t
0132660 \t \t \t \t \t 006 002 t h e n 006 001 ( 006
0132700 001 D S P R E S E T 006 001 B U T T
0132720 O N . W I N D O W ) \r \t \t \t \t \t
0132740 006 002 e l s e 006 001 (
0132760 006 001 S E L E C T Q 006 001 A C T I
0133000 V I T Y \r \t \t \t \t \t \t \t
0133020 ( W I N K I N G ( 006 001 \ P a g
0133040 e H o l d . p r i n t M e s s a
0133060 g e 006 001 \r \t \t \t \t \t \t \t \t \t \t
0133100 C U R R E N T B U T T O
0133120 N N I L \r \t \t \t \t \t \t \t \t \t
0133140 \t P A G E . W A I T . H O L D M
0133160 S G ) ) \r \t \t \t \t \t \t \t
0133200 ( F L A S H I N G \r \t \t \t \t \t \t
0133220 \t ( 006 002 i f 006 001 (
0133240 006 001 O D D P 006 001 M E S S A G E
0133260 S T A T E ) \r \t \t \t \t \t \t \t \t
0133300 006 002 t h e n 006 001 ( 006 001 D S P
0133320 R E S E T 006 001 B U T T O N . W
0133340 I N D O W ) \r \t \t \t \t \t \t \t \t 006
0133360 002 e l s e 006 001 ( 006 001 \ P a g e
0133400 H o l d . p r i n t M e s s a g
0133420 e 006 001 \r \t \t \t \t \t \t \t \t
0133440 C U R R E N T B U T T O N
0133460 N I L \r \t \t \t \t \t \t \t \t
0133500 ( 006 002 i f 006 001 ( 006 001 I
0133520 G E Q 006 001 M E S S A G E S T A
0133540 T E 2 ) \r \t \t \t \t \t \t \t \t \t
0133560 006 002 t h e n 006 001 P A G E .
0133600 W A I T . H O L D M S G \r \t \t \t
0133620 \t \t \t \t \t \t 006 002 e l s e 006 001
0133640 P A G E . W A I T . R E L E A S
0133660 E M S G ) ) ) ) \r \t \t \t \t \t \t \t
0133700 N I L ) ) \r \t \t \t \t \t
0133720 006 002 e l s e 006 001
0133740 006 003 ( * M a k
0133760 e s u r e t h e b u t t o
0134000 n c o n t i n u e s t o b
0134020 e v i s i b l e , e v e n
0134040 006 001 \r \t \t \t \t \t \t \t 006
0134060 003 w h e n t h e r e i s n
0134100 o a c t i v i t y ) 006 001 \r \t \t
0134120 \t \t \t ( 006 001 T O T O
0134140 P W 006 001 B U T T O N . W I N D
0134160 O W ) ) \r \t \t \t \t
0134200 ( 006 001 S E T Q 006 001 F L A S H T
0134220 I M E R ( 006 001 S E T U P T I M
0134240 E R 006 001 F L A S H I N T E R V
0134260 A L F L A S H T I M E R \r \t \t
0134300 \t \t \t \t \t \t ( 006 001 Q U O
0134320 T E 006 001 T I C K S ) ) ) ) ) \r
0134340 \t \t ( 006 001 B L O C K 006
0134360 001 ) \r \t \t ( 006 001 S E L
0134400 E C T Q 006 001 ( 006 001 S E T Q 006 001
0134420 H O L D P R O P ( 006 001 W I N
0134440 D O W P R O P 006 001 B U T T O N
0134460 . W I N D O W ( 006 001 Q U O T E
0134500 006 001 E N D . O F . P A G E . H
0134520 O L D ) ) ) \r \t \t \t
0134540 ( ( N I L E N D . O F . P A G
0134560 E . H O L D ) 006
0134600 003 ( * R e l e a s e b y s
0134620 i m p l e L E F T m o u s i
0134640 n g ) 006 001 \r \t \t \t \t ( 006 001 R E T
0134660 U R N 006 001 T ) ) \r \t \t \t
0134700 ( ( 006 001 M E N U 006 001 )
0134720
0134740 006 003 ( * A h a ,
0134760 s o m e i n t e r v e n t i o
0135000 n v i a M E N U s o f i
0135020 r s t r e s t o r e t h e 006
0135040 001 \r \t \t \t \t \t \t \t 006 003
0135060 w i n d o w p r o p t o t h
0135100 e " w a i t i n g " s t a t
0135120 e . ) 006 001 \r \t \t \t \t ( 006 001 W I N
0135140 D O W P R O P 006 001 B U T T O N
0135160 . W I N D O W ( 006 001 Q U O T E
0135200 006 001 E N D . O F . P A G E . H
0135220 O L D ) \r \t \t \t \t \t T )
0135240 \r \t \t \t \t ( 006 001 S E L E C T Q 006
0135260 001 ( 006 001 S E T Q 006 001 M E N U
0135300 S I G N A L ( 006 001 \ P a g e H
0135320 o l d . d o M e n u 006 001 ) ) \r \t
0135340 \t \t \t \t ( 006 001 E N D . O F . P
0135360 A G E . H O L D 006 001 ( 006 001 R E
0135400 T U R N 006 001 T ) ) \r \t \t \t \t \t
0135420 ( P A G E . W A I T . S E C O
0135440 N D S ( 006 001 F R E S H L I N E
0135460 006 001 P R O M P T W I N D O W )
0135500 \r \t \t \t \t \t \t \t ( 006 001 S
0135520 E T Q 006 001 W A I T . S E C S \r
0135540 \t \t \t \t \t \t \t ( 006 001
0135560 M K A T O M 006 001 ( 006 001 P R O M
0135600 P T F O R W O R D 006 001 \r \t \t \t
0135620 \t \t \t " D e f a u l t h
0135640 o l d i n g t i m e l i m i t
0135660 f o r t h i s w i n d o w
0135700 = " \r \t \t \t \t \t \t \t \t \t \t
0135720 W A I T . S E C S N I
0135740 L \r \t \t \t \t \t \t \t \t \t \t
0135760 P R O M P T W I N D O W N
0136000 I L \r \t \t \t \t \t \t \t \t \t \t
0136020 3 0 ) ) ) \r \t \t \t \t \t \t \t
0136040 ( 006 002 i f 006 001 ( 006 001 N
0136060 U M B E R P 006 001 W A I T . S E
0136100 C S ) \r \t \t \t \t \t \t \t \t 006 002 t h
0136120 e n 006 001 ( 006 001 S E T Q 006 001 W
0136140 A I T . S E C S ( 006 001 F I X 006
0136160 001 W A I T . S E C S ) ) \r \t \t
0136200 \t \t \t \t \t 006 002 e l s
0136220 e i f 006 001 ( 006 001 E Q 006 001 W A
0136240 I T . S E C S ( 006 001 Q U O T E
0136260 006 001 S T O P ) ) \r \t \t \t \t \t \t
0136300 \t 006 002 e l s e 006 001
0136320 ( 006 001 S E T Q 006 001 W A I T . S
0136340 E C S ) ) \r \t \t \t \t \t \t \t
0136360 ( 006 001 W I N D O W P R O P 006 001
0136400 W I N D O W ( 006 001 Q U O T E
0136420 006 001 \r \t \t \t \t \t \t \t \t \t \t P A
0136440 G E . W A I T . S E C O N D S )
0136460 \r \t \t \t \t \t \t \t \t \t W A I T . S
0136500 E C S ) \r \t \t \t \t \t \t \t
0136520 ( 006 001 S E L E C T Q 006 001 W A I
0136540 T . S E C S \r \t \t \t \t \t \t \t \t
0136560 ( 0 ( 006 001 R E T U R N
0136600 006 001 T ) ) \r \t \t \t \t \t \t \t \t
0136620 ( N I L ( 006 001 S E T Q
0136640 006 001 W A I T . S E C S \r \t \t
0136660 \t \t \t \t \t \t \t P A G E .
0136700 W A I T . S E C O N D S ) ) \r \t
0136720 \t \t \t \t \t \t \t N I L )
0136740 \r \t \t \t \t \t \t \t ( 006 001 G
0136760 O 006 001 I N I T I A L I Z E T I
0137000 M E R S ) ) \r \t \t \t \t \t ( ( 0
0137020 I N F I N I T Y D E F A U L
0137040 T S T O P ) \r \t \t \t \t \t
0137060 ( 006 001 S E T Q 006 001 W A I T . S
0137100 E C S ( 006 001 S E L E C T Q 006 001
0137120 M E N U S I G N A L \r \t \t \t \t
0137140 \t \t \t \t ( 0 0 ) \r \t \t
0137160 \t \t \t \t \t \t ( I N F I N
0137200 I T Y I N F I N I T Y ) \r \t \t
0137220 \t \t \t \t \t \t ( D E F A U
0137240 L T P A G E . W A I T . S E C
0137260 O N D S ) \r \t \t \t \t \t \t \t \t
0137300 ( S T O P ( 006 001 Q U O T E
0137320 006 001 S T O P ) ) \r \t \t \t \t \t \t
0137340 \t \t N I L ) ) \r \t \t \t \t
0137360 \t ( 006 001 F L A S H W I N D
0137400 O W 006 001 W I N D O W ) \r \t \t \t
0137420 \t \t ( 006 001 P R O M P T P R
0137440 I N T 006 001 \r \t \t \t \t \t \t "
0137460 S e t t i n g D e f a u l t
0137500 t i m e l i m i t f o r t h
0137520 i s w i n d o w t o " \r \t
0137540 \t \t \t \t \t \t M E N U S I G N A L
0137560 ) \r \t \t \t \t \t ( 006 001 W I N
0137600 D O W P R O P 006 001 W I N D O W
0137620 ( 006 001 Q U O T E 006 001 P A G E
0137640 . W A I T . S E C O N D S ) \r \t
0137660 \t \t \t \t \t ( 006 001 A
0137700 N D 006 001 ( 006 001 N E Q 006 001 M E
0137720 N U S I G N A L ( 006 001 Q U O T
0137740 E 006 001 D E F A U L T ) ) \r \t \t
0137760 \t \t \t \t \t W A I T . S E
0140000 C S ) ) \r \t \t \t \t \t ( 006 002
0140020 i f 006 001 ( 006 001 E Q 006 001 0 W
0140040 A I T . S E C S ) \r \t \t \t \t \t
0140060 006 002 t h e n 006 001 (
0140100 006 001 R E T U R N 006 001 ) \r \t \t \t \t
0140120 \t 006 002 e l s e 006 001 (
0140140 006 001 G O 006 001 I N I T I A L I Z
0140160 E T I M E R S ) ) ) \r \t \t \t \t \t
0140200 ( T ( 006 001 G O 006 001 S E T U
0140220 P I N D E F I N I T E H O L D )
0140240 ) \r \t \t \t \t \t ( ( P A G E . W
0140260 A I T . S T O P M S G ) \r \t \t \t
0140300 \t \t ( 006 001 S E T Q 006 001 W
0140320 A I T . S E C S ( 006 001 Q U O T
0140340 E 006 001 S T O P ) ) \r \t \t \t \t \t
0140360 ( 006 001 G O 006 001 I N I T I
0140400 A L I Z E T I M E R S ) ) \r \t \t
0140420 \t \t \t N I L ) ) \r \t \t \t
0140440 ( 006 002 i f 006 001 ( 006 001 A N
0140460 D 006 001 ( 006 001 N O T 006 001 P A G
0140500 E . W A I T . I G N O R E T Y P
0140520 E A H E A D ) \r \t \t \t \t
0140540 ( 006 001 E Q 006 001 ( 006 001 T H
0140560 I S . P R O C E S S 006 001 ) \r \t \t
0140600 \t \t \t ( 006 001 T T Y . P R O
0140620 C E S S 006 001 ) ) \r \t \t \t \t
0140640 ( 006 001 R E A D P 006 001 T
0140660 ) ) \r \t \t \t \t 006 002 t h e n 006
0140700 001
0140720 006 003 ( * F l u
0140740 s h t h e c h a r a c t e r
0140760 h e t y p e d t o " r e
0141000 l e a s e " ) 006 001 \r \t \t \t \t
0141020 ( 006 001 \ G E T K E Y 006
0141040 001 ) \r \t \t \t \t ( 006
0141060 001 R E T U R N 006 001 ) \r \t \t \t \t 006
0141100 002 e l s e i f 006 001 ( 006 001 A N D
0141120 006 001 ( 006 001 N O T 006 001 S T O P
0141140 F L G ) \r \t \t \t \t \t ( C
0141160 T R L R E A L L Y D O W N ? 1
0141200 2 5 ) ) \r \t \t \t \t 006 002 t h e
0141220 n 006 001 ( 006 002 i f 006 001 ( 006 001 N
0141240 O T 006 001 ( S H I F T D O W N ?
0141260 ) ) \r \t \t \t \t \t 006 002 t h e
0141300 n 006 001
0141320 006 003 ( * I f o n l y t h
0141340 e C T R L k e y i s d o
0141360 w n , t h e n i m m e d i a
0141400 t e 006 001 \r \t \t \t \t \t \t \t
0141420 006 003 r e l e a s e . ) 006 001 \r
0141440 \t \t \t \t \t \t ( 006 001 R E T U R N 006
0141460 001 ) \r \t \t \t \t \t 006 002 e l s e i
0141500 f 006 001 ( 006 001 O R 006 001 ( 006 001 N
0141520