( RANDOM NUMBER SUPPORT                         WANB 15AUG81  )
 DECIMAL
 25 VARIABLE VRND                       ( RANDOM NUMBER VARIABLE)
 : PRND                                 ( PRIMITIVE OPERATION)
     32763 M* DROP ;
 
 : RND                                  ( LEAVES NEW RND INTEGER)
       VRND DUP @ PRND PRND DUP ROT ! 32767 AND ;
 
 : SRND         ( SCALED RANDOM NO.  N --- M . M=RANDOM NUMBER)
     RND 32767 */ ;                ( BETWEEN 0 AND N)
 
 : RANDOMISE         ( INITIAL SCRAMBLE   N ---      )
      VRND ! 100 0 DO RND DROP LOOP ;
 
 ;S