|
@@ -3,6 +3,10 @@
|
3
|
3
|
with Fiche_Plongee, Capteurs, Gada.Text_IO;
|
4
|
4
|
use Fiche_Plongee, Capteurs, Gada.Text_IO;
|
5
|
5
|
|
|
6
|
+-- // 01000011 01100101 00100000 01110100 01100101 01111000 01110100 01100101 00100000 01100101 01110011 01110100 00100000 01100101 01101110 00100000 01100010 01101001 01101110 01100001 01101001 01110010 01100101
|
|
7
|
+-- // .- -. -.. / - .... .. ... / --- -. . / .. ... / .. -. / -- --- .-. ... . / -.-. --- -.. .
|
|
8
|
+
|
|
9
|
+
|
6
|
10
|
procedure td is
|
7
|
11
|
|
8
|
12
|
-- TD 2
|