$ od -c -N 50000 [eris]<Lisp>Harmony>uCode>STAMPVERSIONS.DM!1
0000000 377 \0 \0 S t a m p V e r s i o n s
0000020 . r u n \0 373 232 / 274 201 \0 \0 376 001 \0 024
0000040 367 003 001 \0 004 \0 \0 \0 \f \0 \0 \0 \0 \0 \0 \0
0000060 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 377 377 377
0000100 377 377 377 377 377 377 377 377 377 377 377 377 377 377 377 377
*
0000160 377 002 \0 002 377 003 001 004 200 004 200 \0 \0 \0 \0 \0
0000200 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
*
0000440 \0 376 001 \0 221 244 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0000460 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
*
0001000 \0 \0 \0 \0 003 001 003 [ 003 265 004 4 \0 9 200 \a
0001020 \0 . \0 K \0 I \0 M \0 Q \0 L 200 \b \0 N
0001040 \0 003 200 032 \0 \0 376 001 \0 001 \0 \0 \0 \0 \0 \0
0001060 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
*
0001440 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 376 001 \0 ) <
0001460 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
*
0002000 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 Z 001 \f 370
0002020 \0 ` \f 367 ! Q 306 \0 B 004 375 P Z 003 % M
0002040 255 P i L \0 003 B 005 " 005 * 004 i H \0 002
0002060 376 001 \0 230 L " 005 * 004 i D \0 002 9 Q Z
0002100 003 " 004 ) O i O \0 003 B 006 " 006 202 \f 001
0002120 021 \t \v 022 - - f i l e n o t
0002140 f o u n d \0 342 \0 212 \0 " 004 i L \0
0002160 002 " 005 i J \0 001 B \a " 005 i F \0 001 B
0002200 \b " 005 i B \0 001 B \t " 005 i X \0 001 9
0002220 W Z 003 " 006 255 \0 i T \0 003 " 006 * \a i
0002240 Q \0 002 " 006 * \b i M \0 002 " 006 * \t i
0002260 I \0 002 " 006 i C \0 001 \f 353 \0 017 002 006 002
0002300 005 002 002 \f 366 Z 001 \f 370 \0 \v \f 367 375 \0 Z
0002320 006 " 004 i C \0 001 202 \r 001 006 ! @ 001 \b \0
0002340 002 \0 003 002 \a " 004 i ; \0 001 001 001 B \a 001
0002360 3 " 006 201 K 001 \n " 006 * 005 202 300 \f 360 377
0002400 \0 " 005 001 : 002 004 002 003 " 004 i ' \0 001 202
0002420 \r 001 024 \t 020 035 P r e m a t u r e
0002440 e n d o f c o m m a n d l
0002460 i n e 342 \0 376 001 \0 275 r i 350 \0 001 001 036
0002500 002 \b \0 200 002 \t 002 \n " 006 203 \0 B 006 : \a
0002520 Z 003 " 005 * 006 \f 364 001 021 " \a 001 \b 002 \v
0002540 \0 \r 002 \f \f 355 \0 \v \f 355 \0 \b \f 351 \0 002
0002560 \0 377 302 \0 \r 377 300 001 350 001 256 \f 366 Z 001
0002600 \f 370 \0 020 \f 367 375 \0 Z 005 375 \0 Z 006 " 004
0002620 i 347 \0 001 202 \r 001 003 ! 344 001 005 " 004 i 342
0002640 \0 001 001 001 B \a 001 Y : 005 372 \r 001 003 " 006
0002660 001 e " 004 i 325 \0 001 202 \r 001 024 \t 020 035 P
0002700 r e m a t u r e e n d o f
0002720 c o m m a n d l i n e 342 \0 i 226
0002740 \0 001 001 K " \a 9 = 345 J 001 005 " \a 9 :
0002760 344 J 001 $ ! 266 306 \0 B \b ! 5 * \b \f 360
0003000 377 \0 " \a * \b \f 360 \0 377 \t 024 % I n v
0003020 a l i d c h a r a c t e r i
0003040 n o c t a l c o n s t a n t
0003060 : 342 \0 * \b i 030 \0 002 376 \0 362 242 255 374
0003100 \0 Z 005 " 006 ) 024 \f 346 * \a 9 \r 355 \0 246
0003120 \0 B 006 001 025 \f 355 \0 003 \f 355 \0 022 " \a 001
0003140 \b \f 355 \0 \r \0 0 \0 7 001 \0 002 004 \0 003 \f
0003160 351 \0 002 \0 377 234 \0 \r 377 232 001 267 001 213 \f
0003200 366 Z 001 \f 370 \0 \f \f 367 B 006 = ? 372 \r 001
0003220 003 205 \0 001 \b 375 P Z 003 % 9 ) 9 i 9 \0
0003240 003 001 001 B \a : \a 372 \r 001 + " \a i 2 \0
0003260 001 \t 003 003 / / 342 \0 212 \0 " \a i + \0
0003300 002 " \a * 004 i ' \0 002 " 006 375 P 344 J 001
0003320 \f : 005 372 \r 001 \t : 005 ; \0 372 \r 001 005 "
0003340 \a * 005 i 030 \0 002 \t 002 001 \r 342 \0 212 \0 "
0003360 \a i 021 \0 002 " \a i 017 \0 001 \f 353 001 005 "
0003400 004 * 005 i \n \0 002 \f 366 002 \0 002 \r \0 002 002
0003420 005 002 016 002 017 002 \b 002 020 002 017 002 \a 002 005 002
0003440 \t 002 \b 002 \f 002 \n 002 016 002 \v 002 006 002 \r 002
0003460 020 377 \0 \0 S t a m p V e r s i o n
0003500 s . s y m s \0 373 232 / 274 202 \0 \0 376 001
0003520 \0 203 240 002 006 \0 347 \0 020 \0 224 \0 331 \0 342 \0
0003540 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0003560 \0 \0 \0 \0 204 020 C r e a t e D i s k
0003600 S t r e a m \0 006 C l o s e s \0 \b
0003620 C a l l S w a t \0 \n d o n t G i
0003640 v e U p \0 006 E n d o f s \0 \a f p
0003660 C o m C m \a f p R e m C m 006 G i
0003700 v e U p \0 004 G e t s \0 \b O p e n
0003720 F i l e \0 004 P u t s \0 \t R e a d
0003740 T o k e n \n R e a d N u m b e r
0003760 \0 006 R e s e t s \0 021 S t a m p V
0004000 e r s i o n s . R U N 020 S t a m
0004020 p V e r s i o n s . X C \0 022 S t
0004040 a m p V e r s i o n s . S Y M S
0004060 \0 020 S t a m p V e r s i o n s .
0004100 B S \0 020 S t a m p V e r s i o n
0004120 s . B 376 \0 316 350 * R \0 006 S Y S . B
0004140 K \0 \r S t a m p V e r s i o n s
0004160 \n S e t F i l e P o s \0 003 W s s
0004200 \0 021 \0 023 \f 001 002 \0 \0 \0 \0 u 024 001 002 001
0004220 003 001 \0 4 024 001 002 002 003 [ \0 9 024 001 002 003
0004240 003 265 \0 % 024 001 002 004 004 4 \0 001 020 002 002 005
0004260 \0 9 \0 035 \b 002 002 006 200 \a \0 , 020 002 002 \a
0004300 \0 . \0 \n 020 002 002 \b \0 K \0 | 020 002 002 \t
0004320 \0 I \0 1 020 002 002 \n \0 M \0 031 020 002 002 \v
0004340 \0 Q \0 ) 020 002 002 \f \0 L \0 ! \b 002 002 \r
0004360 200 \b \0 ? 020 002 002 016 \0 N \0 202 020 002 002 017
0004400 \0 003 \0 016 020 002 002 020 200 032 \0 002 \0 h \0 001
0004420 003 \0 001 200 \0 q \0 001 \0 \0 \0 \0 \0 001 \0 C
0004440 \0 \0 003 \0 004 200 377 \0 \0 S t a m p v e
0004460 r s i o n s . b c p l \0 373 232 / 274
0004500 r \0 \0 376 001 \0 372 221 / / S t a m p
0004520 V e r s i o n s . b c p l .
0004540 P u t s v e r s i o n n u m
0004560 b e r s i n t o . e b f i
0004600 l e s . \r / / C r e a t e d
0004620 D e c e m b e r 2 1 , 1 9 8
0004640 2 4 : 4 3 P M b y B i
0004660 l l v a n M e l l e \r \r \t g
0004700 e t " A l t o F i l e S y s .
0004720 d " \r \t g e t " S t r e a m s
0004740 . d " \r \r e x t e r n a l [ \t
0004760 \t / / O . S . p r o c e d u
0005000 r e s \r \t R e s e t s ; C l o
0005020 s e s ; C r e a t e D i s k S
0005040 t r e a m ; O p e n F i l e \r
0005060 \t E n d o f s ; G e t s ; P
0005100 u t s ; S e t 376 001 \0 w & F i l
0005120 e P o s ; W s s \r \t C a l l S
0005140 w a t \r \r \t \t / / O S s t a
0005160 t i c s \r \t f p C o m C m ;
0005200 f p R e m C m \r \t ] \r \r s t a t
0005220 i c \t [ \r \t d o n t G i v e U p
0005240 = f a l s e \r \t ] \r \r m a n
0005260 i f e s t [ \r \t L i s p V e r
0005300 s i o n S t a r t = # 2 0 0
0005320 \r \t ] \r \r s t r u c t u r e S
0005340 t r i n g : [ l e n g t h
0005360 b y t e ; c h a r ^ 1 , 2 5 5
0005400 b y t e ] \r \r \r l e t S t
0005420 a m p V e r s i o n s ( ) b e
0005440 \r [ \r / / R e a d c o m m a
0005460 n d l i n e : f o r m a t
0005500 i s \r / / S t a m p V e 376 001 \0
0005520 035 t r s i o n s < f i l e n a
0005540 m e > < R a m V e r s i o n >
0005560 < M i n B c p l F o r R a m >
0005600 < M i n L i s p F o r R a m >
0005620 \r \r l e t n a m e = v e c
0005640 8 0 \r l e t c o m F i l e
0005660 = C r e a t e D i s k S t r e
0005700 a m ( f p C o m C m , k s T y
0005720 p e R e a d O n l y , c h a r
0005740 I t e m ) \r R e a d T o k e n (
0005760 c o m F i l e , n a m e ) \t \t
0006000 / / s k i p o v e r " S t
0006020 a m p V e r s i o n s . r u n
0006040 " \r R e a d T o k e n ( c o m F
0006060 i l e , n a m e ) \r l e t e
0006100 b F i l e = O p e n F i l e
0006120 ( n 376 001 \0 356 { a m e , k s T y
0006140 p e R e a d W r i t e , w o r
0006160 d I t e m ) \r i f e b F i l e
0006200 e q 0 \r t h e n G i
0006220 v e U p ( n a m e , " - -
0006240 f i l e n o t f o u n d "
0006260 ) \r l e t R a m V e r s i o n
0006300 = R e a d N u m b e r ( c o
0006320 m F i l e ) \r l e t M i n B c
0006340 p l F o r R a m = R e a d N
0006360 u m b e r ( c o m F i l e ) \r l
0006400 e t M i n L i s p F o r R a m
0006420 = R e a d N u m b e r ( c o
0006440 m F i l e ) \r C l o s e s ( c o
0006460 m F i l e ) \r S e t F i l e P o
0006500 s ( e b F i l e , 0 , L i s
0006520 p V e r s i o 376 001 \0 033 364 n S t a
0006540 r t ) \r P u t s ( e b F i l e ,
0006560 R a m V e r s i o n ) \r P u t
0006600 s ( e b F i l e , M i n B c p
0006620 l F o r R a m ) \r P u t s ( e b
0006640 F i l e , M i n L i s p F o r
0006660 R a m ) \r C l o s e s ( e b F i
0006700 l e ) \r f i n i s h \r ] \r \r a n
0006720 d R e a d T o k e n ( s t ,
0006740 b o d y ) = v a l o f \r [ \r
0006760 l e t b o d y l e n = 0 \r
0007000 \t [ \t \t \t \t / / b e g i n l
0007020 o o p \r \t l e t c h = E n
0007040 d o f s ( s t ) ? $ * N , G
0007060 e t s ( s t ) \r \t s w i t c h o
0007100 n c h i n t o \r \t [ \r
0007120 \t c a s e $ * S 376 001 \0 [
0007140 ) : c a s e $ * N : \t \t \t /
0007160 / e n d o f t o k e n \r \t
0007200 \t i f b o d y l e n g r 0
0007220 \r \t \t t h e n [ b o d
0007240 y > > S t r i n g . l e n g t h
0007260 = b o d y l e n \r \t \t \t
0007300 r e s u l t i s b o d y \r \t \t
0007320 \t ] \r \t \t i f E n d o f s ( s
0007340 t ) \r \t \t t h e n G i v
0007360 e U p ( " P r e m a t u r e
0007400 e n d o f c o m m a n d l
0007420 i n e " ) \r \t \t e n d c a s e \r
0007440 \t d e f a u l t : \r \t \t b
0007460 o d y l e n = b o d y l e n
0007500 + 1 \r \t \t b o d y > > S t r i n
0007520 g . c h a r ^ b o d y l e n =
0007540 376 001 \0 327 250 c h \r \t ] \r \t
0007560 ] r e p e a t \r \r ] \r \r a n
0007600 d R e a d N u m b e r ( s t )
0007620 = v a l o f \r [ \r l e t c
0007640 h a r f o u n d = f a l s e
0007660 \r l e t r e s u l t = 0 \r
0007700 \t [ \t \t \t \t / / b e g i n l
0007720 o o p \r \t l e t c h = E n
0007740 d o f s ( s t ) ? $ * N , G
0007760 e t s ( s t ) \r \t s w i t c h o
0010000 n c h i n t o \r \t [ \r
0010020 \t c a s e $ * S : c a
0010040 s e $ * N : \t \t \t / / e n d
0010060 o f t o k e n \r \t \t i f c
0010100 h a r f o u n d \r \t \t t h
0010120 e n r e s u l t i s r e s u
0010140 l t \r \t \t i 376 001 \0 F \f f E n d
0010160 o f s ( s t ) \r \t \t t h e
0010200 n G i v e U p ( " P r e m a
0010220 t u r e e n d o f c o m m
0010240 a n d l i n e " ) \r \t \t e n d
0010260 c a s e \r \t d e f a u l t
0010300 : \r \t \t i f ( c h l s $ 0
0010320 ) % ( c h g r $ 7 ) \r \t
0010340 \t t h e n [ \r \t \t \t l e
0010360 t s t r = v e c 2 \r \t \t
0010400 \t s t r > > S t r i n g . l e n
0010420 g t h = 1 \r \t \t \t s t r > >
0010440 S t r i n g . c h a r ^ 1 =
0010460 c h \r \t \t \t G i v e U p ( " I n
0010500 v a l i d c h a r a c t e r
0010520 i n o c t a l c o n s t a n
0010540 t : " , \r \t \t \t \t s 376 001 \0 342 \f
0010560 t r ) \r \t \t \t ] \r \t \t c h a r f
0010600 o u n d = t r u e \r \t \t r e
0010620 s u l t = ( r e s u l t l
0010640 s h i f t 3 ) + ( c h -
0010660 $ 0 ) \r \t ] \r \t ] r e
0010700 p e a t \r \r ] \r \r a n d G i
0010720 v e U p ( s t r 1 , s t r 2 ;
0010740 n u m a r g s n a ) b e \r
0010760 [ \r l e t s t =
0011000 d o n t G i v e U p ? 0 ,
0011020 C r e a t e D i s k S t r e a m
0011040 ( f p R e m C m , k s T y p e
0011060 W r i t e O n l y , c h a r I
0011100 t e m ) \r t e s t s t \r
0011120 i f s o [ R e s
0011140 e t s ( s t ) \r \t W s
0011160 376 \0 354 306 236 s ( s t , " / / "
0011200 ) \t / / w r i t e s t r o
0011220 n r e m . c m f o r c l e
0011240 a n e r c r a s h \r \t
0011260 W s s ( s t , s t r 1 ) \r \t
0011300 i f ( n a g r 1
0011320 ) & s t r 2 & ( s t r 2
0011340 ! 0 ) \r \t \t t h e n W s s ( s
0011360 t , s t r 2 ) \r \t W
0011400 s s ( s t , " * N " ) \r \t
0011420 C l o s e s ( s t ) \r \t
0011440 f i n i s h \r \t ]
0011460 \r i f n o t C a l l
0011500 S w a t ( s t r 1 , s t r 2
0011520 ) \r ] 032 ( 1 7 9 2 ) \r \r 032
0011540 \r 377 \0 \0 L o a d S t V . c m \0 373
0011560 232 / 271 177 \0 \0 376 \0 @ 326 \0 / / t o
0011600 b u i l d r u n f i l e
0011620 f o r S t a m p V e r s i o
0011640 n s \r \r b l d r / f l v S t a
0011660 m p V e r s i o n s \r 377 \0 \0 S t
0011700 a m p v e r s i o n s . C m \0 373
0011720 232 / 274 357 \0 \0 376 \0 S 360 003 S t a m p
0011740 V e r s i o n s . r u n S t a
0011760 m p V e r s i o n s . s y m s
0012000 S t a m p v e r s i o n s . b c
0012020 p l L o a d S t V . c m S t
0012040 a m p v e r s i o n s . C m 374
0012057