$ od -c -N 50000 [phylum]<LISP>Lyric>Lispusers>STEP-COMMAND-MENU.DFASL!1
0000000 221 \0 005 X C L C o m p i l e r
0000020 o u t p u t f o r s o u r c
0000040 e f i l e { D S K } < L I S
0000060 P F I L E S > M A T T > S T E P
0000100 - C O M M A N D - M E N U . ; 1
0000120 1 \r S o u r c e f i l e c r
0000140 e a t e d T u e s d a y , 2
0000160 9 S e p t e m b e r 1 9 8 7
0000200 , 1 2 : 0 3 : 0 8 . \r F A S L
0000220 f i l e c r e a t e d T u
0000240 e s d a y , 2 9 S e p t e m
0000260 b e r 1 9 8 7 , 1 2 : 0 3 :
0000300 3 1 . \r 377 235 226 002 031 o \0 \0 \0 g \0 \0
0000320 g \0 \0 \v \0 \0 021 021 001 o \0 \0 \0 \t \0 \0
0000340 020 \0 002 001 230 225 214 016 F I L E C R E A
0000360 T E D L O C 002 \0 230 217 214 020 * S T A
0000400 N D A R D - I N P U T * 230 214 020 1
0000420 t o p - l e v e l f o r m 002
0000440 \0 \0 \0 230 220 214 \b F U N C T I O N 230
0000460 223 001 200 002 025 230 225 214 020 D E F I N E -
0000500 F I L E - I N F O \v 230 217 214 004 O P
0000520 E N 002 \b 230 220 214 006 O U T P U T 005 230
0000540 220 214 \t D I R E C T I O N 002 021 230 223
0000560 004 230 220 214 \t R E A D T A B L E 230 214
0000600 003 X C L 230 220 214 \a P A C K A G E 230
0000620 214 \t I N T E R L I S P 001 230 214 006 {
0000640 N u l l } \0 235 226 \0 / g \0 \0 g \0 \0
0000660 o \0 \0 \0 \v \0 \0 277 ` \0 \0 g \0 \0 360 223
0000700 i 027 \0 \0 ` \0 \0 g \0 \0 360 223 k 027 \0 \0
0000720 o \0 \0 \0 \t \0 \0 020 \0 230 214 021 4 t o
0000740 p - l e v e l f o r m s \0 \0 \0
0000760 \0 231 003 230 223 001 200 002 + 230 217 214 \b P R O
0001000 C L A I M \v 230 225 214 \a P U T P R O
0001020 P \b $ 230 222 214 * S T E P - C O M
0001040 M A N D - I N V E R T - M E N U
0001060 - S H A D E * 230 221 230 214 004 U S E R
0001100 036 230 225 214 006 N O B I N D 033 231 025 030 230
0001120 225 214 023 * S T E P - C O M M A N D
0001140 - M E N U * 022 231 026 017 231 027 004 230 225 214
0001160 \t F I L E D A T E S 001 230 225 214 021 S
0001200 T E P - C O M M A N D - M E N U
0001220 002 ' 230 223 003 230 217 214 \a S P E C I A L
0001240 231 027 231 025 \a 230 223 001 230 224 002 230 214 022 2 9
0001260 - S e p - 8 7 1 2 : 0 3 : 0 8
0001300 225 214 * { D S K } < L I S P F I L
0001320 E S > M A T T > S T E P - C O M
0001340 M A N D - M E N U . ; 1 1 \0 234 230
0001360 222 214 022 S T E P - C O M M A N D -
0001400 A F T E R 231 024 226 003 . Q \t \0 \0 270 R
0001420 223 j S 377 200 h 262 037 H g \0 \0 \n \0 \0 \t
0001440 \0 \0 277 H g \0 \0 h \v \0 \0 277 H g \0 \0
0001460 h \v \0 \0 020 h 020 \0 003 001 230 217 214 \t * S
0001500 T E P - I O * 003 002 231 027 003 003 230 217 214
0001520 030 * S T E P - I N D E N T A T I
0001540 O N - L E V E L * 231 037 001 003 \0 \0 231
0001560 003 230 223 001 200 005 ( 230 225 214 \r P U T W I
0001600 N D O W P R O P 037 231 # 026 230 225 214 \f
0001620 R E M O V E W I N D O W 023 230 225 214
0001640 021 G E T W I N D O W U S E R P R
0001660 O P 002 230 225 214 \a W F R O M D S 003 $
0001700 230 222 214 \n S T E P - E V E N T 231 024
0001720 033 230 222 214 \n S T E P - M E N U W 231
0001740 024 020 231 ( \0 \0 234 230 222 214 024 S T E P -
0001760 C O M M A N D - A S K U S E R 231
0002000 024 226 003 H R 262 > S \t \0 \0 g \0 \0 \n \0
0002020 \0 270 H Q \n \0 \0 277 H g \0 \0 i \v \0 \0
0002040 277 H g \0 \0 \n \0 \0 \t \0 \0 277 H g \0 \0
0002060 h \v \0 \0 277 H Q \n \0 \0 277 H g \0 \0 \n
0002100 \0 \0 020 @ A B C \f \0 \0 020 \0 003 001 231 025
0002120 003 002 231 027 003 003 231 231 ) 001 003 \0 004 231 003
0002140 230 223 001 230 223 004 230 214 004 W A I T 230 214 \a
0002160 D E F A U L T 230 214 004 M E S S 230 214
0002200 \a K E Y L I S T \n D 230 225 214 \a A S
0002220 K U S E R < 231 % 4 230 225 214 \a I N V
0002240 E R T W . 231 # % 230 225 214 \v A W A I
0002260 T . E V E N T " 231 % 032 231 # 021 231 1
0002300 \v 231 % 005 231 & 005 9 230 222 214 \n S T E P
0002320 - V A L U E 231 024 * 230 222 214 \v S T E
0002340 P - A C T I V E 231 024 037 231 ' 026 231 4
0002360 \b 231 ( \0 \0 234 230 222 214 036 S T E P - C
0002400 O M M A N D - A S K U S E R - M
0002420 E N U S E L F N 231 024 226 \0 ' A \t \0
0002440 \0 270 H g \0 \0 \n \0 \0 262 030 H g \0 \0 @
0002460 002 001 \v \0 \0 277 H g \0 \0 \n \0 \0 \t \0 \0
0002500 020 h 020 \0 231 5 001 \0 \0 003 231 003 230 223 001 230
0002520 223 003 230 214 004 I T E M 230 214 004 M E N U
0002540 230 214 006 B U T T O N 005 ! 230 225 214 \f N
0002560 O T I F Y . E V E N T 036 231 % 026 231
0002600 # \n 231 % 002 230 225 214 \t W F R O M M E
0002620 N U 003 033 231 ' 020 231 3 \a 231 4 \0 \0 234 230
0002640 222 214 023 S T E P - C O M M A N D -
0002660 B E F O R E 231 024 226 003 202 \0 \0 \0 325 V
0002700 \t \0 \0 270 W 016 233 H g \0 \0 \n \0 \0 221 h
0002720 200 i 200 h 242 261 \0 274 H \t \0 \0 271 h 272 h
0002740 273 ` \0 \0 037 274 L 275 L o \0 \0 \0 024 004 277
0002760 M 274 L 275 L g \0 \0 \t \0 \0 024 026 277 M 274
0003000 L 275 L k 024 \b 277 M 274 L 275 L o \0 \0 \0
0003020 024 022 277 M 274 L 275 L i 024 \f 277 M 274 L 275
0003040 L g \0 \0 024 277 M 274 L 275 L g \0 \0 024
0003060 034 277 M 274 L 275 L j j n 177 377 n 177 377 h
0003100 032 032 032 032 024 \n 277 M i \n \0 \0 272 J \t \0
0003120 \0 273 J H I 001 I 002 002 001 324 K 002 002 001 324
0003140 ` \0 \0 363 223 g \0 \0 202 g \0 \0 g \0 \0 \f
0003160 \0 \0 277 H g \0 \0 J \v \0 \0 277 J g \0 \0
0003200 g \0 \0 \t \0 \0 \v \0 \0 277 J W 020 \n \0 \0
0003220 020 h 020 \0 003 006 231 003 \a 231 027 003 \b 231 025
0003240 231 = 006 003 \0 \0 231 003 230 223 001 200 \v 202 \0 \0
0003260 \0 317 231 1 202 \0 \0 \0 310 231 # 202 \0 \0 \0 305
0003300 230 225 214 \f C R E A T E . E V E N T
0003320 202 \0 \0 \0 272 231 # 202 \0 \0 \0 261 230 225 214 \f
0003340 A T T A C H W I N D O W 202 \0 \0 \0
0003360 220 230 225 214 \f W I N D O W R E G I O
0003400 N 202 \0 \0 \0 213 230 225 214 \n M E N U W I
0003420 N D O W : 230 217 214 017 S Y M B O L -
0003440 F U N C T I O N 033 231 A \r 231 % 002 231
0003460 & \f 202 \0 \0 \0 302 230 222 214 \t S T E P -
0003500 M E N U 231 024 202 \0 \0 \0 277 231 ' 202 \0 \0
0003520 \0 266 231 ( 202 \0 \0 \0 256 230 225 214 006 B O T
0003540 T O M 202 \0 \0 \0 253 230 225 214 005 R I G H
0003560 T 202 \0 \0 \0 247 230 225 214 004 L E F T 202 \0
0003600 \0 \0 242 230 225 214 \v S C R E E N W I D
0003620 T H n 230 225 214 021 D E F A U L T M E
0003640 N U H E L D F N c 230 225 214 \t C L R
0003660 P R O M P T 7 231 5 # 230 225 214 \v 004 003
0003700 M E N U T Y P E # \n 231 ( 002 N 230 214
0003720 \n C o m m a n d s + 230 223 004 230
0003740 223 003 230 214 004 S t e p 230 225 214 001 230 214
0003760 @ S t e p - E v a l u a t e
0004000 t h i s e x p r e s s i o n
0004020 , s t e p p i n g o n t h
0004040 e s u b - e x p r e s s i o n
0004060 s 230 223 003 230 214 004 N e x t 230 225 214 001 N
0004100 230 214 0 N e x t - E v a l u a
0004120 t e t h i s e x p r e s s i
0004140 o n w i t h o u t s t e p p
0004160 i n g 230 223 003 230 214 006 F i n i s h 230
0004200 225 214 001 F 230 214 0 F i n i s h -
0004220 C o m p l e t e e v a l u a t
0004240 i o n w i t h o u t t h e
0004260 s t e p p e r 230 223 003 230 214 005 A b o
0004300 r t 230 225 214 001 ^ 230 214 035 A b o r t
0004320 - A b o r t t h i s e v a
0004340 l u a t i o n \0 234 230 222 214 024 S T E
0004360 P - C O M M A N D - W R A P P E
0004400 R 231 024 226 001 . n \0 \0 037 X @ 024 \0 A 024
0004420 002 277 Q 262 026 o \0 \0 \0 k n \0 \0 037 o \0
0004440 \0 \0 024 \0 H 024 002 016 020 H 311 \0 H 311 002 \n
0004460 \0 \0 020 \0 003 001 231 027 231 ^ 001 001 \0 002 231 003
0004500 230 223 001 230 223 002 230 214 004 F O R M 230 214 \v
0004520 E N V I R O N M E N T 001 * 230 222 214
0004540 025 S T E P - C O M M A N D - O R
0004560 I G I N A L 231 024 \0 002 031 226 \0 031 \b \0
0004600 \0 277 H 311 \0 H 311 002 \n \0 \0 \t \0 \0 j @
0004620 016 277 \t \0 \0 020 \0 230 222 214 020 * U N W I
0004640 N D - P R O T E C T * 230 221 230 214 006
0004660 S Y S T E M 001 \0 \0 001 230 220 214 \a C L
0004700 O S U R E 230 223 001 230 223 001 230 214 003 G 2
0004720 5 004 025 230 217 214 \v V A L U E S - L I
0004740 S T 016 230 225 214 \a \ M V L I S T \v 231
0004760 c 001 231 = \0 \0 \0 020 226 \0 005 \b \0 \0 020 \0
0005000 230 214 016 C l e a n - u p f o r m
0005020 s \0 \0 \0 \0 231 003 230 223 001 200 001 001 231 037 \0
0005040 \0 \0 002 025 230 225 214 020 C O M P I L E D
0005060 - C L O S U R E 001 230 225 214 \t \ P T
0005100 R H U N K 2 235 226 \0 2 g \0 \0 g \0 \0
0005120 g \0 \0 \v \0 \0 277 g \0 \0 g \0 \0 \n \0 \0
0005140 277 g \0 \0 g \0 \0 \n \0 \0 277 o \0 \0 \0 \t
0005160 \0 \0 277 o \0 \0 \0 \t \0 \0 020 \0 230 214 021 5
0005200 t o p - l e v e l f o r m s
0005220 \0 \0 \0 \0 231 003 230 223 001 200 005 . 230 225 214 \b
0005240 P U T P R O P S & 231 s 036 230 225 214 004
0005260 M O V D 024 231 t \n 230 225 214 \n C H A N
0005300 G E N A M E \a 033 230 217 214 \f S T E P
0005320 - C O M M A N D 030 231 ^ 021 231 c 016 231
0005340 v \a 231 ) 004 231 0 001 231 v 002 * 230 223 003 231
0005360 031 230 225 214 \t C O P Y R I G H T 230 223
0005400 002 230 214 030 B e c k m a n I n s t
0005420 r u m e n t s , I n c 202 \0 \0 \a
0005440 303 " 230 223 003 231 031 230 225 214 024 M A K E F
0005460 I L E - E N V I R O N M E N T 230
0005500 223 004 231 \t 230 214 003 X C L 231 \v 230 214 \t I
0005520 N T E R L I S P \0 232 202 \0 \0 \0 200 377
0005540 377
0005541