れいさんの疑似乱数（※X-Yが負数の場合が考慮されてないのでABSを付けました） ACLS PNLTYPE "OFF" X=0:Y=0 　FOR I=0 TO 9999 　　FOR J=0 TO 9999 　　　GOSUB @RND:A=R*256:GOSUB @RND:B=R*256 　　　GPAGE 0:GPSET A,B,15:GPAGE 1:GPSET A,B-192,15 　　NEXT 　NEXT END 下記に続く