
USE (m.fn_karty)

WAIT "**" NOWAIT WINDOW AT 22,22
REPLACE FOR cena32 = 0 cena02 WITH cena01
WAIT "****" NOWAIT  WINDOW AT 22,22
REPLACE FOR cena33 = 0 cena03 WITH cena01
WAIT "******" NOWAIT  WINDOW AT 22,22
REPLACE FOR cena34 = 0 cena04 WITH cena01
WAIT "********" NOWAIT  WINDOW AT 22,22
REPLACE FOR cena35 = 0 cena05 WITH cena01
WAIT "**********" NOWAIT  WINDOW AT 22,22
REPLACE FOR cena36 = 0 cena06 WITH cena01
WAIT "************" NOWAIT  WINDOW AT 22,22
REPLACE FOR cena37 = 0 cena07 WITH cena01
WAIT "*****************" NOWAIT  WINDOW AT 22,22
REPLACE FOR cena38 = 0 cena08 WITH cena01
WAIT "**********************" NOWAIT  WINDOW AT 22,22
REPLACE FOR cena39 = 0 cena09 WITH cena01

USE 
WAIT CLEAR 

*Alto vytvoří program (spouštět se bude ve specialitách na vyžádání), který projde všechny ceny v hladinách 32 - 39, 
*V případě že najde nulovou cenu, zkopíruje do odpovídající ceny v hladině 2 - 9 cenu z hladiny 1.  
*Příklad: malinový řez má v hladině 38 cenu 0, program vezme cenu malinového řezu z hladiny 1 a zkopíruje ji do hladiny 8
