home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / forth / rbsrc / view.def < prev    next >
Text File  |  1988-04-13  |  1KB  |  57 lines
  1. BEGIN-ITEM VIEW.WND
  2.            1 VIEW.WND W.#COLS
  3.            1 VIEW.WND W.#ROWS
  4.            1 VIEW.WND W.CL
  5.            1 VIEW.WND W.RW
  6.            2 VIEW.WND W.FILE
  7.            1 VIEW.WND W.VTYPE?
  8.            2 VIEW.WND W.ROFF
  9. END-ITEM
  10.  
  11. BEGIN-ITEM SEL.DEF
  12.            2 SEL.DEF  SEL.OFF
  13.            1 SEL.DEF  SEL.TYPE
  14.            2 SEL.DEF  SEL.MS/LS
  15.            1 SEL.DEF  SEL.LEN
  16. END-ITEM
  17.  
  18. BEGIN-ITEM DETAIL
  19.            1 DETAIL   DT.CL
  20.            1 DETAIL   DT.RW
  21.            2 DETAIL   DT.FLD#
  22.            2 DETAIL   DT.OFFSET
  23.            1 DETAIL   DT.LEN
  24.            2 DETAIL   DT.MS/LS
  25.            1 DETAIL   DT.TYPE
  26. END-ITEM              
  27.  
  28. BEGIN-ITEM VIEW
  29.                   1 VIEW VW.FLG
  30.                  30 VIEW VW.DESCR
  31.                   1 VIEW VW.1ST
  32.                   1 VIEW VW.2ND
  33.                   1 VIEW VW.CROW
  34.                   1 VIEW VW.CCOL        
  35.                   1 VIEW VW.#WNDS
  36.                   1 VIEW VW.W1-RW
  37.                   1 VIEW VW.W2-CL
  38. SIZEOF VIEW.WND 3 * VIEW VW.WNDS
  39. SIZEOF SEL.DEF 4 *  VIEW VW.SEL-LNE
  40. SIZEOF DETAIL 15 * 3 * VIEW VW.DETAILS
  41. END-ITEM     
  42.  
  43. SIZEOF VIEW ITEM-ALLOT VW.BUFF    
  44.  
  45. : 'WNDB      ( 0-2 --- addr )
  46.              SIZEOF VIEW.WND * VW.BUFF VW.WNDS + ;
  47.                    
  48. : 'SEL       ( 0-3 --- addr )
  49.              SIZEOF SEL.DEF * VW.BUFF VW.SEL-LNE + ;
  50.  
  51.  
  52. : 'DETAILS   ( #fld #detail --- addr )
  53.              SIZEOF DETAIL 15 * * SWAP SIZEOF DETAIL * + VW.BUFF VW.DETAILS + ;
  54.  
  55.  
  56.  
  57.