%%HP: T(3)A(D)F(.);
\<<
  IFERR \-> M
    \<< M SIZE 1
      FOR R M R M
SIZE SUB 1 DISP 800
.004 BEEP -1
      STEP
    \>>
  THEN CLEAR
  END
\>>
