Bonjour, j'ai trouvé un programme dans une page espagnole qui m'a paru très interessant, mais j'ai un petit problème.
Le programme est le suivant:

ClrGraph·
AxesOff·
Orange Text 2,28,"OUIJA ELECTRONICA"·
Text 15,1,"HECHA POR:"·
Green Text 15,42,"JORGE CEVALLOS M."·
Orange Text 30,1,"ADVERTENCIA!!"·
Text 37,5,"LA RESPONSABILIDAD DE LOS E-"·
Text 44,1,"FECTOS QUE PUEDA PRODUCIR EL"·
Text 51,1,"USO DE ESTA OUIJA ES SUYA"»·
Cls·
Green Text 11,1,"ANTES DE PODER LOGRAR QUE LIZA"·
Green Text 18,1,"RESPONDA A SUS PREGUNTAS, DE-"·
Green Text 25,1,"BERA GANARSE SU CONFIANZA."»·
Lbl 0·
-1‡–·
0‡r·
Cls·
Text 10,1,"DESEA FORMULAR UNA"·
Text 17,1,"PREGUNTA [S/N]"·
Do·
Getkey·
LpWhile Ans¬43 Ans Ans¬64·
Ans=43îOrange Text 17,42,"S"·
If Ans=64·
Then Orange Text 17,50,"N"·
For 1‡A To 100·
Next·
ClrText·
Cls·
""·
ClrList·
Stop·
IfEnd·
{25,55,71,76,51,73,54,53,1,26,76,62,54,53,1,53,36,43,73,54,64,46,36,74,36,29‡List 2·
26‡Dim List 1·
Green Text 24,1,"TECLEE SU PREGUNTA:"·
31‡A·
1‡B~C·
Lbl 1·
Do·
Getkey‡T~U·
LpWhile T=0 And r¬2·
C=1îT=31î1‡r·
r=1îT‡List 1[C·
r=1îList 2[C‡T·
r=2îList 1[C‡T~U·
T=31îGoto 2·
T=76îText A,B,"A"·
T=66îText A,B,"B"·
T=56îText A,B,"C"·
T=46îText A,B,"D"·
T=36îText A,B,"E"·
T=26îText A,B,"F"·
T=75îText A,B,"G"·
T=65îText A,B,"H"·
T=55îText A,B,"I"·
T=45îText A,B,"J"·
T=35îText A,B,"K"·
T=25îText A,B,"L"·
T=74îText A,B,"M"·
T=64 Or T= 44îText A,B,"N"·
T=44îPxlOn A-1,B+1·
T=44îPxlOn A-1,B+2·
T=54îText A,B,"O"·
T=73îText A,B,"P"·
T=63îText A,B,"Q"·
T=53îText A,B,"R"·
T=43îText A,B,"S"·
T=33îText A,B,"T"·
T=72îText A,B,"U"·
T=62îText A,B,"V"·
T=52îText A,B,"W"·
T=42îText A,B,"X"·
T=32îText A,B,"Y"·
T=71îText A,B,"Z"·
T=29îPxlOn A+1,B·
T=29îPxlOn A+3,B·
T=51îText A,B,","·
T=61îText A,B,"."·
T=35 Or T=64 Or T=63 Or T=44 Or T=72îIsz B·
T=74 Or T=52îB+2‡B·
T=51 Or T=61îB+4‡B·
TîB+4‡B·
U=31îC>1î0‡r·
UîIsz C·
T¬29îC<29îGoto 1·
If 31¬List 1[1·
Then Int 8Ran#‡–·
Getkey=39îInt 2Ran#+8‡–·
0=–î{31,64,54,1,63,72,55,63,53,54,1,53,36,43,73,54,64,46,36,53,0‡List 1·
1=–î{31,76,72,64,1,64,54,1,73,72,36,46,54,1,56,54,64,26,55,76,53,1,36,64,1,33,55,0‡List 1·
2=–î{31,76,1,62,36,56,36,43,1,36,43,1,74,36,45,54,53,1,56,76,25,25,76,53,0‡List 1·
3=–î{31,73,53,36,26,55,36,53,54,1,56,54,1,65,36,53,55,53,33,36,0‡List 1·
4=–î{31,56,53,36,54,1,63,72,36,1,64,76,46,55,36,1,46,36,43,36,76,1,43,76,66,36,53,0‡List 1·
5=–î{31,46,36,66,36,43,1,33,36,64,36,53,1,74,76,43,1,26,36,1,36,64,1,74,55,0‡List 1·
6=–î{31,46,72,46,54,1,63,72,36,1,56,53,36,76,43,1,36,64,1,64,54,43,54,33,53,54,43,0‡List 1·
7=–î{31,33,72,1,26,36,1,36,43,1,72,64,1,36,64,75,76,44,54,0‡List 1·
8=–î{31,76,25,75,72,55,36,64,1,64,54,1,56,53,36,36,1,36,64,1,74,55,0‡List 1·
9=–î{31,76,25,36,45,36,64,1,76,1,63,72,55,36,64,1,64,54,1,56,53,36,36,0‡List 1·
IfEnd·
Do·
LpWhile Getkey¬29·
Orange Horizontal -.6·
For 1‡A To 9·
Text 41,10,"BUSCANDO ALMAS..."·
Text 41,10," "·
Next·
–<0îGreen Text 41,1,"ENCONTRADA UNA RESPUESTA,"·
–¯0îGreen Text 41,1,"NINGUN ALMA ENCONTRADA,"·
31‡List 1[Dim List 1·
2‡r·
50‡A·
1‡B·
2‡C·
Goto 1·
Lbl 2·
Do·
LpWhile Getkey¬29·
Goto 0


Le problème c'est surtout avec ces lignes:
-1‡–·
LpWhile Ans¬43 Ans Ans¬64·
comment on traduit le symbole ¬ dans la calculatrice, et cela (-1‡–·) sa me donne erreur.
Après je crois qu'il y a plusieurs erreurs aussi.
Si quelqu'un aurait connaissence à un programme similiaira a ceci.....
Merci