Dans ce numéro de SIN, Vous trouverez un autre article sur 13 programmation machine du 2068, cette fois on discute de la production d'effet sonore. Egalement, Sinon SIDE Raus offre ses 2 nouvelles chroniques SPECTRODRAMME et ZONE INTERDITE, La première traite des jeux disponible pour SPECTRUM i la dernièra est pour vous, "petit tricheur" qui veulent faire des scores sensationnelles en ayant un nombre illimité de vies! En primes, voici quelques PÜKES que vous oouvez mettre dans le LOADER du jeu, avant l'instruction RANDOMIZE USR ..,

ASTRO BLASTER POKE 27522,1e nombre de vies désirées

ATIC ATAC POKE 36519,0 pour vies infinies

GYROSCOPE POKE 59519,0 gèle le temps à 59 secondes

LUNAR JETMAN POKE 35955,0 pour vies infinies

MANIC MINER POKE 35142,0 pour vies infinies

SABRE WULF POKE 44885,1865 POKE 44676,255 FOKE 44577,80 reste cyan toujours

1100 POKE 24733,0 gour vies infinies

Vous pouvez écrire à Sinon à l'adresse suivante: 44 Yayburry, Hull, Québec , J98 105.

Pour le AL, on trouve 2 programmes. Le oremier de Jean-Claude Touzin sert à faire des "BACKUPs" de nicrodrives, Le deuxième est un utilitaire, OL-SUBSTITUTION au GL-SWAP, Egalement pour le El,

'ai pensé mettre sur pied "une Sancue de logiciels du domaine 111 Ces programmes n'étant pas des logiciels commerciaux, ils peuvent être distribués gratuitement,

Voilà j'espère que ce numéro vous olaira. Si vous aver des conmentaires, n'hésitez pas à me les faire parvenir!

Real-o

OL SOFTWARE

L'éditeur français PYRAMIDE offre un SUPER CROUPIER sour le QL. En fait, ce logiciel est composé de & jeux soit la ROULETTE, le BACCARAT, ie CARTA + ALTA, ie POKER et enfin une SLOT MACHINE vient completer le tout,

APRES LE 7X81, LE SPECTRUM ET LE OL : LE 788 De temps en temps, en Angleterre, il y a des grandes expositions informatiques. Une de ceiles-ci, The Which Computer? Show, a vu CLIVE SINCLAIR presenter son nouveau bébé, le 188, Ce nouvel ordinateur est de type PORTABLE et il est produit par la nouvelle compagnie CAMBRIDGE COMPUTER LTD. Le 288 est petit, moins grand qu'une feuille de papier 8.5"xii" et oèse moins que 2 livres!

I] possède 32K de RAM en standard et elle peut augmentée jusqu'à 3Meg avec l'aide de cartouches. En plus le 188 offre une ROM de 128K, Cet RUR contient le système d'exploitation, un traitement de texte et un tableur électronique, en plus il y a quelques utilitaires comme une calcuiatrice, un carnet de notes et une horloge/călendrier, Bati autour d'un 180, le 788 peut être alimenté par le secteur ou par des piles. Avec 4 piles, l'ordinateur peut fonctionner "activement" pendant 20 heures.

Mais si l'ordinateur ne fonctionne pas, les piles garderont le

contenu des mémoires intactes pendant plus d'un lan, Si vous écrivez un texte et que vous ferner le 188, votre texte sera

gardé en mémoire et vous pourrez retravailler dessus le lendemain.

Il y a un port série R5232 aui peut permettre la communication avec un autre ordinateur, Il y a divers connecteurs pour l'ajout des cartouches RAM/ROM, L'écran intégré est de type cristaux liquides et comporte 8 lignes de 80 caractères.

Son prix de vente initial est de 230 livres sterling.

Tu ne devrais nas mentionner dans tes lettres que tu aimes recevoir du courrier. Car tu risoues recevoir des lettres "problèmes", comme celle-ci...

Il s'agit d'ABACUS, Tu trouveras dans cette enveloppe une feuille qu'ABACUS ae sort quand je demande une copie des formules que j'emploie dans un programme (dans ce cas-ci, un rapport d'impat prov.), Quant aux valeurs numériques, aux signes <) = etc, IF etc, ga semble correct. Mais les numéros des cellules (C10, 043, 831, etc) mon vieux c’est quelque chose! Je dois dire cependant que ce probléme mis à part (je copie les formules à la main) ABACUS est très facile d'emploi pour un programme aussi conplexe.

Jean-Claude Touzin ta Sarre

Wand

Prenons l'exemple suivant:

| A | B | C | li Fi F2 d 3! 4: 81 b i "EE F3 Les formules sont: Fi -} Bi*B2 F2 =) 51/82 F3 -) Ci ABACUS nous dit ceci : Fia CAT Toi LIREH13 F2 : CC-ZIRESQ1/CE- E2RES 11 F3 : BEARREAN

La notation employée par ABACUS est RELATIVE, i.e. oue si dans une formule on fait référence à une ceilule alors la position de celle-ci est donnée par rapport à la cellule où se trouve cette formule (ouf,..).

Les cellules sont identifiées par 2 coordonnées soit ZIOEI), C signifie COLUMN (pour colonne) et R signifie ROW pour rangée).

Si l'on prend Fi (Bi+B2), Bi est identifié comme CCT AL) par rapport à Ai, donc i coiorne à droite et ia même rangée. B2 est CITIIRLT II, 1 coionne à droite et 1 rangée en bas. Môme chose pour F2 mais par raogort à Ci, Pour F3 oui se trouve à CB, nous faisons référence à CI, gu dans ia même colonne mals 7 rangée plus haut (-7).

il faut se rappeler pour ies colonnes:

Déplacement Positif -} vers ia droite Désiacement Negatif -> vers la 9

pour les rangées:

SA vers le bas

Deniacement Positif Népatif -? vers le haut

Déplaceaent

Réal-0

J'aimerais savoir si le lecteur de disquettes de B.B, MICRO aux E. -U. à $39.95 est un lecteur 3 po., 3 po, et demi, ou un 9 po, et quart.

Simon Rioux

Hull

Cette question fait référence à un article de Y. Lavoie au sujet de l'ajout de disquettes sur le 2068, J'ai regardé dans les annonces de B,6, MICRO dans mes magazines et je n'ai pas vu les lecteurs A $39,95 US mais ceux à $29.95 US! Ces lecteurs sont des SHUGART SAADOL, 5 1/4 oo., 40 tracks, simple coté, Ces lecteurs donnent donc une capacité de 180K. Il s'agit en fait des anciens lecteurs du IBM PC. Il sont pleine hauteur,

de profite de l'occasion pour signalé que la MAISON DES SEMICONDUCTEURS (hé!hé!) à Québec et Montréal offre des lecteurs REMEX pour $69.00 . Ces lecteurs sont 1/3 hauteur et double coté. Ils donnent une capacité de 250K.

Réal-9

Dans cet article, nous allons examiné comment on peut exploiter les capacités sonores du 2068 via le langage machine.

Une des particuliarités du 2068 par rapport à son cousin SPECTRUM, est la présence d'un circuit spécialisé dans la production sonore sur 3 voix différentes, C'est ce CHIP qui est utilisé avec la commande BASIC SOUND. Des résultats forts intéressants peuvent Être accomplis de l'utilisation judicieuse du AY-3-8912 comme en fait foi les "MICRO-MUSIQUE" de Sinon Rioux dans les numéros précédents de SIN.

La méthode utilisée gar le SPECTRUM est également présente sur le |

2068, Nous allons étudié celle-ci en premier lieu.

Le petit Haut-Parieur à l'intérieur du 2068 est vu par celui-çi comme un périphérique, de ce fait nous comnuniquons avec lui avec la commande OUT du 280 ( ou du BASIC |. Le H,P. se situe au port de sortie qui se trouve à l'aóresse 254, En fait ce port controle

plusieurs choses.

PORT 280: bit 7-6-5 bit “ dit 3 dit 2-1-0 pas i MIC couleur utilisés H. P. BORDER

j a couleur Gu

On peut en déduire qu'il est possihl l 2. En BASIC, essayez ca

a d BORDER via le port 254 avec les bits 0,1 programme: 10 FOR i=0 to 7: PAUS 20 QUT 254,i 30 NEXT i

Les sons sont générés en mettant la bit 4 à % et & "it, selon una certaine fréquence.

10 QUT 254, BIN 00010111

20 QUT 254,BIN 00000111

30 60 TD 10

La lenteur du BASIC ne nous permet pas d'avoir un grand control sur le son que nous voulons orotuire,

I] est possible d'utiliser ia routine ROM de la commande BEEP, Cette routine, pour le 2068. est située à l'adresse 1041 (3F3 den.)

Avant l'appel de cette routine nous devons charger le registre HL avec le temps de base du son | ou fréquence ) à produire, La valeur "0" donne un son très aigu tandis oue la "-1" (FFFF gez.) donne un son très grave. Dans le registre DE, nous indiquons la durée du son. C'est içi que tout ceci complique. Si nous avons une fréquence de 256 et une durée de 256, OK tout va bien, Mais si nous avons une fréquence de 312 pour la mine durée que l'exemple précédent nous devrons avoir une durée de 512, car la fréquence est 2 fois nius élevée. Donc ia durée est en relation directe avec la fréquence.

Voici un programme BASIC qui nous germat d'expérimenter un peu avec l'appel de cette ROUTINE ROM,

Programme assembleur ORG 50000 LOOP LD He, 123760) variable SEED LD DE,100 S Qur ee CALL 1011 iroutine BEEP CALL 8201 ı TEST BREAK? RET NC

JR LOGP

Programme BASIC 10

170

180

REM Frog. pour experimenter

REM ia routine ROM BEEP

REM pour le 752048

CLEAR 49999

FOR i=50090 to 30014

READ a: FOKE i,a: NEXT i

DATA 32,208,92.17,100,0,208

DATA 243,3,205,9,32,208,24,241

INPUT "La fréquence (0-85535) ed

RANDOMIZE f

PRINT "La frequence est "if

INPUT "La durea (0-255):";d

POKE 50004,d

PRINT "La duree :";d

PRINT "Faites BREAK pour terminer."

LET a=USR 50000 Généralement, avec le BEEP, on ne peut que produire qu'un son à la fois. Mais avec le CHIP de son, on n'a 3 canaux différents

pour produire des sons.

fréquence.

La programmation de ceux-gi est faites via 1$ registres qui controlent l'amplitude, l'enveloppe, la

Les registres du AY-3-8912

registre fonction canal

o T Fine Tune a 1 Coarse Tune A

2 Fine Tune B

3 Coarse Tune B

4 Fine Tune c

5 Coarse Tune c

& Noise (31-grave) 7 Enable

Soustraire de 63 pour mettre

en fonction:

Musique A=1 B=2 C=4

Bruit A=8 B=16 Ca32 Amplitude A Amplitude B Amplitude C

Fine Tune Enveluppe Coarse Tune Enveloppe Enveloppe Shape Holdzl Alternate-2

Attack=4 Continue=8

valeur

0-255 0-15 0-255 0-15 0-255 0-15 0-31

0-63

m—

pow]

Le 2068 donne au AY-3-8912 une horioge de 1.754 Mhz, Celle-ci est divisée par 1% à l'intérieur du CHIP sour nous donner une dor loge de référence de 110.25 Khz. Chaque son a sa progre fréquence, Pour obtenir un son, nous devons diviser la frécuence de référence, Chaque canal possède © registres pour cett fonction, pour le canal A, il s'agit des registres 0 et 1. La division se fait sur 12 bits, Le registre D nous donne B bits tantis que le registre | nous donne les 4 autres ( las olus significatives },

Pour avoir les valeurs correspondantes aux not procurez-vous ie livre de F. Mazur, TI INTERMEDIATE-ADVANCED GUIDE, oublié chez SAME BOOK,

Pour programmer le CHIP, on doit écrire dans ie sort 243 ( F5 en hex. ) le registre que l'on veut modifier et dans le port 246 ( Fb en hex. ), la valeur cue l'on veut y mettre,

Par exemple, si l'on veut mettre l'amplitude du canal B à 10, on fait : LD 3,9 — Numéro du registre qui controle QUT 248, {l’ampiitude du canal B LD 4,10 Valeur de l'amplitude QUT 246, à

I] est à noter que l'on peut programmer le CHIP mâna si l'on a installer un ROM du SPECTRUM nuisau'on ne fait pas appel à des routine ROM, Egalement le nouveau SPECTRUM 128K de AMSTRAD

possède le même circuit mais il n'est Das situé aux mêmes adresses,

Le son produit par BEEP ast orésent sur la prise MIC à l'arrière cu 2088, donc prêt à être amplifier. Cependant celui produit par SOUND est présent seulement sur | connecteur d'expansion , II est à la pin 31, coté soudure i.e, dessous )

Lorsque vient le moment de faire une cosie de sécurité d'un aicrodrive, le processus peut être long et gé si on l'on ig fait programme par programme, Voici un uti écrit par mon copain Jean-Claude T de ndvi à miv2.

er Y! ae pe nd D. D

Touzin, sui fait un "BAC

100 REMark copieur

105 REMark par J. C. Touzin

106 :

110 MODE 512

120 WINDORET,212,181,0, 20: CLER)

130 WINDOWR2,212,20,0, 0: CL 597

140 CLS40

150 L81282, 2,1

160 PRINTEZ, 52022» 3OCUPIEUR DE CARTOUCHECX4CC(((4"

170 PRINTI "Ce programme permet de copier une cartouche sur une autre,"

180 PRINT\"IL vous donne le choix d’une conie totale ou partielle,"

190 PRINT\" (La cartouche dans ndvi ne doit pas comporter plus de 45 programmes dont les noms ne dépassent pas 23 caractères, Ceci peut être modifié), ”

200 PRINT V'Placer L'ORIGINAL dans mdvi_ et une autre cartouche dans mdv2 .

210 PRINTO, "Voulez-vous FORMATer mov? 7 (o/n)"

220 touche: IF z$="o" OR 2$="0" THEN formatage

230 CLSRO:PRINTSO, "Taper une touche pour débuter la copie..." 240 z$=INKEY$(-1)

250 fichier

260 DUERO

270 scrute:tableau

280 PAUSE {60:ELS:ecran

290 selection

300 DEFine PROCedure fichier

310 PRINTV'Création d'un fichier temporaire contenant --)DIR ndvi sur mdv2 ."

320 OPEN NEWR2,mdv2 fichier temo

330 DIRES, mdvi_:CLOSE#S

340 END DEFine

350 CLS:PRINT"Exécution du copi age. . 110

360 REPeat copie

370 jisiiti

380 IF ii >compteur THEN EXIT copie

390 IF nom p$iii)="" THEN NEXT copie

400 conpte⸗ii

410 atfiche

420 COPY 'mdvi “non n$(ii) TO 'ndv2 nan p$lii)

430 END REPeat copie

440 CLS4O:PRINTEO, "Copie terminée. Encore? (o/n)"

450 touche

460 IF z$z"o" OR z$="0" THEN RUN

470 PRINT#0,"Tager NEW pour effacer ie orogramne.":STOP

eek

480 DEFine PROCadure formatage

490 CLS$0:C517E80,2,1

500 PRINTAO, "ATTENTION! "::C812E30,0,0: PRINTED, "taut sera détruit sur la cartouche insérée dans mdv2 "

310 AT$0,1,35:PRINTRO, "DK? (/)“

520 touche |

530 IF z$z"n" OR z$="N" THEN END DEFine

340 CLS#0

550 PRINT#0, "Quel nom voulez-vous donner à cette cartouche?" 560 INPUT#O, cartouche

570 PRINT40, "Combien de fois voulez-vous FÜRMATer cette cartouche?"

580 INPUT#0,fois

390 FOR (izi TO fais

500 FORMAT 'mdv2 "cartouches

610 END FOR ff

620 END DEFine

630 DEFine PRüledure scrute

640 compteur=0:n=168390

650 REPeat bloc

660 n=n+2

670 IF n2148902 THEN EXIT bloc

680 hmn=PEEK(n)

690 IF han 247 THEN NEXT bloc

700 IF hmat=compteur THEN NEXT bloc

710 conpteur-hmn

720 END REPeat bloc

730 END DEFine

740 DEFine PROCedure selection

750 conbienzü

760 PRINT #0, "Y-a-t-il des programmes que vous ne vouiez gas copier? (o/n]"

770 tauche

780 IF z$z"o" OR 2$="0" THEN choix

790 END DEFine

800 DEFine PROCedure affiche

810 IF comptezi OR compte-ió OR compte=3i THEN ligne=0 820 colonne=54

830 IF comptes3i THEN calanne=27

840 IF comptetié THEN colonne=0

850 lignezligne*i

850 AT ligne,colonne: PRINT compte:"z":nom p$íii)

870 END DEFine

880 DEFine PRÜLedure choix

890 INPUT&O, "Combien? "icombien

900 IF combienti OR combien?zcompteur THEN choix

710 PRINTO, "Taper leur numéro suivi de ENTER," 920 FOR izi TD combien

930 INPUT40, "Nunéro du progranne? "inumero 940 nom ps (numero) s"

930 END FOR i

950 END DEFine

970 DEFine PROCedure tableau

980 DIM nom p$(conpteur,23)

990 PRINT "Lecture..."

1000 OPEN INO AZ fichier temp

1010 INPUT43, hi $;han$

1020 FOR iizi TO compteur

1030 INPUTS nom ps ii)

1040 END FOR ii

1050 CLOSERS

1060 PRINT" et destructíon du fichier temporaire sur adv2 .

1070 DELETE ndv2 fichier ten

1080 END DEFine

1090 DEFine PROCedure ecran

1100 PRINT "Contenu de mdvi (zh): 1110 compte=0

1120 FÜR iisi TO compteur

1130 conptesconpte*i:affiche

1140 END FOR ii

1150 END DEFine

1180 DEFine PROCedure touche

1170 REPeat tourbillon

1180 z2$zINKEY$ (-1)

1190 IF z$z"o" OR 2$="0" OR z$z"n" OR z$="N" THEN EXIT tourbillon 1200 END REPeat tourbillon

1210 END DEFine

Le DESKTOP PUBLISHING est maintenant possible sur le BL avec le logiciel FRONT PAGE de GAP SOFTWARE, Voici une petite modification pour comprimer l'impression de moitié, Car avec SIN j'utilise 1/2 gage pour une page. Pour ce faire, nous mettons l'imprimante en QUADRUPLE DENSITE au lieu de DOUBLE DENSITE, Il faut le programme BOOT qui configure FRONT PAGE pour le type d'imprimante que nous avons. A la ligne 96, on change

POKE SCRPRT*139.75 pour POKE SCRPRT+159, 90,

DOUBLE DENSITE — : ESC,"L'",ni,n2 (code ASCII de Lu: 76) QUADRUPLE DENSITE: ESC,"2",ni,n2 (code ASCII de "I":90) &

Hass

D Im ms m E fin l H “i Ir) R DIY il ul dk N. "mom md H 100 MO CN BO qs TE EE 5 5 L 1 ll I BESO EAM ITE JU i IMI | ZM A HW M mt GT Uk ml DUL hu "i e m bt nl [ HE «kad J A eU lim GO v5 f

W. U hN NL I A jw a 0 jn 4

1 0 U i

^ TII WA mahu? bet M EU) M Kk IU) Lu i D T [i A bn d m " ON KN [M T mn luan ml U i di 1 W d I ipi NI EN. LE m D ji tt EN d ZAIN , l aiak Gio îi "i yA U Ry kw : MO k NE. : n i 2 nn

7 Ihe DM een alk ATL 35H ese TEE KTA "aua dir du EREDE wh TH d Kb N LO j n "T 2 b URO NI NI D D K " 10 bus E I ml m 00 "n ad PUN EE ki E S . D ui nn di mie uj n AE iual dib bd sun hi TE PE "Aa. Di a NRI ER oa O at p „iu dh, 0 J 5 ta

b Ç L „i kel l TP W PD n T pi UT N m 10 0 W) j K n GIZ H d 10 6, ITA A Ih Md si den LL dl I P d

ti TE 54 EPA bh p CHINE fl qp Es M

aN „ ka k lea IE J TEU a J 5 ia RITES ME MEM FI n + Rx mos gm Mae po) qua

DU HU hav ud LI LE 1 LI tn fm f H) m^ | E w s. I WL % N IES 0 e L a mi

RETIE GK mm gu mu null 335805] ZE mm mu Uo De

