freebsd-skq/contrib/bc/Test/jn.b

scale = 50
for (a=0; a<=100; a += 20) {
  for (b=0; b<=300; b += 20) x=j(a,b)
  x
}
quit
Initial import of bc 1.0.6 2001-02-26 07:13:00 +00:00			`scale = 50`
			`for (a=0; a<=100; a += 20) {`
			`for (b=0; b<=300; b += 20) x=j(a,b)`
			`x`
Import GNU bc 1.04 PR: 4183 1998-04-29 21:53:01 +00:00			`}`
			`quit`