\ ====================
\ DUMPWORD.4TH
\ Das Ausfuehrungswort
\ ====================

DECIMAL

CREATE path\name 64 chars allot  \ Dateiname

: includepath_pe   ( -- str len ) s" demos\winheader\pe.inc" ;
: includepath_dump ( -- str len ) s" demos\winheader\dumppeh.4th" ;

: DUMPPEH ( "pfad\name" -- )
   nostack                       \ nur fuer Win32for 
   bl word count path\name place
   includepath_dump INCLUDED
;