$ od -c -N 50000 [Pixel]<Tioga>TEdit>TiogaMesaCommand.mesa!1 0000000 \r \r D I R E C T O R Y \r T e x t 0000020 E d i t , \r D i r e c t o r y , 0000040 \r T e x t N o d e , \r T E d i t 0000060 M e s a O p s , \r G e t T r e e 0000100 , \r P u t G e t , \r R o p e , \r 0000120 T y p e S c r i p t , \r W i n d 0000140 o w M a n a g e r , \r C V E x e 0000160 c u t i v e ; \r \r T i o g a M e 0000200 s a C o m m a n d : P R O G R 0000220 A M \r I M P O R T S D i r e c 0000240 t o r y , G e t T r e e , P 0000260 u t G e t , R o p e , T E d 0000300 i t M e s a O p s , T e x t E 0000320 d i t , T e x t N o d e , C 0000340 V E x e c u t i v e , T y p e 0000360 S c r i p t , W i n d o w M a 0000400 n a g e r = { \r \r D o I t : 0000420 P R O C [ t s : T y p e S 0000440 c r i p t . T S , p a r a m : 0000460 R o p e . R e f ] = { \r f 0000500 i l e n a m e : R o p e . R e 0000520 f ; \r o f f s e t : I N T _ 0000540 0 ; \r W i n d o w M a n a g e 0000560 r . W a i t C u r s o r [ ] ; \r 0000600 D O \t - - p r o c e s s e a 0000620 c h f i l e i n c o m m a 0000640 n d l i n e \r r o o t : T e 0000660 x t N o d e . R e f ; \r [ f i l 0000700 e n a m e , o f f s e t ] _ 0000720 C V E x e c u t i v e . G e t T 0000740 o k e n [ p a r a m , o f f s 0000760 e t ] ; \r I F R o p e . S i z 0001000 e [ f i l e n a m e ] = 0 T H 0001020 E N E X I T ; \r I F R o p e 0001040 . F i n d [ f i l e n a m e , " 0001060 . " ] = - 1 T H E N - 0001100 - a d d . m e s a e x t e 0001120 n s i o n \r f i l e n a m e 0001140 _ R o p e . C o n c a t [ f i 0001160 l e n a m e , R o p e . C o n c 0001200 a t [ " . m e s a " ] ] ; \r r o 0001220 o t _ G e t T r e e . R e a 0001240 d I n d e n t [ f i l e n a m e 0001260 ! D i r e c t o r y . E r r 0001300 o r = > { \r T y p e S c r i 0001320 p t . P u t R o p e [ t s , f 0001340 i l e n a m e ] ; \r T y p e S c 0001360 r i p t . P u t R o p e [ t s , 0001400 " n o t f o u n d . \ n " 0001420 ] ; \r L O O P } ] ; \r T y p e 0001440 S c r i p t . P u t C h a r [ t 0001460 s , ' . ] ; \r T e x t E d i t 0001500 . C h a n g e S t y l e [ r o o 0001520 t , " M e s a " ] ; \r [ ] _ 0001540 T E d i t M e s a O p s . S e 0001560 t S p a n M e s a L o o k s [ \r 0001600 T e x t N o d e . M a k e N o d 0001620 e S p a n [ r o o t , T e x t N 0001640 o d e . L a s t W i t h i n [ r 0001660 o o t ] ] , N I L ] ; \r [ ] _ 0001700 P u t G e t . T o F i l e [ f 0001720 i l e n a m e , r o o t ] ; \r 0001740 E N D L O O P ; \r W i n d o w M 0001760 a n a g e r . U n W a i t C u r 0002000 s o r [ ] ; \r T y p e S c r i p 0002020 t . P u t R o p e [ t s , " 0002040 D o n e . " ] } ; \r \r C V E x 0002060 e c u t i v e . A d d C o m m a 0002100 n d [ " T i o g a M e s a " , 0002120 D o I t , " C o n v e r t M 0002140 e s a f i l e s t o T i o 0002160 g a f o r m a t . " ] ; \r \r } 0002200 . \r \r \0 \0 \0 \0 T \0 \0 T i o g a M 0002220 e s a C o m m a n d . m e s a \r 0002240 L a s t c h a n g e d b y 0002260 B i l l P a x t o n , F e b 0002300 r u a r y 2 5 , 1 9 8 2 8 0002320 : 1 0 a m \r \0 232 311 001 ( \0 \0 002 226 0002340 001 016 ( M e s a ) s t y l e 0002360 230 \0 J 232 001 317 c 025 231 025 J 232 001 235 6 231 0002400 6 J 230 \0 002 232 001 317 k \t 230 \t J 230 \t J 0002420 230 \n J 230 \t J 230 \r J 230 \b J 230 \a J 230 0002440 005 J 230 \v J 230 016 J 230 \f J 230 \0 227 J 232 0002460 002 234 022 236 \a 230 031 J 232 002 236 \a 234 o 230 v 0002500 J 230 \0 002 232 006 317 n 004 234 002 236 004 234 021 236 0002520 002 234 026 230 3 J 230 023 J 232 003 234 \b 236 003 234 0002540 005 230 020 J 230 033 002 232 003 236 002 234 001 235 $ 230 0002560 ' J 230 023 J 232 001 234 8 230 8 J 232 006 236 002 0002600 234 027 236 004 234 001 236 004 234 001 230 # 002 232 004 236 0002620 002 234 036 236 005 234 030 230 = J 232 001 234 6 230 6 0002640 227 002 232 001 234 9 230 9 J 232 001 234 ! 230 ! J 0002660 230 ( J 232 002 236 004 234 004 230 \b 227 J 230 033 J 0002700 230 # 002 230 # J 232 003 234 6 236 003 234 002 230 ; 0002720 227 J 232 001 234 # 230 # J 232 002 236 \a 234 001 230 0002740 \b 227 J 230 035 J 230 # J 230 \0 227 J 230 Q J 0002760 230 \0 J 230 002 J 230 \0 227 \0 214 232 004 204 \0 \0 0003000