REM Description: Fraction Menu
REM WSWin Macro File: Fraction.wmc

Main:
BEGIN DIALOG grpdlg 170, 148, "Insert Fractions"

	GROUPBOX       4, 4, 160, 138, "Choose Fraction:"
	OPTIONGROUP    cgroup%
	PUSHBUTTON   20, 18, 130, 12, "&A - LotusWP Type Fractions", 3
	PUSHBUTTON   20, 31, 130, 12, "&B - WP TypographicSymbols Fractions", 4
	PUSHBUTTON   20, 44, 130, 12, "&C - Default 1/4", 5
	PUSHBUTTON   20, 57, 130, 12, "&D - Default 1/2", 6
	PUSHBUTTON   20, 70, 130, 12, "&E - Default 3/4", 7
	PUSHBUTTON   20, 83, 130, 12, "&F - Create Fraction", 8
	PUSHBUTTON   20, 96, 130, 12, "&G - Create Fraction on Baseline", 9
	PUSHBUTTON   20, 109, 130, 12, "&H - Create TNR 12 point Fraction", 10
	PUSHBUTTON   20, 122, 130, 12, "&I - Judith's Apply Fraction Style", 11

END DIALOG
ret% = DIALOG(grpdlg)
IF ret% = 2 THEN STOP
IF ret% = 3 THEN GOTO Lotus:
IF ret% = 4 THEN GOTO WP:
IF ret% = 5 THEN GOTO Frac10:
IF ret% = 6 THEN GOTO Frac11:
IF ret% = 7 THEN GOTO Frac12:
IF ret% = 8 THEN GOTO Frac13:
IF ret% = 9 THEN GOTO Frac14:
IF ret% = 10 THEN GOTO Frac15:
IF ret% = 11 THEN GOTO Frac16:

Lotus:
BEGIN DIALOG grpdlg 160, 161, "Insert Lotus Fractions"

	GROUPBOX       4, 4, 150, 151, "Choose Fraction:"
	OPTIONGROUP    cgroup%
	PUSHBUTTON   20, 18, 120, 12, "&A - LotusWP Type 1/2", 3
	PUSHBUTTON   20, 31, 120, 12, "&B - LotusWP Type 1/4", 4
	PUSHBUTTON   20, 44, 120, 12, "&C - LotusWP Type 3/4", 5
	PUSHBUTTON   20, 57, 120, 12, "&D - LotusWP Type 1/3", 6
	PUSHBUTTON   20, 70, 120, 12, "&E - LotusWP Type 2/3", 7
	PUSHBUTTON   20, 83, 120, 12, "&F - LotusWP Type 1/8", 8
	PUSHBUTTON   20, 96, 120, 12, "&G - LotusWP Type 3/8", 9
	PUSHBUTTON   20, 109, 120, 12, "&H - LotusWP Type 5/8", 10
	PUSHBUTTON   20, 122, 120, 12, "&I - LotusWP Type 7/8", 11
	PUSHBUTTON   20, 135, 120, 12, "&J - Opening Menu", 12

END DIALOG
ret% = DIALOG(grpdlg)
IF ret% = 2 THEN STOP
IF ret% = 3 THEN GOTO Frac1:
IF ret% = 4 THEN GOTO Frac2:
IF ret% = 5 THEN GOTO Frac3:
IF ret% = 6 THEN GOTO Frac4:
IF ret% = 7 THEN GOTO Frac5:
IF ret% = 8 THEN GOTO Frac6:
IF ret% = 9 THEN GOTO Frac7:
IF ret% = 10 THEN GOTO Frac8:
IF ret% = 11 THEN GOTO Frac9:
IF ret% = 12 THEN GOTO Main:

Frac1:
StyleApplyFont "LotusWP Type"
TypeText "2"
CharRight ,,
GOTO FINISH

Frac2:
StyleApplyFont "LotusWP Type"
TypeText "3"
CharRight ,,
goto FINISH

Frac3:
StyleApplyFont "LotusWP Type"
TypeText ":"
CharRight ,,
goto FINISH

Frac4:
StyleApplyFont "LotusWP Type"
TypeText "a"
CharRight ,,
goto FINISH

Frac5:
StyleApplyFont "LotusWP Type"
TypeText "b"
CharRight ,,
goto FINISH

Frac6:
StyleApplyFont "LotusWP Type"
TypeText "c"
CharRight ,,
goto FINISH

Frac7:
StyleApplyFont "LotusWP Type"
TypeText "d"
CharRight ,,
goto FINISH

Frac8:
StyleApplyFont "LotusWP Type"
TypeText "e"
CharRight ,,
goto FINISH

Frac9:
StyleApplyFont "LotusWP Type"
TypeText "f"
CharRight ,,
goto FINISH

rem WordPerfect Menu Options

