[*
 * lrx -- (random number from 0 to 32767)
 *
 * Returns a number from the Microsoft rand() sequence.
 * Seeded by storing a seed in register R.
 *]sz
[lR 214013 * 2531011 + 2147483648 % d sR 65536 /]sr

[* Set seed to 1, then print the first 3 random numbers. *]sz
1 sR
lrx psz lrx psz lrx psz