$ od -c -N 50000 [Indigo]<Cedar>Documentation>stylesheet.sil!2
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