私の疑似乱数 ACLS PNLTYPE "OFF" X=0:Y=0 　FOR I=0 TO 9999 　　FOR J=0 TO 9999 　　　GOSUB @RND:A=X*256:GOSUB @RND:B=X*256 　　　GPAGE 0:GPSET A,B,15:GPAGE 1:GPSET A,B-192,15 　　NEXT 　NEXT END @RND Y=(Y+0.1)%1.1X=(X*117+Y)%1:RETURN