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