Upozorenje ulaz
math
0|0
11
E1
T	E//if((bgrozdje=100)or(cgrozdje=100), Open("Skladisteupozorenje.scr"))
T	E//if((bgrozdje=100), bgrozdje+1)
T	E//if((cgrozdje=100), cgrozdje+1)
Talarmi.pdatum	EDay
Talarmi.zdatum	EDay
Talarmi.mjesec	EMonth
Talarmi.godina	EYear
T	E
Tnaslov	Eif((recept=1),"Bijelo vino")
Tnaslov	Eif((recept=2),"Crno vino")
Tbga	E
