1. 12

Part two – jonesforth.f – can be found here: http://git.annexia.org/?p=jonesforth.git;a=blob;f=jonesforth.f

  1.