ClrGraph
"   RAPA  TIRA"
"   DEIXA  POE©?"
"  "
"(C) JAIMECS"
"VERS 1.0"
"  "
"LANCAR 100 VEZES"
0ÞB
While B<150
B‰1ÞB
WhileEnd
ClrText
"COEF. TIRA"?ÞI
"COEF. DEIXA"?ÞJ
"COEF. POE"?ÞN
I‰J‰NÞM
0ÞR:0ÞS:0ÞT:0ÞU:0ÞV
Lbl 1
V‰1ÞV
If V=101
Then Goto 2
IfEnd
Ran#©(1‰M)ÞK
If K>M
Then "RAPA":R‰1ÞR:Goto 1
IfEnd
If K>J‰N
Then "    TIRA":S‰1ÞS:Goto 1
IfEnd
If K>N
Then "        DEIXA":T‰1ÞT:Goto 1
IfEnd
"             POE":U‰1ÞU
Goto 1
Lbl 2
{R,S,T,U}ÞList 1
{0,1,2,3}ÞList 2
S-WindAuto
S-Gph1 DrawOn,Hist,List 2,List 1,Blue 
DrawStat