GO TO? JUMP? [Solved]

[primer]

something like that :

Code:


...
7: EXPORT EC(x)
8: BEGIN
9: // CAS Custom  Menu
10: // EWS 2014-04-20
11://splashscreen

// ************ A NEW LINE BELOW HERE ******************
WHILE 1 DO // Or similar

12: LOCAL m,m1,mx,my;
13: WHILE MOUSE(1)≥0 DO END;
14: RECT;
15: TEXTOUT_P("How to GOTO?",1,1,4);
16:
17: 
18: DRAWMENU("opt1","opt2","opt3","opt4","opt5","opt6");
19:
20: REPEAT
21: m:=MOUSE;
22: m1:=m(1);
23: UNTIL SIZE(m1)>0;
24: mx:=m1(1);
25: my:=m1(2);
26:
27:
28:
29: IF mx≥0 AND mx≤51 THEN
30: SUB1();
31: END;

...

49: END;

// ************ A NEW LINE BELOW HERE ******************
END; // end while, it will loop to the while as you wanted.

50:
51: END;
52:
53: //SUB1
...

By adding 2 lines : WHILE and corresponding END

It's just a simple implementation, you can improve this by adding a loop condition ( to avoid leaving only by ON key)...