$ od -c -N 50000 [phylum]<LISP>Lyric>Lispusers>BICLOCK!1
0000000 ( D E F I N E - F I L E - I N F
0000020 O 036 R E A D T A B L E " I N
0000040 T E R L I S P " 036 P A C K A G
0000060 E " I N T E R L I S P " ) \r 006
0000100 001 ( F I L E C R E A T E D " 1
0000120 6 - N o v - 8 7 1 8 : 5 7 : 2
0000140 1 " 006 004 { D S K } < L I S P F
0000160 I L E S > B I C L O C K . ; 1 006
0000200 001 3 5 5 6 3 \r \r
0000220 p r e v i o u s d a t e % :
0000240 " 1 6 - A u g - 8 7 1 8 : 0
0000260 1 : 4 6 " | { R O N J A : I D
0000300 A : L I T H } < B K N > B I C L
0000320 O C K . ; 4 6 | ) \r \r \r ( * "
0000340 \r C o p y r i g h t ( c ) 1
0000360 9 8 4 , 1 9 8 5 , 1 9 8 6 ,
0000400 1 9 8 7 b y B e r n t N
0000420 i l s s o n @ U n i v e r s
0000440 i t y o f L i n k o e p i n
0000460 g . A l l r i g h t s r
0000500 e s e r v e d . \r " ) \r \r ( P R
0000520 E T T Y C O M P R I N T B I C
0000540 L O C K C O M S ) \r \r ( R P A Q
0000560 Q 006 002 B I C L O C K C O M S 006
0000600 001 \r [ ( F N S
0000620 B I C L O C K B I C L O C K B
0000640 E F N B I C L O C K C F N B
0000660 I C L O C K F I N D F O N T B
0000700 I C L O C K N R F N B I C L O
0000720 C K P R O C E S S B I C L O C
0000740 K R P F N \r
0000760 B I C L O C K R S F N
0001000 B I C L O C K S E T A L A R M
0001020 B I C L O C K S E T A L A R M 1
0001040 B I C L O C K S E T A L A R M
0001060 2 I D L E . B I C L O C K ) \r
0001100 ( R E C O R D S
0001120 B I C L O C K P A R M S U P
0001140 T I M E R E C ) \r
0001160 ( G L O B A L V A R S B I C
0001200 L O C K D E F A U L T P R O P S
0001220 B I C L O C K U S E R P R O P
0001240 S B I C L O C K I N I T I A L
0001260 P R O P S B I C L O C K I D L
0001300 E P R O P S ) \r
0001320 [ V A R S ( B I C L O C K D E
0001340 F A U L T P R O P S ' ( S E C
0001360 O N D S T C O L O R W H I
0001400 T E M A R K S N I L D I G
0001420 I T S H O U R C H I M E N
0001440 I L A L A R M N I L \r
0001460
*
0001520 S I Z E 1 1
0001540 9 H O R I Z O N T A L R I G
0001560 H T V E R T I C A L T O P
0001600 C R E A T E T ] \r
0001620 [ I N I T V A R S ( B I C
0001640 L O C K U S E R P R O P S ) \r
0001660 ( B
0001700 I C L O C K I N I T I A L P R O
0001720 P S ) \r
0001740 ( B I C L O C K I D L E P
0001760 R O P S ' ( H O R I Z O N T A
0002000 L C E N T E R V E R T I C A
0002020 L C E N T E R ] \r
0002040 ( V A R S ( B I C L O C K
0002060 W I N D O W ( B I C L O C K
0002100 B I C L O C K I N I T I A L P R
0002120 O P S ) ) ) \r (
0002140 A D D V A R S ( I D L E . F U
0002160 N C T I O N S ( B i c l o c k
0002200 ' I D L E . B I C L O C K ) )
0002220 \r
0002240 ( I D L E . S U S P E N D . P R
0002260 O C E S S . N A M E S B I C L
0002300 O C K P R O C E S S ) ) \r
0002320 ( D E C L A R E % :
0002340 D O N T E V A L @ L O A D D O
0002360 E V A L @ C O M P I L E D O N
0002400 T C O P Y C O M P I L E R V A
0002420 R S ( A D D V A R S ( N L A
0002440 M A ) \r
0002460
*
0002560 ( N L A M L ) \r
0002600
*
0002700 ( L A M A B I C L
0002720 O C K ] ) \r ( D E F I N E Q \r \r
0002740 ( 006 004 B I C L O C K 006 001 \r [
0002760 L A M B D A P R O P S 006 006 006 001
0003000
*
0003040 006 006
0003060 ( * B K N " 1 3 - A u g - 8
0003100 7 1 5 : 3 2 " ) 006 001 \r
0003120 ( L E T \r ( ( P L I S
0003140 T ( A P P E N D ( 006 002 i f 006
0003160 001 [ A N D ( E Q P R O P S
0003200 1 ) \r
0003220
0003240 ( O R ( N U L L ( A R G
0003260 P R O P S 1 ) ) \r
0003300
0003320 ( L I
0003340 S T P ( A R G P R O P S 1
0003360 ] \r
0003400 006 002 t h e
0003420 n 006 001 ( A R G P R O P S 1
0003440 ) \r
0003460 006 002 e l s e 006
0003500 001 ( 006 002 f o r 006 001 I 006 002 f
0003520 r o m 006 001 1 006 002 t o 006 001 P
0003540 R O P S 006 002 c o l l e c t 006 001
0003560 ( A R G P R O P S I ) ) )
0003600 \r
0003620 B I C L O C K U S E R
0003640 P R O P S B I C L O C K D E F
0003660 A U L T P R O P S ) ) ) \r
0003700 ( 006 002 i f 006 001 [ O R ( O
0003720 D D P ( L E N G T H P L I S
0003740 T ) ) \r
0003760 ( 006 002 f i n d 006 001 P 006 002 i
0004000 n 006 001 P L I S T 006 002 b y 006 001
0004020 ( C D D R P ) 006 002 s u c h
0004040 t h a t 006 001 ( N O T ( L I T
0004060 A T O M P ] \r
0004100 006 002 t h e n 006 001 ( E R R O R
0004120 " A R G N O T P R O P L I
0004140 S T I N B I C L O C K " P
0004160 L I S T ) ) \r ( 006 002 i
0004200 f 006 001 ( L I S T G E T P L I
0004220 S T ' C R E A T E ) \r
0004240 006 002 t h e n 006 001 \r
0004260 ( L E T \r
0004300 ( ( W \r
0004320 ( O R \r
0004340 ( L I S T G E T
0004360 P L I S T ' W I N D O W ) \r
0004400 ( C R E
0004420 A T E W \r
0004440 ( O R ( L I S T G E T
0004460 P L I S T ' R E G I O N ) \r
0004500
0004520 [ L E T [ ( S I Z E ( L I
0004540 S T G E T P L I S T ' S I Z
0004560 E ) ) \r
0004600 ( H O R
0004620 ( L I S T G E T P L I S T
0004640 ' H O R I Z O N T A L ) ) \r
0004660
0004700 ( V E R T ( L I S
0004720 T G E T P L I S T ' V E R T
0004740 I C A L ] \r
0004760 ( 006 002
0005000 i f 006 001 S I Z E \r
0005020
0005040 006 002 t h e n 006 001 ( 006
0005060 002 i f 006 001 ( A N D H O R V
0005100 E R T ) \r
0005120
0005140 006 002 t h e n 006
0005160 001 ( C R E A T E R E G I O N
0005200 ( S E L E C T Q H O R \r
0005220
*
0005300 ( L E F T 0 )
0005320 \r
0005340
*
0005400 ( C E N
0005420 T E R ( Q U O T I E N T ( D
0005440 I F F E R E N C E S C R E E N
0005460 W I D T H \r
0005500
*
0005600 S I Z E )
0005620 \r
0005640
*
0005720 2 ) ) \r
0005740
*
0006020 ( R I G H T
0006040 ( D I F F E R E N C E ( D I
0006060 F F E R E N C E S C R E E N W
0006100 I D T H \r
0006120
*
0006220 S I Z E )
0006240 \r
0006260
*
0006340 1 ) ) \r
0006360
*
0006440 ( O R ( N U
0006460 M B E R P H O R ) \r
0006500
*
0006560 0 ) ) \r
0006600
*
0006640 ( S
0006660 E L E C T Q V E R T \r
0006700
*
0006760 ( B O T T O M 0 ) \r
0007000
*
0007040 (
0007060 C E N T E R ( Q U O T I E N T
0007100 ( D I F F E R E N C E S C R
0007120 E E N H E I G H T S I Z E ) \r
0007140
*
0007240 2 ) ) \r
0007260
*
0007320 ( T O P
0007340 ( D I F F E R E N C E ( D I F
0007360 F E R E N C E S C R E E N H E
0007400 I G H T S I Z E ) \r
0007420
*
0007500 1 ) ) \r
0007520
*
0007600 ( O R ( N U M B E R P
0007620 V E R T ) \r
0007640
*
0007700 0 )
0007720 ) \r
0007740
*
0010000 S I Z E S I Z E ) \r
0010020
0010040 006
0010060 002 e l s e 006 001 ( G E T B O X R
0010100 E G I O N S I Z E S I Z E ]
0010120 \r
0010140 ( G E T R E G I O N 2 0
0010160 2 0 N I L ' B I C L O C K
0010200 N R F N ) ) \r
0010220 N I L 0 ) ) ) \r
0010240 [ P A R M S
0010260 ( 006 002 c r e a t e 006 001 B I C L
0010300 O C K P A R M S \r
0010320
0010340 S E C O N D S M O D E _
0010360 ( L I S T G E T P L I S T '
0010400 S E C O N D S ) \r
0010420
0010440 C O L O R M O D E _ ( L
0010460 I S T G E T P L I S T ' C O
0010500 L O R ) \r
0010520 M A
0010540 R K M O D E _ [ S E L E C T
0010560 Q ( L I S T G E T P L I S T
0010600 ' M A R K S ) \r
0010620
*
0010660 ( H O U R 5 ) \r
0010700
*
0010740 ( ( H O U R & M I N U T E
0010760 M I N U T E ) \r
0011000
*
0011040 1 ) \r
0011060
*
0011120 ( | 3 / 6 / 9 / 1 2 | 1 5 )
0011140 \r
0011160
0011200 ( N U M B E R
0011220 P ( L I S T G E T P L I S T
0011240 ' M A R K S ] \r
0011260
0011300 D I G M O D E _ [ S E L
0011320 E C T Q ( L I S T G E T P L
0011340 I S T ' D I G I T S ) \r
0011360
*
0011420 ( H O U R 1 ) \r
0011440
*
0011500 ( | 3 / 6 / 9 / 1 2 |
0011520 3 ) \r
0011540
0011560 ( N U M B E
0011600 R P ( L I S T G E T P L I S
0011620 T ' D I G I T S ] \r
0011640
0011660 C H I M E M O D E _
0011700 [ S E L E C T Q ( L I S T G E
0011720 T P L I S T ' C H I M E ) \r
0011740
*
0012000 ( H O U R 6
0012020 0 ) \r
0012040
0012060 ( Q U O
0012100 R T E R 1 5 ) \r
0012120
*
0012160 ( N U M B E R P ( L I S T
0012200 G E T P L I S T ' C H I M E
0012220 ] \r
0012240 R O M A N
0012260 D I G S _ ( E Q ( L I S T
0012300 G E T P L I S T ' D I G I T
0012320 F O R M A T ) \r
0012340
*
0012400 ' R O M A N ) \r
0012420
0012440 A D J U S T E V E N T _
0012460 ( C R E A T E . E V E N T ) \r
0012500
0012520 A L A R M T I M
0012540 E _ ( 006 002 i f 006 001 ( L I S
0012560 T G E T P L I S T ' A L A R
0012600 M ) \r
0012620
0012640 006 002 t h
0012660 e n 006 001 ( I D A T E ( L I S
0012700 T G E T P L I S T ' A L A R
0012720 M ] \r P )
0012740 \r ( S E T Q
0012760 P ( A D D . P R O C E S S
0013000 ( L I S T ( F U N C T I O N
0013020 B I C L O C K P R O C E S S ) \r
0013040
*
0013100 ( K W O T E W ) \r
0013120
*
0013160 ( K W O T E P A R M S
0013200 ) ) \r
0013220 ' R E S
0013240 T A R T A B L E \r
0013260
0013300 ' H A R D R E S E T ) ) \r
0013320 ( W I N D O W
0013340 P R O P W ' P R O C E S S
0013360 P ) \r ( W I
0013400 N D O W P R O P W ' N E W R
0013420 E G I O N F N ( F U N C T I O
0013440 N B I C L O C K N R F N ) ) \r
0013460 ( W I N D O
0013500 W P R O P W ' R E S H A P E
0013520 F N ( F U N C T I O N B I C
0013540 L O C K R S F N ) ) \r
0013560 ( W I N D O W P R O P
0013600 W ' R E P A I N T F N ( F
0013620 U N C T I O N B I C L O C K R
0013640 P F N ) ) \r
0013660 ( W I N D O W P R O P W ' C
0013700 L O S E F N ( F U N C T I O N
0013720 B I C L O C K C F N ) ) \r
0013740 ( W I N D O W P
0013760 R O P W ' A F T E R M O V E
0014000 F N ( F U N C T I O N B I C
0014020 L O C K R P F N ) ) \r
0014040 ( W I N D O W P R O P
0014060 W ' P A R M S P A R M S )
0014100 \r ( W I N D
0014120 O W P R O P W ' W I N D O W
0014140 E N T R Y F N ( F U N C T I O
0014160 N B I C L O C K B E F N ) ) \r
0014200 ( W I N D O
0014220 W P R O P W ' B U T T O N E
0014240 V E N T F N ( F U N C T I O N
0014260 B I C L O C K B E F N ) ) \r
0014300 W ] ) \r \r ( 006
0014320 004 B I C L O C K B E F N 006 001 \r
0014340 [ L A M B D A ( W ) 006 006 006 001
0014360
*
0014440 006 006 ( * B K N " 1 9 - M a y
0014460 - 8 6 1 5 : 5 5 " ) 006 001 \r
0014500 [ 006 002 i f 006 001 ( P R O C E
0014520 S S . F I N I S H E D P ( W I
0014540 N D O W P R O P W ' P R O C
0014560 E S S ) ) \r 006 002
0014600 t h e n 006 001 ( P R I N T O U T
0014620 P R O M P T W I N D O W T
0014640 " R E S T A R I N G B I C L O
0014660 C K P R O C E S S " ) \r
0014700 ( W I N D O
0014720 W P R O P W ' P R O C E S S
0014740 ( A D D . P R O C E S S [ L
0014760 I S T ( F U N C T I O N B I
0015000 C L O C K P R O C E S S ) \r
0015020
*
0015100 ( K W O T E W ) \r
0015120
*
0015200 ( K W O T E ( W I
0015220 N D O W P R O P W ' P A R M
0015240 S ] \r
0015260
0015300 ' R
0015320 E S T A R T A B L E \r
0015340
*
0015400 ' H A R D R E S E T
0015420 ] \r ( 006 002 i f 006 001 ( K
0015440 E Y D O W N P ' L S H I F T )
0015460 \r 006 002 t h e n 006
0015500 001 ( B K S Y S B U F ( D A T
0015520 E ) ) \r
0015540 ( U N T I L M O U S E S T A T
0015560 E ( N O T ( O R L E F T
0015600 M I D D L E ) ) ) \r
0015620 006 002 e l s e 006 001 \r (
0015640 006 002 w i t h 006 001 B I C L O C K
0015660 P A R M S ( W I N D O W P R O
0015700 P W ' P A R M S ) \r
0015720 ( 006 002 i f 006 001
0015740 ( M O U S E S T A T E L E F T
0015760 ) \r
0016000 006 002 t h e n 006 001 ( 006 002 i f
0016020 006 001 A L A R M T I M E \r
0016040
0016060 006 002 t h e n 006 001 (
0016100 P R O M P T P R I N T ( D A T
0016120 E ) \r
0016140
0016160 " A L A R
0016200 M A T " \r
0016220
0016240 ( G D A
0016260 T E A L A R M T I M E ) ) \r
0016300
0016320 006 002 e l s e 006 001 (
0016340 P R O M P T P R I N T ( D A T
0016360 E ) \r
0016400
0016420 " N O A L
0016440 A R M S E T " ) ) \r
0016460 006 002 e l s e i
0016500 f 006 001 ( M O U S E S T A T E
0016520 M I D D L E ) \r
0016540 006 002 t h e n 006 001
0016560 ( L E T [ ( S E L ( M E N
0016600 U ( 006 002 c r e a t e 006 001 M E
0016620 N U \r
0016640
*
0016700 I T E M S _ ` ( ( " S e c o
0016720 n d s O n " ' S O N ) \r
0016740
*
0017020 ( " S e c o n d s O
0017040 f f " ' S O F F ) \r
0017060
*
0017140 ( " W h i t e " ' W H I T
0017160 E ) \r
0017200
*
0017240 ( " B l a c
0017260 k " ' B L A C K ) \r
0017300
*
0017360 [ " M a r k e r s " ' M I
0017400 N S E C \r
0017420
*
0017500 " U s e S u b m e n u t
0017520 o C h a n g e n u m b e r
0017540 o f M a r k e r s " \r
0017560
*
0017640 ( S U B I T
0017660 E M S ( " N o m a r k e r s
0017700 " ' N O M A R K E R ) \r
0017720
*
0020020 ( " 3 / 6 / 9 / 1 2 M a r
0020040 k e r s " ' 3 H O U R M A R K
0020060 S ) \r
0020100
*
0020160 ( " O n l y h
0020200 o u r s " ' H O U R M A R K S
0020220 ) \r
0020240
*
0020320 ( " H o u r s a
0020340 n d m i n u t e s " \r
0020360
*
0020460 ' M I N H O U R M A R K S ]
0020500 \r
0020520
*
0020560 [ " D i g i t s
0020600 " ' H O U R \r
0020620
*
0020700 " U s e S u b m e
0020720 n u t o C h a n g e n u m
0020740 b e r o f D i g i t s " \r
0020760
*
0021040 ( S U
0021060 B I T E M S ( " N o D i g i
0021100 t s " ' N O D I G ) \r
0021120
*
0021220 ( " 3 / 6 / 9 / 1 2 H o u r
0021240 s " ' 3 H O U R ) \r
0021260
*
0021360 ( " A l l H o u r s " ' H O
0021400 U R ) \r
0021420
*
0021500 ( " A r a b i
0021520 c d i g i t s " ' A R A B I
0021540 C ) \r
0021560
*
0021640 ( " R o m a n
0021660 d i g i t s " ' R O M A N ] \r
0021700
*
0021760 [ " C h i m e "
0022000 ' C H I M E \r
0022020
*
0022100 " U s e S u b m e
0022120 n u t o C h a n g e C h i
0022140 m e i n t e r v a l l " \r
0022160
*
0022240 ( S U B
0022260 I T E M S ( " N o c h i m e
0022300 " ' N O C H I M E ) \r
0022320
*
0022420 ( " H o u r s " ' C H I M E
0022440 ) \r
0022460
*
0022540 ( " H o u r s a
0022560 n d q u o r t e r s " \r
0022600
*
0022700 ' C H I M E 1 5 M I N ] \r
0022720
*
0023000 ( " S e t A l a
0023020 r m " ' A L A R M ) \r
0023040
*
0023120 ( " A l a r m O f f "
0023140 ' A O F F ] \r
0023160
0023200 ( S E L E C T Q S E L \r
0023220
0023240 ( S O N
0023260 ( S E T Q S E C O N D S M O
0023300 D E T ) ) \r
0023320
0023340 ( S O F F ( S E T Q
0023360 S E C O N D S M O D E N I L
0023400 ) ) \r
0023420
0023440 ( W H I T E ( S E T Q C O
0023460 L O R M O D E ' W H I T E ) )
0023500 \r
0023520 (
0023540 B L A C K ( S E T Q C O L O
0023560 R M O D E ' B L A C K ) ) \r
0023600
0023620 ( N O
0023640 M A R K E R ( S E T Q M A R
0023660 K M O D E N I L ) ) \r
0023700
0023720 ( 3 H O U R
0023740 M A R K S ( S E T Q M A R K
0023760 M O D E 1 5 ) ) \r
0024000
0024020 ( H O U R M A R
0024040 K S ( S E T Q M A R K M O D
0024060 E 5 ) ) \r
0024100
0024120 ( M I N H O U R M A R K
0024140 S ( S E T Q M A R K M O D E
0024160 1 ) ) \r
0024200
0024220 ( N O D I G ( S E T Q
0024240 D I G M O D E N I L ) ) \r
0024260
0024300 ( 3 H O
0024320 U R ( S E T Q D I G M O D E
0024340 3 ) ) \r
0024360
0024400 ( H O U R ( S E T Q D
0024420 I G M O D E 1 ) ) \r
0024440
0024460 ( A R A B I C
0024500 ( S E T Q R O M A N D I G S
0024520 N I L ) ) \r
0024540
0024560 ( R O M A N ( S E T
0024600 Q R O M A N D I G S T ) ) \r
0024620
0024640 ( N
0024660 O C H I M E ( S E T Q C H I
0024700 M E M O D E N I L ) ) \r
0024720
0024740 ( C H I M
0024760 E ( S E T Q C H I M E M O D
0025000 E 6 0 ) ) \r
0025020
0025040 ( C H I M E 1 5 M I N
0025060 ( S E T Q C H I M E M O D E
0025100 1 5 ) ) \r
0025120
0025140 ( A L A R M ( 006 002 B I
0025160 C L O C K S E T A L A R M 006 001
0025200 W ) ) \r
0025220
0025240 ( A O F F ( S E T Q A L
0025260 A R M T I M E N I L ) ) \r
0025300
0025320 N I L )
0025340 \r
0025360 ( 006 002 i f
0025400 006 001 ( M E M B S E L ' ( N
0025420 O M A R K E R 3 H O U R M A R
0025440 K S H O U R M A R K S M I N
0025460 H O U R M A R K S N O D I G
0025500 3 H O U R H O U R \r
0025520
*
0025560 A R A B
0025600 I C R O M A N ) ) \r
0025620
0025640 006 002 t h e n 006
0025660 001 ( R E S T A R T . P R O C E
0025700 S S ( W I N D O W P R O P W
0025720 ' P R O C E S S ) ) \r
0025740
0025760 006 002 e l s e 006 001
0026000 ( W A K E . P R O C E S S (
0026020 W I N D O W P R O P W ' P R
0026040 O C E S S ] ) \r \r ( 006 004 B I C L
0026060 O C K C F N 006 001 \r [ L A M B
0026100 D A ( W ) \r ( D E L .
0026120 P R O C E S S ( W I N D O W P
0026140 R O P W ' P R O C E S S ] )
0026160 \r \r ( 006 004 B I C L O C K F I N D
0026200 F O N T 006 001 \r [ L A M B D A
0026220 ( S I Z E M O D E R N C L A
0026240 S S I C ) 006 006 006 001
0026260
0026300 006 006 ( * B K N
0026320 " 1 6 - A u g - 8 7 1 7 : 5
0026340 7 " ) 006 001 \r ( L E T [
0026360 ( A L L F O N T S ( F O N T S
0026400 A V A I L A B L E ' * ' *
0026420 ' M R R 0 ' D I S P L A Y ]
0026440 \r [ S O R T
0026460 A L L F O N T S ( F U N C T I
0026500 O N ( L A M B D A ( F 1 F
0026520 2 ) \r
0026540
0026560 ( A N D [ N O T
0026600 ( M E M B ( C A R F 1 ) \r
0026620
*
0026700 ' ( L O G O ] \r
0026720
*
0026760 ( O R [ A N D M O
0027000 D E R N C L A S S I C ( M E M
0027020 B ( C A R F 1 ) \r
0027040
*
0027140 ' ( M O D E R N C L A S S I
0027160 C ) ) \r
0027200
*
0027240 ( N O T ( M E M B
0027260 ( C A R F 2 ) \r
0027300
*
0027360 ' ( M O D E R N
0027400 C L A S S I C ] \r
0027420
*
0027460 ( G R E A T E R P
0027500 ( C A D R F 1 ) \r
0027520
*
0027560 ( C
0027600 A D R F 2 ) ) \r
0027620
*
0027660 ( A N D ( E Q P
0027700 ( C A D R F 1 ) \r
0027720
*
0030000 ( C A D R F 2 ) ) \r
0030020
*
0030060 ( 006
0030100 002 f o r 006 001 F A M \r
0030120
*
0030200 006 002 i n 006 001 ' ( M O D E R N
0030220 C L A S S I C G A C H A H E
0030240 L V E T I C A H E L V E T I C
0030260 A D \r
0030300
*
0030360 T E R M I N A L ) \r
0030400
*
0030460 006 002 d o 006 001 ( 006 002 i f 006
0030500 001 ( E Q F A M ( C A R F
0030520 1 ) ) \r
0030540
*
0030620 006 002 t h e n 006 001 ( R E T U R N
0030640 T ) \r
0030660
*
0030720 006 002
0030740 e l s e i f 006 001 ( E Q F A M
0030760 ( C A R F 2 ) ) \r
0031000
*
0031060 006 002 t h e n 006 001
0031100 ( R E T U R N N I L ] \r
0031120 ( 006 002 f i n d 006 001
0031140 F O N T 006 002 i n 006 001 A L L F
0031160 O N T S 006 002 s u c h t h a t 006
0031200 001 ( L E Q ( C A D R F O N
0031220 T ) \r
0031240
*
0031300 S I Z E ] ) \r \r ( 006 004 B I C L
0031320 O C K N R F N 006 001 \r [ L A M
0031340 B D A ( F P M P ) 006 006 006 001
0031360
*
0031420 006 006 ( *
0031440 B N " 1 7 - S e p - 8 4 1 0
0031460 : 4 0 " ) 006 001 \r ( C O N
0031500 D \r [ M P ( 006 002
0031520 w i t h 006 001 P O S I T I O N
0031540 M P ( P R O G [ ( D X ( I
0031560 D I F F E R E N C E X C O O R
0031600 D ( 006 002 f e t c h 006 001 ( P O
0031620 S I T I O N X C O O R D ) 006
0031640 002 o f 006 001 F P ) ) ) \r
0031660
*
0031720 ( D Y ( I D I F F E R E N C E
0031740 Y C O O R D ( 006 002 f e t c h
0031760 006 001 ( P O S I T I O N Y C O
0032000 O R D ) 006 002 o f 006 001 F P ] \r
0032020
*
0032060 [ C O N D \r
0032100
0032120 [
0032140 ( I G R E A T E R P ( I A B S
0032160 D X ) \r
0032200
*
0032240 ( I A B S D Y ) ) \r
0032260
*
0032320 ( S E T Q Y C O O R
0032340 D ( I P L U S ( 006 002 f e t c
0032360 h 006 001 ( P O S I T I O N Y C
0032400 O O R D ) 006 002 o f 006 001 F P )
0032420 \r
0032440
*
0032500 ( I T I
0032520 M E S D X ( C O N D \r
0032540
*
0032640 ( ( M I N U S P (
0032660 I T I M E S D X D Y ) ) \r
0032700
*
0033000 - 1 ) \r
0033020
*
0033120 ( T 1 ] \r
0033140
*
0033200 ( T ( S E T Q X C O O R
0033220 D ( I P L U S ( 006 002 f e t c
0033240 h 006 001 ( P O S I T I O N X C
0033260 O O R D ) 006 002 o f 006 001 F P )
0033300 \r
0033320
*
0033360 ( I
0033400 T I M E S D Y ( C O N D \r
0033420
*
0033520 ( ( M I N U
0033540 S P ( I T I M E S D X D Y
0033560 ) ) \r
0033600
*
0033660 -
0033700 1 ) \r
0033720
*
0034000 ( T
0034020 1 ] \r
0034040
0034060 ( R E T U R N M
0034100 P ] \r ( T F P ]
0034120 ) \r \r ( 006 004 B I C L O C K P R O
0034140 C E S S 006 001 \r [ L A M B D A
0034160 ( W P A R M S ) 006 006 006 001
0034200
*
0034240 006 006 ( * B K N
0034260 " 1 6 - A u g - 8 7 1 7 : 3
0034300 9 " ) 006 001 \r ( C E N T E
0034320 R P R I N T I N R E G I O N "
0034340 W a i t " N I L W ) \r
0034360 ( 006 002 w i t h 006 001 \r
0034400 B I C L O C K P A R M S P A R
0034420 M S \r ( P R O G [ (
0034440 W I D T H ( W I N D O W P R O
0034460 P W ' W I D T H ) ) \r
0034500 ( H E I G H T
0034520 ( W I N D O W P R O P W '
0034540 H E I G H T ] \r
0034560 ( 006 002 w h i l e 006 001 T \r
0034600 006 002
0034620 b i n d 006 001 S ( B M _ (
0034640 B I T M A P C R E A T E W I D
0034660 T H H E I G H T ) ) \r
0034700 (
0034720 B G _ ( B I T M A P C R E A
0034740 T E W I D T H H E I G H T )
0034760 ) \r
0035000 ( B M 1 _ ( B I T
0035020 M A P C R E A T E W I D T H
0035040 H E I G H T ) ) \r
0035060 ( S H A
0035100 D O W _ ( B I T M A P C R E
0035120 A T E W I D T H H E I G H T
0035140 ) ) \r
0035160 ( X C _ ( I Q U
0035200 O T I E N T W I D T H 2 ) )
0035220 \r
0035240 ( Y C _ ( I Q U O T
0035260 I E N T H E I G H T 2 ) ) \r
0035300
0035320 ( S X _ ( A R R A Y
0035340 6 0 ' F I X P 0 0 ) ) \r
0035360
0035400 ( S Y _ ( A R R A Y 6
0035420 0 ' F I X P 0 0 ) ) \r
0035440
0035460 M X M Y H X H Y M P
0035500 H P R M A R K U R M A R K
0035520 L R M A R K 1 L R D O T R
0035540 S E C R M I N R H O U R R
0035560 C I R C W M A R K W M A R K
0035600 1 W \r
0035620 S E C W M I N W
0035640 H O U R W D I G W D I G F
0035660 O N T N O W S E C S ( S L
0035700 O W M O D E _ T ) \r
0035720 (
0035740 S M O D E _ T ) \r
0035760 ( M
0036000 E A N _ 5 0 ) \r
0036020 ( L I
0036040 M I T _ 1 0 0 0 ) \r
0036060 C
0036100 L 0 R E F N O S E C I N V
0036120 E R T F L G L A S T C H I M E
0036140 ( C H I M E C O U N T _ 0
0036160 ) \r
0036200 006 002 f i r s t 006 001
0036220
*
0036260 006 006 ( * F i r s t s e
0036300 t u p s o m e r e l a t i
0036320 o n s ) 006 001 \r
0036340 ( B L O C K ) \r
0036360 ( S E T Q
0036400 R ( I D I F F E R E N C E
0036420 ( I M I N X C Y C ) \r
0036440
0036460 4 ) ) \r
0036500 ( S E T
0036520 Q M A R K U R ( F T I M E S
0036540 R 1 . 0 ) ) \r
0036560 ( S E T Q M A R
0036600 K L R ( F T I M E S R 0 .
0036620 9 ) ) \r
0036640 ( S E T Q M A R K 1 L R
0036660 ( F T I M E S R 0 . 9 8 ) )
0036700 \r (
0036720 S E T Q D O T R ( F T I M E
0036740 S R 0 . 0 5 ) ) \r
0036760 ( S E T Q S
0037000 E C R ( F T I M E S R 1 .
0037020 0 ) ) \r
0037040 ( S E T Q M I N R ( F T
0037060 I M E S R 0 . 9 ) ) \r
0037100 ( B L O C
0037120 K ) \r
0037140 ( S E T Q H O U R R ( F T
0037160 I M E S R 0 . 6 ) ) \r
0037200 ( S E T Q
0037220 C I R C W ( F T I M E S R
0037240 0 . 0 3 ) ) \r
0037260 ( S E T Q M A R K
0037300 W ( F T I M E S R 0 . 0 3
0037320 7 5 ) ) \r
0037340 ( S E T Q M A R K 1 W
0037360 ( F T I M E S R 0 . 0 0 9 )
0037400 ) \r
0037420 ( S E T Q S E C W ( I M A X
0037440 1 ( F T I M E S R 0 . 0
0037460 1 ) ) ) \r
0037500 ( S E T Q M I N W ( I
0037520 M A X 2 ( F T I M E S R
0037540 0 . 0 3 7 ) ) ) \r
0037560 ( S E T Q H O U
0037600 R W ( I M A X 3 ( F T I M
0037620 E S R 0 . 0 7 ) ) ) \r
0037640 ( S E T Q
0037660 D I G W ( F T I M E S R
0037700 ( 006 002 i f 006 001 ( N U M B E R P
0037720 M A R K M O D E ) \r
0037740
*
0040000 006 002 t h e n 006 001 0 . 7 5 \r
0040020
*
0040060 006 002 e l s e 006 001 0 .
0040100 9 ) ) ) \r
0040120 ( S E T Q S ( D S P C
0040140 R E A T E B M ) ) \r
0040160 ( D S P X O F
0040200 F S E T X C S ) \r
0040220 ( D S P Y O F
0040240 F S E T Y C S ) \r
0040260 ( D S P O P E
0040300 R A T I O N ' P A I N T S )
0040320
0040340 006 006 ( * G e n
0040360 e r a t e s i g n a t u r e )
0040400 006 001 \r
0040420 ( S E T Q D I G F O N T (
0040440 006 002 B I C L O C K F I N D F O N
0040460 T 006 001 ( T I M E S R 0 . 1
0040500 5 ) ) ) \r
0040520 ( D S P F O N T D I G F
0040540 O N T S ) \r
0040560 ( 006 002 i f 006 001 D I G
0040600 F O N T \r
0040620 006 002 t h e n 006 001
0040640 ( C E N T E R P R I N T I N R E
0040660 G I O N " B N " ( C R E A T
0040700 E R E G I O N ( M I N U S X
0040720 C ) \r
0040740
*
0041000 ( M I N U
0041020 S ( Q U O T I E N T ( T I M
0041040 E S Y C 4 ) \r
0041060
*
0041140 5
0041160 ) ) \r
0041200
*
0041240 W I D T H
0041260 \r
0041300
*
0041340 ( Q U O T I E
0041360 N T ( T I M E S Y C 4 ) \r
0041400
*
0041460 5
0041500 ) ) \r
0041520
0041540 S ) )
0041560
0041600 006 006 ( * G e n e r a t e b a
0041620 c k g r o u n d H o u r M a
0041640 r k s ) 006 001 \r
0041660 ( S E T Q D I G F O
0041700 N T ( 006 002 B I C L O C K F I N
0041720 D F O N T 006 001 ( T I M E S R
0041740 ( 006 002 i f 006 001 ( N U M B E R
0041760 P M A R K M O D E ) \r
0042000
*
0042060 006 002 t h e n 006 001 0
0042100 . 2 \r
0042120
*
0042160 006 002 e l s
0042200 e 006 001 0 . 2 5 ) ) \r
0042220
0042240 R O
0042260 M A N D I G S ) ) \r
0042300 ( D S P F O N T
0042320 D I G F O N T S ) \r
0042340 ( 006 002 f o r
0042360 006 001 H 006 002 f r o m 006 001 1
0042400 006 002 t o 006 001 1 2 006 002 a s 006 001
0042420 V 006 002 f r o m 006 001 6 0 006
0042440 002 b y 006 001 - 3 0 006 002 b i n d
0042460 006 001 S Y M \r
0042500 006 002 d o 006 001 (
0042520 B L O C K ) \r
0042540 ( S E T Q
0042560 H X ( C O S V ) ) \r
0042600
0042620 ( S E T Q H Y ( S I N V
0042640 ) ) \r
0042660 ( 006 002 i f 006 001 (
0042700 A N D ( N U M B E R P M A R
0042720 K M O D E ) \r
0042740
0042760 ( Z E R O P ( I M O D
0043000 ( T I M E S H 5 ) \r
0043020
*
0043060 M A R K M O D E )
0043100 ) ) \r
0043120 006 002 t h e
0043140 n 006 001 ( D R A W L I N E ( F
0043160 T I M E S H X M A R K U R )
0043200 \r
0043220
0043240 ( F T I M E S H Y
0043260 M A R K U R ) \r
0043300
0043320 ( F T I
0043340 M E S H X M A R K L R ) \r
0043360
*
0043420 ( F T I M E S H Y M A
0043440 R K L R ) \r
0043460
0043500 M A R K W \r
0043520
*
0043560 ' R E P L A C E S ) )
0043600 \r
0043620 ( 006 002 i f 006 001 ( A N
0043640 D D I G F O N T ( N U M B E
0043660 R P D I G M O D E ) \r
0043700
0043720 ( Z E R O P
0043740 ( I M O D H D I G M O D E )
0043760 ) ) \r
0044000 006 002 t h e
0044020 n 006 001 ( S E T Q S Y M \r
0044040
0044060 ( 006 002 i
0044100 f 006 001 R O M A N D I G S \r
0044120
*
0044160 006 002 t h e n 006 001 ( C A R ( N
0044200 T H ' ( 377 357 301 377 \0 377 357 302 377 \0
0044220 377 357 303 377 \0 377 357 304 377 \0 377 357 305
0044240 377 \0 377 357 306 377 \0 377 357 307 377 \0 377
0044260 357 310 377 \0 377 357 311 377 \0 377 357 312 377 \0
0044300 377 357 312 301 377 \0 377 357 312 302 377 \0 )
0044320 H ) ) \r
0044340
0044360 006 002 e l s e 006 001 H ) )
0044400 \r
0044420 ( M
0044440 O V E T O ( D I F F E R E N C
0044460 E ( F T I M E S H X D I G
0044500 W ) \r
0044520
0044540 (
0044560 Q U O T I E N T ( S T R I N G
0044600 W I D T H S Y M S ) \r
0044620
*
0044700 2 ) ) \r
0044720
0044740 ( D I F F E R E
0044760 N C E ( F T I M E S H Y D
0045000 I G W ) \r
0045020
*
0045060 ( 006 002 i f 006 001 R O M A N D I G
0045100 S \r
0045120
*
0045160 006 002 t h e n 006 001 ( D I F F E
0045200 R E N C E ( Q U O T I E N T
0045220 ( F O N T P R O P S ' H E I
0045240 G H T ) \r
0045260
*
0045340 2 ) \r
0045360
*
0045440 ( F O N T P
0045460 R O P S ' D E S C E N T ) )
0045500 \r
0045520
0045540 006 002
0045560 e l s e 006 001 ( Q U O T I E N T
0045600 ( F O N T P R O P S ' A S
0045620 C E N T ) \r
0045640
*
0045700 2
0045720 ) ) ) \r
0045740
0045760 S ) \r
0046000
0046020 ( P R I N 1 S
0046040 Y M S ) ) )
0046060 006 006 ( * G e n
0046100 e r a t e b a c k g r o u n d
0046120 S e c o n d M a r k s ) 006 001
0046140 \r (
0046160 006 002 f o r 006 001 I 006 002 f r o m
0046200 006 001 0 006 002 t o 006 001 5 9 006
0046220 002 a s 006 001 V 006 002 f r o m 006 001
0046240 9 0 006 002 b y 006 001 - 6 \r
0046260 006
0046300 002 d o 006 001 ( B L O C K ) \r
0046320
0046340 ( S E T A S X I ( F I
0046360 X ( F T I M E S ( S E T Q
0046400 M X ( C O S V ) ) \r
0046420
*
0046460 S E C R ) ) ) \r
0046500
0046520 ( S E T A S Y I ( F
0046540 I X ( F T I M E S ( S E T Q
0046560 M Y ( S I N V ) ) \r
0046600
*
0046640 S E C R ) ) ) \r
0046660
0046700 ( 006 002 i f 006 001 ( A N D
0046720 ( N U M B E R P M A R K M O
0046740 D E ) \r
0046760
0047000 ( Z E R O P ( I M O D I
0047020 M A R K M O D E ) ) ) \r
0047040
0047060 006 002 t h e n 006 001 ( D R
0047100 A W L I N E ( F T I M E S M
0047120 X S E C R ) \r
0047140
0047160 ( F T I
0047200 M E S M Y S E C R ) \r
0047220
*
0047260 ( F T I M E S M X M A R K
0047300 1 L R ) \r
0047320
0047340 ( F T I M E S
0047360 M Y M A R K 1 L R ) \r
0047400
*
0047440 M A R K 1 W \r
0047460
0047500 ' R E P
0047520 L A C E S ) ) ) \r
0047540 ( B L O C K ) \r
0047560 ( F
0047600 I L L C I R C L E 0 0 D O
0047620 T R B L A C K S H A D E S )
0047640 \r \r
0047660 006 006 ( * L e t
0047700 t h i s b e t h e B a c k
0047720 g r o u n d t o b e u s e
0047740 d i n t h e l o o p ) 006 001
0047760 \r \r
0050000 ( B I T B L T B M N I L N
0050020 I L B G ) \r
0050040 \r 006 006 (
0050060 * D e t e r m i n e a r e
0050100 f e r e n c e p o i n t f o
0050120 r m i l l i s e c o n d c l
0050140 o c k , t h a t i s h a l
0050160 f a s e c o n d \r 006 001
0050200 006 006 a h e a d .
0050220 . . ) 006 001 \r \r
0050240 ( 006 002 w h i l e 006 001
0050260 ( I E Q P ( D A Y T I M E ) \r
0050300
0050320 T 1 ) 006
0050340 002 b i n d 006 001 ( T 1 _ ( D
0050360 A Y T I M E ) ) 006 002 d o 006 001
0050400 ( B L O C K ) 006 002 f i n a l l
0050420 y 006 001 ( S E T Q R E F ( I
0050440 P L U S ( C L O C K \r
0050460
*
0050600 0 ) \r
0050620
*
0050740 5 0 0 ) ) ) \r
0050760 006 002 d o 006 001 \r
0051000 ( B I T
0051020 B L T B G N I L N I L B
0051040 M )
0051060 006 006 ( *
0051100 C o m p u t e N u m b e r o
0051120 f s e c o n d s s i n c e
0051140 \r 006 001
0051160
*
0051240 006 006 m i d n i g t h ) 006 001 \r
0051260 ( S E T
0051300 Q N O W ( D A Y T I M E ) )
0051320 \r (
0051340 S E T Q S E C S ( 006 002 w i t
0051360 h 006 001 U P T I M E R E C ( \
0051400 U N P A C K D A T E ( 006 002 i f
0051420 006 001 A D J U S T A L A R M \r
0051440
*
0051520 006 002 t h e n 006
0051540 001 A L A R M T I M E \r
0051560
*
0051640 006 002 e l s e 006 001 N O W
0051660 ) ) \r
0051700
0051720 ( I P L U S ( I T I M E S
0051740 H O U R 3 6 0 0 ) \r
0051760
*
0052020 ( I T I M E S M I N U T E
0052040 6 0 ) \r
0052060
0052100 S E C O N
0052120 D ) ) ) \r
0052140 ( 006 002 i f 006 001 S L O W M
0052160 O D E \r
0052200 006 002 t h e n 006 001 (
0052220 B L O C K ) )
0052240
0052260 006 006 ( * D r a w H
0052300 o u r A r m ) 006 001 \r
0052320 ( C O N D \r
0052340
0052360 ( ( E Q P H P ( I Q U O T I
0052400 E N T S E C S 1 2 0 ) ) \r
0052420
0052440 ( D R A W L I N E 0 0 H
0052460 X H Y H O U R W ' R E P L
0052500 A C E S ) ) \r
0052520 ( T ( D R A
0052540 W L I N E 0 0 ( S E T Q
0052560 H X ( F I X ( F T I M E S
0052600 ( S I N ( S E T Q H P ( I
0052620 Q U O T I E N T S E C S 1 2
0052640 0 ) ) ) \r
0052660
*
0052720 H O U R
0052740 R ) ) ) \r
0052760
0053000 ( S E T Q H Y ( F I X ( F
0053020 T I M E S ( C O S H P ) \r
0053040
*
0053100 H
0053120 O U R R ) ) ) \r
0053140
0053160 H O U R W \r
0053200
0053220 ' R E P L A C E S ) )
0053240 ) \r
0053260 ( 006 002 i f 006 001 S L O W M O D E
0053300 \r
0053320 006 002 t h e n 006 001 ( B L O
0053340 C K ) )
0053360
0053400 006 006 ( * D r a w M i n u
0053420 t e A r m ) 006 001 \r
0053440 ( C O N D \r
0053460 (
0053500 ( E Q P M P ( I Q U O T I E
0053520 N T S E C S 1 0 ) ) \r
0053540 (
0053560 D R A W L I N E 0 0 M X
0053600 M Y M I N W ' R E P L A C E
0053620 S ) ) \r
0053640 ( T ( D R A W L I
0053660 N E 0 0 ( S E T Q M X
0053700 ( F I X ( F T I M E S ( S I
0053720 N ( S E T Q M P ( I Q U O
0053740 T I E N T S E C S 1 0 ) ) )
0053760 \r
0054000
*
0054040 M I N R ) ) ) \r
0054060
0054100 ( S E T Q
0054120 M Y ( F I X ( F T I M E S
0054140 ( C O S M P ) \r
0054160
*
0054220 M I N R ) )
0054240 ) \r
0054260 M I N
0054300 W \r
0054320 ' R E
0054340 P L A C E S ) ) ) \r
0054360 ( 006 002 i f 006 001
0054400 S L O W M O D E \r
0054420 006 002 t h
0054440 e n 006 001 ( B L O C K ) )
0054460
0054500 006 006 ( *
0054520 D r a w S e c o n d s A r m
0054540 ) 006 001 \r
0054560 ( C O N D \r
0054600 ( ( N O T N
0054620 O S E C ) \r
0054640 ( D R A W L I N
0054660 E 0 0 ( E L T S X ( I
0054700 M O D S E C S 6 0 ) ) \r
0054720
0054740 ( E L T S Y (
0054760 I M O D S E C S 6 0 ) ) \r
0055000
0055020 S E C W \r
0055040
0055060 ' R E P L A C E S
0055100 ) ) )
0055120 006 006 ( * N
0055140 o w , G e n e r a t e T h e
0055160 S h a d o w ) 006 001 \r
0055200 ( 006 002 i f 006 001
0055220 S L O W M O D E \r
0055240 006 002 t h
0055260 e n 006 001 ( B L O C K ) ) \r
0055300 ( B I T
0055320 B L T B M N I L N I L S
0055340 H A D O W ) \r
0055360 [ 006 002 f o r 006 001 D X
0055400 006 002 f r o m 006 001 - 1 006 002 t
0055420 o 006 001 1 \r
0055440 006 002 d o 006 001 ( 006
0055460 002 f o r 006 001 D Y 006 002 f r o m
0055500 006 001 - 1 006 002 t o 006 001 1 006
0055520 002 d o 006 001 ( 006 002 i f 006 001 S L
0055540 O W M O D E \r
0055560
*
0055620 006 002 t h e n 006 001
0055640 ( B L O C K ) ) \r
0055660
*
0055720 ( B I T B L T S H A
0055740 D O W N I L N I L S H A D
0055760 O W D X D Y N I L N I L
0056000 ' I N P U T \r
0056020
*
0056060 ' P A I N
0056100 T ) \r
0056120 006 002 w h e n
0056140 006 001 ( N O T ( Z E R O P (
0056160 I P L U S ( I A B S D X ) \r
0056200
*
0056240 (
0056260 I A B S D Y ] \r
0056300 ( 006 002 i f 006 001 S
0056320 L O W M O D E \r
0056340 006 002 t h e n
0056360 006 001 ( B L O C K ) )
0056400
0056420 006 006 ( * F i
0056440 n d t h e R e a l b a c k
0056460 g r o u n d ) 006 001 \r
0056500 ( T O T O P W
0056520 W ) \r
0056540 ( B I T B L T ( W I N D O W
0056560 P R O P W ' I M A G E C O V
0056600 E R E D ) \r
0056620 N I L N
0056640 I L B M 1 ) \r
0056660 ( B I T B L T S H
0056700 A D O W N I L N I L B M 1
0056720 N I L N I L N I L N I L
0056740 ' I N P U T ( S E L E C T Q
0056760 C O L O R M O D E \r
0057000
*
0057060 (
0057100 W H I T E ' P A I N T ) \r
0057120
*
0057220 ( B L A C K ' E R A S E )
0057240 \r
0057260
*
0057340 N I L ) ) \r
0057360 ( 006 002 i f 006 001
0057400 S L O W M O D E \r
0057420 006 002 t h
0057440 e n 006 001 ( B L O C K ) ) \r
0057460 ( B I T
0057500 B L T B M N I L N I L B
0057520 M 1 N I L N I L N I L N
0057540 I L ' I N P U T ( S E L E C
0057560 T Q C O L O R M O D E \r
0057600
*
0057660 ( W H
0057700 I T E ' E R A S E ) \r
0057720
*
0060000 ( B L A
0060020 C K ' P A I N T ) \r
0060040
*
0060120 N I L ) )
0060140 \r
0060160
*
0060220 006
0060240 006 ( * N o w , a t l a s t
0060260 , O u t p u t i t ) 006 001 \r
0060300 ( B I
0060320 T B L T B M 1 N I L N I L
0060340 W N I L N I L N I L N
0060360 I L ( 006 002 i f 006 001 I N V E R
0060400 T F L G \r
0060420
*
0060460 006 002 t
0060500 h e n 006 001 ' I N V E R T \r
0060520
*
0060600 006 002 e l s e 006 001 ' I N
0060620 P U T ) \r
0060640 ' R E P L A
0060660 C E ) \r
0060700 [ 006 002 i f 006 001 S L O W M O
0060720 D E \r
0060740 006 002 t h e n 006 001 \r
0060760
0061000 ( 006 002 i f 006 001 [ A N D C H I
0061020 M E M O D E ( O R ( N U L L
0061040 L A S T C H I M E ) \r
0061060
*
0061120 ( N O T ( I E Q P
0061140 ( I Q U O T I E N T L A S T C
0061160 H I M E ( I T I M E S C H I
0061200 M E M O D E 6 0 ) ) \r
0061220
*
0061300 ( I Q U O T I E N T S E C S
0061320 ( I T I M E S C H I M E M O D
0061340 E 6 0 ] \r
0061360 006 002 t h
0061400 e n 006 001 ( 006 002 i f 006 001 L A S
0061420 T C H I M E \r
0061440
0061460 006 002 t h e n 006 001 (
0061500 S E T Q C H I M E C O U N T \r
0061520
*
0061560 ( 006 002 i f 006 001 ( I E
0061600 Q P ( I M O D ( I Q U O T I
0061620 E N T S E C S 6 0 ) \r
0061640
*
0061720 6 0 ) \r
0061740
*
0062000 0 ) \r
0062020
*
0062060 006 002 t h e n 006 001 ( I P L U S
0062100 ( I M O D ( I D I F F E R E
0062120 N C E ( I Q U O T I E N T S
0062140 E C S \r
0062160
*
0062260 ( I T I M E S 6 0 6 0
0062300 ) ) \r
0062320
*
0062400 1 ) \r
0062420
*
0062500 1 2 ) \r
0062520
*
0062560 1 ) \r
0062600
*
0062640 006 002 e l s e 006 001 1
0062660 ) ) ) \r
0062700 (
0062720 S E T Q L A S T C H I M E S
0062740 E C S ) ) \r
0062760 ( 006 002 i f 006 001
0063000 ( I G R E A T E R P C H I M E
0063020 C O U N T 0 ) \r
0063040 006
0063060 002 t h e n 006 001 ( 006 002 a d d 006 001
0063100 C H I M E C O U N T - 1 ) \r
0063120
0063140 ( B E E P
0063160 O N 4 4 0 ) \r
0063200
0063220 ( B L O C K 2 5 ) \r
0063240
0063260 ( B E E P O N
0063300 2 2 0 ) \r
0063320
0063340 ( B L O C K 2 5 ) \r
0063360
0063400 ( B E E P O F F )
0063420 ) \r
0063440 ( 006 002 f o r 006 001 N 006
0063460 002 f r o m 006 001 1 006 002 t o 006 001
0063500 ( C O N D \r
0063520
0063540 ( S M
0063560 O D E 1 0 ) \r
0063600
0063620 ( T
0063640 1 ) ) 006 002 b i n d 006 001 ( D
0063660 E L _ ( C O N D \r
0063700
*
0063760 ( ( O R S M O D
0064000 E ( A N D A L A R M T I M E
0064020 \r
0064040
*
0064120 ( I L
0064140 E Q A L A R M T I M E N O W
0064160 ) ) \r
0064200
*
0064260 ( I G R E A T E R P C
0064300 H I M E C O U N T 0 ) ) \r
0064320
*
0064400 1 0 0 0 )
0064420 \r
0064440
*
0064500 ( T
0064520 6 0 0 0 0 ) ) ) \r
0064540 006 002
0064560 u n t i l 006 001 ( O R A D J U
0064600 S T A L A R M ( A N D A L A
0064620 R M T I M E ( I L E Q A L A
0064640 R M T I M E N O W ) ) ) \r
0064660
0064700 006 002 r e p e a t w h i l e
0064720 006 001 ( A N D N O S E C ( I
0064740 G R E A T E R P M E A N L I
0064760 M I T ) ) \r
0065000 006 002 d o 006
0065020 001 ( B L O C K ( I D I F F E
0065040 R E N C E D E L ( I M O D
0065060 ( I D I F F E R E N C E ( C L
0065100 O C K 0 ) \r
0065120
*
0065200 R E F ) \r
0065220
*
0065260 D
0065300 E L ) ) ) \r
0065320 ( S
0065340 E T Q C L 0 ( C L O C K 0
0065360 ) ) \r
0065400 ( B L O C
0065420 K ) \r
0065440 ( S E T Q
0065460 M E A N ( I Q U O T I E N T
0065500 ( I P L U S ( I T I M E S
0065520 M E A N 8 ) \r
0065540
*
0065600 ( I T
0065620 I M E S ( I M I N ( I D I F
0065640 F E R E N C E ( C L O C K 0
0065660 ) \r
0065700
*
0065760 C L 0 )
0066000 \r
0066020
*
0066100 5 0 0 ) \r
0066120
*
0066200 2 ) ) \r
0066220
*
0066260 1 0 ] \r
0066300 ( S E T Q S L O W M
0066320 O D E ( N O T A D J U S T A
0066340 L A R M ) ) \r
0066360 ( S E T Q S M O D E
0066400 S E C O N D S M O D E ) \r
0066420 ( S E T
0066440 Q N O S E C ( A N D ( O R
0066460 ( N O T S M O D E ) \r
0066500
*
0066540 ( I G R E A T E R P M E A N
0066560 L I M I T ) ) \r
0066600
0066620 ( N O T A D J U
0066640 S T A L A R M ) ) ) \r
0066660 ( S E T Q I
0066700 N V E R T F L G ( 006 002 i f 006 001
0066720 ( A N D A L A R M T I M E
0066740 ( I L E Q A L A R M T I M E
0066760 N O W ) ) \r
0067000
0067020 006 002 t h e n 006 001
0067040 ( B E E P O N ( 006 002 i f 006 001
0067060 I N V E R T F L G \r
0067100
*
0067140 006 002
0067160 t h e n 006 001 4 4 0 \r
0067200
*
0067240 006 002 e l
0067260 s e 006 001 8 8 0 ) ) \r
0067300
*
0067340 ( B L O C K 5 0 ) \r
0067360
*
0067420 ( B E E P O F F ) \r
0067440
*
0067500 ( N O T I N V E R T
0067520 F L G ) \r
0067540
0067560 006 002 e l s e i f 006 001
0067600 A D J U S T A L A R M \r
0067620
0067640 006 002
0067660 t h e n 006 001 ( A W A I T . E V
0067700 E N T A D J U S T E V E N T )
0067720 \r
0067740
0067760 N I L ) ) \r
0070000 ( S E T
0070020 Q L I M I T ( I M I N ( I
0070040 P L U S ( I M I N L I M I T
0070060 ( I Q U O T I E N T ( I T I
0070100 M E S M E A N 1 0 ) \r
0070120
*
0070200 9 ) ) \r
0070220
*
0070260 1 ) \r
0070300
0070320 5 0 ] ) \r \r ( 006 004 B I
0070340 C L O C K R P F N 006 001 \r [ L
0070360 A M B D A ( W ) \r ( W
0070400 A K E . P R O C E S S ( W I N
0070420 D O W P R O P W ' P R O C E
0070440 S S ] ) \r \r ( 006 004 B I C L O C K
0070460 R S F N 006 001 \r [ L A M B D A
0070500 ( W ) \r ( R E S T A R
0070520 T . P R O C E S S ( W I N D O
0070540 W P R O P W ' P R O C E S S
0070560 ] ) \r \r ( 006 004 B I C L O C K S E
0070600 T A L A R M 006 001 \r [ L A M B
0070620 D A ( W ) 006 006 006 001
0070640
*
0070700 006 006 ( * B
0070720 K N " 1 1 - D e c - 8 5 1 4
0070740 : 5 7 " ) 006 001 \r ( L E T
0070760 \r [ ( M \r
0071000 ( O R \r ( W I
0071020 N D O W P R O P W ' A D J U
0071040 S T M E N U W ) \r
0071060 ( M E N U W I N D O W \r
0071100 ( 006 002 c r e a t e 006
0071120 001 M E N U \r
0071140 I T E M S _ \r
0071160 `
0071200 ( ( " < H r > " ) \r
0071220 ( " < M
0071240 i n > " ) \r
0071260 ( " < S e c > "
0071300 ) \r
0071320 % , @ \r
0071340 [ 006 002 f o r
0071360 006 001 I 1 006 002 i n 006 001 ' ( 2
0071400 4 1 2 3 1 - 1 - 3 -
0071420 1 2 - 2 4 ) 006 002 a s 006 001 I
0071440 2 \r
0071460 006 002 i n 006 001 ' (
0071500 3 0 1 5 5 1 - 1 - 5
0071520 - 1 5 - 3 0 ) \r
0071540 006 002
0071560 j o i n 006 001 ( 006 002 f o r 006 001
0071600 Q Q Q 006 002 i n 006 001 ' ( T N
0071620 I L N I L ) 006 002 a s 006 001 S
0071640 C A L E \r
0071660
0071700 006 002 i n 006 001 ( C O N S T A
0071720 N T ( L I S T ( T I M E S
0071740 6 0 6 0 ) \r
0071760
*
0072020 6 0 1 ) ) 006 002
0072040 a s 006 001 H E L P 006 002 i n 006 001
0072060 ' ( \r
0072100
*
0072140 " W i l l
0072160 I n c r e m e n t / D e c r e m
0072200 e n t H o u r s b y t h a
0072220 t A m o u n t " \r
0072240
*
0072320 \r
0072340
*
0072420 " W i l l I n c r e m e
0072440 n t / D e c r e m e n t M i n
0072460 u t e s b y t h a t A m o
0072500 u n t " \r
0072520
*
0072560 " W i l l
0072600 I n c r e m e n t / D e c r e m
0072620 e n t S e c o n d s b y t
0072640 h a t A m o u n t " \r
0072660
*
0072760 ) \r
0073000 006
0073020 002 c o l l e c t 006 001 ( L E T
0073040 ( ( I ( 006 002 i f 006 001 Q Q Q \r
0073060
*
0073140 006 002 t h e n 006 001 I 1 \r
0073160
*
0073220 006 002
0073240 e l s e 006 001 I 2 ) ) ) \r
0073260
*
0073320 ( L I S T I (
0073340 L I S T ( F U N C T I O N B
0073360 I C L O C K S E T A L A R M 1 )
0073400 \r
0073420
*
0073460 ( K W O T E
0073500 W ) \r
0073520
*
0073560 ( K W O T
0073600 E ( T I M E S I S C A L E
0073620 ) ) ) \r
0073640
*
0073700 H E L P ] \r
0073720 ( " O K
0073740 ! " ( 006 002 B I C L O C K S E T
0073760 A L A R M 2 006 001 % , ( K W O
0074000 T E W ) ) \r
0074020
0074040 " W i l l E x i t A d j u s
0074060 t M o d e " ) \r
0074100 ( " _ 0 "
0074120 ( 006 002 B I C L O C K S E T A L
0074140 A R M 1 006 001 % , ( K W O T E
0074160 W ) \r
0074200
0074220 % , \r
0074240
0074260 ( C O N S T A N T (
0074300 T I M E S 6 0 6 0 ) ) \r
0074320
0074340 T ) \r
0074360
0074400 " W i l l R e
0074420 s e t A l a r m T i m e t
0074440 o H r : 0 0 : 0 0 " ) \r
0074460 (
0074500 " _ 0 " ( 006 002 B I C L O C K S
0074520 E T A L A R M 1 006 001 % , ( K
0074540 W O T E W ) \r
0074560
0074600 6 0 T ) \r
0074620
0074640 " W i l l R e s e t
0074660 A l a r m T i m e t o H
0074700 r : M i n : 0 0 " ) ) \r
0074720 T I T L
0074740 E _ " A d j u s t A l a r
0074760 m " \r
0075000 C E N T E R F L G _ T
0075020 \r
0075040 M E N U C O L U M N S _ 3
0075060 ] \r ( W I N D O W P R
0075100 O P W ' A D J U S T M E N U
0075120 W M ) \r ( A T T A C
0075140 H W I N D O W M W ' B O T
0075160 T O M ' J U S T I F Y ) \r
0075200 ( 006 002 w i t h 006 001 B I C
0075220 L O C K P A R M S ( W I N D O
0075240 W P R O P W ' P A R M S ) \r
0075260 ( S E T Q
0075300 A L A R M T I M E ( O R A
0075320 L A R M T I M E ( P L U S (
0075340 D A Y T I M E ) \r
0075360
*
0075420 6 0 ) ) ) \r
0075440 ( S E T Q A
0075460 D J U S T A L A R M T ) \r
0075500 ( N O T I F Y
0075520 . E V E N T A D J U S T E V E
0075540 N T ) \r (
0075560 P R O M P T P R I N T ( G D A
0075600 T E A L A R M T I M E ] ) \r \r
0075620 ( 006 004 B I C L O C K S E T A L A
0075640 R M 1 006 001 \r [ L A M B D A
0075660 ( W D S E C M O D U L O F L
0075700 G ) 006 006 006 001
0075720
0075740 006 006 ( * B K N
0075760 " 1 1 - D e c - 8 5 1 4 : 5 6
0076000 " ) 006 001 \r ( 006 002 w i t h
0076020 006 001 B I C L O C K P A R M S
0076040 ( W I N D O W P R O P W ' P
0076060 A R M S ) \r
0076100 [ L E T [ ( O L D T I M E (
0076120 O R A L A R M T I M E ( P L
0076140 U S ( D A Y T I M E ) \r
0076160
*
0076220 6 0 ] \r
0076240 ( S E
0076260 T Q A L A R M T I M E ( 006 002
0076300 i f 006 001 M O D U L O F L G \r
0076320
*
0076360 006 002 t h e n 006 001 ( D I F F
0076400 E R E N C E O L D T I M E (
0076420 I M O D ( 006 002 w i t h 006 001 U
0076440 P T I M E R E C ( \ U N P A C
0076460 K D A T E \r
0076500
*
0076620 A L A R M T I M E ) \r
0076640
*
0076740 ( I P L U S ( I T I M E
0076760 S H O U R 3 6 0 0 ) \r
0077000
*
0077100 ( I T I
0077120 M E S M I N U T E 6 0 ) \r
0077140
*
0077240 S E
0077260 C O N D ) ) \r
0077300
*
0077360 D S E C ) ) \r
0077400
*
0077440 006 002 e l s e 006 001 ( I P L U S
0077460 O L D T I M E D S E C ] \r
0077500 ( N O T I F Y
0077520 . E V E N T A D J U S T E V E
0077540 N T ) \r ( P
0077560 R O M P T P R I N T ( G D A T
0077600 E A L A R M T I M E ] ) \r \r (
0077620 006 004 B I C L O C K S E T A L A R
0077640 M 2 006 001 \r [ L A M B D A (
0077660 W ) 006 006 006 001
0077700
*
0077740 006 006 ( * B K N "
0077760 1 2 - N o v - 8 5 1 9 : 3 4 "
0100000 ) 006 001 \r ( 006 002 w i t h 006
0100020 001 B I C L O C K P A R M S (
0100040 W I N D O W P R O P W ' P A
0100060 R M S ) \r (
0100100 S E T Q A D J U S T A L A R M
0100120 N I L ) \r
0100140 ( N O T I F Y . E V E N T A D
0100160 J U S T E V E N T ) \r
0100200 ( D E T A C H W I N D
0100220 O W ( W I N D O W P R O P W
0100240 ' A D J U S T M E N U W ) ) \r
0100260 ( C L O S E
0100300 W ( W I N D O W P R O P W
0100320 ' A D J U S T M E N U W ] ) \r \r
0100340 ( 006 004 I D L E . B I C L O C K 006
0100360 001 \r [ L A M B D A ( W ) 006
0100400 006 006 001
0100420
*
0100460 006 006 ( * B K N " 1 7 -
0100500 J u n - 8 6 1 4 : 2 2 " ) 006 001
0100520 \r ( R E S E T L S T (
0100540 L E T ( ( B W ( 006 002 B I C L
0100560 O C K 006 001 B I C L O C K I D L
0100600 E P R O P S ) ) ) \r
0100620 ( R E
0100640 S E T S A V E N I L ( L I S
0100660 T ( F U N C T I O N C L O S
0100700 E W ) \r
0100720
0100740 B W ) )
0100760 \r
0101000 ( 006 002 w h i l e 006 001 T
0101020 006 002 d o 006 001 ( B L O C K 5
0101040 0 0 0 ) \r
0101060
0101100 ( 006 002 i f 006 001 ( N E Q
0101120 ( \ G E T B A S E P T R B W
0101140 2 ) \r
0101160
0101200 W ) \r
0101220
*
0101260 006 002 t h e n 006 001 ( T O T O
0101300 P W W ) ) \r
0101320
0101340 ( M O V E W B W
0101360 [ R A N D 0 ( D I F F E R E
0101400 N C E S C R E E N W I D T H
0101420 ( W I N D O W P R O P B W '
0101440 W I D T H ] \r
0101460
0101500 ( R A
0101520 N D 0 ( D I F F E R E N C E
0101540 S C R E E N H E I G H T ( W
0101560 I N D O W P R O P B W ' H E
0101600 I G H T ] ) \r ) \r ( D E C L A R
0101620 E % : E V A L @ C O M P I L E
0101640 \r \r ( D A T A T Y P E 006 002 B I
0101660 C L O C K P A R M S 006 001 ( S E
0101700 C O N D S M O D E C O L O R M
0101720 O D E M A R K M O D E D I G
0101740 M O D E C H I M E M O D E R
0101760 O M A N D I G S A L A R M T I
0102000 M E \r
0102020
0102040 A D J U S T A L A R M A D
0102060 J U S T E V E N T ) ) \r \r ( R E
0102100 C O R D 006 002 U P T I M E R E C
0102120 006 001 ( Y E A R M O N T H D
0102140 A Y H O U R M I N U T E S
0102160 E C O N D Q Q Q ) ) \r ) \r ( /
0102200 D E C L A R E D A T A T Y P E
0102220 ' B I C L O C K P A R M S ' (
0102240 P O I N T E R P O I N T E R
*
0102340 \r
0102360
0102400 P O I N T E R
0102420 ) ' ( ( B I C L O C K P A R M
0102440 S 0 P O I N T E R ) \r
0102460
*
0102540 ( B I C L O C K P A R M S 2
0102560 P O I N T E R ) \r
0102600
*
0102640 ( B I C
0102660 L O C K P A R M S 4 P O I N
0102700 T E R ) \r
0102720
*
0102760 ( B I C L O C K
0103000 P A R M S 6 P O I N T E R )
0103020 \r
0103040
*
0103100 ( B I C L O C K P A R M
0103120 S 8 P O I N T E R ) \r
0103140
*
0103220 ( B I C L O C K P A R M S 1 0
0103240 P O I N T E R ) \r
0103260
*
0103320 ( B I
0103340 C L O C K P A R M S 1 2 P O
0103360 I N T E R ) \r
0103400
*
0103440 ( B I C L O
0103460 C K P A R M S 1 4 P O I N T
0103500 E R ) \r
0103520
*
0103560 ( B I C L O C K P
0103600 A R M S 1 6 P O I N T E R )
0103620 ) ' 1 8 ) \r ( D E C L A R E %
0103640 : D O E V A L @ C O M P I L E
0103660 D O N T C O P Y \r \r ( G L O B
0103700 A L V A R S B I C L O C K D E
0103720 F A U L T P R O P S B I C L O
0103740 C K U S E R P R O P S B I C L
0103760 O C K I N I T I A L P R O P S
0104000 B I C L O C K I D L E P R O P S
0104020 ) \r ) \r \r ( R P A Q Q 006 002 B I
0104040 C L O C K D E F A U L T P R O P
0104060 S 006 001 \r ( S E C
0104100 O N D S T C O L O R W H I
0104120 T E M A R K S N I L D I G
0104140 I T S H O U R C H I M E N
0104160 I L A L A R M N I L S I Z
0104200 E 1 1 9 H O R I Z O N T A L
0104220 R I G H T \r
0104240 V E R T I C A L T
0104260 O P C R E A T E T ) ) \r \r (
0104300 R P A Q ? 006 002 B I C L O C K U
0104320 S E R P R O P S 006 001 ) \r \r ( R
0104340 P A Q ? 006 002 B I C L O C K I N
0104360 I T I A L P R O P S 006 001 ) \r \r
0104400 ( R P A Q ? 006 002 B I C L O C K
0104420 I D L E P R O P S 006 001 ' ( H O
0104440 R I Z O N T A L C E N T E R
0104460 V E R T I C A L C E N T E R )
0104500 ) \r \r ( R P A Q 006 002 B I C L O
0104520 C K W I N D O W 006 001 ( B I C L
0104540 O C K B I C L O C K I N I T I
0104560 A L P R O P S ) ) \r \r ( A D D T
0104600 O V A R 006 002 I D L E . F U N C
0104620 T I O N S 006 001 ( B i c l o c k
0104640 ' I D L E . B I C L O C K ) )
0104660 \r \r ( A D D T O V A R 006 002 I D
0104700 L E . S U S P E N D . P R O C E
0104720 S S . N A M E S 006 001 B I C L O
0104740 C K P R O C E S S ) \r ( D E C L
0104760 A R E % : D O N T E V A L @ L
0105000 O A D D O E V A L @ C O M P I
0105020 L E D O N T C O P Y C O M P
0105040 I L E R V A R S \r \r ( A D D T
0105060 O V A R 006 002 N L A M A 006 001 )
0105100 \r \r ( A D D T O V A R 006 002 N L
0105120 A M L 006 001 ) \r \r ( A D D T O V
0105140 A R 006 002 L A M A 006 001 B I C L
0105160 O C K ) \r ) \r ( P U T P R O P S
0105200 B I C L O C K C O P Y R I G
0105220 H T ( " B e r n t N i l s s
0105240 o n @ U n i v e r s i t y
0105260 o f L i n k o e p i n g " 1
0105300 9 8 4 1 9 8 5 1 9 8 6 1 9
0105320 8 7 ) ) \r ( D E C L A R E % :
0105340 D O N T C O P Y \r ( F I L E
0105360 M A P ( N I L ( 1 4 9 4 3
0105400 3 6 7 2 ( B I C L O C K 1 5
0105420 0 4 . 6 3 4 8 ) ( B I C L
0105440 O C K B E F N 6 3 5 0 . 1
0105460 1 3 0 3 ) ( B I C L O C K C F
0105500 N 1 1 3 0 5 . 1 1 3 7 6 )
0105520 \r ( B I C L O C K F I N D F O
0105540 N T 1 1 3 7 8 . 1 2 9 9 9
0105560 ) ( B I C L O C K N R F N 1
0105600 3 0 0 1 . 1 4 4 1 7 ) ( B
0105620 I C L O C K P R O C E S S 1 4
0105640 4 1 9 . 2 8 8 8 9 ) ( \r B
0105660 I C L O C K R P F N 2 8 8 9 1
0105700 . 2 8 9 6 4 ) ( B I C L O
0105720 C K R S F N 2 8 9 6 6 . 2
0105740 9 0 4 2 ) ( B I C L O C K S E
0105760 T A L A R M 2 9 0 4 4 . 3
0106000 1 6 3 0 ) ( \r B I C L O C K S
0106020 E T A L A R M 1 3 1 6 3 2 .
0106040 3 2 6 5 3 ) ( B I C L O C K
0106060 S E T A L A R M 2 3 2 6 5 5
0106100 . 3 2 9 9 0 ) ( I D L E . B
0106120 I C L O C K 3 2 9 9 2 . 3
0106140 3 6 7 0 ) ) ) ) ) \r S T O P \r
0106157