MICRO-ORDINATEURS

ALMOS a La | d AONQUÈTE DES JEUX

Jean Yves QU

EYROLLES

ATMOS

A LA CONQUËTE DES JEUX

«La loi du 11 mars 1957 n'autorisant, aux termes des alinéas 2 et 3 de l'article 41, d'une part, que les «copies ou reproductions strictement réservées à l'usage privé du copiste et non destinées à une utilisation collective» et, d'autre part, que les analyses et les courtes citations dans un but d'exemple et d'illustration, «toute représentation ou reproduction inté- grale, ou partielle, faite sans le consentement de l'auteur où de ses ayants droit ou ayants cause, est illicite» (alinéa 1°’ de l'article 40)».

«Cette représentation ou reproduction, par quelque procédé que ce soit, constituerait une contrefaçon sanctionnée par les articles 425 et suivants du Code pénal».

© Éditions EYROLLES, 1984

ATMOS A LA CONQUETE DES JEUX

par

Jean-Yves ASTIER

Collection animée par Richard SCHOMBERG

61, boulevard Saint-Germain — 75005 PARIS

EYROLLES 1984

SCHOMBERG SCHOMBERG HERNANDEZ NOLLET PELLIER LADEVIE QUEINNEC PELLIER ASTIER

MONTEIL LEPAPE OROS et PERBOST

PERBOST

Dax

NOLLET

BICKING

TEJA MONTEIL

PLOUIN

SAGUEZ

PELLIER

ORoS et PERBOST GROS

HARWOOD HARTNELL HARTNELL et JONES VULDY BOUQUEROD PINSON

WILLARD

CEYRAT DELANNOY AUBERT

PERBOST et MASSE TERRAL

ASTIER

MONTEIL MONTEIL

ORos WILLARD KRUTCH ASTIER PELLIER

SAGUEZ et ANDRIEUX

DE GEETER ASTIER

CROWTHERet HARTLEY -

MONTEIL

DANS LA MÊME COLLECTION

Le Basic Universel.

Micro-ordinateurs : Comment ça marche ? Pascal par l'exemple.

La conduite du ZX 81.

La conduite du TRS 80.

Votre gestion avec BASIC sur micro-ordinateur. Langage d'un autre type : LISP.

Programmez vos jeux d'action rapide sur TRS 80. La conduite de l'APPLE II.

Tome 1 : le Basic de l'APPLE II.

Tome 2 : le système graphique et l'assembleur de l'APPLE II. L'assembleur facile du 6502 et du 6510. L'assembleur facile du Z 80.

ZX 81 à la conquête des jeux.

CASSETTE - ZX 81 à la conquête des jeux. CASSETTE N°2 - 13 jeux 1 K.

CP/M et sa famille.

Langage machine, trucs et astuces sur ZX 81. La conduite du PC 1212 (ou TRS 80 pocket). Apprenez à parler à votre ordinateur.

La conduite du VIC 20.

La conduite de l'IBM-PC.

Télécommande avec votre micro-ordinateur. Tout sur les disques du TRS 80 modèles | et lil. La conduite du FX-702 P.

La conduite du PC 1500.

Jeux et applications pour ZX SPECTRUM.

Le grand livre du ZX SPECTRUM.

La conduite du ZX SPECTRUM.

Graphisme 3 D sur votre micro-ordinateur.

Des extensions à construire pour votre ZX 81. Le Basic en gestion sur Apple Il.

La conduite du TI 99.

Mon TI 99/4A.

Les fichiers en Basic sur micro-ordinateur. Pratiquez l'intelligence artificielle.

VIC 20 à la conquête des jeux.

La conduite du T O7.

La conduite de l'ORIC-1.

Premiers pas en LOGO.

La conduite du COMMODORE 64.

Tome 1 : Basic, graphisme et son.

Tome 2 : Langage-machine entrées/sorties et périphériques. La conduite de l’ATARI 400/800.

T1 99 à la conquête des jeux.

Expériences d'intelligence artificielle en Basic. ORIC à la conquête des jeux.

Langage machine, trucs et astuces sur ZX SPECTRUM. Maîtrisez les interfaces de votre micro-ordinateur. Forth par micros.

ATMOS à la conquête des jeux.

MO5 et TO7 à la conquête des jeux. Introduction à l'IBM-PC Junior.

LOGILIVRES EYROLLES (logiciels sur cassettes)

P ELLIER

PELLIER

PELLIER

P ELLIER PERBOST et MASSE H ADDADI

Kamikaze (jeu pour ZX Spectrum).

Astéroïdes (jeu pour ZX Spectrum). Othello/Isola (jeux pour ZX Spectrum). Éditeur/Assembleur pour ZX Spectrum.

VIC 20 version de base à la conquête des jeux. Calcul des structures sur PC 1500/PC 2.

Si vous désirez être tenu au courant de nos publications, il vous suffit d'adresser votre carte de visite au :

Service «Presse », Éditions EYROLLES 61, Boulevard Saint-Germain,

75240 PARIS CEDEX O5,

en précisant les domaines qui vous intéressent. Vous recevrez régulièrement un avis de parution des nouveautés en vente chez votre libraire habituel.

Avant-propos

Grâce à ses incroyables capacités graphiques et sonores, votre ORIC est particulièrement doué pour conquérir le monde des jeux sur micro-ordinateurs. ‘ORIC/ATMOS à la conquête des jeux’ se pro- pose de vous guider dans cette jungle peuplée d'insectes voraces, de vaisseaux spatiaux, de couleurs et de sons étranges. |

La première partie de cet ouvrage contient quinze jeux pour ORIC/ATMOS, jeux de réflexion ou d'action, qui bien sûr utilisent les dons musicaux et graphiques de votre micro-ordinateur préféré. Tous ces jeux fonctionnent sur n'importe quel ORIC/ATMOS standard, il n'est pas nécessaire de posséder un joy-stick.

La seconde partie contient des renseignements qui vous seront fort utiles pour programmer vos propres jeux, les trucs et les ficelles des modes graphiques, les adresses correspondantes. Vous saurez aussi comment est organisée la mémoire de l'ORIC/ATMOS, com- ment écrire un programme basic qui fabrique des lignes de pro- gramme basic, comment accélérer vos programmes et utiliser le langage machine.

Pour en savoir plus sur l'ORIC, je ne saurais vous recommander assez la lecture du livre “L'assembleur facile du 6502”, qui vous livrera tous les secret du micro-ordinateur 6502, cerveau de votre micro-ordinateur.

VII

Table des matières

ANANEDIODOS 2e UV RES ES Mn era el Ra das SNS VII 1. Quelques jeux pour ORIC/ATMOS ....................... ] ROGUE ARR Se nue ou at aan a l RO ROTIBRRS a ie cn ane Ne D NI SUR Re 5 1 CO AMÉICONS Li au ina td Rte NU Rare 7 LC aChe AMDON: re Muni horde hais iu 12 1592 “TOUT AE MONO 5:54: La dur EN AR M Ra dues ent 16 É0> -Solutionde MHtour dé HANOL ir sait in is ua une 20 Li CHE ELONOS LE RNA nn Pr Nat a teue 24 HS: :VOoyase dans l'ÉSDACÉ ss rm iii a ie did éiduee 30 F0 ONE 4 ne Dual au na te dote Ta edh idtaia 33 LAID ENCMES 0 2. ile induit silos 39 LP MU de OPIQUES Le A Radiateur ei … 45 LA DA Ie HAN MR RL Le dd did ee ua 48 1:13: Master MIN 55 ia dire aa delai ions 52 L'IAS PDEAUÉS nds roc amo se troie ec 57 EDS PET IR UN di een ia mi te bi D ouae 61 2. Quelques renseignements utiles pour programmer vos jeux ....... 66 2.1. Gestion de la mémoire de l'ORIC/ATMOS .............. 66 2.2. Comment redéfinir les caractères ..................... 76

3.

2.3. Trucs et ficelles des modes TEXT et LORES ............. 2.4. Trucs et hicelles du mode HIRES: 53:52 eue 2.5. Fabriquer des lignes de programme par programme ........ 2.6 Comment accélérer un programme Basic-................ 2.7. Un petit exemple de sous-programme assembleur ..........

ARE en dd aa ali ee idee ailes de

3:1: Tab: ASCH dé lORIC/ATMOS: 3 els. sinus 3.2, Tabledes attributs VIdéO ::2::.13 heures auta 3.3 LetieroprocessEur OM Li ris didier r ie rte

107

107 114 118

1

Quelques jeux pour ORIC/ATMOS

1.1 GLOUTON

Le glouton est un petit insecte extrêmement vorace, que l’on trouve généralement dans les mémoires des micro-ordinateurs. Il se nourrit exclusivement de chiffres, qu’il avale goulüment. Pour ce jeu, le glouton se déplace sur votre écran, vous le dirigez grâce aux quatre touches flèches. Il faut amener l’insecte sur les chiffres qui apparaissent, en prenant bien soin d’éviter les étoiles, car le glouton ne les apprécie pas du tout.

Chaque chiffre dévoré vous donne autant de points, il faut bien sûr accumuler le plus de points possibles.

Au début du jeu, un nombre entre 1 et 29 vous est demandé. Il règle la vitesse d’apparition des chiffres et des étoiles. Frappez ce nombre, puis RETURN. À la fin, on vous demande si vous désirez rejouer. Frappez alors la touche ” O” ou ” N°”.

Avant que vous ne tapiez le programme, voici quelques explica- tions sur son fonctionnement. Les lignes 19 à 129 sont des initiali- sations :

49 S est l'adresse-mémoire de la définition du caractère @, qui a 64 pour code ASCII. Pour faire apparaître le glouton, on va redéfinir @ pour qu'il figure l'insecte.

59 Ces huit nombres sont les valeurs des huit octets nécessaires pour redéfinir @ en glouton.

69 On place en mémoire les valeurs précédentes. Le caractère ‘ @ ‘ est remplacé par le caractère ‘glouton.

89 On fait passer l'écran en mode texte, s'il n'y était pas déjà, la couleur de l'écran est verte tandis que celle de l'encre est noire. Le nombre 64, qui est rangé dans la variable G, est le code ASCII du caractère glouton”. Ce code servira dans la suite du programme.

99 On lit un nombre compris entre 1 et 29, qui est rangé dans F, puis on efface l'écran.

109 Ceci élimine le ‘’plop”’ qui retentit à chaque fois que l’on enfonce une touche. Le programme utilise les ordres PING et EXPLODE, aussi le “plop” est supprimé afin qu'il n'interrompe pas les bruits de clochette et d'explosion, lorsque vous frappez une touche.

Le jeu lui-même est constitué des lignes 139 à 329. Ce bloc de programme est contenu dans une boucle qui débute à la ligne 149 et se termine en 329. La boucle est exécutée 1999 fois, après quoi le jeu est fini. Nous allons maintenant détailler ce qui se produit à l’intérieur de cette boucle.

159 2@»RND(1) est un nombre aléatoire compris entre @ et 19.9999999. Si ce nombre est plus petit que 29-F, on se branche en 199, sinon les lignes 169 à 180 seront exécutées. Si par exemple F vaut 1, 29-F vaut 19 et le test est en moyenne vérifié 19 fois sur 29. Si F vaut 19, 20-F vaut 1 et le test sera vérifié 1 fois sur 20 en moyenne. En modi- fiant la valeur de F, on peut donc changer le nombre moyen de fois ou le test est vérifié.

Les lignes 169 à 189 font apparaître un chiffre ou une étoile en un point quelconque de l'écran.

169 Q est un nombre compris entre 2 et 39.9999999 tandis que R est lui compris entre @ et 26.9999999. Le chiffre ou l'étoile apparaîtra à la position (Q,R) de l'écran, qui se trouve en mode texte.

179 C est compris entre 49 et 57.9999999, Puis, si RND(1)2>.5, ce qui se produit en moyenne une fois sur deux, on place 179 dans C.

180 Il faut se rappeler que les fonctions SCRN et PLOT utilisent la partie entière de leurs arguments. Ainsi:

— Q donne un entier compris entre 2 et 39

— R donne un entier compris entre @ et 26

— C donne un entier qui est: * soit compris entre 49 et 57 (code ASCII des chiffres 1 à 9) + soit égal à 179 (étoile en inverse vidéo).

G contient le code ASCII du glouton. Aussi, si le glouton ne se

trouve pas en (Q, R), on y place le caractère qui a C pour code ASCII, c’est-à-dire un chiffre ou une étoile.

199

On se préoccupe de savoir si vous avez frappé une touche, on exé- cute la lecture du clavier A$—KEY$. Si aucune touche n'a été frappée, A$ est une chaîne vide et l’on va en 320.

Si vous avez frappé une touche, normalement une flèche, on

exécute les lignes 299 à 319 qui déplacent le glouton suivant la touche.

200

210

220

230

249

260

270

280

290 300

On place dans A le code ASCII de la touche frappée.

Si le code ASCII est celui de la touche ‘flèche à gauche” et si l'abscisse X du glouton est supérieure à 2, on décrémente cette dernière.

Si le code ASCII est celui de la touche ‘flèche à droite” et si l'abscisse X du glouton est inférieure à 39, on incrémente.

Si le code ASCII est celui de la touche ‘flèche en bas” et si l'ordonnée YŸ du glouton est inférieure à 26, on incrémente Y.

Si le code ASCII est celui de la touche ‘flèche en haut” et si l'ordonnée Ÿ du glouton est supérieure à @, on décrémente Y.

On met dans V le code du caractère qui est en (X, Y) puis on place le glouton en (X, Y).

(X1,Y1) est la position précédente du glouton, où l'on place un blanc pour effacer le glouton précédent.

Si V est supérieur à 128, on a un caractère en inverse vidéo. On ête 128 pour obtenir un code ASCII compris entre @ et 127.

Si V vaut 42, on a rencontré une étoile et on se branche en 34.

Si l'on n'a pas rencontré un chiffre, de code ASCII compris entre 49 et 57, on va en 320.

310 ‘1’ a pour code ASCII 49, "2" est codé par 59, … "9" est codé par 57. Ainsi V-48 vaut-il 1 si l’on a rencontré ‘’ 1’ sur l'écran, 2 sil'on a rencontré 2”.

Après avoir exécuté le jeu, @ a été remplacé par le glouton. La

ligne 410 10

340

Note :

réinitialise l’'ORIC comme lorsque vous frappez ” reset ”.

REM GLOUT ON % 2 36 26 3636 36 36 36 36 DE DE DE DE DE DE EE

REM DEFINITION BESTIOLE----------- S=46080+8*64

DATA 33,18,12,12,12,12,18,33

FOR 1=S TO S+7:READV : POKEI ,V:NEXT

TEXT:CLS:PAPER 2:INK 0:G=64:P=0

PRINT :INPUT'"Force (1-20) "3;F:CLS PRINT CHRé&(é); X=2:Y=2:X1=X:YI=Y:PLOT X,Y,G

REM JEU------———— FOR COUP=1 TO 1000

IF 20xRND(1)€20-F THEN 190 G=2+38XxRND( 1) :R=27#RND( 1) C=49+9xRND C1 > : IFRND( 12 >. STHENC=1 70 IF SCRN(G,R)D<>G THEN PLOT G,R,C AS=KEYS:IF A$="" THEN 320 A=ASC(AS)

IF A=SANDX)2 THEN X=X-1:GOTO 260 IF A=SANDX<39 THEN X=X+1:GO0T0 260 IFA=10ANDY {26 THEN Y=Y+1:GOTO Z60 IFA=11ANDY>0 THEN Y=Y-1:GOTO 260 GOTO 320

V=SCRN(X,Y):PLOT X,Y,G

PLOT X1,Y1,22:Xi=X:Y1=Y

IF V>128 THEN V=U-128

IF V=42 THEN 340

IF V<49 OR U>57 THEN 320 2AP:P=P+V-48:GOTO 320

NEXT COUP:WAIT 300:GOT0 350

EXPLODE :WAIT 300

le caractère ”£” est à remplacer par ” #7.

350 CLS:PRINT :PRINT :PRINT :PRINT :PRINT 360 PRINT SPC(13) ;"Score:"3:P:;CHR$&(6G) 370 PRINT :PRINT |

380 PRINT"'Voulez-vous rejouer CO/N) " 390 GET ÀAS$:IF ÀAS="0" THEN 80

400 IF AS<>"N" THEN PING:GOTO 390

410 CALL DEEK(£FFFA)

Attention à ne pas oublier le ; de la ligne 199.

1.2 RÉFLEXE

Connaissez-vous bien la configuration du clavier de votre ORIC ? Ce petit jeu va permettre de le vérifier.

Au début du jeu, on vous demande le délai d’attente maximum. Tapez 2.5 puis RETURN. A chaque fois que ZAP retentit, un caractère apparaît quelque part sur l’écran. Il faut frapper la touche correspon- dante avant que le délai maximum ne soit écoulé. Vour remarquez que pendant le jeu le mot CAPS situé habituellement en haut à droite de l’écran a disparu. En effet, le clavier est en mode ” minuscules”, les touches alphabétiques donnent des lettres minuscules. Pour obtenir une lettre majuscule, il faut utiliser SHIFT, tout comme avec une machine à écrire. Lorsque vous serez familiarisé avec ce jeu, vous pourrez utiliser un délai plus court, par exemple 1.7.

Voyons maintenant comment fonctionne ce programme. Les lignes 19 à 170 servent à initialiser le jeu.

150 32 est le code ASCII du caractère blanc. B$ est donc une chaîne constituée de trois caractères blancs, qui sera utilisée en 230.

169 CHR$(17) supprime le curseur tandis que CHR$(20) fait passer en minuscules.

Les lignes 189 à 249 ont pour but de tirer au hasard un caractère, et de l’afficher n’importe où sur l'écran.

199 On obtient l'abscisse X%X, qui est un entier compris entre 3 et 36.

200 219 220

230

249

On obtient ensuite l'ordonnée Y%, entier compris entre 3 et 23. C% est le code ASCII du caractère, compris entre 33 et 125.

La valeur 96 correspond au caractère (©), qui ne figure pas sur le clavier. On tire donc un nouveau code.

Cette boucle est exécutée trois fois, et remplit de blancs un carré de 3 x 3 caractères centré en (X%, Y%). En effet, la chaîne B$ contient 3 blancs.

Le caractère tiré au sort est affiché, en (X%, Y%). Comme l'on a effacé un carré autour de cette position à la ligne précédente, le caractère ne peut apparaître collé à un autre qui se trouvait déjà sur l'écran, ce qui simplifie le jeu.

De 269 à 289 on boucle en attendant que vous frappiez le caractère

qui a été tiré. Si vous ne faites rien, on passe alors à la fin du programme, de 39 à 410, qui affiche le nombre de caractères trouvés.

320

330

349 360

370

380

Le caractère CHR$(10) permet d'obtenir des caractères double hauteur.

convertit le score S en une chaîne de caractères précédée de CHRS$(32).

On élimine le caractère CHR$(32) situé en tête de la chaîne.

On calcule l'abscisse X où il faut afficher la chaîne pour qu'elle soit placée au milieu de l'écran.

On affiche deux fois la chaîne A$ pour obtenir des caractères double hauteur.

On rétablit le curseur et CAPS qui avaient été supprimés en 160.

10 REM REFLEXEXxXxX xxx xxx xxx XXE EEE EX Æ 20 :

30 PAPER 2Z:INK O0

40 CLS: PRINT :PRINT:PRINT

J0 PRINT" Des caracteres ":

60 PRINT'"'apparaissent"

#0 PRINT'"'au hasard sur l‘’ecran."

80 PRINT" I1 faut frapper le plus" 70 PRINT'vuite possible sur la touche" 100 PRINT'correspondante."

110 1 20 1:30 140 150 1 60 1 70 1eû 170 200 210 220 230 240 290 260 2/70 280 290 300 310 320 330 340

410

PRINT

PRINT" --dles lettres majuscules" PRINT" sS‘’obtiennent avec SHIFT" PRINT :INPUT'"'Delai maximum " ; DELAI B=32:B$S=CHRS(B) +CHR$SCB) +CHRS(E) S=0 CLS: PRINT CHR$&(17) : CHR$&(ZO)

PING:WAIT 100 X4=2+ INT (34#RND( 1) YA=3+INTE21#RNDC 13) CX=33+ INT (93X#RND( 1 ))

IF C#=96 THEN 210 FORI=-1TO01:PLOTXA-1,Y%+1,B$:NEXT PLOT XX2,YX,C%:2ZAP

FÜR I=i TO DELAI STEP .002 IFKEY#=CHRS (C2 THENS=S#+ 1 : GOTO1 80 NEXT I

EXPLODE:WAIT 200

CLS:PAPER 1:INK 7 AS=CHRS(10)+"SCORE:"+CHRS(B) SCHE=STRÉ(S) SCH=RIGHTÉCSCE , LEN(SCH)D-1) A=AŸ+SCE X=18-INT(LEN(ASE)/2)

PLOT X,11,4$:PLOT X,12,A$ PRINT CHR$#(17):CHR$(20) PRINT

PRINT'II fallait frapper ": PRINT CHR$(C)

1.3 CAMÉLÉONS

Comme chacun le sait, les caméléons sont de petits animaux qui ont horreur de se déplacer. Pour se nourrir, ils se contentent d’attendre qu’un insecte passe devant eux, il n’y a plus alors qu’à déplier sa longue, longue langue pour happer l’insecte et en faire son repas.

L’ORIC vous demande tout d’abord: Force(1-20)? Frappez par exemple 2 puis RETURN. Il apparaît alors 7 caméléons rangés à droite de votre écran. Il y a aussi un insecte. Le caméléon situé en face de l’insecte (qui est en fait un glouton) doit l’attraper. Vous devez frapper deux touches : le numéro du caméléon qui est situé face à l’insecte, puis la distance glouton-caméléon. Le numéro du caméléon est un numéro compris entre 1 et 7, 1 pour le caméléon rouge, 2 pour le vert, …, 7 pour le blanc. La distance glouton-caméléon est comprise entre 1 et 9.

Ayant précisé qu’il ne faut pas frapper la touche RETURN après les deux chiffres, il ne me reste plus qu’à vous souhaiter un bon appétit !

Voici maintenant quelques explications sur la structure du programme. Tout d’abord, quelques initialisations, de 19 à 129.

70 MAX est le délai d'attente maximum pour la frappe d'une touche. Cette valeur est utilisée en 190 et 220.

89 On affiche les caméléons. Un caméléon est formé 4 x 2 caractères. Les quatre caractères supérieurs sont dans H$, que l'on affiche. On a affiché devant le caractère dont le code est |, qui définit la couleur.

99 On affiche comme précédemment le caractère de code ASCII , qui définit la couleur. Puis les quatre caractères inférieurs du caméléon, qui sont dans P$, sont affichés.

Le jeu lui-même est une boucle exécutée quarante fois qui s’étend des lignes 149 à 430.

En 159-169, on calcule la position (X, Y) de l’insecte, que l’on affiche à la ligne 179.

De 199 à 219, on attend que vous frappiez le numéro du caméléon, alors que de 229 à 249, on attend la frappe de la distance insecte- caméléon.

De 269 à 280, on vérifie que le numéro est bien compris entre 1 et 7, que la distance est bien comprise entre 1 et 9, puis ces deux quantités sont placées dans les variables A et B.

De 309 à 399, on déplie et on replie la langue du caméléon.

300 Y1 est l’ordonnée de la langue, qui est horizontale.

319 La langue va se déplier de la droite vers la gauche, depuis X1=32 jusqu'à X1=32—3+B.

320 Produit une note.

330 L$ contient un caractère qui forme un élément de la langue.

340 La langue est dépliée. On note dans V le code ASCII du caractère situé juste à gauche de l'extrémité de la langue. Ce caractère est soit un blanc soit l'insecte.

359 La langue va se replier de X1—32—3+B à 32. 369 Identique à 320.

379 On affiche V et un blanc, de code 32.

De 44 à 429, on regarde si le caractère attrapé est 115, c’est-à-dire l’insecte. Si oui, on incrémente le score. En 429, on efface la position (X, Y), au cas où le caméléon n’aie pas capturé l’insecte, et on fait cesser tout bruit. Puis, on continue.

En 494, l'instruction CALL #F8D0 recharge les deux jeux de caractères auxquels vous êtes habitué.

REM CAMELEONSXXXXXEXXEXEEEXREMXXRXEX

TEXT : PAPER 0 :1INK 1:CLS:GOSUB 1000

REM TRACE CAMELEONS ET INITS------ CLS : INPUT" Force (1-20) ":F:CLS MAX=S3000/(F+5):FOR I1=1 TO 7

PLOT 33,3%I,1:PLOT 34,3%1I ,H$

PLOT 33,3%*1+1,1:PLOT 34,3*x1+1,P$#

NEXT I:SC=0

REM JEU---—— FOR COUP=1 TO 40:Z=FRE("") X=1+INTÉP#RNDC 13) :X=3#X4+1 Y=1+INTC7#RNDC 12): Y=3%Y

PLOT X,Y,1$%

FOR I=i TO MAX A$S=KEYS:IF AS<>"" THEN 220 NEXT I1:GOTO 420

10

220

2930

450

910

1000 1010 1020 1030 1040 1050 1060 1070 1080 1090 110û 1110 1120

FOR J=1i TO MAX B$=KEYS:IF B$<)>"" THEN 260

NEXT J:GOTO 420

IF A$<"1" OR A$>"7" IF B$<"1" OR B$>"9" =VAL (AS) : B=VAL (ES) Yi=3%A

FOR X1=32 TO 32-3xB STEP -1

SOUND 1,1000/€(X1+3),0:PLAY1,0,7,0 PLOT X1,Y1,L#:NEXT X1

V=SCRN(X1 ,Y1)

FOR Xi=32-3*xB TO 32

SOUND 1,1000/€(X1+3),0:PLAY1,0,7,0 PLOT X1,Y1,V:PLOT X1-1,Y1,32 NEXT Xi

THEN 420 THEN 420

IF V<>115 THEN 420

PLOT 32,Y1,32:SC=SC+1:2ZAP:WAIT 70 PLOT X,Y,32:PLAY 0,0,0,0

NEXT COUP

PLUT 12,12," Score: "#+5STRSCSC)

PLOT 6,15,"On recommence (O/N) ?" GET ÂA$:IF A$="0" THEN 60

IF 4$S<)>"N" THEN PING:GOTO 470 CLS:PAPER 2:INK O:CALL £F8D0

END

REM DEFINITION CARACTERESxxxxxxxX

DATA 33,18,12,12,12,12,18,33 DATA 0,0,0,0,0,63,0,0

DATA 0,0,3,14,63,63,15,3 DATA 0,0,48,24,60,40,25,643 DATA 0,0,0,0,0,0,60,26

DATA 6,15,11,10,8,8,8,8

DATA 2,3,3,7,14,28,56,48 DATA 55,63,29,55,30,7,0,0 DATA 63,45,55,31,62,56,0,0 DATA 8,40,56,56,28,14,7,3

S=46080+115*8:F=S+10*8-1 FOR I1=S TO F:REÂD V:POKEI ,V:NEXT

1130 1140 1150 1160 1170 1180

IB=CHRS (115) :LE=CHRE( 1 1 6) H$=CHRS (117)+CHR#Ç118) +CHR&( 119) H$=H$+CHRSE ( 1 20 ) PS=CHR$(121)+CHR$&C 122) +CHR$& (125) P$=P#$+CHRSE( 124)

RETURN

Note: le caractère ”£” est à remplacer par ”#”.

11

Voici l’aspect du caméléon et dé l’insecte:

ed L Ge E.

1.4 CACHE-TAMPON

Je suis très fier de vous présenter CACHE-TAMPON, un jeu tout à fait original, comme vous allez pouvoir en juger :

— Pas de caméléon, de glouton, il n’y a rien à manger. Ce jeu est reposant pour l’estomac.

12

— Aucun dessin. On peut jouer sans regarder l’écran, vous pouvez même l’éteindre. Ce jeu est reposant pour les yeux.

— Aucune stratégie, tactique ou méthode, il n’y a pas à réfléchir. Ce jeu est reposant pour l'esprit.

Le jeu utilise le générateur programmable de sons de l’ORIC, qui est capable de produire simultanément trois notes. Imaginez que trois objets sont cachés derrière l’écran. À chacun de ces objets est associé une note, plus le curseur est proche de l’un des objets et plus la note asso- ciée est aiguë. Vous pouvez déplacer le curseur avec les touches flèches, il faut l’amener sur les objets cachés.

Tout d’abord, des lignes 19 à 99, on trouve quelques initialisations.

30 CHR$(6) supprime le bruit produit par le clavier lorsque l'on enfonce une touche. En effet, ce bruit est aussi produit par le générateur pro- grammable, il interromprait les trois notes.

49 8 et 9 sont les codes ASCII des touches ‘’flèche à gauche” et ‘’flèche à droite”. On les range dans les chaînes G$ et DS.

59 De même les codes ASCII des touches ‘flèche en bas” et ‘flèche en haut” sont placés dans les chaînes B$ et H$.

69 X et Y contiennent la position du curseur sur l'écran. X(3) et Y(3) servent à stocker la position des trois objets, tandis que F(3) est utilisé pour indiquer si les objets ont été trouvés ou non.

70 à 80 Les coordonnées des trois objets à découvrir sont tirées au hasard et stockées dans les deux tableaux.

La boucle de jeu s’étend des lignes 199 à 289. Il faut déplacer le curseur suivant la flèche qui a été enfoncée, regarder si le curseur ne se trouve pas sur l’un des objets, calculer la distance du curseur aux objets non trouvés, et produire les notes correspondantes.

119 On affiche le compteur, qui sera vert car on ajoute un caractère CHR$(2). CHR$(32) est un caractère blanc, qui sert à effacer le der- nier chiffre affiché lorsque l'on passe de 1 400 à 999, de 109 à 99 et de 19 à 9.

120 On lit le clavier et l’on place le caractère lu dans K$.

130 Si l'on a frappé ‘flèche à gauche”, on décrémente l'abscisse du curseur.

13

149

159

160

180

190

209

219 229

230

259

260

279

14

Si l'on a frappé ‘flèche à droite , on incrémente l'abscisse du curseur.

Si l'on a frappé ‘flèche en bas’, on incrémente l'ordonnée du curseur.

Si l'on a frappé ‘flèche en haut ”, on décrémente l'ordonnée du curseur.

La touche lue est affichée, ce qui provoque le déplacement du curseur. Il ne faut surtout pas oublier le ; à la fin de l'ordre PRINT, qui empêche le renvoi du curseur au début de la ligne suivante.

Si F(l) vaut 1, cela signifie que l'objet numéro | a été découvert, on saute donc en 276, il n'y a rien à faire.

On calcule la distance du curseur à l'objet numéro I. La dernière instruction pourrait aussi s'écrire DX—SQOR(A"2+B"2). Cette écriture est, de façon générale, à éviter. En effet, A+A et B+B sont calculés plus rapidement que A°2 et B°2. De plus, on obtient des résultats plus précis avec A+A et B+B, bien que dans le cas de ce programme cela soit sans importance.

Si la distance n'est pas nulle, l'objet n’est pas trouvé, on va en 25%.

D% est nul, on vient de trouver l'objet I. On l'indique avec F{l)}=1 et on incrémente le nombre N d'objets déjà trouvés.

L'expression logique F(1) AND F(2) AND F(3) est vraie si les nombres F(1), F(2) et F(3) sont tous les trois non nuls, c'est-à-dire si l'on a trouvé les trois objets. Dans ce cas, on va en 410.

SOUND définit la hauteur de la note I. La période de cette note est proportionnelle à D%, on obtiendra une note d'autant plus aiguë que D% est petit. Le paramètre ‘volume ” de SOUND est à zéro: l'instruc- tion définit la hauteur de la note sans la jouer.

M% est le minimum des distances curseur-objet. Ce nombre servira à déterminer la fréquence de répétition du son, en 270.

Pour jouer la note du canal 1, il faut exécuter PLAY 1, Pour la note du canal 2, on exécute PLAY 2, … tandis que PLAY 4, … active le canal 3. Si l'on désire obtenir simultanément les canaux 1 et 3, on emploie PLAY 1+4,.. tandis que PLAY 1+2,... active les canaux 1 et 2 et PLAY 1+2+4, … joue les 3 canaux.

A la ligne 180, on a exécuté PX=—0. Puis on a, en 250, ajouté 1 s'il faut jouer le canal 1, on ajoute 2 s'il faut jouer le canal 2 et 4 s'il faut

jouer le canal 3. Ainsi, en 279, P% contient la valeur adéquate pour que seuls les notes correspondants aux objets non trouvés soient jouées.

Les lignes 399 à 449 sont exécutées à la fin du jeu.

329 Il ne faut pas oublier le ;. Ainsi les messages des lignes 320 et 330 seront-ils sur la même ligne.

349 à 389 On reconnaît là l'indicatif de ‘’ Rencontres du 3° type”.

399 CHR$(6) rétablit le bruit produit par le clavier, qui avait été supprimé à la ligne 30.

. Lorsque vous avez découvert les trois objets, on exécute les lignes 419 à 450 et l’on recommence le jeu.

10 REM CACHE-TAMPON x x 3% 2% 2-2 26 DEEE NE NE NE EEE

30 PAPER 1:INK O:PRINT CHR$#(é6):CLS

40 W=1000 : GH=CHRS ES) : DÉ=CHRE( 7)

50 B$=CHRSE (10) : H$=CHRE CS 1 1 )

60 X=2:Y=0:DIM X(3),YC3),F(3)

70 FOR I=i TO 3:XCI1)=INT(38xRND(1))+2 80 YCI)D=INT(É27#RND 1 ) ) :=NEXT

70 :

100 FOR T=W TO 0 STEP-I

110 PLOTIS6,13,CHR$SC2Z) +STRSCT) +CHR&( 32) 120 K$=KEYS:1FK$=""THENUWAITI10 :GOTO280 130 IF K$S=G#SANDX>2 THEN X=X-1 : GOTO1 80 140 IF K$S=DSANDX<39 THENX=X+1 :GOTO180 150 IF K$S=B$SANDY<26 THENY=Y+1 :GOTOI80 160 IF K$=H$SANDY>0 THEN Y=Y-1 : GOTO180 170 GOTO 280

180 PRINT K$::P#=0:M#=1000

190 FORI=3STOISTEP-1:I1F F(I1)=1 THEN270 200 A=X-X(1):B=Y-YCI) :DA=SGR A *XA+BEXE) 210 IF D<>0 THEN 250

220 EXPLODE:F(CI1)=1:N=NtI

230 IF F1) AND F2) AND FC3)THENAID 240 GOTO 280

250 SOUND 1,80*xD7%,0:PA=P4+27(I-1)

15

260 IF DÆ<M4 THEN MA=D%

2/70 NEXT:PLAY P%,0,3,100xM%

280 NEXT T

290 :

300 CLS:PAPER 2:INK 0

310 FOR I=i TO S:PRINT:NEXT

320 PRINTSPC(4);"Vous avez trouve ": 330 PRINTN:'"bidules":PLAY 1,0,7,10 340 MUSIC 1,3,3,15S:WAIT 80

330 MUSIC 1,3,5,15:WAIT 80

360 MUSIC 1,3,1,15:WAIT 80

3/0 MUSIC 1,2,1,15:WAIT 80

380 MUSIC 1,2,8,15:WAIT 80

390 PLAY 0,0,0,0:PRINT CHR$#(é) : END 400 :

410 FOR I=i TO 3:F(I1)=0:NEXT

420 W=INT(2*%W/3)

430 MUSIC 1,3,10,0:PLAY 1,0,3,1500 440 WAIT 400:PLAY 0,0,0,0

450 GOTO 70

Attention à ne pas oublier le ; de la ligne 189.

1.5 TOUR DE HANOÏ

Voici maintenant un jeu de réflexion. Le principe en est simple: on dispose d’un support comportant trois tiges verticales et de disques de couleurs et de tailles variées. Ces disques sont percés en leur centre, et peuvent s’enfiler sur les tiges. Au début du jeu, on empile tous les disques sur l’une des tiges, dans l’ordre des tailles décroissantes. Ainsi, le plus grand disque est au-dessous de la pile de disques tandis que le plus petit est au sommet. Le but du jeu ést de transférer toute cette pile sur l’une des deux autres tiges. Cela n’est pas si simple, car vous ne pouvez trans- férer d’une tige à une autre qu’un seul disque à la fois. De plus, à aucun moment, on ne peut avoir un disque enfilé au-dessus d’un plus petit.

Voici un exemple avec deux disques:

16

Au départ, on a deux disques sur la tige de gauche. Il faut les amener sur la tige de droite.

1°" coup: On déplace le petit disque de la tige de gauche à celle du milieu.

2° coup: On déplace le grand disque de la tige de gauche à celle de droite.

3° coup et dernier coup: On déplace le petit disque de la tige du milieu à celle de droite.

Le programme vous demande tout d’abord: Nombre de disques ? Tapez 2 puis RETURN. On vous demande alors: Tige de départ (0, 1,2)? Tapez O puis RETURN. On vous demande encore: Tige d’arrivée (9, 1,2)?

Tapez 2 puis RETURN. L'écran passe en mode haute résolution et le support est dessiné. Les tiges sont numérotées de Ÿ à 2. Deux dis- ques sont enfilés sur la tige ©. On vous demande:

Départ, arrivée (9, 1, 2)?

Tapez, dans l’ordre:

9,1 return 9,2 return 1,2 return

Vous pouvez recommencer avec plus de disques, le jeu se complique à partir de 5 disques. Vous pouvez, au début, partir d’une autre tige que celle de gauche, pour arriver sur une autre que celle de droite.

Voici quelques explications sur le fonctionnement de ce programme. Les lignes 19 à 129 servent à demander le nombre de disques N, le numéro de la tige de départ DE ainsi que celui AR de la tige d’arrivée.

69 Les disques sont numérotés de 1 à N, N est celui de diamètre le plus grand. Le tableau TIGE sert à stocker pour chaque tige, les numéros des disques qui y sont enfilés. Le tableau T sert à stocker, pour chaque tige, le nombre de disques qui ÿ sont enfilés.

Les lignes 219 à 299 servent à tracer le support et placer les disques sur la tige de départ.

230 On trace une tige verticale.

249 On trace le numéro de la tige. Pour 11, 1+47 vaut 48, ce qui est le code ASCII du chiffre ’@'’. De même, 49 est le code ASCII de 1 et 59 est celui de 2‘.

279 Le sous-programme 1919 empile le disque numéro A2 sur la tige numéro A1. La boucle 269-289 empile donc tous les disques sur la tige de départ DE, en commençant par le plus grand.

Le jeu lui-même est constitué des lignes 319 à 430. 350 Si la tige de départ A1 est vide, s'il n'y a pas de disque, il y a erreur,

on va en 380.

18

360 Si la tige d'arrivée A3 est vide, pas de problème, on peut prendre le

370

390

400

410

dernier disque de la tige A1 pour le mettre sur la tige A3, ce qui est fait en 390.

On vérifie que le dernier disque enfilé sur A1, celui que l’on va dépla- cer, est bien plus petit que le dernier disque enfilé sur A2. Si tel est le cas, on va en 394.

Le sous-programme 2919 dépile un disque de la tige A1. Après l'exécution du sous-programme, A2 contient le numéro du disque qui a été dépilé.

Le sous-programme 1919 empile le disque numéro A2 sur la tige de numéro A1. Le numéro de la tige d'arrivée, A3, a été placé dans A1 à la ligne précédente.

Si il a moins de N disques sur la tige de numéro AR, ce n'est pas terminé, on va donc en 31 pour continuer.

10 REM TOUR DE HANOI##XXxHXXEXXKKEEREÉEX 20 ?

30 TEXT:CLS:PRINT:PRINT

40 INPUT'Nombre de disques ";N

50 IF N<1i OR N>i0 THEN PING:GOTO 4û 60 DIM TIGE(2,N-1)9,7T(C2)

70 INPUT'"'Tige de depart (0,1,2) "3DE 80 IF DE<{0 OR DE>2 THEN PING:GOTO 70 9Q INPUT"'Tige d’arrivee (0,1,29 ";3AkR 100 IF AR<O OR AR>I2 THEN PING:GOTO 90 110 IF AR=DE THEN PRINT'P#$f !":GOTO/70

210 HIRES

220 FOR I=i TO 3

220 CURSET&Ox1-40,199,3:DRAW 0,-150,1 240 CURMOV -2,-15,3:CHAR 1+47,0,1

Z50 NEXT I

260 FOR I=N TO 1 STEP -1

270 ÀAI=DE:A2Z=I:GOSUE 1010

280 NEXT I

270 :

310 REM DEBUT TRAITEMENT ---------———- 320 INPUT'"Depart,arrivee (0,1,2) ";A1l,A3

19

430

1010 1020 1030 1040 10Sû 1060 1070 1080 1090 1100 2010 2020 2030 2040 2050 2060 2070 2080 2090 2100

IF ÀAS<O OR À3>2 THEN PING:GOTO320

IF A1<0 OR À1>2 THEN PING:GO0OTO320

IF T{A1)<=0 THEN 360

IF T(A3)<=0 THEN 390

IF TIGE(AI,T(A1)-1)<TIGE(AS,T(AG)-1) THEN 39 £AP:WAIT 30:EXPLODE:GOTO 310

GOSUB 2010 :A1=ÀA3

GOSUB 1010

IF TÉAR)D<N THEN 310

END

REM S-PROG EMPILE DISQUEXxxxxxXxxx Li=190-10%*T A1) :C1=80x*41+39 CURSET-/8*%x(A120)-84#x(A12>1),L1,3 FILL 10,1,42-/*xINTC(A2-1)/7)

CURSET?72-84#(A120)-78x(A12>1) ,L1,3 FILL 10,1,7

GOSUB 2060 TIGE(A1,T(A1))=A2:T(A1)=T(A1) +1 RETURN

REM S-PROG DEPILE DISQUExx*xx*x*#x#2x%x T(A1D=T(A1)-1:42=TIGE(AI ,T(A1)) Li=190-10%T(A1) :Ci=80xA1 +39 CURSET-78*%(A1>0)-84%x(412>1) ,L1,3 FILL 10,1,7

FOR J=0 TO 9?

CURSET Ci-3xA2,L1+J,3

DRAW 6x%A2+1,0,2

NEXT J

RETURN

1.6 SOLUTION DE LA TOUR DE HANOÏ

Ce programme, qui résoud le problème de la tour de Hanoi, se trouve dans tous les manuels d’informatique, car il illustre la notion de sous-programme récursif, c’est-à-dire un sous-programme capable de s’appeler lui-même. Il peut être intéressant de voir comment ceci peut être programmé sur ORIC.

20

Le transfert de N disques d’une tige de départ DE à une tige d’arrivée AR peut se décomposer en trois étapes.

1) On transfère N—1 disques de la tige DE sur la tige restante.

2) Il reste un disque, le plus grand, sur la tige DE. Il n’y a rien sur la tige AR, les autres disques sont empilés sur la troisième tige. On trans- fère le grand disque de la tige DE à AR.

3) Il ne reste plus qu’à transférer les N—1 disques restants de la tige où ils sont vers la tige AR, et le tour est joué!

On veut transférer quatre disques sur la tige de droite.

On transfère trois disques sur la tige restante, ici celle du milieu.

On fait passer le grand disque de gauche à droite.

On transfère les trois disques sur la tige de droite.

Le programme correspondant peut être décrit comme suit :

21

Programme solution de la tour de Hanoï: lire le nombre de disques N lire le numéro de la tige de départ DE lire le numéro de la tige d'arrivée AR exécuter Hanoï (N,DE,AR)

Fin

Sous-programme Hanoï (B1,B2,B3): si B1 vaut 1 alors: dépiler le disque du dessus de la tige B2 empiler ce disque sur la tige B3

sinon : calculer B4=—numéro de la tige restante, ni B2, ni B3 exécuter Hanoï (B1—1,B2,B4) exécuter Hanoï (1, B2,B3)

_ exécuter Hanoï (B1—1,B4,B3)

Retour

Le sous-programme Hanoï est récursif, ce qui signifie que les para- mètres locaux B1, B2, B3 et B4 ainsi que l’adresse de retour L doivent être empilées lorsque l’on entre dans le sous-programme. Ce qui est fait en 429-459. Il faut aussi dépiler ces quantités en sortie du sous- programme, ce qui est fait en 569-580.

10 REM SOLUTION TOUR DE HANOIXX*x#XxxXxXx%x

30 TEXT:CLS:PRINT:FRINT

40 INPUT'"'Nombre de disques ":iN

50 IF N<i OR N>10 THEN FING:GOTO 4û 60 DIM TIGEC2.N-1),TC2),PYLEG100) :PP=0 70 INPUT'Tige de depart (0,1,29 ";DE 80 IF DE<O OR DE>2 THEN PING:GOTO 70 90 INPUT'"'Tige d’arrivee (0,1,29 ";AR 100 IF AR<O OR ÀAR>2 THEN PING:G0OTO 90 110 IF AR=DE THEN PRINT'P#$f#f !":GOTO/O 120 :

210 HIRES

220 FOR I=i TO 3

230 CURSETS80*1-40,199,3:DRAW 0,-150,1 240 CURMOU -2,-15,3:CHAR 1+47,0,1

7

250 260 270 280 270 310 320 330 340 410 420 430 440 450 460 470 480 490 900 910 520 930 940 900 960 9/0 980 990 600 {1Gi10 1020 1030 1040 1050 10460 10 70 1080 1090 1100 2010 2020

NEXT I

FOR I=N TO 1 STEP -1 A1=DE :A2=I :GOSUB 1010 NEXT I

RE DÉBUT. TRAETEMENE ESS BIi=N:B2=DE:B3=AR:L=1:GO0OTO 410

END

REM S-PROG HANOIXKEHEEXKEERXEXEXEXEX PYLE(PP)=L:PYLE(PP+1)=B1 PYLE(PP+2)=B2:PYLE(PP+3)=B3 PYLE(PP+4)=B4:PP=PP+5

IF Bi<>1 THEN 510 Ai=B2:GOSUB 2û010

A1=B3:GOSUB 1010

GÜTO Séû

B4=5-B2-Eb53

Bi=Bi-1:B3=B4:L=2:GOTO 410 Bi=1:R3=PYLECPP-2) :L=S3: GOTO 410 Bi=PYLE(PP-4-1:B2=B4:L=4:G6G0OTO 410

PP=PP-5 : B4=PYLE(PP+4) B3=PYLE(PP+3) : B2=PYLE(PP+2) Bi=PYLE(PP+1) :L=PYLE(PP)

ON L GOTO 330,530 ,540,550

REM S-PROG EMPILE DISQUExx*x##x%#%x Li=190-10%T(A1) :C1=80*xA1+39 CURSET-78*(A1>0)-84x(A12>1),L1,3 FILL 10,1,42-7*INT((42-19/7) CURSET72-84#(A1>0)-78*x(A12519,L1,3 FILL 10,1,7

GOSUB 2060 TIGE(AI,T(A1D)=A2:T(A1)=T(A1) +1 RETURN

REM S-PROG DEPILE DISQUEXxxx*Xxxx xx TCALI=T( A1) -1:A2=TIGEC AI ,TCA1))

23

2030 Li=190-10#T(A1) :C1=80*xA1+39 2040 CURSET-78*#(41>0)-84#(A12>1),L1,3 2050 FILL 10,1,7

2060 FOR J=0 TO 9

2070 CURSET Ci-3*A2,L1+J,3

2080 DRAW 6*%A2+1,0,2

2090 NEXT J

2100 RETURN

1.7 CHUTES D'ÉTOILES

Après ces deux programmes sur la tour de Hanoi, nous entrons maintenant dans le monde des jeux intersidéraux. Vous êtes maintenant le commandant d’un vaisseau intersidéral. Vous traversez un champ d'étoiles énergétiques, il faut essayer d’avaler ces particules en plaçant votre vaisseau devant, vous disposez des deux touches ” flèche à gauche” et ” flèche à droite” pour vous diriger. Attention : certaines de ces étoiles clignotent, elles sont en fin de leur existence et risquent d’exploser. II convient donc de les éviter. Une particule rouge vous rapporte un point, une verte deux points, une jaune trois points, une bleue quatre points, une mauve cinq points et une bleu ciel vaut six points. Et maintenant, bonne chance!

Ce jeu utilise le mode LORES 1, qui rappelons-le, est un mode TEXT, l’ordre LORES 1 place simplement un caractère CHR$(9) au début de chacune des 27 lignes de l’écran. Ce caractère impose au système vidéo de l’ORIC l'utilisation du jeu de caractères semi- graphiques. Chaque étoile est un caractère semi-graphique de code ASCII 35, le vaisseau est lui constitué des caractères de codes 33 et 34.

Le début du programme, de 19 à 169, sert à redéfinir les caractères semi-graphiques employés, ainsi que quelques constantes.

49 B% est le code ASCII du ‘’blanc”, T4 et Q% sont les codes ASCII de la tête et de la queue du vaisseau, alors que A% est celui de l'étoile.

89-99 X% et Y% sont les coordonnées sur l'écran du vaisseau. CHR$(1 7) et CHR$(29) suppriment le curseur et le mot CAPS.

24

109 G$ et D$ contiennent les codes ASCII des touches ‘flèche à gauche” et ‘’flèche à droite’. H$ contient celui de ‘’flèche en haut”.

119 à 140 Le vaisseau est obtenu en affichant trois chaînes T$(@), T$(1) et T$(2).

_ ft Le L Du :

Les CHR$(9) forcent l’utilisation des caractères semi-graphiques non clignotants, ainsi le vaisseau ne clignotera pas lorsqu’une étoile clignotante se trouvera à sa gauche. Le CHR$(7) détermine la couleur du vaisseau, blanc. |

Lorsque l’on déplace le vaisseau à gauche, les deux blancs B$ situés à droite effacent le vaisseau précédent. Lorsque l’on se déplace à droite, le vaisseau précédent est remplacé, effacé par les deux CHR$(7). Enfin les quatre blancs de la chaîne T$(2) effacent le bas du vaisseau précédent après chaque déplacement vers le bas du champ d’étoiles.

150 S est l'adresse-mémoire de l'octet qui correspond au 2° caractère de gauche de la première ligne de l'écran, elle servira à la ligne 229. Les constantes L et M seront aussi utilisées à la ligne 220.

La boucle de jeu s'étend de 179 à 34. 199 On tire au hasard un nombre Z% compris entre 2 et 38.

299 En Z% on place un caractère dont le code ASCII est aléatoire et compris entre 1 et 6. C'est un code de couleur, qui détermine la teinte

25

219

229

239 249

259 269 270 289

des caractères situés après lui sur la ligne. En Z%+1, on met une étoile, qui a la couleur définie par le caractère précédent.

On appelle un sous-programme en langage machine qui déplace l'écran d'une ligne vers le bas.

On place soit un CHR$(9) soit un CHR$(13) au début de la première ligne de l'écran. L'étoile qui a été placé sur cette même ligne écran en 200 sera donc clignotante avec CHR$(13) et fixe avec CHRS(9).

Lit le clavier.

Si la touche frappée est ‘flèche à gauche” et si X% est supérieur à @ l'expression (C$—G$ AND X%>6) est vraie et vaut —1, on décré- mente X%. Si on a frappé ‘flèche à droite’, c'est (C$—D$ AND X%X<36) qui vaut —1 et on incrémente X%.

On trace le vaisseau. On regarde si l'on est en face d'une étoile. On regarde si l'étoile clignote.

SCRN(X%+1,Y%—1) donne le code ASCII du code de couleur de l'étoile, c'est un nombre compris entre 1 et 6 que l'on ajoute au score U%.

A la ligne 30, on réserve 69 octets pour placer le sous-programme

machine, ce qui est fait en 1990.

1910 En #A6-#A7 se trouve la valeur de HIMEM, que l'on range en A. 1029-1939 On place 55 octets en mémoire à partir de A.

1940 Le sous-programme situé en À appelle lui-même un sous-pro-

gramme débutant en A+43. PL contient donc l'adresse de ce second sous-programme. En A+26, on trouve une instruction JSR vers ce second sous-programme. On place donc en A+21 l'adresse de ce second sous-programme.

* Décalage vers le bas de l'écran en mode TEXT ou LORES:

A21A A LDX #26 Initialise compteur de lignes. A9B8 LDA #5B8 L'adresse mémoire $BFB8 du 8500 STA Q premier octet de la dernière ligne A9BF LDA #$BF de l'écran TEXT est rangée en 8501 STA 1 Q-1.

AQ27 Tligne LDY #39 Initialise compteur de caractères.

26

A5QQ LDA 8592 STA A591 LDA 8503 STA 2O0XXXX JSR B1900 Treara LDA 9192 LDA 88 DEY 10F9 BPL CA DEX 19E9 BPL AQ27 Ligne@ LDY A920 LDA 9109 boucle STA CA DEY 10FB BPL 69 RTS

* Oter 49, nombre d A5QQ PL LDA 38 SEC E928 SBÈ 85909 STA B992 BCS C691 DEC 69 Retour RTS

TO = ND © es

n S

< <

Treara

Tligne

#39 #32 (@), Y

boucle

o

#40 o

Retour

(0)

L'adresse rangée en (9-1) est recopiée.

en (2-3)

puis

on retranche 40 à (9-1).

Prendre un octet et

le recopier à la ligne du dessous. décrémenter compteur de carac- tères

Si pas nul, continuer la ligne. Sinon, décrémenter compteur de lignes.

Si pas nul, passer à la ligne sui- vante.

La 1'° ligne de l'écran va être remplie de blancs (code 32).

‘octet par ligne, à (@-1):

Prendre l'octet de poids faible. Préparer la soustraction.

Oter 40.

Ranger l'octet de poids faible. Si retenue, retour.

Sinon décrémenter octet poids fort.

10 REM ETOILESX2x xx 26x66 262 XX XXE EEE EX

30 HIMEM €£9800-50:GOSUB 1000

