22 de mai de 2011

Desenvolvimento de Software 1, aula 7


Aula 7
25/8/2003

[Outro exemplo de tela]

set scoreboard off
set british on
set century on

@ 0, 0 to 24,79 double
@ 2, 0 to 2,79 double
@ 2, 0 say chr(204)
@ 2,79 say chr(185)
@ 1, 2 say “ETEVAV”
@ 1,30 say “Biblioteca”
@ 1,68 day date()

@ 5, 5 say “Menu Principal”
@ 7,10 say “0 – Sair”
@ 8,10 say “1 – Cadastro de livros”
@ 9,10 say “2 – Cadastro de alunos”
@ 10,10 say “3 – Pesquisar”
@ 11,10 say “4 – Relatório”
@ 22,60 say “Opção”

WOPCAO=0

@ 22,67 get WOPCAO pict “9” valid WOPCAO>=0 .and. WOPCAO<=4
read

Nenhum comentário: