Voilà un programme que j'ai recopié il y a (très) longtemps : je ne sais plus d'où il vient, et si par hasard il vient d'ici, tout le mérite revient au créateur (bon je l'ai un peu enjolivé et recopié, mais bon...) qui, je l'espere, me le pardonnera (ou pardonnerait ?). Donc :
Code
Pacman
:Effecr
:Menu("Pacman","Jouer",1,"options",1,"quitter",1
:lbl 1
:0->A
:While A<20
:A+1->A
:End
:Menu("Erreur system","Quitter",2,"Voir",2
:Lbl 2
:Menu("clear all ?","Yes",3,"No",3
:Lbl 3
:AxesNaff
:Fonctoff
:Zstandard
:ZEntier
:Texte(25,30,"Clearing...
:Ligne(-20,-5,-20,-11
:Ligne(-20,-5,-20,-11
:Ligne(-20,-11,20,-11
:Ligne(20,-11,20,-5
:Texte(45,47,"I%
:For(A,-20,20
:Ligne(A,-5,A,-11
:Texte(45,42,ent((A+20)*(100/40))-1
:If partDéc(A/5)=0:69!
:End
:EffDessin
:Effecr
:Output(4,2,"Méd-Méd
:Output(4,4,"moyenne(
:Output(4,6,"inf
:Output(4,10,"Afftable
:Output(4,7,"re e
:Output(4,13,"a
:Output(4,14,"dét(
:Output(4,14,"c
:Output(4,16,"e
:Output(5,1," //un espace
:Pause
:Effecr