// MinitelLib
// Useful Minitel functions


// Set standard Minitel keypad codes

void stdkeys(void)
{
 setvxkeypadcode(MINITEL,0,"|SA");
 setvxkeypadcode(MINITEL,1,"|SH");
 setvxkeypadcode(MINITEL,2,"|SB");
 setvxkeypadcode(MINITEL,3,"|SD");
 setvxkeypadcode(MINITEL,4,"|SC");
 setvxkeypadcode(MINITEL,5,"|SF");
 setvxkeypadcode(MINITEL,6,"|SE");
 setvxkeypadcode(MINITEL,7,"|SG");
 setvxkeypadcode(MINITEL,8,"|SI");

 setvxterminator(MINITEL, "|SA");

 delmacro("M_StdKeys");
 defmacro("M_X3Keys", "{x3keys()}");
}


// Set X3 Minitel keypad codes

void x3keys(void)
{
 setvxkeypadcode(MINITEL,0,"|[!4|M");
 setvxkeypadcode(MINITEL,1,"|[(4|M");
 setvxkeypadcode(MINITEL,2,"|[\"4|M");
 setvxkeypadcode(MINITEL,3,"|[$4|M");
 setvxkeypadcode(MINITEL,4,"|[4|M");
 setvxkeypadcode(MINITEL,5,"|[&4|M");
 setvxkeypadcode(MINITEL,6,"|[/4|M");
 setvxkeypadcode(MINITEL,7,"|['4|M");
 setvxkeypadcode(MINITEL,8,"|[)4|M");

 setvxterminator(MINITEL, "|[!4|M");

 delmacro("M_X3Keys");
 defmacro("M_StdKeys", "{stdkeys()}");
}


void english()
{
 setvxlanguage(MINITEL, BRITISH);

 delmacro("M_English");
 defmacro("M_French", "{french()}");
}


void french()
{
 setvxlanguage(MINITEL, FRENCH);

 delmacro("M_French");
 defmacro("M_English", "{english()}");
}


void main(void)
{
 defmacro("M_StdKeys", "{stdkeys()}");
 defmacro("M_English", "{english()}");
}
