3か5の倍数のときピクト!

 

サンプルプログラム


SET :NUM 1
REPEAT 30
IF [:NUM % 3 == 0 || :NUM % 5 == 0]

RW RUA 60 0
RW RLA -120 0
RW LUA -120 0
RW LLA -90 0
SAYW "ピクト!" 0.2
ELSE
SAYW :NUM 0.2
END
SET :NUM [:NUM + 1]

W 0.1
C
END