-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathMENU.PRG
64 lines (62 loc) · 2.05 KB
/
MENU.PRG
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
*************************************************************************
* Programa menu - tela de apresentacao do Fluxo de Caixa *
* Joacir - 5§ termo B *
*************************************************************************
function menu()
local coluna, tempo, tecla, tela, real, valor := 0
tela := savescreen(11,00,15,79)
coluna := 01
tempo := 1
do while .t.
tecla := inkey()
restscreen(11,00,15,79,tela)
@ 22, 03 say padc("Tecle <Enter> para Come‡ar !!!",73) color("w+*/n")
@ 11, coluna say " ± ±±±± ±± ± ±± ± ±±± ±± ±±± ±± ±± ± ±± ±± ±"
@ 12, coluna say " ±±±± ±±±± ±± ±± ±± ±± ±±± ±± ± ±±±±±± ±±±± ±± ± ±± ±± ±± "
@ 13, coluna say " ±±± ±±±± ±± ±± ±± ±± ±±± ±± ± ±±±±± ±±±± ± ±± ±± "
@ 14, coluna say " ±±±± ±±±± ±± ±± ±± ±± ±±± ±± ± ±±±±±± ±±±± ±± ± ±± ±± ±± "
@ 15, coluna say " ±±±± ± ± ±± ± ±±± ±± ±±± ± ±± ± ± ±± ± ±± "
if !empty(tecla)
exit
endif
do while .t.
tempo := tempo + 1
if tempo = 8000
coluna := coluna + 1
tempo := 0
exit
endif
enddo
if coluna = 20
coluna := coluna -1
do while coluna > 0
tecla := inkey()
restscreen(11,00,15,79,tela)
@ 11, coluna say " ± ±±±± ±± ± ±± ± ±±± ±± ±±± ±± ±± ± ±± ±± ±"
@ 12, coluna say " ±±±± ±±±± ±± ±± ±± ±± ±±± ±± ± ±±±±±± ±±±± ±± ± ±± ±± ±± "
@ 13, coluna say " ±±± ±±±± ±± ±± ±± ±± ±±± ±± ± ±±±±± ±±±± ± ±± ±± "
@ 14, coluna say " ±±±± ±±±± ±± ±± ±± ±± ±±± ±± ± ±±±±±± ±±±± ±± ± ±± ±± ±± "
@ 15, coluna say " ±±±± ± ± ±± ± ±±± ±± ±±± ± ±± ± ± ±± ± ±± "
if !empty(tecla)
exit
endif
do while .t.
tempo := tempo + 1
if tempo = 8000
coluna := coluna - 1
tempo := 0
exit
endif
enddo
if !empty(tecla)
exit
endif
enddo
coluna := 1
endif
if !empty(tecla)
exit
endif
enddo
return nil