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