SHARE
TWEET

Untitled

a guest Jul 16th, 2019 80 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ! orlyeh_tut.f90
  2.  
  3. FUNCTION STARS()
  4.      REAL(4) :: STARS
  5.      STARS = RAND(0)
  6. END FUNCTION STARS
  7.  
  8. FUNCTION RIGHT()
  9.      REAL(4) :: RIGHT
  10.      RIGHT = RAND(0)
  11. END FUNCTION RIGHT
  12.  
  13. PROGRAM ORLYEH_TUT
  14.      IMPLICIT none
  15.      INTEGER(8) :: millenium = 60*60*24*365*1000
  16.      REAL(4)   :: STARS, RIGHT
  17.      INTEGER(4) :: END_OF_WORLD
  18.      DO WHILE (STARS() .NE. RIGHT())
  19.          CALL SLEEP(millenium)
  20.      END DO
  21.      ASSIGN 99999 TO END_OF_WORLD
  22.      GO TO END_OF_WORLD
  23. 99999 STOP
  24. END PROGRAM
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top