mod79c
Zmena
oprava
Evidence cenin 
RIIS 7.9
m_cis1
x_cis1
m_dat
x_dat
m7_meny
cenina
MENA      
u7_meny
cenina
MENA      
Cenina
'   '+men.mena
men.mena
. stav
str(men.stav_m,10,2)
men.stav_m
     P
' '+str(men.prij_m,10,2)
men.prij_m
      V
' '+str(men.vyd_m,10,2)
men.vyd_m
  Kon. stav
' '+str(men.zasoba,10,2)
men.zasoba
       Hodnota
'    '+str(men.stred,10,2)
men.stred
KONEC
_VYDEJ
POLEX
FREEZE
_UZAV
PROCX
F10_JM
F10PRG
ENTER
DETAIL
DET_JM
RAMECEK
NAZEVT
NADPIS
PRAVA
M_CIS1
X_CIS1
M_DAT
X_DAT
M7_MENY
CENINA
DRUH_MC
U7_MENY
JMENO
MOD_PSV
RIIS 7.9
set color to b/w
set color to bg/n
set color to w+/bg
set color to b/bg,w+/rb
set color to w+/b
set color to w/n
&barvau
_VYDEJ
W_POLE
NOVY_Z
JMENO_C
WJMENO_C
RADEK_C
SLOUPEC_C
CISELNIK
POCET
POMOC
KONTROLA
BARVAS
BARVAR
BARVAZ
BARVAU
BARVAN
BARVAH
BARVA
MENU1
PORADI1
KONEC
_MENY
ZMENY
PS_RETURN
&barva
dej cenin 
Cenina
Kon.stav
            - 
      - ^End,Esc
Pohyb
Konec - 
9999999.99
9999999.99
W_POLE
@ 18,15 &vloz w_pole(5) picture '9999999.99'     
w_pole(5)
dej ne
 stav
9999999.99
@ 18,40 &vloz w_pole(10) picture '9999999.99'     
w_pole(10)
if mhod#&mnaz
 kone
 stav ne
9999999.99
W_POLE
ZASOBA
HLASKA
do proc&y
do zmen&y with 'get'
do zmen&y with 'say'
Nelze zru
it - existuje stav
do proc&y
do k_udaju&y              
do proc&y
it pr
ci beze zm
n? (A/N)
do k_udaju&y   
do k_udaju&y
KONEC
_VYDEJ
NOVY_Z
POCET
W_POLE
HLASKA
DRUH_MC
Nevypln
Tato cenina je ji
 navedena
_VYDEJ
W_POLE
HLASKA
colora
set color to &color
COLOR
RIIS 7.9
set color to b/w
set color to bg/n
set color to w+/bg
set color to b/bg,w+/rb
set color to w+/b
set color to w/n
&barvau
_VYDEJ
W_POLE
NOVY_Z
JMENO_C
WJMENO_C
RADEK_C
SLOUPEC_C
CISELNIK
POCET
POMOC
KONTROLA
BARVAS
BARVAR
BARVAZ
BARVAU
BARVAN
BARVAH
BARVA
MENU2
PORADI2
KONEC
_MENY
ZMENY
PS_RETURN
&barva
 Aktualizace cenin 
Cenina
Hodnota v K
            - 
                - ^PgDn
                - ^Home
      - ^End,Esc
Pohyb
Konec - 
9999999.99
W_POLE
@ 16,13 &vloz w_pole(1) picture '@!'              
w_pole(1)
if vloz='say' and  mhod#&mnaz
@ 18,20 &vloz w_pole(20) picture '9999999.99'     
W_POLE
Nevypln
 hodnota
Tato cenina je ji
 navedena
W_POLE
HLASKA
MOD79C
vy_z%
OPRAVA
PORADI1
MENU1
replaK
PROC1
 with4
ZMEN1
     
ZMENY
 w_po[
K_UDAJU1
HLASKA
    k
ZMENA
     
PORADI2
MENU2
PROC2
ZMEN2
K_UDAJU2
X:\OBEC\07\
MOD79C.FXP
X:\OBEC\07\MOD79C.PRG