Bon, Kevin, essaye ça :

Local a
Loop
InputStr "Entre un ordre",a
try
newfold #a
else
endtry
Endloop

Tu vois, ici le try, n'englobe pas le prog... Et je te mets au défi de le faire bugger.

[edit] : na