defun( CreateForm ()
drain()
form_path="./Dp_resize.form"
myform = outfile(form_path "w")
fprintf(myform "#Created by xml2bnf perl utility\n")
fprintf(myform "#Coded by Venkata Ramanan/Santa Clara, CA\n\n")
fprintf(myform "FILE_TYPE=FORM_DEFN VERSION=2\n")
fprintf(myform "FORM AUTOGREYTEXT\n")
fprintf(myform "FIXED\n")
fprintf(myform "PORT 95 33\n")
fprintf(myform "HEADER \"Resize Diff pairs\"\n\n")
fprintf(myform "POPUP <ENUM>") 不能改成下面格式fprintf(form "#Created by xml2bnf perl utility\n")
fprintf(form "#Coded by Venkata Ramanan/Santa Clara, CA\n\n")
fprintf(form "FILE_TYPE=FORM_DEFN VERSION=2\n")
fprintf(form "FORM AUTOGREYTEXT\n")
fprintf(form "FIXED\n")
fprintf(form "PORT 95 33\n")
fprintf(form "HEADER \"Resize Diff pairs\"\n\n")
fprintf(form "POPUP <ENUM>")