Nume
@3,3 say "An_recolta:" get M.An_recolta
@5,3 say "Tip:" get M.Tip
@7,3 say "Culoare:" get M.Culoare
@9,3 say "Origine:" get M.Origine
@11,3 say "Recomandat:" get M.Recomandat
@13,3 say "Servire_gr:" get M.Servire_gr
@15,3 say "Pret_unit:" get M.Pret_unit
@17,3 say "Cant_com:" get M.Cant_com
@19,3 say "Total:" get M.Total
@21,2 get V funct'*NH !
;
? ;
';
Valid selectare() size 1,14,5 defa 1
read cycle
wait"Terminare" wind time 3
clear gets
close all
function selectare
Do case
case V=1
appe blank
gather memvar
scatter memvar blank
show gets
case V=2
scatter memvar blank
show gets
case V=3
clear read
endcase
deacti wind W1
retu
* = = = = ==*
Proc MODIFICARE
on key label F1 brow nomodi nodel
define wind W2 from 0,0,4,79 to 23,75;
title "Fereastra Modificare" Shadow;
colo RGB(0,0,0,0,210)
acti wind W2
set safety off
use Lista_vinuri index iAn_recolta
@0,10 say "An_recolta:" get M.
