大したものではありませんが何かのお役に立てればと思い投稿させていただきます
// どの色から始まるか指定
red=255
green=0
blue=0
// 虹色処理開始
repeat
if hen=0{if red>=253{blue=blue+5:if green>=253{hen=1}}}
if hen=0{if blue>=253{red=red-5}}
if hen=0{if red<=1{green=green+5}}
if hen=0{if green>=253{blue=blue-5}}
if hen=0{if blue<=1{red=red+5}}
if hen=0{if red>255{red=255}}
if hen=0{if green>255{green=255}}
if hen=0{if blue>255{blue=255}}
if hen=0{if red<1{red=2}}
if hen=0{if green<1{green=2}}
if hen=0{if blue<1{blue=2}}
if hen=1{if red>253{if green<4{if blue<10{hen=0}}}}
if hen=1{green=green-5}
// 画面塗りつぶし
color red,green,blue
boxf
wait 1
loop