Advertisement
Guest User

Untitled

a guest
Oct 14th, 2017
51
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. C   Hey there kids- guess what time it is!
  2. C   That's right, it's FORTRAN TIME:
  3.  
  4.     i = 0
  5.     j = 40 + 2
  6.     dimension k(5)
  7.     k(1) = 333
  8.     k(4) = 999
  9.  
  10. C   We are gonna do HELLA arithmetic and logic:
  11.  
  12. 10  print i, k(i)
  13.     i = i + 1
  14.     go to 20
  15.     print j
  16.  
  17. 20  if (i > 10) 30, 10
  18.  
  19. 30  stop
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement