用FORTRAN77模拟基本控制结构

　判断语句

　if ( p ) S1;
　else S2; 

　IF ( p ) THEN
　S1
　ELSE
　S2
　ENDIF

　先判断型循环语句

　while ( p )
　S;

　100   CONTINUE
　IF ( p ) THEN
　S
　GOTO 100
　ENDIF

　后判断型循环语句

　do S; while ( p );

　100   CONTINUE
　S
　IF ( p ) GOTO 100