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