{\rtf1\ansi\ansicpg1252\deff0\deflang1036{\fonttbl{\f0\fmodern\fprq1\fcharset0 Courier New;}{\f1\froman\fprq2\fcharset0 Times New Roman;}{\f2\fswiss\fprq2\fcharset0 Arial;}}
{\colortbl ;\red0\green128\blue0;\red102\green102\blue102;\red255\green0\blue0;\red0\green0\blue0;}
{\*\generator Msftedit 5.41.15.1507;}\viewkind4\uc1\pard\cf1\f0\fs20 // DESCRIPTION S\cf2 i des icones "genre public" ont disparus sur vos fiches, executez ce script\par
\cf1 // AUTHOR JUIN J\'e9r\'f4me \par
\pard\sb100\sa100 // LANGUAGE FR\cf0\f1\fs24\par
HLitPremier(VIDEOTAP) \line TANTQUE PAS HEnDehors(VIDEOTAP) \line\cf3\~\~\~\~\~\~\~\~\~\~\~ \cf4 If\cf2  (\cf0 VIDEOTAP.i\cf2 nterdit) = 0 \cf4 Then \cf0\~\par
\cf2\~\~\~\~\~\~\~\~\~\~\~\~\~\~\~\~\~\~\~\~\~\~\~ \cf0 VIDEOTAP.i\cf2 nterdit = 5\~\~\~\~\~\~\~\~\~ \cf0\par
\cf2\~\~ \cf4\f2\fs20\~\~\~ \~\~\~ \~\~\~ \~\~\~ \~\~\~ HMODIFIE(VIDEOTAP)\cf2\f1\fs24\par
\cf3\~\~\~\~\~\~\~\~\~\~\~\~\~\~\~\~\~\~\~\~\~\~\~ Trace\cf2  (\cf0 VIDEOTAP.i\cf2 nterdit)\par
\~\~\~\~\~\~\~\~\~\~\~ \cf4 End\cf2\par
\pard\cf0\~\~\~ \~\~\~ \~\~\~ HLitSuivant(VIDEOTAP) \line\cf4 End\par
\cf0\f0\fs18\par
}