0→S
0→A
0→I
ClrHome
Output(1,5,"MACHINE")
Output(2,8,"a")
Output(3,6,"SOUS
Output(4,3,"Par BELVAR
Output(5,3,"PRESS ENTER")
Pause
Menu("MACHINE A SOUS","COMMENCER",1,"QUITTER",2)
Lbl 1
0→A
Menu("PARTIE","LIBRE",C,"ARGENT",4
Lbl 4
1→A
ClrHome
Menu("SOLDE","100",7,"300",8,"500",9,"PERSO",0)
Lbl 0
ClrHome
Input "SOLDE : ",S
Goto C
Lbl 7
100→S
Goto C
Lbl 8
300→S
Goto C
Lbl 9
500→S
Lbl C
ClrHome
Disp S
Output(1,1,"SOLDE:")
Input "MISE :",M
If M≤0
Then
Output(3,1,"ESPECE DE TRICHEUR DE MERDE
Pause
Goto 2
End
If M>S and A=1
Then
Output(3,1,"PAS ASSEZ D:ARGENT
Pause
Goto C
End
iPart(S-M)→S
0→I
Repeat I=10
Output(5,3,randInt(0,9)
Output(5,8,randInt(0,9)
Output(5,13,randInt(0,9)
I+1→I
End
randInt(0,9)→X
randInt(0,9)→Y
randInt(0,9)→Z
Output(5,3,X)
Output(5,8,Y)
Output(5,13,Z)
Pause
If X=Y and Y=Z:Goto W
If X=Y:Goto U
If Y=Z:Goto U
If X=Z:Goto U
If X≠Y and Y≠Z
Disp "DOMMAGE...
Goto F
Lbl W
Disp "JACKPOOOOT
(M*50)+S→S
Goto F
Lbl U
Disp "PAS MAL
iPart((M*1.5))+S→S
Lbl F
Pause
If A=1 and S≤0
Then
ClrHome
Output(5,5,"PERDU...")
Pause
Menu("REJOUER ?","OUI",1,"NON",2)
End
Goto C
Lbl 2
ClrHome
Output(1,1," |