?/??

Propósito: Mostrar um ou mais valores na console (vídeo) ou impressora.

clear / / limpa a tela

? "Exemplo do comando ?" / / exibe a informação no video

? date ( ) / / exibe a data ( nova linha )

?" a data de hoje é..:"

?? date ( ) / / exibe na mesma posição anterior do cursor

Propósito: Construir um box (caixa) na tela.

/* MODULO : m.PRG

FUNCÃO: ACESSAR TODOS OS PROGRAMAS

*/

SAVE SCREN TO TECLADOS

CLEAR

SET DATE BRIT

SET CONFIRM ON

SET DETELE ON

DO WHILE .T.

CLEAR

SET WRAP ON

SET MESSAGE TO 23 CENTER

SET COLOR TO B/W

REBOX=CHR (201) +CHR (205) +CHR (187) +CHR (186) +;

CHR (188) +CHR (205) +CHR (200) +CHR (186)

PRIVATE=EMPRESA:= "FACULDADES REUNIDAS LTDA"

L = 08

C = 22

CLEAR

@ 00,00,03,39 BOX RETBOX

@ 00,40,03,79 BOX RETBOX

@ 04,00,21,79 BOX RETBOX+CHR (177)

@ 22,00,24,79 BOX RETBOX

@ 01,02 SAY EMPRESA

@ 01,42 SAY "CONTROLE DE FACULDADE"

@ 01,70 SAY DATE( )

@ 02,42 SAY "MODULO PRINCIPAL"

@ 02,70 SAY TIME ( )

@ 23,02 SAY "MENSAGEM"

@ L-1,C-2,L+7,C+35 BOX RETBOX+CHR(255)

SET COLOR TO

@ L,C PROMPT "PROCESSAR FACULDADES"

@ L+2,C PROMPT "PROCESSAR TABELA DE CURSOS"

@ L+4,C PROMPT "PROCESSAR ALUNO"

@ L+6,C PROMPT "VOLTAR AO D.O.S."

MENU TO OPC

DO CASE

CASE OPC = 1

DO MENUFACU

CASE OPC = 2

DO MENUCURS

CASE OPC = 3

DO MENUALUN

OTHERWISE

RESTORE SCREEN FROM TELA TECLADOS

CANCEL

ENDCASE

ENDDO

Propósito: Apagar (limpar) apenas uma área específica da tela.