$ od -c -N 50000 [qv]<IDL>koto>HISTEXAMPLE.DCOM!1
0000000 ( F I L E C R E A T E D " 1 1
0000020 - M a y - 8 7 1 0 : 5 8 : 1 4
0000040 " ( " c o m p i l e d o n
0000060 " { Q V } < P E D E R S E N >
0000100 L I S P > K O T O > H I S T E X
0000120 A M P L E . ; 1 ) \r " 1 2 - N
0000140 o v - 8 5 1 4 : 5 9 : 2 3 "
0000160 b c o m p l ' d i n " I N T
0000200 E R L I S P - D 1 1 - M a y -
0000220 8 6 . . . " d a t e d " 1
0000240 1 - M a y - 8 6 1 5 : 1 9 : 0
0000260 8 " ) \r ( F I L E C R E A T E D
0000300 " 1 9 - M a y - 8 6 1 8 : 0
0000320 6 : 3 3 " { Q V } < P E D E R
0000340 S E N > L I S P > H I S T E X A
0000360 M P L E . ; 4 1 2 8 6 5 c h
0000400 a n g e s t o : ( F N S H
0000420 I S T O . D R A W \r L O G O .
0000440 D R A W L O G O . M A K E B I
0000460 N S L O G O P L O T B M F R
0000500 O M W S N A P S C R E E N )
0000520 ( V A R S H I S T E X A M P L
0000540 E C O M S ) p r e v i o u s
0000560 d a t e : \r " 1 6 - J a n - 8
0000600 6 2 2 : 1 7 : 2 8 " { Q V }
0000620 < P E D E R S E N > L I S P > H
0000640 I S T E X A M P L E . ; 3 ) \r B
0000660 M F R O M W D 1 \r ( P 0 B
0000700 M I 0 W ) \0 036 001 \0 \0 001 @
0000720 g \0 \0 \n \0 \0 @ g \0 \0 \n \0 \0 \n \0 \0
0000740 021 001 \0 @ h d H \f \0 \0 H 020 \0 ( 3 2
0000760 Q B I T B L T 2 0 Q B I T
0001000 M A P C R E A T E 1 5 Q G E
0001020 T W I N D O W P R O P 6 G E
0001040 T W I N D O W P R O P ) \r ( 1 2
0001060 Q H E I G H T 3 W I D T H
0001100 ) \r ( ) \r H I S T O . D R A W
0001120 D 1 \r ( P 1 0 Q H I G H M A
0001140 R K P 7 L O W M A R K P
0001160 6 N U M B E R I N B I N P
0001200 2 N E W S C A L E S P 1
0001220 M A R K S P 0 B I N E D
0001240 N U M B E R S I 0 H I S T
0001260 O G R A M F 1 1 Q S H A D
0001300 E 3 ) \0 { \t 001 \0 001 @ 006 \0 \0 311 \f
0001320 g \0 \0 ' @ 006 \0 \0 311 \f g \0 \0 ' 021 022
0001340 002 I 002 I H 021 3 \b M 003 265 003 216 001 276 L
0001360 003 265 003 207 001 _ 016 277 K 003 265 021 023 @ g \0
0001400 \0 i \v \0 \0 @ \t \0 \0 h 020 001 _ 020 277 N
0001420 j 363 262 ' @ O 016 j O 020 O 016 325 N d o
0001440 \0 \0 \0 O 016 o \0 \0 \0 O 020 \r 005 \0 \0 W
0001460 022 h d i \r \n \0 \0 277 M 002 275 L 002 274 K
0001500 002 273 260 246 \0 ( 1 5 5 Q P L O T F
0001520 I L L E D R E C T A N G L E 1
0001540 4 4 Q C O N C A T 7 6 Q R
0001560 E D R A W P L O T W I N D O W
0001600 7 2 Q R E S C A L E P L O T )
0001620 \r ( 6 6 Q B O T H 2 2 Q M
0001640 A R K S 1 5 Q P L O T 1 0
0001660 Q B I N E D N U M B E R S 3
0001700 P L O T ) \r ( 1 3 6 Q "
0001720 a n d " 1 3 0 Q " O b s
0001740 . b e t w e e n " ) \r H I S
0001760 T O . M A K E B I N S D 1 \r (
0002000 P 2 2 Q M A R K S P 2 1
0002020 Q B I N E D N U M B E R S P
0002040 2 0 Q B I N I N T E R V A L
0002060 P 5 B A T C H M A X P
0002100 4 B A T C H M I N P 3 B
0002120 A T C H P 0 N B I N S I
0002140 0 H I S T O G R A M ) 001 z
0002160 ! \0 \0 001 @ 006 \0 \0 311 \f g \0 \0 ' 021 !
0002200 002 @ 006 \0 \0 311 \f g \0 \0 ' 021 ! 005 K 021
0002220 A \n N 003 265 003 202 261 \0 202 O 016 022 274 K 021
0002240 A 017 O 026 003 265 003 202 261 \0 220 O 030 022 275 L
0002260 M H \v \0 \0 021 001 020 H g \0 \0 j \v \0 \0
0002300 021 021 022 O 002 002 002 001 k O 001 021 3 030
0002320 O ( O & 363 242 261 \0 203 O , 022 O 002 001
0002340 h 032 \n \0 \0 _ $ K 021 ! 033 O 2 003 265 003
0002360 202 261 \0 227 023 @ g \0 \0 H k 331 j 021 2
0002400 O : O 8 363 242 261 \0 277 O < 022 \v \0 \0 @
0002420 g \0 \0 O $ \v \0 \0 020 001 _ 020 _ 024 277 O
0002440 022 225 O 022 O 024 363 231 O 024 _ 022 277 O 020 _
0002460 016 277 N 002 ^ 261 377 ^ 001 _ 032 _ 036 277 O 034
0002500 225 O 036 O 034 363 231 O 036 _ 034 277 O 032 _ 030
0002520 277 O 026 002 _ 026 261 377 N O * _ 0 277 O .
0002540 265 O 0 h 032 _ . _ , 277 O ( k 324 _
0002560 ( 277 O * O 002 002 001 324 _ * 277 261 377 S
0002600 O 0 & _ . 277 260 345 001 _ 4 277 O $ 002 j
0002620 272 Y 003 265 037 h _ 6 277 O " O 6 \n \0 \0
0002640 k 330 O " O 6 \v \0 \0 277 O 2 002 _ 2 261
0002660 377 > 001 O 4 363 225 J 265 336 i 260 333 J k 324
0002700 272 I 002 260 316 O " O : \n \0 \0 _ @ 277 O
0002720 > 265 024 O @ h 032 _ > _ < 277 O : k 324
0002740 _ : 261 377 O @ & _ > 277 260 361 \0 ( 5
0002760 2 7 Q \ A R E F . 1 4 6 4 Q
0003000 \ A S E T . 1 4 5 3 Q \ A
0003020 R E F . 1 2 4 3 Q P L O T P
0003040 R O P 2 3 2 Q P L O T P R O
0003060 P 1 6 0 Q \ N C O N C 2 1
0003100 1 3 Q M A K E - A R R A Y 1
0003120 0 0 Q M A K E B I N I N T E R
0003140 V A L ) \r ( 2 3 6 Q M A R K S
0003160 2 0 4 Q B I N E D N U M B E
0003200 R S 1 0 7 Q : I N I T I A L
0003220 - E L E M E N T 2 5 Q B A T
0003240 C H 2 0 Q P L O T 1 0 Q
0003260 N B I N S 3 P L O T ) \r ( )
0003300 \r H I S T P L O T D 1 \r ( P
0003320 3 N B I N S P 2 T O P L
0003340 A B E L P 1 B A T C H S I
0003360 Z E P 0 H I S T O G R A M
0003400 I 0 B A T C H ) \0 E 004 \0
0003420 \0 001 \b \0 \0 021 001 \0 @ \t \0 \0 021 021 002 o
0003440 \0 \0 \0 272 I \t \0 \0 021 001 003 H g \0 \0 @
0003460 \v \0 \0 H g \0 \0 I \v \0 \0 H g \0 \0 K
0003500 \v \0 \0 H \t \0 \0 H g \0 \0 J i \f \0 \0
0003520 H \t \0 \0 H 020 \0 ( 1 0 1 Q H I S
0003540 T O . D R A W 7 5 Q P L O T
0003560 L A B E L 6 4 Q H I S T O .
0003600 M A K E B I N S 6 0 Q P L O
0003620 T P R O P 5 0 Q P L O T P R
0003640 O P 4 0 Q P L O T P R O P
0003660 2 5 Q N U M B E R - O F - B I
0003700 N S 1 1 Q L E N G T H 2
0003720 C R E A T E P L O T ) \r ( 7 0 Q
0003740 T O P 5 4 Q N B I N S 4
0003760 4 Q B A T C H S I Z E 3 4 Q
0004000 B A T C H ) \r ( 2 0 Q " H
0004020 i s t o g r a m " ) \r L O G O .
0004040 D R A W D 1 \r ( P 1 0 Q H
0004060 I G H M A R K P 7 L O W M
0004100 A R K P 6 N U M B E R I N
0004120 B I N P 2 N E W S C A L E
0004140 S P 1 M A R K S P 0
0004160 B I N E D N U M B E R S I 0
0004200 L O G O G R A M F 1 1 Q
0004220 S H A D E 3 ) \0 { \t 001 \0 001 @ 006
0004240 \0 \0 311 \f g \0 \0 ' @ 006 \0 \0 311 \f g \0
0004260 \0 ' 021 022 002 I 002 I H 021 3 \b M 003 265 003
0004300 216 001 276 L 003 265 003 207 001 _ 016 277 K 003 265 021
0004320 023 @ g \0 \0 i \v \0 \0 @ \t \0 \0 h 020 001
0004340 _ 020 277 N j 363 262 ' @ O 016 j O 020 O 016
0004360 325 N d o \0 \0 \0 O 016 o \0 \0 \0 O 020 \r
0004400 005 \0 \0 W 022 h d i \r \n \0 \0 277 M 002 275
0004420 L 002 274 K 002 273 260 246 \0 ( 1 5 5 Q P
0004440 L O T F I L L E D R E C T A N G
0004460 L E 1 4 4 Q C O N C A T 7
0004500 6 Q R E D R A W P L O T W I N
0004520 D O W 7 2 Q R E S C A L E P
0004540 L O T ) \r ( 6 6 Q B O T H 2
0004560 2 Q M A R K S 1 5 Q P L O
0004600 T 1 0 Q B I N E D N U M B E
0004620 R S 3 P L O T ) \r ( 1 3 6
0004640 Q " a n d " 1 3 0 Q "
0004660 O b s . b e t w e e n " )
0004700 \r L O G O . M A K E B I N S D
0004720 1 \r ( P 3 5 Q I P 2 2 Q
0004740 M A R K S P 2 1 Q B I N
0004760 E D N U M B E R S P 2 0 Q
0005000 B I N I N T E R V A L P 5
0005020 B A T C H M A X P 4 B A T
0005040 C H M I N P 3 B A T C H
0005060 P 0 N B I N S I 0 L O
0005100 G O G R A M ) 001 177 ! \0 \0 001 @ 006
0005120 \0 \0 311 \f g \0 \0 ' 021 ! 002 @ 006 \0 \0 311
0005140 \f g \0 \0 ' 021 ! 005 K 021 A \n N 003 265 003
0005160 202 261 \0 202 O 016 022 274 K 021 A 017 O 026 003 265
0005200 003 202 261 \0 220 O 030 022 275 L M H \v \0 \0 021
0005220 001 020 H g \0 \0 j \v \0 \0 021 021 022 O 002
0005240 002 002 001 k O 001 021 3 030 O ( O & 363 242
0005260 261 \0 203 O , 022 O 002 001 h 032 \n \0 \0 _
0005300 $ K 021 ! 033 O 2 003 265 003 202 261 \0 227 023 @
0005320 g \0 \0 H k 331 j 021 2 O : O 8 363 242
0005340 261 \0 277 O < 022 \v \0 \0 @ g \0 \0 O $ \v
0005360 \0 \0 020 001 _ 020 _ 024 277 O 022 225 O 022 O 024
0005400 363 231 O 024 _ 022 277 O 020 _ 016 277 N 002 ^ 261
0005420 377 ^ 001 _ 032 _ 036 277 O 034 225 O 036 O 034 363
0005440 231 O 036 _ 034 277 O 032 _ 030 277 O 026 002 _ 026
0005460 261 377 N O * _ 0 277 O . 265 O 0 h 032
0005500 _ . _ , 277 O ( k 324 _ ( 277 O * O
0005520 002 002 001 324 _ * 277 261 377 S O 0 & _ . 277
0005540 260 345 001 _ 4 277 O $ 002 j 272 Y 003 265 037 h
0005560 _ 6 277 O " O 6 \n \0 \0 k 330 O " O 6
0005600 \v \0 \0 277 O 2 002 _ 2 261 377 > 001 O 4 363
0005620 225 J 265 336 i 260 333 J k 324 272 I 002 260 316 O
0005640 " O : \n \0 \0 k 330 \t \0 \0 _ @ 277 O >
0005660 265 024 O @ h 032 _ > _ < 277 O : k 324 _
0005700 : 261 377 033 O @ & _ > 277 260 361 \0 ( 5 3
0005720 4 Q L O G 5 2 7 Q \ A R E
0005740 F . 1 4 6 4 Q \ A S E T . 1
0005760 4 5 3 Q \ A R E F . 1 2 4
0006000 3 Q P L O T P R O P 2 3 2 Q
0006020 P L O T P R O P 1 6 0 Q \
0006040 N C O N C 2 1 1 3 Q M A K E
0006060 - A R R A Y 1 0 0 Q M A K E
0006100 B I N I N T E R V A L ) \r ( 2 3
0006120 6 Q M A R K S 2 0 4 Q B I
0006140 N E D N U M B E R S 1 0 7 Q
0006160 : I N I T I A L - E L E M E N T
0006200 2 5 Q B A T C H 2 0 Q P
0006220 L O T 1 0 Q N B I N S 3
0006240 P L O T ) \r ( ) \r L O G O P L O
0006260 T D 1 \r ( P 3 N B I N S
0006300 P 2 T O P L A B E L P 1
0006320 B A T C H S I Z E P 0 L
0006340 O G O G R A M I 0 B A T C
0006360 H ) \0 E 004 \0 \0 001 \b \0 \0 021 001 \0 @
0006400 \t \0 \0 021 021 002 o \0 \0 \0 272 I \t \0 \0 021
0006420 001 003 H g \0 \0 @ \v \0 \0 H g \0 \0 I \v
0006440 \0 \0 H g \0 \0 K \v \0 \0 H \t \0 \0 H g
0006460 \0 \0 J i \f \0 \0 H \t \0 \0 H 020 \0 ( 1
0006500 0 1 Q L O G O . D R A W 7 5
0006520 Q P L O T L A B E L 6 4 Q
0006540 L O G O . M A K E B I N S 6 0
0006560 Q P L O T P R O P 5 0 Q P
0006600 L O T P R O P 4 0 Q P L O T
0006620 P R O P 2 5 Q N U M B E R -
0006640 O F - B I N S 1 1 Q L E N G
0006660 T H 2 C R E A T E P L O T )
0006700 \r ( 7 0 Q T O P 5 4 Q N B
0006720 I N S 4 4 Q B A T C H S I Z
0006740 E 3 4 Q B A T C H ) \r ( 2
0006760 0 Q " L o g o g r a m " ) \r N
0007000 U M B E R - O F - B I N S D 1
0007020 \r ( I 0 N ) \0 \f \0 \0 \0 001 @
0007040 \t \0 \0 l \n 326 \t \0 \0 020 \0 ( 1 1 Q
0007060 F I X R 3 P L O T . L O G 1
0007100 0 ) \r N I L \r ( ) \r M A K E B I
0007120 N I N T E R V A L D 1 \r ( I
0007140 3 I N T F L G I 2 N B I
0007160 N S I 1 B A T C H M A X
0007200 I 0 B A T C H M I N ) \0 3
0007220 001 \0 \0 004 @ A B k 330 \v \0 \0 021 001 \0 H
0007240 006 \0 \0 d 310 \0 375 310 001 321 355 \0 H 006 \0 \0
0007260 d 310 002 375 310 003 321 355 \0 H 006 \0 \0 311 004 B
0007300 h 032 032 032 032 020 \0 ( 7 S C A L E )
0007320 \r ( 5 0 Q T I C I N F O 3 3
0007340 Q T I C I N F O 1 6 Q T I
0007360 C I N F O ) \r ( ) \r S N A P S C
0007400 R E E N D 1 \r ( I 1 S C A
0007420 L E I 0 B M ) \0 025 \0 \0 \0
0007440 002 @ 265 \b ` \0 \0 \t \0 \0 A 265 006 o \0 \0
0007460 \0 \n \0 \0 020 \0 ( 2 2 Q B I T M A
0007500 P T E D I T O B J 1 0 Q B I
0007520 T M A P C O P Y ) \r ( 5 S c r
0007540 e e n B i t M a p ) \r ( 1 7 Q
0007560 . 5 ) \r ( P R E T T Y C O M P
0007600 R I N T H I S T E X A M P L E
0007620 C O M S ) \r ( R P A Q Q H I S
0007640 T E X A M P L E C O M S ( ( F
0007660 N S B M F R O M W H I S T O
0007700 . D R A W H I S T O . M A K E
0007720 B I N S H I S T P L O T L O
0007740 G O . D R A W L O G O . M A K
0007760 E B I N S \r L O G O P L O T
0010000 N U M B E R - O F - B I N S M
0010020 A K E B I N I N T E R V A L S
0010040 N A P S C R E E N ) ( R E C O
0010060 R D S B I N I N T E R V A L )
0010100 ( V A R S D A T A ) ) ) \r (
0010120 R E C O R D B I N I N T E R V
0010140 A L ( B I N M I N B I N M A
0010160 X B I N I N C N B I N S ) )
0010200 \r ( R P A Q Q D A T A ( . 2
0010220 6 9 6 7 2 8 . 2 9 6 8 2 3 6
0010240 - . 7 8 7 6 3 0 2 . 6 2 2 2 5
0010260 9 6 . 2 1 9 6 5 4 9 . 1 8 9
0010300 8 4 5 4 . 6 2 5 9 2 7 1 . 6
0010320 3 7 6 1 6 8 . 8 8 3 9 0 0 8
0010340 \r . 1 1 5 4 8 2 4 . 7 4 3 7 8
0010360 9 4 . 4 8 9 1 7 1 1 - . 3 6
0010400 5 2 2 9 2 . 1 5 3 9 8 7 5 -
0010420 . 3 7 7 3 9 3 1 - . 5 5 9 5 3
0010440 5 4 . 7 5 6 0 9 9 1 - . 9 7
0010460 5 5 1 5 2 - . 9 9 6 8 5 1 8
0010500 \r - . 6 6 3 8 7 8 7 - . 6 6 2
0010520 3 8 3 - . 8 6 8 2 7 7 8 - .
0010540 4 6 3 6 1 1 2 . 7 8 0 1 3 6
0010560 . 8 9 8 3 8 6 6 - . 8 4 7 3 7
0010600 7 2 . 8 5 1 5 8 0 4 - . 9 9
0010620 1 0 4 8 8 . 6 6 8 8 7 0 5 -
0010640 . 9 2 1 0 1 4 \r - . 5 4 5 6 7
0010660 3 9 - . 3 6 9 3 0 0 8 . 9 8
0010700 4 7 1 6 . 7 2 3 6 3 7 5 . 7
0010720 4 2 6 1 9 2 . 3 2 1 5 0 1 2
0010740 . 1 5 0 6 8 2 - . 3 8 9 9 2 1
0010760 3 . 1 0 9 0 9 5 6 . 7 5 6 4
0011000 0 1 7 . 2 3 2 2 1 6 6 \r - .
0011020 8 3 9 3 0 7 6 - . 9 5 2 9 1 7
0011040 - . 5 9 0 2 1 8 7 - . 9 3 5
0011060 3 6 5 4 . 9 5 1 7 1 5 2 . 9
0011100 3 6 6 8 5 8 . 6 4 3 0 4 9 9
0011120 . 4 4 1 2 5 0 7 . 2 4 9 8 1 6
0011140 8 . 8 9 5 4 6 0 4 - . 5 6 9
0011160 4 2 8 9 \r - . 9 9 2 4 7 9 8
0011200 - . 6 1 1 5 2 4 7 - . 9 2 7 6
0011220 8 3 - . 7 9 3 4 2 0 8 - . 8
0011240 8 0 6 3 2 - . 7 6 8 1 3 2 1
0011260 . 9 2 9 2 7 7 2 . 7 0 4 8 1 5
0011300 7 . 9 6 5 7 5 2 8 - . 7 9 4
0011320 3 0 5 1 \r - . 6 6 4 3 8 4 2
0011340 - . 4 8 0 2 3 0 5 . 6 6 4 2 2
0011360 3 3 - . 7 0 7 6 0 2 9 - . 2
0011400 3 7 2 2 2 3 - . 4 7 4 7 0 1 8
0011420 - . 7 9 2 4 2 0 2 - . 5 1 7
0011440 2 2 0 6 - . 4 6 7 8 0 5 1 .
0011460 8 3 3 2 5 \r - . 6 0 4 2 7 0 5
0011500 - . 4 3 4 0 6 8 6 . 7 0 4 8
0011520 8 0 6 - . 4 9 0 5 1 0 5 . 7
0011540 5 5 2 1 0 6 - . 4 7 9 4 9 9 2
0011560 - . 1 3 2 0 0 5 8 . 8 1 7 1
0011600 2 5 5 . 9 5 4 7 0 8 6 . 7 0
0011620 7 6 0 2 9 \r . 7 7 9 6 4 6 8
0011640 . 7 6 4 0 8 9 - . 5 8 7 3 9 4
0011660 - . 4 8 0 0 3 9 9 - . 7 1 0
0011700 9 5 9 . 6 4 1 1 4 8 8 - . 4
0011720 9 5 7 0 9 1 - . 9 4 3 2 4 4 2
0011740 - . 6 2 9 2 3 3 7 - . 9 5 9
0011760 6 9 8 2 - . 9 6 2 6 5 1 \r -
0012000 . 6 0 0 1 4 0 4 - . 4 0 0 4 2
0012020 4 - . 8 5 2 7 8 0 2 - . 6 3
0012040 1 4 6 0 8 . 6 7 6 0 8 6 . 9
0012060 1 6 5 4 6 6 - . 6 0 9 7 2 5 5
0012100 0 . 0 0 . 0 0 . 0 0 . 0
*
0012140 0 . 0 \r 0 . 0 0 . 0 0 .
0012160 0 0 . 0 0 . 0 0 . 0 0 .
*
0012300 0 0 . 0 0 . 0 \r 0 . 0 0
0012320 . 0 0 . 0 0 . 0 0 . 0 0
*
0012440 . 0 0 . 0 0 . 0 0 . 0 \r
0012460 0 . 0 0 . 0 0 . 0 0 . 0
*
0012620 0 . 0 \r 0 . 0 0 . 0 0 . 0
0012640 0 . 0 0 . 0 0 . 0 0 . 0
*
0012720 0 . 0 ) ) \r ( P U T P R O P S
0012740 H I S T E X A M P L E C O P
0012760 Y R I G H T ( " X e r o x C
0013000 o r p o r a t i o n " 1 9 8 6
0013020 ) ) \r N I L \r
0013027