.  .  #
m1_zdroj
x1_dilna
x1_zdroj
RIIS 1.5
P r e h l e d   ciselniku pracovist
POLEX
APOC2
OBSAHX
RZAHL
OBSAH
RJMENO
M1_ZDROJ
X1_DILNA
X1_ZDROJ
NADPIS
PRAVA
NAZEVT
PROHL
pocet=poc&u
zahlavi&u=zahlavi&u+zahl(i)
veta&u=veta&u+jmeno(i)
zahlavi&u=zahlavi&u+chr(179)
veta&u=veta&u+"+chr(179)+"
mez=len(veta&u)+1
i=poc&a
zahlavi&u=zahlavi&u+' '
veta&u=veta&u+"+' '+"
+' '+
Zadny zaznam
@ r+nadpis,leva say pol&cp
@ r+nadpis,leva say pol&cp
@ r+nadpis,leva say pol&cp
@hor,leva say pol&cp
 Aktualizace ciselniku 
Dilna
Prac.
Nazev pracoviste
Poc.stroju
Specifikace
zahlavi=zahlavi&y
veta=veta&y
zahlavi=zahlavi&y
veta=veta&y
ZAHLAVI1
ZAHLAVI2
ZAHLAVI3
AZAHLAVI4
ZAHLAVI5
ZAHLAVIT
ZAHLT1
VETA1
VETA2
VETA3
VETA4
RVETA5
VETAT1
RPOCI
_ZDROJ
POCET
POLEX
FZAHL
JMENO
ZAHLAVI
FPROHL
KRAMECEK
HLAVI
FFPOL1
SPOL2
FFPOL3
FPOL4
KPOL7
_KOOPPOL8
KPOL10
POL11
POL12
POL13
POL14
POL15
RPOL16
IPRAVKY
PREHLED
PPODMV
PODMS
NADPIS
PRAVA
VYBER
TRIDENI
MODTESTT
KDILNA
KIDENT_ZDR
NAZEV_ZDR
POC_STR
SPECIF
KTYP_ZDR
EWVOLBA
 Pocet zaznamu: FF
Vyber
Trideni
Volba polozek
Zmena
Pohyb
Konec
- <Enter>
,PgUp,PgDn
- Esc,^End
NAZEVT
NADPIS
PRAVA
NADPIS
PRAVA
ZAHLAVI
@ p+nadpis,leva say  &veta
@ p+nadpis,cara+1 say &a
pol&cp=&veta
PREHLEDV
HLAVI
PRAVA
RUSCHOVA
@ p+nadpis,leva say &veta
pol&cp=&veta
EHLEDV
APRAVA
USCHOVA
p_kody
p_name
Epson LX-810
SOUBOR
P_KODY
P_NAME
W_TISKARNASTRANA
RNARAD
TISK_HL
TISK_S
P_SETUP
P_KODY
P_COMP_OFFP_SUBON
NARIIS
RNAZACP
PODNIK
P_SUBOFF
P_LETRQUALP_BOLDON
NAZEVT
P_DRAFT
RPOCS
ZAHLAVIT
LZAHLAVI
P_COMPRESSZAHLT1
@cr,s say &vetat
MP_OFFY
SUBON
NAPOCS
RNAVETAT
VETAT1
P_KODY
UALP_8LPI
ZAHLAVIT
P_COMP_OFFL
STRANA
LP_SUBON
P_SUBOFF
   a 
.and.
nebo 
konec
Vyber
  .  .  #
--------------------
nebrat
@s,v get &prom
@s,v say &prom
dtoc(dat)
STOP - delku podminky jiz nelze zvetsovat !
 Ukoncit 
 Zrusit 
set filter to &podmv
 K zadane podmince nebyl nalezen zadny zaznam .
LOGIC
_OFFOPERAND
ERAND
NAXOPER
OBSAHX
UALDAT
HLAVIT
POLEX
_OFFZAHL
VYBER
LPODMV
OBSAH
RESSRELACE
USCHOVA
OBRAZ12B
dalsi
konec
Volba polozek
--------------------
..........
+' '+
.................
ZAHLAVI
ERAND
NALOGIC
XOPER
UALPOLEX
VYBER
ZAHLAVI1
FVETA1
JMENO
dalsi
konec
Trideni
--------------------
nebrat
......
.................
 STOP - delku klice jiz nelze zvetsovat ! 
 Ukoncit 
 Zrusit 
sort to c1_tr on &podms
c1_tr
LOGIC
NAXOPER
POLEX
UALVYBER
PODMS
OBSAH
FHODN
LSTOP
C1_TR
PROHL
RESST
Dilna
str(dilna,5)
nula pict '99999'
dilna
Prac.
str(ident_zdr,5)
nula pict '@z 99999'
ident_zdr
Nazev pracovisteF
nazev_zdr
obs pict '@s25 ' +repl('!',45) 
nazev_zdr
Stroju
str(poc_str,6)
nula pict '@z 999'
poc_str
str(typ_zdr,3)
nula pict '@z 999'
typ_zdr
SpecifikaceF
specif
obs pict '@s25'
specif
JMENO
FFOBSAH
NAHODN
NAMOD15B
PROHL
RAMECEK
ZAHLAVI
PREHLED
PREHLEDV
TISK_HL
TISK_S
VYBER
VOLBA
TRIDENI
L:\OBEC\01\
MOD15B.FXP
L:\OBEC\01\MOD15B.PRG