Differences

This shows you the differences between two versions of the page.

--- l_utilitaire_phone8 [2026/04/28 14:40] – fool-duplex
+++ l_utilitaire_phone8 [2026/04/28 14:45] (current) – fool-duplex
@@ Line 2: / Line 2: @@
 <code>
-ON ERROR GOTO 1000                                                      En cas d'erreur, gestion en 1000
+ON ERROR GOTO 1000                                                     En cas d'erreur, gestion en 1000
 CONSOLE0,24
 CLS
-INPUT"COPAIN";COPAIN$                                                   Demande le numéro de poste distant
+INPUT"COPAIN";COPAIN$                                                  Demande le numéro de poste distant
-OPEN"I",1,"NODE:"+COPAIN$                                               Ouvre un canal en lecture vers ce poste
+OPEN"I",1,"NODE:"+COPAIN$                                              Ouvre un canal en lecture vers ce poste
-OPEN"O",2,"NODE:"+COPAIN$                                               Ouvre un canal en écriture vers ce poste
+OPEN"O",2,"NODE:"+COPAIN$                                              Ouvre un canal en écriture vers ce poste
-ON ERROR GOTO 0                                                         Plus de gestion d'erreur
+ON ERROR GOTO 0                                                        Plus de gestion d'erreur
 CLS
 X2=0:Y2=13:A2=4:B2=3
@@ Line 19: / Line 19: @@
 '
 LOCATE X,Y
-A$=INKEY$                                                              Vérifie si une touche est pressée
+A$=INKEY$                                                             Vérifie si une touche est pressée
-IF A$="" THEN 220                                                      Non ? Alors on va en 220
+IF A$="" THEN 220                                                     Non ? Alors on va en 220
-IF A$=CHR$(1) THEN 500                                                 CNT-A pour quitter le programme
+IF A$=CHR$(1) THEN 500                                                CNT-A pour quitter le programme
 IF A$=CHR$(13) THEN A$=A$+CHR$(10)
 CONSOLE 0,11
-PRINTA$;:X=POS:Y=CSRLIN                                                Affiche le caractère ici
+PRINTA$;:X=POS:Y=CSRLIN                                               Affiche le caractère ici
-PRINT#2,A$;                                                            Et l'envoie au poste distant
+PRINT#2,A$;                                                           Et l'envoie au poste distant
 '
 '
 '
 '
-A$=INNODE$(1,1)                                                        Vérifie si on a reçu un caractère
+A$=INNODE$(1,1)                                                       Vérifie si on a reçu un caractère
-IF A$="" THEN GOTO 120 ELSE IF A$=CHR$(1) THEN PRINT#2,A$:CLOSE:END    CNT-A reçu : on quitte
+IF A$="" THEN GOTO 120 ELSE IF A$=CHR$(1) THEN PRINT#2,A$:CLOSE:END   CNT-A reçu : on quitte
 CONSOLE 13,24
-LOCATE X2,Y2:PRINT A$;:X2=POS:Y2=CSRLIN                                Affiche le caractère
+LOCATE X2,Y2:PRINT A$;:X2=POS:Y2=CSRLIN                               Affiche le caractère
-GOTO 120                                                               Et on reboucle
+GOTO 120                                                              Et on reboucle
 '
 '
-PRINT#2,CHR$(1)                                                        Envoie caractère de fin (CNT-A)
+PRINT#2,CHR$(1)                                                       Envoie caractère de fin (CNT-A)
-IF INNODE$(1,1)<>CHR$(1) THEN 520                                      Et attend confirmation
+IF INNODE$(1,1)<>CHR$(1) THEN 520                                     Et attend confirmation
 CONSOLE 0,24,0
-CLOSE:END                                                              Ferme la liaison et fin
+CLOSE:END                                                             Ferme la liaison et fin
-BEEP                                                                  Attend que le poste distant décroche
+BEEP                                                                 Attend que le poste distant décroche
-CLS:PRINT"Ringing ...
+CLS:PRINT"Ringing ..."
 PLAY"MIDOMI
 RESUME
 </code>