どなたか教えてください

例えば

INTEGER A,B,S,P

DO 4 A=2,7
DO 4 B=2,7
DO 3 S=-2,2
DO 3 P=-2,2
WRITE(6,*) A,B
WRITE(6,*) S,P

3 CONTINUE
4 CONTINUE
STOP
END

を実行してA,B,S,Pを表示させてみると、Aが6から始まったり、Pが−1から始まったりしてしまいます。
何がまずいのでしょうか？