5.66 NewGraph

 if Input("Label=")
 then NewGraph( ["Label",num], ["Label(", %1,",", """",chaine(),""")"] ),
   ReDraw(), Inc(num,1)
 fi