|
;******************************************************************************** ;; .form defun( _createForm_HelloWorld () prog( () HelloWorld_form = outfile(HelloWorld_form_file "w") fprintf(HelloWorld_form "FILE_TYPE=FORM_DEFN VERSION=2\n") fprintf(HelloWorld_form "FORM \n") fprintf(HelloWorld_form "FIXED\n") fprintf(HelloWorld_form "PORT 36 19\n") fprintf(HelloWorld_form "HEADER \"gfe2004\"\n") fprintf(HelloWorld_form "\n") fprintf(HelloWorld_form "TILE\n") fprintf(HelloWorld_form "TEXT \"Hello World!\" \n") fprintf(HelloWorld_form "TLOC 2 6\n") fprintf(HelloWorld_form "ENDTEXT\n") fprintf(HelloWorld_form "\n") fprintf(HelloWorld_form "ENDTILE\n") fprintf(HelloWorld_form "\n") fprintf(HelloWorld_form "ENDFORM\n") close(HelloWorld_form) ); end prog ); end defun
|
|