Old style subroutines. Should use GP.Message
AJ.ONEMES
DISPLAYS A MESSAGE BOX
AJ.OneMES(STR, RES)
STR – MESSAGE STRING
RES - RESULT CODE (0 \ 1)
AJ.TWOMES
DYSPLAYS A MESSAGE BOX
AJ.TWOMES(M, RES)
RES - RESULT CODE (0\1)
AJ.ASKWIN
DISPLAYS A MESSAGE BOX
AJ.ASKWIN(M, RES)
M - Dynamic array (not more 4 strings). Contains a text of the question.
-1 - refuse an answer;
0 - answer "No";
1 - answer "Yes".