12 lines
332 B
Plaintext
12 lines
332 B
Plaintext
|
<FLAGS-AND-DEFAULTS (("IN-ZILCH" T)) ()>
|
||
|
|
||
|
<BEGIN-SEGMENT RECORD>
|
||
|
<SYNTAX \#RANDOM OBJECT = V-$RANDOM>
|
||
|
<SYNTAX \#COMMAND = V-$COMMAND>
|
||
|
<SYNTAX \#RECORD = V-$RECORD>
|
||
|
<SYNTAX \#UNRECORD = V-$UNRECORD>
|
||
|
<DEFINE-ROUTINE V-$COMMAND>
|
||
|
<DEFINE-ROUTINE V-$RANDOM>
|
||
|
<DEFINE-ROUTINE V-$RECORD>
|
||
|
<DEFINE-ROUTINE V-$UNRECORD>
|
||
|
<END-SEGMENT>
|