Modification de Villes/Montluçon/sciences/MO5

==L'ÉCRAN==

Votre ordinateur est installé et le message de bienvenue affiché à l'écran. Vous allez pouvoir dès à présent commencer — si ce n'est déjà fait — à utiliser votre clavier.
Allez-y! Tapez n'importe quoi! Votre ordinateur ne risque absolument rien. Première constatation : les caractères que vous frappez s'affichent immédiatement à l'écran, tandis que le curseur (le petit trait clignotant qui indique la position du prochain caractère) se déplace vers la droite jusqu'à se retrouver sur la ligne suivante.

Choisissez maintenant une touche au hasard et maintenez votre pression un instant. Au bout d'une seconde environ, le caractère frappé est automatiquement répété sans que vous ayez à intervenir. Vous venez de découvrir un aspect important de votre clavier : toutes les touches — exception faite de cNT , RAZ , ENTRÉE et de la touche jaune - sont à répétition automatique.
Essayez maintenant d'appuyer sur la touche ENTRÉE . L'ordinateur vous gratifie immédiatement d'un message très bref :

PREMIER CONTACT AVEC LE CLAVIER
AZERTYUIOP SDFGHJKLMWXCVBN 111111111111 1111111111111111]1111iS1111]11Y1111111]]
Error 2

OKEssayons autre chose. Enfoncez la touche 1 , et laissez descendre le curseur de quelques lignes. A l'aide de la touche — , déplacez-le jusqu'au centre de l'écran, puis tapez BONJOUR. Appuyez de nouveau sur la touche ,j,, et maintenez votre pression. Au bout d'un court instant, le curseur s'arrêtera sur une ligne pour ne plus descendre. A l'aide des touches t , *— et -, déplacez-vous tout autour de l'écran. Vous constatez qu'une assez large portion de ce dernier vous est inaccessible et que, malgré vos efforts, le curseur s'obstine à ne pas vouloir dépasser certaines limites.

Ces limites, ce sont celles de votre plan de travail, de votre "page écran". Pour les rendre encore plus visibles, effacez l'écran par une pression sur la touche Raz , puis tapez la ligne suivante :
C('RFFN	1R

Sans vous attarder sur la signification de ces caractères, enfoncez la touche ENTRÉE . Votre page écran apparaît alors entourée d'une bordure orange :

LA PAGE ÉCRAN

Sans entrer dans des explications trop détaillées (nous éluciderons ultérieurement la signification des différents messages d'erreur), sachez que l'ordinateur vous signale par ces mots que votre ligne de caractères est inacceptable et qu'il ne comprend pas ce que vous attendez de lui. Le mot OK vous indique par contre que le M05 est prêt à accepter tout autre énoncé. Ignorons, pour le moment, cétte-invitation, et poursuivons notre découverte de l'écran. Ne trouvez-vous pas que celui-ci devient vraiment trop encombré? Pour nettoyer votre "plan de travail" d'un seul coup, pressez la touche Raz (Remise A Zéro), sur votre gauche. Tout ce qui se trouvait à l'écran, message de bienvenue inclus, est désormais effacé. Le curseur, quant à lui, s'est positionné de lui-même en haut et à gauche, sur la première ligne d'écriture.

Le rectangle bleu clair que vous avez sous les yeux constitue votre plan de travail et se compose de 25 lignes de 40 caractères.

L'instruction PRINT

Vous connaissez maintenant la taille de votre feuille blanche, et vous savez comment l'effacer. Il ne vous reste plus qu'à apprendre à y inscrire quelque chose.
Première instruction que nous étudierons, le mot clé PRINT s'obtient soit en frappant successivement les lettres qui le composent, soit en enfonçant la touche[Ï1 [Ï1 puis en pressant le Quelle que soit la méthode pour laquelle vous opterez, tapez
PRINT 12345

puis pressez la touche Eftj. Le nombre 12345

17
.'affiche aussitôt au-dessous de votre commande. Poursuivez l'opération en écrivant d'autres nombres ou chiffres qui apparaîtront à l'écran, comme vous l'indique la photo ci-dessous.
L'INSTRUCTION PRINT
PRINT 12345
12345
OK
PRINT 1515
1515
OK
PRINT 98765
98765
OK
PRINT 9 9
OK
PRINT 128
128
OK
PRINT 1789
1789
OK

Pour changer un peu, essayons maintenant d'afficher un mot. Commencez par nettoyer l'écran au moyen de la touche Raz , puis écrivez

PRINT BONJOUR

suivi d'une pression sur la touche ENTRÉE . Contrairement à ce que l'on était en droit d'attendre, ce n'est pas le mot BONJOUR qui apparaît mais le chiffre 0.
Sans vous décourager pour si peu, recommencez la même opération en encadrant cette fois le mot BONJOUR de guillemets, comme ceci :

PRINT "BONJOUR"

Si vous appuyez sur ENTRÉE , le mot BONJOUR apparaîtra à l'écran. Vous venez de découvrir un second fait important : votre ordinateur fait une distinction entre les nombres et les mots ou, plus exactement, entre les nombres et les "chaînes de carac-
tères".

Une chaîne de caractères (on raccourcit très souvent l'expression en disant simplement "chaîne") peut être constituée de lettres, mais aussi de chiffres et de symboles divers. Par exemple, la ligne "*$!&123=", bien que ne comportant aucune lettre et ne signifiant absolument rien, n'en constitue pas moins une chaîne de caractères qui serait affichée telle quelle par la machine.
La photo d'écran qui suit illustre ce phénomène au moyen d'exemples variés.
Notez que vous pouvez remplacer l'instruction PRINT par le symbole «? » dans vos lignes de programme. Ceci intéressera plus particulièrement les possesseurs de T07/70 qui ne disposent pas, malheureusement pour eux, de la touche BASIC. Il n'existe cependant pas de « raccourcis » pour les autres instructions du BASIC.

AFFICHAGE DES CHAINES

PRINT
PRINT 'RZERTYUIOP/IQSDFGHJKLMNXCVBN..@'
RZERTYUIOP/iQSDFGHJKLMNXCVBN..@
OK
PRINT ~!$$%8'I1 =;Ot~.
!*$%&O =;(>1'
OK
PRINT ;LE 15 FEVRIER 1985,
LE 15 FEVRIER 1985
OK
PRINT '1515'
1515
OK
PRINT '1789' 1789
OK

Ne vous méprenez pas sur l'identité des deux derniers exemples. Vous avez bien affaire à des chaînes de caractères et non à des nombres.
Pour mieux apprécier la distinction opérée par votre ordinateur entre nombres et chaînes, entrez successivement les commandes :

PRINT 999
PRINT `999" PRINT -1984"
PRIKIT 1 QRn

Vous remarquez aussitôt que les nombres sont décalés d'une case écran vers la droite par rapport
aux chaînes.

La différence apparaît encore plus nettement si vous tapez les deux lignes qui suivent :
PRINT "2 + 2" PRINT 2 + 2
Dans le premier cas, le M05 affiche tel quel l'énoncé de l'opération; dans le second cas, il n'en affiche que le résultat :
DISTINCTION NOMBRES/CHAINES
PRINT 999
999
OK
PRI NT '9998
999 OK
PRINT -1984'
1984
OK
PRINT 1984
1984
OK
PRINT '2+2'
2+2
OK
PRINT 2+2
4
OK
1$I

POSITIONNEMENT A L'ÉCRAN

Nous avons vu au cours du chapitre précédent qu'il était possible de positionner un mot au centre de l'écran au moyen des touches de déplacement du curseur. Cette méthode présente néanmoins l'inconvénient d'être aussi peu rapide que pratique. Nous verrons plus loin qu'il est préférable de réserver les touches de gestion du curseur à un tout autre usage, d'autant plus qu'il existe d'autres manières, plus efficaces, d'afficher un énoncé en un point quelconque de l'écran.

L'instruction SPC

Il est bon de rappeler que l'écran est composé de 25 lignes de 40 colonnes chacune, numérotées respectivement de 0 à 24 et de 0 à 39. Les trois instructions que nous allons présenter dans ce chapitre s'emploient toutes en liaison plus ou moins étroite avec la commande d'écriture PRINT (PRINT signifie "imprimer" en anglais).

Supposons par exemple, que vous souhaitiez afficher le mot ORDINATEUR — d'une longeur de 10 lettres — au milieu d'une ligne. Vous pouvez, dans un premier temps, envoyer 15 blancs à l'écran avant d'écrire votre mot proprement dit. Cela nous donne la ligne suivante :

PRINT SPC(15) '"ORDINATEUR"

Cette commande nécessite quelques explications. En BASIC, le mot clé PRINT indique que quelque chose va être affiché.

Il s'agit dans le cas présent d'une suite de 15 blancs, ou espaces (SPC vient de l'anglais SPaCe qui signifie justement "espace "), suivis du mot ORDINATEUR. Celui-ci s'inscrit donc à partir de la 15e colonne de la ligne courante (on appelle ainsi la ligne sur laquelle se trouve le curseur) et apparaît centré sur la ligne.

L'instruction TAB

Si l'on garde à l'esprit cette division de l'écran en colonnes, on peut décider de positionner directement la première lettre du mot ORDINATEUR sur la quinzième colonne.

Nous allons utiliser pour cela une fonction similaire à celle que l'on rencontre sur la plupart des machines à écrire, et qui porte le nom de " tabulation ". En BASIC, l'idée de tabulation est reprise par le mot clé TAB suivi d'une expression entre parenthèses (en l'occurrence le numéro de la colonne à partir de laquelle on souhaite positionner l'énoncé) et du mot à afficher.

Nous obtiendrons donc la ligne de programme suivante :

PRINT TABI15) "ORDINATEUR"

La photo écran ci-après illustre l'effet produit par les deux instructions étudiées jusqu'ici :
1	ESPACE ET TABULATION	I
PRINT SPC(15) 'ORDINATEUR' ORDINATEUR OK
PRINT TAB(15) 'ORDINATEUR'' OK	ORDINATEUR
PRINT SPC(17) 'CENTRE' CENTRE OK
PRINT TAB(17) -CENTRE' CENTRE OK
PRINT TAB(30) BORD DROIT'
BORD DROIT
OK

On constate au premier abord que TAB et SPC semblent agir de manière identique, phénomène surprenant dans un langage où chaque mot possède une signification propre.

Différences entre TAB et SPC

Pour mieux comprendre la différence existant entre ces deux commandes, tapez la ligne suivante :
PRINT TAB(10) "BONJOUR" SPC(10) -BONSOIR " puis pressez la touche ENTRÉE J. Voici ce que vous devriez obtenir à l'écran :

TAB ET SPC/ÉCRAN 1
PRINT TAB(10) -BONJOUR-eSPC(10) 'BON-OIP
I	BONJOUR	BONSOIR OK
Le curseur se positionne sur la dixième colonne de la ligne courante, puis l'ordinateur écrit le mot BONJOUR. Le point virgule placé juste après indique au M05 de rester sur la ligne où il se trouve, et d'afficher ce qui suit — en l'occurrence 10 espaces et le
M
19
mot BONSOIR — dans le prolongement de ce qui est déjà inscrit à l'écran.
Effacez l'écran au moyen de la touche RAZ, puis entrez la commande suivante :
f'RINT SPC(1O) "BONJOUR", TAB(10) - BONSOIR "
Voici ce que vous pouvez voir après avoir validé votre ligne :
TAB ET SPC/ÉCRAN 2
PEINT SPC(I0I -BONJOUR-; TAB(10) -BON-01
BONJOUR BONSOIR OK
1 LIMITES DES COMMANDES TAB ET SPC 1
PRINT SPC(60) COUCOU-
OK	COUCOU PRINT SPC(100) -C'EST LOIN°
C'EST LOIN OK
PRINT SPC(255) -C'EST TRES LOIN-
C'EST TRES LOIN
OK
PRINT TAB(255) POURQUOI?
POURQUOI?
OK
PRINT TAB(8007) PAS DE LIMITES-
PAS DE LIMITES OK

La première partie de la commande (SPC(10)) envoie 10 espaces et le mot BONJOUR à l'écran. L'ordinateur rencontre alors le point virgule qui l'oblige normalement à rester sur la même ligne. Vient ensuite le mot TAB qui lui indique de se positionner à la dixième colonne de la ligne courante pour y afficher le mot BONSOIR.

Cette colonne et les suivantes sont déjà occupées par le mot BONJOUR. Que faire quand on est un ordinateur et que l'on reçoit deux ordres contradictoires? Pour obéir en partie, le M05 choisit de positionner son curseur sur la colonne numéro 10 comme cela lui a été demandé, mais sur la ligne suivante au lieu de la ligne courante. Voilà pourquoi les mots BONJOUR et BONSOIR apparaissent l'un au-dessous de l'autre sur votre écran.

La commande SPC envoie des espaces, tandis que TAB place le curseur sur une colonne donnée.

Les limites de TAB et SPC

Observons maintenant ce qui se passe lorsque l'expression entre parenthèses dépasse les limites fixées par l'écran.

Après avoir vidé l'écran de son contenu, tapez les commandes de l'écran qui suit sans oublier de les valider par ENTRÉE .

Vous remarquez qu'il est possible d'envoyer jusqu'à 255 espaces (au-delà de 255 vous seriez gratifié d'un message d'erreur) et que le mot à écrire s'affiche alors quelque six lignes et demie plus loin que la commande (une ligne faisant 40 colonnes, multipliez 40 par 6 et rajoutez 15 pour obtenir 255).

Le même nombre employé avec la commande TAB ne génère par contre aucun saut de ligne. Ce phénomène s'explique comme suit. Le curseur ne pouvant se placer que sur des colonnes comprises entre 0 et 39 le M05 retranche 40 de l'expression entre parenthèses autant de fois que nécessaire jusqu'à ce qu'il trouve un résultat correspondant à un numéro de colonne existant. Ainsi, TAB(255) provoque le positionnement du curseur sur la colonne 15 (255-40-40-40-40-40-40=15).

Vous savez maintenant placer un mot en un endroit quelconque d'une ligne, voire quelques lignes plus bas que la commande d'affichage, mais vous ne pouvez toujours pas centrer un mot à l'écran. Il n'existe malheureusement pas d'équivalent vertical à la commande TAB. Il y a cependant beaucoup mieux.

L'instruction LOCATE

Nettoyez votre écran puis frappez au clavier la ligne ci-dessous :

LOCATE 18,13:PRINT "CENTRE"

Votre mot apparaît parfaitement centré à l'écran. LOCATE signifie en anglais "positionner". La 
ligne ci-dessus indique à l'ordinateur de placer dans un premier temps le curseur sur la 18e colonne de la 13e ligne, puis, à partir de cette position, d'afficher le mot CENTRE.
Remarquez que vous venez d'utiliser deux commandes différentes en une seule ligne. Cela n'a en fait rien d'exceptionnel et ne présente aucune difficulté si vous prenez soin de séparer lesdites commandes par deux points.

Voilà, vous pouvez désormais vous déplacer tout autour de l'écran et afficher mots et messages au gré de votre fantaisie. N'oubliez pas, cependant, que vous devez rester dans les limites de votre page écran et ne pas utiliser la commande LOCATE avec des valeurs étrangères à l'intervalle 0-39 pour les colonnes, et 0-24 pour les lignes.

Lors de la mise sous tension de votre ordinateur, la totalité de l'écran (bordure + page écran) se colore en bleu clair, tandis que le message de bienvenue apparaît dans un bleu plus soutenu.
Si certaines personnes ne trouvent rien à dire de cette juxtaposition de couleurs, peut-être souhaiteriez-vous personnellement disposer d'une couleur d'encre plus marquée ?

Qu'à cela ne tienne, il n'y a qu'à en changer! Il vous suffit pour cela de taper au clavier la commande suivante, sans omettre de la faire suivre par une pres-
sion sur la touche ENTRÉE

SCREEN 0

Le message de bienvenue, ainsi que le libellé de votre commande s'affichent désormais en noir. Vous venez de modifier la couleur d'écriture — ou couleur d'encre — mais le fond quant à lui demeure inchangé.

Essayez maintenant
SCREEN ,3

suivi de ENTRÉE] La page écran se colore en jaune mais la bordure de l'écran ne subit aucune modification.

Si vous préférez travailler sur un fond uniformément jaune, tapez :
SCREEN „3

Voilà! De bleu clair votre écran est devenu jaune, tandis que dans le même temps la couleur de votre "encre" passait du bleu au noir.

Pour revenir à votre point de départ, contentez-vous de presser la touche d'initialisation placée au-dessus du clavier, sur la droite du boîtier. L'écran se vide, la bordure devient orange pendant un court instant. On retrouve alors notre écran bleu pâle et le mot OK écrit en bleu.

Pour modifier tour à tour les couleurs d'encre, de fond, et de bordure, vous avez employé par trois fois une même commande suivie de paramètres différents. Pour parvenir au même résultat en une seule opération, frappez au clavier (en toutes lettres, ou par l'intermédiaire des touches[iiE1 et[I)
~•rv [[Utilisateur:Esprit libre|Esprit libre]] ([[Discussion utilisateur:Esprit libre|discussion]])rfeze~

Vous disposez de nouveau d'une encre noire sur fond
jaune uni. La commande SCREEN (SCREEN signifie
" écran " en anglais) peut en effet être suivie de trois paramètres séparés par des virgules. Le premier désigne la couleur d'encre, le deuxième celle du fond et le troisième celle de la bordure. Lorsque vous ne souhaitez modifier que la seule bordure, il vous suffit, comme précédemment, de marquer par deux virgules l'emplacement des paramètres inchangés. Si, par contre, vous désirez changer de fond sans toucher aux couleurs d'encre et de bordure, une seule virgule suffira. Tapez successivement :

SCREEN „0
crPFFN 1

sans oublier d'appuyer sur ENTRÉE1 en bout de chaque ligne. Vous remarquez que, dans un premier temps, la bordure devient noire, puis que le fond devient rouge. Examinez de nouveau toutes ces commandes. Que remarquez-vous ? Lorsque vous avez tapé SCREEN, l'encre est devenue noire. Quand vous avez écrit SCREEN „0, c'est la bordure qui est devenue noire. Le chiffre 0 représente en effet la couleur noire, tandis que 3 et 1 désignent respectivement le jaune et le rouge. En effet, les seize couleurs disponibles sur le M05 vous sont accessibles au moyen d'un code utilisant des chiffres de 0 à 15. On distingue par ailleurs deux types de couleurs : les couleurs franches ou vives, au nombre de huit, et les couleurs pastel (huit également), qui ne sont en
L2JI1
fait qu'un reflet plus pâle des huit couleurs vives,	en encre bleue, sans que soit modifiée pour autant
Le tableau ci-dessous vous indique, dans l'ordre, les	la couleur d'encre des deux commandes précédentes.
chiffres à employer selon les couleurs désirées.	Frappez maintenant
5, SiR ÇQ	:311}5	COLOR 1
Vous l'aviez sans doute deviné, l'affichage suivant Teintes vives	Teintes pastel	s'inscrit en rouge. En effet, les codes couleurs sont
0 Noir	8 Gris	identiques pour les commandes SCREEN et COLOR.
1 Rouge	9 Rouge pâle	Votre écran devrait maintenant afficher trois cou-
2 Vert clair	10 Vert pâle	leurs d'encre différentes sur une même couleur
3 Jaune	11 Jaune pâle	de fond.
4 Bleu	12 Bleu pâle	Ce n'est pas tout. Si vous tapez maintenant
5 Magenta	13 Violet pâle	COLOR 7,0
6 Cyan	14 Bleu très pâle	le message OK s'écrira en blanc sur fond noir, sans
7 Blanc	15 orange	que votre page écran ne vire au noir. Rien ne vous
Nantis de ces précieux codes, vous pouvez désor-	empêche en effet d'afficher sur une même page
mais modifier à votre guise les couleurs d'encre, de	écran autant de couleurs d'encre et de fond que
fond et de bordure. Si vous vous mettez dans	vous le désirez. A titre de démonstration, entrez lés
la tête d'essayer toutes les combinaisons possibles,	lines suivantes sans omettre de presser la touche
autant vous prévenir qu'il n'en existe pas moins de	ENT~REE :
16 X 16X 16 = 4096! Bon courage!	SCREEN 0,7,7
CLS
La commande COLOR	4,6
Vous avez sûrement noté, au cours de vos précé-	PONT TAB(20) "BLEU SUR BLEU CLAIR"
COLOR 0,3
dents essais, que la commande SCREEN agissait sur	PRINT TAB(20)  ' NOIR SUR JAUNE"
la totalité de l'écran. Cela ne fait peut-être pas votre	COLOR 8,15
affaire, car vous auriez pu croire que l'on pou-	PRINT TAB(20) "GRIS SUR ORANGE"
vait disposer de plusieurs couleurs d'encre, voire de	COLOR 3,4
fond, sur une même page écran. Vous ne vous étiez	PONT TAB(20) ""JAUNE SUR	"" BLEU
pas trompé. La chose est tout à fait possible, mais il	La commande SCREEN 0,7,7 met en place un fond
vous faut pour cela recourir à une commande diffé-	uni blanc sur lequel le texte apparaît en noir. La
rente, à savoir COLOR. Tapez RAZ puis :	deuxième commande, CLS, produit un résultat identique à la touche RAZ . CLS vient en effet de
SCREEN 0,7,7	l'anglais "CLear Screen" qui signifie "nettoyer
COLOR 4	l'écran". Les commandes COLOR qui suivent modi-
N'oubliez pas de valider chacune de vos lignes par	fient successivement les couleurs d'encre et de fond.
une pression sur la touche IENTRÉE . Dans un pre-	Notez qu'une commande TAB provoque l'envoi d'un
mier temps, l'écran devient uniformément blanc et	certain nombre de caractères en couleur de fond
la commande SCREEN apparaît en noir. La com-	(20 dans notre exemple). Si vous appuyez sur la tou-
mande COLOR 4 est écrite en noir elle aussi, mais,	che Raz après avoir entré la dernière instruction,
dès que vous enfoncez ENTRÉE , le mot OK s'affiche	votre page écran deviendra uniformément bleue.
LA COMMANDE COLOR	ENCRES ET FONDS
~,	w oh`	1 . ri. ra	: 2 ag i
.y	5 ~~-s`arâ^r4	-' ~`y,,~.~7i.r$,	x~ U3: t3l kil ~	_
`., lt Y` ~	-	F tes-	f ~ mrf	: tl '~ 	"s	1- à:.
} r ~.~+v~•ee~ e~` ~ 	T
•
Un ordinateur est avant tout une excellente machine à calculer, capable d'effectuer les opérations les plus diverses moyennant quelques contraintes d'écriture.
PRINT dans les calculs
Commençons immédiatement par l'opération la plus simple, à savoir l'addition. Le signej se trouve placé sur la remière rangée du clavier, a gauche de la touche, ACC . On l'obtient directement en frappant la touche.
Si vous essayez d'utiliser le M05 à la manière d'une calculatrice et que vous tapez
5+5
suivi d'une pression sur ENTRÉE , ce n'est pas le résultat qui apparaîtra, mais bel et bien un message d'erreur. Cela ne signifie pas pour autant que votre
ordinateur est incapable d'effectuer une opération
aussi simple, mais tout bonnement que vous ne lui avez pas demandé d'afficher sa réponse. Recommencez, en tapant cette fois
PRINT 5+5
C'est bien le résultat de l'opération qui s'affiche désormais. Maintenant que vous savez comment vous y prendre, entraînez-vous en entrant successivement les additions ci-dessous. N'oubliez pas de presser chaque fois la touche ENTRÉE en fin de ligne :
PRINT ET ADDITIONS
10
OK
PRINT 1+2+3+4+5+6
21
OK
PRINT 1024+19234+2701
22959
OK
PRINT 9+34567+56+90
34722
OK
PRINT 2+2+2+2+2+2+2+2+2+2+2+2+2+2
28
OK
PRINT 19999+111111
131110
OK
PRINT 46+23+57+34+12+11+9+675+333+23.5+1 2.075+4.5+31+21.3
1292.38
OK
La soustraction
La soustraction ne pose pas plus de problème que
l'addition. Le signe — se trouve à gauche du signe + et s'obtient lui aussi directement. Ayez recours, là encore, à l'instruction PRINT en tapant par exemple :
PRINT 12-4
PRINT 255-100--35 PRINT 747 — 732
La multiplication et la division
Jusqu'ici, tout semble se dérouler comme vous en avez l'habitude. Pour la multiplication, cependant, le symbole utilisé ne sera pas le x mais un astéris-
que que vous trouverez sur la deuxième rangée de
touches en partant du haut du clavier, et sur la troisième touche à partir de la droite.
La division, quant à elle, utilise le signe / , placé sur la touche située immédiatement à gauche de celle de l'astérisque. Le dividende (nombre à diviser) se trouve toujours à gauche de la barre oblique.
Entrez les exemples ci-dessous, sans oublier de valider chacune de vos commandes par ENTRÉE
PRINT 9 * 8
PRINT 2*3*4 PRINT 13* 56 PRINT 421/9 PRINT 9/421 PRINT 1/8
MULTIPLICATION ET DIVISION
PRINT 9*8
72
OK
PRINT 213*4
24
OK
PRINT 13456
728
OK
PRINT 421/9
46.7778
OK
PRI NT 10/421
023753
OK
PRINT 1/8 .125
OK
Puissances et racines carrées
En plus des quatre opérations traditionnelles, le M05 vous offre la possibilité d'élever un nombre à
une certaine puissance, ou encore de calculer sa racine carrée.
La représentation des puissances utilise d'ordinaire un exposant placé en haut et à droite du nombre à élever. Le clavier du M05 ne permettant pas une telle disposition, vous devrez recourir au si ne
que vous trouverez à gauche de la touche BASIC et que vous obtiendrez à l'aide de la touche jaune. Par exemple, 24 se traduira au clavier par la frappe de PRINT 2"4.
Pour calculer la racine carrée d'un nombre, ne cherchez pas le symbole ~ . Vous ne le trouverez pas.
Vous devrez, pour effectuer cette opération, recou-
rir à la commande SQR (X) où X désigne le nombre dont on recherche la racine carrée. Cette commande n'est pas accessible par le biais de la touche aaSiC
1 23
é e
e
e e e
t r
1
tai. devra donc être frappée au clavier. Pour obtenir la racine carrée de 2, il vous faudra donc écrire :
PRINT SQR(2)
1.41421
OK
PRINT SQR(16)
4 OK
PRINT 5QR(193456)
439.836
OK
PRINT SQR(1985)
44.5533
OK
PRI NT SQR ( 123456789)
11111.1
OK
PRINT SOR(-5)
Error 5
OK
Si vous employez une expression négative (dernier exemple sur l'écran), vous serez invariablement gratifié d'un message d'erreur.
Priorités des calculs
Vous pouvez, à l'aide d'une instruction PRINT unique, effectuer plusieurs opérations de natures différentes, mais cela ne va pas sans poser quelques problèmes :
1	CALCULS MULTIPLES	1
PRINT 5+4*6
29
OK
PRINT 4+5*6
34
OK
PRINT 2*2/8
.5
OK
PRINT 1+10/11
1.90909
OK
PRINT 3+43[10/12
6.33333
OK
Regardez attentivement les deux premières opérations affichées à l'écran. Elles reprennent toutes deux les mêmes chiffres et des symboles arithmétiques identiques, et pourtant leur résultat est différent. 5 + 4 ou 4 + 5, c'est bonnet blanc et blanc bonnet. Quel que soit l'ordre des termes, cela donne toujours 9. Pour vous peut-être, mais pour l'ordinateur il en va autrement.
Celui-ci classe en effet les différents types d'opéra-
tions selon un ordre précis et les exécute en fonction de leur priorité, quelle que soit leur position dans l'expression à calculer. Lorsque vous saurez que la multiplication et la division passent avant l'addition et la soustraction, vous comprendrez mieux la différence de résultats entre 4 + 5* 6 et 5 + 4* 6. Dans le premier cas, le M05 calcule d'abord 5* 6 avant de lui ajouter 4. Dans le second cas, l'ordre des calculs est identique mais la multiplication (4* 6) a pour résultat 24 et non 30.
A priorité égale, l'ordinateur travaille de gauche à droite. Signalons que l'ordre des priorités peut être modifié par l'emploi des parenthèses : l'ordinateur privilégiera toujours l'expression entre parenthèses, même s'il s'agit d'une addition ou d'une soustraction.
Limites et notation scientifique
Il vous reste à découvrir un dernier aspect de l'écriture des nombres sur le M05. Observez l'écran ci-dessous :
LIMITES ET NOTATION SCIENTIFIQUE
PRINT 100
100
OK
PRINT 1000
1000
OK
PRINT 1.0000
10000
OK
PRINT 100000
100000
OK
PRINT 1000000
1 E+06
OK
PRINT 100000000
IE+08
OK
PRINT 10+39
Error 6
OK
Les quatre premiers nombres sont affichés dans une représentation qui vous est familière, mais il en va différemment des deux suivants. Pour tous les nombres de plus de six chiffres, le M05 utilise ce que l'on appelle la «notation scientifique », à savoir que le nombre est représenté sous la forme Mantisse et Exposant.
Dans notre exemple, 1 représente la mantisse et 06 l'exposant. Comme il s'agit ici d'un exposant positif, il est précédé du signe +. 1 E + 6 représente donc un 1 suivi de 6 zéros.
De la même manière 10139 devrait correspondre à un 1 suivi de 39 zéros. Pourtant, l'ordinateur se refuse à l'afficher. Le message qu'il envoie à la place signifie que vous avez dépassé les limites auxquelles il est astreint. Le M05 ne peut en effet manipuler des nombres supérieurs à 1038. Cela vous laisse quand même une marge de manoeuvre suffisamment importante pour effectuer toutes sortes d'opérations.
f'RINT SOR (2)
RACINES
e i-
Un ordinateur est avant tout une excellente machine à calculer, capable d'effectuer les opérations les plus diverses moyennant quelques contraintes d'écriture.
PRINT dans les calculs
Commençons immédiatement par l'opération la plus simple, à savoir l'addition. Le signe se trouve placé sur la remière rangée du clavier, a gauche de la touche Acc . On l'obtient directement en frappant la touche.
Si vous essayez d'utiliser le M05 à la manière d'une calculatrice et que vous tapez
5+5
suivi d'une pression sur j ENTRÉE , ce n'est pas le résultat qui apparaîtra, mais bel et bien un message d'erreur. Cela ne signifie pas pour autant que votre ordinateur est incapable d'effectuer une opération aussi simple, mais tout bonnement que vous ne lui avez pas demandé d'afficher sa réponse. Recommencez, en tapant cette fois
PRINT 5 + 5
C'est bien le résultat de l'opération qui s'affiche désormais. Maintenant que vous savez comment vous y prendre, entraînez-vous en entrant successivement les additions ci-dessous. N'oubliez pas de presser chaque fois la touche rENTRÉE1 en fin de ligne :
PRINT ET ADDITIONS
10
OK
PRINT 1+2+3+4+5+6
21
OK
PRINT 1024+19234+2701
22959
OK
PRINT 9+34567+56+90
34722
OK
PRINT 2+2+2+2+2+2+2+2+2+2+2+2+2+2
28
OK
PRINT 19999+111111
131110
OK.
PRINT 46+23+57+34+12+31+9+675+333+23.5+1 2.075+4.5+31+21.3
1292.38
OK
La soustraction
La soustraction ne pose pas plus de problème que l'addition. Le signe — se trouve à gauche du signe + et s'obtient lui aussi directement. Ayez recours, là encore, à l'instruction PRINT en tapant par exemple :
PRINT 12-4
PRINT 255-100-35 PRINT 747 — 732
La multiplication et la division
Jusqu'ici, tout semble se dérouler comme vous en avez l'habitude. Pour la multiplication, cependant, le symbole utilisé ne sera pas le x mais un astérisque que vous trouverez sur la deuxième rangée de touches en partant du haut du clavier, et sur la troisième touche à partir de la droite.
La division, quant à elle, utilise le signe / , placé sur la touche située immédiatement à gauche de celle de l'astérisque. Le dividende (nombre à diviser) se trouve toujours à gauche de la barre oblique.
Entrez les exemples ci-dessous, sans oublier de valider chacune de vos commandes par ENTRÉE
PRINT 9 * 8 PRINT 2* 3* 4 PRINT 13* 56 PRINT 421/9 PRINT 9/421 PRINT 1/8
MULTIPLICATION ET DIVISION
PRINT 918
72
OK
PRINT 21314 24
OK
PRINT 13K56 728
OK
PRINT 421/9 46.7778
OK
PRI NTIO/421
023753
OK
PRINT 1/8
125
OK
Puissances et racines carrées
En plus des quatre opérations traditionnelles, le M05 vous offre la possibilité d'élever un nombre à une certaine puissance, ou encore de calculer sa racine carrée.
La représentation des puissances utilise d'ordinaire un exposant placé en haut et à droite du nombre à élever. Le clavier du M05 ne permettant pas une telle disposition, vous devrez recourir au signe
que vous trouverez à gauche de la touche ASICJ et que vous obtiendrez à l'aide de la touche jaune. Par exemple, 2 se traduira au clavier par la frappe de PRINT 2 4.
Pour calculer la racine carrée d'un nombre, ne cherchez pas le symbole ,j. Vous ne le trouverez pas. Vous devrez, pour effectuer cette opération, recourir à la commande SÛR (X) où X désigne le nombre dont on recherche la racine carrée. Cette commande n'est pas accessible par le biais de la touche Basic
23 1
é e
e
e e e
t r

et devra donc être frappée au clavier. Pour obtenir la racine carrée de 2, il vous faudra donc écrire :
PRINT SOR(2)
1.41421
0K
PRINT 505116)
4 OK
PRINT 50R(193456)
439.836
OK
PRINT 50R(1985)
44.5533
OK
PRINT SOR(123456789)
11111.1
OK
PRINT 50R(-5)
Error 5
0K
Si vous employez une expression négative (dernier exemple sur l'écran), vous serez invariablement gratifié d'un message d'erreur.
Priorités des calculs
Vous pouvez, à l'aide d'une instruction PRINT unique, effectuer plusieurs opérations de natures différentes, mais cela ne va pas sans poser quelques problèmes :
CALCULS MULTIPLES
PRINT	5+43¢6
29	
OK	
PRINT.	4+5x6
34	
OK	
PRINT	2[2/8
.5	
OK	
PRINT	1+10/11
1.90909
OK	
PRINT	3+43[10/12
6.33333
OK	
Regardez attentivement les deux premières opérations affichées à l'écran. Elles reprennent toutes deux les mêmes chiffres et des symboles arithmétiques identiques, et pourtant leur résultat est différent. 5 + 4 ou 4 + 5, c'est bonnet blanc et blanc bonnet. Quel que soit l'ordre des termes, cela donne toujours 9. Pour vous peut-être, mais pour l'ordinateur il en va autrement.
Celui-ci classe en effet les différents types d'opéra-
tions selon un ordre précis et les exécute en fonction de leur priorité, quelle que soit leur position dans l'expression à calculer. Lorsque vous saurez que la multiplication et la division passent avant l'addition et la soustraction, vous comprendrez mieux la différence de résultats entre 4 + 5 * 6 et 5 + 4 * 6. Dans le premier cas, le M05 calcule d'abord 5 * 6 avant de lui ajouter 4. Dans le second cas, l'ordre des calculs est identique mais la multiplication (4 * 6) a pour résultat 24 et non 30.
A priorité égale, l'ordinateur travaille de gauche à droite. Signalons que l'ordre des priorités peut être modifié par l'emploi des parenthèses : l'ordinateur privilégiera toujours l'expression entre parenthèses, même s'il s'agit d'une addition ou d'une soustraction.
Limites et notation scientifique
Il vous reste à découvrir un dernier aspect de l'écriture des nombres sur le M05. Observez l'écran ci-dessous :
1	LIMITES ET NOTATION SCIENTIFIQUE	1
PRINT 100
100
0K
PRINT 1000
1000
OK
PRINT 10000
10000
OK
PRINT 100000
100000
OK
PRINT 1000000
1E+06
OK
PRINT 100000000
1E+08
OK
PRINT 10t39
Error 6
OK
Les quatre premiers nombres sont affichés dans une représentation qui vous est familière, mais il en va différemment des deux suivants. Pour tous les nombres de plus de six chiffres, le M05 utilise ce que l'on appelle la «notation scientifique», à savoir que le nombre est représenté sous la forme Mantisse et Exposant.
Dans notre exemple, 1 représente la mantisse et 06 l'exposant. Comme il s'agit ici d'un exposant positif, il est précédé du signe +. lE + 6 représente donc un 1 suivi de 6 zéros.
De la même manière 10T39 devrait correspondre à un 1 suivi de 39 zéros. Pourtant, l'ordinateur se refuse à l'afficher. Le message qu'il envoie à la place signifie que vous avez dépassé les limites auxquelles il est astreint. Le M05 ne peut en effet manipuler des nombres supérieurs à 1038. Cela vous laisse quand même une marge de manoeuvre suffisamment importante pour effectuer toutes sortes d'opérations.
PRINT SOR (2)
RACINES
e
2~.
PREMIER PROGRAMME
Vous vous êtes contenté jusqu'à présent d'utiliser	
	PREMIER PROGRAMME : AFFICHAGE
votre ordinateur en «mode direct». Cela signifie que	
vous avez tapé certaines commandes, que vous les	
avez fait entrer dans la mémoire du M05 (touche	
ENTRÉE) où elles ont été interprétées puis exécu-	
tées sans qu'il n'en subsiste après cela la moindre	
trace. Ce mode d'utilisation se révèle très rapide-	
ment limité car l'on ne saurait concevoir une	
séquence complexe d'opérations qu'il faudrait reta-	
per à chaque utilisation.	P.FÉTtIER PPOGRr MME
	Oiitl4.441F~«4Q44444.4
Le mode programme	
Pour passer du mode direct — ou mode utilisateur	
— au mode programme, il vous suffit de faire pré-	
céder vos instructions d'un numéro de ligne. Celui-	
ci indiquera à l'ordinateur l'ordre selon lequel les	
différentes commandes seront exécutées.	
Commencez par taper les lignes de la photo d'écran	
ci-dessous,	sans	omettre	d'enfoncer	la	touche	
ENTRÉE pour permettre au M05 de valider chacune	
de vos lignes.	Que	s'est-il	passé ?	Vous	avez	tout	simplement
	demandé à l'ordinateur d'exécuter le programme
	que vous venez d'entrer. Le M05, en esclave obéis-
	sant, a commencé par effacer l'écran (ligne 10), puis
	a exécuté l'une après l'autre — en suivant l'ordre
	PREMIER PROGRAMME		
	
	des numéros de ligne — les commandes que vous lui
	avez données.
10 CLS	L'exécution une fois terminée, le M05 affiche le mot
3a 5CREEN ei : i0	OK, indiquant par là qu'il se tient prêt à répondre
40 PRINT 'PREMIER PROGRAMME'	à de nouveaux ordres. Si vous vous demandez où a
50 LOCATE 11,2	
6@	PRINT	~tt[IF i'7E.3E~tt 1[ii:lEt~i~	bien pu passer votre programme, ne vous en faites
	pas trop. Il est toujours présent dans la mémoire
	de l'ordinateur. Pour vous en assurer, relancez son
	exécution. Le programme se déroule de la même
	manière que précédemment, preuve que l'ordina-
	teur ne l'a pas détruit. Vous pouvez répéter l'opéra-
	tion aussi souvent que vous le souhaitez. Le résultat
	demeurera inchangé.
	Avant de passer à un autre programme, il convient
	d'effacer celui qui se trouve déjà en mémoire (le pro-
	gramme courant). Utilisez pour cela la commande
	NEW. Ne la cherchez pas sur le clavier, elle ne s'y
Que remarquez-vous aussitôt? Lorsque vous avez	trouve	pas.	Il	ne	s'agit	pas	là	d'un	oubli	du
entré au clavier 10 CLS et pressé la touche	ENTRÉE , .	constructeur mais plutôt d'une sage précaution, car
il ne s'est rien produit. Ne vous en préoccupez pas	cette commande détruit tout programme existant en
et poursuivez la frappe du programme. Vous devriez	mémoire. Une fausse manoeuvre, un doigt qui se
reconnaître au passage les commandes SCREEN,	trompe de touche, et tout s'effacerait. Validez votre
PRINT et LOCATE que vous avez eu l'occasion	commande par	ENTRÉE , puis essayez une nouvelle
d'employer au cours des pages qui précèdent.	fois d'exécuter le programme précédent. Cette fois,
Lorsque vous aurez recopié ce court programme	l'ordinateur n'affiche qu'un banal OK. L'ancien pro-
dans son intégralité, tapez le mot clé RUN en	gramme a bel et bien été détruit.
mode direct.	Entrez maintenant le programme suivant, un peu
Rappelons ici que les mots clés du BASIC sont acces-	plus long. Ce programme nécessitant quelques éclair-
sibles par l'intermédiaire de la touche	sISi. c	Pour	cissements,	commençons	par	l'examiner	dès	le
RUN , enfoncez donc	[BASIC , puis frappez la lettre	début. Vous découvrez en ligne 1 le mot clé REM
R . N'oubliez pas de valider votre commande par	suivi d'un message — en l'occurrence le titre donné
ENTRÉE . Voici ce que vous devriez voir apparaître:	au programme.

}
I
25
PROGRAMME AVEC VARIABLES
10 REM LES VARIABLES
30 REM Lem- Mariables NumérlOues
_0 A=4
40 E=8
50 C=A+B
60 PRINT C
:70 REM Les Variables Cnaines
80 À$= BON
90 8$= JOUR 100 C$=°SOIR° 110 D$=$+0$ 120 E$=A$+C$ 130 PRINT D$ 140 PRINT E$
REM est l'abréviation du mot REMarque. Cette commande précise au M05 de ne pas exécuter ce qui suit mais de passer plutôt à la ligne d'instruction (numérotée) au-dessous. REM autorise donc l'insertion de commentaires, de remarques, de messages divers à l'intérieur d'un programme. Cette commande permet à l'auteur de documenter son programme, de manière à le rendre aussi clair que possible et à mettre en valeur les différents «modules» qui le composent. Le programme que vous venez de taper comprend trois de ces instructions.
Ce premier point élucidé, penchons-nous à présent sur les lignes 30 et 40. Qu'y trouve-t-on ? Deux lettres de l'alphabet suivies chacune d'un signe = et d'une valeur numérique. A et B sont appelées «variables numériques ».
Une variable numérique n'est autre qu'une étiquette donnée à une case mémoire de l'ordinateur et renfermant une certaine valeur. On choisit de représenter un nombre par une lettre ou un groupe de lettres qui identifient ce nombre. On dit que l'on «affecte une valeur à une variable ». Celle-ci peut alors être utilisée comme s'il s'agissait du nombre lui-même. D'où la possibilité d'additionner deux variables et d'allouer la somme obtenue à une troisième variable (ligne 50).
Le total peut alors être affiché au moyen d'une simple instruction PRINT. Les variables A, B et C gardent leur valeur respective jusqu'à ce qu'une nouvelle affectation ne vienne en modifier le contenu. Une fois le programme exécuté, tapez en mode direct :
PRINT A
Le nombre X, valéur allouée à A par le programme, s'affiche à l'écran. Écrivez maintenant :
A= 1.798
Puis refaites PRINT A. Vous obtenez désormais pour résultat 1798.
Revenons à notre programme, et jetons un coup
d'oeil aux lignes 80 et suivantes. A$, B$ et C$ sont des variables chaînes. Elles se différencient, au niveau de l'écriture, de leurs congénères numériques par la présence du signe dollar ($). Les variables chaînes représentent — comme leur nom l'indique — des chaînes de caractères. Deux variables chaînes peuvent être additionnées — on parle alors plus volontiers de «concaténation» —, et le résultat obtenu est affecté à une troisième variable (D$ ou E$ dans notre exemple). La concaténation n'altère en rien le contenu des variables originales.
L'emploi des variables nécessite quelques précautions, dont la principale est la suivante : à une variable numérique ne peut correspondre qu'une autre valeur numérique, tandis qu'une variable chaîne ne saurait se voir affecter qu'une chaîne de caractères.
Pour en avoir confirmation, tapez les lignes suivantes, puis RUN :
LES VARIABLES : PRÉCAUTIONS D'EMPLOI
10 REM LES VARIABLES
20 REM PRECAUTIONS D'EMPLOI
30 REM DEMONSTRAT ION 40 A$=1985
50 PRINT °NOUS 501111ES EN °+A$
RUN
Error 13 in 40 OK
A l'exécution, le message «Error 13» apparaît à l'écran. L'ordinateur vous fait ainsi part de son incapacité à exécuter votre commande, car vous avez associé une chaîne de caractères à une variable numérique.
Vous pouvez donner à vos variables des noms qui en définissent la fonction, mais vous devrez néanmoins les choisir avec soin. Si vous entrez et exécutez les lignes ci-dessous, l'ordinateur vous gratifiera d'un message d'erreur :
10 NOM$=""DUPONT"
20 NOTE=10
30 PRINT NOM$ : PRINT NOTE
Le nom de variable NOTE inclut les lettres NOT qui constituent «un mot réservé», c'est-à-dire un mot appartenant au vocabulaire BASIC de la machine, et interprété comme une instruction. Une variable nommée «PRINTEMPS» serait pareillement rejetée car contenant les lettres formant l'instruction PRINT.
26
AFFICHAGE DUN PROGRAMME
Vous connaissez maintenant les techniques d'écri-	retaper tout le programme. Contentez-vous de frap-
ture et d'exécution d'un programme, mais vous igno-	per au clavier
rez encore comment rappeler à l'écran — en vue	
	25	INT	(1"'>k~k~k~K>k~k~k~k~k>k>k""
	PR	TA	0)
d'une éventuelle modification ou correction — les	
	Cela	fait,	effacez	l'écran,	puis	listez	votre	pro-
lignes que vous venez de taper. C'est ce que nous	
allons étudier de ce pas.	gramme. Vous pouvez constater que la ligne est
	venue s'intercaler d'elle-même entre les lignes et
Liste complète d'un programme	vous comprenez sûrement mieux maintenant pour-
	quoi les lignes des programmes que vous avez reco-
Commencez par taper le court	rogramme ci-des-	piés étaient toutes espacées de 10 en 10. Il ne s'agit
sous, puis exécutez le par un	RuN	pas d'un souci d'esthétisme, mais bien d'une sage 
Une	fois	l'exécution	terminée	(le	programme	précaution.
	l	jra ou-
reprend des commandes déjà a	rises), nettoyez	l'on '
	Il arrive e	fréquemment que	doive
	Il arriveeffet n
l'écran au moyen de la touche	Raz , puis tapez	d'un
	ter une ou plusieurs lignes au milieu dun pro
LIST	(vous pouvez e alement presser simultané	gramme déjà existant. En utilisant une progression
ment les touches TBASLCIet ©). La «liste» de votre	par bonds successifs de 10, vous êtes assuré de pou-
programme réapparaît à l'écran :	voir écrire jusqu'à neuf nouvelles lignes entre deux
	lignes de programme déjà tapées.
	LISTE DU PROGRAMME PRÉCÉDENT		
			Liste sélective
			Lister un programme dans son intégralité permet,
			entre autres choses, de revenir sur ce qui a été
	I ST		fait pour d'éventuelles modifications. Mais que faire
	10 REM LI =,TE D'UN PROGRAMME		lorsque votre programme comporte plus de 24 lignes
	2l CLS		et ne peut, par conséquent, tenir entièrement dans
	3 T	PRINT	T i„B i 10)	°L I ,TE	D'„N pROGRAti I1E”		
	40	PRI NT	TABi10)	°31 l[	nrn acesa	nsxp ssss°		votre page écran ? Êtes-vous condamné à ne pouvoir
	50 LOCAT E©. 10		
	60	PRINT	°L'1n5truCtion	LI-°-.T'		corriger que la fin de vos programmes? Fort heu
	0	PPINT	TAn~1o)	affl~ne	la	)i5=.e	.~e		
	80. PRINT	TAB)12)	'votre	pr-oar.,rne-"		reusement : non.
	uh		
			Pour en apprendre davantage sur la commande
			LIST, entrez le programme ci-dessous après avoir
			pris soin d'effacer le précédent par un NEW afin de
			ne pas vous retrouver avec des lignes appartenant à
			votre précédent programme.
			
			LISTE SÉLECTIVE : PROGRAMME	
Vous remarquez que les instructions apparaissent		
décalées par rapport au numéro de ligne.	10 REM LISTE SELECT IVE	
Votre programme, qui se trouvait en mémoire, vient	20 CL5	
	30 PR I NT	T AB ( 16)	'TITRE	1	
d'être recopié à l'écran par la commande LIST. Cela	30 PRINT	TAO)16)	
	s0 L0CATE 13,6	
	60 PRINT ° Première partie°	
ne signifie pas pour autant qu'il a	disparu	de	70 PRINT TAB(13) -0e ce prograrmme'	
la mémoire.	80 END	
Effacez de nouveau l'écran, puis refaites usT . Vous		
pouvez répéter cette opération indéfiniment. Votre		
programme restera présent en mémoire tant que		
vous ne le détruirez pas par une commande NEW		
ou que vous ne débrancherez pas votre ordinateur.		
Nous avons vu au chapitre précédent que cette com-		
mande NEW effaçait le programme courant, et qu'il		
était préférable par conséquent de n'y recourir qu'à		
bon escient.		
	
Si vous avez exécuté le programme précédent, vous	
avez peut-être pensé qu'il aurait été préférable de	Cela fait, tapez RAZ, puis LIST 30. Seule la ligne 30
mettre le titre en valeur par une seconde ran-	apparaît à l'écran. Poursuivez vos investigations en
gée d'astérisques,	tapant successivement LIST-30 puis LIST 30-. Votre
Pour rajouter cette nouvelle ligne, pas besoin de	écran devrait ressembler à ceci


z~
LISTE SÉLECTIVE : AFFICHAGE
LIST 30
30 PRINT TAB(16) -TITRE 1-OK
LIST -30
10 REM LISTE SELECTIVE 20 CL5
30 PRINT TAB(16) -TITRE 1' OK
LIST 30-
30 PRINT TAB(16) 'TITRE 1:
40 PRINT TAB(16)
50 LOCATE 13.6
60 PRINT ;Première partie
70 PRINT T.AB(13) de ce programme' 80 END
OK
Dans le premier cas (LIST-30), toutes les lignes s'affichent jusqu'à la ligne 30 incluse. Dans le second exemple, n'apparaissent que les lignes 30 et suivantes.
Il vous est désormais possible de ne lister votre programme que partiellement.
Exécution partielle
Ajoutez maintenant les lignes suivantes au programme précédent :
EXÉCUTION PARTIELLE : PROGRAMME
LIST
10 REM LISTE SELECTIVE 20 CLS
30 PRINT TAB(16)	TITRE 1'' 4.0 PRINT TAB(16)
50 LOCATE 13.6
60 PRINT Première partie'
70 PRINT TAB(13) -de ce programme
80 END
OK
90 LOCATE 16,10
100 PRINT 'TI.TRE 2' 110 PRINT TAB(16) 120 LOCATE 13,16
130 PRINT ' Deuxiême partie'
140 PRINT T AB(13) °de ce programme'
Une fois achevé cet additif, tapez RUN. Vous voyez apparaître un titre libellé TITRE 1 et encadré d'astérisques. De nos nouvelles lignes, aucune trace. Assurez-vous qu'elles sont toujours présentes en mémoire par une instruction LIST.
Il ne manque aucune ligne, et pourtant le programme ne s'est pas déroulé jusqu'au bout. L'explication de ce phénomène se trouve en 80. Le mot clé END indique en effet à l'ordinateur que le programme s'arrête là, et qu'il est inutile et interdit d'aller plus avant.
Tapez maintenant RUN 90. Le second titre, TITRE 2, s'affiche aussitôt, sans que ne s'exécute la première partie du programme. Il n'y a là aucun mystère. En tapant RUN vous avez tout simplement demandé au M05 de se brancher directement à la ligne 90 et de commencer par là l'exécution du programme.
Il est possible, de la sorte, de lancer l'exécution d'un programme à partir de n'importe quelle ligne existante, mais cela ne se fait pas toujours sans problèmes. Sachez en effet qu'une instruction RUN remet à zéro toutes les variables d'un programme. A titre d'exemple, entrez ce programme, puis lancez-en l'exécution par un RUN 30 :
PERTE DES VARIABLES : PROGRAMME
10 REM ATTENTION AU RUN PARTIEL
20 N3='MICRO-1NFORMATIQUE'
30 LOCATE 16,4:PRINT 'BONJOUR'.
40 LOCATE 12,8:PRINT;A TOUS LES FANAS-50 LOCATE 19.12:PRINT~DE'
60 LOCATE 11,16:PRINT N$
La variable N$, initialisée en ligne 20, est ignorée par le RUN 30.
L'ordinateur ne connaît pas, en effet, le contenu de N$ et lui affecte tout naturellement la valeur « » (chaîne vide), d'où l'affichage tronqué qui en résulte (ligne 50).
PERTE DES VARIABLES : AFFICHAGE
RUN 30
BONJOUR
A TOUS LES FANAS
DE
OK
X 28
LE DÉPISTAGE DES ERREURS
La programmation est un passe-temps attractif et très prenant où les causes d'erreurs sont légion. On peut distinguer deux types d'erreurs. D'un côté, les fautes de conception proprement dite, qui nécessitent souvent un remaniement complet des programmes et dépassent le cadre de cet ouvrage. De l'autre, les fautes de simple forme, parmi lesquelles on peut citer les fautes d'orthographe, les erreurs de syntaxe, les oublis, les omissions, autant d'erreurs communes à tous les programmeurs, qu'ils soient débutants ou avertis, L'erreur est humaine, et le M05, quoique intransigeant sur l'orthographe et la syntaxe, vous aidera à corriger toutes ces fautes qui, si minimes soient-elles, nuisent au bon fonctionnement de bien des programmes.
L'éditeur pleine page du M05
Sur de nombreux ordinateurs familiaux, la correction des erreurs nécessite souvent une certaine gymnastique. Le M05 dispose, pour le plus grand bonheur de tous, d'un «éditeur pleine-page» d'une facilité d'emploi déconcertante.
Rien ne valant un exemple concret, commencez par entrer le programme ci-dessous sans y apporter aucune modification :
PROGRAMME COMPORTANT DES ERREURS
10 CL5
210 PRINT'=_----__-=o====______=----__
30 PRINT TAB(26) °CORRECTION°
40 LOCATE 5.12
50 PINT ° L'EDITEUR DU N05 EST FANTA5TIGU E°
Si vous avez assimilé les enseignements des chapitres précédents, vous aurez certainement repéré de vous-même les fautes les plus flagrantes. Quoi qu'il en soit, lancez l'exécution de ces quelques lignes par un.
Vous pouvez constater que trois points au moins sont à revoir. Premièrement, le nombre des signes «=» est trop important, quatre d'entre eux débordant sur la ligne suivante. Deuxièmement, le titre est complètement décalé vers la droite de l'écran. Troisièmement enfin, l'ordinateur nous signale qu'une erreur portant le numéro 2 s'est glissée dans la ligne 50.
Vu la longueur de ce programme, vous pourriez
PROGRAMME ERRONÉ : AFFICHAGE
-	CORRECTION
ErrOr 2 in 50 OK
le retaper intégralement dans la mesure où l'ordinateur ne retiendrait que la version « rectifiée» des lignes défectueuses. Il y a cependant mieux à faire comme nous allons le voir.
A l'aide de la touche M — à droite de votre clavier — faites remonter le curseur jusqu'à atteindre la ligne 20. Utilisez maintenant la touche pour amener le curseur sous le premier signe . Vous trouverez en bas à droite de votre clavier une touche portant l'inscription EFF . Pressez-la à quatre reprises. Toute la fin de la ligne 20 se déplace de quatre colonnes vers la gauche et les quatre premiers signes = sont effacés. Sans déplacer le curseur, validez votre ligne ainsi rectifiée par une pression sur [ENTRÉE]. Toujours à l'aide de la touche, positionnez le curseur sous le 2 de 20, puis frappez 35 suivi de ENTRÉE .
Pour mieux comprendre ce que vous venez de faire, tapez LI1RAZ puis LIST :
PREMIÈRE CORRECTION
LI ST
10 CL5
20 PRINT=______________________________
30 PRINT TAS)26) °CORRECT ION°
35 PRINT==-___—_===-__----_---___
40 LOCATE5.12
50 PINT ° L'EDITEUR DU P05 EST FANTA5TIGU
E° OK

r
1 29
Vous pouvez constater que votre ligne 20 existe toujours et que votre programme s'est enrichi d'une nouvelle ligne portant le numéro 35. En tapant 35 puis IENTRÉELvous avez tout bonnement recopié la ligne 20.
Remontez maintenant en ligne 30 et placez le curseur sous le 2 de 26. Remplacez ce chiffre par 1, puis frappez la touche ENTRÉE .
Vous pouvez désormais nettoyer l'écran et rééxécuter votre programme :
PROGRAMME APRÈS DEUX CORRECTION
CORRECTION
sous le « I » puis enfoncez la touche marquée INS . Votre ligne se décale d'un cran vers la droite, libérant ainsi un espace suffisant pour insérer la lettre « R ». Ceci fait, tapez successivement ENTRÉE , RAZ et la commande RuN . Vous devriez obtenir l'affichage précédent.
Les codes d'erreurs
Vous avez eu l'occasion, au cours des pages précédentes, et pas plus tard que tout de suite, de vous trouver confronté à un message du type « Error X in Y ». Il s'agissait là de l'un des multiples messages d'erreur du M05 dont le seul but était de vous renseigner sur la nature de la faute commise à la ligne spécifiée. Conçus pour vous aider à éliminer de vos programmes les erreurs et à faciliter leur localisation, ces messages présentent néanmoins l'inconvénient de ne pas être livrés «en clair », et d'obliger ainsi l'utilisateur à se référer sans cesse à un tableau explicatif similaire à celui-ci :
.-	É
s
e
3
i

	TABLEAU DES CODES D'ERREUR
Ce tableau,	loin d'être exhaustif, rassemble quelques-uns
des messages d'erreur les plus fréquemment rencontrés.
M05 T07	Signification
2	SN	Vous avez commis une erreur de syntaxe dans
	une instruction (par exemple oublié un R
	à	PRINT).
6	OV	Vous avez employé un nombre trop grand, ou
	multiplié deux nombres qui fournissent un
	résultat supérieur aux limites du M05.
7	OM	Vous avez épuisé les 32 ou 48 Ko de mémoire
	vive qui vous sont alloués.
8	UL	Vous avez utilisé un numéro de ligne qui
	n'existe pas (dans une commande GOTO par
	exemple).
12	ID	Vous avez employé en mode direct une ins-
	truction qui ne peut être utilisée qu'au sein
	d'un programme.
17	CN	Vous	avez	demandé	à	l'ordinateur	de
	reprendre l'exécution d'un programme après
	une interruption, ce qui se révèle impossible.
Error 2 in 50 OK
Le titre « CORRECTION » apparaît centré et .encadré de deux rangées de signes « = ». L'erreur de la ligne 50 n'en a pas pour autant disparu. Nettoyez l'écran, listez votre programme et placez le curseur en 50. Lisez attentivement cette ligne. Il manque un «R» au mot PRINT ce qui rend votre commande incompréhensible à l'ordinateur. Notez que ceci. ne vous arriverait pas si vous utilisiez la touche BASIC qui évite de retaper le mot clé en entier.
A l'aide de la touche «-->», positionnez le curseur
PROGRAMME CORRIGÉ: AFFICHAGE
CORRECTION
L'EDITEUR DU M05 EST FANTASTIQUE OK
Suppression de lignes
Vous pouvez supprimer une ligne inutile en tapant son numéro suivi de I ENTRÉ, cette opération se révèle rapidement lassante lorsque le nombre de lignes à effacer devient trop élevé. Le M05 dispose fort heureusement d'une commande, qui vous permet d'éliminer d'un programme autant de lignes que vous le désirez. Tapez par exemple :
DELETE 40
suivi de [ENTRÉE , puis listez votre programme. La ligne 40 a disparu. Poursuivez avec DELETE 10-35 . Votre programme ne comporte plus qu'une seule ligne.
%JMU V LV/`tI UVL VL%J 1 1 1VVI I IVIIVILV'
Vous savez créer, écrire, exécuter, afficher, et même corriger vos programmes, mais ceux-ci s'effacent de la mémoire de l'ordinateur dès que vous tapez NEW ou que vous débranchez le M05. Pour le moment, la longueur des programmes étudiés est telle que vous pouvez les ré-écrire sans que la perte de temps soit trop importante. Mais il n'en sera pas toujours ainsi. D'ici peu de temps, vous écrirez des programmes plus conséquents et, partant, plus longs à rentrer au clavier. Vous trouverez alors peu amusant le fait d'avoir à tout retaper intégralement. Heureusement, vos oeuvres vont pouvoir être conservées pour la postérité au moyen d'une simple cassette et d'un magnétophone.
PROGRAMME A ENREGISTRER
10 REM ESSAI MAGNETOPHONE 20 CLS
30 SCREEN 4,3,0
40 LOCATE 11.6
50 PRINT ' ES5AI MAGNETOPHONE'
60 PRINT TABtII) ++++++++++? +++++++`
70 LOCATE 7.14
80 PRINT Ce programme est destiné A`
90 PRINT TAB(7) `vér.rier le Fonctionnera ent-
100 PRINT TAH(71 du lecteur de cassette s.--
Le LEP
Si vous pouvez employer à peu près n'importe quel type de cassettes — le fabricant recommande néanmoins des cassettes à oxyde de fer —, il n'en va pas de même du magnétophone. Le M05 n'acceptera de sauvegarder vos créations que si vous le dotez d'un Lecteur-Enregistreur de Programme (LEP) Thomson MK 50-050.
A première vue, rien ne distingue ce magnétophone d'un vulgaire lecteur de cassettes. Pourtant, si vous y regardez de plus près, vous verrez que le MK 50-050 ne possède aucun réglage du niveau du son. Vous ne pourrez pas l'utiliser pour écouter vos airs préférés, car il a été conçu uniquement pour l'enregistrement et la relecture de programmes mis au point sur le M05.
Si vous possédiez auparavant un T07 (grand frère du M05) muni de son lecteur de cassette, vous ne pourrez pas non plus le connecter au M05. Votre LEP est doté d'origine d'un cordon à l'extrémité duquel se trouve une prise DIN 5 broches. Cette prise se raccorde au panneau droit du M05, là où est gravé le symbole o__o . Lors du raccordement, le M05 et le LEP devront tous deux être hors tension. Le MK 50-050 est fourni avec un petit transformateur, qui se branche sur le secteur et vient se raccorder à l'unique prise du magnétophone.
Sauvegarde des programmes
Une fois vos connexions établies et vérifiées, insérez une cassette dans le LEP en appuyant sur la touche repérée par un petit carré ^ . Elle sert à la fois à arrêter l'appareil et à ouvrir le volet porte-cassette. Une fois votre cassette en place, faites défiler la bande — touche m> — pour laisser passer l'amorce. Notez sur la jaquette de votre cassette le numéro qui s'affiche au compteur. Vous y inscrirez tout à l'heure le nom du programme que vous allez enregistrer.
Prenez par exemple le programme suivant et entrez-le au clavier.
Cela fait, donnez-lui un nom, (vous avez droit à huit lettres maximum), par exemple ESSAI.
Enclenchez maintenant la touche enregistrement (touche • ). La touche de lecture (r> ) se verrouille en même temps, tandis que s'allume le témoin d'enregistrement placé à droite. Le magnétophone étant entièrement piloté par l'ordinateur, la bande ne tourne pas.
Tapez au clavier la commande ci-dessous, puis pressez la touche LENTRÉE
SAVE ""ESSAI"
La bande se met automatiquement à tourner. Lorsque la sauvegarde est terminée, le message OK s'affiche à l'écran. Inscrivez sur la jaquette de votre cassette le numéro de compteur marquant la fin de l'enregistrement, afin de ne pas réécrire par mégarde sur cette partie de la cassette.
Chargement d'un programme
La sauvegarde d'un programme n'est intéressante que si l'on peut relire ce dernier par la suite. Pour cela, rembobinez la bande jusqu'au numéro de compteur antérieur à celui du début de votre programme. Videz la mémoire de l'ordinateur par un NEW, ou mieux encore, débranchez-le quelques secondes. Appuyez ensuite sur la touche de lecture, repérée par un c . Le magnétophone ne se met pas encore en marche. Tapez au clavier la commande suivante :
LOAD "ESSAI"
puis validez par ENTRÉE . Le lecteur de programme fait avancer la bande et le message Searching apparaît à l'écran. Le M05 vous indique à sa manière qu'il est occupé à rechercher le programme spécifié entre les guillemets.
Si vous avez rembobiné trop avant et que le M05
I
j
des rait
lui me )ez
te'ez ,nt
au •e
Maintenez votre doigt appuyé sur la touche I:NTRÉE. La liste de votre programme finit par disparaître complètement, mais les six premières lignes restent affichées. Autre constatation : votre
Curseur n'a plus accès au bord inférieur de l'écran.
t':n tapant CONSOLE 6,18 vous avez défini une fenêtre commençant à la ligne 6 et se terminant en ligne 18. Tout ce qui se trouve hors de ces limites est désormais inaccessible. Entrez maintenant
CONSOLE 6,18„ 1
(les deux virgules sont importantes), puis listez de nouveau votre programme. Les lignes défilent au ralenti. Voilà qui est idéal pour créer des génériques, ou lire tranquillement la liste d'un programme. Pour revenir au mode standard, tapez
CONSOLE 0,24,0,0
Les autres aspects de CONSOLE L'instruction CONSOLE autorise d'autres effets intéressants au niveau du graphisme et de l'animation. Pour en juger, entrez le programme suivant :
(	TRAIN : PROGRAMME	1
10 CLS:SCREEN0,3,1
20 CLEAR „4
30 DEFGR$(0)=252,28,31,127,127,127,127,5 1
40 DEFGR$ )=0,144,252,254,254,252,254,3 9
50D.EFGR$(2).=0.9,63,127.127,63,127,230
60 DEFGR$(3)=63.56,248,254,254,254,254,2 04
70 T1$=GR$(0)+GR$(1)
80 T2$=GR$(2)+GR$(3)
90. ATTR51,1
100 LINE(0.89)-(319,59),0
110 LINE(0,1697-(319,169).0
120 BOXF(13,8)-(18,111 ",8,8
130 BOXF(9,17)-(14,20) °,0,7
140 COLOR0.7:ATTRB0.0
150 LOCATE10 ,18.0: PRI NT°GRRE~
160 ATTRBI, I:COLORO,3
170 BOXF(28,18)-135,211	,B,S
180 CONSOLE 0,24,1,0
190 T=1•CT=1
200 ON T GOSUB 300,400
1
210 FOR P=1 TO 300:NEXT 220 IF CT(10 THEN GOTO 200 230 CON5OLE0;24,0,0.
240 SCREEN4,6,6:END
300 FOR I=0 TO 36
310. LOCATE I.10:PRINT Ti$ 320 FOR P=1TO 100tNEXT P 330 LOCATE I.10:PRINT 340 NEXT I.
350 T=T+1:CT=CT+1
360 RETURN
400 FOR I=36 TO0 STEP-1 410 LOCATE 1,20:PRINT T2$ 420	FOR P=1 TO100:NEXT 430 LOCATE 2.20: PRI NT 440 NEXT I
450 T=T-f:CT=CT+1
460 RETURN
Les lignes 20 à 60 définissent quatre caractères graphiques qui sont soudés en 70 et 80 et représentent
alors deux locomotives à vapeur (variables chaînes Tl$ et T2$). Les lignes 100 à 170 mettent en place le décor : une voie ferrée, deux tunnels (symbolisés par deux rectangles gris), et une petite gare blanche. L'instruction CONSOLE de la ligne 180 va modifier le comportement des couleurs de notre dessin, en les «figeant». Lorsque cette ligne aura été exécutée, toute instruction COLOR qui apparaîtrait dans la suite du programme se révélerait sans effet. Les routines des lignes 300 et 400 assurent l'animation du train qui se déplace à l'écran comme s'il se trouvait sur une voie circulaire :
Notre train se comporte de manière totalement réaliste. Il DISPARAIT sous les tunnels, réapparaît de l'autre côté, puis il longe la gare SANS L'EFFA-
CER. Si vous avez déjà essayé de faire se croiser
deux motifs graphiques au cours d'une animation, vous aurez remarqué que le dernier motif affiché EFFACE généralement le précédent. Pour expliquer le phénomène auquel vous venez d'assister, revenons aux lignes de mise en place du décor. Lorsque nous avons tracé les tunnels (lignes 120 et 170), nous avons codé à 8 les couleurs d'encre et de fond. Pour la gare, au contraire, nous avons choisi une couleur d'encre noire (code 0) et un fond blanc (code 7). En figeant les couleurs par l'instruction CONSOLE de la ligne 180, nous obligeons notre petit train à prendre les couleurs de son environnement. Notre caractère graphique devient gris sur fond gris (donc invisible) au passage des deux tunnels, puis noir sur fond blanc devant la gare (celle-ci n'est donc pas effacée), et enfin noir sur fond jaune dans les autres cas. Pour mieux comprendre ce qui se produit, modifiez comme suit les lignes 120 et 130 avant de relancer l'exécution de votre programme :
120 BOXF (13,8)—(18,11) " ",1,8
130 BOXF (9,17) (14,20) "047
En fixant les couleurs d'encre à 1 (ligne 120) et 4 (ligne 130) vous forcez la locomotive à devenir rouge au passage du premier tunnel, puis bleue lorsqu'elle atteint la gare.
36
.	T	.....	LE PIANO
L ORDINA EURET
Tout le monde n'a pas la chance de posséder chez	dessinée, on indique en dessous le nom de la note
soi un piano. Vous êtes néanmoins l'heureux pos-	à laquelle elle correspond. On utilise pour cela la
sesseur d'un M05 et, si votre passion pour la musi-	valeur Ti que l'on divise préalablement par 8 afin
que n'a d'égal que votre engouement pour la micro-	d'assurer la compatibilité avec les dimensions de la
informatique, ce chapitre vous est particulièrement	page texte (ligne 80). Pour finir, on affiche le sym-
destiné. Vous y apprendrez en effet comment trans-	bole «. », (dièse) au-dessus des touches noires. Votre
former les touches de votre ordinateur en clavier	image est désormais complète
de piano.	
	DESSIN DU CLAVIER : AFFICHAGE
	
L'image du clavier	
Pour rendre notre programme encore plus réaliste,	
nous allons commencer par dessiner à l'écran le cla-	
vier d'un piano, en partie du moins. Ceux qui ont	
déjà eu l'occasion de voir un tel instrument, savent	
qu'il est constitué de touches blanches et de touches	
noires. Les premières représentent les notes DO, RÉ,	
MI, FA..., les autres les dièses et les bémols corres-	
pondants. Pour symboliser ces touches, nous allons	
employer respectivement des rectangles blancs et	
noirs que nous dessinerons au moyen d'une instruc-	
tion BOXF. Voici le programme réalisant cette opé-	
ration :	Sonoriser le clavier
	DESSIN DU CLAVIER : PROGRAMME		
r-	
10 CL 5 : SCREENO , 1 ,1	
20	DATA32,5S,D0.64 ,87 ,RE, 96.119,HI,12-'1	
51,FA,160,383,SOL,192,215 .LA,224,247.	I.	Pour donner au M05 l'apparence d'un clavier de
256.279.00	
30 FOR	I=1	TO S	piano, vous allez devoir associer une note à quelques-
40	READ T 1 .T2 ,N$	
50	BOXF>T1,60)-T2,140),7	unes de ses touches. Pour imiter la disposition qui
60	IF N$=°HI° OR N$=°SI" THEN 80	
70	BOXF>T1+16,60)-(T2,911,0	est celle duiano, nous allons utiliser la troisième
80	NH=I NT (T 1/$ 1	p
90	LOCATE NH,18,0:PRINT N$	
100	LOCATE N NH+2 ,5	rangée de touches à partir du haut pour coder les
11	°°	130	
110	IF N$	OR N$=SI	THEN	
120	notes DO, RÉ, MI..., et la seconde rangée pour les
130 NERTNT°#°	
140 A TTR8I,I:COLOR4.1	
150 LOCATE13,3:PRINT°CLAVIER°	dièses et les bémols. La note DO sera obtenue par
	une pression sur la lettre «Q», le DO e en s'appuyant
	sur le	«	»,	et ainsi	de suite.	La	saisie	des tou-
	ches se fera par l'intermédiaire d'une instruction
	INKEY$:
	
		CODAGE DES TOUCHES : PROGRAMME
L'instruction DATA de la ligne 20 est particulière-		
ment importante car elle renferme les coordon-		160	AT TPBO.0: COLORO, 1
nées horizontales de chacune des touches, ainsi que		1-0	BOXF(136,168)-(176,191).3
		180 A=4:B=24
le nom de la note correspondante. La boucle des		190 X$=INKEY$
		200 IF X$=°a°	THEN NO$=°D0':GOTO50O
		210	IF X$=°5°	THEN NO$=^RE":GOTO500
		220
lignes 30 à 130 assure le tracé des rectangles. On		IF X$='FF°	THEN NO$=:80T0500
dessine d'abord les touches blanches (ligne 50), puis		°FA
g	p		240 IF X$=°G°	THEN NO$=-5O° :GOTO500
		°H°	°LA-
lorsqf'f ue		250IF X$=THEN NO$=:GOT0500
lorsue cela se révèle nécessaire, les touches noires		260	IF X$=°.,°	THEN NO$=°5I°:GOT0500
		°K°	THEN NO$=°DO^:A= AGOTO
		IF	X$=+1:
(70). Les dièses et les bémols représentent un inter-		280	IF X$=°1°	THEN A=1:GOT0190
valle d'un demi-ton entre deux notes. Ainsi la note		290 ~F X$=A ?_ THEN A=3:GOTO190
DO # est-elle un demi-ton plus haut que le DO, et un		310 IF X$=°4° THEN A=4:GOTO190
		320	IF X$=°+°	AND 8( >96 THEN B= 2»B:GOTO
.		190
demi-ton plus bas que le RÉ. Les notes MI et SI,		330	IF	X$=°-°	AND B<)3 THEN B= B 2:G070
p	q		
néanmoins, ne sont respectivement séparées de FA		190
et DO que par un demi-ton, ce qui explique l'absence		
des notes «MIfl» et «SI#» dans la gamme, et le		
fait que l'on passe directement en ligne 80 lorsque		
l'ordinateur lit ces deux valeurs. Une fois la touche		
	


37 1
note la la
afin
le la sym-
Totre
de les-
qui Mme
les les par ant
ou-ion
1:ftte seconde partie est constituée presque exclusi«tuent de tests IF... THEN. La variable chaîne NO$ t présente la note qui sera jouée dans la troisième l .t rt.ie du programme.
t: mission du son
. i vous regardez la liste de la page ci-contre, vous {•ntistaterez que de nouvelles conditions IF... THEN apparaissent entre les lignes 340 et 400. En effet, le piano tel qu'il s'affiche sur votre écran, ne dispose +jue d'une octave unique, ce qui se révèle généralement insuffisant pour la majorité des morceaux de musique. Les touches 1 à 4 sont donc affectées aux changements d'octave. En début d'exécution, cette dernière est fixée à 4 (variable A de la ligne 180). fine simple pression sur la touche 3 sélectionne l'octave 3, et ainsi de suite. Ce n'est certes pas la solution idéale, mais cela vaut mieux néanmoins (due de s'en tenir à une seule octave. Les touches « + » et « - » (lignes 340 et 350) servent respectivement à augmenter ou diminuer la longueur des protes jouées. Initialement, celle-ci vaut 24 (variable U de la ligne 180). En appuyant sur «+», vous pas;ez de 24 à 48, puis à 96 si vous maintenez votre pression. Une action similaire sur la touche «—» vous fait descendre jusqu'à 12, 6 ou 3. Pour interrompre le programme, enfoncez la touche «@» :
ÉMISSION DU SON : PROGRAMME
340 IF X$ =°Z° THEN NO$=`DO*':GOTO500. 350 IF X$=^E.° THEN NO$=-RE*':GOTOSOO 360 IF X$=°T° THEN NO$=°FA#°:GOTO500 370 IF X$-°Y- THEN NO$=504°:GOTO50Q 380 IF X$=°U° THEN NO$=LA#°. :GOTO500
390 IF X$=°O° THEN NO$=°DO#`:A=A+I:GOTD5 00
400 IF X$=°0 THEN COLORO,I:END 410 GOTOIO0
500 A$=°O+HI D$(STR$(A).2):5$="'L°+HI D$(5 TR$(B),2)
510 NT$= A$+B$+-T5-+NO$
520 LOCATE 18,22,0: COLOR4,3: PRI NT°
S30 LOCATE 18.22,0:PRINT NO$.:COLDR0,3 540 PLAY NT$
550 IF X$=°O° OR. X$="K° THEN A=A-i. S60 GOTO190-
L'émission du son est régie par les lignes 500 à 540. Elle fait appel pour cela aux deux variables chaînes A$ et B$. La première renferme la valeur de l'octave, la seconde la durée de la note. Les transformations effectuées en ligne 500 sont nécessaires pour supprimer le signe de la variable A. En effet, la longueur d'une expression du type STR$(B) n'est pas égale au nombre de chiffres la constituant, mais au nombre de ces chiffres plus un. Le signe, quoiqu'invisible, compte néanmoins pour un caractère. Avant d'être jouée, la note est affichée dans un petit rectangle jaune placé en bas de l'image du clavier (lignes 520-530). L'instruction PLAY de la ligne 540
fait jouer la note NO$ d'octave A et de longueur L. Le programme se rebranche ensuite en 190 pour saisir une nouvelle note. Ce programme ne vous permettra certes pas de jouer «en souplesse » (le clavier caoutchouté du M05, ainsi que la lenteur relative de l'exécution interdisant toute virtuosité), mais vous serez néanmoins à même d'apprendre quelques mélodies simples. Vous pourrez ainsi vous «faire la main » en attendant le jour où vous posséderez, enfin, un vrai piano.
Mémorisation d'un morceau
Si vous vous sentez l'âme d'un compositeur, ou si vous êtes porté sur l'improvisation, vous regretterez certainement de ne pouvoir enregistrer vos mélodies. Rassurez-vous. Quelques légères modifications combleront cette lacune et vous permettront de retrouver, en fin d'exécution, l'air que vous venez d'interpréter.
Il ne vous restera plus alors qu'à prendre un papier
et un crayon et à fixer, pour la postérité, votre création musicale. Avant d'en arriver là, commencez par amender les lignes suivantes
15 DIM N$(2000) : AA= 1
400 IF X$="" THEN COLOR 0,1:0010 600 540 PLAY NT$ N$ (AA) = NT$ AA = AA + 1
En ligne 15, on dimensionne un tableau qui nous servira à stocker les notes composant notre mélodie. Si vous pensez devoir dépasser les 2 000 notes initialement prévues, optez pour une valeur plus grande. La variable AA nous servira, quant à elle, de compteur de notes.
Comme vous pouvez le voir, le tableau est rempli en ligne 540, chaque fois qu'une note est jouée. La variable AA est alors incrémentée de 1. Il ne vous reste plus désormais qu'à compléter votre programme en lui rajoutant les lignes ci-dessous :
MÉMORISATION DES AIRS : PROGRAMME
600 CLS
610 LOCATE 4,8:PRINT-VOULEZ-VOUS RE-ECOU TER CE QUE VOUS t: PRINT TAE(4) 'AVEZ JO
UE (O/N) • :INPUT" ,R$
620 IF R$.O'Q AND R$<>"N' THEN 600
630 IF R$=°NF THEN END
640 LOCATE 4.14:PRINT "SOUHAITEZ-VOUS L' AFFICHAGE DES NOTES~:PRINT TAB(4) 'O/N1
• • INPUT	R$
650. IF R$=~0 THEN GOSUB 700
660'FOR I=1 TO AA: PLAY N$(I):NEXT
670 END 700 CLS
7le. FOR. I=1 TO AA:PRINT N$(I),'/',:NEXT
726 RETURN
A l'exécution, vous pourrez choisir de réentendre ce que vous venez de jouer, et d'afficher ou non la valeur des notes.
L. "%d9 18 I SI « vkv %J#1 vv
Nombreux sont les musiciens amateurs, même confirmés, qui jouent « d'oreille» et seraient incapables de déchiffrer une partition si on leur en présentait une. Ce"chapitre se propose de vous faire découvrir à quelles notes de la gamme correspondent les différents symboles qui s'inscrivent sur une portée musicale. Même si vous n'êtes pas musicien, vous pourrez utiliser ces connaissances pour lire une partition et insérer ainsi des plages musicales particulièrement convaincantes dans vos programmes.
Notes et portées
Pour commencer, il convient de tracer à l'écran une portée, et d'y faire figurer une clef de sol. Le dessin de la première ne présente aucune difficulté. Cinq lignes barrant la largeur de l'écran et tracées par une instruction LINE, feront l'affaire. Le problème posé par la seconde est plus délicat. Vous pourriez le résoudre en ayant recours à des caractères définis, mais il vous en faudrait beaucoup avant d'obtenir une clef de sol satisfaisante et relativement arrondie. L'autre solution, celle que nous choisirons ici, consiste à décomposer cette figure en courbes élémentaires. Un examen attentif d'une clef de sol vous révèlera qu'elle est constituée approximativement d'une spirale, d'une ellipse, d'un trait oblique, et d'une seconde spirale inversée par rapport à la première. Si vous avez lu les chapitres consacrés au cercle et à ses dérivés en début de cet ouvrage, vous devez être à même de réaliser un tel tracé. Voici donc la routine qui vous permettra de dessiner une clef de sol, routine que vous placerez en fin de votre programme principal :
CLEF DE SOL : PROGRAMME
désignant respectivement les valeurs de Départ et d'Arrivée. Le tracé proprement dit est effectué par les lignes 1100 à 1160. On y retrouve la formule permettant de déterminer les coordonnées de chacun des points d'un cercle. La variable SP (SPirale) fait office de «drapeau» . Si ce drapeau est à 1, le rayon vaut A*2.4. L'instruction retenue pour le tracé n'est pas PSET, mais bel et bien LINE (ligne 1160). Celle-ci permet en effet une plus grande régularité dans le trait. L'instruction PSET est néanmoins employée en ligne 1150 pour afficher le premier point de notre courbe. La première spirale terminée, on tire un trait dans son prolongement (ligne 1030) avant d'aborder le dessin de l'ellipse. Le pas ST utilisée dans cette dernière est négatif (ligne 1040), afin que le tracé se poursuive dans le sens inverse des aiguilles d'une montre. Une fois l'ellipse achevée, on tire un trait oblique vers le bas (ligne 1050) avant de terminer la clef de sol par une seconde spirale (ligne 1080). D'exécution relativement lente, ce sous-programme fournit néanmoins un résultat assez convaincant :
F	CLEF DE SOL : AFFICHAGE	1
II
1000 LOCATE0,0
1010 5P=1:X0=25:70=76:P1=3.14159:5T=.05
1020 VD=PIY0.66VA=3.41PI:GO5UB 1100
1030 LINE(X,Y)-(X+5,Y-5}:X=X+S:Y=Y-5
1040 SP=O:XO=X:YO=Y-20:R1=6:R2=20:SJD=PI/ 2VA=-3YPI/2:ST=-0.05:GO5UB 1100
1050 LINE(X,Y)-(27,108)
1060 SP=2:X0=20:70=108:VD=0:VA=27PI:R1=7 :R2=R1:ST=O.05:GOSUB 1100
1070 PET URN
1100 FOR A = VD TO VA STEP 5T
1110 IF $P=1 THEN R1=A*2.4:R2=R1
1120 IF SP=2 THEN R1=R1-0.04:R2=R1
1130 X=RIUCO5(A)+XO
1140 Y=R21t5IN(A)+YO
1150 IF A=VD THEN P5ET(X,Y)
1155 IF A=VD THEN PSET(X.Y)
1160 LINE-(X,Y)
1170 NEXT A 1180 RETURN
Tous les éléments nécessaires à la constitution de la première spirale sont initialisés aux lignes 1010 et 1020. XO et YO représentent les coordonnées de l'origine, ST le pas choisi pour le tracé, VD et VA
La première partie de notre programme étant au point, il nous faut maintenant créer les symboles figurant les notes. Celles-ci seront dessinées au moyen de quatre caractères graphiques définis par l'utilisateur :
Les variables H$ et R$ initialisées en ligne 60 nous serviront ultérieurement à «souder» les deux matrices utilisées pour chacune des notes. Ces dernières étant affichées en double hauteur et double largeur (ATTRB 1,1), deux retours en arrière (caractère de code 8) et deux mouvements vers le haut (caractère 11) sont nécessaires. En 120, une ligne DATA renferme la position allouée à chacune des notes en fonction de l'octave spécifiée. Ces valeurs sont rangées au sein d'un tableau à deux dimensions
((i~ wIc'TN$. Le remplissage de ce tableau s'opère par Ire 1,((ode des lignes 90 à 110 :
AFFICHAGE DE LA NOTE : PROGRAMME
Ii
39
rt et
par nule cha-
rale) à 1, Gour INE Inde
éan-pre-ter-
lent pse.
égatans
fois bas
par lati-
)ins
IM
au
)0-
au
par
)us ri-
es
ur re ut
ne es
.rs
ns
j=
I

TRACÉ DES NOTES : PROGRAMME
10 CL5:5CREENO,7,7:CLEAR ,,4
20 DEF GR$(0)=8,8,120,248,248,112,0,0 30 DEF 08$(1(=8,8,8,8.8.8,8.8
40 DEF GR$t21=8.8,120,136,136,112,0,0 50 DEF GR$(3)=12,10,9,9,9,8,8,8
60 H$=CHR$(11+CHR$f 11):R$=CHR$(8)+C)iR$( 8)
78 FOR I=1 TO 38:BL$=BL$+° ":NEXT
80 DIH TN$(12,3)
90 FOR I= 1 TO 12
100 READ TN$( I,1),TN$(I,2),T)±$(1.3) 110 NEXT I
120 DRTA DO,14,7,DO#,14,7,RE,13,6,RE$.13 ,6, Fil. 12,5,FA,11,4, F64.11,4, 50, 10.3, 50$, 10,3 .LÀ ,9,2, LÀ* ,9,2,5I,8,1
130 G05UB800:GOSUR 1000
140 PH=6
SAISIES OPTIONS : PROGRAMME
150 FOR 8= 1 TO 14
160	ATTPBO, 1:LOCATE I.17,0:PRINTBL$:LO CATE 2,17,0:INPUT°QUELLE OCTAVE !1 ou 2) •OC
170	IF OC<> 1 AND 00<) 2 THEN 160
180	ATT R50,I : LOCATE 1, 19.0:1381 NTBL$: LO CATE 2,19,0: INPUT-QUELLE VALEUR (B,N,C) ^,V$
190	IF V$() '	AND V$<) ^N' AND V$<) °C° THEN 180
200 IF V$=°B° THEN NO$=GR$(2)+H$+R$+GR$(
210 IF V$=°N° THEN NO$=GR$(0)+H$+R$+GR$(
220 IF V$=°C"' THEN NO$=GR$(0)+H$+R$+GR$( 3):L$=°12'
230	ATTRBO,I:LOCATE 1,21:PRINTBL$:LOCA TE 2,21.0:INPUT°QUELLE NOTE ':N$
24.0	FOR J=1 TO 12
250	IF N$=TN$(J,1)THEN GOSUB 500:GOT02 80
260	NEXT J
270	GOTO 230 280 NEXT B:END
Ce troisième écran renferme toute la partie «texte» de notre programme. L'utilisateur pourra afficher jusqu'à 14 notes par portée (ligne 150). On le convie dans un premier temps à entrer l'octave désirée (ligne 160), puis la valeur de la note (180). L'utilisateur choisit l'une des trois options B, N et C (Blanche, Noire, ou Croche). Le test de la ligne 190, tout comme celui de la ligne 170, empêche tout autre réponse que celles suggérées. En fonction de la valeur introduite, le programme assemble les deux caractères graphiques constituant la note (lignes 200-220), et affecte à la variable L$ la durée propre au type de note choisi. L'utilisateur spécifie en dernier le nom de la note qu'il souhaite voir afficher (230). La boucle des lignes 240 à 260 en contrôle la validité puis dirige le programme vers la routine d'affichage dont voici la teneur :
500 ATTRBI,1
510 IF OC=1 THEN PV=VALtTN$(J,21i ELSE P V=VAL(TN$)J,3))
520 IF N$=°5I AND OC=2 THEN ATTRB0,0:LO CATE20,22,0: PRI NT °TROP HAUT °.:RETURN 530 LOCATE PH,PV,O:PRINT N0$:GO5UB800 540 IF N$=°DO° AND OC=1 THEN LINE(BXPH-6 a3[PV )- (8a PH+16,8. PV )
550 IF N$=°LA° AND OC=2 THEN LINE(8*PH-6 80PV)-(8IPH+16,83E V)
560 IF RIGHT$(N$,1)=°$° THEN LOCATE PI-1+2 PV,O:PRINT"*'
570 O$=0+HID$(STR$(OC+31,2,1):L$=L°+L $:PLAY O$+L$+N$
580 PH=PH+2:IF PH)38 THEN END
590 RETURN
800 ATTRB0,0:FOR I=1 TO 5
810	LINE(0,16I+16)- (319,16sI+16) 820 NEXTI
830 RETURN
En fonction de l'octave choisie en 160, l'ordinateur détermine la position de la note sur la portée en se référant au tableau TN$ (ligne 510). La note est ensuite affichée sur la portée en 530. Cette dernière est redessinée chaque fois qu'une nouvelle note y est inscrite, afin de faire disparaître les «blancs» laissés par la matrice des caractères graphiques. Si la note est un DO de première octave ou un LA de seconde octave, une petite barre horizontale complète la portée (lignes 540 et 550). Il ne reste plus à l'ordinateur qu'à jouer la note affichée, en lui donnant la hauteur et la durée adéquates (ligne 570).
PARTITION : AFFICHAGE
QUELLE OCTAVE (1 ou 2) ? QUELLE VALEUR (B)N)C) ? B QUELLE NOTE ? FA
Cette photo d'écran affiche les premières notes d'« Au clair de la lune ». Pour que le morceau affiché soit conservé en mémoire et puisse être réexécuté, il suffirait de dimensionner un tableau de 14 éléments puis d'y stocker les notes à mesure de leur affichage :
15 DIM N$ (14) :AA = 1
575 N$ (AA)=0$+L$+N$:AA=AA+1
580 PH = PH + 2: IF PH > 38 THEN GOTO 600 600 FOR I = 1 TO AA : PLAY N$(I) : NEXT I : END
40
DESSINS SYMÉTRIQUES
Il vous est certainement arrivé de prendre une feuille de papier, de la plier en quatre, voire en huit, puis de donner quelques coups de ciseaux bien placés, pour obtenir, une fois la feuille dépliée, une série de motifs symétriques plus ou moins plaisants selon votre habileté à ce petit jeu.
Ce chapitre se propose maintenant de vous faire
revivre cette expérience amusante, en l'adaptant à
votre ordinateur.
Hasard et symétrie
Pour simuler le pliage d'une feuille de papier, nous allons diviser notre écran en quatre parties égales, en quatre rectangles de dimensions équivalentes. Ayant à notre disposition 40 colonnes et 25 lignes, nous allons pouvoir travailler sur des surfaces de 20* 12 cases écran. Cela nous laissera en tout et pour tout une seule ligne inutilisable. Comme il n'est pas question de donner ici des coups de ciseaux, nous allons remplacer cet instrument par des carrés de couleurs que nous reproduirons symétriquement dans chacun de nos quatre rectangles. Pour gagner du temps, et automatiser le processus, nous allons établir dès maintenant les formules que nous utiliserons pour déterminer les coordonnées symétriques aux points que nous allons afficher.
Si nous choisissons de travailler par exemple dans le quart supérieur gauche de l'écran, nous appellerons « points sources », tous les points dont les coordonnées horizontales seront comprises entre 0 et 19, et les coordonnées verticales entre 0 et 11. Nous
pourrons alors en déduire les correspondances sui-
vantes. Au point source 0,0 correspondront les points 39,0 dans le quart supérieur droit, 0,23 dans le quart inférieur gauche, et 39,23 dans le quart inférieur droit. Partant de ces valeurs, nous pouvons dresser le tableau suivant :
COORDONNÉES DES « IMAGES » DU POINT SOURCE
Point source
X,Y	39-X,Y
X,23—Y	39-X,23-Y
Le programme de la page ci-contre utilise ces équivalences pour dessiner des motifs symétriques aléatoires. Après l'initialisation du générateur de nombres aléatoires (lignes 20 et 30), on choisit au hasard une valeur X(0) entre 1 et 19, et une valeur Y(0) entre 1 et 11.
Les deux coordonnées ainsi obtenues serviront de
point source aux autres carrés dont la position est calculée aux lignes 90 à 110. Grâce à deux boucles imbriquées, on affiche successivement le point source et ses trois «reflets» symétriques dans une
couleur choisie aléatoirement, elle aussi, parmi trois codes. On répète l'opération 50 fois, ce qui est, somme toute, assez peu par rapport au total de 11* 19 = 209 points dont on dispose à l'intérieur des quatre rectangles :
MOTIFS SYMÉTRIQUES ALÉATOIRES
10 rL515CREEN0 7,7
20 PRINT TAB(3) ,Frappez une Louche pour commencer°
30 IF INI(EY$=" THEN X=RND:GOTO 30
40 CLS: SCREEN0,0.0 50 C$=CHR$(127) 60 FOR I=1 TO 50
70	X(OI=I NT(RND:19+11
30	Y(0)=I NT(RND3~11+11
90	X(1)=39-X(0):Y(1)=Y[0!
100	X(21=X(0) :Y(2)=23-Y'lO'
110	X(3)=39-k: (0) :Y(3)=23-Y(0)
120 CO=INT(RND»3+1i
130 FOR J=0 TO 3
140	COLOP C0.0:LOCATE X(J).Y(J):PRINT r_$
150 NE CT J
160 NE?.TI
170 LOC6TEO,0'.0
Voici un exemple de motifs symétriques obtenus à partir de ce programme :
Dessins symétriques
Les dessins aléatoires ne constituent pas l'unique champ d'utilisation de cette technique. Nous allons étudier maintenant un programme qui, par un procédé analogue à celui employé ci-contre dessine à l'écran une version assez «grossière», mais néanmoins très reconnaissable du drapeau britannique ou « Union Jack » :
)
lroi
est,
1 cli
sà
e s
			
		41	-
		
	UNION JACK : PROGRAMME		
			
			CORRESPONDANCES ENTRE POINT SOURCE ET
			POINTS IMAGES
	10 LL5:5CREEN0,00		
	-'0 FOR	I=0 TO	11		
			
			Point source	
	-.0	READ As			
	40	FOR J=0 TO			
	T	19			
	50	C=VAL(HID$(A$,J+1,11 l		X,Y	319—X,Y
	60	COLOR c			
			199—X,Y	319—X,199—Y
	70	X1=J+1:Y]=I+1			
	20	X2=39-X1:Y2=Y1			
	90	X3=X1:Y3=23-Yi			
	100	X4=39-X1:Y4=23-Y1			
			
	110	LOCATE X1,Y1,0:PRINT	CHR$(127):		
	120	LOCATE X2, Y2,0:PRI NT	CHR$(127):		
			
	130	LOCATE X3, Y3,0:PRI NT	CHR$(127)1		Le programme ci-dessous trace, au moyen de plu-
	140	LOCATE X4,Y4,0:PRINT	CHR$(127);		
	150	NEXT J		BOXF,
	160 NEXT	I:LOCATE0,0,0		sieurs instructions BOX , quatre rectangles de cou-
	200 DATA 77444444444444444711,17774444444		
	444444711,11177744444444444711.771117774		
	4444444471		différentes. A l'intérieur de chaque rectangle,
	,47771117774444444711144477?1		leurs	`1
	1177744444711,44444777111777444711		un cercle est dessiné à l'encre noire.
	-7		
	210 DATA44444447771117774711,44444444		
	711177711,77777777777777777711,]11111111		
	11111111111,31111111if1311111111		Le sous-programme de tracé des cercles est en tous
			points analogue à ceux précédemment utilisés, à
			cette différence près que les quatre cercles sont exé-
			cutés simultanément :
	
I.cs 209 codes couleurs assurant le remplissage des	
		SYMÉTRIE SUR PAGE GRAPHIQUE	
			
060 cases de l'écran texte, sont stockés en DATA, à			
l'intérieur de 11 chaînes différentes. Ces dernières			
:,ont lues caractère par caractère au moyen d'une			
Illstruction MID$, avant d'être converties en valeur		10	CL5:8CREEN0.t21,0	
		20	A1=0;B3=94:C1=3	
Ilumerique	par	le	biais	d'une	fonction	VAL		30 A2=319-A1:52=B]:C2=1	
		40 A3=A1:B3=194-Si:c3=5	
(ligne 50). Deux boucles imbriquées assurent l'affi-		50 A4=319-AI:B4=199-BS:C4=9	
		60	ZOXF(A1,01-(160.81),01	
(:page des points sources et de leurs images symé-		70	BOXF(A2,0.)-(160.B21,C2	
		80 BOXF(A3,1941-(160,B3),C3	
I.riques. Il ne vous restera plus alors qu'à compléter		90 BOXF(A4,199)-(]60,B4),C4	
		100 PI=3.14359:R=40:H1=80:V1=S0	
ces	g		110H2=319-H1:V2=V1	
g li nes en faisant exécuter au M05 un magistral		120 H3=H1:V3=199-V1	
		130 H4=319-H1.7V4=199-V1	
«GOD SAVE THE QUEEN» :		148 FOR I=0 TO 21PI STEP 0.05	
		150	X=ROCOS(I):Y=Rx SIN(I)	
		160	X1=X+H1:Y1=Y+V1:X2=X+H2:Y2=Y+V2:X3=	
		X+H3: Y3=Y+V3:X4=X+H4: Y4=Y+V4	
		170	PSET (X1 ,Y 1) ,- 1	
		180	PSET(X2.Y2),-1	
UNION JACK : AFFICHAGE			
		190	PSET (.X3 ,Y3) ,- 1	
		200	P5 ET[.X4, Y4),-1	
		210 NEXTI:COLOR3.3:LOCATE0,0,0	
r			
	
~	
	
	
	
	
	
	
	
	}...~-	"ter
	+	-
Symétrie sur page graphique	k	`'
Ce qui est applicable sur la page texte l'est éga-	
lement sur l'écran graphique. Le principe demeure	
inchangé. Seules les valeurs utilisées pour le cal-	
cul des coordonnées devront être modifiées. Sachant	
_1ue nous disposons de 200 pixols F n ioo0 or contre	
320 en largeur, nous travaillerons désormais sur des	En vous inspirant de ces procédés, essayez de créer
surfaces comprenant quelques 16 000 points. Le pas-	des motifs originaux. Vous pouvez également, sur
sage du point source au point image s'effectuera en	le même principe, définir 8, voire 12 ou 24 cases
appliquant les formules du tableau suivant :	symétriques, et les remplir à votre guise.
	

42
LES JEUX	1
Nombreuses sont les personnes qui ne connaissent	
	INDIEN / ÉCRAN 1 : PROGRAMME	
de la micro-informatique que les milliers de jeux		
disponibles sur le marché, et pour qui l'achat éven-		
tuel d'un ordinateur se fait essentiellement dans un		
	1000 REM TABLEAU	4:L'INDI EN	
butludi~Tue.	1010 CL5:5CREEN0,3,3	
'1	1020	•	DEFINITION CARACTERES	
S'il est vrai que les jeux ont contribué à l'améliora-		
tion de la qualité des logiciels, c'est en grande par-	1040	DEFGR$(0)=255,191,197.24,56,224,0,0	
tie parce que leurs concepteurs ont exploité au maxi-	1050 DEFGR$(1)=248,248,248,62,1	
	1060	DEFGR$ (2) =1.3 , 1 , 3, 3 , 3.3 ,	,1 ,0,031	
mum les richesses de leur imagination et les possi-	1070 DEFGR$f3)=128,194,130,143.255,191,2	
	51, 251	
bilites de leurs machines.	1060	DEFGR$(41=255,191,191,28,48,24,8,12	
	1090 DEFGR$f 51 =248,248,248,60.4.28.0.0	
	1100	DEFGR$(6 )=56,56.56,56,24.-24,24,60	
La	d'un jeu	1110 DEFGR$(7) =126,203,8,24..24,124.252.5	
préparation	6	
	1120 C$(11=CR$f01+GRgl3 )+H$+R$+R$+GR$i2+	
	+GR$f3]	
Un jeu ne s'improvise pas. Il est le résultat d'un	1 ] 30 C$ t 2) =GR$ f 41+rR$ f 51+H$+Rg+R$+L R$ i 21	
	+GR$(3)	
long travail de recherche et de mise au point dont la	114Q	III$=GF'$ f F-,+	$+R$+GR$ f 1	
		
majeure partie s'effectue sur une feuille de papier.	1150 BL$=`	'"+"	°+	^+H$+R$+Rg+Rg+`	+'	<	
Au cours des pages qui suivent, nous allons exami-		
ner ensemble les différentes phases de la concep-		
tion d'un jeu, pour aboutir à un programme complet,		
	
beaucoup plus long et plus complexe que tout ce que	
vous avez pu taper jusqu'ici.	
La première étape de ce processus débute par une	Le programme étant relativement long et faisant
réflexion sur le type de jeu que vous souhaitez	appel à un certain nombre de variables, il convient
mettre au point. S'agit-il d'un jeu de réflexes, ou au	de regrouper celles-ci dans un tableau. Ceci vous ser-
contraire de stratégie ? Se jouera-t-il à une ou plu-	vira à documenter votre programme, et vous serez
sieurs personnes ? Comprendra-t-il un tableau uni-	ainsi à même de le redéchiffrer quand, après quel-
que ou plusieurs scènes et niveaux de difficulté ?...	ques semaines, vous souhaiterez en examiner de
Voici quelques unes des questions que vous devrez	nouveau la liste
vous poser et dont vous noterez les réponses sur	
une feuille. Celle-ci constituera le point de départ de	
	
votre programme. Vous devrez également décider du	
décor et du cadre que vous donnerez à votre action.	TABLEAU DES VARIABLES ET CONSTANTES DU PRO-
Pencherez-vous pour l'inévitable bataille galactique,	GRAMME INDIEN
ou pour l'exploration d'un labyrinthe, ou encore	
	
pour une course entre deux bolides, deux escargots,	COUP	Variable compteur spécifiant le
ou deux avions ?	nombre de flèches tirées (10 par par-
	tie).
Décor et personnage	P	Variable compteur dans une boucle
Une fois ces choix effectués, munissez-vous d'une	de temporisation
feuille de papier quadrillé, puis dessinez au crayon	PC	Position verticale du cavalier
les éléments fixes de votre décor, sans oublier d'y	(aléatoire)
faire figurer toutes les indications utiles concernant	PI	Position horizontale de l'indien
la couleur, l'échelle... Répétez l'opération pour les	(aléatoire)
éléments mobiles (personnages ou véhicules) en vous	VF	Position verticale de la flèche
servant de matrices 8 X 8.	VI	Position verticale de l'indien
La liste ci-après est tirée d'un jeu déjà préparé et	C$(1),C$(2)	Caractères graphiques composés
correspond à cette première phase de programma-	représentant les mouvements du che-
tion.	val au galop
Dans ce jeu, vous êtes un indien et vous devez	BL$	Caractère d'effacement du cavalier
empêcher un cavalier yankee de rejoindre sa garni-	IN$	Caractère graphique composé repré
son. L'indien et le cavalier sont représentés par des	sentant l'indien
caractères définis constitués de deux à quatre matri-	H$	Déplacement d'une case écran vers
ces « soudées » et affectées aux variables IN$, pour	le haut
l'indien, C$(1) et C$(2) pour le cavalier (lignes 1120	R$	Déplacement d'une case écran vers
à	1140).	Les	variables	C$(1)	et	C$(2)	désignent	la gauche
deux positions	différentes des pattes	du cheval,	
	
de manière à simuler, grossièrement, le galop. La	
chaîne BL$ (1150) servira à effacer l'image du cava-	Le corps du programme proprement dit se trouve
lier à mesure de son déplacement à l'écran.	situé entre les lignes 1160 et 1350. En voici la liste

43F

ant ent
3er'rez uel-
de

ve
INDIEN : CORPS DU PROGRAMME
1160 FOR COUP = 1 TO 10 11'O VI=24:VF=20:T=0 1180 PC=I NT(RND#9)+4 1190 PI= I NT)RND[ 1S)+15 1200 CL5:ATTR51 . I:COLORI
1210 LOCATE Pi,VI .O: PRINT I11$ 1220 LOCATEPI .VF:PRINT°f12'30 FOR P = 1 TO 500:NEXT P 1240 FOR I = 1 TO 34
1250	IF INKEY$ = 'F°. THEN T =
1260	IF T = 1 THEN LOCATE PI,VF:PRINT
1270	LOCATEI-1,PC:PRINT BL$
1280	IF VF=O OR I=34 THEN 1340
1290	IF T=1 THEN COL0RI:LOCATE PI,VF:P RINT°t°:UF=VF-1
1300	COLOR4:LOCATEI,PC:IF I/2=INT(I121 THEN PRINTC$(1) ELSE PRINTC$(2)
1310	FOR D=1 TO 30: NEXT
1320	IF)P1=I AND VF=PC.i OR(R1=I+1 AND VF=PC)THEN 3O511B 2000
1330	NE'<.T I
1340 NE,T COUP
]5 300IJE 3000:,TTRB0,0:LOCATE 0,0.0
Vous avez droit à 10 flèches (variable compteur COUP), et le but du jeu consiste à abattre un maxiinum de cavaliers.
La position verticale de ces derniers est déterminée aléatoirement à la ligne 1180 (variable PC), afin de rendre le jeu moins répétitif, et surtout, plus difficile. La position verticale de l'indien est fixe (constante VI), mais sa position latérale (variable PI) est choisie aléatoirement à chaque nouveau passage dans la boucle (ligne 1190). L'indien et sa flèche sont affichés par les lignes 1210 et 1220 en double hauteur et double largeur. Après une courte pause, on lance le cavalier, dont la position est déterminée et affichée en 1300. Si la variable compteur I est paire, c'est le caractère C$(l) qui s'inscrit à l'écran, sinon c'est le caractère C$(2) qui est choisi. L'alternance de ces deux motifs graphiques simule le mouvement d'un cheval au galop. Pour décocher votre flèche, vous devez appuyez sur la touche «F» (ligne 1250). La variable T prend aussitôt la valeur 1. Elle est utilisée comme «drapeau» dans les tests des lignes 1260 et 1290. Quand le drapeau est hissé (T = 1), le programme gère le déplacement et l'effacement partiel de la trajectoire de la flèche. Lorsque ce drapeau est baissé (T = 0), le programme ne s'occupe que de l'animation du cavalier. La partie s'interrompt dès que la flèche atteint le bord supérieur de l'écran (VF = 0) ou le cavalier le bord latéral droit (I = 34). La ligne 1320 contrôle si la flèche a transpercé ou non le cavalier. Dans l'affirmative, le programme se branche en ligne 2000, sinon
la flèche et le soldat poursuivent séparément leur
déplacement. La condition complexe qui détermine ~a réussite ou l'échec de votre tir nécessite quelques éclaircissements. Pour que le cavalier tombe à terre, l'une au moins des deux expressions entre parenthèses doit se révéler VRAIE. Cela signifie que le résultat des expressions logiques PI = I ET (AND) VF = PC soit— 1. Si vous tapez par exemple PRINT 10> 3, le M05 vous affichera la valeur — 1, vous indiquant par là que l'expression 10> 3 est VRAIE. Si vous entrez maintenant l'expression PRINT
3> 10, l'ordinateur vous signifiera son inexactitude par l'envoi du chiffre 0. La ligne 1320 pourrait par conséquent se traduire ainsi : «Si les positions horizontale et verticale de la flèche ET du cavalier coïncident, OU BIEN (OR) si la position horizon-
tale du cavalier, plus 1, coïncide avec la coordon-
née horizontale de la flèche, les positions verticales étant identiques par ailleurs, ALORS branche-toi à la routine qui débute en 2000» :
2000 ' SOUS-PROGRAMME TIR AU BUT
2010 FORI=1T0200:SCREEN„1:SCREEN„3:NEXT 2020
PLAY"T8L48SOSOL24SOL48SOLAaL24LAL40LAL30
SOSOFAfL48SO” : SCORE = SCORE + 1
2030 RETURN
3000 'SOUS-PROGRAMME SCORE
3010 RETURN
Ce sous-programme assure la gestion de l'affichage réservé aux «tirs au but». Dès que votre flèche transperce le cavalier, la bordure de l'écran se met à clignoter en rouge et en jaune 200 fois de suite (ligne 2010), puis le M05 interprète les premières mesures de la marche funèbre de CHOPIN. Votre score est alors incrémenté de 1 (variable SCORE), et l'on revient au programme principal pour un nou-. vel affrontement entre indien et tunique bleue.
Remarquez que tout est prévu pour le fonctionnement du sous-programme d'affichage du score final (Routine des lignes 3000 et suivantes), mais celui-ci ne deviendra réellement opérationnel que dans le troisième chapitre consacré aux jeux.
Lorsque vous aurez recopié intégralement ces lignes, sauvez ce programme sur cassette en tapant, en mode direct :
SAVE "INDIEN",A
La sauvegarde de ce programme en codes ASCII est
absolument nécessaire pour assurer sa fusion avec
les autres éléments constituant notre jeu. En attendant de passer au second tableau, amusez-vous avec ce premier jeu. Vous l'avez bien mérité :

LES JEUX /2
Ayant appris les principaux mécanismes de la constitution d'un jeu au cours du chapitre précédent, vous allez les ré-employer ici pour la mise au point de notre second tableau.
Décor et personnages
Le décor du tableau précédent se réduisait à sa plus simple expression, puisqu'il consistait en un fond uniformément jaune. Le second tableau utilise un graphisme plus élaboré. En effet, dix caractères graphiques vont être définis, et pas moins de onze instructions BOXF nous seront nécessaires pour dresser le décor :
1	DUEL / LES PERSONNAGES
4--- REM TABLE rILI 2: DUEL 000 CLS CLEAR,.10 4010 DEFIR$10)=56.254.56.64.5'5.40.32,112
4020 DEFGR$(1)=120,120.120.120,120,56,56 .56
4030 DEFGR$(2)=24 24.2a -4.24,24,24.23 4040 DEFGR$(3)=28 12.7.	_0.2.3,20.4,14 4050 DEFGR$ (4) =30,30.30.30.30. 3,28,23 4060 DEFGR$(5)-24.24.24 24.'4.24.24, 56 4070 DEFGR$(6)=123,126.124,120.124.56.55 .56
4080 DEFGR$(7)=222,126.62.30,30.28.28.25
4090 DEFGR$(5. =14.15.9.	24=,248.243.24
4100 DEFGP$1748,248.240.252.228,192.1 28.128
4110 SC REENO -6.1
DUEL / DÉCOR ET GÉNÉRIQUE
4120 SOXF(0,0)-(319,23) 1
4130 40XF(0.168]-(319,199),1
4140 BOXF((0,241-(39,151(.8
4150 BOXF(40,64)-(79,79),8
4160 BOXF(76,55)-(79,1511,8
4170 BOXF(40,144)-(79,151).3
4180 BOXF)0,152(-(319,167).3
4190 BOXF(272,56)-(319.1517.5
4200 BOXF(272,41 )-(279,56).5
4210 BOXE(240,144(-(319.151).S
4220 COLOR0,I:6TTRBI.1
4230 LOCATE1,1,0:PRINT°DUEL A SILICON-CI TY°
4240 AIR$=°TIOLI85OL65OL24SOREL1851L65IL 245150L125051 05L24REREL12DOO45(L48LAL18L AL65 I OSL24DOD004L185IL6LAL245ISOL165OL65 IL24LARE LI BFA*L6LAL485O^
4250 PLAYAIR$
4260 ATTRBO,O:LOCATE3.22:PRINT-PRE55E-- U NE TOUCHE POUR COMMENCER
4270 x$=INKEY$:RN=RND(1):IF {$=>A THEN G OTO 4270
4230 LB$--
Nous ne quittons pas le Far West, mais nous nous trouvons maintenant dans une ville appelée « Silicon-City ». Dans l'artère principale de cette bourgade, deux clans vont se mesurer en duel. Les lignes 4010 à 4110 définissent dix caractères graphiques répartis comme suit : trois caractères pour chacun des
deux cow-boys qui vont s'affronter, plus un caractère supplémentaire assurant l'animation de ces personnages et, pour terminer, deux matrices qui vous seront présentées lors de la mise en place du score. Les lignes 4120 à 4220 tracent successivement les bords de l'écran (couleur rouge), un premier bâtiment de couleur grise (lignes 4140-4170), le sol (4180), puis un second édifice de couleur mauve (4190-42 10). Comme dans tout western qui se respecte, une certaine ambiance est nécessaire. Les lignes 4240 et 4250 interprètent une célèbre mélodie du Far West : «My Darling Clementine ».
Avant l'entrée en scène de nos cow-boys, et afin de vous permettre de suivre sans problème le déroulement du programme, voici le tableau des principales variables et constantes utilisées :
TABLEAU DES VARIABLES ET CONSTANTES
DU PROGRAMME
CB	Cette variable vaut 0 ou 3. Elle désigne le numéro du premier caractère graphique utilisé pour l'affi- chage des cow-boys bleu ou noir.
CH	Position horizontale des deux cow-boys (12 ou 26).
CV	Position verticale des deux personnages (initialisée à 14).
CO	Couleur.
CS	Compteur de tours. Le jeu s'arrête quand CS > 10.
C	Nombre de passages dans la bou-
cle INKEY$. La valeur de C détermine la victoire de l'un ou l'autre cow-boy.
PH Position horizontale du symbole graphique indiquant le nombre de cow-boys abattus.
T	Nombre aléatoire permettant l'initialisation du générateur de nombres
Le programme principal débute par la mise en place du tableau réservé à l'affichage du score. Comme dans le programme précédent tout est prévu pour son utilisation, bien que cette dernière ne vous soit. présentée que dans le chapitre qui suit. Les deux clans sont constitués (n'oublions pas que nous nageons en plein western) de Bons et de Méchants. Les Bons (Vous, en l'occurrence) seront affichés en bleu, les Méchants en noir. Les lignes 4340 et 4350
	aleatoirCD.
L	Nombre aléatoire compris entre 65 et
	90. Permet d'obtenir l'une des lettres
	de l'alphabet.
AIR$	Musique du générique.
X$	Renferme le caractère frappé au cla-
	vier.
R$	Renferme la lettre choisie aléatoire-
	ment par le M05.
45
un
de
rices
)lace
:essi
pre 170), [leur Ii se Les
iélo-
I de	I
~ule-
ipa-
,>Z
fi-
3-
ne Y•

't I
;e
te
ir it
X
initialisent les variables nécessaires au tracé de nos
deux cow-boys. Ils sont dessinés, l'un comme l'autre, par le sous-programme des lignes 5000 et suivantes. l' n 4360, l'ordinateur tire un nombre aléatoire qui servira de temporisation. Dans un duel, on ne sait jamais combien de temps va durer l'attente. L'adver-
saire peut dégainer son arme au bout de quelques
;secondes, ou au contraire jouer avec les nerfs de son ennemi. La ligne 4380 génère un nombre compris entre 65 et 90. Il sera utilisé dans une fonction CHR$ pour afficher une lettre à l'écran. Dès que vous entendrez le signal sonore (un LA), vous devrez
vite regarder votre écran puis retrouver sur votre clavier la lettre que vous y lisez. Soyez rapide, car
vous ne disposez que de très peu de temps. La ligne 4410 incrémente la variable compteur C tant que vous ne pressez aucune touche. Si vous appuyez sur la bonne touche, mais que la valeur de V est supérieure à 50, vous êtes froidement abattu par votre adversaire et le programme se branche en ligne 4600. Si, par contre, vous parvenez à retrouver la lettre test avant les 50 tours de boucle, c'est lui qui est « descendu». Le programme passe alors en 4500. Au bout de dix duels, le programme s'interrompt automatiquement :
DUEL : PROGRAMME PRINCIPAL
4290 BOXF(96,24)-(255,71),7
4300 COLORO,7: ATTRBO,I: LOC ATE13,5:PRINT° HECH6NT5
4310 COLOR4,7:LOCATE13,7:PRINT°BONS° .4320 C5=P1=21:P2=21
4330 COLOR4,I:ATTRB1,0:LOCATE1,22:PRINTL B$
4340 CO=4:CB=0:CH=12:GOSUB 5500
4350 CO=O:CB=3:CH=26:GO5UB 5500
4360 T=RND(1)*f3000+200
4370 FOR I=1 TO T:NEXT
4380 L=RND(1)v26+65
4390 ATTRBI.O:COLOR4,I:LOCATE19,22:R$=CH R$(L):PLAY-L24LA':PRINT R$:
4400 C=0
4410 X$=INKEY$:C=C+1:IF X$=°° THEN 4410 4420 IF C<50 AND X$=R$ THEN GOSUB 4500 E LSE G05UB 4600
4430 C5=C5+1. C=0:IF C5>10 THEN ATTRB0.0:
EN
4440 FOR P=1 TO 900:NEXT P:GOTO 4330
Si vous trouvez trop bref le temps de réaction de
votre adversaire, choisissez une valeur limite de C égale à 70, voire 80. Si au contraire ce jeu vous paraît trop facile, diminuez à 40 ou 30 cette même valeur. Une autre alternative, plus élégante, consisterait à prévoir en début de programme un choix de niveau de difficulté gradué par exemple de 1 à 3. Si vous débutez et que le clavier ne vous est pas encore familier, le niveau 1 vous donnera une
valeur de C égale à 100. Vous passerez ensuite aux
niveaux 2 et 3 lorsque le clavier n'aura plus de secrets pour vous.
Les sous-programmes des lignes 4500 et 4600 gèrent l'animation des deux cow-boys, ainsi que leur désintégration, en cas d'échec.
DUEL: SOUS-PROGRAMMES
4500 COLOR 4,6:LOCATE12,16:PRINT GG$'6': PLAY'°O1L24DOO4
4510 CO=0:PV=5:P2=P2+1:CB=3:CH=26
4520 GO5uS s000:COLOR4,6
4530 LOCATE12,16:PRINTGR$(1):RETURN
4540 COLOR 0,6:LOCATE26,16:PRI NT GR$(7': PLAY" O1L24DOO4'
4,500 COLOR 0,6:LOCATE26.16:PRINT GR$(7): PLAY° O1L24DOO4'
4610 CO=4:PV=7:P1=P1+1:CB=O:CH=12
4620 GOSUB 5000:COLOR0.6
4630 LOCATE26,16:PRINTGR$(4):RETURN
5000 FOR A=1 TO 10
5010 OC=CO:GosUB 5500:CO=6:G05uB 5500:CC
=OC
5020 NEXT A 5030 RETURN
5500 ATTRB 1,1'.COLOR CO.6:CV=14
5510 FOR I=CB TO C5+2
5520 LOCATE CH,CV: PRINT GR$(I)
5530 CV=CV+2 5540 NEXT 5550 RETURN
Si vous avez été plus rapide que l'ordinateur, la ligne 4500 affiche le caractère graphique GR$(6) qui vous représente arme au poing. Les lignes 4510 et 4520 préparent le clignotement puis l'effacement définitif du cow-boy noir, assurés par les routines des lignes 5000 et 5500. Il ne vous reste plus qu'à rengainer votre révolver (ligne 4530). Le sous-programme des lignes 4600 et suivantes reproduit un processus analogue, mais c'est le cow-boy bleu qui est éliminé. Le sous-programme qui débute en 5500 contrôle l'affichage des deux antagonistes. Selon la valeur prise par les variables CB et CO, c'est tantôt le cow-boy bleu (CB = 0, CO = 4), tantôt le cow-boy noir (CB = 3, CO = 0) qui est dessiné :
Lorsque vous aurez recopié le programme dans son
intégralité, incorporez-le au précédent. Rembobinez la cassette jusqu'à vous trouver avant le programme INDIEN, puis tapez :
\N RGE ""INDIEN"
Une fois l'opération terminée, vérifiez par un LIST la présence du programme INDIEN puis sauvegardez le tout par SAVE "JEU.1 ",A.	-~


Notre jeu est pratiquement terminé. Il ne nous reste plus qu'à lui ajouter un menu, un mode d'emploi et des routines de score pour qu'il soit complet et prêt à être testé par le cercle familial.
Le menu
Il comporte trois options. Les deux premières permettent à l'utilisateur de choisir parmi les tableaux proposés, la troisième de sortir du programme une fois le jeu terminé :
MENU : PROGRAMME
100 CL3:5CREEN4,1,1
'110 ATTRB 1,1
120 LOCATE 16.2:PRINT 'MENU':PRINT:PRINT :A T TR80,0: COLOR0,1
130 PRINT TE(8) '1- JEU DE L'.INDIEN":PR INT:PRINT TAB(8) °2- DUEL ENTRE CON-SOTS :PRINT:PRINT TAB(8) °3- TERMINER
140 LOCATE 8,16:PRINT 'Votre choix (1-3)
1S6 X$>=INKEY$:XX=VAL(X$):IF XX(1 OR XX>3 THEN 140
160. ON XX GOSUB 200,400,180
170 .JdN XX GOTO 1000,4000,180
180 END
Si vous répondez par 1 ou 2 à la question qui vous est posée, l'ordinateur se branchera dans un premier temps aux sous-programmes d'instruction, puis au jeu proprement dit. La réponse de l'utilisateur étant saisie au moyen d'une instruction INKEY$, toute pression sur la touche ENTRÉE se révèle inutile
MENU : AFFICHAGE
Les instructions
Sans effacer ce qui précède, vous allez maintenant entrer les instructions propres à chacun des deux tableaux. Elles devront être suffisamment claires pour que toute personne, même novice, puisse comprendre et utiliser immédiatement le jeu. Évitez de mettre plus d'un écran de texte, mais soyez néanmoins assez précis pour qu'aucun doute ne subsiste dans l'esprit du joueur :
INDIEN / INSTRUCTIONS
200 CLS:SCREENI,3,3
210 A TTRBI,1
220 LOCATE 12,2:PRINT 'L'INDIEN':PRiNT:A TTRB0,0:COLOR4,3
230 PRINT TAB(2) ''Vous etes un brave 9Ue rrier Cheyenne' :PRINT TAB(2) 'et vous de vez 2 tout prix empecher'
240 PRINT TAB(2) ales cavaliers Yankee d e rejoindre le°:PRINT TAS(2) °f ort. Yl va de la survie de votre' :PRINT TAB(2) 'tribu.'
250 PRINT TAB(2) 'Evaluez rapidement la vitesse et - la' :PRINT TAB(2) 'distance d u Cheval, puis decochez°:PRINT TAB(2) une lèche en enfonçant la touche F.' 260 PRINT :PRINT:ATTRBI .S:COLOR 1,3:PRINT TAB(8) °UGH !'•ATTRB0,0
270 COLOR 0,3:LOCATE4,22:PRINT'PresseZ u ne touche pour commencer .°,.
280 IF INKEY$=°' THEN 280
290 RETURN
Procédez pareillement pour le second tableau puis, cela fait, tapez les lignes suivantes afin de permettre l'utilisation de vos deux programmes avec le menu précédent :
1370 GOTO 100
4430 CS = CS + 1 : C = 0 IF CS > 10 THEN ATTRB 0,0 : FOR P = 1 TO 2000 : NEXTP: GOTO 100
DUEL / INSTRUCTIONS
400 CLS:SCREEN1,3,3
410 ATTRB1,1
420 LOCATE 1.2:PRINT °DUEL A SILICON-CIT Y':PRINT:ATTR B0,0:COLOR4,3
430 PRINT TAB(3) 'Les familles BlUe (vo us) et Black'; PRINT TAB(3) 'se battent p our le controle de la' :PRINT TAB(3). 'Vi 11e. Pour régler le problème une':PRINT TAS(3) 'fois pour toutes, on organise un'
440 PRINT TAS(3) 'duel dans lequel s' aftrontero nt' :PRINT TAB(31 'dix membres de chacun des clans.':PRIHT TAB(3).'Dès q ue vous entendrez le signal°:PRINT TAS (3) 'sonore, retrouvez au plus vite'
450 PRINT TAB(3) °sur votre clavier la
lettre qui°:PRINT TA1113) 's'affichera S l'éCran.":PRINT TADIS) °prenez garde, les Black Sont de' :PRINT TAB(3) 'recto utables tireurs!'
460 COLOP 0,3:LOCATE4, 22:PRI NT'Pressez u ne touche pour commencer
470 IF INKEY$=°° THEN 470p
480 RETURN
DUEL / INSTRUCTIONS AFFICHAGE
DUEL fii SI L I CON- C I T
L'es 'ramilles	aluie (Vtatl::;}	. 2ï1,.~.i~
battent: prour 1	CO11tr ' t'•,- '3*. 1
V t t le. PO4,»- r$`a ter .. *s Car re ;'t»	-j'i,.
ço i o pur	toute	on . t'r -. r.' - r1 n
cTLU L dan, jo(tJj 1	'•1, F{ r_	«
dix fi '.I sbres dt? Ohr, UYe A	rl 
t è eu,: vous en t. • vze r..	1	; sanor.U, r:rcruU r au îr1U
l ur VütrEe	CI3V 1+_t^.	t,	t ttt-e;1 '4'F (
13 afF(çt3Ear•3 .i.1'éc art.
I''rt3n9 . 9ar 3.,	1t s.	Ftt,v 4:	,.t	3,.

ant .'uX
res 1m-de lnste
Pre°-5e2 Une touC h. poUr eciewe4zrIc R'r "
La tenue du score
Évitez d'afficher un score chiffré. Essayez plutôt de
trouver un moyen plus original de faire connaître au joueur sa performance en fin de partie :
1	INDIEN / TENUE DU SCORE
=000 '5OIJ5-PÇ3OGRA1HE SCORE
3010 C LS: Sî.REEN3.1.1
3020 ATTRBI.1
3030 LOCATE2.5:PRINT`ROy3JME DES OMBRES
3040 FOR TB=O TO 9 3045 COLORO
3050	L 0CATE4:TB.11:PRINTT+'
3060	8O;KF(32a TB. 96)-(32cB+16.1351.0 3070 NEXT
3080 IF SCORE =0 THEN COLORS:LOCATE 16.33 :PRI NT°VIDE!°
3090 FOR 3=0 TO SCORE-1
3100	B0xF(32e 5.96)-325+16.1357.8
3110 NETS
3120 RETUPN
e
u
3
47 1	,1
Pour le programme INDIEN de la page 46, la routine d'affichage du score dessine 10 tombes alignées au moyen d'une instruction BOXF. Les tombes qui apparaissent en noir sont vides, les autres renferment la dépouille des malheureux cavaliers que vous avez abattus.
Si malgré tous vos efforts vous n'êtes pas parvenus à tuer une seule tunique bleue, le grand Manitou vous fait remarquer que le royaume des ombres est désespérément « VIDE ! ».
Vous vous rappelez certainement avoir lu au cours du chapitre précédent que les deux derniers caractères graphiques définis en début de programme étaient destinés à l'affichage du score. Une fois superposées et «soudées», ces deux matrices de
points représentent un... vautour, que vous verrez
apparaître à l'écran par le biais des lignes suivantes
que vous ajouterez :
5030 COLOR CO,7 : ATTRBO,O
5040 IF PV = 5 THEN PH = P2
5050 IF PV = 7 THEN PH = P 1
5060 LOCATE PH,PV — 1 . PRINTGR$(8) 5070 LOCATE PH,PV PRINT GR$(9) 5080 ATTRB1,1.RETURN
N'est-ce pas plus «amusant» qu'un simple résultat chiffré ?
Notre long travail de préparation et de mise au point s'achève sur ces dernières lignes. Il vous suffira de fusionner à ces routines les lignes du programme «JEU. l » que vous avez sauvegardé lors du précédent chapitre.
Utilisez pour cela la commande MERGE, et n'oubliez
surtout pas de réenregistrer le tout une fois cette
opération terminée.
Vous disposerez alors d'un programme de jeu com-
plet que vous pourrez faire tester à votre entourage
avant de vous lancer dans la création de vos propres oeuvres.
L481
UNE BANQUE DIMAGES
renez plaisir à utiliser votre ordinateur	
Si vousP	
p 	tie effacé par un second disque de la même couleur
comme planche à dessins, vous avez certainement	que le fond (code —1). Les lignes 100 à 150 dessi-
dû regretter de ne pas pouvoir vous affranchir du	nent deux pyramides de couleur rouge, tandis que
programme de tracé pour afficher vos oeuvres à	les lignes 160 à 250 tracent une série de lignes
l'écran. Réjouissez-vous, car vous allez apprendre ici	bleues qui concourent à donner une certaine profon-
qu'il est possible de stocker des images sur cassette,	deur à l'image finale
indépendamment du programme de création.	
	LUNES : AFFICHAGE
	
Création d'une image	
Commençons, si vous le voulez bien, par dessiner	
une image en couleurs.	
Le programme suivant met en place un paysage	
futuriste qu'il vous sera peut-être donné, un jour,	
d'observer réellement :	
LUNES : PROGRAMME		
10 CL5:SCREENO,0,0		
20 YO=O:XO=222:R=96:D=YO-R:R1=R:R2=Rt2:C		
0=10		
3e GOSUB500		
40 YO=O:XO=12R=96:D=YO-R:R1=R:R2=Rik2:C		
O=- 1		
50 GO5UB500		
60 YO=30:XO=50:R=22:D=YO-R:R1=0:R2=R%2:C		
0=3		
70 GOSUB500		
80 Y0=30:XO=23:R=22:CO=-1:GOSUB500		
90 BOXF(0.112)-(319,199).1		
100 FOR I=0 TO 80		
110	LINE(30.96)-(I.112).f		
120 NEXT		
130 FOR I=40 TO 160		
140	LINE(90.88)-(I	112)11		
150 NEXT		
160 FOR I=0 TO 319 STEP 20		
NÎ[160.112)-(I.199).-5		Maintenant que nous disposons d'une image, nous
180 NEXT		allons apprendre à la sauvegarder sur cassette. Pour
		cela, quelques mots sur la manière dont le M05
		stocke des graphismes en mémoire, sont nécessai-
		res. Sachez donc que la page écran de votre ordina-
		teur se trouve située entre les adresses mémoire 0 et
		8191, et qu'elle occupe 8K-octets. Il s'agit, pour être
		
		plus précis, d'une double page, la première assurant
		le stockage des points du dessin, et la seconde celui
		de leurs codes couleurs.
190 FOR	I=1	TO	12		Pour enregistrer notre paysage sur support magnéti-
213	L=I 11 I - 		
10	LINE(0	-		
,? ,-5		
1 ] 4 + L )	( 3 1 9 . 1 1 4 + L		que, nous allons devoir, dans un premier temps, sau-
I		
2SQ		
ENDT		
500 REM SPGM DISQUE PLEIN		la forme», puis, au cours d'une seconde
		veparder «	p
510 FOR Y=R1 TO R2		b 
S20	BC=SQR((Rt2)-((R-Y)+2)l		étape, préserver les couleurs. Cette double opération
530		i'
LI NE(XO-BC.D+YI-(XO+BC.D+Y1,C0		Y	Y
550 PETURN		se fera par l'intermédiaire des lignes suivantes
		
		230 POKE &HA7CO,PEEK(&HA7CO) OR 1
		
		240 SAVEM "FLUNES", &H0000,&H1F40,&H0000
		250 POKE &HA7CO,PEEK(&HA7CO) AND 254
		260 SAVEM "CLUNES", &H0000,&H1F40,&H0000
		270 END
		Ces lignes méritent quelques éclaircissements, en
		
		raison même des notions nouvelles qu'elles introdui-
		sent. L'instruction POKE vous permet d'écrire direc-
	
	tement dans la mémoire de l'ordinateur, tandis
Les lignes 20 à 70 initialisent un certain nombre	que son opposée, PEEK, lit le contenu d'une case
de variables, puis elles font appel, par quatre fois, à	mémoire. La ligne 230 signifie par conséquent que
une routine de tracé d'un disque plein débutant en	l'on va déposer à l'adresse mémoire &HA7CO un
ligne 500. Le premier motif qui apparaît à l'écran	nombre IMPAIR, afin d'indiquer au M05 qu'il doit
est un demi-disque de couleur jaune pâle (code 10).	sauver la «forme», le tracé de notre dessin. La sau-
Ce dernier,. comme le suivant d'ailleurs, est en par-	vegarde proprement dite, est effectuée par la com-


49
;EŸ
leur 'ssi
que unes
fon	.a:
o-'_
us ur
~1-
et
re
nt ui
j-u-le
,n
mande SAVEM, suivie des adresses de départ et de tin de zone mémoire à sauvegarder (ici, la page (cran). Le troisième paramètre utilisé spécifie l'adresse à partir de laquelle le programme devra
être rechargé en mémoire lors de son rappel. Les
adresses sont toutes exprimées en HEXADÉCIMAL, un système qui utilise une base de 16, au lieu de notre habituelle base de 10 (système Décimal). Comme il n'existe en tout et pour tout que 10 chiffres (0 inclus), la notation hexadécimale utilise également les lettres A, B, C, D, E, et F. Le processus de sauvegarde se répète aux lignes 250 et 260, mais il s'agit cette fois d'enregistrer les couleurs. C'est donc un nombre PAIR qui sera écrit à l'adresse &HA7CO. Lorsque vous aurez recopié ces lignes, relancer l'exécution de votre programme LUNES, sans oublier de mettre votre magnétophone en position <ENREGISTREMENT>. La sauvegarde est plutôt lente, car il s'agit pour l'ordinateur d'enregistrer l'équivalent
de 2*8*1024 = 16 384 caractères. Lorsque votre
magnétophone se sera arrêté, éteignez quelques ins-
tants votre ordinateur, pour vider la MEV de
son contenu, puis rallumez-le et recopiez ces quatre lignes :
10 CLS : POKE &HA7CO, PEEK(&HA7CO) OR 1 20 LOADM "FLUNES"
30 POKE &HA7CO,PEEK(&HA7CO) AND 254 40 LOADM "CLUNES"
Vous retrouvez les instructions POKE et PEEK précédemment employées, mais la commande SAVEM a été remplacée par LOADM suivie du nom du programme. Rembobinez votre cassette de manière à positionner votre bande avant le début du fichier image, mettez-vous en <LECTURE>, et tapez RUN :
LUNES / TRACE DE LA FORME : AFFICHAGE
alors l'image obtenue selon le procédé expliqué plus
haut, et à la suite de la précédente. Un seul pro-
gramme de chargement suffira à commander l'apparition de vos images à la suite l'une de l'autre, chaque nouveau dessin appelé effaçant le précédent :
PARIS 2500
10 CLS::SCREEN 8,15,0
0 BOXF(80,241-(231,159) 30 BOXF(112,20)-(200,24) 40 BOXF(120,17)-(192,20) 50 BOXF[128,15(-(184.)7) 60 BOXF)136, 14)-f 176,15) ,0 BOXF(77,28(-(234,33) 80 BOXF(75,48)-(236,52) 90 BOXF(77,531-(234,55)
100 X0=155:R1=0:R=28: R2R:^=03-R: C016 :G05UB 500
120 BOXF(127,104)-(183,159),CO
130 BOXF(78,100)-(128,104),8 140 BOXF(182,100(-(233,104(,8
150 XO=155:R=20:R2=Re2:D=108-R: CO=3:GOSU
B 500
160 BOXF(O.160)-(319,199),8
170 FOR I=16 TO 48: LI NE [32.96]-[I .160),8
: NEXT
130 FOR I=8 TO 24LINE(16,112)-(I,160'.3 :NEXT
190 BOXF(272,88)-)280,160),8 200 5OXF€264,1121-(272,160),8 210 5OXF(288,96)-(304.160,,8 220 LI=159
230 FOR I=1 TO 8
240 LI=LI+I
259 LINE(O,LI+I)-(314,L(+I ).0
260 NEXT
270 FOR I=0 TO 319
280 LINE(155,160 )-(I.199).-2 290 NEXT
400 IF INKEY$O' THEN END ELSE GOTO 400
500 FOR Y=R1 TO 62
510 TRAIT=5QR((Rt2)-((R-Y)t2))
520 LINE(XO-TRAIT,D+Y1-(XO+TRAIT,D+Y),C 0
530 NEXT Y 540 RETURN
n
s e e 1
t
L'ordinateur charge en premier lieu la «forme» du dessin et affiche cette dernière en deux couleurs seulement. Ce n'est qu'une fois la forme en place qu'il entreprend la mise en couleurs.
Si vous vous sentez prêt à commencer une banque d'images, entrez le programme ci-après. Enregistrez


Arrivé à ce stade déjà avancé de la programmation, vous devriez devenir beaucoup plus exigeant en ce qui concerne la présentation de vos affichages. Jusqu'ici, nous nous sommes surtout préoccupés de découvrir de nouvelles manières de faire, sans trop nous soucier de la mise en page des données affichées. Nous avons bien mis un gros titre ici et là, tenté de centrer nos lignes de texte. Il y a cependant mieux à faire, et les quatre pages qui suivent vont être uniquement consacrées à la présentation des données numériques dans un premier temps, des données chaînes en seconde partie.
verti en chaîne de caractères par le biais de la fonction STR$. Cette opération est nécessaire car l'« espace» est un caractère que l'on ne peut additionner qu'à d'autres caractères. On calcule ensuite la différence existant entre la longueur L de X$ et la longueur de base LB. Le résultat de cette soustraction est stocké dans la variable DIF. Celle-ci sert de valeur limite à la boucle des lignes 110-130 dont le rôle est d'ajouter DIF espaces à la chaîne X$. Il ne reste plus ensuite qu'à afficher X$ :
NOMBRES ALIG
Aligner des nombres aléatoires
Commencez par entrer puis exécuter ce court programme :
GRAMME
10 CLS
20 PRINT TAB(3) 'PRE55EZ UNE TOUCHE POUR COMMENCER;
30 IF INKEY$=" THEN X=RND:GOTO 30
40 CLS
50 FOR I=1 TO 20
60	X=INTtRNDU100+1)
70	PRINT TAO(17) X 80 NEXT
90 END
10 CL5
20 PRINT TAB(3) 'PRE55EZ UNE TOUCHE POUR COMMENCER
30 IF INKEY$=°" THEN X=RND:GOTO 30
40 CL5 50 LB=3
60 FOR I=1 TO 20
70	X=INT(RND7[100+1)
80	X$= STR$(X)
90	L=LEN(X$)
100 DIF=LB-L
110 FOR J=1 TO DIF 120	X$=° °+X$
130 NEXT J
140 PRINT TAB(17) X$ 150 NEXT I
160 END
Après l'habituelle initialisation du générateur de nombres aléatoires (lignes 20 et 30), le programme tire au hasard vingt nombres entre 1 et 100, puis les affiche à l'écran à partir de la 17e colonne.
Vous pouvez constater que dizaines et unités ne sont pas toujours alignées, ce qui nuit à l'esthétique de ce tableau et rend malaisé le repérage des valeurs affichées. Ceci tient évidemment à ce que les nombres n'ont pas tous même «longueur» et qu'ils sont néanmoins écrits à partir d'une colonne initiale commune. L'une des solutions à ce problème consisterait à ajouter devant chacune de ces valeurs un certain nombre de «blancs», de manière à obtenir des chaînes d'égale longueur. Cette opération entraîne quelques modifications du programme précédent.
On choisit en 50 une longueur de base LB pour l'ensemble des nombres. Les nombres générés pouvant être compris entre 1 et 100, 3 chiffres maximum nous sont nécessaires. Le programme tire ensuite un nombre au hasard. Ce nombre est con-
4
55 8 14 79 23
56
72 32 35
73 26
5 48 40 7 14 95 64 52
OK
Assurez-vous maintenant que ce programme fonctionne avec des nombres réels (non entiers). Pour cela, changez comme suit les lignes 50 et 70 :
50 LB = 12
70 X=RND.100+1 1
puis tapez RUN <ENTRÉE>. Les nombres ne sont plus du tout alignés ce qui s'explique par le fait que la longueur de leur partie décimale n'est plus prévi-

(.~)r jdi
ait('
> et
cac de
t le
11C
leur
nt ze
'i-
51
sible. Rassurez-vous, il existe un moyen permettant d'aligner des nombres à virgule, et ce beaucoup plus simplement que ne le faisait le précédent programme.
Si vous n'avez pas sauvegardé sur cassette le pre-
mier programme de ce chapitre, recopiez-le (sans omettre de détruire le programme courant par NEW) puis ajoutez-y les lignes suivantes :
45 C$ _ °:
140 PRINT TAB(17) "	, : PRINT USING C$ ; X
A l'exécution, les nombres s'alignent comme à la parade
ALIGNEMENT DES NOMBRES A VIRGULE
rn
86.55600	7 54.044.90
20. 7920
27.43730
67. 49590
29.88920
76.07630
48.12170 58.20570
5.08014 6.07109 54. 22140
76.66770
57.78530 44.70360 8.42555
91.17590 28.57480 81.49390
56. 91950
OK
La ligne 45 définit un «format» pour toutes les valeurs que vous allez afficher. Les nombres tirés étant compris entre 1 et 100, nous avons besoin de trois chiffres avant la virgule. Pour ce qui est de la partie décimale, libre à vous de n'en conserver que six, quatre, voire deux seulement. Le premier signe
dièse de la chaîne C$ représente les centaines, le
second les dizaines, et le troisième les unités. Un nombre ne comprenant qu'un seul chiffre avant la virgule sera automatiquement cadré à droite, comme s'il s'écrivait OOX.XXXXX. La définition du format est suivie, au moment de l'affichage, d'une instruction répondant à la syntaxe suivante :
PRINT USING Chaîne avec format; vanable(s) numérique(s)
Établir une facture
En guise de programme d'application à l'instruction PRINT USING nous allons dresser une facture dans laquelle tous les nombres seront alignés afin de faciliter la lecture du total. Le programme FACTURE vous invite à rentrer le nom de 10 articles (12 lettres maximum), puis leur prix, et la quantité désirée (lignes 40 à 90). La ligne 110 définit un format comprenant trois séries de dièses séparées par des espaces et des signes «: ». La définition de votre for-
mat peut en effet inclure des lettres, voire de petits textes. L'instruction PRINT USING apparaît tout d'abord en 230. Elle utilise 3 variables (P, Q et T). On la retrouve en 290, dans un format différent, pour l'affichage du montant de la facture :
FACTURE
10 CL5:SCREENO,7.7
20 DIN F$(10.3Y
30 C$='ARTICLE-
40 FORI=1 TO 10
50	PRINT C$,I:1NPUT", F$(I,1)
60	INPUT, PRIX ..........P$11,2)
70	INPUT°QUANTITE......F$1I,3)
80	PRINT
90 NEXT I:SCREEN0,3.3
100 CL5: 5CREEN0,3,3
110 C$=°:$#s.**: ***	'***$** ##°
120 ATTRBI,1 :COLOR4,3:LOCATE 13.1:PRINTFACTURE5:COLOR0,3
130 LINS(13.4-(13.17) ::LINE(20.4-(20 .171 :°:LINE(294)-(29,17)
140 LINE(0.31-t393)- :LI NE(0.5)-(395)
150 ATTRB0,0:COLOR0.3
160 LOCATE 4.4:PRINT°ARTICLE°:LOCATE15.4 PRINT°PRIX°:LOCRTE21 .4: PRI NT~QUANT ITE': LOCATE 31.4:PRINT°TOTAL
170 PV=6
180 FOR 1= 1 TO 10
190 LOCATEO,I+PV:PRINT F$(I,1).
200 P=VAL(F$[I,2)Y
210 Q=VAL(F$(I.33
220 T=PIQ:TL=TL+T
230 PRI NT TAB(13:°,T6B(14)PTAB(20): TAE123) Q; TAB(29Y°:,TAB(31) T
240 NEXT
250 LINE(0.18)39,18-'
260 COLOR 1,3:LOCAT E31, 20,0:PRINT°TOTAL'
270 LOCATE30. 22.0:PRINT TL 280 COLOR0.3:LOCATE0.0.0
T~	~4
	
	
	
	
	
IAI~	4.2	t
	
	
	44x5
	S	ter,.	i.	;. 2
	T 9.55
	
	6
	 t	l.7 .
	
	

_____H
MISE EN PAGES / 2
Après les nombres, nous allons nous pencher sur
le cas plus complexe des chaînes de caractères,
en abordant le problème de la «justification» d'un texte.
Découpage en mots
Lorsque vous tapez un texte sur une machine à écrire ou sur votre ordinateur, tous les caractères de gauche se trouvent alignés sur une même colonne. On parle alors de justification à gauche. Quand vous lisez un journal, un magazine, un livre (celui-ci par exemple), vous constatez que le texte est également justifié à droite, ce qui donne lieu à des colonnes de mots bien nettes et, partant, plus agréables à lire, dans lesquelles les fins de paragraphes se détachent distinctement. Pour arriver à un tel résultat, les typographes font varier l'écartement entre les lettres et les mots, de manière à obtenir des lignes
d'égale longueur. Sans prétendre parvenir à une
telle régularité, nous allons simuler à notre manière ce procédé. Notre première étape consistera à découper en mots chacune de nos phrases. Rappelez-vous qu'un mot n'est autre qu'un groupe de lettres encadrées de deux espaces, ou encore d'un espace et d'un signe de ponctuation. Nous laisserons de côté ici les signes de ponctuation. Pour découper une phrase, nous allons la faire «lire» à l'ordinateur caractère
par caractère, en lui précisant de s'arrêter dès qu'il
rencontrera un espace. Ceci se traduira par le programme suivant :
DÉCOUPAGE EN MOTS : PROGRAMME
10 CLS:DIH MOT$)301
20 PRINT'ENTREZ UNE PHRASE D'UNE LIGNE H AXI MUH :PRINT
30 LINEINPUT, LIGNE$
40 PRINT
50 GOSUB 1000
60 FOR I=1 TO B
70 PRINT MOT$(I)
80 NEXT
90 END
999 REM Découpage de la phrase en mots 1000 PHRASE$=LIGNE$+- ~
1010 LG=LEN(PHRASES)
1020 A=1:B=1
1030 IF HID$(PHRASE$,A,1)O CHR$(32) THE N A=A+I:GOTO 1030
1040 HOT$(B)=LEFT$(PHRASE$, A-1)
1050 IF HOT$(B)=- ° OR MOT$(B)=" THEN B =B-1
1060 PHRASE$=MID$(PHRASE$,A+1.LG)
1070 LG=LEN(PHRASES)
1080 IF LG>0 THEN A=1:B=B+I:GOTO 1030 1090 RETURN
Après avoir dimensionné un tableau de 30 éléments (c'est plus que suffisant) pour le stockage des mots, le programme invite l'utilisateur à entrer au clavier une phrase tenant sur une ligne d'écran (30). Celle-ci est introduite dans la mémoire du M05 au moyen d'une instruction LINE INPUT (on peut ainsi taper point virgule et deux points). Ceci fait, le pro-
gramme se branche à la routine débutant en ligne 1000. On commence par rajouter un blanc en fin de ligne, afin que l'ordinateur soit à même de détecter le dernier mot de la phrase, puis on passe au découpage proprement dit. La ligne 1030 pourrait s'exprimer comme suit : « Si la lettre occupant la position A n'est pas un espace, passe à la lettre suivante, puis répète l'opération». La variable A est incrémentée tant qu'aucun espace n'apparaît. Lorsque cela se produit, le programme se branche en 1040 afin de constituer le premier mot du tableau MOT$. On supprime alors de la ligne le mot ainsi formé (1060) puis on revient en 1030. Le processus se répète tant qu'il reste des lettres dans la phrase. Quand LG prend la valeur 0, le sous-programme se termine et l'on revient au programme principal. Il ne reste plus alors qu'à vérifier par PRINT que tout s'est bien passé :
DÉCOUPAGE EN MOTS : AFFICHAGE
ENTREZ UNE PHRASE D'UNE LIGNE MAXIMUM JE VAIS DECOUPER CETTE PHRASE EN MOTS
JE VAIS
DÉCOUPER
CETTE
PHRASE
EN MOTS
OK
Notez que cette routine pourrait servir, moyennant quelques menus changements, à rechercher un mot dans une phrase, ou encore à générer des textes «à
trous». Revenons cependant à ce qui nous occupe.
Maintenant que vous savez découper une phrase en mots, il ne vous reste plus qu'à écrire le programme de justification proprement dit, puis à prévoir l'introduction et le traitement de votre texte.
N'effacez surtout pas le programme précédent par
un NEW, car vous seriez obligé de retaper intégralement la routine des lignes 1000 et suivantes. Enregistrez le tout sur cassette puis tapez DELETE 10 — 90 <ENTRÉE>. Cela fait, recopier les lignes ci-après.
La ligne 10 est très importante. Elle contient en effet une fonction essentielle au bon déroulement du programme. Vous savez utiliser CLEAR pour réserver de la place mémoire pour vos caractères graphiques. Ici, CLEAR a pour rôle de mettre de côté

53
{ TEXTE / INTRODUCTION ET TRAITEMENT 1	TEXTE / JUSTIFICATION : PROGRAMME
C 
en
d C sse ur 3nt
tre est
)rs-
en
eau nsi
3ÜS se. se
Il
)ut
nt ot (à
ie.
mn o-
~é-
,e.
ir
es.
'E
u-
~n	1
lu
:é
10 CLS:CLEARI0000
2001M MOT$(30),L$(50)
30 PRINT 'ENTREZ DES PHRASES D'UNE LIGNE MAXIMUM'
40 PRINT 'TAPEZ <FIN> POUR TERMINER°:PRI NT
50 CONSOLE 3,24,0
60 CT=1:ST=0
70 FOR I=O TO 1 STEP ST
80	LINEINPUT L$(CT)
90	L=LENIL$(CT)I:IF L>39 THEN PRINT °T
ROP LONG! RECOMMENCEZ':GOT 080
100 IF L$(CT)=°FIN° THEN CT=CT-1:CONSOL E0.24.0, 0:GOTO130
110 CT=CT+1
120 NEXT
130 CLS
140 FOR I=1: TO. CT 150 LIGNE$=L$(I)
160 GOSUB 1000:REM Découpage en mots
170 GOSUB 2000.:REM Justification
180 L$(I)LIGNE$:RRIHT L$(I).
190 NEXT I
200 END
10 000 octets de la mémoire vive du M05 pour l'utilisation de variables chaînes. Par défaut le M05 ne leur réserve en effet que 300 octets, ce qui s'avère insuffisant lorsqu'il s'agit de manipuler des textes entiers. En règle générale, faites appel à CLEAR chaque fois que vous emploierez un nombre élevé de variables chaînes. Si vous souhaitez connaître la place dont vous disposez pour vos chaînes de caractères, tapez FRE(X$). FRE vient de l'anglais FREe, ou «libre ». Cette fonction retourne le nombre d'octets encore utilisables pour les chaînes. Lorsque vous mettez votre ordinateur sous tension, PRINT FRE(X$) affiche la valeur 300.
La ligne 20 dimensionne deux tableaux. Le premier est réservé aux mots, le second aux lignes (si vous pensez taper des textes de plus de 50 lignes, augmentez l'indice entre parenthèses). L'introduction des phrases du texte s'effectue entre les lignes 70 et 120. Pour indiquer au M05 que votre texte est terminé, il vous suffira de taper le mot « FIN ». On utilise LINE INPUT pour les mêmes raisons que celles énoncées dans le programme précédent. La ligne 90 contrôle la longueur de chaque ligne tapée (39 caractères maximum). Si votre ligne s'avère trop longue, l'ordinateur vous invitera à recommencer. Remarquez qu'une fenêtre a été créée (instruction CONSOLE en ligne 50) afin que les lignes 30 et 40 restent affichées pendant toute la saisie du texte. Celle-ci terminée, la boucle des lignes 140 à 190 envoie chacune des lignes au sous-programme d'extraction des mots (lignes 1000 et suivantes), puis à la routine de justification (lignes 1999-2190).
Les lignes 2000 à 2060 placent un espace en fin de chaque mot, sauf du dernier, pour reconstituer la phrase originelle. Si la ligne ainsi reformée est de même longueur que la largeur de l'écran (variable LM), la justification est inutile, et l'on retourne au programme principal. Sinon, on ajoute un blanc supplémentaire au premier mot, et l'on vérifie de nouveau si l'on a atteint la valeur LM.
Dans l'affirmative, on quitte la routine, sinon on rajoute un espace au second mot, et ainsi
1999 REM Justi+'ication
2000 LIGNE$=°' 2010 LM=39
2020 FOR J=1 TO B-1
2030 MOT$(JI=MOT$(J)+°
2040 LIGNE$=LIGNE$+MOT$(J)
2050 NEXT J
2060 LIGNE$=LIGNE$+MOT$(B)
2070 IF LEN(LIGNE$)=LM THEN RETURN
2080 BL=LM-LEN(LIGNE$)
2090 FOR J=1 TO B-1
2100 LIGNE$="
2110	MOT$(J)=MOT$(J)+° °:BL=BL-1
2120	FOR K=1 TO B-1
2130	LIGNE$=LIGNE$+MOT$(K)
2140	NEXT K
2150	IF LEN(LIGNE$)+LEN(MOT$<B))=LM TH
EN LIGNE$=LIGNE$+MOT$(B):RETURN
2160 NEXT J
2170 LIGNE$=°' 2180 GOTO 2090 2190 RETURN
de suite, jusqu'à ce que la longueur de la ligne soit égale à LM.
JUSTIFICATION : AFFICHAGE
MAITRE CORBEAU SUR UN ARBRE PERCHE TENAIT EN 50N BEC UN FROMAGE. MAITRE RENARD, PAR L'ODEUR ALLECHE. LUI TINT A PEU PRES CE LANGAGE: 'EH, BONJOUR, MONSIEUR DU CORBEAU ! QUE VOUS ETES JOLI, QUE VOUS ME SEMBLEZ SEAU ! SANS MENTIR, SI VOTRE RAMAGE 5E RAPPORTE A VOTRE PLUMAGE, VOUS ETES LE
PHENIX	DES	NOTES	DE	CE	BOIS.'
OK
Remarquez que la justification porte sur tout le texte, même là où elle se révèle inutile, comme c'est le cas dans la dernière ligne. Pour corriger cela, terminer les lignes que vous ne désirez pas traiter par un symbole peu usité, le « » par exemple, puis rajoutez à votre programme un test permettant la détection de ce symbole en fin de ligne :
155 IF RIGHT$(LIGNE$,1) = "e"" THEN GOTO 180 Vous noterez que l'exécution de ce programme n'est pas très rapide, l'ordinateur devant lire chaque phrase introduite lettre par lettre. Pour remédier à cela, on peut déjà limiter la justification aux seules phrases dont la longueur est différente de la valeur LM. Ceci nous amènerait à introduire en 154 le test
suivant :
154 IF LEN(LIGNE$) = LIVI THEN GO FO 1 ti0
Après avoir tapé ce programme, vous n'aurez plus d'excuses pour ne pas écrire des lettres ou des rap-
ports totalement justifiés.
54
LE DÉPISTAGE DES ERREURS
A mesure que vos talents de programmeur iront se développant, vous écrirez des programmes de plus en plus .longs dans lesquels il deviendra parfois malaisé de découvrir les erreurs. Le M05 vous signalera, les fautes de syntaxe qu'il rencontrera en cours d'exécution, mais il ne vous dira rien de ces fautes qui font qu'un programme «tourne» sans pour autant fournir le résultat escompté. Dans ce chapitre, nous allons voir comment il est possible de dépister ce type d'erreurs, puis nous essayerons de traduire en clair les messages codés et laconiques générés par l'ordinateur.
Quelques techniques de dépistage
Dès qu'un programme dépasse 25 lignes, il sort des limites de l'écran. Il devient alors impossible d'en avoir une vision globale, à moins de disposer d'une imprimante et d'en tirer une copie sur papier. Le dépistage des erreurs s'en trouve compliqué, car il vous faut sans cesse faire défiler des morceaux de programme parfois fort éloignés les uns des autres. Si votre programme fonctionne mais ne répond pas exactement à ce que vous en attendiez, essayez de déterminer mentalement, ou à l'aide d'un papier et d'un crayon, son déroulement pour une situation et des valeurs données. Si vous ne trouvez pas l'erreur, essayez de remplacer vos variables par des constantes, puis calculez par vous-même le ou les résultats que devrait vous fournir l'ordinateur. Ce procédé se révèle très pratique en cas d'utilisation de valeurs aléatoires. Il se peut en effet que le nombre généré sorte des limites admises par le programme (vous avez employé des valeurs trop faibles, ou trop importantes dans votre fonction RND). Pour affiner votre recherche, n'hésitez pas à parsemer votre programme d'instructions STOP. Elles vous permettront en effet de déterminer l'état de vos variables à un moment précis du déroulement du programme. Dès que le résultat affiché déviera de la valeur attendue, il vous suffira de relire les lignes précédentes, jusqu'au dernier STOP rencontré. Si malgré tout cela votre programme persiste dans sa « fantaisie », ayez recours au mode «trace».
Le mode TRACE
Ainsi appelé parce qu'il inscrit à l'écran une trace matérielle et tangible du travail fourni par l'ordinateur, ce mode vous permet de suivre le déroulement d'un programme ligne à ligne. Les numéros des lignes déchiffrées puis exécutées s'affichent sur votre écran de visualisation entre crochets. Il devient alors aisé de contrôler que tel branchement s'est correctement effectué, ou encore que le programme n'a pas «oublié» quelque ligne importante. Rien ne remplaçant un exemple concret, entrez au clavier le programme TRACE. Étudiez-le soigneusement, puis essayez d'en refaire le déroulement «à
la main». Lorsque vous aurez déterminé avec exactitude le cheminement logique de ce programme, et. que vous serez capable de prévoir quel numéro de ligne suivra le précédent, lancez son exécution par un RUN, non sans avoir préalablement tapé la commande suivante : TRON <ENTRÉE> :
LE MODE TRACE: PROGRAMME
10 CL5:5CREEN 0.7,7 211 FOR I= 1 TO 5
311 GOSUB 100
40 NEXT
50 END
100 COLORO:PRINT TAS(3) I,:COLOR 4:PRINT TAB(10) I?2;
110 COLOR I:PRINT TAB(20) It3
120 RETURN.
Votre écran se couvre de nombres colorés inscrits entre crochets. Ce sont vos numéros de lignes. La ligne 10 n'apparaît pas ici, car elle renferme la commande CLS qui efface l'écran. Vous pouvez constater que votre programme lit les lignes 20 et 30 avant de se brancher en 100, comme il le lui est spécifié. Il exécute le sous-programme (notez au passage les changements de couleurs) et affiche les résultats des calculs que vous lui demandez d'effectuer. Arrivé à l'instruction RETURN de la ligne 120, l'ordinateur revient au programme principal en 40 pour un non veau tour de boucle. Ce cheminement devient par ticulièrement net en mode trace (TRON signifie TRace ON). Si vous souhaitez sortir du mode trace, tapez simplement TROFF (TRace OFF).
Lorsque le programme est long, il devient aussi dil ficile de lire les nombres entre crochets qui défilent. à l'écran que les lignes de la liste d'un programme. Faites précéder votre commande TRON de CONSOL[': 0,24„1. Votre écran passera en mode «défilement lent», et vous aurez ainsi plus de temps pour lire, ce qui s'y affiche. Si vous trouvez cela encore trop rapide, faites porter le mode trace sur des segment;, de programme, en faisant précéder TRON et TROlt de numéros de lignes.
Le traitement des erreurs
Il n'est jamais très agréable, lorsque l'on exécute tut programme, de voir son déroulement s'interrompir par l'apparition d'un message d'erreur. Il est. j (,,, sible de l'éviter, en plaçant en tête de liste, une iii,,
55 I
sc-
et de
,ar m-
:s
a
i-
r it
s s
à r

truction de ce genre
ON ERROR GOTO XX
XX désigne le numéro de la ligne à laquelle l'ordinateur se branchera chaque fois qu'il rencontrera une erreur. En fonction du contenu des lignes XX et suivantes, vous pourrez soit corriger l'erreur, soit la faire apparaître sous une forme moins succincte que celle à laquelle vous êtes habitué. Quelle que soit l'option pour laquelle vous vous déciderez, sachez que l'utilisation de l'instruction ON ERROR GOTO inhibe l'affichage des messages d'erreur à l'écran.
Pour en finir avec les codes d'erreur
Si vous en avez assez de consulter fébrilement le manuel utilisateur du M05 chaque fois que vous rencontrez un message d'erreur, voici un programme
qui vous évitera toute recherche :
1	MESSAGES EN CLAIR : PROGRAMME	1
3999 REM INITIALISATION TRAITEMENT ERREU RS
4000 DIM ER$(23)
4010 FOR 1=1 TO 23: READ ER$(I):NEXT I 4020 ON ERROR GOTO 4500
4030 RETURN
4499 REM AFFICHAGE ERREURS EN CLAIR 4500 FOR I=1 TO 23
4510 IF ERR=I THEN PRINT TA5 2) ER$(l)+ en ERL:GOTO 4530
4520 NEXT I
4530 IF I=11 THEN RESUME NEXT ELSE RESUM E
4999 REM MESSAGES EN CLAIR
5000 DATA NEXT sans FOR -,Erreur 0e syn taxeA,-9RETURN sans GOSUE ,~READ sans DAT At,~Argument -0a6ction incorrect ',Nombre trop grand .Plus de place en mémoires, Numéro de ligne inconnu-,Rlnaice,' trop g rand','Tableau déjà dimensionné
5010 DATA Division par 0",'Impossible_e n commande directe''.Type pe variable in Correct",''Plus de place pour les chaines ,Formule chaine trop complexe",Formul
trop Complexe", ImpOSSib.1e de Continue r'. Fonction non dé€inie','pas de RESUME.
5020 DATA 'RE5UME sans ERROR ."Erreur no n définie','Il manque un opérande'.'FOR sans NEXT,
Les lignes de DATA renferment les messages en toutes lettres correspondant au 23 premiers codes d'erreurs générés par le M05. Par exemple, le message «NEXT sans FOR» se rapporte à l'erreur de code 1. Le sous-programme des lignes 4000 et sui-
vantes débute par l'initialisation du tableau destiné à contenir les nouveaux messages d'erreur. Ces lignes devront être exécutées au début de votre programme par un GOSUB 4000. Les lignes 4500 et suivantes nécessitent quelques explications en raison des nouvelles fonctions qui y figurent. La ligne 4510 renferme les fonctions ERR, qui retourne le numéro de l'erreur détectée, et ERL, qui renvoie le numéro de la ligne dans laquelle se trouve l'erreur. La boucle des lignes 4500-4520 examine successivement la liste des 23 codes d'erreur. Dès qu'a été trouvé le nombre correspondant à l'erreur, le programme va chercher dans le tableau ER$ le message approprié, puis il le fait suivre de la mention « en » ERL. Il faut alors reprendre l'exécution à l'endroit même où elle a été interrompue. C'est le rôle des instructions RESUME et RESUME NEXT, qui agissent de façon analogue à RETURN. La première fait reprendre le déroulement du programme à l'instruction ayant provoqué l'erreur, la seconde à l'instruction immédiatement postérieure. Le test de la ligne 4530 distingue deux cas. Si l'erreur est du type «Division par zéro », le programme se branche à la ligne qui fait suite à la dite division, sinon il revient à la ligne contenant l'erreur. Lorsque vous aurez recopié ces lignes, sauvegardez le tout en tapant
SAVE "nom du sous-programme »,A
En agissant de la sorte, vous pourrez inclure cette routine à tous vos programmes, et en faciliter ainsi la mise au point. Voici pour terminer un exemple d'utilisation de ces lignes. Sans effacez ce qui précède, recopiez ce court programme puis exécutez-le :
10 CLS
20 GOSUB 4000 30 INPUT N1,N2
40 PRINT N1 ; "/";N2;"=";N1/N2
50 GOTO 30
L'utilisateur entre les deux termes d'une division dont le résultat est déterminé et affiché par l'ordinateur :
TRAITEMENT DES ERREURS : AFFICHAGE
140.,8
140 Î 8 = 17..5
99,6
99 ', 6 = 16.5
28.0
26/0
Div ilion par 0 en 40
8432,7.4
84.32 /.7.4 = 1139.46.
? 99999999999999999999999999999999999999 99,123456789
Nombre trop grand en 30
7 9999999999999999999999999999999, i23456 789
IE+31 / 1.23457E+08 = 8.1E+22.
?::732,45
732 / 45 = 16.2667
- - u
RECRÉER LE MOUVEMENT
Les animations étudiées jusqu'ici concernaient principalement le déplacement latéral d'objets fixes (voiture de pompiers, petit train, etc.) et ne mettaient généralement en cause qu'un nombre limité de caractères graphiques définis par l'utilisateur.
Nous allons nous attaquer maintenant à un problème plus complexe, puisqu'il va s'agir ici de reproduire à l'écran les différentes phases du galop d'un cheval.
Les quatre phases du galop
Pour reproduire le plus fidèlement possible le mouvement d'un cheval au galop, et obtenir par la même occasion une animation non saccadée, nous allons employer quatre images différentes que nous afficherons successivement à l'écran.
Chaque image sera formée de 32 caractères graphiques (huit en longueur, quatre en hauteur définis sur les trois écrans suivants), ce qui équivaut à une matrice de 2 048 points :
GALOP CARACTÈRES GRAPHIQUES
10 CLS:CLEAR „ 72:CLEAR3000
20 DEFGR$(0)=39.49.16,0,0,0,0,0:DEFGP$(I )248,240,193,3.0.0,0,0:DEFGR$(2)16,112 .224,0.0.0.0.0:DEFGR$(31=7,14,28,64,30.3 .0,0: DEFGR$(4)=231,224,224,224,224,240,1 20.62:DEFGR$(5)=255,255,31,31,31,28,28,2 4: DEFGR$(61=240.224,192,224,1 2,28,12.24
30 DEFGR$(7)=255,255.254,128,0,0,0,0:DEF GR$(8)=255,127,127,127,127,53 ,.31. 15:DEFG =255
128.0.0.0.0,0.0: DEFGR$( 12)=0,0,0,0,0,0,1 5.63:DEFGR$(13)=0.0,0,0,0,0,254,255 40 DEFGR$f14)=0.0.0,0,0,3,31,255:DEFGR$f 15(=0,1,15.63,255.255,255,255:DEFGR$(16) =96,240,248,252,254,255,255,159:DEFGR$(f 71=0,0.0,0,0,0,128. 192
50 DEFGR$(181=3,3.2,2.2,3,3,3:DEFGR$(191 =224,48.24,12,7.3,0,0:DEFGR$(20)=4,24,8, 0.0.0.0,0:DEFGR$121)=24 ,12,6,9 .1.0.0,0:D EFGR$(221=0.0,0,0.0.0,1,3:DEFGR.$(29)=255 .255.127.123.241,225,193.129:DEFGR(24)= 143.128.128,192,192, 192,192.224
60 DEFGR$(25)=255.255,15,1,0,0, O,0:DEFGR $1261=252.248.255.159.7,1 ,3,2:DEFG(27) =0,0.0.0,128,192.96.48: DEFGR$(28)=254.25 S.254.252.0.0.0.01DEFGR$(291=255,255.255 .255.254,252,252,252:DEFGR$(30)=207,135. 3.1.0.0,0,0
70 DEFGR$(31)=128.192,192,192,0,0,0,0:DE FGR$t 32)=0.0.0.0.0,0,0,31:DEFGR$(331=0.0 .0.0.0.0.0.240:DEFGR$(34)=0,0,0.0.0,1.31 •255:DEFGR$(35)=0.0,0,7,31,255,255,2558 FGR$(361=0.0,254.254.255.255,255,255:DE F68$1371=0.0.0,0,0.0.128,128
80 DEFGR$(38)=25,115.2.4,12.24,16.16:DEF 68$)391=32.3264.64 ,64,64,96.48:DEFGR$f4 01=96.48.24, 12.3 ,0,0.0:DEFGR$(431=0,0,0, 0.0.1.3.4:D€FGR$142)=3.7.15.127,248,240, 96.192:DEFGR$)43)=248,240.224.0.0.0,0.0: DEFGR$1441=127,31.0.0,0.0,0.0
90 DEFGR$(45)=255.255.255.12.8,24.16.48: DEFGR$t 46)=248, 248. 124, 30,6,3,1,0: DEFGP$ '4't0 .0 .0.0.0,0.128.192DEFGR$(48)=255. 254.128.0.0.0.0.0:DEFG8$(49)=131.255,255 .255.255.255.255.255:DEFGR$1501=255.255. :>55.254.252.252.248.248:DEFGR$(51)=254.3
1 .15.7.0.0.0.0
GALOP : CARACTÈRES GRAPHIQUES	1
100 DFGR$(52(=0.0.0.0,0,0,7,63:DEF[R$)5 ('=0.0.0.240.248.52252,252:DEFGR$154)= tv.4i~.32.0.@,0,0,0: DEFGR$SSS)=24 .8 .fl ,8 .0. 8.0.8: DEF 68$t56 )=6.3.0.3,1.3.3.1:DEFGR.$I 7t 120.216.240.128,0.0,0,0:DEFGR$(58 i=3 4.15.15.13.8.8.8.8
110 DEFGR$(59'=127.254,252.224.192.64•64 •48:DEFGP$t60 )=255.127.31,31,28,28,56,56 DEFGP$(611=240,224,192,128.0,0.0.0: DEFG U¢!62t=0.31.254.246.0.0 .0 .0: DEFGR$t6812 `S•12'.255.255,255.255,12?. 127: DFSP1(64
255,255,254,254.252,248,240
120 DEFGR¢)65)=207.333.1,0.0.0.0.@:DEFG8 f+65)=128.128.125.0.0,0.0.0:13€FG0$(6')=0 .0.0•@.0.0.0.224: DEFGR$+68 F=0.0.0.0.@.0. 4+.12': DEFt_R$(69)=0.0.0.1.x .32 .255,255: DE '-P$~'0=0.16.60 2'54.254.254.255.25
( (0 5$=CNP4., 32(:E)$=C11R$t 2'(;FQR 1=1 Tt3 l) ;	-P4,' HP1 , 	:NET : F)$- CHR$ s 11 1 :!-k$.-1t$+
Les lignes 20 à 130 définissent 71 caractères graphiques (le M05 et le T07/70 autorisent la définition de 128 caractères utilisateur!) que les lignes ci-après vont permettre de "souder" en images à la manière d'un puzzle :
GALOP : CRÉATION DES IMAGES
140 C3ii1=H;+~+H$+GR$[0)+GFt~i[3)+GR;t2)+ $4 b$+H8$+R$+H$+GR$(3)+88%)4)+GR$(5)+GR$ (6(4B$+8$+HR$+B$+GR$)7)+GR$(8)*N$+fer+0R$ t9)+GR$(f0)+GR$[11)+HR$+3+8$+GR$(12)+GR $1131+8R$(14)+GR%(15)+GR$116)+GR$617)
150 C$(21=8$+GR$)18)+B$+GR$(19)+5$+GR$f2 0)+GR$)21(+B$+HR$+8$+GR$(22)+GR$(231+GR$ (24)+GR$(25)+GR$)26)+GR$(27)+B$+HR$* $+G R$(28)+N$+N$+N$+GR$(29(+GR$(30)+GR$(31)+ HR$+5$+3$+GR$)32)+GR$(33)+GR$(34)+GR$(35 t+GR$(36)+GR$)37)
160 C$)31=GR$198)+B$+B$+$$+GR$(39)+ *G0 $t 481+B$+HR$+GR$I 41)+GR$1421+GR$(43)+GR$ (44)+GR$(45)+GR$(46).+GR$(47)+B$+HR$+B$+G
HR$(+B$tB$+H$~+B$+GR$i 52i$+GR$f95 )~+GR$f53~1+
18$70 C$(4)=H$+GR$f54(+GR$)55)+GR$1561+Gh$ 57)+B$+5$+6$+HR$+B$+GR$(581GR$159(+8$+ G8$(601+G8$(61 )+B$+H$+HR$+8$+GR'$f627+88$ 63 ' + N$ + N$. + ,R¢ (64) +GR$ ( 65) + GR$ (66) +) IR$$+B
$+B$+GR¢132)+GR$t67)+GR$(68)+GIR$d69I+GR$ '7@l+B$
La soudure des caractères graphiques s'effectue comme suit : on commence par concaténer les huit matrices composant le bas de l'image, puis on remonte de deux cases écran vers le haut, avant de
se déplacer de seize crans vers la gauche (variable
HR$). On recommence avec le deuxième "étage", puis le troisième, et le quatrième.
Les pièces ainsi "collées" sont affectées à une
variable chaîne indicée, ce qui rendra possible l'affichage de chacune de ces images composées au moyen d'une instruction PRINT unique. Sans ce procédé, toute animation quelque peu élaborée se révélerait impossible.
Si vous souhaitez contrôler indépendamment chacune de vos quatre images et les afficher simultanément à l'écran, ajoutez à votre programme les lignes suivantes :
GALOP : DÉCOMPOSITION DU MOUVEMENTL'animation
Il ne nous reste plus à présent qu'à passer à la phase d'animation proprement dite. Pour cela, quelques lignes de programme suffiront :
GALOP : L'ANIMATION
)hi-ion rès ère
ue lit on de )le
ne ale au ce se
180 ATTR1.:5CREN3,3
190 LOCATEI,B:PRINT'	'+C$(2):LO CATEI.8:PRINT C$)1)
200 LOCATE1,20: PRINT.	'+C$(4):L OCATE1,20:PRINTC$(3)
210 LIME(0,88)-(319.88):LIN(0.184 )-[919 .184)
220 ATTRBO,0:LOCATE0,0,0
180. ATTRB1,1:5CREEN7,4,0 190 BOXF(0,152)-(319,199).2 200 FOR R=1 TO 100
210 FOR I=1 TO 4
220	LOCATE1,16,0:PRINT	+C$(I)
230	FOR P=1 TO 2:NEXT P
240	NEXT I.
250 NEXT R.
260 END
Les motifs son affichés en double hauteur, double largeur (ATTRB 1,1), ce qui nuit peut-être à la définition de l'image mais en améliore la lisibilité. On affiche tout d'abord le cheval n°2 en le faisant précéder d'une série de dix espaces. Avec ces matrices, en effet, l'instruction LOCATE se révèle inopérante, du moins pour ce qui est de la position horizontale. Le cheval n°4 est pareillement affiché. Les lignes tracées grâce à la ligne 230 matérialisent le sol, ce qui nous permet de constater qu'à un moment donné, aucun des sabots du cheval ne touche terre.
Ces images ont été dessinées à partir des photos réalisées à la fin du siècle dernier par le photographe Edweard Muybridge qui fut le premier à prouver ce phénomène. Le contour de chacun des chevaux a été décalqué puis reporté sur une feuille de papier millimétré avant d'être converti en matrices de points.
Le corps du programme est constitué de trois boucles imbriquées. La boucle d'animation est située entre les lignes 210 et 240. Remarquez que rien n'est prévu pour effacer l'image du cheval avant l'affichage de l'image suivante. Ceci est dû au fait que le cheval reste fixe à l'écran, un peu comme s'il était suivi par un cameraman. Chaque image vient donc effacer la précédente. La boucle de temporisation est réduite, mais vous pouvez l'augmenter si vous souhaitez une animation plus lente :
Notre programme s'arrête là, mais il vous reste encore un vaste domaine à explorer. Vous pouvez
aar ?_, simulation
d'autres mouvements complexes tels que la marche, le vol des oiseaux ou, pourquoi pas, les autres allures du cheval que sont le pas et le trot.
A vos matrices!
1 58
LE CRAYON OPTIQUE
Disponible en option sur le M05, le crayon optique constitue un prolongement de votre main et vous permet de ' «dialoguer» directement avec l'ordinateur, sans passer par le clavier. Loin d'être un simple «gadget », il offre de multiples possibilités d'utilisation, comme vous allez pouvoir en juger par vous même au cours de ces pages.
Réglage du crayon
Le crayon optique est un petit instrument en forme de stylo qui capte un point lumineux et le traduit en coordonnées qui sont traitées par l'ordinateur. Avant d'utiliser votre crayon optique, il convient de le régler. Pour cela, il vous suffit de taper en mode direct la commande TUNE. Votre écran vire aussitôt au noir, à l'exception d'un petit trait vertical placé en son centre. Appuyez la pointe de votre crayon sur ce trait. C'est tout!
Le crayon optique et les jeux
Le crayon optique trouve l'une de ses principales utilisations dans les jeux. Voici par exemple une version informatisée du jeu de « cache-tampon ». Recopiez ce programme, puis lisez les explications le concernant avant d'en lancer l'exécution :
CACHE-TAMPON : PROGRAMME
10 CL5:5CREEN 4,3,3
28 PRINT TAB(3) 'PRE55EZ UNE TOUCHE POUR COMMENCER'
30 IF INKE7$=' THEN X=RND: GOTO 30
40 CLS:PRINT TAS(8) 'RETROUVEZ DANS CE C ADRE :PRINT TAS(6) "LE CARRE TIRE PAR LA MACHINE'
50 50X139.39)-1280,176),0
60 A=INT(RND1[29+5):B=I NT(RNDlr17+5)
70 INPUTPEN X,Y:IF X(0 OR Y(0 THEN 70
80 IF X(40 OR X>280 OR 7(39 OR Y>176 THE N PLAY °DOMI":LOCATE 14,23: PRINT"HORS CA DRE':GOTO 70
90 X=X/B:Y=Y/B:IF PTRIG THEN PLAY 'LA' 100 DIF=SQR( (A-X).(A-X)+(5-Y)i(B-Y))
110 IF DIF(2 THEN LOCATE X.Y:PRINT CHR$( 127):LOCATE 17, 20:PRINT'GAGNE'"::END
120 IF	'(I
DIF )2 AND DIF(=4 '(EN LOCATE. 16.
23:PRINT 58RULA NT' :LOTO 70
130 IF DIF )4 AND DIF(=6 THEN LOCATE 17, 23:PRINT 'CHAUD' :8070 70
140 LOCATE 14,23:PRINT°	':GOTO 70
Le but du jeu consiste à retrouver un objet (en l'occurence une case écran) caché par l'ordinateur. Pour cela, vous appuyez votre crayon à l'intérieur d'un cadre matérialisé par un rectangle bordé de noir. L'ordinateur vous aidera à localiser «l'objet», au moyen des messages « CHAUD », « TRÈS CHAUD », et «BRULANT» selon que vous en êtes plus ou moins rapproché.
Le décor est dressé aux lignes 40 et 50. A la ligne 60, l'ordinateur tire au hasard deux nombres. Ils serviront de coordonnées à la case écran qu'il vous faudra retrouver. La première instruction en
rapport avec le crayon optique se trouve en ligne 70. INPUT PEN se comporte de manière analogue à INPUT ou LINE INPUT. Le programme s'interrompt dans l'attente d'une «réponse» de votre part. Celle-ci sera matérialisée par une pression de la pointe du crayon optique sur la surface de l'écran. Le test qui fait suite à l'instruction INPUT PEN contrôle la validité de votre réponse. Les variables X et Y prennent en effet la valeur — 1 (donc < 0) si la luminosité de votre écran est insuffisante, ou si vous pointez votre crayon sur une surface rouge ou noire (ces deux couleurs ne laissent pas passer suffisamment de lumière). La ligne 80 vérifie que vous avez pointé votre stylo à l'intérieur du cadre. Si vous appuyez votre crayon en dehors des limites du rectangle, l'ordinateur vous rappelle à l'ordre par l'émission de deux notes (DO et MI) et l'affichage du message «HORS CADRE». La ligne 90 transforme les coordonnées graphiques X et Y en valeurs compatibles avec la page texte. La fonction PTRIG retourne la valeur « VRAI » si la pointe du crayon est enfoncée. Pour que votre réponse soit validée, vous devez donc pointer dans le rectangle et appuyer la pointe de votre crayon sur le verre de l'écran. L'enregistrement de votre réponse est signalé par la note LA. La ligne 100 calcule la différence existant entre les coordonnées de la case écran que vous avez pointée, et celles de la matrice test choisie aléatoirement en début de partie par l'ordinateur. Si cette différence est inférieure à 2, vous avez gagné (ligne 110), sinon le M05 vous guide à l'aide des messages précédemment cités :
CACHE-TAMPON : AFFICHAGE

Le crayon optique et les menus
Le crayon optique peut rendre un programme plus «convivial» en supprimant toute intervention au clavier :
1 59
4
;~4}r c	}:xr
r. !	I l:j }t~:
•(iel
1MENU : PROGRAMME	1
10 CL5
20 ATTRBI.1:SCREENO.15,15
30 LOCATE 15.4:PRINT °MENU
40 ATTRBO.0:COLOR 4,15
50 BOXF(64,64)-(71.711,7
60 LOCATE 10,8:PRINT °RECTANGLE°
70 BOXF(64,88)-(71,95).7
80 LOCATE 10 11:PRI NT °TRIANGLE°
90 BOXF(64.112)-(71.119),7
100 LOCATE 10,14:PRI NTTERMINER°
110 LOCATE7a18:PRINT 'Utilisez le crayon Optique-
120 INPUTPEN X.Y
130 IF (X>=56 AND X<=63) AND (Y>=64 AND Y<=71) AND PTRIG THEN C=1
140 IF (X>=56 AND X(=631 AND (Y)=88 AND Y<=95) AND PTRIG THEN C=2
150 IF (X>=56 AND X<=63) AND (Y>=112 AND Y(=119) AND PTRIG THEN C=3
160 CLS
170 ON C GOSUB 200,300,190
180 GOTO 10
190 END
200 50X(40.40)-(280.160),4
210 FOR I=1 TO 1000:NEX
220 PET URN'
300 LINE(160.0)-(0.199)
310 LINE-(319.199):LINE-(160.0)
320 RETURN10 CL5:5CREEN0,7.1
20 BOXF(0.0)-(319.231.1
30 BOXF0.160)-(319.1991.1
40 COLOR 0.S:LOCATE 1.21:PRINT °Encré° 50 LOCATE 1.23:PRINT °Fond°:LOCATE 32.23 :PRINT °CLS"
60 CT=2
70 FOR I=64 TO 288 STEP 32
80 5OX(I-1.167)-fI+16,176).-1
90 BOXF(I.168)-(I+15.175>.CT
100 CT=CT+1
110 NEXT I
120 CT=2
130 FOR L=64 TO 224 5TEP 32
140 BOX (I-1.1$31-(I+16.192).-1
150 BOXF(I.184)->)+15.191>,CT
160 CT=CT+1
170 NEXT I
180 BOX(295.183)-(304.1921,-1:BOXF(296,1 841-(303.1911.7
190 ATT RE 0,1:LOCATE 4.1:PRINT-DE55INER AVEC LE CRAYON OPTIQUE°
200 CONSOLE 3,19
avec un choix de plusieurs couleurs d'encre et de
fond. Dans le bas de l'écran, des petits rectangles
colorés vous indiquent les encres et les fonds
dont vous disposez (70-170). Un dernier rectangle (ligne 190), vous permettra d'effacer votre dessin. La gestion du crayon optique est assurée par les lignes 210 à 350.
PALETTE : PROGRAMME	l
210 INPUTPEN X.Y: IF X<0 OR Y<0 THEN 210
220 IF Y<152 AND Y>=24 THEN PSET(X,Y) 230 INPUTPEN X.Y:IF X<0 OR Y<0 THEN 230 240 IF Y<152 THEN LI NE-(X.Y):GOTO 230 250 CT=2
260 FOR I= 64 TO 288 STEP 32
270 IF (X)=I AND X<=I+15) AND (Y)=168 AND Y<=175) AND PTRIG THEN PLAY -DO(1I50" :COLOR CT:GOTO 210
280	CT=CT+1
290 NEXT I
300 CT =2
310 FOR I= 64 TO 224 STEP 32
320 IF (X)=I AND X<=I+15) AND (Y>=184 AND Y<=191) AND PTRIG THEN PLAY °DOMI50' :SCREEN.CT:GOTO 210
330	CT=CT+1
340 NEXT I
350 IF (X)=296 AND X<= 303) AND (Y>=184 AND Y<=191) AND PTRIG THEN PLAY °DOMI50" :CL5:GOTO 210
360 END
Dans ce menu, accessible même à un très jeune enfant, l'ordinateur propose à l'utilisateur plusieurs options. On peut afficher un rectangle, un triangle, ou encore sortir du programme. Le choix s'effectue par simple pointage d'un carré de couleur blanche à l'aide du crayon optique. Les carrés blancs sont dessinés par les lignes 50, 70 et 90, et remplacent les habituels chiffres 1, 2, 3... On retrouve en ligne 120 l'instruction INPUT PEN, ainsi que le premier test de validité de la réponse. Les tests des lignes 130 à 150 vérifient quelle partie de l'écran a été pointée, en examinant successivement les différentes valeurs que peuvent prendre X et Y. Si X est compris entre 56 et 63, et Y entre 64 et 71 (coordonnées du premier carré), la variable C prend la valeur 1, et le
programme se branche en 200 pour le tracé d'un
rectangle. Si la partie de l'écran pointée par l'utilisateur ne correspond à aucun carré, le programme retourne en ligne 120.
Dessiner avec le crayon optique
Pour terminer ce tour d'horizon rapide des possibilités du crayon optique, voici un programme qui vous permettra de dessiner ou d'écrire sur votre écran,
EZ

__	31
trouve un programme autre que celui demandé, il ne le chargera pas en mémoire mais vous signalera ,a présence comme suit :
CHARGEMENT ÉCRAN 1
LOADESSAI`
Searching
Skip: PROG2	BAS
Search ing
«Skip» signifie «sauter ». Quant à BAS, c'est l'abréviation du mot BASIC. Bien qu'ignorant le programme, le M05 tient à vous signaler qu'il existe et qu'il s'agit d'un programme écrit en BASIC. Lorsque l'amorce du programme d'essai atteint la tête de lecture, l'affichage se change en :
CHARGEMENT ÉCRAN 2
LOADESSAI~
Searching
Skip: PROG2	BAS Search ing
Fouad: E55AI.	BAS OK.
Ce message signifie que le M05 vient de trouver votre programme et qu'il est occupé à le charger en mémoire.
Cette opération terminée, le message OK réapparaît et le magnétophone s'arrête. Pour vous assurer que le programme « ESSAI » se trouve de nouveau en mémoire, tapez LIST ou RUN.
Autres possibilités
Si vous avez oublié de noter le nom d'un programme, vous pouvez toujours le recharger en
tapant
LOAD
L'ordinateur chargera alors le premier programme rencontré. Vous pouvez également, si vous avez égaré la jaquette d'une de vos cassettes, retrouver les noms des programmes qui y sont enregistrés en commandant par exemple
LOAD "ZZZ"
Vous pouvez choisir un autre nom à condition, toutefois, que vous soyez sûr de n'avoir aucun programme déjà nommé ainsi.
Si vous avez pris soin de rembobiner complètement votre bande, l'ordinateur va lire tous les pro-
grammes de la cassette les uns après les autres, à
la recherche d'un programme inexistant. Il ne vous restera plus alors qu'à noter leur titre à mesure de leur apparition à l'écran.
La commande SKIPF, utilisée de la même manière que LOAD, vous permet de «sauter» le programme spécifié, ou le premier programme rencontré, ou encore tous les programmes d'une cassette, et de positionner la bande juste après la fin du dernier enregistrement. Vous êtes ainsi assuré de ne pas effacer ce qui précède.
Si vous souhaitez lancer automatiquement l'exécution d'un programme, utilisez :
LOAD `NOM DE PROGRAMME", R
Notez, pour clore ce tour d'horizon des possibilités du lecteur de programme, que les commandes SAVE et LOAD peuvent être incluses dans un programme, comme on le voit sur la photo ci-dessous
LOAD DANS UN PROGRAMME
10. REM LOAD DANS UN PROGRAMME
20 LOCATE 13.14
30 PRINT PREMIEREPARTIE'
40 PRI-NT TAB1131'',########lE#i#
50 LOCATE 10.17
60 PRINT ;La Suite Ce ce programme'
70 PRINT TABL 101 'va etre chargée dans
un'
80 PRINT TAS) 10) court instant.,
90 LOAD 'SUST E'
RUN
PREMIERE PARTIE
##.i iÉ 31F#.###1##.#a
La suite de ce programme Va etre chargée dans un court instant.
OK
LIST 10
10 REM SUITE DU PROGRAMME
OK
Lorsque le programme sera parvenu en ligne 90, l'ordinateur lancera automatiquement le chargement et l'exécution du programme « SUITE », effaçant par la même occasion le programme courant. Ces opérations ne seront possibles que si vous avez pris la précaution d'enregistrer les deux programmes à la suite, ou de rembobiner la bande.
LES BOUCLES
L'homme se lasse vite des tâches répétitives où l'automatisme des mouvements a tôt fait de prendre le pas sur l'esprit. L'ordinateur, par contre, raffole de tout ce qui est répétition, et excelle dans ce domaine.
Les boucles GOTO
Prenons un exemple concret. Supposons que vous souhaitiez afficher à l'écran les cent premiers nombres entiers. Vous pourriez, par exemple, taper un programme de ce type
10 PRINT 1 20 PRINT 2 30 PRINT 3
1000 PRINT 100
Ce serait encore pire que d'effectuer l'opération à la main! Heureusement, il existe une méthode plus rapide et beaucoup moins fatigante, qui vous permet d'arriver à un résultat identique en quatre lignes seulement. Pour le vérifier, entrez au clavier le programme suivant :
BOUCLE GOTO : PROGRAMME
10 A=1
20 PRINT A 30 A=A+1
40 GOTO 20
Dès que vous aurez écrit ces lignes, frappez RuN suivi de ENTRÉE . Votre écran se couvre aussitôt de nombres qui défilent sous vos yeux à grande vitesse. En quelques secondes vous voyez passer 100, puis 200, 300, etc. Pour arrêter cette débauche de nombres, vous pouvez toujours débrancher votre ordinateur, mais, par la même occasion, vous perdrez votre programme.
La seconde solution, plus élégante, consiste à enfoncer la touche STOP 1, en haut et à gauche sur votre clavier. Le défilement infernal prend aussitôt fin. Temporairement, du moins, car si vous effleurez la moindre touche, l'ordinateur recommence de plus belle.
Pour vous en sortir, il ne vous reste plus qu'à
enfoncer la touche marquée CNT J (placée juste sous STOP) et, sans relâcher votre pression, à appuyer sure © :
INTERRUPTION PAR CNT-C
362
363
364
365
366
367
364.
370
371
372
373
374
375
376
377
378
379
380
381
382
Break in 20 OK
Le message «Break in 20» vous avertit que le programme a été interrompu en ligne 20. Si vous n'êtes toujours pas rassasié de nombres, pressez les touches BAJ et Co^vT . Le programme reprend, CONTinue, a partir de l'endroit où il avait été stoppé.
Profitons de l'interruption de notre programme pour en examiner le contenu. Nettoyez l'écran ar une pression sur la touche RAZ , puis tapez uST . En ligne 10, on affecte à la variable numérique A une valeur initiale de 1. On dit que l'on initialise à 1 la variable A. On demande ensuite à l'ordinateur d'afficher cette valeur à l'aide d'une instruction PRINT (ligne 20).
Cela fait, on augmente de 1 la valeur de A, puis on ordonne au programme de retourner à la ligne 20 par l'intermédiaire d'une commande GOTO. GOTO 20 pourrait se traduire par «Va te brancher à la ligne 20». Cette commande crée une «boucle» qui permet de répéter une action un nombre de fois indéterminé.
Lors de son second passage dans la boucle, l'ordinateur affiche la nouvelle valeur de A, soit 2, puis la variable est de nouveau « incrémentée » (augmentée) de 1. Le processus se répète jusqu'à ce que vous recouriez à[ççj ou que le M05 atteigne sa valeur maximale de 1038 (un 1 suivi de 38 zéros).
Les boucles FOR... NEXT
La commande GOTO crée une boucle « infinie » dont il est malaisé de s'extirper. De plus, le nombre des répétitions est incontrôlable, ce qui se révèle peu pratique. Ce qu'il faudrait, en fait, c'est une boucle qui puisse s'interrompre d'elle-même aussitôt qu'elle atteint une valeur limite préalablement fixée. Dans
331
)US
ier
notre exemple, nous voulions afficher les cent premiers nombres entiers en partant d'une valeur initiale de 1.
Pour y parvenir, commencez par effacer le programme précédent au moyen de NEW, puis entrez les lignes suivantes :
Vous remarquez tout de suite que ce programme est plus court d'une ligne. De plus, il contient bien les deux bornes que nous nous étions fixées, à savoir 1 et 100. La commande FOR I = 1 TO 100 signifie en effet que nous allons répéter l'action placée entre le FOR et le NEXT jusqu'à ce que la variable «compteur» I soit égale à 100.
Pour le vérifier, exécutez ce programme en tapant
RUN
BOUCLE FOR... NEXT : AFFICHAGE
78
79
80 8a
82
83
84 8s
86
87 es
89
90
91
92
93
94
95
96
98
99
100
OKRalentir une boucle
Vous trouvez peut-être que les nombres défilent trop rapidement à l'écran et qu'il est difficile de les lire. Certains ordinateurs possèdent une instruction PAUSE ou WAIT qui interrompt le déroulement d'un programme pendant une période de temps plus ou moins brève. Bien que le M05 ne dispose d'aucune commande similaire, il est néanmoins possible d'obtenir le même effet au moyen d'une boucle vide. Insérez les lignes suivantes dans le programme précédent, puis exécutez-le à nouveau :
25 FOR J = 1 TO 500
26 NEXT J
Comme vous pouvez le constater, l'affichage des nombres est désormais beaucoup plus lent. Le M05 boucle à vide 500 fois de suite, ce qui lui demande un certain temps et crée ainsi une temporisation suffisante. Celle-ci peut être rallongée ou raccourcie par simple augmentation ou diminution de la valeur finale de J.
Boucles imbriquées
Listez votre programme augmenté de ces deux lignes. Vous remarquerez que votre boucle vide se trouve placée entre le FOR et le NEXT de la boucle d'affichage. On dit que les deux boucles sont «imbriquées ». Vous pouvez « emboîter » ainsi plusieurs boucles, à l'instar des poupées gigognes, à condition d'employer des variables compteur différentes (I et J) et d'utiliser autant de FOR que de NEXT, faute de quoi un message d'erreur de code 1 (NEXT sans FOR) ou 23 (FOR sans NEXT) viendra interrompre votre programme. Chaque NEXT doit être obligatoirement associé à un FOR et réciproquement. Pour éviter toute erreur, inscrivez le début et la fin de chacune de vos boucles sur une feuille de papier puis, à l'aide d'un crayon, reliez chaque FOR au NEXT correspondant. Si aucune de vos boucles ne se chevauche, votre programme a toutes les chances de bien fonctionner. Le programme qui suit illustre ce procédé. Vous découvrirez les 4 096 combinaisons couleur du M05.
M05 : PROGRAMME

10 CL5
20 FOR BORD=O TO 15
30 FOR FEUILLE=O TO 15 40	FOR ENCRE=O TO 15
50.	SCREEN ENCRE,FEUILLE.BORD
60	ATTRBI.1
70	LOCATE6.11.0
80	PRINT5JE SUI5 LE M05-
90.	FOR PAUSE=1 TO 200
100	NEXT PAUSE
.130	NEXT ENCRE 120 NEXT' FEUILLE 130 NEXT BORD
140 ATTRB0.0
350 END
rotes ies Ti-
)ur ne En ine
à 1a-on
on 20 '0. ier .e » de
iaais 3n-
)Us
!ur
)nt les peu ,le lle .ns
Tout de déroule comme nous l'avions souhaité. Le programme s'interrompt de lui-même dès que I vaut 100. Autre constatation importante, le passage d'une valeur de I à la suivante (NEXT) se fait automatiquement.
Vous savez écrire en majuscules et en minuscules accentuées. Vous avez la possibilité d'utiliser des encres et des fonds de couleurs différentes. Vous êtes capable de centrer un mot ou un titre au milieu de l'écran ou, plus simplement, au milieu d'une ligne. Pourtant, vous n'êtes pas encore satisfait. Vous voudriez sans doute être à même d'agencer votre écran de manière plus professionnelle, avec des gros titres en couleurs, des manchettes couvrant la largeur de l'écran. Si vous êtes dans ce cas, ce chapitre vous est spécialement destiné.
Des caractères de toutes les tailles
Le M05 dispose de plusieurs tailles de caractères, toutes mises en place par la commande ATTRB suivie de deux chiffres (0 ou 1) séparés par une vir-
gule.
A la mise sous tension, l'ordinateur se trouve en mode d'affichage normal, ce qui correspond à la commande :
ATTRB 0,0
Si vous voulez étaler vos caractères en largeur, tapez tout simplement :
Remarquez également que le message de fin d'exécution apparaît lui aussi en double largeur. Vous pouvez y remédier en rajoutant en fin de programme la ligne :
ATTRB 1 ,0	ATTRB 0,0
A titre d'exemple, entrez puis exécutez le programme suivant :
I	TAILLES DIVERSES : PROGRAMME	I
10 CLS
20 SCREEN0.1.1
30 ATTR81.0
40 LOCATE2.9
50 PRINT:LES ECRANS DU MO5' 60 PRINT---------------------
70 PRINT	Apprenez le BASIC 80 PRINTTAB(5)~ en IMAGES' 90 END
ON
Le titre affiché (ligne 50), bien que ne comportant
que 17 caractères — espaces inclus — occupera la
presque totalité de l'écran.
Cela vient tout simplement du fait qu'en doublant la largeur de vos lettres vous diminuez de moitié le nombre de colonnes utilisables. De 40 colonnes en mode normal, vous passez à 20 en mode double-largeur. Vous pouvez aisément le vérifier en comptant le nombre de tirets soulignant la phrase LES ÉCRANS DU M05.
Double hauteur
Si la double largeur ne vous convient pas, essayez
donc la double hauteur. Il vous suffit de modifier comme suit le programme précédent, en ajoutant la ligne :
30 ATTRB 0,1
Après exécution, vous devriez voir apparaître un affichage identique à celui ci-dessous :
I
5
Votre phrase n'est plus centrée, car vous êtes revenu en simple largeur (40 colonnes). Par contre, vous ne disposez plus désormais que de 12 lignes, chacune de vos lettres occupant deux lignes en hauteur.
Double hauteur, double largeur
Comme vous vous en doutiez, il est possible de multiplier par quatre la taille initiale de vos caractères en recourant à la commande ATTRB 1,1. Toujours à partir du même programme, apportez une légère retouche à la ligne suivante :
:30 ATTRB 1,1
puis refaites un RUN
Le message de fin d'exécution qui apparaît en taille normale grâce à la commande ATTRB 0,0, permet de mieux apprécier la différence d'écriture.
Précautions d'emploi
Lorsque vous utilisez le mode double hauteur ou double largeur, gardez à l'esprit que le curseur se trouve placé en bas à gauche du caractère affiché. C'est pourquoi il convient d'éviter la commande LOCATE 1,1 lorsque vous vous trouvez en mode double-hauteur, sous peine de ne plus voir que l'extrémité inférieure de votre message.
Notez aussi que, pour les commandes LOCATE et TAB, l'écran reste divisé virtuellement en 25 lignes de 40 colonnes, même si le mode double largeur est alors en place.
Mise en page
Voici un programme qui fait apparaître les quatre tailles de caractères au sein d'une même page écran — en l'occurrence la première page d'un hebdomadaire imaginaire :
MISE EN PAGE : PROGRAMME
10 CLS:SCREEN 1 J,.0:ATTRB 1.1
20 LOCATE 8,2:PRINT HICRO-ECHOS':PRHT 30 PRINT-====—====r_-------~
40 COLORO:ATTRB 0.0
50 LOCATE 18.4:PRINT ' le 24 décembre t90 4'
60 ATTRB 1.0:COLOR 4
70 LOCATE 1,8:PRINT 'LE 11O5 E5T ARRIVE
80 COLOR O:ATTRB 0,1
90 LOCATE 3.12:PRINT 'UN ARTICLE DE NOTR E GRAND REPORTER,
100 PRINT TAB(3) °ALEX PENSION'
110 ATTRB 0,0
120 FOR I= 1 TO 7
130 PRINT TAB(8) ----------------------
140 NEXT I
150 LOCATE 0,0.0:COLOR 7,7 160 END
ATTRB 0,0	ATTRB 1,U
Tapez Li1, et vous obtiendrez alors l'affichage ci-dessous :
MISE EN PAGE : AFFICHAGE
MI CRIO- EC`HO5
le 24 tlécembre i984
UN ARTICLE DE NOTRE GRAND REPORTER ALEX PENSION
ATTRB 0,1	ATTRB 1,1

Vous n'avez fait jusqu'ici que recopier quelques pro-	
		SAISIE PAR INPUT : AFFICHAGE	
grammes et assister passivement à leur déroule-			
	
ment. Quel que soit le nombre d'instructions RUN	
que vous ayez utilisées, ces programmes se sont tou-	
jours exécutés de la même manière, sans variation	
aucune. De tels programmes, tout en fonctionnant	ENTREZ VOTRE PRENOM
	' DANIEL
correctement, n'exploitent pas toutes les possibilités	
de l'ordinateur, et négligent complètement son apti-	
tude à la «conversation ». L'ordinateur peut en effet	BONJOUR DANIEL
s'adapter rapidement aux changements de situations	OK	COMMANDEZ ET J'OBEI RAI
les plus divers, et y «répondre» immédiatement,	
grâce à ses prodigieux talents de calculateur. Dans	
un jeu, par exemple, un joueur doit fréquemment	
donner à la machine de nouvelles instructions, en	
cours de partie, pour faire face à une situation en	
perpétuelle évolution.	
Cette possibilité d'introduire certaines informations	
dans un programme, sans pour autant en interrom-	
pre le déroulement, donne naissance à une sorte	
de «dialogue» entre l'homme et la machine. L'être	Dans notre exemple, le déroulement du programme
de chair et d'os «parle» à la chose électronique au	est suspendu en ligne 30.
moyen d'un clavier et reçoit les réponses de son	Votre prénom est alloué à la variable chaîne P$
interlocuteur de métal ou de plastique via l'écran	(ligne 40), elle-même ré-employée quelques lignes
de visualisation,	plus bas pour l'affichage du message de salutation de
	votre dévoué serviteur. La variable P$ placée après
L'instruction INPUT	l'instruction INPUT spécifie que la réponse attendue
Pour être «entendu» de votre ordinateur, vous allez	est de type chaîne. Si vous répondez par un nombre,
devoir introduire dans sa mémoire certaines don-	le message « ?Redo » (Recommencez) vous rappellera
nées. Ce passage d'informations s'effectuera par le	à l'ordre.
biais de l'instruction INPUT (touches	BASIC	et)	INPUT permet à la fois d'afficher la question et de
comme vous le montre le programme suivant :	saisir la réponse, ainsi que vous le prouve cette ver-
	sion remaniée du programme précédent
	SAISIE PAR INPUT : PROGRAMME		
			
			QUESTION ET RÉPONSE	
				
	10 CLS			
	20 PRINT			
	30 PRINT 'ENTREZ VOTRE PRENOM			
	40 INPUT P$		10 CLS	
	50 LOCATE 14.8		20 PRINT	
	60 PRINT'BONJOUR ',P$		30 INPUT 'ENTREZ VOTRE PRENOM ':P$	
	70 LOCATE 10.10		40 CLS	
	80 PRINT	COMMANDEZ ET J•OBEIRAI		50 LOCATE 14.8	
	90 END		60 PRINT 'BONJOUR ',P$	
	OK		70 LOCATE 10.10	
			80 PRINT	COMHANDEZ ET J'OBEIRAI'	
			90 END	
Après vous avoir demandé d'entrer votre prénom,		
	
l'ordinateur attendra patiemment — plusieurs heu-	
res si nécessaire — que vous tapiez et validiez votre	Notez que ce programme est plus court que le pré-
réponse. Celle-ci est alors affectée à une variable	cédent.	Votre	réponse est entrée	en regard du
(numérique si la réponse attendue est un nombre,	libellé	de	la	question.	Pour	faire	disparaître	le
chaîne si c'est un ou plusieurs mots), qui est con-	point d'interrogation, remplacez le point-virgule de
servée en mémoire et sera éventuellement réutilisée,	la ligne 30 par une virgule.

37
INPUT et les boucles
L'instruction INPUT peut également être placée au )coin d'une boucle, pour collecter des informations d1 type numérique ou chaîne, à chaque passage
ris celle-ci. Le renseignement saisi permet, dans l'exemple qui suit, d'effectuer une conversion avant affichage d'un résultat.
Si vous avez eu l'occasion de fréquenter le monde de l'aviation, ou encore de vous essayer à la simulotion de vol sur ordinateur, vous aurez certainement remarqué que l'altitude d'un avion est toujours exprimée en pieds (feet). Sachant qu'un pied britannique équivaut à 0.3048 de nos mètres, voici un court programme qui réalisera à votre place la traduction en mètres des indications de votre altimètre.
BOUCLE AVEC INPUT: PROGRAMME	1viendrait automatiquement effacer la précédente. Dans la mesure du possible, veillez à employer des noms de variables rappelant le contenu de ces dernières (P$ pour Prénom, N$ pour Nom, etc.).
INPUT A RÉPÉTITION
10 CLS
20 PRINT
30 INPUT'ENTREZ VOTRE NOM	';N$ 40 PRINT
50 INPUT'ENTREZ VOTRE PRENOM ';P$ 60 PRINT
70 INPUT'DATE DE NAISSANCE	';D$ 80 PRINT
90 INPUT'LIEU DE NAISSANCE	-;L$ 100 CLS
e
$
s

10 CLS.
20 SCREEN0.7,7 30 FOR I1 TO 5 40 CLS
50LOCATE 9.4
60 INPUT'ALTITUD£ EN PIEDS ':A
70 LOCATE 9,10
80 PRINT -ICI L'ORDINATEUR DE BORD'
90 LOCATE 7,14
100 PRINT~VOUS VOLEZ A UNE ALTITUDE DE,
110 LOCATE 1018
120 PRINT A1E0.3048; METRES-
130 FOR J=1 TO 2500
140 NEXT J
150 NEXT I
160 END
Le programme vous invite à entrer une altitude en pieds (ligne 60). La valeur introduite est rangée dans la variable A et réutilisée lors de la conversion en ligne 120. La boucle FOR... NEXT des lignes 30 à 150 autorise l'introduction de cinq valeurs différentes (plus si vous changez la valeur limite de I). Une boucle vide (lignes 130-140) crée une temporisation suffisante pour que vous puissiez lire le résultat de la conversion de pieds en mètres avant l'effacement de l'écran.
Demande de renseignements multiples Lorsque vous désirez faire établir ou renouveler une carte d'identité, il vous faut répondre à un certain nombre de questions et remplir différentes rubriques d'un formulaire. Nous vous proposons ici un programme réalisant une demande similaire de renseignements, par l'intermédiaire d'instructions INPUT successives. Vous aurez droit, en plus, à l'établissement immédiat de votre carte d'identité. les lignes 20 à 90 rassemblent les différentes données nécessaires à l'impression de vos papiers. Remarquez que les noms des variables utilisées dans les quatre lignes INPUT sont tous différents. Si tel n'était pas le cas, chaque nouvelle donnée entrée
110 SCREENO,3,3 120 ATTRBI.1 130 LOCATE2.2
140 PRINT~CARTE D•IDENTITE1
150 PRINTTAB(1)-----------------°
160 ATTRB0.1170 LOCATE2.6
180 PRINTiNOM';TAB(18)N$
190 LOCATE2,9
200 PRINT _PRENOM':TAB(16)P$
210 LOCATE2,12
220 PRINT~Né(e) 1e-,TAB(18)D$
230 LOCATE2.15
240 PRINT A,; TAB(18)L$
250 LOCATE2.18
260 PRINT~signes particuliers-
270 LOCATE2.21
280 PRINT~POSSEDE UN 'M05'-
290 ATTRB0.0 300 END
38 1.
DES POINTS ET DES TRAITS
Les ordinateurs actuels savent pratiquement tout faire. Ils se sentent aussi à l'aise dans la manipulation de chiffres et de chaînes de caractères que dans la production de sons ou la création d'images très détaillées. Le M05 n'a rien à envier à ses concurrents dans ce domaine, et vous allez découvrir au fil des pages qui suivent qu'il pourrait porter le titre d'« ordinateur peintre ».
Vous vous rappelez sans doute que votre écran se divise en 25 lignes de 40 colonnes chacune. Bien que l'on puisse faire tenir quelque 1000 caractères sur une seule page écran, cela paraît dérisoire pour un dessin d'une quelconque précision.
Regardez attentivement les caractères affichés à l'écran. Vous remarquerez qu'ils sont composés d'une multitude de points. En fait, chaque symbole tient dans une case de 8 X 8 points. Si l'on considère que chacune des 1 000 cases de votre écran renferme 8 X 8 = 64 points, on peut en déduire que l'image que vous avez sous les yeux est formée de 64 X 1 000 = 64 000 points. C'est déjà beaucoup plus intéressant.
Cela le serait encore davantage s'il était possible d'accéder individuellement à tous ces points. Jusqu'à présent, en effet, chaque fois que vous frappiez une touche au clavier, vous allumiez à l'écran une cellule de 64 points.
Désormais, grâce à l'instruction PSET, vous allez pouvoir allumer, non pas une grille de points, mais un point particulier de cette matrice. Pour le vérifier, tapez la touche RAZ , puis entrez les lignes suivantes en mode direct :
SCREEN 4, 6, 6
PSET (160,100) ______ Si vous avez pris soin d'enfoncer la touche ENTRÉE vous avez dû voir apparaître, en plein centre de votre écran, un minuscule point bleu.
Bien que peu spectaculaire, ce point unique nécessite quelques éclaircissements. Si chacune des 40 colonnes de l'écran est composée de huit points, nous disposons par conséquent de 40 X 8 = 320 points dans l'axe horizontal de notre image et, de la même manière, de 25 X 8 = 200 points dans son axe vertical. Sachant qu'un point est déterminé par l'intersection de ses positions horizontale (abscisse) et verticale (ordonnée), le point de coordonnées 160,100 (abscisse d'abord, ordonnée ensuite) représente bien le centre de votre «page». Essayez d'imaginer une feuille à dessin — ou mieux encore une feuille de papier millimétré — constituée de 320 points dans l'axe des abscisses et de 200 points dans l'axe des ordonnées. Ces points sont respectivement numérotés. de 0 à 319 et de 0 à 199. Le point de coordonnées 0,0 est situé dans le coin supérieur gauche de votre écran.
Pour mieux appréhender ce nouveau découpage de votre écran, reportez-vous au chapitre « MATRI-
CES ET GRILLES GRAPHIQUES », à la fin de cet ouvrage. Vous y trouverez une grille qui vous permettra de déterminer les valeurs à employer dans vos instructions.
Sans effacer votre écran, tapez maintenant
PSET (200,100),0
suivi de ENTRÉE
Un second point — de couleur noire cette fois - s'affiche à la droite du premier. Le troisième paramètre de l'instruction PSET désigne la couleur du point. S'il est omis, le point est dessiné dans la couleur courante.
Un point c'est bien; deux c'est mieux, mais c'est encore peu. Essayons maintenant de tracer une ligne.
Tracé d'une ligne
Une ligne n'étant rien d'autre qu'une succession de points, on pourrait envisager de recourir à une boucle FOR... NEXT pour en effectuer le tracé. Entrez au clavier les lignes du programme ci-dessous, puis tapez. RuN
TRACÉ DE LIGNES AVEC PSET
10 CLS:SCREEN 4,6,6
20 REM HORIZONTALE
30 T=100
40 FOR X=0 TO 319
50 PSET(X.Y),4
60 NEXTX
70 REM VERTICALE
80 X=160
90 FOR Y=0 TO '199
100 PSET(X,Y).0
110 NEXT 120 END
Le programme trace une ligne horizontale bleue coupée d'un trait vertical de couleur orange. Les lignes 30 à 50 créent l'horizontale, tandis que le trait vertical est dessiné par la boucle des lignes 70 et suivantes.
Pour tirer une droite horizontale, il suffit de modifier l'abscisse d'un point sans modifier son ordonnée. La première boucle fait varier X de 0 à 319 (la largeur de l'écran) tandis que Y demeure inchangé. Pour produire une verticale, on procède à l'opération inverse. Y varie de 0 à 199 alors que X garde une valeur constante.
L'instruction LINE
Le programme précédent, bien que fonctionnant parfaitement, ne permet pas un tracé rapide et exige
Y
-39

cet
(er-
ins
radu
ou-
est .je.
de )u-
es-
ze os
le
'0
1-
la e.
le
^t e
une capacité de mémoire importante puisqu'il ne faut pas moins de trois instructions pour une ligne. Heureusement, le BASIC du M05 dispose d'une insi.ruction qui va nous libérer de la contrainte des boucles.
Après avoir vidé par NEW la mémoire de l'ordinateur, tapez ces quelques lignes :
1	L'INSTRUCTION LINE	1
10 CLS:SCREEN 4,6,6
20 REM HORIZONTALE
30 LINE(0,100I-(319,100),4 40 REM VERTICALE
50 LINE(160.0)-(160,194) .0 60 END
La figure obtenue est en tous points identique à celle du programme précédent, mais elle a été dessinée plus rapidement. L'instruction LINE permet en effet de tracer une droite entre deux points dont les coordonnées sont spécifiées entre parenthèses, elles-mêmes séparées par le symbole —. Un troisième paramètre, optionnel, permet de changer la couleur du trait.
Les obliques ne posent pas plus de problèmes que les verticales, ainsi que le prouve le programme ci-dessous :
TRACÉ D'UN TRIANGLE
1c CL5
_O SCREEN 0.-.7
.R LI NEC 10.18@7-(300.100) 50 LINE(300.ifl0~- 200.40(
La ligne 30 trace un trait ayant pour origine le point 200,40 et aboutissant en 10,180. La deuxième
droite est tirée de cette nouvelle origine jusqu'au point 300,100. Le triangle se referme au moyen d'une troisième droite qui rejoint notre point de départ. initial.
Remplissage d'une figure
La commande LINE peut également servir au remplissage d'une forme. Le programme ci-dessous trace, à partir d'un point unique — en l'occurrence le sommet d'un triangle —, une pyramide pleine. Celle-ci est constituée d'une multitude de droites issues d'un des trois sommets et tirées en direction d'un point situé sur la dernière ligne de l'écran (ordonnée 199). Ce point se déplace de gauche à droite grâce à une boucle :
PYRAMIDE AVEC LINE : PROGRAMME
10 REM PYRAMIDE
20 CLS
30 SCREEN4.4,0
40 FOR I=0 TO 319
50 LINE(160,20)-(I,199).3
60 NEXT I 70 END
OK
Lors du premier passage dans la boucle, le programme trace une ligne partant de l'origine 160,20 à destination du point 0,199. La variable compteur I sert également d'abscisse. Elle croît de 1 à chaque passage dans la boucle, jusqu'à atteindre la valeur limite de 319. La pyramide est alors complète.
1 40
TRACÉS DE RECTANGLES
Vous venez d'apprendre à tirer des traits et à tracer des triangles vides ou pleins, mais il est cependant une forme géométrique que nous avons négligée jusqu'ici: le rectangle.
Nettoyez votre écran, puis tapez en mode direct :
BOX (40,40) — (180,160) ______ suivi d'une pression sur ENTRÉE .
Tracé d'un rectangle avec LINE
Pour dessiner un rectangle — ou un carré — il suffit de déterminer les coordonnées de ses quatre sommets et de relier ces derniers par des traits. Vous êtes en mesure de réaliser cette opération en recourant à l'instruction LINE :
TRACE D'UN RECTANGLE AVEC LINE
10 CLS
20 SCREEN4,3,3
30 LINE(40,40)-(280,40) 40 LI N(280.40)-(280,160) 50 LINE(280,160)-(40,160) 60 LINE(40,160)-(40,40) OK
Si vous étudiez attentivement les lignes que vous venez d'entrer, vous remarquerez que les coordonnées du point d'arrivée et celles du point de départ de la ligne suivante sont répétées. Comme il n'est jamais bon de taper plusieurs fois la même chose, supprimons cette répétition comme suit :
30 UNE (40,40) — (280,40)
40 UNE — (280,160)
50 LINE — (40,160)
60 LINE — (40,40)
Les trois dernières commandes LINE ne sont plus utilisées qu'avec une seule paire de coordonnées. En effet, lorsque vous omettez le point de départ de la ligne à tirer, l'ordinateur trace cette dernière à partir de la position du dernier point affiché. A la ligne 30, une ligne est tirée entre les points 40,40 et 180,40. Le trait affiché par la ligne 40 aura par conséquent pour origine ce même point 180,40. Les deux programmes produisent un résultat identique mais le second est moins long à entrer au clavier.
Si le tracé d'un rectangle ne pose aucun problème, il existe cependant une commande BASIC réalisant cette même opération de manière encore plus directe.
Un rectangle absolument identique au précédent apparaît à l'écran. Les paramètres employés par la commande BOX (cc boîte» en anglais) correspondent aux sommets opposés du rectangle ou du carré à tracer. Notez qu'un résultat similaire aurait été obtenu avec la commande BOX (180,40)–(40,160) qui ne fait que prendre les valeurs des deux autres sommets en opposition.
D'une utilisation simple et rapide, la commande BOX vous permettra par exemple d'encadrer un titre, ou encore de produire un dessin à base de carrés ou de rectangles. A l'instar de LINE et PSET, BOX accepte en troisième paramètre un code couleur, comme l'illustre le programme ci-dessous.
1 CARRÉS MULTICOLORES : PROGRAMME 1
10 CLS
20 SCREENO,0,0
30 FOR C= iTO 15
40 T=Ci5
50 BOX(70+T,T)-(270-T,200-T),C
60 NEXT C 70 END
41
BOX Full, ce qui signifie «boîte pleine») qui utilise des paramètres similaires à ceux de BOX. Videz la mémoire de votre ordinateur par un NEW puis, après avoir entré les lignes ci-dessus, tapez RUN :
nt la nt aiu ie n-
le in le F, u-
(,e programme montre clairement les possibilités de la commande BOX tout en vous offrant 15 des 16 couleurs d'encre du M05.
les codes couleurs sont représentés par la variable compteur C, qui sert également (après multiplication par 5) au calcul de la taille des carrés (ligne 40). A mesure que C augmente, les carrés affichés se réduisent. Lorsque C vaut 1, T(aille) prend la valeur 5, ce qui affiche un carré de 190 par 190 points. Au second passage dans la boucle, le carré change de couleur et ne fait plus que 180 X 180 points. L'instruction SCREEN 0,0,0 de la ligne 20 a pour effet de mettre en place le fond noir et de rendre invisible le curseur ainsi que le message de fin d'exécution (une encre noire ne se voit pas sur un papier noir).
Rectangles pleins
Pour remplir un triangle, vous devez recourir à une boucle comportant une instruction LINE. Le remplissage d'un quadrilatère s'effectue automatiquement grâce à l'instruction BOXF (abréviation de
1	ÉLÉPHANT ROSE: PROGRAMME	1
10 CL5
20 SCREEN3,3,3
30 BOXFt48,16)-(224.128).9 'CORPS 40 BOXF(48,128)-(104.184),9 •PATTE 50 BOXF( 176. 128)-(224.184)9 PATTE 60 BOXF(224.16)-t272.951,9 •TETE
70 BOXFt224.96)-(288.104),7 'DÉFENSE 80 BOXF(248,105)-(272,184).9 TROMPE 90 BOXF(248,56)-(255.63).0 'OEIL OK
Vous ne rêvez pas! Il s'agit bien d'un éléphant rose constitué uniquement de carrés et de rectangles de tailles diverses. Si vous n'aimez pas le rose, remplacez par un 8 le code couleur des lignes 30, 40, 50, 60 et 80. Pour vous aider à retrouver les différentes parties de ce pachyderme peu ordinaire, des commentaires ont été placés en fin de lignes. Le signe ' (apostrophe) a un effet identique à celui de l'instruction REM.
Vous pouvez désormais laisser libre cours à votre imagination et composer les formes les plus variées, témoin la carte postale qui vous est proposée ci-dessous :
En vous aidant des procédés utilisés jusqu'à présent, essayez de trouver le programme générant l'affichage qui précède.
f42}
MODIFIER LES CARACTERES DU M05
Vous avez appris à dessiner différentes formes et	Une fois votre motif dessiné, additionnez pour cha-
motifs au moyen des instructions LINE, PSET, BOX	que	ligne de	la grille les «poids» des	différen-
et BOXF, mais vous avez dû pour cela repérer soi-	tes cases noircies, puis inscrivez le total obtenu en
gneusement les coordonnées à employer avant le	regard de la rangée correspondante.
tracé proprement dit.	Que diriez-vous de dispo -	
ser de formes toutes faites	ue vous	ourriez dé la-	~~{	3
que	pourriez	pr	.,,	y	pz,.l	~,ï
cer, colorer, agrandir ou effacer, aussi aisément que	
	
n'importe quel autre caractère du clavier ? Impos-	
sible? Certainement pas ! Le M05 vous permet de	
créer jusqu'à 128 motifs de votre choix et de les	
employer par la suite à votre guise.	Valeur pour chacune
	des cases	Total pour la rangée
Les matrices de caractères	128 64 32 16	8	4	2	1
Nous avons vu que chaque caractère affiché à	1	1	1	1	1	1	1	1
l'écran tenait dans une grille de 8 X 8 points. Cette	32 + 16 + 8	= 56
grille, ou matrice, va constituer le point de départ	32 + 16 + 8	= 56
de la création de vos futurs caractères. Reproduisez	16	=	16
sur une feuille de papier (une page de cahier à petits	128 + 64 + 32 + 16 + 8 + 4 -i-2	= 254
carreaux fera parfaitement l'affaire) le schéma ci-	32 + 16 + 8	= 56
dessous, ou bien la grille de la page 61.	32 + 16 + 8	= 56
	32 + 8	= 40
	64+32+8+4	=108
MATRICE DE PO1N1â	
128 64 32 16	8	4	2	1	
-	-	
	Dans notre exemple les cases de poids 32, 16 et 8
	sont noircies. Le total de la première rangée équi-
	vaut donc à 32+16+8=56.
-	-	-	Quand vous en aurez terminé avec les sept autres
-	rangées, vous serez prêt à faire connaître à l'ordi-
	nateur le caractère à reproduire. Vous aurez besoin
	
Vous remarquerez que chacune des cases de la ran-	pour cela de deux lignes similaires à celles-ci
gée du haut est surmontée d'un nombre. Au-dessus	
	
de la case la plus à droite on peut voir le chiffre 1,	10 CLEAR,,1
tandis que la case située à l'autre extrémité porte le	20 DEF GR$ (0) = 56, 56, 16, 254, 56, 56, 40, 108
	L'instruction CLEAR de la ligne 10 indique à l'ordi-
numéro 128. Chacun de ces nombres représente en	
fait une puissance de 2 (2° = 1, 2' = 2, ...28 = 128) et	nateur le nombre de caractères à définir (jusqu'à
désigne la valeur — ou «poids» — assignée à la	128) et lui ordonne en conséquence de réserver le
case correspondante.	nombre d'octets de mémoire nécessaires. La défini-
Pour créer votre caractère — personnage, voiture,	tion proprement dite s'opère par le biais de DEF
vaisseau spatial, etc. — noircissez les cases de votre	GR$ (X). GR signifie GRaphique et le signe dollar
	précise qu'il s'agit d'un caractère chaîne.
grille en fonction du motif à représenter. Vous trou-	Si vous avez	deux lignes, tapez	Rurv	et
	entré ces
verez ci-dessous la matrice correspondant au dessin	
d'un petit personnage de face :	ENTRÉE . Rien ne se produit, mais votre caractère
	est néanmoins connu de l'ordinateur. Pour le faire
	apparaître, frappez — en mode direct — PRINT
CR> ATION D'UN PERSONNAGE	
	GR$ (0).
	
128 64 32	16 8	4	2	1	Toujours en mode direct, entrez puis validez les
	commandes suivantes
	COLOR 1
	PRINT GR$(0)
	COLOR3
	PRINT GR$(0)
	Votre petit personnage vire tour à tour du rouge au
	jaune. Ce n'est pas fini. Essayez maintenant ce court
	programme

143

1
1	FOULE : PROGRAMME	I
f0 CLS
20 SCREENO.0,0
30 CLEAR..1
40 DEFGR$t07=56.56.16.254.56,56.40,106 50 FORI=ITOff
60 FOR J= 0 TO 39
70	COLOR I
80	PRINT GR$(07, 90 NEXT J
100 PRINT 110 NEXT I
120 COLOR 0
130 END1	PETITS ET GRANDS	1
10 CLS
20 CLEAR„2
30 DEF G$(~)=28.62.28.26.8 .62.62.62 40 DEF GR$(11=62.62.62,28.20.20,20,54 50 B$=GR$(01+CHR$(10)+CHR$181+GR$(1)
60 C$=GR$(0 .CHR$[101+CHR$18)+CHR$(8)+GR ¢, 11
-0 5CPEEN0,3,3
80 LOCATE 5,3:PRINT 8$,
90 POINT TAB(121 'JE SUIS DE TAILLE NORM ALE'
100 ATTRB 1.0:LOCATE 5.8:PRINT C$p
110 ATTRB 0,0:PPINT TAB(12)'JE SUIS ASSE Z ENVELOPPE`
120 ATTRB0.I:LOCATE 5,13:PRINT 8$-
136 ATTPB0.0:PRINT TAB(121 'JE SUIS UN G POND MAIGRE`
140 ATTOBI.1:LOCATE 5,20:PRINT C$;
150 4TTR80.0:PPINT TAB(121 -JE SUIS GRAU P ET FORT'
Après l'avoir saisi au clavier, tapez RUN	Vous obtiendrez alors l'affichage suivant :
Votre écran se couvre d'une foule multicolore. A chaque valeur de I (ligne 50) correspond une couleur et une ligne différentes. La boucle de la ligne 60 se charge quant à elle de répéter votre motif 40 fois de suite. Le point-virgule (ligne 80) permet l'affichage des personnages d'une même couleur sur une ligne unique.
Pour changer un peu, modifiez la ligne 40 comme ceci :
40 DEF GR$(0) = 0, 124, 68, 68, 254, 254, 68, 68 Vous voilà maintenant face à un gigantesque embouteillage!
Agrandissez-vous
Vous pouvez colorier, répéter, mais aussi agrandir ies caractères que vous avez définis. Témoin, ce programme, suivi de l'affichage à son exécution, qui fait appel à un autre personnage composé à partir
de deux caractères définis :
La première partie du programme (lignes 10 à 60) concerne la définition des deux « morceaux » du personnage; la seconde, son affichage dans des tailles différentes.
On observe que la ligne 20 réserve un espace mémoire suffisant pour les deux caractères créés par les lignes 30 et 40.
La ligne 50 se charge de souder les deux parties de manière à obtenir un caractère directement affichable, stocké dans la variable B$; CHR$(10) et CHR$(8) sont deux caractères dits «de contrôle», dont le rôle est respectivement de faire passer le curseur à la ligne suivante, puis de le reculer d'une case vers la gauche. Ce qui a pour effet d'aligner le haut (GR$(0)) et le bas (GR$(1)) du personnage qui nous occupe.
Remarquez que B$ n'est utilisé que pour les personnages en simple largeur. Pour la double largeur, deux CHR$(8) sont nécessaires, d'où une seconde variable chaîne, C$.
44
ANIMATION SUR M05
Le petit homme que vous avez créé au chapitre pré-	pour les besoins de l'animation — tomber depuis le
cédent n'est encore qu'une figurine inerte à laquelle	haut de l'immeuble jusqu'au sol. Ce mouvement ver-
nous allons essayer ensemble de donner un sem-	tical sera assuré par les lignes suivantes, que vous
blant de vie. Pour cela, nous le ferons évoluer au	rajouterez, sans modification, aux instructions déjà
sein du monde qui l'entoure, à savoir les limites de	entrées
la page écran.	
	SIMULATION D'UNE CHUTE : PROGRAMME.	
		
Création de l'acteur		
	
et implantation du décor	
Commençons par re-définir l'acteur de notre anima-	
tion en reprenant les lignes du premier programme	90 ATTRB 0.1
du chapitre précédent.	100 FOR I= 0 TO 22
	110	LOCATE 16.2.0
Cela fait, mettons en place le décor — en l'occur-	120	PRINT GR$I0)
	180 LOCATE 16.I-1
	f 0 )
rence une rue et un immeuble — à l'aide de quel-	290
	ATTR80an$
ques instructions BOXF .	COLOR7,7
	210 LOCATTEO,0.0
PERSONNAGE ET DÉCOR : PROGRAMME		
10 CLS		
20 SCREEN0.12.0		
30 CLEAR..1		
40 DEFGR$ I0)=56.56.16.254.56,56.40.108		
50 SOXF(0.0)-(103.183),7		
60 BOXFt0.184)-[319.199),8		
70 BOXFt32.32)-(71.71),15		
80 SOXF(32,96)-(71,135).15		
		Cela fait, lancez par	Rurv	l'exécution de votre pro-
		gramme. Comme vous pouvez alors le constater, ce
		n'est pas un, mais plusieurs petits personnages qui
		tombent :
		
		CHUTE : AFFICHAGE
	
PERSONNAGE ET DECOR : AFFICHAGE	
Ii.	I
	
_I	
	Effacement des images intermédiaires
	Dans un dessin animé traditionnel, on représente un
	objet sur une feuille transparente, puis on prend
	un cliché avant de redessiner sur une autre feuille
	le même objet dans une position légèrement diffé-
La vie est difficile, même lorsqu'on est un simple	rente; cette opération est répétée 24 fois pour une
caractère graphique, et notre petit bonhomme va —	seconde de film. Comme nous dessinons toujours


45
le rls à
«tir le même écran, il nous faut «gommer» l'image di, notre personnage avant d'afficher la suivante. 1. effacement d'un caractère à l'écran s'obtient par l'envoi d'un ou plusieurs «blancs» à la position ({ur'occupe ce caractère. Le caractère peut alors être „fiïché un peu plus loin, puis réeffacé, et ainsi de suite.
Rajoutez à votre programme les li nes ci-dessous, puis observez leur effet par un RUN
I 0 LOCATE 16,1
1(50 PRINT
^.e petit bonhomme ne laisse plus de sillage derrière loi, mais sa chute est trop rapide. Pour la ralentir, ayez recours à une boucle vide :
130 FOR J = 1 TO 150 I40 NEXT J
Remarquez que cette temporisation est placée avant l'effacement du personnage afin d'afficher ce dernier plus longtemps à l'écran.
Pour augmenter ou réduire la vitesse de la chute du personnage, vous pouvez modifier la valeur finale de la variable J. Vous constaterez néanmoins que plus la vitesse est lente, plus l'image est nette. Un déplacement trop rapide provoque un scintillement important de l'image. Un phénomène identique se produit lorsque l'objet à animer est constitué d'un grand nombre de matrices :
Déplacements horizontaux
S'il n'est pas courant de tomber d'un immeuble, quoi de plus commun que de marcher d'un point à un autre. Un déplacement horizontal est aussi simple à réaliser qu'un déplacement vertical. Au lieu de modifier l'ordonnée du personnage, on fait varier son abscisse. Le programme qui suit reprend ce principe pour animer un personnage dont le mouvement est décomposé en deux parties.
Pour ce programme, deux caractères graphiques sont utilisés. Ils représentent chacun un «temps» différent de la marche. Pour plus de lisibilité, le personnage est affiché en double hauteur (ligne 60).
L'HOMME PRESSÉ: PROGRAMME
le CL5
20 SCREEN0,1.0
30 CLEAR.,2
40 DEFGR$(0)=56,56,.16.254,56.56,232,140
50 DEFGR$(1)=56.56.16.254,57,63,32.48
60 ATTR81,1
70 FOR L=2 TO 24 80 FOR C=0 TO 39 90	FOR G=0 TO 1
160	LOCATEC.L.0
1i0	PRINT GR$(G)
120	FOR P=1 TO 120
130	NEXT P
140	LOCATECL
150	PRINT'
160	C=C+(1-G) 170 NEXT G
180 NEXT C
190 NEXT L
Son déplacement est contrôlé par trois boucles, plus une boucle vide.
La première boucle (ligne 70) détermine la position verticale du petit homme. Vous le voyez descendre l'écran de son pas saccadé d'homme pressé.
La deuxième boucle gère son mouvement horizontal (ligne 80). Les valeurs 0 et 30 représentent les deux extrémités de l'écran.
La troisième boucle enfin (ligne 90) crée l'alternance d'affichage entre le mouvement 1 (GR$(0)) et la position 2 (GR$(1)), ce qui donne l'illusion de la marche.
La ligne 160 a pour but d'augmenter la valeur de C (position horizontale) de 1 lorsque G vaut 0, et de 0 lorsque G vaut 1. Sans cette ligne, le petit homme se déplacerait par saccades.
La boucle vide des lignes 120 et 130 affiche le caractère pendant une durée suffisante pour que le scintillement soit le plus faible possible.
Si vous avez assimilé les techniques d'animation présentées ici, vous pourrez sans aucun problème faire évoluer avions, bateaux, fusées et projectiles divers autour de votre écran.
L'ORDINATEUR PAYSAGISTE
Vous connaissez pratiquement tout des possibilités graphiques du M05. Il ne vous reste plus maintenant qu'à rassembler des connaissances, éparses pour le moment, afin de produire une image plus élaborée que celles programmées jusqu'ici.
Dans le chapitre intitulé «TRACES DE RECTANGLES », vous avez appris à dessiner en recourant à la seule instruction BOXF. L'image finale, qui suffisait à créer l'illusion d'un paysage de bord de mer n'était constituée que de rectangles. L'usage de quadrilatères limite cependant le nombre des sujets disponibles, et il faut plus qu'un assortiment de rectangles pour concevoir un paysage. Nous allons donc changer de décor et passer de la mer à la montagne pour un dessin plus détaillé et, partant, plus complexe.
Mise en place de l'arrière-plan
Commençons immédiatement à planter le fond de notre décor au moyen de LINE et BOXF :
ARRIÈRE-PLAN : PROGRAMME
10 CLS
20 SCREEN6.6.0 30 LOCATE0,0,0
40 BOXF(0,144)-(319,199),4
50 FOR I = 0 TO 159
60 LINE(0,40)-[I.143),8 70 NEXTI
80 FOR I = 0 TO 319
90 LINE(104.16 )-(I.143).8 100 NEXTI
110 FOR I = 0 TO 287
120 LTNE(208.8)-[I,143).8 130 NEXT I
La commande SCREEN de la ligne 20 colore le fond en bleu pâle et l'entoure d'une bordure noire. En ligne 40, la commande BOXF délimite les contours d'une étendue d'eau qui deviendra un lac de montagne. Les boucles des lignes 50 à 130 mettent en place trois sommets selon la technique utilisée pour l'obtention de la pyramide en page 41. Le code couleur 8 nous gratifie d'une teinte grise du plus bel effet.
Notre image devant comporter un premier plan et un arrière-plan, il convient de donner à notre dessin une impression de profondeur. Pour cela, nous allons ajouter à notre lac une succession de lignes horizontales simulant les « rides» qui plissent sa surface.
Pour accroître la sensation de profondeur, ces lignes devront être plus rapprochées vers le haut de l'image que vers le bas, comme cela se produit dans la réalité lorsque vous regardez un paysage.
Rajoutez les instructions ci-dessous à ce que vous venez de taper :
140 FOR 1 =0 TO 5
150 LINE(0,145+2T1)—(319,145+21'1),12 160 NEXT 1
La position horizontale de chacune des rides du lac vous est donnée en ligne 150. Au nombre de 6, ces traits sont affectés d'un espacement de plus en plus important par simple élévation du chiffre 2 à la puissance I.
Lorsque I vaut 0 (début de la boucle), 2.I retourne pour valeur 1. La première ride apparaît donc en 145 + 1 = 146.
On obtient ainsi, tour à tour, des espacements de 1, 2, 4, 8 et 16, ce qui semble correspondre au résultat recherché.
Pour vous en assurer, tapez Rurv une fois ces lignes entrées au clavier :


47
nd En irs In-en ur lu-us
et 'sus es ir-
es le ris
ris
le 's zs la
te le
's
Le premier plan
Il ne nous reste plus qu'à ajouter le premier plan pour parfaire notre dessin. Les trois lignes suivaniF's suffiront à remplir cet office
I R1 FOR 1=0 TO 255
r;U LINE(0,96) – (1,199),2 1')Ù NEXT I
Après ce court additif, rappelez votre image par un
ttien que nous ayons employé une boucle FOR... NEXT et une instruction LINE comme précédemMent, l'effet obtenu tient plus de l'escalier que du pâturage en pente douce. Si l'explication de ce phénomène est relativement simple, elle n'en résout pas pour autant toutes les difficultés d'application aux(luelles vous vous heurterez lors de la mise au point d'un dessin. Lorsque vous avez tracé les trois premiers triangles représentant les montagnes, vous ;avez tiré des traits «à l'encre» sur un fond bleu pâle (codes 8 et 12). Lors de la mise en place du prenier plan, vous avez tout simplement tenté de dessiner des traits à l'encre sur une surface déjà encrée. il s'est alors passé ce qui se produit immanquablement en pareil cas : la dernière couleur utilisée a «bavé» sur la précédente. En l'occurrence, les points composant le trait à dessiner ont déteint sur tous les points de la case écran par laquelle passait cette ligne. D'où cette apparition soudaine de «pavés» au lieu de simples points.
ln informatique comme ailleurs, il convient de distinguer encre et papier. Les codes couleurs qui vous ont été présentés en page 17 représentent des couleurs d'encre. Ceux qui suivent (tous négatifs), désifinent des teintes de fond :
Pour éliminer de votre dessin cet effet d'escalier plutôt disgracieux, il vous suffira de modifier la ligne 180 :
180 UNE (0,96)–(l,190).-3
Il n'y a pas de vrai paysage de montagne sans sapins. Ceux-ci sont créés au moyen d'un caractère défini par l'utilisateur et affichés dans des tailE;s différentes afin de préserver, voire d'accentuer, l'impression de profondeur.
La ligne 200 se charge de réserver un espace mémoire suffisant pour votre caractère. Le sapin est défini en 210 et le résultat affecté à une variable
chaîne A$ (ligne 220). Les premiers sapins seront dessinés sur les montagnes du fond. Ils seront donc de taille normale (ATTRB0,O( et leur couleur de fond devra correspondre à celle employée pour le tracé des sommets (code 8). Remarquez que le caractère défini est mis en place au moyen d'une commande LINE. Celle-ci peut en effet — tout comme BOX, BOXF et PSET — être employée avec des caractères à la place des points.
Les lignes 280 à 380 gèrent l'affichage des sapins du premier plan. Ceux-ci étant dessinés sur fond vert, il nous faut modifier la couleur de fond du caractère sapin par COLORO,2 (ligne 290). Pour les faire apparaître plus gros — perspective oblige —, vous les tracerez en double hauteur et double largeur (ligne 280).
La boucle des lignes 300 à 380 affiche trois rangées de sapins qui suivent la pente du pâturage. Pour que le dessin ne dépasse pas les limites de la page écran, le nombre de sapins doit diminuer à mesure que l'on s'approche du bas de l'image. Cette mission est remplie par la variable N, qui est diminuée de 3 à chaque passage dans la boucle.
ADDITION DE SAPINS
200 CLEAR..1
210 DEFGR$(0)=16.56.16.60.120.60.254.16
220 A$=GR$(0)
230 COLOR0.8
240 LINE(21 .6)-(10.12)A$ 250 LINE(21.9)-(17.16)A$ 260 LINE(22.8)-(13,14)A$ 270 LINE(21.8)-(33.15)A$ 280 ATTRBI.1
290 COLOR0.2
300 N=8
310 FORJ = 14 TO 20
320 FOR I= 0 TO N
330 LOCATE2*I.J+I
340 PRINTA$
350 NEXT I
360 N=N-3
370 J=J+2
380 NEXT J
390 ATTRB0.0
400 COLOR6.6
41.0 LOCATE0.0.0
420 END
	LES CODES COULEURS DU FOND
Code	Couleur	Code	Couleur
-1	Noir	-9	Gris
-2	Rouge	-10	Rouge pâle
-3	Vert	-11	Vert pâle
-4	Jaune	-12	Jaune pâle
-5	Bleu	-13	Bleu pâle
-6	Magenta	-14	Violet pâle
-7	Cyan	-15	Bleu très pâle
-8	Blanc	-16	Orange
_, ..	48
LE M05 ET LA MUSIQUE
Vous avez pu apprécier les talents de dessinateur du	ment quel nombre employer pour obtenir la valeur
M05. Nul doute que vous serez tout aussi étonné par	de votre choix
ses aptitudes musicales.	
	RAPPORT ENTRE LA DURÉE DES NOTES
Les gammes du M05	
Pour faire de la musique sur votre M05, il n'est pas	Dans ce tableau, c'est la noire (L24) qui sert de base.
nécessaire d'être un as du solfège, mais simplement	
	
de connaître le nom des notes et de posséder quel-	Note Nom	Rapport	Nombre à
ques connaissances de base sur l'écriture musicale.	employer
La première note de la gamme, vous le savez, c'est	
le do. Pour faire émettre un do à votre M05, vous	
	
n'avez pas besoin de recourir à des fréquences ou	O	Ronde	4 noires	96
à des codes numériques comme c'est le cas sur la	J	Blanche	2 noires	48
majorité des ordinateurs familiaux. Il vous suffit de	J
taper en mode direct	Noire	24
PLAY « DO»	Croche	1/2 noire	12
et de presser sur j ENTRÉE I. PLAY signifie «jouer » en	Double-croche	1/4 de noire	6
anglais. Votre commande pourrait donc se traduire	)	Triple-croche	1/8 de noire	3
par «Joue-moi un do ». Tous les noms de notes, sol	
	
excepté, sont formés de deux lettres. Vous n'aurez	
qu'à taper la commande PLAY suivie du nom de la	
note de votre choix entre guillemets. Pour le sol,	, Pour exécuter en blanches la gamme précédente, il
les que n'écrivez '	deux de	premières lettres.	vous suffit d'apporter la modification suivante
n	
PLAY «SO»	PLAY «L48 DOREMIFASOLASI»
Rien ne vaut les gammes pour s'exercer les doigts	Connaissant le nom et la valeur des notes, vous pou-
et l'oreille. Pour faire jouer au M05 la gamme de	vez désormais faire jouer à votre ordinateur une
do majeur, une seule instruction PLAY suffira. Il ne	mélodie bien réelle. Aidez-vous pour cela d'une par-
vous restera qu'à écrire :	tition	similaire	à	celle présentée	ci-dessous.	La
	transposition papier-clavier est pratiquement directe
PLAY « DOREMIFASOLASI»	comme vous le prouve ce programme
Si vous souhaitez répéter vos gammes, insérez-les au	
	
sein d'une boucle, comme ceci :	PARTITION
	
10 FOR G=1 T05	
20 PLAY « DOREMIFASOLASI »	
					
					
30 NEXT G					
		
L'intervalle entre deux notes successives étant nor-		r	-	-
malement d'un demi-ton, notre gamme de do devrait comporter des dièses ou des bémols pour être complète. Pour les obtenir, faites tout simplement suivre le nom de la note à hausser ou à baisser d'un demi-ton des caractères «e» (dièse) ou «b» (bémol).
PLAY « DODO#RERE#MIFAFAeSOSO#LALA#SI
La longueur des notes
Les notes de musique ne sont pas de longueur égale. Certaines notes ont une durée supérieure à d'autres, ce qui permet de donner son rythme à un morceau. La longueur d'une note sera tout simplement représentée par la lettre L suivie d'une valeur comprise entre 1 et 96. A la mise sous tension du M05, L vaut 24 pour une noire. Le tableau ci-dessous vous rappelle le rapport existant entre les différentes valeurs aue Deut prendre une note. Il vous indiaue ézale-
	Partition	BI.	N.	BI.	N.	N.	N.	N.	BI.	N.
	M05	L48	L24	L48	L24	L24	L24	L24	L48	L24
W	Partition	SI	LA	SOL	SOL	LA	SOL	LA	SI	SOL
										
o										
2	M05	Si	LA	SO	SO	LA	SO	LA	SI.	SO
	Partition	BI.	N.	BI.	N.	N.	N.	N.	BI.
	M05	L48	L24	L48	L24	L24	L24	L24	L48
H	Partition	SI	LA	SOL	SOL	LA	SI	LA	SOL
C	M05	SI	LA	SO	SO	LA	SI	LA	SO
2									
49
ir
I	TRANSCRIPTION SUR M05	1
10 PLAY'L485IL24LA20 PLAY:L485OL2450, 30 PLAY~LASOLA'
40 PLAY'L485I L2450' 50 PLAY'L485I L24LA' 60 PLAYL465OL245O-
70 PLAYLASILA'.
80 PLAY'L485O, OK
10 G$ = « DOREMIFASOLASI »
20 PLAY «01 »+G$+«02»+G$+«03»+G$+ «04»+G$« 05»+G$
A titre d'application, voici une autre comptine qui fait appel à trois octaves :
1	LE ROI DAGOBERT : PROGRAMME	1
10 qg=~04L245I L485IL24LA L48LAL2450 L72 50 L72LA L245105DO045I LASOLA L7250L2450
20 B$=~04L2450LA L485IL2451 5I05DORE 04L 48LAL24LA L36LA'
30 PLAY IT41+A$
40 PLAY B$+H$
50 PLAY A$
OK
Pour permettre une plus grande lisibilité, chaque mesure de la partition est représentée par une instruction PLAY, bien qu'il serait possible de n'en utiliser qu'une seule. Lorsqu'une ligne mélodique ne comporte aucune indication de durée, c'est le L qui précède qui détermine la longueur des notes à jouer. Normalement interprété en tant que berceuse, le rythme de cet air peut être accéléré ou, au contraire, ralenti selon les préférences du programmeur.
Le tempo
Un même air peut être interprété de manière vive ou lente. C'est ce que l'on appelle le «tempo». Sur le M05, on peut modifier le tempo d'une mélodie en recourant à la lettre T suivie d'un nombre compris entre 1 et 255. Ti désigne le tempo le plus rapide. A l'initialisation, le M05 utilise un tempo numéro 5, donc relativement rapide. Pour ralentir la comptine précédente, modifiez comme suit la ligne 10 :
10 PLAY «T10 L48 SI L24LA»
Si vous trouvez que c'est trop lent, essayez Ti!
Les octaves
Les airs que vous avez programmés jusqu'ici couvraient un éventail de sept notes seulement (12 avec les dièses). Le M05 disposant de cinq octaves, il vous en reste quatre autres à découvrir. A la mise en route, c'est l'octave numéro 4 qui est activée. Si vous tapez PLAY «DOREMIFASOLASI DO », le second do sera en tout point identique au premier. Par contre, si vous faites PLAY « DOREMIFASOLASI 05DO » vous obtiendrez deux do d'octaves différentes, le second étant plus haut que le premier. Une instruction « PLAY 03DO » vous donnera par contre un son plus grave. Pour changer d'octave, il vous suffit de faire précéder la note, de la lettre «0» et d'un chiffre compris entre 1 et 5. Vous pourrez désormais faire exécuter à votre ordinateur la totalité de son registre de notes, comme vous le montrent les lignes qui suivent :
Cette mélodie est constituée de deux phrases musicales jouées chacune par deux fois. Plutôt que de réécrire à plusieurs reprises les mêmes notes, on affecte ici le contenu de la chaîne qu'elles constituent à une variable (lignes 10 et 20). Il ne reste plus alors qu'à taper PLAY A$ ou PLAY B$ pour entendre — dans son intégralité — la phrase musicale correspondante. Seule restriction à l'emploi des chaînes : elles ne peuvent comporter plus de 255 caractères. Cela se révèle trop peu pour un morceau de musique, mais amplement suffisant pour un «jingle» de score ou de bienvenue.
Nous vous présentons ci-dessous le programme d'un petit air très simple : LA TARENTELLE, constitué de sept phrases musicales (lignes 20 à 80) que l'ordinateur va exécuter successivement (ligne 100) et à deux reprises (lignes 90 et 110).
I	LA TARENTELLE : PROGRAMME	I
10 REM ^^ TARENTELLE ^i
20 M1$='O4L12MIREDO*035I04DO*035I' 30 M2$='L24LAL12LAL24LAL12LA-
40 M3%=M1$+ L48LAI
50 M4$=,O4L12LALALAO5DO*045ILAL245O$L125 I L24LAL1250*FA$50*LALASO*FA$L361I' 60 M5$='O4L12MI5O*SIO5REDO$O45I~
'0 M6S=' L24LAL 12LAL24LAL 12LASO*50#5O$FAS FA*FA*L36MI-
60 M7$='L24LAL12MIL24REL12FA#MIREDO{O35I 04DO*O35I L48LA'
90 FOR I = 1 TO 2
100 PLAYMI$+M2$:PLAYM3$:PLAYM4$:PLAYM5$ ^M6$: PLAYMS$+M7$
110 NEXT 1

	50	
		
LES CONDITIONS
Vous rappelez-vous votre première rencontre avec	
		BOUCLE IF... THEN : AFFICHAGE	
une boucle GOTO? C'était il y a quelques chapi-			
			
tres de cela. Vous vouliez afficher les cent premiers			
entiers et ne parveniez pas à mettre un terme au			
défilé des nombres sur votre écran. Vous vous étiez		78	
tiré d'affaire à l'aide d'une boucle FOR... NEXT			
et aviez découvert qu'il était possible de contrôler		83	
le nombre de répétitions par l'intermédiaire d'une		65	
variable compteur. Vous auriez pu cependant abou-			
tir à un résultat absolument identique en recourant		9é	
à une boucle IF... THEN.		92	
Jugez-en plutôt avec le programme suivant :		94	
		95	
		96	
		97	
		98	
		100	
	BOUCLE IF... THEN : PROGRAMME				
				a	
	10 A=1				
	20 PRINT A				
			
	30 A= A+1		
	40 IF A(=100 THEN GOTO 20		
	55	END		
			L'intérêt d'une boucle IF... THEN, par rapport à
			une boucle FOR... NEXT, réside dans le fait qu'une
			action particulière est exécutée juqu'à ce qu'une cer-
			taine condition cesse d'être vraie. Cela peut tout
			aussi bien se produire à la fin du premier passage
			dans la boucle qu'au bout d'une centaine de répéti-
			tions comme dans l'exemple précédent.
			La condition exprimée par la première partie de
			l'instruction IF... THEN peut se référer à un nombre
			comme à une chaîne de caractères, ainsi que vous
			le prouve l'exemple ci-dessous :
La variable A est initialisée à 1, affichée à l'aide	
		BOUCLE IF... THEN AVEC CHAINE: PROGRAMME	
			
d'une instruction PRINT, puis incrémentée. Jusque			
là, rien que de très banal. En ligne 40, l'ordinateur			
doit néanmoins prendre une décision en fonction			
d'une certaine condition. Que lui dit cette ligne?		10 CLS	
		20 INPUT 'ENTREZ UN PRENOM ';P$	
Elle lui demande de se rebrancher en 20 si la con-		<0 PRI NT	
dition A < = 100 est vraie. Le signe «<» signifie		50 IF P$C>~ ALEXANDRE; THEN GOTO 20	
		60 PRINT NOUS M•AVEZ ENFIN RETROUVE'	
«inférieur à». Associée au signe «= », cette expres-		70 END	
sion prend le sens de « inférieur ou égal à». La			
ligne 20 pourrait donc se traduire par « Branche-toi			
à la ligne 20 tant que la condition spécifiée ici			
reste vraie ».			
Lorsque A atteint la valeur 101, le programme lit la			
première partie de la ligne 40, évalue la condition,			
s'aperçoit qu'elle n'est plus vraie, et passe alors à la			
ligne suivante.			
Lorsque vous aurez exécuté ce programme, tapez en			
mode direct			
	
PRINT A	Dans ce programme, on demande à l'utilisateur de
L'affichage des nombres s'interrompt de lui-même	frapper au clavier le prénom de son choix. Celui-ci
dès	que A	atteint la	valeur de	100.	L'instruc-	est affiché en 30, puis on saute une ligne pour obte-
tion PRINT A affiche néanmoins pour résultat le	nir une présentation plus aérée. En ligne 50, le pro-
nombre 101.	gramme examine la condition proposée. Si le con-
	


51

4
tenu de la variable P$ se révèle être « < > » (« différent de ») la chaîne « ALEXANDRE », le programme ,w rebranche en 20 et l'on recommence. Dès que l'utilisateur tape le mot «ALEXANDRE» — ce qui peut lui demander un certain temps — le programme s'interrompt.
IF... THEN ET CHAINE : AFFICHAGE
ENTREZ UN PRENOM ? JEAN JEAN
ENTREZ UN PRENOM ? ALBERT ALBERT.
ENTREZ UN PRENOM ? ISABELLE ISABELLE
ENTREZ UN PRENOM ? PAUL PAUL
ENTREZ UN PRENOM ? CHRISTOPHE CHRISTOPHE
ENTREZ UN PRENOM ? ALEXANDRE ALEXANDRE
VOUS M'AVEZ ENFIN RETROUVE OK
On peut améliorer la présentation et l'efficacité des lignes précédentes en leur rajoutant le mot clé ELSE. Pour cela, modifiez comme suit la ligne 50 :
50 IF P$ < > «ALEXANDRE» THEN GOTO 20 ELSE PRINT
«VOUS M'AVEZ ENFIN RETROUVÉ!»
Notre condition répond désormais à la structure IF... THEN... ELSE (SI... ALORS... SINON). SI la première partie de la condition est vraie, ALORS on se branche en 20, SINON le programme affiche un message qui met fin à la boucle.
L'ordinateur a donc le choix d'une alternative. Tant que l'utilisateur n'entre pas le mot «ALEXANDRE », il exécute la première partie de la condition et ignore la seconde.
Par contre, dès que C$ prend la valeur «ALEXANDRE », le programme ignore la première commande et obéit à la seconde.
L'instruction IF... THEN... ELSE permet à l'ordinateur de choisir entre deux actions, en fonction d'une condition préalable ainsi que des renseignements qui lui ont été donnés par le biais du clavier. Les applications de cette instruction sont multiples, ainsi que le démontre le programme ci-dessous.
A partir des informations introduites par l'utilisateur, l'ordinateur affiche un message différent selon que la personne 'est de sexe masculin ou féminin, mariée ou célibataire. Cette distinction entre les énoncés s'opère au moyen de cinq instructions IF... THEN... ELSE.
Une fois vos noms et prénoms frappés au clavier, l'ordinateur vous demande de préciser à l'aide des lettres « M » ou « F » si vous êtes de sexe masculin ou féminin (ligne 50).
I	RENSEIGNEMENTS : PROGRAMME	I
10 CLS
20 SCREENO,15.15
30 INPUT-NOM	-.N$
40 INPUT'PRENOM	1.P$
50 INPUT-SEXE (M/F)	1.5$
60 IF 5$=M THEN GOTO 80 ELSE INPUT'ETE S-VOUS MARIEE (O/N) '.H$
70 IF N$='O' THEN M$=-MADAME" ELSE M$='M ADEMOI SELLE'
80 INPUT:DATE DE NAISSANCE	-.D$
90 INPUT~OU HABITEZ-VOUS	-.V$ 100 CLS
110 ATTRB0.1
120 LOCATE0.4
130 PRINT:RENSEIGNEMENTS CONFIDENTIELS'
140 PRINT ==-============--===--======='
150 LOCATE0.8
160 IF 5$=-M~THEN PRINTIMONSIEUR -+P$+' +N$ ELSE PRINT M$+; -+P$+	+N$
370 IF S$=-M THEN PRINT'EST NE LE '+D$ ELSE PRINT'EST NEE LE -+D$
180 IF 5$=-M' THEN PRINT'IL HABITE +V$ ELSE PRINT 'ELLE HABITE '+V$
La variable S$ qui renferme votre réponse est immédiatement utilisée dans une condition (ligne 60). Si l'utilisateur est de sexe masculin, l'ordinateur passe sans plus attendre à la ligne 80, car un homme, marié ou non, est toujours appelé «Monsieur». Si l'utilisateur est une femme, on lui pose la question « Êtes-vous mariée ? ». La réponse — « 0 » ou « N » — détermine le contenu à donner à la variable M$, qui prend pour valeur « Madame » si l'utilisatrice est mariée, et «Mademoiselle» dans le cas contraire (ligne 70).
La variable S$ est de nouveau employée aux lignes 110, 120 et 130. Elle permet, en fonction de sa valeur, de modifier la teneur du message ultérieurement affiché et, plus particulièrement, d'accorder en genre pronoms personnels (il ou elle) et participes passés (né ou née).
Un programme similaire vous permettrait, par exemple, de modifier le contenu d'une lettre pour l'adapter selon que le destinataire est un homme ou une femme.
: AFFICHAGE
RENSEIGNEMENTS CONFIDENTIELS
MADEM015ELLE ARTEMI5E FENOUILLARD
EST NEE LE 02/!8/1924
ELLE HABITE TRIFOUILLY
OK
Le M05, à l'instar des autres ordinateurs, est une machine dont la moindre opération est régie selon un ordre strict où la fantaisie n'est pas admise. Pourtant, cette rigidité n'exclut pas l'apparition d'une certaine forme de hasard. Il ne s'agit certes pas d'un de ces hasards qui déterminent les joies ou les déceptions des participants au loto, mais d'un hasard si bien «calculé et programmé» qu'il finit par ressembler au vrai et permet quelques applications intéressantes.
La commande RND
Pour obtenir une série de dix nombres tout à fait aléatoires, il vous suffira de taper les trois lignes indiquées ci-dessous :
10 FOR 1=1 TO 10 20 PRINT RND
30 NEXT I
puis de lancer l'exécution de ce court programme. Vous devriez aussitôt voir apparaître sur votre écran l'image suivante :
Vous pouvez constater tout de suite que pas un des nombres affichés n'est supérieur, voire égal à 1. Les trois nombres qui pourraient, à première vue, faire exception sont affectés d'un exposant négatif (E-02) qui les rapproche davantage de 0 que de 1.
Il est de fait que la commande RND — abréviation du mot anglais RANDOM signifiant «hasard» — ne peut que générer des nombres compris entre 0 et 0.999999. Nous verrons néanmoins un peu plus loin qu'il est possible, moyennant certaines ruses, d'obtenir des valeurs plus facilement exploitables.
Sans effacer votre écran, retapez la commande RuN[J suivie de ENTRÉE). Si vous étudiez attentivement ce qui est maintenant inscrit, vous remarquerez que les nombres obtenus lors de ce second tirage sont rigoureusement identiques à ceux de l'affichage
précédent. Recommencez l'opération dix fois, cent fois si vous le souhaitez, vous ne pourrez rien y changer.
Nous voilà bien loin de la notion de hasard telle qu'on se l'imagine d'ordinaire, et l'on est en droit de se poser quelques questions quant à l'utilité d'une commande incapable de produire des nombres «aléatoires» différents. Il existe heureusement un remède à cette carence apparente de la commande RND. Ajoutez au programme précédent les lignes suivantes, puis lancez l'exécution de cette version «améliorée» :
1 PRINT «FRAPPEZ UNE TOUCHE POUR COMMENCER»
2 X=RND
3 IF INKEY$ _ "" THEN GOTO 2
Un simple coup d'oeil vous confirmera que la série tirée n'a rien à voir avec les précédentes. Pour faire disparaître vos derniers doutes, recommencez deux ou trois fois. Les séries ne sont plus identiques.
Sans entrer dans les détails de la commande INKEY$, sachez que ces quelques lignes créent une temporisation qui est fonction du temps de réaction — variable — de l'utilisateur. Cela permet à l'ordinateur de générer à vide un certain nombre de valeurs aléatoires et de se positionner plus ou moins avant dans sa « liste » interne de nombres. Regardez bien les lignes que vous venez de rajouter. Nous les réutiliserons chaque fois qu'il nous faudra recourir à la commande RND.
Du hasard dans toutes les tailles
S'il est plutôt rare de se servir de valeurs comprises entre 0 et 1, il est plus que courant de faire appel à des nombres entre 0 et 10 ou encore 0 et 100. Pour générer des nombres aléatoires plus grands, modifiez comme suit la ligne 20 de votre programme :
20 PRINT RND* 100
Les nombres tirés se situent désormais entre 0 et 100, mais comportent toujours plusieurs décimales après le point. Pour obtenir des entiers, il va nous falloir une fois encore rectifier la ligne 20 :
20 PRINT INT (RND* 100
La commande ainsi formulée précise à l'ordinateur qu'il lui faut tirer au hasard un nombre entre 0 et 100, et n'en retenir que la partie entière pour l'affichage. A titre d'exemple, la partie entière de 4.56789 serait 4 et celle de 19.67, 19.
Les nombres entiers obtenus par ce procédé ouvrent la porte à de multiples applications. Prenons par exemple les 16 couleurs du M05 et demandons à l'ordinateur de les faire intervenir de manière aléatoire. Cela peut nous donner un programme de ce genre :

53
Mt
en
lie oit ité
res
un de ies on
IN-
rie ire ux
.de ne on Bide ins lez les rir
;es là
pur di-
et les
)U5
,Ur
0 iur
de
nt par
ns ire
de
COULEURS ALÉATOIRES
10 CLS
20 PRINT'FRAPPEZ UNE TOUCHE POUR COMMENC ERS
30 H=RND
40 IF INKEY$=" THEN GOTO 30
50 CLS
60 SCREEN0.0.0
70 FOR Y = 0 TO 23 80 FOR X = 0 TO 39
90	C=INT(1+RNDi15)
100 COLOR C 110	PRINT~#~; 120 NEXTX
130 NEXTY
140 LOCATE0.0.0 OK
Le nombre aléatoire tiré en ligne 90 et affecté à la variable C est compris entre 1 et 15. La couleur de code 0 est réservée au fond et à la bordure. Les deux boucles des lignes 70 et 80 remplissent l'écran de dièses de couleurs aléatoires, créant un effet de mosaïque agréable à l'ceil.
RND et les jeux
Bien que prometteuse dans les programmes graphiques, la commande RND trouve son véritable domaine d'application dans les jeux où elle permet des variations quasiment illimitées. A titre de démonstration, voici un programme qui simule un jeu de dés. L'ordinateur choisit au hasard un nombre entre 1 et 6, puis il invite l'utilisateur à égaler ce nombre en lançant un dé. Si la valeur affichée par ce demie coïncide avec celle tirée par ~a machine, le message «GAGNÉ» s'affiche en gros caractères à l'écran. Les 6 faces du dé sont représentées au moyen de 6 caractères graphiques définis aux lignes 40 et suivantes. Notez également que ce programme fait appel à une instruction IF...
THEN... ELSE pour déterminer la nature de l'appréciation qui suit le lancer de dé. Pour générer un nombre entre 1 et 6, on fait appel à l'instruction PRINT INT (1 + RND * 6) :
DE
10 CLS
20 CLEAR „6
30 SCREENO.3.1
40 DEFGR$(0)=0,127,127,127,119,127.127.1 27
50 DEFGR$(1)=0,127,125.127.127.127.95,12 7
60 DEFGR$(2)=0,127.125.127,119.127.95,12 7
70 DEFGR$(3)=0,127,93.127.127,127.93,127
80 DEFGR$(4)=0.127.93.127,119.127.93.127 90 DEFGR$(5)=0.127.85.127.127.127,85,127
100 LOCAT2.10
110 PRINT5FRAPPEZ UNE TOUCHE POUR COMMEN CERS
120 X=RND
130 IF INKEY$=" THEN GOTO 120 140 FOR I = 1 TO 5
150 COLORO
160 CLS
JEU DE DÉ : ÉCRAN 2
170 T=INT(1+RND*6) 180 ATTRB0.1 190 LOCATE9,10
200 PRINT~VOUS DEVEZ TIRER LE ';T
210 ATTRB0.0 220 LOCATE2,12
230 INPUT -Tapez 'ENTREE• pour jeter le
clé - ,A$
240 D=INT(1+RNDi6) 250 ATTRBI.1
260 COLORE
270 LOCATE 19,16
280 PRINT GR$(D-1)
290 COLORI
300 LOCATE15.20
310 IF D=T THEN PRINT 'GAGNE ELSE PRIN T 'PERDU'
320	FOR J = 1 TO 2000
330	NEXT J 340 ATTRB0.0
350 NEXT I 360 END
54!
==LE STOCKAGE DES DONNÉES==
Vous savez que les informations nécessaires à l'exécution d'un programme peuvent être stockées au sein de variables ou encore introduites en cours de programme par l'intermédiaire d'une instruction INPUT. Ces deux solutions ne sont cependant pas dépourvues d'inconvénients, surtout lorsque le nombre des données employées est important. Dans le premier cas, les variables doivent porter des noms différents et occupent une place mémoire non négligeable. Dans le second cas, la saisie des données se révèle lente, monotone, et risque d'entraîner de nombreuses erreurs.
DATA et READ
Il existe heureusement un autre mode de stockage de l'information qui allie à la fois rapidité et économie de mémoire.
Dans le programme ci-dessous, on utilise 12 paires de coordonnées rangées à l'intérieur d'une ligne unique repérée par le mot DATA :
1	LETTRAGE : PROGRAMME	1
10 CLS
20 5CREENO.15,15
30 DATA 112.8,64.8,64.192.11? 192.112.56 .160.112.208.56.208.192.256.192.256.8,20 8.8,160.64
40 N=12
50 PSET(160.64)
60 FOR I = 1 TO N
70 READ X.Y
80 LINE-(X.Y)
90 NEXT I
OK
Les 24 nombres de la ligne 30 sont séparés par des virgules et écrits les uns à la suite des autres. On indique à l'ordinateur qu'il devra «lire» non pas 24 nombres mais 12 paires de nombres (ligne 40). La lecture des données s'effectue à la ligne 70 par l'intermédiaire d'une instruction READ suivie de deux variables. La première désigne ici une abscisse, et la seconde une ordonnée. A l'exécution, vous devriez voir apparaître une lettre occupant la presque totalité de l'écran.
Le premier point de notre tracé (son point de départ) est déterminé par l'instruction PSET de la ligne 50. La boucle des lignes 60 et suivantes lit successivement les 12 paires de coordonnées (ligne 70) qui sont réutilisées immédiatement par l'instruction LINE de la ligne 80 qui trace les contours de la lettre «M».
Sans modifier la structure de ce programme, il vous est possible d'entrer de nouvelles informations pour
donner naissance à l'affichage d'une forme totalement différente.
Sans effacer ce qui précède, frappez au clavier les lignes suivantes puis tapez jÇijN :
30 DATA 155, 6, 152, 23, 135, 33, 135, 39, 117, 3,9, 117, 33
32 DATA 105, 30, 110, 54, 95, 57, 90, 50, 62, 54, 62, 68, 102, 86
34 DATA 99, 96, 113, 108, 1 1 1 , 1 1 7, 123, 129, 1 1 1 , 123, 102, 1 70, 180, 192
36 DATA 194, 167, 237, 168, 252, 150, 233, 101, 225, 102, 245, 75, 252, 44, 168, 3
40 N = 28
50 PSET (168, 3)
Vous venez, en 28 points, de représenter les contours - un peu grossiers mais néanmoins reconnais sables - de la France. Rien ne vous empêche d'ail
L.

1551
-ous
our
ale-les
17,
54,
29,
01,
Vis: `-
~n-
lis-iil-
surs d'affiner le tracé en recourant à un nombre plus important de points et de segments pour réalis~ur plus de détails.
Veillez toujours à préciser à l'ordinateur le nombre de données à lire (ligne 40) sous peine de voir apparaître un message d'erreur du code 4, dont la signification pourrait être rendue en clair par la phrase «Je n'ai plus rien à lire ».
Stockage des chaînes
S'il est possible de ranger des nombres en DATA,
le stockage des chaînes ne devrait pas poser plus
de difficulté. Celles-ci pourront être rentrées telles quelles, à moins qu'elles ne comportent des blancs importants en début ou en fin, ou encore qu'elles ne contiennent des virgules, auquel cas elles devront être encadrées de guillemets.
On a crié sur tous les tons que les Français — en général — étaient faibles en géographie. Voici donc un programme qui, tout en reprenant les enseignements des chapitres précédents, se propose de tester
vos connaissances sur les capitales de quelques pays européens.
Les noms des pays, avec leur capitale, sont rangés en DATA aux lignes 70, 80 et 90. Leur nombre a été limité à dix, mais rien ne vous empêche d'en rajouter d'autres, voire d'étendre ce programme au monde entier.
CAPITALES
CLS
SCREEN4.3.3
PRINT'FRAPPEZ UNE TOUCHE POUR COMMENC
H=RND
IF INKEY$="THEN GOTO 40
LA GRAND
RNE.LA 5 CARIE
IN .L'IRL
100 FOR I = 1 TO 5 110 P=INT(1+RNDa10) 120 FOR J = 1 TO P 130 READ C$.P$ 140 NEXT J
150 ATTRB0.1
160 COLOR4
Un nombre entre 1 et 10 est tiré au hasard (ligne 110) et affecté à la variable P. Celle-ci ira chercher, au moyen d'une boucle dont elle constitue la valeur limite (ligne 120), le nom d'une capitale et du pays auquel elle est associée.
La variable P$ — qui désigne le nom du pays - est utilisée en ligne 180 pour poser la question. La réponse de l'utilisateur, allouée à la variable R$ est ensuite comparée à la valeur de C$. En cas d'égalité, le message «C'EST EXACT» est affiché; sinon l'ordinateur fournit la bonne réponse, toujours par l'intermédiaire de C$.
CAPITALES
170 LOCATE0.4.0
180 PRINT 'CAPITALE DE ';P$;' ?'
190 PRINT 200 ATTRB0.0
210 INPUT-VOTRE REPONSE : -.R$
220 PRINT 230 COLORO
240 IF R$=C$ THEN PRINT'C'EST EXACT EL5
E PRINT 'LA REPONSE ETAIT ':C$
250 FOR P = 1 TO 2500
260 NEXT P
270 CL5
280 NEXT I OK
La comparaison entre la ville choisie aléatoirement par l'ordinateur et la réponse fournie par l'utilisateur est rendue possible par une instruction IF... THEN... ELSE en ligne 240.
Si vous lancez l'exécution de ce programme, vous
pourrez constater que tout se déroule correctement
lors du premier (voire du second) passage dans la boucle, puis que le programme est brutalement interrompu par le message d'erreur :
Error 4 in 130
L'ordinateur vous indique par cette phrase des plus
laconiques qu'il n'a plus rien à lire et qu'il ne peut donc obéir à la commande READ de la ligne 130. Que s'est-il réellement passé? La boucle des lignes 120 et suivantes, lit un certain nombre de données en fonction de la valeur de P (entre 1 et 10). Le «pointeur de données» qui renseigne l'ordinateur sur la position du prochain élément à lire reste donc bloqué entre la première et la dixième donnée, là où l'a placé la valeur limite de la boucle. Lors du second passage dans la boucle, le pointeur de DATA se déplace de nouveau en fonction de la valeur de P et finit par se trouver en dehors de la liste des. DATA, à tenter de lire des éléments qui n'existent pas. Ainsi, si P valait 4 lors du premier tour de boucle et 8 au second, le pointeur de DATA chercherait en vain un 121 élément et, ne le trouvant pas, vous signalerait son désarroi par un mes-
sage de code 4.
Pour résoudre ce problème, il faut recourir à une instruction RESTORE, dont le rôle est de repositionner le pointeur de données devant le premier élément de la liste des DATA.
Pour corriger votre programme, il vous suffira d'ajouter cette ligne :
105 RESTORE
Votre programme devrait désormais fonctionner correctement. Vous pourrez ensuite vous consacrer
à améliorer sa présentation, à augmenter le nombre
de DATA, etc.
'156L
LES SOUS-PROGRAMMES
Il n'est pas rare, lors de l'écriture ou de la mise au point d'un programme, que l'on doive répéter à plusieurs reprises la même suite d'instructions. Paresseux de nature, l'homme a toujours cherché à éviter de refaire dix fois ce qu'il pouvait réaliser en une seule opération. C'est sans doute ce qui a amené les programmeurs à concevoir des sous-programmes, ou «routines », qui leur éviteraient de fastidieuses répétitions.
Structure d'un sous-programme
Un sous-programme n'est autre qu'une succession de lignes, une portion d'un programme, que l'on peut «appeler» aussi souvent qu'on le souhaite, et qui exécute l'action pour laquelle il a été programmé avant de revenir sagement au programme «appelant ». Un sous-programme comporte obligatoirement un début (symbolisé par le numéro de sa première ligne), un milieu (qui renferme la ou les opérations à effectuer), et une fin, qui se traduit par un
retour au programme principal.
Supposons par exemple, qu'il vous faille rédiger en quelques lignes un mémo résumant les principales
qualités de votre ordinateur préféré et commençant
impérativement par les mots « LE M05 » en double hauteur et encre rouge. Vous avez une connaissance suffisante des instructions ATTRB et COLOR pour savoir d'office qu'il vous faudrait taper pour chacune de vos phrases :
300 PRINT
310 ATTRBO,1
320 PRINT « LE M05»; 330 ATTRBO,0
340 COLOR4
Pour ne pas perdre de temps à recopier ces lignes
en plusieurs exemplaires et gaspiller par la même occasion quelques précieux octets de mémoire, voici comment vous pourrez procéder :
SOUS-PROGRAMME
i0 'PROGRAMME S PRINCIPAL
20 CLS
30 DATA JOUE DE LA MUSIQUE SUR 5 OCTAVES DESSINE EN 16 COULEURS,CONNAIT TOUTES L ES OPERATIONS.POSSEDE UN BASIC PUISSANT.
40 SCREEN7,7,7
50 LOCATEO.6 60 FORI=1T04 70 GOSUB 300  60 READP; 90 PRINT P$ 100 NEXT 1
110 END
299 SOUS-PROGRAMME
300 PRINT
310 ATTRBO.i 320 COLORi
330 PRINT~LE MO5
340 ATTRB0.0 350 COLOR4 360 RETURN
Ce programme commence de manière tout à fait habituelle. L'ordinateur efface ce qui pourrait se trouver à l'écran, détermine la nature des couleurs d'encre, de fond et de bordure, puis positionne le curseur en 0,6.
Parvenu à la ligne 50, l'ordinateur quitte le programme principal par l'intermédiaire d'une commande GOSUB, pour se brancher en ligne 300, début de notre sous-programme (GOSUB 300 signifie «Va te brancher au sous-programme dont la première ligne porte le numéro 300 »). Celui-ci sélectionne le mode double-hauteur (310), l'encre rouge (320), affiche l'en-tête « LE M05 », repasse en simple hauteur, choisit une encre de couleur bleue dans sa palette, puis atteint la ligne 360. Là, se trouve l'instruction RETURN qui commande à l'ordinateur de retourner
au programme principal et de se brancher à l'ins-
truction suivant le GOSUB «appelant».
Le M05, obéissant, revient donc en 60 pour afficher la suite de la première phrase. Cette opération se répète à trois .autres reprises (lignes 70, 90, 110). Chaque fois, l'ordinateur exécute le sous-programme, puis réintègre le programme principal.
L'instruction END de la ligne 130 est absolument indispensable, faute de quoi le M05 exécuterait le sous-programme une cinquième fois, puis, arrivé en 360, se heurterait à un RETURN qu'il serait incapable d'associer à ûn GOSUB. Il vous le signalerait alors en affichant le message suivant :
Frrnr	in '(1
soit en clair, «Il n'y a pas de GOSUB pour ce RETURN » .
L'instruction PRINT de la ligne 300, également impérative provoque un saut de ligne et évite ainsi que les lettres de l'en-tête ne viennent effacer la partie inférieure de l'en-tête précédent.
Quoique plus court que s'il nous avait fallu recopier

{
lit
se rs
le
o-
n-ut ,a ,e le i-r, e, n 'r s-
i-
3-), )-
tt
e n 1-
e
t
i
r
les lignes 300 à 350 pour chaque phrase affichée, notre programme pourrait encore être raccourci au moyen d'une boucle FOR... NEXT. Ce procédé présente de plus l'avantage de permettre un contrôle rigoureux du nombre de répétitions du sous-programme. Le sous-programme reste inchangé mais son appel se fait par l'intermédiaire d'une instruction GOSUB unique. Les phrases sont rangées en DATA et mises en place par un READ et un PRINT :
GOSUB ET BOUCLE FOR... NEXT
10 • PROGRAMME PRINCIPAL
20 CLS
30 SCREEN7,7.7 40 LOCATE0,6 50 GOSUB300
60 PRINT-JOUE DE LA MUSIQUE SUR 5 OCTAVE
5-
70 GOSUB300
80 PRINT'DESSINE EN 16 COULEURS'
90 GO5UB300
100 PRINT~CONNAIT TOUTES LES OPERATIONS'
110 GosuB300
120 PRINT~POSSEDE UN BA5IC PUISSANT...'
130 END
290 • SOUS-PROGRAMME
300 PRINT
310 ATTRBO,3 320	I COLOR
330 PRINTLE M05
340 ATTRB0.0 350 COLOR4 360 RETURN
GOSUB et animation
Voici maintenant un programme d'animation faisant appel à deux sous-programmes. Un petit parachutiste est largué à la verticale d'une plage mais, poussé par un vent capricieux, il se dirige tantôt vers la côte, tantôt vers l'océan. L'un des deux sous-programmes est exécuté en fin d'animation selon que le parachutiste se pose ou non sur la terre ferme. L'initialisation du générateur de nombres aléatoires est effectuée aux lignes 30 et 50. Le décor est mis en place à l'aide de deux instructions BOXF (70 et
PARACHUTISTE : ÉCRAN 1
10 CL5
20 SCREENO.6:.0
30 PRINT'FRAPPEZ UNE TOUCHE'
40 V=RND
50 IF INKEY$= THEN GOTO 40
60 CL5
70 BOXF(0.192)-(319•99).4 80 BOXF(160,.1921.-(519,199),3
90 CLEAR,,2
100 DEFGR$10)=90.90,126,24.24,24,24.60. 110 DEFGR$(f)=0,0.24.60 126,.255,255.66 120 P$=GR$(0)+CHR$(11)+CHR$(8)+GR$(Il 130 B$=* +CHR$(ii)+CMR$(8)+~
140 XO=25
150 FOR Y. =1NTO 22
160 X=INT(RNDI3)-1
170 XO=XO+X
180 LOCATEXO.Y 190 PRINTP$
PARACHUTISTE :
200	FOR P = 1 TO 200
210	NEXT P
220 LOCATEXO,Y,0
230 PRINTB$ 240 NEXT Y
250 IF XO )= 20 THEN GOSUB 300 ELSE GOSU
B 400
260 END
299 SOUS-PRORAMME 1
300 ATTRB1,1 310 COLORI
320 LOCATE 12.12
330 PRINT 'BRAVO
340 ATTRB0,0 350 RETURN
399 • SOUS-PROGRAMME 2
400 PLAY~L24FAFAOSMIbREDOO4SIb'
410 RETURN OK
80), puis le caractère parachutiste est défini en 100 et 110 avant d'être soudé en ligne 120. Le vent qui fait dériver notre parachutiste est représenté par une valeur aléatoire comprise entre — 1 et 1 (ligne 10). Ce nombre est affecté à la variable X qui permet de modifier la position horizontale du parachutiste à mesure qu'il descend en direction du sol. L'ordonnée XO est testée en 250. Si sa valeur est supérieure ou égale à 20, cela signifie que le petit bonhomme s'est posé sur la plage, auquel cas l'ordinateur se branche au sous-programme des lignes 300 et suivantes. Le mot «BRAVO!» est affiché en gros caractères rouges pendant quelques secondes, puis effacé. Si le parachutiste tombe à l'eau, le M05 interprète un petit air de circonstance.
L'emploi de sous-programmes permet le découpage d'un programme en blocs distincts, bien séparés les uns des autres, et réservés à un usage bien particulier. Ce procédé facilite la mise au point des programmes et contribue à leur donner une plus grande clarté et une meilleur lisibilité.

58
AI	E
MOS QU S
Pour clore ce premier volume, nous allons essayer	
	I	MOSAIQUE ALÉATOIRE : AFFICHAGE
de dessiner sur la page texte à l'aide de petits carrés	
de couleurs.	
Le caractère 127	
Pour afficher un bloc de la taille d'une case écran et	
d'une couleur déterminée, il vous suffit de taper	
10 CLS : SCREEN 0,6,6	
20 PRINT CHR$(127)	
A l'exécution, un carré noir apparaîtra dans le coin	
supérieur gauche de votre écran. CHR$(127) renvoie	
en effet un caractère « plein ».	
Poursuivez par les commandes directes ci-dessous :	
COLOR 3	
RUN 20	
COLOR 4	
RUN 20	
COLOR 1	
RUN 20	

En dessous du bloc noir viendront s'aligner succes-	Le principe de base étant posé, il ne vous reste plus
sivement, un carré jaune, puis un bleu, et pour finir	qu'à créer vos motifs. Aidez-vous pour cela d'une
un carré de couleur rouge.	feuille quadrillée sur laquelle vous représenterez les
	40 X 24 cases de la page écran.
	PAVÉ GRAPHIQUE		
			Tracez votre dessin au crayon puis coloriez-le éven-
	
	tuellement. Il vous suffira alors de décomposer votre
	motif case par case, ou ligne à ligne, et de reporter
10 CLS	le code couleur de chacune des cases dans une
20 PRINT'FRAPPEZ UNE TOUCHE POUR COMMENC	ligne DATA.
30 H=RND	
40 IF INKEY$=-- THEN GOTO 30	
50 CL5	
60 SCREENO.0,0	
70	FOR Y = 0 TO 23	
80	FOR X = 0 TO 39	Motifs complexes avec le caractère 127
90	C=I NT(i+RNDI15)	Le programme ci-dessous dessine un portrait en cou-
100	COLOR 	
110	PRINT C MR$( 127);	leurs de l'actrice américaine Marilyn Monroe. La
113: NÉXTŸX	
OK0 LOCATE0,0.0	ressemblance est, bien évidemment, toute relative
	vu la faible résolution de l'image, mais suffisante
	néanmoins pour vous encourager à créer vos propres
	motifs
	
	MARILYN MONROE : ÉCRAN 1	
Ce petit pavé graphique, si simple à colorier, va nous		
permettre de créer toutes sortes de mosaïques qui,		
sans rivaliser avec celles des villas romaines, nous	10 CLS:SCPEEN0, 0,0	
	10	READ I,J	
fourniront néanmoins de belles images.	Celles-ci		
	ND0 IF I=99 THEN COLOR3,3:LOCATE 0,0,0:E	
seront de faible définition (24 X 40 = 960 points)	130 FOR AR1 JTO I	
mais sans aucune limitation de couleurs. Pour avoir	150 NEXTAT CMR$ f 127) ;	
un aperçu des possibilités offertes,	tapez le pro-	160 GOTO 100	
	200 REM DATA	
gramme intitulé MOSAIQUE ALÉATOIRE. Après	210 DTA13,3.4,9,3,3,4,9,13,3,3,4	
	22e DRTA13,3.5.9.1,3,7,9.11 ,3,3,4	
vous avoir demandé de frapper une touche pour ini-	230 DATA13. 3.15.9,10.3,2,4	
tialiser le	générateur	de	nombres	aléatoires,	c	290D2T4Al2,3,2.9,1,0,7,9.1.0,4,9,1,0,1,9	
	3	
programme remplit l'écran de carrés de couleurs	270	DATAI1,3.4,9,1,0,5,9,1,0,8,9,9,3,1,4	
aléatoires, au moyen de deux boucles FOR... NEXT.	280 DATA9,3.5,8,9,9,6,8.1 ,9,9,3,1,4	
	290	DRT R7.3.4,9.2,8.1,9,1,8,7,9,1.8,1,9,	
Le	point-virgule	qui	fait	suite	à	la	fonction		
CHR$(127) a pour rôle d'obliger l'ordinateur à affi-		
cher les pavés de couleur sur une même ligne. En		
fin d'exécution, votre écran ressemblera à ceci		

MARILYN MONROE : ÉCRAN 2
300 DATA7,3.12.9.1 .6.10.9.9.3.1.4 
310 DATA7. 3. 12.9. 1.8. 10.9. 9.3. 1.4 
320 DATAI, 3. 12.9. 1.8. 10.9. 9.3. 1.4 
330 DATA7, 3. 12.9. 1 8. 10.9. 9.3. 1.4
340 350 DATAS. 3.21.9.9, 3, 2049.8.3.2.4
360 DATAS.3.9.9.1.8.1.9.1.8.9.9.8.3.3.4 
370 DATAS. 3.21 .9.8.3.3.4
380 DATA9.3.35,9,1.0.3.9.9,3.3.4
390 DATA9.3.7.9.2.1.1.9.2.1.7.9.8.3.4.4 
400 DATA9.3.6.9.7.1 .6.9.6.3.6.4
410 56T610.3.4,9.2.1 .5.7,2.1 .4.9.1 .8.6.3 6.4
420 DATA10.3.5.9.7.1.5.9.1.8.5.3.7.4
430 DATA10.3.1.8.5.9.5.1.5.9.2.8.5.3.7.4
440 DATA10.3.1.9.1.8.13.9.1.8.1.9.1.8.4. 3.8.4
450 DATA99,99

X 59
ri

répondant à la définition :

DEF GR$(X) = 255,255,255,255,255,255,255,255 

Pour laisser un espace entre les différents carrés de votre mosaïque, apportez à votre programme les quelques modifications ci-dessous

20 CLEAR„ 1
30 DEF GR$(0) = 0,127,127,1 27,127,127,127,0 140 PRINT CHR$(128);

Si vous trouvez curieux de ne pas voir apparaître d'instruction PRINT GR$(0), c'est tout simplement que PRINT CHR$(128) a exactement même signification. En effet, pour tout caractère graphique que vous définissez, PRINT GR$(n) et PRINT CHR$(128 + n) sont équivalents.

Voici ce qui devrait maintenant s'inscrire sur votre écran :

Le corps du programme est constitué d'un boucle FOR... NEXT, elle-même imbriquée au sein d'une boucle GOTO.

Les éléments de la liste DATA sont lus deux à deux. Le premier élément (I) désigne le facteur de répétition du motif, le second (J), sa couleur. Ainsi, les deux premiers nombres de la ligne 200 signifient que l'on va répéter 13 fois un bloc de couleur jaune. La boucle FOR... NEXT des lignes 120 à 150 répète I fois le motif de couleur J. Le programme s'interrompt dès que I prend la valeur 99. Il aurait été possible de procéder différemment, et de lire l'image point par point. Il vous aurait alors fallu écrire 24 lignes de 40 éléments chacune :

Vous pouvez modifier ce programme pour que votre image ressemble davantage à celles que vous pouvez voir dans les programmes télétext. Pour cela, il vous suffira de remplacer le caractère CHR$(127) par un caractère graphique que vous aurez défini vous-même.

D'ailleurs, si l'on considère comme caractère graphique le symbole de code 127, il apparaît comme

Apportez une touche personnelle à cette mosaïque en modifiant les codes couleurs des lignes de DATA. Voici un exemple de ce que l'on peut obtenir :
J	1
I6
==LES TABLEAUX==

Les données nécessaires à un programme peuvent être stockées au sein de variables, ou encore à l'intérieur de lignes DATA. Aucune de ces deux solutions n'autorise une grande souplesse d'utilisation.

===L'instruction DATA===

Supposons que vous souhaitiez afficher à l'écran les noms des neuf pays membres de la Communauté Européenne en 1984. Dans l'état actuel de vos connaissances, vous concevriez très certainement un programme de ce genre :

10 N = 9
20 CLS
30 FOR I = 1 TO N
40 READ P$
50 LOCATE 15,5 + I : PRINT P$
60 NEXT
70 END
200 DATA BELGIQUE, DANEMARK, FRANCE, GRANDE BRETAGNE, IRLANDE, ITALIE, LUXEMBOURG, PAYS BAS, R.F.A.

réduite de la liste, cette recherche est quasi instantanée, mais il en serait tout autrement si les 
DATA étaient au nombre de 100 ou 200, voire plus :

EUROPE 2 : PROGRAMME

10 N=9	1 20 FOR I=1 TO N
30 READ P$!I)
40 NEXT 50 CLS
60 PRINT TAB(3) 'Pressez une touche pour canmencer~
70 IF INKEY$=" TMEN.A=RND:GOTO. 70
80 CLS
90 FOR I= 1 TO 5
100	X=INT(RNDR9+1)
110 LOCATE 15.2[I+4:PRINT P$(X)
120 NEXT I
130 END
200 DATA BELGIQUE. DANEMARK .FRANCE.GRANDE BRETAGNE. IRLANDE.I'ALIE.LUXEMBOURG.PAYS
BAS.R.F.A.
L'EUROPE DES NEUF : AFFICHAGE
BELGIQUE. DANEMARK
FRANCE
GRANDE BRETAGNE IRLANDE
ITALIE
LUXEMBOURG
PAYS BAS
R.F.A
OK

Les noms des neuf pays de la C. E. E. sont rangés dans une ligne DATA et affichés au moyen d'une boucle FOR.. .NEXT et des instructions READ et PRINT. Supposons maintenant que vous souhaitiez utiliser ces noms de pays dans un questionnaire et tirer quelques-uns d'entre eux au hasard. Il vous
faudrait alors modifier les lignes précédentes pour
aboutir à quelque chose qui ressemblerait au programme EUROPE 2. Après l'initialisation du générateur de nombres aléatoires, le programme tire au hasard un nombre entre 1 et 9 puis lit les éléments de la liste DATA jusqu'à ce qu'il rencontre le Xe nom de pays. Celui-ci est alors affiché et le processus se répète à quatre autres reprises. Chaque fois, le M05 se voit dans l'obligation de relire tous les éléments qui précèdent l'élément recherché. Vue la taille

===Les tableaux à une dimension===

Pour faciliter la recherche de l'élément souhaité, on peut avoir recours à un tableau. Un tableau n'est autre qu'une collection d'éléments de même nature (nombres, chaînes de caractères...) regroupés sous un nom commun et repérés par un indice. C'est ainsi que le problème précédent pourrait être résolu par
le programme TABLEAU.

Comme vous pouvez le constater sur la liste ci-contre, les changements sont peu nombreux. Les noms des neuf pays sont toujours stockés en DATA et lus au moyen d'une boucle FOR... NEXT. La nouveauté tient à ce que ces éléments ne sont pas affichés immédiatement, mais rangés au sein d'un tableau portant le nom P$. Pour I égal à 1, le mot «BELGIQUE» sera affecté à la variable indicée P$(1). P$(2) contiendra la chaîne «DANEMARK» et ainsi de suite jusqu'à P$(9). Notre tableau contient alors neuf éléments. Ceux-ci pouvant être repérés par un seul nombre, notre tableau sera dit «à une dimension » ou «unidimensionnel ».

L'avantage de ce mode de stockage tient à ce qu'il suffit de préciser l'indice pour retrouver dans le tableau l'élément correspondant. Si vous tapez par exemple PRINT P$(3) en fin d'exécution, l'ordinateur affichera le mot «FRANCE». C'est cette propriété qui est utilisée en ligne 110 pour inscrire à l'écran l'élément d'indice aléatoire X. Si votre tableau contenait un nombre élevé de données, la recherche de la «case» souhaitée serait tout aussi rapide.

Autre avantage des tableaux : il est possible de modifier leur contenu en cours d'exécution. Suppo-


instan-
DATA

TABLEAU A UNE DIMENSION : PROGRAMME
10 N=9 20 CLS
30 PRINT TAB(31'Pressez une touche pour Gonrne ncer°
40 IF INKEY$=R THEN A=RND:GOTO 40
Se CLS
60 FOR I= 1 TO 5
70	X=I NT(RNDV9+1)
80	RESTORE
90	FOR J=1 TO X
100	READ P$
110 NEXT J
120	LOCATE 1S.2iI+4:PRINT P$
130 NEXT I
160 END
200 DATA. BELGIQUE,DANEMARK.FRANCE.GRANDE BRETAGNE, I RLANDE, 1TALIE,LUXEMBOURG., PAYS BA5,R.F..A.

rique, mais comme une chaîne de caractères. Votre tableau ayant désormais deux dimensions, deux
nombres sont nécessaires pour repérer chaque élé-
ment. P$(1,1) recevra la donnée «BELGIQUE», et P$(1,2) la chaîne «30513». Si vous voulez de nouvelles informations comme par exemple la capitale, la monnaie en cours, le nom du président ou du souverain, vous les stockerez dans les variables P$(I,3),
P$(I,4), etc.

Le programme, tel qu'il est conçu ici, se contente d'afficher la superficie de chaque pays en regard de
son nom. Rien ne vous empêche de concevoir un
questionnaire dans lequel l'utilisateur doit associer un nom choisi aléatoirement à une superficie, ou réciproquement :

TABLEAU A DEUX DIMENSIONS : AFFICHAGE

sons par exemple que vous souhaitiez qu'un nom de pays, bien que choisi aléatoirement, ne soit tiré qu'une seule fois. Il vous suffira dans ce cas de rEgouter ces deux lignes :
It?~; IF P$(X) _  ' " THEN GOTO 100
II) P$(X)_"
Chaque nom tiré est immédiatement remplacé par la chaîne vide " ". Aux passages suivants, l'ordinaleur teste le contenu de P$(X). S'il est égal à " " l'ordinateur tire un nouveau nombre.
Si vous décidez à présent d'afficher la superficie, ou toute autre information, en regard du nom de pays concerné, il vous suffira d'ajouter une dimension au tableau précédent :
I'I'ABLEAU A DEUX DIMENSIONS : PROGRAMME)
	
10 N=9	
20 FOR I=	1 TO N	
30	PEAD	F$(I,1).P$(I .2'	
40 NEXT	
50 CL5:5CREEN4,10,.10	
60 ATTRB1.1	
•0 LOCATE12,2, 0:PRINT+L'EUROPE°'	
80 ATTRBO. I:COLOR1. 10	
90 LOCATE 5,6:PRINT'Pays':LOCATE 22,6PR	
INT°5ur'erfic le	(Km2)°	
100 FOPI=0 TO 38:	LI$=LI$+'-°:NEXT	
110 ATTRB0,0 LOCATE	1,7:PRI NT LI$	
120 FOR I= 1 TO N	
130 COLOR 0.10:PRINT	TAB(2)	P$(I,1).	
140.	CDLOR8, 10:PRI NT	TAB(28)P$(I,2)	
150 NEXT	
160 COLOR1,10:PRINT	LI$	
300 DATrABELGIQU:E, 30513,DANEMARK ,43069,FR	
RNGE,551000..GRANDE-BRETAGNE,244030,ITALI	
E,.301249. IRLANDE.70280, LUXEMBOURG,2586.P	
AY5-BA5,33612.°R.F.A.°.e47973	

Ï'n ligne 30, on remplit les cases du tableau à l'aide des variables indicées P$(I,1), et P$(I,2). Le premier élément désigne le nom du pays, le second sa superficie. Le tableau P$ étant de type chaîne, la superficie n'est pas considérée comme une valeur numé-

L 'EUROPE

Si vous décidez d'élargir l'Europe à l'Espagne et au Portugal, il vous suffira d'entrer les lignes suivantes :

10 N=1 1
310 DATA ESPAGNE,504748,PORTUGAL,91971

puis de taper RUN. L'exécution de votre programme prendra fin sur le message « Error 9 in 30 », ce qui signifie en clair que vous avez utilisé un indice (11) supérieur à la limite connue de l'ordinateur. Celle-ci est en effet fixée à 10 par défaut.
Pour accéder à un tableau comportant plus d'éléments, il est nécessaire de le «dimensionner». Cette opération s'effectuera au moyen de l'instruction DIM (abréviation de DIMension). Dans le cas présent, tapez :
11 DIM (N,2)
N désignant le nombre d'éléments pour chacune des dimensions (ligne 10). A la lecture de cette instruction, le M05 réservera suffisamment d'espace mémoire pour que vous puissiez stocker tous les éléments de votre tableau. Si vous relancez l'exécution de votre programme, celui-ci se déroulera sans problème.
i
==DETECTION D'UNE CASE ÉCRAN==

Le M05 est dépourvu d'organes sensoriels. Pour-	nie dont seul le	test de la ligne	70 peut vous
tant, il est capable, à sa manière, de reconnaître les	faire sortir.
caractères affichés sur une page texte, ainsi que les	Ce procédé permet l'introduction d'un texte d'une
couleurs, comme s'il les «voyait» réellement,	longueur quelconque, l'affichage prenant fin avec
	l'apparition de la chaîne "ZZ"ï
La commande SCREEN	La boucle de balayage de l'écran débute en 110.
Cette commande vous est déjà familière. Vous l'uti-	L'ordinateur lit	les	24	lignes	de	la page	texte
lisez pour changer les couleurs d'encre, de marge et	colonne par colonne. Si le caractère de coordonnées
de fond de la totalité de votre écran, dans des lignes	(I,J) a même code ASCII que celui de la lettre tapée
du type :	par l'utilisateur, on change la couleur d'encre, puis
	on réaffiche la lettre au moyen de la fonction
10 SCREEN 0,3,3	CHR$ (ASC(L$))•
C'est cette même commande, employée différem-	En fin d'exécution, toutes les lettres L$ du texte sont
ment„ qui va	nous permettre de déterminer la	écrites en noir
nature d'un caractère quelconque affiché à l'écran.	
		LECTURE PAGE TEXTE : SUITE	
Pour cela, tapez les lignes suivantes :			
10 LOCATE 20,12	PRINT "A" : PRINT			
20 PRINT SCREEN (20,12)			
A l'exécution, la lettre "A" s'affiche au centre de			
l'écran, puis l'ordinateur inscrit le nombre 65 une		500 DATA'LA CIGALE ET LA FOURMI °,°	."LÀ	
		CIGALE AYANT	CHANTE TOUT L'ETE,',°5E TR	
ligne plus bas. Cette valeur n'est autre que celle du		OUVA FORT DEPOURVUE°,°QUAND LA BI5E FUT	
		VENUE.°,°PAS UN SEUL PETIT MORCEAU°	
code ASCII de la lettre "A". Exécuter la ligne 20		510 DATA°DE MOUCHE OU DE VERMICEAU.°,°EL	
		LE ALLA CRIER FAMINE' ,CHEZ LA FOURMI, S	
revient donc à lire puis à afficher le code ASCII du		A 0 DA AE.°.°LA S	RAT SE LUI	PRU5R°	
		520 DATA°QUELQUES GRAINS, POUR SUBBSISTER	
		,°JUSQU'À LA SAISON NOUVELLE^,°<<JE VOU	
caractère de coordonnées (20,12). Pour faire «lire»		5 PAIERAI,))	LUI	DIT-ELLE,°,°<<AVANT L'A	
votre écran à l'ordinateur, il suffira par conséquent		OUT, FOI	D'ANIMAL,°	
Y	~1		530 DATA° I NTERET	ET	PRINCIPAL.>>" ,"LA FO	
		°,°C 'EST	
		URMI	N'EST PAS PRETEUSE.LA SON	
de lui faire examiner le contenu des 1 000 cases de		MOINDRE DÉFAUT.	,'<<QUE FAISIEZ-VOUS AU	
		TEMPS CHAUD	)>.°	
		540 DATA°DIT-ELLE A CETTE EMPRUNTEUSE.--,	
la page texte. C'est ce qu'illustre le programme ci-		- <<NUIT ET JOUR, A TOUT VENANT.	.JE CHA	
dessous :		NTAIS,NE VOUS DEPLAI SE. )>°.°(t VOUS CHANT	
		IEZ	? J'EN SUIS FORT AISE.°	
		550 DATA°EM BIEN, DANSEZ MAINTENANT!,	
		"Z Z"	
		01<	
		___________	
	LECTURE PAGE TEXTE : PROGRAMME				
	r-				
	10 CLSI SCREEN4 ,6.6				
	20 LOCATE 2,10:PRINT"•				
			Détection d'un point de couleur
	30 INPUT°LETTRE A METTRE EN VALEUR °;L$		Ce qui est possible sur les 1000 cases de la page
	40 CLS		~1	Y	p g
	50 FOR I=0 TO 1 STEP 0		
	60	RAD $T$ZZ' THEN 110		texte l'est également sur les 64000 points définis-
	80	L=INT((40-LEN(T$))/2)		sur sables	la pagegraphique. Un	ixel n'étant codé
	90	PRINT TAB(L):T$		p g	pixe
	 FORT 1=0 TO 23		que par sa position et sa couleur, nous ne pourrons
	120	FOR J=0 TO 39		obtenir pour seule information que le code couleur
	130	IF SCREEN(J,I)=ASC(L$)	THEN COLO		
	R0,6:LOCATE J,I:	PRINT	CHR$(ASC(L$11:COL		du dit point. Nous utiliserons, pour ce faire, la fonc-
	OR4.6		
	140	NEXT J		tion POINT (X,Y), où X et Y désignent les coordon-
	150 NEXT I		g
	160 END		nées du point à tester.
			A titre de démonstration, tapez le court programme
			ci-dessous :
			10 CLS : SCREEN 0,3,3
			20 BOXF(40,60)—(280,140),4
	
	Un rectangle bleu (code 4) vient s'inscrire au centre
Le but du programme consiste à mettre en valeur	d'une page uniformément jaune (code 3). Si vous
une lettre particulière en l'affichant dans une cou-	entrez en mode	direct la commande PRINT
leur différente des autres.	POINT(10,10), POINT(160,100), vous obtiendrez res-
L'utilisateur entre en ligne 30 la lettre à faire res-	pectivement les valeurs —4 (fond jaune) et 4 (encre
sortir. La boucle des lignes 50 à 100 affiche le texte	bleue). En utilisant la fonction POINT, l'ordinateur
(une fable célèbre).	va pouvoir déplacer un objet dans un environne-
La ligne 50 utilise une syntaxe assez particulière. Le	ment coloré, ainsi que l'illustre le programme ESCA-
pas est en effet égal à 0, ce qui crée une boucle infi-	LIER.

N
put vous
te d'une fin avec
en 110. ;e texte données re tapée re, puis 'onction
Kte sontESCALIER : PROGRAMME
10 CL5:5CREEN 4,3,3
:0 ATTR5I.1
0 LOCATE8,2,0:PRINT°L'ESCALIER°
40 ATTRBO,0 50 COLORI,3
O L=4:LOCATEO,2,0
'0 FOR I=L TO L+19
350	FOR J=1 TO I
90	PRINT CHR$(127)
100 NEXT J 110 PRINT 120 NEXTI
130 COLOR9,3
140 FOR I=1 TO 39
150 PRINTCHR$(127)-
160 NEXT I 170 CLEAR„1
180 DEF GR$(0)=0,0,60,126,255,255,126.60
LA TR T
EL
ER DU A
1O
V J
1A
JT
page Finis-codé cons fleur 'onc-don-
nme
itre ous NT rescre eur ne-CA-
190 COLOR 4,3
200 8V=1:BH=1
210 LOCATE BH,BV,O:PRINT GR$(0) 220 FOR I=1 TO 100:NEXT I
230 LOCATE BH,BV,O:PRINT°
240 PH=INT(BH,8+4):PV=(NT(B)Ja8+8) 250 IF POINT(PH,PV)=1 THEN BH=BH+1 260 IF POINT(PH,PV)=-4 THEN 0V=BV+1 270 IF POINT(PH.PV)=9 THEN EH=BH+1
280 IF BH>36 THEN LOCATE BH, BV,O:PRINT G R$(0) :END
290 GOTO 210
Une petite bille bleue (caractère graphique défini en 180) tombe le long d'un escalier rouge dessiné par la boucle des lignes 70 à 100. Au bas des marches, un trait rose (code 9) matérialise le sol (lignes 140 à 160).
L'animation de la bille s'effectue aux lignes 200-290. Elle est entièrement commandée par le M05, en fonction des couleurs qui environnent la bille. Pour descendre cet escalier, il n'y a que deux mouvements possibles : un déplacement latéral vers la droite (-3), et un mouvement vers le bas (1).
Pour déterminer quelle direction donner à la bille, le M05 teste la valeur d'un point situé en dessous de celle-ci, et obtenu par les formules INT(BH*8+4) et INT(BV+8+8). BH et BV désignent respectivement les coordonnées horizontale et verticale du caractère «bille». En multipliant ces deux valeurs par 8, on trouve la position équivalente sur la page graphique. On rajoute respectivement 4 et 8 au résultat obtenu et on teste le point (PH,PV). Si on trouve —4, la bille est dans le vide et doit donc descendre. Si on trouve 1, la bille est sur une marche et doit avancer.
Le programme suivant dessine une planète entourée d'un anneau de glace. Le M05 utilise la fonction POINT pour alterner couleurs d'encre et de fond selon qu'il dessine sur une plage de code positif ou négatif (ligne 250) :
PLANÈTE SATURNE : PROGRAMME
10 REM PLANETE
20 CLS:SCREEN0,0,0:LOCATE0. 0,0
30 YO=100:XO=160:R=56:D=YO-R:CO=15 40 GOSUB100
50 L=80:H=16:CO=-S:PI=3.14159 60 GO5UE200
70 IF INKEY$=-- THEN 70
80 END
99 'CERCLE PLEIN
100 FOR Y= 0 TO Ri[2
110 BC=SQRt (RI 2)-[(R-Y )t2 1)
120 LINE(XO-BC.D+Y)-(XO+BC,D+Y),CO 130 NEXT:RETURN
199	ELLIPSE
200 FOR T= 1 TO 5:L=L+1:H=H+1 210 FOR A=0 TO 2.PI STEP PI/180
220	X=LCO5(A)+XO
230	Y=H.5IN(6)+YO
240	IF (X)=102 AND Y<=881 OR (X<=213AN DY(=88)THEN270
250	IF POINT(X,Y)O15 THEN CO = 7 ELSE CO=-8
260	PSET(X,Y),CO
270 NEXT A:NEXT T: RETURN
Les coordonnées d'un cercle
Pour tracer un cercle sur une feuille de papier, il vous faut piquer un compas en un point qui représentera le centre de votre cercle puis choisir un écartement qui en déterminera le rayon. Pour dessiner un cercle sur l'écran de votre ordinateur, c'est à peine plus compliqué.
Commencez par placer le curseur graphique au milieu de votre écran (point de coordonnées
[160,100]). Ceci fait, choisissez un nombre entre 1 et 99 pour le rayon R (une valeur supérieure vous ferait sortir de l'écran). Il ne vous restera plus alors qu'à afficher chacun des points de votre cercle en faisant appel à la formule suivante
Coordonnée X = R *- COS(I)
Coordonnée Y = R * SIN(I)
COS et SIN sont deux fonctions mathématiques (fonction COSINUS et fonction SINUS). I désigne un angle exprimé en radians et variant de 0 à 2*PI (0 à 360 degrés). PI représente le rapport existant entre la circonférence d'un cercle et son diamètre. Cette valeur est constante et se traduit par le nombre 3.141592.
Ceci étant posé, voici le programme qui vous permettra de tracer un cercle :
CERCLE : PROGRAMME
10 CL S: 5CREENO.1,1 20 'O=160:r0=Y:Op 30 P I =3. 14159
40 R=90:LOCATE0 r0.0
50 FOR 1=0 TO. 2t~P.I STEP .05
60 X=R«COS(I)+XO 70 Y=PaSIN(I }+Y0 30 P5ET(X.Y)
90 NEXT IELLIPSES
Pour tracer un cercle plus petit, il vous suffira de modifier la valeur de R en ligne 40. Le programme suivant fait appel à une boucle pratiquement similaire pour dessiner une succession de cercles concentriques de couleurs différentes. Les lignes de tracé du cercle constituent désormais un sous-programme qu'il est possible d'appeler à tout instant :
CERCLES CONCENTRIQUES : PROGRAMME
10 CL5:5CREEN00.0 20 LOCATE0,0,0
30 R=100:X0=160:YO=100:PI=3.14159
40 FOR CO= 1 TO 12 50 COLOR CO
60	R=R-8
70 GOSUB 10,0
80 NEXT CO
90 END
100 FOR A=0 TO 2%PI STEP 0.05
110 X=R*CO5(A)+XO
120 Y=Ra5IN(A)+YO:Y=Yr~0.9
130 PSET(X,Y).CO
140 NEXT A 150 RETURN
CERCLES ET
Le M05 dispose de nombreuses instructions graphi-	de I de 0 à 2*PI, avec un pas de 0.05 (pour un tracé
ques permettant notamment d'afficher points, traits,	plus précis, diminuez le pas). Chacun des points X
rectangles vides et pleins. Il n'existe malheureuse-	et Y est ensuite affiché en fonction des coordonnées
ment rien de similaire pour le tracé automatique	du centre (variables XO,YO) :
de cercles ou de courbes. Cela ne signifie pas pour autant que nous allons devoir nous limiter aux seules figures rectangulaires. Puisque l'instruction de tracé de cercles fait défaut, inventons-la.
ru
1
I,i' t,iy=ut, h 4=rad tins, d 1J0 eu ligue 40. La boucle des d	( anuiut ',i	,)vri)cut lrs valeurs
Le sous-programme des lignes 100 et suivantes est appelé à 12 reprises. Le rayon initial, d'une valeur de 100, est décrémenté de huit unités à chaque passage dans la boucle, afin que les couleurs ne viennent pas se superposer les unes aux autres : rappelez-vous en effet qu'il est impossible de faire cohabiter plus de deux couleurs différentes (encre et fond)
-5
in tracé
oints X tonnées
ra de imme
simi-ncen-
tracé [mme
E
est
.eur )as-
.en-
~pe-
ibi-
nd)
r une même série de huit pixels. La couleur du lrc:le courant est déterminée par la valeur de la 1 r iable compteur I. Le pas choisi ici ne produit pas
X111 trait continu, mais il améliore la rapidité d'exéution du programme. Pour un tracé plus précis, nuis aussi plus lent, choisissez un pas de 0.001.
Lw s ellipses
i'rol;rammer une ellipse ne pose guère plus de proI)Içnte que le tracé d'un cercle
I 7 CLS : SCREENO,1,1
I OCATEO,0,0
Hi = 150.R2=90:XO=160:YO= 100: P1
14159
1H) C;OSUB 100 I ND
i i FOR A=0 TO 2*PI STEP 0.01
I)) X=R1*COS(A)+XO
1U Y = R2*SIN(A) +YO :Y=Y*0.9
F) PSET(X,Y),CO
14U NEXT A 1 ,u RETURN
Vous remarquerez que le sous-programme de tracé d' l'ellipse ne diffère de celui du cercle que par la 1wésence de deux valeurs (variables Ri et R2) en lieu et place du rayon R. R1 détermine les dimen'ions de la moitié horizontale de l'ellipse, R2 celI~'s de la moitié verticale. Essayez de modifier les valeurs de ces variables et notez les variations ainsi
obtenues :
Si vous utilisez les mêmes valeurs pour Ri et R2, le programme vous redessine un cercle. Il se peut que les cercles qui apparaissent sur votre écran ne semhlent pas être parfaitement « ronds ». Si tel est le cas,
introduisez un facteur de correction dans-le calcul
ries coordonnées X ou Y, selon que le cercle s'étale iargeur ou en hauteur. Pour un cercle plus «haut» que «large», tapez :
Y=R*SIN(I):Y=Y*0.9
En modifiant légèrement le programme CERCLES CON-
CENTRIQOES, voici ce que vous pouvez obtenir :
Lorsque vous maîtriserez la technique de tracé des
courbes, vous pourrez créer toutes sortes de motifs, témoin cette représentation d'une boîte de conserve :
BOITE DE CONSERVE
.0 CLO:5CREEN4.3,3
20 L0C6TE0,0,0
30 L=O:H=18:PI3.14159
40 XO=160:Y0=20:T=2,PI
50 GO500 200
60 LINE(?(,y)-(230,160)
-0 Y0=160:T=PI 80 GO5UB200
90 LINE(X,Y )-(90,207
100 ATTRBO,1.:COLORI,3
110 LOCATE17,8:PRINT°PETITS°:LOCATEI8,10
: PR  NT POI 5°
120 LOC AT E18. 13: PR I NT°EXTRA- :LOCATE18,15
:PRI NT°FINS'
130 ATT RB0,0:LOCATEO,0,0
140 COLOR0.3:END
200 FOR A=0 TO T STEP 0.02
210 X=La CO5(A)+XO
220 Y=H,SIN(A7+Y0
230 PSET(X,Y) 240 NEXT A
250 PETURN
COURBE DE LISSAJOUS : AFFICHAGE
Les spirales
En modifiant très légèrement le précédent programme, on peut créer des spirales tout aussi plaisantes :
A partir du sous-programme de tracé d'un cercle introduit au chapitre précédent, il est possible, moyennant quelques infimes modifications, de générer une multitude de courbes aussi variées que spectaculaires.
Les courbes de Lissajous
Nous avons vu qu'en modifiant la longueur du rayon dans une des deux formules R*COS(I) et R*SIN(I), on pouvait obtenir une ellipse. Voyons maintenant ce qui se produit si l'on agit sur le sinus de l'angle I. Pour cela, entrez puis exécutez ce court programme :
10 CLS : SCREENO,7,7 20X0=160:YO=100R=90 30P1=3 14159
40 FOR 1 = 0 TO 2 *PI STEP 0.005 50 X = R*COS(1) + XO
60 Y=R*SIN(2.1)+YO
70 PSET(X,Y)
80 NEXT I
90 END
On obtient une courbe fermée du plus joli effet appelée «courbe de Lissajous », du nom du physicien français qui en découvrit les propriétés au siècle dernier.
Si vous multipliez l'angle I de la formule SIN(I) par une certaine valeur, vous agirez sur le nombre de boucles dessinées. Un facteur 3 donnera naissance à trois boucles, un facteur 4 à quatre boucles, et ainsi de suite.
La première photo d'écran de la page ci-contre illustre le tracé obtenu avec un facteur 8. Si vous employez un facteur 100 et un pas de 0.001, vous pourrez admirer, après quelques longs instants, les élégantes arabesques de la seconde photo d'écran :
10 CLS : SCREENO,1,1
20 XO = 160:Y0= 100
30 PI = 3.14159
40 FOR I = 0 TO 60* PI STEP .05 50 X = I/2.COS(I) + XO
60 Y=1/2*SIN(I)+YO
70 PSET(X,Y)
80 NEXT I
Au lieu d'utiliser une boucle variant de 0 à 2*PI, comme on le faisait jusqu'ici, ce programme boucle jusqu'à une valeur limite de 60*PI.
Autre changement : le rayon n'intervient absolument pas dans le calcul des coordonnées. C'est la valeur de l'angle I qui détermine à elle seule la position des points de la spirale. La division par 2 de la
V'.
T
de I a pour effet de rapprocher les volu~ Il. Ira spirale, créant ainsi une figure plus «res-
On fait appel ici à l'instruction LINE de manière à ce que les traits dessinés ne soient plus constitués de pointillés mais ressortent plus distinctement. Il faut noter que le programme fonctionnerait tout aussi bien avec l'instruction PSET(X,4).
pro-Dlai-
PI, cle
lu-la
si-
la
Date spirale «de base» peut également être d'hrmée par simple multiplication de la valeur de 1 A titre de démonstration, modifiez comme suit les I );ues suivantes :
H) CLS : SCREEN 7,4,4
1 OR 1 =010 20-,,PI STEP 0.02 X = 2.5*I*COS(II + XO
TOURBILLON: AFFICHAGE
En décalant légèrement le centre de la spirale à chaque passage dans la boucle, on crée une sorte de cône. Il faut, pour 'cela, avoir recours à ces quelques lignes :
'n X	=10 Y0=5
-+v F05	ï =0 10 34*PI STEP 0.05
45 X0	X0+0.05:Y0=Y0+0.05
50 X =	I*COS(I) + XO
60 Y	I.SIN(I)+YO
70 LINE — (X,Y)
Pour clore ce tour d'horizon des fonctions SIN et
COS, nous allons apprendre à dessiner des rosaces ou, si vous préférez, des fleurs avec des pétales dis-
posés régulièrement.
Pour cela, modifiez une nouvelle fois votre programme comme indiqué ci-dessous :
20X0= 160:YO= 100: K=3: N= 12 35 PSET(XO + 20*K + 20,YO)
40 FOR 1 =0 TO 2*PI STEP 0.02
50 X = (K + COS(N*I))*COS(I) : X = X*20 60 Y = (K + COS(N*I))*SIN(I) : Y = Y*20 70 LINE—(X+XO,YO—Y)
En faisant varier N à la ligne 20, vous pouvez augmenter ou diminuer le nombre de « pétales » pour «dessiner» des fleurs différentes. Voici la courbe obtenue pour N= 12 :
FLEUR A 12 PÉTALES : AFFICHAGE
		
		
		
		
I.I			fVLLJ				TLCIIVJ
Maintenant que le tracé des cercles et des ellipses	tionne au centre du cercle, et l'on trace une droite
n'a plus de secret pour vous, apprenons à dessiner	depuis l'origine jusqu'au point de coordonnées (X,Y).
un disque.	Le résultat final, bien que dessiné assez rapidement,
Il serait possible pour cela de tracer un premier cer-	ne comble pas vraiment nos espérances. L'image qui
cle, de diminuer de 1 la longueur du rayon, de des-	apparaît à l'écran fait penser davantage à un soleil
siner un second cercle, et ainsi de suite. Vous con-	qu'à un cercle plein. Si vous pensez résoudre le pro-
naissez suffisamment le problème désormais pour	blème en diminuant le pas (ligne 100), sachez qu'il
savoir qu'une telle méthode nécessiterait un temps	vous faudra 10 minutes pour remplir, imparfaite-
de tracé difficilement acceptable pour un petit cer-	ment, votre disque avec un incrément de 0.001. Les
cle, et franchement intolérable pour un cercle de	«jours» qui subsisteront sont dûs au mode de tracé
taille moyenne (1 heure 15 minutes pour R=90 et	du M05 et demeureront visibles quel que soit le
un pas de 0.005).	pas employé.
Une autre solution consiste à utiliser le rayon R	
et à le faire tourner autour de l'axe constitué par	Triangle et disque
le centre (XO,YO). C'est cette seconde méthode que	Les deux méthodes présentées jusqu'ici s'avérant
nous allons illustrer maintenant :	soit trop lentes, soit imparfaites, nous allons aban-
	donner les sinus et les cosinus pour nous tourner
	vers un mode de tracé faisant appel au théorème
	RAYON TOURNANT		
			de Pythagore.
			
			Ce théorème bien connu se rapporte, pour mémoire,
			au triangle rectangle et énonce que le carré de la
			longueur de l'hypoténuse d'un triangle rectangle est
	10 ~ -Oo_5:ATEER© ,Ea ENO		
	0		égale à la somme des carrés de la longueur de cha
	0;X	50'a'°		
	_0	R=90=170100:PI=3.14159		
	0 :	=		cun des deux autres côtés.	Si	l'on considère un trian -
	40 COLOR 14		
	sfa cocus sae		
	ENS		
	10		gle rectangle ABC, ceci pourrait s'exprimer par
	100 FOR A=0		
	=0 TO	STEP 0.02		
	1	n		
	1 0	X=Rr_05(A)+XO		AC~2 = AB 2 + BC2.
	+X0		
	120	Y=R3M5IN(A)+70:7=7310.9		
	1 30	I NE f XO . Y o 	f x	7		
	1 10	A		Pour ceux qui ne comprennent pas le rapport exis-
	NETX		
	150 PETURN		tant	entre	un	triangle	et	un	disque,	voici	un
			schéma qui devrait éclaircir quelques points encore
			obscurs :
			
			LE THÉORÈME DE PYTHAGORE APPLIQUÉ AU. TRACÉ
			D'UN DISÛUE
																		
																
																
																
																
																
																
																
																
																
																
																
																
																
																
																
																
	Les points A, B, C, A, B1, C,, A, B2, C2 forment trois
'	1 4	; 	triangles rectangles. A désignant également l'origine
	d'un demi-cercle, on peut déduire de ce schéma que
	les longueurs AC,AC,, et AC2 sont toutes trois égales
	à la longueur du rayon de ce demi-cercle.
	Connaissant AC, il ne nous reste plus qu'à détermi-
On retrouve le sous-programme de tracé du chapitre	ner les valeurs de AB et BC. Pour la première, un
précédent (ligne 100 à 140), mais l'instruction PSET	coup d'ail au schéma de la page précédente nous
a été remplacée par un LINE (XO,YO)—(X,Y). A cha-	apprend que la longueur du segment AC variera de
que passage dans la boucle, le curseur se reposi-	R à 0. Pour calculer la longueur de BC, il nous suf-

15
'oite
Y)
ent, qui )leil
Jro-
u'il
iteLes acé le
de poser
AB2+BC2
1 l I i, nous pouvons déduire que BC 2 = AC 2 — AB"2 f i, partant, que BC = AC 2 — AB 2. Ce sont ces ~iièines calculs qui sont à la base du programme Dzs-
i:. La longueur du segment BC est déterminée en Ippie 110. La valeur obtenue est alors utilisée pour 1 t cer un trait de part et d'autre d'une verticale pasuit par le point XO (ligne 120). Y varie de 0 à R*2 (diamètre du cercle). Quand Y vaut 0, le segment BC +, ;i (le même longueur que le rayon. Le tracé s'effeci i i : en quelques secondes et le disque obtenu est totai(nient exempt de «jours» :1	MOTIF DE L'OURSON	1
10 CLS:SCREENI,I,I:LOCRTE0,0.0
20 XO=160:70=100:R=72:D=YO-R:CO=3
30 GOSUB 200
40 XO=96:R=40:70=56:D=Y0-R:CO=3
50 G05UB 200 60 XO=224
70 GOSUB 200
80 XO=136:YO=96:R=8:D=YO-R:CO=-1
90 GOSUB 200 100 XO=184 110 GOSUB 200
120 )(O=160:YO=120: R=16:D=YO-R:CO=-i
130 GOSUB 200
140 YO=150: R=8:D=Y0-R:CO=-10
150 605U5 200 160 END
200 FOR Y=1 TO Rx2-1
210 BC=SOR( (Rt2)-((R-Y)t2))
220 LIN E(XO-BC,D+Y)-(XO+BC,D+Y3,CO
230 NEXT
240 RETURN
Int inier ne
re,
la 'st
.a-
n-
.s-in °e
E
==DISQUE==
10 CL$:5CREEN 3.3.3
20 YO=100:XO=160:R=50:D=YO-R:CO=1 30 GOSUB100..
40 END
100 FOR Y=OTOR.2.
110 BC=SQR[(Rt2)-((R-Y)t211.
120 LINE(XO-BC,D+Y)-(XO+3C,D+Y1.CO 130 NEXT
140 RETURN
partir de ces lignes, vous pouvez imaginer toutes
ries de motifs basés sur des disques, comme en
riijirne le petit ourson du programme suivant
,Luson est constitué de sept disques de trois cou-
rs différentes. Pour afficher les yeux, le nez et ii bouche, il faut avoir recours à des codes couleurs ~ )p,itifs, car on trace sur de l'encre :
Si vous remplacez les lignes 10 à 160 du précédent programme par celles qui suivent, vous obtiendrez un motif qui vous rappellera très certainement une certaine petite souris :
20X0=160: Y0=135: R=64: D=Y0-R: CO=0: GOSUB 200 30X0= 104: Y0=49: R=48: D=YO-R: GOSUB 200 40X0=216: Y0=49: R=48: D=YO-R: GOSUB 200 50X0=140: YO=120:R=32: D=Y0-R:CO=-8:GOSUB 200 60X0= 180: Y0: 120: D = Y0 - R : GOSUB 200
70X0= 160: YO =145: R=40: D = Y0 - R : GOSUB 200 80 Y0= 145: R= 12: D=YO-R: CO=0: GOSUB 200
90 Y0=178: R= 14: D=YO-R: GOSUB 200
100 XO =142: '(0=125: D = YO - R : GOSUB 200
110 XO =178: GOSUB 200
120 Y0=130: R=5: D=YO-R: C0=-8: GOSUB 200 130 X0= 142: GOSUB 200: END
Il ne vous reste plus qu'à laisser libre cours à votre imagination pour créer des graphismes mêlant droites et courbes. Le champ d'investigation est vaste et vous fera passer d'agréables moments.


==LA SAUVEGARDE DES PROGRAMMES==
Nous allons aborder ici quelques techniques de sauvegarde et de chargement qui vous permettront de tirer meilleur parti de votre M05, de protéger vos oeuvres des curieux, ou encore de réemployer à loisir certaines routines particulièrement utiles.
Chargement et exécution des programmes
Jusqu'ici, lorsque vous souhaitiez charger puis exécuter un programme, vous entriez successivement les commandes suivantes :
LOAD «Nom de programme» RUN
Pour ce faire, vous pouvez utiliser uniquement
RUN «Nom de programme»
Cette commande aura pour effet d'assurer le chargement en mémoire du programme spécifié, puis d'en lancer immédiatement l'exécution. Il existe une autre manière de procéder qui fait appel à la commande LOAD, et qui consiste à écrire
LOAD « Nom de Droaramme». R
Sauvegarde et fusion de programmes
Il n'est pas rare en programmation que l'on réutilise les mêmes routines, dans des programmes parfois très différents. Si vous avez mis au point un programme ou un sous-programme dont vous avez tout lieu d'être satisfait, vous souhaiterez certainement l'inclure dans de nombreux programmes. Quelles options s'offrent alors à vous ?
Tout d'abord, vous pouvez tout simplement recopier cette routine dans sa totalité. Si votre sous-pro-
gramme se révèle trop long pour être retapé rapi-
dement, vous pouvez néanmoins le réutiliser sans devoir le réécrire. Supposons que vous souhaitiez
inclure la routine de tracé d'un disque dans un de
vos programmes. Voici comment vous y prendre :
RÉEMPLOI D'UNE ROUTINE : ,PROGRAMME
OK
LOAD 'OUR50N°
5earch in9
F0Uid: OURSON	BAS
OK
DELETE 10-160
OK
LIST
200 FOR Y=1 TO R42-1
210 QM=SQR((Rt2)-« R-Y)t2))
220 LINE(X0_QM.D+Y)-(XO+QM.D+Y) CO 230 NEXT
240 PET URN
OKComme vous pouvez le constater sur la photo d'écran ci-contre, nous avons d'abord appelé le programme OURSON par une commande LOAD, puis à l'aide de l'instruction DELETE, nous avons supprimé toutes les lignes qui ne nous intéressaient pas, afin de ne
conserver que la seule routine de tracé d'un disque.
Il ne nous reste plus désormais qu'à taper notre programme en prenant garde, cependant, de choisir des numéros de lignes différents de ceux employés par le sous-programme. Cela fait, nous pourrons sauvegarder le tout sous un nouveau nom.
Il existe, vous devez vous en douter, une seconde solution, à la fois plus simple et plus performante. Elle vous permettra, si vous le désirez, de bâtir tout un programme à l'aide de routines déjà existantes. Pour illustrer ce procédé, commençons par créer un sous-programme, en l'occurence une routine musicale qui exécute les premières mesures de la «Petite Musique de Nuit» de Wolfgang Amadeus Mozart :
(	K525 : PROGRAMME	1
9000 REM PETITE MUSIQUE DE NUIT
9010 A$='5OL12PREL245OL12PRE5ORESO5I O5RE L24PDOL 12PO4LAO5DOL12PO4LAO5DOO4LAFA*LA REL24P'
9020 B$=IL125OPL245OL 12505I LA5O5OL24FA*L 12FA$LAOSDO04FA#.LASOL245OL12505ILA5O5OFA *L24FA*L12FA*LAO5DO04FA*5O5O'
9030 C$=-L65OFA*MI FA*L12505OL65ILA5OLAL1
25I SIO5L6REDOO45IO5DOREL24PL48REMI L6RELI 5DOL24DOL6D004Li55I L245I°
9040 D$=~L65ILI5LAL24LAL125OFA*MIFA4SOPL APSIPL24P L4805REMIL12REDODODODOO45I5IS1S
I LALALASOFA*MIFA*L4850' 9050 PLAY IT7'+A$
9060 PLAY B$:PLAYC$:PLAYD$ 9070 RETURN	_
Pour lancer l'exécution de ce sous-programme, tapez GOSUB 9000 en mode direct. Ceci fait, entrez la commande suivante :
SAVE "K525°.A
"K525" est le nom donné à cette routine. Il correspond au numéro de catalogue de cette oeuvre de Mozart. Le A qui fait suite à la commande SAVE
indique à l'ordinateur d'effectuer la sauvegarde de
ce programme sous une forme codée. Le code choisi vous est familier. Vous le connaissez sous le nom de code ASCII. Cette sauvegarde d'un genre assez particulier (elle est notamment plus lente que la sauvegarde habituelle) vous permettra, le moment venu, de fusionner cette routine avec un autre programme. Tapez NEW pour effacer de la mémoire de l'ordinateur toute trace de ces lignes, et notez sur une feuille de papier le numéro qui apparaît sur le compteur de
17
~Ec
'aIIrr~~.
ide d
torii, de rt(,
isgrir e pro ir d,
s p€u
au v,
'onde ante tout
ntes,
r un
lusi
Mite
ii(k votre lecteur-enregistreur de programme.
(l ,errons besoin très prochainement. Cette ri((l terminée, recopiez le programme dont la
sur la page ci-contre. Il s'agit pour »i ut('Iur de retrouver en cinq coups le nombre o(t~uti~rernent par l'ordinateur. En cas de succès,
1;(nuxne affiche «gagné», puis se branche au j,tOt;num Ine de la ligne 9 000 (celui-là même que i'('iii-z. d'enregistrer). Sinon, il guide le joueur Iii indiquant brièvement si sa réponse est supéà+ (u inférieure à la valeur générée :
PROGRAMME DE JEU
à" t;l. 5: 5CREEN
: 4f rRINT TAB(3) ^'PRESSEZ UNE TOUCHE POUR (IMMENCER'
*1~ If INKEY$=rte THEN X=RND:GOTO 30
40 , L5:PRIMT TAB(8) 'RETROUVEZ DANS CE C A( :PRINT TAB(6) 'LE CARRE TIRE PAR LA l(RCMI NEC
'. ü0 BOX(39.39)-(280.176).0
%6 A=INT(RND#29+5):B=INT (RNDl17+5) >N INPUTP(EN X,Y:I X<0 OR Y<0 THEN 70
no IF X<40 OR X>280 OR Y<39 OR Y>176 THE N PLAY DOMII:LOCATE 14.23:PRINT'HORS CA ü(+r;':GOTO 70
UU10 X=X/B:Y=Y/S:IF PTRIG THEN PLAY -LA^ 100 DIF=SQR((A-X)I(A-X)+(B-Y).(B-Y))
1!0 IF DIF<2 THEN LOCATE X,Y:PRINT CHR$( 137):LOCATE 17.20:PRINT~GAGNE~;: END
1.0 IF DI >2 AND DIF<=4 THEN LOCATE 16. .. 3:PRINT PIF	: GOTO 70
130 IF DIF >4 AND DIF<=6 THEN LOCATE 17. 3:PRINT CHAUD':GOTO 70
140 LOCATE 14.23:PRINT-	':GOTO "0
Dès l'affichage du message de fin d'exécution, listez votre programme. Comme vous pourrez le constater, la ligne 9 000 s'enchaîne immédiatement à la suite de la ligne 180.
En tapant la commande MERGE, vous avez demandé à l'ordinateur de fusionner le programme "K525" à celui se trouvant en mémoire. Seule précaution à prendre : les numéros de lignes des deux programmes ne doivent pas coïncider, sinon le programme que vous appelez par MERGE effacera le
programme courant. Prenez pour habitude de don-
ner à vos routines «utilitaires» des numéros de lignes élevés. Vous éviterez ainsi toute mauvaise surprise. Notez, pour clore ce paragraphe, que MERGE, tout comme LOAD et SAVE, peut être employé au sein d'un programme.
Protection des programmes
Si vous devez inclure dans vos programmes des renseignements confidentiels, ou des routines que vous
ne souhaitez pas divulguer, vous serez content
d'apprendre que le M05 vous permet de protéger vos oeuvres de tous les regards indiscrets (même des vôtres).
Pour découvrir comment procéder, commencez par entrer au clavier ce court programme :
N : PROGRAMME
z
i
Pour être complet, ce programme a besoin de la rout rt(~ K525", Rembobinez votre cassette de manière tl positionner la tête de lecture de votre magnétophone au début de ce sous-programme, puis mettez-vus en position <ENREGISTREMENT> et tapez :
Mr fiGE "K525"'
I.ee L. E. P. se mettra en marche et, au bout de quel-pies instants, le M05 vous signalera qu'il vient de trouver le programme recherché.
FUSION DE DEUX PROGRAMMES
110 R=VAL(R$): IF R(1 OR R>100 THEN 90: 120 IF R=N THEN ATTRB 1.1•LOCATE 15.20:
PRINT'
'GAGNE :ATTRB 0.0:G0SUB 9000:GOTO.
180
130	IF R(N THEN PRINT -TROP PETIT~;
140	IF R)N THEN PRINT 'TROP GRAND';
150	IF I<5 THEN PRINT	RECOMMENCEZF OR P= 1 TO 500:NEXT P
160 NEXT I
170 PRINTIPRINT +LE NOMBRE A DEVINER ETA IT N: FOR P=1 TO 600:NEXT P
180 GOTO 40
9000 REM PETITE MUSIQUE DE NUIT
9010 A$=~ 5OL12PREL245OL12PRESORESOS105RE L24PDOL 12PO4LAO5DOL 12PO4LAO SDOO4LAFA*LA REL24P~
9020 B$=;L1250PL2450L125051LA5050L24FA*L 12FA4LAOSDO04FA€LASOL245OL.12505I LASOSOFA $L24FA*L12FA*LAOSDO04FA#5050'
9030 C$=~L6}SOFA*MI FA$L12505OL65I LASOLALI 25I5I O5L6RED0045I OSDOREL24PL48REHI L6RELI SOOL24DOL 6DO04L 155I L245I°
9040 D$=°L651 L]SLL24LAL 1250FA#MIFA#SOFL AP 5IPL24PL4805REMILI2REDODODOD0045I515I5 ILALALASOFA*HIFA*L485O-

10 REM PROGRAMME TOP SECRET
20 REM Ce programme contient des renseignements confidentiels à ne divulguer sous aucun prétexte.
30 CLS SCREEN1.3.3
40 ATTRBI.1
50 LOCATE 10,2:PRINT 'TOP-SECRET'
60 LOCATE 10.4:PRINT
70 ATTRBO,0:COLOR 4.3
80 LOCATE4.10:INPUT°ENTREZ LE MOT DE PAS 5E .MP$
90: REM Le mot de .passe est: PUCE
100. IF MP$=''PUCE THEN PRINT:PRINT TAB(i 1) 'Boni Our Agent 135232':GOTQ 120
110 PRINT:PRINT TAB(4) -VOUS n'êtes qu'u n imposteur. :PRINT TAB(4) 'A Moi la9ar de ........': FOR I=1 TO 20.:PLA1 L125I SO :11 EXTIEND
120 PRINT:PRINT -Votre mission consister a â c(émasquer':PRINT'Ie traître qui se c ache parmi nous.'
130 END
Comme vous pouvez le voir, ce programme renferme un renseignement important (en l'occurrence un mot de passe) en ligne 90. Pour rendre ces lignes invisibles à toute personne, tapez :
SAVE ""SECRET", P
où la lettre «P» signifie « PROTECTION ». Une fois la sauvegarde terminée, rechargez le programme en mémoire par un LOAD ou un RUN. Vous pouvez toujours l'exécuter, mais vous n'êtes plus en mesure de le lister. L'erreur de code 61 qui apparaîtra sur
votre écran chaque fois que vous taperez la com-
mande LIST, signifie tout simplement que ce pro-
gramme est protégé.
Les modes de stockage de données que vous avez
utilisés jusqu'ici mélangeaient programmes et informations, que ce soit au sein de variables ou à l'intérieur de lignes DATA. Vous allez apprendre, au
cours de ces deux pages, à créer puis à relire des
fichiers indépendants auxquels vous pourrez faire appel depuis tous vos programmes.
Les fichiers
Toute personne manipulant une grande quantité d'informations est amenée, tôt ou tard, à classer celles-ci dans un fichier. Un fichier n'est rien d'autre qu'une «boîte» regroupant un ensemble d'éléments de même nature ou apparentés. Si vous avez déjà inscrit dans un répertoire les noms et adresses de vos amis, vous savez ce qu'est un fichier. Les fichiers présentent de nombreux avantages. Ils permettent d'ordonner les informations, et surtout, de les retrouver rapidement en cas de nécessité.
Un fichier informatique ne se distingue d'un fichier classique que par le «support» employé. Au lieu de fiches de bristol ou d'un répertoire alphabétique, vous allez vous servir de la bande magnétique qui vous permet déjà de stocker vos programmes. Ces derniers constituent d'ailleurs autant de fichiers, leurs éléments étant représentés par des lignes, classées selon un numéro.
La création d'un fichier
Supposons que vous souhaitiez tester les connaissan-
ces de vos proches en matière d'Histoire de France. Vous allez pour cela constituer un fichier de dates
que vous pourrez utiliser indifféremment dans un jeu ou dans un questionnaire. Voici le programme qui vous permettra de réaliser cette opération. Recopiez-le, puis essayez d'en comprendre, par vous-même, le déroulement, avant de lire les explications suivantes :
CRÉER UN FICHIER : PROGRAMME
10 CLS
20 OPEN ' 0'.*1."8ATAILLE~
39 FOR I=0 TO 1 STEP 0
40 READ 5$,D$
50 IF 8$FIN' THEN 80 60 PRINT41.8$.D$
70 NEXT I
80 CLOSE *1
90 END
100 DATA EOUVINE5. 1214.CRECY,1346,AZINCO
URT.1415.SIEGE D'ORLEANS.i429.MARIGNANv1
515,VALMY .1792.MARENGO, 1800, TRAFALGAR, 18
05.AUSTERLITZ.1805.IENA.1.806,NAGRAM, 809 ,WATERLOO ,1815
110 DATA FIN.FINNous sommes partis ici de quelques noms de batailles célèbres accompagnés de leur date, et nous avons rangé le tout en DATA. Pour ranger ou sortir une fiche d'un classeur, il vous faut commencer par ouvrir ce dernier. En informatique, c'est exactement pareil : un fichier doit être ouvert avant toute opération de lecture ou d'écriture. C'est ce que fait la commande OPEN («Ouvrir» en anglais) de la ligne 20. Attardons-nous sur cette ligne. Le «0» qui fait suite à OPEN désigne la première lettre du mot OUTPUT. Cela signifie que vous allez ouvrir un fichier en «Sortie» (vous allez y écrire quelque chose). Ce fichier sera ouvert sur le canal 1, noté e 1. Vous pouvez choisir entre 16 canaux numérotés de 1 à 16, mais il vous faudra réutiliser le même numéro lors de l'écriture des données au sein du fichier. Après le numéro du canal de sortie, se trouve le nom du fichier proprement dit. Il obéit aux mêmes règles d'écriture que les noms de programmes, et ne devra par conséquent pas excéder huit lettres.
La boucle des lignes 30 à 70 lit les données une à une et les inscrit au fur et à mesure dans le fichier. Cette opération s'effectue par le biais de l'instruction PRINT ; 1. Les données ne sont pas affichées à l'écran mais dirigées vers le canal 1, en l'occurence le lecteur-enregistreur de programmes.
Lorsque le dernier élément a été lu, on referme le fichier au moyen d'une instruction CLOSE e 1 (« Fermer»). Pour lancer votre programme, mettez votre magnétophone en position <ENREGISTREMENT> puis tapez RUN. Le L. E. P. se mettra en marche automatiquement et s'arrêtera dès la dernière information écrite. Rien ne vous permettant, pour l'instant, de vérifier que votre fichier a été créé, rembobinez votre bande puis tapez LOAD « ZZ ».
Le message qui apparaît sur votre écran après quelques instants vous indique que le M05 a trouvé sur la cassette un fichier de données (symbolisé par DAT) portant le nom de BATAILLE.
Lecture d'un fichier
Un fichier ne servirait à rien s'il n'était pas possible de le relire. Détruisez pour cela le programme précédent par NEW, afin d'effacer de la mémoire de l'ordinateur toute trace de vos données, puis entrez le programme LIRE UN FICHIER. Celui-ci commence par réserver 5 000 octets pour les chaînes de caractères (ligne 20), puis dimensionne un tableau appelé B$, qui renfermera à la fois le nom de la bataille et sa date. La ligne 40 ouvre le fichier BATAILLE en Entrée (le «I» signifie INPUT). La lecture des éléments du fichier s'effectue à l'aide de deux boucles imbriquées et de l'instruction INPUT ~ 1. Pour contrôler la présence en mémoire des éle ments du fichier, on les affiche (ligne 90) avant de refermer le fichier. Pour exécuter ce programme, rembobinez votre bande puis mettez votre magne
t
—Î 19
liai.t,ti
av(rt
lr UII'
r p, nl(tu )part
cw!
e 20
suit.i'
OUT j ~hict~
pou
16,
lors près du gles vra

constituera, avec NA, le premier enregistrement du fichier. Il est important de sauvegarder ces deux valeurs pour pouvoir relire le fichier sans problème. La fonction EOF(1) de la ligne 920 détecte la fin d'un fichier (End Of File). Lorsque celle-ci est décelée, le fichier est refermé :
i! vii position <LECTURE> avant de taper
LIRE UN FICHIER
dM (:::t.s
1 CL. EAR 5000 01M B$(12.21
(DPEN#1,.'BATAILLE°
1j rop 1=1 TO 12
'0 FOR	0 2
INPUT $1 .B$(I.J)
nO NEXT J
'a(1 PRINT TAB(S) B$(I,1):TAB(25I B$(I,2)
¢4I0 NEXT I I0 CLOSE #1
10 CL5
20 ATTRBI.1
30 LOCATE 12,1:PRINT°FICHIERS°:LOCATE 12 3:PRINT====____°
40 ATTRB 0,0
50 LOCATE8, 10:PRINT'1- CRERTION D'UN FIC HIER° :PRINT
60 PRINT TAB(8) -2- LECTURE D'UN FICHIER °:PRINT
70 PRINT TABfa) °3- TERMINER»:PRINT:PRIN
T
80 PRINT TAB(8) -Votre choix (1-3) ',:IN PUT' ,R$
90 IF R$(>°1' AND R$<>-2° AND R$<)°3° TH EN 10
100 R=VAL(R$I
110 ON.R GOSUB 500,800,200
120 GOTO10
200 END
499 REM Création o'un Fichier
500 CL5:CLEAR 10000
510 PRINT °METTEZ 'VOTRE MAGNÉTOPHONE EN P051TION°:PRINT TAB(12' "ENREGISTREMENT
T GÉNÉRATEUR DE FICHIERS : PROGRAMME ~
eà
er. oc-3à tce
le
'r-ce
e
BOLFV I NE 5	1214
CRECY	1346
AZINCOURT	1415
5IEGE D'ORLEAN5	1429'
MARIGNAN	1515
VALMY	1792
MARENGO	1300
TRAFALGAR	1805
AUSTERLITZ.	1805
IENA	1806
NAGRAM	1809
NATERLOO	1815
OK	
Générateur de fichiers
[,es deux programmes ci-dessus permettent la création et le chargement d'un fichier particulier. ll est néanmoins tout aussi aisé de concevoir un
programme exécutant ces deux opérations pour des
fichiers quelconques. Le programme qui suit se décompose en trois parties distinctes : un menu, qui fait office de programme principal, et deux sous-programmes, assurant respectivement la création puis
la relecture 'des fichiers.
La routine de création de fichier vous rappelle sommairement la procédure à suivre pour la sauvegarde de vos données (510), puis elle vous invite à rentrer le nom de votre fichier, ainsi que le nombre d'articles par enregistrements (NA). Le fichier BATAILLE contenait par exemple deux articles pour chaque enregistrement, à savoir le nom de la bataille et sa date. La valeur de NA est utilisée pour dimensionner le tableau A$. Les boucles des lignes 570 à 640 assurent le remplissage du tableau. La variable CT renferme le nombre d'éléments du tableau. Elle
520 PRINT:INPUT 'NOM DU FICHIER (8 car.
max.)	N$
530 PRINT
540 PRINT NOMBRE D'ARTICLES PAR ENREGIS TREHENTI: INPUT" ,NA
550 PRINT
560 DIM A$(50,NA):CT=1
570 FOR I=0 TO 1 STEP 0
580 FOR J=1 TO NA
590	PRINT ARTICLE-, CT1'/°,J;- :
600	INPUT	.A$(CT.J)	w•
610.	IF A$(CT.1)=-FIN' THEN CT=CT-I:G OT 0650
620 NEXT J
630	CT=CT+1
640 NEXT I
650 OPENIO,.#1,N$ 660 PRINT *1.CT.NA. 670 FOR I=1 TO CT 680 FOR .1=1 T0 NA
690	PRI NT #1.A$(I,J)
700 NEXT J
710 NEXT I
720 CLOSE *1
'10 PRI1LI:PRIFJT "FIN ENRÉGISTNEMF_NT FICH IER.
40 FOR PAU-E=1 TO 1000+1NE/T:PETUPN '99 REM Lecture d'un fichier
800 CL5:CLEAR 10000
810 PRINT 'METTEZ VOTRE MAGNETOPHONE EN POSITION":PRINT TA$(t5). "(LECTURE;.' 820 PRINT:INPUT "NOM DU FICHIER ",N$ 830 OPEN - I ° , # 1 , NJ$
840 INPUT #Y,cT,NA 850 DIM A$'CT,NA) 860 FOR I=1 TO CT
870 FOR J=1 T0 NA
880	INPUT #1,A$(I,J)
890	PRINT A$(I,J);" 900 NE/.T J
910 POINT
920 IF EOFI11 THEN 940 930 NEXT I
940 CLOSE #1
950 PPINT :PPIUJT-Fi IJ CE 1 F, :r r') ou ri H I f C"
160 FOP P0U'_.E--1 Tu 1000:FLC/,T 10011 URN

SAISIE DES DONNÉES AU CLAVIER
Vous ne connaissez jusqu'ici qu'une seule manière d'entrer des données dans la mémoire de votre ordinateur en .cours d'exécution : l'instruction INPUT. Le dialogue entre l'utilisateur d'un M05 et sa machine peut néanmoins s'établir par d'autres moyens, comme vous allez le découvrir dans ce chapitre.
Inconvénients de l'instruction INPUT Entrez au clavier le court programme ci-dessous puis exécutez-le :
INPUT ET SES INCONVÉNIENTS : PROGRAMME
10 REM INPUT ET SES INCONVENIENTS
20 PRi NT:PRINT-ENTREZ UNE PHRASE COMPOPT ANT DES'
30 PRINT'SIGNES DE PONCTUATION [.. :):P MI NT
40 INPUT " •P$
50 PEINT
60 PRINT P$
PUN
ENTREZ UNE PHRASE COMPORTANT DES "I'NF DE PONCTUATION I	,:1
HÉLAS. PAUVRE YORICknateur par un Retour Chariot (une pression sur ENTRÉE si vous préférez). Cette instruction devra être préférée à INPUT chaque fois que l'information à introduire en mémoire risque de contenir plus d'un mot.
Signalons au passage qu'il existe une instruction LINE INPUT e [numéro de canal] qui autorise la sauvegarde au sein d'un fichier, de phrases comportant virgules et deux points et, partant, le stockage de véritables textes (lettres, textes littéraires, modes d'emploi, recettes de cuisine...) :
1 L'INSTRUCTION LINE INPUT : PROGRAMME 1
10 REM AVANTAGES DE LIME INPUT
20 PRINT:PRINTIENTREZ UNE PHRASE COMPORT
TINT DES°
30 PRINT'SIGNES DE PONCTUATION (,.;:)°:P
RI NT
40 LINEINPUT ° '.N$
50 PRINT
bO PRINT P$
70 GOTO40 RUN
ENTREZ UNE PHRASE COMPORTANT DES SIGNES DE PONCTUATION [..,:)
HELAS. PAUVRE YORICK
HELAS, PAUVRE YORICK
CYRANO: AH NON' C'EST UN . PEU COURT .JEUNE HOMME.
CYRANO. AH NON' C'EST UN PEU COURT.JEUNE HOMME.
Si vous entrez la phrase ci-dessus et que vous appuyez sur la touche ENTRÉE , vous verrez apparaître à l'écran le message a ?Redo ». L'ordinateur n'accepte pas votre phrase et vous invite à recommencer. Qu'est-ce que cette phrase peut bien contenir de si extraordinaire ? Tout bonnement une virgule qui, pour le M05 comme pour la plupart des ordinateurs utilisant le BASIC, est considérée comme un séparateur. Si vous utilisez pareillement un énoncé renfermant le signe : (deux points), vous obtiendrez un rejet tout aussi catégorique.
Serait-il impossible de faire figurer des signes de ponctuation pourtant très courants dans une saisie au clavier ? Pas du tout. Il suffit pour cela d'employer l'instruction appropriée. Cette instruction, variante d'INPUT, porte le nom de LINE INPUT. Si vous modifiez comme suit la ligne 40 :
40 UNE INPUT --
vous
vous pourrez introduire dans votre phrase autant de signes de ponctuation que vous le désirez. Vérifiez-le par vous-même en rajoutant en 70 une instruction GOTO 30 puis en tapant RUN.
Comme son nom l'indique (en anglais du moins), LINE INPUT vous permet d'entrer des lignes entières et complètes dont la fin sera signalée à l'ordi-
L'instruction INPUT$
Il arrive fréquemment que l'on demande à l'utilisateur d'entrer au clavier une réponse brève à une question. Il s'agit généralement d'un chiffre, d'une lettre, ou encore d'un OUI ou d'un NON. Ceci vous oblige d'ordinaire à tester la longueur de la réponse avant d'en assurer le traitement.
Il existe cependant une instruction qui vous laisse libre de déterminer à l'avance le nombre de caractères alloués à l'utilisateur pour sa réponse. Cette instruction a pour nom INPUT$. Comme l'indique clairement le symbole «$ », elle devra être utilisée exclusivement avec des chaînes de caractères. Voici, pris dans une situation courante, un exemple d'utilisation d'INPUT$ :
10 REM INPUT$
20 PRINT
30 PRINT "Destruction du programme (OUI/NON)?'". 40 C$ = INPUT$(3) PRINT C$
50 IF C$ = "OUI" THEN GOSUB 100: END
60 IF C$<> "NON" THEN GOTO 30 FI: PRINT: PRINT "C'EST FINI!": : END
100 PRINT: PRINT "ON RECOMMENCE. ": RETURN
I

n sur devra cation ' plus
action ise la mporckage nodes
ME
il s'agit ici de faire connaître à l'ordinateur votre décision quant à la destruction éventuelle d'un programme. La réponse étant importante, on a choisi de faire taper les mots OUI ou NON en toutes lett.1es, afin d'éviter qu'une pression inconsidérée sur la mauvaise touche ne vienne à effacer malenconr reusement ce que vous souhaitiez conserver. L'utilisateur devra par conséquent taper au minimum trois lettres pour que sa réponse soit enregistrée, niais il ne lui sera pas nécessaire de valider cette dernière par pression sur la touche LENTRÉE , cette opération s'effectuant automatiquement.
INPUT$ n'affiche pas à l'écran les caractères frappés au clavier, ce qui explique la présence de l'instruction PRINT C$. (Vous pourriez utiliser cette propriété d'INPUT$ pour entrer des codes et des messages qui resteraient invisibles à toute personne fixant votre écran, mais gare aux fautes de frappe.)
Si la chaîne C$ ne contient ni OUI ni NON, le programme se rebranche en ligne 30 dans l'attente de trois autres caractères :
(ligne 100). Le programme s'interrompt dès que la souris atteint le fromage, sort de l'écran ou meurt d'épuisement (compteur à 0). Les lignes 200, 300, 400 et 500 vérifient, au moyen de la fonction SCREEN, que la souris n'a pas heurté l'un des murs :
1	LA SOURIS ET LE LABYRINTHE
10 CL5
20 SCREENO,1,1
30 LINE€3.31—(3.201XLINE(4,20)—(33.20 X':LINE(37.201—(37.3)X°: LINE(36,3)—(7 .3)°X°
40 LINE(76)—(7,16)X°:LINE(7,6)—(28.61° X°:LINE(29,4)—(29,6)°X°:LINE(21.7)—(21,1 0)'X°:LINS(11.10)—(11.14)°X°:LI NE(12,14J —(20,14)°X°:LINE(21.14)—(21,19)X:LINS( 25.10)—(25,19)X°:LIN£(26,10)—(32.10)°X° :LINE(29.14)—(36.14)°X°
50 P5ET(5.3)°F',3,1
60 COLOR8.1
70 PH=35:PV=20:CT=10
80 GOSUB 600
90 X$=INKEY$:IF X$='° AND C=0 THEN GOTO 90
100 C=1:IF X$=°° THEN T=T:GOT0120 110 T=A5C(X$1-7
120 ON T G05UE 200.300.400.500
130 GO5UB 600
itiliune une Jous )nse
esse ctè-ins-:lai-isée )ici, uti-
SE
Saisie au vol
INPUT$ mise à part, les instructions assurant la saisie de données au clavier requièrent une validation de la réponse entrée. Ceci ne pose aucune difficulté lorsque l'on travaille sur un texte ou sur des informations chiffrées, mais peut se révéler beaucoup trop lent dans le cas d'un jeu par exemple.
t-ieureusement, il existe une instruction garantissant une réponse instantanée à l'enfoncement d'une touche quelconque : INKEY$.
Vous avez déjà eu l'occasion d'employer cette fonction dans les programmes utilisant la notion de hasard. On vous y demandait de frapper une touc:he, et votre temps de réaction était mis à profit par l'ordinateur pour initialiser son générateur de nomhres aléatoires.
INKEY$ a cependant d'autres usages, et on y fait souvent appel dans les jeux lorsqu'il s'agit de déplacer rapidement un objet, ou encore de faire feu au passage d'un vaisseau spatial ennemi.
Dans le programme qui suit, vous allez devoir piloter une souris affamée à travers un labyrinthe, jusqu'au bout de fromage qui lui redonnera force et vigueur. Faites attention, car si vous heurtez les parois de ce dédale, vos forces iront s'amenuisant.
Le programme débute par le tracé du labyrinthe. Celui-ci est effectué à l'aide d'instructions LINE et du caractère «X ». Les coordonnées utilisées dans la l'onction graphique LINE sont conformes aux dimensions de la page texte. Elles n'excedent pas 39 (horizontalement) ou 23 (verticalement).
Le morceau de fromage est symbolisé par la lettre « F» (ligne 50), la souris par un bloc de couleur
. Le déplacement de la souris s'opère à l'aide des touches de gestion du curseur de codes 8 (—), 9 (--'), 10 (1), ''('î').
Tant que vous n'appuyez pas sur une nouvelle touche, la direction de la souris demeure inchangée
140 FOR PAUSE =1 10 60:NEXT PAUSE 150 LOCATE PH,PV:PRINT° ,
160 IF PV=3 AND PH=S THEN GOSUB 600:COLO RB,I ZEND
170 IF PV>21 OR PVC3 OR CT=O THEN END 180 GOTO 90
200 1F SCREEN(PH-1.PV)=88 THEN PH=PH:CT= CT— f:RETURN
210 PH=PH—i:RETURN
300 IF SCREEN(PH+I,PV)=88 THEN PH=PH:CT= CT— f:RETURN
310 PH=PH+I:RETURN
400 IF SCREEN(PH,PV+1)=88 THEN PV=PV:CT= CT — 1: PET URN
410 PV=PV+I:RETURN
500 IF SCREEN(PH,PV—i)=88 THEN PV.PV:CT= CT-1 :RETURN
530 PV_PV-1:RETURN
600 LOCATE PH,PV,O:PRINT CHR$(127)s:LOCA TE 19,1:PRI NT CT:RETURN
ANIMATION ET SON
Tous les programmes graphiques que vous avez pu rencontrer jusqu'ici comportaient généralement une phase de tracé éventuellement suivie d'une plage musicale (jingle, générique...), mais jamais un mélange des deux. Pour combler cette lacune, nous allons tenter ici de mêler le son à l'image.
Hasard, images et son
Nous allons commencer notre étude en faisant correspondre à chacune des notes de la gamme l'une des seize couleurs du M05, puis en composant un «tableau musical ». Une gamme ne comprenant que sept notes (si l'on exclut les dièses et les bémols), nos seize couleurs nous autorisent à jouer sur deux octaves. Nous obtiendrons alors le programme suivant :
TABLEAU MUSICAL
10 CL3
30 PF•.INT TAB(31 °PRE55EZ UNE TOUCHE POUF
COMMEN CEP
°
30 IF INKEY$=" THEN 7(=RND:GOTO 30 40 CL5:SCREEN0,0,0
50 DATA 03"".O 3RE,O3NI,Q3FA, 0350.O3LA.03 5I.04DO ,O4RE,04NI , 04F1-045O1O4LA,045I 60 DIH NOS(14)
70 FOR I= 1 TO 14
30 READ NO$(I)
90 NEXT
100 FOR 1=1 TO 50
110 DU=INT(RNDU96+1?:D$-°L'+MID$(5TR$)DLI .2)
120 Nr_=INT(RNDn14+1)
130 k'1=INT(PNDa310+8?:71=INT(RNDS192+61
140 7+:2=I NTr: RND*310+87:1'2=I NT(RND3192+c,
150 LINE(X 1.71)- (Y2. Y2) ,NC 1643	PLAT D$ + NO$,NC; 1'0 NEXT I
Après la traditionnelle initialisation du générateur de nombres aléatoires, le programme dimensionne un tableau de 14 éléments (ligne 60). Ce tableau est rempli par le biais de la boucle des lignes 70 à 90 et d'une instruction READ. Les éléments contenus
en DATA donnent, pour chaque valeur lue, l'octave, puis le nom de la note qui sera jouée.
Les lignes 100 à 170 constituent la partie «son et lumière» du programme. La variable DU de la ligne 110 contient une valeur aléatoire comprise entre 3 et 96. Elle servira à établir la durée de la note, durée elle même affectée à la variable chaîne D$. La couleur et, partant, la note sont tirées au hasard en ligne 120. Les variables X1, Y1, X2, et Y2 désignent les extrémités des segments qui seront tracés à l'écran par l'instruction LINE de la ligne 150. Leurs valeurs sont telles que les traits tirés ne sortent jamais du cadre de la page graphique. Le résultat, tant pictural que musical, n'a rien de «génial», mais il n'est tout au moins pas plus déplaisant que certaines compositions acutelles.
Animation et son
Le programme précédent ne présentait aucune difficulté de programmation, image et son se succédant harmonieusement. Le problème de l'introduction du son devient cependant plus délicat lorsque l'on aborde l'animation. A titre d'exemple, entrez le programme ci-dessous :
POMPIERS : PROGRAMME
10 CLS
20 SCREENI.3,0
30 LOCATEO.0..0
40 CLEAR. .2
50 DEFGR$(0)=255,33,13.113.255.255.255. 96
60 DEFGR$(17=255.248,200.200.252.252.254 12
80 BOXF(0,104)-4319,119),8
90 ATTRBI.1
100 FORI = 0 TO 36 110 LOCATEI .12. 120 PRIN P$
130 PLAYIL485I50' 140 LOCATEI.12 150 PRINT 
160 NEXT I
Ce programme génère une voiture de pompiers que l'on fait se déplacer sur une route symbolisée par un trait gris. L'animation est rendue plus réaliste par le fait que la sirène est actionnée pendant que le camion traverse l'écran dans sa largeur. La partie sonore du programme est encore très sommaire, puisque deux notes (ligne 130) suffisent à reproduire ce bruit familier.
Malgré l'absence de l'habituelle boucle de temporisation, l'animation de notre véhicule d'incendie est néanmoins trop saccadée. Ceci est dû tout simplement à la présence en 130 de l'instruction PLAY qui interrompt le déroulement du programme pendant la durée nécessaire à l'émission des deux notes. La
23 ,1
tave
«son J de arise le la
aine
s au
t Y2
tra-
150. sor-~sul-al »,
que
iffi-
ant du
.'on )ro-
ie .n rr te r-
e
i t 1
ftnrporisation involontaire ainsi créée se révèle plus flue suffisante,
t ïn pourrait aplanir en partie cette difficulté en diminuant de moitié la longueur de chacune des rl,)i,ss, mais on accélérerait du même coup le tempo di' la sirène. L'autre solution consiste à scinder la i(I.ige musicale en deux parties, puis à associer une mage à chaque note. Ceci s'obtient par un simple .Trnénagement de la ligne 130 qui devient :
s IF INT(I/2) = 1/2 THEN PLAY "L48SL ELSE PLAY
.i la variable compteur I (qui détermine la position h(rrizontale du camion) est paire, le M05 joue la note l, sinon, il joue le SOL. Grâce à ce stratagème, on OIrlient une animation moins saccadée tout en con,.~rvant à la sirène le rythme que nous lui connaissons. En reprenant cette même technique, nous .illnns donner un semblant de vie à une comptine 1)icii connue :
LE PONT D'AVIGNON : PROGRAMME
10 0L5: 5CREEN0,6., 15: LOCATE0,0,0
20 5OXF0,881-(319,159),10 'PONT
30 R=48:X1=88:X2=232:YO=160:D=YO-R:GOSUB 1000
40 BOXF(0.160 )-(319.199),4 'EAU
50 ATTRB0,1:LOCATE8,3:PRINT°5UR LE PONT D'AVIGNON. .~
60 CLEAR „3
70 DEFGR$(0)=0,0,0.0.28,28,28,8
80 DEFGR$L1)=127, 28,28.28,20,20,20,54 90 DEFGR$(2)=127,28,28.62,62,62.62,62 100 H$=GR$(11+CHR$(111+CHR$(11)+CHR$f8)+ CHAS (8)+GR$(0)
110 F$=GR$(2)+CHR$(11)+CMR$(11)+CMR$(8)+ CHR$(8)+GR$ (0)
120 FORI=1.7038:B$=8$+. " :NEXT
130 M$(1)=~L125050L1850:
140 M$(2)=°L12LALAL18LA~
150 M$(3)=L125I05DOREO4L450°
160 M$(4)=°L12F5*5OLAO4L6RE-.
170 M$(5)=-L12LAFA*L2450°
180 R$=H$+CHR$(101+F$
190.X=8:Y=10:PX=1:MH=I:ATTRB1,1
200. FOR 1=1 TO 200
210 COLOR3:LOCATEX.Y:PRINTR$:COLORI:LOC. ATEX+4,Y :PRI NTR$
220 IF M>3 AND INT(MM/2)=MMi2 THEN N=5.
230 PLAYA2 714'+MfM1:H=H+1
240 IF M>4THENM=I:MM=MM+1
250 LOCATEO,Y-2:PRINTB$
260 X=X+PX:IF X>24 OR X<OTHEN PX=-PX
270 NEXTI 280 END
1000 FOR Y=1 TO R
1010 BC=SOP((R,2)-((R-Y)+2).)
1020 LINE(Xi-BC,D+Y)-(X1+BC,D+Y),-7 1030 LINE(X2-BC.D+Y)-(X2+BC,D+Y),-7
1040 NEXT:RETURN
décor de notre animation est dressé par les lignes 20 à 50. Le pont est constitué d'un rectanl;le plein évidé en deux endroits pour symboliser les ~ rches. Celles-ci sont tracées simultanément grâce àune version améliorée du sous-programme présenté au chapitre CERCLES PLEINS. Les lignes 70 à 90 définissent deux caractères graphiques représentant respectivement un homme (H$) et une femme (F$). Les deux matrices ainsi créées sont «soudées» en ligne 180 et affectées à la variable R$. Celle-ci sera répétée par deux fois en ligne 210, ce qui donnera lieu à une ébauche de farandole. La mélodie est, quant à elle, scindée en cinq parties plus ou moins égales, afin que la temporisation obtenue soit minimale (lignes 130 à 170).
La phase d'animation débute par l'affichage des deux couples. Le premier est tracé en jaune, le second en rouge (ligne 210). L'ordinateur exécute alors l'une des cinq plages musicales (ligne 230), avant d'effacer le dessin et de le réafficher un peu plus loin. Les lignes 220 et 240 contrôlent la partie musicale. La comptine est en effet formée à partir de deux mélodies qui ne diffèrent entre elles que par les notes finales (M$(4) et M$ (5)).
Pour déterminer ce qu'il faudra faire jouer à l'ordinateur, on fait appel aux variables M et MM. La pre-
mière désigne la plage musicale qui sera exécutée,
la seconde, le nombre de demi-mélodies précédemment interprétées. Lorsque MM est paire, et que la valeur de M est supérieure à 3, on se trouve en fin de morceau. C'est donc la plage musicale numéro 5 qui sera jouée (ligne 220). Si MM est impaire,
le morceau se poursuit avec la plage musicale
numéro 4. La ligne 240 veille à ce que la variable M soit réinitialisée à 1 à chaque fin de morceau. La direction de la farandole est régie par la ligne 260. Dès que les deux couples de danseurs atteignent l'une des positions extrêmes (colonnes 24 à droite et 8 à gauche), le mouvement est inversé. Ceci est rendu possible par le changement de signe qui intervient au niveau de la variable PX. En début de programme, PX est positive et la farandole se déplace vers la droite. Lorsque les danseurs viennent à dépasser la 23e colonne, PX devient —PX, ce qui entraîne la décrémentation de X et, partant, le changement de direction :
LE PONT D'AVIGNON : AFFICHAGE
SUP LE PONT D'AklIGtO..

25
, en axes
.genque °c la
sai-on-ter on-30). ur, 'silée
t;nant le point 0 sur l'axe des Y. Ceci fait, il nous faut ensuite déterminer la graduation des deux axes. Rappelez-vous que vous disposez d'une «feuille» de 320 X 200 points. Afin de laisser suffisamment de place pour la légende, nous enfermerons notre courbe dans un cadre constitué de 288 X 168 points. Les lignes 190 et 200 déterminent le facteur d'échelle qui sera appliqué à tous les points de la courbe. Les lignes 220 et 230 tirent les axes, la ligne 260 affiche le premier point. L'origine de notre repère étant différente de celle de notre écran (31, 176 contre 0, 0), la ligne 170 assure le passage d'un repère à l'autre. Le premier point de la courbe aura pour coordonnée X la valeur 32, et pour coordonnée Y le résultat de l'opération 175 — la valeur introduite multipliée par le facteur d'échelle EY. Il ne reste plus ensuite qu'à afficher les autres points :
TRACÉ DE LA COURBE : PROGRAMME
150 L'L3:SCREEN3,0 ,0 160 FOR I=1 TO C 170	P(I)=P(I)-HI 180 NEXT I
190 EY=168/(MA-MI( 200 EX=288/18
210 X=32
220 LINE(31,0)-(31,176) 230 LINE(31,176(-(310,176(
240 PSET(X, 175-P I) EY 1,7
250 X=X+EX
260 FOR 1=2 TO C
270 LINE-(X,175-P(I( EY),7
280 X=X+EX
290 NEXTLa graduation des axes
Elle se fera sans difficulté majeure le long de l'axe des X. L'espacement entre deux points étant égal à 288/18 = 16 pixels, cela équivaut à laisser un espace après chaque valeur numérique, ou, si vous préférez, à employer deux cases écran pour chaque point tracé. Ceci nous donne le programme suivant :
GRADUER LES AXES : PROGRAMME	1
300 PV=22
310 LOCATE0,0:PRINT MA:LDCATE 0,PV:PRINT MI:LOCATE 0,11:PRINT INT((MA-MI)/2+.5) 320 PH=1
330 FOR I=1 TO C
340 PH=PH+2:I$=MID$(STR$(I). 21
350 LOCATE PH,23:PRINT LEFT$(I$,1) 360 NEXT I
10 PH=19
380 FOR H=10 TO C
390 1$= MID$(5TR$(H) .27:PH=PH+2:IF PH)38 OR M>C THEN 420
400 LOCATE PH,24:PRINT RI GHT$(I$,1 ): 410 NEXT M
420 LOCATE0,0,0
430 IF INKEY$=°°THEN 430
440 END
On commence par libeller l'axe des Y en affichant dans le coin supérieur gauche de l'écran la valeur MA, puis, en regard de l'origine de notre repère, la valeur MI. Il suffit alors d'insérer les valeurs intermédiaires (lignes 310-320). La graduation de l'axe des X s'opère en deux temps. On commence par afficher tous les nombres de 1 à 9, puis le chiffre des dizaines pour les valeurs 10 à 18 (lignes 330 à 360). La seconde étape consiste à inscrire les unités une ligne plus bas. Ce procédé améliore la lisibilité du schéma, car sans ces quelques lignes, les nombres seraient tous collés les uns aux autres. Notre programme est désormais complet. Il ne vous reste plus qu'à l'exécuter :
la ve/II) nd tré )0. ur et ile ce es rn,
•o-a-s. u-ti-u-
Vous pouvez d'ores et déjà utiliser ce programme avec les valeurs de votre choix, mais il reste néanmoins un dernier problème à résoudre avant qu'il ne soit complet.
24 1
LES COURBES CARTÉSIENNES
Les tableaux ne constituent pas l'unique solution à la présentation d'informations numériques. L'adage selon lequel «un petit croquis vaut mieux qu'un long discours» s'applique également aux données chiffrées. Il est très souvent plus parlant de tracer une courbe cartésienne que d'aligner une succession de nombres. C'est ce que nous allons apprendre ici.
Les courbes fixes
De par ses instructions graphiques élaborées, et la très bonne résolution de sa page graphique, le M05 se prête tout particulièrement au tracé de courbes cartésiennes. Deux axes perpendiculaires, des coordonnées rangées en DATA, voici un programme simple qui vous dessinera toutes sortes de courbes :
1	COURBE FIXE : PROGRAMME
10 CL5:5CREEN3,0.0
20 LINE (31.0)-(31.176)
30 LINE (31.176)-(310.176)
40 DATA 32.f50 , 56.140..$0.135.104,170.128 .16SIS2. 144.176.128'200. 112.224. 105.248 .109.272. 112,296.110
50 NP=12
60 READ X.Y
70 PSET(X,Y)
80 FOR I=2 TO NP
90	READ X.)'
100 LINE-(X.Y)
110 NEXT
120 IF INKEY$=°° THEN 120
130 END
Le programme commence par matérialiser les axes (lignes 20-30), puis il lit les coordonnées correspondant aux 12 valeurs à faire figurer à l'écran. La première paire de coordonnées est affichée à l'aide d'une instruction PSET. Elle servira d'origine aux traits qui seront tirés par l'instruction LINE incluse dans la boucle des lignes 80 à 110.
Bien que fonctionnant sans problème, ce programme n'en possède pas moins de sérieux inconvénients. Tout d'abord, il vous limite au tracé d'une courbe donnée. Si vous souhaitez représenter autre chose, vous devrez modifier les DATA de la ligne 40, et éventuellement altérer la valeur de NP (Nombre de Points) en 50. Second handicap, plus important celui là, les axes ne sont pas gradués, ce qui rend notre courbe illisible. Qui, en effet, saurait dire précisément ce que ce schéma représente ?
Pour résumer la situation, ce qu'il nous faudrait c'est un vrai «générateur de courbes cartésiennes», c'est-à-dire un programme capable de représenter graphiquement toutes les valeurs introduites, quelle
que soit leur nature. Ce programme devrait, en outre, être à même de libeller et graduer ses axes en fonction des dites valeurs.
Générateur de courbes cartésiennes
Le programme qui suit répond à toutes ces exigences. Il va même jusqu'à traduire les valeurs que vous introduisez en coordonnées compatibles avec la taille de votre écran graphique :
SAISIE DES DONNÉES : PROGRAMME
10 CLS:SCREEN0.1,1
20 LOCATE11.2:PRINT-COURBE CARTESIENNE°: PRINT
30 DIM P(50):HA=O:MI=10000:C=1
40 PRINT:PRINT°ENTREZ VO5 VALEURS (ZZ PO UR FINIR) °:PRINT
50 FOR I=0 T01 STEP 0
60 PRINT°POINT°,C;': °.
70 INPUT' :P$
80 IF P$=°ZZ° THEN C=C-1:GOTO 150 90 P(C)=VAL)P$)
100 IF P(C))MA THEN MR=P(C)
1.10 IF P(C)(MI THEN MI=P(C)
120 IF C=18 THEN PRINT°TERMINE!°:PLAY°O4 DOHI50OSDO°:GOTO 150
130 C=C+1
140 NEXT I
La première partie de ce programme assure la saisie des données. Vous pouvez entrer jusqu'à concurrence de 18 nombres. Si vous souhaitez arrêter avant cela, il vous suffira de taper « ZZ » pour annoncer à l'ordinateur que vous avez terminé (ligne 80). Si vous tentez d'introduire une dix-neuvième valeur, le M05 vous signalera par une petite phrase musicale que la phase d'entrée des données est terminée (ligne 120).
Les lignes 100 et 110 sont très importantes pour la suite du programme. Elles déterminent respectivement les valeurs maximale (MA) et minimale (MI) que vous introduisez. MA est initialisée à 0 et prend une nouvelle valeur chaque fois que le nombre entré lui est supérieur. MI a pour valeur initiale 10000. Elle reçoit une nouvelle affectation lorsque la valeur entrée lui est inférieure. En fin de boucle, MI et MA renferment les valeurs minimale et maximale de votre courbe. Pour vous en assurer, exécutez ce segment de programme, sans oublier de noter les nombres que vous entrez. Arrivé en fin d'exécution, vous n'aurez qu'à taper : PRINT MI, MA.
Les lignes 160 à 290 constituent le coeur du programme. Ce sont elles qui assurent la transformation des nombres entrés en coordonnées graphiques. La boucle des lignes 160 à 180 diminue de MI toutes les valeurs introduites. Ceci nous permettra d'utiliser la hauteur de l'écran dans sa totalité, MI dési-
26

LES HISTOGRAMMES
Après les tableaux et les courbes cartésiennes, vous allez découvrir dans ce chapitre un troisième procédé de présentation des informations numériques
les histogrammes.
Les histogrammes
Nous allons abandonner les points et les traits de nos courbes cartésiennes, pour aborder ici la présentation des données sous la forme de colonnes ou de bâtons (d'où les noms de diagrammes bâtons ou diagrammes à barres que l'on donne parfois à ce type de graphiques). Pour cela, entrez le programme ci-dessous :
1	HISTOGRAMME : PROGRAMME	1
10 CLS:SCREENO.1.1
20 LOCATE14. 2:PRINT-MISTOGRAMME~:PRINT:P RINT:INPUT °MAXIMUM DE POINTS (18 OU 36)
NP: IF NP<>18 AND NP<>36 THEN 10 30 DIM P(50):MA=O:MI=10000:C=1
40 PRINT:PRINT°ENTREZ V05 VALEURS (ZZ PO UR FINIR):PRINT
50 FOR I=0• TOI STEP O
60 PRINT-POINT',Ct°:
70 INPUT 1P$
80 IF P$=-ZZ' THEN C=C-1:GOTO 150 90 P(C)=VAL(P$)
100 IF P(C)>MA THEN MA=P(C)
110 IF PICI(MI THEN MI=P(C)
120 IF C=NP THEN PRINT'TERMINE!I:PLAY'O4 DOMI50 O5DO_:GOTO 150
130 C=C+1
140 NEXT Ivariable NP qui sera utilisée en 200 pour déterminer le facteur d'échelle sur l'axe des X (variable EX),
ainsi que la largeur de chacune des colonnes
(variable CL). Si NP est égale à 36, chaque colonne aura 36/36 = 1 case écran de large (huit pixels si vous préférez). Si NP vaut 18, chaque bâton occupera la largeur de deux matrices 8 X 8. Ces quelques aménagements mis à part, seules les lignes 250 à 300 diffèrent réellement de celles du programme
GÉNÉRATEUR DE COURBES. Il s'agit en effet, non plus
de relier deux points par une droite, mais de bâtir une colonne, en partant du bas de l'écran jusqu'au point de coordonnée verticale Y. Le calcul de la valeur de l'ordonnée ne varie pas (ligne 250). Seule change la manière dont on atteint ce point. La boucle des lignes 260-280 examine successivement toutes
 les valeurs comprises entre 175 (origine de notre repère) et Y, et trace un petit segment horizontal de huit ou seize pixels de large (formule 8*CL)
HISTOGRAMME : AXES
310 MA$=HID$(STR$()IA(.2): HI$=MID$(STR$(M I).2):MM$=MID$(STR$(MI+I NT((MA-MI)/2+0.5 7),2)
320 LOCATEO.I:PRINT MA$:LOCATE 0,22:PRIN
T MI$,.LOCATE 0.11:PRINT MM$
330 PH=3
340 FOR I=1 TO C
350 PH=PH+CL:I$=MID$(STR$(I),2)
360 LOCATE PH.23:PRINT LEFT$(I$.1) 370 NEXT I
380 IF CL=1 THEN PH=12 ELSE PH=21
390 FOR H=10 TO C
400 I$=HiD$(STR$(M),2):PH=PH+CLUIF PH)3 8OR H)C THEN 430
410 LOCATE PH,24:PRINT RIGHT$(I$.1),
420 NEXT M
430 LOCATE0 .0 ..0
440 IF INNEY$=?-THEN 440
450 END
i
150 CLS:5CREEN3,0,0 160 FOR I=1 TO C 170	P(I)=P(I)-MI 160 NEXT I
190 EY=168/(MA-MI)
200 EX=288/NP:CL=36/NP 210 X=32
220 LINE(31,0)-(31,176) 230 LI NE) 31,176) -(318.176)
240 FOR I= 1 TO C 250 Y=175-P(I HIEY
260 FOR J=175 TO Y STEP -1
270	LINE(X.J)-(X+(8*CL).J).1
280 NEXT J
290 X=X+EX
300 NEXT
Vous pouvez constater que ce programme offre peu de différences avec celui qui vous a été présenté dans le chapitre précédent. Dans le cas présent cependant, l'utilisateur a la possibilité de choisir entre deux largeurs d'affichage : 18 ou 36 colonnes (ligne 20). La réponse à cette option est affectée à la
'J
27
mi
?X),
nes
inc si :Cu
iel50
me lus
[tir
au la
ale
)u-)u-
:re
de
1 a graduation des axes obéit aux mêmes principes (Iti ceux énoncés au cours du chapitre précédent, ,Dois on distingue désormais entre deux largeurs I,ssibles. Le test de la ligne 380 détermine quelle •,(leur affecter à la variable PH, afin que soient cor~  ~i.ement alignées dizaines et unités. Notez égale-un ut que la graduation sur l'axe des X a été décalée di in e case écran vers la droite par rapport à celle utilisée pour les courbes cartésiennes. Il ne s'agit Illus en effet de repérer un point, mais une colonne, ( (• qui nécessite que le libellé se trouve inscrit au(Issous de celle-ci.
le diagramme tel qu'il apparaît ici, présente un inconvénient majeur. Il est extrêmement difficile d'aligner mentalement le sommet de chacune des nlonnes avec le nombre qui lui correspond sur l'axe Il , X, en raison même de l'uniformité de couleur du l'histogramme. Pour rendre plus claire, et part;iut, plus immédiate, la lecture de ce diagramme, il nous faudrait utiliser au minimum deux couleurs, +et, les faire alterner. Cette amélioration s'obtient en modifiant très légèrement le contenu des lignes de la boucle de tracé des colonnes :
H IF INT(I/2) = 1/2 THEN CO = 1 ELSE CO = 3 2/0 UNE (X,J) — (X + (8-*CL),J), CO
Chaque fois que la variable compteur I sera paire, I,i colonne sera dessinée en rouge (CO = 1), sinon elle apparaîtra en jaune (CO = 3). Il ne vous reste plus dis sormais qu'à admirer le résultat à l'aide de ces deux exemples :
Il nous faut introduire une dernière amélioration, avant que notre histogramme soit réellement complet. L'axe des Y fait figure de parent pauvre lorsqu'on le compare à l'axe des X. Il ne compte en ?ffet que trois malheureuses graduations qui rendent pour le moins imprécise l'interprétation de nos diagrammes. Si vous souhaitez libeller l'axe des ordonnées de manière plus détaillée, voici ce que vous pourriez rajouter à votre programme :
1	GRADUER L'AXE DES Y : PROGRAMME	1
313 MA$=MID$(5TR$(MA),2)
320 LOCATEO,I:PRINT MA$
321 DE= (MA-MI)/20:MM=MA
322 FOR A=2 TO 21
323	MM=11M-DE
324	MM$=MID$(5TR$(MM),2):MM$=LEFT$(MM$
.4)
325	LOCATE O,A:PRINT MM$
326 NEXT A
327 LINE(31 .2)- (31 .176)
Une fois que le programme a affiché la valeur MA, on décrémente celle-ci de la valeur DE (différence entre MA et MI divisée par le nombre de lignes de texte disponibles depuis le haut du repère graphique jusqu'au bas). La ligne 324 supprime le signe du nombre MM, ce qui nous permet de gagner un caractère et de commencer l'affichage de nos valeurs en colonne 0. La longueur totale du nombre affiché est ramenée à 4 par la fonction LEFT$ de la ligne 324. Comme un nombre de quatre chiffres empiétera légèrement sur l'axe proprement dit, ce dernier est redessiné une fois que toutes les valeurs intermédiaires entre MA et MI ont été inscrites à l'écran (ligne 327) :
Pour apporter une touche finale à ce programme, il faudrait prévoir l'introduction d'un titre qui expliciterait (35 caractères maximum) ce qu'est censé représenter votre histogramme. Notons pour conclure que les modifications introduites dans ce chapitre (choix entre deux largeurs d'affichage, graduation totale de l'axe Y...) pourrait être appliquées au programme générateur de courbes cartésiennes.

28
LES FONCTIONS CHAÎNES
Jusqu'ici, vous n'avez employé les chaînes de caractères qu'à des fins d'affichage, dans des textes, des énoncés de problèmes, des questions et des réponses. Le M05 est cependant capable d'effectuer sur les chaînes des opérations et des transformations pratiquement aussi nombreuses que celles opérées
sur les nombres. Les six pages qui suivent seront
consacrées à la manipulation des chaînes de caractères. Pour commencer, nous allons nous attarder un instant sur les fonctions chaînes, ainsi appelées
parce qu'elles portent sur les chaînes et retournent
un résultat (numérique ou chaîne).
La fonction LEN
Il est souvent important, voire nécessaire de connaître la longueur des chaînes que l'on utilise. On fait appel pour cela à la fonction LEN — abréviation du mot anglais LENgth ou ((Longueur». A titre de démonstration, entrez le programme suivant :
10 A$ = "ORDINATEUR"
20 PRINT LEN (A$)
A l'exécution, le programme retourne le nombre 10, ce qui correspond bien au nombre de lettres de notre mot. Notez que vous seriez arrivé au même résultat en tapant PRINT LEN(« ORDINATEUR »). Connaissant la longueur d'un titre, vous pouvez par exemple le centrer à l'écran et l'entourer d'un cadre constitué d'astérisques. C'est ce que réalise le programme ci-dessous :
10 CL5:5CREEN0,3,3
20 LOCATE 2.2:PRINT'ENTREZ UN TITRE (36 CARACTERES MAX.)~
30 PRINT:INPUT.~';TI$ 40 L=LEN(TI$)
50 T=INT((40—L)/2)
60 BOX(T-2,10)—(T+L+1.14)°s',4.3
70 COLOR 1.3
80 LOCATET.I2:PRI NT TI$
90 COLOR 0:LOCATE1,20.0
L'utilisateur entre au clavier un mot de 36 caractères maximum (ligne 30). La ligne 40 détermine la longueur L du titre, valeur qui est reprise dans la formule INT((40 — L)/2). Votre écran faisant 40 colonnes de large, 40 — L nous donne le nombre
de cases écran encore disponibles en largeur. En
divisant le résultat de cette soustraction par 2, vous
pouvez déterminer la position à partir de laquelle s'affichera votre titre. Il ne reste plus alors qu'à créer le cadre, à l'aide d'une instruction BOX :
TITRE ENCADRE : AFFICHAGE
	

t1cçs - a ME	L13.	Mets
	
	
	
	
	t1 I	i. t.T— 3 rtFI  I r3l II_,	-:
	
~ s7-	
	
	
Entrez maintenant la ligne suivante :
PRINT LEN ("l'éléphant")
Au lieu du nombre 10 attendu, le M05 affiche pour résultat 14! Ce phénomène, pour le moins étrange, est dû à la présence dans la chaîne de minuscules accentuées. En effet, si vous tapez PRINT LEN (»é»), vous obtiendrez le nombre 3, toutes les minuscules accessibles par le biais de la touche ACC étant considérées comme faisant trois caractères de long. Évitez par conséquent d'employer LEN lorsque vous utilisez des minuscules accentuées, sous peine de voir vos résultats faussés.
LEN vous permet d'accepter ou de refuser des réponses à des instructions INPUT en fonction de leur longueur, comme l'illustre le programme ci-dessous :
TEST RÉPONSE : PROGRAMME
10 PRINT 'ENTREZ VOTRE NUMERO DE SECURIT E°:PRINT°50CIALE, EN SEPARANT LES DIFFER ENTS°:PRINT°NOMBRES PAR UNE BARRE OBLIQU E°
20 PRINT
30 INPUT °x,55$
40 IF LEN(55$)(17 THEN PRINT 'C'EST TROP COURT. RECOMMENCEZ'": GOTO 30
50 IF LEN(55$))17 THEN PRINT 'C'EST TROP LONG. RECOM AENCEZ!':GOTD30
60 END
{	I
29
qu 'Il(• S (ju,i

Our
ige,
des
' »)i
ales
on-
vi-lti-
)ir
1_ utilisateur entre au clavier son numéro de sécuf)i(! sociale en séparant les différents nombres par 4o ' barre oblique. La chaîne ainsi constituée devrait inco comporter 17 caractères exactement. Les lij;I2es 40 et 50 testent la longueur de SS$ et affial~r nt un message d'erreur si elle s'avère trop lonMtn ou trop courte.
Les fonctions ASC et CHR$
l'unr connaître le code ASCII d'un caractère, il vous «uffit de faire appel à la fonction ASC associée à unn instruction PRINT. Ainsi, PRINT ASC(« Z ») vous donnera pour résultat 90, PRINT ASC(« a ») 97, etc. ASC employée avec une chaîne de caractères retourne le code ASCII du premier caractère de cette chaîne. PRINT ASC(« ANANAS») aura pour résultat 65, code ASCII de la lettre «A». La fonction ASC permet d'opérer des branchements à des sous-programmes, ainsi que le démontrent les lignes ci-desSous .
i	LA FONCTION ASC: PROGRAMME	1
10 CLS
20 PRINT:PRINT`QUEL MOTIF CHOISI55EZ-VOU
' :PRINT:PRINT
30 PRINT TAB(8) -A- UN RECTANGLE VIDE':P RINT
40 PRINT TA6(8) °B- UN RECTANGLE PLEIN: PR  NT
50 PRINT TAB(8) -C- UN TRIANGLE VIDE :PR INT
60 PRINT TAB(8) °0- UN TRIANGLE PLEIN-:P RINT
70 INPUT	VOTRE CHOIX <A-D) ':R$
80 IF A5C(R$)<65 AND ASCCR$))68 THEN GOT O 70
90 R=ASCCR$):CLS
100 ON R-64 GOSUB 200,220,240,260 110 END
200 BOX(40,40)-(280,160).0:RETURN 220 BOXF(40,40)-(280, 160(, 0:RETURN
240 LIME) 160,20)- (20,166) .0: LI NE-(30@.16 0).O:LINE-(160,20),O:R ET URN
260 FOR 1=20 TO 300:LINE(160,20)-(.160( ,0:NEXT I:RETURN
bles tels que Return, Escape, Flèche à droite, Flèche à gauche, Flèche en haut et Flèche en bas, codés respectivement 13, 27, 9, 8, 11, 10.
La fonction ASC a pour opposé CHR$ qui affiche à l'écran le caractère correspondant au code ASCII employé comme argument entre parenthèses. CHR$ permet la transmission de caractères inaccessibles par ailleurs, tels que le retour chariot (CHR$(13)), le bip du haut-parleur (CHR$(7)), le caractère plein (CHR$(127)), les crochets ouvert (CHR$(91)), et fermé (CHR$(93)). Si vous souhaitez connaître le jeu de caractères de votre M05, tapez simplement ceci :
10 CLS
20 ATTRB 0,1 : PRINT 30 FOR I = 33 TO 127 40 PRINT CHR$(I);" 50 NEXT I
JEU DE CARACTÈRES : AFFICHAGE
56789	(	)?eAECDEFGH
I JKLHN0P0R5TuuwXYZ1\,
3t_—ab0def9hi, k1mn0p
~rstuvwxy2{Il	I
O
Inur
s:
L'utilisateur choisit un motif d'affichage parmi les quatre proposés en tapant A, B, C, ou D. De la chaîne R$ contenant la réponse de l'utilisateur, le M05 extrait un code ASCII qu'il compare en 80 à
celui de la lettre D et de la lettre A, ce pre-
mier test ayant pour but de vérifier la validité de la réponse.
La fonction ASC est de nouveau utilisée en 100 pour appeler le sous-programme correspondant à l'affichage choisi. La ligne 100 remplace à elle seule quatre lignes de programme :
100 IF R-64= 1 THEN-GOSUB 200
101 IF R-64=2 THEN GOSUB 220
102 IF R-64 =3 THEN GOSUB 240
103 IF R-64=4 THEN GOSUB 260
Si vous avez répondu par «A », R vaut 65, et R — 64
est égal à 1. Le programme se branchera donc en
ligne 200. La ligne 100 pourrait en effet s'exprimer comme suit : «En fonction de la valeur prise par R — 64, branche-toi respectivement à la ligne 200, ou 220, ou 240, ou 260.» Signalons pour finir que la fonction ASC reconnaît les caractères non-afficha-
Les fonctions VAL et STR$
La première permet de transformer en valeur numérique une chaîne constituée de chiffres. Supposons que vous souhaitiez calculer l'âge d'une personne en fonction de son année de naissance, et que vous ne disposiez pour cela que d'un tableau chaîne à deux dimensions comprenant le nom de la personne puis son année de naissance. Si votre tableau s'appelle P$, vous arriverez à vos fins en tapant
AGE = 1985 — VAL(P$(1,2))
Par le biais de la fonction VAL, la chaîne contenue dans P$(I,2) se change en nombre qui peut alors être utilisé dans un calcul numérique. Si vous employez VAL avec une chaîne constituée de lettres, l'ordinateur vous répondra par la valeur 0.
Comme vous vous en doutiez, STR$ est la fonction inverse de VAL. Elle transforme en chaîne une expression numérique, et la chaîne ainsi obtenue peut être concaténée à une autre chaîne :
10 INPUT "Année de naissance" ; N
20 PRINT `Cette personne est née en "+STR$(N
30
 n
DÉCOUPAGE DESCHAINES
Nous allons poursuivre ici l'étude des chaînes de	Il s'agit de répondre à une question par 0 (pour OUI)
caractères en apprenant comment les découper en	ou N (pour NON). La fonction LEFT$ de la ligne 40
segments appelés « sous-chaînes ».	teste la première lettre de la réponse entrée par
	l'utilisateur. Si ce n'est ni un «O», ni un «N», le pro-
Extraction par la gauche	gramme se rebranche en 20 par le biais d'une ins-
Recopiez le programme suivant sur votre clavier,	truction IF... THEN et d'un GOTO. La ligne 50 fait
puis lancez-en l'exécution :	de nouveau appel à LEFT$ pour déterminer si la
	réponse à la question posée est négative ou positive.
	Dans le premier cas, le programme s'interrompt
	L'INSTRUCTION LEFT$ : PROGRAMME		
			(END). Dans le second cas, on invite l'utilisateur à
			
			patienter quelques instants.	Le fait de ne tester
			que la première lettre de la réponse vous permet
			d'accepter comme valides les réponses «OUI» ou
	0 CLS		«NON». Le revers de la médaille tient à ce que tout
	_1	A$	ORDiNATEUR		
	20		par
	-'		Y mot commençant	ar «O» ou «N» (Orage, Oreille,
	30 LOCATE8.a@		g
	°,-A		
	40 PRINT	Le MDS	un	- PP I		Ouistiti, Nez, Na...) sera également tenu pour valide.
	t es	s		
	5@ PRINT TABC8) 'qui  Vaut	son pesant d'°		
	:LEFT$fA$.25		
			Extraction par la droite
			Il est également possible d'extraire d'une chaîne les
			n premiers caractères à partir de la droite. Cela se
			fera par le biais de la fonction RIGHT$(X$,n). C'est
			ainsi que PRINT RIGHT$("INFORMATIQUE",5)
			entraînera l'écriture du mot «TIQUE».	La fonc-
			tion RIGHT$ peut, elle aussi, s'utiliser dans des tests
			de validité des réponses, comme l'illustre le pro-
			gramme suivant :
	
	
		EST DE VALIDITÉ AVEC RIGHT$ : PROGRAMM	
Associée à l'instruction PRINT, LEFT$(X$,n) extrait			
			
les n premiers caractères de gauche de la chaîne X$,			
ce qui revient, dans notre exemple, à écrire le mot			
«OR». Comme toutes les fonctions, LEFT$ ne modi-			
fie aucunement la chaîne initiale. Si vous tapez			
		10 PR I NT : PRI NT	
PRINT A$, l'ordinateur vous affichera encore et tou		-0 PRINT ~ENTREZ UN VERBE DU PREMIER GR.O	
		UPE	
jours le mot «ORDINATEUR ». La fonction LEFT$		se INPUT---, V$	
J			
— que vous pouvez écrire directement en pressant		40 IF RIGHT$(V$,2)O-ERN TMEN PRINT °C£	
		ToE30 PAS UN VERSE DU PREMIER GROUPE `:GO	
les touches BASIC et 2 — s'avère très pratique lors-		vs_ ` est un verbe dut prem	
		ier groupe°	
que l'on veut tester la validité d'une réponse :			
	EST DE VALIDITÉ AVEC LEFT$ : PROGRAMM				
	10 REM	la fonction LEFT$				
	20 LOCATE 1,14				
	30 INPUT ` VOUIez-Vous continuer	(O/N)	't				
	R$				
			
	401F LEFT$(R$,1)O°©` AND LEFT$(R$,I)O		
	°N` THEN 20		
	50 IF LEFT$[R$.1 )='N' THEN END ELSE LOCA		
	TE1,18:PRINT°Suite du programme dans un		
	moment-		On demande à l'utilisateur d'entrer au clavier un
			verbe du premier groupe (30). La ligne 40 teste la
			terminaison de ce verbe. Si celle-ci se trouve être
			différente de « ER », on affiche un message d'erreur
			et l'on revient en ligne 30.
			La fonction MID$
			Dernière fonction de «découpage», MID$ permet
			d'extraire une sous-chaîne en un endroit quelconque
			d'une suite de caractères. Contrairement aux deux
	

31
lS
ir. lr~ e.
a
t
u
lli 1t)
boucle, contient l'inverse de la chaîne M$. Un coup d'oeil à la photo d'écran de la page ci-contre vous montrera qu'il est possible de trouver des mots que l'on peut lire aussi bien à l'endroit qu'à l'envers. C'est ce que l'on appelle les palindromes.
Pour finir, voici un exemple de ce que l'on peut faire en morcelant une chaîne :
MOTS AU CARRE :, PROGRAMME
10 CL5
20 PRINT -ENTREZ UNE CHAINE DE CARACTERE 3':PRINT	(11 Lettres max imuml°:PRINT
30 INPUT' C$
40 L=LEN(C$):IF L)i1 TMEN 30
50 CLS:SCREENO.0,0 60 T=1
70 FOR I=1 TO L
80	CH$=MID$(C$,I,1)
90 BOX(9+T.0+T)-(33-T.25-T)CM$,I
100 T=T+1
110 NEXTI
120 LOCATEO,0,0
l'onctions précédentes, MID$ utilise 3 paramètres, agencés comme suit
RINT MID$ ("INFORMATIQUE`,3,6)
Si vous pressez la touche ENTRÉE, le M05 vous affichera le mot FORMAT.
Les deuxième et troisième paramètres désignent, dans l'ordre, le caractère à partir duquel débuta l'extraction, et la longueur de la sous-chaîne à extraire (6 dans notre exemple). MID$ permet d'effectuer une véritable ((lecture », caractère par caractère, de n'importe quelle chaîne, ce qui ouvre la voie à de multiples manipulations, comme ce programme d'inversion :
MOTS A L'ENVERS : PROGRAMME
Fp
~..	0	S
20 INPUT FUT °ENTREZ UN MOT 7M$ 30 L=LEN(M$)
40 MOT$="
50 FOR I=L TO 1 STEP-160 MOT$=MOT$+MI D$.(M$.T .1J 70 NEXT I
s0. PRINT:PRINT MOTS
90 PRINT:GOTO 20
ENTREZ UN MOT 1 ICI ICI
ENTREZ UN MOT ? PORT. TROP
ENTREZ UN MOT ? EC ART. TRACE
ENTREZ UN MOT ? POTSSTOP
ENTREZ UN MOT ? CIRE FRIC
ENTREZ UN MOT.?
Ce programme affiche à l'envers les mots que vous introduisez au clavier. On commence par affecter à la variable L la longueur du mot M$. La boucle FOR... NEXT des lignes 50 à 70 extrait, les unes après les autres, toutes les lettres de la chaîne M$, en partant de la dernière, de rang L, jusqu'à la première, de rang 1. Les lettres ainsi extraites sont stockées au sein de la variable MOT$ qui, en fin de
Une chaîne de 11 caractères maximum est tapée au clavier par l'utilisateur. Le M05 vérifie que la longueur du mot n'est pas supérieure à 11 (ligne 40), puis il en extrait une à une toutes les lettres avant d'utiliser celles-ci pour dessiner des carrés de plus en plus petits :
Grâce à la fonction MID$, vous pourrez réellement «jouer» avec les mots et les transformer à votre guise. Anagrammes, Mot le plus long, affichages en diagonale, en cercle, il n'est rien qui ne vous soit permis. Vous ne serez limité que par votre imagination.
Connaissant la longueur d'une chaîne et le moyen de l'examiner par l'intérieur, il devient aisé d'y rechercher un caractère ou un mot particulier.
Recherche d'un caractère
Les fonctions examinées au cours des deux chapitres précédents ouvrent la voie à l'étude linguistique de textes. Si vous désirez par exemple calculer l'occurence d'un caractère particulier au sein d'un texte ou d'un article de plusieurs lignes, voici comment vous pourriez vous y prendre :
10	"
CL5 3CREEN 0. 1. 1:PRINT:PPINT
20 FOR 1=6 TO 1 STEP 0
_0 READ T$
40 IF T$=°ZZ° THEN 80
50 L=INT((42-LEN(T$))/2)
60 PRINT TAB(L);T$
70 NEXT I
80 PRINT:PRINT
90 RESTORE:CT=O
100 INPUT °LETTRE A RECHERCHER °,-L$ 110 FOR I=0 TO 1 TEP 0
120 READ T$:IF T$=°ZZ° THEN 170
130 FOR J=1 TO LEN(T$)
140	IF MID$(T$.J.1)=L$ THEN CT=CT+1 150 NEXT J
160 NEXT I
170 PRINT
180 PRINT°LA LETTRE ;L$;° APPARAIT°-CT; ° FOIS °: PRINT
190 GOTO 90
200 DATA"-AU CLAIR DE LA LUNE.°.MON AMI PIERROT `.°PRET E-f101 TA PLUHE°."POUR ECR IRE UN HOT.°
lettre grâce à la boucle des lignes 110-150. Dès que le caractère lu est égal à la valeur introduite, on incrémente de 1 le compteur CT :
Recherche d'un mot
Ce qui est possible avec un caractère unique l'est également avec un groupe de lettres. Le M05 dispose même d'une fonction permettant de déterminer la présence d'une sous-chaîne particulière au sein d'une chaîne quelconque. Cette fonction à résultat numérique porte le nom de INSTR et utilise deux, voire quelquefois trois, paramètres. Si vous recherchez la présence de la lettre « A » dans le mot «INFORMATIQUE », vous pourrez taper :
PRINT INSTR("INFORMATIQUE", "A`)
Si la lettre « A » se trouve incluse dans ce mot, le résultat obtenu sera supérieur à 0 et indiquera la position de ce même caractère à l'intérieur de la chaîne test (7 dans notre exemple). La présence d'un mot dans une phrase pourra être pareillement décelée. Si vous ne voulez pas commencer votre recherche en début de chaîne, il vous suffira de rajouter un troisième paramètre avant les deux premiers, pour indiquer à l'ordinateur où commencer. Nantis de ces informations, vous pouvez créer un programme de recherche d'un mot au sein d'un texte :
RECHERCHE D'UN MOT : PROGRAMME
Le texte servant de base à notre recherche est rangé en DATA. Il peut être d'une longueur quelconque mais il doit impérativement se terminer par « ZZ ». Ce texte est affiché par la boucle des lignes 20 à 70. Chaque ligne est centrée selon une technique dont vous avez pris connaissance lors du programme intitulé TITRE ENCADRÉ. La lettre à rechercher une fois tapée, on relit le texte ligne à ligne et lettre par
10 CLS:5CREEN 0,7,7
20 LOCATEI,4,0
30 FOR I=ITO 3
40 READ T$
50 T$(I)=T$
60 PRINT TAB(8);T$(I)
70 NEXT
80 PRINT
90 INPUT`CHAINE A RECHERCHER °,CH$ 100 PRINT:CT=O
110 FOR 1=1 TD 3
120	IF INSTR(T$(I).CH$)O0 THEN CT=CT+ 1
130 NEXT I
140 PRINT TAB14);-LA CHAINE °.
150 COLOR0.7: PRI NT CH$t
160 PRINT TAB(4);°APPARAIT`,CTFOIS DAN 5 CE TEXTE°
200 DATA°'LE GRAND GOELAND ARGENTE°.°5'EL OIGNE A TIRE D'AILE°.°EN DIRECTION DU LE VANT°
Le texte contenu en DATA est lu par la boucle des lignes 30 à 70 et rangé au sein d'un tableau. Le mot à rechercher est introduit en 90 et affecté à la variable CH$. La présence de cette sous-chaîne est testée par la ligne 120. Si la fonction INSTR retourne un résultat non nul, la variable compteur CT est incrémentée de 1. La photo d'écran ci-dessus illustre ce qui se produit si l'on recherche la chaîne «LE».
Comme vous pouvez le constater, le M05 affirme que
33
~RI
Dès que ulte, on
ue l'est '05 dis~rminer
3u sein résultat
deux, recherle mot
flot, le sera la de la :e d'un t déce-•echer-rajou-miers, Nann proexte :
le mot «LE» apparaît à trois reprises dans ce texte. Vous seriez-vous trompé dans votre programme ? Pas du tout. Si vous relisez attentivement ce petit texte, vous découvrirez les deux « LE » supplémentaires. Le premier se trouve en fin du mot « aiLE », le second au début du mot «LEvant». L'ordinateur r tout simplement comptabilisé tous les groupes de caractères réunissant un «L» suivi d'un «E ». Pour corriger cela, modifiez comme suit la ligne 120 :
1201F INSTR (T$(I)," "+CH$) <> OTHEN CT=CT+1 En rajoutant un espace en début de sous-chaîne,
vous devriez éviter toute surprise. Procédez néan-
moins à une vérification en tapant RUN. Cette fois, le M05 vous annonce que le mot «LE» apparaît à une reprise. Est-ce bien de l'article LE dont il s'agit ? Pour vous en assurer, remplacez LE par CE en ligne 200 puis relancez l'exécution du programme. Au lieu du résultat 0 attendu, l'ordinateur persiste dans son affirmation. Il faut vous rendre à l'évidence, ce «LE» n'est autre que celui de «LEvant». La recherche d'un mot au moyen de la fonction INSTR ne se révèle pas réellement satisfaisante, et pour réussir ce programme, il nous faudra revenir à MID$ qui, quoique plus lente, donne de bien meilleurs résultats. Avant de modifier quoi que ce soit, réfléchissons à ce que représente un «mot». Un mot n'est autre qu'un groupe de lettres encadré
de deux espaces ou bien encore d'un espace et d'un
signe de ponctuation. Si vous vous rapportez au jeu de caractères du M05, vous constaterez que les signes de ponctuation ont tous un code ASCII inférieur à 65. Ceci nous permet d'écrire :
50 T$(I)=" "+T$+"
115 L1 = LEN (T$(I)) : L2 = LEN (CH$ + 1)
116 FOR J= 1TO L1 —L2
120 IF MID$(T$(I),J,L2 + 1) =" "+CH$ AND ASC(MID$(T$(I),J + L2 + 1 ,1 )) <65 THEN CT = CT + 1 125 NEXT J
D'UN MOT : AFFICHAGLe tri alphabétique
Tout comme il est possible d'écrire 10> 5, l'infor- matique autorise l'emploi d'expressions du genre ZOO > ZÈBRE. L'ordinateur compare un à un les codes ASCII des deux mots puis il en tire la conclusion que la lettre «0» (code 79) est postérieure à la lettre «E» (code 69) et que par conséquent le mot «ZOO» vient après le mot «ZÈBRE» dans l'ordre alphabétique. C'est en partant de cette comparaison entre deux chaînes de caractères que l'on peut concevoir des programmes de tri alphabétique :
TRI ALPHABÉTIQUE : PROGRAMME
10 CLS:5CREEN4,3.1
20 0IM M$(10)
30 ATTRB0,1
40 LOCAT E 12,2,0: PRI NT°TRI ALPHABET IQUE° 50 ATTRB0, 0:PRINT:PRINT
60 FOR I=1 TO 10
'O	PRINT° MOT°I ;TAB(8i'.
80	COLORO,3
90	INPUT°°H$(1) 100 COLOR4,3
110 NEXT I
120 PRINT
130 FOR I=1 TO 9
140 FOR J=I+1 TO 10
150	IF M$(I )(=M$(J) THEN 170
160	A$=M$I):H$(I)=H$(J):M$(J)=A$ 170 NEXT J
180 NEXT I
190 COLOR 1,3
200 FORI=ITO 10
210 LOCATE24,I+5.0:PRINTH$(I) 220 NEXT
230 END
0K
L'utilisateur entre 10 mots au clavier. Ceux-ci sont alors comparés deux à deux. Si le mot introduit après la chaîne examinée s'avère lui être «inférieur» (ligne 150), les deux chaînes M$(I) et M$(J) sont interverties (ligne 160). On utilise pour cela une variable de transition qui recueille pour quelques instants le contenu de MS(I), tandis que celle-ci reçoit le contenu de M$(J). Lorsque toutes les interversions ont été réalisées, la liste se trouve rangée en ordre alphabétique. Il ne reste plus alors qu'à l'afficher :
TRI ALPHABÉTIQUE : AFFICHAGE
LE GRAND GOELAND ARGENTE  5'ELOIGNE A TIRE D'AILE EN DIRECTION DU LEVANT
CHAINE A RECHERCHER ? LE
LA. CHAINE LE
APPARAIT. 1 FOIS DANS CE TEXTE. OK
des
• Le
..ecté
aine
STR
teur
ssus la
Comme vous pouvez en juger par vous même, l'ordique	nateur ne se trompe plus sur l'occurrence des mots.
TRI ALPHABET I E
			{
			
tiu.	`'	:	POIRE	ANANA
1tCt I	`'	_	POIIHE	i3F1N
#ht I	A	:	Aû17icor	1 1 TRCJN,
'tfï3 T	'	ANANAS	"I e	ELt..E
"4 T	t,	:	PRLi!'~E..	OF"A GE',
111'1	ï	:	ttY.RAHELLE	PECilE 
;	il.'' f	,	ORANGE=	POT lut
M0 r	9	GI TRI IN	PUNNE
III	t	So	c	PEC1*E	PtINE	5i.`
			
7-
) 34
n
LES FENÊTRES
Il arrive fréquemment que l'on ait besoin, au cours	des couleurs entraînerait une réinitialisation des
d'un programme, d'afficher une certaine informa-	variables. De plus, la moindre erreur vous ferait
tion en permanence (mode d'emploi, touches de	sortir de votre cadre de travail
commande...), sans pour autant que le déroulement	
		FENÊTRE : AFFICHAGE	
du programme ait à en souffrir. Ceci nous amène à			
introduire la notion de «fenêtre ».			
Définir une fenêtre		FEt4ET RE	
Une fenêtre est une portion d'écran que l'on affecte			
à une tâche particulière, et dont on fixe les limites.			
La fenêtre constituant en quelque sorte, un «sous		H	,	~.:,f,t,r	r~HK;;	,	,~-	F , ,	T	
écran », il convient de pouvoir la gérer aussi simple		s.,	(: ,,,	
ment que ce dernier, tant au niveau de la cou-			
leur que de l'effacement. Cela pourrait se traduire,			
par exemple, au moyen d'un programme analogue à			
celui-ci			
	DÉFINIR UNE FENÊTRE : PROGRAMME				
	O 0L5:SCREEN 4.6.6				
	20 ATTRB	1,1:LOCATE	13,2:PRINT	°FENETRE".				
			
	30 ATTRB 6.0		
	40 CF=3:CE=4:MG=0:MD=319:MH=48:MB=199		
	60 COLOR 50.`F		L'instruction CONSOLE
	?0 PRINT.:PRINT TAB(8) -AFFICHAGE DAN5 UN		Il	qui
	E FENÊTRE°		Il existe heureusement une instruction BASIC 
	°.		
	TAB( 13)	PREMIER ECRAN		
	PR	°		
	80 PRINT:	I	T N		
	90 FOR P=1 TO 700: NEXT P		effectue un travail similaire à celui du programme
	1D0 GOSUB 500		
	110 PRINT:PRINT	TAB(12)	°DEUXIEME ECRAN-		ci-dessus. Sans effacer les lignes précédentes, tapez
	120 FOR P=1 TO 700:NEXT P		ces commandes directes
	130 GO5UB 500		
	140 ATTRB, 1. 1:LOCATE	17,14:PRINT°FIN°		
	150 ATTRB.: 0.0:END		
	) - (D .MB) .CF .LOCATE MG/-8 .M		
	500 SOXF (MG.MM	H		~LS
	500 :.		
			SCREEN 0,7,0
			CONSOLE 6,18
			(La commande CONSOLE peut être obtenue directe-
			ment par les touches BASIC et C). Ceci fait, essayez
			de lister votre programme. Les lignes apparaissent
	
	normalement à l'écran mais, arrivées au niveau
Après avoir affiché en gros caractères le titre que	du dernier message OK, elles semblent disparaître
vous ne voulez pas voir effacé, le programme mi-	comme par enchantement :
tialise les variables qui serviront à la définition de	
	LES EFFETS DE L'INSTRUCTION CONSOLE
la fenêtre (ligne 40). CF et CE désignent respective-	
ment les couleurs d'encre et de fond, MG, MD, MH,	
et MB, les marges gauche, droite, haute, et basse.	
La fenêtre est délimitée par le sous-programme de	CREEN0.
la ligne 500, qui utilise pour cela une instruction	NSOLE 6.18
BOXF. Le curseur est positionné dans le coin supé-	OR
	LIST
rieur gauche de la fenêtre, chaque fois que celle-ci	40 CF=3:CE=4:MG=0:MD=H=:B=
	50 COLOR CECF	319:H	48M	199
est effacée (instruction LOCATE). On affiche un pre-	60GOSUB 500
	0 PRI NT : PRI NT T AE (8)	"AFFICHAGE DAN5 UN
	E FENÊTRE°
mier 	Y g messa e (lignes 80-90), puis la fenêtre est ((net-	80 PRINT:PRINT	TAB(13)	'PRM
	EIER ECRAN-
	90 FOR P=1 TO 700:NEXT P
toyée» par un appel à la routine de la ligne 500. Le	100 GOSUB 500
	310 PRINT:PRINT	TAB(121	-DEUXIEME	ECRAN-
processus se répète aux lignes 110-120 et 140-150, et	120 FOR P=1 TO 700:NEXT P
se termine sur l'affichage du mot «FIN». La fenêtre	330 GOSUB 500
	140 ATTRB	1.1:LOCATE	17.14:PRINT-FIN-
est effacée par trois fois, mais le titre ne subit quant	
à lui aucune altération.	
Une telle méthode de gestion de fenêtre risquerait	
à la longue de vous poser de sérieux problèmes,	
en raison des contraintes d'affichage qu'elle impo-	
serait. Le moindre changement dans la composition