$ od -c -N 50000 [eris]<LispCore>3270>EmSetUpVT100Pack.mesa!1
0000000 - - = = = = = = = = = = = = =
0000020 = = = = = = = = = = \r - - F i
0000040 l e : E m S e t U p V T 1 0 0
0000060 P a c k . m e s a \r - - L a
0000100 s t r e v i s e d b y : T
0000120 o m \t \t \t \t 1 6 - J u l - 8 4
0000140 1 4 : 0 9 : 2 5 \r -
0000160 - O w n e r : T o m \r \r - -
0000200 O v e r v i e w : P r o v i
0000220 d e s t h e S e t - U p P
0000240 r o p e r t y S h e e t f o
0000260 r t h e V T 1 0 0 t e r m
0000300 i n a l e m u l a t o r . \r \r
0000320 - - C o p y r i g h t ( C )
0000340 X e r o x C o r p o r a t i
0000360 o n 1 9 8 3 , 1 9 8 4 . A l
0000400 l r i g h t s r e s e r v e
0000420 d . \r \r \r D I R E C T O R Y \r
0000440 C h a r D e f s U S I N G
0000460 [ C o d e s 0 ] , \r E m G T
0000500 T Y A c t i o n D e f s U S I
0000520 N G [ C l e a r T a b , E x
0000540 e c u t e , G e t N e x t T a
0000560 b , S e t T a b , T T y M o
0000600 d e I s ] , \r E m G T T Y C
0000620 h a r T r a n s D e f s U S I
0000640 N G [ D C 1 , D C 3 , S e
0000660 t P o u n d S i g n ] , \r E
0000700 m G T T Y C o m D e f s U S I
0000720 N G [ R e p o r t T o H o s t
0000740 ] , \r E m G T T Y P r i v D
0000760 e f s U S I N G [ \r
0001000 E m D a t a , E m I c o n D a
0001020 t a , G e t C o m H a n d l e
0001040 , G e t F i l e D a t a , L
0001060 p t I c o n D a t a , m a x C
0001100 o l u m n s , \r n
0001120 o T a b s L e f t , p e r m a
0001140 n e n t Z o n e , S a v e P S
0001160 D a t a , s h o r t Z o n e ,
0001200 v a l i d I d ] , \r E m S
0001220 e t U p V T 1 0 0 D e f s U S
0001240 I N G [ ] , \r E m T T Y D
0001260 e f s U S I N G [ L p t t r
0001300 t t t y i c o n d a t a , L p
0001320 t t r t t t y s c h e m a d a t
0001340 a , T r t t t y i c o n d a t
0001360 a ] , \r E n v i r o n m e n
0001400 t U S I N G [ B l o c k ,
0001420 B y t e ] , \r G V D T D e f
0001440 s U S I N G [ C R S h a p e
0001460 , G e t C u r s o r S h a p e
0001500 , S e t C u r s o r S h a p e
0001520 ] , \r H e l p D e f s U S
0001540 I N G [ O p e n H e l p W i n
0001560 d o w ] , \r I c o n D e f s
0001600 U S I N G [ I c o n , P a
0001620 r e n t F r o m I c o n , R e
0001640 f e r e n c e F r o m I c o n ]
0001660 , \r M e s s a g e D e f s
0001700 U S I N G [ M s g , M s g k
0001720 e y , m s g N i l ] , \r M
0001740 e s s a g e S w n D e f s U S
0001760 I N G [ D i s p l a y M e s s
0002000 a g e L i t e r a l ] , \r N
0002020 S F i l e U S I N G [ C l o
0002040 s e , E r r o r , H a n d l
0002060 e , O p e n C h i l d ] , \r
0002100 P a r a m e t e r D e f s U
0002120 S I N G [ \r A q p a r
0002140 m s h e e t b o d y d a t a ,
0002160 B u i l d P a r m S h e e t B o
0002200 d y , C r e a t e P a r m ,
0002220 D e s t r o y T e x t P a r m v
0002240 a l u e , \r E r a s e
0002260 P a r m , F i n d , G e t C
0002300 a r d i n a l , G e t C h o i
0002320 c e P a r m v a l u e , G e t
0002340 S t a t e P a r m v a l u e ,
0002360 \r G e t T e x t P a r m
0002400 v a l u e , P a r m , P a r
0002420 m d a t a , P a r m k e y ,
0002440 p a r m N i l , P v b u i l d
0002460 p s b o d y , \r P v c
0002500 h o i c e p a r m c h a n g e d
0002520 , P v d e s t r o y d a t a ,
0002540 P v h e l p , P v p a r m s
0002560 a r e v a l i d , P v s t a t
0002600 e p a r m c h a n g e d , \r
0002620 P v t e x t p a r m c h a
0002640 n g e d , R g p a r m d a t a
0002660 , S e l e c t T e x t p a r m
0002700 , S h o w P a r m ] , \r P
0002720 s w n D e f s U S I N G [ A
0002740 q o p e n d a t a , P s O p e
0002760 n , P v p s m g r ] , \r R
0003000 S 2 3 2 C E n v i r o n m e n t
0003020 U S I N G [ L i n e S p e e
0003040 d , P a r i t y ] , \r S c
0003060 h e m a D e f s U S I N G [
0003100 L s c h e m a , l s c h e m a
0003120 N i l , P o s n ] , \r S t
0003140 a n d a r d D e f s U S I N G
0003160 [ S t r i n g ] , \r S v D
0003200 e f s U S I N G [ D e c i m
0003220 a l A p p e n d C v ] , \r T
0003240 r a i t D e f s U S I N G [
0003260 I n s t a n c e , M y D a t a
0003300 ] , \r W S S t r i n g D e f
0003320 s U S I N G [ S t r i n g F
0003340 r o m L O N G S T R I N G ] , \r
0003360 W S S t r i n g U t i l D e
0003400 f s U S I N G [ \r C
0003420 o p y S t r i n g , C v F r o
0003440 m S t r i n g D e c i m a l ,
0003460 D e s t r o y S t r i n g , I
0003500 n v a l i d N u m b e r , s t
0003520 r i n g N u l l ] , \r Z k e
0003540 y M e s s a g e D e f s U S I
0003560 N G [ G e t M s g , M s g k
0003600 e y ] ; \r \r E m S e t U p V T 1
0003620 0 0 P a c k : P R O G R A M \r
0003640 I M P O R T S \r E
0003660 m G T T Y A c t i o n D e f s ,
0003700 E m G T T Y C h a r T r a n s
0003720 D e f s , E m G T T Y C o m D
0003740 e f s , E m G T T Y P r i v D
0003760 e f s , G V D T D e f s , \r
0004000 H e l p D e f s , I c
0004020 o n D e f s , M e s s a g e S
0004040 w n D e f s , N S F i l e ,
0004060 P a r a m e t e r D e f s , P
0004100 s w n D e f s , S c h e m a D
0004120 e f s , \r S v D e f s
0004140 , T r a i t D e f s , W S S
0004160 t r i n g D e f s , W S S t r
0004200 i n g U t i l D e f s , Z k e
0004220 y M e s s a g e D e f s \r E
0004240 X P O R T S E m S e t U p V T
0004260 1 0 0 D e f s \r S H A R E S
0004300 I c o n D e f s , P a r a m
0004320 e t e r D e f s = \r B E G
0004340 I N \r \r \r - - = = = = = = =
0004360 = = = = = = = = = = = = = = = =
0004400 \r - - C o n s t a n t s
0004420 \r - - = = = = = = = = = =
0004440 = = = = = = = = = = = = = \r
0004460 \r n i l : L O N G S T
0004500 R I N G = " " ; \t - - n u
0004520 l l l s v \r t a b s : C
0004540 A R D I N A L = 2 8 ; \t \t -
0004560 - p a r m s h e e t d i s
0004600 p l a y o f f s e t \r \r
0004620 n u m P a r m s : C
0004640 A R D I N A L = 1 3 ; \t - -
0004660 n u m b e r o f p a r m s
0004700 i n m a i n g r o u p e
0004720 x c l u d i n g r o o t p a
0004740 r m \r s u b g r o u p S i z
0004760 e : C A R D I N A L = 3 2
0005000 ; \t - - n u m b e r o f p
0005020 a r m s i n S c r e e n T
0005040 a b s u b g r o u p \r \r
0005060 \r - - I n d i c e s i
0005100 n t o l i s t o f p a r a
0005120 m e t e r s o f m a i n g
0005140 r o u p . \r p a r m S a v e
0005160 D a t a : \t C A R D I
0005200 N A L = 0 ; \r p a r m S
0005220 c r o l l : C A
0005240 R D I N A L = 1 ; \r p a
0005260 r m C u r s o r :
0005300 C A R D I N A L = 2 ; \r
0005320 p a r m M a r g i n B e l l :
0005340 C A R D I N A L = 3
0005360 ; \r p a r m A n s i V T 5 2
0005400 : C A R D I N A L
0005420 = 4 ; \r p a r m P o u n d
0005440 S i g n : C A R D I N
0005460 A L = 5 ; \r p a r m A
0005500 u t o W r a p : C A
0005520 R D I N A L = 6 ; \r p a
0005540 r m L T S A c t i v e :
0005560 C A R D I N A L = 7 ; \r
0005600 p a r m P a r i t y :
0005620 C A R D I N A L = 8
0005640 ; \r p a r m T R S p e e d :
0005660 C A R D I N A L
0005700 = 9 ; \r p a r m A n s w e
0005720 r B a c k M s g : C A R D I N
0005740 A L = 1 0 ; \r p a r m S
0005760 c r e e n M o d e : C A
0006000 R D I N A L = 1 1 ; \r p
0006020 a r m T a b G r o u p :
0006040 C A R D I N A L = 1 2 ;
0006060 \r \r - - S c r e e n T
0006100 a b G r o u p i n d i c e s
0006120 . \r p a r m C o l u m n :
0006140 C A R D I N A L
0006160 = 0 ; \r \r \r -
0006200 - = = = = = = = = = = = = = = =
0006220 = = = = = = = = \r - - P
0006240 r i v a t e T y p e s \r -
0006260 - = = = = = = = = = = = = = = =
0006300 = = = = = = = = \r \r A q
0006320 o s d a t a : T Y P E = A
0006340 R R A Y [ 0 . . n u m P a r m
0006360 s ] O F P a r a m e t e r D
0006400 e f s . P a r m ; \r P t o s
0006420 d a t a : T Y P E = L O N
0006440 G P O I N T E R T O A q o
0006460 s d a t a ; \r \r - - e
0006500 x t r a b y t e r e q u i r
0006520 e d d u e t o M E S A l
0006540 a n g u a g e l i m i t a t i
0006560 o n \r X O n X O f f : T Y
0006600 P E = P A C K E D A R R A
0006620 Y [ 0 . . 2 ) O F E n v i
0006640 r o n m e n t . B y t e ; \r
0006660 \r \r - - = = = = = =
0006700 = = = = = = = = = = = = = = = =
0006720 = \r - - G l o b a l V
0006740 a r i a b l e s \r - - = = =
0006760 = = = = = = = = = = = = = = = =
0007000 = = = = \r \r - - T a b
0007020 c o l u m n d e s i g n a t
0007040 o r s . \r n e x t c o l ,
0007060 \t \t \t - - n e x t a v a i
0007100 l a b l e s l o t i n t a
0007120 b p a r m a r r a y \r l
0007140 a s t c o l : C A R D I N A L
0007160 _ 0 ; \t - - l a s t t a
0007200 b ( c o l u m n ) p o s i t
0007220 i o n e n c o u n t e r e d \r
0007240 \r - - B o o l e a n
0007260 f l a g s t o i n d i c a t
0007300 e w h i c h p a r m s w e
0007320 r e m o d i f i e d . \r a
0007340 n s i C h a n g e d , \r c h
0007360 o i c e C h a n g e d , \r c
0007400 u r s o r C h a n g e d , \r
0007420 p o u n d C h a n g e d , \r
0007440 t e x t A n s w e r B a c k C h
0007460 a n g e d : B O O L E A N _
0007500 F A L S E ; \r \r - -
0007520 I c o n ' s l s c h e m a f
0007540 o r t r a i t d a t a a c
0007560 c e s s . \r l s c h e m a T
0007600 T Y i c o n : S c h e m a D e
0007620 f s . L s c h e m a _ S c h
0007640 e m a D e f s . l s c h e m a N
0007660 i l ; \r - - K e e p i n
0007700 g l o b a l f r a m e f o
0007720 r s h a r e d a c c e s s
0007740 b e t w e e n P a r m r o u
0007760 t i n e s . \t \r p t o s d a
0010000 t a : P t o s d a t a _ N
0010020 I L ; \t \t \r \r - -
0010040 S a v e g l o b a l p o i n
0010060 t e r t o I n i t d a t a
0010100 s t r u c t u r e s o w e
0010120 c a n g e t h a n d l e s
0010140 a t b u i l d - t i m e . \r
0010160 p a r m d a t a M a i n :
0010200 L O N G P O I N T E R T O
0010220 P a r a m e t e r D e f s . P a
0010240 r m d a t a _ N I L ; \r
0010260 \r - - D e c l a r e p a
0010300 r m g r o u p a r r a y s .
0010320 \r r g p a r m d a t a G r o
0010340 u p 0 : P a r a m e t e r
0010360 D e f s . R g p a r m d a t a
0010400 _ D E S C R I P T O R [ N I L
0010420 , 0 ] ; \t \r r g p a r m d
0010440 a t a T a b G r o u p : P a r
0010460 a m e t e r D e f s . R g p a r
0010500 m d a t a _ D E S C R I P T
0010520 O R [ N I L , 0 ] ; \r \r
0010540 \r - - = = = = = = = = = =
0010560 = = = = = = = = = = = = = \r
0010600 - - P u b l i c P r o c e
0010620 d u r e \r - - = = = = = =
0010640 = = = = = = = = = = = = = = = =
0010660 = \r \r S e t U p V T 1 0
0010700 0 M g r : P U B L I C P s w
0010720 n D e f s . P v p s m g r = \r
0010740 - - P R O C E D U R E
0010760 [ c t x t : T r e e E l t D
0011000 e f s . C t x t , p v r e t u
0011020 r n c o n t r o l : P a r a m
0011040 e t e r D e f s . P v r e t u r
0011060 n o s c o n t r o l ] = \r
0011100 B E G I N \r s e t
0011120 u p o p e n d a t a : P s w n
0011140 D e f s . A q o p e n d a t a ;
0011160 \r c v O s W t h : C A
0011200 R D I N A L _ 4 2 5 ; \r
0011220 c v O S h t : C A R
0011240 D I N A L = 3 5 0 ; \r
0011260 \r - - P a r s e m
0011300 e s s a g e t o g e t t h
0011320 e w i d t h o f t h e s
0011340 e t u p s h e e t , \r
0011360 - - s o t h a t i t c a
0011400 n b e l a n g u a g e - d e
0011420 p e n d e n t . \r c v O
0011440 s W t h _ W S S t r i n g U
0011460 t i l D e f s . C v F r o m S t
0011500 r i n g D e c i m a l [ Z k e y
0011520 M e s s a g e D e f s . G e t M
0011540 s g [ k e y Z 4 5 7 ] . m s g
0011560 ! \r W S S t r i n g
0011600 U t i l D e f s . I n v a l i d
0011620 N u m b e r = > { c v O s
0011640 W t h _ 4 2 5 ; C O N T I
0011660 N U E } ] ; \r \r
0011700 I F c v O s W t h >
0011720 6 0 0 T H E N c v O s W t h
0011740 _ 6 0 0 \r E L S E
0011760 I F c v O s W t h < 2 0 0
0012000 T H E N c v O s W t h _
0012020 2 0 0 ; \r \r - -
0012040 S e t i c o n ' s l s c h
0012060 e m a n o w s o l a t e r
0012100 w e c a n a c c e s s i
0012120 t s d a t a a r e a . \r
0012140 l s c h e m a T T Y i c o n
0012160 _ L O O P H O L E [ c t x t
0012200 , S c h e m a D e f s . L s c
0012220 h e m a ] ; \r \r
0012240 s e t u p o p e n d a t a _
0012260 [ \r a r e a A v o i
0012300 d : S c h e m a D e f s . P o
0012320 s n [ l s c h e m a T T Y i c o
0012340 n ] . a r e a , \r b
0012360 v H o r i z S c r o l l i n g :
0012400 F A L S E , \r b
0012420 v V e r t S c r o l l i n g :
0012440 F A L S E , \r l
0012460 s c h e m a R e q u e s t o r :
0012500 l s c h e m a T T Y i c o n ,
0012520 \r p v b u i l d b
0012540 o d y : B u i l d S e t U p B
0012560 o d y , \r r s B o
0012600 d y : [ c v O s W t h , c v
0012620 O S h t ] , \r c t
0012640 x t : c t x t , \r
0012660 p v r e t u r n c o n t r o l :
0012700 p v r e t u r n c o n t r o l
0012720 , \r s v T i t l e
0012740 : Z k e y M e s s a g e D e f
0012760 s . G e t M s g [ k e y Z 9 3 9
0013000 ] . m s g ] ; \r \r
0013020 - - B u i l d t h e
0013040 V T 1 0 0 S e t U p S h e e
0013060 t . \r [ ] _ P s w n
0013100 D e f s . P s O p e n [ @ s e t
0013120 u p o p e n d a t a ] \r
0013140 E N D ; - - o f S e t U
0013160 p V T 1 0 0 M g r \r \r \r - -
0013200 = = = = = = = = = = = = = = = =
0013220 = = = = = = = \r - - I n
0013240 t e r n a l U t i l i t e s \r
0013260 - - = = = = = = = = = = = =
0013300 = = = = = = = = = = = \r \r B
0013320 u i l d S e t U p B o d y : P
0013340 a r a m e t e r D e f s . P v b
0013360 u i l d p s b o d y = \r
0013400 - - P R O C E D U R E [ l
0013420 s c h e m a V i e w e r : S c
0013440 h e m a D e f s . L s c h e m a
0013460 , c t x t : T r e e E l t D
0013500 e f s . C t x t ] \r - -
0013520 R E T U R N S [ l s c h e m
0013540 a B o d y : S c h e m a D e f
0013560 s . L s c h e m a ] = \r
0013600 B E G I N \r - - P
0013620 o i n t e r t o i c o n ' s
0013640 t r a i t d a t a . \r
0013660 M y d a t a : E m T
0013700 T Y D e f s . L p t t r t t t y
0013720 s c h e m a d a t a = T r a
0013740 i t D e f s . M y D a t a [ l s
0013760 c h e m a T T Y i c o n , t r
0014000 t T T Y s c h e m a ] ; \r
0014020 e m d a t a : E m G T
0014040 T Y P r i v D e f s . E m D a t
0014060 a = M y d a t a . l p t E m
0014100 S t a t e ; \r i c o n D
0014120 a t a : E m G T T Y P r i v D
0014140 e f s . L p t I c o n D a t a
0014160 = e m d a t a . i c o n D a t
0014200 a ; \r s e t u p b o d y
0014220 d a t a : P a r a m e t e r D
0014240 e f s . A q p a r m s h e e t b
0014260 o d y d a t a ; \r s v t
0014300 a b : A R R A Y [ 0 . . s u
0014320 b g r o u p S i z e ) O F L
0014340 O N G S T R I N G _ A L L
0014360 [ N I L ] ; \r i , s t
0014400 o p : C A R D I N A L _ 0
0014420 ; - - h o l d s a b s o
0014440 l u t e t a b p o s i t i o
0014460 n ; s t o p + 1 h o l d s
0014500 r e l a t i v e \r D C 3
0014520 : X O n X O f f _ A L L [
0014540 E m G T T Y C h a r T r a n s D
0014560 e f s . D C 3 ] ; \r \r
0014600 - - S e n d X O F F
0014620 s e q u e n c e t o h o s t
0014640 . \r E m G T T Y C o m D
0014660 e f s . R e p o r t T o H o s t
0014700 [ e m d a t a . c o m m u n ,
0014720 E n v i r o n m e n t . B l o c
0014740 k [ @ D C 3 , 0 , 1 ] ] ; \r
0014760 \r - - R e s e
0015000 t c h a n g e f l a g s . \r
0015020 a n s i C h a n g e d
0015040 _ \r c h o i c e C h a n
0015060 g e d _ \r c u r s o r
0015100 C h a n g e d _ \r p o
0015120 u n d C h a n g e d _ \r
0015140 t e x t A n s w e r B a c k C
0015160 h a n g e d _ F A L S E ; \r
0015200 \r - - a l l o
0015220 c a t e s t r i n g a r r a
0015240 y \r F O R i I N [
0015260 0 . . s u b g r o u p S i z e )
0015300 D O \r s v t a b
0015320 [ i ] _ E m G T T Y P r i v
0015340 D e f s . s h o r t Z o n e . N
0015360 E W [ S t r i n g B o d y [ 6 ]
0015400 ] \r E N D L O O P ;
0015420 \r \r - - S e t
0015440 u p i n i t i a l v a l u
0015460 e s f o r t a b s e t t i
0015500 n g s . \r n e x t c o l
0015520 _ l a s t c o l _ 0 ; \r
0015540 s t o p _ I F i c
0015560 o n D a t a . t a b [ 0 ] T H
0015600 E N 0 E L S E \r
0015620 E m G T T Y A c t i o n D e f
0015640 s . G e t N e x t T a b [ e m d
0015660 a t a . a c t i o n , 0 ] ; \r
0015700 F O R i I N [ 0 .
0015720 . s u b g r o u p S i z e ) D
0015740 O \r r g p a r m d a
0015760 t a T a b G r o u p [ i ] . p a
0016000 r m _ P a r a m e t e r D e
0016020 f s . p a r m N i l ; \r
0016040 I F s t o p # E m G T
0016060 T Y P r i v D e f s . n o T a b
0016100 s L e f t T H E N { \r
0016120 n e x t c o l _ n
0016140 e x t c o l + 1 ; \r \t S v D
0016160 e f s . D e c i m a l A p p e n
0016200 d C v [ s v t a b [ i ] , l a
0016220 s t c o l _ s t o p + 1
0016240 ] ; \r \t r g p a r m d a t a T a
0016260 b G r o u p [ i ] . a p p e a r
0016300 a n c e _ v i s i b l e ; \r
0016320 \t s t o p _ E m G T T Y A c
0016340 t i o n D e f s . G e t N e x t
0016360 T a b [ e m d a t a . a c t i o
0016400 n , s t o p ] \t \r \t } \r
0016420 E L S E r g p a r m d a
0016440 t a T a b G r o u p [ i ] . a p
0016460 p e a r a n c e _ i n v i s
0016500 i b l e ; \r W I T H
0016520 p d b o u n d : r g p a r m
0016540 d a t a T a b G r o u p [ i ]
0016560 S E L E C T F R O M \r \t t e x
0016600 t p a r m = > p d b o u n d
0016620 . p a r m n u c l e u s d a t a
0016640 . l s v _ s v t a b [ i ] \r
0016660 \t E N D C A S E = > N U L
0016700 L \r E N D L O O P ;
0016720 \r r g p a r m d a t a T
0016740 a b G r o u p [ 0 ] . a p p e a
0016760 r a n c e _ v i s i b l e ;
0017000 \r \r - - S e t
0017020 u p i n i t i a l v a l u
0017040 e s . \r - - M a k e
0017060 s u r e a l l p a r m s
0017100 a r e c r e a t e d b y s
0017120 e t t i n g f i e l d s t o
0017140 N I L . \r p a r m d a
0017160 t a M a i n . p a r m _ P a
0017200 r a m e t e r D e f s . p a r m
0017220 N i l ; \r F O R i I
0017240 N [ 0 . . n u m P a r m s )
0017260 D O \r r g p a r m d
0017300 a t a G r o u p 0 [ i ] . p a r
0017320 m _ P a r a m e t e r D e f
0017340 s . p a r m N i l ; \r
0017360 W I T H p d b o u n d : r
0017400 g p a r m d a t a G r o u p 0 [
0017420 i ] S E L E C T F R O M \r \t
0017440 c h o i c e p a r m = >
0017460
0017500 \r \t
0017520 S E L E C T i F R O M \r
0017540 \t p a r m C u r s o r
0017560 = > p d b o u n d . c
0017600 h o i c e I n i t _ S E L E
0017620 C T \r \t G V D T D
0017640 e f s . G e t C u r s o r S h a
0017660 p e [ e m d a t a . d i s p l a
0017700 y ] F R O M \r \t
0017720 u n d e r s c o r e , g h
0017740 o s t u n d e r s c o r e , b
0017760 l i n k u n d e r s c o r e =
0020000 > 0 , E N D C A S E = >
0020020 1 ; \r \t p a r m M a r g
0020040 i n B e l l = > \r \t
0020060 p d b o u n d . c h o i c e
0020100 I n i t _ I F i c o n D a
0020120 t a . m a r g i n B e l l T H
0020140 E N 0 E L S E 1 ; \r
0020160 p a r m A n s
0020200 i V T 5 2 = > \r \t
0020220 p d b o u n d . c h o i c
0020240 e I n i t _ I F E m G T T
0020260 Y A c t i o n D e f s . T T y M
0020300 o d e I s [ \r \t
0020320 e m d a t a . a c t i o n , a
0020340 n s i ] T H E N 0 E L S E
0020360 1 ; \r \t p a r m P o u
0020400 n d S i g n = > \r \t
0020420 p d b o u n d . c h o i c
0020440 e I n i t _ I F i c o n D
0020460 a t a . U S l b S i g n T H E
0020500 N 0 E L S E 1 ; \r \t
0020520 p a r m A u t o W r a p
0020540 = > \r \t p d b o u
0020560 n d . c h o i c e I n i t _
0020600 I F i c o n D a t a . a u t o
0020620 W r a p T H E N 0 E L S E
0020640 1 ; \r \t p a r m L T S
0020660 A c t i v e = > \r \t
0020700 p d b o u n d . c h o i c
0020720 e I n i t _ I F i c o n D
0020740 a t a . L T S M o d e T H E N
0020760 0 E L S E 1 ; \r \t
0021000 p a r m S c r e e n M o d e =
0021020 > \r \t p d b o u n
0021040 d . c h o i c e I n i t _ I
0021060 F i c o n D a t a . s c r e e
0021100 n T a b s \r \t
0021120 O R n e x t c o l > 0 T
0021140 H E N 0 E L S E 1 \r \t
0021160 E N D C A S E = > E R R
0021200 O R ; \r \t i n f o p a r m = >
0021220
*
0021260 \r \t S E L E C T i F R
0021300 O M \r \t p a r m S c r o
0021320 l l = > p d b o u n d . p
0021340 a r m n u c l e u s d a t a . m
0021360 s g _ Z k e y M e s s a g e
0021400 D e f s . G e t M s g [ k e y Z
0021420 9 4 1 ] . m s g ; \r \t p
0021440 a r m P a r i t y = > p d
0021460 b o u n d . p a r m n u c l e u
0021500 s d a t a . m s g _ Z k e y
0021520 M e s s a g e D e f s . G e t M
0021540 s g [ \r \t S E L E C
0021560 T i c o n D a t a . p a r i t
0021600 y F R O M \r \t
0021620 z e r o = > k e y Z 4 1 9 ,
0021640 o d d = > k e y Z 4 1 6 ,
0021660 \r \t \t e v e n = > k e y Z 4
0021700 1 7 , o n e = > k e y Z 4
0021720 1 8 , \r \t \t E N D C A S E = >
0021740 k e y Z 4 1 5 ] . m s g ; \r \t
0021760 p a r m T R S p e e d
0022000 = > p d b o u n d . p a r m n
0022020 u c l e u s d a t a . m s g _
0022040 Z k e y M e s s a g e D e f s
0022060 . G e t M s g [ \r \t
0022100 S E L E C T i c o n D a t a .
0022120 l i n e S p e e d F R O M \r
0022140 \t b p s 5 0
0022160 = > k e y Z 3 9 8 , b p s
0022200 7 5 = > k e y Z 3 9 9
0022220 , \r \t \t b p s 1 1 0 = > k
0022240 e y Z 4 0 0 , b p s 1 3 4 p 5
0022260 = > k e y Z 4 0 1 , \r \t \t b
0022300 p s 1 5 0 = > k e y Z 4 0
0022320 2 , b p s 3 0 0 = > k
0022340 e y Z 4 0 3 , \r \t \t b p s 6 0 0
0022360 = > k e y Z 4 0 4 , b p
0022400 s 1 2 0 0 = > k e y Z 4 0
0022420 5 , \r \t \t b p s 2 4 0 0 = >
0022440 k e y Z 4 0 6 , b p s 3 6 0 0
0022460 = > k e y Z 4 0 7 , \r \t \t
0022500 b p s 4 8 0 0 = > k e y Z 4
0022520 0 8 , b p s 7 2 0 0 = >
0022540 k e y Z 4 0 9 , \r \t \t b p s 9 6
0022560 0 0 = > k e y Z 4 1 0 , E
0022600 N D C A S E = > k e y Z 4
0022620 0 3 ] . m s g \r \t E N D
0022640 C A S E = > E R R O R ; \r
0022660 s t a t e p a r m
0022700 = > \r \t p d b o u n d . b
0022720 v S t a t e I s O n _ F A L
0022740 S E ; \r \t t e x t p a r m =
0022760 > \r \t p d b o u n d . p a
0023000 r m n u c l e u s d a t a . m s
0023020 g _ i c o n D a t a . a n s
0023040 w e r b a c k M s g ; \r \t g r o
0023060 u p p a r m = > \r \t p d b
0023100 o u n d . a p p e a r a n c e
0023120 _ \r \t I F i c o n D
0023140 a t a . s c r e e n T a b s O
0023160 R n e x t c o l > 0 T H
0023200 E N v i s i b l e E L S E
0023220 i n v i s i b l e \r \t E N D C A
0023240 S E = > E R R O R \r
0023260 E N D L O O P ; \r
0023300 \r < < \r C r e
0023320 a t e s e t u p s h e e t
0023340 b o d y . A l l a r g u m e
0023360 n t s a r e r e p l a c e a
0023400 b l e e x c e p t t h e f
0023420 i r s t \r p a r m . T
0023440 h e r e s t o f t h e a
0023460 r g u m e n t s a r e h a n
0023500 d l e s t o i m p l e m e n
0023520 t a t i o n s o f s e t u p
0023540 \r S h e e t m e n u
0023560 c o m m a n d s t h a t a
0023600 r e s p e c i f i c t o t
0023620 h i s s e t u p s h e e t .
0023640 W e N o t e t h a t \r
0023660 C r e a t e P a r m w i
0023700 l l e n u m e r a t e a l l
0023720 t h e c h i l d r e n o f
0023740 p a r m d a t a T o p a n d
0023760 c r e a t e p a r m \r
0024000 h a n d l e s f o r t h
0024020 e m . N o w t h i s i m p
0024040 l i e s a l l I h a v e
0024060 t o d o i s c o l l e c t
0024100 t h e m f r o m \r
0024120 t h e r g p a r m d a t a G r
0024140 o u p 0 d a t a s t r u c t
0024160 u r e a f t e r t h e C r
0024200 e a t e P a r m c a l l . \r
0024220 > > \r - - A l l
0024240 o c a t e s p a c e f o r
0024260 l o c a l d a t a . \r
0024300 p t o s d a t a _ E m G T
0024320 T Y P r i v D e f s . s h o r t
0024340 Z o n e . N E W [ A q o s d a t
0024360 a _ A L L [ P a r a m e t e
0024400 r D e f s . p a r m N i l ] ] ;
0024420 \r \r - - C r e
0024440 a t e m a i n b o d y . \r
0024460 p t o s d a t a [ n u m P
0024500 a r m s ] _ P a r a m e t e
0024520 r D e f s . C r e a t e P a r m
0024540 [ p a r m d a t a M a i n , l
0024560 s c h e m a V i e w e r ] ; \r
0024600 \r s e t u p b o d y d
0024620 a t a _ [ \r l s
0024640 c h e m a V i e w e r : l s c
0024660 h e m a V i e w e r , \r
0024700 p v d e s t r o y d a t a
0024720 : D e s t r o y p s D a t a ,
0024740 \r p v h e l p : H
0024760 e l p , \r p v p a
0025000 r m s a r e v a l i d : P a r
0025020 m s A r e V a l i d T T Y , \r
0025040 p a r m S h e e t :
0025060 p t o s d a t a [ n u m P a r m
0025100 s ] ] ; \r \r - - G e t
0025120 l s c h e m a f o r S e t
0025140 u p S h e e t . \r l s
0025160 c h e m a B o d y _ P a r a
0025200 m e t e r D e f s . B u i l d P
0025220 a r m S h e e t B o d y [ @ s e
0025240 t u p b o d y d a t a ] ; \r
0025260 \r - - C o l l e c
0025300 t p a r m h a n d l e s t
0025320 o t h e o p t i o n s h e
0025340 e t p a r a m e t e r l i n
0025360 e s t o b e u s e d \r
0025400 - - i n a n y s u b
0025420 s e q u e n t p a r m p r o
0025440 c e s s i n g r o u t i n e s
0025460 . \r F O R i I N [
0025500 0 . . n u m P a r m s ) D O
0025520 \r p t o s d a t a [
0025540 i ] _ r g p a r m d a t a G
0025560 r o u p 0 [ i ] . p a r m \r
0025600 E N D L O O P ; \r
0025620 \r - - D e a l l o
0025640 c a t e s t r i n g b u f f
0025660 e r s \r F O R i I N
0025700 [ 0 . . s u b g r o u p S i z
0025720 e ) D O \r E m G
0025740 T T Y P r i v D e f s . s h o r
0025760 t Z o n e . F R E E [ @ s v t a
0026000 b [ i ] ] \r E N D L
0026020 O O P ; \r I F n e x t
0026040 c o l = 0 T H E N n e x
0026060 t c o l _ 1 \r E N D
0026100 ; - - o f B u i l d S e
0026120 t U p B o d y \r \r \r
0026140 P a r m s A r e V a l i d T T Y
0026160 : P a r a m e t e r D e f s .
0026200 P v p a r m s a r e v a l i d
0026220 = \r - - P R O C E D U
0026240 R E [ ] R E T U R N S [ B
0026260 O O L E A N ] = \r
0026300 B E G I N \r M y d a t
0026320 a : E m T T Y D e f s . L
0026340 p t t r t t t y s c h e m a d a
0026360 t a = T r a i t D e f s . M
0026400 y D a t a [ l s c h e m a T T Y
0026420 i c o n , t r t T T Y s c h e
0026440 m a ] ; \r e m d a t a
0026460 : E m G T T Y P r i v D e
0026500 f s . E m D a t a = M y d a
0026520 t a . l p t E m S t a t e ; \r
0026540 i c o n D a t a : E m G
0026560 T T Y P r i v D e f s . L p t I
0026600 c o n D a t a = e m d a t a
0026620 . i c o n D a t a ; \r i
0026640 : C A R D I N A L _ 0 ; \r
0026660 \r I F ( i c o
0026700 n D a t a . s c r e e n T a b s
0026720 _ P a r a m e t e r D e f s
0026740 . G e t C h o i c e P a r m v a
0026760 l u e [ \r p t o s d
0027000 a t a [ p a r m S c r e e n M o
0027020 d e ] ] = 0 ) T H E N {
0027040 \r t a b : C A
0027060 R D I N A L _ 0 ; \r
0027100 s e t : P A C K E D
0027120 A R R A Y [ 0 . . E m G T T Y
0027140 P r i v D e f s . m a x C o l u
0027160 m n s ] O F B O O L E A N
0027200 _ A L L [ F A L S E ] ; \r
0027220 v a l i d : B O O L E
0027240 A N _ T R U E ; \r
0027260 F O R i I N [ 0 . . n e
0027300 x t c o l ) D O \r
0027320 c o l u m n : P a r a m e
0027340 t e r D e f s . P a r m = P
0027360 a r a m e t e r D e f s . F i n
0027400 d [ \r \t p t o s d a t a [ p
0027420 a r m T a b G r o u p ] , [ [
0027440 0 , i ] ] ] ; \r \t t e m p :
0027460 L O N G S T R I N G = P a
0027500 r a m e t e r D e f s . G e t T
0027520 e x t P a r m v a l u e [ c o l
0027540 u m n ] ; \r \t n o T a b : B O
0027560 O L E A N = t e m p . l e n
0027600 g t h = 0 ; \r \t P a r a m e
0027620 t e r D e f s . D e s t r o y T
0027640 e x t P a r m v a l u e [ t e m
0027660 p ] ; \r \t I F n o T a b T H
0027700 E N L O O P ; \t - - n o a
0027720 r g u m e n t i n p a r a m
0027740 e t e r b o x t o p r o c
0027760 e s s \r [ t a b
0030000 , v a l i d ] _ P a r a m
0030020 e t e r D e f s . G e t C a r d
0030040 i n a l [ c o l u m n ] ; \r \t I
0030060 F v a l i d A N D t a b
0030100 I N [ 0 . . E m G T T Y P r i
0030120 v D e f s . m a x C o l u m n s
0030140 ] T H E N \r \t s e t [ t
0030160 a b ] _ T R U E \r \t E L S E
0030200 { \r \t M e s s a g e S w n
0030220 D e f s . D i s p l a y M e s s
0030240 a g e L i t e r a l [ Z k e y M
0030260 e s s a g e D e f s . G e t M s
0030300 g [ k e y Z 9 3 8 ] . m s g ] ;
0030320 \r \t - - k e y Z 9 3 8 =
0030340 k e y T T Y s u I n v a l i d
0030360 T a b E n t r y \r \t P a r a
0030400 m e t e r D e f s . S e l e c t
0030420 T e x t p a r m [ c o l u m n ]
0030440 ; \r \t R E T U R N [ F A L S
0030460 E ] \r \t } \r
0030500 E N D L O O P ; \r \t \r
0030520 - - T h e v a r i a b l e
0030540 l a s t c o l i s u s e d
0030560 s o l e l y f o r r e m e
0030600 m b e r i n g t h e s t a t
0030620 e \r - - o f t h
0030640 e o r i g i n a l t a b s
0030660 e t t i n g s b e f o r e a
0030700 n y e d i t s . T h i s a
0030720 l l o w s t h e u s e r t
0030740 o \r - - m a k e
0030760 c h a n g e s t o e x i s t
0031000 i n g t a b s t o p s o n
0031020 t h e s h e e t ; W e s
0031040 i m p l y p e r f o r m a
0031060 b l a n k e t \r -
0031100 - c l e a r o f a l l t
0031120 a b c o l u m n s u p t o
0031140 l a s t c o l , a n d t h
0031160 e n d o a s e l e c t i v
0031200 e s e t r e s u l t i n g
0031220 \r - - i n a
0031240 n y u n c h a n g e d , c h
0031260 a n g e d o r n e w e n t
0031300 r i e s t o b e e n t e r
0031320 e d a g a i n . \r \t \r
0031340 F O R i I N ( 0 . . l
0031360 a s t c o l ] D O \t \t \t \t - -
0031400 c l e a r o r i g i n a l
0031420 t a b s e t t i n g s \r
0031440 E m G T T Y A c t i o
0031460 n D e f s . C l e a r T a b [ e
0031500 m d a t a . a c t i o n , i -
0031520 1 ] \r \t E N D L O O P ; \r \t \r
0031540 F O R i I N ( 0
0031560 . . E m G T T Y P r i v D e f s
0031600 . m a x C o l u m n s ] D O \t
0031620 - - s e t n e w t a b s
0031640 e t t i n g s \r
0031660 I F s e t [ i ] T H E N E
0031700 m G T T Y A c t i o n D e f s .
0031720 S e t T a b [ e m d a t a . a c
0031740 t i o n , i - 1 ] \r \t E N D L
0031760 O O P \r } \r
0032000 E L S E \r E m G T
0032020 T Y A c t i o n D e f s . C l e
0032040 a r T a b [ e m d a t a . a c t
0032060 i o n , 0 , T R U E ] ; \r
0032100 \r I F c u r s o
0032120 r C h a n g e d T H E N { \r
0032140 c r s h a p e : G
0032160 V D T D e f s . C R S h a p e
0032200 = G V D T D e f s . G e t C u
0032220 r s o r S h a p e [ e m d a t a
0032240 . d i s p l a y ] ; \r
0032260 c u r s o r C h a n g e d _
0032300 F A L S E ; \r I F
0032320 P a r a m e t e r D e f s . G
0032340 e t C h o i c e P a r m v a l u
0032360 e [ p t o s d a t a [ p a r m C
0032400 u r s o r ] ] = 0 T H E N
0032420 \r B E G I N
0032440 \r e m d a t a .
0032460 p r e C u r s o r S h a p e _
0032500 S E L E C T e m d a t a . p
0032520 r e C u r s o r S h a p e F R
0032540 O M \r \t b o x =
0032560 > u n d e r s c o r e , \r \t
0032600 g h o s t b o x = > g h o
0032620 s t u n d e r s c o r e , \r \t
0032640 b l i n k b o x = > b l i
0032660 n k u n d e r s c o r e , \r \t
0032700 E N D C A S E = > e m d
0032720 a t a . p r e C u r s o r S h a
0032740 p e ; \r G V D T
0032760 D e f s . S e t C u r s o r S h
0033000 a p e [ e m d a t a . d i s p l
0033020 a y , \r S
0033040 E L E C T c r s h a p e F R
0033060 O M \r \t b o x
0033100 = > u n d e r s c o r e ,
0033120 \r \t g h o s t b o x =
0033140 > g h o s t u n d e r s c o r
0033160 e , \r \t b l i n k b o x
0033200 = > b l i n k u n d e r s c
0033220 o r e , \r \t E N D C A S
0033240 E = > c r s h a p e ] \r
0033260 \t E N D \r E L S E
0033300 \r B E G I N \r
0033320 e m d a t a . p
0033340 r e C u r s o r S h a p e _
0033360 S E L E C T e m d a t a . p r
0033400 e C u r s o r S h a p e F R O
0033420 M \r \t u n d e r s c o r e
0033440 = > b o x , \r \t
0033460 g h o s t u n d e r s c o r e
0033500 = > g h o s t b o x , \r \t
0033520 b l i n k u n d e r s c o r e
0033540 = > b l i n k b o x , \r \t
0033560 E N D C A S E
0033600 = > e m d a t a . p r e C u r
0033620 s o r S h a p e ; \r
0033640 G V D T D e f s . S e t C u
0033660 r s o r S h a p e [ e m d a t a
0033700 . d i s p l a y , \r
0033720 S E L E C T c r s h
0033740 a p e F R O M \r \t u
0033760 n d e r s c o r e =
0034000 > b o x , \r \t g h o s
0034020 t u n d e r s c o r e = > g
0034040 h o s t b o x , \r \t b l
0034060 i n k u n d e r s c o r e = >
0034100 b l i n k b o x , \r \t
0034120 E N D C A S E
0034140 = > c r s h a p e ] \r \t E N
0034160 D \r } ; \r \t \r
0034200 I F a n s i C h a n g e d
0034220 T H E N { \r a n s
0034240 i C h a n g e d _ F A L S E
0034260 ; \r E m G T T Y A c
0034300 t i o n D e f s . E x e c u t e
0034320 [ e m d a t a . a c t i o n ,
0034340 0 , \r I F (
0034360 i c o n D a t a . a n s i M o d
0034400 e _ P a r a m e t e r D e f
0034420 s . G e t C h o i c e P a r m v
0034440 a l u e [ \r
0034460 p t o s d a t a [ p a r m A n s
0034500 i V T 5 2 ] ] = 0 ) T H E
0034520 N A N S I O n E L S E V T
0034540 5 2 O n ] \r } ; \r
0034560 \r I F p o u n
0034600 d C h a n g e d T H E N { \r
0034620 p o u n d C h a n g
0034640 e d _ F A L S E ; \r
0034660 E m G T T Y C h a r T r a n
0034700 s D e f s . S e t P o u n d S i
0034720 g n [ e m d a t a . l a n g u a
0034740 g e , \r I F
0034760 ( i c o n D a t a . U S l b S i
0035000 g n _ \r
0035020 P a r a m e t e r D e f s . G e
0035040 t C h o i c e P a r m v a l u e
0035060 [ p t o s d a t a [ p a r m P o
0035100 u n d S i g n ] ] = 0 ) T
0035120 H E N \r \t p o u n d S i
0035140 g n E L S E b r i t i s h P
0035160 o u n d S t e r l i n g S i g n
0035200 ] \r } ; \r \t \r
0035220 I F c h o i c e C h a n g e
0035240 d T H E N { \r c
0035260 h o i c e C h a n g e d _ F
0035300 A L S E ; \r i c o n
0035320 D a t a . a u t o W r a p _
0035340 P a r a m e t e r D e f s . G e
0035360 t C h o i c e P a r m v a l u e
0035400 [ p t o s d a t a [ p a r m A u
0035420 t o W r a p ] ] = 0 ; \r
0035440 i c o n D a t a . L T S
0035460 M o d e _ P a r a m e t e
0035500 r D e f s . G e t C h o i c e P
0035520 a r m v a l u e [ p t o s d a t
0035540 a [ p a r m L T S A c t i v e ]
0035560 ] = 0 ; \r i c o
0035600 n D a t a . m a r g i n B e l l
0035620 _ P a r a m e t e r D e f s
0035640 . G e t C h o i c e P a r m v a
0035660 l u e [ p t o s d a t a [ p a r
0035700 m M a r g i n B e l l ] ] =
0035720 0 \r } ; \r
0035740 \r I F t e x t A n s
0035760 w e r B a c k C h a n g e d T
0036000 H E N { \r t e m p
0036020 : L O N G S T R I N G =
0036040 P a r a m e t e r D e f s . G e
0036060 t T e x t P a r m v a l u e [ p
0036100 t o s d a t a [ p a r m A n s w
0036120 e r B a c k M s g ] ] ; \r
0036140 t e x t A n s w e r B a c
0036160 k C h a n g e d _ F A L S E
0036200 ; \r I F i c o n D
0036220 a t a . a n s w e r b a c k M s
0036240 g # W S S t r i n g U t i l
0036260 D e f s . s t r i n g N u l l
0036300 T H E N \r W S
0036320 S t r i n g U t i l D e f s . D
0036340 e s t r o y S t r i n g [ i c o
0036360 n D a t a . a n s w e r b a c k
0036400 M s g ] ; \r i c o n
0036420 D a t a . a n s w e r b a c k M
0036440 s g _ W S S t r i n g U t i
0036460 l D e f s . C o p y S t r i n g
0036500 [ \r W S S t r i
0036520 n g D e f s . S t r i n g F r o
0036540 m L O N G S T R I N G [ t e m p
0036560 ] ] ; \r P a r a m e
0036600 t e r D e f s . D e s t r o y T
0036620 e x t P a r m v a l u e [ t e m
0036640 p ] \r } ; \r
0036660 \r I F P a r a m e
0036700 t e r D e f s . G e t S t a t e
0036720 P a r m v a l u e [ p t o s d a
0036740 t a [ p a r m S a v e D a t a ]
0036760 ] T H E N { \r -
0037000 - S t o r e p e r m a n e n
0037020 t l y t h e v a l u e s i
0037040 n t h e V T 1 0 0 S e t U
0037060 p s h e e t i n t o t h e
0037100 b a c k i n g f i l e . \r
0037120 E N A B L E \r \t N S
0037140 F i l e . E r r o r = > C O
0037160 N T I N U E ; \r T T
0037200 Y i c o n : I c o n D e f s .
0037220 I c o n = e m d a t a . i c
0037240 o n ; \r f i l e T T
0037260 Y : N S F i l e . H a n d l e
0037300 = N S F i l e . O p e n C h
0037320 i l d [ \r \t I c o n D e f s . P
0037340 a r e n t F r o m I c o n [ T T
0037360 Y i c o n ] , I c o n D e f s
0037400 . R e f e r e n c e F r o m I c
0037420 o n [ T T Y i c o n ] . f i l e
0037440 I D ] ; \r M y d a t
0037460 a : E m T T Y D e f s . L p t
0037500 t r t t t y i c o n d a t a _
0037520 E m G T T Y P r i v D e f s .
0037540 s h o r t Z o n e . N E W [ \r \t
0037560 E m T T Y D e f s . T r t t t y
0037600 i c o n d a t a _ [ N U L L
0037620 , E m G T T Y P r i v D e f s
0037640 . v a l i d I d , \r \t E
0037660 m G T T Y P r i v D e f s . s h
0037700 o r t Z o n e . N E W [ E m G T
0037720 T Y P r i v D e f s . E m I c o
0037740 n D a t a ] ] ] ; \r
0037760 M y m o r e : E m G T T Y P r
0040000 i v D e f s . L p t I c o n D a
0040020 t a _ M y d a t a . l p t M
0040040 o r e S t a t e ; \r
0040060 v a l i d : B O O L E A N
0040100 = E m G T T Y P r i v D e f s
0040120 . G e t F i l e D a t a [ f i l
0040140 e T T Y , M y d a t a ] ; \r
0040160 N S F i l e . C l o s
0040200 e [ f i l e T T Y ] ; \r
0040220 I F v a l i d T H E N
0040240 { \r \t M y m o r e . s c r e e n
0040260 T a b s _ i c o n D a t a .
0040300 s c r e e n T a b s ; \r \t M y m
0040320 o r e . m a r g i n B e l l _
0040340 i c o n D a t a . m a r g i n
0040360 B e l l ; \r \t M y m o r e . a n
0040400 s w e r b a c k M s g _ i c
0040420 o n D a t a . a n s w e r b a c
0040440 k M s g ; \r \t M y m o r e . U S
0040460 l b S i g n _ i c o n D a t
0040500 a . U S l b S i g n ; \r \t M y m
0040520 o r e . t a b _ i c o n D a
0040540 t a . t a b ; \r \t M y m o r e .
0040560 c u r s o r S h a p e _ S E
0040600 L E C T e m d a t a . p r e C
0040620 u r s o r S h a p e F R O M \r
0040640 \t u n d e r s c o r e , g
0040660 h o s t u n d e r s c o r e ,
0040700 b l i n k u n d e r s c o r e
0040720 = > u n d e r s c o r e , E
0040740 N D C A S E = > b o x ; \r \t
0040760 E m G T T Y P r i v D e f s . S
0041000 a v e P S D a t a [ T T Y i c o
0041020 n , M y m o r e ] \r \t } ; \r
0041040 E m G T T Y P r i v D
0041060 e f s . s h o r t Z o n e . F R
0041100 E E [ @ M y d a t a . l p t M o
0041120 r e S t a t e ] ; \r
0041140 E m G T T Y P r i v D e f s . s
0041160 h o r t Z o n e . F R E E [ @ M
0041200 y d a t a ] \r } ; \r
0041220 \r R E T U R
0041240 N [ T R U E ] \r E N D ;
0041260 - - o f P a r m s A r e
0041300 V a l i d T T Y \r \r
0041320 \r D e s t r o y p s D a
0041340 t a : P a r a m e t e r D e f
0041360 s . P v d e s t r o y d a t a
0041400 = \r - - P R O C E D U
0041420 R E [ ] = \r - - T
0041440 h i s p r o c e d u r e w i
0041460 l l b e c a l l e d i n
0041500 t h r e e d i f f e r e n t
0041520 c a s e s : \r - - a )
0041540 w h e n t h e C A N C E
0041560 L m e n u i t e m / b u t t
0041600 o n i s c l i c k e d . \r
0041620 - - b ) a f t e r
0041640 s e l e c t i n g t h e S T
0041660 A R T b u t t o n w i t h
0041700 P a r m s A r e V a l i d T T Y
0041720 r e t u r n i n g v a l i d
0041740 . \r - - c ) i f
0041760 t h e u s e r s e l e c t s
0042000 E N D S E S S I O N i n
0042020 t h e a u x i l l a r y m e
0042040 n u t o l o g o f f . \r
0042060 - - I n a l l t h r
0042100 e e c a s e s , P s B o d y
0042120 S c h e m a P a c k c a l l s
0042140 D e s t r o y o s D a t a [ ]
0042160 w h i c h c l o s e s t h
0042200 e \r - - S e t - U p
0042220 S h e e t . \r B E G I
0042240 N \r D C 1 : X O n X O
0042260 f f _ A L L [ E m G T T Y C
0042300 h a r T r a n s D e f s . D C 1
0042320 ] ; \r - - F r e e u
0042340 p s t o r a g e c o n t a i
0042360 n i n g p a r m h a n d l e
0042400 s . \r E m G T T Y P r i
0042420 v D e f s . s h o r t Z o n e .
0042440 F R E E [ @ p t o s d a t a ] ;
0042460 \r - - S e n d X O N
0042500 s e q u e n c e t o h o s
0042520 t . \r E m G T T Y C o m
0042540 D e f s . R e p o r t T o H o s
0042560 t [ E m G T T Y P r i v D e f s
0042600 . G e t C o m H a n d l e [ l s
0042620 c h e m a T T Y i c o n ] , E
0042640 n v i r o n m e n t . B l o c k
0042660 [ @ D C 1 , 0 , 1 ] ] \r
0042700 E N D ; - - o f D
0042720 e s t r o y p s D a t a \r
0042740 \r \r H e l p
0042760 : P a r a m e t e r D e f s .
0043000 P v h e l p = \r B E
0043020 G I N \r H e l p D e f s
0043040 . O p e n H e l p W i n d o w [
0043060 h e l p t y p e V T 1 0 0 S e t
0043100 u p P r o p S h e e t ] \r
0043120 E N D ; - - o f H e
0043140 l p \r \r \r A
0043160 n s i C h a n g e d : P a r a
0043200 m e t e r D e f s . P v c h o i
0043220 c e p a r m c h a n g e d = \r
0043240 B E G I N \r a n
0043260 s i C h a n g e d _ T R U E
0043300 \r E N D ; - - o
0043320 f A n s i C h a n g e d \r
0043340 \r \r C h o i c e C
0043360 h a n g e d : P a r a m e t e
0043400 r D e f s . P v c h o i c e p a
0043420 r m c h a n g e d = \r
0043440 B E G I N \r c h o i c
0043460 e C h a n g e d _ T R U E \r
0043500 E N D ; - - o f
0043520 C h o i c e C h a n g e d \r
0043540 \r \r C u r s o r C h a n
0043560 g e d : P a r a m e t e r D e
0043600 f s . P v c h o i c e p a r m c
0043620 h a n g e d = \r B E G
0043640 I N \r c u r s o r C h
0043660 a n g e d _ T R U E \r
0043700 E N D ; - - o f C u r
0043720 s o r C h a n g e d \r
0043740 \r \r P o u n d C h
0043760 a n g e d : P a r a m e t e r
0044000 D e f s . P v c h o i c e p a r
0044020 m c h a n g e d = \r B
0044040 E G I N \r p o u n d C h
0044060 a n g e d _ T R U E \r
0044100 E N D ; - - o f P o u
0044120 n d C h a n g e d \r \r
0044140 \r S e t c l e a r C
0044160 h a n g e d : P a r a m e t e
0044200 r D e f s . P v c h o i c e p a
0044220 r m c h a n g e d = \r
0044240 B E G I N \r I F P a r
0044260 a m e t e r D e f s . G e t C h
0044300 o i c e P a r m v a l u e [ p a
0044320 r m ] = 0 T H E N { \r
0044340 P a r a m e t e r D
0044360 e f s . S h o w P a r m [ p t o
0044400 s d a t a [ p a r m T a b G r o
0044420 u p ] ] ; \r P a r a
0044440 m e t e r D e f s . S e l e c t
0044460 T e x t p a r m [ P a r a m e t
0044500 e r D e f s . F i n d [ \r
0044520 p t o s d a t a [ p a
0044540 r m T a b G r o u p ] , [ [ 0
0044560 , p a r m C o l u m n ] ] ] ]
0044600 \r } \r E L S
0044620 E \r P a r a m e t
0044640 e r D e f s . E r a s e P a r m
0044660 [ p t o s d a t a [ p a r m T a
0044700 b G r o u p ] ] \r E N D
0044720 ; - - o f S e t c l e a
0044740 r C h a n g e d \r \r
0044760 \r S t a t e C h a n g e
0045000 d : P a r a m e t e r D e f s
0045020 . P v s t a t e p a r m c h a n
0045040 g e d = \r B E G I N \r
0045060 N U L L - - N O O
0045100 P \r E N D ; - - o
0045120 f S t a t e C h a n g e d \r
0045140 \r \r T a
0045160 b C o l u m n C h a n g e d :
0045200 P a r a m e t e r D e f s . P v
0045220 t e x t p a r m c h a n g e d
0045240 = \r B E G I N \r
0045260 t a b : C A R D I N A L
0045300 _ 0 ; \r v a l i d :
0045320 B O O L E A N _ T R U E ;
0045340 \r \r - - I F
0045360 C L E A R c h o i c e s e l
0045400 e c t e d O R N O T l a s
0045420 t e l e m e n t T H E N s
0045440 k i p e r r o r c h e c k i
0045460 n g . \r I F P a r a m
0045500 e t e r D e f s . G e t C h o i
0045520 c e P a r m v a l u e [ p t o s
0045540 d a t a [ p a r m S c r e e n M
0045560 o d e ] ] = 1 O R \r
0045600 p a r m # P a r a m e
0045620 t e r D e f s . F i n d [ p t o
0045640 s d a t a [ p a r m T a b G r o
0045660 u p ] , [ [ 0 , n e x t c o
0045700 l - 1 ] ] ] \r
0045720 T H E N R E T U R N ; \r
0045740 [ t a b , v a l i d ] _
0045760 P a r a m e t e r D e f s . G e
0046000 t C a r d i n a l [ p a r m ] ;
0046020 \r I F v a l i d A N
0046040 D t a b I N ( 0 . . E m G
0046060 T T Y P r i v D e f s . m a x C
0046100 o l u m n s ] A N D n e x t
0046120 c o l < s u b g r o u p S i
0046140 z e T H E N { \r
0046160 P a r a m e t e r D e f s . S h
0046200 o w P a r m [ P a r a m e t e r
0046220 D e f s . F i n d [ \r \t p t o s
0046240 d a t a [ p a r m T a b G r o u
0046260 p ] , [ [ 0 , n e x t c o l
0046300 ] ] ] ] ; \r n e x t
0046320 c o l _ n e x t c o l +
0046340 1 \r } \r E
0046360 N D ; - - o f T e x t C
0046400 o l u m n C h a n g e d \r \r
0046420 \r T e x t A n s w e r
0046440 B a c k C h a n g e d : P a r
0046460 a m e t e r D e f s . P v t e x
0046500 t p a r m c h a n g e d = \r
0046520 B E G I N \r t e
0046540 x t A n s w e r B a c k C h a n
0046560 g e d _ T R U E \r E
0046600 N D ; - - o f T e x t A
0046620 n s w e r B a c k C h a n g e d
0046640 \r \r \r - - = = = = = = = =
0046660 = = = = = = = = = = = = = = = \r
0046700 - - I n i t i a l O p
0046720 e r a t i o n s \r - - = = =
0046740 = = = = = = = = = = = = = = = =
0046760 = = = = \r \r I n i t :
0047000 P R O C E D U R E = \r
0047020 B E G I N \r k e y T T Y
0047040 s u N V M O p t i o n :
0047060 M e s s a g e D e f s . M
0047100 s g k e y = L O O P H O L E
0047120 [ Z k e y M e s s a g e D e f s
0047140 . M s g k e y [ k e y Z 1 2 8 2
0047160 ] ] ; \r k e y T T Y s u
0047200 S a v e D a t a :
0047220 M e s s a g e D e f s . M s g
0047240 k e y = L O O P H O L E [ Z
0047260 k e y M e s s a g e D e f s . M
0047300 s g k e y [ k e y Z 1 2 8 3 ] ]
0047320 ; \r k e y T T Y o s O n
0047340 O f f C h o i c e s : M
0047360 e s s a g e D e f s . M s g k e
0047400 y = L O O P H O L E [ Z k e
0047420 y M e s s a g e D e f s . M s g
0047440 k e y [ k e y Z 8 1 6 ] ] ; \r
0047460 k e y T T Y s u S c r o l
0047500 l : M e s s
0047520 a g e D e f s . M s g k e y =
0047540 L O O P H O L E [ Z k e y M e
0047560 s s a g e D e f s . M s g k e y
0047600 [ k e y Z 9 4 0 ] ] ; \r
0047620 k e y T T Y s u C u r s o r :
0047640 M e s s a g e
0047660 D e f s . M s g k e y = L O
0047700 O P H O L E [ Z k e y M e s s a
0047720 g e D e f s . M s g k e y [ k e
0047740 y Z 9 4 2 ] ] ; \r k e y
0047760 T T Y s u C u r s o r C h o i c
0050000 e : M e s s a g e D e f
0050020 s . M s g k e y = L O O P H
0050040 O L E [ Z k e y M e s s a g e D
0050060 e f s . M s g k e y [ k e y Z 9
0050100 4 3 ] ] ; \r k e y T T Y
0050120 s u M a r g i n B e l l :
0050140 M e s s a g e D e f s . M
0050160 s g k e y = L O O P H O L E
0050200 [ Z k e y M e s s a g e D e f s
0050220 . M s g k e y [ k e y Z 9 4 4 ]
0050240 ] ; \r k e y T T Y s u A
0050260 n s i V T 5 2 :
0050300 M e s s a g e D e f s . M s g k
0050320 e y = L O O P H O L E [ Z k
0050340 e y M e s s a g e D e f s . M s
0050360 g k e y [ k e y Z 9 4 5 ] ] ; \r
0050400 k e y T T Y s u A n s i
0050420 V T 5 2 C h o i c e : M e s
0050440 s a g e D e f s . M s g k e y
0050460 = L O O P H O L E [ Z k e y M
0050500 e s s a g e D e f s . M s g k e
0050520 y [ k e y Z 9 4 6 ] ] ; \r
0050540 k e y T T Y s u P o u n d S i
0050560 g n : M e s s a g
0050600 e D e f s . M s g k e y = L
0050620 O O P H O L E [ Z k e y M e s s
0050640 a g e D e f s . M s g k e y [ k
0050660 e y Z 9 4 7 ] ] ; \r k e
0050700 y T T Y s u P o u n d C h o i c
0050720 e : M e s s a g e D e
0050740 f s . M s g k e y = L O O P
0050760 H O L E [ Z k e y M e s s a g e
0051000 D e f s . M s g k e y [ k e y Z
0051020 9 4 8 ] ] ; \r k e y T T
0051040 Y s u A u t o W r a p :
0051060 M e s s a g e D e f s .
0051100 M s g k e y = L O O P H O L
0051120 E [ Z k e y M e s s a g e D e f
0051140 s . M s g k e y [ k e y Z 0 0 ]
0051160 ] ; \r k e y T T Y s u L
0051200 T S A c t i v e :
0051220 M e s s a g e D e f s . M s g k
0051240 e y = L O O P H O L E [ Z k
0051260 e y M e s s a g e D e f s . M s
0051300 g k e y [ k e y Z 9 4 9 ] ] ; \r
0051320 k e y T T Y s u P a r i
0051340 t y : M e s
0051360 s a g e D e f s . M s g k e y
0051400 = L O O P H O L E [ Z k e y M
0051420 e s s a g e D e f s . M s g k e
0051440 y [ k e y Z 0 3 ] ] ; \r
0051460 k e y T T Y s u T a n d R S p e
0051500 e d : M e s s a g e
0051520 D e f s . M s g k e y = L O
0051540 O P H O L E [ Z k e y M e s s a
0051560 g e D e f s . M s g k e y [ k e
0051600 y Z 9 5 0 ] ] ; \r k e y
0051620 T T Y s u A n s w e r B a c k M
0051640 s g : M e s s a g e D e f
0051660 s . M s g k e y = L O O P H
0051700 O L E [ Z k e y M e s s a g e D
0051720 e f s . M s g k e y [ k e y Z 9
0051740 5 1 ] ] ; \r k e y T T Y
0051760 s u S c r e e n T a b s :
0052000 M e s s a g e D e f s . M
0052020 s g k e y = L O O P H O L E
0052040 [ Z k e y M e s s a g e D e f s
0052060 . M s g k e y [ k e y Z 0 4 ] ]
0052100 ; \r k e y T T Y s u S c
0052120 r e e n T a b C h o i c e : M
0052140 e s s a g e D e f s . M s g k e
0052160 y = L O O P H O L E [ Z k e
0052200 y M e s s a g e D e f s . M s g
0052220 k e y [ k e y Z 9 5 2 ] ] ; \r
0052240 k e y T T Y s u C o l u m
0052260 n : M e s s
0052300 a g e D e f s . M s g k e y =
0052320 L O O P H O L E [ Z k e y M e
0052340 s s a g e D e f s . M s g k e y
0052360 [ k e y Z 9 5 3 ] ] ; \r
0052400 \r p t r g p a r m d a t
0052420 a T a b G r o u p : L O N G
0052440 P O I N T E R T O A R R A Y
0052460 [ 0 . . s u b g r o u p S i z
0052500 e ) O F \r P a r a
0052520 m e t e r D e f s . P a r m d a
0052540 t a _ E m G T T Y P r i v D
0052560 e f s . p e r m a n e n t Z o n
0052600 e . N E W [ \r A
0052620 R R A Y [ 0 . . s u b g r o u
0052640 p S i z e ) O F P a r a m e
0052660 t e r D e f s . P a r m d a t a
0052700 _ A L L [ \r \t P a r a m
0052720 e t e r D e f s . P a r m d a t
0052740 a [ \r \t p a r m k e y :
0052760 P a r a m e t e r D e f s . P
0053000 a r m k e y [ 0 , p a r m C o
0053020 l u m n ] , \r \t b v S h
0053040 e l l D e s i r e d : T R U E
0053060 , \r \t s h e l l p a r m
0053100 d a t a : [ m s g k e y , m
0053120 s g k e y [ k e y T T Y s u C o
0053140 l u m n , t a b s ] ] , \r \t
0053160 - - s h e l l p a r m d
0053200 a t a : [ l s v , l s v [ "
0053220 C o l u m n : @ \ \ " , t a b
0053240 s ] ] , \r \t v a r i a n
0053260 t : t e x t p a r m [ \r \t
0053300 p a r m n u c l e u s d
0053320 a t a : [ l s v , l s v [ n
0053340 i l ] ] , \r \t w t h
0053360 T e x t : 3 6 , \r \t
0053400 p v t e x t p a r m c h a n g
0053420 e d : T a b C o l u m n C h a
0053440 n g e d ] ] ] ] ; \r \t \r \r
0053460 p t r g p a r m d a t a
0053500 G r o u p 0 : L O N G P O I
0053520 N T E R T O A R R A Y [ 0
0053540 . . n u m P a r m s ) O F \r
0053560 P a r a m e t e r D
0053600 e f s . P a r m d a t a _ E
0053620 m G T T Y P r i v D e f s . p e
0053640 r m a n e n t Z o n e . N E W [
0053660 \r A R R A Y [
0053700 0 . . n u m P a r m s ) O F
0053720 P a r a m e t e r D e f s . P a
0053740 r m d a t a _ [ \r \t P a
0053760 r a m e t e r D e f s . P a r m
0054000 d a t a [ \r \t b v S h
0054020 e l l D e s i r e d : T R U E
0054040 , \r \t s h e l l p a r m
0054060 d a t a : [ m s g k e y , m
0054100 s g k e y [ k e y T T Y s u N V
0054120 M O p t i o n , t a b s ] ] ,
0054140 \r \t - - s h e l l p a
0054160 r m d a t a : [ l s v , l s
0054200 v [ " N V R O p t i o n : @ \
0054220 \ " , t a b s ] ] , \r \t
0054240 v a r i a n t : s t a t e p
0054260 a r m [ \r \t p a r m
0054300 n u c l e u s d a t a : [ m s
0054320 g k e y , m s g k e y [ k e y
0054340 T T Y s u S a v e D a t a ] ] ,
0054360 \r \t - - p a r m n
0054400 u c l e u s d a t a : [ l s v
0054420 , l s v [ " @ S A V E D A T
0054440 A \ \ " ] ] , \r \t p
0054460 v s t a t e p a r m c h a n g e
0054500 d : S t a t e C h a n g e d ]
0054520 ] , \r \r \t P a r a m e t e r
0054540 D e f s . P a r m d a t a [ \r
0054560 \t b v S h e l l D e s i
0054600 r e d : T R U E , \r \t
0054620 s h e l l p a r m d a t a : [
0054640 m s g k e y , m s g k e y [ k
0054660 e y T T Y s u S c r o l l , t
0054700 a b s ] ] , \r \t - - s
0054720 h e l l p a r m d a t a : [ l
0054740 s v , l s v [ " S c r o l l :
0054760 @ \ \ " , t a b s ] ] , \r \t
0055000 v a r i a n t : i n f o
0055020 p a r m [ \r \t p a r
0055040 m n u c l e u s d a t a : [ m
0055060 s g , m s g [ M e s s a g e D
0055100 e f s . m s g N i l ] ] ] ] , \r
0055120 \r \t P a r a m e t e r D
0055140 e f s . P a r m d a t a [ \r \t
0055160 b v S h e l l D e s i r e
0055200 d : T R U E , \r \t s h
0055220 e l l p a r m d a t a : [ m s
0055240 g k e y , m s g k e y [ k e y
0055260 T T Y s u C u r s o r , t a b
0055300 s ] ] , \r \t - - s h e
0055320 l l p a r m d a t a : [ l s v
0055340 , l s v [ " C u r s o r : @ \
0055360 \ " , t a b s ] ] , \r \t
0055400 v a r i a n t : c h o i c e
0055420 p a r m [ \r \t p a r
0055440 m n u c l e u s d a t a : [ m
0055460 s g k e y , m s g k e y [ k e
0055500 y T T Y s u C u r s o r C h o i
0055520 c e ] ] , \r \t - -
0055540 p a r m n u c l e u s d a t a :
0055560 [ l s v , l s v [ " @ U N D
0055600 E R L I N E @ B L O C K \ \ " ]
0055620 ] , \r \t p v c h o i
0055640 c e p a r m c h a n g e d : C
0055660 u r s o r C h a n g e d ] ] , \r
0055700 \r \t P a r a m e t e r D
0055720 e f s . P a r m d a t a [
0055740 \r \t b v S h e l l D e s
0055760 i r e d : T R U E , \r \t
0056000 s h e l l p a r m d a t a :
0056020 [ m s g k e y , m s g k e y [
0056040 k e y T T Y s u M a r g i n B e
0056060 l l , t a b s ] ] , \r \t
0056100 - - s h e l l p a r m d a t
0056120 a : [ l s v , l s v [ " M a
0056140 r g i n B e l l : @ \ \ " ,
0056160 t a b s ] ] , \r \t v a r
0056200 i a n t : c h o i c e p a r m
0056220 [ \r \t p a r m n u c
0056240 l e u s d a t a : [ m s g k e
0056260 y , m s g k e y [ k e y T T Y
0056300 o s O n O f f C h o i c e s ] ]
0056320 , \r \t - - p a r m
0056340 n u c l e u s d a t a : [ l s
0056360 v , l s v [ " @ O N @ O F F \
0056400 \ " ] ] , \r \t p v c
0056420 h o i c e p a r m c h a n g e d
0056440 : C h o i c e C h a n g e d ]
0056460 ] , \r \r \t P a r a m e t
0056500 e r D e f s . P a r m d a t a [
0056520 \r \t b v S h e l l D e s
0056540 i r e d : T R U E , \r \t
0056560 s h e l l p a r m d a t a :
0056600 [ m s g k e y , m s g k e y [
0056620 k e y T T Y s u A n s i V T 5 2
0056640 , t a b s ] ] , \r \t -
0056660 - s h e l l p a r m d a t a :
0056700 [ l s v , l s v [ " A n s i
0056720 / V T 5 2 : @ \ \ " , t a b s
0056740 ] ] , \r \t v a r i a n t
0056760 : c h o i c e p a r m [ \r \t
0057000 p a r m n u c l e u s
0057020 d a t a : [ m s g k e y , m
0057040 s g k e y [ k e y T T Y s u A n
0057060 s i V T 5 2 C h o i c e ] ] , \r
0057100 \t - - p a r m n u
0057120 c l e u s d a t a : [ l s v ,
0057140 l s v [ " @ A N S I @ V T 5 2
0057160 \ \ " ] ] , \r \t p v
0057200 c h o i c e p a r m c h a n g e
0057220 d : A n s i C h a n g e d ] ]
0057240 , \r \r \t P a r a m e t e
0057260 r D e f s . P a r m d a t a [
0057300 \r \t b v
0057320 S h e l l D e s i r e d : T R
0057340 U E , \r \t s h e l l p a
0057360 r m d a t a : [ m s g k e y ,
0057400 m s g k e y [ k e y T T Y s u
0057420 P o u n d S i g n , t a b s ]
0057440 ] , \r \t - - s h e l l
0057460 p a r m d a t a : [ l s v ,
0057500 l s v [ " # / 377 \0 243 : @ \ \ " ,
0057520 t a b s ] ] , \r \t v a
0057540 r i a n t : c h o i c e p a r
0057560 m [ \r \t p a r m n u
0057600 c l e u s d a t a : [ m s g k
0057620 e y , m s g k e y [ k e y T T
0057640 Y s u P o u n d C h o i c e ] ]
0057660 , \r \t - - p a r m
0057700 n u c l e u s d a t a : [ l s
0057720 v , l s v [ " @ # @ 377 \0 243 \ \
0057740 " ] ] , \r \t p v c h
0057760 o i c e p a r m c h a n g e d :
0060000 P o u n d C h a n g e d ] ] ,
0060020 \r \r \t P a r a m e t e r
0060040 D e f s . P a r m d a t a [
0060060 \r \t b v S h e l l D e
0060100 s i r e d : T R U E , \r \t
0060120 s h e l l p a r m d a t a :
0060140 [ m s g k e y , m s g k e y
0060160 [ k e y T T Y s u A u t o W r a
0060200 p , t a b s ] ] , \r \t
0060220 - - s h e l l p a r m d a t a
0060240 : [ l s v , l s v [ " A u t
0060260 o W r a p : @ \ \ " , t a b
0060300 s ] ] , \r \t v a r i a n
0060320 t : c h o i c e p a r m [ \r \t
0060340 p a r m n u c l e u
0060360 s d a t a : [ m s g k e y ,
0060400 m s g k e y [ k e y T T Y o s O
0060420 n O f f C h o i c e s ] ] , \r \t
0060440 - - p a r m n u c
0060460 l e u s d a t a : [ l s v ,
0060500 l s v [ " @ O N @ O F F \ \ " ]
0060520 ] , \r \t p v c h o i
0060540 c e p a r m c h a n g e d : C
0060560 h o i c e C h a n g e d ] ] , \r
0060600 \r \t P a r a m e t e r D
0060620 e f s . P a r m d a t a [
0060640 \r \t b v S h e l l
0060660 D e s i r e d : T R U E , \r \t
0060700 s h e l l p a r m d a t
0060720 a : [ m s g k e y , m s g k
0060740 e y [ k e y T T Y s u L T S A c
0060760 t i v e , t a b s ] ] , \r \t
0061000 - - s h e l l p a r m d
0061020 a t a : [ l s v , l s v [ "
0061040 L T S A c t i v e ( N e w
0061060 l i n e ) : @ \ \ " , t a b s
0061100 ] ] , \r \t v a r i a n t
0061120 : c h o i c e p a r m [ \r \t
0061140 p a r m n u c l e u s
0061160 d a t a : [ m s g k e y , m
0061200 s g k e y [ k e y T T Y o s O n
0061220 O f f C h o i c e s ] ] , \r \t
0061240 - - p a r m n u c l
0061260 e u s d a t a : [ l s v , l
0061300 s v [ " @ O N @ O F F \ \ " ] ]
0061320 , \r \t p v c h o i c
0061340 e p a r m c h a n g e d : C h
0061360 o i c e C h a n g e d ] ] , \r
0061400 \r \t P a r a m e t e r D e
0061420 f s . P a r m d a t a [
0061440 \r \t b v S h e l
0061460 l D e s i r e d : T R U E , \r
0061500 \t s h e l l p a r m d a
0061520 t a : [ m s g k e y , m s g
0061540 k e y [ k e y T T Y s u P a r i
0061560 t y , t a b s ] ] , \r \t
0061600 - - s h e l l p a r m d a t
0061620 a : [ l s v , l s v [ " P a
0061640 r i t y : @ \ \ " , t a b s ]
0061660 ] , \r \t v a r i a n t :
0061700 i n f o p a r m [ \r \t
0061720 p a r m n u c l e u s d a t
0061740 a : [ m s g , m s g [ M e s
0061760 s a g e D e f s . m s g N i l ]
0062000 ] ] ] , \r \r \t P a r a m
0062020 e t e r D e f s . P a r m d a t
0062040 a [ \r \t
0062060 b v S h e l l D e s i r e d :
0062100 T R U E , \r \t s h e l
0062120 l p a r m d a t a : [ m s g k
0062140 e y , m s g k e y [ k e y T T
0062160 Y s u T a n d R S p e e d , t
0062200 a b s ] ] , \r \t - - s
0062220 h e l l p a r m d a t a : [ l
0062240 s v , l s v [ " T & R S
0062260 p e e d : @ \ \ " , t a b s ]
0062300 ] , \r \t v a r i a n t :
0062320 i n f o p a r m [ \r \t
0062340 p a r m n u c l e u s d a t
0062360 a : [ m s g , m s g [ M e s
0062400 s a g e D e f s . m s g N i l ]
0062420 ] ] ] , \r \r \t P a r a m
0062440 e t e r D e f s . P a r m d a t
0062460 a [ \r \t b
0062500 v S h e l l D e s i r e d : T
0062520 R U E , \r \t s h e l l p
0062540 a r m d a t a : [ m s g k e y
0062560 , m s g k e y [ k e y T T Y s
0062600 u A n s w e r B a c k M s g ,
0062620 t a b s ] ] , \r \t - -
0062640 s h e l l p a r m d a t a : [
0062660 l s v , l s v [ " A n s w e r
0062700 B a c k M e s s a g e : @ \
0062720 \ " , t a b s ] ] , \r \t
0062740 v a r i a n t : t e x t p a
0062760 r m [ \r \t p a r m n
0063000 u c l e u s d a t a : [ m s g
0063020 , m s g [ M e s s a g e D e f
0063040 s . m s g N i l ] ] , \r \t
0063060 w t h T e x t : 1 3 0 ,
0063100 \r \t p v t e x t p a
0063120 r m c h a n g e d : T e x t A
0063140 n s w e r B a c k C h a n g e d
0063160 ] ] , \r \t \r \t P
0063200 a r a m e t e r D e f s . P a r
0063220 m d a t a [ \r \t b v S h
0063240 e l l D e s i r e d : T R U E
0063260 , \r \t s h e l l p a r m
0063300 d a t a : [ m s g k e y , m
0063320 s g k e y [ k e y T T Y s u S c
0063340 r e e n T a b s , t a b s ] ]
0063360 , \r \t - - s h e l l p
0063400 a r m d a t a : [ l s v , l
0063420 s v [ " S c r e e n T a b s :
0063440 @ \ \ " , t a b s ] ] , \r \t
0063460 v a r i a n t : c h o i
0063500 c e p a r m [ \r \t p
0063520 a r m n u c l e u s d a t a :
0063540 [ m s g k e y , m s g k e y [
0063560 k e y T T Y s u S c r e e n T a
0063600 b C h o i c e ] ] , \r \t
0063620 - - p a r m n u c l e u s
0063640 d a t a : [ l s v , l s v [
0063660 " @ S E T @ C L E A R \ \ " ] ]
0063700 , \r \t p v c h o i c
0063720 e p a r m c h a n g e d : S e
0063740 t c l e a r C h a n g e d ] ] ,
0063760 \r \r \t P a r a m e
0064000 t e r D e f s . P a r m d a t a
0064020 [ \r \t v a r i a n t :
0064040 g r o u p p a r m [ \r \t
0064060 b v I s V e r t i c a l :
0064100 T R U E , \r \t r g p
0064120 a r m d a t a : D E S C R I P
0064140 T O R [ p t r g p a r m d a t a
0064160 T a b G r o u p ^ ] ] ] ] ] ; \r
0064200 \t \r - - e x e c
0064220 u t a b l e c o d e
0064240 \r F O R i :
0064260 C A R D I N A L I N ( 0 .
0064300 . s u b g r o u p S i z e ) D
0064320 O \r p t r g p a r
0064340 m d a t a T a b G r o u p [ i ]
0064360 . p a r m k e y _ P a r a m
0064400 e t e r D e f s . P a r m k e y
0064420 [ 0 , i ] \r E N D
0064440 L O O P ; \r \r p a r m d
0064460 a t a M a i n _ E m G T T Y
0064500 P r i v D e f s . p e r m a n e
0064520 n t Z o n e . N E W [ P a r a m
0064540 e t e r D e f s . P a r m d a t
0064560 a _ [ \r v a r i
0064600 a n t : g r o u p p a r m [ \r
0064620 b v I s V e r t
0064640 i c a l : T R U E , \r
0064660 r g p a r m d a t a :
0064700 D E S C R I P T O R [ p t r g p
0064720 a r m d a t a G r o u p 0 ^ ] ]
0064740 ] ] ; \r \r r
0064760 g p a r m d a t a G r o u p 0
0065000 _ D E S C R I P T O R [ p
0065020 t r g p a r m d a t a G r o u p
0065040 0 ^ ] ; \r r g p a r m d
0065060 a t a T a b G r o u p _ D E
0065100 S C R I P T O R [ p t r g p a r
0065120 m d a t a T a b G r o u p ^ ] \r
0065140 E N D ; - - o f
0065160 I n i t \r \r \r - - M A I
0065200 N L I N E C O D E \r \r
0065220 I n i t [ ] \r \r E N D .
0065240 - - o f P R O G R A M E m
0065260 S e t U p V T 1 0 0 P a c k \r
0065300 \r L O G . \r \r 2 0 - F e b - 8
0065320 4 1 4 : 2 5 : 2 8 - T o m
0065340 - C r e a t e d . \r 6 - M
0065360 a r - 8 4 1 8 : 4 7 : 1 2 -
0065400 T o m - A d d e d t a b
0065420 s e t t i n g f u n c t i o
0065440 n a l i t y . \r 2 8 - M a r - 8
0065460 4 1 7 : 3 7 : 0 0 - T o m
0065500 - R e p l a c e d s t r i
0065520 n g l i t e r a l s w i t h
0065540 m s g k e y s . \r 1 1 - M a y
0065560 - 8 4 1 1 : 4 0 : 1 8 - T
0065600 o m - U p g r a d e d t o
0065620 K l a m a t h . \r 1 6 - M a y
0065640 - 8 4 1 3 : 3 0 : 0 2 - T
0065660 o m - E n a b l e d b a c
0065700 k i n g f i l e r o u t i n
0065720 e t o s a v e i n f o r m
0065740 a t i o n a c r o s s \r \t \t \t
0065760 b o o t s a n d l o g
0066000 o u t s . \r 5 - J u n - 8 4
0066020 9 : 5 2 : 2 1 - T o m -
0066040 A d d e d A U T O X O N /
0066060 X O F F N o S c r o l l f e
0066100 a t u r e s e t t i n g a n
0066120 d \r \t \t \t f i x e d
0066140 t a b o f f s e t p r o b l
0066160 e m . \r 8 - J u n - 8 4 1 7
0066200 : 0 8 : 0 6 - T o m - N
0066220 o l o n g e r s a v e A N
0066240 S I / V T 5 2 s t a t e i n
0066260 o r d e r t o a c c o m o
0066300 d a t e \r \t \t \t E m G
0066320 T T Y A c t i o n P a c k w h
0066340 i c h c a n n o t c o m e
0066360 u p a s a V T 5 2 . \r 1 2
0066400 - J u n - 8 4 1 0 : 3 1 : 5 6
0066420 - T o m - R e p l a c e
0066440 d s t r i n g l i t e r a l
0066460 s w i t h m s g k e y s . \r
0066500 1 6 - J u l - 8 4 1 4 : 0 9 :
0066520 2 2 - T o m - C o r r e
0066540 c t e d p r o b l e m o f
0066560 a t a b p a r a m e t e r
0066600 w h i c h w h e n e m p t y
0066620 \r \t \t \t p r o d u c e d
0066640 a n i n v a l i d t a b m
0066660 e s s a g e . S h o u l d a
0066700 l l o w u s e r t o \r \t \t \t
0066720 h a v e e m p t y t a
0066740 b s l o t s i f s o d e
0066760 s i r e d . F i x e d M E S
0067000 A l a n g u a g e \r \t \t \t
0067020 p r o b l e m w i t h P A
0067040 C K E D A R R A Y ' s o f
0067060 o n e b y t e .
0067071