Calculatrices Casio Graphiques : Jeux, programmes, cours, pompes, astuces et programmation sur calculatrice graphique Casio et ClassPad 300 : programmes casio et jeux casio...

'LE CODE EST 1 PAR DEFAUT ALLER A "MODIF DU CODE" POUR CHANGER
'[PP]
ClrText
Prog "PSET"
Locate 1,1,"======LA BOURSE======"
For 2H To 6
Locate 1,H,"II"
Locate 20,H,"II"
Next
Locate 5,3,"Votre partie"
Locate 5,4,"Jour:"
Locate 5,5,"Argent:"
Locate 10,4,Mat W[3,5]
Locate 12,5,Mat W[1,5]
Locate 1,7,"======ZPstudios======"
Locate 14,6,"[EXE]"
3H
Do
Locate H,6,""
Locate H,6," "
H+1H
H=14Locate 14,6,"[EXE]"
H=14Locate 14,6,"[EXE]"
H=14Locate 14,6,"[EXE]"
H=143H
H=3Locate 14,6," "
H=3Locate 14,6,"[EXE] "
If Getkey=47:Then ClrText:Stop
IfEnd
LpWhile Getkey31
ClrText
'MODIF DU CODE
"CODE"?H
H=1Goto X
H1Stop
Lbl X
Q>3Goto
Mat W[2,5]M
M=0Mat W[1,5]Mat W[2,6]
M>2Goto B
Mat W[1,5]P
For 1R To 3
Mat W[2,R]X
X=-1Int (10Ran#+17)H
X=0Int (10Ran#+12)H
X=1Int (10Ran#+7)H
200-Mat W[R,4]<H200-Mat W[R,4]H
R=1HC
R=2HD
R=3HE
Next
Lbl A
ClrText
PMat W[1,5]
Locate 1,1,"===LA BOURSE:COURS==="
Locate 1,3,"1M_Ad-TV:"
Locate 1,4,"MSB_Bill:"
Locate 1,5,"3WComp:"
Locate 10,2,"PRIX n_Bre"
Locate 14,3,""
Locate 14,4,""
Locate 14,5,""
Locate 1,7,"Liquide:"
Locate 10,7,P
Locate 13,6,"1/2/3/N ?"
M=0Locate 3,2,"MATIN"
M=0Locate 5,6,"ACHETER"
M=1Locate 4,2,"SOIR"
M=1Locate 5,6,"VENDRE"
For 1R To 3
Mat W[1,R]X
X=-1Locate 19,2+R,"-"
X=0Locate 19,2+R,"~"
X=1Locate 19,2+R,"+"
Mat W[2,R]X
X=-1Locate 20,2+R,"-"
X=0Locate 20,2+R,"~"
X=1Locate 20,2+R,"+"
Mat W[R,4]X
Locate 16,2+R,X
Mat W[3,R]X
Locate 9,2+R,X
Next
Goto G
Lbl G
0I
Getkey=721I
Getkey=622I
Getkey=523I
Getkey=64 And M=0Goto C
Getkey=27 And M=0Goto C
Getkey=64 And M=1Goto B
Getkey=31 And M=1Goto B
Getkey=27 And M=1Goto B
I=1 Or I=2 Or I=3Goto D
Goto G
Lbl D
0J~L
PMat W[1,5]
ClrText
" "
" "
" "
" "
" "
Locate 11,3,Mat W[I,4]
Locate 3,5,"ARGENT:"
Locate 11,5,P
Locate 10,1,"d'Actions =="
Locate 12,2,Mat W[3,I]
Locate 3,3,"POSSEDE:"
If M=0
Then Locate 1,1,"== ACHAT"
Locate 3,4,"_A Vendre:"
IfEnd
If M=1
Then Locate 1,1,"== Vente"
IfEnd
If I=1
Then Locate 5,2,"M_Ad-TV"
M=0Locate 12,4,C
?J
M=0J>CGoto D
J<0Goto D
M=1 And J>Mat W[1,4]Goto D
IfEnd
If I=2
Then Locate 5,2,"MS_Bill:"
M=0Locate 12,4,D
?J
M=0J>DGoto D
J<0Goto D
M=1 And J>Mat W[2,4]Goto D
IfEnd
If I=3
Then Locate 1,2,"World Comp:"
M=0Locate 12,4,E
?J
M=0J>EGoto D
J<0Goto D
M=1 And J>Mat W[3,4]Goto D
IfEnd
J=0Goto A
Int JJ
If M=0
Then JxMat W[3,I]>PGoto D
P-(JxMat W[3,I])P
J+Mat W[I,4]Mat W[I,4]
Mat W[3,I]+Int (J2)Mat W[3,I]
I=1C-JC
I=2D-JD
I=3E-JE
ClrText
"Achat... "
Goto A
IfEnd
If M=1
Then Mat W[I,4]-J>Mat W[I,4]Goto D
P+JxMat W[3,I]P
Mat W[I,4]-JMat W[I,4]
Mat W[3,I]-Int (J2)Mat W[3,I]
ClrText
"Vente... "
Goto A
Lbl C
ClrText
0Q
0r
0
1Mat W[2,5]
1M
For 1H To 3
Mat W[H,4]>100Q+1Q
Locate 18,H+1,Mat W[H,4]
Next
Q=3Goto
Locate 1,1,"~~~~~~~~iNFOS~~~~~~~~"
Locate 2,2,"M_Ad-TV:"
Locate 2,3,"MS_Bill:"
Locate 2,4,"WComp:"
Locate 1,6,"DIVIDENDES:"
Locate 1,7,"TOTAL:"
For 1H To 3
Mat W[1,H]=1r+1r
Mat W[2,H]=1r+1r
Locate 17,1+H,""
Next
0Y
r=6Int 10Ran#
=2Goto r
For 1H To 3
Int (6Ran#+1)A
Int (6Ran#+1)B
Mat W[2,H]Mat W[1,H]
If Mat W[2,H]=0
Then Abs (A-B)A
A=3 Or A=1 Or A=51F
A=00F
A=2 Or A=4-1F
IfEnd
If Mat W[2,H]=1 Or Mat W[2,H]=-1
Then A+B=7-(Mat W[2,H])F
A+B=12-(Mat W[1,H])F
IfEnd
If F=0
Then 0Mat W[2,H]
Locate 10,H+1,"Idem"
IfEnd
If F=1
Then 3x(A+B)+Mat W[3,H]Mat W[3,H]
1Mat W[2,H]
Locate 10,H+1,"+"
Locate 11,H+1,3x(A+B)
Mat W[3,H]01Mat W[3,H]
IfEnd
If F=-1
Then -1Mat W[2,H]
Mat W[3,H]-2x(A+B)Mat W[3,H]
Locate 10,H+1,(-3x(A+B))
IfEnd
Mat W[2,H]=-1Y-(12xMat W[H,4])Y
Mat W[2,H]=1Y+(3xMat W[H,4])Y
Mat W[2,H]=0Y+Mat W[H,4]Y
Next
Int YY
P+YP
PMat W[1,5]
Locate 13,6,(Int Y)
Locate 7,7,(P-Mat W[2,6])
Do
Getkey=27Goto X
LpWhile Getkey31
Goto X
Lbl r
0Y
Locate 1,5,"CRACK BOURSIER:-40/."
For 1H To 3
Locate 10,1+H,"!!!"
Int (0.6xMat W[3,H])Mat W[3,H]
Int (Y-(23xMat W[H,4]))Y
Next
Int (Y+Mat W[1,5])Mat W[1,5]
Locate 13,6,Y
0r
0
Do
LpWhile Getkey31
Goto X
Lbl B
ClrText
Locate 1,1,"==BILAN DU JOUR =="
Locate 17,1,Mat W[3,5]
Locate 1,2,"CONTROLE de: Sctes"
Locate 1,3,"*Argent:"
Locate 1,4,"*Resultat:"
Locate 1,5,"*Actions:"
Locate 1,6,"*Patrimoine:"
Locate 1,7,"EXITQuitter EXEGo!"
0K
0Q
For 1H To 3
Mat W[H,4]>50Q+1Q
K+(Mat W[H,4]xMat W[3,H])K
Next
Locate 13,2,Q
Q3Goto
PMat W[1,5]
Locate 9,3,P
Locate 11,4,((P+K)-Mat W[3,6])
Locate 10,5,K
Locate 13,6,(K+P)
Mat W[3,5]+1Mat W[3,5]
P+KMat W[3,6]
P<0Goto 8
0M
0Mat W[2,5]
50+Mat W[1,5]Mat W[1,5]
Lbl H
Getkey=31Goto X
Getkey=27Goto X
Getkey=47ClrText
Getkey=47Stop
Goto H
Lbl
ClrText
For 1H To 6
Locate 1,H,"*********************"
Next
For 1H To 350
Locate 8,1," Votre "
Locate 7,2," SOCIETE "
For 1H To 500
Next
Locate 9,3," est "
Locate 6,4," maintenant "
For 1H To 600
Next
Locate 7,5," un GEANT "
Locate 4,6," INTERNATIONAL ! "
Locate 1,7,"Score: jours"
Locate 7,7,Mat W[3,5]
18H
Do
LpWhile Getkey31
For 1H To 21
For 1K To 7
Locate H,K,">"
Locate H,K,">#"
Locate H,K," "
Next
Next
Locate 1,1,"1Nouvelle partie"
Locate 1,2,"2Quitter"
Goto Z
Lbl Z
Getkey=72Goto 9
Getkey=62ClrText
Getkey=62Stop
Goto Z
Lbl 9
For 1H To 3
0Mat W[1,H]
0Mat W[2,H]
0Mat W[H,4]
100Mat W[3,H]
Next
5000Mat W[1,5]
0Mat W[2,5]
1Mat W[3,5]
Goto X
Lbl 8
ClrText
"Votre entreprise a fait FAILLITE, c'est la fin des haricots"
" "
" GAME OVER"
"Effacer partie?"
Goto 9