M.O.S (Master Operating System)
Interface v1.0
(C)1994 F.Cheveau.
MOS est un ensemble d'units Turbo Pascal permettant de crer rapidement
ses propres interfaces en mode texte ou graphique.
Il peut servir de support au dveloppement de vos programmes et propose
de nombreuses fonctions indites qui font dfaut au Turbo Pascal.
MOS permet entre autre de grer:
- La Souris,
- Les Fentres (et le multifenetrage),
- Les Menus,
- Les Gadgets,
- Les Requesters (de fichiers, de dialogues ...),
- La Mmoire XMS,
- et bien d'autres choses encore.
De nombreux exemples (excutables et sources) sont fournis de manire
vous
permettre de progresser rapidement dans le dveloppement de vos programmes.
Si vous dsirez me contacter, crivez-moi
l'adresse suivante:
CHEVEAU Frdric,
8 Passage des grillons,
66000 Perpignan,
FRANCE.
Ou bien pour ceux qui possdent un minitel,
faites le 36.14, Code "RTEL1" (aprs 10 heures 30 le soir, se serveur
ne cote que 12 centimes la minute, donc ca ne vous ruinera pas !).
Et laissez-moi un message dans ma boite au lettre "BouFFtou".
------------------------------------------------------------------------------
SOMMAIRE
1 - Convention d'enregistrement
2 - Pourquoi payer la licence de MOS ?
3 - Prsentation gnrale
4 - Contenu de l'archive "MOS.EXE"
5 - Version future de MOS
6 - Description des unites de l'interface Texte
7 - Description des unites de l'interface Graphique
8 - Un exemple de logiciel dvelopp avec MOS: Disk Speed v1.0
CONVENTION D'ENREGISTREMENT
---------------------------
Les personnes dsirant s'enregistrer pour MOS Interface doivent prendre
connaissance de la convention d'enregistrement suivante:
1 - Ce prsent programme ne peut tre diffus qu'en respectant l'intgrit
de l'oeuvre originale tant sur le nombre de fichiers, que sur les mentions
lgales et copyright, que sur le code ou le contenu informatif des
fichiers.
2 - En aucun cas ce dit programme ne peut tre distribu par une firme,
tablissement
caractre commercial dans le but d'en retirer un
quelconque profit si l'auteur ne l'y a pas autoris par crit.
3 - La diffusion par un tiers autre qu'en 2* est autorise par l'auteur
dans le respect du point 1*. Cette diffusion se doit d'tre gratuite. Le
diffuseur ne pouvant prtendre qu'
un ventuel ddommagement pcuniaire
au titre de frais de copie et de support. Cet ventuel ddommagement ne
pourra en aucun cas tre suprieur a 30 FF.
4 - L'auteur est seul habilit
percevoir la contribution
titre de
Shareware. Cette rmunration ne peut en aucun cas tre collecte par un
tiers
quelque titre que ce soit.
5 - L'auteur est seul habilit
dispenser les licences d'utilisation
provisoires et dfinitives.
6 - Aucune restriction territoriale de diffusion de ce logiciel n'est
formule par l'auteur.
7 - Aucune restriction de diffusion dans le temps de ce logiciel n'est
formule par l'auteur.
8 - L'auteur ne peut tre tenu responsable des dommages pouvant survenir
sur la machine de l'utilisateur, ni de l'usage illicite, dtourn
ou frauduleux dont ce logiciel pourrait faire l'objet, soit par
l'utilisateur lui-mme, soit par un tiers.
9 - Pass le dlai de libre-ssai de 21 Jours, si vous souhaitez obtenir
une licence dfinitive d'utilisateur il vous suffira de remplir le formulaire
ci-dessous, ou d'imprimer le fichier order.doc, de le dater, le signer, et
le retourner
l'auteur accompagn de votre contribution calcule selon le
barme suivant. Toute utilisation de ce logiciel sans licence dfinitive,
pass ce dlai, serait irrgulire.
La licence dfinitive vous donnera droit
diffuser les programmes de
votre ralisation utilisant le logiciel MOS Interface v1.0.
La licence dfinitive est nominative, elle ne peut en aucun cas tre
l'objet d'une cession, transmission ou vente.
--------------------------------------------------------------------------
FORMULAIRE D'ENREGISTREMENT pour MOS
--------------------------------------------------------------------------
Formulaire
retourner complt et sign
l'auteur de MOS Interface:
Frdric CHEVEAU,
8 Passage des grillons,
66000 PERPIGNAN,
FRANCE.
--------------------------------------------------------------------------
Je soussign(e),
Nom/Prnom ou
Raison Sociale :...........................................
Service/Responsable :......................................
Adresse :..................................................
..................................................
Code postal :...........
Ville :..............................
Pays :...............................
dsire devenir utilisateur officiel de MOS Interface, et fait pour cela
une demande de licence dfinitive.
Tlphone :..........................
Fax :..........................
Autre :..........................
..........................
Age :.........
Sexe O Masculin
O Fminin
Machine utilise: Frquence processeur:
O Power PC O 25 Mhz
O PC Pentium O 33 Mhz
O PC 486 O 40 Mhz
O PC 386 O 50 Mhz
O Autre .......... O 66 Mhz
O 75 Mhz
O Autre : ..........
Systeme d'exploitation:...........................
Affichage (VGA, SVGA 256c, SVGA 16Mc...)..........
Mmoire vido:.....................
Ecran :.....................
Priphriques:.....................
Intrets O Programmation
O Jeux
O Utilitaires
O Musique
O Autres : ...........
Suggestions :................................................
.............................................................
.............................................................
.............................................................
.............................................................
Je joins
ce formulaire ma contribution fixe selon le barme
savoir :
LICENCE POUR UN EXEMPLAIRE
QUANTITE TOTAL
Entreprises,
Administrations,
Ecoles,
Collectivits, 150 X..=.....,..FF
Particuliers 80 X..=.....,..FF
LICENCE MULTI-POSTES,
QUANTITE TOTAL
Entreprises,
Administrations,
Ecoles,
Collectivits, 300 X..=.....,..FF
Particuliers 160 X..=.....,..FF
-----------
TOTAL : .....,..FF
-----------
DOCUMENTATION IMPRIMEE (30,00FF) .........
-----------
TOTAL : .....,..FF
Ci-joint ma contribution de ......,..FF
par O Espces
O Mandat
O Chque N*.... sur la ..........
Le versement de cette contribution implique mon entire adhsion aux
articles de la licence provisoire en ma possession.
Fait
..............
Le...................
Signature,
------------------------------------------------------------------------------
POURQUOI PAYER LA LICENCE DE MOS ?
----------------------------------
Ou pourquoi devenir un utilisateur enregistr de MOS.
"Why to become a registered user" (Pour nos amis Anglophones) !!!
Devenir un "Utilisateur Enregistr" vous confre les droits et
privilges suivants:
- Etre tenu au courant des nouvelles versions de MOS.
- Recevoir Chez soi la derniere version de MOS
un prix dfiant
toute concurence: 0 Frs !!! (Normal non ?).
- Avoir l'insigne honneur de faire partie de la grande famille des
utilisateurs de MOS (Pour l'instant je suis tout seul !!! Sniff...).
- Rentrer dans le livre "Guiness des Records" pour tre le premier
Franais
avoir payer un SHAREWARE (Si Si !!!).
- Faire gagner 3,50 F
la poste par l'envoi de la disquette de MOS.
- La satisfaction d'avoir accompli une bonne action (Faites des heureux
parmis vos amis..... Offrez-leur MOS
Nol !!!).
Et puis c'est tout !!! et c'est deja pas mal non ???
------------------------ I - PRESENTATION GENERALE ---------------------------
MOS (Master Operating System) est un ensemble d'units Turbo Pascal
Permettant de crer rapidement ses propres interfaces en mode texte
ou graphique.
Il peut servir de support au dveloppement de vos programmes et propose
de nombreuses fonctions indites qui font dfaut au Turbo Pascal.
MOS permet entre autre de grer:
- La Souris,
- Les Fentres (et le multifenetrage),
- Les Menus,
- Les Gadgets,
- Les Requesters (de fichiers, de dialogues ...),
- La Mmoire XMS,
- et bien d'autres choses encore.
De nombreux exemples (excutables et sources) sont fournis de manire
vous
permettre de progresser rapidement dans le dveloppement de vos programmes.
J'ai d'ailleurs volontairement insist sur des exemples dtaills, plutt
que sur une documentation longue et fastidieuse. C'est pourquoi, vous ne
trouverez dans cette documentation, que le strict minimum quant-
l'utilisation des fonctions de MOS, le mieux tant encore de se reporter
aux sources d'exemples donnes. Elles sont simples, commentes, et ne
traitent chacune que d'un seul sujet de manire
en faciliter la
comprhention.
Si toutefois, vous ne parvenez pas
comprendre certaines fonctions de MOS,
vous pouvez me contacter
mon adresse, ou sur minitel (mes coordones
sont donnes au dbut de cette documentation).
Cette documentation a t subdivise en deux partie:
- La premire partie traitant de l'interface texte,
- La seconde de l'interface graphique.
Pour vous prouver l'efficacit de MOS, j'ai inclu dans l'archive un
logiciel dont l'interface a t programme avec MOS (ils se trouve dans
le rpertoire EXEMPLES\SOFTS). Ces interfaces ont ts ralises en moins de
trois jours (pour le plus gros logiciel "DISK-SPEED").
De plus, j'ai fais en sorte que MOS soit facile d'emploi.
Nul besoin d'tre programmeur chevronn pour l'utiliser, un niveau moyen est
parfaitement suffisant.
Pour chaque point important traitant d'une fonction particulire de MOS,
j'ai donn un exemple (Source + Excutable) se trouvant dans le rpertoire
"EXEMPLES" et dans les sous-rpertoires "SRC_TXT" pour les sources de
l'interface texte, et "SRC_GFX" pour les sources de l'interface graphique.
Je tiens galement
prciser que MOS n'a pas t programm orient objet,
qu'il n'y a pas un seul pointeur, ni aucune liste chane, ou quoi-que
ce soit du mme genre, et pourtant, il marche parfaitement bien,
n'est pas buggu (
la diffrence de certains logiciels que je ne nomerais
pas, mais du style Windows), et ne prend quasiment pas de place sur disque et
en mmoire pour fonctionner.
Ma devise tant bien videment "Pourquoi faire compliqu quand on peu faire
simple" (bien que, j'aurais pu dire aussi "Pourquoi programmer objet lorsqu'on
peut programmer sans !!!), j'ai donc cod MOS sans que cela devienne un
casse-tte pour moi (pas de structures
la con et totalement inutiles
du genre hritage abusif et polymorphisme).
Mais non, mais non, je ne fais pas de l'anti-programmation objet primaire,
je suis seulement raliste. Essayez, et vous verrez !!!
Bon.... passons aux choses srieuse.
----------------------- II - CONTENU DE L'ARCHIVE MOS ------------------------
Voici ce que vous devriez normalement trouver dans l'archive de MOS:
TPU_TXT
ZUUL_BAS.TPU Definition variables
ZUUL_ASM.TPU Traficotage des interruptions
ZUUL_COL.TPU Gestion des couleurs
ZUUL_TXT.TPU Gestion et affichage du texte
ZUUL_TOO.TPU Outils pour l'affichage
ZUUL_SWA.TPU Rafraichissement de l'cran
ZUUL_MSE.TPU Gestion de la Souris
ZUUL_GAD.TPU Gestion des gadgets
ZUUL_DIR.TPU Gestion des disques
ZUUL_REQ.TPU Gestion des requesters
ZUUL_MEN.TPU Gestion des menus
TPU_GFX
ZUUL_BAS.TPU Dfinition variables
ZUUL_ASM.TPU Traficotage des interruptions
ZUUL_COL.TPU Gestion des couleurs
ZUUL_TXT.TPU Gestion et affichage du texte
ZUUL_TOO.TPU Outils pour l'affichage
ZUUL_SWA.TPU Rafraichissement de l'cran
ZUUL_MSE.TPU Gestion de la Souris
ZUUL_XMS.TPU Gestion de la mmoire XMS
ZUUL_GAD.TPU Gestion des gadgets
ZUUL_WIN.TPU Gestion des fentres
ZUUL_DIR.TPU Gestion des disques
ZUUL_REQ.TPU Gestion des requesters
EXEMPLES
GFX_SRC
RADIO .PAS Exemple de "Boutons Radios"
SELECTOR.PAS Utilisation du slecteur de fichiers
LIGH_BOX.PAS Cration d'une light-box
GADGETS .PAS Utilisation de quelques gadgets
FLAG_WIN.PAS Dfinition des flags d'une fentre
STRING .PAS Utilisation d'un "String Requester"
EZ_REQUE.PAS Utilisation des requesters "EZ"
PALETTE .PAS Utilisation du requester palette
PROGRESS.PAS Exemple de "Progress Requester"
POINTER .PAS Modification de la forme du pointeur
DIALOGUE.PAS Cration d'une boite de dialogue
SYSTEME .PAS Configuration du systme MOS
HARDWARE.PAS Affichage configuration hardware
MEMORY .PAS Affichage configuration mmoire
GFX_EXE
RADIO .EXE
SELECTOR.PAS
LIGH_BOX.PAS
GADGETS .PAS
FLAG_WIN.PAS
STRING .PAS
EZ_REQUE.PAS
PALETTE .PAS
PROGRESS.EXE
POINTER .EXE
DIALOGUE.EXE
SYSTEME .PAS
HARDWARE.EXE
MEMORY .EXE
TXT_SRC
MENU .PAS Cration et gestion d'un menu
BUTTONS .PAS Gestions des boutons en texte
SELECTOR.PAS Obtention d'un File_Requester
EZ_REQU .PAS Obtention d'un EZ_Requester
ST_REQU .PAS Obtention d'un ST_Requester
VA_REQU .PAS Obtention d'un VA_Requester
TXT_EXE
MENU .EXE
BUTTONS .EXE
SELECTOR.EXE
EZ_REQU .EXE
ST_REQU .EXE
VA_REQU .EXE
SOFT
DS .EXE Excutable Disk-Speed v1.0
DS .PAS Source de l'excutable
DS_LIB .TPU Unit pour DS
DS_LIB .PAS Source de l'unit pour DS
DSMODULE.LIS Fichier data: Liste de modules
DSMODULE.DTA Fichier data: Paramtres des modules
DSMODULE.CFG Fichier data: Configuration de DS
DSPTS_01.PTS Fichier data: Srie de points "Test"
DSPTS_02.PTS "
DSPTS_03.PTS "
DSPTS_04.PTS "
DSPTS_05.PTS "
DSPTS_06.PTS "
DSPTS_07.PTS "
DSPTS_08.PTS "
EGAVGA .BGI Driver VGA
LITT .CHR Fonte pour DS
DOCS
CHAMPS .TXT Les champs que MOS utilise
CONSEILS.TXT Les conseils pour bien coder avec MOS
REGISTER.TXT Comment devenir utilisateur enregistr
GREETING.TXT Remerciement ... .etc
NEW_PROC.TXT Nom des procedures & fonctions de MOS
VARIABLE.TXT Description des variables de MOS
ERREURS .TXT Explication des messages d'erreur
MOS .TXT Ce que vous tes en train de lire
BUGS .TXT Les bugs ventuels de MOS
DATAS
LITT .CHR La fonte de base de MOS
EGAVGA .BGI Le driver de base
LISE ET.MOI Une explication succinte de MOS
-------------------------- VERSION FUTURE DE MOS -----------------------------
Voici quelques unes des amliorations potentielles de MOS pour les versions
futures.
Si vous avez des ids ou des suggestions n'hsitez pas
me contacter.
(Mon adresse est note au dbut de cette documentation).
- Restructuration de certaines fonctions ou modification des paramtres.
- Implmentation de la gestion des menus dans l'interface graphique.
- Supression de certains petits buggs.
- Implmentation de la gestion des images et des icnes.
- Stockage des fonds d'crans en XMS.
- Gestion complte du clavier.
- Gestion de l'heure en texte et en graphique.
- Cration d'un diteur de ressources pour Requesters.
- Implmentation d'un player de modules au format Soundtracker.
------------------------- III - L'INTERFACE TEXTE ----------------------------
A) - Hirarchisation des units.
Les units de MOS utilisent souvent d'autres units de MOS, en fait, elles
sont toutes lies entre elles. Voici la faon dont elles sont hirarchises:
EVOLUE ZUUL_MEN ZUUL_REQ ZUUL_DIR
/T\ \ / \ /
| \ / ZUUL_GAD
| \ / / \
| ZUUL_SWA ZUUL_MSE ZUUL_TOO
| | / \
| ZUUL_ASM | ZUUL_TXT ZUUL_COL
| \ |
PRIMAIRE ZUUL_BAS
L'interface Texte tant trs simple
utiliser, et ne possdant
que peu de fonctions, je ne m'attarderais pas dessus. Seule les fonctions
et procdures principales seront ici donnes.
Pour les autre procdures, il vous suffira de vous reporter
la partie IV
(Interface Graphique) qui traite en partie des mmes fonctions.
Les fonctions de l'unit "ZUUL_ASM" de l'interface texte sont les mmes
que celle de l'interface graphique, vous devez donc vous reporter au
chapitre "INTERFACE GRAPHIQUE", Unit "ZUUL_ASM" pour voir la description
des fonctions de cette unit.
**********************
* //\\ *
* // \\ *
* // \\ *
* // /\ \\ *
* \\ \/ // *
* \\ // *
* \\ // *
* \\// *
**********************
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ --- UNIT ZUUL_COL --- บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ CREATEUR.: F.Cheveau. บ
บ COMMENCE.: Le 12.04.94. บ
บ RELEASE..: Le 12.04.94
l'IUT (Montpellier). บ
บ CONTENU..: Gestion des Couleurs. บ
บ CONTAINS.: X Procedures, X Fonctions. บ
บ EXTERN...: No Specific TPU Needed. บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE TC,BGC บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: C(COLOR) :INTEGER บ
บ OUT....: / บ
บ EXPLAIN: CHANGE LA COULEUR DU TEXTE OU DU FOND. บ
บ EXEMPLE: TC(7); BGC(0); ;Copuleurs du DOS. บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURES EXTENDEDCOLORS, NORMALCOLORS บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: / บ
บ OUT....: / บ
บ EXPLAIN: PASSE EN COULEURS ETENDUES OU COULEURS NORMALES. บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
**********************
* //\\ *
* // \\ *
* // \\ *
* // /\ \\ *
* \\ \/ // *
* \\ // *
* \\ // *
* \\// *
**********************
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ --- UNIT ZUUL_MSE --- บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ CREATEUR.: F.Cheveau. บ
บ COMMENCE.: Le 15.02.94 et termin le 25.02.94 (IUT Montpellier). บ
บ RELEASE..: Le 15.04.94
l'IUT (Montpellier). บ
บ CONTENU..: Gestion de la Souris. บ
บ CONTAINS.: X Procedures. บ
บ EXTERN...: Need Classic Units to run Correctly. บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ FONCTION INITMOUSE บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: / บ
บ OUT....: / บ
บ EXPLAIN: Initialise la Souris (La positionne au Centre de l'ecran). บ
บ EXEMPLE: INITMOUSE; บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURES SHOWMOUSE, HIDEMOUSE บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: / บ
บ OUT....: / บ
บ EXPLAIN: Planque ou Deplanque la Souris บ
บ EXEMPLE: Et puis quoi encore !!! บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ FONCTION BOXMOUSET บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: X1,Y1,X2,Y2 = Box de Test de la position souris
l'interieur. บ
บ B = Code du bouton a tester + de la zone. บ
บ 0 = Test Zone + Boutons non Actives. บ
บ 1 = Test Zone + Left Bouton. บ
บ 2 = Test Zone + Middle Button. บ
บ 3 = Test Zone + Right Bouton. บ
บ 10 = Test Zone sans se preocuper des Boutons. บ
บ OUT....: True / False (Boolean). บ
บ EXPLAIN: Teste si la souris se trouve dans le box specifie (Mode Texte). บ
บ EXEMPLE: If BOXMOUSE(10,15,5,6,1)=True Then Writeln('OK'); บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURES GETMOUSET, GETMOUSEG บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: X,Y: Coordones de la Souris (Caracteres ou Pixels). บ
บ G,M,D: Etats des Boutons Souris (Gauche, Milieu, Droite) = Bool. บ
บ OUT....: / บ
บ EXPLAIN: Renvois la position et l'etat des boutons de la souris. บ
บ EXEMPLE: GetMouseT(X,Y,LM,RM); Writeln(X,Y,LM,RM); บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURES PUTMOUSET, PUTMOUSEG บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: X,Y: Coordones de la Souris (Caracteres ou Pixels) บ
บ OUT....: / บ
บ EXPLAIN: Positionne la souris aux coordones prcises (Textes ou GFX). บ
บ EXEMPLE: PutMouseT(X,Y); บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURES LIMITEMT, LIMITEMG บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: X1,Y1,X2,Y2: Coordones du Box Limite. บ
บ OUT....: / บ
บ EXPLAIN: Limite les dplacement de la souris dans un box. บ
บ EXEMPLE: LimiteMouseT(16,50,5,10); บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE SPEEDMOUSE บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: X: Mickeys; Y: Pixels บ
บ OUT....: / บ
บ EXPLAIN: Definit le raport entre Mickeys et Pixels. บ
บ EXEMPLE: SpeedMouse(5,10); บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURES CURSOFF, CURSON บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: / บ
บ OUT....: / บ
บ EXPLAIN: PLANQUE OU DEPLANQUE LE CURSEUR. บ
บ EXEMPLE: CursOff; Wait; CursOn; บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE DEFCURSOR บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: H,B (WORD): Ligne Haute et Ligne Basse. บ
บ OUT....: / บ
บ EXPLAIN: Definit la Forme du Curseur (Haut/Bas). บ
บ EXEMPLE: DefCursor(1,6); บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE MASKCURSOR บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: MAnd,MOr (WORD): Masque And et Or du Curseur. บ
บ OUT....: / บ
บ EXPLAIN: Definit le Masque du Curseur. บ
บ EXEMPLE: MaskCursor(1,6); บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
**********************
* //\\ *
* // \\ *
* // \\ *
* // /\ \\ *
* \\ \/ // *
* \\ // *
* \\ // *
* \\// *
**********************
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ --- UNIT ZUUL_SWAP --- บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ CREATEUR.: F.Cheveau & Fraggy. บ
บ COMMENCE.: Le 26.11.93 et termin le 26.11.93 (Piaule
Vincent). บ
บ RELEASE..: Le 15.12.93
l'IUT (Montpellier). บ
บ CONTENU..: Gestion Screen, Routines Asm, Swap Pages... บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE SWAPHIDE บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: X1,Y1,X2,Y2 (INTEGER) = Positions du Cadre a l'ecran. บ
บ SVE (Savewin) = Variable de Stockage du bloc. บ
บ OUT....: / บ
บ EXPLAIN: DECOUPE UN CADRE A L'ECRAN ET LE CONSERVE EN MEMEOIRE. บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE SWAPSHOW บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: X,Y (INTEGER) = Position d'Affichage บ
บ SVE (Savewin) = Variable de Stockage du bloc. บ
บ OUT....: / บ
บ EXPLAIN: REAFFICHE A LA POSITION X,Y LE BLOC GARDE EN MEMOIRE. บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE GOPAGE บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: X: Numero de la page (de 0 a 3) บ
บ OUT....: / บ
บ EXPLAIN: Passe sur la Page en question et y reste pour travailler. บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ FUNCTION GETACTIVEPAGE บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: X: Numero de la page (de 0 a 3) บ
บ OUT....: / บ
บ EXPLAIN: Renvois le Numro de la Page Active. บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE COPYPAGE บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: Source, Target: Page Source vers Page Cible บ
บ OUT....: / บ
บ EXPLAIN: Copy une Page source sur une page cible. บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE SAVESCREEN บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: Page = Numero de la Page a Copier en Memoire (de 0
3) บ
บ OUT....: / บ
บ EXPLAIN: Copy en mmoire une des 4 pages possibles. บ
บ NB.....: On ne peut que faire une copie a la fois. บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE LOADSCREEN บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: Page = Numero de la Page sur laquelle on doit copier le screen. บ
บ OUT....: / บ
บ EXPLAIN: Copy dans une page le screen precedement garde en mmoire. บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
**********************
* //\\ *
* // \\ *
* // \\ *
* // /\ \\ *
* \\ \/ // *
* \\ // *
* \\ // *
* \\// *
**********************
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ --- UNIT ZUUL_TXT --- บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ CREATEUR.: F.Cheveau. บ
บ COMMENCE.: Le 06.11.93 et termin le 16.11.93 (IUT Montpellier). บ
บ RELEASE..: Le 15.12.93
l'IUT (Montpellier). บ
บ CONTENU..: Gestion d'Ecran, Fenetres, Requesters, Traitement Strings. บ
บ CONTAINS.: 12 Procedures, 4 Fonctions. บ
บ EXTERN...: Need ZUUL_SWA Unit to run correctly. บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ FUNCTION SPECIAL_KEY บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: NUM (BYTE) = Numro de la touche Spciale
tester. บ
บ OUT....: True/False (BOOLEAN) = Touche Enfonce ou pas. บ
บ EXPLAIN: Teste une des touches Spciale du Clavier. บ
บ Voir plus bas pour le numro de la touche
tester. บ
บ EXEMPLE: If SPECIAL_KEY(1)=True Then Write('Shift Droit Prss'); บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE CHAR_TO_HEXA บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: C (STRING) = String Hexa. บ
บ OUT....: (BYTE) = Valeur Hexa du String. บ
บ EXPLAIN: Convertit un String Hexa de 1 Char en Hexa sur un Byte. บ
บ EXEMPLE: Val1:=CHAR_TO_HEX('$F'); บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE WORD_TO_STRING บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: D (WORD) = Word
Convertir. บ
บ OUT....: STRING[4] = Valeur du String aprs conversion. บ
บ EXPLAIN: Transforme un Word Decimal en String[4] Hexadecimal. บ
บ EXEMPLE: T1:=WORD_TO_STRING(Val1); บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURES DISP,DISPLN บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: STRING บ
บ OUT....: / บ
บ EXPLAIN: AFFICHE CHAQUE CARACTERE AVEC UN BEEP. บ
บ EXEMPLE: Displn('Zuul as BouFFtou'); บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ FUNCTION LOWER,UPPER,MIDDER บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: STRING บ
บ OUT....: / บ
บ EXPLAIN: PASSE DE MINUSCULE EN MAJUSCULE OU VICE VERCA. บ
บ EXEMPLE: Writeln(Lower('FREderic'),Upper(FREderic),Midder(FREderic)); บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ FUNCTION CRYPT บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: STR1(STRING), STR2(STRING), PH1(STRING) บ
บ OUT....: CRYPT(STRING) บ
บ EXPLAIN: CRYPTE/DECRYPTE UN STRING (STR1,STR2:ALPHABETS DE COMMUTATIONS). บ
บ EXEMPLE: ALAPHABET:='ABCDEFGHIJKLMNOPQRSTUVWXYZ !'; บ
บ COD_CRYPT:='MQLSKDJF!HGWNXBCVAPZ OEIRUYT'; บ
บ PHRASE:='ALORS CA CRYPTE DUR NON !'; บ
บ CRYPT(ALPHABET,COD_CRYPT,PHRASE); บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE WAIT บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: / บ
บ OUT....: / บ
บ EXPLAIN: ATTENDS Q'UNE TOUCHE SOIT PRESSEE. บ
บ EXEMPLE: Wait; Toujours no Comments ! บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ FUNCTION GETCHAR บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: / บ
บ OUT....: True/False (BOOLEAN) = Touche Clavier Frappe ou pas. บ
บ Ac,Sc (BYTE) = Code ASCII et Scan Code de la Touche Frappe. บ
บ EXPLAIN: Teste une touche du clavier. บ
บ EXEMPLE: If GETCHAR(Ac,Sc)=True Then Write(Chr(As)); บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
**********************
* //\\ *
* // \\ *
* // \\ *
* // /\ \\ *
* \\ \/ // *
* \\ // *
* \\ // *
* \\// *
**********************
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ --- UNIT ZUUL_TOOLS --- บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ CREATEUR.: F.Cheveau. บ
บ COMMENCE.: Le 06.11.93 et termin le 16.11.93 (IUT Montpellier). บ
บ RELEASE..: Le 15.12.93
l'IUT (Montpellier). บ
บ CONTENU..: Gestion d'Ecran, Fenetres, Requesters, Traitement Strings. บ
บ CONTAINS.: 12 Procedures, 4 Fonctions. บ
บ EXTERN...: Need ZUUL_SWA Unit to run correctly. บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE BEEP บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: / บ
บ OUT....: / บ
บ EXPLAIN: PRODUIT UNE MODULATION DE SONS. บ
บ EXEMPLE: Beep; He he !!! (No Comments) บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE CLS1,CLS2,CLS3 บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: X1(POS X),Y1(POS Y1),Y2(POS Y2),LEN(LENGTH),T(DELAY) :INTEGER บ
บ OUT....: / บ
บ EXPLAIN: EFFACE DE MANIERE DIFFERENTES L'ECRAN SUIVANT LES PARAMETRES บ
บ EXEMPLE: CLS3(1,2,24,40,20); บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE BOX บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: X1,Y1,X2,Y2 (INTEGER) = Positions du Box
l'cran. บ
บ B1, B2, B3: (BOOLEAN) = PREFS บ
บ OUT....: / บ
บ EXPLAIN: AFFICHE UNE BOITE A L'ECRAN AUX COORDONEE PRECISEE. บ
บ PREFS..: B1=True => Affiche un Cadre autour de la Boite. บ
บ B2=True => Affiche une Ombre Autour de la Boite. บ
บ B3=True => Affiche une Trame dans la Boite. บ
บ EXEMPLE: BOX(10,3,40,15,True,True,False); บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
**********************
* //\\ *
* // \\ *
* // \\ *
* // /\ \\ *
* \\ \/ // *
* \\ // *
* \\ // *
* \\// *
**********************
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ --- UNIT ZUUL_MEN --- บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ CREATEUR.: F.Cheveau. บ
บ COMMENCE.: Le 15.12.93 et termin le 15.12.93 (IUT Montpellier). บ
บ RELEASE..: Le 16.04.94
l'IUT (Montpellier). บ
บ CONTENU..: Gestion des Menus. บ
บ CONTAINS.: 2 Procedures. บ
บ EXTERN...: Need SWA,MSE,COL,TXT,TOO Units to run correctly. บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE MENU_BAR_DISP บ
ฬออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: TbMen (Men_Dat) = Tableau 2D des Labels du Menu. บ
บ OUT....: / บ
บ EXPLAIN: Affiche la Barre du Menu
la Position 6,1. บ
บ EXEMPLE: MENU_BAR_DISP(TbMen); บ
ศออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE GIVEMENU บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ CONTAIN: 5 PROCEDURES. บ
บ IN.....: FreeM (BOOLEAN) = Autorise ou pas le cycling des Menu. บ
บ FreeP (BOOLEAN) = Autorise ou pas le cycling des Points. บ
บ HelpL (BOOLEAN) = Autorise ou pas l'aide en ligne. บ
บ IN/OUT.: MS , IS (Integer) = Numero du Menu et du Point Menu Slection. บ
บ EXPLAIN: AFFICHE ET GERRE UN MENU TYPE TURBOVISION MAIS EN MIEUX !!! บ
บ SI AUCUN POINT DU MENU N'A ETE SELECTIONNE (TOUCHE ESCAPE), บ
บ ALORS "MS" ET "IS" CONTIENNENT 0,0. บ
บ OPTIONS: Dans la Dfinition des Labels, Un Asterisque "*" Indique une บ
บ Transition entre deux Point de Menu. บ
บ EXEMPLE: Qtt_Men:=2; ;2 Menus, et On Affiche le 1er บ
บ MS:=1; IS:=2; ;Aff 1er Menu et 2eme Point บ
บ TbMen[1,1]:='Main'; ;Entete Barre du Menu 1 บ
บ TbMen[1,2]:='Element 1'; ;Element du Menu 1 บ
บ TbMen[2,1]:='Prefs'; ;Entete Barre du Menu 2 บ
บ TbMen[2,2]:='Preference 1'; ;Elements du Menu 2 บ บ
บ TbMen[2,3]:='*'; ;Point non Slectionnable บ
บ TbMen[2,4]:='Preference 2'; ;Menu d'aide บ
บ TbHlp[1,2]:='Test du Menu d''aide'; บ
บ GIVEMENU(True,False,True,MS,IS); ;GO ! บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
**********************
* //\\ *
* // \\ *
* // \\ *
* // /\ \\ *
* \\ \/ // *
* \\ // *
* \\ // *
* \\// *
**********************
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ --- UNIT ZUUL_GAD --- บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ CREATEUR.: F.Cheveau. บ
บ COMMENCE.: Le 15.12.93 et termin le 15.12.93 (IUT Montpellier). บ
บ RELEASE..: Le 19.04.94
l'IUT (Montpellier). บ
บ CONTENU..: Gadgets. บ
บ CONTAINS.: X Procedures. บ
บ EXTERN...: Need SWA,TOO,ASM,GFX,COL,TXT Units to run correctly. บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE BUTTON บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: X,Y (INTEGER):Position du Bouton. บ
บ Cp (WORD):Couleur de Pen du Gadget. บ
บ Cu (WORD):Couleur de Fond du Gadget. บ
บ Cg (WORD):Couleur de Fond de l'cran. บ
บ GagBut (BUT):Reccord pour Stockage des donnes du Boutton. บ
บ Name (STRING):Nom du Bouton. บ
บ OUT....: / บ
บ EXPLAIN: Affiche un bouton Texte
l'cran aux coordonnes precises. บ
บ EXEMPLE: BUTTON(3,10,146,17,17,But1,'Open File'); บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ FUNCTION GADMSG บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: GadBut (BUT) = Pointeur sur Structure Bouton. บ
บ B (WORD) = Code Bouton + Zone d'activation. บ
บ OUT....: True/False (Boolean) = Gadget Cliqu ou non. บ
บ EXPLAIN: Teste si le Gadget reprsent par GadBut est cliqu ou pas. บ
บ Dans le cas ou il l'est, la Fonction GADMSG prend la valeur TRUE.บ
บ EXEMPLE: If GADMSG(Gad01,1)=True Then ..... บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
**********************
* //\\ *
* // \\ *
* // \\ *
* // /\ \\ *
* \\ \/ // *
* \\ // *
* \\ // *
* \\// *
**********************
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ --- UNIT ZUUL_DIR --- บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ CREATEUR.: F.Cheveau. บ
บ COMMENCE.: Le 15.12.93 et termin le 18.05.94 (IUT Montpellier). บ
บ RELEASE..: Le 18.05.94.
l'IUT (Montpellier). บ
บ CONTENU..: Requesters de Directory. บ
บ CONTAIN..: X Procedures. บ
บ EXTERN...: Need WIN,GAD,SWA,TOO,MSE,TXT,COL,REQ Units to run correctly. บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ FUNCTION TEST_DEVICES บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: Dev (BYTE): Numero du Device a Tester. บ
บ OUT....: True/False (BOOLEAN): True si le Device Existe. บ
บ EXPLAIN: Teste l'existence d'un directory Prcis par son numro d'ordre. บ
บ EXEMPLE: If GET_DEVICES(3)=True Then Writeln('"C:" Existe'); บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE GIVEDIR บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ CONTAIN: 6 PROCEDURES, 1 FONCTION. บ
บ IN.....: X(POS X), Y(POS Y) DU REQUESTER. : INTEGER บ
บ OUT....: SI (LONGINT) = TAILLE DU FICHIER SELECTIONE (EN OCTETS). บ
บ DIRSEL(DIRECTORY SELECTIONE), FILSEL(FICHIER SELECTIONE): STRING บ
บ EXPLAIN: AFFICHE A LA POSITION X,Y UN REQUESTER DE DIRECTORY. บ
บ ATTENDS QU'UN FICHIER SOIT SELECTIONNE, ET RENVOI ALORS บ
บ LE CHEMIN ET LE NOM DU FICHIER CHOISIT. บ
บ TOUCHES: "I"= Invoque le Fichier (COM ou EXE) Actuellement Slection. บ
บ "E"= Edite le Fichier Actuellement Slection. บ
บ "N"= Permet de rentrer un nouveau nom de fichier. บ
บ EXEMPLE: GiveDir(4,2,Si,Direc,File); บ
บ Writeln('Selection: ',Direc+File,' Taille: ',Si); บ
บ Positionne le directory en X=4 et Y=2,et affiche le choix บ
บ de l'utilisateur. Si File='' alors aucun choix n'a t ffectu. บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
**********************
* //\\ *
* // \\ *
* // \\ *
* // /\ \\ *
* \\ \/ // *
* \\ // *
* \\ // *
* \\// *
**********************
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ --- UNIT ZUUL_REQ --- บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ CREATEUR.: F.Cheveau. บ
บ COMMENCE.: Le 15.12.93 et termin le 15.12.93 (IUT Montpellier). บ
บ RELEASE..: Le 18.04.94
l'IUT (Montpellier). บ
บ CONTENU..: Requesters de tous types. บ
บ CONTAINS.: X Procedures. บ
บ EXTERN...: Need ASM,GFX,SWA,COL,MSE,TXT,GAD,TOO,WIN Units to run correctlyบ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE EZ_REQUEST บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: TXT = (STRING) Texte a afficher dans le requester. บ
บ GAD = (STRING) Texte des Gadgets a afficher. บ
บ ESC = (BOOLEAN) Affichage du symbole de fermeture de la fenetre. บ
บ IN/OUT.: NUM = (SHORTINT) Numro du gadget Selectionn. บ
บ EXPLAIN: Affiche au centre de l'cran un requester du type EZ_REQUEST. บ
บ et attends la selection de l'un des gadgets. บ
บ Renvois le numro du gadget choisit. บ
บ EXEMPLE: TXT:='Ok pour le test|des Gadgets|'; บ
บ GAD:='Ok|Cancel|Restore|'; บ
บ EZ_REQUEST(TXT,GAD,NUM,True); บ
บ NB.....: Les fin de lignes et les differents gadgets sont spars par บ
บ la barre verticale '|'. บ
บ On est limite a maximum 10 gadgets affichables a l'cran. บ
บ Il faut passer en couleurs etendues avant l'appel de EZ_REQUEST, บ
บ Pour avoir des couleurs Correctes. บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE ST_REQUEST บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: TXT = (STRING) Texte a afficher dans le requester. บ
บ GAD = (STRING) Texte des Gadgets a afficher. บ
บ LEN = (WORD) Longeur maximale du texte a taper. บ
บ ESC = (BOOLEAN) Affichage du symbole de fermeture de la fenetre. บ
บ IN/OUT.: NUM = (SHORTINT) Numro du gadget Selectionn. บ
บ REP = (STRING) Texte Tap par l'utilisateur. บ
บ EXPLAIN: Affiche au centre de l'cran un requester du type EZ_REQUEST. บ
บ attends que l'utilisateur rentre une chaine de caracteres, บ
บ et attends la selection de l'un des gadgets. บ
บ Renvois le numro du gadget choisit et la String rentre. บ
บ EXEMPLE: TXT:='Entrez une Phrase|S.V.P|'; บ
บ GAD:='Ok|Cancel|Restore|'; บ
บ ST_REQUEST(TXT,GAD,REP,NUM,False); บ
บ NB.....: Les fin de lignes et les differents gadgets sont spars par บ
บ la barre verticale '|'. บ
บ On est limite a maximum 10 gadgets affichables a l'cran. บ
บ Il faut passer en couleurs etendues avant l'appel de ST_REQUEST, บ
บ Pour avoir des couleurs Correctes. บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE VA_REQUEST บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: TXT = (STRING) Texte a afficher dans le requester. บ
บ GAD = (STRING) Texte des Gadgets a afficher. บ
บ BMIN = (LONGINT) Borne minimale valable pour la valeur. บ
บ BMAX = (LONGINT) Borne maximale valable pour la valeur. บ
บ ESC = (BOOLEAN) Affichage du symbole de fermeture de la fenetre. บ
บ IN/OUT.: NUM = (SHORTINT) Numro du gadget Selectionn. บ
บ VAI = (LONGINT) Valeur Rentre par l'utilisateur. บ
บ EXPLAIN: Affiche au centre de l'cran un requester du type EZ_REQUEST. บ
บ attends que l'utilisateur rentre une valeur, บ
บ et attends la selection de l'un des gadgets. บ
บ Renvois le numro du gadget choisit et la valeur rentre. บ
บ EXEMPLE: TXT:='Entrez une Phrase|S.V.P|'; บ
บ GAD:='Ok|Cancel|Restore|'; บ
บ BMIN:=0; BMAX:=150; บ
บ VA_REQUEST(TXT,GAD,BMIN,BMAX,NUM,False); บ
บ NB.....: Les fin de lignes et les differents gadgets sont spars par บ
บ la barre verticale '|'. บ
บ On est limite a maximum 10 gadgets affichables a l'cran. บ
บ Il faut passer en couleurs etendues avant l'appel de ST_REQUEST, บ
บ Pour avoir des couleurs Correctes. บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE CO_REQUEST บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: X,Y = (WORD) Position ou Afficher le Requester. บ
บ CET = (WORD) Couleur Texte+Background en couleurs tendues. บ
บ LEN = (WORD) Longeur maximale du texte a afficher. บ
บ IN/OUT.: CIN = (STRING) String renvoye par le requester. บ
บ EXPLAIN: Affiche un requester de string, et attends que l'utilisateur บ
บ ai prss ENTER pour rendre la main et renvoy le string. บ
บ EXEMPLE: Cin:='Changez cette phrase'; บ
บ CO_REQUEST(10,10,143,40,Cin); บ
บ NB.....: Si Cin n'est pas une chaine vide avant l'appel du requester, บ
บ Elle sera affiche dans celui-ci. บ
บ Dans le requester, les touches suivantes sont reconnues: บ
บ Enter, Delete, Backspace, Dbut, Fin, Fleche Droite,fleche Gaucheบ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
------------------------ IV - L'INTERFACE GRAPHIQUE --------------------------
A) - Hirarchisation des unit.
Les units de MOS utilisent souvent d'autres units de MOS, en fait, elles
sont toutes lies entre elles. Voici la faon dont elles sont hirarchises:
EVOLUE ZUUL_DIR ZUUL_REQ
/T\ \ / \ \
| \ / \ \_______
| / \ \ \
| / \ \ \
| ZUUL_GAD ZUUL_WIN ZUUL_XMS \
| \ / | \ |
| \ / \ \ |
| ____ /| \___ \ ZUUL_SWA |
| / | \ \ |
| / | \ \ |
| ZUUL_TOO ZUUL_TXT ZUUL_MSE \ ZUUL_ASM
| \ / \ | /
| \ / \ | /
| \ / \ | /
PRIMAIRE ZUUL_COL ZUUL_BAS
B) - Structure gnrale d'un programme crit pour MOS.
Le programme doit respecter la structure suivante.
Program XXXX;
Uses ZUUL_ASM, {TPU ncessaires aux initialisations}
ZUUL_MSE,
ZUUL_GAD,
........;
{Faire ici les dclarations, initialisations et procdures}
{Puis, le programme principal doit tre compos comme suit}
Begin
INIT_ASM;
INIT_SCREEN;
INIT_MOUSE;
{Appel de la procdure principale}
DONE_MOUSE;
DONE_SCREEN;
DONE_ASM;
End.
Le fait de structurer son programme de cette manire n'est pas une obligation
mais un moyen de se simplifier la vie, car les procdures d'initialisations
et de restaurations sont en fait une srie de commandes visant
initialiser
ou restaurer une trentaine de paramtres et donnes qu'il serait fastidieux
de faire soit-mme au dbut de chaque programme.
L'interface graphique est en grande partie base sur les fentres.
Il est recommand d'ouvrir une fentre (mme invisible) avant d'inscrire
du texte
l'cran, car le texte inscrit
l'intrieur d'une fentre
dispose de possibilites de gestion bien plus grandes que le texte normal
(Clipping automatique, Effacement de la fentre, autorafraichissement...)
Je ne peux que conseiller de regarder les exemples fournis pour plus de
dtails sur la faon de programmer une interface avec MOS.
Voici
titre d'exemple quelques dclarations de fentres, boutons, sliders,
file requesters, ez requesters etc...
DESCRIPTION DES FONCTIONS ET PROCEDURES PAR UNITES
**********************
* //\\ *
* // \\ *
* // \\ *
* // /\ \\ *
* \\ \/ // *
* \\ // *
* \\ // *
* \\// *
**********************
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ --- UNIT ZUUL_ASM --- บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ CREATEUR.: F.Cheveau & Fraggy. บ
บ COMMENCE.: Le 13.04.94. บ
บ RELEASE..: Le 01.08.94
l'IUT (Montpellier). บ
บ CONTENU..: Routines Assembleur Pur, Interruptions et Instructions 68000. บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ FUNCTION GET_DOS_VERSION บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: / บ
บ OUT....: Version (STRING) = Version et Revision de la Version. บ
บ EXPLAIN: Renvois le Numro de version du DOS. บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ FUNCTION GET_MOUSE_VERSION บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: / บ
บ OUT....: Version (STRING) = Version du gestionnaire Souris. บ
บ EXPLAIN: Renvois la version du gestionnaire souris install. บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ FUNCTION GET_MOUSE_TYPE บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: / บ
บ OUT....: Type (STRING) = Type de Souris installe. บ
บ EXPLAIN: Renvois le type de souris qui a t installe. บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE SET_TASK บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: On / Off (BOOLEAN) = True ou False. บ
บ OUT....: / บ
บ EXPLAIN: Inhibe ou Restore les Taches de fond. บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE PARK บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: / บ
บ OUT....: / บ
บ EXPLAIN: Parke les ttes de lectures pour l'unit C et D. บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ FUNCTION GET_SPEED บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: / บ
บ OUT....: (STRING) = Vitesse en Mhz du Processeur du Micro. บ
บ EXPLAIN: Donne la Vitesse
laquelle tourne le processeur de l'ordinateur.บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE SCREEN บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: True/False (BOOLEAN) : True = Ecran Affich, False = Pas d'Ecran.บ
บ OUT....: / บ
บ EXPLAIN: Affiche ou planque l'cran vido. บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE ENDING_PROGRAM บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: / บ
บ OUT....: / บ
บ EXPLAIN: Termine le Programme... Ferme tout ce qui
t ouvert, etc. บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE PROTECTED_MODE บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: / บ
บ OUT....: / บ
บ EXPLAIN: Passe en Mode Protg (A Utiliser avec Prudence). บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ FONCTIONS GET_PROCESSOR, GET_COPRO บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: / บ
บ OUT....: Numro Processor/CoPro (BYTE). บ
บ EXPLAIN: Renvois un Numro correspondant au type de Processeur et Copro. บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURES LOCK_CRITICAL, UNLOCK_CRITICAL บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: / บ
บ OUT....: / บ
บ EXPLAIN: Detourne ou Reinstalle la Gestion des Erreurs Critiques. บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE PRINT_SCREEN บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: / บ
บ OUT....: / บ
บ EXPLAIN: Imprime le Contenu de l'Ecran. บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE SETHORLOGETIMER บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: Freq (REAL) :Nouvelle Frequence de l'Horloge en Hertz. บ
บ OUT....: / บ
บ EXPLAIN: Redfinit la Frquence en Hertz de l'Horloge Interne. บ
บ EXEMPLE: SetHorlogeTimer(1000); Mesure du Temps au 1000eme de Secondes. บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURES RESTORE_TIMER et SET_TIMER บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: Freq (REAL) :Nouvelle Frequence de l'Horloge en Hertz. บ
บ OUT....: / บ
บ EXPLAIN: Installe et Dsinstalle le Timer Interne. บ
บ NB.....: Pour Revenir
la Frquence Normale, Il faut Passer 0 en Param. บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURES WARM_BOOT, COLD_BOOT บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: / บ
บ OUT....: / บ
บ EXPLAIN: Execute un Reboot Propre
Chaud ou
Froid. บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ FUNCTION PEEK บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: S,O (WORD) = Segment et Offset de l'Adresse. บ
บ OUT....: Valeur (BYTE) = Valeur de l'Octet a cet Endroit. บ
บ EXPLAIN: Renvois la Valeur de l'Octet se Trouvant
Cet Endroit. บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE INIT_PRINTER บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: / บ
บ OUT....: / บ
บ EXPLAIN: Rinitialise l'imprimante comme elle tait au dpart. บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE PURGE_BUFFER_CLAVIER บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: / บ
บ OUT....: / บ
บ EXPLAIN: Vide le Buffer du Clavier. บ
บ EXEMPLE: Purge_Buffer_Calvier; บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE LOCK_CTRLB,UNLOCK_CTRLB บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: / บ
บ OUT....: / บ
บ EXPLAIN: BLOQUE OU DEBLOQUE LE CONTROL-BREAK. บ
บ EXEMPLE: Lock_CtrlB; Begin ...... End; UnLock_CtrlB; บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE VAIT_VBL บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: / บ
บ OUT....: / บ
บ EXPLAIN: Attends la Synchronisation du Balayage Vertical. บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE EXG บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: A,B (INTEGER): Les deux Variables
changer entre elles. บ
บ OUT....: / บ
บ EXPLAIN: Echange le contenu de deux variables "Integer". บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURES INIT_ASM, DONE_ASM บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: / บ
บ OUT....: / บ
บ EXPLAIN: Initialisation des Variables au Niveau du Hardware. บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
**********************
* //\\ *
* // \\ *
* // \\ *
* // /\ \\ *
* \\ \/ // *
* \\ // *
* \\ // *
* \\// *
**********************
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ --- UNIT ZUUL_BASE --- บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ CREATEUR.: F.Cheveau. บ
บ COMMENCE.: Le 06.11.93 et termin le 16.11.93 (IUT Montpellier). บ
บ RELEASE..: Le 15.12.93
l'IUT (Montpellier). บ
บ CONTENU..: Variables de Bases utilises par d'autres procdures. บ
บ CONTAINS.: X Procedures, X Fonctions. บ
บ EXTERN...: / บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ FUNCTION INITGFX บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: / บ
บ OUT....: True/False (INTEGER) บ
บ EXPLAIN: Initialise le mode Graphique. บ
บ Renvois valeur du GraphResult si tout s'est bien pass ou pas. บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
**********************
* //\\ *
* // \\ *
* // \\ *
* // /\ \\ *
* \\ \/ // *
* \\ // *
* \\ // *
* \\// *
**********************
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ --- UNIT ZUUL_COL --- บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ CREATEUR.: F.Cheveau. บ
บ COMMENCE.: Le 12.04.94. บ
บ RELEASE..: Le 12.04.94
l'IUT (Montpellier). บ
บ CONTENU..: Gestion des Couleurs. บ
บ CONTAINS.: X Procedures, X Fonctions. บ
บ EXTERN...: No Specific TPU Needed. บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE GETRGBPALETTE บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: C (BYTE): Numero de la Couleur. บ
บ OUT....: Red,Green,Blue (BYTE): Valeur des Couleurs (de 0
63). บ
บ EXPLAIN: Recupere les valeurs RGB de la couleur Specifie. บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE GETRGBPALETTE บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: C (BYTE): Numero de la Couleur. บ
บ OUT....: Red,Green,Blue (BYTE): Valeur des Couleurs (de 0
63). บ
บ EXPLAIN: Recupere les valeurs RGB de la couleur Specifie. บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
**********************
* //\\ *
* // \\ *
* // \\ *
* // /\ \\ *
* \\ \/ // *
* \\ // *
* \\ // *
* \\// *
**********************
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ --- UNIT ZUUL_MSE --- บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ CREATEUR.: F.Cheveau. บ
บ COMMENCE.: Le 15.02.94 et termin le 25.02.94 (IUT Montpellier). บ
บ RELEASE..: Le 15.04.94
l'IUT (Montpellier). บ
บ CONTENU..: Gestion de la Souris. บ
บ CONTAINS.: X Procedures. บ
บ EXTERN...: Need Classic Units to run Correctly. บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE SET_POINTER บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: Style (BYTE): Numero du Style du Pointeur. บ
บ OUT....: / บ
บ EXPLAIN: Change le Pointeur Souris Selon le Parametre Specifi. บ
บ - "P_Arrow" = 1 = Pointeur Normal en Forme de Flche. บ
บ - "P_Busy" = 2 = Pointeur Occup (Chronomtre). บ
บ - "P_Hand" = 3 = Pointeur Main. บ
บ - "P_Text" = 4 = Pointeur Texte. บ
บ - "P_Target"= 5 = Pointeur Cible. บ
บ - "P_Move" = 6 = Pointeur Dplacement. บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE INIT_MOUSE, DONE_MOUSE บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: / บ
บ OUT....: / บ
บ EXPLAIN: Initialise et Rinstalle la Souris en Graphique. บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ FONCTION INITMOUSE บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: / บ
บ OUT....: / บ
บ EXPLAIN: Initialise la Souris (La positionne au Centre de l'ecran). บ
บ EXEMPLE: INITMOUSE; บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ FONCTION BOXMOUSEG บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: X1,Y1,X2,Y2 = Box de Test de la position souris
l'interieur. บ
บ B = Code du bouton a tester + de la zone. บ
บ 0 = Test Zone + Boutons non Actives. บ
บ 1 = Test Zone + Left Bouton. บ
บ 2 = Test Zone + Middle Button. บ
บ 3 = Test Zone + Right Bouton. บ
บ 10 = Test Zone sans se preocuper des Boutons. บ
บ OUT....: True / False (Boolean). บ
บ EXPLAIN: Teste si la souris se trouve dans le box specifie (Mode Gfx). บ
บ EXEMPLE: If BOXMOUSE(10,15,5,6,3)=True Then Writeln('OK'); บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE MOUSE_BLANKER บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: / บ
บ OUT....: / บ
บ EXPLAIN: Gre le Mouse Blanker. บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURES SHOWMOUSE, HIDEMOUSE บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: / บ
บ OUT....: / บ
บ EXPLAIN: Planque ou Deplanque la Souris บ
บ EXEMPLE: Et puis quoi encore !!! บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURES GETMOUSET, GETMOUSEG บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: X,Y: Coordones de la Souris (Caracteres ou Pixels). บ
บ G,M,D: Etats des Boutons Souris (Gauche, Milieu, Droite) = Bool. บ
บ OUT....: / บ
บ EXPLAIN: Renvois la position et l'etat des boutons de la souris. บ
บ EXEMPLE: GetMouseT(X,Y,LM,RM); Writeln(X,Y,LM,RM); บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURES PUTMOUSET, PUTMOUSEG บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: X,Y: Coordones de la Souris (Caracteres ou Pixels) บ
บ OUT....: / บ
บ EXPLAIN: Positionne la souris aux coordones prcises (Textes ou GFX). บ
บ EXEMPLE: PutMouseT(X,Y); บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURES LIMITEMT, LIMITEMG บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: X1,Y1,X2,Y2: Coordones du Box Limite. บ
บ OUT....: / บ
บ EXPLAIN: Limite les dplacement de la souris dans un box. บ
บ EXEMPLE: LimiteMouseT(16,50,5,10); บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE SPEEDMOUSE บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: X: Mickeys; Y: Pixels บ
บ OUT....: / บ
บ EXPLAIN: Definit le raport entre Mickeys et Pixels. บ
บ EXEMPLE: SpeedMouse(5,10); บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURES INIT_CURSOR & LOCATE บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: X,Y (INTEGER) = Position X,Y du Curseur Graphique. บ
บ Style (INTEGER) = Style du Curseur Graphique. บ
บ Blink (INTEGER) = Vitesse Clignotement en 100eme de Secondes. บ
บ Loc (LOCG) = Pointeur sur Structure Curseur. บ
บ OUT....: / บ
บ EXPLAIN: Positionne le Curseur Graphique en X,Y, Initialise le Style บ
บ du Curseur (1=Plain, 2=Underline, 3=Vertical), et le Blink. บ
บ EXEMPLE: INIT_CURSOR(1,20,Loc); LOCATE(200,100,Loc); บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE CURSONG บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: Loc (LOCG) = Pointeur sur Structure Curseur. บ
บ OUT....: / บ
บ EXPLAIN: Affiche le Curseur Graphique en X,Y. บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE CURSOFFG บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: Loc (LOCG) = Pointeur sur Structure Curseur. บ
บ OUT....: / บ
บ EXPLAIN: Supprime le Curseur Graphique en X,Y. บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ FUNCTION CLICK_MOUSE บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: / บ
บ OUT....: True/False (BOOLEAN). บ
บ EXPLAIN: Teste si l'un des boutons de la souris est cliqu. บ
บ EXEMPLE: If CLICK_MOUSE=True Then ... บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURES DEF_DOUBLE_CLICK, DEF_MOUSE_DELAY บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: T (INTEGER): Valeur en Milisecondes pour un Double Click ou Delayบ
บ OUT....: / บ
บ EXPLAIN: Redfinit le delay pour un double click ou le Delay Click. บ
บ EXEMPLE: DEF_DOUBLE_CLICK(100); DEF_MOUSE_DELAY(100); บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ FUNCTION MOUSE_DELAY บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: / บ
บ OUT....: True/False (BOOLEAN): True = Mouse Delay Pass. บ
บ EXPLAIN: Permet de Savoir si le Delay Mouse Click est pass. บ
บ EXEMPLE: If MOUSE_DELAY=True Then ... บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ FUNCTION CLICK_MOUSE บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: / บ
บ OUT....: True/False (BOOLEAN): True = Double Click Russit. บ
บ EXPLAIN: Permet de Savoir si on a Double Click sur un Item. บ
บ EXEMPLE: If CLICK_MOUSE=True Then ... บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
**********************
* //\\ *
* // \\ *
* // \\ *
* // /\ \\ *
* \\ \/ // *
* \\ // *
* \\ // *
* \\// *
**********************
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ --- UNIT ZUUL_SWAP --- บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ CREATEUR.: F.Cheveau & Fraggy. บ
บ COMMENCE.: Le 26.11.93 et termin le 26.11.93 (Piaule
Vincent). บ
บ RELEASE..: Le 15.12.93
l'IUT (Montpellier). บ
บ CONTENU..: Gestion Screen, Routines Asm, Swap Pages... บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ FUNCTION GETACTIVEPAGE บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: X: Numero de la page (de 0 a 3) บ
บ OUT....: / บ
บ EXPLAIN: Renvois le Numro de la Page Active. บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURES TSWAP.SAVE, TSWAP.LOAD บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: Page = Numero de la Page sur laquelle on doit copier le screen. บ
บ OUT....: / บ
บ EXPLAIN: Copy dans une page le screen precedement garde en mmoire. บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
**********************
* //\\ *
* // \\ *
* // \\ *
* // /\ \\ *
* \\ \/ // *
* \\ // *
* \\ // *
* \\// *
**********************
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ --- UNIT ZUUL_TXT --- บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ CREATEUR.: F.Cheveau. บ
บ COMMENCE.: Le 06.11.93 et termin le 16.11.93 (IUT Montpellier). บ
บ RELEASE..: Le 15.12.93
l'IUT (Montpellier). บ
บ CONTENU..: Gestion d'Ecran, Fenetres, Requesters, Traitement Strings. บ
บ CONTAINS.: 12 Procedures, 4 Fonctions. บ
บ EXTERN...: Need ZUUL_SWA Unit to run correctly. บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ FUNCTION SPECIAL_KEY บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: NUM (BYTE) = Numro de la touche Spciale
tester. บ
บ OUT....: True/False (BOOLEAN) = Touche Enfonce ou pas. บ
บ EXPLAIN: Teste une des touches Spciale du Clavier. บ
บ Voir plus bas pour le numro de la touche
tester. บ
บ EXEMPLE: If SPECIAL_KEY(1)=True Then Write('Shift Droit Prss'); บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE CHAR_TO_HEXA บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: C (STRING) = String Hexa. บ
บ OUT....: (BYTE) = Valeur Hexa du String. บ
บ EXPLAIN: Convertit un String Hexa de 1 Char en Hexa sur un Byte. บ
บ EXEMPLE: Val1:=CHAR_TO_HEX('$F'); บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE WORD_TO_STRING บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: D (WORD) = Word
Convertir. บ
บ OUT....: STRING[4] = Valeur du String aprs conversion. บ
บ EXPLAIN: Transforme un Word Decimal en String[4] Hexadecimal. บ
บ EXEMPLE: T1:=WORD_TO_STRING(Val1); บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE DISPG บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ Affiche un texte aux coordones X,Y et avec la Couleur de fond C บ
บ En effaant ce qu'il y avait avant. บ
บ IN: / OUT: / MODIFIABLE SELON BESOINS. บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ FUNCTION LOWER,UPPER,MIDDER บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: STRING บ
บ OUT....: / บ
บ EXPLAIN: PASSE DE MINUSCULE EN MAJUSCULE OU VICE VERCA. บ
บ EXEMPLE: Writeln(Lower('FREderic'),Upper(FREderic),Midder(FREderic)); บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ FUNCTION CRYPT บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: STR1(STRING), STR2(STRING), PH1(STRING) บ
บ OUT....: CRYPT(STRING) บ
บ EXPLAIN: CRYPTE/DECRYPTE UN STRING (STR1,STR2:ALPHABETS DE COMMUTATIONS). บ
บ EXEMPLE: ALAPHABET:='ABCDEFGHIJKLMNOPQRSTUVWXYZ !'; บ
บ COD_CRYPT:='MQLSKDJF!HGWNXBCVAPZ OEIRUYT'; บ
บ PHRASE:='ALORS CA CRYPTE DUR NON !'; บ
บ CRYPT(ALPHABET,COD_CRYPT,PHRASE); บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE WAIT บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: / บ
บ OUT....: / บ
บ EXPLAIN: ATTENDS Q'UNE TOUCHE SOIT PRESSEE. บ
บ EXEMPLE: Wait; Toujours no Comments ! บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ FUNCTION GETCHAR บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: / บ
บ OUT....: True/False (BOOLEAN) = Touche Clavier Frappe ou pas. บ
บ Ac,Sc (BYTE) = Code ASCII et Scan Code de la Touche Frappe. บ
บ EXPLAIN: Teste une touche du clavier. บ
บ EXEMPLE: If GETCHAR(Ac,Sc)=True Then Write(Chr(As)); บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
**********************
* //\\ *
* // \\ *
* // \\ *
* // /\ \\ *
* \\ \/ // *
* \\ // *
* \\ // *
* \\// *
**********************
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ --- UNIT ZUUL_TOOLS --- บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ CREATEUR.: F.Cheveau. บ
บ COMMENCE.: Le 06.11.93 et termin le 16.11.93 (IUT Montpellier). บ
บ RELEASE..: Le 15.12.93
l'IUT (Montpellier). บ
บ CONTENU..: Gestion d'Ecran, Fenetres, Requesters, Traitement Strings. บ
บ CONTAINS.: 12 Procedures, 4 Fonctions. บ
บ EXTERN...: Need ZUUL_SWA Unit to run correctly. บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE BEEP บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: / บ
บ OUT....: / บ
บ EXPLAIN: PRODUIT UNE MODULATION DE SONS. บ
บ EXEMPLE: Beep; He he !!! (No Comments) บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE BEVEL บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: X1,Y1,X2,Y2 (INTEGER) = Position du Bevel
l'cran. บ
บ STYLE,CO: (INTEGER) = Styles et Couleurs de Remplissage. บ
บ CAVE: (BOOLEAN) = Cadre Inverse ou Pas. บ
บ FILL: (BOOLEAN) = Remplis le Box ou Pas. บ
บ OUT....: / บ
บ EXPLAIN: AFFICHE UNE BOITE EN RELIEF A L'ECRAN AUX COORDONEE PRECISEE. บ
บ EXEMPLE: BEVEL(10,100,130,110,True); บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE STRING_BOX บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: X1,Y1,X2,Y2 (INTEGER) = Position de la Boite
l'cran. บ
บ C1,C2 (INTEGER) = Couleurs de Dessin de la Boite. บ
บ Style (BOOLEAN) = Style de Boite (True=Entoure, False=Refief). บ
บ OUT....: / บ
บ EXPLAIN: Affiche une boite Style String-Box
l'cran. บ
บ EXEMPLE: STRING_BOX(10,100,130,110,0,7,True); บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ FUNCTION LIGHT_BOX บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: LB (LIGHTB) = Pointeur sur Structure Light-Box. บ
บ M (WORD) = Numro du Bouton Souris
Activer. บ
บ OUT....: True/False (BOOLEAN) = Cadre Trac et Relach. บ
บ EXPLAIN: Affiche et Agrandit un cadre en Pointills a l'cran. บ
บ Le coordones de la Boite trace sont accssibles en lecture บ
บ Dans les Champs LightB.(X1,Y1,X2,Y2). บ
บ EXEMPLE: If Light_Box(LB,1)=True Then บ
บ Write(LB.X1,' ',LB.Y1,' ',LB.X2,' ',LB.Y2); บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
**********************
* //\\ *
* // \\ *
* // \\ *
* // /\ \\ *
* \\ \/ // *
* \\ // *
* \\ // *
* \\// *
**********************
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ --- UNIT ZUUL_XMS --- บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ CREATEUR.: F.Cheveau & Greg Estabrooks. บ
บ COMMENCE.: ?. บ
บ RELEASE..: Le 22.07.94
HTS (Montescot). บ
บ CONTENU..: Routines de Gestion de l'XMS et de la HMA. บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ FUNCTION XMSDriver บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: / บ
บ OUT....: True/False (BOOLEAN): True si XMS Driver Existe. บ
บ EXPLAIN: Teste l'existence d'un driver XMS. Si le driver est Install, บ
บ La Routine Charge l'XMSControl et le XMS API pour les autres Routบ
บ EXEMPLE: If XMSDriver Then Writeln('XMS Driver Exist'); บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ FUNCTION XMSControlAdr บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: / บ
บ OUT....: (POINTER): Pointer XMSController. บ
บ EXPLAIN: Retourne un Pointeur sur le Controller XMS. บ
บ EXEMPLE: P:=XMSControlAdr; บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ FUNCTION XMSVer บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: / บ
บ OUT....: Version (WORD): Un Word Contenant la Version. บ
บ EXPLAIN: Retourne la Version du driver XMS. บ
บ EXEMPLE: Writeln('XMSDriver Version: ','XMSver); บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ FUNCTION XMSRev บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: / บ
บ OUT....: Revision (WORD): Un Word Contenant le Numro de Rvision. บ
บ EXPLAIN: Retourne le Numro de Rvision du driver XMS. บ
บ EXEMPLE: Writeln('XMSDriver Revision: ','XMSver); บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ FUNCTION XMSGetFreeMem บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: / บ
บ OUT....: Free Memory (WORD): Mmoire Libre en Kb. บ
บ EXPLAIN: Retourne la Quantite de Mmoire Libre en Kb. บ
บ EXEMPLE: Writeln('XMS Libre: ','XMSGetFreeMem); บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ FUNCTION XMSGetLargeBlock บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: / บ
บ OUT....: Largest Free Block (WORD): Block Mmoire le Plus Gros. บ
บ EXPLAIN: Retourne la Taille du Plus gros bloc Mmoire Libre en Kb. บ
บ EXEMPLE: Writeln('XMS Largest Block: ','XMSGetLargeBlock); บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ FUNCTION XMSGetMem บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: Block (WORD) = บ
บ OUT....: Handle (POINTER) = Handle de la Mmoire Alloue. บ
บ EXPLAIN: Retourne Un Handle sur la Place Mmoire Alloue. บ
บ NB.....: Si il y a une Erreur, le Handle est Invalide. บ
บ EXEMPLE: บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE XMSGetMem บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: Handle (WORD) = Pointeur sur le Bloc
Sucrer. บ
บ OUT....: / บ
บ EXPLAIN: Libre la Place Mmoire Alloue par XMSGetMem. บ
บ EXEMPLE: บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE XMSGetMem บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: Handle (WORD) = Pointeur sur le Bloc
Sucrer. บ
บ OUT....: / บ
บ EXPLAIN: Permet de Dplacer dans l'XMS des Blocs de Mmoire allous บ
บ par la Fonction XMSGetMem. บ
บ NB.....: La longueur du Bloc doit tre Paire. บ
บ EXEMPLE: บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE XMSLockBlock บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: Handle (WORD) = Pointeur sur le Bloc
Figer. บ
บ OUT....: / บ
บ EXPLAIN: Permet de Bloquer un Bloc de Mmoire allous dans l'XMS. บ
บ On ne peut plus ensuite les dplacer. บ
บ EXEMPLE: บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE XMSUnLockBlock บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: Handle (WORD) = Pointeur sur le Bloc
Dbloquer. บ
บ OUT....: / บ
บ EXPLAIN: Permet de Dbloquer un Bloc de Mmoire allous dans l'XMS. บ
บ Cette fonction doit tre utilise aprs XMSLockBlock. บ
บ EXEMPLE: บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE XMSReallocate บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: Handle (WORD) = Pointeur sur le Bloc de Mmoire. บ
บ NewSize (WORD) = Nouvelle Taille du Bloc. บ
บ OUT....: / บ
บ EXPLAIN: Ralloue un Nouveau Bloc de Mmoire XMS avec une Nouvelle Taille.บ
บ EXEMPLE: บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE HMAExists บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: / บ
บ OUT....: True/False (BOOLEAN) = True Si elle Existe. บ
บ EXPLAIN: Teste si la Mmoire HMA Existe ou pas. บ
บ EXEMPLE: If HMAExists Then Writeln('Mmoire HMA installe.'); บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE HMARequest บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: RequestType (WORD) = บ
บ OUT....: / บ
บ EXPLAIN: Tente de Rserver 64 Ko de HMA. บ
บ NB.....: Le RequestType doit Etre FFFF = Pour une Application. บ
บ ou bien la Taille Mmoire Demande s'il s'agit d'un TSR. บ
บ EXEMPLE: บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE HMARelease บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: / บ
บ OUT....: / บ
บ EXPLAIN: Libre la Mmoire HMA Alloue Prcdement. บ
บ NB.....: Le Code/Datas Stocks dans cette Zones Devienent Inaccssibles. บ
บ EXEMPLE: บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE GlobalEnableA20 บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: / บ
บ OUT....: / บ
บ EXPLAIN: Permet Globalement le "A20 Line". บ
บ NB.....: Ne doit tre Utilis que par les Programmes Contrlant la HMA. บ
บ EXEMPLE: บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE GlobalDisableA20 บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: / บ
บ OUT....: / บ
บ EXPLAIN: Empche Globalement le "A20 Line". บ
บ NB.....: Cette Routine Peut Prendre Beaucoup de Temps / Certains Systemes.บ
บ EXEMPLE: บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE LocalEnableA20 บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: / บ
บ OUT....: / บ
บ EXPLAIN: Permet Localement le "A20 Line". บ
บ NB.....: Ne doit tre Utilis que par les Programmes Contrlant la HMA. บ
บ EXEMPLE: บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE LocalDisableA20 บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: / บ
บ OUT....: / บ
บ EXPLAIN: Empche Localement le "A20 Line". บ
บ NB.....: Cette Routine Peut Prendre Beaucoup de Temps / Certains Systemes.บ
บ EXEMPLE: บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ FUNCTION QueryA20 บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: / บ
บ OUT....: True/False (BOOLEAN) = True si le A20 est Physiquement Dsactiv.บ
บ EXPLAIN: Teste si le A20 est Physiquement Dsactiv. บ
บ EXEMPLE: บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ FUNCTION PtrToLong บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: P (POINTER) = Pointeur
Passer en Long. บ
บ OUT....: Long (LONGINT) = Pointeur Transform. บ
บ EXPLAIN: Transforme un Poiteur PC en Pointeur 32 Bits Long. บ
บ EXEMPLE: บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
**********************
* //\\ *
* // \\ *
* // \\ *
* // /\ \\ *
* \\ \/ // *
* \\ // *
* \\ // *
* \\// *
**********************
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ --- UNIT ZUUL_GAD --- บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ CREATEUR.: F.Cheveau. บ
บ COMMENCE.: Le 15.12.93 et termin le 15.12.93 (IUT Montpellier). บ
บ RELEASE..: Le 19.04.94
l'IUT (Montpellier). บ
บ CONTENU..: Gadgets. บ
บ CONTAINS.: X Procedures. บ
บ EXTERN...: Need SWA,TOO,ASM,GFX,COL,TXT Units to run correctly. บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURES INIT_SCREEN, DONE_SCREEN บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN/OUT.: / บ
บ EXPLAIN: Initialise le Screen en Graphique ou Reinstalle le Screen Initialบ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE DEFINE_GADGETS บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN/OUT.: / บ
บ Dessine et Stocke en Mmoire les Gadgets Speciaux Dessins en Graphique. บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE KILL_GADGETS บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN/OUT.: / บ
บ Libere l'espace mmoire alloue pour les Gadgets Spciaux. บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE SLIDER บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: X1,Y1,X2,Y2 (INTEGER): Coordones du Cadre du Slider. บ
บ Qtt (INTEGER):Nombre d'Items Maximums dans la liste. บ
บ Aff (INTEGER):Nombre d'Items Affichs dans le Slider. บ
บ Typ (INTEGER):Type de Slider a Afficher (Vertical ou Horizontal) บ
บ GDep (BOOLEAN):Affichage des Gadgets d'aides (Boutons). บ
บ Sld (SLIDE):Reccord pour Stockage des donnes du Slider. บ
บ Psl (INTEGER):Valeur de la Position du Gadget dans le Slider. บ
บ OUT....: / บ
บ EXPLAIN: Affiche un Gadget Slider en Mode Graphique selon les Parametres. บ
บ OUT....: Position dans la Liste. บ
บ EXEMPLE: SLIDER(10,50,130,70,500,50,0,True,Sld1,RetSld); บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE RADIO_BOX บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: X,Y (INTEGER):Position du Radio-Box. บ
บ Style (WORD):Design du Radio-Box. 0=Invisible, 1=Amiga, 2=PC. บ
บ Status (BOOLEAN):Etat du Radio-Box. True=Slection. บ
บ R (RAD):Pointeur sur Structure du Radio-Box. บ
บ EXPLAIN: Affiche un Radio-Box en Graphique selon les Parametres prciss. บ
บ OUT....: / บ
บ EXEMPLE: RADIO_BOX(10,50,1,True,Rad1); บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE BUTTONG บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: X,Y (INTEGER):Position du Bouton. บ
บ Size (INTEGER):Taille Horizontale du Boutton. บ
บ Lock (BOOLEAN):Boutton On/Off Pouvant rester Enfoncer (TRUE). บ
บ GagBut (BUT):Reccord pour Stockage des donnes du Bouton. บ
บ Name (STRING):Nom du Bouton. บ
บ EXPLAIN: Affiche un Boutton en Mode Graphique selon les Parametres. บ
บ OUT....: / บ
บ NB.....: Il n'est pas possible d'avoir un bouton Slectionn ds le dpartบ
บ EXEMPLE: BUTTONG(10,50,130,False,But1,'Open File'); บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE CYCLER_BUT บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: X,Y (INTEGER):Position du Bouton. บ
บ Size (INTEGER):Taille Horizontale du Boutton. บ
บ Num (INTEGER):Numero du Bouton Afich en Premier. บ
บ GagBut (BUT):Reccord pour Stockage des donnes du Bouton. บ
บ Name (STRING):Nom du Bouton. บ
บ OUT....: / บ
บ EXPLAIN: Affiche un Bouton Cycle
Plusieurs entres Textes. บ
บ EXEMPLE: CYCLER_BUT(410,80,99,ButC,' CRUNCH| DECRUNCH| AUTO DETECT|');บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE DRAW_SLIDER บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: S (Var S:SLIDE): Pointeur sur Structure Slider. บ
บ OUT....: / บ
บ EXPLAIN: Reaffiche le Slider en question
l'cran. บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE DRAW_RADIO_BOX บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: R (SLIDE): Pointeur sur Structure Bouton Radio. บ
บ OUT....: / บ
บ EXPLAIN: Reaffiche le Bouton radio en question
l'cran. บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE DRAW_BUTTONG บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: B (ButG): Pointeur sur Structure Boutton. บ
บ OUT....: / บ
บ EXPLAIN: Reaffiche le Bouton en question
l'cran. บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ FUNCTION GETMSG_BUT บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: B (BUT) = Pointeur sur Structure BoutonG. บ
บ M (WORD) = Code Bouton + Zone d'activation. บ
บ OUT....: True/False (BOOLEAN) = Gadget Cliqu ou non. บ
บ EXPLAIN: Teste si le Gadget reprsent par "B" est cliqu ou pas. บ
บ Dans le cas ou il l'est, la Fonction GADMSG prend la valeur TRUE.บ
บ EXEMPLE: If GETMSG_BUT(Gad01,1)=True Then ..... บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ FUNCTION GETMSG_RADIO บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: R (RAD) = Pointeur sur Structure Radio-Box. บ
บ M (WORD) = Code Bouton + Zone d'activation. บ
บ OUT....: True/False (Boolean) = True = Bouton Prss, False = En Attente. บ
บ EXPLAIN: Renvois l'tat d'un Radio-Box dfinit (Slection ou pas). บ
บ NB.....: L'tat TRUE du Bouton est Passag. Pour tester si le Bouton บ
บ Radio est Slectionn ou pas, il faut tester le Champs "Status". บ
บ de la Structure Radio. บ
บ EXEMPLE: If GETMSG_RADIO(Rad1,1)=True Then ..... บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ FUNCTION GETMSG_SLIDER บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: S (SLIDE) = Pointeur sur Structure Slider. บ
บ M (WORD) = Code Bouton + Zone d'activation. บ
บ OUT....: True/False (Boolean) = Slider Dplac ou pas. บ
บ EXPLAIN: Teste si le Slider est Dplac ou pas et gere ses dplacements. บ
บ EXEMPLE: If GETMSG_SLIDER(Sld1,1)=True Then ..... บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
**********************
* //\\ *
* // \\ *
* // \\ *
* // /\ \\ *
* \\ \/ // *
* \\ // *
* \\ // *
* \\// *
**********************
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ --- UNIT ZUUL_WIN --- บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ CREATEUR.: F.Cheveau. บ
บ COMMENCE.: Le 15.12.93 et termin le 15.12.93 (IUT Montpellier). บ
บ RELEASE..: Le ........
l'IUT (Montpellier). บ
บ CONTENU..: Windows (Gestion des fentres). บ
บ CONTAINS.: X Procedures. บ
บ EXTERN...: Need ZUUL_SWA Unit & ZUUL_TOO Unit to run correctly. บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE INIT_WINDOW บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: X1,Y1,X2,Y2 (INTEGER): Coordones de la fentre. บ
บ IDCMP (WORD): Flags IDCMP de la fentre. บ
บ Bit 0 $001 = Active Window Activate. บ
บ Bit 1 $002 = Extended Gadget Extended. บ
บ Bit 2 $004 = Size Gadget Size. บ
บ Bit 3 $008 = Swap Gadget Swap. บ
บ Bit 4 $010 = Close Gadget Close. บ
บ Bit 5 $020 = Backdrop Fentre Toujours vers l'arrire. บ
บ Bit 6 $040 = Block Flag Limit Move Window to Screen. บ
บ Bit 7 $080 = Title Fentre Avec Titles. บ
บ Bit 8 $100 = Border Fentre Avec Bords. บ
บ Bit 9 $200 = Cursor Assignation d'un Curseur
la Fentre. บ
บ Bit 10 $400 = Loked Fentre Bloque en Active ou Inactive. บ
บ Bit 11 * $800 = CON/RAW Fentre CON si Activ. บ
บ Bit 12 $1000 =Modale Win Modale=Refresh Screen when move. บ
บ Bit 13 $2000 =Transparent Fentre Transparente. บ
บ Bit 14 $4000 =Move Fentre peut tre Dplace. บ
บ Bit 15 $8000 =Relief Fentre Avec Bords en Reliefs. บ
บ Name (STRING): Nom de la fentre. บ
บ W (WIN): Pointeur sur Structure Fentre alloue. บ
บ OUT....: / บ
บ EXPLAIN: Initialise la structure Fentre. บ
บ NB.....: Utilisez le programme "FLAG_WIN" pour dfinir aisment les bits. บ
บ EXEMPLE: INIT_WINDOW(10,50,450,120,$13DE,'FENETRE 1',Win1); บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE SUP_WINDOW บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: Xu,Yu,Xv,Yv (INTEGER): Secondes Coordones de la fentre. บ
บ X1,Y1,X2,Y2 (INTEGER): Size Min et Max de la Fentre. บ
บ BarSld (INTEGER): Nombre et position des barres de la Fentre. บ
บ Coul (INTEGER): Couleur de fond de la Fentre. บ
บ W (WIN): Pointeur sur Structure fentre alloue. บ
บ EXPLAIN: Initialise des dfinitions suplmentaires pour la fentre. บ
บ OUT....: /. บ
บ NB.....: Cette Procedure doit toujours tre apelle aprs INIT_WINDOW. บ
บ EXEMPLE: SUP_WINDOW(0,0,200,100,80,50,530,200,3,Col5,W); บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE DRAW_WINDOW บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: Window1 (WIN): Pointeur sur Structure Window. บ
บ OUT....: /. บ
บ EXPLAIN: Affiche la fentre dfinie dans INIT_WINDOWG avec ses Gadgets. บ
บ EXEMPLE: DRAW_WINDOW(Window1); บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE TASK_WINDOW บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: Window1 (WIN): Pointeur sur Structure Window. บ
บ OUT....: / บ
บ EXPLAIN: Gere le Multifenetrage pour des fentres non modales บ
บ Dclares comme telles (Bit 12
1). บ
บ EXEMPLE: TASK_WINDOW(Window1); บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE RENAME_WINDOW บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: Window1 (WIN): Pointeur sur Structure Window. บ
บ NewName (STRING): Nouveau nom de la Fentre. บ
บ OUT....: / บ
บ RESTRICTIONS: La fentre doit posseder une barre de Titre. บ
บ EXPLAIN: Renome la fentre (Change son titre). บ
บ EXEMPLE: RENAME_WINDOW('I WANT SOME GIRLS',Window1); บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE CLEAR_WINDOW บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: Window1 (WIN): Pointeur sur Structure Window. บ
บ OUT....: / บ
บ EXPLAIN: Nettoie l'interieur de la fentre quelquesoit son type. บ
บ EXEMPLE: CLEAR_WINDOW(Window1); บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ FUNCTION BOX_IN_BOX บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: X1,Y1,X2,Y2 (Integer) = Coordones 1er Box. บ
บ X3,Y3,X4,Y4 (Integer) = Coordones 2nd Box. บ
บ OUT....: True/False (BOOLEAN) = True = Ils Sont superposs. บ
บ EXPLAIN: Teste si 2 box sont partiellement ou totalement imbriqus. บ
บ EXEMPLE: If Box_In_Box(1,100,300,200,50,50,500,120)=True Then บ
บ Write('Ils se superposent...'); บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE CLIP_WINDOW บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: CLIP (BOOLEAN): Clipping Fentre Actif ou Pas (True=Actif). บ
บ W (WIN): Pointeur sur Structure Window. บ
บ OUT....: / บ
บ EXPLAIN: Autorise ou pas le clipping dans une fentre. บ
บ Tout ce qui sera affich aprs cette instruction ne pourra บ
บ l'tre que dans la fentre. บ
บ EXEMPLE: CLIP_WINDOW(True,W1); บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE ZOOM_WINDOW บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: Mode (BOOLEAN): False = Zoom In, True = Zoom Out. บ
บ Window1 (WIN): Pointeur sur Structure Window. บ
บ EXPLAIN: Fait un Zoom sur la Fentre en question
partir de la pos Sourisบ
บ OUT....: / บ
บ EXEMPLE: ZOOM_WINDOW(Window1); บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE KILL_WINDOW บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: Window1 (WIN): Pointeur sur Structure Window. บ
บ EXPLAIN: Dtruit la fentre en question, et libre l'espace mmoire. บ
บ OUT....: / บ
บ EXEMPLE: KILL_WINDOW(Window1); บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ FUNCTION WINDOW_READY บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: Window1 (WIN) = Pointeur sur Structure Window. บ
บ OUT....: True/False (BOOLEAN) = Fentre Ok (True). บ
บ EXPLAIN: Prvient si la Fentre est prte pour tester les Gadgets. บ
บ EXEMPLE: If WINDOW_READY(Window1) Then ...... บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE IDCMP_WINDOW บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: IDCMP (WORD): Nouveaux Flags IDCMP de la Fentre. บ
บ Window1 (WIN): Pointeur sur Structure Window. บ
บ EXPLAIN: Redfinit les flags IDCMP pour la Fentre Pointe. บ
บ OUT....: / บ
บ EXEMPLE: IDCMP_WINDOW($47DE,Window1); บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE IDRES_WINDOW บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: IDRES (WORD): Nouveaux Flags IDRES de la Fentre. บ
บ Window1 (WIN): Pointeur sur Structure Window. บ
บ EXPLAIN: Redfinit les flags IDRES pour la Fentre Pointe. บ
บ OUT....: / บ
บ EXEMPLE: IDRES_WINDOW($0003,Window1); บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ FUNCTION ACTIVE_WINDOW บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: W (WIN): Pointeur sur Structure Window. บ
บ OUT....: Val (INTEGER): Une Valeur Prcisant le type d'activation. บ
บ 1 = Gadget Close Window Activated. บ
บ 2 = Gadget Swap Window Activated. บ
บ 3 = Gadget Extend Window Activated (New Size,Pos).บ
บ 4 = Gadget Resize Window Activated. บ
บ 5 = Window Activated. บ
บ 6 = Window Inactived. บ
บ Pas encore fonctionnel 7 = Char or String was Input (CON Window Only). บ
บ 8 = Window has been Swapped and may be Refresh. บ
บ 9 = Window has been Moved. บ
บ EXPLAIN: Permet de gerer une fentre (Activation, Gadgets, Extend...). บ
บ EXEMPLE: Even:=ACTIVE_WINDOW(Window1); บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE MOVE_WINDOW บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: W (WIN): Pointeur sur Structure Window. บ
บ EXPLAIN: Permet le dplacement en mode graphique d'une fentre. บ
บ EXEMPLE: MOVE_WINDOW(Window1); บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
**********************
* //\\ *
* // \\ *
* // \\ *
* // /\ \\ *
* \\ \/ // *
* \\ // *
* \\ // *
* \\// *
**********************
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ --- UNIT ZUUL_DIR --- บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ CREATEUR.: F.Cheveau. บ
บ COMMENCE.: Le 15.12.93 et termin le 18.05.94 (IUT Montpellier). บ
บ RELEASE..: Le 18.05.94.
l'IUT (Montpellier). บ
บ CONTENU..: Requesters de Directory. บ
บ CONTAIN..: X Procedures. บ
บ EXTERN...: Need WIN,GAD,SWA,TOO,MSE,TXT,COL,REQ Units to run correctly. บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ FUNCTION GET_DEVICE_NAME บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: Root (STRING) = Label du Volume (Ex: "C:\"). บ
บ OUT....: Name (STRING) = Nom du Volume. บ
บ EXPLAIN: Renvois le Nom du Volume Spcifi. บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ FUNCTION TEST_DEVICES บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: Dev (BYTE): Numero du Device a Tester. บ
บ OUT....: True/False (BOOLEAN): True si le Device Existe. บ
บ EXPLAIN: Teste l'existence d'un directory Prcis par son numro d'ordre. บ
บ EXEMPLE: If GET_DEVICES(3)=True Then Writeln('"C:" Existe'); บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE GET_FILEDIR บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: X,Y (INTEGER): Position X,Y de la Fentre. บ
บ Sv (INTEGER): Taille Verticale de la Fentre. บ
บ Name (STRING): Nom de la Fentre. บ
บ OkBut(STRING): Nom pour le Gadget 'OK'. บ
บ Mask (STRING): Mask pour le Directory. บ
บ Filordir(BYTE): Utilis dans la prochaine version de MOS, บ
บ Ici, mettez-le toujours
0. บ
บ OUT...: DirSel (STRING): Directory Slectionn. บ
บ FilSel (STRING): File Slectionn. บ
บ Size (LONGINT): Taille du Fichier Selectionn. บ
บ EXPLAIN: Affiche et gere un Requester de type File Requester. บ
บ Renvois le nom du Fichier Slectionn sinon, une Chaine Vide. บ
บ NB.....: Voir les Commentaires du mme Requester mais en texte pour บ
บ plus de dtails. บ
บ EXEMPLE: GET_FILEDIR(50,30,280,'LOAD','OK','*.*',0,DirSel,FilSel,Size); บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
**********************
* //\\ *
* // \\ *
* // \\ *
* // /\ \\ *
* \\ \/ // *
* \\ // *
* \\ // *
* \\// *
**********************
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ --- UNIT ZUUL_REQ --- บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ CREATEUR.: F.Cheveau. บ
บ COMMENCE.: Le 15.12.93 et termin le 15.12.93 (IUT Montpellier). บ
บ RELEASE..: Le 18.04.94
l'IUT (Montpellier). บ
บ CONTENU..: Requesters de tous types. บ
บ CONTAINS.: X Procedures. บ
บ EXTERN...: Need ASM,GFX,SWA,COL,MSE,TXT,GAD,TOO,WIN Units to run correctlyบ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE MAIN_TASK บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: / บ
บ OUT....: / บ
บ EXPLAIN: Gre les principale Tches telles que les Erreurs pouvant บ
บ Survenir, le Blanker Souris.... etc บ
บ NB.....: Doit tre Appele rgulirement (Procedure d'interruption), บ
บ ou Boucle perptuelle de test. บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ FUNCTION CO_REQUESTG บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: X,Y = (WORD) Position ou Afficher le Requester. บ
บ SIZ = (WORD) Longeur maximale du Requester
l'cran. บ
บ LEN = (BYTE) Longeur maximale du texte a afficher. บ
บ CoB = (BYTE) Couleur du Background. บ
บ Sty = (BYTE) Style de Design pour le Requester. บ
บ 0 = String Box, 1 = Box Normale. บ
บ IN/OUT.: CIN = (STRING) String renvoye par le requester. บ
บ EXPLAIN: Affiche un requester de string, le Gere, et renvois "TRUE" quand บ
บ L'utilisateur
Press ENTER. Le String est lu dans "CIN". บ
บ EXEMPLE: Cin:='Changez cette phrase'; บ
บ CO_REQUEST(10,10,143,40,Cin); บ
บ NB.....: Si Cin n'est pas une chaine vide avant l'appel du requester, บ
บ Elle sera affiche dans celui-ci. บ
บ Dans le Requester, les touches suivantes sont reconnues: บ
บ Enter, Delete, Backspace, Dbut, Fin, Flche Droite,Flche Gaucheบ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE PROGRESS_REQUESTG บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: NAME (STRING) = Nom de la Fentre. บ
บ EXPLAIN (STRING) = Label d'Explications d'en dessous de la Barre.บ
บ Val (INTEGER) = Valeur du Pourcentage (0-100%). บ
บ CoB (INTEGER) = Couleur de Remplissage du Fond. บ
บ P (TPROGRESS) = Pointeur sur Structure TProgress. บ
บ OUT....: / บ
บ EXPLAIN: Affiche et Gre un Requester d'Indice de Progression en (%). บ
บ NB.....: L'initialisation du Requester se Fait en Plaant
0 la บ
บ Variable "Val", et sa Fermeture, en Plaant a 100 "Val". บ
บ Si le Bouton Abort est Prss, le Champ "Abort" est mis
TRUE. บ
บ EXEMPLE: PROGRESS_REQUESTG('Computing...','Crunching',33,12,P); บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE HARDWARE_REQUESTG บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: X1,Y1 (INTEGER) = Coordones de la Fentre. บ
บ NAME (STRING) = Nom de la Fentre. บ
บ OUT....: / บ
บ EXPLAIN: Affiche et Gre un Requester d'Affichage du Harware de บ
บ l'Ordinateur sur lequel a t Lanc le Requester. บ
บ EXEMPLE: HARDWARE_REQUESTG(200,100,'YOUR HARDWARE CONFIGURATION IS...'); บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ - PROCEDURE MEMORY REQUESTG - บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: X1,Y1 (INTEGER) = Coordones de la Fentre. บ
บ NAME (STRING) = Nom de la Fentre. บ
บ OUT....: / บ
บ EXPLAIN: Affiche le Status Mmoire Initial, Actuel, et la Taille บ
บ du plus gros bloc Mmoire Disponible (XMS, Version DOS...). บ
บ EXEMPLE: MEMORY_REQUESTG(200,100,'SEE IT ....'); บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE SYSTEM_REQUESTG บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: X1,Y1 (INTEGER) = Coordones de la Fentre. บ
บ NAME (STRING) = Nom de la Fentre. บ
บ OUT....: / บ
บ EXPLAIN: Affiche et Gre un Requester de Configuration du Systeme MOS. บ
บ EXEMPLE: SYSTEM_REQUESTG(200,100,'SELECT YOUR CONFIGURATION'); บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE EZ_REQUESTG บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: NAME (STRING) = Nom de la Fentre. บ
บ TXT (STRING) = Texte a afficher dans le requester. บ
บ GAD (STRING) = Texte des Gadgets a afficher. บ
บ OUT....: NUM (INTEGER) = Numro du gadget Selectionn. บ
บ EXPLAIN: Affiche au centre de l'cran un requester du type EZ_REQUEST. บ
บ et attends la selection de l'un des gadgets. บ
บ Renvois le numro du gadget choisit. บ
บ EXEMPLE: NAM:='SYSTEM REQUEST'; บ
บ TXT:='Ok pour le test|des Gadgets|'; บ
บ GAD:='Ok|Cancel|Restore|'; บ
บ EZ_REQUESTG(NAM,TXT,GAD,NUM); บ
บ NB.....: Les fin de lignes et les differents gadgets sont spars par บ
บ la barre verticale '|'. บ
บ On est limite a maximum 10 gadgets affichables a l'cran. บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE STRING_REQUESTG บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: NAME (STRING) = Nom de la Fentre. บ
บ TXT (STRING) = Texte a afficher dans le requester. บ
บ GAD (STRING) = Texte des Gadgets a afficher. บ
บ NbCar (INTEGER) = Nombre de Char Max pouvant tre rentrs. บ
บ Size (INTEGER) = Longeur en Pixel de la barre "Input String". บ
บ IN/OUT.: Cin (STRING) = String Envoy/Renvoy. บ
บ OUT....: NUM (INTEGER) = Numro du gadget Selectionn. บ
บ EXPLAIN: Affiche au centre de l'cran un requester du type STRING_REQUEST.บ
บ et attends la selection de l'un des gadgets. บ
บ Renvois le numro du gadget choisit et le String Entr. บ
บ EXEMPLE: NAM:='SYSTEM REQUEST'; บ
บ TXT:='Rentrez un String SVP||Allez-y Quoi !!!|'; บ
บ GAD:='Ok|Hold|Cancel|'; บ
บ EZ_REQUESTG(NAM,TXT,GAD,40,120,Cin,NUM); บ
บ NB.....: Les fin de lignes et les differents gadgets sont spars par บ
บ la barre verticale '|'. บ
บ On est limite a maximum 10 gadgets affichables a l'cran. บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
บ PROCEDURE PALETTE_REQUESTG บ
ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน
บ IN.....: X,Y (INTEGER) = Coordones du requester Palette
l'Ecran. บ
บ NAME (STRING) = Nom de la Fentre. บ
บ OUT....: NUM (SHORTINT) = Numro du gadget Selectionn. บ
บ EXPLAIN: Affiche un requester de Palette et le gre. บ
บ Renvois le numro de la couleur choisie dans "NUM". บ
บ EXEMPLE: PALETTE_REQUESTG(100,100,'Please Select a Palette',NUM); บ
ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
---------------------------- EXEMPLE DE LOGICIEL -----------------------------
---------------------- PROGRAMME AVEC L'INTERFACE DE MOS ---------------------
Il s'agit du logiciel "DS.EXE" qui permet de tester la vitesse
d'criture sur disque en faisant varier certains paramtres comme la taille
du buffer d'criture, ou encore la taille du fichier.
Le logiciel se trouve dans le rpertoire C:\MOS\EXEMPLES\SOFTS
Les sources du logiciel sont incluses de manire
pouvoir vous rendre compte
des techniques et fonctions de MOS employes pour son dveloppement.
L'interface de ce logiciel
t dveloppe en trois jours grce
MOS.
Si vous dsirez de plus amples informations au sujet de ce logiciel, ou
de MOS, n'hsitez pas
me contacter.
CHEVEAU Frdric,
8 Passage des grillons,
66000 Perpignan,
FRANCE.
Ou bien pour ceux qui possdent un minitel,
faites le 36.14, Code "RTEL1" (aprs 10 heures 30 le soir, se serveur
ne cote que 12 centimes la minute, donc ca ne vous ruinera pas !).
Et laissez moi un message dans ma boite au lettre "BouFFtou".