home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / forth / rbsrc / files.def < prev    next >
Text File  |  1988-05-05  |  1KB  |  40 lines
  1.  
  2. SIZEOF LC-FILE ITEM-ALLOT LC.BUFF
  3.  
  4. : name>  ( dcb 'ext #mast_item --- )
  5.          LC.BUFF SWAP LCMAIN.DCT DICT-READ
  6.          LC.BUFF LC.FNAME DUP 8 32 SCAN NIP 8 SWAP -    STRPCK
  7.          SYS.DATA 30 BL SCAN DROP SYS.DATA - SYS.DATA
  8.          SWAP ROT COUNT STRCAT STRPCK ROT TUCK NAME>HCB
  9.          DUP HCB>N ROT +EXT SWAP NAME>HCB ;
  10.  
  11.  
  12. : NAME>DCT ( dcb #mast_item --- )
  13.            " .DCT" SWAP name> ;
  14.  
  15. : NAME>DAT ( dcb #mast_item --- )
  16.            " .DAT" SWAP name> ;
  17.  
  18. : NAME>RPT " .RPT" SWAP name> ;
  19.  
  20. : NAME>VIEW " .VW" SWAP name> ;
  21.  
  22. : NAME>IDX ( icb #masm_item #field --- )
  23.            0 <# # # #> " .X00" DUP >R 3 + SWAP CMOVE
  24.            R> SWAP name> ;
  25.  
  26. : CHG-IDX  ( icb #num --- )
  27.            0 <# # # #> " .X00" DUP >R 3 + SWAP CMOVE
  28.            DUP HCB>N -EXT R> +EXT SWAP NAME>HCB ;
  29.  
  30. 7 10 10 35 WINDOW ACTIVEW
  31.  
  32. ' NO.COND LCMAIN.DCT LC.BUFF 0 LC.DESCR 30 DCT-CHOICE MASTERC
  33.  
  34. : @ACTIVES   ( title_addr --- 0 for escape, n+1 for database )
  35.              LISTL SINGLE ACTIVEW
  36.              OPEN-WINDOW
  37.              LCMAIN.DCT OPEN-DICTIONARY
  38.              ACTIVEW MASTERC DCT-CHOOSE
  39.              ACTIVEW CLOSE-WINDOW ;
  40.