CLS INPUT　P IF　(P　MOD　2)==0　THEN　GOTO　@NOT_P IF　(P　MOD　3)==0　THEN　GOTO　@NOT_P IF　(P　MOD　5)==0　THEN　GOTO　@NOT_P IF　(P　MOD　7)==0　THEN　GOTO　@NOT_P ?　P;"は素数" WAIT　150 END @NOT_P ?　P;"は合成数" WAIT　150 END とか･･･?