Calcul Mental

[Kiligolo]

Ok merci!

[Kiligolo]

Bon. Désolé à tous ceux qui voulais une intro en axe longue mais:
Donc j'ai fait une intro fixe en axe:

Bref. Maintenant, j'ai un problème pour la version en axe. Devant moi (sur mon émulateur) apparait un ERR: BLOCK dans le code ci-dessous (sur le R de Return).
Petite précision: les ".INPUT D" remplacent la future fonction input.

Code: Select all

Lbl CAR
Lbl 50
If E=0:Goto 54:End
rand^2=A
(rand^9)+1=A
(rand^9)+1=B
Disp BDec
If A=0:Disp "+":Disp CDec:Goto 51:End
If A=1:Disp "-":Disp CDec:Goto 52:End
If A=2:Disp "*":Disp CDec:Goto 53:End

Lbl 51
.INPUT D
If D=B+C
Disp "OK"
E-1=E
Goto 50
Else
Disp "PERDU"
Pause 2500
Return
End

Lbl 52
.INPUT D
If D=B-C
Disp "OK"
E-1=E
Goto 50
Else
Disp "PERDU"
Pause 2500
Return
End

Lbl 53
.INPUT D
If D=B*C
Disp "OK"
E-1=E
Goto 50
Else
Disp "PERDU"
Pause 2500
Return
End

Lbl 54
Disp "TERMINE
Pause 2500
Return

[Kiligolo]

up! ^^
Et hop une version 68k...!
http://www.omnimaga.org/index.php?topic ... 135393#new
Je pense la poster sur ti bank quand j'aurais corrigé le bug.