-- 		TI Translate
-- ~ english-french version ~
-- Louis DURAND (c) 2011
-- 		FRANCE 54

-- Commence le 24/10/2011
-- Termine le 12/04/2012


function on.create()
	-- 31, 53
	flag1=image.new("9\000\000\000%\000\000\000\000\000\000\000r\000\000\000\016\000\001\000D\236+\2419\251\255\255\255\255\255\255\255\255\255\255\184\202\017\133\207\128\016\129\017\129\017\129\017\129\017\129\016\129\017\129\017\129\017\129\017\129\017\129\240\128\180\157\255\251\222\255\166\236\133\236\166\232\166\236d\236L\241\255\255\157\235\017\137\017\129\017\129\017\129\017\129\017\129\017\129\017\129\017\129\017\129\017\129\017\129\016\129\207\128R\141\092\215\189\255\140\245\133\232e\236e\236\240\245\254\255D\232\132\236d\2363\246\254\255\255\255\255\255\255\255\255\255}\235\180\157\207\128\017\129\016\129\017\129\017\129\016\129\017\129\017\129\017\129\017\129\017\129\240\128\180\161\255\251\222\255\166\232\134\236\166\240\166\236e\236L\241\255\255\157\235\016\133\016\129\017\129\017\129\017\129\017\129\017\129\016\129\017\129\016\129\016\129\240\128\207\1287\174\255\247\214\254\200\236D\236D\232\009\2379\251\255\255\255\255\207\245$\232\133\232e\236K\241{\255\255\255\255\255\255\255\255\255\255\251x\190\175\128\240\128\016\129\017\129\016\129\017\129\017\129\017\129\017\129\017\129\240\128\180\157\254\251\222\255\167\236\134\236\166\236\167\236d\236K\241\255\255\157\235\017\133\017\129\017\129\017\129\017\129\017\129\017\129\016\129\017\129\016\129\207\128\241\128<\207\255\255\173\245e\236d\232C\232\240\245\189\255\255\255\255\255\255\255\255\247Y\255\009\237d\232d\232D\232s\246\255\255\255\255\255\255\255\255\255\255\158\239R\145\208\128\240\128\017\129\017\129\017\129\016\129\017\129\017\129\240\128\180\161\255\251\222\255\166\236\134\236\166\236\166\236d\236L\241\255\255\157\235\017\133\016\129\017\129\016\129\016\129\017\129\016\129\017\129\240\128\207\128\245\165\255\251\023\255e\236C\232d\232\233\240z\251\255\255\255\255\255\255\255\255\255\255s\153\158\231\254\255\208\245e\236d\236D\236l\241Z\251\255\255\255\255\255\255\255\255\223\2517\182\240\128\240\128\016\129\016\129\017\129\017\129\016\129\240\128\180\161\255\251\222\255\166\236\134\236\166\236\166\236d\236L\241\255\255\157\235\017\133\017\129\017\129\017\129\017\129\017\129\017\129\208\1281\133\218\198\222\255\238\245d\236d\232\134\236\240\241\222\255\255\255\255\255\255\255\255\255\223\247X\186\175\128\017\133x\186\255\255\024\255\200\236C\236e\236\166\232\181\250\255\255\255\255\255\255\255\255\255\255<\219\240\128\207\128\017\129\016\129\016\129\016\129\240\128\180\161\255\251\222\255\166\236\134\236\166\236\166\236d\236L\241\255\255\157\235\017\133\016\129\017\129\017\129\017\129\017\129\174\128\179\149\223\235Y\255\231\240D\236$\236\199\236\024\251\255\255\255\255\255\255\255\255\255\255\092\223\148\149\208\128\240\128\017\129\175\128r\145\157\231\255\255\240\241e\236d\232D\236m\241\156\251\255\255\255\255\255\255\255\255\255\251\245\169\240\128\241\128\017\129\017\129\240\128\180\161\255\251\222\255\166\236\134\236\166\236\166\236d\236L\241\255\255\157\235\017\133\016\129\017\129\016\129\240\128\016\129\186\186\254\255\208\249D\236e\236\133\236\240\245\255\255\255\255\255\255\255\255\255\255\223\2516\182\175\128\238\128\241\128\240\128\017\129\017\129\240\128\240\128x\182\255\255\024\255\009\241d\232d\236\199\236\182\250\255\255\255\255\255\255\255\255\255\255\250\210\017\133\207\128\016\129\240\128\180\161\255\251\222\255\166\236\134\236\166\236\166\236d\236L\241\255\255\157\235\017\133\016\129\017\129\175\128\180\157}\227Z\255\232\240C\236D\232\009\237\024\251\255\255\255\255\255\255\255\255\255\255\026\211s\145\175\128\017\129\016\129\016\129\239\128\017\129\017\129\017\129\016\129\208\128\146\153\158\231\255\255\240\249#\232D\232e\236\239\241\254\255\255\255\255\255\255\255\255\255}\231\147\153\175\128\208\128\180\157\255\251\222\255\166\236\134\236\166\236\166\236e\232L\241\255\255\157\235\017\133\240\128\175\128W\174\255\2552\250\165\236D\236D\232\207\245\189\255\255\255\255\255\255\255\255\255\255\2556\178\240\128\240\128\016\129\017\129\017\129\017\129\240\128\016\129\016\129\016\129\017\129\017\129\240\128\208\128W\178\255\251Y\255\232\236d\236D\236\167\236\247\250\255\255\255\255\255\255\255\255\255\255\185\198\207\128\148\153\255\247\221\255\166\236\134\236\166\236\166\236d\236L\241\255\255}\235\208\128S\141}\219\188\255\199\236C\236C\236\233\2369\251\255\255\255\255\255\255\255\255\255\255\027\215\017\137\207\128\016\129\017\129\017\129\016\129\016\129\017\129\175\128\240\128\240\128\240\128\240\128\240\128\240\128\240\128\143\128R\145\092\215\223\255\240\249\133\232D\232#\232\240\245\157\255\255\255\255\255\255\255\255\255:\2196\178\223\247\222\255\167\236\134\236\166\236\166\236e\232L\241\255\255}\235\022\166\157\247R\254d\232C\236\133\236\207\245\222\255\255\255\255\255\255\255\255\255\157\239\245\169\143\128\208\128\241\128\240\128\240\128\240\128\240\128\240\128\241\128r\149r\145r\145r\145r\145r\145Q\137R\141Q\1411\1332\133x\186\255\255\247\250\010\237\167\236\133\236L\237Z\251\255\255\255\255\255\255\255\255\254\251\255\255\222\255\166\236\134\236\166\236\166\232e\236K\241\255\255\255\251\156\251k\245\133\232\166\236\009\237\215\250\255\255\255\255\255\255\255\255\255\255\027\219r\145\017\1290\1331\1331\1371\1332\1332\1371\1292\1371\133\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\223\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\221\255\166\236\134\236\166\236\167\236d\236k\241\255\255\255\255\223\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\251\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\254\255\167\236\133\236\166\236\167\236d\236l\241\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255t\246\149\250\149\246\149\246\148\250\149\246\149\250\149\250\148\246\149\246\149\250\149\246\149\246\181\250\214\250\182\246\182\250\182\250\214\250\182\250\182\250\182\250\182\246\182\246\214\250\149\246\167\236\166\236\167\236\166\236\133\236\009\237\247\250\182\250\182\246\182\250\182\250\213\250\214\250\183\250\182\250\182\246\182\250\182\246\182\250\214\246\214\246\182\250\182\250\182\250\182\250\214\250\182\250\182\246\214\250\182\250\182\250C\232d\232d\236d\232d\236d\236d\236d\236d\232d\236e\236d\236d\236d\236d\236d\236d\236d\236d\236d\236d\236d\236d\236d\236d\232e\236\166\236\166\236\166\236\166\236\166\236\134\236e\232d\232d\236d\236d\236d\236d\236d\236d\236d\236d\236d\236d\236d\236d\236d\236d\236d\236d\236d\236d\236e\236d\236d\232D\236e\232\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236e\232\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\134\236e\232\166\236\166\236\167\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\134\240e\232\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\134\236\133\232\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\134\240#\232e\236e\236d\232d\236d\236e\236d\236d\232d\232d\232e\236d\236d\232d\236d\236e\236d\232e\232d\236d\236e\232d\236e\232d\236d\236\167\236\166\232\166\236\166\236\167\240\134\236d\232d\232E\236d\232d\236d\232d\232d\236d\236d\232e\232d\236d\236d\236d\236e\236D\236e\236d\232c\232d\232d\236E\236d\232d\236t\246\181\246\148\246\149\250\149\250\149\250\149\246\149\250\148\246\148\250\149\250\148\246\148\246\149\246\149\250\148\246\149\246\149\250\149\246\148\250\149\250\149\250\148\246\148\246\181\250S\246\133\232\166\236\167\236\166\236\133\236\009\241\214\250\149\250\149\246\149\250\148\250\149\250\148\250\149\250\149\246\149\250\148\250\149\246\180\246\149\250\149\246\149\246\149\246\149\246\149\250\149\250\149\250\149\246\149\250\148\250\148\250\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\189\255\133\236\134\236\165\236\166\236d\232l\241\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\155\255d\236\166\232\166\236\166\236d\232K\241\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\2551\133R\137R\137Q\141Q\141R\137R\137Q\141Q\1411\133R\133\153\198\255\255\255\255\255\255\255\255\255\255\156\255\174\241\199\240\199\236\167\236S\250\255\255\255\255|\255\133\236\167\232\166\236\167\236e\236l\237\255\255\255\251\255\255\255\255\255\255\255\255\222\255\017\242\199\236\232\236\231\236\017\246\222\255~\227\179\149\018\133Q\137Q\137R\1411\137Q\137R\137R\137R\137R\137\207\128\240\128\240\128\240\128\240\128\240\128\240\128\240\128\143\128R\149;\219\255\255\255\255\255\255\255\255\255\255\182\246\233\236d\236#\232\199\236\214\254\189\235\152\190\255\251\156\255\133\236\134\236\166\236\166\236e\236L\241\255\255\092\227w\186\255\255\255\255\255\255\255\255\189\255S\246D\232C\232C\232K\241z\255\223\239\021\174\175\128\208\128\240\128\241\128\240\128\240\128\240\128\240\128\240\128\207\128\017\129\017\129\017\129\017\129\017\129\240\128\239\128W\186\255\251\255\255\255\255\255\255\255\255\255\255\207\241d\236e\236B\232\206\245\254\255]\219\240\128\147\153\255\251\156\255\133\236\134\236\166\236\166\236e\236K\241\255\255<\223\207\128\212\157\190\243\255\255\255\255\255\255\255\255{\255\009\241D\232d\232\166\236s\250\255\255<\2191\137\208\128\016\129\017\129\017\129\016\129\017\129\016\129\240\128\017\129\017\129\017\129\240\128\208\128\148\153\157\235\255\255\255\255\255\255\255\255\255\255\214\250\167\240D\232d\232\232\236\247\254\255\243\023\174\175\128\207\128\180\157\255\251\156\255\133\236\166\236\166\236\166\236e\236K\241\255\255\092\227\240\128\207\128\241\128\217\206\255\255\255\255\255\255\255\255\255\255t\250\166\236d\236#\232*\245\156\255\255\255W\182\240\128\240\128\017\129\017\129\017\129\018\129\208\128\017\129\016\129\208\128\016\129w\190\255\251\255\255\255\255\255\255\255\255\222\255\241\245e\232d\236C\236\207\245\221\255}\227R\141\207\128\241\128\240\128\180\161\255\251\156\255\133\236\166\236\166\236\166\236e\236k\241\255\255\092\227\016\133\017\129\240\128\207\1286\178\222\247\255\255\255\255\255\255\255\2559\251J\237E\232d\232\167\236t\250\255\255\027\215r\145\208\128\016\129\017\129\016\129\240\128\017\129\175\128s\149}\235\255\255\255\255\255\255\255\255\255\2559\251\009\237e\232D\236\133\236\214\254\255\255\153\190\241\132\240\128\016\129\017\129\240\128\180\161\255\251\156\255\133\236\166\236\166\236\166\236e\236K\241\255\255\092\227\240\132\017\129\017\129\240\128\240\128q\145\092\227\255\255\255\255\255\255\255\255\255\255Q\246D\232d\236D\236L\241\222\255\255\251W\182\174\128\240\128\017\129\206\1281\133\151\190\255\255\255\255\255\255\255\255\255\255\222\255\240\245#\232d\236d\236\174\245\254\255\223\239R\141\175\128\016\129\017\129\017\129\017\129\240\128\180\161\255\251\156\255\133\236\166\236\166\236\166\236e\236K\241\255\255\092\227\240\132\016\129\017\129\017\129\017\129\208\128\175\128w\190\255\251\255\255\255\255\255\255\255\255|\251*\241e\232D\232\133\236\148\250\255\255}\227s\149\239\128\147\157}\231\255\255\255\255\255\255\255\255\255\255\025\251*\241d\232D\232\167\236\181\254\255\255\217\198\017\129\208\128\017\129\016\129\017\129\017\129\016\129\240\128\180\161\255\251\156\255\133\236\166\236\166\236\166\236e\236K\241\255\255\092\223\240\132\017\129\017\129\017\129\017\129\017\129\016\129\207\128\180\157}\231\255\255\255\255\255\255\255\255\222\2552\246\134\236d\236e\236\141\241\221\255\255\251X\182\222\247\255\255\255\255\255\255\255\255\255\2552\246\133\232e\236#\236k\241\156\255\255\251\180\161\208\128\240\128\017\129\017\129\017\129\017\129\017\129\017\129\240\128\179\157\255\251\156\255e\236\166\236\166\236\166\236e\236k\237\255\255<\227\016\133\017\129\017\129\017\129\017\129\017\129\017\129\017\129\240\128\017\129\250\206\255\255\255\255\255\255\255\255\255\255Y\251\199\240D\236E\236\232\236\247\254\255\255\255\255\255\255\255\255\255\2559\251\009\237\034\236e\236\166\236\181\250\255\255\027\211\240\128\208\128\017\129\017\129\016\129\016\129\016\129\016\129\016\129\016\129\240\128\180\161\255\251\156\255\133\236\134\236\166\236\166\236e\236K\241\255\255\092\223\241\132\016\129\016\129\016\129\016\129\016\129\016\129\016\129\017\129\016\129\175\128\212\161\158\239\255\255\255\255\255\255\255\255\255\2551\246\165\236d\236#\232\175\245\255\255\255\255\255\2552\246\166\236d\232D\236\140\241\155\255\255\247\022\174\239\128\016\129\017\129\017\129\017\129\017\129\017\129\017\129\017\129\017\129\017\129\240\128\180\157\255\251\156\255\133\232\166\236\166\236\166\236e\236L\241\255\255[\223\240\132\017\129\017\129\017\129\017\129\017\129\017\129\017\129\017\129\016\129\016\129\207\128R\141\026\215\255\255\255\255\255\255\255\255\255\2559\251\009\241D\232d\236\255\255Z\255+\241D\236\133\236\166\236\181\250\255\255\092\2192\141\208\128\016\129\016\129\241\128\017\129\017\129\017\129\017\129\017\129\017\129\017\129\017\129\240\128\180\161\255\251\156\255e\236\133\236\166\240\134\240d\236L\245\255\255\092\223\241\128\017\129\017\129\017\129\017\129\017\129\017\129\016\129\016\129\241\128\017\129\017\129\240\128\208\1286\174\222\247\255\255\255\255\255\255\255\255\222\255R\246\133\240")
	flag2=image.new("9\000\000\000%\000\000\000\000\000\000\000r\000\000\000\016\000\001\0003\129T\129S\129S\129S\129S\129S\129S\129S\129S\129S\129S\129S\129S\129S\129T\129S\1293\129T\129\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\010\241D\236\133\236\133\236\133\236\133\236\133\236\133\236\133\236\133\236\133\236\133\236\133\236\133\236\134\236\133\236\134\236\133\236\133\236S\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129S\129T\129\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255*\241e\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\167\236\166\236S\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129S\129t\129S\129T\129\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255+\241e\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\134\236T\129s\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129S\129s\129\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255*\241e\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\134\236T\129s\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129S\129s\129\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255*\241e\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\134\236T\129s\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129S\129s\129\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255*\241e\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\134\236T\129s\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129S\129s\129\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255*\241e\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\134\236T\129s\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129S\129s\129\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255*\241e\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\134\236T\129s\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129S\129s\129\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255*\241e\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\134\236T\129s\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129S\129s\129\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255*\241e\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\134\236T\129s\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129S\129s\129\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255*\241e\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\134\236T\129s\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129S\129s\129\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255*\241e\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\134\236T\129s\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129S\129s\129\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255*\241e\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\134\236T\129s\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129S\129s\129\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255*\241e\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\134\236T\129s\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129S\129s\129\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255*\241e\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\134\236T\129s\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129S\129s\129\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255*\241e\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\134\236T\129s\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129S\129s\129\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255*\241e\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\134\236T\129s\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129S\129s\129\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255*\241e\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\134\236T\129s\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129S\129s\129\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255*\241e\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\134\236T\129s\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129S\129s\129\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255*\241e\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\134\236T\129s\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129S\129s\129\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255*\241e\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\134\236T\129s\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129S\129s\129\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255*\241e\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\134\236T\129s\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129S\129s\129\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255*\241e\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\134\236T\129s\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129S\129s\129\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255*\241e\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\134\236T\129s\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129S\129s\129\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255*\241e\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\134\236T\129s\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129S\129s\129\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255*\241e\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\134\236T\129s\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129S\129s\129\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255*\241e\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\134\236T\129s\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129S\129s\129\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255*\241e\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\134\236T\129s\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129S\129s\129\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255*\241e\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\134\236T\129s\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129S\129s\129\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255*\241e\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\134\236T\129s\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129S\129s\129\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255*\241e\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\134\236T\129s\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129S\129s\129\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255*\241e\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\134\236T\129s\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129S\129s\129\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255*\241e\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\134\236T\129t\129T\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129s\129S\129t\129\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255*\237e\232\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\134\236S\129s\129t\129s\129s\129s\129s\129s\129s\129s\129s\129s\129s\129s\129s\129t\129t\129S\129S\129\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255+\241e\236\167\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\134\236S\129s\129s\129s\129s\129s\129s\129s\129s\129s\129s\129s\129s\129s\129s\129s\129t\129S\129T\129\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255*\241e\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\134\240S\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129t\129T\129t\129T\129T\129\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255*\241d\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\166\236\167\236\134\236")
	gui=string.uchar(34)
	start=0
	enter=0
	siz=9
	dico="ef"
	msg=var.recall("msg")
	if msg==nil then msg="" end
	fin=2
	long1=var.recall("long1")
	long2=var.recall("long2")
	sens=1 -- Version => francais
	dim={(long1-1)*516+math.eval("dim(ef"..tostring(long1)..")/84") , (long2-1)*516+math.eval("dim(fe"..tostring(long2)..")/84")}
	var.monitor("cur_lang")
