.  .  #
m1_nthn
x1_nthn
c1_thn1+
c1_thn2+
zakladni\m1_normy
operace
c1_thn2+
c1_thn1
c1_thn2
stare
 n y    T H N
CISLO
POSTUP
>DATUMZ
DATUM_Z
POLEX
OBSAHX
TANSI
OBSAH
JMENO
M1_NTHN
X1_NTHN
DATUMZ1
C1_THN1
DATUMZ2
C1_THN2
ZAKLADNI
OPERACE
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
nasledujici
Zadny zaznam
zahlavi=zahlavi&y
veta=veta&y
zahlavi=zahlavi&y
veta=veta&y
>ZAHLAVI1
ZAHLAVI2
ZAHLAVI3
ZAHLAVI4
ZAHLAVI5
ZAHLAVIT
ZAHLT1
VETA1
VETA2
VETA3
VETA4
VETA5
VETAT1
TPOCI
POCET
POLEX
JMENO
ZAHLAVI
PROHL
HLASKA
RAMECEK
HLAVI
POL10
POL11
POL12
POL13
POL14
POL15
POL16
PREHLED
PODMV
PODMS
NADPIS
PRAVA
MODTESTT
DATUMZ
DATUMZ2
VOLBA
USCHOVA
MODSCR
 Technologick
 operace 
Volba polo
Pohyb     
Konec
- <Enter>
,PgUp,PgDn
- Esc,^End
NADPIS
PRAVA
DATUMZ
NADPIS
>PRAVA
ZAHLAVI
@ p+nadpis,leva say  &veta
@ p+nadpis,cara+1 say &a
pol&cp=&veta
PREHLEDV
HLAVI
PRAVA
TUSCHOVA
@ p+nadpis,leva say &veta
pol&cp=&veta
EHLEDV
PRAVA
p_kody
p_name
Epson LX-810
SOUBOR
P_KODY
>P_NAME
W_TISKARNABOLD_ON
NAP_BOLDON
BOLD_OFF
P_BOLDOFF
DBST_ON
P_DBST_ON
DBST_OFF
P_DBST_OFFNLQ_ON
P_LETRQUALNLQ_OFF
TP_DRAFT
P_SUBON
SUB_OFF
P_SUBOFF
SUPER_ON
P_SUPERON
SUPER_OFF
P_SUPEROFFHUSTE_ON
P_10CPI
P_COMPRESSHUSTE_OFF
P_COMP_OFFPICA_ON
ELITE_ON
P_12CPI
RESET
P_SETUP
NCOMP
RESSR8LPI
_OFFP_8LPI
STRANA
TISK_HL
TISK_S
RIIS 1.6
NCOMP
>MALE
SLOUP
ARNAPODNIK
NASUB_OFF
NLQ_ON
BOLD_ON
NAZEVT
NLQ_OFF
BOLD_OFF
ST_OFFPOCS
ZAHLAVIT
LZAHLAVI
DRAFT
ZAHLT1
@cr,s say &vetat
ARNAPOCS
NAVETAT
VETAT1
R8LPI
ZAHLAVIT
NCOMP
_OFFL
STRANA
LMALE
TSUB_OFF
dalsi
konec
Volba polo
--------------------
..........
+' '+
.................
>ZAHLAVI
ARNALOGIC
XOPER
POLEX
VYBER
_OFFZAHLAVI1
VETA1
LJMENO
Postup  
tran(postup,'99999999')
obs pict '9999999'
postup
oper+' '
obs pict '999'
obs pict '9999'
  Prac
obs pict '999999'
obs pict '99'
str(tbc,4)
nula pict '@z 9999'
   TAC   
IIF(kooperace(dop), str(kooperace,10,4), str(tac,10,4))
nula  pict '@z 99999.999'
IIF(kooperace(dop),kooperace,tac)
zev oper.
nazev_op
obs pict '@!'
nazev_op
NC-PRG
obs pict '@! XXXXXX'
norm+' '
obs pict '999'
edpis
predpis
obs pict '@! XXXXXXX'
predpis
str(kcsbc,10,4)
nula pict '@z 9999999.9999'
kcsbc
    K
str(kcsac,10,4)
nula pict '@z 9999999.9999'
kcsac
-celkem
str(kcsac+kcsbc,10,4)
nula pict '@z 9999999.9999'
(kcsac+kcsbc)
>JMENO
OBSAH
ARNAHODN
>S136P1
PROHL
RAMECEK
ZAHLAVI
PREHLED
PREHLEDV
TISK_HL
TISK_S
VOLBA
HLASKA
X:\OBEC\01\
S136P1.FXP
X:\OBEC\01\S136P1.PRG