how to scroll Terminal and return to a choice?

[salvomic]

(06-30-2015 02:53 AM)jkiriosd Wrote:  Hi salvomic, i hope this can help you. Just ctrl+c and ctrl +v and test.

Code:


LOCAL VAR1,VAR2;VAR3;
HOJA1();
...

I have a problem with this code, i am sure you will have the same problem soon. Is not a big problem but i hope to solved this some day.

Sorry for my bad english, i dont speak english very well.

hola,
your code had some errors...
better so:

Code:


HOJA1();
HOJA2();
HOJA3();

EXPORT HOJA1()
BEGIN
LOCAL VAR1,VAR2,VAR3;

PRINT();
PRINT("HOLA MUNDO");
PRINT("");
PRINT("VAR1 ="+VAR1);
PRINT("");
PRINT("");
PRINT("");
PRINT("");
PRINT("");
PRINT("");
PRINT("");
PRINT("USE THE ARROW KEYS TO MOVE TO THE NEXT PAGE");
PRINT("                                                                         ->");
REPEAT
K:=GETKEY;
IF K==8 THEN
RETURN HOJA2();
END;
IF K==4 THEN
STARTVIEW(-7,1);
KILL;
END
UNTIL
A==1;
END;


HOJA2()
BEGIN
LOCAL VAR2;
PRINT();
PRINT("");
PRINT("HOLA MUNDO");
PRINT("");
PRINT("VAR2 ="+VAR2);
PRINT("");
PRINT("");
PRINT("");
PRINT("");
PRINT("");
PRINT("");
PRINT("USE THE ARROW KEYS TO SCROLL BETWEEN PAGES");
PRINT("<-                                                                      ->");

REPEAT
K:=GETKEY;
IF K==7 THEN
RETURN HOJA1();
END;
IF K==8 THEN
RETURN HOJA3();
END;
IF K==4 THEN
STARTVIEW(-7,1);
KILL;
END
UNTIL
A==1;
END;


HOJA3()
BEGIN
LOCAL VAR3;
PRINT();
PRINT();
PRINT("");
PRINT("");
PRINT("HOLA MUNDO");
PRINT("");
PRINT("VAR3 ="+VAR3);
PRINT("");
PRINT("");
PRINT("");
PRINT("");
PRINT("");
PRINT("");
PRINT("TO END THE PROGRAM PRESS ESC TWO TIMES.");
PRINT("<-");

REPEAT
K:=GETKEY;
IF K==7 THEN
RETURN HOJA2();
END;
IF K==4 THEN
STARTVIEW(-7,1);
KILL;
END;
UNTIL
A==1;
END;


EXPORT TEST()
BEGIN
LOCAL VAR1, VAR2, VAR3;
// A:=0;
INPUT(VAR1);
INPUT(VAR2);
INPUT(VAR3);
RETURN HOJA1();
END;

it seems to work now. But I shall tray if something like this works also when in a program there is CHOOSE, MSGBOX or other controls that interfere with screens...

A little advice: programming don't use "all uppercase" name for variables (they could be some reserved words with the same name...)

Salvo