Rev 3889 | Go to most recent revision | Details | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
3887 | leency | 1 | ; program data: colors, text, vars (todo) |
2 | |||
3 | ; colors |
||
4 | COL_WINDOW_BG equ 0x14aabbcc |
||
5 | COL_WEEKDAY_BG equ 0xCCCDDD |
||
6 | COL_DATES_BG equ 0xE7E7E7 |
||
7 | COL_DATE_BUTTONS equ 0xE7E7E7 |
||
8 | COL_DATE_CURRENT equ 0x31A4D0 |
||
9 | COL_DATE_CHANGED equ 0xef7840 |
||
10 | COL_TIME_BUTTONS equ 0x5555dd |
||
11 | COL_GO_TODAY_T equ 0xd048c8 |
||
12 | COL_MONTH_YEAR_B equ 0x05080d0 |
||
13 | |||
14 | COL_NEW_STYLE_T equ 0xac0000 |
||
15 | |||
16 | ; multilanguage interface - configuratable in lang.inc |
||
17 | day_count db 3,0,3,2,3,2,3,3,2,3,2,3 |
||
18 | Fkeys db 210,211,212,213,214,215,216,217,208,209,228,159 |
||
19 | |||
20 | month_name: |
||
21 | if lang eq ru |
||
22 | db 8 |
||
23 | db 'Январь ' |
||
24 | db 'Февраль ' |
||
25 | db 'Март ' |
||
26 | db 'Апрель ' |
||
27 | db 'Май ' |
||
28 | db 'Июнь ' |
||
29 | db 'Июль ' |
||
30 | db 'Август ' |
||
31 | db 'Сентябрь' |
||
32 | db 'Октябрь ' |
||
33 | db 'Ноябрь ' |
||
34 | db 'Декабрь ' |
||
35 | else if lang eq de |
||
36 | db 9 |
||
37 | db 'Januar ' |
||
38 | db 'Februar ' |
||
39 | db 'M+rz ' |
||
40 | db 'April ' |
||
41 | db 'Mai ' |
||
42 | db 'Juni ' |
||
43 | db 'Juli ' |
||
44 | db 'August ' |
||
45 | db 'September' |
||
46 | db 'Oktober ' |
||
47 | db 'November ' |
||
48 | db 'Dezember ' |
||
49 | else if lang eq fr |
||
50 | db 9 |
||
51 | db 'Janvier ' |
||
52 | db 'Fevrier ' |
||
53 | db 'Mars ' |
||
54 | db 'Avril ' |
||
55 | db 'Mai ' |
||
56 | db 'Juin ' |
||
57 | db 'Juliet ' |
||
58 | db 'Aout ' |
||
59 | db 'Septembre' |
||
60 | db 'Octobre ' |
||
61 | db 'Novembre ' |
||
62 | db 'Decembre ' |
||
63 | else if lang eq fi |
||
64 | db 9 |
||
65 | db 'Tammikuu ' |
||
66 | db 'Helmikuu ' |
||
67 | db 'Maaliskuu' |
||
68 | db 'Huhtikuu ' |
||
69 | db 'Toukokuu ' |
||
70 | db 'Kes+kuu ' |
||
71 | db 'Hein+kuu ' |
||
72 | db 'Elokuu ' |
||
73 | db 'Syyskuu ' |
||
74 | db 'Lokakuu ' |
||
75 | db 'Marraskuu' |
||
76 | db 'Joulukuu ' |
||
77 | else if lang eq et |
||
78 | db 9 |
||
79 | db 'Jaanuar ' |
||
80 | db 'Veebruar ' |
||
81 | db 'Mфrts ' |
||
82 | db 'Aprill ' |
||
83 | db 'Mai ' |
||
84 | db 'Juuni ' |
||
85 | db 'Juuli ' |
||
86 | db 'August ' |
||
87 | db 'September' |
||
88 | db 'Oktoober ' |
||
89 | db 'November ' |
||
90 | db 'Detsember' |
||
91 | else if lang eq it |
||
92 | db 9 |
||
93 | db 'Gennaio ' |
||
94 | db 'Febbraio ' |
||
95 | db 'Marzo ' |
||
96 | db 'Aprile ' |
||
97 | db 'Maggio ' |
||
98 | db 'Giugno ' |
||
99 | db 'Luglio ' |
||
100 | db 'Agosto ' |
||
101 | db 'Settembre' |
||
102 | db 'Ottobre ' |
||
103 | db 'Novembre ' |
||
104 | db 'Dicembre ' |
||
105 | else |
||
106 | db 9 |
||
107 | db 'January ' |
||
108 | db 'February ' |
||
109 | db 'March ' |
||
110 | db 'April ' |
||
111 | db 'May ' |
||
112 | db 'June ' |
||
113 | db 'July ' |
||
114 | db 'August ' |
||
115 | db 'September' |
||
116 | db 'October ' |
||
117 | db 'November ' |
||
118 | db 'December ' |
||
119 | end if |
||
120 | spinner db '< >' |
||
121 | week_days: |
||
122 | if lang eq ru |
||
123 | db 2 |
||
124 | db 1 |
||
125 | db 'Пн' |
||
126 | db 'Вт' |
||
127 | db 'Ср' |
||
128 | db 'Чт' |
||
129 | db 'Пт' |
||
130 | db 'Сб' |
||
131 | db 'Вс' |
||
132 | else if lang eq de |
||
133 | db 2 |
||
134 | db 7 |
||
135 | db 'So' |
||
136 | db 'Mo' |
||
137 | db 'Di' |
||
138 | db 'Mi' |
||
139 | db 'Do' |
||
140 | db 'Fr' |
||
141 | db 'Sa' |
||
142 | else if lang eq fr |
||
143 | db 3 |
||
144 | db 7 |
||
145 | db 'Dim' |
||
146 | db 'Lun' |
||
147 | db 'Mar' |
||
148 | db 'Mer' |
||
149 | db 'Jeu' |
||
150 | db 'Ven' |
||
151 | db 'Sam' |
||
152 | else if lang eq fi |
||
153 | db 2 |
||
154 | db 7 |
||
155 | db 'Su' |
||
156 | db 'Ma' |
||
157 | db 'Ti' |
||
158 | db 'Ke' |
||
159 | db 'To' |
||
160 | db 'Pe' |
||
161 | db 'La' |
||
162 | else if lang eq et |
||
163 | db 3 |
||
164 | db 7 |
||
165 | db 'Esm' |
||
166 | db 'Tei' |
||
167 | db 'Kol' |
||
168 | db 'Nel' |
||
169 | db 'Ree' |
||
170 | db 'Lau' |
||
171 | db 'P№h' |
||
172 | else if lang eq it |
||
173 | db 3 |
||
174 | db 7 |
||
175 | db 'Dom' |
||
176 | db 'Lun' |
||
177 | db 'Mar' |
||
178 | db 'Mer' |
||
179 | db 'Gio' |
||
180 | db 'Ven' |
||
181 | db 'Sab' |
||
182 | else |
||
183 | db 3 |
||
184 | db 7 |
||
185 | db 'Sun' |
||
186 | db 'Mon' |
||
187 | db 'Tue' |
||
188 | db 'Wen' |
||
189 | db 'Thi' |
||
190 | db 'Fri' |
||
191 | db 'Sat' |
||
192 | end if |
||
193 | |||
194 | title: ; строка заголовка |
||
195 | if lang eq ru |
||
196 | db 'Календарь',0 |
||
197 | else if lang eq ge |
||
198 | db 'Kalender',0 |
||
199 | else if lang eq fr |
||
200 | db 'Calendrier',0 |
||
201 | else if lang eq et |
||
202 | db 'Kalender',0 |
||
203 | else if lang eq it |
||
204 | db 'Calendario',0 |
||
205 | else |
||
206 | db 'Calendar',0 |
||
207 | end if |
||
208 | |||
209 | n_style: |
||
210 | if lang eq ru |
||
211 | db 'Новый стиль' |
||
212 | else if lang eq de |
||
213 | db 'Neuer Stil' |
||
214 | else if lang eq fr |
||
215 | db 'Nouveau' |
||
216 | else if lang eq et |
||
217 | db 'Uus stiil' |
||
218 | else if lang eq it |
||
219 | db 'Nuovo stile' |
||
220 | else |
||
221 | db 'New style' |
||
222 | end if |
||
223 | ns_end: |
||
224 | today_msg: |
||
225 | if lang eq ru |
||
226 | db 'Сегодня' |
||
227 | else if lang eq ge |
||
228 | db 'Heute' |
||
229 | else if lang eq fr |
||
230 | db "Aujourd'hui" |
||
231 | else if lang eq et |
||
232 | db 'Tфna' |
||
233 | else if lang eq it |
||
234 | db 'Oggi' |
||
235 | else |
||
236 | db 'Today' |
||
237 | end if |
||
238 | today_end: |
||
239 | focus dd 3 |
||
240 | new_style dd 1 |
||
241 | dropped db 0 |
||
242 | |||
243 | sys_text: |
||
244 | if lang eq ru |
||
245 | db 'Время:',0 |
||
246 | else if lang eq it |
||
247 | db ' Ora:',0 |
||
248 | else |
||
249 | db ' Time:',0 |
||
250 | end if |
||
251 | plus db '(+)',0 |
||
252 | minus db '(-)',0 |
||
253 | set_date_t: |
||
254 | if lang eq ru |
||
255 | db 'Установить дату',0 |
||
256 | else if lang eq it |
||
257 | db 'Impostazioni',0 |
||
258 | else |
||
259 | db 'Установить дату',0 |
||
260 | end if> |