<> <> <> <> DIRECTORY ClassIncreek, InterminalBackdoor; InscriptTest: PROGRAM IMPORTS InterminalBackdoor = BEGIN InsertKey: PROC = { kd: keyDown ClassIncreek.ActionBody _ [0, keyDown[X]]; ku: keyUp ClassIncreek.ActionBody _ [0, keyUp[X]]; InterminalBackdoor.InsertAction[kd]; InterminalBackdoor.InsertAction[ku]; }; InsertDeltaMouse: PROC[dx,dy: [-8..8)] = { dm: deltaMouse ClassIncreek.ActionBody _ [0, deltaMouse[[dx,dy]]]; InterminalBackdoor.InsertAction[dm]; }; DX, DY: [-8..8) _ 0; END.