$ od -c -N 50000 [phylum]<LISPUSERS>Lyric>biclock!2
0000000 ( D E F I N E - F I L E - I N F
0000020 O 036 P A C K A G E " I N T E
0000040 R L I S P " 036 R E A D T A B L
0000060 E " I N T E R L I S P " 036 B
0000100 A S E 1 0 ) \r 006 001 ( F I L E C
0000120 R E A T E D " 1 4 - D e c - 8
0000140 7 1 7 : 3 2 : 4 7 " 006 004 { E
0000160 R I N Y E S } < L I S P U S E R
0000200 S > L Y R I C > B I C L O C K .
0000220 ; 1 006 001 3 6 5 0 7 \r \r
0000240 c h a n g e s t o % :
0000260 ( F N S B I C L O C K P R
0000300 O C E S S ) \r \r p r
0000320 e v i o u s d a t e % : " 2
0000340 0 - F e b - 8 7 1 6 : 1 0 : 3
0000360 6 " { P H Y L U M } < L I S P
0000400 > L Y R I C > L I S P U S E R S
0000420 > B I C L O C K . ; 1 ) \r \r \r (
0000440 * " \r C o p y r i g h t ( c
0000460 ) 1 9 8 4 , 1 9 8 5 , 1 9
0000500 8 6 , 1 9 8 7 b y B e r n
0000520 t N i l s s o n @ U n i v
0000540 e r s i t y o f L i n k o e
0000560 p i n g . A l l r i g h t
0000600 s r e s e r v e d . \r " ) \r \r
0000620 ( P R E T T Y C O M P R I N T
0000640 B I C L O C K C O M S ) \r \r ( R
0000660 P A Q Q 006 002 B I C L O C K C O
0000700 M S 006 001 \r [ ( F
0000720 N S B I C L O C K B I C L O
0000740 C K B E F N B I C L O C K C F
0000760 N B I C L O C K F I N D F O N
0001000 T B I C L O C K N R F N B I
0001020 C L O C K P R O C E S S B I C
0001040 L O C K R P F N \r
0001060 B I C L O C K R S
0001100 F N B I C L O C K S E T A L A
0001120 R M B I C L O C K S E T A L A
0001140 R M 1 B I C L O C K S E T A L
0001160 A R M 2 I D L E . B I C L O C
0001200 K ) \r ( R E C O
0001220 R D S B I C L O C K P A R M S
0001240 U P T I M E R E C ) \r
0001260 [ I N I T V A R S ( B
0001300 I C L O C K W I N D O W ) \r
0001320 ( B I
0001340 C L O C K D E F A U L T P R O P
0001360 S ' ( S E C O N D S T C O
0001400 L O R S H A D O W M A R K S
0001420 H O U R D I G I T S N I L
0001440 C H I M E N I L A L A R M
0001460 \r
0001500
0001520 N I
0001540 L S I Z E 8 6 H O R I Z O
0001560 N T A L L E F T - O F - L O G
0001600 O V E R T I C A L T O P C
0001620 R E A T E T \r
0001640
*
0001700 ) ) \r
0001720 ( B I C L O C K U S
0001740 E R P R O P S ) \r
0001760 ( B I C L O C K
0002000 I N I T I A L P R O P S ) \r
0002020 ( B I
0002040 C L O C K I D L E P R O P S '
0002060 ( H O R I Z O N T A L C E N T
0002100 E R V E R T I C A L C E N T
0002120 E R ] \r [ P (
0002140 C L : P R O C L A I M ' ( C L
0002160 : S P E C I A L B I C L O C K
0002200 W I N D O W B I C L O C K D E
0002220 F A U L T P R O P S B I C L O
0002240 C K U S E R P R O P S \r
0002260
0002300 B I C
0002320 L O C K I N I T I A L P R O P S
0002340 B I C L O C K I D L E P R O P
0002360 S ] \r [ D E C L
0002400 A R E % : D O N T E V A L @ L
0002420 O A D D O C O P Y ( V A R S
0002440 ( B I C L O C K W I N D O W
0002460 ( B I C L O C K B I C L O C K
0002500 I N I T I A L P R O P S ] \r
0002520 ( A D D V A R S (
0002540 I D L E . F U N C T I O N S (
0002560 B i c l o c k ' I D L E . B I
0002600 C L O C K ) ) \r
0002620 ( I D L E . S U S
0002640 P E N D . P R O C E S S . N A M
0002660 E S B I C L O C K P R O C E S
0002700 S ) ) \r ( D E C
0002720 L A R E % : D O N T E V A L @
0002740 L O A D D O E V A L @ C O M P
0002760 I L E D O N T C O P Y C O M
0003000 P I L E R V A R S ( A D D V A
0003020 R S ( N L A M A ) \r
0003040
*
0003140 ( N L A M L ) \r
0003160
*
0003260 ( L A
0003300 M A B I C L O C K ] ) \r ( D E
0003320 F I N E Q \r \r ( 006 004 B I C L O C
0003340 K 006 001 \r [ L A M B D A P R
0003360 O P S 006 006 006 001
0003400
*
0003440 006 006 ( * ; " E d i t e d
0003460 2 0 - F e b - 8 7 1 6 : 0 8
0003500 b y M a c k i n l a y " ) 006 001
0003520 \r ( L E T \r (
0003540 ( P L I S T ( A P P E N D (
0003560 006 002 i f 006 001 [ A N D ( E Q
0003600 P R O P S 1 ) \r
0003620
0003640 ( O R ( N U L L
0003660 ( A R G P R O P S 1 ) ) \r
0003700
*
0003740 ( L I S T P ( A R G P R
0003760 O P S 1 ] \r
0004000
0004020 006 002 t h e n 006 001 ( A R G P R
0004040 O P S 1 ) \r
0004060 006 002
0004100 e l s e 006 001 ( 006 002 f o r 006 001
0004120 I 006 002 f r o m 006 001 1 006 002 t
0004140 o 006 001 P R O P S 006 002 c o l l
0004160 e c t 006 001 ( A R G P R O P S
0004200 I ) ) ) \r
0004220 B I C L O C
0004240 K U S E R P R O P S B I C L O
0004260 C K D E F A U L T P R O P S ) )
0004300 ) \r ( 006 002 i f 006 001 [
0004320 O R ( O D D P ( L E N G T H
0004340 P L I S T ) ) \r
0004360 ( 006 002 f i n d 006 001
0004400 P 006 002 i n 006 001 P L I S T 006
0004420 002 b y 006 001 ( C D D R P ) 006
0004440 002 s u c h t h a t 006 001 ( N O T
0004460 ( L I T A T O M P ] \r
0004500 006 002 t h e n 006 001 (
0004520 E R R O R " A R G N O T P
0004540 R O P L I S T I N B I C L O
0004560 C K " P L I S T ) ) \r
0004600 ( 006 002 i f 006 001 ( L I S T G E
0004620 T P L I S T ' C R E A T E )
0004640 \r 006 002 t h e n
0004660 006 001 \r ( L E T
0004700 \r ( ( W \r
0004720 ( O R \r
0004740 ( L I S
0004760 T G E T P L I S T ' W I N D
0005000 O W ) \r
0005020 ( C R E A T E W \r
0005040 ( O R \r
0005060 ( 006 002 f o
0005100 r 006 001 P 006 002 i n 006 001 P L I
0005120 S T 006 002 b y 006 001 ( C D D R
0005140 P ) 006 002 a s 006 001 V 006 002 i n
0005160 006 001 ( C D R P L I S T ) 006
0005200 002 b y 006 001 ( C D D R V ) \r
0005220
0005240 006 002 d o 006 001 \r
0005260 ( S E L E C
0005300 T Q P \r
0005320 ( S I Z E
0005340 ( R E T U R N \r
0005360
0005400 ( 006 002 i f 006 001 V \r
0005420
*
0005460 006 002 t h e n 006 001 ( C R E A T
0005500 E R E G I O N \r
0005520
0005540 (
0005560 S E L E C T Q ( L I S T G E T
0005600 P L I S T ' H O R I Z O N T
0005620 A L ) \r
0005640
0005660 (
0005700 L E F T 0 ) \r
0005720
*
0005760 ( C E N T E R ( Q U O T
0006000 I E N T ( D I F F E R E N C E
0006020 S C R E E N W I D T H V ) \r
0006040
*
0006120 2 ) ) \r
0006140
*
0006200 ( L E F T - O
0006220 F - L O G O ( - S C R E E N
0006240 W I D T H V \r
0006260
*
0006340 ( 006 002 i f 006 001 L O G O
0006360 W \r
0006400
*
0006460 006 002 t h e n 006 001 ( W I N D
0006500 O W P R O P L O G O W ' W I
0006520 D T H ) \r
0006540
*
0006620 006 002 e l s e 006 001 0 ) ) )
0006640 \r
0006660
0006700 ( R I G
0006720 H T ( D I F F E R E N C E (
0006740 D I F F E R E N C E S C R E E
0006760 N W I D T H V ) \r
0007000
*
0007060 1 ) ) \r
0007100
*
0007140 ( O R ( N U M B E R P (
0007160 L I S T G E T P L I S T ' H
0007200 O R I Z O N T A L ) ) \r
0007220
*
0007260 0 ) ) \r
0007300
*
0007340 ( S E L E C T Q (
0007360 L I S T G E T P L I S T ' V
0007400 E R T I C A L ) \r
0007420
*
0007460 ( B O T T O M 0 ) \r
0007500
*
0007540 ( C E N T E
0007560 R ( Q U O T I E N T ( D I F
0007600 F E R E N C E S C R E E N H E
0007620 I G H T V ) \r
0007640
*
0007720 2 ) ) \r
0007740
*
0010000 ( B E L O W - L O G O ( -
0010020 S C R E E N H E I G H T V \r
0010040
*
0010120 ( 006 002 i f 006 001
0010140 L O G O W \r
0010160
*
0010240 006 002 t h e n 006 001 ( W
0010260 I N D O W P R O P L O G O W
0010300 ' H E I G H T ) \r
0010320
*
0010400 006 002 e l s e 006 001 0 )
0010420 ) ) \r
0010440
0010460 ( T
0010500 O P ( D I F F E R E N C E (
0010520 D I F F E R E N C E S C R E E
0010540 N H E I G H T V ) \r
0010560
*
0010640 1 ) ) \r
0010660
*
0010720 ( O R ( N U M B E R P ( L
0010740 I S T G E T P L I S T ' V E
0010760 R T I C A L ) ) \r
0011000
*
0011040 0 ) ) \r
0011060
*
0011120 V V ) ) ) ) \r
0011140
0011160 ( R E G I O N ( R E T U R N
0011200 V ) ) \r
0011220 N I L ) )
0011240 \r
0011260 ( G E T R E G I O N 2 0 2 0
0011300 N I L ' B I C L O C K N R F
0011320 N ) ) \r
0011340 N I L 0 ) ) ) \r
0011360 [ P A R M S ( 006 002
0011400 c r e a t e 006 001 B I C L O C K
0011420 P A R M S \r
0011440 S
0011460 E C O N D S M O D E _ ( L I
0011500 S T G E T P L I S T ' S E C
0011520 O N D S ) \r
0011540 C
0011560 O L O R M O D E _ ( L I S T
0011600 G E T P L I S T ' C O L O R
0011620 ) \r
0011640 M A R K M
0011660 O D E _ [ S E L E C T Q (
0011700 L I S T G E T P L I S T ' M
0011720 A R K S ) \r
0011740
0011760 ( H
0012000 O U R 5 ) \r
0012020
0012040 (
0012060 ( H O U R & M I N U T E M I N
0012100 U T E ) \r
0012120
*
0012160 1 ) \r
0012200
0012220 ( |
0012240 3 / 6 / 9 / 1 2 | 1 5 ) \r
0012260
*
0012320 ( N U M B E R P (
0012340 L I S T G E T P L I S T ' M
0012360 A R K S ] \r
0012400 D
0012420 I G M O D E _ [ S E L E C T
0012440 Q ( L I S T G E T P L I S T
0012460 ' D I G I T S ) \r
0012500
*
0012540 ( H O U R 1 ) \r
0012560
*
0012620 ( | 3 / 6 / 9 / 1 2 | 3 ) \r
0012640
*
0012700 ( N U M B E R P
0012720 ( L I S T G E T P L I S T '
0012740 D I G I T S ] \r
0012760
0013000 C H I M E M O D E _ [ S E
0013020 L E C T Q ( L I S T G E T P
0013040 L I S T ' C H I M E ) \r
0013060
*
0013120 ( H O U R 6 0 ) \r
0013140
*
0013200 ( Q U O R T E
0013220 R 1 5 ) \r
0013240
0013260 (
0013300 N U M B E R P ( L I S T G E T
0013320 P L I S T ' C H I M E ] \r
0013340
0013360 R O M A N D I G
0013400 S _ ( 006 002 f o r 006 001 P 006
0013420 002 i n 006 001 P L I S T 006 002 b y
0013440 006 001 ( C D D R P ) 006 002 a s
0013460 006 001 V 006 002 i n 006 001 ( C D R
0013500 P L I S T ) \r
0013520
*
0013560 006 002 b y 006 001 ( C D D R V )
0013600 006 002 d o 006 001 ( S E L E C T Q
0013620 P \r
0013640
*
0013700 ( R O
0013720 M A N ( R E T U R N V ) ) \r
0013740
*
0014020 ( A R A B
0014040 I C ( R E T U R N ( N O T
0014060 V ) ) ) \r
0014100
*
0014160 N I L ) ) \r
0014200 A
0014220 D J U S T E V E N T _ ( C R
0014240 E A T E . E V E N T ) \r
0014260
0014300 A L A R M T I M E _
0014320 ( 006 002 i f 006 001 ( L I S T G E
0014340 T P L I S T ' A L A R M T I
0014360 M E ) \r
0014400
0014420 006 002 t
0014440 h e n 006 001 ( I D A T E ( L I
0014460 S T G E T P L I S T ' A L A
0014500 R M T I M E ] \r
0014520 P ) \r
0014540 ( D E L . P R O C E S S ' B I
0014560 C L O C K P R O C E S S ) \r
0014600 ( A N D B I C
0014620 L O C K W I N D O W ( C L O S
0014640 E W B I C L O C K W I N D O W
0014660 ) ) \r ( S E
0014700 T Q P ( A D D . P R O C E S
0014720 S ( L I S T ( F U N C T I O
0014740 N B I C L O C K P R O C E S S
0014760 ) \r
0015000
0015020 ( K W O T E W )
0015040 \r
0015060
0015100 ( K W O T E P A R
0015120 M S ) ) \r
0015140 ' R
0015160 E S T A R T A B L E \r
0015200
0015220 ' H A R D R E S E T ) )
0015240 \r ( W I N D
0015260 O W P R O P W ' P R O C E S
0015300 S P ) \r (
0015320 W I N D O W P R O P W ' N E
0015340 W R E G I O N F N ( F U N C T
0015360 I O N B I C L O C K N R F N )
0015400 ) \r ( W I N
0015420 D O W P R O P W ' R E S H A
0015440 P E F N ( F U N C T I O N B
0015460 I C L O C K R S F N ) ) \r
0015500 ( W I N D O W P R
0015520 O P W ' R E P A I N T F N
0015540 ( F U N C T I O N B I C L O C
0015560 K R P F N ) ) \r
0015600 ( W I N D O W P R O P W
0015620 ' C L O S E F N ( F U N C T I
0015640 O N B I C L O C K C F N ) ) \r
0015660 ( W I N D O
0015700 W P R O P W ' A F T E R M O
0015720 V E F N ( F U N C T I O N B
0015740 I C L O C K R P F N ) ) \r
0015760 ( W I N D O W P R
0016000 O P W ' P A R M S P A R M
0016020 S ) \r ( W I
0016040 N D O W P R O P W ' W I N D
0016060 O W E N T R Y F N ( F U N C T
0016100 I O N B I C L O C K B E F N )
0016120 ) \r ( W I N
0016140 D O W P R O P W ' B U T T O
0016160 N E V E N T F N ( F U N C T I
0016200 O N B I C L O C K B E F N ) )
0016220 \r W ] ) \r \r
0016240 ( 006 004 B I C L O C K B E F N 006 001
0016260 \r [ L A M B D A ( W ) 006 006
0016300 006 001
0016320
*
0016360 006 006 ( * l m m " 1 9 - N
0016400 o v - 8 6 0 7 : 4 1 " ) 006 001 \r
0016420 ( L E T \r [ (
0016440 P R O C ( W I N D O W P R O P
0016460 W ' P R O C E S S ] \r
0016500 [ 006 002 i f 006 001 ( P R O C E
0016520 S S . F I N I S H E D P P R O
0016540 C ) \r 006 002 t h
0016560 e n 006 001 ( P R I N T O U T P
0016600 R O M P T W I N D O W T " R
0016620 E S T A R I N G B I C L O C K
0016640 P R O C E S S " ) \r
0016660 ( W I N D O W
0016700 P R O P W ' P R O C E S S
0016720 ( S E T Q P R O C ( A D D .
0016740 P R O C E S S [ L I S T ( F
0016760 U N C T I O N B I C L O C K P
0017000 R O C E S S ) \r
0017020
*
0017100 ( K W O T
0017120 E W ) \r
0017140
*
0017220 ( K W O T E (
0017240 W I N D O W P R O P W ' P A
0017260 R M S ] \r
0017300
*
0017340 ' R E S
0017360 T A R T A B L E \r
0017400
*
0017460 ' H A R D R E S E T ] \r
0017500 ( 006 002 i f 006 001 ( . C O P Y K
0017520 E Y D O W N P . ) \r
0017540 006 002 t h e n 006 001 ( S U S
0017560 P E N D . P R O C E S S P R O
0017600 C ) \r
0017620 ( I N V E R T W W ) \r
0017640 ( U N T I
0017660 L M O U S E S T A T E ( N O T
0017700 ( O R L E F T M I D D L E
0017720 ) ) ) \r
0017740 ( B K S Y S B U F ( D A T
0017760 E ) ) \r
0020000 ( I N V E R T W W ) \r
0020020 ( W A K
0020040 E . P R O C E S S P R O C ) \r
0020060 006 002 e l s e 006 001 \r
0020100 ( 006 002 w i t h 006 001
0020120 B I C L O C K P A R M S ( W
0020140 I N D O W P R O P W ' P A R
0020160 M S ) \r
0020200 ( 006 002 i f 006 001 ( M O U S E S
0020220 T A T E L E F T ) \r
0020240 006 002 t h
0020260 e n 006 001 ( 006 002 i f 006 001 A L A
0020300 R M T I M E \r
0020320
0020340 006 002 t h e n 006 001 ( P R O M P
0020360 T P R I N T ( D A T E ) \r
0020400
*
0020440 " A L A R M A T
0020460 " \r
0020500
0020520 ( G D A T E
0020540 A L A R M T I M E ) ) \r
0020560
0020600 006 002 e l s e 006 001 ( P R
0020620 O M P T P R I N T ( D A T E )
0020640 \r
0020660
0020700 " N O A L A
0020720 R M S E T " ) ) \r
0020740 006 002 e l s e i
0020760 f 006 001 ( M O U S E S T A T E
0021000 M I D D L E ) \r
0021020 006 002 t h e n 006
0021040 001 ( L E T [ ( S E L ( M E
0021060 N U ( 006 002 c r e a t e 006 001 M
0021100 E N U \r
0021120
*
0021160 I T E M S _ ` ( ( " S e
0021200 c o n d s O n " ' S O N ) \r
0021220
*
0021300 ( " S e c o n d
0021320 s O f f " ' S O F F ) \r
0021340
*
0021420 ( " W h i t e " '
0021440 W H I T E " W h i t e w i t
0021460 h b o r d e r " \r
0021500
*
0021560 ( S U B I T E
0021600 M S ( " S h a d o w " ' S H
0021620 A D O W \r
0021640
*
0021740 " W h i t e w i t
0021760 h s h a d o w " ) ) \r
0022000
*
0022060 ) \r
0022100
*
0022160 ( " B l a c k " ' B
0022200 L A C K ) \r
0022220
*
0022260 [ "
0022300 M a r k e r s " ' M I N S E C
0022320 \r
0022340
*
0022400 " U
0022420 s e S u b m e n u t o C h
0022440 a n g e n u m b e r o f M
0022460 a r k e r s " \r
0022500
*
0022560 ( S U B I T E M S
0022600 ( " N o m a r k e r s " '
0022620 N O M A R K E R ) \r
0022640
*
0022740 ( " 3 / 6 / 9 / 1 2 M a r k e
0022760 r s " \r
0023000
*
0023060 ' 3 H O U
0023100 R M A R K S ) \r
0023120
*
0023200 ( "
0023220 O n l y h o u r s " ' H O U
0023240 R M A R K S ) \r
0023260
*
0023340 ( "
0023360 H o u r s a n d m i n u t e
0023400 s " \r
0023420
*
0023500 ' M I N H O
0023520 U R M A R K S ] \r
0023540
*
0023620 [ " D i g i t s " ' H O U R
0023640 \r
0023660
*
0023720 "
0023740 U s e S u b m e n u t o C
0023760 h a n g e n u m b e r o f
0024000 D i g i t s " \r
0024020
*
0024100 ( S U B I T E M S
0024120 ( " N o D i g i t s " ' N
0024140 O D I G ) \r
0024160
*
0024240 ( " 3 /
0024260 6 / 9 / 1 2 H o u r s " ' 3
0024300 H O U R ) \r
0024320
*
0024400 ( " A l
0024420 l H o u r s " ' H O U R ) \r
0024440
*
0024540 ( " A r a b i c d
0024560 i g i t s " ' A R A B I C ) \r
0024600
*
0024700 ( " R o m a n d i
0024720 g i t s " ' R O M A N ] \r
0024740
*
0025020 [ " C h i m e " '
0025040 C H I M E \r
0025060
*
0025140 " U s e S u b m e
0025160 n u t o C h a n g e C h i
0025200 m e i n t e r v a l " \r
0025220
*
0025300 ( S U B
0025320 I T E M S ( " N o c h i m e
0025340 " ' N O C H I M E ) \r
0025360
*
0025460 ( " H o u r s " ' C H I M
0025500 E ) \r
0025520
*
0025600 ( " H o u r s
0025620 a n d q u a r t e r s " \r
0025640
*
0025740 ' C H I M E 1 5 M I
0025760 N ] \r
0026000
*
0026040 ( " S e t
0026060 A l a r m " ' A L A R M ) \r
0026100
*
0026160 ( " A l a r m
0026200 O f f " ' A O F F ] \r
0026220
0026240 ( S E L E C T Q
0026260 S E L \r
0026300
0026320 ( S O N ( S E T Q S E
0026340 C O N D S M O D E T ) ) \r
0026360
0026400 ( S O
0026420 F F ( S E T Q S E C O N D S
0026440 M O D E N I L ) ) \r
0026460
0026500 ( ( W H I T
0026520 E B L A C K S H A D O W )
0026540 \r
0026560
0026600 ( S E T Q C O L O R
0026620 M O D E S E L ) ) \r
0026640
0026660 ( N O M A R
0026700 K E R ( S E T Q M A R K M O
0026720 D E N I L ) ) \r
0026740
0026760 ( 3 H O U R M A
0027000 R K S ( S E T Q M A R K M O
0027020 D E 1 5 ) ) \r
0027040
0027060 ( H O U R M A R K
0027100 S ( S E T Q M A R K M O D E
0027120 5 ) ) \r
0027140
0027160 ( M I N H O U R M A R K
0027200 S ( S E T Q M A R K M O D E
0027220 1 ) ) \r
0027240
0027260 ( N O D I G ( S E T Q
0027300 D I G M O D E N I L ) ) \r
0027320
0027340 ( 3
0027360 H O U R ( S E T Q D I G M O
0027400 D E 3 ) ) \r
0027420
0027440 ( H O U R ( S E T
0027460 Q D I G M O D E 1 ) ) \r
0027500
0027520 ( A R
0027540 A B I C ( S E T Q R O M A N
0027560 D I G S N I L ) ) \r
0027600
0027620 ( R O M A N
0027640 ( S E T Q R O M A N D I G S
0027660 T ) ) \r
0027700
0027720 ( N O C H I M E ( S E
0027740 T Q C H I M E M O D E N I L
0027760 ) ) \r
0030000
0030020 ( C H I M E ( S E T Q C
0030040 H I M E M O D E 6 0 ) ) \r
0030060
0030100 ( C H
0030120 I M E 1 5 M I N ( S E T Q C
0030140 H I M E M O D E 1 5 ) ) \r
0030160
0030200 ( A L
0030220 A R M ( 006 002 B I C L O C K S E
0030240 T A L A R M 006 001 W ) ) \r
0030260
0030300 ( A O F
0030320 F ( S E T Q A L A R M T I M
0030340 E N I L ) ) \r
0030360
0030400 N I L ) \r
0030420
0030440 ( 006 002 i f 006 001 (
0030460 M E M B S E L ' ( N O M A R
0030500 K E R 3 H O U R M A R K S H
0030520 O U R M A R K S M I N H O U R
0030540 M A R K S N O D I G 3 H O U
0030560 R \r
0030600
*
0030640 H O U R A R A B I C
0030660 R O M A N ) ) \r
0030700
0030720 006 002 t h e n 006 001
0030740 ( R E S T A R T . P R O C E S S
0030760 ( W I N D O W P R O P W '
0031000 P R O C E S S ) ) \r
0031020
0031040 006 002 e l s e 006 001
0031060 ( W A K E . P R O C E S S ( W
0031100 I N D O W P R O P W ' P R O
0031120 C E S S ] ) \r \r ( 006 004 B I C L O
0031140 C K C F N 006 001 \r [ L A M B D
0031160 A ( W ) \r ( D E L . P
0031200 R O C E S S ( W I N D O W P R
0031220 O P W ' P R O C E S S ] ) \r
0031240 \r ( 006 004 B I C L O C K F I N D F
0031260 O N T 006 001 \r [ L A M B D A
0031300 ( S I Z E M O D E R N C L A S
0031320 S I C ) 006 006 006 001
0031340
0031360 006 006 ( * ; " E
0031400 d i t e d 2 6 - N o v - 8 6
0031420 1 4 : 4 6 b y P a v e l " )
0031440 006 001 \r ( L E T [ ( A L
0031460 L F O N T S ( F O N T S A V A
0031500 I L A B L E ' * ' * ' M R
0031520 R 0 ' D I S P L A Y ] \r
0031540 [ S O R T A L L
0031560 F O N T S ( F U N C T I O N
0031600 ( L A M B D A ( F 1 F 2 ) \r
0031620
*
0031660 ( O R [ A N D M O D
0031700 E R N C L A S S I C ( M E M B
0031720 ( C A R F 1 ) \r
0031740
*
0032020 ' ( M O D
0032040 E R N C L A S S I C ) ) \r
0032060
*
0032120 ( N O T
0032140 ( M E M B ( C A R F 2 ) \r
0032160
*
0032240 ' ( M O D E R N
0032260 C L A S S I C ] \r
0032300
*
0032340 ( G R E A T E R P ( C A D R
0032360 F 1 ) \r
0032400
*
0032440 ( C A D R F 2 ) ) \r
0032460
*
0032520 ( A N D ( E Q P
0032540 ( C A D R F 1 ) \r
0032560
*
0032620 ( C A
0032640 D R F 2 ) ) \r
0032660
*
0032720 ( 006 002 f o r 006 001 F A
0032740 M \r
0032760
*
0033020 006 002 i n 006 001 ' ( M O D E R
0033040 N C L A S S I C G A C H A
0033060 H E L V E T I C A H E L V E T
0033100 I C A D \r
0033120
*
0033200 T E R M I N A L ) \r
0033220
*
0033260 006 002 d o 006
0033300 001 ( 006 002 i f 006 001 ( E Q F A
0033320 M ( C A R F 1 ) ) \r
0033340
*
0033420 006 002 t h e n 006 001 ( R E T
0033440 U R N T ) \r
0033460
*
0033520 006 002 e l
0033540 s e i f 006 001 ( E Q F A M (
0033560 C A R F 2 ) ) \r
0033600
*
0033660 006 002 t h e n 006 001 ( R E T U R N
0033700 N I L ] \r (
0033720 006 002 f i n d 006 001 F O N T 006 002
0033740 i n 006 001 A L L F O N T S 006 002
0033760 s u c h t h a t 006 001 ( L E Q
0034000 ( C A D R F O N T ) \r
0034020
*
0034060 S I Z E ] )
0034100 \r \r ( 006 004 B I C L O C K N R F N
0034120 006 001 \r [ L A M B D A ( F P
0034140 M P ) 006 006 006 001
0034160
*
0034220 006 006 ( * B N " 1 7 -
0034240 S e p - 8 4 1 0 : 4 0 " ) 006 001
0034260 \r ( C O N D \r
0034300 [ M P ( 006 002 w i t h 006 001
0034320 P O S I T I O N M P ( P R O
0034340 G [ ( D X ( I D I F F E R E
0034360 N C E X C O O R D ( 006 002 f e
0034400 t c h 006 001 ( P O S I T I O N
0034420 X C O O R D ) 006 002 o f 006 001 F
0034440 P ) ) ) \r
0034460
0034500 ( D Y ( I D
0034520 I F F E R E N C E Y C O O R D
0034540 ( 006 002 f e t c h 006 001 ( P O S
0034560 I T I O N Y C O O R D ) 006 002
0034600 o f 006 001 F P ] \r
0034620
0034640 [ C O N
0034660 D \r
0034700
0034720 [ ( I G R E A T
0034740 E R P ( I A B S D X ) \r
0034760
*
0035020 ( I A B
0035040 S D Y ) ) \r
0035060
0035100 ( S
0035120 E T Q Y C O O R D ( I P L U
0035140 S ( 006 002 f e t c h 006 001 ( P O
0035160 S I T I O N Y C O O R D ) 006
0035200 002 o f 006 001 F P ) \r
0035220
*
0035300 ( I T I M E S D X
0035320 ( C O N D \r
0035340
*
0035420 (
0035440 ( M I N U S P ( I T I M E S
0035460 D X D Y ) ) \r
0035500
*
0035600 - 1 ) \r
0035620
*
0035700 (
0035720 T 1 ] \r
0035740
0035760 ( T ( S
0036000 E T Q X C O O R D ( I P L U
0036020 S ( 006 002 f e t c h 006 001 ( P O
0036040 S I T I O N X C O O R D ) 006
0036060 002 o f 006 001 F P ) \r
0036100
*
0036160 ( I T I M E S D
0036200 Y ( C O N D \r
0036220
*
0036320 ( ( M I N U S P ( I T I
0036340 M E S D X D Y ) ) \r
0036360
*
0036460 - 1 ) \r
0036500
*
0036600 ( T 1 ] \r
0036620
*
0036660 ( R E T U R N M P ] \r
0036700 ( T F P ] ) \r \r ( 006 004 B
0036720 I C L O C K P R O C E S S 006 001 \r
0036740 [ L A M B D A ( W P A R
0036760 M S )
0037000
0037020 ( * ; " E d i t
0037040 e d 1 4 - D e c - 8 7 1 7 :
0037060 3 0 b y R a n d y . G o b b
0037100 e l " ) \r \r ( C E N T E
0037120 R P R I N T I N R E G I O N "
0037140 W a i t " N I L W ) \r
0037160 ( 006 002 w i t h 006 001 \r
0037200 B I C L O C K P A R M S P A R
0037220 M S \r ( P R O G [ (
0037240 W I D T H ( W I N D O W P R O
0037260 P W ' W I D T H ) ) \r
0037300 ( H E I G H T
0037320 ( W I N D O W P R O P W '
0037340 H E I G H T ] \r
0037360 ( 006 002 w h i l e 006 001 T \r
0037400 006 002
0037420 b i n d 006 001 S ( B M _ (
0037440 B I T M A P C R E A T E W I D
0037460 T H H E I G H T ) ) \r
0037500 (
0037520 B G _ ( B I T M A P C R E A
0037540 T E W I D T H H E I G H T )
0037560 ) \r
0037600 ( B M 1 _ ( B I T
0037620 M A P C R E A T E W I D T H
0037640 H E I G H T ) ) \r
0037660 ( S H A
0037700 D O W _ ( B I T M A P C R E
0037720 A T E W I D T H H E I G H T
0037740 ) ) \r
0037760 ( X C _ ( I Q U
0040000 O T I E N T W I D T H 2 ) )
0040020 \r
0040040 ( Y C _ ( I Q U O T
0040060 I E N T H E I G H T 2 ) ) \r
0040100
0040120 ( S X _ ( A R R A Y
0040140 6 0 ' F I X P 0 0 ) ) \r
0040160
0040200 ( S Y _ ( A R R A Y 6
0040220 0 ' F I X P 0 0 ) ) \r
0040240
0040260 M X M Y H X H Y M P
0040300 H P R M A R K U R M A R K
0040320 L R M A R K 1 L R D O T R
0040340 S E C R M I N R H O U R R
0040360 C I R C W M A R K W M A R K
0040400 1 W \r
0040420 S E C W M I N W
0040440 H O U R W D I G W D I G F
0040460 O N T N O W S E C S ( S L
0040500 O W M O D E _ T ) \r
0040520 (
0040540 S M O D E _ T ) \r
0040560 ( M
0040600 E A N _ 5 0 ) \r
0040620 ( L I
0040640 M I T _ 1 0 0 0 ) \r
0040660 C
0040700 L 0 R E F N O S E C I N V
0040720 E R T F L G L A S T C H I M E
0040740 ( C H I M E C O U N T _ 0
0040760 ) \r
0041000 006 002 f i r s t 006 001
0041020
*
0041060 ( * ; " F i r s t s
0041100 e t u p s o m e r e l a t
0041120 i o n s " ) \r \r
0041140 ( B L O C K ) \r
0041160 ( S E T
0041200 Q R ( - ( I M I N X C
0041220 Y C ) \r
0041240 4 ) )
0041260 \r (
0041300 S E T Q M A R K U R ( C L :
0041320 * R 1 . 0 ) ) \r
0041340 ( S E T Q M A
0041360 R K L R ( C L : * R 0 . 9
0041400 ) ) \r
0041420 ( S E T Q M A R K 1 L R (
0041440 C L : * R 0 . 9 8 ) ) \r
0041460 ( S E T
0041500 Q D O T R ( C L : * R 0
0041520 . 0 5 ) ) \r
0041540 ( S E T Q S E C R (
0041560 C L : * R 1 . 0 ) ) \r
0041600 ( S E T Q
0041620 M I N R ( C L : * R 0 .
0041640 9 ) ) \r
0041660 ( B L O C K ) \r
0041700 ( S E T Q H O
0041720 U R R ( C L : * R 0 . 6 )
0041740 ) \r
0041760 ( S E T Q C I R C W ( C L :
0042000 * R 0 . 0 3 ) ) \r
0042020 ( S E T Q M
0042040 A R K W ( C L : * R ( S E
0042060 L E C T Q C O L O R M O D E \r
0042100
*
0042140 ( S H A D O W 0 .
0042160 0 5 ) \r
0042200
0042220 0 . 0 3 7 5
0042240 ) ) ) \r
0042260 ( S E T Q M A R K 1 W (
0042300 C L : * R 0 . 0 0 9 ) ) \r
0042320 ( S E
0042340 T Q S E C W ( I M A X 1
0042360 ( C L : * R 0 . 0 1 ) ) ) \r
0042400 ( S
0042420 E T Q M I N W ( I M A X 2
0042440 ( C L : * R 0 . 0 3 7 ) )
0042460 ) \r
0042500 ( S E T Q H O U R W ( I M A
0042520 X 3 ( C L : * R 0 . 0 7
0042540 ) ) ) \r
0042560 ( S E T Q D I G W ( C L
0042600 : * R ( 006 002 i f 006 001 ( N U
0042620 M B E R P M A R K M O D E ) \r
0042640
*
0042700 006 002 t h e n 006 001 0 .
0042720 7 5 \r
0042740
0042760 006 002 e l s e 006 001 0
0043000 . 9 ) ) ) \r
0043020 ( S E T Q D I G F O N
0043040 T ( 006 002 B I C L O C K F I N D
0043060 F O N T 006 001 ( C L : * R (
0043100 006 002 i f 006 001 ( N U M B E R P
0043120 M A R K M O D E ) \r
0043140
*
0043220 006 002 t h e n 006 001 0 . 2 \r
0043240
*
0043320 006 002 e l s e 006 001
0043340 0 . 2 5 ) ) \r
0043360
0043400 R O M A N D
0043420 I G S ) ) \r
0043440 ( S E T Q S ( D S P
0043460 C R E A T E B M ) ) \r
0043500 ( D S P X O
0043520 F F S E T X C S ) \r
0043540 ( D S P Y O
0043560 F F S E T Y C S ) \r
0043600 ( D S P F O
0043620 N T D I G F O N T S ) \r
0043640 ( D S P
0043660 O P E R A T I O N ' P A I N T
0043700 S )
0043720 ( * ;
0043740 " G e n e r a t e b a c k g r
0043760 o u n d H o u r M a r k s "
0044000 ) \r \r
0044020 ( 006 002 f o r 006 001 H 006 002 f r
0044040 o m 006 001 1 006 002 t o 006 001 1 2
0044060 006 002 a s 006 001 V 006 002 f r o m
0044100 006 001 6 0 006 002 b y 006 001 - 3 0
0044120 006 002 b i n d 006 001 S Y M \r
0044140 006
0044160 002 d o 006 001 ( B L O C K ) \r
0044200
0044220 ( S E T Q H X ( C O S
0044240 V ) ) \r
0044260 ( S E T Q H Y
0044300 ( S I N V ) ) \r
0044320 ( 006
0044340 002 i f 006 001 ( A N D ( N U M B
0044360 E R P M A R K M O D E ) \r
0044400
0044420 ( Z E R O
0044440 P ( I M O D ( C L : * H
0044460 5 ) \r
0044500
0044520 M A R
0044540 K M O D E ) ) ) \r
0044560
0044600 006 002 t h e n 006 001 ( D R A W L
0044620 I N E ( C L : * H X M A R
0044640 K U R ) \r
0044660
0044700 ( C L : * H
0044720 Y M A R K U R ) \r
0044740
0044760 ( C
0045000 L : * H X M A R K L R ) \r
0045020
*
0045060 ( C L : * H Y M A R K
0045100 L R ) \r
0045120
0045140 M A R K W \r
0045160
*
0045220 ' R E P L A C E S ) ) \r
0045240
0045260 ( 006 002 i f 006 001 ( A N D
0045300 D I G F O N T ( N U M B E R P
0045320 D I G M O D E ) \r
0045340
0045360 ( Z E R O P ( I
0045400 M O D H D I G M O D E ) ) )
0045420 \r
0045440 006 002 t h e n 006
0045460 001 ( S E T Q S Y M \r
0045500
0045520 ( 006 002 i f 006
0045540 001 R O M A N D I G S \r
0045560
0045600 006 002
0045620 t h e n 006 001 ( C A R ( N T H
0045640 ' ( 377 357 301 377 \0 377 357 302 377 \0 377
0045660 357 303 377 \0 377 357 304 377 \0 377 357 305 377 \0
0045700 377 357 306 377 \0 377 357 307 377 \0 377 357 310
0045720 377 \0 377 357 311 377 \0 377 357 312 377 \0 377
0045740 357 312 301 377 \0 377 357 312 302 377 \0 ) H )
0045760 ) \r
0046000
0046020 006 002 e l s e 006 001 H ) ) \r
0046040
0046060 ( M O V
0046100 E T O ( - ( C L : * H X
0046120 D I G W ) \r
0046140
0046160 ( Q
0046200 U O T I E N T ( S T R I N G W
0046220 I D T H S Y M S ) \r
0046240
*
0046300 2 ) ) \r
0046320
*
0046360 ( - ( C L : * H Y D
0046400 I G W ) \r
0046420
0046440 ( 006 002 i
0046460 f 006 001 R O M A N D I G S \r
0046500
*
0046540 006 002 t h e n 006
0046560 001 ( - ( Q U O T I E N T (
0046600 F O N T P R O P S ' H E I G
0046620 H T ) \r
0046640
*
0046700 2 )
0046720 \r
0046740
*
0047000 ( F O N T P R O P S
0047020 ' D E S C E N T ) ) \r
0047040
*
0047100 006 002 e l s e 006 001 ( Q U
0047120 O T I E N T ( F O N T P R O P
0047140 S ' A S C E N T ) \r
0047160
*
0047240 2 ) ) ) \r
0047260
0047300 S ) \r
0047320
0047340 ( P R I N 1
0047360 S Y M S ) ) )
0047400 ( * ; "
0047420 G e n e r a t e b a c k g r o
0047440 u n d S e c o n d M a r k s
0047460 " ) \r \r
0047500 ( 006 002 f o r 006 001 I 006 002 f
0047520 r o m 006 001 0 006 002 t o 006 001 5
0047540 9 006 002 a s 006 001 V 006 002 f r o
0047560 m 006 001 9 0 006 002 b y 006 001 - 6
0047600 \r
0047620 006 002 d o 006 001 ( B L O C K )
0047640 \r
0047660 ( S E T A S X I
0047700 ( F I X ( C L : * ( S E T Q
0047720 M X ( C O S V ) ) \r
0047740
*
0050000 S E C R ) ) ) \r
0050020
0050040 ( S E T A S Y I ( F
0050060 I X ( C L : * ( S E T Q M
0050100 Y ( S I N V ) ) \r
0050120
*
0050160 S E C R ) ) ) \r
0050200
0050220 ( 006 002 i f 006 001 ( A N D ( N
0050240 U M B E R P M A R K M O D E )
0050260 \r
0050300 ( Z
0050320 E R O P ( I M O D I M A R
0050340 K M O D E ) ) ) \r
0050360
0050400 006 002 t h e n 006 001 ( D R A W L
0050420 I N E ( C L : * M X S E C
0050440 R ) \r
0050460
0050500 ( C L : * M Y
0050520 S E C R ) \r
0050540
0050560 ( C L : *
0050600 M X M A R K 1 L R ) \r
0050620
*
0050660 ( C L : * M Y M A R K 1 L R
0050700 ) \r
0050720
0050740 M A R K 1 W \r
0050760
*
0051020 ' R E P L A C E S ) ) ) \r
0051040 ( B L
0051060 O C K ) \r
0051100 ( F I L L C I R C L E 0
0051120 0 D O T R B L A C K S H A
0051140 D E S )
0051160 ( * ; \r
0051200
*
0051240 " L e t t
0051260 h i s b e t h e B a c k g
0051300 r o u n d t o b e u s e d
0051320 i n t h e l o o p " ) \r \r
0051340 ( B
0051360 I T B L T B M N I L N I L
0051400 B G )
0051420 ( *
0051440 ; \r
0051460 " D e t e r m i n e
0051500 a r e f e r e n c e p o i n
0051520 t f o r m i l l i s e c o n
0051540 d c l o c k , t h a t i s
0051560 h a l f a s e c o n d a
0051600 h e a d . . . " ) \r \r
0051620 ( 006 002 w h i l
0051640 e 006 001 ( = ( D A Y T I M E )
0051660 \r
0051700 T 1 ) 006 002 b
0051720 i n d 006 001 ( T 1 _ ( D A Y
0051740 T I M E ) ) 006 002 d o 006 001 ( B
0051760 L O C K ) 006 002 f i n a l l y 006
0052000 001 ( S E T Q R E F ( I P L
0052020 U S ( C L O C K 0 ) \r
0052040
*
0052160 5 0 0 ) ) ) \r
0052200 006 002 d o 006 001 \r
0052220 ( B I
0052240 T B L T B G N I L N I L
0052260 B M )
0052300 ( * ;
0052320 \r
0052340
*
0052400 " C o
0052420 m p u t e n u m b e r o f
0052440 s e c o n d s s i n c e m i
0052460 d n i g h t " ) \r \r
0052500 ( S E T Q N O
0052520 W ( D A Y T I M E ) ) \r
0052540 ( S E T Q
0052560 S E C S ( 006 002 w i t h 006 001
0052600 U P T I M E R E C ( \ U N P A
0052620 C K D A T E ( 006 002 i f 006 001 A
0052640 D J U S T A L A R M \r
0052660
*
0052740 006 002 t h e n 006 001 A L
0052760 A R M T I M E \r
0053000
*
0053060 006 002 e l s e 006 001 N O W ) ) \r
0053100
0053120 ( I
0053140 P L U S ( C L : * H O U R
0053160 3 6 0 0 ) \r
0053200
0053220 ( C L :
0053240 * M I N U T E 6 0 ) \r
0053260
*
0053320 S E C O N D ) ) ) \r
0053340 ( 006 002 i f
0053360 006 001 S L O W M O D E \r
0053400 006 002
0053420 t h e n 006 001 ( B L O C K ) )
0053440
0053460 ( *
0053500 ; " D r a w H o u r A r m
0053520 " ) \r \r
0053540 ( C O N D \r
0053560 ( ( E Q P H
0053600 P ( I Q U O T I E N T S E C
0053620 S 1 2 0 ) ) \r
0053640 ( D R A W L
0053660 I N E 0 0 H X H Y H O
0053700 U R W ' R E P L A C E S ) )
0053720 \r
0053740 ( T ( D R A W L I N E 0
0053760 0 ( S E T Q H X ( F I X
0054000 ( C L : * ( S I N ( S E T
0054020 Q H P ( I Q U O T I E N T
0054040 S E C S 1 2 0 ) ) ) \r
0054060
*
0054140 H O U R R ) ) ) \r
0054160
0054200 ( S E T Q H Y (
0054220 F I X ( C L : * ( C O S H
0054240 P ) \r
0054260
*
0054320 H O U R R ) ) ) \r
0054340
0054360 H O U R W \r
0054400
0054420 ' R E P L A C E
0054440 S ) ) ) \r
0054460 ( 006 002 i f 006 001 S L O W M
0054500 O D E \r
0054520 006 002 t h e n 006 001 (
0054540 B L O C K ) )
0054560
0054600 ( * ; " D r a w
0054620 M i n u t e A r m " ) \r \r
0054640 ( C O N
0054660 D \r
0054700 ( ( E Q P M P ( I Q U
0054720 O T I E N T S E C S 1 0 ) )
0054740 \r
0054760 ( D R A W L I N E 0 0
0055000 M X M Y M I N W ' R E P
0055020 L A C E S ) ) \r
0055040 ( T ( D R
0055060 A W L I N E 0 0 ( S E T Q
0055100 M X ( F I X ( C L : * (
0055120 S I N ( S E T Q M P ( I Q
0055140 U O T I E N T S E C S 1 0 )
0055160 ) ) \r
0055200
*
0055240 M I N R ) ) )
0055260 \r
0055300 ( S E T
0055320 Q M Y ( F I X ( C L : *
0055340 ( C O S M P ) \r
0055360
*
0055420 M I N R ) ) ) \r
0055440
0055460 M I N W \r
0055500
0055520 ' R E P L
0055540 A C E S ) ) ) \r
0055560 ( 006 002 i f 006 001 S
0055600 L O W M O D E \r
0055620 006 002 t h e n
0055640 006 001 ( B L O C K ) )
0055660
0055700 ( * ; " D
0055720 r a w S e c o n d s A r m "
0055740 ) \r \r
0055760 ( C O N D \r
0056000 ( ( N O T N O
0056020 S E C ) \r
0056040 ( D R A W L I N E
0056060 0 0 ( E L T S X ( I M
0056100 O D S E C S 6 0 ) ) \r
0056120
0056140 ( E L T S Y ( I
0056160 M O D S E C S 6 0 ) ) \r
0056200
0056220 S E C W \r
0056240
0056260 ' R E P L A C E S )
0056300 ) )
0056320 ( * ; " N
0056340 o w , G e n e r a t e T h e
0056360 S h a d o w " ) \r \r
0056400 ( 006 002 i f 006 001
0056420 S L O W M O D E \r
0056440 006 002 t h
0056460 e n 006 001 ( B L O C K ) ) \r
0056500 [ S E L
0056520 E C T Q C O L O R M O D E \r
0056540
0056560 ( S H A D O W ( B I T B L T
0056600 B M N I L N I L S H A D
0056620 O W ) \r
0056640 [ 006
0056660 002 f o r 006 001 D X 006 002 f r o m
0056700 006 001 0 006 002 t o 006 001 1 \r
0056720
0056740 006 002 d o 006
0056760 001 ( 006 002 f o r 006 001 D Y 006 002
0057000 f r o m 006 001 - 2 006 002 t o 006 001
0057020 0 \r
0057040
0057060 006 002 d o 006 001 ( 006 002
0057100 i f 006 001 S L O W M O D E \r
0057120
*
0057160 006 002 t h e n 006 001
0057200 ( B L O C K ) ) \r
0057220
*
0057260 ( B I T B L T S H A D O W N
0057300 I L N I L S H A D O W D X
0057320 D Y N I L N I L ' I N P
0057340 U T ' P A I N T ) \r
0057360
0057400 006 002
0057420 w h e n 006 001 ( O R ( N E Q
0057440 D X 0 ) \r
0057460
*
0057520 ( N E Q D Y 0 ] ) \r
0057540
0057560 ( P R O G N ( B I T B L T B
0057600 M N I L N I L S H A D O W
0057620 ) \r
0057640 ( 006 002 f o
0057660 r 006 001 D X 006 002 f r o m 006 001
0057700 - 1 006 002 t o 006 001 1 \r
0057720
0057740 006 002 d o 006 001 (
0057760 006 002 f o r 006 001 D Y 006 002 f r o
0060000 m 006 001 - 1 006 002 t o 006 001 1 \r
0060020
*
0060060 006 002 d o 006 001 ( 006 002 i f 006 001
0060100 S L O W M O D E \r
0060120
*
0060160 006 002 t h e n 006 001 ( B L O
0060200 C K ) ) \r
0060220
0060240 ( B I T B L
0060260 T S H A D O W N I L N I L
0060300 S H A D O W D X D Y N I
0060320 L N I L ' I N P U T ' P A
0060340 I N T ) \r
0060360
0060400 006 002 w h e n 006 001
0060420 ( O R ( N E Q D X 0 ) \r
0060440
*
0060500 ( N E Q D
0060520 Y 0 ] \r
0060540 ( 006 002 i f 006 001 S L O W M
0060560 O D E \r
0060600 006 002 t h e n 006 001 (
0060620 B L O C K ) )
0060640
0060660 ( * ; " F i n d
0060700 t h e R e a l b a c k g r o
0060720 u n d " ) \r \r
0060740 ( T O T O P W W ) \r
0060760 ( B
0061000 I T B L T ( W I N D O W P R O
0061020 P W ' I M A G E C O V E R E
0061040 D ) \r
0061060 N I L N I L
0061100 B M 1 ) \r
0061120 ( B I T B L T S H A D O
0061140 W N I L N I L B M 1 N I
0061160 L N I L N I L N I L ' I
0061200 N P U T ( S E L E C T Q C O
0061220 L O R M O D E \r
0061240
*
0061320 ( ( W H
0061340 I T E S H A D O W ) \r
0061360
*
0061460 ' P A I N T ) \r
0061500
*
0061600 ( B L A C K ' E R A S E )
0061620 \r
0061640
*
0061720 N I L ) ) \r
0061740 ( 006 002 i f 006 001
0061760 S L O W M O D E \r
0062000 006 002 t h
0062020 e n 006 001 ( B L O C K ) ) \r
0062040 ( B I T
0062060 B L T B M N I L N I L B
0062100 M 1 N I L N I L N I L N
0062120 I L ' I N P U T ( S E L E C
0062140 T Q C O L O R M O D E \r
0062160
*
0062240 ( ( W
0062260 H I T E S H A D O W ) \r
0062300
*
0062400 ' E R A S E ) \r
0062420
*
0062500 ( B L A C
0062520 K ' P A I N T ) \r
0062540
*
0062620 N I L ) )
0062640 \r
0062660
*
0062720 ( *
0062740 ; " N o w , a t l a s t
0062760 , O u t p u t i t " ) \r \r
0063000 ( B I
0063020 T B L T B M 1 N I L N I L
0063040 W N I L N I L N I L N
0063060 I L ( 006 002 i f 006 001 I N V E R
0063100 T F L G \r
0063120
*
0063160 006 002 t
0063200 h e n 006 001 ' I N V E R T \r
0063220
*
0063300 006 002 e l s e 006 001 ' I N
0063320 P U T ) \r
0063340 ' R E P L A
0063360 C E ) \r
0063400 [ 006 002 i f 006 001 S L O W M O
0063420 D E \r
0063440 006 002 t h e n 006 001 \r
0063460
0063500 ( 006 002 i f 006 001 [ A N D C H I
0063520 M E M O D E ( O R ( N U L L
0063540 L A S T C H I M E ) \r
0063560
*
0063620 ( N O T ( = ( I Q
0063640 U O T I E N T L A S T C H I M
0063660 E ( C L : * C H I M E M O D
0063700 E 6 0 ) ) \r
0063720
*
0063760 ( I Q U O T I E
0064000 N T S E C S ( C L : * C H
0064020 I M E M O D E 6 0 ] \r
0064040
0064060 006 002 t h e n 006 001 ( 006 002 i f
0064100 006 001 L A S T C H I M E \r
0064120
0064140 006 002 t h
0064160 e n 006 001 ( S E T Q C H I M E
0064200 C O U N T \r
0064220
0064240 ( 006 002 i f
0064260 006 001 ( = ( I M O D ( I Q U
0064300 O T I E N T S E C S 6 0 ) \r
0064320
*
0064400 6 0 ) \r
0064420
*
0064460 0 ) \r
0064500
0064520 006 002
0064540 t h e n 006 001 ( I P L U S ( I
0064560 M O D ( - ( I Q U O T I E N
0064600 T S E C S ( C L : * 6 0
0064620 6 0 ) ) \r
0064640
*
0064720 1 ) \r
0064740
*
0065020 1 2 ) \r
0065040
*
0065100 1 ) \r
0065120
*
0065160 006 002 e l s e 006 001 1 ) )
0065200 ) \r
0065220 ( S E
0065240 T Q L A S T C H I M E S E C
0065260 S ) ) \r
0065300 ( 006 002 i f 006 001 ( >
0065320 C H I M E C O U N T 0 ) \r
0065340
0065360 006 002 t h e n 006 001 ( 006
0065400 002 a d d 006 001 C H I M E C O U N
0065420 T - 1 ) \r
0065440
0065460 ( B E E P O N 4 4 0 ) \r
0065500
0065520 ( B L O C K
0065540 2 5 ) \r
0065560 (
0065600 B E E P O N 2 2 0 ) \r
0065620
0065640 ( B L O C K 2 5
0065660 ) \r
0065700 ( B E
0065720 E P O F F ) ) \r
0065740 ( 006 002 f o r
0065760 006 001 N 006 002 f r o m 006 001 1
0066000 006 002 t o 006 001 ( C O N D \r
0066020
*
0066060 ( S M O D E 1 0 ) \r
0066100
*
0066140 ( T 1 ) ) 006 002 b i n
0066160 d 006 001 ( D E L _ ( C O N D
0066200 \r
0066220
*
0066260 ( ( O
0066300 R S M O D E ( A N D A L A
0066320 R M T I M E \r
0066340
*
0066440 ( < = A L A R M T I M E
0066460 N O W ) ) \r
0066500
*
0066560 ( > C H I M E
0066600 C O U N T 0 ) ) \r
0066620
*
0066700 1 0 0 0 ) \r
0066720
*
0067000 ( T 6 0 0 0
0067020 0 ) ) ) \r
0067040 006 002 u n t i
0067060 l 006 001 ( O R A D J U S T A L
0067100 A R M ( A N D A L A R M T I
0067120 M E ( < = A L A R M T I M E
0067140 N O W ) ) ) \r
0067160 006 002 r
0067200 e p e a t w h i l e 006 001 ( A N
0067220 D N O S E C ( > M E A N
0067240 L I M I T ) ) \r
0067260 006 002 d
0067300 o 006 001 ( B L O C K ( - D E
0067320 L ( I M O D ( - ( C L O C
0067340 K 0 ) \r
0067360
*
0067420 R E F ) \r
0067440
*
0067500 D E L ) ) ) \r
0067520
0067540 ( S E T Q C L 0 ( C
0067560 L O C K 0 ) ) \r
0067600
0067620 ( B L O C K ) \r
0067640
0067660 ( S E T Q M E A N ( I Q U
0067700 O T I E N T ( I P L U S ( C
0067720 L : * M E A N 8 ) \r
0067740
*
0070020 ( C L : * ( I M A X ( I M
0070040 I N ( - ( C L O C K 0 ) \r
0070060
*
0070160 C L 0 ) \r
0070200
*
0070300 5 0 0 ) \r
0070320
*
0070400 0 ) \r
0070420
*
0070500 2 ) ) \r
0070520
*
0070560 1 0 ] \r
0070600 ( S E T Q
0070620 S L O W M O D E ( N O T A D
0070640 J U S T A L A R M ) ) \r
0070660 ( S E T Q
0070700 S M O D E S E C O N D S M O D
0070720 E ) \r
0070740 ( S E T Q N O S E C ( A N
0070760 D ( O R ( N O T S M O D E
0071000 ) \r
0071020
0071040 ( > M E A N L I M
0071060 I T ) ) \r
0071100
0071120 ( N O T A D J U S T A
0071140 L A R M ) ) ) \r
0071160 ( S E T Q I N V E
0071200 R T F L G ( 006 002 i f 006 001 ( A
0071220 N D A L A R M T I M E ( I L
0071240 E Q A L A R M T I M E N O W
0071260 ) ) \r
0071300
0071320 006 002 t h e n 006 001 ( B
0071340 E E P O N ( 006 002 i f 006 001 I N
0071360 V E R T F L G \r
0071400
*
0071440 006 002 t h e
0071460 n 006 001 4 4 0 \r
0071500
*
0071540 006 002 e l s e 006
0071560 001 8 8 0 ) ) \r
0071600
0071620 (
0071640 B L O C K 5 0 ) \r
0071660
*
0071720 ( B E E P O F F ) \r
0071740
*
0072000 ( N O T I N V E R T F L G
0072020 ) \r
0072040
0072060 006 002 e l s e i f 006 001 A D J
0072100 U S T A L A R M \r
0072120
0072140 006 002 t h e
0072160 n 006 001 ( A W A I T . E V E N T
0072200 A D J U S T E V E N T ) \r
0072220
*
0072260 N I L ) ) \r
0072300 ( S E T Q L
0072320 I M I T ( I M I N ( 006 002 i f
0072340 006 001 ( > L I M I T ( / (
0072360 C L : * M E A N 1 0 ) \r
0072400
*
0072440 9 )
0072460 ) \r
0072500
0072520 006 002 t h e n 006 001 (
0072540 - L I M I T 1 ) \r
0072560
0072600 006 002 e
0072620 l s e 006 001 ( + L I M I T 1
0072640 ) ) \r
0072660
0072700 5 0 ] ) \r \r ( 006 004 B I C L
0072720 O C K R P F N 006 001 \r [ L A M
0072740 B D A ( W ) \r ( W A K
0072760 E . P R O C E S S ( W I N D O
0073000 W P R O P W ' P R O C E S S
0073020 ] ) \r \r ( 006 004 B I C L O C K R S
0073040 F N 006 001 \r [ L A M B D A (
0073060 W ) 006 006 006 001
0073100
*
0073140 006 006 ( * l m m "
0073160 2 4 - O c t - 8 6 1 5 : 1 7 "
0073200 ) 006 001 \r ( R E S T A R T
0073220 . P R O C E S S ( W I N D O W
0073240 P R O P W ' P R O C E S S ]
0073260 ) \r \r ( 006 004 B I C L O C K S E T
0073300 A L A R M 006 001 \r [ L A M B D
0073320 A ( W ) 006 006 006 001
0073340
*
0073400 006 006 ( * l m
0073420 m " 2 4 - O c t - 8 6 1 5 :
0073440 2 1 " ) 006 001 \r ( L E T \r
0073460 [ ( M \r
0073500 ( O R \r ( W I N
0073520 D O W P R O P W ' A D J U S
0073540 T M E N U W ) \r
0073560 ( M E N U W I N D O W \r
0073600 ( 006 002 c r e a t e 006 001
0073620 \r M E N U \r
0073640 I T E M S
0073660 _ \r ` ( ( "
0073700 < H r > " ) \r
0073720 ( " < M i n > " ) \r
0073740 ( " < S e c >
0073760 " ) \r ,
0074000 @ [ 006 002 f o r 006 001 I 1 006 002 i
0074020 n 006 001 ' ( 2 4 1 2 3 1
0074040 - 1 - 3 - 1 2 - 2 4 ) 006
0074060 002 a s 006 001 I 2 \r
0074100 006 002 i n 006 001
0074120 ' ( 3 0 1 5 5 1 - 1
0074140 - 5 - 1 5 - 3 0 ) \r
0074160 006 002 j
0074200 o i n 006 001 ( 006 002 f o r 006 001 Q
0074220 Q Q 006 002 i n 006 001 ' ( T N I
0074240 L N I L ) 006 002 a s 006 001 S C
0074260 A L E 006 002 i n 006 001 ( C O N S
0074300 T A N T ( L I S T ( T I M E
0074320 S 6 0 6 0 ) \r
0074340
*
0074440 6 0 1 ) ) 006 002 a s 006
0074460 001 H E L P \r
0074500
0074520 006 002 i n 006 001 ' ( " W i l l I
0074540 n c r e m e n t / D e c r e m e
0074560 n t H o u r s b y t h a t
0074600 A m o u n t " \r
0074620
0074640 " W
0074660 i l l I n c r e m e n t / D e
0074700 c r e m e n t M i n u t e s
0074720 b y t h a t A m o u n t "
0074740 \r
0074760
0075000 " W i l l I n c r e
0075020 m e n t / D e c r e m e n t S
0075040 e c o n d s b y t h a t A
0075060 m o u n t " ) \r
0075100
0075120 006 002 c o l l e c t 006 001 ( L E
0075140 T ( ( I ( 006 002 i f 006 001 Q Q
0075160 Q \r
0075200
*
0075240 006 002 t h e n 006 001 I 1 \r
0075260
*
0075320 006 002 e l s e 006 001
0075340 I 2 ) ) ) \r
0075360
0075400 ( L I
0075420 S T I ( L I S T ( F U N C
0075440 T I O N B I C L O C K S E T A
0075460 L A R M 1 ) \r
0075500
*
0075540 ( K W O T
0075560 E W ) \r
0075600
*
0075640 ( K W O T E
0075660 ( T I M E S I S C A L E ) )
0075700 ) \r
0075720
0075740 H E
0075760 L P ] \r
0076000 ( " O K ! " ( 006 002 B I C L O C
0076020 K S E T A L A R M 2 006 001 , ( K
0076040 W O T E W ) ) \r
0076060 " W i l
0076100 l E x i t A d j u s t M o
0076120 d e " ) \r
0076140 ( " _ 0 " ( 006 002 B I C L O C
0076160 K S E T A L A R M 1 006 001 , ( K
0076200 W O T E W ) 3 6 0 0 T ) \r
0076220
0076240 " W i l l R e s e t A l
0076260 a r m T i m e t o H r : 0
0076300 0 : 0 0 " ) \r
0076320 ( " _ 0 " ( 006 002 B I C L
0076340 O C K S E T A L A R M 1 006 001 ,
0076360 ( K W O T E W ) 6 0 T ) \r
0076400
0076420 " W i l l R e s e t A l
0076440 a r m T i m e t o H r : M
0076460 i n : 0 0 " ) ) \r
0076500 T I T L E _ " A d j u
0076520 s t A l a r m " \r
0076540 C E N T E R F L G _
0076560 T \r M E N U
0076600 C O L U M N S _ 3 ] \r
0076620 ( W I N D O W P R O P W
0076640 ' A D J U S T M E N U W M ) \r
0076660 ( A T T A C H W I N D
0076700 O W M W ' B O T T O M '
0076720 J U S T I F Y ) \r ( 006
0076740 002 w i t h 006 001 B I C L O C K P
0076760 A R M S ( W I N D O W P R O P
0077000 W ' P A R M S ) \r
0077020 ( S E T Q A L A R
0077040 M T I M E ( O R A L A R M T
0077060 I M E ( P L U S ( D A Y T I
0077100 M E ) \r
0077120
*
0077160 6 0 ) ) ) \r
0077200 ( S E T Q A D J U S T
0077220 A L A R M T ) \r
0077240 ( N O T I F Y . E V E N
0077260 T A D J U S T E V E N T ) \r
0077300 ( P R O M P
0077320 T P R I N T ( G D A T E A L
0077340 A R M T I M E ] ) \r \r ( 006 004 B I
0077360 C L O C K S E T A L A R M 1 006 001
0077400 \r [ L A M B D A ( W D S
0077420 E C M O D U L O F L G ) 006 006 006
0077440 001
0077460
0077500 006 006 ( * l m m " 2 4 - O
0077520 c t - 8 6 1 5 : 2 1 " ) 006 001 \r
0077540 ( 006 002 w i t h 006 001 B I
0077560 C L O C K P A R M S ( W I N D
0077600 O W P R O P W ' P A R M S )
0077620 \r [ L E T
0077640 [ ( O L D T I M E ( O R A L
0077660 A R M T I M E ( P L U S ( D
0077700 A Y T I M E ) \r
0077720
*
0077760 6 0 ] \r
0100000 ( S E T Q A L
0100020 A R M T I M E ( 006 002 i f 006 001
0100040 M O D U L O F L G \r
0100060
0100100 006 002 t
0100120 h e n 006 001 ( D I F F E R E N C
0100140 E O L D T I M E ( I M O D
0100160 ( 006 002 w i t h 006 001 U P T I M E
0100200 R E C ( \ U N P A C K D A T E
0100220 \r
0100240
*
0100340 A L A R M
0100360 T I M E ) \r
0100400
*
0100460 ( I
0100500 P L U S ( I T I M E S H O U
0100520 R 3 6 0 0 ) \r
0100540
*
0100640 ( I T I M E S M
0100660 I N U T E 6 0 ) \r
0100700
*
0101000 S E C O N D )
0101020 ) \r
0101040
*
0101120 D S E C ) ) \r
0101140
0101160 006 002 e l
0101200 s e 006 001 ( I P L U S O L D T
0101220 I M E D S E C ] \r
0101240 ( N O T I F Y . E V E N
0101260 T A D J U S T E V E N T ) \r
0101300 ( P R O M P T
0101320 P R I N T ( G D A T E A L A
0101340 R M T I M E ] ) \r \r ( 006 004 B I C
0101360 L O C K S E T A L A R M 2 006 001 \r
0101400 [ L A M B D A ( W ) 006 006 006
0101420 001
0101440
*
0101500 006 006 ( * l m m " 2 4 - O c
0101520 t - 8 6 1 5 : 1 7 " ) 006 001 \r
0101540 ( 006 002 w i t h 006 001 B I C
0101560 L O C K P A R M S ( W I N D O
0101600 W P R O P W ' P A R M S ) \r
0101620 ( S E T Q
0101640 A D J U S T A L A R M N I L )
0101660 \r ( N O T I
0101700 F Y . E V E N T A D J U S T E
0101720 V E N T ) \r
0101740 ( D E T A C H W I N D O W ( W
0101760 I N D O W P R O P W ' A D J
0102000 U S T M E N U W ) ) \r
0102020 ( C L O S E W ( W I
0102040 N D O W P R O P W ' A D J U
0102060 S T M E N U W ] ) \r \r ( 006 004 I D
0102100 L E . B I C L O C K 006 001 \r [
0102120 L A M B D A ( W ) 006 006 006 001
0102140
*
0102200 006 006
0102220 ( * B K N " 1 7 - J u n - 8
0102240 6 1 4 : 2 2 " ) 006 001 \r
0102260 ( R E S E T L S T ( L E T (
0102300 ( B W ( 006 002 B I C L O C K 006 001
0102320 B I C L O C K I D L E P R O P
0102340 S ) ) ) \r
0102360 ( R E S E T S A
0102400 V E N I L ( L I S T ( F U
0102420 N C T I O N C L O S E W ) \r
0102440
*
0102500 B W ) ) \r
0102520 (
0102540 006 002 w h i l e 006 001 T 006 002 d o
0102560 006 001 ( B L O C K 5 0 0 0 ) \r
0102600
0102620 (
0102640 006 002 i f 006 001 ( N E Q ( \ G E
0102660 T B A S E P T R B W 2 ) \r
0102700
*
0102740 W ) \r
0102760
0103000 006 002 t
0103020 h e n 006 001 ( T O T O P W W )
0103040 ) \r
0103060
0103100 ( M O V E W B W [ R A N D
0103120 0 ( D I F F E R E N C E S
0103140 C R E E N W I D T H ( W I N D
0103160 O W P R O P B W ' W I D T H
0103200 ] \r
0103220
0103240 ( R A N D 0
0103260 ( D I F F E R E N C E S C R E
0103300 E N H E I G H T ( W I N D O W
0103320 P R O P B W ' H E I G H T ]
0103340 ) \r ) \r ( D E C L A R E % : E
0103360 V A L @ C O M P I L E \r \r ( D A
0103400 T A T Y P E 006 002 B I C L O C K
0103420 P A R M S 006 001 ( S E C O N D S
0103440 M O D E C O L O R M O D E M
0103460 A R K M O D E D I G M O D E
0103500 C H I M E M O D E R O M A N D
0103520 I G S A L A R M T I M E \r
0103540
0103560 A D J
0103600 U S T A L A R M A D J U S T E
0103620 V E N T ) ) \r \r ( R E C O R D
0103640 006 002 U P T I M E R E C 006 001 ( Y
0103660 E A R M O N T H D A Y H O
0103700 U R M I N U T E S E C O N D
0103720 Q Q Q ) ) \r ) \r ( / D E C L A
0103740 R E D A T A T Y P E ' B I C L
0103760 O C K P A R M S ' ( P O I N T
0104000 E R P O I N T E R P O I N T
*
0104060 E R P O I N T E R \r
0104100
*
0104140 P O I N T E R ) ' ( (
0104160 B I C L O C K P A R M S 0 P
0104200 O I N T E R ) \r
0104220
*
0104260 ( B I C L
0104300 O C K P A R M S 2 P O I N T
0104320 E R ) \r
0104340
*
0104400 ( B I C L O C K P
0104420 A R M S 4 P O I N T E R ) \r
0104440
*
0104520 ( B I C L O C K P A R M S
0104540 6 P O I N T E R ) \r
0104560
*
0104620 (
0104640 B I C L O C K P A R M S 8 P
0104660 O I N T E R ) \r
0104700
*
0104740 ( B I C L
0104760 O C K P A R M S 1 0 P O I N
0105000 T E R ) \r
0105020
*
0105060 ( B I C L O C K
0105100 P A R M S 1 2 P O I N T E R
0105120 ) \r
0105140
*
0105200 ( B I C L O C K P A R
0105220 M S 1 4 P O I N T E R ) \r
0105240
*
0105320 ( B I C L O C K P A R M S
0105340 1 6 P O I N T E R ) ) ' 1 8
0105360 ) \r \r ( R P A Q ? 006 002 B I C L
0105400 O C K W I N D O W 006 001 ) \r \r (
0105420 R P A Q ? 006 002 B I C L O C K D
0105440 E F A U L T P R O P S 006 001 \r
0105460 ' ( S E C O N D S
0105500 T C O L O R S H A D O W M
0105520 A R K S H O U R D I G I T S
0105540 N I L C H I M E N I L A
0105560 L A R M N I L S I Z E 8 6
0105600 H O R I Z O N T A L \r
0105620 L E F T
0105640 - O F - L O G O V E R T I C A
0105660 L T O P C R E A T E T ) )
0105700 \r \r ( R P A Q ? 006 002 B I C L O
0105720 C K U S E R P R O P S 006 001 ) \r
0105740 \r ( R P A Q ? 006 002 B I C L O C
0105760 K I N I T I A L P R O P S 006 001
0106000 ) \r \r ( R P A Q ? 006 002 B I C L
0106020 O C K I D L E P R O P S 006 001 '
0106040 ( H O R I Z O N T A L C E N T
0106060 E R V E R T I C A L C E N T
0106100 E R ) ) \r ( C L : P R O C L A I
0106120 M ' ( C L : S P E C I A L B
0106140 I C L O C K W I N D O W B I C
0106160 L O C K D E F A U L T P R O P S
0106200 B I C L O C K U S E R P R O P
0106220 S B I C L O C K I N I T I A L
0106240 P R O P S \r
0106260 B I C L
0106300 O C K I D L E P R O P S ) ) \r (
0106320 D E C L A R E % : D O N T E V
0106340 A L @ L O A D D O C O P Y \r
0106360 \r ( R P A Q 006 002 B I C L O C K
0106400 W I N D O W 006 001 ( B I C L O C
0106420 K B I C L O C K I N I T I A L
0106440 P R O P S ) ) \r ) \r \r ( A D D T
0106460 O V A R 006 002 I D L E . F U N C
0106500 T I O N S 006 001 ( B i c l o c k
0106520 ' I D L E . B I C L O C K ) )
0106540 \r \r ( A D D T O V A R 006 002 I D
0106560 L E . S U S P E N D . P R O C E
0106600 S S . N A M E S 006 001 B I C L O
0106620 C K P R O C E S S ) \r ( D E C L
0106640 A R E % : D O N T E V A L @ L
0106660 O A D D O E V A L @ C O M P I
0106700 L E D O N T C O P Y C O M P
0106720 I L E R V A R S \r \r ( A D D T
0106740 O V A R 006 002 N L A M A 006 001 )
0106760 \r \r ( A D D T O V A R 006 002 N L
0107000 A M L 006 001 ) \r \r ( A D D T O V
0107020 A R 006 002 L A M A 006 001 B I C L
0107040 O C K ) \r ) \r ( P U T P R O P S
0107060 B I C L O C K C O P Y R I G
0107100 H T ( " B e r n t N i l s s
0107120 o n @ U n i v e r s i t y
0107140 o f L i n k o e p i n g " 1
0107160 9 8 4 1 9 8 5 1 9 8 6 1 9
0107200 8 7 ) ) \r ( D E C L A R E % :
0107220 D O N T C O P Y \r ( F I L E
0107240 M A P ( N I L ( 1 7 4 1 3
0107260 4 5 3 1 ( B I C L O C K 1 7
0107300 5 1 . 7 3 2 6 ) ( B I C L
0107320 O C K B E F N 7 3 2 8 . 1
0107340 2 8 8 6 ) ( B I C L O C K C F
0107360 N 1 2 8 8 8 . 1 2 9 5 9 )
0107400 \r ( B I C L O C K F I N D F O
0107420 N T 1 2 9 6 1 . 1 4 4 0 0
0107440 ) ( B I C L O C K N R F N 1
0107460 4 4 0 2 . 1 5 8 1 8 ) ( B
0107500 I C L O C K P R O C E S S 1 5
0107520 8 2 0 . 3 0 1 5 1 ) ( \r B
0107540 I C L O C K R P F N 3 0 1 5 3
0107560 . 3 0 2 2 6 ) ( B I C L O
0107600 C K R S F N 3 0 2 2 8 . 3
0107620 0 3 8 5 ) ( B I C L O C K S E
0107640 T A L A R M 3 0 3 8 7 . 3
0107660 2 4 8 9 ) ( \r B I C L O C K S
0107700 E T A L A R M 1 3 2 4 9 1 .
0107720 3 3 5 1 2 ) ( B I C L O C K
0107740 S E T A L A R M 2 3 3 5 1 4
0107760 . 3 3 8 4 9 ) ( I D L E . B
0110000 I C L O C K 3 3 8 5 1 . 3
0110020 4 5 2 9 ) ) ) ) ) \r S T O P \r
0110037