-- Scratchpad2d.TIP
-- last edited by Eric Bier on August 31, 1982 11:17 pm

SELECT TRIGGER FROM
  Red Down => SELECT ENABLE FROM
                          Ctrl Down => {Coords SPLICE};
                          ENDCASE => {Coords DRAW};
  Yellow Down => {Coords MOVESTART};
  Blue Down => {Coords ERASE};
  Mouse WHILE Yellow Down => {Coords MOVE};
  Yellow Up => {Coords MOVEEND};
 ENDCASE.