Gaberdi f d " L | 1400740 5.95 1 AAA ag N av" mmm f d l. M ta b n u . ln W b . wa

D [hi ki D ah I : H dy m ni D

D o Y KO pei Lk b vw D D | ARO D h fo U LA il KU H ns "| | si | 59 95 l

OU Di L 1 d dA N L beu mi

| D im Anl fiy n nn] J T. n

W LIO M N n ly D Mn h. dio be Hn k

y J l UN dL "DEI B TIE TL UD ede md JAK UO 655587 %

E 4 0 OK N ed ed Hu FEE PET Ie

UE E C K ch

DA | HU

POTRO KO

Ir eee pani paun

% % „% KN wh b, Da, Thy. "T

atp LT ps br

biru pnn

Mid Dy

d at

Uk U N IC

IV) O n

1 pob an] jd In

hi ;

92 95

"n qr dl

WM ud el ed "lj. H

E [n fs EK 7 eko U hy by «DMD

RATER

GN IO dd dn N m 1 NI LU

fa J, 4 Ph

UL bn PT n b üben SEO ba M

n y» Mm m]

SANO

Hod d 4 Pp kd je L

b bI

BRL. à

L eki AH andi ERE 900 k 6 f f d JU t di ba "E

IU uu

anna] ARI U - BEN

pain

d Mg. am GA s L à N W ud

B LH us

d' qnam: VK,

Ma Ku dut "m 5235

L DU MW ino «ta

la bg H) %. lh „/ L

- rmm o uz 10 50 13) A I

U 347 8 EO

EMER 164 % [A

| qm

was]

EAM d N i dd l În

l U La DU Lin

IN CLN a

tn A D

b D

E 191 Mo D dU

set ent H LA kh L eei PA

L D Ñ n 590

Mok

UE de ni) Th h |

meg pei

Vj iren t e

pni quen e 155 GO

ba PRAKAK u, Tb e "my, bo

PO sg Pe Er

("own ona »i nw

HD Hw

PEETI UE UL d L

10%

17 "p £ LUE “ll,

Mn ui HIH

"n A

d DL d

OZ W Ut

| i i

Ln ALI

A do L

"hu mnl (h

EURO W lnn n L fiu

es N

"mo t hu L at În

5% h m 0 .

HH b,

(t the

;

A li

pol d m LE m

E t A

nn L

nnje on] E i^ UD

a d p 0 k ,

"nl

DE Bs

Im.

J m HU

ls 1 " 1

in " pn

ibu

ME In i

1 HL HU

hy dm H)

Ul u u Wl m a h

M d

d "ET i I

mi" AE H UI h

PET Zk AM a

HR n i M itj

| lim

MT TN | H) lnn DTI hn EE A "n

I PNE N d îi ju H J. bri D I L 0% „. m [^ Ze 1. hH J L loud Iu] Du Uk LU op ath GUO

[ mil

M ju d

P [il [im JUDO nn

Jin "T

il ibu

EET

A H)

LH N

Dy dis "nl Wl UD

H gie b» P AU

10 my

aw nm

c BRO

D t 0) % d IU "po n AU a

I [im i

N j

abr eee rt

5 W , “fin D

W In 10 H

j^ im

HI D

AIEN J m

na) 0 A | UU ql în NO ml N ab» o lal 1 1 GU UI

T. dU

da I U 7 tak

W di b L 1 MIU U h UO POP. d du

H ud hal daf

U b

E | 0

"tl "tl

fin

Ji IA mt lnn. U. U

v à Us

BH ESU Ho Mn e. M Tep NK 0 H: in M HI b L CENT "

il UE

ZORU

On ES, La h dg e m 1

alk I

mfu md JU

n i

0 7 M KA

Ik "nl d Mi UH L «l erdik

lll ade w HI

fitu al

GUR E nih

U) D

kh eom] h T Ln h D

1.47 end " ! 2 140

MI n

De Dt 9

0) Mori LENT

JU OKU D MI Il.

"g nii

an,

: 1

M" m d

ili

qr jl U

M ad Ibu

» 100 IM MR RTT

mt mt bi

h IR W

i OO 1

b LE) "P l uh

fin gm U

d M n E wh UA Kb hy JU

lim vilem N

BN "|

h [

H f

"mi

[T "i

"I y

U st 5 ET

m D] T GE

j "m

pil H ons N ml e ar CEE PE A a Ea EG fm Lal k Vh

ttl HL. J

n HE m^ Inh

D di

A "

n n

Uki fin DU fin "m "y pn N

n Pu vont |

ba In

hm) U dol d

Mboma 0) dT

bod m

m uli ni

Un n A i N d 0 A

ESk

GEK

my wi

JO n 70 f nj

Im in il "ET

l "Ta

hu E Ld w a ma ENH N Hk AUN dk I Marik AD MT e bd

immi

uk li Lu | TA

ll Jn

wi}

iiu

uu m

00 %% )

pe pawi guwe punt jeny

32 5 h b " E: x SA HG NU

h W eH UO 5

ZEN

ESO)

E L T E lic B ZE * ME un Nu cour = IM E I} m 7 pel D MKA SS b fi

DUM x i du dul n i |

b JL ef d om m . E ame d NE EA. da Od A SA eda dE . m AE

p i FA U L da HLH adm

dde T dk

D GA U

10 i nw b nnd m nny anat ets 10 0 e b OO. m ed m at vn Iu WA ZO PIO HN EEE E M GO b. nl Pu > prn KO UE mI NI 4 ptl el Vlll n. Gu de JO hu] A NS b A 7 WS R L Hue 11 kujinga mto hali ls ak Mn hal m] 15 Mae DU E bi ARATZ E al A MM "o ddn pon sm i | MM 10 Via M M E «KR A d T MTZ GO Go it D 1 HO Fin a n [Oba F fr] nan TU NM Ij tinm Gn di E (MO nba A DRO ibitu a D D T an ^ bd PA py "Em "m i b Lu ed d n Is M LP LN E M GOI IA 54 6 9 5 N mi I, ne Tru Ln cum men IK N BR «IU DIU IEL GEO i bo Tek io dile DOU mr) JD Mens fi DE h E ma SEE e M Dems GU f UO I Ou UO IO, KO: bi o Eia N Ey Feth, „ w A I DU biv o

hH b. OA HOA m u wm pos wu pm M d "M puk — 0 5 AK db rel d €

b ^ l WM SES etik KR bul on „ f o P A ta bu DL anf bun R. TT Dio Mt EM 7 dU id b To P i b "TE Ha n BM. ME MEINS rug e NK OU KA DO LE Dec Ts B Gaba D JAT CNRS mU n T dd NA s p el Bi Dual " “jy m N kk dE MD € mi

Uie s 6 5 570 0 Ge ETC T „ aki MIO Ff «Pl pr " KE] xL ta 1 Ph i OK ua mr 15

E "o" ne MTM . ner Rte EH e pom PE jen } tepi am MY d M mun Aie mi D in mi ra i

TVAE b rz gn RA nes N, Rep n GO EUN echa a bian a an ana dé ala ra tai 8 Lon 82 dq A „ale 7 . "orl, "MONTE WI l ug Pb pe pem e p s "n bie 7 Hk A U i nm 11 3 dl mpe L d i 2 TO M ^ 4, A x T d pita MH AL DO TA at aln M uL it k

E Lol vlo, neb d Gk ^ L To Tn ui^ N "Po GALD LI DOK HO MI mnp Pn HOA » M ri Po ini) pes y n» 10 he 75 ei d pom mir Eu] b JI U hh, py "n " JA Ñ GN "n Kup): Mn * mop bd deg Pers cpm Tun T V one s iom pow Dal Dul en MG Bela d 1 d bat If, PY nt fu d r

e MO GE Oa iN MT e en

"Jiu, DIRA Kn

pn af

MU HM d

T D ned un

Ulea

Voici un petit utilitaire gui va certainement vous Être utila un jour. Supposons que avez un programme gui fait référence à mdvi et vous voulez plutôt faire référence à flot, Vous pouvez charger le programme et changer "à la mitaine" tous les mdv! pour des flpl mais cette façon est longue et ennuyause. Ce nrogramme fera cette opération rapidement pour vous,

Premièrement vous dites le nom du programme à examiner, puis le nom du nouveau programme avec les corrections. c'est alors que dites le mot à changer et son remplacement.

