標準HSPと線形帰還シフトレジスタによるランダム出力。参考元：https://wiki.hsp.moe/Module%EF%BC%8F%E7%B7%9A%E5%BD%A2%E5%B8%B0%E9%82%84%E3%82%B7%E3%83%95%E3%83%88%E3%83%AC%E3%82%B8%E3%82%B9%E3%82%BF.html

rand.hsp

#const SCALE 1

	screen 0, 1600, 900
	ox = double(ginfo_sx / 4), ox * 3
	oy = double(ginfo_sy / 2), oy
	x = ox, ox.1
	y = oy, oy
	randomize
	a = hwnd, a
	cf = 1
	line ox * 2, oy * 2, ox * 2
	repeat : c = cnt
		if c \ 1000 == 0 : title strf("%d", c) : redraw 1 : redraw 0
		; if c \ (1<<18) == 0 : cf ^= 1 : rgbcolor cf * $ffffff
		repeat 2 : m = cnt
			switch rand(4)
			case 0 : x.m-SCALE : if x.m < ox.m - ox : x.m += ox * 2
			swbreak
			case 1 : y.m-SCALE : if y.m < oy.m - oy : y.m += oy * 2
			swbreak
			case 2 : x.m+SCALE : if x.m > ox.m + ox : x.m -= ox * 2
			swbreak
			case 3 : y.m+SCALE : if y.m > oy.m + oy : y.m -= oy * 2
			swend
			pset x.m, y.m
		loop
		wait 0
	loop

#defcfunc rand int _p
	if m {
		; LFSR
		a.1 ^= a.1 >> 9 ^ a.1 << 1
		return (a.1 & $7fffffff) \ _p
	} else {
		; LCG
		return rnd(_p)
		; a.0 = (a.0 * 214013 + 2531011) & $7fffffff
		; return (a.0 >> 16) \ _p
	}