SetRand() // A-RAND
{
  Rand = A
}

Random() // A-RANGE => C-RESULT L=C
{
  Rand = 0x6255*Rand+0x3619
  RandH = Rand&0xFF00
  RandL = Rand&0x00FF
  C = (RandH>>8)^RandL
  C = C|RandH
  C = C&0x7FFF
  if(A) C=C%A
  (C)
}