home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / qb_pds / menu / progen / source / progen71.bi < prev    next >
Encoding:
Text File  |  1991-05-27  |  1.6 KB  |  48 lines
  1. DEFINT A-Z
  2. DECLARE SUB buildscreen (PIMmaster AS ANY)
  3. DECLARE SUB clearscreen ()
  4. DECLARE SUB createdatafile ()
  5. DECLARE SUB DispRecField (temp AS ANY)
  6. DECLARE SUB initindex ()
  7. DECLARE SUB PROSRC.SCN.1 (NS%)
  8. DECLARE SUB RecFieldselect (indexnum%, key$, MastRec%, IndexRec%, Exitcode%, PIMmaster AS ANY)
  9. DECLARE SUB seldatafile ()
  10. DECLARE FUNCTION strval$ (a%)
  11. DECLARE SUB PROSRC.1 ()
  12. DECLARE SUB PROSRC.2 ()
  13. DECLARE SUB PROSRC.3 ()
  14. DECLARE SUB PROSRC.9 ()
  15. DECLARE SUB PROSRC.CASE.1 ()
  16. DECLARE SUB PROSRC.CASE.2.1 ()
  17. DECLARE SUB PROSRC.CASE.2.2 ()
  18. DECLARE SUB PROSRC.CASE.3.1 ()
  19. DECLARE SUB PROSRC.CASE.3.3 ()
  20. DECLARE SUB PROSRC.CASE.3.4 ()
  21. DECLARE SUB PROSRC.CASE.3.5 ()
  22. DECLARE SUB PROSRC.CASE.4.1 ()
  23. DECLARE SUB PROSRC.CASE.4.2 ()
  24. DECLARE SUB PROSRC.CASE.5.0 ()
  25. DECLARE SUB PROSRC.CASE.6 ()
  26. DECLARE SUB PROSRC.CASE.7.1 ()
  27. DECLARE SUB PROSRC.CASE.7.2 ()
  28. DECLARE SUB mainscreen ()
  29. DECLARE SUB maxfields ()
  30. DECLARE SUB nodata ()
  31. DECLARE SUB noscreen ()
  32. DECLARE SUB PIM (cmd$, indexnum%, key$, MastRec%, CurrentIndexREC%, PIMmaster AS ANY)
  33. DECLARE SUB PIMClose (indexnum%, file$, PIMmaster AS ANY)
  34. DECLARE SUB PIMCreate (indexnum%, file$, keylength%, mfile$, PIMmaster AS ANY)
  35. DECLARE SUB PIMdelkey (IxNum%, temp$, MastRec%, IndexRec%, PIMmaster AS ANY)
  36. DECLARE SUB PIMOpen (indexnum%, file$, PIMmaster AS ANY)
  37. DECLARE SUB formatinfo ()
  38. DECLARE SUB proginfo1 ()
  39. DECLARE SUB proginfo2 ()
  40. DECLARE SUB PROBRO.1 ()
  41. DECLARE FUNCTION PIMstats (indexnum%, PIMmaster AS ANY)
  42.  
  43.  
  44.   COMMON SHARED masterFile$, numberoffields, ff, progfile$, startp, DATFILE, indexKEY$()
  45.  
  46.  
  47.  
  48.