pole(PKODX
ehled 
ch znak
 tisk
RIIS 0.0
Kopie
kopie_t
zmen_kod
mod_pkod
 Zadejte nazev tiskarny : 
p_kody
p_name
p_name
p_name
kaz odstranit diakritiku
space(10)+p_kodprn
p_kodprn
str(p_poc_r,6)
p_poc_r
POLEX
ole(PROCX
 6,5RTOP
w_polRBOT
@  7CLEFT
 w_pCRIGHT
@ FREEZE
y wORDER
22 sayDOL
le( 5)LEVA
,58 sPRAVA
le( NADPIS
,22ZAHL
_poleJMENO
  9,HODN
 w_poSOUC
@ 1PSOUC
y w_TITLE
@TITLECOLORPOC0
2,22 saF1
pole( 8F2
 12,45 F3
w_pole(F4
@ 13,2F6
y w_polF7
@ 13F9
say w_pF10
@ F0PRG
ay wF1ON
F1PRG
 sayF4_JM
(13)F4PRG
22 sTISKPRG
(1F7_JM
5,45F7PRG
poleF9PRG
 16,F9KEY
w_poF9KEY1
@ 1F10_JM
 w_F10PRG
@RAMECEK
y RIIS
NAZEVT
 saKLICO
e(19KLNAZ
,22 SPACEBAR
(TR_HL1
8,4TR_HL2
polTR_HL3
 19TR_HL4
w_pTR_HL5
reTR_HL6
***TR_HL7
***TR_HL8
***TR_HL9
***DET_JM
***ENTER
****DETAIL
DETPRG
e zPS_LINE
amPS_RETURN
PS_ZAZN
 tANSI
/rW_POLE
P_KODY
P_NAME
_polMOD_PSV
OPRAVA
le(PS_RETURN
do dej_znak
set color to b/bg
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/n
&barvau
le(ANSI
NAPLN
_polNOVY_Z
  7JMENO_C
_pWJMENO_C
 RADEK_C
 wSLOUPEC_C
2 sayQ1
le( 5)Q2
,58 sQ3
le( Q4
,22Q5
_poleQ6
  9,Q7
 w_poQ8
@ 1Q9
y w_Q10
ECOLORQ12
,22 saQ14
ole( 8Q15
12,45 Q16
_pole(Q17
@ 13,2Q18
 w_polQ19
@ 13Q20
ay w_pQ21
@ Q22
ay wQ23
 sayQ26
(13)CISELNIK
(1DOL
5,45POCET
poleDOP1
 16,DOP2
w_poPOR
@ 1COUNT
 w_ZAKAZNIK
@POMOC
 saSL
e(19POC
,22 KONTROLA
(BARVAS
8,4BARVAR
polBARVAZ
 19BARVAU
w_pBARVAN
reBARVAH
***BARVA
***KS
***MENU
***PORADI
***KONEC
****I
ETURN
_ZAZN
22 ZMENY
       - 
       - vlo
 ASCI znak
                  - ^PgDn
                  - ^Home
      - ^End,Esc
 Pohyb
Konec - 
W_POLE
@ 4,22 &vloz w_pole( 1) pict '@X'
Tiskarna ji
 existuje
@  6,22  &vloz w_pole( 2)
@  6,58  &vloz w_pole(24)
@  7,22  &vloz w_pole( 3)
@  7,58  &vloz w_pole( 4)
@  8,22  &vloz w_pole( 5)
@  8,58 &vloz w_pole( 6)
@  9,22 &vloz w_pole(25)
@  9,58 &vloz w_pole(26)
@ 11,22 &vloz w_pole( 7)
@ 11,45 &vloz w_pole(22)
@ 12,22 &vloz w_pole( 8)
@ 12,45 &vloz w_pole( 9)
@ 13,22 &vloz w_pole(10)
@ 13,45 &vloz w_pole(11) 
@ 14,22 &vloz w_pole(12)
@ 14,45 &vloz w_pole(13)
@ 15,22 &vloz w_pole(14)
@ 15,45 &vloz w_pole(15)
@ 16,22 &vloz w_pole(16)
@ 16,45 &vloz w_pole(17)
@ 17,22 &vloz w_pole(18)
@ 17,45 &vloz w_pole(19)
@ 18,22 &vloz w_pole(20)
@ 18,45 &vloz w_pole(21)
@ 19,22 &vloz w_pole(23)
_polW_POLE
ENO_C
 wHLASKA
2 sayQ3
le( 5)Q4
,58 sQ5
le( Q6
,22Q7
_poleQ8
  9,Q9
 w_poQ10
@ 1Q11
y w_Q12
ECOLORQ14
,22 saQ16
ole( 8Q17
12,45 Q18
_pole(Q19
@ 13,2Q20
 w_polQ21
@ 13Q22
ay w_pQ23
@ Q24
ay wQ25
do zmen&y with 'say'
it pr
ci beze zm
n? (a/N)
KONEC
_polX
  7DOL
2 sayZ
le( 5)J
,58 sPROC1
le( ZMEN1
,22POCET
poleQ1
  9,Q2
 w_poQ3
@ 1Q4
y w_Q5
ECOLORQ7
,22 saQ9
ole( 8Q10
12,45 Q11
_pole(Q12
@ 13,2Q13
 w_polQ14
@ 13Q15
ay w_pQ16
@ Q17
ay wQ18
 sayQ20
(13)Q21
(1Q23
5,45Q24
poleNOVY_Z
16,NAPLN
@ 1K_UDAJU
w_OK_C
@P_NAME
y W_POLE
P_SETUP
saP_6LPI
(19P_8LPI
22 P_10CPI
(P_12CPI
,4P_COMPRESSP_BOLDON
9P_BOLDOFF
P_SUPERON
P_SUPEROFFP_SUBON
**P_SUBOFF
*P_DBST_ON
P_DBST_OFFP_LETRQUALP_DRAFT
P_WIDT_ON
P_WIDT_OFFP_HEIG_ON
P_HEIG_OFFP_COMP_OFFP_NEWPAGE
P_RESET
P_KODPRN
 P_POC_R
t POM
rna ji
 existuje
le(XX
W_POLE
polTXT
  7HLASKA
colora
set color to &color
le(COLOR
 Kopie 
ch znak
 tisk
rny F
zev tisk
Identifikace tisk
rny mus
t vypln
rna s udanou identifikac
 existuje
c_kody
c_kody
c_kody
ST_ZAZH
e(OBR_KOP
P_KODY
polP_NAME
  7W_NAME
_pHLASKA
 MOD_SYS
 wC_KODY
PS_RETURN
&barvaz
&barvas
&barvaz
rna     :
Nastaven
    :
Reset        :
/inch :
/inch :
Pica         :
Elite        :
Odstr.diakrit:
 Zapnuto 
 Vypnuto 
Komprimovan
smo  :
 index  :
 index  :
Doublestrike :
NLQ          :
       :
Vysok
       :
 strana  :
NAPLN
e(PROC1
W_POLE
e(P_NAME
P_SETUP
olP_6LPI
  7P_8LPI
_pP_10CPI
 P_12CPI
 wP_COMPRESSP_BOLDON
P_BOLDOFF
P_SUPERON
P_SUPEROFFP_SUBON
22P_SUBOFF
eP_DBST_ON
P_DBST_OFFP_LETRQUALP_DRAFT
w_P_WIDT_ON
P_WIDT_OFFP_HEIG_ON
P_HEIG_OFFP_COMP_OFFP_NEWPAGE
P_RESET
e(P_KODPRN
2P_POC_R
' - chr(27) 
' - chr(15) 
' - chr(18) 
' - chr(17) 
' - chr(1)  
' - chr(7)  
' - chr(30) 
' - chr(30) 
 Konec 
curp=(len(&curname)-1)-len(rtrim(&curname))
&curname=rtrim(&curname)+znak+space(curp)
{RIGHTARROW}
OBR_ZN
e(VOLBA
olCURNAME
 7MOD_PKOD
PKODX
ZMEN_KOD
OPRAVA
PROC1
ZMEN1
ZMENY
K_UDAJU
HLASKA
KOPIE_T
PORADI
Z_AKT
NAPLN
DEJ_ZNAK
MOD_PKOD.FXP
W:\MOD_PKOD.PRG