-- InscriptTest.mesa
-- Writen by Maureen Stone September 18, 1982 10:57 am

DIRECTORY
	ClassIncreek,
	Interminal, 
	InterminalExtra;

InscriptTest: PROGRAM IMPORTS InterminalExtra = {

InsertKey: PROC = {
	kd: keyDown ClassIncreek.ActionBody ← [0, keyDown[X]];
	ku: keyUp ClassIncreek.ActionBody ← [0, keyUp[X]];
	InterminalExtra.InsertAction[kd];
	InterminalExtra.InsertAction[ku];
	};
		
InsertDeltaMouse: PROC[dx,dy: [-8..8)] = {
	dm: deltaMouse ClassIncreek.ActionBody ← [0, deltaMouse[[dx,dy]]];
	InterminalExtra.InsertAction[dm];
	};
	
DX, DY: [-8..8) ← 0;
	}.