MOD69AX
dpW_ROK
m6_svat
m6_kal
cdatum
RIIS 6.1
Aktualizace pracovn
ch dn
 a sv
 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
&barvau
 vzorec v
tu velikonoc
 vzorec v
tu velikonoc
.01.01
ik strpen
, pros
m. Prob
generov
ho kalend
ho roku.
Datum:
m6_kal
m, ozna
te dal
tky (S - placen
, N - neplacen
.02.28
znam 
znam 
 Konec 
Opravdu zru
it tento z
znam? (a/N)
dpW_ROK
 nasM6_SVAT
ytDEN
bM6_KAL
et CDATUM
        BARVAS
 baBARVAR
BARVAZ
***BARVAU
***BARVAN
BARVAH
arvBARVA
****MENU
***PORADI
***MROK
*****HLASKA
***KONEC
o meHOR
arva=bDOL
do pI
* --R
---- ZZ
 kalenU
niho rokT
--------Q
do whiA
k = 0
 POCET
5 geST_ZAZ
ictII
 cursorMROKZ
 reaMROKC
et cB
readkTXT
2 or M
      rD
   if DE
 < 1900DAT_VEL
DAT_VELN
<DAT_VELP
W_DAT
W_PERIODA
DATUM
PERIODA
P_UNOR
oopZMENY
VOL11
enOBR1
 ----POM
------
 1.Leden
 4.Duben
 5.Kv
erven
ervenec
 8.Srpen
11.Listopad
12.Prosinec
P-pracovn
 den,  S-placen
tek,  N-neplacen
                     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>
 nasW_ROK
ytHOR
@ x,15+2*q  &vloz w_rok(ii,q) pict '!X'
 nasQ2
et Q5
 w/Q6
       Q7
 baQ8
***Q10
***Q11
arvQ13
****Q14
***Q15
***Q16
*****Q17
***Q18
o meQ19
arva=bQ20
do pQ21
* --Q22
---- ZQ23
 kalenQ24
ho rokQ25
------Q26
do whiQ27
   Q28
5 gePOCET
ictQ29
  Q30
cursorQ31
 reaP_UNOR
ST_ZAZ
adkW_ROK
 or A
)=2W_DAT
  rMROK
  ePERIODA
do proc&y
do zmen&y with 'get'
do zmen&y with 'say'
KONEC
 nasA
et II
       HOR
arvPOCET
****JJ
***P_UNOR
colora
set color to &color
dpCOLOR
 nasOBR
ytMOD69AX
PORADI
sor 0
PROC1
r off
ZMEN1
adkey
ZMENY
eadke[
HLASKA
X:\OBEC\06\
MOD69A.FXP
X:\OBEC\06\MOD69A.PRG