%%HP: T(3)A(R)F(.);
\<< \-> \Gl t
  \<<
    CASE '\Gl<400. OR \Gl>700.'
      THEN "nicht zul\228ssig!"
      END 't<.00000000001'
      THEN .00015 t /
      END 't<.000000001'
      THEN 27000. t -.25 ^ *
      END 't<.000018'
      THEN .005 t /
      END 't<10.'
      THEN 18. t -.25 ^ *
      END 't<100. AND \Gl<500.'
      THEN \Gl C3 100. * t / 10. MIN
      END '\Gl<500.'
      THEN \Gl C3
      END 10.
    END
  \>>
\>>