40 B2=32:7/=33:0/%=34 :A4=3S 90 PAPER O:INK O:LORES 1:S=£fB800+8xTx

60 S=£BS00+8xTXx

#0 GOSUB 2000

80 XX=15:Y/=20

90 PRINT CHR#(1/7) ; CHR 20) 100 GS=CHRS (SG) : DE=CHRE( 7) 110 DIM T#&(C2) : B$=CHR#&(B/)

</

28

1 20

270 300 310 320 330 340 390 360 37/0 360 390 400 410 420 430 440 450 460 470 480 450 20 0 910 220

THCO)=CHRS( 93 +CHRE EC 7) +CHRECT A) +BF THCI)I=CHRE( 7) +CHRS C7) +CHRÉ CG) +5 TH(2)=B$+B$+BS+BS S=£BBSG+41:L=7:M=13

REM DEBUT DU PROGRAMME FOR T=i TO 400

£=3 7 #RND( 1 +2 PLOT2%,0,i1+6xRND(1) :PLOTZ2/+1,0,À% CALL À

POKE S,L:IF RND{1)<.STHEN POKES,M CS=KEYS

XA=X et € CH=CGHANDXZ > 0) — € CH=DEANDXE < Sé ) FOR I=CTO2:PLOTXA ,YA+I ,T$&CI) :NEXT IF SCRN(XA+2,Y/#-1)<247 THEN 290 IF SCRN(1,Y/-19=13 THEN 330

LAPS UZ=UX + SCRNCXZ + 1, Ye 1) Ê=FRE("")

NEXT T:WAIT 200:G0OT0 350

REM FIN DU PROGRAMME ----------——- FORI=OTO2:PLOT X2+1,Y/+I,1:NEXT EXPLODE :WAIT 300

TEXTSPAPER 2:INK 0:CLS

PRINT : PRINT : PRINT : PRINT : PRINT PRINT SPC(10):"Vous avez aqagne” PRINT : PRINT :PRINT

PRINT SPC(C15): CHR&(27)3:"A";:;

PRINT CHR#(27):"N"'sU%

PRINT SPC(15) ;: CHR&(27):"Â";:

PRINT CHR#(27) 53 "N"sU%: PRINT FRINTFSPRINTIEPRINISPOC(SIi97s: "points"

B= INT CUZ/20) : PRINT : PRINT : PRINT IF B=0 THEN SHOOT:GOTO 500

IF B>5 THEN EXPLODE:GOTO 5é0 ON B GOTO 510,520,530,540,550

PRINT'VUous etes nul.":GO0OTG 5680 PRINT'Pas terrible.":GOTO 580 PRINT'Bof ...":GOTO 580

930

990

J60

9/0

980

990

1000 1010 1020 1030 1040 1050 1060 1070 1080 10970 1100 1110 1120 1130 1140 1150 2090 2010 2020 2030 204û 2050

PRINT'"'Pas mal.":G0OTO 580

PRINT'Felicitations":G0OTO PRINT'Quel

280

score !!":GOTO 580

PRINT'Fantastique ! Formidable !"

PRINT CHR&(17) ; CHR#( 20) : END

REM SOUS PROGRAMME MACHINE x* # x xxx A=DEEK(£A6)

FOR I=û TO A+S54:READ V

POKE I ,V:NEXT

PL=4+43:DOKE A+21,PL

RETURN DATASAZ,f1A.£A7,€6B8,£85,£€00 ,£A9 DATA£BF ,£85,£01,€A0,£27,£A5,£00 DATAL8SS,£02,fA5,€601,£85,£03,£20 DATA£FF,£FF,£B1,£00,£91,£02,£88 DATA£10,fF9,£CA,£10,£E7,£A0,€27 DATA£AY,£20,£91,£00 ,£CA,£10,£FB DATA£ 60

DATA£AS ,€00,£38,£E9,£28,£85,f00 DATA£BO,£f02,£Cé,£f01,f£f60

REM CARACTERESR#KEXREEELEXELXXHEXEX FORI=STOS+23 : READV : POKEI ,V:NEXT DATA 12,12,12,30,45,45,45,45 DATA 45,45,45,63,45,33,33,33 DATÉ 0,0,12,30,30,12,0,0

RETURN

Note: le caractère ”£” est à remplacer par ” #”. Ne pas oublier les ; des lignes 399 et 419.

29

1.8 VOYAGE DANS L'ESPACE

Après CHUTE D’ÉTOILES, nous poursuivons notre voyage dans l’espace. Le vide intersidéral est décidément très peuplé, car vous traver- sez de nouveau un champ d’étoiles. Mais attention: cette fois-ci, ce sont des étoiles très dures, qu’il faut absolument éviter. Vous disposez toujours des flèches à gauche et droite pour manœuvrer. Au départ, vous avez un crédit de 9, ce qui signifie que vous pouvez percuter neuf étoiles au maximum. Il ne me reste plus qu’à vous souhaiter bon voyage!

30 On efface l'écran, on efface le curseur, le mot CAPS, on supprime le ‘’plop” produit par les touches du clavier;

49 Bien qu'il ne soit plus affiché, le curseur existe toujours dans l'ORIC, il indique l'endroit où sera affiché le prochain message: L'écran comporte 27 lignes, on envoie le curseur sur la dernière ligne de l'écran.

30

59

60

89 99

100

119

149

159

169 219

S est l'adresse-mémoire de la première ligne de l'écan. (On ne compte pas la ligne où se trouve CAPS).

H%=—42 est le code ASCII de l'étoile. G$ et D$ contiennent ies codes ASCII des touches ‘flèche à gauche” et “flèche à droite”.

On place trois étoiles sur la dernière ligne de l'écran.

Comme le curseur est en bas de l'écran, PRINT décale tout le contenu de l'écran vers le haut. Puis on lit le clavier.

Ceci, comme dans le jeu précédent, incrémente ou décrémente X selon la touche frappée.

à 139 On regarde si l'on a rencontré une étoile. Si oui, on décrémente le crédit V.

On fabrique le vaisseau. V est un nombre compris entre 1 et 9. V+48 est compris entre 49 et 57, ce qui correspond aux codes ASCII des caractères ‘1 à 9”.

On affiche le vaisseau et on incrémente le score. On modifie la couleur de facon aléatoire.

Le caractère CHR$(2) donne au nombre la couleur verte. Pour que les mots ‘année lumière...” qui sont à la suite ne soient pas verts eux aussi, on affiche CHRS$(3), ces mots seront donc jaunes.

10 REM VOYAGE DANS L'ESPACEXRXXEXEXREEX eÙ :

30 CLS:PRINTCHRE( 17): CHR 20) ; CHRE( 6) 40 FOR I=1 TO 27:PRINT:NEXT : PAPER 0 O0 X=14:Y=26:V=9:S=£fBBAB:L=S8

60 NA=0 :H7=492 : G$=CHRSE € 8) : DÉ=CHREE 9) 70 :

80 FORI=1TOZ:PLOTZ+RNDE 10 #L,Y HA :NEXT 90 PRINT:K#S=KEYS

100 X=X+CKS=GEANDX D 1 ) -CKE=DEANDX< 34) 110 FOR I=0 TO 2

120 IF PEEK(S+X+I1)=H4 THEN V=U-1{:PING 130 NEXT:IF LVéi THEN 180

140 V&="H"+CHRSCV+48)+"H"

150 PLOT X,0,U#:N2=NZ+ 1

160 INK 1+7#xRND& 1) : GOTO 8

31

32

1 70 180 190 200 210 220 230

EXPLODE :WAIT 200:PAPER C:INK 3 PLOT 9,13,"Vous avez voyage dans” PLOT 11,15,"1l'espace pendant"

PLOT 8,17,CHR#(2) +STR$S (NY) + CHR#( 3) PLOT 13,17,"annees lumiere..." PRINT-CHRS (17) : CHR$ € 20) ;: CHR C6)

1.9 CHENILLE

Voici maintenant un ” classique” des jeux sur micro-ordinateurs : Le jeu de la chenille. Une pauvre petite chenille affamée se proméne sur votre écran, cherchant sa nourriture. Elle mange des punaises, des araignées et des gros scarabées. Votre rôle consiste à guider la petite chenille avec les quatre touches fléchées. A chaque fois qu’elle mange une punaise, elle grandit d’un anneau. Une araignée la fait grandir de trois anneaux, et un scarabée lui donne dix anneaux de plus. Le but du jeu est de faire grandir le plus possible la petite chenille.

Attention: cet animal est très vorace, il avale vraiment tout ce qui se présente à ses mâchoires. Il ne faut pas que sa tête passe sur son corps, car il se dévore immédiatement et en meurt. De plus, les gros séarabées sont très lourds à digérer, la chenille ne peut en manger qu'après avoir avalé une araignée, qui contient des sucs digestifs.

La difficulté du jeu commence à se manifester lorsque l’on atteint une longueur d’environ deux cents anneaux: Il faut soigneusement choisir son chemin pour éviter d’être pris dans les replis du corps qui occupe une bonne partie de l’écran. Pour vous aider, le nombre de scarabées que vous pouvez avaler sans risquer l’indigestion est inscrit en rouge en bas de l’écran.

La tête de la chenille, chacun de ses anneaux, la punaise, l’araignée et le scarabée sont bien sûr des caractères que l’on a redéfini.

| | | | | |

anneau

anneau

sen est

| | | | | | | | | | |

_—— + — = = = — —_—— —

+ = — + | punaise |

33

La difficulté de ce programme réside dans le déplacement de la chenille. On ne peut pas déplacer sur l’écran toute la chenille lorsque vous frappez une touche, car cela serait beaucoup trop long. Prenons un exemple pour montrer comment l’on procède :

On veut déplacer vers la droite la chenille:

position 1

position 2

On pourrait bien sûr déplacer vers la droite les quatre caractères qui représentent la chenille. En fait, partant de la position 1, il suffit de:

— déplacer la tête vers la droite,

— mettre un anneau à l’endroit où se trouvait la tête avant son déplacement,

— effacer le dernier anneau.

On arrive ainsi à la position 2 en trois étapes, et ceci quelle que soit la longueur de la chenille.

Dans la mémoire de l’ORIC, chaque élément I, anneau ou tête, de la chenille, est représenté par trois nombres: son abscisse sur l’écran S%(I, 9), son ordonnée S%X(I, 1) et un pointeur PX(T). Le pointeur P%(I) contient le numéro de l’élément précédent dans la chenille. Au début du jeu, on a:

34

P%(1)=2 P%(2)=3

S%(1,9)=1 S%(2, @)=2 S%(3, D)=3

S%(2, 1)}=1 S%(3, 1)=1

SX(1, 1)=1

élément 1 (queue) élément 2 (milieu) élément 3 (tête)

On a de plus deux variables TÊTE et QUEUE qui contiennent le numéro de l’élément qui est la tête et celui de l’élément en queue respecti- vement. Au début du jeu, TÊTE=3 et QUEUE=I. Si l’on déplace la chenille vers la droite:

— On fait progresser en suivant le chaînage les contenus de TÊTE et QUEUE en exécutant TÊTE=PX(TÊTE) et QUEUE=P%(QUEUE).

— On place les nouvelles coordonnées de la tête dans l’élément de numéro TÊTE.

P9%{1)=2 P%(3)=1

S%(3, D)=3

S%(1,9)=4 S%(2, 9)=2

S%(2, 1)=1 S%(3, 1)=1

SX(1, 1)=1

élément 1 (tête) élément 2 (queue) élément 3 (milieu)

TÊTE vaut 1 et QUEUE vaut 2.

Pour déplacer la chenille, on peut seulement modifier le contenu de S%(1, 9), SH(1, 1), TÊTE et QUEUE. De façon plus générale, n’importe quel déplacement ne modifie que quatre quantités, TÊTE, QUEUE, SH(TÊTE, Ÿ) et SXH(QUEUE, 1), quelle que soit la taille de la chenille.

Pour allonger la chenille d’un élément, on incrémente la variable L, qui contient la longueur de l’animal, puis on ajoute l’élément L en queue.

35

REM CHENILLE xx 222 2% 3 36 26 36 36 26 36 3 3 x x x à x à x

GOSUE 1000 GOSUB 1200

REM LECTURE CLAVIER----------- _——- A$=KEYS:IF A$="" THEN 440 X=SACTETE,0) :Y=SXCTET, 1) :4=ASC(A#) IF A=S8ANDX>2 THEN X=X-1:GOTO 150

IF A=SANDX<39 THEN X=X+1:G0OTO 150 IF A=IO0OANDY<25 THENY=Y+1:G0OTO 150 IF A=11ANDY>O THEN Y=Y-1:GOTO 150 GOTO 70

REM DEPLACEMENT CHENILLE--------- PLOT SX(TETE,0) ,SXCTETE,1) ,C2 PLOT SX(QUEUE,0) ,S%(CQUEUE , 1) ,32 TETE=PÆ(TETE) : QUEUE=P%( QUEUE ) SXCTETE,0)=X:SXCTETE, 1)=Y VESCRN(X,Y):PLOT X,Y,Ci

210 220 230 z40 290 260 2/70 230 270 300 310 320 330 340 320 360 370 3380 370 400 410 420 450 440 450 460 470 480 450 900 910 920 230 54 0 9 90 J60 9/0 180 970 éü 0 610

IF V>128 THEN V=U-128

IF V=Ci OR V= C2 THEN 550

IF V<>C4 THEN 280

REM PUNAISE-----——————— ZAP:LL=1:GOSUB 450:G60T0 440

IF Vé>C3 THEN 340

REM ARAIGNEE----————————— ZAP:LL=3:GOSUB 650::F=F+1

MUSIC 1,5,1,0:PLAY 1,1,3,200

GOTO 390

IF V<ÿ CS THEN 440

REM: GROS SCARABEE-------- mme F=P-13:1F F0 THEN S50

MUSIC 1,3,8,0:PLAY 1,1,1,50060 LL=10:GOSUB 45û |

PLOT 10,26,"Je peux avaler”

PLOT 25,26.,STR$(F)2:PLOT 29,26,52 PLOT 247,268.,09

REM GENERATION INSECTES---------- IF RND(1)2>.08 THEN 70 V=INT(S1#RND (1 )) X=2+38XRND( 1) :Y=26#RNDE 1 )

IF SCRN(X,Y)€>32 THEN 70

V=INT(51 #RNDC 1 3)

IF Vidé THEN C=C3

IF V>10 AND V<47 THEN C=CS5

IF Véii THEN C=Ca

PLOT X,Y,C:GOTO 70

REP FERDLI = SSSR Rens ee mr nine EXPLODE:PLOTI6,13."Score:" LE=STRSE(L) LH=RIGHTS(LS,LENCLS)-1)

PLOT 22,13,L$H:PRINT CHR#<(6G) :

PLOT 10,15,"On rejoue (O/N) 7?" GET A$:IF A$S="0" THEN 460

IF A$S<2>"N" THEN PING:GOTO 600

37

38

620 630 640 6930 660 670 680 690 7/00 710 720 ioüû 1010 120 1030 1040 1050 1060 1070 1080 1090 1100 1110 1200 1210 1220 1230 1240 1250 1260 1270 1280 1290 1300

CLS: CALL £F8D0 : END

REM ALLONGER LA CHENILLE FOR J=1i TO LL:l=L+i PACL)=QUEUE : PACTETE)=L 92(L,0)=S/(QUEUE,0) SA(L,1)=SZCQUEUE, 1)

QUEUE=L NEXT J RETURN REM DEFINITION CARACTERES%*xXx3x2%2%%x DATA 33,33,30,18,18,30,33,33 DATA 30,51,33,45,45,33,51,30 DATA 33,18,12,12,12,12,18.33 DATA 0,0,18,12,12,18,0,0 DATA 12,12,45,63,63,45,12,12 5=46080+122%e FOR I=ST0S+39 :READV:POKEI ,V:NEXT Ci=122:C2=123:C3=124:C4=125 CS=126:DIM S4(600,1),P%<600) RETURN REM INITIALISATIONSEXX#EXXXHEXNRXX TEXT:PAPER 2:INK O:CLS L=S3:F=0:PRINT CHR (6): FOR I=i TO L SACI,0)=1+1:S2CI1,1)=1 PACID=I+1:PLOT 1+1,1,C2:NEXT I FA(L)=1i:TETE=L : QUEUE=1I PLOT L#E ft: CIIPLOT 152651 PLOT 10,26,"Je peux avaler" PLOT 25,26,48:PLOT 29,26,05 RETURN

Note: le caractère ”£” est à remplacer par ” #”.

L'ordre CALL #F8D0 de la ligne 620 recharge les deux jeux de caractères de l’'ORIC/ATMOS.

1.10 ENCLUMES

À la suite d’une dispute avec l’un de vos voisins, vous décidez de lancer sur sa maison des projectiles à l’aide d’une catapulte. Mais que lancer ? Il faut en effet des objets assez lourds, capables de produire en tombant suffisamment de dégâts. Votre choix se porte sur un stock d’enclumes, acheté d’occasion.

Avant chaque tir, il faut régler la catapulte, pour fixer d’une part la vitesse de départ de l’enclume et d’autre part l’angle de départ par rapport à l’horizontale. Le tir est compliqué par la présence d’une montagne et par du vent, qui dévie la trajectoire.

À chaque tir, il faut donner la vitesse initiale exprimée en mêtres/- seconde, l’angle de départ en degrés. La vitesse du vent est positive s’il va vers la droite de l’écran, négative s’il va vers la gauche.

Voici quelques explications sur le fonctionnement de ce programme. Les lignes 39 à 69 servent à définir le caractère qui représen- tera l’enclume. 46592 vaut 46080+8*64, ce qui signifie que l’on a redé- fini le caractère de code ASCII 64.

39

Les lignes 89 à 199 servent à tracer la montagne de pente H. De 119 à 149 on trace le versant gauche tandis que le versant droit est déssiné de 159 à 189. A la ligne 189, on place en bas à droite de l’écran un caractère CHR$(17) sur neuf lignes. Ce caractère donne à l’écran la couleur rouge.

Le bloc 299 à 329 sert à initialiser la position (X, Y) du projectile ainsi que sa vitesse (VX, VY). On tire aussi au hasard la vitesse V du vent. G=—9.81 est l’accélération de la pesanteur.

La trajectoire est calculée point par point, en utilisant une méthode d'intégration numérique d’ordre deux. Le projectile est soumis à l’accé- lération de la pesanteur et à une trainée aérodynamique proportionnelle au carré de sa vitesse V1 par rapport à l’air.

De 339 à 399 on calcule un point. 349 V1 est la vitesse de l'enclume par rapport à l'air, tandis que G1 est la décélération due au frottement aérodynamique. 359 DT est le pas de calcul. 369 On calcule les composantes GX et GY de l'accélération du corps. 370 On calcule les composantes VX et VY de la vitesse. 389 On obtient alors la nouvelle position (X, Y)

Les lignes 499 à 599 affichent l’enclume, en vérifiant qu’elle n’est pas sortie de l’écran et qu’elle n’a pas percuté la montagne.

40

Enfin, les lignes 519 à 559 terminent le programme.

10 REM JEU D'’ENCLUMESX##X#HEHXEXERXXR XX 20 :

30 REM DEFINITION FORME ENCLUME------ 40 DATA 0,30,63,30,12,30,0,0

O0 TEXT:FOR 1=46592 TO 44599

60 READ L':POKE I ,V:NEXT

80 REM TRACE MONTAGNE ----———————————— 90 PAPER 2Z2:INK 4: H=RNDI 10 #1.5+,.2

100 HIRES:P4PER 2Z:INK à

110 FOR 1=40 TO 117

120 J=INT(CI-40)*H+15SERNDC1))+1

130 (CURSET 1:177,32:DRAW''0:;,;-9.,1

140 NEXT I

150 FOR I=120 TO 199

160 J=INTC(199-1)#H+1S5xRNDC1))+1

170 CURSET 1,199,3:DRAU 0 ,-J,1

16D NEXT TiCURSET222-170,S:FILET:F.17 190 :

200 REM INITIALISATIONS-------———————— 210 X=0:Y=0:K=.005:6=9,.81

220 V=(RND(1)-,5)%5

230 PRINT'UENT:":U | 240 PRINT'"'DONNER LA VITESSE INITIALE" 250 INPUT VO

2OÙ0 PFRINT"'VENT: "AVS" VOST UD

270 PRINT'"'DONNER L'ANGLE DE DEPART" 280 INPUT À:PRINT

LU: PRINT VENTES SUR" VOD" SU0DErE" Ar" A 300 A=4/180xPI

310 VX=VO0OXCOS( A) :UY=UDXSIN(A)

so0 RKEM CALCUL TRAJECTOIRE-=--e-e-SS 340 VI=SQR(EUX-U)T24+UY" 2) :GI=K&VI "2 390 DT=15/V1+.1:D2=DT" 2/2

360 GX=-(UX-U)/UIXG1 : GY=-VY/U1#6G1-6G 370 VX=UX+GXX#DT :UYEUY + GYxDT

380 X=X+UXEDT+GXE#D2:Y=Y+UYXDT+GY*#D2

41

370

400 REM. AFFICHÂGE----———————————————— 410 2=199-Y:1F 2192 THEN 440

420 IF X>220 AND X<233 THEN Siû

430 PING:WAIT 200:GO0OT0 100

440 IF X<6 OR X>233 OR Z<0 THEN 340 450 IF POINTEIX,2)=0 THEN 470

460 EXPLODE:WAIT 300:GOTQ0 100

470 CURSET X,2,0:CHAR 64,0,1

480 SOUND 1,10000/(200-2),0

490 PLAY 1,0,4,100:GOT0 340

o0Q :

910 REM COUP AU BUT ---—-———————— mm — 920 PAPER 1:CURSET X,192,3

JS0 CHAR 64,0,1:2ZAP:WAIT 40:EXPLODE 9540 PRINT:PRINTSPC(27):"Sprotch !!" 550 WAIT 400 :SHOCT

1.11 MUR DE BRIQUES

Chapeau bas. J’ai l'honneur et l’avantage de vous présenter l’un des ancêtres, l’un des pionniers des jeux vidéos, le jeu de mur de briques. En face de vous se trouve un mur de 499 briques. Vous avez une raquette, et vous devez sans cesse renvoyer une petite balle qui casse les briques sur lesquelles elle rebondit. Le but est bien sûr de casser les 499 briques.

Les touches ” flèche à gauche” et ”’flèche à droite” déplacent la raquette, tandis que ” flèche en bas” incline cette raquette vers la gauche et flèche en haut” l’incline vers la droite. Ainsi, la raquette peut avoir cinq inclinaisons différentes, et l’on peut renvoyer la balle dans une autre direction.

La tactique consiste à percer le mur de part en part, puis d'envoyer la balle dans le trou, pour qu’elle arrive entre le haut du mur et le haut de l’écran. Elle rebondit alors sur le haut de l’écran et sur le mur, en détrui- sant une brique à chaque fois.

Ce jeu utilise le mode haute résolution HIRES. Les principales variables utilisées sont :

— X, Y: position de la balle sur l'écran. — VX, VY: vitesse de la balle.

— XR, YR: position de la raquette.

R : angle de la raquette.

— MG, MD, MB et MH sont les marges gauche, droite, basse et haute de l’écran.

— AS, B$, C$ et D$ contiennent les codes ASCII des touches flèches. ,

Le fonctionnement du programme est le suivant :

30 Lesinitialisations sont laissées à la responsabilité du sous-programme

500. La boucle de jeu est constituée des lignes 59 à 259.

59 On lit le clavier. Si une touche flèche n'a pas été frappée, il n'y a pas à modifier la position ou l'angle de la raquette et on va en 190.

43

69

79

89 99

199

119

149

179

Les lignes 69 à 189 modifient la position ou l’angle de la raquette.

On commence par effacer l'ancienne raquette en yÿ plaçant le carac- tère B.

Si on a frappé ‘’flèche en haut”, il faut incliner la raquette à droite, J1 est l'incrément angulaire que l'on va ajouter en 119 à l'angle R.

Si on a frappé ‘flèche en bas”, il faut incliner la raquette à gauche.

Si on a frappé ‘flèche à droite”, il faut déplacer à droite la raquette. |1 est l'incrément que l'on va ajouter en 149 à XR.

Si on a frappé ‘flèche à gauche”, il faut déplacer à gauche la raquette.

à 139 On modifie l'angle R de la raquette en vérifiant que l'on ne sort pas des limites —RM, +RM.

à 169 On modifie la position XR de la raquette en vérifiant que l'on ne sort pas de l'écran.

On affiche la raquette. INT(R/J2) vaut —2, —1,@, 1 ou 2 selon l'angle de la raquette.

Les lignes 199 à 259 déplacent la balle.

199 On calcule les nouvelles coordonnées XA et YA.

209 Si l'on sort de l'écran par la gauche ou la droite, on va rebondir en 350.

219 Si l’on sort de l'écran par le haut, on va aussi rebondir en 35.

229 Si l'on sort de l'écran par le bas, on va en 320.

230 Si l'on a rencontré une brique, on va en 2760.

249 On efface l'ancienne balle en X, Y on trace la nouvelle en XA, YA.

259 Après avoir transféré (XA, YA) dans {X, Y). on recommence. Les lignes 279 à 319 sont exécutées lorsque l’on rencontre une

brique.

279 On calcule les coordonnées X1, Y1 de l'angle supérieur gauche de la brique rencontrée.

289 On efface cette brique.

di

299 On incrémente le nombre NB de briques cassées et on regarde s'il est égal au nombre total NT de briques. |

309 On affiche NB.

319 On nettoie la mémoire et on va rebondir sur la brique en 350.

329 On arrive à cette ligne lorsque l'on sort de l'écran par le bas. Si de plus la balle n’est pas dans la raquette, on va en 1500.

Les lignes 359 à 429 servent à calculer les nouvelles vitesses VX et VY après un rebond sur un plan faisant un angle A avec l'horizontale.

Le sous-programme 59%-99f réalise toutes les initialisations néces- saires, variables, constantes et caractères.

Les lignes 1990 à 1199 sont exécutées lorsque l’on a détruit toutes les briques, tandis que les lignes 1599 à 1580 servent lorsque la balle est passée à côté de la raquette.

REM MUR DE BRIQUESXX#xX2%xX32 3x2 XX EX XX GOSUB 50û

TH=KEYS:IF TÉ<D$S OR TE)AS THEN 170 CURSET XR,YR,3:CHAR B,0,0

IF T$=A$ THEN Ji=J2:GO0OT0 110

IF T$=B$ THEN Ji=-J2:GO0OT0 110

IF T$=C$ THEN I11=12:G0OT0 140

IF T$=D$ THEN Ii=-I12:GOT0 140 R=R+JI1:1F R<-RM THEN R=-RM

IF R>RM THEN R=RM

GOTO 170

XR=XR+11:I1F XR<MG THEN XR=MG IF XR>MD-7 THEN XR=MD-7 CURSET XR,YR,3

CHAR 12S+INT(R/J2),0,1

XA=X+UX DT : YA=Y+UY DT

IF XA<MG OR XA>MD THEN À=PI : GOTO3SO IF YA<MH THEN À=0:G0OTO 350

IF, YA>MB THEN 320

IF POINT(IXA,YA)=-1ANDYA<M THEN270

45

46

240 250 260 270 280 290 300 310 320 330 340 390 360 3/0 380 3970 400 410 420 430 90 0 9310 920 9330 940 990 J 60 9/0 980 990 600 610 620 630 640 650 660 670 680 6TÛ 700 71üû

CURSET X,Y,0:CURSET XA,YA, 1 X=XA:Y=YA:GOTO 50

XI=6kINT(XA/6) :YI=ékINT(I YA 6) CURSET X1,Y1,3:FILL 6,1,64 NEB=NB+1:PRINT:IF NB=NT THEN 1000 PRINT'Briques cassees: ":NB:EXPLODE A=Û0 :;: Z=FREC""):GOÜTO 3Sû

IF XA<XR-1 OR XA>XR+7 THEN 1500

A=R

=UX#COSCA) +UY#SINCA) UY=UX#SINCA)-UY#COSC A) : VX=U XA=XA+UXXDT : YA=YA+UY YDT : PING IF XA<MG THEN XA=MG

IF XA>MD THEN XA=MD

IF YA<MH THEN YA=MH

IF YA>MB THEN YA=MB

GOTO 240

REM INITIALISATIONSXRXxxXxXxXxXERXEXRXE TEXT:PAPER 2:INK 0 HIRES :RESTORE

A$=CHR$S( 11) FLECHE EN HAUT B$=CHR$S(10)’ FLECHE EN BAS C$=CHR$(T)' FLECHE À DROITE DÉ=CHR$S(S)’ FLECHE à GAUCHE PRINT : INPUT"Force (1-5) ":DT

IF DT<i OR DT>S5 THEN PING:GOT0590

X=120:Y=195" POSITION BALLE A=C(RND(1)-3/2) *PI/2

VX=COS (A) :UY=SIN(AD VITESSE BALLE XR=120 :YR=192" POSITION RAQUETTE

MG=0 :MD=239° LIMITES DE MB=199:MH=0" L'ECRAN M=100° MILIEU DE L'ECRAN

R=0” ANGLE RAGUETTE

720 730

700

780

990

1000 1010 1020 1030 1040 1050 1060 1070 1080 1090 1100

J2=PI1/36’ INCREMENT ANGLE RAGUETTE 12=3*INCREMENT POSITION RAQUETTE RM=J2*%2"ANGLE MAXIMAL RAGQUETTE

NT=40*10’NOMBRE TOTAL DE BRIQUES NB=0 NOMBRE DE BRIQUES CASSEES REM DEFINITION RAGUETTES--------- DATA 0,0,0,3,12,48,0,0

DATA 0,0,0,0,7,56,0,0

DATA 0,0,0,0,0,63,0,0

DATA 0,0,0,0,56,7,0,0

DATA 0,0,0,48,12,3,0,0

S=f9800

FOR A=5+123*8 TO S+127*x8+7

READ U:POKE A,Ù

NEXT À

REM DEFINITION CARACTERE BLANC--- B=é4 FOR A=S+é4x8 TO S+é4x5+/

POKE À,63

NEXT À

CURSET 9,6,3:FILL 60,40 ,63 CURSET XR,YR,3:CHAR 125,0,1

RETURN

REM GAGNEXKEXXEXERERRERERENREXÉXX TEXT : CLS : PRINT : PRINT

PRINT CHR 4)

PRINT SPC(12) ; CHR$&( 27); "N°: PRINT CHR$(27)93:; "AB R À V O0" PRINT : PRINT : PRINT

PRINT SPC(10):CHRS(27)3:"J"; PRINT CHR$#(27)3;"EPLUS DE BRIQUE" PRINT CHR#(4) : PRINT: PRINT

GOTO 1530

47

1500 REM PERDUXXXXXXXEXEXEXXXAEXEXXX XX 1510 PRINT'SCORE FINAL:":;CHR$(27);"A": 1520 PRINT NB; CHR#$(27):;"à"3:"BRIQUES" 1530 PRINT'"'VUoulez-vous rejouer <CO/N) " 1540 INPUT T$

1550 IF T$="0" THEN 10

1560 IF T$<>"N" THEN PING:GOTO 1530 1570 TEXT:CALL £F8D0 :END

1580 :

Note: le caractère ”£” est à remplacer par ”#”.

1.12 BATAILLE NAVALE

Ce jeu vous permet de jouer à la bataille navale en solitaire, l'ORIC se charge de placer les bateaux. Pour tirer, il vous suffit de frapper les coordonnées de l’endroit visé. D’abord, taper une lettre comprise entre A et J, puis un chiffre compris entre Ÿ et 9.

L’ORIC a placé dans la grille un porte-avion (4 cases), deux croi- seurs (trois cases), trois torpilleurs (deux cases) et quatre sous-marins (une case).

Les bateaux ne peuvent se toucher. Après chaque tir, l’'ORIC vous

indique ”’à l’eau”, touché” ou ” coulé”.

Voici quelques explications sur le fonctionnement de ce programme. Tout d’abord, quelques initialisations, de 19 à 69.

49 CLEAR sert lorsque l'on rejoue, il efface toutes les variables, ce qui est

un moyen de les remettre à zéro. Le tableau JEUS% sert à y placer les bateaux. Bien que la grille fasse 19x19, ce tableau fait 12x12. Ceci pour simplifier la programmation du jeu. Le tableau COULES%S sera progressivement rempli de ‘’@'’ au fur et à mesure que des bateaux seront coulés.

De 89 à 159, on dessine la grille de jeu.

199 On place en (19,1) un caractère 16 qui donne à l'écran la couleur noire, jusqu'à ce que l’on rencontre le caractère 29 placé par l'instruc- tion suivante, qui redonne à l'écran la couleur bleue.

48

130

200

210 229 230 249 259

300

350

419 429 430

440

Lorsque | varie de 2 à 11,1+46 varie de 48 à 57, on obtient donc les codes ASCII des caractères ‘’O@'’ à 9”. 1+63 donne lui les codes ASCII des caractères À à J.

Le bloc 169-389 place les dix bateaux dans la grille.

La variable H permet de décider si le bateau sera horizontal (H——1) ou vertical (H=—().

X est l'abscisse de la case supérieure gauche du bateau à placer. Y est l'ordonnée de cette case.

XF est l'abscisse de l’autre extrémité du bateau.

YF est l'ordonnée de l'autre extrémité du bateau.

à 290 On vérifie que les cases situées autour du bâtiment sont bien vides, que le bâtiment n'en touche pas un autre. Si tel n'est pas le cas, on va en 200, il faut placer ailleurs le bâtiment.

à 340 On place le bateau dans la grille. Le chiffre des dizaines de 1@+TYPE+N est TYPE et indique le type du bâtiment tandis que le chiffre des unités est N et indique le numéro du bâtiment. On peut ainsi stocker deux données dans une même variable.

On stocke dans COULES la longueur du bâtiment. Les lignes 399 à 449 lisent le tir.

On lit un caractère. Si ce n'est pas une lettre comprise entre À et K, on recommence.

On affiche la lettre, et l'on calcule l'abscisse X du tir, comprise entre 1 et 19.

On lit un caractère. Si ce n’est pas un chiffre compris entre O et 9, on recommence.

On affiche le chiffre, et l’on calcule l'ordonnée Ÿ du tir, comprise entre 1 et 19.

De 469 à 499, on regarde si le tir a touché quelque chose. Si non,

on place un point sur l'écran.

519 520

Le bloc 519 à 550 est exécuté lorsqu'un bateau est touché.

On détermine le type du bateau touché.

On détermine le numéro du bateau touché.

49

539 On fait disparaître de la grille la case touchée. 549 On décrémente la longueur du bateau.

559 On fait apparaître sur l'écran un chiffre compris entre 1 et 4, qui indique la taille du bateau touché.

De 569 à 599, on affiche le message approprié à la situation. Si la longueur du bateau est réduite à zéro, ce bâtiment vient d’être coulé.

De 619 à 650, on regarde s’il reste des bateaux à flot.

10 REM BATAILLE NAVALE x*x%3#32#32% 3263263232 X 2% XX XX 20 :

30 REM INITIALISATIONS-------------—- 40 CLEAR:DIM JEUX 11,11) ,COULEZ(4,4) OÙ PAPER 4:INK 7

60 CLS

80 REM DESSIN DE LA GRILLE----------- 90 FOR 1=3 TO 23

100 PLOT 10,1,16:PLOT 31,1,20

110 NEXT 1!

120 FOR I1=2 TO 11

130 PLOT 8,2*%I1,1+46:PLOT 7+2%1,1,1+63 140 NEXT 1

160 REM ON PLACE LES BATIMENTS-----—- 170 PLOT 10,25,"Je place les bateaux" 180 FOR TYPE=4 TO 1 STEP-1:UV=TYPE-I 1790 FOR N=i TO 5-TYPE

200 H=-ji:I1F RND(1)>,.5 THEN H=0

210 X=1+INTCC10+U#H) xRNDÉ 1 2)

220 Y=I1+INTÉCIO0O+UXC(NOT H))#RND( 10) 230 XF=X-Hxl

240 YF=Y-CNOT H)æxt

250 FOR I=X-1 TO XF+1

260 FOR J=Y-1 TO YF+1

2/0 IF JEUX(I,J)<>0 THEN 200

280 NEXT J

290 NEXT I

50

300 310 320 330 340 350 360 3/0 380 390 400 410 420 430 440 450 460 470 480 490 900 910 920 930 540 990 J99 960 3/0 380 9390 600 610 620 630 640 690

FOR I=X TO XF

FOR J=Y TO YF JEUX(I ,J)=TYPE#10+N NEXT J

NEXT I

COULEZX(TYPE ,N)=TYPE NEXT N

NEXT TYPE

REM DÉBUT DL JE PLOT 10,25,"Que jouez-vous: : GET AS:IF AS<"A"ORAS)>"K" THEN 400 PLOT 28,25,A$:X=ASC(AS) -64 GET AS:I1F ÀAS<"CO"ORAS:" 7" THEN 400 PLOT 29,25,A$H:Y=ASCCAS) -47

IF JEUZ(X,Y)€>0 THEN 510

PLOT 2xX+9,2#%Y+2,",."

PLOT 10,25," À l’eau. " WAIT 200:GOT0 400 TYPE=INT(JEUZ(X,Y)/10) N=JEUZ(X,Y)-10xTYPE

JEUZ&X ,Y)=0

COULECTYPE ,N)=COULEZCTYPE ,N)-1 PLOT 2xX+9,2xY+2,TYPE+48

EXPLODE : IFCOULEXCTYPE ,N)=0THENS9G

PLOT 10,25," Touche. » GOTO 610

PLOT 10,25," Coule !! " WAIT 200

FOR I=1i TO 4:FOR J=1 TO 4

IF COULEX(I1,J)<>0 THEN 400 NEXT J:NEXT I | PLOT 10,25," GAGNE !'!: :

1

1.13 MASTER MIND

Le master mind est un jeu de réflexion auquel vous allez pouvoir Jouer avec votre ORIC. La règle du jeu est la suivante : L'ORIC choisit une combinaison de pions qu’il vous faut découvrir.

Chacun de ces pions peut être rouge, vert, jaune, bleu, mauve ou cyan. Il vous faut découvrir la couleur et la position de chacun des pions. À chaque coup, vous proposez une combinaison. L’ORIC vous répond en plaçant sur l’écran une petite marque noire pour chaque pion de la bonne couleur à la bonne place. Puis l'ORIC ajoute une petite marque blanche pour chaque pion de la bonne couleur qui n’est pas à la bonne place. A l’aide de ces indications, il faut trouver la combinaison cachée en le moins de coups possible.

Au début du jeu, on vous demande le nombre de pions à découvrir. Tapez 4, 5 ou 6 puis frappez RETURN.

À chaque coup, les touches ” flèche à gauche ” et ” flèche à droite” vous permettent de déplacer le curseur, qui a quatre positions possibles, celles des pions. Les touches R, V, J, B, M et C font apparaître un pion à l'emplacement du curseur. Lorsque vous avez placé dans la grille vos pions, frappez RETURN. Si vous abandonnez, frappez ESC.

Tout autre touche efface le pion sur lequel se trouve le curseur.

Voici quelques précisions sur la structure du programme. Des lignes 39 à 49, on trouve les initialisations nécessaires au jeu.

De 49 à 90, on définit les deux caractères représentant le pion et la marque.

De 139 à 149, on définit le grand rectangle noir qui servira de grille de Jeu.

De 169 à 199, on trace le petit rectangle sur lequel le mot ” master mind” est inscrit.

De 219 à 230, on définit les différentes couleurs.

De 259 à 319, on trace un rectangle noir dans lequel on affiche les couleurs possibles.

339 L est le numéro de la ligne où se trouve le curseur.

359 NC est le nombre de coups joués.

52

De 370 à 449, on remplit le tableau S avec X nombres compris entre 1 et 6, qui représentent la combinaison à trouver. Ces nombres sont les couleurs des pions.

Le jeu lui-même est constitué des lignes 5% à 1910.

529 On déplace de 15 positions vers la droite le curseur pour le placer sur la première colonne de la grille de jeu.

Les lignes 54 à 619 lisent une touche T$ et effectuent le branche- ment adéquat. |

570 Si on a frappé ESC, on abandonne, on va en 117.

589 Si on a frappé RETURN, il faut analyser la combinaison proposée, ce que l'on va faire en 700.

599 Si l'on a frappé ‘flèche à gauche” ou ‘flèche à droite ”’, on va en 63Q pour déplacer le curseur.

690 Si l'on a frappé R, V, J, B, M ou C, on va placer un pion en 670. 619 Sinon, on place deux blancs pour effacer le pion et son code de cou- leur. De 639 à 650, on déplace le curseur, à condition de ne pas sortir de

la grille. On affiche deux fois T$ en 659: ainsi le curseur se déplace de deux crans.

De 679 à 689, on affiche un pion à l’endroit désigné par le curseur. La couleur du pion est I.

De 7% à 99, on analyse la proposition. On compte d’abord le nombre N de marques noires, puis ensuite le nombre B de marques blanches.

De 92ÿ à 980, on affiche la réponse de l’ORIC. Si on a X marques noires, la combinaison a été découverte et l’on va en 1109.

Si vous n’avez pas trouvé la combinaison et que la grille est pleine, ce n’est pas très brillant et on exécute le bloc 1939-1990.

Si vous avez trouvé, on va en 111, on affiche en double hauteur le t ’BRAVO”.

Puis, si vous avez trouvé, ou si vous avez frappé ESC, les lignes 1179 à 1229 découvrent la combinaison cachée.

53

1û zû 30 40 30 60 7üû G 0 70 100 110 1 20 1 560 1 40 150 1 60 1 70 150 190 zZûüG

ot À eur possibles

LL 1 I CL I TT

n + €

REM MASTER MIND x 332613263202 1X6 Xe 26 26 26 36 JE Xe

REM INITIALISATIONS---——————--- P=125:R=P+1

FOR I1=£B400+8%xP TO £6400+8*xR+7 READ LV:POKE 1,4

NEXT 1

DATA 0,28,62,62,62,62,28,0

DATA 0,0,12,30,30,12,0,0

IN=Q : PA=2: INKIN : PAPERPA: CLS: FRINT

INPUT'"'Nombre de pions":X:1FX<40URX>6THENI 20ELSECLI FORI=1TOZ22:PLOTIS8+2ZxX,I,16+PAR:NEXT FORI=ITO22:PLOTIS,I,16:NEXT

FORI=24T025:PLOTIS+2#X,1,16+PA:NEXT FORI=24T025:PLOTIS,1,17+IN:NEXT PLOT 14+X,24,"Master"

PLOT 15+X,25,"Mind"

54

210 220 230 240 250 260 270 280 290 300 310 320 330 340 350 360 370 380 390 400 OÙ 0 910 320 930 340 990 960 9/0 980 590 600 610 620 630 640 6S0 660 670 680 690 700

DIM C6) :CHC1)="R": CSC 22="U" CH(3)="J":C#(4)="B":CSCS5)="M" C&Cé)="Cc"

PLOT 3,1,"couleurs"

PLOT 3,2,"possibles"

FOR 1=4 TO 11:PLOTIO,I,16+PA:NEXT FOR I1=4 TO 11:PLOT 5,1,16:NEXT FOR I1=5 TO i0

PLOT 6,1,1-4:PLOT 7,1,C$(I-4) NEXT

PRINT :PRINT :L=2

NC=1

DIM SX) ,FCX),FSCX)

FOR I=i TO X

SÉI)=INT(é#RNDC1))+1

NEXT I

REM DEBUT DU PROGRAME-----——————— FOR COUP=1 TO 20

FOR I=i TO IS:PRINT CHR#(9) : :NEXT PLU O9, "Notre

PLOT 2,18 ,"proposition?" É=FRE(""):PLOT 6,14,STRS$ (COUP)

GET T$:IF T$#=CHR$(27) THEN 1170

IF T$&=CHR$( 13) THEN 700

IF TS=CHR&CB)ORTS=CHRÉE( 7) THENS3C FOR I=1 TO 6:I1F T#=C$(I1) THEN 670 NEXT:PLOTPOS(0)-1,L," ":G0TO0S/0 IFPOS(0O) <ISANDT#=CHRS(S) THEN 570 IFPOSC0) >14+2#XANDT#=CHRS( 9) THENS70 PRINT T$;:T$::G0OTO0 570

PLOTPOS(0) , L,P:PLOTPOS(O)-1,L,I GOTO 570

PLOT dits u

55

56

710

aslt

770

1000 1010 102û 1030 1040 1050 1060 1070 1080 1090 1100

PLOT 2,18,"Voyons... "IWAIT 120 FOR 1=i TO X:F(1)=0:FS(I)=0:NEXT REM COMBIEN DE NOIRS ?

N= 0

FOR I=i TO X

IF SCID)<>SCRN(I4+2xI,L) THEN 790 FI)=1:FSiI)=1:NENt+I

NEXT I

REM COMBIEN DE BLANCS ©?

B=0

FOR I=1i TO X

IF F(I1)=1 THEN 9700

FOR J=i TO X

IF FS(Jo=i THEN 890

IF S(J)<>SCRNC(I4+2%xI,L) THEN 890 FCI1)=1:FSCJi=1:B=B+1:G0OTO 900 NEXT J

NEXT I

PP=19+2xX:IF N=0 THEN 950

PLOT PP,L,0:PP=PP+1 FORI=1ITON:PLOTPP ,L,R:PP=PP+1:NEXT IF B=0 THEN 980

PLOUF PRE PP=PP#I

FORI= {TOB: PLOTPP ,L,R: PP=PP+! sNEXT cn N=X THEN 1100

PRINT :L=L+1

NEXT COUP

CLS:PAPER 1:INK 7

PRINT : PRINT : PRINT : PRINT : PRINT PRINT SPC(13):;"VOUS ETES" PRINT :PRINT:PRINT CHR$(4) PRINT SPCCE92:

PRINT CHR#&(27) ; "NNUL" ; CHR$#( 4) END

1110 1120 1130 1140 1150 1160 11/70 1180 1190 1200 1210 1220 1230 1240

Note: le caractère ”£”’ est à remplacer par ”#”,

REM TROUVE----— PLOT 4,17,CHR$C10)+"BRAUO !" PLOT Z2,18,CHR$#C10)+" BRAVO !" PLOT 12,17,8:PLOT 12,18,8

PING

PLOT 15,24,16:PLOTI8+2xX,24,16+PA PLOT 15,25," "

FOR I=i TO x

PLOT 14+2*1,24,S(1)

PLOT 15+2*1,24,P

NEXT I

PRINT à0,23:

a” est à remplacer par ” @ ”.

1.14 BEATLES

Ce programme n’est pas un jeu, il a simplement pour but celui de vous distraire avec quelques notes de musique, empruntées aux Beatles. Il peut aussi vous montrer comment programmer vos propres morceaux.

Chaque mesure correspond à quatre lignes de DATA. Les doubles zéros que l’on a placé dans les DATA ne sont pas joués, mais sont des points de repère pour pouvoir jouer les reprises.

Les ordres RESTORE permettent de se replacer au début de la partition, tandis que les lectures bidon” des lignes 2049, 2069 et 2099 permettent respectivement de sauter 1, 1 et 2 mesures.

En modifiant les ordres PLAY et WAIÏT de la ligne 2549, vous pourrez obtenir d’autres sonorités et tempo.

2000 2010 2020 2030 2040 2050 2060 20 70

REM AUS TONER SANRENARRNA TE RARE DU=5000 : GOSUB 2510

GOSUB 2510

RESTORE : GOSUB 2S10

FOR I=i TO 25:READ K,N:NEXT GOSUB 2510

FOR I=i TO 24:READ K,N:NEXT GOSUB 2510

07

2510 FOR I=1 TO 3:READ K,N

2090 FOR 1=1 TO 49:READ K,N:NEXT 2500 REM----——————

2100 GOSUB 2510 2110 WAIT 200:PLAY 0,0,0,0:END

2080 RESTORE:GOSUB 2510 212U

Zr Œ x D WU PE LL »e eo EE LU LE + ©

LC og L'on Z OS © Nm 3 1 N

My Friends

2540 PLAY 7,0,1,DU:WAIT 15:GOT0 2510

2550 3000 REM With À Little Help From

2560 3001 REM 3002

00 © “0 «0 M M “0 mt 4

EP mem mm Ew,

NNNNGOOOOCOON- ON

SO ed qd A ed A ed 0 OO OO 7. +4 gd

tm ne mn © © — OO = NN EN EN RE 2 En Pa oO M ee mn +» … NN C4 -. SD M COCO à en mo Dre nm OO OO) 4 7 7. NN MMMMMM ee = 7 0 M mm M ee em OO OO CO 7 7. ee 0DD00MMO0OQO0 re m1 oO D sm mm Om vw. SO O0 m1 4 7

r =NNOGOGODOO--- -0N et Ad A 04 4 eh 4 4 4 4 (0) OÙ 4 O9 4 4 EE me MP M M mm ee

OONNNNNNNNNNNANN A

mm mm mm mm «+

M oO 0 M M M M M M M M M M M M M

3003 DATA 3004 DATA 3005 DATA 3006 DATA 3007 DATA 3008 DATA 3007 DATA 3010 DATA 3011 DATA 3012 DATA 3013 DATA 3014 DATA 3015 DATA 3016 DATA 3017 DATA 3018 DATA

3019

ee eme

NNNNOCGOSOO M OC A4 gd 4 ed 4 ed 4 md ne mm me NN NUNN ON MM enr me - =» (00 1) (9 0 “O0 © MO sr - +0 0 0 M M oO oo m FE ee ee - + © © “0 “0 M M “0 OD ee mm m + ee NNNNN ON

NN sen mm me

» = NNO0OO000O00O A 4 A 4 A 04 4 et

VONNNNN OA

3020 DAT 3021 DAT 3022 DAT 3023 DAT 3024 DAT 3025 DAT 3026 DAT 3027 DAT 3028 DAT

58

em B ee,

em ee

Eee mm 7 vw,

3029 DATA 3030 DATA 3031 DATA 3032 DATA 3033 DATA 3034 DATA 3035 DATA

3036

0 0 “O0 “0

mm

er nm mm mm mm Om 7 ww.

ee mm vw.

sr ee eNNMM mn re NN M + es 4 4 00 D OÙ UM) +4 4 4 + O0 0 6 M

Fr sm mem mm mm mm vw.

EE ne mm me m «

” mn La m ” ” ” ” ” ”. ” ”. “ ” ” “

UnOnMnMmnnmMmomn

TTL TITITITITITTITTT FRERE TTITITTITTTTTTITTLTT OOo OOo RO Oo NOW OR DE © 4 (M MMM TITTITTT TU LS IN OOo OO 0000060 mnnnnnnmnnmnmMmnmMmnMn

30S3

“0 0 “O0 © _ +. oo NN O NUE LT) 1) 4 1 1 O0 re Sooo NN NN ON WW Num m CN A ed 4 4 ee mm ee vw. ” nr. DOON WHO NN NN ON " 7 of 4 €. ©. y -. nes NN me NU = et ed 4 +4 NN + (M >. " 7 "7 ». — ” — 4 D) 7. et ruse MM OMMMn M QO “O0 © © TT mm © + ”. rer. NNANNoNNEM 1 NN ON CO ON meme mm 7 7 +». æ. re. NNONNNNMES OO OCG0O D en: Sr ee AN CR D cm mms MO = + nDMG = D CC … NN ee 7 MM © PRIS ARNO OR nes

” ”. ”. ”. ” r. 7. ”. er ee La LS ” LS ” "

MMUMOMNNNGMNMEOM

À +4 F4 A À ÉA A A

058 DAT 3062 DATA 3063 DATA

3

Gé4 DATA 3065 DATA aÜ0éé DATA 3067 DATA 3068 DATA 30697 DATA

3054 DAT 3056 DAT 3057 DAT 3

3059 DAT 3060 DAT 3061 DAT

59

ee em

rem em

ee mm +

3070 DATA 3071 DATA 3072 DATA 3073 DATA 30 74 DATA 3075 DATA 3076 DATA

3077

oi oO © 2/02 +

”. Lao ” Æ ” ”. æ. ee ” ” ” La ” a ” ” " ” _ L 2 ” ee En me " +.

OO OI ou es ns mm mes OI NM MMM mm mme ee. Ne N'on . nCR NN ere emm me me (CC ON QI NOoOMMMm rer -MOoOoMMMMNOoOOCMMMm em me mt mnm mm em mm nm mm mm 7 M mm mt

se eMUIN 7 7 - Ü 4 et ts 7 ee (M) 1) NN) mn

OM ms mme mm 7 OO ne MMM mm mm mme em re ee MOMMNNNNO eMMMM = = eMIMNNNNN AN N © © es ee + Or ee NO OO nn nn nn

CO SE SP CS

3078 DATA 3077 DATA 3080 DATA 3081 DATA 3082 DATA 3083 DATA 3084 DATA 3085 DATA 3086 DATA 3087 DATA 308S DATA 3087 DATA 3090 DATA 3091 DATA 3072 DATA 3093 DATA 3094 DATA 3095 DATA 3096 DATA 3097 DATA 3098 DATA 3099 DATA 3100 DATA 3101 DATA 3102 DATA 3103 DATA 3104 DATA 3105 DATA 3106 DATA

60

1.15 PENDU

Le but de ce jeu est de deviner un mot, que l’ORIC tire au sort. A chaque coup, vous proposez une lettre. Si cette lettre n’est pas contenue dans le mot, un membre du pendu est ajouté. Vous avez le droit à six erreurs.

Tout d’abord, le programme vous demande le nom de la rubrique d’où il va tirer le mot à chercher. Les trois premières rubriques, MUSI- CIENS, SPORTIFS et HISTOIRE contiennent des noms d’hommes célèbres. La rubrique BOISSONS contient des noms de boissons, géné- ralement alcolisées. La rubrique ACTEURS contient aussi des noms de personnages célèbres. Enfin, STOP permet de sortir du programme.

Si vous ajoutez des noms à une rubrique, n’oubliez pas de modifier en conséquence la ligne 39 ou 35. En effet, S(Q) contient le nombre de noms de lasæmremière rubrique, S(1) contient le nombre de noms de la seconde rubrique, etc.

Voici quelques explications sur ce programme. Tout d’abord, de la ligne 5 à la ligne 35, quelques initialisations :

15 L$ sera utilisé pour stocker, dans l'ordre alphabétique, les lettres déjà proposées par le joueur. P$ contiendra les caractères qui figurent les membres du pendu, D$ contient la définition du pendu, MOTS contient les lettres du mot découvertes et S contient le nombre de mots de chaque rubrique.

29 On range dans D$ les caractères qui figureront les membres du pendu. 39 à 35 On place dans S le nombre de mots de chaque rubrique.

De 45 à 135, on demande au joueur la rubrique qu’il choisit, on lit sa réponse, et l’on se branche en fonction de sa réponse.

De 149 à 179, l’'ORIC tire le mot que vous allez chercher.

169 à 165 On saute tous les mots correspondants aux sujets situés avant le sujet choisi.

179 On lit N mots du sujet choisi. À la sortie de cette boucle, MOTS contient le dernier mot lu.

61

189 185 199

200

229

229 330

335

355 365 390 495 419

415 429

De 175 à 229, on effectue quelques initialisations.

On remplit de blancs le tableau des lettres déjà proposées. On remplit de blancs le tableau des membres du pendu. Idem avec le tableau qui représente le mot sur l'écran.

à 215 Dans le tableau MOTS, on place un tiret à la place de chaque lettre du mot à chercher. Les caractères qui ne sont pas des lettres (blancs, tirets, etc...) sont placés tels quels.

On construit une chaîne d'étoiles égale à la longueur du mot à cher- cher plus 4.

La boucle de jeu est formée par le bloc 225 à 425. à 330 On affiche le jeu.

Si F-1, le jeu est terminé. On lit une touche quelconque et l'on se branche au début pour recommencer.

à 345 On lit un caractère proposé, en vérifiant qu'il s’agit bien d'une lettre.

De 350 à 425, c’est l’'ORIC qui travaille.

On vérifie que la lettre L$ n'a pas déjà été proposée. Si c'est le cas, on va en 426.

à 385 La lettre L$ est insérée dans la liste des lettres déjà proposée, de façon à ce que cette liste soit classée dans l'ordre alphabétique.

à 495 Les lettres du mot égales à la lettre proposée sont placées dans le tableau MOT$. En sortie de cette boucle, OK vaut 1 si la lettre proposée était bien dans le mot.

Si le mot a été trouvé, on positionne F à 1.

Si la lettre proposée était bonne, on efface le message précédent s'il y en avait un.

La lettre proposée n'était pas bonne, on ajoute un membre au pendu. Là, vous êtes très mal!

Les mots sont stockés dans une liste DATA, en 1999 pour la

première rubrique, en 2% pour la seconde, en 3% pour la troisième,

CIC

62

#

STE FEREFEN]

DRE AA AAA Ne

MEN

* * + * * * * _*# É.

9 REM INITIALI SATIONS%X 2% 32% 26 66 6 À

10 CLEAR

15 DIM L$(25) ,P#(C6) ,D$#C6) ,MOT#(20),S(5) 20 D$(0)="0":D#(12="1":D$(22="I1":D$S( 3)="/" 25 D$(4)="ç":D8(5)="/": DSC 6)=" GC"

30 S(0)=25:S(1)=25:S(2)=25:S(3)=25

35 S(4)=25:S(5)=100

A0 REM'CHOIX DU SUJET sense

45 TEXT:CLS : PAPER2: INKO : PRINT :L=0:F=0 : 1=0 50 PRINTSPC(10) ;"JEU DU PENDU" :PRINT

99 PRINT'Les sujets sont -MUSICIENS"

60 PRINT" SPORTIFS" 65 PRINT" HISTOIRE" 70 PRINT" —BOI SSONS" 75 PRINT" CAPITALES" 80 PRINT" —ACTEURS" 85 PRINT" SEXE"

70 PRINT" *STOPT

95 PRINT :PRINT : INPUT"'UOTRE CHOIX "; CH$ 100 IF CH$="MUSICIENS" THEN CH=0:G0OTO 145 105 IF CH$="SPORTIFS" THEN CH=1:GOTQ 145 110 IF CH$="HISTOIRE" THEN CH=2:GOTO0O 145 115 IF CH$="BOISSONS" THEN CH=3:GOTO 145 120 IF CH$="CAPITALES" THEN CH=4:GOTO 145 125 IF CH#$="ACTEURS" THEN CH=S:GOTC 145 127 IF CH$="SEXE" THEN 10000

130 IF CH$="STOP' THEN PRINT'"'AU REVOIR." :END 135 PRINT"'RATE !!!!'":GOTO0 95

140 REM CHOIX DU MOT À TROUVER-------

145 N=INTC(RND(1)#S(CH))+1

150 RESTORE

155 IF CH=0O THEN 170

160 FOR I=i TO CH:FOR J=i TO S(I-1)

165 READ MOT#:NEXT J,I

63

170 175 180 185 190 195

425 1000 1001

FOR 1=1 TO N:READ MOT$:NEXT

REM PREPARATION DE L’AFFICHAGE---

FOR 1=0 TO 25:L#(C1)=CHR$&(32) :NEXT

FOR 1=0 TO 6:P$(1)=CHR$(32) :NEXT

FOR 1=0 TO 20:MOT#(CI)=CHR# (32) :NEXT CLS: FIN=LEN(MOT$ )

FOR I=1 TO FIN:V$#=MIDS#S(MOTS$,1I,1)

IF UV$=}"A"ANDUS(="Z" THEN MOT$&(I1-1)="-":GOTO 215 MOT#(CI-1)=U$#:L=L+1

NEXT :C$="" -

FOR I1=1 TO LENÇ(MOT#)+4:C$=C#$+"x":NEXT REM AFFICHAGE DU JEU-----------—- PRINT CHR$<(30) ;

PRINT

PRINTSPC(18);"#xx2x 2x 262626 XX XXE EE

PRINTSPC(18) ;"+x x"

PRINT" #22 326362 E * DEJA PROPOSEES *"

PRINT" * + #"3:SPC(16);"…#"

PRINT" # —-- * # "3L86C0)3" "iL6C1)7" "sL8C225" "sLSCS) ss PRINT L#$(4);" ";L$S(CS)3;" ";LSCé);"

PRINT" Où ù + x";SPC(16);"x"

PRINT" #0 ù Où % x "iL#(7);" "sLHCB);" "sLSC(9D:I" "sLSC10)5;" M PRINTL#(1123;" "3L#(12);" "3;LSC13);" "

PRINT" x ù ";PSC0) ;" * #" 3; SPC(16);"%*"

PRINT" x Ù ";P$C3) PS1); PSC4)5;" + M: aie" MELSCIS) En PRINTLS(16);" "5LS(C1795;" "sLSCI18);" "sLSC19)3" "sLSC20):;" »*"

PRINT" x ù "3P$C2);" * x"; SPCC16);"%x"

PRINT" * ù "IPS CO2r" "sPS(6):" E a "sLSC213t" "sLS(222:" 4 PRINTL#(C23);" "3L$(24);" ";LS(25);" x"

PRINT" * ù * #";SPCC16);"#"

PRINT" x ù * CELL IÉELILLLILLLLLSI IN

PRINT" * /ùç *"

PRIMES Ness # “"3;CS$

PRINT" + *. #3

FOR 1=1 TO FIN:PRINT MOT$#(I-1) ; :NEXT

PRINT" *"

PRINT" ####X###X#%#%x%x% ":CH:IF F=i THEN GET A$:GOTO 5

PRINT :PRINT: PRINTCHR$#(14);"Quelle lettre proposez-vous "; GET L$:1FL$<"A"ORLS$S)>"2"THEN340 PRINT L$ RES TRAITEMENTS ss ns FOR 1=0 TO 25:1F L$CI)=L$ THEN 425 NEXT : OK=0O FOR I1=0 TO 25:1F L$<L$(I) THEN 380 IF L$(I1)=" " THEN 380 NEXT FOR J=25 TO 1+1 STEP-1:L$#(J)=L$(J-1):NEXT L$CI)=L#S:TR=I FOR I1=1 TO FIN:VS$=MIDS$(MOTS,1I,1) IF V$S=L$ THEN MOT$(I-1)=LS$:0K=1:L=L+1:GOTO 405 TR=O NEXT :1F L=LEN(MOT$) THEN PRINT"'BRAVO !":F=1:GOTO 225 IF OK THEN PRINT SPC(21) :GOTO0 225 PSCK)=DS(K)D):K=K+1:1F K<7 THEN PRINT SPC(C21):GO0OT0O 225 PRINT'"'Le mot etait ":;MOT#:F=1:GOTO 225 PRINT "DEJA PROPOSEE":GOTO 225 ,. DATA BERLIOZ,BACH,BEETHOVEN,BIZET , BRAHMS DATA CHOPIN, BUXEHUDE , HUMMEL ,MOUSSORGSKY , PACHELBEL

1002 DATA JOSQUIN DES PRES ,WAGNER ,MENDELSSOHM, SCARLATTI ,WOLLEMHAUPT 1003 DATA CZERNY , BRAUNGARDT , RAMEAU , ROSSINI , SCHUBERT

1004 DATA SCHUMANN ,WEBER,MOZART ,VIVALDI , OFFENBACH

2000 DATA TABARLY ,PROST ,PLATINI ,KILLY , BORG

64

2001 2002 2003 2004 3000 3001 3002 3003 3004 4000 4001 4002 4003 4004 5000 5001 5002 5003 5004 6000 6001 6002 6003 6004 6005 6006 6007 6008 6009 6010 6011 6012 6013 6014 6015 6016 6017 6018 6019 10000 10005 10010 10015 10020 10025 10030 10035 10040 10045 10050 10055 10060 10065 10070 10075 10080 10085 10090 10095 10100

Note :

DATA RUSSEL ,"CASSIUS CLAY" ,"MADAME CLAUDE" ,DARNICHE ,"NIKI LAUDA" DATA CAUW,PIRONI ,LAFFITE,ZITRONE ,CHICHESTER

DATA JAZY ,MIMOUN ,ANQUETIL , BOBET ,HINAULT

DATA MERCKX ,MOSER, POULIDOR, COPI ,RAAS

DATA "DE GAULLE" , CHARLEMAGNE" ,VERCINGETORIX" ,ATTILA ,NAPOLEON DATA HITLER,WASHINGTON, CHURCHI LL , PASTEUR , FLEMMING DATA PETAIN,"HIRO HITO" ,"PEPIN LE BREF",CLOVIS DATABERTHE AU GRAND PIED,"BLANCHE DE CASTILLE" ,ROOSVELT ,KENNEDY , DESCHANEL DATA"LA POMPADOUR" , "MUSTAPHA KEMAL" ,POMPIDOU , REAGAN , TCHERNENKO DATA CONTREXEUVILLE ,ARMAGNAC ,WHI SKY ,VODKA , GIN

DATA FRAMBOISE , GENEPI , CHARTREUSE , SAUTERNES , JUL I ENAS DATA" CHATEAU PETRUS" , CHAMPAGNE , COGNAC ,RIESLING , GEWURSTRAMINER DATA POIRE, GNOLE , SCHNAPS , PEINTURE , TRICHLORETYLENE DATA BRANDY ,MADERE ,PREFONTAINES , CIDRE, SAKE

DATA PARIS, LONDRES , BONN , ROME ,MADRI D

DATA WASHINGTON,TRIPOLI ,RYAD,"LE CAIRE" ,RABAT

DATA TANANARIVE ,MOSCOU ,ANKARA , PEKIN, BANGKOK

DATA TEHERAN, BAGDAD ,MONTREAL , RANGOON , TOKI O

DATA BRASILIA,MEXICO, GEORGETOWN , CANBERRA , BAMAKO

DATA HEPBURN, BOGART , BRANDO , GI RARDOT ,MASTROIANNI

DATA CASSEL , DELON, SINATRA, CECCALDI , GALABRU

DATA MEURISSE ,FERREOL ,NOIRET ,MONTANT , BURTON

DATA DARC ,WELLS , DENEUVE , BELMONDO ,WINDMARK

DATA PIAT ,DARRAS ,NEWMAN , SELLERS , VANNECK

DATA LOREN ,MOREAU, FLYNN , DEPARDIEU, BRYNNER

DATA LOLLOBRIDGIDA,CONSTANTIN,ANDRESS ,MARIELLE , KEATON DATA CHAPLIN,LAUREL , HARDY , JOBERT , BLANCHE

DATA DIFILHO,BLIER,MONROE ,POIRET ,BOURVIL

DATA FERNANDEL , LEWIS, YANNE , DAUPHIN , DEREK

DATA DUTRONC ,MANFREDI ,WAYNE ,USTINOV , CURTIS

DATA SERRAULT ,BALASKO ,DEUAERE , BALUTIN,TOGNAZZI

DATA PICCOLI ,PACOME ,HUPPERT ,ASTAIRE , PRESLEY

DATA ADAMO , HOLDEN, GABIN,BRIALY , SIGNORET

DATA ADJANI , CARREL ,VENTURA , HANIN , SCHNEIDER

DATA LAFONT ,GLASER,TRINTIGNANT , TAYLOR , GASSMAN

DATA FONDA, SHARIF , SEBERG , ROCHEFORT , LANVIN MITCHUM,HESTON, FOSSEY ,AUCLAIR , QUINN

DATA JOUVET , BRASSEUR ,MARAIS , MORGAN , HOFFMAN

DATA CARMET , BARDOT ,NEVILLE ,KELLER,CHAKIRIS

REM COMMENTAIRE POUR SEXE------

CLS : PRINT : PRINT

PRINT"JE NE JOUE PAS AVEC VOUS"

PRINT"ESPECE DE SATYRE !!!!"

PAPER 6:EXPLODE:WAIT 200

PRINT : PRINT

PRINT"JE REFUSE DE JOUER AVEC"

PRINT"UN TEL OBSEDE."

PAPER 1

FOR I=1 TO 10:SHOOT :WAITI0:NEXT

PRINT : PRINT : PRINT

PAPER 1!

PRINT"POUR QUI ME PRENEZ-VOUS"

PRINT"DEBILE titttiinnunuun

FOR 1=1 TO 7

ZAP:WAIT 10:EXPLODE:WAIT 15

NEXT

FOR I=1TO 20

SHOOT :WAIT 8

NEXT : PRINTCHRS (6)

PLAY 7,7,4,300

5

le caractère ”’ü”’ est à remplacer par ” f, tandis que ”ç” est à remplacer par ” \”.

65

2

Quelques

renseignements utiles pour programmer vos jeux

2.1 GESTION DE LA MÉMOIRE DE L'ORIC/ATMOS

Lorsque l’on programme en basic, on n’a pas à se préoccuper de la façon dont la mémoire est gérée, utilisée. Par contre, dès que l’on intro- duit quelques instructions de langage machine, ou même plus simple- ment, dès que l’on utilise PEEK, DEEK, POKE ou DOKE, il faut malheureusement entrer dans ces détails sordides que sont une gestion mémoire.

Tout d’abord, voici la carte mémoire de l’ORIC:

66

en mode HIRES

ROM : Basic de l'ORIC

écran

caractères semi-graphiques caractères standards

programme Basic (début en #51)

de 400 à 429: rien

adresses d'entrées/sorties

utilisé par le Basic

pile du 6592

page 9 utilisée

FFFF-65535

CO99-49152

BFE9-49129

A900-40969

9C09-39936

98900-38912

590-1280

409-1924

309-768

209-512

199-256

9-9

en mode TEXT

programme Basic (début en #591)

Les adresses sont données en hexadécimal puis en décimal.

FFFF-65535

C990-49152

BFEQ-49129

BB89-48900

B890-47 194

B499-46089

9F00-497@4

599-1289

409-1924

300-768

200-512

100-256

Q-0

67

a) La page zéro. #0 à #FF

Par construction du microprocesseur 6592, qui équipe votre ORIC, les octets d’adresse Ÿ à 255 peuvent être lus ou écrits plus rapidement que les autres. Dans un souci d’efficacité, il est conseillé de placer dans cette zone les quantités auxquelles le microprocesseur accède le plus souvent. Le Basic utilise la plupart de ces octets. Si vous écrivez un sous- programme en langage machine utilisé depuis un programme Basic, il est conseillé d'employer les octets inutilisés par le Basic. C’est le cas de la zone d’adresse Ÿ à 11 (40 à #B).

b) La pile du microprocesseur. #100 à Z1FF

A chaque fois qu’une instruction JSR, PHA ou PHP est exécutée par le 6592, l’adresse de retour ou l’accumulateur ou le registre d’état est empilé dans cette zone. Il est très fortement déconseillé d’écrire dans cette zone, sauf si vous aimez vivre dangereusement.

c) Zone de travail du Basic. 4200 à #2FF

Le Basic a besoin de mémoire pour travailler. Il utilise la page zéro, la zone #209 à #2FF et la zone #421 à 4FF.

d) Les adresses d’entrées/sorties. 430 à #4#3FF

Il n’y a pas de mémoire à ces adresses, mais tous les dispositifs externes à l’ensemble microprocesseur-mémoire. On y trouve entre autres le clavier, le magnétophone, le synthétiseur, etc...

e) Zone de travail du Basic. #421 à #4FF

Il est à noter que la zone #40-#420 est inutilisée. Vous pouvez l’employer pour y placer des sous-programmes en langage machine.

f) La zone programme Basic. #50 à #97FF

On y trouve d’une part le programme Basic lui-même, d’autre part les variables. Plus précisément, on a dans cette zone, l’organisation suivante :

68

adresses hautes «— A6-A7 HIMEM

Chaînes «— A2-A3

Zone vide — Aÿ-A1

Tableaux «— 9E-9F

Variables simples

«— 9C-9D

Programme Basic

adresses basses «— 9A-9B, normalement 591

— En partant des adresses basses, on trouve d’abord le programme Basic lui-même. L’adresse-mémoire du début du programme est rangée en 9A-9B, elle vaut normalement 591. En tapant PRINT HEXS(DEEK(#9A)) vous obtenez cette valeur.

— Ensuite on trouve mélangées les variables entières, les variables réelles et les noms des variables chaînes. L’adresse-mémoire du début de cette zone est rangée en 9C-9D, on peut la lire en exécutant PRINT HEXS$S(DEEK(#9C)).

Comme les zones programme et variables simples sont contiguës, on peut considérer que cette adresse est aussi celle de la fin du programme. |

Chaque variable simple occupe sept octets de mémoire. Les variables sont placées en mémoire au fur et à mesure qu’elles sont rencontrées, tous types mélangés.

* Variable réelle : nombre flottant à 5 octets

EXP M LENCO.

69

PI et P2 sont les deux premiers caractères du nom de la variable, en code ASCII positif (P1<128 et P2<128). Si le nom n’a qu’une lettre, P2 vaut 4.

Le troisième octet contient l’exposant plus 128, les quatre derniers octets constituent la mantisse, qui est comprise entre 1 et 1/2. Le nombre stocké vaut M.2EXP—128)

* Variable entière: nombre à deux octets en complément à 2

N1 et N2 sont les deux premiers caractères du nom de la variable, en code ASCII négatif (N1>128 et N2>128).

* Variable chaîne: chaîne de @ à 255 caractères

CN Le [ose [mu 0 [5

Le premier caractère du nom de la variable est stocké en code ASCII positif, tandis que le second est stocké en code ASCII négatif (P1<128 et N22>128). Le troisième octet contient la longueur de la chaîne, @ si elle est vide. Puis l’on trouve, sur deux octets, l’adresse- mémoire de la chaîne. On a d’abord l’octet de poids faible, puis l’octet de poids fort de cette adresse.

La chaîne elle-même peut se trouver soit dans la zone de stockage des chaînes, en haut de la mémoire, soit tout simplement à l’intérieur du programme Basic.

Exemples : Si l’on a:

199 A$-B$+C$

Lorsque cette ligne sera exécutée, la chaîne correspondant à A$ sera stockée en haut de la mémoire. Par contre, si l’on a:

298 A$—’’123456789

la chaine correspondant à A$ est la suite de caractères 123456789, elle existe à l’intérieur du programme, il est inutile d’aller la recopier en haut de la mémoire.

— Après les variables simples, on trouve les tableaux. L’adresse de début de cette zone est stockée en 9E-9F. Pour la lire, exécutez PRINT HEXS$S(DEEK(#9E)). On peut aussi considérer que cette adresse est celle de la fin des variables simples, car les zones correspondant aux variables simples et aux tableaux sont contiguës.

* Tableau réel

p1 P2 Taille du tableau nb. dimensions

Valeur max +1 du dernier indice

Valeur max +1 de

l'avant-dernier indice

Valeur max +1 du

premier indice

1°" élément 2° élément

| ‘dernier élément

On trouve d’abord les deux premiers caractères du nom du tableau PI et P2, en code ASCII positif. Ensuite on trouve sur deux octets, la taille du tableau, c’est-à-dire le nombre total d’octets utilisés pour stoc- ker le tableau. On trouve d’abord l’octet de poids faible, puis l’octet de poids fort de ce nombre. Sur un octet, on trouve ensuite le nombre de dimensions, c’est-à-dire le nombre d’indices du tableau. On trouve

1

ensuite pour chaque indice, en partant du dernier jusqu’au premier, la valeur maximale plus un de l’indice. Chacun de ces nombres est codé sur deux octets, l’octet de poids fort étant le premier. Les éléments du tableau, les réels eux-mêmes sont ensuite rangés en faisant d’abord varier l'indice le plus à gauche. |

Exemple : DIM AB(1,2)

définit un tableau à six éléments et deux dimensions, qui est stocke sous la forme :

Tous ces nombres sont donnés en hexadécimal.

— 4] et 42 sont les codes ASCII des lettres A et B (65 et 66 en base 10).

— (927 est la taille du tableau (39 en base 10).

— (3 est la valeur maximale plus un du deuxième indice.

— (92 est la valeur maximale plus un du premier indice.

72

* Tableau entier

La structure est analogue à celle d’un tableau réel, sauf qu’un élément occupe deux octets seulement contre 5 pour un réel. . -

Taille du tableau

Les deux premiers caractères du nom du tableau N1 et N2 sont en code ASCII négatif.

Valeur max +1 du dernier indice

Valeur max +1 de l'avant dernier indice Pour chaque élément, on stocke l'octet de poids

‘ fort, puis celui de poids faible.

Valeur max +1 du premier indice - 1" élément

! 1 ! ' ! '

dernier élément

* Tableau chaine

La structure est aussi analogue à celle d’un tableau réel sauf qu’un

élément occupe trois octets seulement. Taille du tableau

Le premier caractère du nom du tableau, P1;, est stocké en code ASCII positif, tandis que le second est en code ASCII négatif.

Valeur max +1 du dernier indice

Valeur max +1 de l'avant dernier indice

| Valeur max +1 du premier indice 1°" élément |

Pour chaque chaîne on stocke sa longueur, l'octet de poids faible puis l'octet de poids fort de l'adresse de la chaîne.

| dernier élément FE

L'adresse de la fin de la zone des tableaux est stockée en AŸ-A1. En exécutant PRINT HEXS$S(DEEK(Æ#A)), on peut lire cette adresse en hexadecimal. |

— Les chaines sont-elles stockées en partant de HIMEM, qui est en A6-A7, puis en descendant. A2-A3 contient l’adresse de l’autre extré- mité de cette zone.

— Entre la zone des tableaux et celle des chaînes, on a une zone vide, inoccupée. Au fur et à mesure qu’un programme s'exécute, des variables, des tableaux et des chaïnes sont créés, et cette zone vide rétré- cit par les deux bouts.

Si donc vous désirez utiliser de la mémoire, soit pour y placer des sous-programmes assembleurs ou des données structurées par vous- même, sans risquer de détruire le Basic ou d’être détruit par lui, vous avec plusieurs possibilités.

* Utiliser la zone 499 à 424.

* Si cela ne suffit pas on peut, avant que le programme Basic ne crée une chaîne, exécuter une instruction HIMEM qui abaisse le contenu de A6-- A7. Les octets situés au-dessus de ce plafond sont alors disponibles.

* On peut aussi, avant que le programme n'ait créé une variable ou un tableau, exécuter un ordre DOKE en 9C pour augmenter l’adresse qui y est contenue, puis utiliser les octets situés entre la fin du programme Basic et cette nouvelle adresse. Ceci a un avantage: comme l’ordre CSAVE recopie sur cassette la zone dont l’adresse de début est en 9A- 9B, dont l’adresse de fin est en 9C-9D, un seul ordre CSAVE permet de sauvegarder en même temps le programme Basic, et par exemple, des sous-programmes machine placés à sa suite. Mais attention, la médaille a un revers: Il devient impossible de modifier le programme Basic. En effet, lorsque vous modifiez un programme, vous lui ajoutez ou vous lui retirez des caractères. Aussi, l’ORIC se doit de déplacer dans la mémoire une partie du programme Basic, depuis l’endroit où s’est produite la modification, jusqu’à sa fin. Or, il se trouve que chaque ligne de programme Basic en mémoire contient l’adresse de la ligne suivante. Dans tout le bloc qui a été déplacé, l’ORIC doit recalculer ces adresses. Et en faisant cela, il se plante lorsque 9C-9D ne contient pas véritable- ment l’adresse de fin du programme Basic.

74

g) La zone de stockage des caracteres

Pour chacun des deux jeux de caractères de l’ORIC, une zone de 1 Koctet est réservée, ces deux zones sont contiguës. Deux choses sont à remarquer :

— Les caractères ne sont pas situés au même endroit en mode TEXT et en mode HIRES, à chaque fois que vous passez d’un mode à l’autre, l’'ORIC les déplace. Aussi, il faut prendre garde à ceci lorsque l’on redéfinit un caractère :

La définition du caractère normal de code ASCII ” A” débute à l'adresse 46080+8*xA en mode TEXT (ou LORES), tandis qu’elle se trouve en 38912+8*A en mode HIRES.

— Chaque définition de caractère occupe 8 octets. Comme un code ASCII est compris entre @ et 127, on a donc à priori 128x8—1924—1 Koctet occupé par chacun des jeux de caractères. Mais en réalité, il n’y a pas de caractères correspondant aux codes Ÿ à 31. Les 32x8—256 premiers octets des deux zones sont donc inutilisés.

h) La zone ecran

Elle est, bien entendu, plus grande en mode HIRES qu’en mode TEXT. En mode texte, on a 28 lignes de 40 caractères, comme un carac- tère occupe un octet mémoire, l’écran en mode TEXT utilise 28x49—1129 octets, des adresses 48999 à 49119. Il est à noter que la première ligne de l’écran, celle où est située le mot CAPS correspond aux octets d'adresses 48 à 48039, et peut-être accédée grâce à PEEK, DEEK, POKE et DOKE.

En mode HIRES, on a 209 lignes de 249 points plus trois lignes de texte de 49 caractères. Comme chaque octet SL à six points, une ligne HIRES utilise 249/6—49 octets.

L'écran HIRES utilise donc en tout (299+3)x49—8129 octets, qui sont situés aux adresses 49969 à 49979.

i) La ROM #C000 à ZFFFF

On y trouve l’interpréteur Basic, appelé aussi plus simplement le Basic. Il est impossible d’écrire dans cette mémoire qui, par construc-

19

tion, ne peut être que lue. Par construction du microprocesseur 6592, on trouve en FFFE, FFFEC et FFFA les adresses où il se branche en cas de irq (interrupt request), de reset et de nmi (non masquable interrupt) respectivement. Ainsi, CALL DEEK(#FFFA) produit le même effet que lorsque l’on enfonce la touche ”reset” et CALL DEEK(#FFFC) produit le même effet que lorsque l’on branche l’ORIC.

2.2 COMMENT REDÉFINIR LES CARACTÈRES

Chaque caractère, normal ou semi-graphique, est formé dans une matrice de 6 colonnes x 8 lignes.

20 34 34 62 34 34

Chaque caractère est codé par 8 octets contigus en mémoire, il y a un octet par ligne de la matrice. Le caractère ” A” ci-dessus est code par les 8 octets suivants :

32168421

O+ 9+8+0+0+0— 8 D+16+0+4+9+0—-209 32+ O+9+0+2+9-34 32+ O+9+0+2+9—-34 32+16+8+4+2+0—62 32+ 9+0+9+2+0—34 32+ O+9+0+2+9—34 + 0+0+0+9+0= @

76

c’est-à-dire qu’à chaque point du caractère correspond un ” 1”. Les deux bits de gauche de chaque octet sont inutilisés et valent 4.

Les paquets de huit octets correspondant aux caractères sont rangés dans la mémoire en suivant l’ordre des codes ASCII des carac- tères. Par exemple, la zone de stockage des caractères standards débute en 46080 en mode TEXT. Le premier des huit octets codant la lettre ” A”. dont le code ASCII est 65, est à l’adresse 46080+8*65—46690. On trouve donc:

8 en 46690 20 en 46691 34 en 46692 34 en 46693 62 en 46694 34 en 46695 34 en 46606

O en 46697

Le premier des huit octets codant la lettre ” B”, de code ASCII 66, se trouve lui à l’adresse 46080+8*66—46608.

Le programme :

19 INPUT ”’Donner un caractère’’; CAR$ 29 TEXT :S—46980+8xASC(CAR$)

39 FOR I=S TO S+7

49 PRINT I,PEEK(I)

5ÿ NEXT I

vous permet d’afficher les octets définissant un caractère standard.

Le programme :

19 S—46989+8xASC('' A’) :TEXT 29 FOR I=S TO S+7

39 POKE 1+8,PEEK()

4ÿ NEXT |

recopie la définition du caractère ” A” dans celle de ”B”. Après avoir exécuté ce programme, un ” À ” apparaîtra sur l’écran lorsque vous frap- perez la touche ”’ B”, car le caractère de code ASCII 66 a maintenant la forme du ” A” au lieu du ”B”.

17

Comme exemple, nous allons transformer le caractère @ en 7.

20000010

32 168421

D+ D+0+9+2+9= 2 32+16+8+4+0+0-60 0+16+9+4+0+9—-209 D+16+9+4+9+9—-29 0+16+9+4+9+9—-209 D+16+9+4+9+9—-20 0+16+0+4+9+0—29 D+ D+0+0+0+0= @

En exécutant le programme:

19 TEXT :S—46989+ASC('’ @ ‘’)*x8

28 FOR I=S TO S+7:READ V':POKE I,V :NEXT

39 DATA 2,64,29,29,29,29,29,9 on redéfinit @. Chaque fois que vous frapperez la touche ” @ ”, un ”r” est affiche.

Le petit insecte du jeu GLOUTON est un caractère redéfini :

20100001

32 168 42:

32+ 0+0+0+0+1-33 2+16+0+9+2+9—-18 O+ 9+8+4+9+9=-12 O+ D+8+4+0+9=12 O+ 9+8+4+0+9=12 O+ 0+8+4+0+9—12 D+16+0+9+2+9-18 32+0+0+0+0+0+1-33

19 TEXT :S—46989+ASC('' @ ‘’)+8 28 FOR I=S TO S+7:READ V':POKE I,V :NEXT 39 DATA 33,18,12,12,12,12,18,33

redéfinit le @ en glouton.

78

On peut, exactement de la même façon, redéfinir les caractères semi-graphiques. En mode TEXT, ces caractères sont stockés à partir de l’adresse 47104, le premier octet d’un caractère semi-graphique de code ASCII a se trouve à l’adresse 47194+8xa.

Si vous désirez redéfinir un caractère tout en étant en mode HIRES, il faut utiliser l’adresse 38912 au lieu de 46980 pour les carac- tères standards, et 39936 au lieu de 47194 pour les caractères semi- graphiques. En effet, l’'ORIC déplace dans sa mémoire les définitions des deux jeux de caractère à chaque fois que l’on passe d’un mode graphique à l’autre (TEXT et HIRES).

Pour retrouver le jeu de caractères normal, vous pouvez enfoncer la touche reset, ou exécuter CALL DEEK(#FFFA), qui a la même action que reset. Vous pouvez aussi exécuter CALL #F8D qui a le seul effet de recharger les caractères initiaux.

Pour terminer, voici un programme qui vous permettra de redéfinir n'importe quel caractère.

10 REM REDEFINITION DES CARACTERESXxx%*+x

30 TEXT:CLS:PAPER 2:INK O:PRINT:PRINT 40 PRINT'"'Donnez le code ASCII ":

DU PRINT" ÉS2=-1277

60 INPUT CODX ;

70 IF CODÆ<32 OR CODX)>127 THEN 4Ù

80 PRINT'"'Quel jeu ": |

70 PRINT"(O:normal,i:graphique) ”"; 100 INPUT JEUX

110 IF JEUX<O OR JEUX >1i THEN 80

120 ÀAD=46080+1024xJEU+8*xC0D%

140. REP MODE: D'EMPED Isere 190 CLSIPRINIT

160 PRINT'Dessinez le caractere ":

170 PRINT'dans la grille"

180 PRINT:PRINT'"Pour marquer un point:" 190 PRINT'"-On deplace le curseur"

200 PRINT" avec les fleches"

210 PRINT"-On frappe X"

79

80

220

620

PRINT

PRINT'Pour effacer un point:" PRINT'"-On amene le curseur" PRINT" sur le point"

PRINT"-QOn frappe la barre"

PRINT

PRINT'"'Lorsque le dessin est fini” PRINT'"frappez la touche ESC"

REM DESSINE LA GRILLE------------ FOR C=ié TO 23:PLOT C,1é6,"x":NEXT FOR L=17 TO 24:PLOT ié,L,"x"

PLOT 23,L,"#":NEXT

FOR C=ié TO 23:PLOT C,25,"%":NEXT REM PLACE CURSEUR DANS GRILLE---- PRINT:PRINT:FOR I=i TO 15

PRINT CHR#$(9) ;

NEXT :X=1 :Y=1

REM DESSIN DU CARACTERE---------- GET A$:1F AS=CHR$S(27) THEN 540

IF A$="X"ANDX<7THEN X=X+1 : GOTOS20 IF A$=" "ANDX(7THEN X=X+1 : GOTO520 A=ASC(A):IF CS OR A>11 THEN 420 IF A=8 AND X)>1 THEN X=X-1 : GOTO520 IF A=9 AND X<é THEN X=X+1 : GOTOS20 IF A=10AND Y<8 THEN Y=Y+1:GOTO520 IF A=11AND Y>1 THEN Y=Y-1 :GOTO520 GOTO 420

PRINT 4$:;:GOTO0 420

REM RANGE CETTE DEFINITION DANS T DIM T(7) : PAPER 1!

FOR I1=0 TO 7

FOR C=17 TO 22

IF SCRN(C,17+I1)<>ASCC"X") THEN6éOG FClomT(1)+2"(22-C)

NEXT C

NEXT I:PAPER 2:CLS

630 REM RANGE EN MEMOIRE ORIC-------- 640 PRINT :PRINT

650 FOR I1=0 TO 7

660 POKE AD+I,T(I)

670 PRINT"'POKE "3AD+I13:","3:TCI)

680 NEXT I

6790 PRINT:PRINT'"'On obtient:";

700 PRINT CHR$(27) ; CHR$( /2+JEU) ;

710 PRINT CHR$&(CODZ)

F£Ù à |

790 REM ENCORE 7eme estime 740 PRINT :PRINT

750 PRINT'"'Encore (CO/N) "3::GET À$&

760 IF A$="0" THEN RUN

770 IF A$="N" THEN END

780 PING:GOTO 750

2.3 TRUCS ET FICELLES DES MODES TEXT ET LORES

En mode TEXT ou LORES, l'écran est divisé en 28 lignes de 49 caractères chacune. À chacun de ces 49x28—1129 caractères corres- pond un octet bien particulier de la mémoire de l’ORIC. Par exemple, le premier caractère de la première ligne correspond à l’octet 480090 (ZBB80 en hexadécimal). Pour faire apparaître un caractère sur l’écran, l’'ORIC place son code ASCII dans l’octet correspondant. Vous pouvez faire de même avec la fonction POKE. Par exemple, pour placer la lettre ” A”, dont le code ASCII est 65, dans le premier caractère de la pre- mière ligne, exécutez :

POKE 48999,65

Si l’on numérote les lignes de @ à 27, la ligne @ étant la ligne supé- rieure, et les caractères de 9 à 39, l’adresse de l’octet correspondant au caractère X de la ligne Y vaut 48000+40%Y +X.

De ce qui précède, on peut déduire un premier ” truc”, qui permet d’écrire sur la première ligne de l’écran, celle où se trouve le mot CAPS.

81

19 A$='’Et voila le travail! !”

29 GOSUB 199

39 END

4ÿ :

199 REM ECRITURE A$ SUR LA 1 LIGNE 119 FOR 1-1 TO LEN(AS)

129 POKE 47999+1,ASC(MID$( (A$,1,1))

139 NEXT I

149 RETURN

Comme on l’a dit, à chaque position de l’écran correspond un octet en mémoire, pour faire apparaître un caractère à un endroit déterminé, on place son code ASCII dans l’octet correspondant. Or un code ASCII est un nombre compris entre @ et 127, qui s’exprime sur 7 bits. Comme un octet contient 8 bits, il reste donc a priori un bit inutilisé, le bit de poids fort. En fait, ce bit est utilisé lorsque l’on affiche le caractère en vidéo inverse.

7: D: 5 SX TC 0

LS code ASCII Un octet de la zone écran

@: Le caractère est normalement affiché 1: Le caractère est affiché en vidéo inverse

Pour faire passer à ” 1” le bit de poids fort, il suffit d’ajouter 10000000 (binaire) au code ASCII, ce qui vaut encore 128 en base dix ou 89 en hexadécimal.

Ceci va nous permettre d’écrire en vidéo inverse, tout d’abord en reprenant le petit programme précédent :

19 A$—'’'Et voila le travail”’

29 GOSUB 199

39 END

4ÿ :

199 REM ECRITURE A$ SUR LA 1 LIGNE 119 FOR 1-1 TO LEN(AS)

129 POKE 47999+#1, ASC(MID$(A$,1,1))+128 139 NEXT I

149 RETURN

82

On a simplement ajouté +128 à la ligne 129.

On peut aussi utiliser la fonction PLOT pour écrire en vidéo inverse, comme dans l’exemple suivant :

19 TEXT:CLS

29 X=-9:Y-19:A$—""Ceci est un message” 39 GOSUB 198

49 X=14:Y-13:A$=—''ecrit en’

5ÿ GOSUB 198

69 X-12:Y-16:A$—"" video inverse’

79 GOSUB 19g

De WAIT 5g:GOTO 19

9ÿ :

199 REM PLOT EN VIDEO INVERSE

119 MUSIC 1,4,1,8

129 FOR 1-1 TO LEN(A$)

139 PLOT X+1-1,Y,ASC(MID$(A$,1,1))+128 149 PLAY 1,9,9,25 :WAIT 15

159 NEXT I

169 PING :WAIT 5ÿ

179 RETURN

L'affichage se fait à la ligne 139. MIDS$(A$, I, 1) donne le caractère I de la chaine A$. ASC(MIDS(AS, I, 1)) donne le code ASCII de ce caractère, auquel on ajoute 128 pour obtenir un effet de vidéo inverse.

Les codes ASCII 9 à 31 ont un rôle un peu particulier. Lorsqu’on les place dans un octet de la zone écran, aucun caractère n’apparaîït. En revanche, la ligne où ils se trouvent change d’aspect, à partir de l’endroit ils se trouvent. Ils permettent de choisir la couleur de l’encre, de l’écran, de sélectionner le jeu de caractère, la taille des caractères et de faire clignoter des caractères. Comme ils modifient l’aspect d’une ligne où ils se trouvent, on les appelle parfois ” attributs”. L’annexe 3.2 donne la liste de ces caractères.

Par exemple, 18 donne à l’écran la couleur verte. Tapez POKE 48020, 18.

L’octet 48929 correspond au milieu de la première ligne de l’écran qui maintenant est verte. Si vous tapez maintenant :

POKE 48929,17 on obtient du rouge. Tapez: POKE 48929,12 et le mot CAPS se met à clignoter.

83

Ces codes peuvent aussi être employés avec PLOT, comme le montre l’exemple suivant :

19 TEXT:PAPER Y:INK 1:CLS 29 PLOT 11,1,CHR$(14)+'"DEMONSTRATION ” 39 PLOT 11,2,CHR$(14)+' DEMONSTRATION

59 PLOT 15,12,CHR$(1)+' ROUGE” 68 PLOT 15,13,CHR$(2)+'' VERT" 79 PLOT 15,14,CHR$(3)+''IAUNE"”’ 88 PLOT 15,15,CHR$(4)+''BLEU 99 PLOT 15,16,CHR$(5)+'’ MAUVE 199 PLOT 15,17,CHR$(6)+' CYAN" 119 PLOT 15,18,CHR$(7)+'' BLANC”

129 :

139 FOR 1-1 TO 7 :WAIT 299 :PING 149 FOR ]-11 TO 19

159 PLOT 14,],1+16 :PLOT 23,],16 169 NEXT }

179 NEXT I

Le code 14 donne des lettres clignotantes double hauteur, les codes 1 à 7 fixent la couleur de l’encre. A la ligne 159, 1+16 varie de 17 à 23 et fixe la couleur de l’écran.

Pour afficher ces codes @ à 31 avec un ordre PRINT, il faut exécuter PRINT CHRS$(27); CHRS(code+64), voir l’annexe 3.2.

En effet, si vous exécutez PRINT CHR$(code) et que le code est compris entre Ÿ et 31, l’'ORIC n’affiche pas ce code. A la place, il exécute un sous-programme de sa mémoire ROM. Par exemple, si vous exécutez PRINT CHRS(12), l'ORIC ne placera pas ce code dans la mémoire- écran, ne l’affichera pas, mais exécutera un sous-programme qui efface l’écran, en remplissant la mémoire-écran de codes 32 (blanc). L’effet de PRINT CHRS(code) pour les valeurs @ à 31 est décrit au début de l’annexe 3.1.

Voici un petit programme démontrant quelques-unes des possibili- tés de ces codes avec PRINT, que l’on appelle caractères de contrôle, car ils permettent en majorité de contrôler le curseur.

L PRINT CHR$(12):REM EFFACE ECRAN 7 .

34 PRINT @ 15,26 :’' COUCOU” 4ÿ FOR 1-1 TO 26

84

5ÿ FOR 1=1 TO 26 68 PRINT CHR$(19); :REM VERS LE BAS 78 WAIT 28

88 NEXT

9ÿ : 7 PRINT CHR$(39) ; :REM RETOUR 119 : |

129 FOR 1-26 TO 2 STEP —2 134 FOR ]J=-1 TO I :PRINT CHR$(9): :NEXT

149 FOR J=1 TO I':PRINT CHR$(19) ; :NEXT 159 FOR J=1 TO 1-1 :PRINT CHR$(8); :NEXT 168 FOR J=1 TO 1-1 :PRINT CHR$(11); :NEXT 179 NEXT

Les codes 8, 9, 19 et 11 sont les codes ASCII des touches flèches à gauche, à droite, en bas et en haut. On peut grâce à eux déplacer le curseur, à condition de ne pas oublier le ” ;” à la fin de l’ordre PRINT. Ce ”;” empêche PRINT d’envoyer le curseur au début de la ligne

suivante.

Pour terminer, voici quelques adresses qui vous assureront la maîtrise totale de l’écran de l’'ORIC.

18ou #12 adresse-mémoire du premier octet de la ligne où se trouve 19ou #13 le curseur. 616 ou 268 numéro de la ligne où est le curseur (Q à 27. 617 ou #269 numéro de la colonne où est le curseur (9 à 39). 618 ou #26A bascules CTRL-D, CTRL-], CTRL-[, CTRL-F, CTRL-S et CTRL-Q. 619 ou Y26B code pour PAPER (16 à 23). 620 ou #26C code pour INK (9 à 7). 632 ou 4278 adresse-mémoire du premier octet de la seconde ligne de 633 ou 4279 l'écran (*BBD@ en TEXT, #BF99 en HIRES). 634 ou #27A adresse-mémoire du premier octet de la première ligne de 635 ou #27B l'écran (XBBA8 en TEXT, #BF68 en HIRES). 636 ou #27C nombre de caractères à enrouler (26x4@—1%4@ en TEXT, 637 ou #27D 2x49-80 en HIRES). 638 ou #27E nombre de lignes de l'écran (27 en TEXT ou 3 en HIRES).

Ces adresses sont à séparer en quatre groupes :

— Celles qui servent au curseur: 18, 19, 616 et 617.

Le curseur est en réalité un caractère qui est affiché normalement, puis en vidéo inverse, puis normalement, à nouveau en vidéo inverse, etc. L’adresse-mémoire du premier octet de la ligne où se trouve le curseur est stockée en 18-19.

En 616 est stocké le numéro de la ligne courante, où sera affichée le prochain caractère. Normalement, ceci correspond à la ligne où se trouve le curseur. En 617 est stocké le numéro de la colonne où se trouve

le curseur.

Cette adresse peut servir à remplacer la fonction TAB. Tapez:

POKE 617,19:PRINT COUCOU”

Nous allons maintenant utiliser les adresses 18, 19 et 616 pour simuler une instruction PRINT X, Y, A$. Cette instruction a le même effet que PLOT @ X, Y; A$, mais peut écrire sur la première ligne de l’écran (Y—) et dans les deux premières colonnes (X=—ÿ ou 1). Considé- rons le programme suivant :

10 PRINT CHR#(30) ; :INPUT'X,Y ":X,Y 20 INPUT"CHAINE ":A4$

30 GOSUB 100 40 GET ÀA$:IF A$S<)>"A" THEN 10 30 END

100 REM PRINT AT X,Y,A8--———— 110 L=DEEK(18) :ACUR=L+PEEK(617)

115 DOKE £400,£6078:CALL £400

120 CAR=PEEK(ACUR)

130 IF CAR)127 THEN POKE ACUR, CAR- 128 140 L=£fBB80+Y*x40

150 POKE é616,Y:POKE 617,X

160 DOKE 18,L

165 DOKE £400,£€058:CALL £400

170 PRINT A$

180 RETURN

Note: le caractère ” £”’ est à remplacer par ” #”.

Nous allons expliquer le fonctionnement du sous-programme 190. Comme on l’a dit, le curseur est en fait un caractère que l’ORIC fait passer en vidéo inverse, en vidéo normale, en vidéo inverse, etc. Comme ce sous-programme va déplacer le curseur, pour le mettre à la position

86

X, Y, la première chose à faire est d’effacer le curseur de l’endroit où il se trouve, ce qui est fait par les lignes 119 à 130.

119 On place dans ACUR l'adresse-mémoire de l'octet sur lequel se trouve le curseur.

115 Nous laissons de côté cette ligne pour l'instant. 129 On place dans CAR la valeur de l'octet sur lequel est le curseur.

139 Si CAR est supérieur à 127, il est affiché en vidéo inverse et on le fait passer en vidéo normale.

De 149 à 169, on place le curseur en X, Y.

149 BB80 est l'adresse du début de l'écran. Comme une ligne comporte 40 caractères, ACUR contient maintenant l'adresse du nouvel octet sur lequel on désire placer le curseur.

159 On place en 616 le numéro Y de la ligne, en 617 le numéro de la colonne.

169 On place en 18 la nouvelle adresse de la ligne où est le curseur. 179 On imprime la chaîne Af$.

Nous allons maintenant nous pencher sur les lignes 115 et 165. Pour faire clignoter le curseur, l'ORIC agit ainsi: A l’intérieur de l'ORIC se trouve une sorte de réveil-matin, appelé TIMER, qui sonne toutes les demi-secondes environ. À chaque fois que le réveil sonne, l'ORIC laisse tomber purement et simplement ce qu'il était en train de faire, exécuter votre programme Basic ou attendre que vous frappiez quelque chose, pour se précipiter en 18-19. II lit le nombre qui se trouve en 18-19, lui ajoute le contenu de 617, et va à cette adresse. La, il trouve l’octet sur lequel est le curseur. Si cet octet est supérieur à 128, il donne un caractère en vidéo inverse, alors l’ORIC retranche 128 à cet octet pour obtenir le même caractère, mais en vidéo normale. Au contraire, si l’octet est inferieur à 128, l'ORIC lui ajoute 128 pour obtenir l'effet de vidéo inverse. Ceci fait, l'ORIC retourne au travail qu'il avait aban- donné. Et cela recommence toutes les demi-secondes, l’'ORIC fait passer en vidéo inverse, puis normale, puis inverse, etc. l’octet dont l’adresse est stockée en 18-19 et 617.

Maintenant, supposons que le réveil sonne pendant que l’ORIC exécute la ligne 149 ou 159. A la ligne 134, on avait veillé à faire passer le caractère sur lequel est le curseur en vidéo normale. Puis, par exemple,

87

vers le milieu de la ligne 149, le réveil retentit. Aussitôt, l'ORIC laisse tomber mon programme et va faire passer en vidéo inverse ce caractère, dont l’adresse est en 18-19 et 617. Puis il revient à mon programme, qui a la ligne 169 modifie le contenu de 18-19. Lors de la prochaine sonne- rie, l’'ORIC ira donc modifier l’octet dont l’adresse et la nouvelle valeur sont en 18-19 et 617. Ainsi, le caractère dont l’adresse était l’ancienne valeur stockée en 18-19 et 617 se trouve toujours, le pauvre, en vidéo inverse. On a donc sur l’écran un caractère qui reste en vidéo inverse, du plus mauvais effet. Pour parer à cela, c’est très simple, il suffit de rendre l'ORIC sourd à la sonnerie, ce qui est fait en 115. En effet, on place en 44090 un #78, qui est le code d’une instruction SEI et en #491 on met #60, RTS. Puis on exécute ce sous-programme machine de deux instruc- tions. C’est l'instruction SEI qui rend sourd l’ORIC. Puis en 165, on lui rend l’ouïe, en exécutant le sous-programme constitué de #58 et #60, soit CLI et RTS. L’instruction CLI à l’effet inverse de SE.

Si vous voulez mieux voir ce qui se passe, ajoutez la ligne:

117 FOR 1-1 TO 4ÿQ :NEXT |

Puis tapez: CLS :RUN return L’ORIC vous demande : X,Y? Tapez : 19,19 return L’ORIC demande alors: CHAINE? Tapez :

ABCD return

Vous observez alors que pendant que la ligne 117 s'exécute, le curseur se trouve au début de la troisième ligne, et qu’il ne clignote plus. En effet, la ligne 115 a masqué les interruptions, a rendu sourd l’ORIC, qui ne va plus faire changer d’état son curseur,

— Nous passons maintenant au second groupe, les adresses 632 à 638 qui servent à définir la taille de l’écran pour PRINT. On trouve en 632-633 l’adresse de la seconde ligne, qui vaut normalement #BBD en mode TEXT et #BF99 en mode HIRES. En 634-635 se trouve l’adresse de la première ligne, #BBAS8 en TEXT et #BF68 en HIRES. Le nombre de caractères à déplacer lorsque l’écran est plein, à enrouler, se trouve en 636-637, et vaut 26x40—1949 en TEXT, 2x49—80 en HIRES. Enfin, en 638 se trouve le nombre de lignes de l’écran (27 en TEXT, 5 en HIRES).

88

Les ordres PRINT, CLS utilisent la zone dont l’adresse de début vaut DEEK(634), et comportant PEEK(638) lignes de 49 caractères. En modifiant ces valeurs, vous pouvez modifier la partie utilisable de l'écran. Tapez:

DOKE 636,7x49 :POKE 638,8 :CLS return

Ceci restreint à huit lignes la zone utilisable de l’écran. Déplacez le curseur avec flèche en bas: il ne peut dépasser la 8° ligne.

Tapez maintenant :

DOKE 632,#BB89+49 :DOKE 634, ÆBB89 :DOKE 636,27x4ÿ : POKE 638,28 :CLS return

PRINT peut maintenant écrire depuis #BB89 sur 28 lignes. C’est- a-dire que vous pouvez maintenant utiliser la ligne du haut de l’écran, celle où se trouve CAPS. Tapez et exécutez :

19 DOKE 632, BB89+49:DOKE 634,# BB8ÿ 28 DOKE 636,27x4ÿ :POKE 638,28 :CLS 39 PRINT SPC(12) : "ZONE PROTEGEE” 49 FOR 1- #BB89+4945 TO # BB89 +445 + 39 5ÿ POKE I,ASC(’’="") 69 NEXT I 74 : 88 DOKE 632, #BB80+7x+49 9$ DOKE 634,# BB80+6+49 199 DOKE 636,21x49 :POKE 638,22 119 CLS

Vous pouvez déplacer le curseur, exécuter CLS ou CTRL-L sans atteindre les deux lignes supérieures de l’écran. Les lignes 19-20 définis- sent un écran de 28 lignes, tandis que 80-119 définissent un écran de 22 lignes.

— Le troisième groupe d’adresses est formé de 619 et 629. On y trouve respectivement les attributs utilisés pour définir la couleur de l’écran et de l’encre lorsque CLS ou CTRL-L est exécuté. Ces deux commandes agissent comme suit: Pour chaque ligne, on place dans le premier octet la valeur qui est en 619, on place dans le second octet la valeur qui est en 629, et on met un code 32 (blanc) dans les 38 octets restants de la ligne.

Reprenons le petit programme précédent, on ajoute les lignes 25 et 129 pour obtenir :

89

19 DOKE 632,#BB89+49:DOKE 634, #BB89 29 DOKE 636, "27 x 4ÿ : POKE 638,28: CLS

25 POKE 619, 16 : POKE 629,7 : CLS

39 PRINT SPC (12) : "ZONE PROTEGEE ”

4ÿ FOR | # BB80+40x5 TO # BB89+49x+5+39 5ÿ POKE I,ASC(’=")

69 NEXT I

70:

89 DOKE 632, #BB89+7+4ÿ

9ÿ DOKE 634, #BB80+6+49

199 DOKE 636,21x49 :POKE 638,22

119 CLS

1284 POKE 619,18: POKE 629,9: CLS

En 619, on doit placer un attribut qui détermine la couleur de l'écran, c’est-à-dire un nombre de 16 à 23, tandis qu’en 629 on met un attribut qui détermine la couleur de l’encre, un nombre compris entre Ÿ et 7. A la ligne 29, on choisit un écran noir (16 en 619) avec de l'encre blanche (7 en 62). A la ligne 99, on fixe un écran vert (18 en 619) et de l'encre noire (9 en 620).

— Pour terminer, le quatrième groupe qui ne comporte qu'une adresse 618, les 7 bits de poids faible de cet octet ont chacun une signifi- cation particulière, que nous donnons dans le tableau ci-dessous.

Numéro du bit

Poids du bit

| Afficha action du Affichage | ru clavier bit à @ simple Al sonore colonnes

Affich Affichage He 40. | : curseur

affiché

Action du bit à 1

Touche faisant changer d'état| aucune! CTRL-D le bit Caractère de contrôle CHRS$(26) HRS$(4 RCA aucun | CHRS$(4) CHR$(27) CHR$(19) d'état le bit

90

ubl double colonnes

Lorsque l’ORIC est branché, ou lorsque l’on enfonce ” reset”, l’ORIC place en 618 la valeur:

sm. [elelslsleolelils

Ce qui vaut O+9+9+9+9+2+1=—3. Ceci correspond à: * Affichage simple

* Affichage sur 38 colonnes

* La touche précédente n’était pas ESC

* Le clavier est sonore

* Les caractères sont affichés

* Le curseur est affiche.

Les touches CTRL et les caractères de contrôle font changer d’état l’un de ces bits, s’il était à @, on obtient 1, et réciproquement. En exécutant un ordre POKE à l’adresse 618, vous pouvez initialiser tous ces bits aux valeurs de votre choix. Par exemple, après avoir frappé un nombre quelconque de touches de contrôle, POKE 618,3 vous ramène bien dans l’état auquel vous êtes habitué, celui de la mise en marche.

Si vous désirez maintenant être en affichage simple, sur 49 colonnes, avec un clavier silencieux et que le curseur né soit pas affiché, il faut placer en 618 la valeur:

128 64 32 16 8 2 2 1 Rise nier

poids

Affichage pas ESC | Affichage | simple | Affichage clavier curseur 49 colonnes silencieux pas affiché

Ce qui vaut 0+9+32+0+8+9+2+9—42. On exécute donc:

POKE 618,42

91

2.4 TRUCS ET FICELLES DU MODE HIRES

L’écran HIRES est divisé en 203 lignes de 49 caractères chacune, 200 lignes de graphique suivies de trois lignes de texte. Exactement comme en mode texte, à chacun de ces 293 x49—8129 caractères corres- pond un octet de la mémoire de l’ORIC, de 49969 à 49979 (ZA090 à #BFB7).

Si l’on numérote les lignes graphiques de @ à 199, la ligne étant la ligne supérieure, et les caractères de Ÿ à 39, l’adresse de l’octet corres- pondant au caractère X de la ligne Y vaut 49969 +40%Y +X.

Comme en mode TEXT, une ligne est constituée de 49 octets, et le bit de poids fort de chacun de ses octets sélectionne le mode vidéo normale ou inverse.

CR 1 Q

Le code compris entre @ et 127

Q: Vidéo normale

1: Vidéo inverse

Les 7 bits restants peuvent donner un nombre compris entre Ÿ et 127. Comme en mode TEXT, les valeurs @ à 31 sont des attributs videos (voir annexe 3.2). Par contre, les valeurs 32 à 127 ne sont pas des codes ASCII de caractères. A la place, chacun des six bits 5 à Ÿ correspond à un point de l’écran. Ainsi, tout octet compris entre 32 et 127 donne six points. Comme on a 49 caractères par ligne, on peut donc avoir 6x49—24@ points par ligne. Chaque bit à zéro donne un point éteint, tandis qu’un bit à un donne un point allumé, visible.

Ainsi, l’octet :

92

128 64 32 16 8 4 2 0 1 9 9 6 6 6 0 Eh + #4

Le bit à 1 a un poids de 64, il assure donc que l'octet est supérieur à 31, que ce n'est pas un attribut vidéo, et que les bits 5 à @ représentent donc chacun un point.

1

0+64+0+0+0+0+0+0—64

@: On aura donc des points en vidéo normale.

correspond-il à six points éteints. Lorsque vous :exécutez HIRES, lORIC place cette valeur, soit 64, dans les 29x49 octets qui consti- tuent la zone graphique, on a donc un écran dont tous les points sont éteints. Prenons un second exemple, avec l’octet :

128 64 32 16

8 ® 1 O0 1 0

Assure que l'octet est supérieur à 32

Y On aura six points en vidéo normale.

Cet octet vaut 87 et donne un point éteint, un point allumé, un point éteint et trois points allumés. Tapez:

HIRES return Puis : POKE # A999,87 return

#A000 est l’adresse du premier octet de la zone HIRES, on voit donc apparaître les six points correspondant à la valeur 87 dans le coin supérieur gauche de l’écran. Tapez maintenant :

FOR 1- #A099 TO # Aÿ27 :POKE 1,87 :NEXT return

93

Ceci place la valeur 87 dans les 49 premiers octets de la zone écran HIRES, qui correspondent à la première ligne de l'écran. Tapez maintenant :

FOR 1-# AÏ9Ÿ TO # BF3F:POKE 1,87 :NEXT return

Ceci remplit les 299 lignes graphiques avec ce nombre 87.

Comme il n’est pas possible de placer dans un même octet à la fois une valeur inférieure à 32 et une valeur supérieure à 32, à chaque fois que vous placez un attribut vidéo dans la mémoire HIRES, les six points correspondant à cet octet seront toujours éteints, comme l'illustre l'exemple suivant. Tapez :

HIRES return FOR I=#AFAQ TO # AFC7 :POKE 1,127 :NEXT return

Ce qui trace une ligne au milieu de l’écran, 127 correspond à 7 bits a ” 1”. Nous allons maintenant placer au milieu de cette ligne l’attribut encre rouge” qui a pour code 1. Tapez:

POKE # AFB4,1 return La fin de la ligne est bien rouge, et six points sont éteints. Tapez : POKE # AFB4,127 return

Les six points sont revenus, mais la couleur rouge a disparu.

Lorsque l’on désire remplir une zone rectangulaire de la mémoire écran HIRES avec un code, l’ordre FILL est très pratique. Les para- mêtres de cet ordre sont la hauteur du rectangle en nombre de lignes, la largeur du rectangle en nombre d’octets et le code à placer dans toute cette zone.

FILL nombre de lignes, nombre d'octets, code.

Avant d'employer FILL, il faut préciser à l’'ORIC les coordonnées du coin supérieur gauche du rectangle, par exemple avec CURSET.

94

Exemples : Tapez :

HIRES return CURSET 69,59,3:FILL 199,29,127 return

On place sur 199 lignes x 29 octets le code 127 qui correspond à six points allumés, on obtient donc un rectangle de 199x 129 points. Tapez :

CURSET 54,59,3 :FILL 199,1,2 return

On place devant chacune des lignes du rectangle un code 2, qui est l’attribut encre verte”. Le rectangle est donc vert. Tapez maintenant :

CURSET 129,59,3 :FILL 199,1,4 return

Ceci place 4, qui est l’attribut encre bleue ” au milieu du rectangle. Les points où sont les attributs sont éteints, tandis que les points à droite de ces attributs sont bleus.

Comme le montre l’exemple précédent, l’utilisation des attributs vidéo ne permettent pas d’avoir sur une même ligne des points voisins de couleurs différentes. Cela est possible en utilisant la vidéo inverse. Tapez :

HIRES return CURSET 69,59,3 :FILL 199,7,127 return

On obtient un rectangle blanc que nous allons colorier en vert en exécutant :

CURSET 54,59,3 :FILL 199,1,2 return

Tapez maintenant :

CURSET 192,59,3 :FILL 199,7,127+128 return

127+128-255 donne six points allumés en inverse vidéo.

Comme l'inverse vidéo du vert est le mauve, on obtient un rectangle mauve contigu au rectangle vert précédent. Tapez:

CURSET 144,59,3 :FILL 199,7,127 return

On obtient un nouveau rectangle vert contigu au rectangle mauve.

95

2.5 FABRIQUER DES LIGNES DE PROGRAMME PAR PROGRAMME

Lorsque l’on tape de longues listes de DATA, ou de grands textes après des ordres PRINT, il devient rapidement fastidieux de devoir à chaque ligne taper un numéro, le mot DATA ou PRINT. Il est préfé- rable de ne taper que les données, et de laisser le soin à un programme d’ajouter les détails que sont le numéro de la ligne ou le mot DATA. Cela est possible lorsque l’on sait que:

— Chaque ligne de programme est stockée en mémoire selon le format suivant :

p. faible p. faible p. fort Q |

adresse du début . numéro de la instructions marque de de la ligne suivante ligne fin de ligne

On a d’abord sur deux octets l’adresse-mémoire de la ligne suivante. puis encore sur deux octets, le numéro de la ligne. Ensuite les caractères qui constituent les instructions, terminés par un octet nul qui indique la fin de la ligne.

Les instructions sont elles-mêmes stockées de façon simple: tous les mots réservés, comme Z AP, FOR, PRINT, etc... sont codés par un octet supérieur à 128. Tous les autres caractères (noms de variables, constantes numériques et chaines de caractères) sont codés par leur code ASCII, compris entre 32 et 125.

— Les lignes sont classées en mémoire selon l’ordre de leurs numéros. Il n’y a pas de place perdue, de trou entre deux lignes succes- sives. En #9A-#9B se trouve l’adresse du premier octet du programme, cette adresse vaut normalement #591. Juste après le @ terminant la dernière ligne du programme, on trouve deux autres octets nuls, on a donc en tout trois octets nuls. En #9C-#9D se trouve l’adresse de l’octet qui suit immédiatement ces trois octets nuls.

96

urnes" don ag ere ee ER 1e ligne 2° ligne dernière ligne #9A-49B contient l'adresse contient l'adresse #9C-#9D du 1 octet du de l'octet suivant programme, #501 les trois octets nuls.

normalement

Supposons que vous désiriez trouver l’adresse de début d’une ligne de programme, par exemple la ligne 599. Comme l’adresse de début de programme est stockée en #9A-#9B et que chaque ligne débute par l’adresse de la ligne suivante suivie de numéro, il suffit de taper en mode immédiat.

A=DEEK(# 9A):N=598 return

REPEAT : A=DEEK(A) :UNTIL DEEK(A+2)=N return PRINT A return

Les deux points qui précèdent nous suffisent par écrire un programme qui fabrique des lignes de DATA:

i GOTO 1000

10 REM CES REM FIGURENT LE

20 REM FROGRAMME AUQUEL

30 REM ON DESIRE AJOUTER DES

40 REM ORDRES DATA.

oÙ

1000 DOKE £9C,DEEK(£9C)+5000 :CLEAR 1010 A=DEEK(£9C)D-5000-2:N=2000 1020 L$="";:2=FREC""): PRINT" >": 1030 GET A$S:IF AS=CHR$S(13) THEN 1050 1040 L$=L$+A$S: PRINT À$::GOTO 1030 1050 IF L$="" THEN 1130

1060 DOKE À ,A+LEN(L#)+6:DOKE À+2,N 1070 POKE À+4,145

1080 FOR I=i TO LEN(LS#)

97 -

1090 POKE A+4+I,ASC(MID#(LS,1,1)) 1100 NEXT I

1110 POKE A+S+LEN(LS) ,0 :A=A+LEN(LS) +6 1120 PRINT:N=N+10:GOTO 1020

1130 DOKE A,0:DOKE £9C,A+2:CLEAR

Note: le caractère ” £” est à remplacer par ” #7.

Avant d'exécuter ce programme, vérifiez soigneusement que les lignes 1999 à 1139 sont bien correctes. A chaque fois que le programme affiche ” >”, tapez une ligne suivie de RETURN. Pour sortir du programme, tapez RETURN immédiatement après le ?” >”.

Exemples :

RUN return

> 1,2,3,4,5 return > 6,7,8,9,19 return > return

Ready

LIST return

L’ORIC a ajouté les deux lignes:

/

2998 DATA 1,2,3,4 7,8,9

Re 2919 DATA 6,7,8,9,1

18

Vous pouvez changer le numéro de la première ligne, défini par l’instruction N—24@ de la ligne 1919. On peut changer l’incrément des numéros de lignes, en modifiant l’instruction N=N+19 de la ligne 1129. Vous pouvez aussi ajouter la ligne:

1935 IF A$-CHR$(24) THEN PRINT’ \ ”’:GOTO 1928

qui, en cas d’erreur, permet d’annuler la ligne en cours de frappe en utili- sant la touche CTRL-X.

Le bloc 1999 à 1139 fonctionne de la façon suivante : Le nombre stocke en #9C-#9D est l’adresse de la fin du programme Basic mais aussi celle du début de la zone des variables simples. Pour que les lignes de DATA que le programme va ajouter à sa suite ne détruisent pas ses variables, on commence donc, en 19, par repousser de 5999 l’adresse contenue en #9C. On dispose donc maintenant de 59 octets entre la fin du programme et le début des variables. L’ordre CLEAR qui suit

98

remet à jour les adresses stockées en #9E-#9F et #AŸ-XA 1 (début et fin de la zone de stockage des tableaux).

1919 On va placer dans A l'adresse de la première ligne que l'on va ajou- ter. On met dans N le numéro de cette première ligne.

1929 L$ va contenir la ligne que vous allez taper. Ne pas oublier le ”:" à la fin de la ligne.

1039 On lit un caractère. Si c'est RETURN, on va en 1959.

1949 On ajoute le caractère lu à la chaîne A$ et on l'affiche. Ne pas oublier le ‘’:"" de l’ordre PRINT. Puis on va relire un autre caractère.

Lorsqu'un RETURN a été rencontré, on arrive en 1959.

1959 Si la ligne est vide, on sort du programme, on va en 113Q.

1069 On place à l'adresse A, qui correspond au début de la ligne, l'adresse du début de la ligne suivante. Puis l'on place en A+2 le numéro de la ligne.

1979 On place 145, qui est le code du mot réservé DATA.

1989 à 1109 On place les codes ASCII des caractères que vous avez tapés.

1119 On ajoute à la fin de la ligne un octet nul, puis l'on calcule l'adresse de début de la prochaine ligne.

1129 On incrémente le numéro de la ligne, et l'on va lire une autre ligne en 1920.

1139 Cette ligne est exécutée lorsque l'on sort. DOKE A,9 ajoute deux octets nuls à la suite de la dernière ligne, puis on met en #9C l'adresse de l'octet suivant.

2.6. COMMENT ACCÉLÉRER UN PROGRAMME BASIC

Dans tous les jeux d’action, il est souvent souhaitable d’accélérer au maximum les programmes. Voici donc quelques moyens d’accélérer l'exécution d’un programme Basic. Ces conseils sont valables pour la majorité des Basics, et donc en particulier pour celui de l'ORIC.

99

— Tout d’abord, et ceci est le plus important, remplacer toutes les constantes par des variables.

Exemples : 199 X=COS(9.9174532925x%T) peut être remplacé par:

19 CDR-O.9174532925

ss...

198 X-COS(CDR:+T)

Il est en effet beaucoup plus rapide de rechercher en mémoire la valeur d’une variable que de convertir une chaine de chiffres en un réel.

— A chaque fois que l’on utilise une variable, celle-ci est cherchée en mémoire en partant de l’adresse stockée en #9C-#9D. Pour diminuer ce temps de recherche, on peut:

* diminuer le nombre total des variables, en reutilisant au maxi- mum les mêmes noms. Par exemple, utiliser autant que possible la même variable pour toutes les boucles FOR … NEXT.

* placer au début de la zone des variables celles qui sont utilisées le plus fréquemment, par exemple celles qui sont utilisées à l’intérieur des boucles. Pour cela, utiliser une fois ces variables au début du programme. Si vous ajoutez par exemple la ligne:

1 1=9:J-1:K=-l:L=1I

La variable I sera la première dans la zone des variables simples et sera donc retrouvée instantanément à chaque fois que l’on voudra l’utili- ser. On trouvera ensuite la variable J, puis K, puis L.

— Se méfier des GOTO et GOSUB. En effet, cela prend du temps de retrouver un numéro de ligne dans un programme. Si un sous- programme est utilisé fréquemment, on a intérêt à le placer au début du programme.

100

1 GOTO 1999 REM VERS PROGRAMME 19 REM S-PROGRAMME

ss...

........

ss...

Dans la mesure du possible, remplacer les GOTO par des boucles FOR … NEXT ou REPEAT … UNTIL.

— Lorsque cela est possible, simplifiez ou supprimez les tests.

Exemples : 39 IF V<> Ÿ THEN 199

peut être remplacé par:

39 IF V THEN 199

19 IF A$-CHR$(8) THEN X=X-1 29 IF A$-CHRS$(9) THEN X=X+1

peut être remplacé par la seule ligne: 19 X-X+(A$-CHRS$(8))-(A$—-CHR$(9))

En effet, (A$—CHRS$(8)) est une expression logique qui vaut —1 si elle est vraie, Ÿ sinon. De même (A$—CHRS$(9)) vaut —1 si elle est vraie et Ÿ sinon.

— Diminuez le nombre de lignes en mettant plusieurs instructions par ligne. Pour pouvoir mettre plus d’instructions par ligne, supprimez tous les blancs, ne conservez que les deux premiers caractères des noms de variables.

— Utilisez les variables entières. Évitez les tableaux. — Supprimez les REM.

— Enfin, réécrivez en assembleur les parties critiques du jeu. C’est difficile, mais cela donne des résultats bien plus spectaculaires que tout ce qui précède.

101

2.7 UN PETIT EXEMPLE DE SOUS-PROGRAMME ASSEMBLEUR

Ce programme ne fait pas grand-chose, excepté montrer comment ajouter un sous-programme assembleur simple à un programme Basic. On trace un petit dessin au bas de l’écran HIRES, et on le déplace ensuite vers le haut de l’écran à l’aide du sous-programme assembleur.

On trouve un programme principal, de 19 à 149, puis en 1990 un sous-programme qui trace un petit dessin, puis en 244 un sous- programme qui sert à amener en mémoire les instructions 6592. Nous allons d’abord regarder ces instructions machine.

Le sous-programme 6592 déplace d’une ligne vers le haut une partie rectangulaire de l’écran HIRES. Comme chaque ligne est consti- tuée de 49 octets, il suffit de déplacer de 49 les octets qui correspondent au rectangle.

En entrée du sous-programme, on a:

— en 1-2, l’adresse-mémoire de l’octet qui correspond au coin supérieur gauche du rectangle à déplacer.

— en 3, le nombre de lignes du rectangle. — en 4, le nombre d’octets de chacune des lignes du rectangle.

En sortie du sous-programme, on a déplacé vers le haut d’une ligne le rectangle et :

— en 1-2, l’adresse-mémoire qui correspond au coin supérieur gauche du rectangle qui a été déplacé. C'est-à-dire l’adresse que l’on avait en entrée moins 4ÿ.

— en 3, ce nombre n’a pas été modifié. — en 4, ce nombre n’a pas été modifié. — 5 et 6 sont modifiés.

Ce sous-programme DHAUT appelle lui-même deux sous- programmes NXLIG et PLIG qui ajoutent et retranchent respectivement 4ÿ à l’adresse contenue en 1-2. Ce nombre 49 est celui des octets consti- tuant une ligne écran, ils permettent donc de passer respectivement à la ligne suivante (NXLIG) et à la ligne précédente (PLIG).

102

A6 93 29 XX A5 ÿ1 48

A5 2 48

A4 ÿ4 A5 fÿ1 85 95 A5 #2 85 96 28 XX B1 1 91 95 88

19 F9 CA

19 E9 68

85 42 68

85 91 68

A5 1 18 69-20 85 #1 99 92 E6 92 6ÿ

A5 1 38

E9 28 85 91 Bÿ 92 C6 92 69

XX

XX

DHAUT

TLIGNE

TRCARA

NXTLIG

RTS 1

PLIG

RTS 2

LDA CLC ADC STA BCC INC RTS

LDA EC SBC STA BCS DEC RTS

PLIG

ND

XLIG ), YŸ LE

Gr ZONES

TRCARA TLIGNE 2

1

# 4ÿ

RTS 1

# 4ÿ

RTS 2

Init. compteur de lignes.

Oter 49 à (1-2).

Sauvegarder 1

dans la pile.

Sauvegarder 2

dans la pile.

Init. compteur d'octets par ligne. Recopier 1

en 5, puis

recopier 2en

6.

Ajouter 4 à (1-2).

Prendre un octet et

le recopier, 49 octets avant. | Décrémenter compteur d’octets. Si compteur positif, continuer ligne Sinon, décrémenter compteur lignes Si compteur positif, continuer. Terminé. Récupérer

2et

récupérer

1 puis

retour au programme Basic.

Prendre octet de poid faible en 1 préparer une addition

ajouter 4ÿ et

ranger le résultat.

Si pas de retenue, retour

Sinon, propager la retenue

Fin.

Prendre octet de poids faible en 1 préparer une soustraction retrancher 4ÿ et

ranger le résultat.

Si il y a retenue, retour

Sinon, décrémenter poids fort Fin.

Ce sous-programme est mis en mémoire par les lignes 2900 à 2070.

2910 A est l'adresse-mémoire où l'on va placer les codes. #9C00 corres- pond au début de la zone de stockage des caractères semi- graphiques en mode HIRES. Comme le programme n'utilise pas les

103

2029

2059

2060

caractères semi-graphiques, on n'hésite pas à les écraser, car on a entre #9C00 et #ADOO, 1 Koctet de mémoire dans lequel le Basic ne va pas écrire, tant que l'on ne frappe pas reset.

à 2040 Les 65 octets sont placés en mémoire à partir de l'adresse A.

Le sous-programme DHAUT est le premier, son adresse DH est égale à A. Comme DHAUT fait 41 octets, le second sous- programme NXTLIG débute à l'adresse NX=DH+41. Et comme NXTLIG fait 12 octets, le troisième, PLIG, débute donc à l'adresse PL=NX+ 12.

Après avoir calculé les adresses DH, NX et PL des sous- programmes, on peut ajouter au sous-programme les adresses de PLIG et NXTLIG, en DH+3 et DH+22 respectivement.

Pour utiliser DHAUT, on commence par placer en (1-2) l’adresse de l’octet qui correspond au coin supérieur gauche du rectangle à dépla- cer, ce qui est fait en 69. En 79, on place en 3 le nombre de lignes du rectangle, 41, et on place en 4 le nombre d’octets par ligne de ce rectangle, soit 9. Le sous-programme est appelé à la ligne 119 par CALL DH. Cet ordre est situé dans une boucle, le sous-programme est appelé 159 fois de suite, on déplace donc de 159 lignes vers le haut le dessin.

104

Pour finir, voici le listing du programme:

10 KRKEM FACE DE LUNEXKXKXKXKXXXKXKXXXXXXXXXXX 20 MIRES

30 GOSUR 2000

40 :

30 X=50+15O0XARND (1): Y=170

60 DOKHE 1, HAO0OO0+4(V-20) X40+X/6-5

70 POKE:Ssañ4l2PORE 4,7

GO MUSIL. Fe Li LSUSPERATY ss, 100

90 GOSUR 1000

100 FOR Izi TQ 150

TO CELL DAS SOUND: LOU IsE0

120 NEXT

1:50 HIRES: GOTO 50

140 :

LOUE HE DES S LM ne en ne EE NS ARE En ee LUI0 CÜRSET XsYiS

1020 FOR Kai TQ SO: CIRÇCLE K,1:NEXT 1050 FOR 1=-1 TO 1 STEF 2

19040 CURSET X+IKk9,Y-10,0

1050 FOR J=i TO S:CIRCLE J.OsNEXT J 10640 CURSET X+IK7.Y—10,1

1070 FOK J=0 T0 6

10890 CURSET. X+IKU, Y-JS/oriI0s0

1090 CURSET X+I1KJ:Y-J"2/6+11,0

1100 NEXT J

11160 NEXT I

LIPOEURSET. XP rre02

1150 FILL. 40, 1, L+/XANDEE )

1140 RETURN

2000 REM SOUS-PROGRAMMES 650 hu oste 2010 =K#9CQ00

2020 FOK Is TO +64

2050 KREAD ViFOKRE I, V

“040 NEXT IT

2080 DHzA:s NX=DH+41: FLENX +1

2060 DOKE DH+S.PLSIDOKE DH+22, NX

2070 RETURN

2 1)E30

2OPO: MEME DAT sims Rss esse Net es

105

106

2100 2110 120 2150 2140 190 2160 +0 2160 Te 200 2210 DU

des bros deu

7 D e.10

DATAHAG, HOS, HEO, HFF, RFF, HAS, #01 DATAHAG, HAT, HO, #46, HA, HO4, HAS DATAHOL, #55, HO, HAS, HOT, HAS, HOË DATAHEO,HFFHFF SHELL, HO, #91, HOS DATAHBS,HIO,HF9, HCA, #10, HE9, #68 DATAHGS,HOË, #66, #95, #01, #60

REM NXTLIG..... a DATAHAS, HO1, #18, #69, 478,405, #01 DATAHPO, HOD,HED, HO, H6O

REM FLIG....... da de nt Le DATAHAS, HO1L, HIS, HE, #28, #05, #01 DATAHEO, HO, HC6, #OË, #60

Annexes

Effet de la touche ou de PRINT CHRS${code)

CTRL-A relit un caractère sur l'écran.

Aucun

CTRL-C interrompt un programme basic.

Provoque un affichage double. Les caractères suivants seront affichés deux fois chacun. Pour annuler, utiliser de nou- veau CHRS$(4) ou CTRL-D

Aucun

3.1 TABLE ASCII DE L'ORIC/ATMOS

Effet de PLOT X,Y,code

Tous les caractères affichés sur la ligne Y et situés après la colonne X sont noirs.

Tous les caractères affichés sur la ligne ŸY et situés après la colonne X sont rouges.

Tous les caractères affichés sur la ligne Y et situés après la colonne X sont verts.

Tous les caractères affichés sur la ligne ŸY et situés après la colonne X sont jaunes.

Tous les caractères affichés sur la ligne Ÿ et situés après la colonne X sont bleus.

Tous les caractères affichés sur la ligne Y et situés après la colonne X sont violets.

107

Code ASCII

11

Le

108

Touche

CTRL-F

CTRL-G

CTRL-H ou +

CTRL-I ou —

CTRL-J ou Ÿ

CTRL-K ou Î

CTRL-L

Effet de la touche ou de PRINT CHR${code)

Supprime le ‘’plop” que l'on entend lorsque l'on frappe une touche. Pour retrouver le bruit, réutili- ser CHR$(6) ou CTRL-F.

Fait retentir PING.

Déplace le curseur un cran à gauche.

Déplace le curseur un cran à droite.

Déplace le curseur un cran vers le bas.

Déplace le curseur un cran vers le haut.

Efface l'écran.

Effet de PLOT X,Y,code

Tous les caractères affichés sur la ligne ŸY et situés après la colonne X sont bleus ciels (cyan).

Tous les caractères affichés sur la ligne Y et situés après la colonne X sont blancs.

Tous les caractères affichés sur la ligne Y et situés après la colonne X seront:

— en hauteur simple,

— en affichage fixe,

— jeu de caractères . standard.

Tous les caractères affichés sur la ligne Y et situés après la colonne ŸY seront :

— en hauteur simple,

— en affichage fixe,

— jeu de caractères semi- graphique.

Tous les caractères affichés sur la ligne Y et situés après la colonne X seront:

— en double hauteur,

— en affichage fixe,

— jeu de caractères standard.

Tous les caractères affichés sur la ligne Y et situés après la colonne X seront:

— en double hauteur,

— en affichage fixe,

— jeu de caractères semi- graphique.

Tous les caractères affichés sur la ligne Y et situés après la colonne X seront:

— en simple hauteur,

— en affichage clignotant, — jeu de caractères standard.

Code ASCII

13

14

29

21

Touche

CTRL-M ou RETURN

CTRL-N

CTRL-O

CTRL-P

CTRL-Q

CTRL-R

CTRL-S

CTRL-T

CTRL-U

Effet de la touche ou de PRINT CHR${code)

Envoie le curseur au début de la ligne suivante.

Efface la ligne ou se trouve le curseur.

Aucun.

Aucun.

Supprime le curseur. Pour le retrouver, réutiliser CHR$(17) ou CTRL-Q.

Aucun.

Supprime l'affichage. Pour le rétablir, réutiliser CHR$(17) ou CTRL-S.

Passage en minuscules. Pour obtenir une majus- cule, utilisez SHIFT. Pour revenir en majuscules, réutilisez CHR$(20) ou CTRL-T.

Aucun.

Effet de PLOT X,Y,code

Tous les caractères affichés sur la ligne Y et situés après la colonne X seront:

— en simple hauteur,

— en affichage clignotant, — jeu de caractères semi- graphique.

Tous les caractères affichés sur la ligne Ÿ et situés après la colonne X seront:

— en double hauteur,

— en affichage clignotant, = jeu de caractères standard.

Tous les caractères affichés sur la ligne Y et situés après la colonne X seront:

— en double hauteur,

— en affichage clignotant, — jeu de caractère semi- graphique.

Le fond (PAPER) de la ligne Y, à partir de la colonne X, sera noir.

Le fond (PAPER) de la ligne Y, à partir de la colonne X, sera rouge.

Le fond (PAPER) de la ligne Y, à partir de la colonne X, sera vert.

Le fond (PAPER) de la ligne Y, à partir de la colonne X, sera jaune.

Le fond (PAPER) de la ligne Y, à partir de la colonne X, sera bleu.

Le fond (PAPER) de la ligne Y, à partir de la colonne X, sera violet.

109

Code ASCII

22

23

24

25

26

27

28

29

110

Touche

CTRL-V

CTRL-W

CTRL-X

CTRL-Y

CTRL-Z

CTRL-[ ou ESC

CTRL-/

CTRL-|

Effet de /a touche ou

de PRINT CHRS${code)

Aucun. Aucun.

CTRL-X annule la ligne en train d'être frappée.

Aucun.

A la même action que ESC. Voir ci-dessous.

Ce caractère n'est pas

affiché, et ne déplace pas le curseur. Par contre, le caractère suivant sera af- fiché après que ses bits b, et b, aient été mis à zéro.

Aucun.

Normalement, lorsque l'on frappe sur une touche ou que l'on exécute PRINT, aucun caractère n'est affiché dans les deux premières colonnes de l'écran. Le caractère per- met d'utiliser ces colon- nes. Mais alors les textes sont blancs sur fond noir, car les caractères com- mandant la couleur de l'écran et du texte, qui se trouvent normalement dans ces deux colonnes, sont écrasés. Réutilisez CHR$(29) ou CTRL-| pour revenir comme avant.

Effet de PLOT X,Y,code

Le fond (PAPER) de la ligne Y, à partir de la colonne X, sera cyan.

Le fond (PAPER) de la ligne Y, à partir de la colonne Ÿ, sera blanc.

Passage en texte 60 Hz. Ne pas utiliser, perturbe l'affi- chage.

Passage en texte 60 Hz. Ne pas utiliser.

Passage en texte 50 Hz, rend l'affichage normal.

Passage en texte 50 Hz, rend l'affichage normal.

Passage en graphique 60 Hz. Ne pas utiliser, perturbe l'affichage.

Passage en graphique 60 Hz. Ne pas utiliser, perturber l'affichage.

Code ASCII

39

32 33 34 35 36 37 38 39 49 41 42 43 44 45 46 47 48 49 59 51 52 53 54 55 56

Touche

Pas de touche

CTRL-DEL

barre d'espacement

—

DO M OO où BR À NN

200002 00900222 ee

Effet de la touche ou de PRINT CHRS{code)

CHR$(30) renvoie le curseur dans le coin supé- rieur gauche de l'écran, qui n'est pas effacé.

Affiche un ! Affiche un ” Affiche un # Affiche un $ Affiche un % Affiche un & Affiche un” Affiche un { Affiche un) Affiche un *

Affiche un +

Affiche un,

Affiche un — Affiche un.

Affiche un / Affiche un @ Affiche un 1 Affiche un 2 Affiche un 3 Affiche un 4 Affiche un 5 Affiche un 6 Affiche un 7 Affiche un 8

| Affichage normal.

Affiche un espace, un blanc

Effet de PLOT X,Y,code

Passage en graphique 50 Hz. Affichage normal.

Passage en graphique 50 Hz

(guillemet) (dièse) (dollar)

(apostrophe)

(signe de multiplication)

(signe de division, slash)

Code ASCII

57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87

à

Touche

IO nm on ww > ® + V

ee EC SO DÉCO = SF AE

Affiche un 9

Affiche un :

Affiche un ;

Affiche un < Affiche un = Affiche un > Affiche un ?

Affiche un @ Affiche un A Affiche un B Affiche un C Affiche un D Affiche un E

Affiche un F Affiche un G Affiche un H Affiche un |

Affiche un J

Affiche un K Affiche un L

Affiche un M Affiche un N Affiche un O Affiche un P Affiche un Q Affiche un R Affiche un S Affiche un T

Affiche un U Affiche un V Affiche un W

Effet

(colon)

(semi-colon)

Code

ASCII

88 89 99 91 92 93 94 95 96 97 98 99

100

191

192

193

194

195

196

107

198

199

| 119

112 113 114 115 116 re?

Touche

N << x

a —

> —

£

pas de touche

— © On MO © 0: ?»P

C 10 7 Pp vVv OZzZ< rt

Affiche un X Affiche un Y Affiche un Z Affiche un fl Affiche un \ Affiche un | Affiche un Affiche un £

Affiche un (©)

Affiche un a Affiche un b Affiche un c Affiche un d Affiche un e Affiche un f Affiche un g Affiche un h Affiche uni Affiche un j Affiche un k Affiche un Affiche un m Affiche un n Affiche un o Affiche un p Affiche un q Affiche unr Affiche un s Affiche unt Affiche un u

Effet

(crochet ouvrant) (backslash) (crochet fermant)

t

(livre)

Pour obtenir les minuscules au clavier,

frapper d'abord CTRL-T

113

Code

ASCII Touche Effet 118 V Affiche un v

119 W Affiche un w

129 X Affiche un x

121 Y Affiche un y

122 Z Affiche un z

123 { Affiche un

124 | Affiche un |

125 Affiche un

126 pas de touche Affiche un carré clair 127 DEL DEL annule un caractère

CHR$(127) affiche un carré sombre.

Les codes 128 à 255 provoquent les mêmes effets que les codes de @ à 127. Avec deux petites diffé- rences :

— les codes 128 à 159 sont affichés, alors que les codes @ à 31 ne le sont pas. CHR$(128) a le effet que ESC , CHR$(129) a le même effet que ESCA, …, etc.

— les caractères correspondant aux codes de 128 à 255 sont affichés en vidéo inverse, lorsqu'on les utilise avec PLOT.

3.2 TABLE DES ATTRIBUTS VIDÉO

Les codes ASCII 9 à 31 ont une action spéciale lorsqu'on les place

dans la zone mémoire correspondant à l’écran TEXT ou HIRES.

Ils permettent de choisir la couleur de l’encre, du fond, le jeu de

caractère, normal ou semi-graphique, la taille des caractères et le clignotement.

114

Pour placer un code dans la mémoire-écran, vous pouvez:

— Exécuter POKE adresse, code

— Exécuter PLOT X,Y,CHRS$(code) ou PLOT X,Y,.code — Exécuter PRINT CHR$(27); CHR$(code +64)

— Frapper la touche ESC puis la touche dont le code ASCII vaut code +64.

Par exemple, pour code—ÿ, code+64 vaut 64 et CHRS$(code+64) vaut ” @ ”. Pour code=l, code+64 vaut 65 et CHR$(code+64) vaut PR

Chacun de ces codes est actif depuis l’endroit où il se trouve jusqu’à la fin de sa ligne.

Attributs de @ à 15

Avec POKE ou PLOT code

Avec PRINT Depuis le clavier Action

sur le système vidéo

PRINT CHR$(27);"@" ESC @ encre noire

PRINT CHRS$(27);"A" ESC A encre rouge

PRINT CHRS$(27);"B" ESCB |encre verte

PRINT CHRS$(27);"C" ESC C encre jaune

PRINT CHR$(27);"D" ESC D encre bleue

PRINT CHR$(27);"E" ESC E encre magenta

PRINT CHRS$(27);"F" ESC F encre cyan

PRINT CHR$(27);"G” ESC G encre blanche

PRINT CHRS$(27);"H" ESCH [simple hauteur, fixe, normal

PRINT CHRS$(27);"1" ESC: simple hauteur, fixe,

semi-graphique

115

19 PRINT CHRS$(27);"J" double hauteur, fixe, normal

11 PRINT CHRS$(27);"K" double hauteur, fixe, semi-graphique

12 PRINT CHRS(27);"L" simple hauteur, clignotant, normal

19 PRINT CHR$(27);"M" simple hauteur, clignotant, semi-graphique

14 PRINT CHR$(27);"N" double hauteur, clignotant, normal

15 PRINT CHR$(27);"0" double hauteur, clignotant,

semi-graphique

Les codes de Ÿ à 7 permettent de fixer la couleur de l’encre, tandis que les codes 8 à 15 sélectionnent le type de caractère employé, un caractère peut en effet être:

— normal ou semi-graphique

— simple hauteur ou double hauteur

— fixe ou clignotant

Attributs de 16 à 31

Avec POKE ou PLOT code

Action sur le système vidéo

Avec PRINT Depuis le clavier

PRINT CHRS$(27);"P" ESCP écran noir PRINT CHRS(27);"Q" ESC Q écran rouge PRINT CHRS$(27);"R" ESCR écran vert

116

19 PRINT CHR$(27);"S" ESCS écran jaune

20 PRINT CHRS$(27):"T" ESC? écran bleu 21 PRINT CHRS$(27):'"U" ESC U écran magenta 22 PRINT CHRS(27):"V" ESC V écran cyan 23 PRINT CHRS$(27):'"W" ESC W écran blanc 24 PRINT CHRS$(27):"X" ESC X mode texte en 60 Hz 25 PRINT CHRS$(27):"Y" ESC Y mode texte [en 60 Hz 26 PRINT CHRS$(27):"2Z" ESC Z mode texte en 50 Hz 27 PRINT CHRS$(27):" { ” ESC | mode texte en 50 Hz 28 PRINT CHR$(27);" |” ESC | mode graphique en 60 Hz 29 PRINT CHRS$(27):" | " ESC | mode graphique en 60 Hz 30 PRINT CHRS$(27); pas de touche | mode graphique CHRS$(30) en 50 Hz

31 PRINT CHR$(27): ESC DEL mode graphique CHR$(31) en 50 Hz

Les codes de 16 à 23 permettent de fixer la couleur de l’encre, tandis que les codes 24 à 31 commandent le mode vidéo. On peut:

— être en mode texte (TEXT et LORES) ou en mode graphique (HIRES)

— balayer l’écran 50 fois ou 60 fois par seconde. En France, le balayage se fait en 50 Hz.

117

3.3 LE MICROPROCESSEUR 65202

Le microprocesseur 6592, qui équipe votre ORIC, est capable de

manipuler,

de traiter des données de 8 bits (octets), et engendre des

adresses de 16 bits. Il dispose de 7 registres :

*

X et Ÿ :

118

accumulateur À

index X

index YŸ

compteur ordinal PC

r-

pointeur de pile S

NIVIBIDI1IZIC] étatP

: Ce registre de 8 bits contient le résultat de toutes les opéra-

tions, logiques ou arithmétiques.

Ces deux registres de 8 bits peuvent servir de compteur ou servent à construire une adresse.

: Ce registre de 16 bits contient l’adresse de la prochaine ins-

truction à exécuter.

: Ce registre de 8 bits contient l’octet de poids faible du poin-

teur de pile. L’octet de poids fort vaut 1, car par construction du 6592, la pile est située entre 199 et 1FF (adresses hexa- décimales).

: Ce registre de 7 bits contient 7 indicateurs.

N Indicateur de résultat négatif. V Indicateur de débordement (Overflow). B Indicateur de BREAK.

D Indicateur de mode de calcul décimal.

I Indicateur d’interruptions masquées. L Indicateur de résultat nul (Zéro). e Retenue (Carry).

Le 6502 dispose de 13 modes d’adressage qui sont :

ADC

AND

ASL

BCC

Immédiat

Page zéro

Page zéro indexé par X Absolu

Absolu indexé par X Absolu indexé par Y Indirect pré-indexé par X Indirect post-indexé par Y Accumulateur

Implicite

Relatif

Indirect

Page zéro indexé par Ÿ

ex : LDA #FF

LDA 1

LDA 1,X

LDA 1909 LDA 1999,X LDA 1900,Y LDA (1999,X) LDA (19909),Y ROL

TAX

BNE 1909 JMP (19900) LDX 1,Y

Le 6592 dispose de 56 instructions qui sont :

L'opérande est ajouté au bit C de retenue et à l'accumulateur, le

résultat est dans l'accumulateur.

On effectue le ET logique bit à bit de l'’accumulateur et de l'opé- rande, le résultat est dans l'accumulateur.

L'opérande est décalé d'un bit vers la gauche.

7

g

Branchement relatif lorsque C — @ (pas de retenue).

119

BCS BEQ BIT

BMI BNE CRE BRK BVC BVS CLC CLD CLI CLV CMP

CPX CPY DEC DEX DEY EOR

INC INX INY JMP JSR LDA

120

Branchement relatif lorsque C — 1 (retenue). Branchement relatif lorsque Z = 1 (résultat nul).

Positionne les indicateurs suivant le résultat de la comparaison bit à bit de l'opérande et de l'accumulateur.

Branchement relatif lorsque N = 1 (résultat négatif). Branchement relatif lorsque Z = @ (résultat non nul). Branchement relatif lorsque N = @ (résultat positif). Break, déroutement software.

Branchement relatif lorsque V — @ (pas d'overflow). Branchement relatif lorsque V = 1 (overflow). Positionne à @ l'indicateur C (carry).

Positionne à @ l'indicateur D (mode décimal). Positionne à @ l'indicateur | (interruptions démasquées). Positionne à @ l'indicateur V (overflow).

Compare l'accumulateur et l'opérande et positionne en consé- quence les indicateurs.

Compare le registre X et l'opérande, positionne les indicateurs. Compare le registre YŸ et l'opérande, positionne les indicateurs. Décrémente d'une unité l'opérande.

Décrémente d'une unité le registre X.

Décrémente d'une unité le registre Y.

"OÙ" exclusif bit à bit de l'opérande et l'accumulateur, le résultat est dans l'accumulateur.

Incrémente l'opérande d'une unité. Incrémente le registre X d'une unité. Incrémente le registre Y d'une unité. Branchement absolu inconditionnel. Appel d'un sous-programme.

Charge l'opérande dans l'accumulateur.

LDX LDY LSR

NOP ORA

PHA PHP PLA PLP

ROL

ROR

RTI RTS SBC SEC SED SEI

Charge l'opérande dans le registre X. Charge l'opérande dans le registre Y.

L'opérande est décalé d'un bit vers la droite.

7 Q Lee 7 fe

Pas d'opération. Ne fait rien.

"OÙ" bit à bit de l'opérande et l'accumulateur, le résultat est dans l'accumulateur.

Empile l'accumulateur. Empile les indicateurs (registre P). Dépile l'accumulateur. Dépile les indicateurs (registre P).

Rotation d'un bit vers la gauche au travers de C de l'opérande.

7 g

Rotation d'un bit vers la droite au travers de C de l'opérande. 7 Q

opérande

Retour de sous-programme de traitement d'interrruption. Retour de sous-programme.

Retranche à l'accumulateur l’opérande et la carry. Positionne à 1 l'indicateur C (carry).

Positionne à 1 l'indicateur D (mode décimal).

Positionne à 1 l'indicateur | (masque les interruptions).

121

STA Range l'accumulateur en mémoire. STX Range le registre X en mémoire. STY Range le registre Ÿ en mémoire. TAX Recopie A dans X.

TAY Recopie A dans Y. |

TSX Recopie S (pointeur de pile) dans X. TXA Recopie X dans A.

TXS Recopie X danssS.

TYA Recopie Y dans A.

122

4edo 59g Jne,e1

O = 9 !s eyoueiq 298

x'18d0 Sy x njosqe 42d0 Sy njosqe x'19d0 Sy X'019z eBed

1840 Sy 019z e6ed 1SY | 1ne)}e/nuwno9e euonef e eBe/e9ep 71Sv c A'(18d0) GNv A'(9811pui) c (X'18d0) GNv (X'19811puI) € A'18d0 GNY A'nIosqe € x'18d0 GNv x'njosqe £ 4ed0 GNY njosqe z x'18d0 gNy | x'0197 oed u1qe1q,13. t 4ed0 GNY 019z eBed z 18d0# ANY Jelpauiuul V+W'v aNv t A'(18d0) 3qv A'9811pu) z (X'12d0) 3qv (X‘19811pul) € A'18d0 5qv A'nIosqge € x'18d0 5qv x'njosqe £ 48d0 5qYv njosqe Z xX'18d0 5qv x'019z eBed t 4ed0 5qv 019z eBed t 1edo# 5 elpoui ul V+D+W+v 2av A QG 1 9 Z N Sa1IDOW oi de ee N Lu uone19d0 enbluowauyy

SIN9]29/PU/

123

RE OR S9IPOW s1N9]29/pU/

S19]20,p 9/QWON

9219 e}191/duui |

sado SAg

Om

AW 16 18d0 118 njosqe NN ve 48d0 1]g 019z e6ed W'v

