// $VER: DoubleMode.FPL 1.2 (06.03.95) © Jesper Skov $

//»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»» DoubleMode() ««
int __DMcounter;

void export DoubleMode(int normal, int special)
{
  if ((GetChar(ReadInfo("byte_position")-1) == special) && (ReadInfo("counter")-1 == __DMcounter)){
    Backspace();
    Output(itoc(normal));
  } else {
    Output(itoc(special));
    __DMcounter = ReadInfo("counter");
  }
}


//»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»» Danish key bindings ««
AssignKey("DoubleMode('[','å');","[","double_mode");
AssignKey("DoubleMode('{','Å');","{","double_mode");
AssignKey("DoubleMode(';','æ');",";","double_mode");
AssignKey("DoubleMode(':','Æ');",":","double_mode");
AssignKey("DoubleMode('\'','ø');","'0x2a'","double_mode");
AssignKey("DoubleMode('\"','Ø');","\"","double_mode");


//»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»» Public variable ««
ConstructInfo("double_mode","","","LB","",0,1,0);