end

function on.varChange()
select_langu(var.recall("cur_lang"))
end

function on.paint(gc)
local q,r,n,larg,hh,str,xx
ww=platform.window:width()
wh=platform.window:height()

if item==nil then
for n=0,wh do
gc:setColorRGB(120,math.floor(255*n/wh),255)
gc:drawLine(0,n,ww,n)
end
gc:drawImage(flag1,10,10)
gc:drawImage(flag2,ww-67,10)
str="TI Translate"
gc:setFont("sansserif","b",24)
gc:setColorRGB(120,100,100)
gc:drawString(str,ww/2-gc:getStringWidth(str)/2+2,wh/2+2,"bottom")
gc:setFont("sansserif","b",24)
gc:setColorRGB(80,200,100)
gc:drawString(str,ww/2-gc:getStringWidth(str)/2,wh/2,"bottom")
gc:setFont("serif","b",11)
gc:setColorRGB(120,80,80)
hh=gc:getStringHeight("BLA")
str="english-french version"
gc:drawString(str,ww/2-gc:getStringWidth(str)/2,wh/2,"top")
gc:setFont("serif","i",10)
str="Louis DURAND "..string.uchar(169).." 2011 ~ FRANCE 54"
gc:drawString(str,ww/2-gc:getStringWidth(str)/2,wh/2+20,"top")
gc:setFont("serif","r",9)
gc:setColorRGB(0,0,0)
str=lg[19].." => aphone@hotmail.fr "..lg[17].." TI-Planet.org"
xx=ww/2-gc:getStringWidth(str)/2
gc:drawString(str,xx,wh/2+78,"top")
str="[menu] "..lg[20]
gc:drawString(str,xx,wh/2+40,"top")
str="["..string.uchar(9650).."]"..lg[18].."["..string.uchar(9660).."], [1]"..lg[18].."[7], [2]"..lg[18].."[8] "..lg[17].." [3]"..lg[18].."[9] "..lg[21]
gc:drawString(str,xx,wh/2+56,"top")
else

