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