DEFINE  SCALER = <0,2,7,0>
DEFINE  SCTEST = <25,2,7,0>
DEFINE SCCLEAR = <9,2,7,0>
EXECUTE SCCLEAR
DO  WHILE SCALER LT 320
EXECUTE SCTEST
IF SCALER LT 10
MOVE SCALER TO BUFFER
ENDIF
GOTO 10 20 30 40 SCALER
10 BLOCK
MOVE 12 TO BUFFER
20 BLOCK
MOVE 15 TO BUFFER
30 BLOCK
MOVE 20 TO BUFFER
40 BLOCK
MOVE 25 TO BUFFER
ENDBLOCK
ENDDO
MOVE SCALER TO BUFFER
STOP