Differences

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

--- l_utilitaire_phone8 [2026/04/28 14:10] – created 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é.
-''Monospaced Text''
+<code>
+ON ERROR GOTO 1000                                                     En cas d'erreur, gestion en 1000
+CONSOLE0,24
+CLS
+INPUT"COPAIN";COPAIN$                                                  Demande le numéro de poste distant
+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
+ON ERROR GOTO 0                                                        Plus de gestion d'erreur
+CLS
+X2=0:Y2=13:A2=4:B2=3
+X=0:Y=0:A=4:B=6
+COLOR 0,7:LOCATE 0,12:PRINT SPC(40);
+CONSOLE 0,11:SCREEN A,B,7
+CONSOLE 13,24:SCREEN A2,B2
+CONSOLE,,1
+ '
+ '
+LOCATE X,Y
+A$=INKEY$                                                             Vérifie si une touche est pressée
+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$(13) THEN A$=A$+CHR$(10)
+CONSOLE 0,11
+PRINTA$;:X=POS:Y=CSRLIN                                               Affiche le caractère ici
+PRINT#2,A$;                                                           Et l'envoie au poste distant
+'
+'
+'
+'
+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
+CONSOLE 13,24
+LOCATE X2,Y2:PRINT A$;:X2=POS:Y2=CSRLIN                               Affiche le caractère
+GOTO 120                                                              Et on reboucle
+'
+'
+PRINT#2,CHR$(1)                                                       Envoie caractère de fin (CNT-A)
+IF INNODE$(1,1)<>CHR$(1) THEN 520                                     Et attend confirmation
+CONSOLE 0,24,0
+CLOSE:END                                                             Ferme la liaison et fin
+BEEP                                                                 Attend que le poste distant décroche
+CLS:PRINT"Ringing ..."
+PLAY"MIDOMI
+RESUME
+</code>