l_utilitaire_phone8
This is an old revision of the document!
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é.
10 ON ERROR GOTO 1000 15 CONSOLE0,24 20 CLS 30 INPUT"COPAIN";COPAIN$ 40 OPEN"I",1,"NODE:"+COPAIN$ 50 OPEN"O",2,"NODE:"+COPAIN$ 60 ON ERROR GOTO 0 65 CLS 70 X2=0:Y2=13:A2=4:B2=3 80 X=0:Y=0:A=4:B=6 90 COLOR 0,7:LOCATE 0,12:PRINT SPC(40); 91 CONSOLE 0,11:SCREEN A,B,7 92 CONSOLE 13,24:SCREEN A2,B2 93 CONSOLE,,1 ' Plus de couleurs 100 ' 110 ' 120 LOCATE X,Y ' POUR LE CURSEUR 121 A$=INKEY$ 130 IF A$="" THEN 210 140 IF A$=CHR$(1) THEN 500 141 IF A$=CHR$(13) THEN A$=A$+CHR$(10) 150 CONSOLE 0,11 160 PRINTA$;:X=POS:Y=CSRLIN 170 PRINT#2,A$; 180 ' 190 ' 200 ' 210 REM IF EOF(1) THEN CLOSE : END 220 A$=INNODE$(1,1) 230 IF A$="" THEN GOTO 120 ELSE IF A$=CHR$(1) THEN PRINT#2,A$:CLOSE:END 240 CONSOLE 13,24 250 LOCATE X2,Y2:PRINT A$;:X2=POS:Y2=CSRLIN 260 GOTO 120 270 ' 500 ' DEMANDE DE FERMETURE 510 PRINT#2,CHR$(1) 'FIN ECHANGE 520 IF INNODE$(1,1)<>CHR$(1) THEN 520 530 CONSOLE 0,24,0 540 CLOSE:END 1000 BEEP 1010 CLS:PRINT"Ringing ... 1020 PLAY"MIDOMI 1030 RESUME
l_utilitaire_phone8.1777378782.txt.gz · Last modified: by fool-duplex