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