1 | TITLE TO-GRAPH: constantes
|
---|
2 | * ------------------------------
|
---|
3 | PAGE
|
---|
4 |
|
---|
5 | ****************************************
|
---|
6 | * *
|
---|
7 | * constantes *
|
---|
8 | * *
|
---|
9 | ****************************************
|
---|
10 |
|
---|
11 | ****************************************
|
---|
12 | * F E N E T R E S *
|
---|
13 | ****************************************
|
---|
14 |
|
---|
15 | * Fenêtre vide (pour activer une boucle
|
---|
16 | * d'attente par FEN (avec déplacement
|
---|
17 | * tortue de pointage sans zone optique
|
---|
18 | * active !)
|
---|
19 | *---------------------------------------
|
---|
20 |
|
---|
21 | FENVID FCB FSTOP
|
---|
22 |
|
---|
23 | * Fenêtre principale
|
---|
24 | *---------------------------------------
|
---|
25 |
|
---|
26 | FENPRI FCB FLOCA,20,2,0,0
|
---|
27 | FCB FEDI
|
---|
28 | FCC \Ceciestl'\
|
---|
29 | FCB SS2,AIGU
|
---|
30 | FCC \ecrandefonddelad\
|
---|
31 | FCB SS2,AIGU
|
---|
32 | FCC \emo\
|
---|
33 | FCB RC,LF
|
---|
34 | FCC \Danscelui-ciiln'ya\
|
---|
35 | FCC \pasdezoneopti--que\
|
---|
36 | FCC \active !!!\
|
---|
37 | FCB 0
|
---|
38 | FCB FSTOP
|
---|
39 |
|
---|
40 | * Fenêtre de démonstration
|
---|
41 | *---------------------------------------
|
---|
42 |
|
---|
43 | FENINF FCB FLOCF,0,0,16,23
|
---|
44 | FCB FCOULF,VERTCL
|
---|
45 | FCB FTRAME,FTOURI
|
---|
46 | FCB FLOCF,1,1,1,21
|
---|
47 | FCB FCOULF,BLANC
|
---|
48 | FCB FFOND,FTOURE,FCADRE
|
---|
49 | FCB FCOULF,TRANSP
|
---|
50 | FCB FEDI,$1B,$4E
|
---|
51 | FCC \INFO\
|
---|
52 | FCB $1B,$4C,0
|
---|
53 |
|
---|
54 | FCB FLOCF,3,1,10,21
|
---|
55 | FCB FFOND,FTOURE,FCADRE
|
---|
56 |
|
---|
57 | FCB FLOCF,4,1,1,21
|
---|
58 | FCB FEDI
|
---|
59 | FCC \TourPaletteBVR\
|
---|
60 | FCB 0
|
---|
61 |
|
---|
62 | * la définition du carreau ci-dessous
|
---|
63 | * sert à disposer d'une méthode simple
|
---|
64 | * (FENCH+FENFOND) pour changer le
|
---|
65 | * contenu de ce carreaux sans en connai-
|
---|
66 | * -tre la position ! De ce fait, le
|
---|
67 | * poussoir associé restera toujours
|
---|
68 | * INTERD !
|
---|
69 |
|
---|
70 | FCB FLOCF,6,2,4,2
|
---|
71 | FCB FCOULF,PARME
|
---|
72 | FCB FFOND,FTOURE,FCADRE
|
---|
73 | FCB FCOULF,TRANSP
|
---|
74 | FCB FPOUSS,'X,INTERD
|
---|
75 |
|
---|
76 | FCB FLOCF,6,5,2,1
|
---|
77 | FCB FTOURE
|
---|
78 | FCB FTEXTE,'+,'-,0
|
---|
79 | FCB FLOCR,0,0,1,1
|
---|
80 | FCB FTOURI
|
---|
81 | FCB FPOUSS,'T,OFF
|
---|
82 | FCB FLOCR,1,0,1,1
|
---|
83 | FCB FTOURI
|
---|
84 | FCB FPOUSS,'U,OFF
|
---|
85 |
|
---|
86 | FCB FLOCF,9,5,1,2
|
---|
87 | FCB FTOURE,FCADRE
|
---|
88 | FCB FPOUSS,'Y,INTERD
|
---|
89 |
|
---|
90 | FCB FLOCF,6,9,4,2
|
---|
91 | FCB FCOULF,ORANGE
|
---|
92 | FCB FFOND,FTOURE,FCADRE
|
---|
93 | FCB FCOULF,TRANSP
|
---|
94 |
|
---|
95 | FCB FLOCF,6,12,2,1
|
---|
96 | FCB FTOURE
|
---|
97 | FCB FTEXTE,'+,'-,0
|
---|
98 | FCB FLOCR,0,0,1,1
|
---|
99 | FCB FTOURI
|
---|
100 | FCB FPOUSS,'P,OFF
|
---|
101 | FCB FLOCR,1,0,1,1
|
---|
102 | FCB FTOURI
|
---|
103 | FCB FPOUSS,'Q,OFF
|
---|
104 |
|
---|
105 | FCB FLOCF,9,12,1,2
|
---|
106 | FCB FTOURE,FCADRE
|
---|
107 | FCB FPOUSS,'Z,INTERD
|
---|
108 |
|
---|
109 | FCB FLOCF,6,16,2,1
|
---|
110 | FCB FTOURE
|
---|
111 | FCB FTEXTE,'+,'-,0
|
---|
112 | FCB FLOCR,0,0,1,1
|
---|
113 | FCB FTOURI
|
---|
114 | FCB FPOUSS,'B,OFF
|
---|
115 | FCB FLOCR,1,0,1,1
|
---|
116 | FCB FTOURI
|
---|
117 | FCB FPOUSS,'C,OFF
|
---|
118 |
|
---|
119 | FCB FLOCF,6,18,2,1
|
---|
120 | FCB FTOURE
|
---|
121 | FCB FTEXTE,'+,'-,0
|
---|
122 | FCB FLOCR,0,0,1,1
|
---|
123 | FCB FTOURI
|
---|
124 | FCB FPOUSS,'V,OFF
|
---|
125 | FCB FLOCR,1,0,1,1
|
---|
126 | FCB FTOURI
|
---|
127 | FCB FPOUSS,'W,OFF
|
---|
128 |
|
---|
129 | FCB FLOCF,6,20,2,1
|
---|
130 | FCB FTOURE
|
---|
131 | FCB FTEXTE,'+,'-,0
|
---|
132 | FCB FLOCR,0,0,1,1
|
---|
133 | FCB FTOURI
|
---|
134 | FCB FPOUSS,'R,OFF
|
---|
135 | FCB FLOCR,1,0,1,1
|
---|
136 | FCB FTOURI
|
---|
137 | FCB FPOUSS,'S,OFF
|
---|
138 |
|
---|
139 | FCB FLOCF,9,16,1,5
|
---|
140 | FCB FTOURE,FCADRE
|
---|
141 | FCB FEDI
|
---|
142 | FCC \--\
|
---|
143 | FCB 0
|
---|
144 | FCB FPOUSS,'H,INTERD
|
---|
145 |
|
---|
146 | FCB FLOCF,11,2,1,4
|
---|
147 | FCB FEDI
|
---|
148 | FCC \Mode\
|
---|
149 | FCB 0
|
---|
150 | FCB FLOCR,0,5,1,14
|
---|
151 | FCB FTOURE,FCADRE
|
---|
152 | FCB FPOUSS,'M,OFF
|
---|
153 |
|
---|
154 | FCB FLOCF,14,1,1,21
|
---|
155 | FCB FFOND,FTOURE,FCADRE
|
---|
156 |
|
---|
157 | FCB FTEXTE
|
---|
158 | FCC \Ok\
|
---|
159 | FCB BALISE
|
---|
160 | FCC \Annuler\
|
---|
161 | FCB BALISE,0
|
---|
162 | FCB FLOCR,0,5,1,1
|
---|
163 | FCB FPOUSS,RC,OFF
|
---|
164 | FCB FLOCR,0,13,1,1
|
---|
165 | FCB FPOUSS,FF,OFF
|
---|
166 | FCB FSTOP
|
---|
167 |
|
---|
168 | * Fenêtre de démonstration 1
|
---|
169 | *---------------------------------------
|
---|
170 |
|
---|
171 | FENDEM FCB FLOCF,0,0,21,25
|
---|
172 | FCB FCOULF,VERTCL
|
---|
173 | FCB FTRAME,FTOURI
|
---|
174 | FCB FCOULF,TRANSP
|
---|
175 | FCB FCOMF,FF,OFF
|
---|
176 |
|
---|
177 | FCB FLOCF,1,1,9,23
|
---|
178 | FCB FFOND,FTOURE,FCADRE
|
---|
179 |
|
---|
180 | FCB FLOCF,2,2,1,23
|
---|
181 | FCB FEDI
|
---|
182 | FCC \SaisieTexte\
|
---|
183 | FCB 0
|
---|
184 | FCB FLOCR,0,13,1,8
|
---|
185 | FCB FTOURE,FCADRE
|
---|
186 | * champ de saisie en texte
|
---|
187 | * le code 130 servira à lire le
|
---|
188 | * texte saisie
|
---|
189 | FCB FCZI,130,TEXTE
|
---|
190 |
|
---|
191 | FCB FLOCF,4,2,1,23
|
---|
192 | FCB FEDI
|
---|
193 | FCC \SaisieHexa\
|
---|
194 | FCB 0
|
---|
195 | FCB FLOCR,0,17,1,4
|
---|
196 | FCB FTOURE,FCADRE
|
---|
197 | * champ de saisie en hexa
|
---|
198 | * le code 131 servira à lire le
|
---|
199 | * texte saisie
|
---|
200 | FCB FCZI,131,HEXA
|
---|
201 |
|
---|
202 | FCB FLOCF,6,2,1,23
|
---|
203 | FCB FEDI
|
---|
204 | FCC \SaisieD\
|
---|
205 | FCB SS2,AIGU
|
---|
206 | FCC \ecimale\
|
---|
207 | FCB 0
|
---|
208 | FCB FLOCR,0,17,1,4
|
---|
209 | FCB FTOURE,FCADRE
|
---|
210 | * champ de saisie en décimal
|
---|
211 | * le code 132 servira à lire le
|
---|
212 | * texte saisie
|
---|
213 | FCB FCZI,132,DECIM
|
---|
214 |
|
---|
215 | FCB FLOCF,8,2,1,23
|
---|
216 | FCB FEDI
|
---|
217 | FCC \Inverseur\
|
---|
218 | FCB 0
|
---|
219 | FCB FLOCR,0,17,1,1
|
---|
220 | FCB FTEXTE,BALISE,0
|
---|
221 | * Inverseur
|
---|
222 | * le code 133 servira à mani-
|
---|
223 | * puler l'inverseur au clavier et
|
---|
224 | * à en lire la valeur !!!
|
---|
225 | FCB FINV,133,OFF
|
---|
226 |
|
---|
227 | FCB FLOCF,11,1,9,23
|
---|
228 | FCB FFOND,FTOURE,FCADRE
|
---|
229 |
|
---|
230 | FCB FLOCF,12,2,1,23
|
---|
231 | FCB FEDI
|
---|
232 | FCC \LireTexte\
|
---|
233 | FCB 0
|
---|
234 | FCB FLOCR,0,11,1,1
|
---|
235 | FCB FTEXTE,BALISE,0
|
---|
236 | FCB FPOUSS,134,OFF
|
---|
237 |
|
---|
238 | FCB FLOCF,14,2,1,23
|
---|
239 | FCB FEDI
|
---|
240 | FCC \LireHexa\
|
---|
241 | FCB 0
|
---|
242 | FCB FLOCR,0,11,1,1
|
---|
243 | FCB FTEXTE,BALISE,0
|
---|
244 | FCB FPOUSS,135,OFF
|
---|
245 |
|
---|
246 | FCB FLOCF,16,2,1,23
|
---|
247 | FCB FEDI
|
---|
248 | FCC \LireD\
|
---|
249 | FCB SS2,AIGU
|
---|
250 | FCC \ecim\
|
---|
251 | FCB 0
|
---|
252 | FCB FLOCR,0,11,1,1
|
---|
253 | FCB FTEXTE,BALISE,0
|
---|
254 | FCB FPOUSS,136,OFF
|
---|
255 |
|
---|
256 | FCB FLOCF,18,2,1,23
|
---|
257 | FCB FEDI
|
---|
258 | FCC \LireInv.\
|
---|
259 | FCB 0
|
---|
260 | FCB FLOCR,0,11,1,1
|
---|
261 | FCB FTEXTE,BALISE,0
|
---|
262 | FCB FPOUSS,137,OFF
|
---|
263 |
|
---|
264 | * champ pour visu des lectures
|
---|
265 | * le code 140 servira à positionner
|
---|
266 | * les éditions sans en connaitre
|
---|
267 | * la position
|
---|
268 | FCB FLOCF,15,15,1,8
|
---|
269 | FCB FTOURE,FCADRE
|
---|
270 | FCB FPOUSS,140,INTERD
|
---|
271 |
|
---|
272 | FCB FSTOP
|
---|
273 |
|
---|
274 | * Menu déroulant
|
---|
275 | *---------------------------------------
|
---|
276 |
|
---|
277 | FENMEN FCB FLOCF,0,0,11,18
|
---|
278 | FCB FCOULF,BLEUCI
|
---|
279 | FCB FFOND,FTOURE,FCADRE
|
---|
280 | FCB FCOMF,FF,OFF
|
---|
281 | FCB FLOCF,1,9,1,10
|
---|
282 | FCB FEDI
|
---|
283 | FCC \bank\
|
---|
284 | FCB 0
|
---|
285 | FCB FLOCF,1,14,1,2
|
---|
286 | FCB FCOULF,BLANC
|
---|
287 | FCB FFOND,FTOURE,FCADRE
|
---|
288 | FCB FCOULF,TRANSP
|
---|
289 | FCB FLOCF,3,1,1,16
|
---|
290 | FCB FPOUSS,'D,OFF
|
---|
291 | FCB FEDI
|
---|
292 | FCC \DEMONSTRATION\
|
---|
293 | FCB 0
|
---|
294 | FCB FLOCR,2,0,1,16
|
---|
295 | FCB FPOUSS,'G,OFF
|
---|
296 | FCB FEDI
|
---|
297 | FCC \GRILLE\
|
---|
298 | FCB 0
|
---|
299 | FCB FLOCR,2,0,1,16
|
---|
300 | FCB FPOUSS,'F,OFF
|
---|
301 | FCB FEDI
|
---|
302 | FCC \FICHIERS\
|
---|
303 | FCB 0
|
---|
304 | FCB FLOCR,2,0,1,16
|
---|
305 | FCB FPOUSS,'Q,OFF
|
---|
306 | FCB FEDI
|
---|
307 | FCC \QUITTER\
|
---|
308 | FCB 0
|
---|
309 | FCB FSTOP
|
---|
310 |
|
---|
311 | * Fenêtre titre
|
---|
312 | *---------------------------------------
|
---|
313 |
|
---|
314 | FENTIT FCB FLOCF,0,0,6,19 titre
|
---|
315 | FCB FCOULF,ORANGE
|
---|
316 | FCB FFOND,FTOURE,FCADRE
|
---|
317 | FCB FLOCR,1,2,20,20
|
---|
318 | FCB FEDI
|
---|
319 | FCC \TO-DEMO\
|
---|
320 | FCB 0
|
---|
321 | FCB FLOCR,2,4,20,20
|
---|
322 | FCB FEDI
|
---|
323 | FCC \HMEL-92V1.0\
|
---|
324 | FCB 0
|
---|
325 | FCB FSTOP
|
---|
326 |
|
---|
327 | * Fenêtre gestion fichier
|
---|
328 | *---------------------------------------
|
---|
329 |
|
---|
330 | FENFIC FCB FLOCF,0,0,19,20
|
---|
331 | FCB FCOULF,BLEUCI
|
---|
332 | FCB FTOURE,FCADRE,FFOND
|
---|
333 | FCB FCOMF,FF,ON
|
---|
334 | FCB FLOCF,1,1,1,14
|
---|
335 | FCB FPOUSS,'P,OFF
|
---|
336 | FCB FEDI
|
---|
337 | FCC \Pr\
|
---|
338 | FCB SS2,$42
|
---|
339 | FCC \eciserunit\
|
---|
340 | FCB SS2,$42,$65
|
---|
341 | FCB 0
|
---|
342 | FCB FLOCR,2,0,1,14
|
---|
343 | FCB FPOUSS,'I,OFF
|
---|
344 | FCB FEDI
|
---|
345 | FCC \Initialiser\
|
---|
346 | FCB 0
|
---|
347 | FCB FLOCR,2,0,1,18
|
---|
348 | FCB FPOUSS,'C,OFF
|
---|
349 | FCB FEDI
|
---|
350 | FCC \Catalogue\
|
---|
351 | FCB 0
|
---|
352 | FCB FLOCR,2,0,1,18
|
---|
353 | FCB FPOUSS,'R,OFF
|
---|
354 | FCB FEDI
|
---|
355 | FCC \Renommerfichier\
|
---|
356 | FCB 0
|
---|
357 | FCB FLOCR,2,0,1,18
|
---|
358 | FCB FPOUSS,'S,OFF
|
---|
359 | FCB FEDI
|
---|
360 | FCC \Supprimerfichier\
|
---|
361 | FCB 0
|
---|
362 | FCB FLOCR,2,0,1,18
|
---|
363 | FCB FPOUSS,'D,OFF
|
---|
364 | FCB FEDI
|
---|
365 | FCC \Dupliquerfichier\
|
---|
366 | FCB 0
|
---|
367 | FCB FLOCR,3,0,1,18
|
---|
368 | FCB FPOUSS,'L,OFF
|
---|
369 | FCB FEDI
|
---|
370 | FCC \Lire\
|
---|
371 | FCB SS2,$42
|
---|
372 | FCC \ecran\
|
---|
373 | FCB 0
|
---|
374 | FCB FLOCR,2,0,1,18
|
---|
375 | FCB FPOUSS,'E,OFF
|
---|
376 | FCB FEDI
|
---|
377 | FCC \Ecrire\
|
---|
378 | FCB SS2,$42
|
---|
379 | FCC \ecran\
|
---|
380 | FCB 0
|
---|
381 | FCB FCOULF,BLANC
|
---|
382 | FCB FLOCF,1,16,2,3
|
---|
383 | FCB FFOND,FTOURE,FCADRE
|
---|
384 | FCB FSTOP
|
---|
385 |
|
---|
386 | * Mémorisation palette à l'appel
|
---|
387 | *---------------------------------------
|
---|
388 |
|
---|
389 | TFMEMO FCB $FF
|
---|
390 | TMEMO FDB $FFFF,$FFFF,$FFFF,$FFFF
|
---|
391 | FDB $FFFF,$FFFF,$FFFF,$FFFF
|
---|
392 | FDB $FFFF,$FFFF,$FFFF,$FFFF
|
---|
393 | FDB $FFFF,$FFFF,$FFFF,$FFFF
|
---|
394 |
|
---|
395 | * Palette standard
|
---|
396 | *---------------------------------------
|
---|
397 |
|
---|
398 | PALDEF FDB 0000,0015,0240,0255
|
---|
399 | FDB 3840,3855,4080,4095
|
---|
400 | FDB 1911,0826,0931,0938
|
---|
401 | FDB 2611,2618,3815,0123
|
---|
402 |
|
---|
403 | * Mnémo des modes graphiques
|
---|
404 | * octet 1 : mode hard ($FF = fin !)
|
---|
405 | * octet 2 : mode basic
|
---|
406 | * 15 oct : mnémo sur 14 car.
|
---|
407 | *---------------------------------------
|
---|
408 |
|
---|
409 | TMNGR FCB $00,0
|
---|
410 | FCC \TO7-70\
|
---|
411 | FCB 0
|
---|
412 | FCB $80,1
|
---|
413 | FCC \80colonnes \
|
---|
414 | FCB 0
|
---|
415 | FCB $40,3
|
---|
416 | FCC \Bitmap 16 \
|
---|
417 | FCB 0
|
---|
418 | FCB $20,11
|
---|
419 | FCC \Tripleoverlay\
|
---|
420 | FCB 0
|
---|
421 | FCB $08,7
|
---|
422 | FCC \Doubleoverlay\
|
---|
423 | FCB 0
|
---|
424 | FCB $04,5
|
---|
425 | FCC \Page2\
|
---|
426 | FCB 0
|
---|
427 | FCB $02,4
|
---|
428 | FCC \Page1\
|
---|
429 | FCB 0
|
---|
430 | FCB $01,2
|
---|
431 | FCC \Bitmap 4 \
|
---|
432 | FCB 0
|
---|
433 | FCB $FF
|
---|
434 |
|
---|
435 | ****************************************
|
---|
436 | * M E S S A G E S *
|
---|
437 | ****************************************
|
---|
438 |
|
---|
439 | MLIRE FCB ESC,$4E
|
---|
440 | FCC \LIRE\
|
---|
441 | FCB ESC,$4C,0
|
---|
442 | MOUT FCC \MEMOIREinsuffisante\
|
---|
443 | FCB 0
|
---|
444 | MVFICH FCB ESC,$4E,HT,SS2,$2E
|
---|
445 | FCC \FICHIER\
|
---|
446 | FCB ESC,$4C,0
|
---|
447 | MCOMAL FCC \To-demo\
|
---|
448 | FCB 0
|
---|
449 | MON FCC \ON\
|
---|
450 | FCB 0
|
---|
451 | MOFF FCC \OFF\
|
---|
452 | FCB 0
|
---|