DELPHI　での　例。
　OUTLABEL　:=　DriveName　+　':'　+　DirName　+　'\XXXX00.TTO'　　;
　　　　　　　　　ASSIGNFILE(OUTPUT　,OUTLABEL　)　;
　　　　　　　　　REWRITE　(OUTPUT)　;
　　　　　　　　　WRITELN　(OUTPUT　,　'[Profile]'　)　;
　　　　　　　　　WRITELN　(OUTPUT　,　'TRTOPC'　)　;
　　　　　　　　　WRITELN　(OUTPUT　,　'Description='　)　;
　　　　　　　　　WRITELN　(OUTPUT　,　'FROM　　　　　　　　'　+　PARAM01　+　'/'　　+　PARAM02　)　;
　　　　　　　　　WRITELN　(OUTPUT　,　'SELECT　　　　　　*'　)　;
　　　　　　　　　WRITELN　(OUTPUT　,　'WHERE'　)　;
　　　　　　　　　WRITELN　(OUTPUT　,　'ORDER　BY'　)　;