Differences

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

--- l_utilitaire_phone8 [2026/04/28 14:19] – fool-duplex
+++ l_utilitaire_phone8 [2026/04/28 14:45] (current) – fool-duplex
@@ Line 1: / Line 1: @@
-L'utilitaire PHONE8.BAS est un petit programme de discussion entre postes livré avec la disquette système Nanoréseau v3.3. Ce programme illustre le fonctionnement des échanges entre deux postes, indépendamment du central. Voici son listing commenté.
+L'utilitaire PHONE8.BAS est un petit programme de discussion entre postes livré avec la disquette système Nanoréseau v3.3. Ce programme illustre le fonctionnement des échanges entre deux postes en BASIC réseau, indépendamment du central. Voici son listing commenté.
 <code>
-ON ERROR GOTO 1000
+ON ERROR GOTO 1000                                                     En cas d'erreur, gestion en 1000
 CONSOLE0,24
 CLS
-INPUT"COPAIN";COPAIN$
+INPUT"COPAIN";COPAIN$                                                  Demande le numéro de poste distant
-OPEN"I",1,"NODE:"+COPAIN$
+OPEN"I",1,"NODE:"+COPAIN$                                              Ouvre un canal en lecture vers ce poste
-OPEN"O",2,"NODE:"+COPAIN$
+OPEN"O",2,"NODE:"+COPAIN$                                              Ouvre un canal en écriture vers ce poste
-ON ERROR GOTO 0
+ON ERROR GOTO 0                                                        Plus de gestion d'erreur
 CLS
 X2=0:Y2=13:A2=4:B2=3
@@ Line 15: / Line 15: @@
 CONSOLE 0,11:SCREEN A,B,7
 CONSOLE 13,24:SCREEN A2,B2
-CONSOLE,,1 ' Plus de couleurs
+CONSOLE,,1
 '
 '
-LOCATE X,Y ' POUR LE CURSEUR
+LOCATE X,Y
-A$=INKEY$
+A$=INKEY$                                                             Vérifie si une touche est pressée
-IF A$="" THEN 210
+IF A$="" THEN 220                                                     Non ? Alors on va en 220
-IF A$=CHR$(1) THEN 500
+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
+PRINTA$;:X=POS:Y=CSRLIN                                               Affiche le caractère ici
-PRINT#2,A$;
+PRINT#2,A$;                                                           Et l'envoie au poste distant
 '
 '
 '
- REM   IF EOF(1) THEN CLOSE : END
+ '
-A$=INNODE$(1,1)
+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
+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
+LOCATE X2,Y2:PRINT A$;:X2=POS:Y2=CSRLIN                               Affiche le caractère
-GOTO 120
+GOTO 120                                                              Et on reboucle
 '
-' DEMANDE DE FERMETURE
+'
-PRINT#2,CHR$(1)  'FIN ECHANGE
+PRINT#2,CHR$(1)                                                       Envoie caractère de fin (CNT-A)
-IF INNODE$(1,1)<>CHR$(1) THEN 520
+IF INNODE$(1,1)<>CHR$(1) THEN 520                                     Et attend confirmation
 CONSOLE 0,24,0
-CLOSE:END
+CLOSE:END                                                             Ferme la liaison et fin
-BEEP
+BEEP                                                                 Attend que le poste distant décroche
-CLS:PRINT"Ringing ...
+CLS:PRINT"Ringing ..."
 PLAY"MIDOMI
 RESUME
 </code>