if sens==1 then
gc:drawImage(flag1,ww-57,0)
else
gc:drawImage(flag2,ww-57,0)
end
	if enter==1 then
	gc:setColorRGB(120,60,60)
	gc:fillRect(ww-8,38,6,wh-89)
	gc:setColorRGB(60,120,60)
	gc:fillRect(ww-7,39+start*(wh-98)/dim[sens],4,8)
	else
	gc:setColorRGB(120,60,60)
	gc:fillRect(ww-8,38,6,wh-39)
	gc:setColorRGB(60,120,60)
	gc:fillRect(ww-7,39+start*(wh-48)/dim[sens],4,8)
	end
	gc:setFont("sansserif","r",9)
	gc:setColorRGB(128,128,128)
	gc:drawString(tostring(start+1),ww/2,4,"top")
	gc:setColorRGB(0,0,0)
	gc:setFont("sansserif","b",siz)
	hh=gc:getStringHeight("BLA")
	fin=math.floor((wh-20)/(2*hh))
	q=math.floor(start/516)
	r=start-q*516
	if r+fin-1<516 then
	str=math.eval("mid("..dico..tostring(q+1)..","..tostring(r*84+1)..","..tostring(fin*84)..")")
	else
	str=math.eval("mid("..dico..tostring(q+1)..","..tostring(r*84+1)..")&mid("..dico..tostring(q+2)..",1,"..tostring((fin-516+r)*84)..")")
	end
	for n=0,fin-1 do
	gc:drawString(string.usub(str,n*84+1,n*84+31),4,20+2*n*hh,"top")  --string.sub(var.recall(dico..tostring(q+1)),r*84+1,r*84+31)
	end
	gc:setFont("sansserif","r",siz)
	for n=0,fin-1 do
	gc:drawString(string.usub(str,n*84+32,(n+1)*84),28,20+(2*n+1)*hh-2,"top")   --string.sub(var.recall(dico..tostring(q+1)),r*84+32,(r+1)*84)
	end

	if enter==1 then
	gc:setColorRGB(120,60,60)
	gc:fillRect(0,wh-50,ww,50)
	gc:setColorRGB(100,100,150)
	gc:fillRect(2,wh-48,ww-4,46)
	gc:setColorRGB(255,240,240)
	gc:setFont("serif","b",10)
	gc:drawString(lg[22],5,wh-50,"top") --"Rechercher un mot :"
	if find==1 then
	gc:setColorRGB(180,255,180)
	elseif find==2 then
	gc:setColorRGB(255,180,180)
	else
	gc:setColorRGB(240,240,240)
	end
	gc:fillRect(6,wh-26,ww-12,20)
	
	gc:setColorRGB(0,0,0)
	gc:setFont("serif","r",10)
	larg=gc:getStringWidth(string.usub(msg,1,pos))
	if strt+larg>ww-5 then
		strt=ww-larg-15
	elseif strt+larg<80 then
		strt=120-larg
		if strt>5 then strt=10 end
	end
	gc:drawString(msg,strt,wh-26,"top")
	if disp==1 then
	gc:setColorRGB(0,0,0)
	gc:drawLine(strt+larg,wh-26,strt+larg,wh-6)
	end
	end

