m7_ucto
s718a
et(6)
s718a1
s718a3
Texty
ehled  
 e t n 
  o s n o v y
RIIS 7.5
r7_ucet
m_param
r7_pozuc
r7_stav
r7_sstav
m7_ucet
m_param
m7_pozuc
m7_stav
m7_sstav
nazev
nazev
'   '+uzav
'     '+prevod
prevod
Text (1.
substr(m7_pozuc.text_tx,1,19)
m7_pozuc.text_tx
ucet2+'  '
ucet2
zev extern
nazev2
nazev2
etW_ROK
etW_ROK_VYB
M7_UCTO
 q =POLEX
   eFREEZE
   F1
st_zaz
endif  F3
case F4
   @ F5
 &vloz F6
zev picF7
casF8
   F9
72 &vloF10
PROCX
F9KEY
15 &W_AKT
nazeENTER
 '@XDETAIL
q=qDET_JM
6,1F10PRG
w_uF10_JM
 '@RAMECEK
 qNAZEVT
@ 6RIIS
loz wNADPIS
picLEVA
caPRAVA
  HOR
59 &vlDOL
bil piR7_UCET
eUCET
if M7_UCET
' POC_Z
atedM_PARAM
enPAR_POLE
dPOLE7
retuR7_POZUC
*M7_POZUC
*R7_STAV
**M7_STAV
**R7_SSTAV
*M7_SSTAV
*ZAHL
dJMENO
MOD_PSV
&bOBSAH
endiB
etZAZN
etOPRAVA
PS_RETURN
etZMEN_UCET
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+/w
set color to w/n
A k t u a l i z a c e   
   osnovy
RIIS 7.5
c7_pozuc
c7_pozuc+
c7_pozuc
N_UCET
RETURN
 q =Q
   eZMENA1
   ZMENA2
KONTROLA
 KONEC
ase HOR
   @ DOL
&vloz POCET
 picBARVA
casRADEK_C
  SLOUPEC_C
POMOC
15 &RAD
nazeSL
 '@XPOC
q=qBARVAS
6,1BARVAR
w_uBARVAZ
 '@BARVAU
 qBARVAN
@ 6BARVAT
z wBARVAH
picM7_UCET
caROK
  W_ROK
 &vlNOVY_ZH
piW_UCET
eUCET
if W_NAZEV
' NAZEV
atedW_UCET2
enUCET2
dW_NAZEV2
uNAZEV2
*W_UZAV
*UZAV
**W_PREVOD
*PREVOD
*W_BIL
dM7_POZUC
C7_POZUC
 RAD_TX
NOVY_Z
&bPOCET1
diPOCET2
 clHLAV1
20,7PROC1
='1'HLAV2
arvaMENU1
_POZUC
@ 8,0PROC2
ZMENY
or tPS_RETURN
&barvau
&barvas
&barvaz
&barvar
&barvaz
&barvat
Ext. n
sob uzav
evod do nov
ho obdob
Bilance
&barvau
&barvau
&barvas
&barvau
etW_UCET
W_NAZEV
W_UCET2
W_NAZEV2
=W_UZAV
  eW_PREVOD
 W_BIL
@ 4,7 &vloz w_ucet  pict '@!X'
et ji
 osnov
 existuje
@ 4,26 &vloz w_nazev pict '@X'
@ 4,72 &vloz w_ucet2
@ 5,15 &vloz w_nazev2 pict '@X'
@ 6,19 &vloz w_uzav pict '@!X'
@ 6,47 &vloz w_prevod pict '@!X'
@ 6,59 &vloz w_bil pict '@!X'
etNOVY_ZH
POCET1
AZEV2
  eQ4
REVOD
TROLA
ase Q
 @ M7_UCET
z ST_ZAZ
icW_UCET
casHLASKA
  ZMENA1
&barvas
&barvau
&barvar
&barvaz
&barvat
&barvau
etHOR
&barvas
&barvau
=TEXT_TX
REVOD
&barvau
@ x,2  &vloz text_tx pict '@X'
POCET2
ZMENA2
do proc&y
do zmen&y with 'get'
do zmen&y with 'say'
Nelze zru
it, existuje stav
m7_sstav
c7_pozuc
c7_pozuc+
c7_pozuc
it pr
ci beze zm
n? (a/N)
XT_TX
 eKONEC
ase J
 @ LK
z POMOC
icOBR
  KONTROLA
ZAPIS
C7_POZUC
_POZUC
&HLAV1
nazePROC1
 '@XHLAV2
q=qPROC2
6,1MENU2
w_uPOCET2
 '@ZMENA2
qUCET
6M7_UCET
 wROK
picW_ROK
caNOVY_Z
  ZMENA1
lNOVY_ZH
piW_UCET
eW_UZAV
if UZAV
' W_NAZEV
edNAZEV
enW_UCET2
dUCET2
uW_NAZEV2
*NAZEV2
*W_PREVOD
*PREVOD
*W_BIL
*M7_STAV
dP_S_R
 DAL_1
&bDAL_2
diMD_3
 clDAL_3
20,7MD_4
='1'DAL_4
arvaMD_5
  DAL_5
eMD_6
@ 8,0DAL_6
or tDAL_7
DAL_8
o obrDAL_9
men_MD_10
estoDAL_10
n fMD_11
*DAL_11
*MD_12
****DAL_12
***HLASKA
**M7_SSTAV
*M7_POZUC
rPOCET1
  Prob
 definice 
tu ...  
c7_pozuc
ZAPIS
etMOD_SYS
ZMENA1
M7_UCET
=UCET
 eW_UCET
 M7_POZUC
C7_POZUC
 UZAV
@ W_UZAV
z NAZEV
icW_NAZEV
asPREVOD
  W_PREVOD
W_BIL
UCET2
&W_UCET2
zeNAZEV2
'@XW_NAZEV2
qZMENA2
6,1MESS
w_uRAD_TX
 vypln
na identifikace 
et ji
 existuje
KONTROLA
D_SYS
W_UCET
HLASKA
_UCET
 eNOVY_ZH
 M7_UCET
ST_ZAZ
      - 
                 - ^PgDn
      - F2
                 - ^Home
      - ^End,Esc
Pohyb
znamu
Bloky
znamu
Konec
      - 
                 - ^PgDn
                 - ^Home
      - ^End,Esc
Pohyb
znamu
znamu
Konec
colora
set color to &color
tCOLOR
colora
set color to &color
tCOLOR
 text k tomuto 
tu neexistuje
c7_pozuc+
c7_pozuc
tM7_POZUC
M7_UCET
HLASKA
=C7_POZUC
ePS_LINE
 ZOBRAZ_TXT
ehled  dopl
ch text
ehled dopl
ch text
s718a
Zadejte: Osob. 
text_tx
text_tx
POLEX
tPROCX
CLEFT
=CRIGHT
eFREEZE
 ORDER
_TXTZAHL
 JMENO
 HODN
@ TITLE
z TITLECOLORPS_LINE
REVOD
'@XF10
qDETAIL
6,1F1PRG
w_uF4_JM
@F4PRG
qF7_JM
6F7PRG
 wF9KEY
picF10_JM
caF10PRG
  DET_JM
lDETPRG
piRAMECEK
eNAZEVT
if RIIS
' M7_UCET
edUCET
dMOD_PSV
uPS_RETURN
S718A1
OPRAVA
ZMEN_UCET
HLAV1
PROC1
\07\5
ZMEN1
HLAV2
PROC2
ZMEN2
ZMENY
  && 4
ZAPIS
4 = .
KONTROLA
MENU1
f5 = 
MENU2
.t.  G7
HLASKA
f7 = .
S718A3
ZOBRAZ_TXT
W:\07\
S718A.FXP
W:\07\S718A.PRG