m_kal
cdatum
RIIS 5.1
Aktualizace period kalend
ho roku:
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
Chybn
 zadan
 kalend
 rok, p
lku se nevrac
me ...
Roky totality jsou u
vno za n
&barvau
.01.01
Datum: 
bg/bg
&barvau
Opravte, pros
m, sv
tky a dovolenou.
.02.28
znam 
znam 
 Konec 
Opravdu zru
it tento z
znam? (a/N)
   W_ROK
e yeM_KAL
t)=mCDATUM
dow(w_daBARVAS
. dBARVAR
)=7BARVAZ
ontBARVAU
=1.BARVAN
w_dBARVAH
  BARVA
   .MENU
th(PORADI
2.aMROK
y(w_dTXT
.or. HLASKA
t)=KONEC
   HOR
    DOL
appendI
 replaZ
tum wiU
w_dat, pT
oda withQ
       A
o mod3_rY
ith w_daPOCET
    ST_ZAZ
 ciII
dne witJJ
* MROKC
 @ 1W_DAT
y w_DATUM
t '@PERIODA
  MOD3_RT
 sCIS_TYDNE
_RRTT
 colW
RIODA
P_UNOR
 @ ZMENY
datVOL11
ay(wOBR1
15 saPOM
 colorz
 1.Leden
 4.Duben
 5.Kv
erven
ervenec
 8.Srpen
11.Listopad
12.Prosinec
                     1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 2 2 2 2 2 3 3
   1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1
Konec pr
 datum
- Esc
,<Enter>
   JJ
e yeHOR
t)=mW_ROK
@ x,15+2*q  &vloz w_rok(ii,q) pict 'X'
   Q1
e yeQ2
t)=mQ3
   Q4
ow(w_daQ5
. dQ6
)=7Q7
ontQ8
=1.Q9
w_dQ10
  Q11
   .Q12
th(Q13
2.aQ14
y(w_dQ15
.or. Q16
t)=Q17
   Q18
    Q19
appendQ20
   Q21
 replaQ22
tum wiQ23
dat, pQ24
a withQ25
      Q26
mod3_rQ27
h w_daQ28
    II
 ciPOCET
 witQ29
* Q30
 @ 1Q31
y w_P_UNOR
  ST_ZAZ
 sW_ROK
W_DAT
colMROK
DATUM
 @ MOD3_RT
atCIS_TYDNE
_RRTT
5 saPERIODA
do proc&y
do zmen&y with 'get'
do zmen&y with 'say'
KONEC
e yeA
t)=mX
   DOL
w(w_daII
)=7HOR
   .Q
th(POCET
2.aJJ
y(w_dP_UNOR
colora
set color to &color
   COLOR
e yeOBR
t)=mU
DATEa
british
_RRttf
store ctod("01/01/&_RR") to dat1
set date to &_save_date
   _SAVE_DATEBRITISH
=m_RRTT
   _RR
w(w_daROZDIL
. dDAT1
)=7_TT
ontMOD38A
PORADI
PROC1
ZMEN1
ZMENY
HLASKA
MOD3_RT
W:\03\
MOD38A.FXP
W:\03\MOD38A.PRG