reduce-historical/r38/help/mkhelp.dat

(setq package (getenv "package"))

(when (not (filep (bldmsg "%w.rtf" package)))
     (prin2t "########## kein .RTF file gefunden")
     (exitlisp))

(setq file(open (bldmsg "%w.hpj" package) 'output))

(channelprintf file "[OPTIONS]%n")
(channelprintf file "INDEX=main_index%n")
(channelprintf file "TITLE=REDUCE Help System: %w%n" package)
(channelprintf file "COMPRESS=true%n")
(channelprintf file "WARNING=1%n")
(channelprintf file "[FILES]%n")
(channelprintf file "%w.rtf  ; main topics%n" package)

(close file)

(setq file (open "do.bat" 'output))
(channelprintf file "f:\mstools\bin\hc30  %w%n" package)
(channelprintf file "copy %w.hlp d:\redu35\help%n" package)
(channelprintf file "del %w.hpj%n" package)
(close file)

(quit)