1000 : 1 から 6 の乱数を100万生成
1010 :
1020 a=0 b=0 c=0 d=0 e=0 f=0
1030 I=1,1000000
1040   R=`
1050   r=R\6 r=%+1
1060   ;=r=1 a=a+1
1070   ;=r=2 b=b+1
1080   ;=r=3 c=c+1
1090   ;=r=4 d=d+1
1100   ;=r=5 e=e+1
1110   ;=r=6 f=f+1
1120 @=I+1
1130 "1 :" ?(9)=a /
1140 "2 :" ?(9)=b /
1150 "3 :" ?(9)=c /
1160 "4 :" ?(9)=d /
1170 "5 :" ?(9)=e /
1180 "6 :" ?(9)=f /
1190 #=-1