begin
  string (255) s
  integerfn fred(integername i)
    integer total = 0
    if charno(s, i) = 's'  start
      result = 0
    finish
    total = 0
    for i = 1, 1, i cycle
      total = total + i
    repeat
    result = total
  end
  integer x, y
  s = "a string"
  y = 3
  x = fred(y)
endofprogram