Ce mois-ci, c'est la seconde partie de Annuaire qui est publiée : ANN1.Pour ce qui est de l'initialisation et du mode d'emploi, voir le numéro précédent. Le programme présenté sauvegarde le fichier "MINITEL" après chaque modification. Si vous modifiez les quelques lignes suivantes, vous n'aurez plus à passer par le programme principal pour chacune d'elle et vous pourrez en faire plusieurs à suivre. 2100 ON r GOSUB 2200,2400,2700,575:GOTO 2060 '** remplacer 575 par 530 2800 GOSUB 170.GOSUB 750 2810 ON r GOTO 2770,2820:GOTO 2800 2820 GOSUB 170:GOSUB 870:GOSUB 3130:RETURN 3140 WRITE#9,nfi:IF nfi=0 THEN 3180CPC REVUE HS n°21 |