All Identifiers

affiche nombre espaces … partir de la position courante

Saisie du nom du joueur si le score est dans le tableau.

centre la chaine sur la ligne courante et l'affiche

centre la chaine en ligne Y puis l'affiche

centre la chaine en ligne Y, l'affiche, change de ligne

cadrage de la chaine … gauche, puis ligne suivante

affiche la chaine normalement

cadrage … droite

cadrage … droite en ligne Y

affiche chaine puis change de ligne

Renvoie TRUE si le caractŠre pass‚ est une lettre ou un espace.

Cette proc‚dure vide le tampon du clavier.

Dessine un trait (horizontal ou vertical de couleur C entre les points (X1,Y1) et (X2,Y2).

*****************************************************************************

Suppression des espaces … la fin de la chaine.

Renvoie le caractŠre cod‚.

Auteur: Patrick Pr‚martin. Date: 17/07/1992. 21/07/1992. 14/02/1993. Langage: Turbo PAscal 6.0 But: Impl‚mentation de quelques fonctions de l'interruption 10H en Turbo Pascal.

Bibliographie: GUIDE MICROSOFT DE LA PROGRAMMATION DES CARTES GRAPHIQUES (Richard Wilton, Microsoft Corporation)

Cartes CGA

Cette procedure affiche les lignes de l'ecran pass‚.

Renvoie le caractŠre d‚cod‚.

efface le tampon en y mettant des espaces

mise … zero de tous les parametres de fenetres.

Auteur: Pr‚martin Patrick. Date: 09/09/1991. 14/11/1991. 29/07/1992. Langage: Turbo Pascal 6.0 But: Gestion des d‚placements de la souris, et des touches du clavier.

Mise en place du mode graphique 320 * 200 en 256 couleurs.

renvoie le nombre de lignes de la fenetre active.

Auteur: Pr‚martin Patrick Date: 01/09/1991. 09/09/1991. Langage: Turbo Pascal 6.0 But: Proc‚dures et fonctions diverses de traitement des fichiers.

Auteur: Patrick Premartin. Date: 19/12/1991. 24/06/1992. 25/06/1992. Langage: Turbo Pascal 6.0

But: Procedures et fonctions de gestion d'images dans differents formats. Ne fonctionne qu'en mode 320*200*256 pour les images couleur venant de l'Atari.

Cette procedure fabrique un curseur dont le tiret est au milieu.

Cette procedure fabrique un curseur dont le tiret est en bas.

Cette proc‚dure montre le curseur normal (par d‚faut).

Cette proc‚dure cache le curseur.

Cette fonction renvoie l'abscisse du curseur dans la page 0.

0010 1010

Fct. 0 = S‚lection d'un mode vid‚o.

affiche un titre pour la fenetre active.

dessin d'un cadre de type trace ou type_cadre (d‚fini plus haut)

Dessine un cadre plein de couleur C.

affichage du bloc d‚fini par x1, y1, x2, y2

met la chaine dans le tampon aux coordonn‚es d‚sir‚es

affiche le caractŠre correspondant aux coordonn‚es pass‚es

Transfert TAILLE octet vers RES … partir du fichier F.

Deplacement du curseur. (coordonnees textes).

Ecriture d'une chaine … la position courante.

renomme le fichier NOM1 en NOM2 si NOM1 existe et que NOM2 n'existe pas.

Cartes EGA

cree le fichier .BAK correspondant au fichier nomm‚

Transfert TAILLE octets de RES vers le fichier.

Referme le fichier F.

Codes de retour: - 0 si pas d'erreur; - 1 si NUMBER non valide (autre que dans 0..NB_MAX_FNT); - 2 si la fonte correspondante n'existe pas.

Codes de retour: - 0 si aucune erreur; - 1 si erreur de sauvegarde; - 2 si NUMBER n'est pas valide; - 3 si ce num‚ro n'est pas affect‚.

Codes de retour: - 0 si pas d'erreur; - 1 si FNT = NIL; - 2 si NUMBER n'est pas valide (autre que dans 1..NB_MAX_FNT).

Sfct. 7 = Lire un registre de palette.

Sfct. 12h = Modifier un bloc de registres de couleur du CNA vid‚o.

Auteur: Pr‚martin Patrick. Date: 01/03/1991. 28/07/1992. ( Interface Multi-Langues )

Cette unit‚ contient des proc‚dures permettant d'acceder … la date sans passer par l'unit‚ DOS.

efface le sous-repertoire sp‚cifi‚

Chargement du fichier des messages, et s‚lection de la langue en cours.

renvoie l'extension du fichier sp‚cifi‚ s'il y en a une. ( le point est inclus dans l'extension)

Fct. C = Changer la valeur d'un pixel.

Sfct. 8 = Lire le contenu du refistre de surbalayage.

Cette fonction renvoie l'heure en clair 'HH:MM:SS'.

Met la carte graphique dans le mode voulu.

0 : noir 8 : gris 1 : bleu 9 : bleu clair 2 : vert 10 : vert clair 3 : cyan 11 : cyan clair 4 : rouge 12 : rouge clair 5 : magenta 13 : magenta clair 6 : brun 14 : jaune 7 : blanc 15 : blanc intense

Change la couleur par d‚faut.

Auteur: Patrick Pr‚martin. Date: 21/07/1992. 24/07/1992. 27/07/1992. 28/07/1992. 29/07/1992. 30/07/1992. 05/08/1992. 03/07/1993. Langage: Turbo Pascal 6.0 19/09/1993, Borland Pascal 7.0 But: Gestion des fichiers d'extension MSG contenant les textes multi-lingues pour les nouveaux logiciels Olf Software.

La langue par d‚faut est le Fran‡ais.

Cette fonction vous renvoie le nombre de boutons utilis‚s par votre souris. Ce nombre peut varier d'un driver … un autre (avec la mˆme souris). Il n'est donc qu'indicatif, nous n'avons jamais eu l'occasion de nous en servir.

Fct. 2 = Positionnement du curseur dans la page sp‚cifi‚e.

Donne des renseignements sur les Joysticks connect‚s: 0 - Pas de carte, ou Joystick absent. 1 - Joystick A connect‚. 2 - Joystick B connect‚. 3 - Joysticks A et B connect‚s.

Auteur: Pr‚martin Patrick. Date: 23/03/1991. 10/05/1991. Langage: Turbo Pascal 4.0 Date: 27/08/1991. 09/09/1991. 28/07/1992. (Interface Multi-Langues) 06/09/1992. Langage: Turbo Pascal 6.0

But: Gestion de scores pour divers jeux.

visualisation de l entete encadree

Suppression des espaces au d‚but de la chaine.

Renvoie la chaine en majuscules.

renvoie le nombre de colonnes de la fenetre courante.

Partie des fonctions.

Renvoie TRUE si le caractŠre pass‚ est bien une lettre (majuscule ou minuscule).

Ouvre un fichier, et retourne son num‚ro. Un 0 correspond … une erreur.

Partie des procedures de traitement de chaines.

Auteur: Patrick Premartin Date: 27/12/1991. 28/12/1991. 06/01/1992. 27/07/1992. Langage: Turbo Pascal 6.0 But: Gestion d'une page d'‚cran utilis‚e par 'Hyper Text Maker'.

Cette proc‚dure attend l'appuit d'une touche.

Nombre maximal d'utilisations d'un programme non enregistr‚.

Code du bouton droit.

Variables permettant le calibrage des Joysticks analogiques:

met Chaine1 en majuscules dans Chaine2

******************************************************************************** Les routines suivantes gŠrent les souris Microsoft en mode graphique. Aucun test ne sera effectu‚, … vous de savoir quoi utiliser... ********************************************************************************

Cette fonction renvoie le code des boutons actifs lors de l'appel … cette fonction. Les codes valides sont: Left_Button, Right_Button, Middle_Button, et leurs combinaisons.

******************************************************************************** Les routines suivantes gŠrent les souris Microsoft en mode texte. Aucun test ne sera effectu‚, … vous de savoir quoi utiliser... ********************************************************************************

Renvoie l'abscisse courante du point d'action de la souris.

Renvoie l'abscisse courante de la souris. C'est une abscisse caractŠre. Elle peut aller de 1 … 132 (peut-ˆtre plus suivant la carte que vous poss‚dez).

Positionne la souris aux coordonn‚es X (pour l'abscisse) et Y (pour l'ordonn‚e). Si la souris est visible, son curseur sera d‚plac‚ automatiquement. Vous ne devriez pas avoir … l'effacer avant l'appel … cette proc‚dure.

Cr‚e un cadre … l'extŠrieur duquel la souris ne pourra pas se d‚placer. Ses d‚placements seront limit‚s au rectangle d‚fini par les coordonn‚es pass‚es en paramŠtres. La souris sera mise dans ce cadre.

D‚finit un cadre hors duquel la souris ne pourra pas se d‚placer.

D‚place la souris aux coordonn‚es absolues sp‚cifiez. Elles doivent absolument ˆtre dans l'‚cran actuel. Aucun test n'est r‚alis‚ … ce sujet.

Limite une bande horizontale hors de laquelle la souris ne pourra pas aller.

Limite les d‚placements de la souris … la bande comprise entre X_Min et X_Max.

Auteur: Premartin Patrick

Date: 14/01/1992.

Langage: Turbo Pascal (toutes versions … partir de la version 4.0)

But: Regroupement de proc‚dures et de fonctions permettant l'utilisation des souris 100% compatibles Microsoft, et gestion des fichiers d'extension .MOU cr‚‚s par 'MOUse Maker'.

Cette unit‚ est copyright Olf Software. Elle est utilisable par tous, aucune contribution n'est demand‚e. Nous vous demandons quand mˆme de vous faire connaŒtre par nous...Vous pourriez peut-ˆtre avoir besoin de nos logiciels un jour...

L'unit‚ est exclusivement distribu‚e par Distri Soft Club Route de Champagne 77210 Samoreau France.

Cette fonction renvoie TRUE si un driver de souris Microsoft est actif. Elle modifie 'Mouse_On'. Vous n'aurez g‚n‚ralement pas … appeler cette fonction, l'unit‚ le fait lors du d‚marrage de votre application. Il vous suffira de regarder le contenu de la variable bool‚enne 'Mouse_On' qui contiendra TRUE si un driver est actif.

True si le curseur de la souris est visible, False dans le cas contraire.

******************************************************************************** Les routines suivantes vous permettront de g‚rer les divers traitements … faire avec une souris compatible Microsoft.

Certains problŠmes nous sont apparus lors des tests sur diff‚rentes machines, les souris ne r‚pondaient pas correctement. Veillez donc lorsque vous achetez une souris … ce qu'elle soit 100% compatible Microsoft, et que le constructeur de votre ordinateur vous la conseille...

Les routines suivantes fonctionnent en mode texte, mais aussi en mode graphique, les ‚ventuelles conversions de format sont faites automatiquement. ********************************************************************************

Renvoie l'ordonn‚e courante du point d'action de la souris.

Met dans les variables X, et Y les coordonn‚es du point d'action de la souris. X correspond … l'abscisse, Y … l'ordonn‚e.

Renvoie les coordonn‚es X et Y de la souris.

Renvoie l'ordonn‚e comprise entre 1 et 43 pour les modes texte les plus puissants sur cartes VGA. Plus de 43 pour les prochaines cartes...

Supprime la souris de num‚ro 'Number'. Les codes de retour sont: 0 - Souris supprim‚e sans problŠme. 1 - Si 'Number' est invalide. 2 - Si la souris de rang 'Number' n'existe pas.

Cette fonction vous permet d'activer une souris graphique choisie. Vous devez en passer le num‚ro, et le changement de forme se fera automatiquement. Les codes de retour sont les suivants: 0 - Aucune erreur. 1 - Si 'Number' est invalide (il doit ˆtre infŠrieur … 'Nb_Max_Mou'). 2 - Si la souris correspondante … 'Number' n'existe pas.

******************************************************************************** Routines de gestion des fichiers d'extension .MOU Ces fichiers sont cr‚‚s par 'Mouse Maker'.

Vous ne devez utiliser ces routines que dans les modes graphiques. Les modes conseill‚s sont EGA, et VGA (les suivants sont … envisager). Les routines fonctionnent sur toutes les cartes, il suffit de poss‚der les drivers Microsoft appropri‚s. ********************************************************************************

Stocke la souris de num‚ro 'Number' dans le fichier 'nom_fich.MOU'. Les codes de retour possibles sont les suivants: 0 - si l'op‚ration s'est bien pass‚e. 1 - s'il y a eu une erreur de sauvegarde (accŠs disque...), consultez IORESULT. 2 - si 'Number' n'est pas valide: supŠrieur … 'Nb_Max_Mou'. 3 - si ce num‚ro n'est pas affect‚ … une souris.

Charge le fichier 'nom_fich.MOU' s'il existe. En cas d'erreur, cette fonction renvoie NIL. Si le chargement s'est effectu‚ sans problŠme, la fonction renvoiera un pointeur sur le fichier voulu.

Affecte le num‚ro 'Number' … la souris dont vous passez le pointeur 'Mou'. Les codes de retour sont les suivants: 0 - Aucune erreur n'est apparue. 1 - Si 'Mou' est … NIL. Vous ne pouvez pas affecter ce num‚ro. 2 - Si 'Number' n'est pas valide.

Messages en Allemand.

Auteur: Premartin Patrick Date: 14/09/1991. 16/09/1991. 23/09/1991. 25/06/1992. 14/03/1993. Langage: Turbo Pascal 6.0

But: Lectures et ecritures sur des fichiers .IDF

Indique en permanence si la souris est pr‚sente ou pas.

Partie des functions utiles … l'affichage.

renvoie le nombre de colonnes de la fenetre active.

renvoie la longueur de la chaine

cherche la position du premier caractŠre diff‚rent de carac … partir de la gauche de la chaine.

Sauvegarde du tableau des scores.

Est TRUE si la chaine pass‚e est compos‚e uniquement d'espaces ou de lettres.

Ins‚rer le code du programme.

Indique si un num‚ro de fichier est utilisable.

Auteur: Pr‚martin Patrick Date: 25/08/1991. 27/08/1991. Langage: Turbo Pascal 6.0 But Suppression de certains parametres dans le PSP.

Cartes Hercule

donne la n-iŠme position de Carac … partir de la droite.

donne la premiŠre position de Carac dans Chaine par la droite.

donne la premiŠre position de Carac dans Chaine par la gauche.

donne la n-iŠme position de Carac dans Chaine en partant du Debut- iŠme caractŠre et en allant vers la droite.

Mise en marche du Print Screen (par d‚faut).

Fct. 7 = D‚fillement vers le bas.

ART: 32512 octets

Auteur: Patrick Pr‚martin. Date: 16/09/1992. Langage: Turbo Pascal 6.0 But: Morceau de l'Interface Multi-Langues (IML) de Olf Software.

Forme d'une icone.

Matrice utilis‚e pour la forme, et pour le fond des souris en mode graphique.

Registre de couleur minimal.

Images de 32066 octets

Auteur: Patrick Pr‚martin. Date: 26/06/1992. 03/08/1992. 10/08/1992. 11/08/1992. 28/03/1993. Langage: Turbo Pascal 6.0 But: Objet permettant une simplification des interfaces utilisant la souris. Il suffit de d‚finir des zones, et les r‚sultats de la souris sont transform‚s en codes clavier (plus simples … tester).

Cette fonction est vraie si l'utilisateur a r‚pondu Oui.

Auteur: Pr‚martin Patrick. Date: 01/03/1991.

Cette unit‚ contient des fonctions trŠs utiles pour acc‚der au clavier sans passer par l'unit‚ CRT.

Fct. 3 = Lire l'‚tat du curseur.

Met un point aux coordonn‚es (X,Y) de la couleur C.

Auteur: Pr‚martin Patrick. Date: 01/03/1991. 18/07/1991.

Cette unite permet aux programmes qui l'utilisent de rebooter l'ordinateur avec ou sans test de la memoire.

Auteur: Pr‚martin Patrick. Date: 28/12/1991. 23/03/1991. 07/05/1991. 17/07/1991. Langage: Turbo Pascal 4.0 Date: 26/08/1991. 14/11/1991. 21/07/1992. 27/07/1992. Langage: Turbo Pascal 6.0

But: Saisie de chaines selon un masque pr‚cis.

Chargement du tableau de scores, ou initialisation de celui-ci.

Chargement d'une palette (fichier d'extension .PAL)

Scrolling en mode texte.

Fct. 5 = Choisir une page vid‚o.

Toutes les combinaisons de ces constantes est accept‚e pour la variable Sens des fonctions de scrolling.

Scrolling vers la droite.

renvoie les coordonn‚es et l'‚tat des boutons de la souris

renvoie les coordonn‚es et l'‚tat des boutons de la souris en mode texte

Sfct. 0 = Modifier un registre de palette.

Sfct. 17h = Lire un bloc de registres de couleur du CNA vid‚o.

Renvoie la chaŒne contenant le message NUM.

Auteur: Pr‚martin Patrick. Date: 17/02/1991.

But: Cette unit‚ contient une fonction qui renvoie le Mash-Code d'une chaine pass‚e en paramŠtre. Le Mash-Code est une sorte de concatenation de la chaine permettant de la comparer ais‚ment … d'autres chaines ayant une orthographe approximativement identique.

******************************************************************************** Fonctions diverses ********************************************************************************

Fct. 4 = Lire la position du photostyle.

Sfct. 1 = Sp‚cifier la couleur de surbalayage.

Cette proc‚dure cache la souris.

calcul de xˆn avec x r‚Šl et n entier

Renvoie l'‚tat des boutons des deux Joysticks.

Num‚ro du Joystick A.

Num‚ro du Joystick B.

Bouton 2 du Joystick A.

Ces deux proc‚dures echangent les valeurs de Elem_1 et de Elem_2.

Cette variable permet de choisir le cadre: -type_cadre=1 -type_cadre=2 -type_cadre=3 -type_cadre=4 ÚÄÄÄ¿ ÉÍÍÍ» ÖÄÄÄ· ÕÍÍ͸ ³ ³ º º º º ³ ³ ÀÄÄÄÙ ÈÍÍͼ ÓÄÄĽ ÔÍÍ; -type_cadre=5 -type_cadre=6 -type_cadre=7 -type_cadre=8 °°°°° ±±±±± ²²²²² ÛÛÛÛÛ ° ° ± ± ² ² Û Û °°°°° ±±±±± ²²²²² ÛÛÛÛÛ -type_cadre=9 -type_cadre=10 ##### ***** # # * * ##### *****

Auteur: Pr‚martin Patrick. Date: 17/07/1991. Langage: Turbo Pascal 4.0 Date: 09/09/1991. Langage: Turbo Pascal 6.0

But: Cette unit‚ permet d'afficher des textes de differentes facons.

Nombre de fichiers g‚r‚s.

Auteur: Patrick Pr‚martin Date: 22/11/1992. 29/11/1992. 06/11/1992. 12/12/1992. Langage: Turbo Pascal 6.0 Date: 23/03/1995. 17/04/1995. Langage: Borland Pascal 7.0 But: Faire en sorte que les programmes de Olf Software tournent … la mˆme vitesse quelque soit la machine...

F31 … F40 : appuit sur Alt + F1 … F10.

Touches normales:

F21 … F30 : appuit sur Ctrl + F1 … F10.

F11 … F20 : appuit sur Shift + F1 … F10.

Autres combinaisons de touches:

Compl‚mente la chaine par des espaces.

mode r‚solution couleurs texte/graphique CGA PCjr EGA MCGA VGA MDA 0 : 40*25 demi-teinte : 16 : texte : * * * * * 1 : 40*25 : 16 : texte : * * * * * 2 : 80*25 demi-teinte : 16 : texte : * * * * * 3 : 80*25 : 16 : texte : * * * * * 4 : 320*200 : 4 : graphique : * * * * * 5 : 320*200 demi-tein : 4 : graphique : * * * * * 6 : 640*200 : 2 : graphique : * * * * * 7 : 80*25 : 2* : texte : * * * 8 : 160*200 : 16 : graphique : * 9 : 320*200 : 16 : graphique : * 10 : 640*200 : 4 : graphique : * 11 : r‚serv‚ : : : 12 : r‚serv‚ : : : 13 : 320*200 : 16 : graphique : * * 14 : 640*200 : 16 : graphique : * * 15 : 640*350 : 2* : graphique : * * 16 : 640*350 : 4 : graphique : *+ 16 : 640*350 : 16 : graphique : *- * 17 : 640*480 : 2 : graphique : * * 18 : 640*480 : 16 : graphique : * 19 : 320*200 : 256 : graphique : * *

* Avec les moniteurs monochromes. + EGA avec 64 Ko de m‚moire. - EGA avec au moins 128 Ko de m‚moire.

Auteur: Patrick Pr‚martin Date: 30/12/1992. 26/06/1992. 27/07/1992. Langage: Turbo Pascal 6.0 But: Pile contenant uniquement des entiers.

Code du bouton du milieu.

Pointeur vers la structure d'un fichier .MOU

Cartes VGA

renvoie la longueur de la chaine

visualisation sur la derniere ligne

saisie d un entier compris entre INF et SUP

cr‚ation d'une fenˆtre ayant un cadre de couleur sur fond noir

cr‚ation de fenˆtre avec cadre de couleur forme/fond

cr‚ation d'une fenˆtre avec cadre (forme/fond) et fond de couleur

efface le bloc sp‚cifi‚ du tampon