home *** CD-ROM | disk | FTP | other *** search
/ The Business Master (3rd Edition) / The Business Master (3rd Edition).iso / files / wordmisc / writcomp / write.bi < prev    next >
Encoding:
Text File  |  1993-03-10  |  3.6 KB  |  140 lines
  1. DECLARE SUB Mywin2 ()
  2. DECLARE SUB Prom1 ()
  3. DECLARE SUB SubjectTrack ()
  4. DECLARE SUB ReviewData ()
  5. DECLARE SUB Timing ()
  6. DECLARE SUB EditExpenses ()
  7. DECLARE SUB ADDeXpense ()
  8. DECLARE SUB ReviewAccount ()
  9. DECLARE SUB AddAccount ()
  10. DECLARE SUB EditAccount ()
  11. DECLARE SUB FinanceDisplay ()
  12. DECLARE SUB EditResearch ()
  13. DECLARE SUB ResearchReview ()
  14. DECLARE SUB Specific ()
  15. DECLARE SUB ResearchDisplay ()
  16. DECLARE SUB AddResearch ()
  17. DECLARE SUB Overdue ()
  18. DECLARE SUB Mistake ()
  19. DECLARE SUB Tracker ()
  20. DECLARE SUB CENTER4 (Row%, A$)
  21. DECLARE SUB center3 (Row%, A$)
  22. DECLARE SUB Center2 (Row%, A$)
  23. DECLARE SUB ShowsubData ()
  24. DECLARE SUB SubjectF ()
  25. DECLARE SUB SubjectE ()
  26. DECLARE SUB SubjectD ()
  27. DECLARE SUB SubjectC ()
  28. DECLARE SUB SubjectB ()
  29. DECLARE SUB SubjectA ()
  30. DECLARE SUB Windows ()
  31. DECLARE SUB PopWindows (SROW!, SCOL!, Style!)
  32. DECLARE SUB MyWin1 ()
  33. DECLARE SUB BackGround ()
  34. DECLARE SUB Center (Row%, A$)
  35. DECLARE SUB SelectMenu ()
  36. DECLARE FUNCTION GetFilename$ ()
  37. DECLARE SUB AddRecord (RecordVar AS ANY)
  38. TYPE StockItem
  39.    title  AS STRING * 25
  40.    Subject AS STRING * 12
  41.    Fiction AS STRING * 1
  42.    Sentto AS STRING * 20
  43.    DateSent AS STRING * 8
  44.    Response AS STRING * 8
  45.    days AS INTEGER
  46.    CountNum AS INTEGER
  47.    YorN AS STRING * 1
  48.    Deadline AS STRING * 8
  49.    Comments AS STRING * 35
  50.    AmtPaid AS INTEGER
  51.    DatePaid AS STRING * 8
  52. END TYPE
  53. TYPE IndexType
  54.    RecordNumber AS INTEGER
  55.    Subject  AS STRING * 8
  56. END TYPE
  57. TYPE SubjectItem
  58.         SubjectName AS STRING * 15
  59.         SubjectInfo1 AS STRING * 55
  60.         SubjectInfo2 AS STRING * 55
  61.         SubjectInfo3 AS STRING * 55
  62.         SubjectInfo4 AS STRING * 55
  63.         SubjectInfo5 AS STRING * 55
  64.         SubjectInfo6 AS STRING * 55
  65.         SubjectInfo7 AS STRING * 55
  66.         SubjectInfo8 AS STRING * 55
  67.         SubjectInfo9 AS STRING * 55
  68.         Sugg1 AS STRING * 55
  69.         Sugg2 AS STRING * 55
  70.    END TYPE
  71. TYPE ProdItem
  72.         Prodname AS STRING * 15
  73.         ProdInfo1 AS STRING * 55
  74.         ProdInfo2 AS STRING * 55
  75.         ProdInfo3 AS STRING * 55
  76.         ProdInfo4 AS STRING * 55
  77.         ProdInfo5 AS STRING * 55
  78.         ProdInfo6 AS STRING * 55
  79.         ProdInfo7 AS STRING * 55
  80.         ProdInfo8 AS STRING * 55
  81.         ProdInfo9 AS STRING * 55
  82.         ProdInfo10 AS STRING * 55
  83.         ProdInfo11 AS STRING * 55
  84.         ProdInfo12 AS STRING * 55
  85.  
  86.    END TYPE
  87.  
  88. TYPE ResearchItem
  89.    Subject AS STRING * 8
  90.    Source AS STRING * 20
  91.    Date AS STRING * 8
  92.    Memo AS STRING * 35
  93.  END TYPE
  94.       TYPE AccountItem
  95.       ExporInc AS STRING * 7
  96.       AccDate AS STRING * 8
  97.       AccAmount AS SINGLE
  98.       AccPublisher AS STRING * 30
  99.       AccMemo AS STRING * 30
  100.       ExpDate AS STRING * 8
  101.       ExpAmount AS SINGLE
  102.       ExpeXPENSE AS STRING * 30
  103.       ExpMemo AS STRING * 30
  104.       END TYPE
  105.    
  106.     'PUBLISH
  107.     TYPE PublishItem
  108.     Publisher AS STRING * 25
  109.     Magazine AS STRING * 20
  110.     CONTACT AS STRING * 25
  111.     Position AS STRING * 20
  112.     Address AS STRING * 30
  113.     City AS STRING * 30
  114.     State AS STRING * 2
  115.     Zip AS STRING * 11
  116.     Phone AS STRING * 12
  117.     Title1 AS STRING * 25
  118.     AveWords AS STRING * 5
  119.     END TYPE
  120.  
  121.         TYPE Datey
  122.         Todate AS STRING * 10
  123.         END TYPE
  124.  
  125.  
  126. DECLARE FUNCTION Filter$ (Prompt$)
  127. DECLARE FUNCTION FindRecord% (Subject$, RecordVar AS StockItem)
  128. DECLARE SUB InputRecord (RecordVar AS StockItem)
  129. DECLARE SUB PrintRecord (RecordVar AS StockItem)
  130. DECLARE SUB SortIndex ()
  131. DECLARE SUB ShowPartNumbers ()
  132. DECLARE SUB Editdata ()
  133. DECLARE SUB PubAdd ()
  134. DECLARE SUB PubDisplay ()
  135. DECLARE SUB PubEdit ()
  136. DECLARE SUB PubLook ()
  137. DECLARE SUB PubLookSubject ()
  138.  
  139.  
  140.