home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Windoware
/
WINDOWARE_1_6.iso
/
macros
/
apmac10
/
wpimport.smm
< prev
Wrap
INI File
|
1991-12-30
|
7KB
|
828 lines
[ver]
4
[sty]
~macro.sty
[files]
[charset]
82
ANSI (Windows, IBM CP 1252)
[revisions]
0
[prn]
PostScript Printer
[lang]
1
[desc]
690666898
3
690601425
62
1
0
0
0
0
0
[fopts]
0
1
0
0
[lnopts]
2
Body Text
1
[docopts]
5
2
[tag]
Body Text
2
[fnt]
Tms Rmn
240
0
49152
[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
2
.
,
$
Body Text
0
0
[tag]
Bullet 2
5
[fnt]
Tms Rmn
240
0
49152
[algn]
1
1
1080
360
360
[spc]
33
273
1
144
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
<*2>
360
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Bullet 2
0
0
[tag]
Indent 1
6
[fnt]
Tms Rmn
240
0
49152
[algn]
1
1
1080
0
0
[spc]
33
273
1
144
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
2
.
,
$
Indent 1
0
0
[tag]
Indent 2
7
[fnt]
Tms Rmn
240
0
49152
[algn]
1
1
1440
0
0
[spc]
33
273
1
144
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
2
.
,
$
Indent 2
0
0
[tag]
Number List
8
[fnt]
Tms Rmn
240
0
49152
[algn]
1
1
720
360
360
[spc]
33
273
1
144
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
<*:>.
360
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Number List
0
0
[tag]
Bold & Center
9
[fnt]
Tms Rmn
240
0
49153
[algn]
4
1
0
0
0
[spc]
33
273
1
0
144
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
2
.
,
$
Bold & Center
0
0
[tag]
First Indent
11
[fnt]
Tms Rmn
240
0
49152
[algn]
1
1
0
720
0
[spc]
33
273
1
144
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
2
.
,
$
First Indent
0
0
[tag]
Line Above
12
[fnt]
Tms Rmn
240
0
49152
[algn]
1
1
0
0
0
[spc]
33
273
1
288
0
1
100
[brk]
4
[line]
5
0
1
0
1
2
1
92
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Line Above
0
0
[tag]
Body Single
0
[fnt]
Tms Rmn
240
0
49152
[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
2
.
,
$
Body Single
0
0
[tag]
Bullet 1
0
[fnt]
Tms Rmn
240
0
49152
[algn]
1
1
720
360
360
[spc]
33
273
1
144
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
<*0>
360
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Bullet 1
0
0
[lay]
Standard
513
[rght]
15840
12240
1
1440
1440
1
1440
1440
2
1
0
1
1
2
1
1440
10800
5
1
720
1
1440
1
2880
1
4320
1
5760
[hrght]
[lyfrm]
1
11200
0
0
12240
1440
0
1
3
1 0 0 0 0 0 0
0
0
1
[frmlay]
1440
12240
1
1440
72
1
360
1440
0
1
0
1
1
0
1
1440
10800
0
[txt]
>
[frght]
[lyfrm]
1
13248
0
14400
12240
15840
0
1
3
1 0 0 0 0 0 0
0
0
2
[frmlay]
15840
12240
1
1440
360
1
14472
1440
0
1
0
1
1
0
1
1440
10800
0
[txt]
>
[elay]
[l1]
0
[pg]
1
29 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
[edoc]
' Macro to open WordPerfect files.
' User is presented with a list box, selects file, and file is opened as a WP File
Function Openit()
<:#279,9360>DefStr Stat;
<:#279,9360>doc=getdocpath$()
<:#279,9360>Filledit(9001,"{doc}*.*")
<:#279,9360>Box=dialogbox(".","TEST")
<:#279,9360>if Box<<<;>1
<:#279,9360> Exit Function
<:#279,9360>Endif
<:#279,9360>dir=getcurrentdir$()
<:#279,9360>File=getdialogfield$(8001)
<:#279,9360>If (1=Assign(&Stat,FileOpen("{Dir}{File}",16,"WordPerfect 5.0 & 5.1")))
<:#279,9360>Else
<:#279,9360> Message("Failed to open {Dir}{File}. Error Code {Stat}")
<:#279,9360>Endif
<:#279,9360>End Function
<:#279,9360>
<:#279,9360>
<:#279,9360>
<:#279,9360>
<:#279,9360>DIALOG Test
<:#279,9360>-2134376448 5 70 40 132 112 "" "" "Import WordPerfect File"
<:#279,9360>12 18 58 64 9001 1352728579 "listbox" "" 0
<:#279,9360>12 90 58 12 8001 1350631552 "edit" "" 0
<:#279,9360>84 4 40 14 1 1342242817 "button" "OK" 0
<:#279,9360>84 22 40 14 2 1342242816 "button" "Cancel" 0
<:#279,9360>14 6 58 10 7999 1342177280 "static" "" 0
<:#279,9360>END DIALOG
>
[Embedded]
00005771
>
[macsum] 2
Openit 0 0 6 2
Test 311 0 -1 21
[macse]
14 Openit
0 268
13
8 2
0 31 9001 "{2}*.*"
0 26 "." "TEST"
13
8 3
6 3
5 1
18 1
11 00000114
6 0
15
9
0 290
13
8 4
0 27 8001
13
8 5
5 1
2 102 1 "{4}{5}" 16 "WordPerfect 5.0 & 5.1"
13
0 805 &1 [X]
13
18 0
11 00000254
10 00000299
0 3 "Failed to open {4}{5}. Error Code {1}"
6 0
15
9
DIALOG Test
-2134376448 5 70 40 132 112 "" "" "Import WordPerfect File"
12 18 58 64 9001 1352728579 "listbox" "" 0
12 90 58 12 8001 1350631552 "edit" "" 0
84 4 40 14 1 1342242817 "button" "OK" 0
84 22 40 14 2 1342242816 "button" "Cancel" 0
14 6 58 10 7999 1342177280 "static" "" 0
00005796