KONEC
  u=MOD69BX
mod69b
mod69bd
ehled  s v 
 t k 
RIIS 4.6
m6_svat
' '+str(den,2)+'.'+str(mesic,2)+'.'
den+mesic
poznamka
poznamka
POLEX
  u=RTOP
  RBOT
   CLEFT
CRIGHT
      uF2
       F3
    F4
do procF7
   endiF8
  do zmF9
 with 'F10
   sePROCX
r onENTER
DETAIL
ursDET_JM
   RAMECEK
()NAZEVT
 RIIS
men&yNADPIS
ay'LEVA
f a=8PRAVA
(i=3HOR
i=12)
  ?chrM6_SVAT
  DEN
   enZAHL
  do JMENO
    HODN
ni zI
(ctrMOD_PSV
mod_psv
M6_SVAT
u=OPRAVA
  PS_RETURN
MOD_PSV
RIIS 6.9
imu v
ru nelze prov
t opravy z
imu t
 nelze prov
t opravy z
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
&barvau
CPODMV
  M_MAZANI
CPODMS
W_DEN
   uDEN
      W_MESIC
  MESIC
  W_POZNAMKAPOZNAMKA
cNOVY_Z
ndiJMENO_C
zmWJMENO_C
'RADEK_C
seSLOUPEC_C
ursQ2
   CISELNIK
men&yPOCET
ay'DOP1
f a=8DOP2
(i=3POR
i=12)
COUNT
?chrZAKAZNIK
 POMOC
  enY
  do RAD
    SL
ni zPOC
(ctrKONTROLA
 BARVAS
33 BARVAR
 BARVAZ
novBARVAU
BARVAN
 noBARVAH
BARVA
endiKS
   M6_SVAT
  MENU
  PORADI
of(KONEC
    X
ottom
  endiZ
    ifU
   appenQ
    novyQ3
 ZMENY
&barva
 Aktualizace sv
W_DEN
u=W_MESIC
  W_POZNAMKA
@ 13,21 &vloz w_den picture '99' function '@Z'
@ 13,24 &vloz w_mesic picture '99' function '@Z'
@ 14,21 &vloz w_poznamka picture '@X' 
MESIC
OZNAMKAW_DEN
   uW_MESIC
  W_POZNAMKA?
do proc&y
do zmen&y with 'get'
do zmen&y with 'say'
it pr
ci beze zm
n? (a/N)
KONEC
MESIC
OZNAMKAX
   uHOR
POZNAMKAZ
ZNAMKAJ
ZNAMKA
cNOVY_Z
ndiW_DEN
zmDEN
'W_MESIC
seMESIC
W_POZNAMKAPOZNAMKA
sPROC1
   Q1
ELNIK
men&yPOCET
f a=8K_UDAJU
=3OK_C
ZNAMKA
Den mus
t vypln
c mus
t vypln
tek ji
 existuje
Chybn
 naveden
 kalend
Chybn
 naveden
 kalend
u=W_DEN
  TXT
ZNAMKAHLASKA
   uQ1
  W_MESIC
MKAXX
ZNAMKA
colora
set color to &color
u=COLOR
  OBR
ZNAMKA
            - 
                - ^PgDn
                - ^Home
      - ^End,Esc
Pohyb
Konec - 
MOD69BX
MOD69BD
OPRAVA
PORADI
****y
PROC1
*****L
ZMEN1
*****
ZMENY
*****
K_UDAJU
HLASKA
* -- 
------9
X:\OBEC\06\
MOD69B.FXP
X:\OBEC\06\MOD69B.PRG