ClrText
Locate 2,1,"www.jeuxcasio.com"
Locate 7,3,"ÓÊese¯te"
Locate 8,5,"pisseur"
Locate 6,7,"[Press EXE]"
Do:LpWhile Getkeyá31
ClrGraph
ClrText
"La gourde est pleine?"Ý
Deg
0ÞA~Z
Lbl 0
Lbl 7
ClrText
ViewWindow ‡5,95,0,‡3,62,0
F-Line 93,0,93,16
F-Line 93,16,90,16
F-Line 90,16,90,0
F-Line 87,0,82,6
F-Line 80,7,90,7
F-Line 95,35,85,35
F-Line 85,35,85,40
F-Line 85,40,95,40
F-Line 87,35,87,26
F-Line 85,26,90,26
F-Line 90,26,90,23
F-Line 90,23,85,23
F-Line 85,23,85,26
Vertical 95
Horizontal 62
Int 71Ran#ÞS
12ÞT
F-Line S™3,T™12,S™1,T™6
F-Line S™1,T™6,S™3,T™1
F-Line S™3,T™1,S™3,T‰7
F-Line S™3,T‰7,S™5,T‰2
F-Line S™5,T‰2,S™3,T™1
F-Line S™3,T™1,S,T
F-Line S™5,T‰7,S™1,T‰7
F-Line S™1,T‰7,S™1,T‰11
F-Line S™1,T‰11,S™5,T‰11
F-Line S™5,T‰11,S™5,T‰7
Plot S™2,T‰10
Plot S™2,T‰8
Plot S™3,T‰8
LineÝ
ClrText
"Angle (deg)"?ÞA
"For ce"?ÞU
U¹10ÞU
Ucos AÞV
Usin AÞW
Lbl 1
W™0.1ÞW
S‰VÞS
T‰WÞT
Plot S,T
Tà6ãTâ0ãSâ82ãSà89ãGoto 3
Sâ89ãS<91ãTâ6ãT<15ã‡VÞV
S>95ãGoto 6
S<1ãGoto Y
T>62ãGoto Z
T<0ãGoto 2
Goto 1
Lbl Z
ClrText
"Tu prends une douche?"Ý
Goto 9
Lbl 2
ClrText
"Amateur arrete de    salir le carrelage"Ý
Goto 9
Lbl 6
ClrText
"Qui c'est qui lave   hein? incapable"Ý
Goto 9
Lbl Y
ClrText
"Tu pisse par derriere t'es pas normal toi«"Ý
Goto 9
Lbl 3
W<0ãGoto 4
Goto 5
Lbl 4
ClrText
"Et maintenant il faut tirer la chasse"Ý
Isz GÝ
Lbl 5
ClrText
"Score"
GÝ
Goto 7
Lbl 9
ClrText
"Score final"
GÝ
G=10 Or G=9ãGoto Q
G=8 Or G=7 Or G=6ãGoto R
G=2 Or G=1 Or G=0ãGoto S
ClrText
"Ca soulage"
ClrGraph
Stop
Lbl Q
ClrText
"C'est bien,tu sais   pisser"
ClrGraph
Stop
Lbl R
ClrText
"Tu peux faire mieux"
ClrGraph
Stop
Lbl S
ClrText
"T'es nul prends des  cours«"