NO-MESSAGE (PAUSE)

Discussão em 'Comandos Básicos' iniciado por FernandaSantos, Fevereiro 4, 2009.

  1. FernandaSantos

    FernandaSantos Membro Participativo

    /******************** STATEMENTS**************************************
    **
    ** PAUSE...
    ** Efetua uma pausa na procedure ate que
    ** se pressione space-bar para continu-
    ** ar.
    **
    ** NO-MESSAGE (PAUSE...)
    ** Elimina a mensagem de que o usuario
    ** deve pressionar space-bar para continu-
    ** ar
    **
    ** HIDE ALL.
    ** Esconde todas as imagens da window.
    **
    **********************************************************************/

    Código:
    DEF VAR cont AS INTEGER.

REPEAT:
   cont = cont + 1.
   DISPLAY "==>" 
     WITH FRAME setinha 
     ROW 8 COLUMN cont NO-BOX
     COLOR BLACK/GRAY.
   PAUSE 0.5 NO-MESSAGE.
   HIDE ALL.  
END.
    FernandaSantos, Fevereiro 4, 2009
    #1

Compartilhe esta Página