.FUNCT V-$COMMAND
DIRIN 1
RTRUE
.FUNCT V-$RANDOM
EQUAL? PRSO,INTNUM /?ELS5
PRINTR "Illegal call to #RANDOM."
?ELS5: SUB 0,P-NUMBER
RANDOM STACK
.FUNCT V-$RECORD
DIROUT D-RECORD-ON
.FUNCT V-$UNRECORD
DIROUT D-RECORD-OFF
.ENDI