home *** CD-ROM | disk | FTP | other *** search
/ rtsi.com / 2014.01.www.rtsi.com.tar / www.rtsi.com / OS9 / OSK / EFFO / pd0.lzh / DEMO / div.f < prev    next >
Text File  |  1987-09-03  |  301b  |  16 lines
  1. options muldiv=short, CPU=68010
  2.       program div
  3.       implicit none
  4.       integer i, j, k, l
  5.       equivalence (i, d7), (j, d6), (k, d5), (l, d4)
  6.       l = 0
  7.       k = 10
  8.       do i = 1, 100000
  9.         j = i / k
  10.         l = l + j
  11.       end do
  12.       call shell('procs', i)
  13.       type *, l
  14.       end
  15.  
  16.