あべのぶひで

tomoさんの「Ichigoサイコロ」が面白かったので、まねをして別パターンでつくってみました。
１～６の目をくり返し表示しながら、だんだん動きが遅くなって止まる遊び要素を入れてあります。

遊び要素を取り除くと↓になります。
10 R=1+RND(6):Q=!(R%2):CLS:FOR I=1+Q TO R+Q:S=I%2:P=I%3^S:LOCATE S*2-(I=1),P/2*2+!P:?"*":NEXT:LOCATE 0,4