end

if var.recall("pendu") then
local mes="NO CHEAT,"
gc:setColorRGB(145,70,0)
gc:fillRect(15,15,ww-30,wh-30)
gc:setColorRGB(255,155,255)
gc:fillRect(20,20,ww-40,wh-40)
gc:setColorRGB(math.random(255),math.random(255),math.random(255))
gc:setFont("serif","r",20)
gc:drawString(mes,(ww-gc:getStringWidth(mes))/2,(wh-gc:getStringHeight(mes))/2)
mes="Please. ;-)"
gc:drawString(mes,(ww-gc:getStringWidth(mes))/2,(wh-gc:getStringHeight(mes))/2,"top")
end
end

function on.tabKey()
find=0
if dico=="ef" then dico="fe" sens=2 else dico="ef" sens=1 end
if start>=dim[sens] then start=dim[sens]-1 end
 platform.window:invalidate()
end

function on.enterKey()
local lim,q,r,mot,qq,stop
if item==nil then
item=1
on.create()
else

if enter==0 then
strt=10
disp=1
pos=string.len(msg)
enter=1
timer.start(0.5)
else
find=2
var.store("msg",msg)
q=math.floor(start/516)
lim=math.floor(dim[sens]/516)
r=(start-q*516+1)*84

qq=q+1 stop=0
repeat
	if q>lim then q=0 stop=1 end
	mot=math.eval("inString("..dico..tostring(q+1)..",msg,"..tostring(r)..")")   --string.find(var.recall(dico..tostring(q+1)),msg,r,true)
		if tri==1 and mot~=0 and mot-math.floor(mot/84)*84>30 then
		r=mot+1 mot=0
		else
		q=q+1 r=1
		end
