Add button to program screen

[Dougggg]

This code may give you an idea

Code:


EXPORT TESTMENU()
BEGIN

 LOCAL mSEL,my,mx,m,m1;
  REPEAT
    WHILE MOUSE(1)≥0 DO END;
    DRAWMENU("1CONT","","","","","6ABORT");
    REPEAT
      m := MOUSE;
      m1 := m(1);
    UNTIL SIZE(m1)>0;
    mx := B→R(m1(1)); 
    my := B→R(m1(2));
    mSEL := 0;
    IF my≥220 AND my≤239 THEN
      IF mx≥0 AND mx≤51 THEN
        mSEL := 1;
      END;
      IF mx≥265 AND mx≤319 THEN
        mSEL := 6;
      END;
    END;
    IF mSEL == 1 THEN
       PRINT();
       PRINT("1");
    END;
    IF mSEL == 6 THEN
       PRINT();
       PRINT("6");
    END;
    
  UNTIL mSEL==6  OR mSEL==1;
END;