how to scroll Terminal and return to a choice?

[jkiriosd]

Hi salvomic, i hope this can help you. Just ctrl+c and ctrl +v and test.

Code:


LOCAL VAR1,VAR2;VAR3;
HOJA1();
HOJA2();
HOJA3();

HOJA1()
BEGIN
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
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
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
A:=0;
INPUT(VAR1);
INPUT(VAR2);
INPUT(VAR3);
RETURN HOJA1();
END;

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.