$ od -c -N 50000 [Cyan]<CedarChest6.1>Documentation>StyleSheet.sil!1 0000000 9 r 377 377 030 002 352 020 ; " 361 \t 1 6 0000020 A U G 8 2 377 377 \0 266 002 2 @ 327 " ; 0000040 \t O P E N S I ; 377 377 \0 245 001 260 0000060 @ 321 ! 271 \v S I . S o m e T y p e 0000100 377 377 \0 351 001 270 A 023 ! 277 \v S I . S o 0000120 m e P r o c 377 377 \0 316 001 \ 001 Y ! c 0000140 & : P R O G R A M I M P 0000160 O R T S S I : S o m e I n 0000200 t e r f a c e e 377 377 001 k \0 a A l 0000220 340 202 377 377 001 035 \0 201 A k 340 202 377 377 \0 350 0000240 \0 201 A 033 340 202 377 377 \0 350 \0 y A 033 202 0000260 \r S a m p l e S e t R e c ; 377 377 0000300 \0 224 \0 y \0 350 202 026 S a m p l e S 0000320 e t : T Y P E = R E F S 0000340 377 377 \0 224 \0 204 001 b 215 8 S a m p l 0000360 e S e t R e c : T Y P E = 0000400 R E C O R D [ h e a d : S a m 0000420 p l e , c o u n t : V a l u 0000440 e ] ; E 377 377 \0 002 002 P \0 S " W 030 r 0000460 e c o r d s a n d d i s c r 0000500 i m i n a t e \0 377 377 \0 002 002 H \0 i 0000520 " O 036 U s e R E F A N Y i 0000540 n s t e a d o f v a r i a n 0000560 t \0 377 377 001 264 \0 ' 002 027 0 035 S t a 0000600 n d a r d p r e l u d e f o 0000620 r a m o d u l e 377 377 001 X 002 n 0000640 A 252 342 o 377 377 \0 246 002 f \0 360 " m 023 b 0000660 : R E F B O O L E A N = 0000700 > 377 377 001 002 \ 001 3 " e \t . . 0000720 . } ; 377 377 \0 246 002 \ \0 344 " e 0000740 025 i : R E F I N T = > { 0000760 . . . 377 377 \0 246 002 R 001 \b " [ 0001000 035 r : R E F R E A L = > 0001020 r ^ _ r ^ + 1 . 0 ; 377 377 0001040 001 p 002 352 022 7 " 363 ; F i l e d o 0001060 n [ I n d i g o ] < C e d a r 0001100 D o c s > L a n g u a g e > S t 0001120 y l e S h e e t . s i l , . p 0001140 r e s s 377 377 \0 234 002 P A 006 342 Q 377 377 0001160 \0 236 002 H A 005 " Q 032 W I T H r e 0001200 f A n y V a r S E L E C T F 0001220 R O M 377 377 \0 004 001 270 \0 q ! 301 $ Q 0001240 u a l i f y i d e n t i f i 0001260 e r s f r o m i n t e r f a 0001300 c e s s 377 377 \0 002 \0 $ \0 T + 026 o 0001320 f D E F I N I T I O N S m o 0001340 d u l e s 234 377 377 \0 002 \0 034 \0 i # 0001360 035 N o c o m m o n s u f f i 0001400 x o n t h e n a m e s 377 377 0001420 001 8 001 P A 261 341 Q 377 377 \0 234 001 P \0 313 0001440 ! Y \f C e d a r S a m p l e ; 0001460 377 377 \0 234 001 H \0 314 ! O \r S o m e I 0001500 n t e r f a c e 377 377 \0 364 001 v A 260 0001520 341 w 377 377 \0 004 001 l \0 r ! u % b e 0001540 t o t a l l y d i f f e r e n 0001560 t t h a n i n t e r f a c e 0001600 ' s 377 377 \0 004 001 d \0 | ! m % w i t 0001620 h " I m p l " . A l t e r 0001640 n a t i v e l y , n a m e m 0001660 a y 377 377 \0 004 001 \ \0 t ! e " f o r 0001700 m e d b y s u f f i x i n g 0001720 i n t e r f a c e n a m e n 0001740 377 377 \0 004 001 T \0 y ! ] 036 P R O G R 0001760 A M m o d u l e n a m e i 0002000 s n o r m a l y I 377 377 001 264 001 020 0002020 001 376 ! 031 025 c h a n g e s t o 0002040 t h e m o d u l e 377 377 001 264 001 \b 0002060 002 ( ! 021 ' i n c l u d e s a 0002100 h i s t o r y l o g o f ( 0002120 n o n - t r i v i a l ) 377 377 \0 224 0002140 \0 N 001 } W K u p p e r L i m i 0002160 t : I N T E G E R = 0002200 3 2 ; - - n a m e t 0002220 h e u p p e r l i m i t o 0002240 f a n i n t e r v a l t y 0002260 p e 377 377 001 260 \0 376 A 261 341 033 377 377 001 260 0002300 001 032 B 1 341 033 377 377 002 0 \0 376 B 1 341 032 0002320 377 377 001 260 \0 376 B 0 340 377 377 377 001 264 001 \0 0002340 002 034 ! \t 037 S t a n d a r d p o 0002360 s t l u d e f o r a m o d 0002400 u l e 377 377 001 X 001 \b A 260 341 \t 377 377 0002420 001 P 001 \b A V 341 \t 377 377 001 P \0 362 A Q 0002440 341 036 377 377 001 260 \0 % A 261 340 2 377 377 001 260 0002460 \0 1 B 1 340 2 377 377 002 0 \0 % B 1 340 1 0002500 377 377 001 260 \0 % B 0 340 & 377 377 001 X \0 * 0002520 A 260 340 + 377 377 001 P \0 * A V 340 + 377 377 0002540 001 P \0 034 A Q 340 8 377 377 \0 332 \0 034 @ 357 0002560 ( # 005 . m e s a 377 377 001 264 002 | 002 006 0002600 " 205 027 o r t o g e n e r a t 0002620 e a n E R R O R 377 377 001 264 002 t 0002640 002 2 " } " r e m a i n i n g c 0002660 a s e : u s e a s " O T H 0002700 E R W I S E " E 377 377 001 264 002 l 002 0 0002720 " u # N O u s i n g E N D C 0002740 A S E t o h a n d l e a 0002760 s i n g l e 377 377 001 264 002 \ 002 \t " e 0003000 025 a n d E R R O R u s i n g 0003020 E R R O R 377 377 001 264 002 224 001 340 " 233 0003040 \v a n d S I G N A L s 377 377 \0 002 0003060 002 l \0 s " u " d o n ' t h a v 0003100 e t o u s e k e y w o r d 0003120 n o t a t i o n ` 377 377 001 264 \0 ` 0003140 002 023 i 033 a n o n y m o u s t 0003160 y p e c o n s t r u c t o r . 0003200 377 377 001 264 \0 X 002 , a % N a m i n 0003220 g a t y p e i s b e t t 0003240 e r t h a n u s i n g a n 0003260 377 377 \0 302 \0 Y 001 y b = T Y P E 0003300 = [ 0 . . u p p e r L 0003320 i m i t ) ; - - p r e f 0003340 e r r e d f o r m f o r i 0003360 n t e r v a l s 377 377 \0 256 \0 034 @ 334 0003400 ( % \v C e d a r S a m p l e 377 377 0003420 \0 330 002 214 001 y " 225 7 = C O D E 0003440 ; - - e r 0003460 r o r f o r l o c a l u s 0003500 e i n t h i s m o d u l e 0003520 377 377 \0 224 002 214 @ 321 " 223 021 A l l o c 0003540 F a u l t : E R R O R 377 377 \0 362 0003560 002 f A V " o 033 S I G N A L R 0003600 e s u m a b l e C o n d i t i o 0003620 n ; 377 377 \0 360 002 \ A 035 " e \f S o m 0003640 e P r o c [ y ] ; 271 377 377 \0 236 002 2 0003660 \0 270 " 9 \a B E G I N 377 377 \0 272 0003700 001 372 A \0 " 003 027 [ h e a d : N I 0003720 L , c o u n t : 0 ] ; 377 377 0003740 \0 234 001 372 \0 274 " 001 \v n i l S e t 0003760 _ 377 377 001 232 001 370 A 260 341 371 377 377 0004000 \0 372 001 370 A 227 341 371 377 377 001 230 001 360 001 235 0004020 ! 371 002 ] ; l 377 377 \0 372 001 360 A 231 ! 371 0004040 . ! A l l o c F a u l t = > 0004060 E R R O R P r o b l e m 0004100 [ p r o g r a m E r r o r ] ] 0004120 377 377 \0 234 001 360 \0 371 ! 371 034 n i l S e 0004140 t _ A l l o c a t e S a m p 0004160 l e S e t [ ! 377 377 \0 200 001 274 @ 206 0004200 341 275 377 377 \0 206 001 270 @ 207 341 300 377 377 \0 206 0004220 001 300 @ 345 341 301 377 377 \0 206 001 270 @ 240 341 271 0004240 377 377 \0 206 001 233 @ 207 341 257 377 377 \0 200 001 233 0004260 @ 206 341 234 377 377 \0 206 001 257 @ 231 341 260 377 377 0004300 001 024 001 270 001 037 ! 301 004 [ x ] ; 0 377 377 0004320 \0 234 001 270 \0 352 ! 277 031 I F v a l 0004340 = 0 T H E N v a l 0004360 _ 377 377 \0 243 001 270 @ 317 341 271 377 377 \0 323 0004400 001 260 \0 344 ! 271 005 = 0 ; 377 377 \0 234 0004420 001 260 \0 245 ! 267 003 x : 377 377 \0 256 001 n 0004440 @ 364 ! w 022 O P E N C e d a r 0004460 S a m p l e ; B 377 377 \0 224 001 n \0 256 0004500 ! u \a B E G I N 377 377 \0 224 001 \ 0004520 @ 316 ! e 017 C e d a r S a m p l e 0004540 I m p l 377 377 \0 320 001 H A 7 ! Q 033 U 0004560 S I N G [ S o m e P r o c , 0004600 S o m e T y p e ] , 377 377 \0 264 \0 337 0004620 \0 370 350 025 : S a m p l e S e 0004640 t = N I L ; 377 377 \0 224 \0 337 0004660 @ 264 350 \b e m p t y S e t : 377 377 0004700 \0 274 \0 245 001 [ 256 - : P R O C 0004720 E D U R E [ v a l : V a l u 0004740 e ] R E T U R N S [ S a 0004760 m p l e ] ; 377 377 \0 224 \0 245 @ 273 256 0005000 \t N e w S a m p l e 377 377 \0 267 \0 222 0005020 001 025 233 032 E R R O R [ r e a s 0005040 o n : E r r o r C o d e ] ; P 0005060 377 377 \0 225 \0 222 @ 265 231 \t P r o b l 0005100 e m : 377 377 \0 224 \0 Y @ 301 b 016 I 0005120 n t e r v a l T y p e : T 377 377 0005140 \0 300 \0 < \0 372 C 021 : D E F I 0005160 N I T I O N S = 377 377 \0 224 \0 < 0005200 @ 301 E \v C e d a r S a m p l e 0005220 377 377 \0 254 \0 $ @ 332 340 % 377 377 \0 224 \0 034 0005240 @ 256 ( # \t - - F I L E : 377 377 0005260 \0 B 002 352 020 250 " 363 " P r i n t o 0005300 n c o l o r p r i n t e r 0005320 i f y o u c a n . 026 377 377 001 > 0005340 \0 327 A 260 340 330 377 377 001 264 001 H 002 0 ! O 0005360 # O K t o u s e u n n a m 0005400 e d O P E N o f i n t e r 0005420 f a c e 377 377 001 264 002 1 002 " " 8 " O 0005440 K t o O P E N a n i n t 0005460 e r f a c e i n a l o c a 0005500 l i 377 377 \0 206 \0 D @ 222 340 E 377 377 \0 200 0005520 \0 w @ 206 340 x 377 377 001 260 002 / A 261 342 D 0005540 377 377 001 260 002 C B 1 342 D 377 377 002 0 002 / 0005560 B 1 342 C 377 377 001 260 002 / B 0 342 0 377 377 0005600 001 264 002 9 002 024 " B 036 s c o p e w 0005620 h e r e i t i s h e a v i 0005640 l y u s e d 216 377 377 \0 330 002 : A 260 0005660 342 ; 377 377 \0 266 002 : @ 324 342 ; 377 377 \0 316 0005700 001 P A 4 341 Q 377 377 001 6 \0 327 A < 340 330 0005720 377 377 \0 200 002 l @ 207 342 m 377 377 \0 206 002 d 0005740 @ 207 342 l 377 377 \0 206 002 d @ 355 342 e 377 377 0005760 \0 360 002 d A 030 342 e 377 377 001 260 002 212 A 261 0006000 342 237 377 377 001 260 002 236 B 1 342 237 377 377 002 0 0006020 002 212 B 1 342 236 377 377 001 260 002 212 B 0 342 213 0006040 377 377 001 260 002 j A 261 342 207 377 377 001 260 002 206 0006060 B 1 342 207 377 377 002 0 002 j B 1 342 206 377 377 0006100 001 260 002 j B 0 342 k 377 377 001 260 002 R A 261 0006120 342 g 377 377 001 260 002 f B 1 342 g 377 377 002 0 0006140 002 R B 1 342 f 377 377 001 260 002 R B 0 342 S 0006160 377 377 \0 \0 002 b @ 001 342 w 377 377 \0 \0 002 v 0006200 @ 201 342 w 377 377 \0 200 002 b @ 201 342 v 377 377 0006220 \0 \0 002 b @ 200 342 c 377 377 \0 \0 002 F @ 001 0006240 342 [ 377 377 \0 \0 002 Z @ 201 342 [ 377 377 \0 200 0006260 002 F @ 201 342 Z 377 377 \0 \0 002 F @ 200 342 G 0006300 377 377 \0 \0 001 366 @ 001 342 023 377 377 \0 \0 002 022 0006320 @ 201 342 023 377 377 \0 200 001 366 @ 201 342 022 377 377 0006340 \0 \0 001 366 @ 200 341 367 377 377 \0 \0 001 212 @ 001 0006360 341 256 377 377 \0 \0 001 255 @ 201 341 256 377 377 \0 200 0006400 001 212 @ 201 341 255 377 377 \0 \0 001 212 @ 200 341 213 0006420 377 377 \0 \0 001 266 @ 001 341 303 377 377 \0 \0 001 302 0006440 @ 201 341 303 377 377 \0 200 001 266 @ 201 341 302 377 377 0006460 \0 \0 001 266 @ 200 341 267 377 377 \0 \0 001 R @ 001 0006500 341 v 377 377 \0 \0 001 u @ 201 341 v 377 377 \0 200 0006520 001 R @ 201 341 u 377 377 \0 \0 001 R @ 200 341 S 0006540 377 377 \0 \0 \0 032 @ 001 340 / 377 377 \0 \0 \0 . 0006560 @ 201 340 / 377 377 \0 200 \0 032 @ 201 340 . 377 377 0006600 \0 \0 \0 032 @ 200 340 033 377 377 \0 \0 \0 m @ 001 0006620 340 202 377 377 \0 \0 \0 201 @ 201 340 202 377 377 \0 200 0006640 \0 m @ 201 340 201 377 377 \0 \0 \0 m @ 200 340 n 0006660 377 377 \0 \0 \0 335 @ 001 340 362 377 377 \0 \0 \0 361 0006700 @ 201 340 362 377 377 \0 200 \0 335 @ 201 340 361 377 377 0006720 \0 \0 \0 335 @ 200 340 336 377 377 001 260 \0 V A 261 0006740 340 k 377 377 001 260 \0 j B 1 340 k 377 377 002 0 0006760 \0 V B 1 340 j 377 377 001 260 \0 V B 0 340 W 0007000 377 377 001 261 \0 217 A 262 340 244 377 377 001 261 \0 243 0007020 B 2 340 244 377 377 002 1 \0 217 B 2 340 243 377 377 0007040 001 261 \0 217 B 1 340 220 377 377 001 260 \0 311 A 261 0007060 340 346 377 377 001 260 \0 345 B 1 340 346 377 377 002 0 0007100 \0 311 B 1 340 345 377 377 001 260 \0 311 B 0 340 312 0007120 377 377 001 260 001 l A 261 341 201 377 377 001 260 001 200 0007140 B 1 341 201 377 377 002 0 001 l B 1 341 200 377 377 0007160 001 260 001 l B 0 341 m 377 377 001 260 001 356 A 261 0007200 342 003 377 377 001 260 002 002 B 1 342 003 377 377 002 0 0007220 001 356 B 1 342 002 377 377 001 260 001 356 B 0 341 357 0007240 377 377 001 260 001 D A 261 341 ] 377 377 001 260 001 \ 0007260 B 1 341 ] 377 377 002 0 001 D B 1 341 \ 377 377 0007300 001 260 001 D B 0 341 E 377 377 \0 224 002 224 001 200 0007320 " 235 A A l l o c a t e S a m p l 0007340 e S e t : P R O C E D U R E 0007360 R E T U R N S [ u n i n i t 0007400 e d S e t : S a m p l e S e t 0007420 ] = 377 377 \0 324 \0 \0 021 W P 017 021 C 0007440 e d a r S t y l e S h e e t 0007460 377 377 \0 200 002 d @ 201 342 t 377 377 \0 200 002 H 0007500 @ 201 342 X 377 377 \0 200 002 P @ 231 342 Q 377 377 0007520 \0 200 001 370 @ 201 342 \f 377 377 \0 200 002 004 @ 265 0007540 342 005 377 377 \0 270 002 004 A \0 342 005 377 377 \0 200 0007560 001 214 @ 201 341 254 377 377 \0 200 001 270 @ 201 341 300 0007600 377 377 \0 200 001 d @ 221 341 e 377 377 \0 200 \0 337 0007620 @ 201 340 357 377 377 \0 200 \0 347 @ 221 340 350 377 377 0007640 001 244 \0 030 201 245 341 377 377 \0 214 \0 030 200 215 0007660 341 377 377 \0 224 \0 347 @ 264 340 350 377 377 \0 200 0007700 \0 o @ 201 340 177 377 377 \0 206 \0 D @ 207 340 255 0007720 377 377 \0 206 \0 255 @ 221 340 256 377 377 \0 207 \0 232 0007740 @ 222 340 233 377 377 \0 206 \0 a @ 221 340 b 377 377 0007760 001 260 \0 X A 261 340 j 377 377 \0 300 \0 a A 260 0010000 340 b 377 377 001 261 \0 221 A 262 340 243 377 377 \0 265 0010020 \0 232 A 261 340 233 377 377 001 260 \0 315 A 261 340 345 0010040 377 377 001 6 \0 317 A 7 340 337 377 377 001 252 002 F 0010060 A 253 342 o 377 377 001 : 002 F A 252 342 G 377 377 0010100 \0 306 002 F A 6 342 G 377 377 001 252 002 \ A 261 0010120 342 ] 377 377 001 260 002 T A 261 342 f 377 377 001 260 0010140 002 214 A 261 342 234 377 377 \0 324 002 224 A 260 342 225 0010160 377 377 \0 224 002 224 @ 320 342 225 377 377 001 260 002 l 0010200 A 261 342 204 377 377 001 002 002 x A 260 342 y 377 377 0010220 001 260 001 H A 261 341 X 377 377 001 260 001 p A 261 0010240 341 200 377 377 001 260 001 360 A 261 342 \0 377 377 001 264 0010260 001 P 002 , ! Y # i f D I R E C T 0010300 O R Y e n t r y h a s a 0010320 U S I N G l i s t 377 377 001 264 001 370 0010340 002 016 " 001 035 a b s t r a c t i o n 0010360 e s c a p e o u t o f i 0010400 t . 377 377 001 264 001 360 002 # ! 371 % O n l 0010420 y l e t s i g n a l s t h 0010440 a t a r e p a r t o f t 0010460 h e 377 377 \0 363 002 n A S 342 o 377 377 001 264 0010500 \0 333 001 324 342 \b S I G N A L s . 276 0010520 377 377 001 264 \0 323 002 033 334 035 d u r e s 0010540 t h a t g e n e r a t e E 0010560 R R O R s o r 377 377 001 264 \0 313 002 ' 0010600 324 " a t t a c h s t y l i z 0010620 e d c o m m e n t s t o p 0010640 r o c e - u 377 377 \0 234 \0 325 A 1 336 0010660 * - - S I G N A L s : R e s 0010700 u m a b l e C o n d i t i o n , 0010720 S o m e S i g n a l \0 377 377 \0 224 0010740 001 214 001 025 ! 225 ! S o m e S i g n a 0010760 l : P U B L I C S I G N A L 0011000 = C O D E ; 377 377 \0 224 001 204 001 1 0011020 ! 215 ) R e s u m a b l e C o n d 0011040 i t i o n : P U B L I C S I 0011060 G N A L = C O D E ; 377 377 001 264 0011100 002 T 002 % " ] O n l y r a i s 0011120 e S I G N A L s u s i n g 0011140 S I G N A L , 372 377 377 001 264 002 214 002 ) 0011160 " 225 " O K t o h a v e l o 0011200 c a l l y d e f i n e d E R 0011220 R O R s a 377 377 001 265 \0 231 001 374 242 0011240 025 e r r o r c o d e p a r a 0011260 m e t e r . 377 377 001 265 \0 221 002 % 230 0011300 ! U s e a s m a l l s e t 0011320 o f E R R O R s w i t h 0011340 a n 377 377 \0 246 002 x @ 376 342 y 377 377 \0 002 0011360 002 d \0 y " m # C a l l s o n 0011400 s i n g l e - a r g u m e n t 0011420 p r o c e d u r e s 377 377 \0 004 002 \b 0011440 \0 T " 021 026 c o m p o n e n t c 0011460 o n s t r u c t o r s ) 377 377 \0 004 0011500 002 \0 \0 } " \t & a n d e x t r a 0011520 c t o r s p r e f e r r e d 0011540 f o r m u l t i p l e - i 377 377 0011560 \0 004 001 370 \0 177 " 001 % K e y w o r d 0011600 c o n s t r u c t o r s , a 0011620 r g u m e n t l i s t s , 377 377 0011640 \0 224 001 d @ 316 341 e 377 377 \0 256 001 v @ 360 0011660 341 w 377 377 001 264 001 v 001 331 ! 177 \n i m p 0011700 l e m e n t s y 377 377 001 264 001 n 002 # 0011720 ! u O K t o O P E N i n 0011740 t e r f a c e t h a t m o d 0011760 u l e l 377 377 \0 234 001 257 @ 320 341 260 377 377 0012000 \0 004 001 244 \0 U ! 253 033 w i t h l o 0012020 w e r c a s e f i r s t l e 0012040 t t e r 377 377 \0 004 001 234 \0 200 ! 245 & a 0012060 v a l u e w i t h s a m e 0012100 n a m e a s i t s t y p 0012120 e b u t 227 377 377 \0 004 001 224 \0 ~ ! 235 0012140 ' o n l y b y l e t t e r 0012160 c a s e d i s t i n c t i o n 0012200 s e x c e p t 377 377 \0 004 001 214 \0 s 0012220 ! 225 N O n a m e s i n s 0012240 a m e s c o p e d i f f e r 0012260 i n g 016 377 377 \0 234 001 247 @ 322 ! 260 017 s 0012300 a m p l e : S a m p l e ; 377 377 0012320 \0 350 001 300 A 020 341 301 377 377 \0 234 001 240 \0 266 0012340 ! 247 \a B E G I N 377 377 \0 224 \0 255 0012360 @ 274 340 256 377 377 \0 225 \0 232 @ 261 340 233 377 377 0012400 \0 224 \0 a @ 274 340 b 377 377 \0 224 \0 D @ 300 0012420 340 E 377 377 \0 002 \0 350 \0 z 357 " i m b 0012440 e d d e d w o r d o f a 0012460 m u l t i - w o r d n a m e \0 0012500 377 377 \0 002 \0 340 \0 h 351 # C a p i t 0012520 a l i z e t h e f i r s t 0012540 l e t t e r o f e a c h 377 377 0012560 \0 \r \0 w \0 w 200 p r o c e d u 0012600 r e , s i g n a l , o r t 0012620 y p e n a m e s 300 377 377 \0 \r \0 o 0012640 \0 ~ x & C a p i t a l i z e 0012660 t h e f i r s t l e t t e r 0012700 o f m o d u l e , @ 377 377 \0 224 0012720 002 266 \0 246 " 275 004 E N D . \0 377 377 \0 224 0012740 002 304 \0 304 * 313 \n C H A N G E L O 0012760 G \0 377 377 \0 224 002 316 001 \a * 327 037 C h a 0013000 n g e d b y : Y o u r N a m 0013020 e : D a t e T i m e 377 377 \0 234 0013040 002 330 \0 344 * 341 023 D e s c r i p t i 0013060 o n O f C h a n g e 377 377 \0 224 002 032 0013100 001 235 " # F R e m o v e S a m p l 0013120 e : P U B L I C P R O C E 0013140 D U R E [ t o B e R e m o v e 0013160 d : S a m p l e , f r o m : 0013200 S a m p l e S e t ] \0 377 377 \0 224 0013220 001 336 001 ~ ! 347 ? N e w S a m p l e 0013240 S e t : P U B L I C P R O 0013260 C E D U R E R E T U R N S 0013300 [ n i l S e t : S a m p l e S 0013320 e t ] = 377 377 \0 224 001 230 001 w ! 241 0013340 = N e w S a m p l e : P U B L 0013360 I C P R O C E D U R E [ v a 0013400 l : V a l u e ] R E T U R 0013420 N S [ S a m p l e ] = 377 377 0013440 \0 234 002 252 \0 256 " 263 004 E N D ; 016 377 377 0013460 \0 234 002 242 \0 246 " 251 005 . . . 377 377 0013500 \0 234 002 234 \0 262 " 243 005 B E G I N 377 377 0013520 \0 224 002 022 \0 337 " 033 022 B u g : E R 0013540 R O R = C O D E ; 204 377 377 \0 246 0013560 002 p A 002 " y 026 E N D C A S E 0013600 = > E R R O R B u g ; 303 377 377 0013620 \0 234 001 306 \0 331 ! 317 020 R E T U R N 0013640 [ s a m p l e ] ; \a 377 377 \0 234 002 200 0013660 \0 256 " 211 004 E N D ; . 377 377 \0 234 002 v 0013700 \0 246 " } 005 . . . 377 377 \0 236 002 > 0013720 001 9 " G + I F . . . T H 0013740 E N E R R O R P r o b l e m 0013760 [ d a m a g e d S a m p l e ] ; 0014000 377 377 \0 364 002 " 001 242 " + 0 R E T U R 0014020 N S [ i n S e t : B O O L E 0014040 A N , s e t M i n u s : S a 0014060 m p l e S e t ] = 306 377 377 \0 234 0014100 002 * 001 032 " 3 ! - - E R R O R s 0014120 : P r o b l e m [ d a m a g e 0014140 d S a m p l e ] 377 377 \0 234 002 004 \0 256 0014160 " \r 004 E N D ; 8 377 377 \0 234 001 346 \0 262 0014200 ! 355 005 B E G I N 377 377 \0 234 001 320 \0 256 0014220 ! 331 004 E N D ; 272 377 377 \0 234 001 276 \0 246 0014240 ! 305 005 . . . 377 377 \0 224 001 x 001 1 0014260 ! 201 + P r o b l e m : E R R O 0014300 R [ r e a s o n : E r r o r C 0014320 o d e ] = C O D E ; 377 377 0014340 \0 320 001 d 001 ' ! m 026 E X P O R T S 0014360 C e d a r S a m p l e = \0 0014400 377 377 \0 224 001 @ \0 275 ! G \t D I R E C 0014420 T O R Y 377 377 \0 224 001 4 001 / ) = 2 - 0014440 - L a s t e d i t e d b y 0014460 M i t c h e l l , A p r i l 0014500 2 3 , 1 9 8 0 3 : 1 9 P 0014520 M \0 377 377 \0 224 001 , \0 374 ) 5 035 - - 0014540 F I L E : C e d a r S a m p l 0014560 e I m p l . m e s a 377 377 \0 214 001 ( 0014600 200 215 342 343 377 377 \0 214 002 342 201 245 342 343 377 377 0014620 001 244 001 ( 201 245 342 342 377 377 \0 214 001 ( 201 244 0014640 341 ) 377 377 \0 \0 002 352 020 017 " 361 003 J G M 0014660 377 377 \0 224 \0 261 001 X 272 3 N e w S a 0014700 m p l e S e t : P R O C E D U 0014720 R E R E T U R N S [ n i l S e 0014740 t : S a m p l e S e t ] ; 377 377 0014760 \0 214 001 201 245 341 ! 377 377 \0 214 \0 030 201 244 0015000 340 031 377 377 \0 224 \0 275 001 ~ 306 = R e m 0015020 o v e S a m p l e : P R O C E 0015040 D U R E [ t o B e R e m o v e d 0015060 : S a m p l e , f r o m : 0015100 S a m p l e S e t ] 377 377 \0 234 001 025 0015120 @ 344 ) 036 023 D e s c r i p t i o n 0015140 O f C h a n g e 377 377 \0 224 001 \v A \a 0015160 ) 024 037 C h a n g e d b y : Y 0015200 o u r N a m e : D a t e T i 0015220 m e 377 377 \0 224 001 001 @ 304 ) \b \n C H A 0015240 N G E L O G \0 377 377 \0 224 \0 365 A @ 0015260 ( 376 5 T h i s i s w h e r e 0015300 a g l o b a l d e s c r i 0015320 p t i o n o f t h e m o d 0015340 u l e g o e s 377 377 \0 224 \0 351 \0 246 0015360 360 004 E N D . \0 377 377 \0 234 \0 315 A 032 0015400 326 ! - - E R R O R s : P r 0015420 o b l e m [ d a m a g e d S a m 0015440 p l e ] 377 377 \0 364 \0 305 001 234 316 . R 0015460 E T U R N S [ i n S e t : B 0015500 O O L E A N , s e t M i n u s 0015520 : S a m p l e S e t ] ; a 377 377 0015540 \0 224 \0 e 001 \a n 037 S a m p l e : 0015560 T Y P E = R E F S a 0015600 m p l e R e c ; 377 377 \0 224 \0 m 001 K 0015620 v 3 S a m p l e R e c : T Y 0015640 P E = R E C O R D [ v a l : 0015660 V a l u e , n e x t : S a 0015700 m p l e ] ; 377 377 \0 200 \0 $ @ 250 340 % 0015720 377 377 \0 225 \0 232 001 p 243 > E r r o r 0015740 C o d e : T Y P E = { d a 0015760 m a g e d S a m p l e , c a l 0016000 l i n g E r r o r , p r o g r 0016020 a m E r r o r } ; \0 377 377 \0 224 \0 E 0016040 \0 252 L 005 B E G I N 377 377 \0 200 \0 034 0016060 @ 201 340 , 377 377 \0 224 \0 & A 3 ( / 3 - 0016100 - L a s t e d i t e d b y 0016120 M i t c h e l l , A p r i l 0016140 2 3 , 1 9 8 0 1 2 : 0 3 0016160 P M 0016162