'BEGIN' 'INTEGER' I;

      'REAL' 'PROCEDURE' SUM(I, LO, HI, TERM);
           'VALUE' LO, HI; 'INTEGER' I, LO, HI; 'REAL' TERM;
           'COMMENT' TERM IS PASSED BY-NAME;
      'BEGIN' 'REAL' TEMP; TEMP := 0;
            'FOR' I := LO 'STEP' 1 'UNTIL' HI 'DO'
               TEMP := TEMP + TERM;
            SUM := TEMP
      'END';

      PRINT( SUM(I, 1, 100, 1/I), 6, 3 )
'END'

'COMMENT' JENSEN'S DEVICE,  L. ALLISON, COMPUTER SCIENCE, MONASH UNIVERSITY.;