p_typf
set procedure to &procx
P_TYP
=horW_AKT
 *VLOBRNAH
DKUZAZN
-PgUpCISPOL
se IDENT
r.i=W_POLE
.w_PS_LINE
  AKTUAL
 'AMOD_SYS
inM1_IDENT
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
&barvas
c_nahr+
c_nahr
c_nahr
ZMENA
=horKONEC
 *VLPOMOC
DKUHOR
-PgUpDOL
se POCET
r.i=BARVA
.w_BARVAS
  BARVAR
 'ABARVAZ
inBARVAU
eBARVAN
 BARVANS
e BARVAH
th NOVY_Z
typM4_NAHR
_tCISPOL
 rP_TYP
all C_NAHR
th IDENT
    TYP_N
  zPRIOR
   q=1
HLAVA
PRIDMENU
DKU (ZMENY
&barvaz
hrady polo
ky - 
&barvan
Pr Identifikace N
zev                Jakostn
 norma  Pozn
Proc.
WTEXT4
horCISPOL
*VLP_TYP
&barvau
&barvau
@!S19
BARVA
horBARVAZ
*VLPU
-PgUpP
r.i=DOL
.w_IDENT
  CISPOL
 'AN_IDENT
inM1_IDENT
eC_NAHR
 NAZEV
 JAK_CSN
 POZN
typP_TYP
_tPROC
&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
DKUHODN
-PgUpPRIOR
se ZAZ
r.i=POCZAZ
  POMPRIOR
AW_POLE
inFOR
K_CSN
 rPROC1
ll ZMENA
    M1_IDENT
zC_NAHR
 N_IDENT
HLASKA
RIDNAZEV
(JAK_CSN
it pr
ci beze zm
n? (a/N)
*VLZ1
DKUT1
-PgUpU1
se X1
r.i=X
.w_HOR
MPRIOR
inKONEC
K_CSN
typPROC1
_tZMEN1
 rW_AKT
    VOLBA
zC_NAHR
POCET
NOVY_Z
RIDZMENA
(IDENT
CISPOL
 (iPRIOR
i=29TYP_N
w_akP_TYP
  noALL
nseULOZ
ZMENA
horM4_NAHR
VLCISPOL
KUP_TYP
PgUpIDENT
se TYP_N
.i=C_NAHR
.w_N_IDENT
  PRIOR
AMOD_APP
              - 
,PgDn,PgUp
              - ^PgUp,^PgDn
              - ^Home
              - ^End,Esc
        - F10
Pohyb
Konec
horOBR
&barvau
horZOBR_POL
LZMENA
PgUpIDENT
se NAZEV
.i=M1_IDENT
_JAK_CSN
nazev
MNTUXYZ
 detailn
znamy neexistuj
material
set color to &barva
w+/bg
w+/bg
w+/bg
&barvau
material
 Vyhled
Zadejte n
zev nebo identifikaci polo
nazev
material
material
horHMEZ
LDMEZ
KULMEZ
PgUpPMEZ
se M1_IDENT
=NAZEV
_KOD_POL
  TXT
AHLASKA
inMATERIAL
eM1_OBR
 RAM6
 HELP6
typRAD
_tSTREC
 rBARVA
ll SAYRAD6
  C_NAHR
zN_IDENT
 IDENT
ZMENA
(STZAZ
 (iW_CESTINA
w_akUPPERCS
ehled  p o l o 
 e k 
zev polo
Identifikace
Jakost
set color to &barx
horBARX
LNAZEV
KUIDENT
PgUpMJ
se KOD_POL
=ROZM_CSN
_JAK_CSN
Konec
Pohyb
Enter
-Home,End,PgUp,PgDn,
-Vyhled
r polo
AKTUAL
HLAVA
,0 toC
PROC1
ext4 
ZMEN1
y pol
ZMENY
isPol 
,(80-lY
))/2 sP
HLASKA
rim(1
VOLBA
ZOBR_POL
SAYRAD6
HELP6
W:\04\
S418AD.FXP
W:\04\S418AD.PRG