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 >
Wrap
Text File
|
1987-09-03
|
301b
|
16 lines
options muldiv=short, CPU=68010
program div
implicit none
integer i, j, k, l
equivalence (i, d7), (j, d6), (k, d5), (l, d4)
l = 0
k = 10
do i = 1, 100000
j = i / k
l = l + j
end do
call shell('procs', i)
type *, l
end