COLD[CR] 1802 FIG-FORTH R0.4 3/16/81 : DELAY 3000 0 DO LOOP ;[CR] OK : LEFT 7 0 DO 61440 C@ 2 * 61440 C! DELAY LOOP ;[CR] OK : RIGHT 7 0 DO 61440 C@ 2 / 61440 C! DELAY LOOP ;[CR] OK : RUN BEGIN LEFT RIGHT 0 UNTIL ;[CR] OK 1 61440 C![CR] OK RUN[CR]