home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a070 / 3.ddi / FOXPRO / TEMPLGEN / FORM1.GEN < prev    next >
Encoding:
Text File  |  1988-05-10  |  1.1 KB  |  48 lines
  1. <<title 'Format File Generator'>>
  2. <<#
  3.  
  4. <<*---Declare global variables---*>>
  5. string  fpath,fname,fext
  6. string  prgname,datafile
  7. string  fldprefix
  8.  
  9. <<*---GENHUE vars---*>>
  10. integer lasthue,forecolor,backcolor
  11.  
  12. #>>
  13. <<*---General modules---*>>
  14. <<#include 'GENPRG.INC'#>>   <<*Contains GetPrgName,etc.*>>
  15. <<#include 'GENSAY.INC'#>>   <<*To generate @row,col SAY,etc.*>>
  16. <<#include 'GENBOX.INC'#>>   <<*To generate boxes,etc.*>>
  17. <<#include 'GENHUE.INC'#>>   <<*Contains AtrCode,etc.*>>
  18. <<#include 'GENFLD.INC'#>>   <<*Contains GenLabel,GenField,etc.*>>
  19. <<#include 'GENFILE.INC'#>>  <<*Contains GenHeader,GenFooter,etc.*>>
  20. <<*---Specific modules---*>>
  21. <<#include 'GENFMT.INC'#>>
  22. <<#
  23.  
  24.  
  25. procedure InitGlobals
  26. begin
  27.   select all
  28.   select database 1
  29.   filespec( dbfnam,fpath,datafile,fext )  <<*Init 'datafile'*>>
  30.   fldprefix := 'm'
  31. end <<*InitGlobals*>>
  32.  
  33.  
  34. begin <<*MAIN*>>
  35.   if Table
  36.     prgname := GetPrgName( "Enter FILENAME of program to GENERATE" )
  37.     if prgname
  38.       InitGlobals
  39.       GenFormat( prgname )
  40.     endif
  41.   else
  42.     wait 'No FoxView Table is available '
  43.   endif
  44. end <<*MAIN*>>
  45.  
  46. <<*EOF: FORMAT.GEN*>>
  47. #>>
  48.