ClrGraph
"   RAPA  TIRA"
"   DEIXA  POE©2"
"  "
"(C) JAIMECS"
"VERS 1.0"
"  "
"LANCAR 100 VEZES"
0ÞB
While B<150
B‰1ÞB
WhileEnd
ClrText
0ÞR:0ÞS:0ÞT:0ÞU:0ÞV
Lbl 1
V‰1ÞV
If V=101
Then Goto 2
IfEnd
Ran#©5ÞK
If K>4
Then "RAPA":R‰1ÞR:Goto 1
IfEnd
If K>3
Then "    TIRA":S‰1ÞS:Goto 1
IfEnd
If K>2
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