m7_ucto
s718b
s718b1
ehled  d e n 
RIIS 7.1
r7_denik
denik
m7_denik
denik
m_param
'  '+m7_denik.ident_den
m7_denik.ident_den
m7_denik.text
m7_denik.text
Doklad
' '+str(m7_denik.doklad,5)
str(m7_denik.doklad,5)
trolaW_ROK
 if W_ROK_VYB
M7_UCTO
  ROK
ntroPOLEX
ehlaFREEZE
      gF2
r from F3
   F4
  novy_F5
   appeF7
    if F9
     F10
  replPROCX
 witF9KEY
JENTER
DETAIL
DET_JM
PS_RETURN
RAMECEK
NAZEVT
NADPIS
at LEVA
PRAVA
t coloDOL
R7_DENIK
rDENIK
@M7_DENIK
sM_PARAM
 JMENO
  &bI
endiMOD_PSV
urOBSAH
****P
mod_psv
trolaOPRAVA
if MOD_PSV
PS_RETURN
W_POLE
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
trolaW_POLE
if NOVY_Z
JMENO_C
WJMENO_C
oRADEK_C
laSLOUPEC_C
    gQ1
r from Q2
   Q3
  novy_Q4
   appeQ6
    if Q8
     Q9
  replQ10
 witQ11
ETURN
at Q20
t coloQ23
CISELNIK
sPOCET
 DOP2
  &bCOUNT
endiZAKAZNIK
rPOMOC
****Y
*****POC
******KONTROLA
*BARVAS
***BARVAR
BARVAZ
re BARVAU
f yBARVAN
 &bBARVAH
lseBARVA
arvaKS
pMENU
PORADI
 !eKONEC
d r<I
   @ X
 say texR
pict 'Z
   r=rU
   u=u+T
   skip
 if eof(A
      j=ZMENY
  ifM_MAZANI
&barva
 Aktualizace den
            - 
              - ^PgDn
              - ^Home
      - ^End,Esc
Pohyb
Konec - 
W_POLE
@ 18,43 &vloz w_pole(1) picture '@!XXX'    
@ 19,43 &vloz w_pole(3) picture '@X'     
if Q1
W_POLE
MENO_C
do proc&y
do zmen&y with 'get'
do zmen&y with 'say'
it pr
ci beze zm
n? (a/N)
KONEC
laHOR
    gR
r from Z
  novy_NOVY_Z
  POCET
ppeQ1
    if Q
     ROK
  replW_ROK
 witW_POLE
JPROC1
K_UDAJU
k mus
t vypln
 existuje
olaW_POLE
if HLASKA
colora
set color to &mcolor
olaMCOLOR
if OBR
S718B1
OPRAVA
men1g
PORADI
PROC1
ZMEN1
   q|
ZMENY
q3 = 
K_UDAJU
HLASKA
X:\OBEC\07\
S718B.FXP
X:\OBEC\07\S718B.PRG