until mot~=0 or stop==1 and q==qq

if mot~=0 then
start=(q-1)*516+math.floor(mot/84)
find=1
end
end
end
 platform.window:invalidate()
end

function on.escapeKey()
if enter==0 then
item=nil
end
enter=0
timer.stop()
 platform.window:invalidate()
end

function on.timer()
if enter==1 then
	disp=1-disp
	platform.window:invalidate()
end
end

 function on.backspaceKey()
 find=0
 if enter==1 and pos>0 then
 msg=string.usub(msg,1,pos-1)..string.usub(msg,pos+1)
 pos=pos-1
  platform.window:invalidate()
 end
 end

 function on.clearKey()
 find=0
 if enter==1 then
 if pos==string.len(msg) then
 msg=""
 pos=0
 else
 msg=string.usub(msg,1,pos)
 end
 end
	platform.window:invalidate()
 end
 
function on.arrowDown()
	if start+1<dim[sens] then
	start=start+1
	end
platform.window:invalidate()
end

function on.arrowUp()
	if start>0 then
	start=start-1
	end
platform.window:invalidate()
end

function on.arrowLeft()
if enter==1 then
 if pos>0 then pos=pos-1 end
 disp=1
 platform.window:invalidate()
end
end

function on.arrowRight()
if enter==1 then
 if pos<string.len(msg) then pos=pos+1 end
 disp=1
 platform.window:invalidate()
end
end

function on.mouseDown(x,y)
if x<ww-10 then
on.enterKey()
end
grab=1
item=1
on.mouseMove(x,y)
end

function on.rightMouseDown()
on.escapeKey()
end

function on.mouseUp()
grab=0
end

function on.grabDown()
grab=1
end

function on.grabUp()
grab=0
end

function on.mouseMove(x,y)
if grab==1 then
if x>ww-10 then
if enter==0 then
start=math.floor((y-39)*dim[sens]/(wh-39))
else
start=math.floor((y-39)*dim[sens]/(wh-89))
end
if start>=dim[sens] then
start=dim[sens]-1
elseif start<0 then
start=0
end
end
platform.window:invalidate()
end
end

function on.charIn(ch)
local str,bb,q,r,n,cpt
 find=0
if enter==1 then
if ch==string.uchar(61440) then ch=string.uchar(223) end
msg=string.usub(msg,1,pos)..ch..string.usub(msg,pos+1)
pos=pos+1
else
ch=string.lower(ch)
	if ch=="+" and siz<12 then
	siz=siz+1
	elseif ch=="-" and siz>8 then
	siz=siz-1
	elseif ch=="1" then
	start=start+fin
	elseif ch=="7" then
	start=start-fin
	elseif ch=="2" then
	start=start+50
	elseif ch=="8" then
	start=start-50
	elseif ch=="3" then
	start=start+200
	elseif ch=="9" then
	start=start-200
	elseif ch=="a" then
	start=0
	elseif string.find(ch,"%a") then
		bb=0 cpt=0
		n1=0 n2=dim[sens]
		while bb~=string.byte(ch) and cpt<100 do
		n=math.floor((n1+n2)/2)
		q=math.floor(n/516)
		r=n-516*q
		bb=string.byte(string.lower(math.eval("mid("..dico..tostring(q+1)..","..tostring(r*84+1)..",1)")))
		if bb<string.byte(ch) then
		n1=n
		elseif bb>string.byte(ch) then
		n2=n
		end
		cpt=cpt+1
		end
	pas=400
	while pas~=1 do
	str=ch
	pas=math.floor(pas/2)
	while ch==string.lower(str) do
	q=math.floor(n/516)
	r=n-516*q
	str=math.eval("mid("..dico..tostring(q+1)..","..tostring(r*84+1)..",1)")
	n=n-pas
	end
	n=n+2*pas
	end
	start=n
	end
