A RAPID PROCEDURE FOR GENERATING RANDOM REINFORCEMENT INTERVALS ON VI AND VR TAPES.