Je le mettrais aussi en version telechargable..
Code
:EffEcr
:CoordNaff
:AxesNaff
:EffDessin
:Texte(4,4,"VOUS DEVEZ ENTRER UN CODE
:Texte(10,0,"POUR EXECUTER CE PROGRAMME
:Texte(48,15,"APPUYEZ SUR ENTRER
:Texte(54,22,"POUR CONTINUER
:Texte(38,41,"V2.0
:Ligne(-7.25,-5,7.25,-5
:Ligne(-7.25,-5,-7.25,-10
:Ligne(7.25,-5,7.25,-10
:Ligne(-7.25,-10,7.25,-10
:Ligne(-0.25,1.5,0.25,1.5
:Ligne(-0.5,1.25,-0.5,0.5
:Ligne(0.5,1.25,0.5,0.5
:Ligne(-0.625,0.25,0.625,0.25
:Ligne(-0.625,0,0.625,0
:Ligne(-0.625,-0.25,0.625,-0.25
:Ligne(-0.625,-0.5,0.625,-0.5
:Ligne(-0.625,-1,0.625,-1
:Pause
:Lbl 0
:Menu(">>>CODE<<<","ENTRER LE CODE"
,1,"ASTUCE",3,"QUITTER",4)
:Lbl 1
:EffEcr
:Input "CODE :",C
:If C='Votre code'
:Then
:Goto 2
:Else
:Goto 1
:End
:Lbl 3
:EffEcr
:EffDessin
:Texte(0,0,"JE VOUS CONSEIL D'UTILISER
:Texte(6,0,"ZPROTECT POUR PROTEGER
:Texte(12,0,"L'ACCES A VOS PROGRAMMES !
:Pause
:Goto 0
:Lbl 4
:EffEcr
:Output(0,0,"
:Stop
:Lbl 2
:EffEcr