$ od -c -N 50000 [phylum]<LISPUSERS>Lyric>crock!1
0000000 ( D E F I N E - F I L E - I N F
0000020 O 247 R E A D T A B L E " I N
0000040 T E R L I S P " 247 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 "
0000120 2 - A p r - 8 7 0 0 : 3 7 : 4
0000140 6 " 006 004 { E R I S } < L I S P
0000160 U S E R S > L Y R I C > C R O C
0000200 K . ; 2 006 001 1 7 7 9 1 \r \r
0000220 p r e v i o u s d
0000240 a t e % : " 1 1 - J a n - 8 6
0000260 1 9 : 4 6 : 2 7 " { P H Y L
0000300 U M } < L I S P U S E R S > L Y
0000320 R I C > C R O C K . ; 1 ) \r \r \r
0000340 ( * " \r C o p y r i g h t (
0000360 c ) 1 9 8 4 , 1 9 8 5 , 1
0000400 9 8 6 , 1 9 8 7 b y X e r
0000420 o x C o r p o r a t i o n .
0000440 A l l r i g h t s r e s e
0000460 r v e d . \r " ) \r \r ( P R E T T
0000500 Y C O M P R I N T C R O C K C
0000520 O M S ) \r \r ( R P A Q Q 006 002 C
0000540 R O C K C O M S 006 001 ( ( * C
0000560 R O C K - - B y K e l l y
0000600 R o a c h * ) \r
0000620 ( F N S
0000640 C R O C K C R O C K . B U T
0000660 T O N E V E N T F N C R O C K
0000700 . C H A N G E . S T Y L E C R
0000720 O C K . C L O S E F N C R O C
0000740 K . P R O C E S S \r
0000760
0001000 C R O C K . R E S H A P E F
0001020 N C R O C K . A L A R M C R
0001040 O C K . R I N G . A L A R M C
0001060 R O C K . I N I T ) \r
0001100 ( I N
0001120 I T V A R S ( C R O C K . D E
0001140 F A U L T . S T Y L E ' ( H A
0001160 N D S T T I M E S N I L
0001200 R I N G S N I L N U M B E R
0001220 S T ) ) \r
0001240 (
0001260 C R O C K . S T Y L E . M E N U
0001300 ) \r
0001320 ( C R O C
0001340 K . A L A R M S ) \r
0001360
0001400 ( C R O C K . D A T E F O
0001420 R M A T ' ( D A T E F O R M A
0001440 T N O . S E C O N D S ) ) \r
0001460
0001500 [ C R O C K . T
0001520 U N E ' ( ( 1 0 0 0 . 1 0
0001540 0 0 ) \r
0001560
0001600 ( 8 0 0
0001620 . 1 0 0 0 ) \r
0001640
0001660 (
0001700 6 0 0 . 1 0 0 0 ) \r
0001720
*
0001760 ( 5 0 0 . 1 0 0 0 ) \r
0002000
*
0002040 ( 4 0 0 . 1 0
0002060 0 0 ) \r
0002100
0002120 ( N I L
0002140 . 5 0 0 ) \r
0002160
0002200 ( 4
0002220 4 0 . 1 0 0 0 ) \r
0002240
*
0002300 ( 4 8 4 . 1 0 0 0 ) \r
0002320
*
0002360 ( 5 4 0 . 1 0 0
0002400 0 ) \r
0002420
0002440 ( 6 0 0 .
0002460 1 0 0 0 ) \r
0002500
0002520 ( 2
0002540 0 0 0 . 1 0 0 0 ) \r
0002560
*
0002620 ( 1 6 0 0 . 1 0 0 0 )
0002640 \r
0002660
0002700 ( 1 2 0 0 .
0002720 1 0 0 0 ) \r
0002740
0002760 ( 1 0
0003000 0 0 . 1 0 0 0 ) \r
0003020
*
0003060 ( 8 0 0 . 1 0 0 0 ) \r
0003100
*
0003140 ( N I L . 5 0 0
0003160 ) \r
0003200
0003220 ( 8 8 0 .
0003240 1 0 0 0 ) \r
0003260
0003300 ( 9 6
0003320 8 . 1 0 0 0 ) \r
0003340
*
0003400 ( 1 0 8 0 . 1 0 0 0 ) \r
0003420
*
0003460 ( 1 1 8 8 . 1 0
0003500 0 0 ] \r
0003520 ( C R
0003540 O C K W I N D O W ) ) ) ) \r \r \r
0003560 \r 006 004 ( * C R O C K - - B
0003600 y K e l l y R o a c h * )
0003620 006 001 \r \r ( D E F I N E Q \r \r ( 006
0003640 004 C R O C K 006 001 \r [ L A M B
0003660 D A ( R E G I O N ) \r
0003700 ( 006 002 D E C L A R E 006 001 ( G L
0003720 O B A L V A R S C R O C K W I
0003740 N D O W ) ) 006 006 006 001
0003760
0004000 006 006 ( * l m m " 2 2 - F e
0004020 b - 8 4 1 7 : 0 7 " ) 006 001 \r
0004040 ( P R O G N I L \r
0004060 ( C O N D \r
0004100 ( ( N O T
0004120 ( W I N D O W P C R O C K W I
0004140 N D O W ) ) \r
0004160 [ C O N D \r
0004200 ( ( N U
0004220 L L R E G I O N ) \r
0004240 ( P R
0004260 O M P T P R I N T " P l e a s
0004300 e i n d i c a t e a r e g
0004320 i o n f o r t h e c l o c
0004340 k " ) \r
0004360 ( S E T Q R E G I
0004400 O N ( G E T R E G I O N ] \r
0004420 ( S E
0004440 T Q C R O C K W I N D O W (
0004460 C R E A T E W R E G I O N ) )
0004500 ) \r (
0004520 R E G I O N ( S H A P E W C
0004540 R O C K W I N D O W R E G I O
0004560 N ) ) ) \r (
0004600 D E L . P R O C E S S ' C R O
0004620 C K . P R O C E S S ) \r
0004640 ( A D D . P R O C E
0004660 S S ' ( 006 002 C R O C K . P R O
0004700 C E S S 006 001 ) ' R E S T A R T
0004720 A B L E T ] ) \r \r ( 006 004 C R O
0004740 C K . B U T T O N E V E N T F N
0004760 006 001 \r [ L A M B D A ( W I
0005000 N D O W ) 006 006 006 001
0005020
*
0005060 006 006 ( * e d i t e d %
0005100 : " 2 4 - A U G - 8 2 1 7 :
0005120 1 5 " ) 006 001 \r ( C O N D
0005140 \r ( ( L A S T M O
0005160 U S E S T A T E M I D D L E )
0005200 \r ( 006 002 C R O C
0005220 K . C H A N G E . S T Y L E 006 001
0005240 W I N D O W ) ) \r
0005260 ( ( L A S T M O U S E S T A T
0005300 E ( N O T U P ) ) \r
0005320 ( W A K E . P R O C E S
0005340 S ' C R O C K . P R O C E S S
0005360 ' R E P A I N T ] ) \r \r ( 006 004
0005400 C R O C K . C H A N G E . S T Y
0005420 L E 006 001 \r [ L A M B D A (
0005440 W I N D O W ) 006 006 006 001
0005460
*
0005520 006 006 ( * b v m % :
0005540 " 2 2 - A P R - 8 3 1 7 : 1
0005560 3 " ) 006 001 \r ( P R O G
0005600 ( M E N U C O M M A N D S T
0005620 Y L E N O . C H A N G E ) \r
0005640 [ S E T Q M
0005660 E N U ( O R C R O C K . S T
0005700 Y L E . M E N U \r
0005720
0005740 ( S E T Q C R O C K . S T
0005760 Y L E . M E N U \r
0006000
0006020 ( 006 002 c r e a t e 006 001 M
0006040 E N U \r
0006060
0006100 I T E M S _ ' ( N
0006120 U M B E R S P O I N T S N O
0006140 . N U M B E R S R I N G S N
0006160 O . R I N G S H A N D S N O
0006200 . H A N D S \r
0006220
*
0006260 T I M E S N
0006300 O . T I M E S ( " " N I L
0006320 ) \r
0006340
*
0006400 S H O W . S T Y L E S E
0006420 T . T O . D E F A U L T C H A
0006440 N G E . D E F A U L T \r
0006460
*
0006520 ( "
0006540 " N I L ) \r
0006560
*
0006620 S E T T I M E ]
0006640 \r ( S E T Q
0006660 C O M M A N D ( M E N U M
0006700 E N U ) ) \r
0006720 ( S E T Q S T Y L E ( W I N
0006740 D O W P R O P W I N D O W '
0006760 S T Y L E ) ) \r
0007000 ( S E L E C T Q C O M M A
0007020 N D \r
0007040 ( N I L ( S E T Q N O . C
0007060 H A N G E T ) ) \r
0007100 ( S E T T I M E
0007120 ( R E S E T F O R M ( T T Y
0007140 . P R O C E S S ( T H I S . P
0007160 R O C E S S ) ) \r
0007200
0007220 ( S E T T I M E )
0007240 ) ) \r
0007260 ( S E T . T O . D E F A U L T
0007300 \r
0007320 ( S E T Q S T Y L E
0007340 ( C O P Y C R O C K . D E F
0007360 A U L T . S T Y L E ) ) ) \r
0007400 ( H A N
0007420 D S ( L I S T P U T S T Y L
0007440 E ' H A N D S T ) ) \r
0007460 ( N O . H
0007500 A N D S ( L I S T P U T S T
0007520 Y L E ' H A N D S N I L ) )
0007540 \r (
0007560 T I M E S ( L I S T P U T S
0007600 T Y L E ' T I M E S T ) ) \r
0007620 ( N
0007640 O . T I M E S ( L I S T P U T
0007660 S T Y L E ' T I M E S N I
0007700 L ) ) \r
0007720 ( R I N G S ( L I S T P U
0007740 T S T Y L E ' R I N G S T
0007760 ) ) \r
0010000 ( N O . R I N G S ( L I S T
0010020 P U T S T Y L E ' R I N G S
0010040 N I L ) ) \r
0010060 ( N U M B E R S ( L
0010100 I S T P U T S T Y L E ' N U
0010120 M B E R S T ) ) \r
0010140 ( P O I N T S
0010160 ( L I S T P U T S T Y L E '
0010200 N U M B E R S ' P O I N T S )
0010220 ) \r
0010240 ( N O . N U M B E R S ( L I S
0010260 T P U T S T Y L E ' N U M B
0010300 E R S N I L ) ) \r
0010320 ( C H A N G E .
0010340 D E F A U L T \r
0010360 ( S E T
0010400 Q C R O C K . D E F A U L T .
0010420 S T Y L E ( C O P Y S T Y L
0010440 E ) ) \r
0010460 ( S E T Q N O .
0010500 C H A N G E T ) ) \r
0010520 ( S H O W . S
0010540 T Y L E ( p r i n t o u t P
0010560 R O M P T W I N D O W T " C
0010600 R O C K s t y l e : " T
0010620 3 " N u m b e r s : " \r
0010640
0010660 (
0010700 C O N D \r
0010720
0010740 ( ( L I S T G
0010760 E T S T Y L E ' N U M B E R
0011000 S ) \r
0011020
0011040 " y e s " ) \r
0011060
*
0011120 ( T " n o " ) ) \r
0011140
0011160 " ;
0011200 R i n g s : " \r
0011220
0011240 ( C O N D
0011260 \r
0011300
0011320 ( ( L I S T G E T S
0011340 T Y L E ' R I N G S ) \r
0011360
*
0011420 " y e s " ) \r
0011440
0011460 ( T
0011500 " n o " ) ) \r
0011520
0011540 " ; H a n d s
0011560 : " \r
0011600
0011620 ( C O N D \r
0011640
0011660 (
0011700 ( L I S T G E T S T Y L E '
0011720 H A N D S ) \r
0011740
0011760 " y e s
0012000 " ) \r
0012020
0012040 ( T " n o " ) )
0012060 \r
0012100
0012120 " ; T i m e s : " \r
0012140
0012160 (
0012200 C O N D \r
0012220
0012240 ( ( L I S T G
0012260 E T S T Y L E ' T I M E S )
0012300 \r
0012320
0012340 " y e s " ) \r
0012360
*
0012420 ( T " n o " ) ) ) \r
0012440
0012460 ( S E T Q N O . C
0012500 H A N G E T ) ) \r
0012520 ( S H O U L D N
0012540 T ) ) \r ( C
0012560 O N D \r
0012600 ( N O . C H A N G E ) \r
0012620 ( T ( W I
0012640 N D O W P R O P W I N D O W
0012660 ' S T Y L E S T Y L E ) \r
0012700 ( W
0012720 A K E . P R O C E S S ' C R O
0012740 C K . P R O C E S S ' C H A N
0012760 G E . S T Y L E ] ) \r \r ( 006 004 C
0013000 R O C K . C L O S E F N 006 001 \r
0013020 [ L A M B D A ( W I N D O W
0013040 ) 006 006 006 001
0013060
*
0013120 006 006 ( * e d i t e d % : " 2
0013140 4 - A U G - 8 2 1 7 : 1 7 " )
0013160 006 001 \r ( W A K E . P R O
0013200 C E S S ' C R O C K . P R O C
0013220 E S S ' C L O S I N G ] ) \r \r
0013240 ( 006 004 C R O C K . P R O C E S S
0013260 006 001 \r [ L A M B D A N I L
0013300 \r ( 006 002 D E C L A R E 006
0013320 001 ( G L O B A L V A R S C R
0013340 O C K W I N D O W ) ) 006 006 006 001
0013360
0013400 006 006 ( * ; " E d i t
0013420 e d 1 - A p r - 0 0 b y B
0013440 r i g g s & D i x o n " ) 006
0013460 001 \r ( P R O G ( S I Z
0013500 E H A L F S I Z E X C E N T
0013520 E R Y C E N T E R R A D I U
0013540 S I N S I D E R A D I U S M
0013560 I N U T E H A N D S I Z E H O
0013600 U R H A N D S I Z E D S S T
0013620 Y L E \r
0013640 C L I P P I N G R E G
0013660 I O N O U T L I N E O U T L
0013700 I N E D S P D O N E I D A T
0013720 E U D A T E D A T E H O U
0013740 R S M I N U T E S S E C O N
0013760 D S \r
0014000 O L D M I N U T E S W
0014020 I D T H H E I G H T H O U R
0014040 A N G L E M I N U T E A N G L
0014060 E N U M F O N T H A L F H E
0014100 I G H T C H A N G E . S T Y L
0014120 E F O N T \r
0014140 S T R P T R 1
0014160 A P R O L D H O U R S ) \r
0014200 ( 006 002 C R O C K
0014220 . I N I T 006 001 C R O C K W I N
0014240 D O W ) \r (
0014260 S E T Q S T R P T R ( D A T
0014300 E C R O C K . D A T E F O R M
0014320 A T ) ) \r (
0014340 S E T Q D S ( W I N D O W P
0014360 R O P C R O C K W I N D O W
0014400 ' D S P ) ) \r R E S
0014420 T A R T \r (
0014440 S E T Q C H A N G E . S T Y L
0014460 E T ) \r (
0014500 S E T Q C L I P P I N G R E G
0014520 I O N ( D S P C L I P P I N G
0014540 R E G I O N N I L D S ) ) \r
0014560 ( S E T Q
0014600 X C E N T E R ( I Q U O T I E
0014620 N T ( S E T Q W I D T H (
0014640 006 002 f e t c h 006 001 ( R E G I O
0014660 N W I D T H ) 006 002 o f 006 001
0014700 C L I P P I N G R E G I O N ) )
0014720 \r
0014740
0014760 2 ) ) \r ( S
0015000 E T Q Y C E N T E R ( I Q U
0015020 O T I E N T ( S E T Q H E I
0015040 G H T ( I D I F F E R E N C E
0015060 ( 006 002 f e t c h 006 001 ( R E G
0015100 I O N H E I G H T ) 006 002 o f
0015120 006 001 C L I P P I N G R E G I O
0015140 N \r
0015160
*
0015240 ) \r
0015260
*
0015320 1
0015340 0 ) ) \r
0015360
0015400 2 ) )
0015420
0015440 006 006 ( * ; \r 006 001
0015460
*
0015540 006 006 " A l l o w
0015560 1 0 p o i n t s a t t o p
0015600 f o r d i g i t a l f o r
0015620 m " ) 006 001 \r
0015640 ( S E T Q S I Z E ( I M I N
0015660 H E I G H T W I D T H ) ) \r
0015700 ( S E T Q
0015720 H A L F S I Z E ( I Q U O T I
0015740 E N T S I Z E 2 ) ) \r
0015760 ( S E T Q R A D
0016000 I U S ( F I X R ( F T I M E
0016020 S 0 . 9 H A L F S I Z E ) )
0016040 ) \r ( S E T
0016060 Q I N S I D E R A D I U S (
0016100 I D I F F E R E N C E R A D I
0016120 U S 1 0 ) ) \r
0016140 ( S E T Q H O U R H A N D
0016160 S I Z E ( F T I M E S 0 . 5
0016200 I N S I D E R A D I U S ) ) \r
0016220 ( S E T Q
0016240 M I N U T E H A N D S I Z E (
0016260 F T I M E S 0 . 8 I N S I D
0016300 E R A D I U S ) ) \r
0016320 ( S E T Q O U T L I N
0016340 E ( B I T M A P C R E A T E
0016360 W I D T H H E I G H T ) ) \r
0016400 ( S E T Q O
0016420 U T L I N E D S P ( D S P C R
0016440 E A T E ) ) \r
0016460 ( D S P D E S T I N A T I O N
0016500 O U T L I N E O U T L I N E
0016520 D S P ) \r (
0016540 D S P F O N T [ S E T Q F O
0016560 N T ( C O N D \r
0016600
0016620 ( ( I L E S
0016640 S P R A D I U S 5 0 ) \r
0016660
*
0016720 ( F O N T C R E A T E ' G A C
0016740 H A 8 ) ) \r
0016760
0017000 ( T ( F O N T
0017020 C R E A T E ' H E L V E T I C
0017040 A 1 0 ' B O L D ] \r
0017060 O U T
0017100 L I N E D S P ) \r
0017120 ( D S P F O N T F O N T
0017140 D S ) \r (
0017160 S E T Q S T Y L E ( W I N D
0017200 O W P R O P C R O C K W I N D
0017220 O W ' S T Y L E ) ) \r
0017240 ( S E T Q 1 A P R
0017260 1 ) \r [ 006
0017300 002 u n t i l 006 001 D O N E \r
0017320 006 002 d o 006
0017340 001 ( C O N D \r
0017360 ( C H A N
0017400 G E . S T Y L E ( S E T Q C
0017420 H A N G E . S T Y L E ( S E T
0017440 Q O L D M I N U T E S ( S E
0017460 T Q O L D H O U R S N I L )
0017500 ) ) \r
0017520 ( D S
0017540 P F I L L N I L W H I T E S
0017560 H A D E ' R E P L A C E O U
0017600 T L I N E D S P ) \r
0017620
0017640 ( D R A W C I R C L E
0017660 X C E N T E R Y C E N T E R
0017700 R A D I U S 4 N I L O U T
0017720 L I N E D S P ) \r
0017740
0017760 ( D R A W C I R C L E X
0020000 C E N T E R Y C E N T E R 2
0020020 4 N I L O U T L I N E D S
0020040 P ) \r
0020060 ( C O
0020100 N D \r
0020120
0020140 ( ( L I S T G E T S T Y L E
0020160 ' R I N G S ) \r
0020200
0020220 ( D R A W C I R C L
0020240 E X C E N T E R Y C E N T E
0020260 R H O U R H A N D S I Z E 2
0020300 N I L O U T L I N E D S P )
0020320 \r
0020340 (
0020360 D R A W C I R C L E X C E N T
0020400 E R Y C E N T E R M I N U T
0020420 E H A N D S I Z E 2 N I L
0020440 O U T L I N E D S P ) ) ) \r
0020460
0020500 ( S E L E C T Q
0020520 ( L I S T G E T S T Y L E
0020540 ' N U M B E R S ) \r
0020560
0020600 ( T ( S E T Q
0020620 F O N T H A L F H E I G H T
0020640 ( I D I F F E R E N C E ( I Q
0020660 U O T I E N T ( F O N T H E I
0020700 G H T F O N T ) \r
0020720
*
0021020 2 ) \r
0021040
*
0021120 ( F O N T D E S C E N T
0021140 F O N T ) ) ) \r
0021160
0021200 ( 006 002 f o r
0021220 006 001 I 006 002 f r o m 006 001 1
0021240 006 002 t o 006 001 1 2 \r
0021260
0021300 006 002
0021320 d o 006 001 ( S E T Q N U M (
0021340 M K S T R I N G I ) ) \r
0021360
*
0021420 ( S E T Q M I N U T E
0021440 A N G L E ( F T I M E S 1 A
0021460 P R 3 0 I ) ) \r
0021500
*
0021540 ( M O V E T O ( F D I F F E
0021560 R E N C E ( F P L U S X C E
0021600 N T E R ( F T I M E S I N S
0021620 I D E R A D I U S \r
0021640
*
0021740 ( S I N
0021760 M I N U T E A N G L E ) ) ) \r
0022000
*
0022060 ( I Q U O T I E N T
0022100 ( S T R I N G W I D T H N U
0022120 M O U T L I N E D S P ) \r
0022140
*
0022220 2 ) ) \r
0022240
*
0022300 ( F D
0022320 I F F E R E N C E ( F P L U S
0022340 Y C E N T E R ( F T I M E S
0022360 I N S I D E R A D I U S \r
0022400
*
0022500 (
0022520 C O S M I N U T E A N G L E )
0022540 ) ) \r
0022560
*
0022620 F O N T H A L F
0022640 H E I G H T ) \r
0022660
*
0022720 O U T L I N E D S P
0022740 ) \r
0022760
0023000 ( P R I N 1
0023020 N U M O U T L I N E D S P ) )
0023040 ) \r
0023060
0023100 ( P O I N T S ( 006 002 f o r 006 001
0023120 I 006 002 f r o m 006 001 1 006 002
0023140 t o 006 001 1 2 006 002 b i n d 006 001
0023160 ( R A D _ ( F P L U S I
0023200 N S I D E R A D I U S 5 ) ) \r
0023220
*
0023260 006 002 d o 006 001
0023300 ( S E T Q M I N U T E A N G L
0023320 E ( F T I M E S 3 0 I ) )
0023340 \r
0023360
0023400 ( D R
0023420 A W C I R C L E ( F P L U S
0023440 X C E N T E R ( F T I M E S
0023460 R A D ( S I N M I N U T E A
0023500 N G L E ) ) \r
0023520
*
0023600 ) \r
0023620
*
0023660 ( F P L U
0023700 S Y C E N T E R ( F T I M E
0023720 S R A D ( C O S M I N U T
0023740 E A N G L E ) ) ) \r
0023760
*
0024020 1 2
0024040 N I L O U T L I N E D S P )
0024060 ) ) \r
0024100
0024120 N I L ) ) ) \r
0024140 ( S E T Q I D
0024160 A T E ( I D A T E ) ) \r
0024200 ( S E
0024220 T Q U D A T E ( \ U N P A C
0024240 K D A T E I D A T E ) ) \r
0024260 ( S
0024300 E T Q D A T E ( \ O U T D A
0024320 T E U D A T E C R O C K . D
0024340 A T E F O R M A T S T R P T R
0024360 ) ) \r
0024400 ( S E T Q M I N U T E S
0024420 ( C A R ( N T H U D A T E
0024440 5 ) ) ) \r
0024460 ( S E T Q S E C O
0024500 N D S ( C A R ( N T H U D
0024520 A T E 6 ) ) ) \r
0024540 [ C O N D \r
0024560
0024600 ( ( N E Q M I N U T E S
0024620 O L D M I N U T E S ) \r
0024640
0024660 ( S E T Q H O U R S ( C A R
0024700 ( N T H U D A T E 4 ) ) )
0024720 \r
0024740 ( B I T B L T O U T
0024760 L I N E 0 0 D S 0 0
0025000 W I D T H H E I G H T ' I N
0025020 P U T ' R E P L A C E ) \r
0025040
0025060 ( S E T Q H O U R A N G L
0025100 E ( F P L U S ( F T I M E S
0025120 1 A P R 3 0 . 0 H O U R S
0025140 ) \r
0025160
0025200 ( F T
0025220 I M E S 1 A P R 0 . 5 M I
0025240 N U T E S ) ) ) \r
0025260 ( S E
0025300 T Q M I N U T E A N G L E (
0025320 F T I M E S 1 A P R 6 . 0
0025340 M I N U T E S ) ) \r
0025360 ( C
0025400 O N D \r
0025420 ( ( L I S
0025440 T G E T S T Y L E ' H A N D
0025460 S ) \r
0025500 ( D R A W
0025520 L I N E X C E N T E R Y C E
0025540 N T E R [ P L U S X C E N T
0025560 E R ( F I X R ( F T I M E S
0025600 H O U R H A N D S I Z E \r
0025620
*
0025720 ( S I N
0025740 H O U R A N G L E ] \r
0025760
0026000 [ P L U S
0026020 Y C E N T E R ( F I X R ( F
0026040 T I M E S H O U R H A N D S I
0026060 Z E ( C O S H O U R A N G L
0026100 E ] \r
0026120
0026140 5 \r
0026160
0026200 ' P A I N T D S ) \r
0026220
0026240 ( D R A W L I N E
0026260 X C E N T E R Y C E N T E R
0026300 [ P L U S X C E N T E R ( F
0026320 I X R ( F T I M E S M I N U
0026340 T E H A N D S I Z E \r
0026360
*
0026460 ( S I N M I N
0026500 U T E A N G L E ] \r
0026520
0026540 [ P L U S Y
0026560 C E N T E R ( F I X R ( F T
0026600 I M E S M I N U T E H A N D S
0026620 I Z E ( C O S M I N U T E A
0026640 N G L E ] \r
0026660
0026700 3 \r
0026720
0026740 ' P A I N T D S )
0026760 ) ) \r
0027000 ( C O N D \r
0027020
0027040 ( ( L I S T G E T S T
0027060 Y L E ' T I M E S ) \r
0027100
0027120 ( M O V E T O ( F P L
0027140 U S X C E N T E R - 5 ( F
0027160 T I M E S H O U R H A N D S I
0027200 Z E ( S I N H O U R A N G L
0027220 E ) ) ) \r
0027240
0027260 ( F P L U S Y C E N T
0027300 E R - 5 ( F T I M E S H O
0027320 U R H A N D S I Z E ( C O S
0027340 H O U R A N G L E ) ) ) \r
0027360
0027400 D S ) \r
0027420
0027440 ( P R I N 1 (
0027460 C O N D \r
0027500
0027520 ( ( I G R E A T E
0027540 R P H O U R S 1 2 ) \r
0027560
*
0027620 ( I D I F F E R E N C E H O U
0027640 R S 1 2 ) ) \r
0027660
0027700 ( T H O U
0027720 R S ) ) \r
0027740
0027760 D S ) \r
0030000
0030020 ( M O V E T O ( F P L U S X
0030040 C E N T E R - 5 ( F T I M E
0030060 S M I N U T E H A N D S I Z E
0030100 ( S I N M I N U T E A N G L
0030120 E ) ) ) \r
0030140
0030160 ( F P L U S Y C E N T
0030200 E R - 5 ( F T I M E S M I
0030220 N U T E H A N D S I Z E ( C O
0030240 S M I N U T E A N G L E ) ) )
0030260 \r
0030300
0030320 D S ) \r
0030340 ( P R I
0030360 N 1 M I N U T E S D S ) ) )
0030400 \r
0030420 ( C O N D \r
0030440
0030460 ( ( N E Q H O U R S O L
0030500 D H O U R S ) \r
0030520
0030540 ( C O N D \r
0030560
0030600 ( ( N E Q 1 A P R ( S E T
0030620 Q 1 A P R ( 006 002 i f 006 001 (
0030640 A N D ( E Q ( C A D R U D
0030660 A T E ) \r
0030700
*
0030760 3 ) \r
0031000
*
0031060 ( E Q ( C A D D R U D A T E
0031100 ) \r
0031120
*
0031200 1 ) \r
0031220
*
0031260 ( I L
0031300 E S S P ( C A D D D R U D A
0031320 T E ) \r
0031340
*
0031420 1 2 ) ) \r
0031440
*
0031500 006
0031520 002 t h e n 006 001 - 1 \r
0031540
*
0031600 006 002
0031620 e l s e 006 001 1 ) ) ) \r
0031640
0031660 ( S E T Q C H
0031700 A N G E . S T Y L E T ] \r
0031720 ( S
0031740 E T Q O L D H O U R S H O U
0031760 R S ) \r
0032000 ( S E T Q O L D M I N
0032020 U T E S M I N U T E S ) \r
0032040 ( M
0032060 O V E T O U P P E R L E F T C
0032100 R O C K W I N D O W C L I P P
0032120 I N G R E G I O N ) \r
0032140 ( P R I N
0032160 3 D A T E C R O C K W I N D
0032200 O W ) \r
0032220 ( 006 002 w h i l e 006 001 [
0032240 A N D C R O C K . A L A R M S
0032260 ( G E Q I D A T E ( C A R
0032300 ( C A R C R O C K . A L A R
0032320 M S ] 006 002 d o 006 001 ( 006 002 C R
0032340 O C K . R I N G . A L A R M 006 001
0032360 ) ) \r
0032400 ( S E L E C T Q ( B L O
0032420 C K ( I T I M E S 1 0 0 0
0032440 ( I D I F F E R E N C E 6 0
0032460 S E C O N D S ) ) ) \r
0032500 (
0032520 C H A N G E . S T Y L E ( S E
0032540 T Q C H A N G E . S T Y L E
0032560 T ) ) \r
0032600 ( S H A P E (
0032620 G O R E S T A R T ) ) \r
0032640
0032660 ( C L O S I N G ( S E T Q
0032700 D O N E T ) ) \r
0032720 N I L
0032740 ) \r
0032760 ( C O N D \r
0033000 ( ( A N D
0033020 ( E Q M I N U T E S 0 ) \r
0033040
0033060 ( E Q ( I R
0033100 E M A I N D E R H O U R S 6
0033120 ) \r
0033140 0
0033160 ) \r
0033200 ( E Q (
0033220 M A C H I N E T Y P E ) \r
0033240
0033260 ' D A N D E
0033300 L I O N ) ) \r
0033320 \r 006 006 ( *
0033340 ; ; " \ N E T . S E T T I M
0033360 E e v e r y s i x h o u r
0033400 s i f p o s s i b l e b e
0033420 c a u s e X e r o x c o m p
0033440 u t e r s c a n ' t k e e p
0033460 t i m e r i g h t . S E
0033500 T T I M E w o u l d m a k e
0033520 n o n - n e t w o r k u s e
0033540 r s e n t e r t i m e m a
0033560 n u a l l y - - w e d o n ' t
0033600 w a n t t h i s . * " )
0033620 006 001 \r \r
0033640 ( \ N E T . S E
0033660 T T I M E ] \r
0033700 ( P R O C E S S . R E T U R N
0033720 ] ) \r \r ( 006 004 C R O C K . R E S
0033740 H A P E F N 006 001 \r [ L A M B
0033760 D A ( W I N D O W R E G I O
0034000 N ) 006 006 006 001
0034020
0034040 006 006 ( * b
0034060 v m % : " 2 7 - A U G - 8 2
0034100 1 6 : 2 6 " ) 006 001 \r ( W
0034120 A K E . P R O C E S S ' C R O
0034140 C K . P R O C E S S ' S H A P
0034160 E ] ) \r \r ( 006 004 C R O C K . A L
0034200 A R M 006 001 \r [ L A M B D A
0034220 ( D A T E S T R I N G M E S S
0034240 A G E F O R M ) 006 006 006 001
0034260
0034300 006 006 ( * k b r %
0034320 : " 2 9 - M a r - 8 4 1 4 :
0034340 5 7 " ) 006 001 \r
0034360
*
0034440 006 006 ( * A d d ( I D
0034460 A T E . M E S S A G E ) t
0034500 o \r 006 001
0034520
*
0034600 006 006 C R O C K . A L A R M S
0034620 * ) 006 001 \r ( P R O G
0034640 ( I D A T E ) \r
0034660 ( S E T Q I D A T E ( I
0034700 D A T E D A T E S T R I N G )
0034720 ) \r ( C O N
0034740 D \r (
0034760 ( I L E S S P I D A T E ( I
0035000 D A T E ) ) \r
0035020 ( p r i n t o u t T
0035040 " C R O C K : C a n ' t s
0035060 e t a l a r m t o " D A
0035100 T E S T R I N G " i n t h
0035120 e p a s t ! " T ) \r
0035140 ( R I N G B
0035160 E L L S ) ) \r
0035200 ( T ( S E T Q C R O
0035220 C K . A L A R M S ( N C O N C
0035240 ( 006 002 f o r 006 001 B U C K E T
0035260 006 002 i n 006 001 C R O C K . A L
0035300 A R M S \r
0035320
*
0035360 006 002 w h e n 006 001 ( I L E Q
0035400 ( C A R B U C K E T ) \r
0035420
*
0035500 I D A T E ) 006 002 c
0035520 o l l e c t 006 001 B U C K E T )
0035540 \r
0035560
0035600 ( L I S T
0035620 ( L I S T I D A T E ( G D
0035640 A T E I D A T E ) \r
0035660
*
0035740 M E S S A G E F O R M ) ) \r
0035760
*
0036020 ( 006 002 f o r
0036040 006 001 B U C K E T 006 002 i n 006 001
0036060 C R O C K . A L A R M S \r
0036100
*
0036140 006 002 w h e
0036160 n 006 001 ( I G R E A T E R P (
0036200 C A R B U C K E T ) \r
0036220
*
0036300 I D A T E ) 006 002 c o
0036320 l l e c t 006 001 B U C K E T ) )
0036340 ) \r
0036360 ( p r i n t o u t T " C
0036400 R O C K : A l a r m s e t
0036420 a t " ( G D A T E I D A T
0036440 E ) \r
0036460 " . " T ]
0036500 ) \r \r ( 006 004 C R O C K . R I N G
0036520 . A L A R M 006 001 \r [ L A M B
0036540 D A N I L 006 006 006 001
0036560
*
0036620 006 006 ( * k
0036640 b r % : " 2 9 - M a r - 8 4
0036660 1 4 : 5 9 " ) 006 001 \r ( P
0036700 R O G ( B U C K E T I D A T
0036720 E M E S S A G E F O R M ) \r
0036740 ( S E T Q
0036760 B U C K E T ( 006 002 p o p 006 001
0037000 C R O C K . A L A R M S ) ) \r
0037020 ( S E T Q I
0037040 D A T E ( C A R B U C K E T
0037060 ) ) \r ( S E
0037100 T Q M E S S A G E ( C A D D
0037120 R B U C K E T ) ) \r
0037140 ( S E T Q F O R M
0037160 ( C A D D D R B U C K E T ) )
0037200 \r ( S E L E
0037220 C T Q ( M A C H I N E T Y P E
0037240 ) \r
0037260 ( D A N D E L I O N ( C O N D
0037300 \r
0037320 ( C R
0037340 O C K . T U N E ( P L A Y T U
0037360 N E C R O C K . T U N E ) ) \r
0037400
0037420 ( T (
0037440 R I N G B E L L S 3 ) ) ) ) \r
0037460 ( R
0037500 I N G B E L L S 3 ) ) \r
0037520 ( p r i n t o u t
0037540 P R O M P T W I N D O W " C
0037560 R O C K : I t i s n o w
0037600 " ( G D A T E I D A T E ) \r
0037620
0037640 " . " T ) \r
0037660 ( C O N D \r
0037700 ( M E S S A G E ( p
0037720 r i n t o u t P R O M P T W I
0037740 N D O W M E S S A G E T ) )
0037760 ) \r ( E V A
0040000 L F O R M ) \r
0040020 ( I N V E R T W C R O C K
0040040 W I N D O W ] ) \r \r ( 006 004 C R O
0040060 C K . I N I T 006 001 \r [ L A M
0040100 B D A ( W I N D O W ) 006 006 006 001
0040120
*
0040160 006 006 ( *
0040200 k b r % : " 2 1 - J U N - 8 3
0040220 0 9 : 4 4 " ) 006 001 \r (
0040240 W I N D O W P R O P W I N D O
0040260 W ' B U T T O N E V E N T F N
0040300 ' C R O C K . B U T T O N E V
0040320 E N T F N ) \r ( W I N D
0040340 O W P R O P W I N D O W ' R
0040360 E S H A P E F N ' C R O C K .
0040400 R E S H A P E F N ) \r (
0040420 W I N D O W P R O P W I N D O
0040440 W ' C L O S E F N ' C R O C
0040460 K . C L O S E F N ) \r (
0040500 C O N D \r ( ( N U
0040520 L L ( W I N D O W P R O P W
0040540 I N D O W ' S T Y L E ) ) \r
0040560 ( W I N D O W P R
0040600 O P W I N D O W ' S T Y L E
0040620 ( C O P Y C R O C K . D E F
0040640 A U L T . S T Y L E ] ) \r ) \r \r
0040660 ( R P A Q ? 006 002 C R O C K . D
0040700 E F A U L T . S T Y L E 006 001 '
0040720 ( H A N D S T T I M E S N
0040740 I L R I N G S N I L N U M
0040760 B E R S T ) ) \r \r ( R P A Q ?
0041000 006 002 C R O C K . S T Y L E . M
0041020 E N U 006 001 ) \r \r ( R P A Q ?
0041040 006 002 C R O C K . A L A R M S 006 001
0041060 ) \r \r ( R P A Q ? 006 002 C R O
0041100 C K . D A T E F O R M A T 006 001
0041120 ' ( D A T E F O R M A T N O .
0041140 S E C O N D S ) ) \r \r ( R P A Q
0041160 ? 006 002 C R O C K . T U N E 006 001
0041200 ' ( ( 1 0 0 0 . 1 0 0 0 )
0041220 \r
0041240 ( 8 0 0 . 1 0 0 0
0041260 ) \r
0041300 ( 6 0 0 . 1 0 0
0041320 0 ) \r
0041340 ( 5 0 0 . 1 0
0041360 0 0 ) \r
0041400 ( 4 0 0 . 1
0041420 0 0 0 ) \r
0041440 ( N I L .
0041460 5 0 0 ) \r
0041500 ( 4 4 0 .
0041520 1 0 0 0 ) \r
0041540 ( 4 8 4 .
0041560 1 0 0 0 ) \r
0041600 ( 5 4 0
0041620 . 1 0 0 0 ) \r
0041640 ( 6 0 0
0041660 . 1 0 0 0 ) \r
0041700 ( 2 0
0041720 0 0 . 1 0 0 0 ) \r
0041740 (
0041760 1 6 0 0 . 1 0 0 0 ) \r
0042000
0042020 ( 1 2 0 0 . 1 0 0 0 ) \r
0042040
0042060 ( 1 0 0 0 . 1 0 0 0 )
0042100 \r
0042120 ( 8 0 0 . 1 0 0 0
0042140 ) \r
0042160 ( N I L . 5 0 0
0042200 ) \r
0042220 ( 8 8 0 . 1 0 0
0042240 0 ) \r
0042260 ( 9 6 8 . 1 0
0042300 0 0 ) \r
0042320 ( 1 0 8 0 .
0042340 1 0 0 0 ) \r
0042360 ( 1 1 8 8
0042400 . 1 0 0 0 ) ) ) \r \r ( R P A Q
0042420 ? 006 002 C R O C K W I N D O W 006
0042440 001 ) \r ( P U T P R O P S C R
0042460 O C K C O P Y R I G H T ( "
0042500 X e r o x C o r p o r a t i o
0042520 n " 1 9 8 4 1 9 8 5 1 9 8
0042540 6 1 9 8 7 ) ) \r ( D E C L A R
0042560 E % : D O N T C O P Y \r (
0042600 F I L E M A P ( N I L ( 1 9
0042620 4 0 1 6 8 1 4 ( C R O C K
0042640 1 9 5 0 . 2 5 2 0 ) ( C R
0042660 O C K . B U T T O N E V E N T F
0042700 N 2 5 2 2 . 2 8 1 1 ) (
0042720 C R O C K . C H A N G E . S T Y
0042740 L E \r 2 8 1 3 . 5 6 2 6 )
0042760 ( C R O C K . C L O S E F N
0043000 5 6 2 8 . 5 7 9 0 ) ( C R
0043020 O C K . P R O C E S S 5 7 9 2
0043040 . 1 4 2 9 0 ) ( C R O C K
0043060 . R E S H A P E F N 1 4 2 9 2
0043100 . 1 4 4 5 1 ) \r ( C R O C
0043120 K . A L A R M 1 4 4 5 3 .
0043140 1 5 6 8 1 ) ( C R O C K . R I
0043160 N G . A L A R M 1 5 6 8 3 .
0043200 1 6 4 2 4 ) ( C R O C K . I
0043220 N I T 1 6 4 2 6 . 1 6 8 1
0043240 2 ) ) ) ) ) \r S T O P \r
0043254