pouz_popupf
ident
pouz_popupf
TYP_NAHR
rPOUZ_POPUPVOLBA
    DET_OBR
r(AKTUAL
MOD_SYS
  M1_IDENT
zIDENT
 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+/w
set color to w/n
&barvaz
hrady polo
ky - 
&barvas
c_nahr
c_nahr
c_nahr
c_nahr.dbf
_NAHR
rZMENA
OPUPKONEC
    POMOC
r(HOR
  POCET
zBARVA
 BARVAS
   BARVAR
PUPBARVAZ
   BARVAU
   BARVAN
 enBARVANS
  BARVAH
 NOVY_Z
konWTEXT4
 TYP_NAHR
 M4_NAHR
  CISLOP
o W_TYP_N
 C_NAHR
IDENT
ndifTYP_N
 case i=HLAVA
.w_aZMENY
   kDBF
&barvan
Pr Identifikace N
zev                Jakostn
 norma  Pozn
Proc.
W_TYP_N
mod_proc
inlist(kod_pol,'M','N','T','U','X','Y','Z')
&barvau
@!S14
it pr
ci beze zm
n? (a/N)
TYP_N
OPUPZ1
    T1
PUPKONEC
   DOL
RVANS
 PROC1
konZMEN1
 W_AKT
_NAHR
o W_IDENT
 W_NAZEV
ndifZOBR_POL
OMOD_PROC
N_IDENT
i=M1_IDENT
aC_NAHR
kNAZEV
 JAK_CSN
aPOZN
   W_TYP_N
endifQ
  endcasPOCET
rNOVY_Z
***ZMENA
***IDENT
pCISLOP
 ulTYP_N
ifPOMOC
  OBR
t m4_nMENU1
 seePOM
 ULOZ
c_nahr
ZMENA
rM4_NAHR
UPCISLOP
  IDENT
r(TYP_N
W_TYP_N
  N_IDENT
zC_NAHR
&barvau
@ x,1 &vloz prior pict '99'
@ x,4 &vloz n_ident pict '@!X'
ka neexistuje
@ x,54 &vloz pozn pict '@X' function '@S19'
@ x,74 &vloz proc
_NAHR
UPW_TYP_N
  POCET
zM1_IDENT
 C_NAHR
 N_IDENT
UPTXT
   HLASKA
RVANS
  NAZEV
 JAK_CSN
nZMENA
&barvau
&barva
BARVA
rBARVAZ
  DOL
zIDENT
 CISLOP
 PRIOR
UPN_IDENT
  M1_IDENT
 C_NAHR
nNAZEV
 JAK_CSN
 POZN
nW_TYP_N
 PROC
ny-char.polo
              - 
,PgDn,PgUp
              - ^PgUp,^PgDn
              - ^Home
              - F10
              - ^End,Esc
Pohyb
Konec
UPAKTUAL
HLAVA
ZMENY
ZMEN1
popup
PROC1
 pouz
MENU1
show q
X:\OBEC\04\
MOD41A5.FXP
X:\OBEC\04\MOD41A5.PRG