! orlyeh_tut.f90

FUNCTION STARS()
     REAL(4) :: STARS
     STARS = RAND(0)
END FUNCTION STARS

FUNCTION RIGHT()
     REAL(4) :: RIGHT
     RIGHT = RAND(0)
END FUNCTION RIGHT

PROGRAM ORLYEH_TUT
     IMPLICIT none
     INTEGER(8) :: millenium = 60*60*24*365*1000
     REAL(4)   :: STARS, RIGHT
     INTEGER(4) :: END_OF_WORLD
     DO WHILE (STARS() .NE. RIGHT())
         CALL SLEEP(millenium)
     END DO
     ASSIGN 99999 TO END_OF_WORLD
     GO TO END_OF_WORLD
99999 STOP
END PROGRAM