VAR SRND01% DEF SRANDOMIZE V SRND01%=V+7 END DEF SRND(Q) SRND01%=ABS(SQR(SRND01%)-SRND01%) WHILE SRND01%<8E7 SRND01%=SRND01%*PI() AND &HFFFFFFF WEND RETURN SRND01%/100 MOD Q END