匿名希望さんへのお返事です。
> 乱数生成アルゴリズムにXORSHIFTというのがあるそうですが
> これを十進BASICで実装すればどのようなプログラムになるのでしょうか。
XOR、SHIFTを実装すれば、Ｃ言語などのソースが移植できます。
!Xorshift疑似乱数生成法
LET x=123456789
LET y=362436069
LET z=521288629
LET w=88675123
FOR i=1 TO 100 !100 個の乱数
LET t=bitwiseXOR(x,x*(2^11)) !t=x^(x<<11)
LET x=y !x=y; y=z; z=w;
LET y=z
LET z=w
LET w=bitwiseXOR( bitwiseXOR(w,IP(w/(2^19))), bitwiseXOR(t,IP(t/(2^8))) ) !w=(w^(w>>19))^(t^(t>>8))
PRINT w
NEXT i
END
EXTERNAL FUNCTION bitwiseXOR(a,b)
DECLARE NUMERIC aa, bb
DECLARE NUMERIC i,c
LET c=0
FOR i=0 TO 31
LET aa=MOD(a,2)
LET a=(a-aa)/2
LET bb=MOD(b,2)
LET b=(b-bb)/2
LET c=c+MOD(aa+bb,2)*2^i
NEXT i
IF c>=2^31 THEN LET c=c-2^32
LET bitwiseXOR=c
END FUNCTION