/* NAME = demo0_format.fon */ /* demo format */ demo0_format(sem) { BS=ascii(92); /* Code ascii de \ */ $"demo format";NL; $"===========";NL;NL; $"Valeurs";NL; $"-------";NL; y="$format(\" 1,2,3\")";$y;NL; $format(" 1,2,3");NL;NL; $"Champ ignore et valeurs";NL; $"-----------------------";NL; y="$format(\"<*,X,X,X> commentaire 1,2,3\")";$y;NL; $format("<*,X,X,X> commentaire 1,2,3");NL;NL; $"Valeurs forcees";NL; $"---------------";NL; y="$format(\"X,0,X> 1,2,3\")";$y;NL; $format("<*,X,-11.11,X> 1,2,3");NL;NL; $"y=format \"<*,X,X,0.0>\",\"coordonnees 1.2 3.4",BS,"n coordonnees -1.2 10",BS,"n\"";NL; $format "<*,X,X,0.0> coordonnees 1.2 3.4\n coordonnees -1.2 10\n";NL; if(sem==NIL) { NL;NL;input("ENTER");exit; } } /* END */