Gosub and Return Code Example MMM

1 | RUN ACTION | GOTO MACRO LINE | MAIN
* | Sample of Return and Gosub, remember order is reversed from normal
2 | RUN ACTION | DEFINE STRING VARIABLE | %STRING%::Return_Label_ChangeMe | AND | 1 | RUN ACTION | GOTO MACRO LINE | Gosub_RoutineLable_ChangeMe
* | SUBROUTINES START HERE ********************************************************************
* | InitializeVariables
3 | RUN ACTION | DEFINE INTEGER VARIABLE | %INTEGER%::0
4 | RUN ACTION | DEFINE INTEGER VARIABLE | %INTEGER1%::0
5 | RUN ACTION | DEFINE INTEGER VARIABLE | %INTEGER2%::0
6 | RUN ACTION | GOTO MACRO LINE | Return_Sub
* | TestingSub
7 | RUN ACTION | MESSAGE PROMPT | First Subroutine::Testing Subroutine::1
8 | RUN ACTION | GOTO MACRO LINE | Return_Sub
* | Randomize_Clicks
9 | RUN ACTION | DEFINE INTEGER VARIABLE | %INTEGER%::%RANDOM_100-500%
10 | RUN ACTION | DEFINE INTEGER VARIABLE | %INTEGER1%::%RANDOM_123-523%
11 | RUN ACTION | GOTO MACRO LINE | Return_Sub
* | DisplayDebug
12 | RUN ACTION | MESSAGE PROMPT | Debug: %STRING1%::Return Labels is: %STRING% Came from Line %INTEGER1%::0
13 | RUN ACTION | GOTO MACRO LINE | Return_Sub
* | Subsample_label_copy down to ReturnSub and change me
14 | RUN ACTION | GOTO MACRO LINE | Return_Sub
* | Return_Sub
15 | RUN ACTION | GOTO MACRO LINE | %STRING%
* | SUBROUTINES END HERE ********************************************************************
* | MAIN
16 | RUN ACTION | DEFINE STRING VARIABLE | %STRING%::StartHere | AND | 1 | RUN ACTION | GOTO MACRO LINE | InitializeVariables
* | StartHere
17 | RUN ACTION | MESSAGE PROMPT | Variables Initialized %Return%::Subroutine Testing::0
18 | RUN ACTION | DEFINE STRING VARIABLE | %STRING%::ReturnLabel | AND | 1 | RUN ACTION | GOTO MACRO LINE | TestingSub
* | ReturnLabel
19 | RUN ACTION | DEFINE STRING VARIABLE | %STRING%::NextSection | AND | 1 | RUN ACTION | GOTO MACRO LINE | Randomize_Clicks
* | NextSection
20 | RUN ACTION | MESSAGE PROMPT | Random Clicks Set: %INTEGER% & %INTEGER1% %Return%::Subroutine Testing::0
21 | RUN ACTION | DEFINE STRING VARIABLE | %STRING1%::This is a debug message | AND | 4 | RUN ACTION | DEFINE INTEGER VARIABLE | %INTEGER1%::%RETURN%
22 | RUN ACTION | DEFINE STRING VARIABLE | %STRING%::AfterDebug | AND | 1 | RUN ACTION | GOTO MACRO LINE | DisplayDebug
* | AfterDebug
* | EndMain