WP:
BEGIN DIALOG grpdlg 160, 161, "Insert WordPerfect Fractions"

	GROUPBOX       4, 4, 150, 151, "Choose Fraction:"
	OPTIONGROUP    cgroup%
	PUSHBUTTON   20, 18, 120, 12, "&A - WP TypographicSymbols 1/2", 3
	PUSHBUTTON   20, 31, 120, 12, "&B - WP TypographicSymbols 1/4", 4
	PUSHBUTTON   20, 44, 120, 12, "&C - WP TypographicSymbols 3/4", 5
	PUSHBUTTON   20, 57, 120, 12, "&D - WP TypographicSymbols 1/3", 6
	PUSHBUTTON   20, 70, 120, 12, "&E - WP TypographicSymbols 2/3", 7
	PUSHBUTTON   20, 83, 120, 12, "&F - WP TypographicSymbols 1/8", 8
	PUSHBUTTON   20, 96, 120, 12, "&G - WP TypographicSymbols 3/8", 9
	PUSHBUTTON   20, 109, 120, 12, "&H - WP TypographicSymbols 5/8", 10
	PUSHBUTTON   20, 122, 120, 12, "&I - WP TypographicSymbols 7/8", 11
	PUSHBUTTON   20, 135, 120, 12, "&J - Main Menu", 12

END DIALOG
ret% = DIALOG(grpdlg)
IF ret% = 2 THEN STOP
IF ret% = 3 THEN GOTO Frac1wp:
IF ret% = 4 THEN GOTO Frac2wp:
IF ret% = 5 THEN GOTO Frac3wp:
IF ret% = 6 THEN GOTO Frac4wp:
IF ret% = 7 THEN GOTO Frac5wp:
IF ret% = 8 THEN GOTO Frac6wp:
IF ret% = 9 THEN GOTO Frac7wp:
IF ret% = 10 THEN GOTO Frac8wp:
IF ret% = 11 THEN GOTO Frac9wp:
IF ret% = 12 THEN GOTO Main:

Frac1wp:
StyleApplyFont "WP TypographicSymbols"
TypeText "2"
CharRight ,,
GOTO FINISH

Frac2wp:
StyleApplyFont "WP TypographicSymbols"
TypeText "3"
CharRight ,,
goto FINISH

Frac3wp:
StyleApplyFont "WP TypographicSymbols"
TypeText ":"
CharRight ,,
goto FINISH

Frac4wp:
StyleApplyFont "WP TypographicSymbols"
TypeText "a"
CharRight ,,
goto FINISH

Frac5wp:
StyleApplyFont "WP TypographicSymbols"
TypeText "b"
CharRight ,,
goto FINISH

Frac6wp:
StyleApplyFont "WP TypographicSymbols"
TypeText "c"
CharRight ,,
goto FINISH

Frac7wp:
StyleApplyFont "WP TypographicSymbols"
TypeText "d"
CharRight ,,
goto FINISH

Frac8wp:
StyleApplyFont "WP TypographicSymbols"
TypeText "e"
CharRight ,,
goto FINISH

Frac9wp:
StyleApplyFont "WP TypographicSymbols"
TypeText "f"
CharRight ,,
goto FINISH

rem other Menu Options

Frac10:
TypeText "¼"
goto FINISH

Frac11:
TypeText "½"
goto FINISH

Frac12:
TypeText "¾"
goto FINISH

Frac13:
rem StylePointSize 180
denominator$ = INPUTBOX$("Please type in the Denominator")
StyleSuperSub 1
TypeText denominator$
rem CharLeft ,,
rem StylePointSize 180
StylePlain
rem TypeText "/"
StyleApplyFont "Symbol"
rem StylePointSize 120
TypeText "¤"
rem CharLeft ,,
rem StylePointSize 120
numerator$ = INPUTBOX$("Please type in the Numerator")
StyleSuperSub 2
TypeText numerator$
rem CharLeft ,,
rem StylePointSize 180
StylePlain
GOTO FINISH

Frac14:
rem suberscript set at 41 percent
GetCharacterFormat ,,s%,,,,,
point% = S%*59/100
numerator$ = INPUTBOX$("Please type in the Numerator")
StyleSuperSub 1
TypeText numerator$
StylePlain
StyleApplyFont "Symbol"
TypeText "¤"
CharRight
denominator$ = INPUTBOX$("Please type in the Denominator")
StylePointSize point%
TypeText denominator$
CharRight
GOTO FINISH

Frac15:
rem suberscript set at 41 percent
StyleApplyFont "Times New Roman"
StylePointSize 120
denominator$ = INPUTBOX$("Please type in the Denominator")
StyleSuperSub 1
TypeText denominator$
StylePlain
StyleApplyFont "Symbol"
rem StylePointSize 120
TypeText "¤"
StyleApplyFont "Times New Roman"
StylePointSize 70
numerator$ = INPUTBOX$("Please type in the Numerator")
TypeText numerator$
StylePlain
CharRight ,,
GOTO FINISH

Frac16:
REM Description: Judith Miner's Creates a slash fraction
REM WSWin Macro File: D:\WSWIN\MACROS\FRACTION.WMC
REM Change the above path to match your own WSWIN\MACROS directory
 
CharLeft 2, 0,
CharRight 1, 1,
TypeText "¤"
CharLeft 1, 1,
StyleApplyFont "Symbol"
CharLeft 2, 0,
CharRight 1, 1,
StyleSuperSub 1
CharRight 3, 0,
TypeText " "
CharLeft 1, 0,
CharLeft 1, 1,
StyleApplyStyle "Fraction",
CharRight 2, 0,
EditDelete 3,1
GOTO FINISH:

FINISH: