[ver]
	4
[sty]
	
[files]
[prn]
	Epson 9 pin
[lang]
	1
[desc]
	
	
	
	
	
	673651644
	28
	661024420
[fopts]
	0
	1
	0
	0
[lnopts]
	2
	Body Text
[docopts]
	5
	0
[tag]
	Body Text
	2
	[fnt]
		Tms Rmn
		160
		0
		49152
	[algn]
		225
		1
		0
		0
		0
	[spc]
		17
		273
		1
		0
		0
		1
		100
	[brk]
		4
	[line]
		8
		0
		1
		0
		1
		2
		2
		20
		20
		1
	[spec]
		0
		0
		
		0
		1
		0
		0
		1
		0
		0
	[nfmt]
		280
		1
		3
		.
		,
		$
[tag]
	footer
	3
	[fnt]
		Tms Rmn
		200
		0
		49152
	[algn]
		225
		1
		0
		0
		0
	[spc]
		17
		273
		1
		0
		0
		1
		100
	[brk]
		4
	[line]
		8
		0
		1
		0
		1
		2
		2
		20
		20
		1
	[spec]
		0
		0
		
		0
		1
		0
		0
		1
		0
		0
	[nfmt]
		280
		1
		3
		.
		,
		$
[lay]
	Standard
	513
	[rght]
		15840
		12240
		1
		1080
		360
		1
		1080
		720
		4
		1
		0
		1
		8
		4
		1
		1080
		11520
		14
		1
		359
		1
		721
		1
		1084
		1
		1446
		1
		1792
		1
		2155
		1
		2517
		1
		2880
		1
		3242
		1
		3605
		1
		3967
		1
		4323
		1
		4683
		1
		5043
	[hrght]
	[lyfrm]
		1
		11200
		0
		0
		12240
		1080
		1
		1
		3
		1
		5
		0
		0
	[frmlay]
		1080
		12240
		1
		360
		0
		1
		0
		0
		2
		1
		0
		1
		1
		0
		1
		360
		12240
		3
		1
		365
		2
		6120
		3
		11162
	[txt]
<+B>

<+B>

<+B>	<:da<*!><* >>		Date Created:  <:da<*$><* >>

<+B>	By Charlie Pappas	Page - <:P11,1,>	Date Last revised:  <:da<*%><* >>

<+B>	

>
	[frght]
	[lyfrm]
		1
		13248
		0
		15480
		12240
		15840
		1
		1
		3
		1
		5
		0
		0
	[frmlay]
		15840
		12240
		1
		720
		0
		1
		15480
		720
		2
		1
		0
		1
		1
		0
		1
		720
		11520
		0
	[txt]
@footer@
>
[elay]
[l1]
	0
[edoc]
function grammar()


<:f240,2Tms Rmn,0,0,0>'This macro places a menu item called "Grammatik" 
as the last item on the tools menu.  Selecting the menu loads the 
current Amipro file in Grammatik for grammar checking.  When you close 
Grammatik, Pro will load the corrected file.


<:f240,2Tms Rmn,0,0,0>'Note on Autoexec.smm.  You can have Amipro 
automatically start this macro.  To do this, you must create a file 
containing the following text omitting the quotes.  


<:f240,2Tms Rmn,0,0,0>'Function auto()

<:f240,2Tms Rmn,0,0,0>'call gmkami<:f><:f240,2Tms Rmn,0,0,0>.smm!grammar()

<:f240,2Tms Rmn,0,0,0>'End Function


<:f240,2Tms Rmn,0,0,0>'Save the file as Autoexec.SMM in the docs directory 
(or amipro directory).



ignorekeyboard(1)

macro = "gmkami.smm"

mpath = getmacpath$()

DeleteMenuItem(1 "Too&ls" "Gra&mmatik")

AddMenuItem(1 "Too&ls" "Gra&mmatik" "{mpath}{macro}!checkit")

end function


function checkit()

oncancel endit

onerror endit

declare quitap()

getdocname:

xname = GetDocDesc$(1)

name = GetOpenFileName$()

if name = "" then

	go = multidecide("You must save your document first." 1)

	if go <<>> 1 then

		exit function

	endif

	save

	goto getdocname

else

	if (true = filechanged(0 0))

		save()

	endif

endif

darkmode(on)

exec("GMKW.EXE" "-i {name}")

quitap()

ignorekeyboard(1)

fileopen(name amifile "")

endit:

ignorekeyboard(0)

darkmode(off)

end function


function Quitap()

onerror endit

oncancel endit

FindWindow = DLLLocate("User", "FindWindow", "ICC")

hWnd = DLLCall(FindWindow, "grammatik", "grammatik")

while (hwnd)

	pause(010)

	hWnd = DLLCall(FindWindow, "grammatik", "grammatik")

wend

return 1

endit:

darkmode(off)

End FUNCTION


>
[macsum] 3
grammar 0 0 3 0
checkit 148 0 4 20
Quitap 529 0 3 49
[macse]
14 grammar
0 32 1
7 "gmkami.smm"
8 1
0 295
13
8 2
0 520 1 "Too&ls" "Gra&mmatik"
0 516 1 "Too&ls" "Gra&mmatik" "{2}{1}!checkit"
6 0
15
9
14 checkit
19 00000352
20 00000352
0 279 1
13
8 1
0 267
13
8 2
6 2
7 ""
18 0
11 00000231
0 21 "You must save your document first." 1
13
8 3
6 3
5 1
18 1
11 00000197
6 0
15
9
24 103
10 00000038
10 00000278
5 1
0 34 0 0
13
18 0
11 00000278
2 103 1
0 292 1
0 22 "GMKW.EXE" "-i {2}"
16 quitap
0 32 1
2 102 1 "{2}" 1 ""
0 32 0
0 292 0
6 0
15
9
14 Quitap
20 00000225
19 00000225
0 283 "User" "FindWindow" "ICC"
13
8 1
0 284 "{1}" "grammatik" "grammatik"
13
8 2
6 2
11 00000213
0 274 010
0 284 "{1}" "grammatik" "grammatik"
13
8 2
10 00000125
5 1
15
9
0 292 0
6 0
15
9
00003667