Pra quem tá cansado da janela de prompt de sempre, o recurso de transparência do Windows 10 ajuda.
AÃ passa a ver o papel de parede de sempre.... rs

Moderador: Moderadores
FUNCTION Main()
LOCAL nValor, nValor1, nValor2, nQtCalc := 0
SetMode( 40, 80 )
CLS
@ 1, 0 SAY "Valor 1:" GET nValor1
@ 3, 0 SAY "Valor 2:" GET nValor2
@ 5, 0 SAY "Outro..:" GET nValor
@ 7, 0 SAY "Mais um:" GET nQtCalc
READ
RETURN NIL
#include "inkey.ch"
FUNCTION Main()
LOCAL nKey := 0
SetMode( 15, 80 )
CLS
DO WHILE nKey != K_ESC
? MaxRow(), MaxCol()
nKey := Inkey(5)
ENDDO
RETURN NIL
14 79
14 79
26 111
26 111
d:\temp>
Retornar para Sistemas Operacionais
Usuários vendo este fórum: Nenhum usuário registrado online e 3 visitantes