Файл: sv/moze.php
Строк: 74
<?
include_once '../sys/inc/start.php';
include_once '../sys/inc/compress.php';
include_once '../sys/inc/sess.php';
include_once '../sys/inc/home.php';
include_once '../sys/inc/settings.php';
include_once '../sys/inc/db_connect.php';
include_once '../sys/inc/ipua.php';
include_once '../sys/inc/fnc.php';
include_once '../sys/inc/user.php';
$set['title']='Азбука Морзе';
include_once '../sys/inc/thead.php';
title();
err();
aut();
?>
<head>
<SCRIPT LANGUAGE="JavaScript">
<!-- Original: Nic Wolfe (Nic@TimelapseProductions.com) -->
<!-- Web Site: http://fineline.xs.mw -->
<!-- This script and many more are available free online at -->
<!-- The JavaScript Source!! http://javascript.internet.com -->
<!-- Begin
function translate(form) {
letters = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ .,?:-!";
morse = new Array(
".-","-...","-.-.","-..",".","..-.",
"--.","....","..",".---","-.-",".-..",
"--","-.","---",".--.","--.-",".-.",
"...","-","..-","...-",".--","-..-",
"-.--","--..",".-","-...","-.-.","-..",
".","..-.","--.","....","..",".---",
"-.-",".-..","--","-.","---",".--.",
"--.-",".-.","...","-","..-","...-",
".--","-..-","-.--","--.."," ",".-.-.-",
"--..--","..--..","---...","-....-","!");
form.output.value = "";
var input = form.input.value;
output = "";
for(count = 0; count < input.length; count++) {
daChar = input.charAt(count);
for (i = 0; i < letters.length; i++) {
if (daChar == letters.charAt(i)) {
output += morse[i];
break;
}
}
}
form.output.value = output;
}
// End -->
</script>
</head>
<body>
<form>
<table>
<tr>
Напечатайте фразу латинскими буквами<br>
<textarea name=input cols=10 rows=4 wrap=physical></textarea>
</td>
</tr>
<tr>
<input type=button value="Перевести!" onClick="javascript:translate(this.form)">
</td>
</tr>
<tr>
<td align=center>
<textarea name=output cols=10 rows=4 wrap=physical></textarea>
</td>
</tr>
</table>
</form>
</body>
<?
include_once '../sys/inc/tfoot.php';
?>