home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / extspsht.zip / EXTSPSHT / hlp2inf.cmd < prev    next >
OS/2 REXX Batch file  |  1997-07-11  |  549b  |  21 lines
  1. /* Erzeuge INF aus HLP */
  2. ARG filename
  3.   if stream(filename||'.HLP', 'C', 'QUERY EXISTS') \= '' then do
  4.     say 'Erzeuge ' filename || '.INF'
  5.     '@copy '||filename||'.HLP '||filename||'.INF > NUL'
  6.     if stream(filename||'.INF', 'C', 'OPEN') \= '' then do
  7.       call CharOut filename||'.INF', 'HSP#', 1
  8.       call CharOut filename||'.INF', x2c('01'), 4
  9.       ok = stream(filename||'.INF', 'C', 'CLOSE')
  10.     end
  11.   view filename||'.INF'
  12.   end
  13.   else do
  14.     say 
  15.     say
  16.     say 'Kann '||filename||'.HLP nicht finden'
  17.   end
  18. exit
  19.  
  20.  
  21.