end
if start<0 then
start=0
elseif start>=dim[sens] then
start=dim[sens]-1
end
platform.window:invalidate()
end


-- Fonctions du menu
function zoom()
local ent
ent=enter enter=0
on.charIn("+")
enter=ent
end

function dezoom()
local ent
ent=enter enter=0
on.charIn("-")
enter=ent
end

function eszett_In()
on.charIn(string.uchar(223))
end
function om() on.charIn(string.uchar(246)) end
function oM() on.charIn(string.uchar(214)) end
function am() on.charIn(string.uchar(228)) end
function aM() on.charIn(string.uchar(196)) end

function a() go("a") end
function b() go("b") end
function c() go("c") end
function d() go("d") end
function e() go("e") end
function f() go("f") end
function g() go("g") end
function h() go("h") end
function i() go("i") end
function j() go("j") end
function k() go("k") end
function l() go("l") end
function m() go("m") end
function n() go("n") end
function o() go("o") end
function p() go("p") end
function q() go("q") end
function r() go("r") end
function s() go("s") end
function t() go("t") end
function u() go("u") end
function v() go("v") end
function w() go("w") end
function x() go("x") end
function y() go("y") end
function z() go("z") end

function go(ch)
local ent
ent=enter enter=0
on.charIn(ch)
enter=ent
end

function setTri()
toolpalette.enable(lg[8],lg[9],false)
toolpalette.enable(lg[8],lg[10],true)
tri=1
end

