2004-02-26 ■ PERFORM UNTIL CNT = 9999 *> CNTが1000になるまで1を加え続け表示 ADD 1 TO CNT CNT1 IF CNT1 = 10 THEN DISPLAY CNT MOVE 0 TO CNT1 END-IF END-PERFORM