30 lines
346 B
Plaintext
30 lines
346 B
Plaintext
|
|
.SEGMENT "RECORD"
|
|
|
|
|
|
.FUNCT V-$COMMAND:ANY:0:0
|
|
DIRIN D-COMMAND-FILE
|
|
RTRUE
|
|
|
|
|
|
.FUNCT V-$RANDOM:ANY:0:0
|
|
EQUAL? PRSO,INTNUM /?CCL3
|
|
PRINTR "Illegal call to #RANDOM."
|
|
?CCL3: SUB 0,P-NUMBER
|
|
RANDOM STACK
|
|
RTRUE
|
|
|
|
|
|
.FUNCT V-$RECORD:ANY:0:0
|
|
DIROUT D-RECORD-ON
|
|
RTRUE
|
|
|
|
|
|
.FUNCT V-$UNRECORD:ANY:0:0
|
|
DIROUT D-RECORD-OFF
|
|
RTRUE
|
|
|
|
.ENDSEG
|
|
|
|
.ENDI
|