DEFINE-NEW-INSTRUCTION replant-exactly-one-beeper AS BEGIN IF not-next-to-beeper THEN putbeeper; ELSE next-to-one-replant-one; END DEFINE-NEW-INSTRUCTION next-to-one-replant-one AS BEGIN pickbeeper; IF not-next-to-beeper THEN putbeeper; END
Back to Previous Page