home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 June / Chip_1999-06_cd.bin / tema / SoWa / OBEC.EXE / 06 / MOD69A.FXP (.txt) < prev    next >
MS Visual FoxPro App  |  1998-03-03  |  10KB  |  177 lines
  1. MOD69AX
  2. dpW_ROK
  3. m6_svat
  4. m6_kal
  5. cdatum
  6. RIIS 6.1
  7. Aktualizace pracovn
  8. ch dn
  9.  a sv
  10.  kalend
  11. ho roku:
  12. set color to b/w
  13. set color to bg/n
  14. set color to w+/bg
  15. set color to b/bg,w+/rb
  16. set color to w+/b
  17. set color to w/n
  18. Chybn
  19.  zadan
  20.  kalend
  21. &barvau
  22.  vzorec v
  23. tu velikonoc
  24.  vzorec v
  25. tu velikonoc
  26. .01.01
  27. ik strpen
  28. , pros
  29. m. Prob
  30. generov
  31. ho kalend
  32. ho roku.
  33. Datum:
  34. m6_kal
  35. m, ozna
  36. te dal
  37. tky (S - placen
  38. , N - neplacen
  39. .02.28
  40. znam 
  41. znam 
  42.  Konec 
  43. Opravdu zru
  44. it tento z
  45. znam? (a/N)
  46. dpW_ROK
  47.  nasM6_SVAT
  48. ytDEN
  49. bM6_KAL
  50. et CDATUM
  51.         BARVAS
  52.  baBARVAR
  53. BARVAZ
  54. ***BARVAU
  55. ***BARVAN
  56. BARVAH
  57. arvBARVA
  58. ****MENU
  59. ***PORADI
  60. ***MROK
  61. *****HLASKA
  62. ***KONEC
  63. o meHOR
  64. arva=bDOL
  65. do pI
  66. * --R
  67. ---- ZZ
  68.  kalenU
  69. niho rokT
  70. --------Q
  71. do whiA
  72. k = 0
  73.  POCET
  74. 5 geST_ZAZ
  75. ictII
  76.  cursorMROKZ
  77.  reaMROKC
  78. et cB
  79. readkTXT
  80. 2 or M
  81.       rD
  82.    if DE
  83.  < 1900DAT_VEL
  84. DAT_VELN
  85. <DAT_VELP
  86. W_DAT
  87. W_PERIODA
  88. DATUM
  89. PERIODA
  90. P_UNOR
  91. oopZMENY
  92. VOL11
  93. enOBR1
  94.  ----POM
  95. ------
  96.  1.Leden
  97.  4.Duben
  98.  5.Kv
  99. erven
  100. ervenec
  101.  8.Srpen
  102. 11.Listopad
  103. 12.Prosinec
  104. P-pracovn
  105.  den,  S-placen
  106. tek,  N-neplacen
  107.                      1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 2 2 2 2 2 3 3
  108.    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
  109. Konec pr
  110.  datum
  111. - Esc
  112. ,<Enter>
  113.  nasW_ROK
  114. ytHOR
  115. @ x,15+2*q  &vloz w_rok(ii,q) pict '!X'
  116.  nasQ2
  117. et Q5
  118.  w/Q6
  119.        Q7
  120.  baQ8
  121. ***Q10
  122. ***Q11
  123. arvQ13
  124. ****Q14
  125. ***Q15
  126. ***Q16
  127. *****Q17
  128. ***Q18
  129. o meQ19
  130. arva=bQ20
  131. do pQ21
  132. * --Q22
  133. ---- ZQ23
  134.  kalenQ24
  135. ho rokQ25
  136. ------Q26
  137. do whiQ27
  138.    Q28
  139. 5 gePOCET
  140. ictQ29
  141.   Q30
  142. cursorQ31
  143.  reaP_UNOR
  144. ST_ZAZ
  145. adkW_ROK
  146.  or A
  147. )=2W_DAT
  148.   rMROK
  149.   ePERIODA
  150. do proc&y
  151. do zmen&y with 'get'
  152. do zmen&y with 'say'
  153. KONEC
  154.  nasA
  155. et II
  156.        HOR
  157. arvPOCET
  158. ****JJ
  159. ***P_UNOR
  160. colora
  161. set color to &color
  162. dpCOLOR
  163.  nasOBR
  164. ytMOD69AX
  165. PORADI
  166. sor 0
  167. PROC1
  168. r off
  169. ZMEN1
  170. adkey
  171. ZMENY
  172. eadke[
  173. HLASKA
  174. X:\OBEC\06\
  175. MOD69A.FXP
  176. X:\OBEC\06\MOD69A.PRG
  177.