jne/81 | = AIS auyoueiq

Q = AIS eyoueiq

e}91duu! ]ueu8}n019p

Jne]81 O = N!S aeuyoue1q

Q = Z IS eyoueiq

| = N IS aeuyoueiq

| = Z IS euoueiq

L — 9 IS eyoueiq

| os. 4ed0 S5g Je/91

sabessape p SIPOW

VX3H | 1n9/quw8SSse

9p0 axeJuAS uorne19dO

919

SA

918

148

148

3Ng

IWg

9nbIUOWaU

124

njosqe 019z eBed jeIpeuu

48d0 149 48d0 149 18d0# 1d9

W—A IUBAINS sin8]e91pul Sa] euuoisod

90 0 0 7 7Z NN

4edo xd 4ed0 xd) Jedo# xd)

njosqe 019z eBed jelpeuuil

W—X JueAIns sina}e9Ipul Sa| euuorisod

A'(18d0) 4W9 A'(19811put) (X'18d0) 4W9 (X‘19811put) °A‘18d0 JW A'nosqge xX'18d0 JW x njosqe 40d0 4W9 njosqe X'18d0 4W9 X'019z eBed 48d0 4W9 019z e6ed W—vY JueaIns

do# 4W9 Je/pauuwuI! | Sina}29IpuI Sa] auuoisod

oyo1duu

eyo|duu!

S19]20,p 9/QUON

