home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 June / Chip_1999-06_cd.bin / tema / SoWa / OBEC.EXE / 03 / MOD38A.FXP (.txt) < prev   
MS Visual FoxPro App  |  1998-05-18  |  9KB  |  179 lines
  1. m_kal
  2. cdatum
  3. RIIS 5.1
  4. Aktualizace period kalend
  5. ho roku:
  6. set color to b/w
  7. set color to bg/n
  8. set color to w+/bg
  9. set color to b/bg,w+/rb
  10. set color to w+/b
  11. set color to w/n
  12. Chybn
  13.  zadan
  14.  kalend
  15.  rok, p
  16. lku se nevrac
  17. me ...
  18. Roky totality jsou u
  19. vno za n
  20. &barvau
  21. .01.01
  22. Datum: 
  23. bg/bg
  24. &barvau
  25. Opravte, pros
  26. m, sv
  27. tky a dovolenou.
  28. .02.28
  29. znam 
  30. znam 
  31.  Konec 
  32. Opravdu zru
  33. it tento z
  34. znam? (a/N)
  35.    W_ROK
  36. e yeM_KAL
  37. t)=mCDATUM
  38. dow(w_daBARVAS
  39. . dBARVAR
  40. )=7BARVAZ
  41. ontBARVAU
  42. =1.BARVAN
  43. w_dBARVAH
  44.   BARVA
  45.    .MENU
  46. th(PORADI
  47. 2.aMROK
  48. y(w_dTXT
  49. .or. HLASKA
  50. t)=KONEC
  51.    HOR
  52.     DOL
  53. appendI
  54.  replaZ
  55. tum wiU
  56. w_dat, pT
  57. oda withQ
  58.        A
  59. o mod3_rY
  60. ith w_daPOCET
  61.     ST_ZAZ
  62.  ciII
  63. dne witJJ
  64. * MROKC
  65.  @ 1W_DAT
  66. y w_DATUM
  67. t '@PERIODA
  68.   MOD3_RT
  69.  sCIS_TYDNE
  70. _RRTT
  71.  colW
  72. RIODA
  73. P_UNOR
  74.  @ ZMENY
  75. datVOL11
  76. ay(wOBR1
  77. 15 saPOM
  78.  colorz
  79.  1.Leden
  80.  4.Duben
  81.  5.Kv
  82. erven
  83. ervenec
  84.  8.Srpen
  85. 11.Listopad
  86. 12.Prosinec
  87.                      1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 2 2 2 2 2 3 3
  88.    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
  89. Konec pr
  90.  datum
  91. - Esc
  92. ,<Enter>
  93.    JJ
  94. e yeHOR
  95. t)=mW_ROK
  96. @ x,15+2*q  &vloz w_rok(ii,q) pict 'X'
  97.    Q1
  98. e yeQ2
  99. t)=mQ3
  100.    Q4
  101. ow(w_daQ5
  102. . dQ6
  103. )=7Q7
  104. ontQ8
  105. =1.Q9
  106. w_dQ10
  107.   Q11
  108.    .Q12
  109. th(Q13
  110. 2.aQ14
  111. y(w_dQ15
  112. .or. Q16
  113. t)=Q17
  114.    Q18
  115.     Q19
  116. appendQ20
  117.    Q21
  118.  replaQ22
  119. tum wiQ23
  120. dat, pQ24
  121. a withQ25
  122.       Q26
  123. mod3_rQ27
  124. h w_daQ28
  125.     II
  126.  ciPOCET
  127.  witQ29
  128. * Q30
  129.  @ 1Q31
  130. y w_P_UNOR
  131.   ST_ZAZ
  132.  sW_ROK
  133. W_DAT
  134. colMROK
  135. DATUM
  136.  @ MOD3_RT
  137. atCIS_TYDNE
  138. _RRTT
  139. 5 saPERIODA
  140. do proc&y
  141. do zmen&y with 'get'
  142. do zmen&y with 'say'
  143. KONEC
  144. e yeA
  145. t)=mX
  146.    DOL
  147. w(w_daII
  148. )=7HOR
  149.    .Q
  150. th(POCET
  151. 2.aJJ
  152. y(w_dP_UNOR
  153. colora
  154. set color to &color
  155.    COLOR
  156. e yeOBR
  157. t)=mU
  158. DATEa
  159. british
  160. _RRttf
  161. store ctod("01/01/&_RR") to dat1
  162. set date to &_save_date
  163.    _SAVE_DATEBRITISH
  164. =m_RRTT
  165.    _RR
  166. w(w_daROZDIL
  167. . dDAT1
  168. )=7_TT
  169. ontMOD38A
  170. PORADI
  171. PROC1
  172. ZMEN1
  173. ZMENY
  174. HLASKA
  175. MOD3_RT
  176. W:\03\
  177. MOD38A.FXP
  178. W:\03\MOD38A.PRG
  179.