BEGIN {
	ctrl("write assistent", 2, 3, 123)

	win = exec("write " ARGV[0], 1) |: appwin();
	printf ("window = %d", win);
	}

/F2 "write aktivieren"/ {
	focus(win);
	}

/F3 "Helvetica 10"/ {
	focus(win);
	gkbd(MACRO["helv10"]);
	}

/F4 "New Courier 10"/ {
	focus(win);
	gkbd(MACRO["cour10"]);
	}


/F5 "normaler Text"/ {
	focus(win)
	gkbd(MACRO["1.5"])
	gkbd(MACRO["helv10"])
	}

/F6 "Beispiel"/ {
	focus(win)
	gkbd(MACRO["2.0"])
	gkbd(MACRO["cour10"])
	}

/F7 "kein Einzug"/ {
	focus(win)
	gkbd(MACRO["0.0"])
	}

/F8 "h�ngender Text"/ {
	focus(win)
	gkbd(MACRO["h�ngend"])
	gkbd(MACRO["helv10"])
	}

/shift F8 "h�ngender Text, einger�ckt"/ {
	focus(win)
	keys = MACRO["h�ngend2"] & MACRO["helv10"]
	status(keys)
	gkbd(keys)
	}