1n9/qu9sse a9XEJUAS

sabessa1pe p SIPOYW

S1N9]29/pU/

Ad9

Xd9

dW9

A9

M9

UT ou

129

SONORE ZON XNI

34 x'18d0 5NI 33 18d0 SN 94 x'18d0 5NI 93 18d0 5N|

A'18d0) HO3 (xX'18d0) HO3 A'18d0 403 x'18d0 403 48d0 403 x'18d0 403 48d0 H03 Jedo# H03

A3Q

NNNMMMNAN Nm m Lun

O œo

x'12d0 93q

48d0 53q x'18d0 593 4840 93q

£ _:| 3q € 39 C ga C

A a I 92 Z N SpHIPOUI

/n8/qwesse

S1N9)89/PUJ EXBJUAS

99 S18220,p | YX3H 9/QUON | 2p02

eyo1duul

x'njosqge njosqe X'019z eBed 019z eBed

À (19811pul) (X19811pul) A'njosqe x'njosqe njosqe X'019z eBed 019z eBed jelpeuul

x'njosqe njosqe xX'019z eBed 019z eBed

sabessaipe p

S8POYW

ATH TA

1q e 11q

JjISN|9xXe , NO. V+-W ® v

AFL—A

WEI—-W

XNI ONI 403 A3q ET Es

is re

126

e + © © 7 NN

N°: © E 92: Z NN SpJIPOUI SIN9]22/pPU/

om om NNNMMMNN NNNMmm

|

S]9120.,P

9/QUWON

QT

29 JŸ

89

VX3H 9p07

Ado xaq7 4ed0 xgq7 A'18d0 xq7 4ed0 xgq7 Jdo# xq7

A'(18d0) yq7 (X'18d0) ya7 A‘18d0 \/g7 x'18d0 \/q7 48d0 q7 x'19d0 ygq7 48d0 \7g7 Jedo# \/q7

4840 ySf

(18d0) 4Wr 48d0 af

ANI

1n9/qu8Sse exXeJ]UAS

A'nJosqe njosqe ÀA'019z eBed 019z eBed jelPeuuiI

À (981/pul) (X'811pul) A‘nlosqe x'njosqe njosqe X'019z eBed 019z eBed jelpauull

)9811puI njosqge

ey191duui

sabessa1pe p S9POW

xqa1

H9d+{(z+9d)

19d+{(L1+9d) +94 elidue

H9d+(T+9d) 19d+{(1+9d)

vai EE ue

127

A'(18d0) yHyO (X'18d0) yyO A'18d0 YHO x'18d0 YHO 4ed0 YO x'12d0 YyO 4ed0 YO Jedo# YO

NNNMMMNN |

x'18d0 4s7 4ed0 yS7 x'19d0 y4S7 48d0 yS7 us

€ 98 x'19d0 4gq7 € 9V 1840 17 c vg x'18d0 1g7 z tv 18d0 1q7 Z Ov Jdo# 17

NŒE 92 Sg/Ipou

S]9120,p 9/QUON

1n9/qW8SSe axXeJUAS

SIN9]29/pU/

ine}e|NnuWin99e

sabessa1pe p SIpOYW

ed v elidus | VHd

A'(19811pui) (xX'19811pul) A‘njosqge x'njosqge njosqe X'019z eBed 019z eBed Jelpeuuul

1gqe3}q,. NO. V+ WAV

x'njosqe njosqe X'019z eBed 019z eBed 2}I01P R

11q un ,p eBe/e99p HS7

x'njosqe njosqe X'019z eBed 019z eBed

Jelpeuu! AW

uone19d0 anbIuowauy

EL a —)

128

a

SÿIJIPOu S1N8]229/PU/

9

Z

S19)20,p 9/QUWON

ILE

x'12d0 HOH 4940 HOH X'18d0 HO 18d0 HOH OH

x'18d0 104 1840 0H x‘18d0 104 19d0 10H 10H

1Nn9/qW98SSe 9XEJ]UAS

ey191jduul

x‘njosqge njosqe xX'019z eBed 019z eBed ine}e|nuwn929e

x njosqe njosqe xX'019z eBed

019z e6ed in8}e|nuwin99e

eyo1duul

sabessa1pe p SIpOW

euwue16o1d-snos ap 1n0]91

uol}dn11ej}u! p 1n0}91

9HOIP € }1q Un p uolje]oy

euyonef e 11q un p uolje]o}

d elidgp

v el!dop

po ame

SLH

ILH

HO

104

did

vi

Q. L Q Q

ES

129

AG!) ZN

SgyIpOU sIN9)82/pU/

S19]20,p 9/QUON

A'(18d0) y1S (x'1e8d0) y1S A'12d0 Y1S x'12d0 y 1S 48d0 \1S x'12d0 Y1S 48d0 \1S

A'edo) gs (X'18do) 5gs A'18d0 5gS x'18d0 5gs 4ed0 5gs x'18d0 5gs 4edo 5gs Jedo# 5gs

NNNMMMNON

1n9/qW8SSe SaxeJ]uAS

A'(19811pul) (X'81/pul) A‘njosqe x njosqe njosqe xX'019z eBed

019z eBed W+v Vis e]191duut IL ous eyo1duui 91 93S

A (39811puI) (X9811pui) A'nlosqe x'njosqe njosqe X'019z eBed 019z eBed jelpeuuil

sabessa.pe p

sepoyy uonje:8d0

anbluouauy

130

| SglJIPOU SIN9]829/PU/

S29120,p 9/QUWON

njosqe X'019z eBed 019z eBed

4edo X1S njosqe A'18d0 x1S À'019z eBed 12d0 X1S 019z eBed

/Nn9/qW8SSe sebessaipe p S9XBJ]UAS SpOW

131

Imprimerie de la Manutention à Mayenne Dépôt légal: juillet 1984 N° d’Editeur : 4150

Après «ORIC-1 à la conquête des jeux», Voici maintenant _ &ATMOS à la conquête des jeux », qui reprend l'ouvrage précé- dent en y ajoutant toutes les améliorations de l'ATMOS.

«ATMOS à la conquête des jeux » se propose de vous entrai- ner dans son univers de programmes, celui des jeux, des dessins en couleur, des sonorités synthétiques informatiques. Vous y rencontrerez une gentille petite chenille, six caméléons et quel- ques gloutons. Vous voyagerez dans l'espace intersidéral. Vous verrez la tour de Hanoï, un grand mur de briques. Vous vous mesurerez au Master-Mind.

Nul doute qu'après tout cela, vous désiriez mieux connaître votre ATMOS et, pourquoi pas, programmer vos jeux. Pour vous aider et vous guider dans ce labyrinthe aux 65536 adresses, «ATMOS à la conquête des Jeux » vous révèle le contenu de la mémoire de ATMOS, comment redéfinir les caractères, tous les trucs des modes HIRES et TEXT, et même, mais oui, comment fabriquer des lignes de programme Basic avec un autre program- me...

Bon amusement !

EYROLLES | 8706

| see

| CCE TES EN