home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power CD-ROM!! 7
/
POWERCD7.ISO
/
os2
/
fm2_211
/
cvtfbbs.cmd
< prev
next >
Wrap
OS/2 REXX Batch file
|
1994-09-24
|
2KB
|
52 lines
/* Convert FILES.BBS files to WPS .SUBJECT EAs */
/* Modify to taste. */
/* As written, FILES.BBS file must be in the */
/* default directory. */
/* Warning: deletes FILES.BBS when done, change if */
/* desired. */
'@echo off'
describename = stream('FILES.BBS','C','query exists')
if describename \= '' then
do
destream = stream(describename,'C','open')
if destream = "READY:" then
do
say 'Working...'
call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
call SysLoadFuncs
do while lines(describename)
text = linein(describename)
if text \= '' then
do
if left(text,1) \= ' ' then
do
if left(text,1) \= '-' then
do
parse var text filename text
text = left(text,40)
text = strip(text)
filename = strip(filename)
if filename \= '' then
do
if text \= '' then
do
description = 'FDFF'x || d2c(length(text)) || '00'x || text
call SysPutEA filename,'.SUBJECT',description
end
end
end
end
end
end
call stream describename,'C','close'
/* done; delete file. remove next line if that's not what you want. */
'del 'describename
end
end
else
say 'File FILES.BBS not found in current directory.'
exit