プログラムに不備があったため修正して再投稿。 初心に帰ったQSPを。1000までの素数を表示するプログラムです。

4分の1プログラムというか、8分の1プログラム…?

ああ、短縮したい（血が騒ぐ）

IF（スペース）Z==0（スペース）THENとかもう余裕こいてるようにしか見えない IF!Z（スペース）THEN にできるんだもん

どこまで短く出来るかチャレンジしてみて下さい。条件式を式に変えるだけでもだいぶ変わるかと。