M.O.S (Master Operating System) Interface v1.0 (C)1994 F.Cheveau. MOS est un ensemble d'unit‚s Turbo Pascal permettant de cr‚er rapidement ses propres interfaces en mode texte ou graphique. Il peut servir de support au d‚veloppement de vos programmes et propose de nombreuses fonctions in‚dites qui font d‚faut au Turbo Pascal. MOS permet entre autre de g‚rer: - La Souris, - Les Fenˆtres (et le multifenetrage), - Les Menus, - Les Gadgets, - Les Requesters (de fichiers, de dialogues ...), - La M‚moire XMS, - et bien d'autres choses encore. De nombreux exemples (ex‚cutables et sources) sont fournis de maniŠre … vous permettre de progresser rapidement dans le d‚veloppement de vos programmes. Si vous d‚sirez me contacter, ‚crivez-moi … l'adresse suivante: CHEVEAU Fr‚d‚ric, 8 Passage des grillons, 66000 Perpignan, FRANCE. Ou bien pour ceux qui possŠdent un minitel, faites le 36.14, Code "RTEL1" (apr‚s 10 heures 30 le soir, se serveur ne co–te 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 - Pr‚sentation g‚n‚rale 4 - Contenu de l'archive "MOS.EXE" 5 - Version future de MOS 6 - Description des unit‚es de l'interface Texte 7 - Description des unit‚es de l'interface Graphique 8 - Un exemple de logiciel d‚velopp‚ avec MOS: Disk Speed v1.0 CONVENTION D'ENREGISTREMENT --------------------------- Les personnes d‚sirant s'enregistrer pour MOS Interface doivent prendre connaissance de la convention d'enregistrement suivante: 1 - Ce pr‚sent programme ne peut ˆtre diffus‚ qu'en respectant l'int‚grit‚ de l'oeuvre originale tant sur le nombre de fichiers, que sur les mentions l‚gales 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 … caractŠre 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 autoris‚e par l'auteur dans le respect du point 1*. Cette diffusion se doit d'ˆtre gratuite. Le diffuseur ne pouvant pr‚tendre qu'… un ‚ventuel d‚dommagement p‚cuniaire au titre de frais de copie et de support. Cet ‚ventuel d‚dommagement ne pourra en aucun cas ˆtre sup‚rieur a 30 FF. 4 - L'auteur est seul habilit‚ … percevoir la contribution … titre de Shareware. Cette r‚mun‚ration ne peut en aucun cas ˆtre collect‚e par un tiers … quelque titre que ce soit. 5 - L'auteur est seul habilit‚ … dispenser les licences d'utilisation provisoires et d‚finitives. 6 - Aucune restriction territoriale de diffusion de ce logiciel n'est formul‚e par l'auteur. 7 - Aucune restriction de diffusion dans le temps de ce logiciel n'est formul‚e 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, d‚tourn‚ ou frauduleux dont ce logiciel pourrait faire l'objet, soit par l'utilisateur lui-mˆme, soit par un tiers. 9 - Pass‚ le d‚lai de libre-‚ssai de 21 Jours, si vous souhaitez obtenir une licence d‚finitive 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 calcul‚e selon le barŠme suivant. Toute utilisation de ce logiciel sans licence d‚finitive, pass‚ ce d‚lai, serait irr‚guliŠre. La licence d‚finitive vous donnera droit … diffuser les programmes de votre r‚alisation utilisant le logiciel MOS Interface v1.0. La licence d‚finitive est nominative, elle ne peut en aucun cas ˆtre l'objet d'une cession, transmission ou vente. -------------------------------------------------------------------------- FORMULAIRE D'ENREGISTREMENT pour MOS -------------------------------------------------------------------------- Formulaire … retourner compl‚t‚ et sign‚ … l'auteur de MOS Interface: Fr‚d‚ric CHEVEAU, 8 Passage des grillons, 66000 PERPIGNAN, FRANCE. -------------------------------------------------------------------------- Je soussign‚(e), Nom/Pr‚nom ou Raison Sociale :........................................... Service/Responsable :...................................... Adresse :.................................................. .................................................. Code postal :........... Ville :.............................. Pays :............................... d‚sire devenir utilisateur officiel de MOS Interface, et fait pour cela une demande de licence d‚finitive. T‚l‚phone :.......................... Fax :.......................... Autre :.......................... .......................... Age :......... Sexe O Masculin O F‚minin Machine utilis‚e: Fr‚quence 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...).......... M‚moire vid‚o:..................... Ecran :..................... P‚riph‚riques:..................... Int‚rets O Programmation O Jeux O Utilitaires O Musique O Autres : ........... Suggestions :................................................ ............................................................. ............................................................. ............................................................. ............................................................. Je joins … ce formulaire ma contribution fix‚e selon le barŠme … savoir : LICENCE POUR UN EXEMPLAIRE QUANTITE TOTAL Entreprises, Administrations, Ecoles, Collectivit‚s, 150 X..=.....,..FF Particuliers 80 X..=.....,..FF LICENCE MULTI-POSTES, QUANTITE TOTAL Entreprises, Administrations, Ecoles, Collectivit‚s, 300 X..=.....,..FF Particuliers 160 X..=.....,..FF ----------- TOTAL : .....,..FF ----------- DOCUMENTATION IMPRIMEE (30,00FF) ......... ----------- TOTAL : .....,..FF Ci-joint ma contribution de ......,..FF par O EspŠces O Mandat O ChŠque N*.... sur la .......... Le versement de cette contribution implique mon entiŠre adh‚sion 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 confŠre les droits et privilŠges suivants: - Etre tenu au courant des nouvelles versions de MOS. - Recevoir Chez soi la derniere version de MOS … un prix d‚fiant 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 Fran‡ais … 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 … No‰l !!!). Et puis c'est tout !!! et c'est deja pas mal non ??? ------------------------ I - PRESENTATION GENERALE --------------------------- MOS (Master Operating System) est un ensemble d'unit‚s Turbo Pascal Permettant de cr‚er rapidement ses propres interfaces en mode texte ou graphique. Il peut servir de support au d‚veloppement de vos programmes et propose de nombreuses fonctions in‚dites qui font d‚faut au Turbo Pascal. MOS permet entre autre de g‚rer: - La Souris, - Les Fenˆtres (et le multifenetrage), - Les Menus, - Les Gadgets, - Les Requesters (de fichiers, de dialogues ...), - La M‚moire XMS, - et bien d'autres choses encore. De nombreux exemples (ex‚cutables et sources) sont fournis de maniŠre … vous permettre de progresser rapidement dans le d‚veloppement de vos programmes. J'ai d'ailleurs volontairement insist‚ sur des exemples d‚taill‚s, plut“t 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 donn‚es. Elles sont simples, comment‚es, et ne traitent chacune que d'un seul sujet de maniŠre … en faciliter la compr‚hention. Si toutefois, vous ne parvenez pas … comprendre certaines fonctions de MOS, vous pouvez me contacter … mon adresse, ou sur minitel (mes coordon‚es sont donn‚es au d‚but de cette documentation). Cette documentation a ‚t‚ subdivis‚e en deux partie: - La premiŠre 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‚ programm‚e avec MOS (ils se trouve dans le r‚pertoire EXEMPLES\SOFTS). Ces interfaces ont ‚t‚s r‚alis‚es 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 particuliŠre de MOS, j'ai donn‚ un exemple (Source + Ex‚cutable) se trouvant dans le r‚pertoire "EXEMPLES" et dans les sous-r‚pertoires "SRC_TXT" pour les sources de l'interface texte, et "SRC_GFX" pour les sources de l'interface graphique. Je tiens ‚galement … pr‚ciser que MOS n'a pas ‚t‚ programm‚ orient‚ objet, qu'il n'y a pas un seul pointeur, ni aucune liste chaŒn‚e, ou quoi-que ce soit du mˆme genre, et pourtant, il marche parfaitement bien, n'est pas buggu‚ (… la diff‚rence de certains logiciels que je ne nomerais pas, mais du style Windows), et ne prend quasiment pas de place sur disque et en m‚moire 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-tˆte pour moi (pas de structures … la con et totalement inutiles du genre h‚ritage abusif et polymorphisme). Mais non, mais non, je ne fais pas de l'anti-programmation objet primaire, je suis seulement r‚aliste. Essayez, et vous verrez !!! Bon.... passons aux choses s‚rieuse. ----------------------- 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 D‚finition 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 m‚moire XMS ZUUL_GAD.TPU Gestion des gadgets ZUUL_WIN.TPU Gestion des fenˆtres 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 s‚lecteur de fichiers LIGH_BOX.PAS Cr‚ation d'une light-box GADGETS .PAS Utilisation de quelques gadgets FLAG_WIN.PAS D‚finition des flags d'une fenˆtre 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 Cr‚ation d'une boite de dialogue SYSTEME .PAS Configuration du systŠme MOS HARDWARE.PAS Affichage configuration hardware MEMORY .PAS Affichage configuration m‚moire 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 Cr‚ation 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 Ex‚cutable Disk-Speed v1.0 DS .PAS Source de l'ex‚cutable 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: ParamŠtres des modules DSMODULE.CFG Fichier data: Configuration de DS DSPTS_01.PTS Fichier data: S‚rie 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 am‚liorations potentielles de MOS pour les versions futures. Si vous avez des id‚s ou des suggestions n'h‚sitez pas … me contacter. (Mon adresse est not‚e au d‚but de cette documentation). - Restructuration de certaines fonctions ou modification des paramŠtres. - Impl‚mentation de la gestion des menus dans l'interface graphique. - Supression de certains petits buggs. - Impl‚mentation de la gestion des images et des ic“nes. - Stockage des fonds d'‚crans en XMS. - Gestion complŠte du clavier. - Gestion de l'heure en texte et en graphique. - Cr‚ation d'un ‚diteur de ressources pour Requesters. - Impl‚mentation d'un player de modules au format Soundtracker. ------------------------- III - L'INTERFACE TEXTE ---------------------------- A) - Hi‚rarchisation des unit‚s. Les unit‚s de MOS utilisent souvent d'autres unit‚s de MOS, en fait, elles sont toutes li‚es entre elles. Voici la fa‡on dont elles sont hi‚rarchis‚es: 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 tr‚s simple … utiliser, et ne poss‚dant que peu de fonctions, je ne m'attarderais pas dessus. Seule les fonctions et proc‚dures principales seront ici donn‚es. Pour les autre proc‚dures, il vous suffira de vous reporter … la partie IV (Interface Graphique) qui traite en partie des mˆmes fonctions. Les fonctions de l'unit‚ "ZUUL_ASM" de l'interface texte sont les mˆmes 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: Coordon‚es 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: Coordon‚es de la Souris (Caracteres ou Pixels) บ บ OUT....: / บ บ EXPLAIN: Positionne la souris aux coordon‚es pr‚cis‚es (Textes ou GFX). บ บ EXEMPLE: PutMouseT(X,Y); บ ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป บ PROCEDURES LIMITEMT, LIMITEMG บ ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน บ IN.....: X1,Y1,X2,Y2: Coordon‚es du Box Limite. บ บ OUT....: / บ บ EXPLAIN: Limite les d‚placement 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 Num‚ro 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 m‚moire 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 m‚moire. บ ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ ********************** * //\\ * * // \\ * * // \\ * * // /\ \\ * * \\ \/ // * * \\ // * * \\ // * * \\// * ********************** ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป บ --- 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) = Num‚ro de la touche Sp‚ciale … tester. บ บ OUT....: True/False (BOOLEAN) = Touche Enfonc‚e ou pas. บ บ EXPLAIN: Teste une des touches Sp‚ciale du Clavier. บ บ Voir plus bas pour le num‚ro de la touche … tester. บ บ EXEMPLE: If SPECIAL_KEY(1)=True Then Write('Shift Droit Pr‚ss‚'); บ ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป บ 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 apr‚s 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 Frapp‚e ou pas. บ บ Ac,Sc (BYTE) = Code ASCII et Scan Code de la Touche Frapp‚e. บ บ 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 S‚lection‚. บ บ 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 D‚finition 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 S‚lectionnable บ บ 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 donn‚es du Boutton. บ บ Name (STRING):Nom du Bouton. บ บ OUT....: / บ บ EXPLAIN: Affiche un bouton Texte … l'‚cran aux coordonn‚es precis‚es. บ บ 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 repr‚sent‚ 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 Pr‚cis‚ par son num‚ro 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 S‚lection‚. บ บ "E"= Edite le Fichier Actuellement S‚lection‚. บ บ "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) Num‚ro 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 num‚ro 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 s‚par‚s 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) Num‚ro 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 num‚ro du gadget choisit et la String rentr‚e. บ บ 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 s‚par‚s 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) Num‚ro du gadget Selectionn‚. บ บ VAI = (LONGINT) Valeur Rentr‚e 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 num‚ro du gadget choisit et la valeur rentr‚e. บ บ 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 s‚par‚s 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 renvoy‚e par le requester. บ บ EXPLAIN: Affiche un requester de string, et attends que l'utilisateur บ บ ai pr‚ss‚ 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 affich‚e dans celui-ci. บ บ Dans le requester, les touches suivantes sont reconnues: บ บ Enter, Delete, Backspace, D‚but, Fin, Fleche Droite,fleche Gaucheบ ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ ------------------------ IV - L'INTERFACE GRAPHIQUE -------------------------- A) - Hi‚rarchisation des unit‚. Les unit‚s de MOS utilisent souvent d'autres unit‚s de MOS, en fait, elles sont toutes li‚es entre elles. Voici la fa‡on dont elles sont hi‚rarchis‚es: 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 g‚n‚rale d'un programme ‚crit pour MOS. Le programme doit respecter la structure suivante. Program XXXX; Uses ZUUL_ASM, {TPU n‚cessaires aux initialisations} ZUUL_MSE, ZUUL_GAD, ........; {Faire ici les d‚clarations, initialisations et proc‚dures} {Puis, le programme principal doit ˆtre compos‚ comme suit} Begin INIT_ASM; INIT_SCREEN; INIT_MOUSE; {Appel de la proc‚dure principale} DONE_MOUSE; DONE_SCREEN; DONE_ASM; End. Le fait de structurer son programme de cette maniŠre n'est pas une obligation mais un moyen de se simplifier la vie, car les proc‚dures d'initialisations et de restaurations sont en fait une s‚rie de commandes visant … initialiser ou restaurer une trentaine de paramŠtres et donn‚es qu'il serait fastidieux de faire soit-mˆme au d‚but de chaque programme. L'interface graphique est en grande partie bas‚e sur les fenˆtres. Il est recommand‚ d'ouvrir une fenˆtre (mˆme invisible) avant d'inscrire du texte … l'‚cran, car le texte inscrit … l'intŠrieur d'une fenˆtre dispose de possibilit‚es de gestion bien plus grandes que le texte normal (Clipping automatique, Effacement de la fenˆtre, autorafraichissement...) Je ne peux que conseiller de regarder les exemples fournis pour plus de d‚tails sur la fa‡on de programmer une interface avec MOS. Voici … titre d'exemple quelques d‚clarations de fenˆtres, 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 Num‚ro 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 install‚e. บ บ EXPLAIN: Renvois le type de souris qui a ‚t‚ install‚e. บ ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป บ 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 tˆtes 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 vid‚o. บ ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป บ 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 Prot‚g‚ (A Utiliser avec Prudence). บ ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป บ FONCTIONS GET_PROCESSOR, GET_COPRO บ ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน บ IN.....: / บ บ OUT....: Num‚ro Processor/CoPro (BYTE). บ บ EXPLAIN: Renvois un Num‚ro 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: Red‚finit la Fr‚quence 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 D‚sinstalle le Timer Interne. บ บ NB.....: Pour Revenir … la Fr‚quence 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: R‚initialise l'imprimante comme elle ‚tait au d‚part. บ ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป บ 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 utilis‚es par d'autres proc‚dures. บ บ 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 Specifi‚e. บ ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป บ 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 Specifi‚e. บ ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ ********************** * //\\ * * // \\ * * // \\ * * // /\ \\ * * \\ \/ // * * \\ // * * \\ // * * \\// * ********************** ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป บ --- 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 FlŠche. บ บ - "P_Busy" = 2 = Pointeur Occup‚ (ChronomŠtre). บ บ - "P_Hand" = 3 = Pointeur Main. บ บ - "P_Text" = 4 = Pointeur Texte. บ บ - "P_Target"= 5 = Pointeur Cible. บ บ - "P_Move" = 6 = Pointeur D‚placement. บ ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป บ PROCEDURE INIT_MOUSE, DONE_MOUSE บ ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน บ IN.....: / บ บ OUT....: / บ บ EXPLAIN: Initialise et R‚installe 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: GŠre 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: Coordon‚es 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: Coordon‚es de la Souris (Caracteres ou Pixels) บ บ OUT....: / บ บ EXPLAIN: Positionne la souris aux coordon‚es pr‚cis‚es (Textes ou GFX). บ บ EXEMPLE: PutMouseT(X,Y); บ ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป บ PROCEDURES LIMITEMT, LIMITEMG บ ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน บ IN.....: X1,Y1,X2,Y2: Coordon‚es du Box Limite. บ บ OUT....: / บ บ EXPLAIN: Limite les d‚placement 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: Red‚finit 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 R‚ussit. บ บ 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 Num‚ro 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 m‚moire. บ ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ ********************** * //\\ * * // \\ * * // \\ * * // /\ \\ * * \\ \/ // * * \\ // * * \\ // * * \\// * ********************** ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป บ --- 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) = Num‚ro de la touche Sp‚ciale … tester. บ บ OUT....: True/False (BOOLEAN) = Touche Enfonc‚e ou pas. บ บ EXPLAIN: Teste une des touches Sp‚ciale du Clavier. บ บ Voir plus bas pour le num‚ro de la touche … tester. บ บ EXEMPLE: If SPECIAL_KEY(1)=True Then Write('Shift Droit Pr‚ss‚'); บ ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป บ 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 apr‚s conversion. บ บ EXPLAIN: Transforme un Word Decimal en String[4] Hexadecimal. บ บ EXEMPLE: T1:=WORD_TO_STRING(Val1); บ ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป บ PROCEDURE DISPG บ ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน บ Affiche un texte aux coordon‚es X,Y et avec la Couleur de fond C บ บ En effa‡ant 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 Frapp‚e ou pas. บ บ Ac,Sc (BYTE) = Code ASCII et Scan Code de la Touche Frapp‚e. บ บ 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=Entour‚e, 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) = Num‚ro du Bouton Souris … Activer. บ บ OUT....: True/False (BOOLEAN) = Cadre Trac‚ et Relach‚. บ บ EXPLAIN: Affiche et Agrandit un cadre en Pointill‚s a l'‚cran. บ บ Le coordon‚es de la Boite trac‚e sont acc‚ssibles 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 Num‚ro de R‚vision. บ บ EXPLAIN: Retourne le Num‚ro de R‚vision du driver XMS. บ บ EXEMPLE: Writeln('XMSDriver Revision: ','XMSver); บ ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป บ FUNCTION XMSGetFreeMem บ ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน บ IN.....: / บ บ OUT....: Free Memory (WORD): M‚moire Libre en Kb. บ บ EXPLAIN: Retourne la Quantit‚e de M‚moire Libre en Kb. บ บ EXEMPLE: Writeln('XMS Libre: ','XMSGetFreeMem); บ ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป บ FUNCTION XMSGetLargeBlock บ ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน บ IN.....: / บ บ OUT....: Largest Free Block (WORD): Block M‚moire le Plus Gros. บ บ EXPLAIN: Retourne la Taille du Plus gros bloc M‚moire Libre en Kb. บ บ EXEMPLE: Writeln('XMS Largest Block: ','XMSGetLargeBlock); บ ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป บ FUNCTION XMSGetMem บ ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน บ IN.....: Block (WORD) = บ บ OUT....: Handle (POINTER) = Handle de la M‚moire Allou‚e. บ บ EXPLAIN: Retourne Un Handle sur la Place M‚moire Allou‚e. บ บ NB.....: Si il y a une Erreur, le Handle est Invalide. บ บ EXEMPLE: บ ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป บ PROCEDURE XMSGetMem บ ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน บ IN.....: Handle (WORD) = Pointeur sur le Bloc … Sucrer. บ บ OUT....: / บ บ EXPLAIN: LibŠre la Place M‚moire Allou‚e par XMSGetMem. บ บ EXEMPLE: บ ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป บ PROCEDURE XMSGetMem บ ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน บ IN.....: Handle (WORD) = Pointeur sur le Bloc … Sucrer. บ บ OUT....: / บ บ EXPLAIN: Permet de D‚placer dans l'XMS des Blocs de M‚moire allou‚s บ บ 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 M‚moire allou‚s dans l'XMS. บ บ On ne peut plus ensuite les d‚placer. บ บ EXEMPLE: บ ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป บ PROCEDURE XMSUnLockBlock บ ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน บ IN.....: Handle (WORD) = Pointeur sur le Bloc … D‚bloquer. บ บ OUT....: / บ บ EXPLAIN: Permet de D‚bloquer un Bloc de M‚moire allou‚s dans l'XMS. บ บ Cette fonction doit ˆtre utilis‚e apr‚s XMSLockBlock. บ บ EXEMPLE: บ ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป บ PROCEDURE XMSReallocate บ ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน บ IN.....: Handle (WORD) = Pointeur sur le Bloc de M‚moire. บ บ NewSize (WORD) = Nouvelle Taille du Bloc. บ บ OUT....: / บ บ EXPLAIN: R‚alloue un Nouveau Bloc de M‚moire XMS avec une Nouvelle Taille.บ บ EXEMPLE: บ ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป บ PROCEDURE HMAExists บ ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน บ IN.....: / บ บ OUT....: True/False (BOOLEAN) = True Si elle Existe. บ บ EXPLAIN: Teste si la M‚moire HMA Existe ou pas. บ บ EXEMPLE: If HMAExists Then Writeln('M‚moire HMA install‚e.'); บ ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป บ PROCEDURE HMARequest บ ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน บ IN.....: RequestType (WORD) = บ บ OUT....: / บ บ EXPLAIN: Tente de R‚server 64 Ko de HMA. บ บ NB.....: Le RequestType doit Etre FFFF = Pour une Application. บ บ ou bien la Taille M‚moire Demand‚e s'il s'agit d'un TSR. บ บ EXEMPLE: บ ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป บ PROCEDURE HMARelease บ ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน บ IN.....: / บ บ OUT....: / บ บ EXPLAIN: LibŠre la M‚moire HMA Allou‚e Pr‚c‚dement. บ บ NB.....: Le Code/Datas Stock‚s dans cette Zones Devienent Inacc‚ssibles. บ บ EXEMPLE: บ ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป บ PROCEDURE GlobalEnableA20 บ ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน บ IN.....: / บ บ OUT....: / บ บ EXPLAIN: Permet Globalement le "A20 Line". บ บ NB.....: Ne doit ˆtre Utilis‚ que par les Programmes Contr“lant la HMA. บ บ EXEMPLE: บ ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป บ PROCEDURE GlobalDisableA20 บ ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน บ IN.....: / บ บ OUT....: / บ บ EXPLAIN: EmpŠche 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 Contr“lant la HMA. บ บ EXEMPLE: บ ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป บ PROCEDURE LocalDisableA20 บ ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน บ IN.....: / บ บ OUT....: / บ บ EXPLAIN: EmpŠche 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 D‚sactiv‚.บ บ EXPLAIN: Teste si le A20 est Physiquement D‚sactiv‚. บ บ 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 M‚moire les Gadgets Speciaux Dessin‚s en Graphique. บ ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป บ PROCEDURE KILL_GADGETS บ ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน บ IN/OUT.: / บ บ Libere l'espace m‚moire allou‚e pour les Gadgets Sp‚ciaux. บ ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป บ PROCEDURE SLIDER บ ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน บ IN.....: X1,Y1,X2,Y2 (INTEGER): Coordon‚es du Cadre du Slider. บ บ Qtt (INTEGER):Nombre d'Items Maximums dans la liste. บ บ Aff (INTEGER):Nombre d'Items Affich‚s 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 donn‚es 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=S‚lection‚. บ บ R (RAD):Pointeur sur Structure du Radio-Box. บ บ EXPLAIN: Affiche un Radio-Box en Graphique selon les Parametres pr‚cis‚s. บ บ 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 donn‚es 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 S‚lectionn‚ d‚s le d‚partบ บ 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 donn‚es du Bouton. บ บ Name (STRING):Nom du Bouton. บ บ OUT....: / บ บ EXPLAIN: Affiche un Bouton Cycle … Plusieurs entr‚es 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 repr‚sent‚ 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 Pr‚ss‚, False = En Attente. บ บ EXPLAIN: Renvois l'‚tat d'un Radio-Box d‚finit (S‚lection‚ ou pas). บ บ NB.....: L'‚tat TRUE du Bouton est Passag‚. Pour tester si le Bouton บ บ Radio est S‚lectionn‚ 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 D‚plac‚ ou pas. บ บ EXPLAIN: Teste si le Slider est D‚plac‚ ou pas et gere ses d‚placements. บ บ 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 fenˆtres). บ บ CONTAINS.: X Procedures. บ บ EXTERN...: Need ZUUL_SWA Unit & ZUUL_TOO Unit to run correctly. บ ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป บ PROCEDURE INIT_WINDOW บ ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน บ IN.....: X1,Y1,X2,Y2 (INTEGER): Coordon‚es de la fenˆtre. บ บ IDCMP (WORD): Flags IDCMP de la fenˆtre. บ บ 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 Fenˆtre Toujours vers l'arriŠre. บ บ Bit 6 $040 = Block Flag Limit Move Window to Screen. บ บ Bit 7 $080 = Title Fenˆtre Avec Titles. บ บ Bit 8 $100 = Border Fenˆtre Avec Bords. บ บ Bit 9 $200 = Cursor Assignation d'un Curseur … la Fenˆtre. บ บ Bit 10 $400 = Loked Fenˆtre Bloqu‚e en Active ou Inactive. บ บ Bit 11 * $800 = CON/RAW Fenˆtre CON si Activ‚. บ บ Bit 12 $1000 =Modale Win Modale=Refresh Screen when move. บ บ Bit 13 $2000 =Transparent Fenˆtre Transparente. บ บ Bit 14 $4000 =Move Fenˆtre peut ˆtre D‚plac‚e. บ บ Bit 15 $8000 =Relief Fenˆtre Avec Bords en Reliefs. บ บ Name (STRING): Nom de la fenˆtre. บ บ W (WIN): Pointeur sur Structure Fenˆtre allou‚e. บ บ OUT....: / บ บ EXPLAIN: Initialise la structure Fenˆtre. บ บ NB.....: Utilisez le programme "FLAG_WIN" pour d‚finir ais‚ment les bits. บ บ EXEMPLE: INIT_WINDOW(10,50,450,120,$13DE,'FENETRE 1',Win1); บ ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป บ PROCEDURE SUP_WINDOW บ ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน บ IN.....: Xu,Yu,Xv,Yv (INTEGER): Secondes Coordon‚es de la fenˆtre. บ บ X1,Y1,X2,Y2 (INTEGER): Size Min et Max de la Fenˆtre. บ บ BarSld (INTEGER): Nombre et position des barres de la Fenˆtre. บ บ Coul (INTEGER): Couleur de fond de la Fenˆtre. บ บ W (WIN): Pointeur sur Structure fenˆtre allou‚e. บ บ EXPLAIN: Initialise des d‚finitions supl‚mentaires pour la fenˆtre. บ บ OUT....: /. บ บ NB.....: Cette Procedure doit toujours ˆtre apell‚e apr‚s 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 fenˆtre d‚finie 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 fenˆtres non modales บ บ D‚clar‚es 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 Fenˆtre. บ บ OUT....: / บ บ RESTRICTIONS: La fenˆtre doit posseder une barre de Titre. บ บ EXPLAIN: Renome la fenˆtre (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 fenˆtre quelquesoit son type. บ บ EXEMPLE: CLEAR_WINDOW(Window1); บ ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป บ FUNCTION BOX_IN_BOX บ ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน บ IN.....: X1,Y1,X2,Y2 (Integer) = Coordon‚es 1er Box. บ บ X3,Y3,X4,Y4 (Integer) = Coordon‚es 2nd Box. บ บ OUT....: True/False (BOOLEAN) = True = Ils Sont superpos‚s. บ บ EXPLAIN: Teste si 2 box sont partiellement ou totalement imbriqu‚s. บ บ 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 Fenˆtre Actif ou Pas (True=Actif). บ บ W (WIN): Pointeur sur Structure Window. บ บ OUT....: / บ บ EXPLAIN: Autorise ou pas le clipping dans une fenˆtre. บ บ Tout ce qui sera affich‚ apr‚s cette instruction ne pourra บ บ l'ˆtre que dans la fenˆtre. บ บ 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 Fenˆtre en question … partir de la pos Sourisบ บ OUT....: / บ บ EXEMPLE: ZOOM_WINDOW(Window1); บ ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป บ PROCEDURE KILL_WINDOW บ ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน บ IN.....: Window1 (WIN): Pointeur sur Structure Window. บ บ EXPLAIN: D‚truit la fenˆtre en question, et libŠre l'espace m‚moire. บ บ OUT....: / บ บ EXEMPLE: KILL_WINDOW(Window1); บ ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป บ FUNCTION WINDOW_READY บ ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน บ IN.....: Window1 (WIN) = Pointeur sur Structure Window. บ บ OUT....: True/False (BOOLEAN) = Fenˆtre Ok (True). บ บ EXPLAIN: Pr‚vient si la Fenˆtre est prˆte pour tester les Gadgets. บ บ EXEMPLE: If WINDOW_READY(Window1) Then ...... บ ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป บ PROCEDURE IDCMP_WINDOW บ ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน บ IN.....: IDCMP (WORD): Nouveaux Flags IDCMP de la Fenˆtre. บ บ Window1 (WIN): Pointeur sur Structure Window. บ บ EXPLAIN: Red‚finit les flags IDCMP pour la Fenˆtre Point‚e. บ บ OUT....: / บ บ EXEMPLE: IDCMP_WINDOW($47DE,Window1); บ ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป บ PROCEDURE IDRES_WINDOW บ ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน บ IN.....: IDRES (WORD): Nouveaux Flags IDRES de la Fenˆtre. บ บ Window1 (WIN): Pointeur sur Structure Window. บ บ EXPLAIN: Red‚finit les flags IDRES pour la Fenˆtre Point‚e. บ บ OUT....: / บ บ EXEMPLE: IDRES_WINDOW($0003,Window1); บ ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป บ FUNCTION ACTIVE_WINDOW บ ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน บ IN.....: W (WIN): Pointeur sur Structure Window. บ บ OUT....: Val (INTEGER): Une Valeur Pr‚cisant 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 fenˆtre (Activation, Gadgets, Extend...). บ บ EXEMPLE: Even:=ACTIVE_WINDOW(Window1); บ ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป บ PROCEDURE MOVE_WINDOW บ ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน บ IN.....: W (WIN): Pointeur sur Structure Window. บ บ EXPLAIN: Permet le d‚placement en mode graphique d'une fenˆtre. บ บ 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 Sp‚cifi‚. บ ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป บ 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 Pr‚cis‚ par son num‚ro d'ordre. บ บ EXEMPLE: If GET_DEVICES(3)=True Then Writeln('"C:" Existe'); บ ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป บ PROCEDURE GET_FILEDIR บ ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน บ IN.....: X,Y (INTEGER): Position X,Y de la Fenˆtre. บ บ Sv (INTEGER): Taille Verticale de la Fenˆtre. บ บ Name (STRING): Nom de la Fenˆtre. บ บ 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 S‚lectionn‚ sinon, une Chaine Vide. บ บ NB.....: Voir les Commentaires du mˆme Requester mais en texte pour บ บ plus de d‚tails. บ บ 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: GŠre les principale Tƒches telles que les Erreurs pouvant บ บ Survenir, le Blanker Souris.... etc บ บ NB.....: Doit ˆtre Appel‚e r‚guliŠrement (Procedure d'interruption), บ บ ou Boucle perp‚tuelle 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 renvoy‚e 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 affich‚e dans celui-ci. บ บ Dans le Requester, les touches suivantes sont reconnues: บ บ Enter, Delete, Backspace, D‚but, Fin, FlŠche Droite,FlŠche Gaucheบ ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป บ PROCEDURE PROGRESS_REQUESTG บ ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน บ IN.....: NAME (STRING) = Nom de la Fenˆtre. บ บ 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 GŠre un Requester d'Indice de Progression en (%). บ บ NB.....: L'initialisation du Requester se Fait en Pla‡ant … 0 la บ บ Variable "Val", et sa Fermeture, en Pla‡ant a 100 "Val". บ บ Si le Bouton Abort est Pr‚ss‚, le Champ "Abort" est mis … TRUE. บ บ EXEMPLE: PROGRESS_REQUESTG('Computing...','Crunching',33,12,P); บ ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป บ PROCEDURE HARDWARE_REQUESTG บ ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน บ IN.....: X1,Y1 (INTEGER) = Coordon‚es de la Fenˆtre. บ บ NAME (STRING) = Nom de la Fenˆtre. บ บ OUT....: / บ บ EXPLAIN: Affiche et GŠre 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) = Coordon‚es de la Fenˆtre. บ บ NAME (STRING) = Nom de la Fenˆtre. บ บ OUT....: / บ บ EXPLAIN: Affiche le Status M‚moire Initial, Actuel, et la Taille บ บ du plus gros bloc M‚moire Disponible (XMS, Version DOS...). บ บ EXEMPLE: MEMORY_REQUESTG(200,100,'SEE IT ....'); บ ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป บ PROCEDURE SYSTEM_REQUESTG บ ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน บ IN.....: X1,Y1 (INTEGER) = Coordon‚es de la Fenˆtre. บ บ NAME (STRING) = Nom de la Fenˆtre. บ บ OUT....: / บ บ EXPLAIN: Affiche et GŠre un Requester de Configuration du Systeme MOS. บ บ EXEMPLE: SYSTEM_REQUESTG(200,100,'SELECT YOUR CONFIGURATION'); บ ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป บ PROCEDURE EZ_REQUESTG บ ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน บ IN.....: NAME (STRING) = Nom de la Fenˆtre. บ บ TXT (STRING) = Texte a afficher dans le requester. บ บ GAD (STRING) = Texte des Gadgets a afficher. บ บ OUT....: NUM (INTEGER) = Num‚ro 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 num‚ro 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 s‚par‚s par บ บ la barre verticale '|'. บ บ On est limite a maximum 10 gadgets affichables a l'‚cran. บ ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป บ PROCEDURE STRING_REQUESTG บ ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน บ IN.....: NAME (STRING) = Nom de la Fenˆtre. บ บ TXT (STRING) = Texte a afficher dans le requester. บ บ GAD (STRING) = Texte des Gadgets a afficher. บ บ NbCar (INTEGER) = Nombre de Char Max pouvant ˆtre rentr‚s. บ บ Size (INTEGER) = Longeur en Pixel de la barre "Input String". บ บ IN/OUT.: Cin (STRING) = String Envoy‚/Renvoy‚. บ บ OUT....: NUM (INTEGER) = Num‚ro 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 num‚ro 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 s‚par‚s par บ บ la barre verticale '|'. บ บ On est limite a maximum 10 gadgets affichables a l'‚cran. บ ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ ษอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป บ PROCEDURE PALETTE_REQUESTG บ ฬอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน บ IN.....: X,Y (INTEGER) = Coordon‚es du requester Palette … l'Ecran. บ บ NAME (STRING) = Nom de la Fenˆtre. บ บ OUT....: NUM (SHORTINT) = Num‚ro du gadget Selectionn‚. บ บ EXPLAIN: Affiche un requester de Palette et le gŠre. บ บ Renvois le num‚ro 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 paramŠtres comme la taille du buffer d'‚criture, ou encore la taille du fichier. Le logiciel se trouve dans le r‚pertoire C:\MOS\EXEMPLES\SOFTS Les sources du logiciel sont incluses de maniŠre … pouvoir vous rendre compte des techniques et fonctions de MOS employ‚es pour son d‚veloppement. L'interface de ce logiciel … ‚t‚ d‚velopp‚e en trois jours grƒce … MOS. Si vous d‚sirez de plus amples informations au sujet de ce logiciel, ou de MOS, n'h‚sitez pas … me contacter. CHEVEAU Fr‚d‚ric, 8 Passage des grillons, 66000 Perpignan, FRANCE. Ou bien pour ceux qui possŠdent un minitel, faites le 36.14, Code "RTEL1" (apr‚s 10 heures 30 le soir, se serveur ne co–te que 12 centimes la minute, donc ca ne vous ruinera pas !). Et laissez moi un message dans ma boite au lettre "BouFFtou".