TotalRo
|
Lista Forumurilor Pe Tematici
|
TotalRo | Reguli | Inregistrare | Login
POZE TOTALRO
Nu sunteti logat.
|
Nou pe simpatie:
princess79 la Simpatie.ro
 | Femeie
25 ani
Bucuresti
cauta Barbat
25 - 60 ani |
|
Cristy
Proprietar
 Inregistrat: acum 19 ani
Postari: 385
|
|
use cartzi
define menu x
define pad a of x prompt[achizitionare carte noua + date]
define pad b of x prompt[cartile unui autor care nu sunt impr]
define pad c of x prompt[cartile ord dupa editura + autor]
define pad d of x prompt[clear]
define pad e of x prompt[list]
define pad f of x prompt[exit]
on selection pad a of x do proc1
on selection pad b of x do proc2
on selection pad c of x do proc3
on selection pad d of x clear
on selection pad e of x list
on selection pad f of x deactivate menu x
activate menu x
procedure proc1
append blank
input[intr autorul] to autor1
input[intr titlul] to titlu1
input[intr editura] to editura1
input[intr statutul] to impr1
replace autor with autor, titlu with titlu1, editura with editura1, impr with impr1
display
wait
endproc
procedure proc2
input[intr numele autorului] to x
list for(autor=x and impr=.F.)
display
wait
endproc
procedure proc3
sort to sortx on editura/A, autor/A
use sortx
list
use cartzi
wait
endproc
_______________________________________
Pentru inceput citeste REGULAMENTUL
Incerca sa devi un membru activ RANKINGS
Si incearca sa respecti STAFFUL TotalRo
|
|
| pus acum 16 ani |
|