Dans un WINDOW, le programme original défile et dessous, le nouveau programme avec les corrections également, Le programme fait une pause si vous faites CTRL FS, refaites la mêne combinaison pour repartir. Le nombre de modification apparait dans un petit WINDOW dans ie coin supérieur droit,

ATTENTION: Si vous ne possédez gas ie TOOLKIT Il, laisser tomber les lignes 130 à 250,

100 REMark BL-SUBSTITUTION gao-c octobre Bé

110 :

120 :

130 WHEN ERRor

140 wzERNUM

150 SELect ON w

160 z-TiPRINTSO, "Fichier! Vintrouvable III

170 z-B:PRINTEO,'Fichier deja'V' existant !!!' 180 =-0:PRINT#0, Fichier toujours! V ouvert II 190 =-11:PRINTEO, "Lecteur’V’olein Ti?

200 =-20:PRINTEO,’Protege en'V'ecriture III

210 REMAINDER +PRINT40, ERREUR? V'DETECTEE. III

220 END SELect

230 PRINT #2,'APPUVEZ UNE TOUCHE POUR CONTINUER...’ PAUSE 240 clean: RUN

250 END WHEN

260 :

270 :

280 MODE 4

290 WINDOW 512,255,0,0:PAPER GEO

300 WINDDW&U, 400, 44,50, 0: BÜRDER#O, 1,7

310 PAPERSO, 0: INK&0,7:CLS30

320 WINDOWE1,512, 100, 0, 45: BORDERS, 1,7

330 PAPER&I,0: INKGH , 7: ULE

340 WINDOWE2, 512, 100,0, 146: BORDER#2, 1,7

350 PAPER42, 0: INK82, 4: CLS82

360 :

370 INPUT#0, "le nom de grogranne (ex, ndvi prog!) :":prog$. 380 INPUTEO, "le nouveau programme (ex. ndvi prog2) :";progi$ 390 INPUT#0, "L'item ou le mot à changer :"itan$ 400 INPUTEO, "et on remplace ie mot ou l'iten par changes 410:

420 :

430 WINDOWRO, 135, 24, 370, 15: PAPEREO, 58: BORDER4O, 1, 7:CLSHO

440 OPEN Fe, progs

450 OPEN MEIG. rgia

460 :

470:

480 IF iten$ INSTR changes: PRINT#0, ' SUBSTITUTION'V ILLEGALE 1112 +PAUSE: clean: RUN

490 ligne-zi:modificationzó

300 PRINT#O, ligne courante: V &nodifications 37

310 :

320 :

330 REPeat loop

540 IE EOF(S5):EXIT loop

330 AT40,0, 16: PRINTEO, ligne

260 ATO, 1, 16: PRINT&O, modification 370 INPUT#6, ligne$

380 PRINM i!, lignes

390 verification ligne

500 PRINTEZ, lignes

810 PRINT#7, ligne$

b20 ligne=lignet!

650 END REPeat loop

640 clean

650 WINDOWRO, 200, 43, 100, 120: BORDERSO, 1, 7: CLS 660 PRINT#O,TO b,’ SUBSTITUTION TERMINEE.' 670 PRINT#O,TO 5, APPUYER SUR UNE TOUCHE FOUR ' 680 PRINT&O,TO 11, CONTINUER’

690 PRINT&O,TO 5,'0U 40» POUR TERMINER, ' 700 Repeat loop: i SINE VE: IF i$) ":EXIT loop 710 IF i$zz'g'

720 PRINT, Retour au SÜPERBASIC.':5TOP 730 ELSE

740 RUN

730 END IF

760 :

770 :

780 DEFine PROCedure verification ligne 790 positionzitem$ INSTR ligne$

800 IF position

810 modification=madificationti

820 IF position+tEN(iten$) eL (tienes)

821 ligne$zligne$(i TO nosition-i)kchanges:RETurn 840 ELSE 850 ligne$zligne$(i TO

pasitian-i)&change$&ligne$(positiontLEN (iten$? TU LEN(1ignei)) B50 END IF

870 ELSE

880 RETurn

890 END IF

900 verification ligne

710 END DEFine

920 :

930 :

940 DEFine PRÜCedure clean:tLDSES5:CLOSES7:END DEFine