A possible answer:
to trispi :t
if :t > 100 [stop]
fd :t rt 120
trispi :t + 5
end