function resetTri()
toolpalette.enable(lg[8],lg[9],true)
toolpalette.enable(lg[8],lg[10],false)
tri=0
end

function en() select_langu("en") end
function fr() select_langu("fr") end
function de() select_langu("de") end
function es() select_langu("es") end
function it() select_langu("it") end

function select_langu(nm)
var.store("cur_lang",nm)
local ee
ee=string.uchar(233)
if nm=="fr" then
lg={"Actions","Changer de langue","Rechercher","Agrandir","R"..ee.."duire","eszett allemand","Aller "..string.uchar(224),"Chercher que dans la langue selectionn"..ee.."e","Oui","Non","Langue du logiciel","Anglais","Fran"..string.uchar(231).."ais","Allemand","Espagnol","Italien","ou","et","Questions? Probl"..string.uchar(232).."mes?","pour acc"..ee.."der aux options","pour d"..ee.."filer","Rechercher un mot :"}
elseif nm=="de" then
lg={"Aktionen","Sprache wechseln","Suchen","Vergr"..string.uchar(246).."ssern","Verkleinern","deutsches eszett","Weiter bis","Nur in der gew"..string.uchar(228).."hlten Sprache suchen","Ja","Nein","Sprachwahl f"..string.uchar(252).."r das Programm","Englisch","Franz"..string.uchar(246).."sisch","Deutsch","Spanisch","Italienisch","oder","und"," Fragen?  Probleme? ","zu den Optionen","zum srollen","Wortsuche :"}
elseif nm=="it" then
lg={"Azioni","Cambiare lingua","Ricercare","Ingrandire","Ridurre","eszett tedesco","Andare a","Cercare solo nella langua selezionata","Si","No","Langua del programma","Inglese","Francese","Tedesco","Spagnolo","Italiano","o","e","Domande? Problemi?","per andare alle opzioni","per sfilare","Ricercare una parola :"}
elseif nm=="es" then
lg={"Acci"..string.uchar(243).."n","Cambiar de idioma","Rebuscar","Ampliar","Reducir","eszett alem"..string.uchar(225).."n","Ir de","Buscar solo en la idioma seleccionado","Si","No","Idioma del logicial","Ingl"..ee.."s","Franc"..ee.."s","Alem"..string.uchar(225).."n","Espa"..string.uchar(241).."ol","Italiano","o","y",string.uchar(191).."Preguntas? "..string.uchar(191).."Problemas?","para tener acceso en los opci"..string.uchar(243).."nes","para desfilar","Rebuscar una palabra :"}
else
lg={"Actions","Change language","Search","Zoom in","Zoom out","german eszett","Go to","Search only in the current language","Yes","No","Software language","English","French","German","Spanish","Italian","or","and","Questions? Problems?","for options","to scroll","Search a word :"}
end

menu = {
{lg[1],
{lg[2].."  [tab]", on.tabKey},
{lg[3].."  [enter]", on.enterKey},
"-",
{lg[4].."  [+]", zoom},
{lg[5].."  [-]", dezoom},
"-",
{string.uchar(223).." ("..lg[6]..")  ["..string.uchar(61440)..string.uchar(61440).."]", eszett_In},
{string.uchar(228).."  ["..string.uchar(61700).."]", am},
{string.uchar(196).."  ["..string.uchar(61700).."]", aM},
{string.uchar(246).."  ["..string.uchar(61700).."]", om},
{string.uchar(214).."  ["..string.uchar(61700).."]", oM}
},
{lg[7],
{"a  [a]",a},{"b  [b]",b},{"c  [c]",c},{"d  [d]",d},{"e  [e]",e},{"f  [f]",f},{"g  [g]",g},{"h  [h]",h},{"i  [i]",i},{"j  [j]",j},{"k  [k]",k},{"l  [l]",l},{"m  [m]",m},{"n  [n]",n},{"o  [o]",o},{"p  [p]",p},{"q  [q]",q},{"r  [r]",r},{"s  [s]",s},{"t  [t]",t},{"u  [u]",u},{"v  [v]",v},{"w  [w]",w},{"x  [x]",x},{"y  [y]",y},{"z  [z]",z}
},
{lg[8],
{lg[9], setTri},
{lg[10], resetTri}
},
{lg[11],
{lg[12], en},
{lg[13], fr},
{lg[14], de},
{lg[15], es},
{lg[16], it}
}
}

toolpalette.register(menu)
setTri()
platform.window:invalidate()
end

select_langu(locale.name())