Nanoreseau.net

User Tools

Site Tools

Trace:
l_utilitaire_phone8

Differences

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

Link to this comparison view

Both sides previous revisionPrevious revision
Next revision		Previous revision
l_utilitaire_phone8 [2026/04/28 14:26] – fool-duplexl_utilitaire_phone8 [2026/04/28 14:45] (current) – fool-duplex
Line 2: Line 2:
  
 <code> <code>
-10 ON ERROR GOTO 1000                                                      En cas d'erreur, gestion en 1000+10 ON ERROR GOTO 1000                                                     En cas d'erreur, gestion en 1000
 15 CONSOLE0,24 15 CONSOLE0,24
 20 CLS 20 CLS
-30 INPUT"COPAIN";COPAIN$                                                   Demande le numéro de poste distant +30 INPUT"COPAIN";COPAIN$                                                  Demande le numéro de poste distant 
-40 OPEN"I",1,"NODE:"+COPAIN$                                               Ouvre un canal en lecture vers ce poste +40 OPEN"I",1,"NODE:"+COPAIN$                                              Ouvre un canal en lecture vers ce poste 
-50 OPEN"O",2,"NODE:"+COPAIN$                                               Ouvre un canal en écriture vers ce poste +50 OPEN"O",2,"NODE:"+COPAIN$                                              Ouvre un canal en écriture vers ce poste 
-60 ON ERROR GOTO 0+60 ON ERROR GOTO 0                                                        Plus de gestion d'erreur
 65 CLS 65 CLS
 70 X2=0:Y2=13:A2=4:B2=3 70 X2=0:Y2=13:A2=4:B2=3
Line 15: Line 15:
 91 CONSOLE 0,11:SCREEN A,B,7 91 CONSOLE 0,11:SCREEN A,B,7
 92 CONSOLE 13,24:SCREEN A2,B2 92 CONSOLE 13,24:SCREEN A2,B2
-93 CONSOLE,,1 ' Plus de couleurs+93 CONSOLE,,1
 100 ' 100 '
 110 ' 110 '
-120 LOCATE X,Y ' POUR LE CURSEUR +120 LOCATE X,Y 
-121 A$=INKEY$ +121 A$=INKEY$                                                             Vérifie si une touche est pressée 
-130 IF A$="" THEN 210 +130 IF A$="" THEN 220                                                     Non ? Alors on va en 220 
-140 IF A$=CHR$(1) THEN 500+140 IF A$=CHR$(1) THEN 500                                                CNT-A pour quitter le programme
 141 IF A$=CHR$(13) THEN A$=A$+CHR$(10) 141 IF A$=CHR$(13) THEN A$=A$+CHR$(10)
 150 CONSOLE 0,11 150 CONSOLE 0,11
-160 PRINTA$;:X=POS:Y=CSRLIN +160 PRINTA$;:X=POS:Y=CSRLIN                                               Affiche le caractère ici 
-170 PRINT#2,A$;+170 PRINT#2,A$;                                                           Et l'envoie au poste distant
 180 ' 180 '
 190 ' 190 '
 200 ' 200 '
-210 REM   IF EOF(1) THEN CLOSE : END +210 ' 
-220 A$=INNODE$(1,1) +220 A$=INNODE$(1,1)                                                       Vérifie si on a reçu un caractère  
-230 IF A$="" THEN GOTO 120 ELSE IF A$=CHR$(1) THEN PRINT#2,A$:CLOSE:END+230 IF A$="" THEN GOTO 120 ELSE IF A$=CHR$(1) THEN PRINT#2,A$:CLOSE:END   CNT-A reçu : on quitte
 240 CONSOLE 13,24 240 CONSOLE 13,24
-250 LOCATE X2,Y2:PRINT A$;:X2=POS:Y2=CSRLIN +250 LOCATE X2,Y2:PRINT A$;:X2=POS:Y2=CSRLIN                               Affiche le caractère 
-260 GOTO 120+260 GOTO 120                                                              Et on reboucle
 270 ' 270 '
-500 ' DEMANDE DE FERMETURE +500 '  
-510 PRINT#2,CHR$(1)  'FIN ECHANGE +510 PRINT#2,CHR$(1)                                                       Envoie caractère de fin (CNT-A) 
-520 IF INNODE$(1,1)<>CHR$(1) THEN 520+520 IF INNODE$(1,1)<>CHR$(1) THEN 520                                     Et attend confirmation
 530 CONSOLE 0,24,0 530 CONSOLE 0,24,0
-540 CLOSE:END +540 CLOSE:END                                                             Ferme la liaison et fin 
-1000 BEEP +1000 BEEP                                                                 Attend que le poste distant décroche  
-1010 CLS:PRINT"Ringing ...+1010 CLS:PRINT"Ringing ..."
 1020 PLAY"MIDOMI 1020 PLAY"MIDOMI
 1030 RESUME 1030 RESUME
 </code> </code>
l_utilitaire_phone8.1777379165.txt.gz · Last modified: by fool-duplex
Donate Powered by PHP Valid HTML5 Valid CSS Driven by DokuWiki