これは昔ポケコン用として作ったものをプチコンmkII用に移植して、それをさらにプチコン3号に最適化したものです。 ちなみにFOR I=0 TO RとFOR I=-R TO 0はループ回数が同じですが、後者の方が高速です。 これはプチコンのFOR～NEXTにおいては終了値が常に評価されているためです。（変数よりも定数の方が高速ということ） 高速化重視といってもこれ以外は大したことはやっていません。