GO TO? JUMP? [Solved]

[jrozsas]

I thank the answers but do not understand. This is litle program that creates the menu, and after displaying the message in the sub(n), it should return to the line 13 (or 8?) to show the splash screen again.

1: SUB1();
2: SUB2();
3: SUB3();
4: SUB4();
5: SUB5();
6: SUB6();
7: EXPORT EC(x)
8: BEGIN
9: // CAS Custom Menu
10: // EWS 2014-04-20
11://splashscreen
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;

32: IF mx≥53 AND mx≤104 THEN
33: SUB2();
34: END;

35: IF mx≥106 AND mx≤157 THEN
36: SUB3()
37: END;
38:
39: IF mx≥159 AND mx≤210 THEN
40: SUB4();
41: END;
42:
43: IF mx≥212 AND mx≤263 THEN
44: SUB5();
45: END;
46:
47: IF mx≥265 AND mx≤319 THEN
48: SUB6();
49: END;
50:
51: END;
52:
53: //SUB1
54: SUB1()
55: BEGIN
56: RECT;
57: TEXTOUT_P("PRESS SUB1",1,1,4);
58: WAIT(2);
59: END;
60:
61: //SUB2
62: SUB2()
63: BEGIN
64: RECT;
65: TEXTOUT_P("PRESS SUB1",1,1,4);
66: WAIT(2);
67: END;
68:
69: //SUB3
70: SUB3()
71: BEGIN
72: RECT;
73: TEXTOUT_P("PRESS SUB1",1,1,4);
74: WAIT(2);
75: END;
76:
77 //SUB4
78: SUB4()
79: BEGIN
80: RECT;
81: TEXTOUT_P("PRESS SUB1",1,1,4);
82: WAIT(2);
83: END;
84:
85: //SUB5
86: SUB5()
87: BEGIN
88: RECT;
89: TEXTOUT_P("PRESS SUB1",1,1,4);
90: WAIT(2);
91: END;
92:
93: //SUB6
94: SUB6()
95: BEGIN
96: RECT;
97: TEXTOUT_P("PRESS SUB1",1,1,4);
98: WAIT(2);
99: END;

[/font]