$ od -c -N 50000 [eros]<Speech>USER.FKPG!2
0000000 ( F I L E C R E A T E D " 2
0000020 - J u l - 8 4 0 3 : 3 8 : 1 3
0000040 " 006 004 { P H Y L U M } < H A L
0000060 V O R S E N > S P E E C H > U S
0000100 E R . F P K G 006 001 1 7 2 8 0
0000120 \r \r c h a n g e
0000140 s t o : ( F N S U S E R
0000160 . I N I T U S E R . C R E A T
0000200 E . W I N D O W U S E R . C R
0000220 E A T E . M E N U ) ) \r \r \r ( *
0000240 C o p y r i g h t ( c ) 1
0000260 9 8 4 b y X e r o x C o r
0000300 p o r a t i o n . A l l r i
0000320 g h t s r e s e r v e d . ) \r
0000340 \r ( P R E T T Y C O M P R I N T
0000360 U S E R C O M S ) \r \r ( R P A
0000400 Q Q 006 002 U S E R C O M S 006 001
0000420 ( ( I N I T V A R S ( U S E R
0000440 . T R A J S N I L ) \r \t \t \t
0000460 ( U S E R . W I N D O W N
0000500 I L ) \r \t \t \t ( U S E R .
0000520 M E N U N I L ) \r \t \t \t
0000540 ( U S E R . T M I N 0 ) \r \t \t
0000560 \t ( U S E R . T M A X 7
0000600 0 0 ) \r \t \t \t ( U S E R .
0000620 V M I N 0 ) \r \t \t \t ( U
0000640 S E R . V M A X 2 0 0 ) \r \t \t
0000660 \t ( U S E R . P N A M E S
0000700 ' ( A V A S V F G P B G
0000720 P F G Z B G Z B G S S W
0000740 I T C H A F R I C A A S P I
0000760 R N C F F 0 A 1 B 1 \r
0001000 \t \t \t \t \t F 1 A 2
0001020 B 2 F 2 A 3 B 3 F 3 A
0001040 4 B 4 F 4 A 5 B 5 F 5
0001060 A 6 B 6 F 6 F N Z B N
0001100 Z \r \t \t \t \t \t A N P
0001120 F N P B N P A B G A I N
0001140 ) ) \r \t \t \t ( U S E R . D
0001160 E F A U L T . P V E C T O R N
0001200 I L ) \r \t \t \t ( U S E R .
0001220 M A X . P V E C T O R N I L )
0001240 \r \t \t \t ( U S E R . M I N
0001260 . P V E C T O R N I L ) \r \t \t
0001300 \t [ U S E R . C O M M A N
0001320 D . M E N U ( C R E A T E M
0001340 E N U I T E M S _ ' ( P R
0001360 O M P T & A D D P O I N T & A
0001400 D D \r \t \t \t \t \t \t \t \t \t \t P R
0001420 O M P T & D E L E T E \r \t \t \t
0001440 \t \t \t \t \t \t \t P O I N T & D E L
0001460 E T E \r \t \t \t \t \t \t \t \t \t \t P
0001500 O I N T & M O V E ] \r \t \t \t
0001520 ( U S E R . C O M M A N D '
0001540 A D D ) ) \r \t ( R E C O R D S
0001560 S P . P O I N T S P O I N T
0001600 S P O I N T 2 ) \r \t ( F N S U
0001620 S E R . D U R A T I O N U S E
0001640 R . C R E A T E . P V E C T O R
0001660 S U S E R . I N I T U S E R
0001700 . C R E A T E . T R A J S U S
0001720 E R . I N T E R P O L A T E \r
0001740 \t U S E R . I N T E R
0001760 P O L A T E . P N A M E U S E
0002000 R . C R E A T E . W I N D O W
0002020 U S E R . R E P A I N T F N U
0002040 S E R . B U T T O N E V E N T F
0002060 N \r \t U S E R . C R
0002100 E A T E . M E N U U S E R . W
0002120 H E N S E L E C T E D F N U S
0002140 E R . E D I T T R A J U S E R
0002160 . D R A W L I N E U S E R . E
0002200 R A S E L I N E \r \t
0002220 U S E R . D R A W P O I N T U
0002240 S E R . M I D D L E B U T T O N
0002260 F N U S E R . L E F T B U T T
0002300 O N F N U S E R . P R O M P T
0002320 & A D D U S E R . A D D P O I
0002340 N T \r \t U S E R . S
0002360 E T P V E C T O R ) \r \t ( P (
0002400 L O A D ? ' { P H Y L U M } <
0002420 L I S P C O R E > L I B R A R Y
0002440 > A T T A C H E D W I N D O W .
0002460 D C O M ) ) \r \t ( V A R S D E
0002500 F A U L T . P V E C T O R . B U
0002520 F F E R ) ) ) \r \r ( R P A Q ?
0002540 006 002 U S E R . T R A J S 006 001 N
0002560 I L ) \r \r ( R P A Q ? 006 002 U S
0002600 E R . W I N D O W 006 001 N I L )
0002620 \r \r ( R P A Q ? 006 002 U S E R .
0002640 M E N U 006 001 N I L ) \r \r ( R P
0002660 A Q ? 006 002 U S E R . T M I N 006
0002700 001 0 ) \r \r ( R P A Q ? 006 002 U
0002720 S E R . T M A X 006 001 7 0 0 ) \r
0002740 \r ( R P A Q ? 006 002 U S E R . V
0002760 M I N 006 001 0 ) \r \r ( R P A Q ?
0003000 006 002 U S E R . V M A X 006 001 2
0003020 0 0 ) \r \r ( R P A Q ? 006 002 U S
0003040 E R . P N A M E S 006 001 ' ( A V
0003060 A S V F G P B G P F G Z
0003100 B G Z B G S S W I T C H
0003120 A F R I C A A S P I R N C F
0003140 F 0 A 1 B 1 F 1 A 2
0003160 B 2 F 2 A 3 B 3 F 3 \r
0003200 \t \t \t A 4 B 4 F 4 A 5 B
0003220 5 F 5 A 6 B 6 F 6 F N
0003240 Z B N Z A N P F N P B N
0003260 P A B G A I N ) ) \r \r ( R P
0003300 A Q ? 006 002 U S E R . D E F A U
0003320 L T . P V E C T O R 006 001 N I L
0003340 ) \r \r ( R P A Q ? 006 002 U S E R
0003360 . M A X . P V E C T O R 006 001 N
0003400 I L ) \r \r ( R P A Q ? 006 002 U S
0003420 E R . M I N . P V E C T O R 006 001
0003440 N I L ) \r \r ( R P A Q ? 006 002
0003460 U S E R . C O M M A N D . M E N
0003500 U 006 001 ( C R E A T E M E N U
0003520 I T E M S _ ' ( P R O M P
0003540 T & A D D P O I N T & A D D
0003560 P R O M P T & D E L E T E P O
0003600 I N T & D E L E T E \r \t \t \t \t
0003620 \t \t \t P O I N T & M O V E
0003640 ) ) ) \r \r ( R P A Q ? 006 002 U S
0003660 E R . C O M M A N D 006 001 ' A D
0003700 D ) \r [ D E C L A R E : E V A
0003720 L @ C O M P I L E \r \r ( R E C
0003740 O R D 006 002 S P . P O I N T 006 001
0003760 ( T I M E V A L U E M B
0004000 ) ) \r \r ( R E C O R D 006 002 S P
0004020 O I N T 006 001 ( T I M E V A L
0004040 U E M B ) ) \r \r ( R E C O R
0004060 D 006 002 S P O I N T 2 006 001 ( T
0004100 I M E V A L U E ) ) \r ] \r ( D
0004120 E F I N E Q \r \r ( 006 004 U S E R .
0004140 D U R A T I O N 006 001 \r ( L A
0004160 M B D A ( P V E C T O R )
0004200
*
0004240 006 003 ( * p k h
0004260 : " 3 0 - M a y - 8 4 1 1 :
0004300 3 5 " ) 006 001 \r 7 0 0 ) )
0004320 \r \r ( 006 004 U S E R . C R E A T E
0004340 . P V E C T O R S 006 001 \r ( L
0004360 A M B D A N I L
0004400
*
0004440 006 003 ( * p k
0004460 h : " 2 9 - M a y - 8 4 1 3
0004500 : 2 0 " ) 006 001 \r ( P R O
0004520 G N I L \r
0004540 ( S E T Q U S E R . D E F A U
0004560 L T . P V E C T O R \r \t
0004600 ( 006 002 c r e a t e 006 001 P V E C
0004620 T O R \r \t \t A V _ 6
0004640 0 \r \t \t A S V _ 0 \r
0004660 \t \t A A S P I R _ 0
0004700 \r \t \t A F R I C _ 0
0004720 \r \t \t F 0 _ 1 2 0 \r
0004740 \t \t F G P _ 0 \r \t \t
0004760 B G P _ 1 0 0 \r \t \t
0005000 F G Z _ 1 5 0 0 \r \t
0005020 \t B G Z _ 6 0 0 0 \r
0005040 \t \t F N P _ 2 5 0 \r
0005060 \t \t B N P _ 1 0 0 \r
0005100 \t \t F N Z _ 2 5 0 \r
0005120 \t \t B N Z _ 1 0 0 \r
0005140 \t \t B G S _ 2 0 0 \r
0005160 \t \t F 1 _ 6 8 0 \r \t
0005200 \t B 1 _ 9 0 \r \t \t
0005220 F 2 _ 1 8 9 0 \r \t \t
0005240 B 2 _ 2 0 0 \r \t \t
0005260 F 3 _ 2 6 5 0 \r \t \t
0005300 B 3 _ 1 7 0 \r \t \t
0005320 F 4 _ 3 3 0 0 \r \t \t
0005340 B 4 _ 2 5 0 \r \t \t
0005360 F 5 _ 3 8 5 0 \r \t \t
0005400 B 5 _ 2 0 0 \r \t \t F
0005420 6 _ 4 9 0 0 \r \t \t B
0005440 6 _ 1 0 0 0 \r \t \t A
0005460 1 _ 0 \r \t \t A N P
0005500 _ 0 \r \t \t A 2 _ 0
0005520 \r \t \t A 3 _ 0 \r \t \t
0005540 A 4 _ 0 \r \t \t
0005560 A 5 _ 0 \r \t \t A 6
0005600 _ 0 \r \t \t A B _
0005620 0 \r \t \t S W I T C H _
0005640 ' C A S C A D E \r \t \t
0005660 G A I N _ 3 6 \r \t \t
0005700 N C F _ 5 ) ) \r
0005720 ( S E T Q U S E R . M
0005740 I N . P V E C T O R \r \t
0005760 ( 006 002 c r e a t e 006 001 P V E C
0006000 T O R \r \t \t A V _ 0
0006020 \r \t \t A S V _ 0 \r \t
0006040 \t A A S P I R _ 0 \r
0006060 \t \t A F R I C _ 0 \r
0006100 \t \t F 0 _ 0 \r \t \t
0006120 F G P _ 0 \r \t \t
0006140 B G P _ 5 0 \r \t \t
0006160 F G Z _ 7 5 0 \r \t \t
0006200 B G Z _ 3 0 0 0 \r \t \t
0006220 F N P _ 1 2 5 \r \t \t
0006240 B N P _ 5 0 \r \t \t
0006260 F N Z _ 2 5 0 \r \t \t
0006300 B N Z _ 5 0 \r \t \t B
0006320 G S _ 1 0 0 \r \t \t F
0006340 1 _ 2 0 0 \r \t \t B 1
0006360 _ 4 0 \r \t \t F 2 _
0006400 6 0 0 \r \t \t B 2 _
0006420 4 0 \r \t \t F 3 _ 1 3
0006440 0 0 \r \t \t B 3 _ 4 0
0006460 \r \t \t F 4 _ 1 6 5 0
0006500 \r \t \t B 4 _ 1 2 5 \r
0006520 \t \t F 5 _ 1 9 2 5 \r
0006540 \t \t B 5 _ 1 0 0 \r \t
0006560 \t F 6 _ 2 4 5 0 \r \t
0006600 \t B 6 _ 5 0 0 \r \t \t
0006620 A 1 _ 0 \r \t \t
0006640 A N P _ 0 \r \t \t A
0006660 2 _ 0 \r \t \t A 3 _
0006700 0 \r \t \t A 4 _ 0 \r
0006720 \t \t A 5 _ 0 \r \t \t
0006740 A 6 _ 0 \r \t \t
0006760 A B _ 0 \r \t \t S W I
0007000 T C H _ ' C A S C A D E \r \t
0007020 \t G A I N _ 0 \r \t \t
0007040 N C F _ 5 ) ) \r
0007060 ( S E T Q U S
0007100 E R . M A X . P V E C T O R \r \t
0007120 ( 006 002 c r e a t e 006 001
0007140 P V E C T O R \r \t \t A V
0007160 _ 8 0 \r \t \t A S V
0007200 _ 8 0 \r \t \t A A S P I
0007220 R _ 8 0 \r \t \t A F R
0007240 I C _ 8 0 \r \t \t F 0
0007260 _ 4 0 0 \r \t \t F G P
0007300 _ 5 0 0 \r \t \t B G P
0007320 _ 2 0 0 \r \t \t F G Z
0007340 _ 3 0 0 0 \r \t \t B G
0007360 Z _ 1 2 0 0 0 \r \t \t
0007400 F N P _ 5 0 0 \r \t \t
0007420 B N P _ 2 0 0 \r \t \t
0007440 F N Z _ 7 0 0 \r \t \t
0007460 B N Z _ 2 0 0 \r \t \t
0007500 B G S _ 4 0 0 \r \t \t
0007520 F 1 _ 9 0 0 \r \t \t B
0007540 1 _ 5 0 0 \r \t \t F 2
0007560 _ 2 4 0 0 \r \t \t B 2
0007600 _ 5 0 0 \r \t \t F 3
0007620 _ 3 1 0 0 \r \t \t B 3
0007640 _ 5 0 0 \r \t \t F 4 _
0007660 6 6 0 0 \r \t \t B 4 _
0007700 5 0 0 \r \t \t F 5 _
0007720 7 7 0 0 \r \t \t B 5 _
0007740 4 0 0 \r \t \t F 6 _ 9
0007760 8 0 0 \r \t \t B 6 _ 2
0010000 0 0 0 \r \t \t A 1 _ 8
0010020 0 \r \t \t A N P _ 8 0
0010040 \r \t \t A 2 _ 8 0 \r \t
0010060 \t A 3 _ 8 0 \r \t \t
0010100 A 4 _ 8 0 \r \t \t
0010120 A 5 _ 8 0 \r \t \t A
0010140 6 _ 8 0 \r \t \t A B
0010160 _ 8 0 \r \t \t S W I T C
0010200 H _ ' C A S C A D E \r \t \t
0010220 G A I N _ 1 0 0 \r \t \t
0010240 N C F _ 5 ) ) ) ) )
0010260 \r \r ( 006 004 U S E R . I N I T 006 001
0010300 \r [ L A M B D A ( N E W F
0010320 L G )
0010340
0010360 006 003
0010400 ( * p k h : " 2 - J u l -
0010420 8 4 0 2 : 1 1 " ) 006 001 \r
0010440 ( P R O G ( M I N M A X C
0010460 )
0010500
0010520 006 003 ( * C
0010540 O N D ( ( A N D N E W F L G
0010560 ( N E Q ( E V A L V 006 001 \r
0010600 \t \t \t \t \t \t \t 006 003 ( Q
0010620 U O T E S C O P E . W I N D O
0010640 W ) ) ( Q U O T E N O B I N
0010660 D ) ) 006 001 \r \t \t \t \t \t \t \t
0010700 006 003 ( W I N D O W P U S
0010720 E R . W I N D O W ) ) ( C L O
0010740 S E W U S E R . W I N D O W )
0010760 ) ) 006 001 \r (
0011000 S E T Q U S E R . W I N D O W
0011020 ( 006 002 U S E R . C R E A T E .
0011040 W I N D O W 006 001 ) ) \r
0011060 ( S E T Q U S E R .
0011100 M E N U ( 006 002 U S E R . C R E
0011120 A T E . M E N U 006 001 ) ) \r
0011140 ( S C A L E D . W
0011160 I N D O W . S E T U P U S E R
0011200 . W I N D O W N I L N I L
0011220 N I L N I L ' U S E R . R E
0011240 P A I N T F N ) \r
0011260 ( C O N D \r \t ( (
0011300 N U L L U S E R . D E F A U L
0011320 T . P V E C T O R ) \r \t
0011340 ( 006 002 U S E R . C R E A T E
0011360 . P V E C T O R S 006 001 ) ) ) \r
0011400 ( C O N D \r \t
0011420 ( ( O R N E W F L G
0011440 ( N U L L U S E R . T R A J S
0011460 ) ) \r \t ( S E T Q
0011500 U S E R . T R A J S ( 006 002 U S
0011520 E R . C R E A T E . T R A J S 006
0011540 001 ] ) \r \r ( 006 004 U S E R . C R E
0011560 A T E . T R A J S 006 001 \r ( L
0011600 A M B D A N I L
0011620
*
0011660 006 003 ( * p k
0011700 h : " 2 5 - M a y - 8 4 1 5
0011720 : 1 7 " ) 006 001 \r ( P R O
0011740 G ( T R A J S V A L U E ) \r
0011760 ( S E T Q
0012000 T R A J S ( 006 002 c r e a t e 006
0012020 001 P V E C T O R ) ) \r
0012040 ( 006 002 f o r 006 001 P
0012060 N A M E 006 002 i n 006 001 U S E R
0012100 . P N A M E S \r \t 006 002
0012120 d o 006 001 ( S E T Q V A L U E
0012140 ( 006 002 U S E R . G E T P V E C
0012160 T O R 006 001 P N A M E U S E R
0012200 . D E F A U L T . P V E C T O R
0012220 ) ) \r \t \t ( 006 002 U S E R . S E T
0012240 P V E C T O R 006 001 P N A M E
0012260 ( L I S T ( 006 002 c r e a t e 006
0012300 001 S P . P O I N T \r \t \t \t \t \t
0012320 \t T I M E _ U S E
0012340 R . T M I N \r \t \t \t \t \t \t
0012360 V A L U E _ V A L U E )
0012400 \r \t \t \t \t \t ( 006 002 c r
0012420 e a t e 006 001 S P . P O I N T \r
0012440 \t \t \t \t \t \t T I M E
0012460 _ U S E R . T M A X \r \t \t \t \t
0012500 \t \t V A L U E _ V
0012520 A L U E ) ) \r \t \t \t \t T R A J
0012540 S ) ) \r ( R
0012560 E T U R N T R A J S ) ) ) ) \r
0012600 \r ( 006 004 U S E R . I N T E R P O
0012620 L A T E 006 001 \r ( L A M B D A
0012640 ( S L I C E T I M E T R A
0012660 J S )
0012700
0012720 006 003 ( * k b r : " 1
0012740 6 - M a y - 8 4 1 4 : 0 8 " )
0012760 006 001 \r
0013000
*
0013060 006 003 ( * R e t u r n s l i c
0013100 e i n T R A J S a t T I
0013120 M E . 006 001 \r \t \t \t \t \t \t \t
0013140 006 003 * ) 006 001 \r ( P R
0013160 O G N I L \r
0013200 ( 006 002 f o r 006 001 P N A M E
0013220 006 002 i n 006 001 U S E R . P N A M
0013240 E S 006 002 w h e n 006 001 ( N O T
0013260 ( M E M B P N A M E ' ( S
0013300 W I T C H N C F ) ) ) \r \t
0013320 006 002 d o 006 001 ( 006 002 U S E
0013340 R . I N T E R P O L A T E . P N
0013360 A M E 006 001 S L I C E P N A M
0013400 E T I M E T R A J S ) ) ) )
0013420 ) \r \r ( 006 004 U S E R . I N T E R
0013440 P O L A T E . P N A M E 006 001 \r
0013460 [ L A M B D A ( S L I C E
0013500 P N A M E T I M E T R A J S
0013520 )
0013540 006 003 ( *
0013560 p k h : " 2 1 - J u n - 8 4
0013600 2 1 : 4 5 " ) 006 001 \r (
0013620 P R O G ( T R A J L E F T P
0013640 O I N T R I G H T P O I N T
0013660 L T I M E R T I M E L V A L
0013700 U E R V A L U E K V A L U
0013720 E ) \r ( S E
0013740 T Q T R A J ( P V E C T O R
0013760 . G E T T R A J S P N A M E
0014000 ) ) \r ( 006 002
0014020 f o r 006 001 L 006 002 i n 006 001 T
0014040 R A J 006 002 a s 006 001 R 006 002 i
0014060 n 006 001 ( C D R T R A J ) 006
0014100 002 w h e n 006 001 ( A N D ( I L
0014120 E Q ( 006 002 f e t c h 006 001 ( S
0014140 P . P O I N T T I M E ) 006 002
0014160 o f 006 001 L ) \r \t \t \t \t \t \t \t
0014200 T I M E ) \r \t \t \t \t \t \t
0014220 ( I G R E A T E R P
0014240 ( 006 002 f e t c h 006 001 ( S P . P
0014260 O I N T T I M E ) 006 002 o f 006
0014300 001 R ) \r \t \t \t \t \t \t \t \t T I
0014320 M E ) ) \r \t 006 002 d o 006
0014340 001 ( S E T Q L E F T P O I N
0014360 T L ) \r \t \t ( S E T Q R I G
0014400 H T P O I N T R ) \r \t \t ( R E
0014420 T U R N ) ) \r
0014440 ( S E T Q L T I M E ( 006 002
0014460 f e t c h 006 001 ( S P . P O I N
0014500 T T I M E ) 006 002 o f 006 001 L
0014520 E F T P O I N T ) ) \r
0014540 ( S E T Q R T I M E
0014560 ( 006 002 f e t c h 006 001 ( S P .
0014600 P O I N T T I M E ) 006 002 o f
0014620 006 001 R I G H T P O I N T ) ) \r
0014640 ( S E T Q
0014660 L V A L U E ( 006 002 f e t c h 006
0014700 001 ( S P . P O I N T V A L U
0014720 E ) 006 002 o f 006 001 L E F T P O
0014740 I N T ) ) \r
0014760 ( S E T Q R V A L U E ( 006 002
0015000 f e t c h 006 001 ( S P . P O I N
0015020 T V A L U E ) 006 002 o f 006 001
0015040 R I G H T P O I N T ) ) \r
0015060 ( S E T Q K (
0015100 F Q U O T I E N T ( F D I F F
0015120 E R E N C E T I M E L T I M
0015140 E ) \r \t \t \t ( F D I F
0015160 F E R E N C E R T I M E L T
0015200 I M E ) ) ) \r
0015220 ( S E T Q V A L U E ( F P
0015240 L U S ( F T I M E S K R V
0015260 A L U E ) \r \t \t \t ( F
0015300 T I M E S ( F D I F F E R E N
0015320 C E 1 . 0 K ) \r \t \t \t \t
0015340 L V A L U E ) ) ) \r
0015360 ( P V E C T O R .
0015400 P U T S L I C E P N A M E
0015420 V A L U E ] ) \r \r ( 006 004 U S E R
0015440 . C R E A T E . W I N D O W 006 001
0015460 \r [ L A M B D A N I L
0015500
*
0015540 006 003
0015560 ( * p k h : " 2 - J u l -
0015600 8 4 0 2 : 5 9 " ) 006 001 \r
0015620 ( P R O G ( W I N D O W ) \r
0015640 ( S E T Q
0015660 W I N D O W ( C R E A T E W
0015700 ( C R E A T E R E G I O N 2 0
0015720 1 8 0 7 0 0 2 1 0 ) \r \t \t
0015740 \t \t " U s e r W i n d o w "
0015760 N I L T ) ) \r
0016000 ( W I N D O W P R O P W I
0016020 N D O W ' R E P A I N T F N
0016040 ' U S E R . R E P A I N T F N )
0016060 \r ( W I N D
0016100 O W P R O P W I N D O W ' B
0016120 U T T O N E V E N T F N ' U S
0016140 E R . B U T T O N E V E N T F N
0016160 ) \r
0016200
*
0016240 006
0016260 003 ( * Y . S C A L E . W I N D
0016300 O W W I N D O W ) 006 001 \r
0016320 ( R E T U R N W
0016340 I N D O W ] ) \r \r ( 006 004 U S E R
0016360 . R E P A I N T F N 006 001 \r [
0016400 L A M B D A ( R E G F I L E
0016420 W I N D O W )
0016440
0016460 006 003 ( * p
0016500 k h : " 2 8 - J u n - 8 4 1
0016520 3 : 2 0 " ) 006 001 \r
0016540
*
0016620 006 003 ( * W I N D O
0016640 W = U S E R . W I N D O W .
0016660 * ) 006 001 \r ( P R O G
0016700 ( P N A M E T R A J M I N
0016720 M A X ) \r (
0016740 C O N D \r \t ( ( N U L L
0016760 ( W I N D O W P R O P W I N
0017000 D O W ' P N A M E ) ) \r \t
0017020 ( R E T U R N ) ) ) \r
0017040 ( C L E A R W
0017060 W I N D O W ) \r
0017100 ( S E T Q P N A M E (
0017120 W I N D O W P R O P W I N D O
0017140 W ' P N A M E ) )
0017160 006 003 ( * P r i n t
0017200 a Y - s c a l e ; o r a
0017220 t l e a s t t h e m i n
0017240 a n d m a x v a l u e o f
0017260 006 001 \r \t \t \t \t \t \t \t 006
0017300 003 t h e p a r a m e t e r ) 006
0017320 001 \r ( S E T
0017340 Q M I N ( U S E R . G E T P
0017360 V E C T O R P N A M E U S E
0017400 R . M I N . P V E C T O R ) ) \r
0017420 ( S E T Q
0017440 M A X ( U S E R . G E T P V E
0017460 C T O R P N A M E U S E R .
0017500 M A X . P V E C T O R ) ) \r
0017520 ( C O N D \r \t
0017540 ( ( S E T Q T R A J (
0017560 U S E R . G E T P V E C T O R
0017600 P N A M E U S E R . T R A J S
0017620 ) ) \r \t ( 006 002 f o r
0017640 006 001 P O I N T 1 006 002 i n 006 001
0017660 T R A J 006 002 a s 006 001 P O I
0017700 N T 2 006 002 i n 006 001 ( C D R
0017720 T R A J ) 006 002 w h i l e 006 001
0017740 P O I N T 2 \r \t \t 006 002 d o 006 001
0017760 ( 006 002 U S E R . D R A W L I N
0020000 E 006 001 P O I N T 1 P O I N T
0020020 2 M I N M A X ) ) \r \t
0020040 ( 006 002 f o r 006 001 P O I N
0020060 T 006 002 i n 006 001 T R A J 006 002
0020100 d o 006 001 ( 006 002 U S E R . D R A
0020120 W P O I N T 006 001 P O I N T ) )
0020140 ) \r \t ( T N I L ] ) \r
0020160 \r ( 006 004 U S E R . B U T T O N E
0020200 V E N T F N 006 001 \r ( L A M B
0020220 D A ( W I N D O W )
0020240
*
0020300 006 003 ( * k b r :
0020320 " 1 6 - M a y - 8 4 1 4 : 0 9
0020340 " ) 006 001 \r ( T O T O P W
0020360 W I N D O W ) \r ( C O
0020400 N D \r ( ( L A S T M
0020420 O U S E S T A T E M I D D L E
0020440 ) \r \t ( 006 002 U S E R . M I D D L
0020460 E B U T T O N F N 006 001 ) ) \r
0020500 ( ( L A S T M O U S E S
0020520 T A T E L E F T ) \r \t ( 006 002 U
0020540 S E R . L E F T B U T T O N F N
0020560 006 001 ) ) ) ) ) \r \r ( 006 004 U S E R
0020600 . C R E A T E . M E N U 006 001 \r
0020620 [ L A M B D A N I L
0020640
*
0020700 006 003 ( *
0020720 p k h : " 2 - J u l - 8 4
0020740 0 2 : 0 9 " ) 006 001 \r (
0020760 P R O G ( M E N U ) \r
0021000 ( S E T Q M E N U
0021020 ( 006 002 c r e a t e 006 001 M E N
0021040 U \r \t \t \t T I T L E
0021060 _ " U S E R M E N U " \r \t \t
0021100 \t I T E M S _ U S
0021120 E R . P N A M E S \r \t \t \t
0021140 M E N U C O L U M N S _
0021160 1 2 \r \t \t \t W H E N S
0021200 E L E C T E D F N _ ' U S E
0021220 R . W H E N S E L E C T E D F N
0021240 ) ) \r ( A T
0021260 T A C H M E N U M E N U U S
0021300 E R . W I N D O W ' T O P '
0021320 J U S T I F Y )
0021340 006 003 ( * T h i s c a u s e s
0021360 M E N U t o o p e n . *
0021400 ) 006 001 \r
0021420
*
0021500 006 003 ( * O k e y D o k e y
0021520 . * ) 006 001 \r
0021540 ( R E T U R N M E N U ] ) \r
0021560 \r ( 006 004 U S E R . W H E N S E L
0021600 E C T E D F N 006 001 \r ( L A M
0021620 B D A ( I T E M M E N U K
0021640 E Y )
0021660
0021700 006 003 ( * k b r :
0021720 " 1 6 - M a y - 8 4 1 4 : 0
0021740 9 " ) 006 001 \r ( P R O G
0021760 N I L \r ( S
0022000 H A D E I T E M I T E M M E
0022020 N U B L A C K S H A D E ) \r
0022040 ( 006 002 U S E R
0022060 . E D I T T R A J 006 001 I T E M
0022100 ) \r ( S H A
0022120 D E I T E M I T E M M E N U
0022140 W H I T E S H A D E ) ) ) ) \r
0022160 \r ( 006 004 U S E R . E D I T T R A
0022200 J 006 001 \r [ L A M B D A ( P
0022220 N A M E )
0022240
*
0022300 006 003 ( * p k h : " 2 9 - J
0022320 u n - 8 4 1 7 : 1 0 " ) 006 001 \r
0022340 ( P R O G ( T R A J
0022360 U S E R . V M I N U S E R . V
0022400 M A X ) \r (
0022420 S E T Q U S E R . V M I N (
0022440 P V E C T O R . G E T U S E R
0022460 . M I N . P V E C T O R P N A
0022500 M E ) ) \r (
0022520 S E T Q U S E R . V M A X (
0022540 P V E C T O R . G E T U S E R
0022560 . M A X . P V E C T O R P N A
0022600 M E ) ) \r (
0022620 S E T Q T R A J ( P V E C T
0022640 O R . G E T U S E R . T R A J
0022660 S P N A M E ) ) \r
0022700 ( W I N D O W P R O P
0022720 U S E R . W I N D O W ' P N A
0022740 M E P N A M E ) \r
0022760 ( W I N D O W P R O P
0023000 U S E R . W I N D O W ' T R A
0023020 J T R A J ) \r
0023040 ( C O N D \r \t ( ( E
0023060 Q P N A M E ' S W I T C H )
0023100 \r \t ( P R O M P T P
0023120 R I N T " Y o u h a v e t
0023140 o u s e S E T Q i n L I
0023160 S P t o c h a n g e t h i
0023200 s p a r a m a t e r " ) \r \t
0023220 ( R E T U R N ) ) ) \r
0023240 ( R E D I S
0023260 P L A Y W U S E R . W I N D O
0023300 W ) \r ( M O
0023320 V E T O 0 ( I D I F F E R E
0023340 N C E ( W I N D O W P R O P
0023360 U S E R . W I N D O W ' H E I
0023400 G H T ) \r \t \t \t \t 6 ) \r \t \t
0023420 U S E R . W I N D O W )
0023440
0023460 006 003 ( *
0023500 T B W * ) 006 001 \r
0023520 ( P R I N T U S E R .
0023540 V M A X U S E R . W I N D O W
0023560 ) \r ( M O V
0023600 E T O 0 ( W I N D O W P R O
0023620 P U S E R . W I N D O W ' B
0023640 O T T O M . X . S C A L E . O F
0023660 F S E T ) \r \t \t U S E R . W
0023700 I N D O W ) \r
0023720 ( P R I N T U S E R . V M I
0023740 N U S E R . W I N D O W ] ) \r
0023760 \r ( 006 004 U S E R . D R A W L I N
0024000 E 006 001 \r [ L A M B D A ( P
0024020 O I N T 1 P O I N T 2 M I N
0024040 M A X )
0024060
0024100 006 003 ( * p k h : " 2 9 - J
0024120 u n - 8 4 1 6 : 5 8 " ) 006 001 \r
0024140
*
0024220 006 003 (
0024240 * D r a w t h e l i n e s
0024260 t h a t c h a r a c t e r i
0024300 z e t h e c h a n g e s i
0024320 n t h e 006 001 \r \t \t \t \t \t \t \t
0024340 006 003 s y n t h e s i z
0024360 e r p a r a m e t e r s o v
0024400 e r t i m e ) 006 001 \r (
0024420 P R O G ( T 1 V 1 T 2 V
0024440 2 X 1 Y 1 Y 2 X 2 H E
0024460 I G H T W I D T H B O T T O
0024500 M . X . S C A L E . O F F S E T
0024520 Y . S C A L E . F A C T O R
0024540 S P A N ) \r
0024560
*
0024640 006 003 ( * T h i s w i n
0024660 d o w h a s s c a l e s ) 006
0024700 001 \r
0024720
*
0024760 006
0025000 003 ( * D o n % ' t w r i t e
0025020 o n t h e s c a l e o r
0025040 t h e t i c s ) 006 001 \r
0025060 [ S E T Q B O T
0025100 T O M . X . S C A L E . O F F S
0025120 E T ( I P L U S 1 0 ( W I
0025140 N D O W P R O P U S E R . W I
0025160 N D O W ' B O T T O M . X . S
0025200 C A L E . O F F S E T ] \r
0025220 ( S E T Q T 1
0025240 ( 006 002 f e t c h 006 001 ( S P . P
0025260 O I N T T I M E ) 006 002 o f 006
0025300 001 P O I N T 1 ) ) \r
0025320 ( S E T Q V 1 ( 006
0025340 002 f e t c h 006 001 ( S P . P O I
0025360 N T V A L U E ) 006 002 o f 006 001
0025400 P O I N T 1 ) ) \r
0025420 ( S E T Q T 2 ( 006 002
0025440 f e t c h 006 001 ( S P . P O I N
0025460 T T I M E ) 006 002 o f 006 001 P
0025500 O I N T 2 ) ) \r
0025520 ( S E T Q V 2 ( 006 002 f e
0025540 t c h 006 001 ( S P . P O I N T
0025560 V A L U E ) 006 002 o f 006 001 P O
0025600 I N T 2 ) ) \r
0025620 ( S E T Q H E I G H T ( W
0025640 I N D O W P R O P U S E R . W
0025660 I N D O W ' H E I G H T ) ) \r
0025700 ( S E T Q
0025720 W I D T H ( W I N D O W P R O
0025740 P U S E R . W I N D O W ' W
0025760 I D T H ) ) \r
0026000 ( S E T Q S P A N ( I D I
0026020 F F E R E N C E M A X M I N
0026040 ) ) \r ( S E
0026060 T Q Y . S C A L E . F A C T O
0026100 R ( F Q U O T I E N T ( I D
0026120 I F F E R E N C E H E I G H T
0026140 B O T T O M . X . S C A L E .
0026160 O F F S E T ) \r \t \t \t \t \t S
0026200 P A N ) ) \r
0026220 [ S E T Q X 1 ( F I X R (
0026240 F T I M E S W I D T H ( F Q
0026260 U O T I E N T ( F D I F F E R
0026300 E N C E T 1 U S E R . T M I
0026320 N ) \r \t \t \t \t \t \t ( F D I F
0026340 F E R E N C E U S E R . T M A
0026360 X U S E R . T M I N ] \r
0026400 [ S E T Q Y 1
0026420 ( F I X R ( F T I M E S Y .
0026440 S C A L E . F A C T O R ( F D
0026460 I F F E R E N C E V 1 M I N
0026500 ] \r [ S E T
0026520 Q X 2 ( F I X R ( F T I M
0026540 E S W I D T H ( F Q U O T I
0026560 E N T ( F D I F F E R E N C E
0026600 T 2 U S E R . T M I N ) \r \t
0026620 \t \t \t \t \t ( F D I F F E R E
0026640 N C E U S E R . T M A X U S
0026660 E R . T M I N ] \r
0026700 [ S E T Q Y 2 ( F I X
0026720 R ( F T I M E S Y . S C A L
0026740 E . F A C T O R ( F D I F F E
0026760 R E N C E V 2 M I N ] \r
0027000 ( D R A W L I N
0027020 E X 1 ( I P L U S Y 1 B
0027040 O T T O M . X . S C A L E . O F
0027060 F S E T ) \r \t \t X 2 \r \t
0027100 \t ( I P L U S Y 2 B
0027120 O T T O M . X . S C A L E . O F
0027140 F S E T ) \r \t \t 1 \r \t \t
0027160 ' P A I N T U S E R .
0027200 W I N D O W ] ) \r \r ( 006 004 U S E
0027220 R . E R A S E L I N E 006 001 \r
0027240 ( L A M B D A ( P O I N T 1
0027260 P O I N T 2 )
0027300
0027320 006 003 ( *
0027340 p k h : " 2 5 - M a y - 8 4
0027360 1 5 : 1 5 " ) 006 001 \r ( P
0027400 R O G ( T 1 V 1 T 2 V 2
0027420 X 1 Y 1 Y 2 X 2 H E I
0027440 G H T W I D T H ) \r
0027460 ( S E T Q T 1 ( 006
0027500 002 f e t c h 006 001 ( S P . P O I
0027520 N T T I M E ) 006 002 o f 006 001
0027540 P O I N T 1 ) ) \r
0027560 ( S E T Q V 1 ( 006 002 f
0027600 e t c h 006 001 ( S P . P O I N T
0027620 V A L U E ) 006 002 o f 006 001 P
0027640 O I N T 1 ) ) \r
0027660 ( S E T Q T 2 ( 006 002 f e
0027700 t c h 006 001 ( S P . P O I N T
0027720 T I M E ) 006 002 o f 006 001 P O I
0027740 N T 2 ) ) \r
0027760 ( S E T Q V 2 ( 006 002 f e t c
0030000 h 006 001 ( S P . P O I N T V A
0030020 L U E ) 006 002 o f 006 001 P O I N
0030040 T 2 ) ) \r (
0030060 S E T Q H E I G H T ( W I N
0030100 D O W P R O P U S E R . W I N
0030120 D O W ' H E I G H T ) ) \r
0030140 ( S E T Q W I
0030160 D T H ( W I N D O W P R O P
0030200 U S E R . W I N D O W ' W I D
0030220 T H ) ) \r (
0030240 S E T Q X 1 ( F I X R ( F
0030260 T I M E S W I D T H ( F Q U
0030300 O T I E N T ( F D I F F E R E
0030320 N C E T 1 U S E R . T M I N
0030340 ) \r \t \t \t \t \t \t ( F D I F F
0030360 E R E N C E U S E R . T M A X
0030400 U S E R . T M I N ) ) ) ) ) \r
0030420 ( S E T Q
0030440 Y 1 ( F I X R ( F T I M E S
0030460 H E I G H T ( F Q U O T I E
0030500 N T ( F D I F F E R E N C E
0030520 V 1 U S E R . V M I N ) \r \t \t
0030540 \t \t \t \t ( F D I F F E R E
0030560 N C E U S E R . V M A X U S
0030600 E R . V M I N ) ) ) ) ) \r
0030620 ( S E T Q X 2
0030640 ( F I X R ( F T I M E S W I
0030660 D T H ( F Q U O T I E N T (
0030700 F D I F F E R E N C E T 2 U
0030720 S E R . T M I N ) \r \t \t \t \t \t \t
0030740 ( F D I F F E R E N C E U
0030760 S E R . T M A X U S E R . T M
0031000 I N ) ) ) ) ) \r
0031020 ( S E T Q Y 2 ( F I X R
0031040 ( F T I M E S H E I G H T
0031060 ( F Q U O T I E N T ( F D I F
0031100 F E R E N C E V 2 U S E R .
0031120 V M I N ) \r \t \t \t \t \t \t (
0031140 F D I F F E R E N C E U S E R
0031160 . V M A X U S E R . V M I N )
0031200 ) ) ) ) \r (
0031220 D R A W L I N E X 1 Y 1 X
0031240 2 Y 2 1 ' E R A S E U S
0031260 E R . W I N D O W ) ) ) ) \r \r (
0031300 006 004 U S E R . D R A W P O I N T
0031320 006 001 \r ( L A M B D A ( P O
0031340 I N T )
0031360
*
0031420 006 003 ( * k b r : " 1 6 - M a
0031440 y - 8 4 1 4 : 0 9 " ) 006 001 \r
0031460 ( P R O G N I L
0031500
*
0031540 006 003 ( *
0031560 T B W : D r a w s p o t
0031600 a t p o i n t . * ) 006 001 \r
0031620 ) ) ) \r \r ( 006 004 U S E
0031640 R . M I D D L E B U T T O N F N
0031660 006 001 \r ( L A M B D A N I L
0031700
*
0031760 006 003 ( * k b r : " 1 6 - M a
0032000 y - 8 4 1 4 : 0 9 " ) 006 001 \r
0032020 ( P R O G ( C O M M A N
0032040 D ) \r ( S E
0032060 T Q C O M M A N D ( M E N U
0032100 U S E R . C O M M A N D . M E
0032120 N U ) ) \r (
0032140 C O N D \r \t ( C O M M A
0032160 N D ( S E T Q U S E R . C O
0032200 M M A N D C O M M A N D ) \r \t
0032220 \t ( S E L E C T Q U
0032240 S E R . C O M M A N D \r \t \t \t
0032260 ( P R O M P T & A D D
0032300 ( 006 002 U S E R . P R O M P T &
0032320 A D D 006 001 ) ) \r \t \t \t
0032340 ( P R O M P T & D E L E T E
0032360 ( U S E R . P R O M P T & D E L
0032400 E T E ) ) \r \t \t \t
0032420
0032440 006 003
0032460 ( * W a i t f o r p o i n
0032500 t . * ) 006 001 ) ) ) ) ) ) \r \r (
0032520 006 004 U S E R . L E F T B U T T O
0032540 N F N 006 001 \r ( L A M B D A
0032560 N I L
0032600
*
0032640 006 003 ( * k b r : " 1 6
0032660 - M a y - 8 4 1 4 : 1 0 " ) 006
0032700 001 \r ( S E L E C T Q U
0032720 S E R . C O M M A N D \r \t
0032740 ( P O I N T & A D D ( U S
0032760 E R . P O I N T & A D D ) ) \r \t
0033000 ( P O I N T & D E L E
0033020 T E ( U S E R . P O I N T & D
0033040 E L E T E ) ) \r \t ( P
0033060 O I N T & M O V E ( U S E R .
0033100 P R O M P T & M O V E ) ) \r \t
0033120 N I L ) ) ) \r \r ( 006 004 U
0033140 S E R . P R O M P T & A D D 006 001
0033160 \r ( L A M B D A N I L
0033200
*
0033240 006 003
0033260 ( * p k h : " 2 5 - M a y -
0033300 8 4 1 5 : 1 7 " ) 006 001 \r
0033320 ( P R O G ( T I M E V A L
0033340 U E P O I N T ) \r
0033360 ( 006 002 d o 006 001 ( F R E
0033400 S H L I N E P R O M P T W I N
0033420 D O W ) \r \t ( S E T
0033440 Q T I M E ( M K A T O M (
0033460 P R O M P T F O R W O R D " T
0033500 I M E = " N I L N I L
0033520 P R O M P T W I N D O W ) ) ) \r
0033540 \t ( C O N D \r \t \t (
0033560 ( O R ( N O T ( N U M B E R
0033600 P T I M E ) ) \r \t \t
0033620 ( I L E S S P T I M E U S E
0033640 R . T M I N ) \r \t \t (
0033660 I G R E A T E R P T I M E U
0033700 S E R . T M A X ) ) \r \t \t (
0033720 R E T U R N ) ) ) \r \t
0033740 ( F R E S H L I N E P R O M
0033760 P T W I N D O W ) \r \t
0034000 ( S E T Q V A L U E ( M K
0034020 A T O M ( P R O M P T F O R W
0034040 O R D " V A L U E = " N
0034060 I L N I L P R O M P T W I N
0034100 D O W ) ) ) \r \t ( C
0034120 O N D \r \t \t ( ( N O T ( N U M
0034140 B E R P V A L U E ) ) \r \t \t
0034160 ( R E T U R N ) ) ) \r \t
0034200 ( S E T Q P O I N T (
0034220 006 002 c r e a t e 006 001 S P . P O
0034240 I N T \r \t \t \t \t T I M E _
0034260 T I M E \r \t \t \t \t V A L U
0034300 E _ V A L U E ) ) \r \t
0034320 ( 006 002 U S E R . A D D P O
0034340 I N T 006 001 P O I N T ) ) ) ) )
0034360 \r \r ( 006 004 U S E R . A D D P O I
0034400 N T 006 001 \r ( L A M B D A (
0034420 P O I N T )
0034440
*
0034500 006 003 ( * p k h : " 2 8 -
0034520 M a y - 8 4 1 5 : 4 7 " ) 006 001
0034540 \r ( P R O G ( T I M E
0034560 V A L U E T R A J N O L
0034600 D P O I N T R I G H T P O I N
0034620 T L E F T P O I N T ) \r
0034640 ( S E T Q T I M
0034660 E ( 006 002 f e t c h 006 001 ( S P
0034700 . P O I N T T I M E ) 006 002 o
0034720 f 006 001 P O I N T ) ) \r
0034740 ( S E T Q V A L U
0034760 E ( 006 002 f e t c h 006 001 ( S P
0035000 . P O I N T V A L U E ) 006 002
0035020 o f 006 001 P O I N T ) ) \r
0035040 ( S E T Q T R A
0035060 J ( W I N D O W P R O P U S
0035100 E R . W I N D O W ' T R A J )
0035120 ) \r ( C O N
0035140 D \r \t ( ( I E Q P T I
0035160 M E U S E R . T M I N )
0035200
0035220 006 003 ( * S p e
0035240 c i a l c a s e o f c h a
0035260 n g i n g t h e f i r s t
0035300 P O I N T ) 006 001 \r \t
0035320 ( 006 002 U S E R . E R A S E L I N
0035340 E 006 001 ( C A R ( N T H T R
0035360 A J 1 ) ) \r \t \t \t
0035400 ( C A R ( N T H T R A J 2
0035420 ) ) ) \r \t ( 006 002 r e
0035440 p l a c e 006 001 ( S P . P O I N
0035460 T V A L U E ) 006 002 o f 006 001
0035500 ( C A R ( N T H T R A J 1
0035520 ) ) 006 002 w i t h 006 001 V A L U
0035540 E ) \r \t ( 006 002 U S E
0035560 R . D R A W L I N E 006 001 ( C A
0035600 R ( N T H T R A J 1 ) ) \r
0035620 \t \t \t ( C A R ( N T
0035640 H T R A J 2 ) ) ) ) \r \t
0035660 ( ( I E Q P T I M E U S
0035700 E R . T M A X )
0035720
0035740 006 003 ( * S p e c i a l
0035760 c a s e o f c h a n g i n g
0036000 t h e l a s t P O I N T )
0036020 006 001 \r \t ( S E T Q
0036040 N ( L E N G T H T R A J ) )
0036060 \r \t ( 006 002 U S E R .
0036100 E R A S E L I N E 006 001 ( C A R
0036120 ( N T H T R A J ( S U B 1
0036140 N ) ) ) \r \t \t \t (
0036160 C A R ( N T H T R A J N )
0036200 ) ) \r \t ( 006 002 r e p
0036220 l a c e 006 001 ( S P . P O I N T
0036240 V A L U E ) 006 002 o f 006 001 (
0036260 C A R ( N T H T R A J N )
0036300 ) 006 002 w i t h 006 001 V A L U E
0036320 ) \r \t ( 006 002 U S E R
0036340 . D R A W L I N E 006 001 ( C A R
0036360 ( N T H T R A J ( S U B 1
0036400 N ) ) ) \r \t \t \t ( C
0036420 A R ( N T H T R A J N ) )
0036440 ) ) \r \t ( ( S E T Q O
0036460 L D P O I N T ( 006 002 f o r 006 001
0036500 P 006 002 i n 006 001 T R A J 006
0036520 002 t h e r e i s 006 001 ( I E Q P
0036540 T I M E ( 006 002 f e t c h 006 001
0036560 ( S P . P O I N T T I M E )
0036600 006 002 o f 006 001 P ) ) ) ) \r
0036620
*
0036700 006 003 ( *
0036720 C h a n g i n g p o i n t s
0036740 f o r w h i c h t h e r e
0036760 a l r e a d y a r e 006 001 \r \t
0037000 \t \t \t \t \t \t 006 003 s p e
0037020 c i f i c a t i o n s ) 006 001 \r \t
0037040 ( S E T Q N ( L
0037060 E N G T H ( M E M B O L D P
0037100 O I N T T R A J ) ) ) \r \t
0037120 ( 006 002 U S E R . E R A S
0037140 E L I N E 006 001 ( C A R ( N T
0037160 H T R A J ( S U B 1 N ) )
0037200 ) \r \t \t \t ( C A R
0037220 ( N T H T R A J N ) ) ) \r \t
0037240 ( 006 002 U S E R . E R
0037260 A S E L I N E 006 001 ( C A R (
0037300 N T H T R A J N ) ) \r \t \t \t
0037320 ( C A R ( N T H
0037340 T R A J ( A D D 1 N ) ) ) )
0037360 \r \t ( 006 002 r e p l a
0037400 c e 006 001 ( S P . P O I N T V
0037420 A L U E ) 006 002 o f 006 001 O L D
0037440 P O I N T 006 002 w i t h 006 001 V
0037460 A L U E ) \r \t ( 006 002
0037500 U S E R . D R A W L I N E 006 001
0037520 ( C A R ( N T H T R A J (
0037540 S U B 1 N ) ) ) \r \t \t \t
0037560 ( C A R ( N T H T R A J
0037600 N ) ) ) \r \t ( 006 002
0037620 U S E R . D R A W L I N E 006 001
0037640 ( C A R ( N T H T R A J N
0037660 ) ) \r \t \t \t ( C A R
0037700 ( N T H T R A J ( A D D 1
0037720 N ) ) ) ) ) \r \t ( * A
0037740 d d i n g n e w p o i n t s
0037760 ) \r \t ( T ( 006 002 f o r
0040000 006 001 L 006 002 i n 006 001 T R A J
0040020 006 002 a s 006 001 R 006 002 i n 006 001
0040040 ( C D R T R A J ) 006 002 w h
0040060 e n 006 001 ( A N D ( I L E S S
0040100 P ( 006 002 f e t c h 006 001 ( S P
0040120 . P O I N T T I M E ) \r \t \t \t
0040140 \t \t \t \t \t 006 002 o f 006
0040160 001 L ) \r \t \t \t \t \t \t \t \t
0040200 T I M E ) \r \t \t \t \t \t \t \t
0040220 ( I G R E A T E R P ( 006 002 f e
0040240 t c h 006 001 ( S P . P O I N T
0040260 T I M E ) \r \t \t \t \t \t \t \t \t \t
0040300 006 002 o f 006 001 R ) \r \t \t \t \t \t \t
0040320 \t \t T I M E ) ) \r \t
0040340 \t 006 002 d o 006 001 ( S E T Q
0040360 L E F T P O I N T L ) \r \t \t
0040400 ( S E T Q R I G H T P
0040420 O I N T R ) \r \t \t (
0040440 R E T U R N ) ) \r \t
0040460 ( 006 002 U S E R . E R A S E L I
0040500 N E 006 001 L E F T P O I N T R
0040520 I G H T P O I N T ) \r \t
0040540 ( 006 002 p u s h 006 001 ( C D
0040560 R ( M E M B L E F T P O I N
0040600 T T R A J ) ) \r \t \t
0040620 P O I N T ) \r \t (
0040640 006 002 U S E R . D R A W L I N E 006
0040660 001 L E F T P O I N T P O I N
0040700 T ) \r \t ( 006 002 U S
0040720 E R . D R A W L I N E 006 001 P O
0040740 I N T R I G H T P O I N T ) )
0040760 ) ) ) ) \r \r ( 006 004 U S E R . S E
0041000 T P V E C T O R 006 001 \r ( L A
0041020 M B D A ( P N A M E V A L U
0041040 E P V E C T O R )
0041060
0041100 006 003 ( * k b r
0041120 : " 1 6 - M a y - 8 4 1 4 :
0041140 1 0 " ) 006 001 \r ( E V A L
0041160 006 002 ` 006 001 ( 006 002 R E P L A C E
0041200 006 001 ( P V E C T O R , P N A
0041220 M E ) 006 002 O F 006 001 006 002 ` 006 001
0041240 , P V E C T O R 006 002 W I T H 006
0041260 001 ' , V A L U E ) ) ) ) \r ) \r
0041300 ( L O A D ? ' { P H Y L U M }
0041320 < L I S P C O R E > L I B R A R
0041340 Y > A T T A C H E D W I N D O W
0041360 . D C O M ) \r \r ( R P A Q Q 006
0041400 002 D E F A U L T . P V E C T O R
0041420 . B U F F E R 006 001 { P V E C T
0041440 O R } # 1 0 % , 1 7 5 0 0 0 ) \r
0041460 ( P U T P R O P S U S E R . F
0041500 P K G C O P Y R I G H T ( "
0041520 X e r o x C o r p o r a t i o
0041540 n " 1 9 8 4 ) ) \r ( D E C L A
0041560 R E : D O N T C O P Y \r (
0041600 F I L E M A P ( N I L ( 2 1
0041620 2 7 1 7 0 8 8 ( U S E R . D
0041640 U R A T I O N 2 1 3 7 . 2
0041660 2 5 7 ) ( U S E R . C R E A T
0041700 E . P V E C T O R S 2 2 5 9
0041720 . 4 2 7 3 ) ( U S E R . I N
0041740 I T \r 4 2 7 5 . 4 9 6 4 )
0041760 ( U S E R . C R E A T E . T R
0042000 A J S 4 9 6 6 . 5 5 0 4 )
0042020 ( U S E R . I N T E R P O L A
0042040 T E 5 5 0 6 . 5 9 0 6 )
0042060 ( U S E R . I N T E R P O L A T
0042100 E . P N A M E \r 5 9 0 8 .
0042120 6 9 3 6 ) ( U S E R . C R E A
0042140 T E . W I N D O W 6 9 3 8 .
0042160 7 4 0 0 ) ( U S E R . R E P
0042200 A I N T F N 7 4 0 2 . 8 3
0042220 0 4 ) ( U S E R . B U T T O N
0042240 E V E N T F N 8 3 0 6 . \r
0042260 8 5 6 8 ) ( U S E R . C R E A
0042300 T E . M E N U 8 5 7 0 . 9
0042320 0 7 2 ) ( U S E R . W H E N S
0042340 E L E C T E D F N 9 0 7 4 .
0042360 9 3 2 8 ) ( U S E R . E D I
0042400 T T R A J 9 3 3 0 . 1 0 2
0042420 2 4 ) ( \r U S E R . D R A W L
0042440 I N E 1 0 2 2 6 . 1 1 9 1
0042460 3 ) ( U S E R . E R A S E L I
0042500 N E 1 1 9 1 5 . 1 2 9 9 0
0042520 ) ( U S E R . D R A W P O I N
0042540 T 1 2 9 9 2 . 1 3 2 0 9 )
0042560 ( \r U S E R . M I D D L E B U
0042600 T T O N F N 1 3 2 1 1 . 1
0042620 3 6 4 6 ) ( U S E R . L E F T
0042640 B U T T O N F N 1 3 6 4 8 .
0042660 1 3 9 1 5 ) ( U S E R . P R
0042700 O M P T & A D D 1 3 9 1 7 .
0042720 1 4 5 7 7 ) ( \r U S E R . A
0042740 D D P O I N T 1 4 5 7 9 .
0042760 1 6 8 8 5 ) ( U S E R . S E T
0043000 P V E C T O R 1 6 8 8 7 .
0043020 1 7 0 8 6 ) ) ) ) ) \r S T O P \r
0043040 \0 \0 F \0 \0 \0 005 G A C H A \0 \n \0
0043060 \0 \0 \0 \0 \0 \0 \0 \0 \0 F \0 001 z 270
0043077