w_poMOD18AX
 e h l e d    f u n k c 
RIIS 6.9
Detail
mod618ad
mod618a
Zadejte funkci : 
m6_fun
funkce
 Funkce
' '+m6_fun.funkce+' '
m6_fun.funkce
       N
'       '+m6_fun.nazev
m6_fun.nazev
POLEX
w_poOBSAHX
  RAMECEK
lsNAZEVT
   RIIS
    dRTOP
    RBOT
     CLEFT
    CRIGHT
   FREEZE
.f.F1
       F2
    endF4
      eF6
      F7
estore F9
   F10
 konecF10_JM
   F10PRG
   DETAIL
12 DET_JM
) aENTER
 PROCX
 zmeF9KEY
    M6_FUN
 scFUNKCE
obrZAHL
     JMENO
lor HODN
dezvMOD_PSV
  OBSAH
10,27
c6_funt
OPRAVA
_poW_POLE
  C6_FUNT
m6_funt
m6_funt
funkce
c6_funt+
c6_funt
c6_funt
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/n
set color to w+/w
&barvau
_poOBRAZ
  NOVY_TXT
sZMENA
  ZMENA2
  dZMENA_F
  NOVY_Z
   W_POLE
   POM_FUNKCEM6_FUNT
f.FUNKCE
  C6_FUNT
 AKTUAL
ndMM_AUTOR
eAUTOR
    DAT_AKT
 JMENO_C
 WJMENO_C
cRADEK_C
  SLOUPEC_C
12 Q1
) aQ2
 zmeQ4
    Q5
 scQ6
obrQ7
     Q8
lor Q9
   Q10
dezvQ11
  Q12
10,2Q13
r to Q14
    Q15
 14,(7Q19
(txt))Q20
y txt
key(3)Q22
tore sQ23
 from CISELNIK
o &colDOL
eturn
POCET
****DOP1
*****DOP2
*****POR
******COUNT
****ZAKAZNIK
*POMOC
ocedY
 menu
lor toSL
@ 21,POC
ar to KONTROLA
1BARVAS
,79BARVAR
@ BARVAZ
y 'BARVAU
   BARVAN
hr(BARVAH
+chBARVAT
@ 2BARVA
y ' KS
   MENU
PgDPORADI
,2 PORAD2
   NEA_POZN
 KONEC
@ 23I
ay '  X
        R
 ^HomeZ
23,63 U
 '      T
End,Esc'Q
et colorA
 w+/n
@POCET2
ay ZMENY
@ PS_RETURN
&barvau
&barvas
&barvaz
&barvar
Aktualizace funkc
&barvaz
&barvat
Funkce :
zev  :
Autor  :              Aktual:            Datum akt.:
&barvau
_poWTEXT
&barvau
&barvas
!XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
&barvau
_poW_POLE
@  4,11 &vloz w_pole(1) picture '@!X'       
@  5,11 &vloz w_pole(2) picture '!XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'       
  W_POLE
  POM_FUNKCEZMENA_F
  MM_AUTOR
EDAT_AKT
  ZMENA
do proc&y
do zmen&y with 'get'
do zmen&y with 'say'
 vypln
slo funkce, nelze nav
st charakteristiky
c6_funt
c6_funt+
c6_funt
c6_funt
&barvau
c6_funt
c6_funt+
c6_funt
c6_funt
&barvau
it pr
ci beze zm
n? (a/N)
Konec beze zm
n ? (a/N): 
&barvau
M_FUNKCEI
ENA_F
  KONEC
_FUNT
ndW_POLE
eZMENA_F
  KON_FUNKCEM6_FUN
 C6_FUNT
cFUNKCE
  RAD_TX
PREPOC_RADQ
) aPORADI
 PROC1
 zmePORAD2
   PROC2
 scMENU2
obrHLASKA
   ZAPIS
NKCEM6_FUNT
  NOVY_Z
zvZMENA
  POM_FUNKCEAKTUAL
o MM_AUTOR
 AUTOR
DAT_AKT
NOVY_TXT
bNEA_POZN
7ZMENA2
ENA_F
CEPOCET
re sOBR1
KCEODEZVA
colora
set color to &color
_poCOLOR
  OBR
           - 
                 - ^PgDn
                - F2
                 - ^Home
      - ^End,Esc
Pohyb
znamu
Charakteristiky
znamu
Konec
&barvas
&barvau
&barvar
&barvaz
 Charakteristiky funkce 
&barvat
&barvau
_poWTEXT
&barvas
&barvau
_poPU
  DOL
FUNKCETEXT
&barvau
@ x,2 &vloz c6_funt.text
  POCET2
FUNKCEAKTUAL
  MM_AUTOR
EDAT_AKT
  ZMENA2
      - 
,PgDn,PgUp
                 - ^PgDn
                 - ^Home
      - ^End,Esc
Pohyb
Konec
c6_funt
ZAPIS
_poMOD_SYS
  ZMENA2
sM6_FUNT
  ZMENA_F
CEPOM_FUNKCEFUNKCE
EW_POLE
KCEC6_FUNT
CETEXT
f.RAD_TX
ST_ZAZ
_poALL
  RAD_TX
&barvas
C6_FUNT
  TEXT
sM6_FUN
C6_FUNT
poFUNKCE
  W_POLE
sZMENA2
  MOD18AX
MOD618AD
OPRAVA
PORADI
PROC1
     
ZMEN1
     
ZMENY
 from
HLASKA
   $%
PORAD2
PROC2
    im(
ZMEN2
nkce)
MENU2
    r
ZAPIS
kce w
PREPOC_RAD
NEA_POZN
KON_FUNKCE
X:\OBEC\06\
MOD618A.FXP
X:\OBEC\06\MOD618A.PRG