create bikeshop
list
append
list
append
list
disp for Marca='Orbea'
append
append
append
append
list
clear
disp for Pret<8000
go top
disp for RECNO <4
disp for RECNO() <4
GO TOP
disp while Tip='Cursiera'
edit
modify
browse
use student
use bikeshop
edit
list
edit
go top
edit
list
clear
list
replace Cod with 'Codx'
go top
replace Cod with 'Codx'
list
replace Cod with 001
edit
go top
edit
list
edit 2
go 2
edit
go 3
edit
go 4
edit
go 5
edit
go 6
edit
go top
list
edit
go 2
go 3
edit
go bottom
edit
list
CNT() for (Data_intrarii-date())/365)
CNT() for ((Data_intrarii-date())/365)>18
Count for ((date()-Data_intrarii)/365)>18
go 3
edit
go 1
edit
Count for ((date()-Data_intrarii)/365)>18
go 1
edit
Count for ((date()-Data_intrarii))>18*365
go 2
year(Data_intrarii)
clear
year(Data_intrarii)
list
go top
year(data_intrarii)
year(Data_intrarii)
?date()-year(Data_intrarii)
go 3
?date()-year(Data_intrarii)
?year(date())-year(Data_intrarii)
Count for ((year(date())-year(Data_intrarii)))>18
clear
list
avarage pret for Noua='.T.'
calculate avarage pret for Noua='.T.'
calculate average pret to x
?calculate average pret to x
?calculate average pret to
?calculate average pret
calculate avg(pret) for Noua=True
calculate avg(pret) for Noua=False
calculate avg(pret) for Noua=True to x1
go top
disp if Pret=MiN
calculate min(pret) to x
?x
go top
disp Pret=x
disp Pret==x
disp for Pret=x
locate for Pret=x
disp
go top
locate for Pret=x
disp
locate for Marca='B'
disp
locate for Marca='T'
disp
locate for Tip='C'
disp
disp
list
locate for Tip='C'
disp
continue
disp
continue
disp
continue
disp
conitnue
continue
disp
go top
disp for recno()%2==0
list
?recount()
?reccount()
?reccount()/2 to x3
go reccount()/2
disp
? 'Bicicleta de tip '+ Tip+ ' si marca ' +Marca+ ' are pretul de '+ Pret
? 'Bicicleta de tip  '+ Tip+ ' si marca ' +Marca+ ' are pretul de '+ Pret
? 'Bicicleta de tip  '+Tip+ ' si marca ' +Marca+ ' are pretul de '+ Pret