home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1998 July & August
/
Pcwk78b98.iso
/
Smart30
/
ENGLISH
/
PRODUCTS
/
LOTUS018.DSK
/
CONVERT.SMM
< prev
next >
Wrap
INI File
|
1994-07-29
|
52KB
|
3,337 lines
[ver]
4
[sty]
[files]
[charset]
82
ANSI (Windows, IBM CP 1252)
[revisions]
0
[prn]
PostScript Printer
[port]
LPT1:
[lang]
1
[fldnames]
Field1
Field2
Field3
Field4
Field5
Field6
Field7
Field8
[desc]
Converts multiple files into Ami Pro format
noautorun
775520921
69
687145443
4569
15
1661
17278
47
47
0
[fopts]
0
1
0
0
[lnopts]
2
Body Text
1
[docopts]
5
2
[GramStyle]
[ParaNum]
1
[tag]
Body Text
2
[fnt]
Arial
240
0
16384
[algn]
1
1
0
0
0
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
272
1
3
.
,
$
Body Text
0
0
[tag]
Function
3
[fnt]
Arial
240
0
16385
[algn]
1
1
0
0
0
[spc]
33
244
1
0
0
1
100
[brk]
68
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
1
0
1
1
0
0
0
0
[nfmt]
272
1
3
.
,
$
Body Text
0
0
[tag]
Header
4
[fnt]
Tms Rmn
200
0
49153
[algn]
4
1
0
0
0
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
272
1
3
.
,
$
Header
0
0
[tag]
Footnote
5
[fnt]
Arial
240
0
16384
[algn]
1
1
0
720
0
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
<*:>
0
1
1
256
0
0
0
[nfmt]
272
1
3
.
,
$
Footnote
0
0
[lay]
Standard
513
[rght]
15840
12240
1
720
1080
1
1252
216
2
1
0
1
1
2
1
720
12024
14
1
720
1
1440
1
2160
1
2880
1
3600
1
4320
1
5040
1
5760
1
6480
1
7200
1
7920
1
8640
1
9360
1
10080
[hrght]
[lyfrm]
1
11200
0
0
12240
1252
0
1
3
1 0 0 0 0 0 0
0
0
1
[frmlay]
1252
12240
1
1440
0
1
360
1440
0
1
0
1
1
0
1
1440
10800
0
[txt]
@Header@<:f,2TimesNewRomanPS,><:X3,0;GetDocInfo$(1)>CONVERT.SMM<:X~3,0;GetDocInfo$(1)><:f>
@Header@<:f,2TimesNewRomanPS,><:X3,0;Description>Automatically converts other word processor document files into Ami Pro files.<:X~3,0;Description>
@Header@<:f,2TimesNewRomanPS,>By: John McDaniel
@Header@<:f,2TimesNewRomanPS,><:X3,0;EditDate %Dd>Friday, November 22, 1991<:X~3,0;EditDate %Dd> at
<:X3,0;EditDate %T6>6:04 pm<:X~3,0;EditDate %T6><:f>
@Header@
>
[frght]
[lyfrm]
1
13248
0
14760
12240
15840
0
1
3
1 0 0 0 0 0 0
0
0
2
[frmlay]
15840
12240
1
1440
360
1
14940
1440
0
1
0
1
1
0
1
1440
10800
0
[txt]
@Header@Revision Number <:X3,0;NumEdits>46<:X~3,0;NumEdits>
@Header@<:P10,0,Page > of <:X3,16384;NumPages>10<:X~3,16384;NumPages>
>
[elay]
[l1]
0
[pg]
15
47 0 5 0 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
94 0 32 0 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
141 0 12 0 0 1 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
188 0 14 0 0 1 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
235 0 15 0 0 1 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
281 0 48 0 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
328 0 40 0 0 1 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
375 0 4 0 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
422 0 31 0 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
469 0 29 0 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
516 0 5 0 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
563 0 9 0 0 1 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
610 0 57 0 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
657 0 50 0 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
682 0 10 1025 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
[edoc]
<:#284,11304>DEFINE LB_ResetContent 0x405
<:#284,11304>DEFINE CB_GetCurSel 0x407
<:#284,11304>DEFINE LB_GetSel 0x408
<:#284,11304>DEFINE LB_GetCount 0x40C
<:#284,11304>DEFINE CB_SetCurSel 0x40E
<:#284,11304>DEFINE GetSelItems() DllCall("user,SendMessage,HHHHN", %1,0x412, %2, %3)
<:#284,11304>DEFINE GetText() DllCall("user,SendMessage,HHHHD", %1,0x40A, %2, %3)
<:#284,11304>DEFINE CloseBox() DllCall("user,EndDialog,HHH",%1,1)
<:#284,11304>DEFINE LB_GetSelCount 0x411
<:#284,11304>
@Function@<:#293,11304>FUNCTION main()
<:#284,11304>DefStr FilterName, InitPath;
<:#284,11304>ONCANCEL endit
<:#284,11304>ONERROR endit
<:#284,11304>HourGlass(1)
<:#284,11304>StatusBarMsg("Loading Batch Convert ...")
<:#284,11304>DIM filetype(1)
<:#284,11304>DIM selfile(100)
<:#284,11304>DIM globals(4)
<:#284,11304>DIM confiles(1)
<:#284,11304>DIM errorfiles(1)
<:#284,11304>AllocGlobalVar("FT",60)
<:#284,11304>AllocGlobalVar("BN",2)
<:#284,11304>appnum=1
<:#284,11304>recnum=1
<:#284,11304>
<:#284,11304>Filters = GetProfileString$("Filters",0,"AmiPro.ini")
<:#284,11304>While "" != Assign(&FilterName, StrField$(Filters, AppNum, "~"))
<:#284,11304> FilterInfo=GetProfileString$("Filters",FilterName,"amipro.ini")
IF (UCASE$(strfield$(FilterInfo,2,","))="T")
<:#284,11304> IF FilterName="Rich Text Format"
<:#284,11304> ppl=5
<:#284,11304> ELSE
<:#284,11304> ppl=4
<:#284,11304> ENDIF
<:#284,11304> type=strcat$(Filtername, ",",(strfield$(FilterInfo,3,",")),",",(strfield$(FilterInfo,ppl,",")))
<:#284,11304> SetGlobalArray("FT",recnum,type)
<:#284,11304> ArrayInsert(&FileType,RecNum, FilterName)
<:#284,11304>' ArrayInsert(&filetype,recnum,(strfield$(FilterInfo,1,",")))
<:#284,11304> recnum=recnum+1
<:#284,11304> ENDIF
<:#284,11304> appnum=appnum+1
<:#284,11304>WEND
<:#284,11304>recnum=GetProfileString$("Convert","initrecnum","amipro.ini")
<:#284,11304>IF recnum="" THEN
<:#284,11304> recnum=3
<:#284,11304>ENDIF
<:#284,11304>'WriteProfileString("Convert","initrecnum",recnum,"amipro.ini")
<:#284,11304>initinfo=GetGlobalArray$("FT",recnum)
<:#284,11304>initmask=strcat$("*",(strfield$(initinfo,2,",")))
<:#284,11304>If -1 = Assign(&initpath,strfield$(initinfo,3,","))
<:#284,11304> initpath=GetDocPath$()
<:#284,11304>Endif
<:#284,11304>IF Right$(initpath,1)<<<;>"\" THEN
<:#284,11304> initpath=strcat$(initpath,"\")
<:#284,11304>ENDIF
<:#284,11304>IF Len(initpath)<;>3 THEN
<:#284,11304> disppath=Left$(initpath,(Len(initpath)- 1))
<:#284,11304>ELSE
<:#284,11304> disppath=initpath
<:#284,11304>ENDIF
<:#284,11304>IF initmask="*.*" THEN
<:#284,11304> showmask=""
<:#284,11304>ELSE
<:#284,11304> showmask=initmask
<:#284,11304>ENDIF
<:#284,11304>FillEdit(9501,&filetype)
<:#284,11304>FillEdit(8000,LCASE$(initmask))
<:#284,11304>FillEdit(8009,"All {showmask} files in directory")
<:#284,11304>FillEdit(8888,LCASE$(disppath))
<:#284,11304>FillEdit(9500,"*.*,0x4000")
<:#284,11304>SetDlgCallback(0,"boxinits")
<:#284,11304>SetDlgCallback(25,"update")
<:#284,11304>SetDlgCallback(9501,"chtype")
<:#284,11304>SetDlgCallback(9005,"multisel")
<:#284,11304>SetDlgCallback(9006,"chdirs")
<:#284,11304>SetDlgCallback(9500,"chdrv")
<:#284,11304>SetDlgCallback(8000,"chmask")
<:#284,11304>HourGlass(0)
<:#284,11304>StatusBarMsg("")
<:#284,11304>box=DialogBox(".","OPENBOX")
<:#284,11304>IF box=0 THEN
<:#284,11304> GOTO endit
<:#284,11304>ENDIF
<:#284,11304>GetGlobalVarNames(&globals)
<:#284,11304>chk=ArraySearch(&globals,"SN")
<:#284,11304>IF chk=0 THEN
<:#284,11304> Message("No Files Selected - Exiting Macro")
<:#284,11304> goto endit
<:#284,11304>ENDIF
<:#284,11304>finfo=GetGlobalArray$("SN",1)
<:#284,11304>ftype=strfield$(finfo,1,",")
<:#284,11304>pth=strfield$(finfo,2,",")
<:#284,11304>totalnums=strfield$(finfo,3,",")
<:#284,11304>IF Right$(pth,1)<<<;>"\" THEN
<:#284,11304> pth=strcat$(pth,"\")
<:#284,11304>ENDIF
<:#284,11304>FOR selnum=2 TO totalnums
<:#284,11304> fil=GetGlobalArray$("SN",selnum)
<:#284,11304> ArrayInsert(&confiles,(selnum - 1),fil)
<:#284,11304>NEXT
<:#284,11304>IF ftype = "ASCII" THEN
<:#284,11304> FillEdit(51,1)
<:#284,11304> FillEdit(56,1)
<:#284,11304> dbox2=dialogbox(".","CONVASC")
<:#284,11304> IF dbox2=0 THEN
<:#284,11304> GOTO endit
<:#284,11304> ENDIF
<:#284,11304> IF GetDialogField$(51)=1 THEN
<:#284,11304> cl="LINE"
<:#284,11304> ELSE
<:#284,11304> cl="PARA"
<:#284,11304> ENDIF
<:#284,11304> IF GetDialogField$(53)=32 THEN
<:#284,11304> ks="KeepStyle"
<:#284,11304> ELSE
<:#284,11304> ks=""
<:#284,11304> ENDIF
<:#284,11304> IF GetDialogField$(55)=4 THEN
<:#284,11304> tp = "ASCII"
<:#284,11304> ELSEIF GetDialogField$(56)=8 THEN
<:#284,11304> tp="PCASCII"
<:#284,11304> ELSE
<:#284,11304> tp="ANSI"
<:#284,11304> ENDIF
<:#284,11304>ELSEIF ftype="Manuscript" THEN
<:#284,11304> FillEdit(22,1)
<:#284,11304> dbox2=dialogbox(".","MSCRIPT")
<:#284,11304> IF dbox2=0 THEN
<:#284,11304> GOTO endit
<:#284,11304> ENDIF
<:#284,11304> IF GetDialogField$(22)=1 THEN
<:#284,11304> param="CONVERT"
<:#284,11304> ELSE
<:#284,11304> param="APPLY"
<:#284,11304> ENDIF
<:#284,11304>ELSEIF ftype="Rich Text Format" THEN
<:#284,11304> FillEdit(22,1)
<:#284,11304> dbox2=dialogbox(".","RTF")
<:#284,11304> IF dbox2=0 THEN
<:#284,11304> GOTO endit
<:#284,11304> ENDIF
<:#284,11304> IF GetDialogField$(22)=1 THEN
<:#284,11304> param = "CONVERT"
<:#284,11304> ELSEIF GetDialogField$(23)=1 THEN
<:#284,11304> param = "APPLY"
<:#284,11304> ELSEIF GetDialogField$(24)=1 THEN
<:#284,11304> param="KEEP"
<:#284,11304> ELSE
<:#284,11304> param="IGNORE"
<:#284,11304> ENDIF
<:#284,11304>ELSEIF ftype="WordPerfect 5.0 & 5.1" THEN
<:#284,11304> FillEdit(23,1)
<:#284,11304> dbox2=dialogbox(".","WPERF")
<:#284,11304> IF dbox2=0 THEN
<:#284,11304> GOTO endit
<:#284,11304> ENDIF
<:#284,11304> IF GetDialogField$(23)=1 THEN
<:#284,11304> param="APPLY"
<:#284,11304> ELSEIF GetDialogField$(24)=1 THEN
<:#284,11304> param="IGNORE"
<:#284,11304> ELSE
<:#284,11304> param="STYLE"
<:#284,11304> ENDIF
<:#284,11304>ENDIF
<:#284,11304>num=ArraySize(&confiles)
<:#284,11304>IF num = 1 AND confiles(1)="" THEN
<:#284,11304> Message("No Files Selected - Exiting Macro")
<:#284,11304> GOTO endit
<:#284,11304>ENDIF
<:#284,11304>success=0
<:#284,11304>numerrors=0
<:#284,11304>FOR x=1 TO num
<:#284,11304> namseq=0
<:#284,11304> fname=confiles(x)
<:#284,11304> oldname=fname
<:#284,11304> zros=""
<:#284,11304> New("_DEFAULT.STY",0,128)
<:#284,11304> StatusBarMsg("Importing file {x} of {num}")
<:#284,11304> AnswerMsgBox(OK)
<:#284,11304> IF ftype = "ASCII" THEN
<:#284,11304> fname=strcat$(pth,fname)
<:#284,11304> res = ImportExport(Import,fname,ftype,0,cl,tp,ks)
<:#284,11304> ELSE
<:#284,11304> fname=strcat$(pth,fname)
<:#284,11304> res = ImportExport(Import,fname,ftype,0,param)
<:#284,11304> ENDIF
<:#284,11304> IF res=1 THEN
<:#284,11304> success=success+1
<:#284,11304> ELSE
<:#284,11304> StatusBarMsg("Import failed on {fname}")
<:#284,11304> numerrors=numerrors+1
<:#284,11304> ArrayInsert(&errorfiles,numerrors,oldname)
<:#284,11304> GOTO skipit
<:#284,11304> ENDIF
<:#284,11304> place=strchr(1,fname,".")
<:#284,11304> IF place<<0 THEN
<:#284,11304> newfname=strcat$(fname,".SAM")
<:#284,11304> ELSE
<:#284,11304> newfname=strcat$((Left$(fname,place)),"SAM")
<:#284,11304> ENDIF
<:#284,11304> savedate=FormatDate$(Now(),0)
<:#284,11304> adto=0
<:#284,11304> recheck:
<:#284,11304> zros=""
<:#284,11304> dupexist=FindFirst$(newfname,0)
<:#284,11304> IF dupexist<<<;>"" THEN
<:#284,11304> savdpth=Left$(newfname,(Len(newfname) - Len(dupexist)))
<:#284,11304> newfname=Left$(dupexist,(Len(dupexist) - 4))
<:#284,11304> StatusBarMsg("Duplicate filename exists... saving file with new name")
<:#284,11304> namseq=namseq+1
<:#284,11304> adto=8 - (Len(newfname))
<:#284,11304> FOR jav=1 TO adto
<:#284,11304> zros=strcat$(zros,"0")
<:#284,11304> NEXT
<:#284,11304> newfname=strcat$(newfname,zros)
<:#284,11304> takoff=8 - (Len(namseq))
<:#284,11304> newfname=Left$(newfname,takoff)
<:#284,11304> newfname=strcat$(savdpth,newfname,namseq,".SAM")
<:#284,11304> GOTO recheck
<:#284,11304> ENDIF
<:#284,11304> SaveAs(newfname,32,"File {oldname} was converted from {ftype} on {savedate}","")
<:#284,11304> FileChanged(1,0)
<:#284,11304> skipit:
<:#284,11304>NEXT
<:#284,11304>IF num = 1 THEN
<:#284,11304> s = ""
<:#284,11304>ELSE
<:#284,11304> s = "s"
<:#284,11304>ENDIF
<:#284,11304>IF success=num THEN
<:#284,11304> Message("{success} of {num} file{s} successfully converted")
<:#284,11304>ELSE
<:#284,11304> FillEdit(9002,&errorfiles)
<:#284,11304> FillEdit(21,1)
<:#284,11304> FillEdit(1003,success)
<:#284,11304> FillEdit(1005,numerrors)
<:#284,11304> box=DialogBox(".","ERRORS")
<:#284,11304> IF box=0 THEN
<:#284,11304> GOTO endit
<:#284,11304> ENDIF
<:#284,11304> IF GetDialogField$(21)=1 THEN
<:#284,11304> New("_DEFAULT.STY",0,128)
<:#284,11304> GOTO endit
<:#284,11304> ELSE
<:#284,11304> pors=GetDialogField$(23)
<:#284,11304> New("_DEFAULT.STY",0,128)
<:#284,11304> TYPE("The following files could not be converted from {ftype} into Ami Pro:<[>enter]<[>enter]")
<:#284,11304> FOR x=1 TO numerrors
<:#284,11304> curerror=errorfiles(x)
<:#284,11304> TYPE("{curerror} -- File is not the correct type for the import filter<[>enter]")
<:#284,11304> NEXT
<:#284,11304> TYPE("<[>enter]<[>enter]Files are located in the directory {pth}")
<:#284,11304> IF pors=1 THEN
<:#284,11304> num=1
<:#284,11304> tryagain:
<:#284,11304> dupexist=FindFirst$("{pth}ERRORS{num}.SAM",0)
<:#284,11304> IF dupexist<<<;>"" THEN
<:#284,11304> num=num+1
<:#284,11304> GOTO tryagain
<:#284,11304> ENDIF
<:#568,11304> SaveAs("{pth}ERRORS{num}.SAM",32,"Error report for batch file conversion from {ftype} on {savedate}","")
<:#284,11304> ELSE
<:#284,11304> FilePrint(1,1,9999,1537)
<:#284,11304> ENDIF
<:#284,11304> ENDIF
<:#284,11304>ENDIF
<:#284,11304>endit:
<:#284,11304>IF success=num THEN
<:#284,11304> New("_DEFAULT.STY",0,128)
<:#284,11304>ENDIF
<:#284,11304>HourGlass(0)
<:#284,11304>FreeGlobalVar("FT")
<:#284,11304>FreeGlobalVar("BN")
<:#284,11304>FreeGlobalVar("SN")
<:#284,11304>StatusBarMsg("")
<:#284,11304>END FUNCTION
<:#284,11304>
@Function@<:#293,11304>FUNCTION multisel(hDlg,id,value)
<:#284,11304>handle=GetDlgItem(hDlg,9005)
<:#284,11304>totsel=AppSendMessage(handle,LB_GetSelCount,0,0)
<:#284,11304>IF totsel=0 THEN
<:#284,11304> mask=GetDlgItemText(hDlg,8000)
<:#284,11304>ELSE
<:#284,11304> mask="highlighted"
<:#284,11304>ENDIF
<:#284,11304>SetDlgItemText(hDlg,8009,"All {mask} files in directory")
<:#284,11304>END FUNCTION
<:#284,11304>
@Function@<:#293,11304>FUNCTION update(hDlg,id,value)
<:#284,11304>FreeGlobalVar("SN")
<:#284,11304>IF Left$(GetDlgItemText(hDlg,8009),15)="All highlighted" THEN
<:#284,11304> num=2
<:#284,11304> DIM selnums(51)
<:#284,11304> fname=""
<:#284,11304> res=GetSelItems(GetDlgItem(hDlg,9005),50,&selnums)
<:#284,11304> FOR x=1 TO res
<:#284,11304> curindx=selnums(x)
<:#284,11304> IF curindx="" THEN
<:#284,11304> BREAK
<:#284,11304> ENDIF
<:#284,11304> AllocGlobalVar("SN",res+1)
<:#284,11304> GetText(GetDlgItem(hDlg,9005),curindx,&fname)
<:#284,11304> SetGlobalArray("SN",num,fname)
<:#284,11304> num=num+1
<:#284,11304> NEXT
<:#284,11304> IF res<<<;>0 THEN
<:#284,11304> ftype=GetDlgItemText(hDlg,9501)
<:#284,11304> pth=GetDlgItemText(hDlg,8888)
<:#284,11304> nfiles=num - 1
<:#284,11304> finfo=strcat$(ftype,",",pth,",",nfiles)
<:#284,11304> SetGlobalArray("SN",1,finfo)
<:#284,11304> ENDIF
<:#284,11304> CloseBox(hDlg)
<:#284,11304> exit function
<:#284,11304>ELSEIF Left$(GetDlgItemText(hDlg,8009),3)="All" THEN
<:#284,11304> handle=GetDlgItem(hDlg,9005)
<:#284,11304> totnumfils=AppSendMessage(handle,LB_GetCount,0,0)
<:#284,11304> IF totnumfils=0 THEN
<:#284,11304> CloseBox(hDlg)
<:#284,11304> exit function
<:#284,11304> ENDIF
<:#284,11304> AllocGlobalVar("SN",totnumfils+1)
<:#284,11304> fname=""
<:#284,11304> ftype=GetDlgItemText(hDlg,9501)
<:#284,11304> pth=GetDlgItemText(hDlg,8888)
<:#284,11304> nfiles=totnumfils+1
<:#284,11304> finfo=strcat$(ftype,",",pth,",",nfiles)
<:#284,11304> SetGlobalArray("SN",1,finfo)
<:#284,11304> FOR x=0 TO totnumfils - 1
<:#284,11304> GetText(GetDlgItem(hDlg,9005),x,&fname)
<:#284,11304> SetGlobalArray("SN",x+2,fname)
<:#284,11304> NEXT
<:#284,11304> CloseBox(hDlg)
<:#284,11304> exit function
<:#284,11304>ENDIF
<:#284,11304>newmask=GetDlgItemText(hDlg,8000)
<:#284,11304>IF Mid$(newmask,2,1)=":" THEN
<:#284,11304> res=Len(newmask)
<:#284,11304> lb=chr$(91)
<:#284,11304> WHILE(1)
<:#284,11304> sep=instr(res,newmask,"\")
<:#284,11304> IF sep=res THEN
<:#284,11304> BREAK
<:#284,11304> ENDIF
<:#284,11304> res=res - 1
<:#284,11304> WEND
<:#284,11304> IF sep<<<;>0 THEN
<:#284,11304> curdir=Left$(newmask,sep)
<:#284,11304> newmask=Right$(newmask,(Len(newmask) - sep))
<:#284,11304> IF Len(curdir)=3 THEN
<:#284,11304> bks=0
<:#284,11304> ELSE
<:#284,11304> bks=1
<:#284,11304> ENDIF
<:#284,11304> SetDlgItemText(hDlg,8888,Left$(curdir,(Len(curdir) - bks)))
<:#284,11304> SetDlgItemText(hDlg,8000,newmask)
<:#284,11304> handle=GetDlgItem(hDlg,9006)
<:#284,11304> filldir=strcat$(curdir,"*.*")
<:#284,11304> AppSendMessage(handle,LB_ResetContent,0,0)
<:#284,11304> AppSendMessage(handle,CB_SetCurSel,0x8010,filldir)
<:#284,11304> ENDIF
<:#284,11304> IF Left$(curdir,1)<<<;>GetDlgItemText(hDlg,9500) THEN
<:#284,11304> dletter=Left$(curdir,1)
<:#284,11304> initdrv="{lb}-{dletter}-]"
<:#284,11304> FOR drvnum=0 to 25
<:#284,11304> handle=GetDlgItem(hDlg,9500)
<:#284,11304> AppSendMessage(handle,CB_SetCurSel,drvnum,0)
<:#284,11304> seldrv=GetDlgItemText(hDlg,9500)
<:#284,11304> IF seldrv=initdrv THEN
<:#284,11304> BREAK
<:#284,11304> ENDIF
<:#284,11304> NEXT
<:#284,11304> ENDIF
<:#284,11304>ELSE
<:#284,11304> curdir=GetDlgItemText(hDlg,8888)
<:#284,11304> IF Right$(curdir,1)<<<;>"\" THEN
<:#284,11304> curdir=strcat$(curdir,"\")
<:#284,11304> ENDIF
<:#284,11304>ENDIF
<:#284,11304>handle=GetDlgItem(hDlg,9501)
<:#284,11304>cbnum=AppSendMessage(handle,CB_GetCurSel,0,0)
<:#284,11304>typeinfo=GetGlobalArray$("FT",cbnum+1)
<:#284,11304>type=strfield$(typeinfo,1,",")
<:#284,11304>typepath=strfield$(typeinfo,3,",")
<:#284,11304>newtypeinfo=strcat$(type,",",newmask,",",typepath)
<:#284,11304>SetGlobalArray("FT",cbnum+1,newtypeinfo)
<:#284,11304>fillfile=strcat$(curdir,newmask)
<:#284,11304>handle=GetDlgItem(hDlg,9005)
<:#284,11304>AppSendMessage(handle,LB_ResetContent,0,0)
<:#284,11304>AppSendMessage(handle,CB_SetCurSel,0,fillfile)
<:#284,11304>SetDlgItemText(hDlg,8009,"All {newmask} files in directory")
<:#284,11304>END FUNCTION
<:#284,11304>
@Function@<:#293,11304>FUNCTION chmask(hDlg,id,value)
<:#284,11304>IgnoreKeyboard(1)
<:#284,11304>SetDlgItemText(hDlg,8009,"Choose ""OK"" to update file listing")
<:#284,11304>END FUNCTION
<:#284,11304>
@Function@<:#293,11304>FUNCTION chdrv(hDlg,id,value)
<:#284,11304>HourGlass(1)
<:#284,11304>lb=chr$(91)
<:#284,11304>dletter=Mid$(value,3,1)
<:#284,11304>newdir=strcat$(dletter,":\")
<:#284,11304>SetDlgItemText(hDlg,8888,newdir)
<:#284,11304>handle=GetDlgItem(hDlg,9501)
<:#284,11304>cbnum=AppSendMessage(handle,CB_GetCurSel,0,0)
<:#284,11304>curtype=GetGlobalArray$("FT",cbnum+1)
<:#284,11304>mask=strfield$(curtype,2,",")
<:#284,11304>fillfile=strcat$(newdir,"*",mask)
<:#284,11304>handle=GetDlgItem(hDlg,9005)
<:#284,11304>AppSendMessage(handle,LB_ResetContent,0,0)
<:#284,11304>AppSendMessage(handle,CB_SetCurSel,0,fillfile)
<:#284,11304>filldir=strcat$(newdir,"*.*")
<:#284,11304>handle=GetDlgItem(hDlg,9006)
<:#284,11304>AppSendMessage(handle,LB_ResetContent,0,0)
<:#284,11304>AppSendMessage(handle,CB_SetCurSel,0x8010,filldir)
<:#284,11304>HourGlass(0)
<:#284,11304>END FUNCTION
<:#284,11304>
@Function@<:#293,11304>FUNCTION chdirs(hDlg,id,value)
<:#284,11304>godir=GetDlgItemText(hDlg,9006)
<:#284,11304>IF godir="" THEN
<:#284,11304> EXIT FUNCTION
<:#284,11304>ENDIF
<:#284,11304>thetime=Now()
<:#284,11304>IF godir=GetGlobalArray$("BN",1) AND 1<;>thetime-GetGlobalArray$("BN",2) THEN
<:#284,11304> SetGlobalArray("BN",1,"")
<:#284,11304>ELSE
<:#284,11304> SetGlobalArray("BN",1,godir)
<:#284,11304> SetGlobalArray("BN",2,thetime)
<:#284,11304> EXIT FUNCTION
<:#284,11304>ENDIF
<:#284,11304>HourGlass(1)
<:#284,11304>lb=chr$(91)
<:#284,11304>space=" "
<:#284,11304>mask=GetDlgItemText(hDlg,8000)
<:#284,11304>cdr=GetDlgItemText(hDlg,8888)
<:#284,11304>IF Len(cdr)=3 THEN
<:#284,11304> bs=""
<:#284,11304>ELSE
<:#284,11304> bs="\"
<:#284,11304>ENDIF
<:#284,11304>godir=MID$(godir,2,(Len(godir) - 2))
<:#284,11304>IF godir<<<;>".." THEN
<:#284,11304>
<:#284,11304> newdir=strcat$(cdr,bs,godir)
<:#284,11304>ELSE
<:#284,11304> cnt=1
<:#284,11304> WHILE(1)
<:#284,11304> res=MID$(cdr,(Len(cdr) - cnt),1)
<:#284,11304> IF res="\" THEN
<:#284,11304> BREAK
<:#284,11304> ENDIF
<:#284,11304> cnt=cnt+1
<:#284,11304> WEND
<:#284,11304> newdir=Left$(cdr,(Len(cdr)-cnt))
<:#284,11304>ENDIF
<:#284,11304>IF Len(newdir)<<<;>3 AND Right$(newdir,1)="\" THEN
<:#284,11304> newdir=Left$(newdir,Len(newdir) - 1)
<:#284,11304>ENDIF
<:#284,11304>SetDlgItemText(hDlg,8888,(LCASE$(newdir)))
<:#284,11304>IF Right$(newdir,1)<<<;>"\" THEN
<:#284,11304> newdir=strcat$(newdir,"\")
<:#284,11304>ENDIF
<:#284,11304>handle=GetDlgItem(hDlg,9501)
<:#284,11304>cbnum=AppSendMessage(handle,CB_GetCurSel,0,0)
<:#284,11304>curtype=GetGlobalArray$("FT",cbnum+1)
<:#284,11304>mask=strfield$(curtype,2,",")
<:#284,11304>fillfile=strcat$(newdir,"*",mask)
<:#284,11304>handle=GetDlgItem(hDlg,9005)
<:#284,11304>AppSendMessage(handle,LB_ResetContent,0,0)
<:#284,11304>AppSendMessage(handle,CB_SetCurSel,0,fillfile)
<:#284,11304>filldir=strcat$(newdir,"*.*")
<:#284,11304>handle=GetDlgItem(hDlg,9006)
<:#284,11304>AppSendMessage(handle,LB_ResetContent,0,0)
<:#284,11304>AppSendMessage(handle,CB_SetCurSel,0x8010,filldir)
<:#284,11304>IF Left$(GetDlgItemText(hDlg,8009),15)="All highlighted" THEN
<:#284,11304> IF Left$(mask,1)="." THEN
<:#284,11304> mask=strcat$("*",mask)
<:#284,11304> ENDIF
<:#284,11304> IF mask="*.*" THEN
<:#284,11304> mask=""
<:#284,11304> space=""
<:#284,11304> ENDIF
<:#284,11304> SetDlgItemText(hDlg,8009,"All{space}{mask} files in directory")
<:#284,11304>ENDIF
<:#284,11304>HourGlass(0)
<:#284,11304>END FUNCTION
<:#284,11304>
@Function@<:#293,11304>FUNCTION chtype(hDlg,id,value)
<:#284,11304>DefStr Cdr;
<:#284,11304>HourGlass(1)
<:#284,11304>lb=chr$(91)
<:#284,11304>handle=GetDlgItem(hDlg,9501)
<:#284,11304>cbnum=AppSendMessage(handle,CB_GetCurSel,0,0)
<:#284,11304>'WriteProfileString("Convert","initrecnum",(cbnum+1),"amipro.ini")
<:#284,11304>
<:#284,11304>
<:#284,11304>srchnum=1
<:#284,11304>WHILE 1
<:#284,11304> curtype=GetGlobalArray$("FT",srchnum)
<:#284,11304> curone=strfield$(curtype,1,",")
<:#284,11304> IF curone=value THEN
<:#284,11304> BREAK
<:#284,11304> ENDIF
<:#284,11304> srchnum=srchnum+1
<:#284,11304>WEND
<:#284,11304>mask=strfield$(curtype,2,",")
<:#284,11304>If -1 = Assign(&cdr,strfield$(curtype,3,","))
<:#284,11304> cdr=GetDocPath$()
<:#284,11304>Endif
<:#284,11304>
<:#284,11304>IF Len(cdr)<;>3 AND Right$(cdr,1)<<<;>"\" THEN
<:#284,11304> cdr=strcat$(cdr,"\")
<:#284,11304>ENDIF
<:#284,11304>handle=GetDlgItem(hDlg,9005)
<:#284,11304>AppSendMessage(handle,LB_ResetContent,0,0)
<:#284,11304>IF Len(cdr)=2 THEN
<:#284,11304> cdr=strcat$(cdr,"\")
<:#284,11304> sbs=0
<:#284,11304>ELSEIF Len(cdr)=3 THEN
<:#284,11304> sbs=0
<:#284,11304>ELSE
<:#284,11304> sbs=1
<:#284,11304>ENDIF
<:#284,11304>SetDlgItemText(hDlg,8888,LCASE$((Left$(cdr,(Len(cdr)- sbs)))))
<:#284,11304>newdrvltr=LCASE$(Left$(cdr,1))
<:#284,11304>fillfile=strcat$(cdr,"*",mask)
<:#284,11304>handle=GetDlgItem(hDlg,9005)
<:#284,11304>AppSendMessage(handle,LB_ResetContent,0,0)
<:#284,11304>AppSendMessage(handle,CB_SetCurSel,0,fillfile)
<:#284,11304>filldir=strcat$(cdr,"*.*")
<:#284,11304>handle=GetDlgItem(hDlg,9006)
<:#284,11304>AppSendMessage(handle,LB_ResetContent,0,0)
<:#284,11304>AppSendMessage(handle,CB_SetCurSel,0x8010,filldir)
<:#284,11304>IF Left$(mask,1)="." THEN
<:#284,11304> mask=strcat$("*",mask)
<:#284,11304>ENDIF
<:#284,11304>SetDlgItemText(hDlg,8000,LCASE$("{mask}"))
<:#284,11304>newdrv="{lb}-{newdrvltr}-]"
<:#284,11304>FOR drvnum=0 to 25
<:#284,11304> handle=GetDlgItem(hDlg,9500)
<:#284,11304> AppSendMessage(handle,CB_SetCurSel,drvnum,0)
<:#284,11304> seldrv=GetDlgItemText(hDlg,9500)
<:#284,11304> IF seldrv=newdrv THEN
<:#284,11304> BREAK
<:#284,11304> ENDIF
<:#284,11304>NEXT
<:#284,11304>mask=LCASE$(mask)
<:#284,11304>IF mask="*.*" THEN
<:#284,11304> mask=""
<:#284,11304>ENDIF
<:#284,11304>SetDlgItemText(hDlg,8009,"All {mask} files in directory")
<:#284,11304>HourGlass(0)
<:#284,11304>END FUNCTION
<:#284,11304>
@Function@<:#293,11304>FUNCTION boxinits(hDlg,id,value)
<:#284,11304>HourGlass(1)
<:#284,11304>lb=chr$(91)
<:#284,11304>recnum=GetProfileString$("Convert","initrecnum","amipro.ini")
<:#284,11304>IF recnum="" THEN
<:#284,11304> recnum=3
<:#284,11304>ENDIF
<:#284,11304>handle=GetDlgItem(hDlg,9501)
<:#284,11304>AppSendMessage(handle,CB_SetCurSel,(recnum - 1),0)
<:#284,11304>typeinfo=GetGlobalArray$("FT",recnum)
<:#284,11304>dletter=Left$((strfield$(typeinfo,3,",")),1)
<:#284,11304>IF dletter="" THEN
<:#284,11304> dletter=Left$((GetDocPath$()),1)
<:#284,11304>ENDIF
<:#284,11304>dletter=Lcase$(dletter)
<:#284,11304>initdrv="{lb}-{dletter}-]"
<:#284,11304>FOR drvnum=0 to 25
<:#284,11304> handle=GetDlgItem(hDlg,9500)
<:#284,11304> AppSendMessage(handle,CB_SetCurSel,drvnum,0)
<:#284,11304> seldrv=GetDlgItemText(hDlg,9500)
<:#284,11304> IF seldrv=initdrv THEN
<:#284,11304> BREAK
<:#284,11304> ENDIF
<:#284,11304>NEXT
<:#284,11304>filldir=GetDlgItemText(hDlg,8888)
<:#284,11304>mask=GetDlgItemText(hDlg,8000)
<:#284,11304>IF Right$(filldir,1)<<<;>"\" THEN
<:#284,11304> filldir=strcat$(filldir,"\")
<:#284,11304>ENDIF
<:#284,11304>fillfile=strcat$(filldir,"*",mask)
<:#284,11304>filldir=strcat$(filldir,"*.*")
<:#284,11304>handle=GetDlgItem(hDlg,9006)
<:#284,11304>AppSendMessage(handle,CB_SetCurSel,0x8010,filldir)
<:#284,11304>handle=GetDlgItem(hDlg,9005)
<:#284,11304>AppSendMessage(handle,CB_SetCurSel,0,fillfile)
<:#284,11304>HourGlass(0)
<:#284,11304>END FUNCTION
<:#284,11304>
<:#284,11304>------------------------------------------------------------------------------------------
<:#284,11304>DIALOG OPENBOX
<:#284,11304>-2134376448 16 104 35 219 115 "" "" "Batch Convert"
<:#284,11304>FONT 6 "Helv"
<:#284,11304>5 4 40 10 1001 1342308352 "static" "File &name:" 0
<:#284,11304>66 3 95 11 8000 1350631552 "edit" "" 0
<:#284,11304>5 15 40 10 1002 1342308352 "static" "Directory:" 0
<:#284,11304>66 16 102 9 8888 1342177280 "static" "show directory here" 0
<:#284,11304>5 26 27 10 1003 1342308352 "static" "&Files:" 0
<:#284,11304>5 36 58 69 9005 1352728587 "listbox" "" 0
<:#284,11304>66 26 44 10 1004 1342308352 "static" "&Directories:" 0
<:#284,11304>66 36 58 69 9006 1352728579 "listbox" "" 0
<:#284,11304>127 26 27 10 1006 1342308352 "static" "Dri&ves:" 0
<:#284,11304>127 36 34 45 9500 1344339971 "combobox" "" 0
<:#284,11304>127 54 53 10 1007 1342308352 "static" "&Convert from:" 0
<:#284,11304>127 64 87 41 9501 1344340227 "combobox" "" 0
<:#284,11304>174 3 40 14 25 1342373889 "button" "OK" 0
<:#284,11304>174 19 40 14 2 1342373888 "button" "Cancel" 0
<:#284,11304>5 105 57 9 1008 1342177280 "static" "Files to convert:" 0
<:#284,11304>66 105 148 9 8009 1342177280 "static" "All" 0
<:#284,11304>END DIALOG
<:#284,11304>------------------------------------------------------------------------------------------
<:#284,11304>DIALOG CONVASC
<:#284,11304>-2134376448 11 109 75 175 111 "" "" "ASCII Options"
<:#284,11304>FONT 6 "Helv"
<:#284,11304>127 6 40 14 1 1342242817 "button" "OK" 0
<:#284,11304>127 23 40 14 2 1342242816 "button" "Cancel" 0
<:#284,11304>9 6 106 54 10 1342177287 "button" "ASCII File Options" 0
<:#284,11304>17 15 60 9 51 1342373897 "button" "CR/LF at &lines" 0
<:#284,11304>17 27 74 10 52 1342242825 "button" "CR/LF at ¶graph" 0
<:#284,11304>26 37 40 9 1000 1342177280 "static" "ends only" 0
<:#284,11304>17 47 71 11 53 1342373891 "button" "&Keep style names" 0
<:#284,11304>9 62 106 44 11 1342177287 "button" "ASCII File Type" 0
<:#284,11304>17 72 50 10 55 1342373897 "button" "&7 bit ASCII" 0
<:#284,11304>17 83 54 10 56 1342242825 "button" "&8 bit PC-ASCII" 0
<:#284,11304>17 94 43 10 57 1342242825 "button" "8 bit &ANSI" 0
<:#284,11304>END DIALOG
<:#284,11304>------------------------------------------------------------------------------------------
<:#284,11304>DIALOG MSCRIPT
<:#284,11304>-2134376448 5 113 94 187 44 "" "" "Options"
<:#284,11304>FONT 6 "Helv"
<:#284,11304>7 5 124 35 21 1342373895 "button" "Paragraph Styles" 0
<:#284,11304>13 15 94 10 22 1342177289 "button" "&Convert levels into styles" 0
<:#284,11304>13 25 63 10 23 1342177289 "button" "&Apply styles" 0
<:#284,11304>139 5 40 14 1 1342373889 "button" "OK" 0
<:#284,11304>139 21 40 14 2 1342373888 "button" "Cancel" 0
<:#284,11304>END DIALOG
<:#284,11304>------------------------------------------------------------------------------------------
<:#284,11304>DIALOG RTF
<:#284,11304>-2134376448 7 129 81 160 63 "" "" "Import Options"
<:#284,11304>FONT 6 "Helv"
<:#284,11304>19 14 59 10 22 1342373897 "button" "&Convert styles" 0
<:#284,11304>19 25 50 10 23 1342177289 "button" "&Apply styles" 0
<:#284,11304>19 35 71 11 24 1342177289 "button" "&Keep style names" 0
<:#284,11304>19 46 56 11 25 1342177289 "button" "&Ignore styles" 0
<:#284,11304>116 5 40 14 1 1342373889 "button" "OK" 0
<:#284,11304>116 21 40 14 2 1342373888 "button" "Cancel" 0
<:#284,11304>9 4 98 54 20 1342177287 "button" "Paragraph Styles" 0
<:#284,11304>END DIALOG
<:#284,11304>------------------------------------------------------------------------------------------
<:#284,11304>DIALOG WPERF
<:#284,11304>-2134376448 6 128 81 160 55 "" "" "Import Options"
<:#284,11304>FONT 6 "Helv"
<:#284,11304>19 14 50 11 23 1342373897 "button" "&Apply styles" 0
<:#284,11304>19 25 56 11 24 1342177289 "button" "&Ignore styles" 0
<:#284,11304>19 36 76 11 25 1342177289 "button" "Import &style sheet" 0
<:#284,11304>116 5 40 14 1 1342373889 "button" "OK" 0
<:#284,11304>116 21 40 14 2 1342373888 "button" "Cancel" 0
<:#284,11304>9 4 98 46 20 1342177287 "button" "Paragraph Styles" 0
<:#284,11304>END DIALOG
<:#284,11304>------------------------------------------------------------------------------------------
<:#284,11304>DIALOG ERRORS
<:#284,11304>-2134376448 12 118 65 187 81 "" "" "Error Report"
<:#284,11304>FONT 6 "Helv"
<:#284,11304>64 26 71 45 20 1342177287 "button" "Report options" 0
<:#284,11304>6 4 40 9 1000 1342177280 "static" "Failure list:" 0
<:#284,11304>64 4 54 9 1001 1342177280 "static" "Files converted:" 0
<:#284,11304>78 12 41 9 1002 1342177280 "static" "Failed files:" 0
<:#284,11304>120 4 19 9 1003 1342177280 "static" "9999" 0
<:#284,11304>120 12 19 9 1005 1342177280 "static" "9999" 0
<:#284,11304>142 5 40 14 1 1342373889 "button" "OK" 0
<:#284,11304>142 21 40 14 2 1342373888 "button" "Cancel" 0
<:#284,11304>70 37 50 10 21 1342373897 "button" "&No report" 0
<:#284,11304>70 48 49 10 22 1342177289 "button" "&Print report" 0
<:#284,11304>70 59 61 10 23 1342177289 "button" "&Save report file" 0
<:#284,11304>6 14 52 60 9002 1352794115 "listbox" "" 0
<:#284,11304>END DIALOG
>
[Embedded]
00034002
>
[macsum] 14
main 0 0 51 10
multisel 6176 3 4 278
update 6395 3 29 289
chmask 9310 3 1 394
chdrv 9397 3 10 399
chdirs 9874 3 16 420
chtype 11532 3 16 490
boxinits 13050 3 12 557
OPENBOX 13973 0 -1 596
CONVASC 14871 0 -1 617
MSCRIPT 15556 0 -1 633
RTF 15906 0 -1 643
WPERF 16361 0 -1 655
ERRORS 16763 0 -1 666
[macse]
14 main
19 00006048
20 00006048
0 296 1
0 789 "Loading Batch Convert ..."
5 1
21 3 [X]
5 100
21 4 [X]
5 4
21 5 [X]
5 1
21 6 [X]
5 1
21 7 [X]
0 271 "FT" 60
0 271 "BN" 2
5 1
8 8
5 1
8 9
0 286 "Filters" 0 "AmiPro.ini"
13
8 10
7 ""
0 20 "{10}" "{8}" "~"
13
0 805 &1 [X]
13
18 1
11 00000697
0 286 "Filters" "{1}" "amipro.ini"
13
8 11
0 20 "{11}" 2 ","
13
0 18 [X]
13
7 "T"
18 0
11 00000664
6 1
7 "Rich Text Format"
18 0
11 00000496
5 5
8 12
10 00000507
5 4
8 12
0 20 "{11}" 3 ","
13
0 20 "{11}" "{12}" ","
13
0 16 "{1}" "," [X] "," [X]
13
8 13
0 272 "FT" "{9}" "{13}"
0 1041 &3 "{9}" "{1}"
6 9
5 1
3 0
8 9
6 8
5 1
3 0
8 8
10 00000247
0 286 "Convert" "initrecnum" "amipro.ini"
13
8 9
6 9
7 ""
18 0
11 00000789
5 3
8 9
0 273 "FT" "{9}"
13
8 14
0 20 "{14}" 2 ","
13
0 16 "*" [X]
13
8 15
5 -1
0 20 "{14}" 3 ","
13
0 805 &2 [X]
13
18 0
11 00000946
0 268
13
8 2
0 807 "{2}" 1
13
7 "\"
18 1
11 00001016
0 16 "{2}" "\"
13
8 2
0 14 "{2}"
13
5 3
18 3
11 00001122
0 14 "{2}"
13
5 1
3 1
0 806 "{2}" [X]
13
8 16
10 00001133
6 2
8 16
6 15
7 "*.*"
18 0
11 00001192
7 ""
8 17
10 00001204
6 15
8 17
0 31 9501 &3
0 17 "{15}"
13
0 31 8000 [X]
0 31 8009 "All {17} files in directory"
0 17 "{16}"
13
0 31 8888 [X]
0 31 9500 "*.*,0x4000"
0 41 0 "boxinits"
0 41 25 "update"
0 41 9501 "chtype"
0 41 9005 "multisel"
0 41 9006 "chdirs"
0 41 9500 "chdrv"
0 41 8000 "chmask"
0 296 0
0 789 ""
0 26 "." "OPENBOX"
13
8 18
6 18
5 0
18 0
11 00001577
10 00006048
0 300 &5
0 1044 &5 "SN"
13
8 19
6 19
5 0
18 0
11 00001697
0 3 "No Files Selected - Exiting Macro"
10 00006048
0 273 "SN" 1
13
8 20
0 20 "{20}" 1 ","
13
8 21
0 20 "{20}" 2 ","
13
8 22
0 20 "{20}" 3 ","
13
8 23
0 807 "{22}" 1
13
7 "\"
18 1
11 00001881
0 16 "{22}" "\"
13
8 22
5 2
8 24
6 23
6 24
18 2
12 00001971
10 00002051
5 1
6 24
3 0
8 24
10 00001892
0 273 "SN" "{24}"
13
8 25
6 24
5 1
3 1
0 1041 &6 [X] "{25}"
10 00001936
6 21
7 "ASCII"
18 0
11 00002513
0 31 51 1
0 31 56 1
0 26 "." "CONVASC"
13
8 26
6 26
5 0
18 0
11 00002182
10 00006048
0 27 51
13
5 1
18 0
11 00002248
7 "LINE"
8 27
10 00002264
7 "PARA"
8 27
0 27 53
13
5 32
18 0
11 00002336
7 "KeepStyle"
8 28
10 00002348
7 ""
8 28
0 27 55
13
5 4
18 0
11 00002415
7 "ASCII"
8 29
10 00002500
0 27 56
13
5 8
18 0
11 00002484
7 "PCASCII"
8 29
10 00002500
7 "ANSI"
8 29
10 00003383
6 21
7 "Manuscript"
18 0
11 00002737
0 31 22 1
0 26 "." "MSCRIPT"
13
8 26
6 26
5 0
18 0
11 00002638
10 00006048
0 27 22
13
5 1
18 0
11 00002707
7 "CONVERT"
8 30
10 00002724
7 "APPLY"
8 30
10 00003383
6 21
7 "Rich Text Format"
18 0
11 00003097
0 31 22 1
0 26 "." "RTF"
13
8 26
6 26
5 0
18 0
11 00002864
10 00006048
0 27 22
13
5 1
18 0
11 00002933
7 "CONVERT"
8 30
10 00003084
0 27 23
13
5 1
18 0
11 00003000
7 "APPLY"
8 30
10 00003084
0 27 24
13
5 1
18 0
11 00003066
7 "KEEP"
8 30
10 00003084
7 "IGNORE"
8 30
10 00003383
6 21
7 "WordPerfect 5.0 & 5.1"
18 0
11 00003383
0 31 23 1
0 26 "." "WPERF"
13
8 26
6 26
5 0
18 0
11 00003231
10 00006048
0 27 23
13
5 1
18 0
11 00003298
7 "APPLY"
8 30
10 00003383
0 27 24
13
5 1
18 0
11 00003366
7 "IGNORE"
8 30
10 00003383
7 "STYLE"
8 30
0 1046 &6
13
8 31
6 31
5 1
18 0
5 1
22 6
7 ""
18 0
1 1
11 00003516
0 3 "No Files Selected - Exiting Macro"
10 00006048
5 0
8 32
5 0
8 33
5 1
8 34
6 31
6 34
18 2
12 00003628
10 00005003
5 1
6 34
3 0
8 34
10 00003549
5 0
8 35
6 34
22 6
8 36
6 36
8 37
7 ""
8 38
2 101 1 "_DEFAULT.STY" 0 128
0 789 "Importing file {34} of {31}"
0 291 1
6 21
7 "ASCII"
18 0
11 00003894
0 16 "{22}" "{36}"
13
8 36
2 107 1 0 "{36}" "{21}" 0 "{27}" "{29}" "{28}"
13
8 39
10 00003968
0 16 "{22}" "{36}"
13
8 36
2 107 1 0 "{36}" "{21}" 0 "{30}"
13
8 39
6 39
5 1
18 0
11 00004033
6 32
5 1
3 0
8 32
10 00004124
0 789 "Import failed on {36}"
6 33
5 1
3 0
8 33
0 1041 &7 "{33}" "{37}"
10 00004990
0 13 1 "{36}" "."
13
8 40
6 40
5 0
18 5
11 00004226
0 16 "{36}" ".SAM"
13
8 41
10 00004277
0 806 "{36}" "{40}"
13
0 16 [X] "SAM"
13
8 41
0 772
13
0 770 [X] 0
13
8 42
5 0
8 43
7 ""
8 38
0 280 "{41}" 0
13
8 44
6 44
7 ""
18 1
11 00004914
0 14 "{41}"
13
0 14 "{44}"
13
3 1
0 806 "{41}" [X]
13
8 45
0 14 "{44}"
13
5 4
3 1
0 806 "{44}" [X]
13
8 41
0 789 "Duplicate filename exists... saving file with new name"
6 35
5 1
3 0
8 35
5 8
0 14 "{41}"
13
3 1
8 43
5 1
8 46
6 43
6 46
18 2
12 00004723
10 00004763
5 1
6 46
3 0
8 46
10 00004644
0 16 "{38}" "0"
13
8 38
10 00004688
0 16 "{41}" "{38}"
13
8 41
5 8
0 14 "{35}"
13
3 1
8 47
0 806 "{41}" "{47}"
13
8 41
0 16 "{45}" "{41}" "{35}" ".SAM"
13
8 41
10 00004322
2 104 1 "{41}" 32 "File {37} was converted from {21} on {42}" ""
0 34 1 0
10 00003593
6 31
5 1
18 0
11 00005058
7 ""
8 48
10 00005071
7 "s"
8 48
6 32
6 31
18 0
11 00005167
0 3 "{32} of {31} file{48} successfully converted"
10 00006048
0 31 9002 &7
0 31 21 1
0 31 1003 "{32}"
0 31 1005 "{33}"
0 26 "." "ERRORS"
13
8 18
6 18
5 0
18 0
11 00005300
10 00006048
0 27 21
13
5 1
18 0
11 00005393
2 101 1 "_DEFAULT.STY" 0 128
10 00006048
10 00006048
0 27 23
13
8 49
2 101 1 "_DEFAULT.STY" 0 128
0 6 "The following files could not be converted from {21} into Ami Pro:[13][13]"
5 1
8 34
6 33
6 34
18 2
12 00005614
10 00005715
5 1
6 34
3 0
8 34
10 00005535
6 34
22 7
8 50
0 6 "{50} -- File is not the correct type for the import filter[13]"
10 00005579
0 6 "[13][13]Files are located in the directory {22}"
6 49
5 1
18 0
11 00006025
5 1
8 31
0 280 "{22}ERRORS{31}.SAM" 0
13
8 44
6 44
7 ""
18 1
11 00005917
6 31
5 1
3 0
8 31
10 00005811
2 104 1 "{22}ERRORS{31}.SAM" 32 "Error report for batch file conversion from {21} on {42}" ""
10 00006048
2 111 1 1 1 9999 1537
6 32
6 31
18 0
11 00006109
2 101 1 "_DEFAULT.STY" 0 128
0 296 0
0 266 "FT"
0 266 "BN"
0 266 "SN"
0 789 ""
6 0
15
9
14 multisel
0 44 "{0}" 9005
13
8 4
0 1036 "{4}" 1041 0 0
13
8 5
6 5
5 0
18 0
11 00000139
0 42 "{0}" 8000
13
8 6
10 00000161
7 "highlighted"
8 6
0 43 "{0}" 8009 "All {6} files in directory"
6 3
15
9
14 update
0 266 "SN"
0 42 "{0}" 8009
13
0 806 [X] 15
13
7 "All highlighted"
18 0
11 00000750
5 2
8 4
5 51
21 5 [X]
7 ""
8 6
0 44 "{0}" 9005
13
0 284 "user,SendMessage,HHHHN" [X] 1042 50 &5
13
8 7
5 1
8 8
6 7
6 8
18 2
12 00000301
10 00000519
5 1
6 8
3 0
8 8
10 00000226
6 8
22 5
8 9
6 9
7 ""
18 0
11 00000360
10 00000519
6 7
5 1
3 0
0 271 "SN" [X]
0 44 "{0}" 9005
13
0 284 "user,SendMessage,HHHHD" [X] 1034 "{9}" &6
0 272 "SN" "{4}" "{6}"
6 4
5 1
3 0
8 4
10 00000268
6 7
5 0
18 1
11 00000689
0 42 "{0}" 9501
13
8 10
0 42 "{0}" 8888
13
8 11
6 4
5 1
3 1
8 12
0 16 "{10}" "," "{11}" "," "{12}"
13
8 13
0 272 "SN" 1 "{13}"
0 284 "user,EndDialog,HHH" "{0}" 1
6 3
15
9
10 00001405
0 42 "{0}" 8009
13
0 806 [X] 3
13
7 "All"
18 0
11 00001405
0 44 "{0}" 9005
13
8 14
0 1036 "{14}" 1036 0 0
13
8 15
6 15
5 0
18 0
11 00000955
0 284 "user,EndDialog,HHH" "{0}" 1
6 3
15
9
6 15
5 1
3 0
0 271 "SN" [X]
7 ""
8 6
0 42 "{0}" 9501
13
8 10
0 42 "{0}" 8888
13
8 11
6 15
5 1
3 0
8 12
0 16 "{10}" "," "{11}" "," "{12}"
13
8 13
0 272 "SN" 1 "{13}"
5 0
8 8
6 15
5 1
3 1
6 8
18 2
12 00001236
10 00001357
5 1
6 8
3 0
8 8
10 00001150
0 44 "{0}" 9005
13
0 284 "user,SendMessage,HHHHD" [X] 1034 "{8}" &6
6 8
5 2
3 0
0 272 "SN" [X] "{6}"
10 00001203
0 284 "user,EndDialog,HHH" "{0}" 1
6 3
15
9
0 42 "{0}" 8000
13
8 16
0 15 "{16}" 2 1
13
7 ":"
18 0
11 00002401
0 14 "{16}"
13
8 7
0 39 91
13
8 17
5 1
11 00001648
0 808 "{7}" "{16}" "\"
13
8 18
6 18
6 7
18 0
11 00001615
10 00001648
6 7
5 1
3 1
8 7
10 00001520
6 18
5 0
18 1
11 00002049
0 806 "{16}" "{18}"
13
8 19
0 14 "{16}"
13
6 18
3 1
0 807 "{16}" [X]
13
8 16
0 14 "{19}"
13
5 3
18 0
11 00001830
5 0
8 20
10 00001841
5 1
8 20
0 14 "{19}"
13
6 20
3 1
0 806 "{19}" [X]
13
0 43 "{0}" 8888 [X]
0 43 "{0}" 8000 "{16}"
0 44 "{0}" 9006
13
8 14
0 16 "{19}" "*.*"
13
8 21
0 1036 "{14}" 1029 0 0
0 1036 "{14}" 1038 32784 "{21}"
0 806 "{19}" 1
13
0 42 "{0}" 9500
13
18 1
11 00002388
0 806 "{19}" 1
13
8 22
7 "{17}-{22}-]"
8 23
5 0
8 24
5 25
6 24
18 2
12 00002248
10 00002388
5 1
6 24
3 0
8 24
10 00002169
0 44 "{0}" 9500
13
8 14
0 1036 "{14}" 1038 "{24}" 0
0 42 "{0}" 9500
13
8 25
6 25
6 23
18 0
11 00002375
10 00002388
10 00002213
10 00002501
0 42 "{0}" 8888
13
8 19
0 807 "{19}" 1
13
7 "\"
18 1
11 00002501
0 16 "{19}" "\"
13
8 19
0 44 "{0}" 9501
13
8 14
0 1036 "{14}" 1031 0 0
13
8 26
6 26
5 1
3 0
0 273 "FT" [X]
13
8 27
0 20 "{27}" 1 ","
13
8 28
0 20 "{27}" 3 ","
13
8 29
0 16 "{28}" "," "{16}" "," "{29}"
13
8 30
6 26
5 1
3 0
0 272 "FT" [X] "{30}"
0 16 "{19}" "{16}"
13
8 31
0 44 "{0}" 9005
13
8 14
0 1036 "{14}" 1029 0 0
0 1036 "{14}" 1038 0 "{31}"
0 43 "{0}" 8009 "All {16} files in directory"
6 3
15
9
14 chmask
0 32 1
0 43 "{0}" 8009 "Choose ""OK"" to update file listing"
6 3
15
9
14 chdrv
0 296 1
0 39 91
13
8 4
0 15 "{2}" 3 1
13
8 5
0 16 "{5}" ":\"
13
8 6
0 43 "{0}" 8888 "{6}"
0 44 "{0}" 9501
13
8 7
0 1036 "{7}" 1031 0 0
13
8 8
6 8
5 1
3 0
0 273 "FT" [X]
13
8 9
0 20 "{9}" 2 ","
13
8 10
0 16 "{6}" "*" "{10}"
13
8 11
0 44 "{0}" 9005
13
8 7
0 1036 "{7}" 1029 0 0
0 1036 "{7}" 1038 0 "{11}"
0 16 "{6}" "*.*"
13
8 12
0 44 "{0}" 9006
13
8 7
0 1036 "{7}" 1029 0 0
0 1036 "{7}" 1038 32784 "{12}"
0 296 0
6 3
15
9
14 chdirs
0 42 "{0}" 9006
13
8 4
6 4
7 ""
18 0
11 00000079
6 3
15
9
0 772
13
8 5
6 4
0 273 "BN" 1
13
18 0
5 1
6 5
0 273 "BN" 2
13
3 1
18 3
1 1
11 00000211
0 272 "BN" 1 ""
10 00000263
0 272 "BN" 1 "{4}"
0 272 "BN" 2 "{5}"
6 3
15
9
0 296 1
0 39 91
13
8 6
7 " "
8 7
0 42 "{0}" 8000
13
8 8
0 42 "{0}" 8888
13
8 9
0 14 "{9}"
13
5 3
18 0
11 00000419
7 ""
8 10
10 00000432
7 "\"
8 10
0 14 "{4}"
13
5 2
3 1
0 15 "{4}" 2 [X]
13
8 4
6 4
7 ".."
18 1
11 00000565
0 16 "{9}" "{10}" "{4}"
13
8 11
10 00000783
5 1
8 12
5 1
11 00000729
0 14 "{9}"
13
6 12
3 1
0 15 "{9}" [X] 1
13
8 13
6 13
7 "\"
18 0
11 00000694
10 00000729
6 12
5 1
3 0
8 12
10 00000576
0 14 "{9}"
13
6 12
3 1
0 806 "{9}" [X]
13
8 11
0 14 "{11}"
13
5 3
18 1
0 807 "{11}" 1
13
7 "\"
18 0
1 1
11 00000917
0 14 "{11}"
13
5 1
3 1
0 806 "{11}" [X]
13
8 11
0 17 "{11}"
13
0 43 "{0}" 8888 [X]
0 807 "{11}" 1
13
7 "\"
18 1
11 00001028
0 16 "{11}" "\"
13
8 11
0 44 "{0}" 9501
13
8 14
0 1036 "{14}" 1031 0 0
13
8 15
6 15
5 1
3 0
0 273 "FT" [X]
13
8 16
0 20 "{16}" 2 ","
13
8 8
0 16 "{11}" "*" "{8}"
13
8 17
0 44 "{0}" 9005
13
8 14
0 1036 "{14}" 1029 0 0
0 1036 "{14}" 1038 0 "{17}"
0 16 "{11}" "*.*"
13
8 18
0 44 "{0}" 9006
13
8 14
0 1036 "{14}" 1029 0 0
0 1036 "{14}" 1038 32784 "{18}"
0 42 "{0}" 8009
13
0 806 [X] 15
13
7 "All highlighted"
18 0
11 00001637
0 806 "{8}" 1
13
7 "."
18 0
11 00001534
0 16 "*" "{8}"
13
8 8
6 8
7 "*.*"
18 0
11 00001589
7 ""
8 8
7 ""
8 7
0 43 "{0}" 8009 "All{7}{8} files in directory"
0 296 0
6 3
15
9
14 chtype
0 296 1
0 39 91
13
8 5
0 44 "{0}" 9501
13
8 6
0 1036 "{6}" 1031 0 0
13
8 7
5 1
8 8
5 1
11 00000255
0 273 "FT" "{8}"
13
8 9
0 20 "{9}" 1 ","
13
8 10
6 10
6 2
18 0
11 00000222
10 00000255
6 8
5 1
3 0
8 8
10 00000106
0 20 "{9}" 2 ","
13
8 11
5 -1
0 20 "{9}" 3 ","
13
0 805 &4 [X]
13
18 0
11 00000364
0 268
13
8 4
0 14 "{4}"
13
5 3
18 3
0 807 "{4}" 1
13
7 "\"
18 1
1 1
11 00000466
0 16 "{4}" "\"
13
8 4
0 44 "{0}" 9005
13
8 6
0 1036 "{6}" 1029 0 0
0 14 "{4}"
13
5 2
18 0
11 00000604
0 16 "{4}" "\"
13
8 4
5 0
8 12
10 00000679
0 14 "{4}"
13
5 3
18 0
11 00000668
5 0
8 12
10 00000679
5 1
8 12
0 14 "{4}"
13
6 12
3 1
0 806 "{4}" [X]
13
0 17 [X]
13
0 43 "{0}" 8888 [X]
0 806 "{4}" 1
13
0 17 [X]
13
8 13
0 16 "{4}" "*" "{11}"
13
8 14
0 44 "{0}" 9005
13
8 6
0 1036 "{6}" 1029 0 0
0 1036 "{6}" 1038 0 "{14}"
0 16 "{4}" "*.*"
13
8 15
0 44 "{0}" 9006
13
8 6
0 1036 "{6}" 1029 0 0
0 1036 "{6}" 1038 32784 "{15}"
0 806 "{11}" 1
13
7 "."
18 0
11 00001093
0 16 "*" "{11}"
13
8 11
0 17 "{11}"
13
0 43 "{0}" 8000 [X]
7 "{5}-{13}-]"
8 16
5 0
8 17
5 25
6 17
18 2
12 00001243
10 00001381
5 1
6 17
3 0
8 17
10 00001164
0 44 "{0}" 9500
13
8 6
0 1036 "{6}" 1038 "{17}" 0
0 42 "{0}" 9500
13
8 18
6 18
6 16
18 0
11 00001368
10 00001381
10 00001208
0 17 "{11}"
13
8 11
6 11
7 "*.*"
18 0
11 00001450
7 ""
8 11
0 43 "{0}" 8009 "All {11} files in directory"
0 296 0
6 3
15
9
14 boxinits
0 296 1
0 39 91
13
8 4
0 286 "Convert" "initrecnum" "amipro.ini"
13
8 5
6 5
7 ""
18 0
11 00000132
5 3
8 5
0 44 "{0}" 9501
13
8 6
6 5
5 1
3 1
0 1036 "{6}" 1038 [X] 0
0 273 "FT" "{5}"
13
8 7
0 20 "{7}" 3 ","
13
0 806 [X] 1
13
8 8
6 8
7 ""
18 0
11 00000332
0 268
13
0 806 [X] 1
13
8 8
0 17 "{8}"
13
8 8
7 "{4}-{8}-]"
8 9
5 0
8 10
5 25
6 10
18 2
12 00000463
10 00000600
5 1
6 10
3 0
8 10
10 00000384
0 44 "{0}" 9500
13
8 6
0 1036 "{6}" 1038 "{10}" 0
0 42 "{0}" 9500
13
8 11
6 11
6 9
18 0
11 00000587
10 00000600
10 00000428
0 42 "{0}" 8888
13
8 12
0 42 "{0}" 8000
13
8 13
0 807 "{12}" 1
13
7 "\"
18 1
11 00000727
0 16 "{12}" "\"
13
8 12
0 16 "{12}" "*" "{13}"
13
8 14
0 16 "{12}" "*.*"
13
8 12
0 44 "{0}" 9006
13
8 6
0 1036 "{6}" 1038 32784 "{12}"
0 44 "{0}" 9005
13
8 6
0 1036 "{6}" 1038 0 "{14}"
0 296 0
6 3
15
9
DIALOG OPENBOX
-2134376448 16 104 35 219 115 "" "" "Batch Convert"
FONT 6 "Helv"
5 4 40 10 1001 1342308352 "static" "File &name:" 0
66 3 95 11 8000 1350631552 "edit" "" 0
5 15 40 10 1002 1342308352 "static" "Directory:" 0
66 16 102 9 8888 1342177280 "static" "show directory here" 0
5 26 27 10 1003 1342308352 "static" "&Files:" 0
5 36 58 69 9005 1352728587 "listbox" "" 0
66 26 44 10 1004 1342308352 "static" "&Directories:" 0
66 36 58 69 9006 1352728579 "listbox" "" 0
127 26 27 10 1006 1342308352 "static" "Dri&ves:" 0
127 36 34 45 9500 1344339971 "combobox" "" 0
127 54 53 10 1007 1342308352 "static" "&Convert from:" 0
127 64 87 41 9501 1344340227 "combobox" "" 0
174 3 40 14 25 1342373889 "button" "OK" 0
174 19 40 14 2 1342373888 "button" "Cancel" 0
5 105 57 9 1008 1342177280 "static" "Files to convert:" 0
66 105 148 9 8009 1342177280 "static" "All" 0
DIALOG CONVASC
-2134376448 11 109 75 175 111 "" "" "ASCII Options"
FONT 6 "Helv"
127 6 40 14 1 1342242817 "button" "OK" 0
127 23 40 14 2 1342242816 "button" "Cancel" 0
9 6 106 54 10 1342177287 "button" "ASCII File Options" 0
17 15 60 9 51 1342373897 "button" "CR/LF at &lines" 0
17 27 74 10 52 1342242825 "button" "CR/LF at ¶graph" 0
26 37 40 9 1000 1342177280 "static" "ends only" 0
17 47 71 11 53 1342373891 "button" "&Keep style names" 0
9 62 106 44 11 1342177287 "button" "ASCII File Type" 0
17 72 50 10 55 1342373897 "button" "&7 bit ASCII" 0
17 83 54 10 56 1342242825 "button" "&8 bit PC-ASCII" 0
17 94 43 10 57 1342242825 "button" "8 bit &ANSI" 0
DIALOG MSCRIPT
-2134376448 5 113 94 187 44 "" "" "Options"
FONT 6 "Helv"
7 5 124 35 21 1342373895 "button" "Paragraph Styles" 0
13 15 94 10 22 1342177289 "button" "&Convert levels into styles" 0
13 25 63 10 23 1342177289 "button" "&Apply styles" 0
139 5 40 14 1 1342373889 "button" "OK" 0
139 21 40 14 2 1342373888 "button" "Cancel" 0
DIALOG RTF
-2134376448 7 129 81 160 63 "" "" "Import Options"
FONT 6 "Helv"
19 14 59 10 22 1342373897 "button" "&Convert styles" 0
19 25 50 10 23 1342177289 "button" "&Apply styles" 0
19 35 71 11 24 1342177289 "button" "&Keep style names" 0
19 46 56 11 25 1342177289 "button" "&Ignore styles" 0
116 5 40 14 1 1342373889 "button" "OK" 0
116 21 40 14 2 1342373888 "button" "Cancel" 0
9 4 98 54 20 1342177287 "button" "Paragraph Styles" 0
DIALOG WPERF
-2134376448 6 128 81 160 55 "" "" "Import Options"
FONT 6 "Helv"
19 14 50 11 23 1342373897 "button" "&Apply styles" 0
19 25 56 11 24 1342177289 "button" "&Ignore styles" 0
19 36 76 11 25 1342177289 "button" "Import &style sheet" 0
116 5 40 14 1 1342373889 "button" "OK" 0
116 21 40 14 2 1342373888 "button" "Cancel" 0
9 4 98 46 20 1342177287 "button" "Paragraph Styles" 0
DIALOG ERRORS
-2134376448 12 118 65 187 81 "" "" "Error Report"
FONT 6 "Helv"
64 26 71 45 20 1342177287 "button" "Report options" 0
6 4 40 9 1000 1342177280 "static" "Failure list:" 0
64 4 54 9 1001 1342177280 "static" "Files converted:" 0
78 12 41 9 1002 1342177280 "static" "Failed files:" 0
120 4 19 9 1003 1342177280 "static" "9999" 0
120 12 19 9 1005 1342177280 "static" "9999" 0
142 5 40 14 1 1342373889 "button" "OK" 0
142 21 40 14 2 1342373888 "button" "Cancel" 0
70 37 50 10 21 1342373897 "button" "&No report" 0
70 48 49 10 22 1342177289 "button" "&Print report" 0
70 59 61 10 23 1342177289 "button" "&Save report file" 0
6 14 52 60 9002 1352794115 "listbox" "" 0
00034027