tremplin micro newsletter issue 06

@ OG ©5201 - as ace 9861 VOW T+ JewOr § enti wapquanay + PENNY * 7 oN De tenet] yet ned mereeing ahaa any see ney je wply Le premier logiciel de TREMPLIN MICRO est signé CLAUDE AUBRY et c'est : AMPER-INTERPRETEUR BASIC SOURIS Vous aimeriez en savoir plus... lisez plutét un extrait de la premiére page de cet excellent logiciel, et n’hésitez pas 4 le commander, en utilisant le bulletin de la page 66. PRESENTATION DE MINIE BONJOUR ! Vous programmez en BASIC ou en assembleur et vous voulez utiliser la souris APPLE simplement, mais efficacement : créer des menus déroulants ou de type boite, gérer des fenétres style MACINTOSH, etc. MINIE est faite pour vous... Avec une vingtaine de commandes ajoutées au BASIC au accessibles depuis |'assembleur, vous réaliserez ce que font les logiciels les plus professionnels et cela sans aucune difficulté. Pour utiliser MINIE, vous transférerez tout d'abord le programme MINIE, sur la disquette destinée 4 votre application 4 l'aide du programme TRANSFERT. Vous inclurez dans votre programme HELLO lo ligne suivante : PRINT CHR$(4);"BRUN MINIE.” Dés lors, MINIE sera 4 votre service. Vous communiquerez avec elle a aide d'une interface logicielle ; L'AMPER-INTERPRETEUR MINIE-MUM, si vous étes sous BASIC ou Le Machine Longage Interpretor MICKEY, si vous étes en assembleur 6502. Une instruction MINIE débute toujours par la lettre & (AMPERSAND). Le & est suivi d'un code, c'est-d-dire : UNE LETTRE ou UN MOT ceécrivant la fonction de la commande. Par exemple W ou WINDOW pour fenétre. Selon le cas, des poramétres suivent ou non le code, nombres et (ou) chaines. Seule la premiére lettre du cade de commande est significative... PRIX TTC = 20 —————— —— = TREMPLIN MICRO GUY-HACHETTE Apple wt ProDOS (noms et loges| sont des marques dépo- aéet d'Apple Computer, Inc, BIMESTRIEL Le numéro : 30 F Abonnement d'un an 180 F {é numéros) EDITIONS JIBENA Direction-Radaction : Editions JIBENA Guy-HACHETTE La Petite Motte — Senillé 86100 CHATELLERAULT. Téléphone + 49-93-66-66 PUBLICITE : Joolla (méme numaro) Commission porltaire : Demande en cours. Les revues qu) chostissant détre réellement au service du Lactewr, fm ne labligean! pas & glanar, dove plusieure mogazines bes rensmignamen!s concemant sG feoching, ne béndticles! paw du pemina de Commission Portinire, @t pos dovantogo det inriés pos- Youn réchuila. THEMPLIA MICRO — Bimestrial — Ciev! une publiogtinn des Editions JIREMA, 2, rap de lo Cour-des- Nouns 7502) PARIS — 5.4. ou rapitat de 3600000 F — imprimé CITE-PRESS’PARIS — Diipat Jagat la date de parution — Ine tription & fo Commission Paritaire dex Publications ef Agence cla Presse > em cours — Diroctaue de la Publication =~ Guy-Clément COGN: — Dilfmion WMAP. Meilleurs voeux pour 1986 ! ONNE onnée, omie Lectrice, et & vous aussi, am| Lectaur.., ef bonne pro- grammation, sur votre Apple | {I vout mieux s‘odonner 4 cette passionnante activité qua de dira du mal de son volsin | non ? Justement, parlons de notre plus proche),, yeisin : Apple. Quelle(s) surprise(s), dvidermmoent agréable(s) nous réservent donc les dirl- geants de Cupertino 7 Noel B5 a vu les prix tombor 6 leur niveau /e plus bas et |'Apple Hie restail, sur un marché demind par les compatibles (BM, une bonne afiaire et un bon choix. Peut-on |ui prometire une longue vie ? Jen doute, Contralrement 4 ce que l'on pensait chez Apple, les machines terméas n'ont guére d'avenir, actyellement du moins. Lutilisateur, lorsqu’ll refyse le prél-t-porter informatique, aime se bidoulller un systéme 4 ses mesures... at il a donc besoin d'un nombre raisonnable de slots dexten: sion. Ce sont eux qui ont permis & Apple i de devenir une machine universelle... dont le géant IBM s'est largement inspiré lorsqu'll a décidé de loncer son PC. Et |e porie que Mac auralt doublé le chitfre de ses ventes s'il avait 4é dquipé, comme son ain, de quelques fentes destindes 4 ovtont de cortes,.. D'ailleurs, oprés avoir persevere dons lerreur, Apple y vient, Mais Inissons Mac 4 nos contreres spécialisés | Quand naira |'Apple tix (i! parait qu'il conservera ses chiffres romains), calui que vous et mol attendons over curiosité... et Intérat ? Je ne suis pas dans la secret des dieux, at je lignore. Il semble, si j'en crois des milleux généralement bien informés, que lo date de son annonce soit beaucoup plus proche que ne le Inissent entendre les dirigeants Apple (d’ailleurs muets sur fo question, je le reconnais), Ce sero donc un 16 bits, pré- sentont 'émingnte qualité d'émuler |'Apple J) actuel (@quipe d'un 45002), mais réalle- ment différent de son ancétre ; clavier séparé, bloc numérique d'origine, érran couleur, unidish, emplacement pour digque dur,,. Presque vn Moc, mois avec to philosophie que nous opprécions dans |'Apple fl ce qui n'exclut nulkement l'utilisation de ta souris et lo multiplication des fendtres Ah | j‘oubliais ; Apple lix sera liveé, dorigine, ovec un autre Basic, compranant das tos d'instructions nouvelles... mois qu'il foudro charger (que l'on se rassure > aver lo SOFTCARD, ce sera instantané |), Adieu la ROM | Quant aux programmes de Tremplin Micro, je vous promets qu'lls ne tourneront plus autour du "Print using”, des "Transterts d'éerons”... et outres ostuces ; nous aurons mieux 4 foire avec de merveilleux petits logiciels, utilisant et la Souris... et toutes les fonctions qui y sont rattochdes. Vous pensez que je réve ? Peut-dire. L'avenir te dira, mais comptez en tout cos sur Tremplin Micro, pendant toute cette année, pour vous alder 4 mieux connaitre et utlli- ser votre Apple ile, lic... ou tx. Ce nest pat demain que Guy-Hachette et ses collabo- rateurs pourront abréger laurs langues et captivantes veillées | Encore mes meilleurs voeux, et bonne programmotion | Titstitt GUY-HACHETTE, TREMPLIN MICRO Sommaire 6 INITIATION ® Trajet minuté (une routine créée 4 la demande d'un lecteur de Tremplin Micro)... 9 Foi POP PONE. cc 20cctacctesens 2 Soisie de mots ................. 5] Multiplication en ossembleur ...., 62 Saat Le Jongleur de mots, un excellent traitement de texte oo... 39 ® Mouse Desk indispensable avec PRIMER: (:5554550152508 catonasd 63 * Langlais sur Apple avec Assimil .. 63 DES TRUCS ® Inverse-normal ou comment vous posser, dans un programme, des instructions INVERSE et NORMAL, remplacées par CTRL-I et CTRL-N 40 © SAUVE oprés un NEW malencontreux ......-...-..... 59 POINT 3 PAR POINT O@ |l est démontré qu'il est facile, sur une Imprimante ImogeWriter ou sur une DMP, d'éditer les pages graphiques de l'Apple ..... 12 ET LE PROGRAMME IMP.HGR.1 {| fonctionne sur imprimonte DMP, ImageWri- ter, Mannesmonn et quires compatibles ..... 17 GRAPHISME @ Animez vos triangles ... iia @ Point par point —. -- eee em |) ® Le programme IMP. HGR. fie eee A |} @ GROSSIR ? par B. GOURC mua 5 CARACTERES PERSONNALISES PAGE 24 * Un programme pour DMP, ImageWriter et ImageWriter Il * Une premiére application : En créeant 6 caractéres spéciaux, tows les encadrés deviennent possibles. UTILITAIRES = WISU-PUCE ‘ jv pall * Conversion : Décimal — Hexadécimal — Bingire ... mete Be ia 8 VISU-PUCE * par Maurice Chavelli * Pour voir ce qui se passe dans votre Apple lorsque "tourne’’ un programme LISEZ AUSSI : ®@ Votre bibliothéque informatique -..... @ Nouvecux matérials * Une imprimante Monnesmann compatible Apple itgn=p a¥aaes ten * ImageWriter I *Unidisk 3.5 ., Soares wise eek ® Laconversion ? c'est dans lapoche !.,... * Votre fiche n°6 +. 21-2 * Le courrier des lecteurs et les nombreuses réponses opportées par Tremplin Micro ...... 57 * Bulletin de commande et d'obonnement —.. ee re) TREMPLIN MICRO Le numéro 7 paraitra le 3 mars. GUY-HACHETTE 1 LU O08 3.3. | propos | TRIFIN GL Ln ANIMEZ VOS TRIANGLES ! [¢] E programme se veut "éduca- tif’, mais il n'a pas la préten- tion d’étre un modéle du genre, La courte "lecon" qu'il présente com- La surface d‘un TRIANGLE est é@gale au DEMI-PRODUIT de sa BASE par sa HAUTEUR porte bien des lacunes et bon nom- bre de nos lecteurs enseignants voudront sans doute le compléter. La page graphique de présentation est entierement réalisée en utilisant la com- mande HPLOT, mais en langage machine. Nous n’‘avons pas jugé utile den publier le programme source. II suffit de lister le sous-programme binaire pour en comprendre facilement le fonctionnement. LOMEM protége votre * LOMEM: 340@: PRINT CHP (45"6LDAD TRIBIN,AG7BR"s VTAB 21: PRINT “ La surface d*un TRIANGLE est 4gal routine en langage 18 machine REM @#125C (LONGUEUR @58) Atlichage présentation > = eit i + PRINT CHR® (21): HOME :2 = @ Roppe! utile, sous le > 40 graphisme Vers lo @ottente sous-routine a EHocement invisible de = ta page graphique TREMPLIN MICRO e au ODEMI-PRODUIT de sa BASE par sa H4UTEUR" PENDANT L’AFFICHAGE DE LA PAGE GRAPHIQUE, 58 8 7a 86 96 VOUS PREPAREZ LA SUITE EN MODE “TEXT” INVERSE + FOR 1 = 5 TO 15: VTAB I: HTAB 5: PRINT * "gi HTAB 3é: PRINT “ *; IF 1 = 5 OR J = 15 THEN F OR J = 6 70 35: VTAB I: HTAB J: PRINT * ": NEXT NEXT GOSUB 480: NORMAL : GOSUB 478: TEXT VTAB &: HTAB 9: PRINT "DONNEZ LES DIMENSIONS DU": UTAB 18: HTAB %: PRINT "TRIANGLE QUE VOUS DESIREZ "t “TAB 12: HTAB 2 PRINT “OBSERVER SUR CET ECRAN., NORMAL 1 HCOLOR= 2; HPLOT 2,2: CALL - 3682: GOSUB 470 LA SAISIE DES DONNEES COMMENCE ICI 1ae CALL - 198: YTAB 21: INPUT "QUELLE EST SA BASE (2 ® A 279) -) “she: IF Ré = *" THEN GOSUB 476; GOTO 428 ——s (SES SSE eee ees R ES AS ESR eR ER SRERSSEETeRE ESE $19 B= VAL (RB1: IF B ¢ 26 OF B > 279 THEN 108 128 GOSUB 476 138 CALL - $98; VTAB 21: INVERSE : PRINT "BASE = “Byr MORMAL « INPUT “ SA HAUTEUR (16 & 158) -) “GPRS: IF Re = “" THEN 90 148 H= VAL (RO): TF H ¢ 18 OR H > 15@ THEN 198 158 GOSUB $74: VTAB 22: HTAB 6: INVERSE : PRINT “BASE =";: NORMAL +: PRINT * “@8" "a: ENVERSE : PRINT “HA UTEUR =*;+ NORMAL : PRINT “ "H TRACE DE TRIANGLES SUCCESSIFS DE MEMES BASE ET HAUTEUR 148 HCOLOR= 3: HPLOT 2,H TO 2,2 TO 8,H TO Z,H: GOSUB 5 80 VWTAB 24: HTAB 4: INVERSE ¢ PRINT “PRESSEZ UNE TOUC HE SUIVANT VOTRE GRE": NORMAL +: WTAB 22: GOSUB 520 VTAB 24: HTAB 4: PRINT * LA HAWTEUR RESTE CONSTAN TE “yi VTAB 20: PRINT °* FOR 1 = 7 TO 8 STEP 7: GOSUB 508: GOSUB 519: NEXT : GOSUB S86:] = @: GOSUB S18 GOSUB 4781 HTAB 5: UTAB 22: PRINT “ICI, C°EST UN T RIANGLE "y: INVERSE + PRINT “RECTANGLE”: NORMAL : 6 OSUB 488 GOSUB 478; HTAG 7: VTAB 22: PRINT “ET VOICI LE MEM Evy. "pe INVERSE + PRINT “ISOCELE*: NORMAL HGR ; HPLOT B / 2,2 TO Z,H TO 8,H TO B /¥ 2,27 GOSU 68 488 VTAB 7: HTAB &; PRINT “COMME YOUS LE SAVEZ, CES *: VTAB 9: HTAB @: PRINT “TRIANGLES AVATENT MEME BASE *: VTAB i11 HTAB @; PRINT *MEME HAUTEUR, MEME "3: F LASH « PRINT "SURFACE": NORMAL : GOSUB 478: TEXT : GOSUB 486; HOME 17@ 188 198 208 218 220 2358 248 ON PASSE AUX QUESTIONS DE CONTROLE 20 T=" QUATRE G@UESTIONS "t INVERSE WTAB 2: HTAB 5S: PRINT F#:T$ = * ": VTAB 1: HTAB St PRINT T$: WTAB 3: HT ABS: PRINT Tt 248 NORMAL : PRINT : HTAB 5S: PRINT “Quelle est fa bonn e définitian 7" 270 VTAB 16: INVERSE : PRINT "A*;: NORMAL : PRINT " De ux COTES EGAUX et deux ANGLES EGALIX qui leur son t opposés": PRINT 288 INVERSE ; PRINT “B";: NORMAL : PRINT " Un angle DR O1T": PRINT 290 INVERSE : PRINT "C";: NORMAL ; PRINT " Trois COTES EGAUN Cangies= 68 degrés!": PRINT 390 INVERSE : PRINT "D";: NORMAL : PRINT “ Trois COTES INEGAUX" 318 POKE 34,7: POKE 35,15 328 O= 2:E =2 @ Vers effacement fl ost prétérable de choisir les plus grandes dimensions pour obtenir un bon résultet. et Trocé, puis GOSUB vers Vaifichage de lo poge @ Trocé du triongle ieocéle * Le nombre de questions peut dvidemment étre modifié, ef celles-ci améllorées. Le programme est pertecti- ble, dcombien | SaREROUePeseessecEEEeES GUY-HACHETTE “lo page graphique Reponses en DATAS > Plus il y aura d'apprécia- > fions... et plus yotre pro- gromme sera long. Evident, non ? Si lon désire en rede- > mander, cost tout de méme prévu.., Lettres en mode inverse ae Attente classique (CTRL-C tonctionne) 7Z=G elon afface TRACE (HCOLOR= 3) Emission d'un BZZZ Une méthode origi [— nole d'eHacement de Vers le sous-programme a> en ossembleur Alfichage HGR sans a> effacement TREMPLIN MICRO 338 @ = 08 + |: READ O08: READ Ree 348 UTAB 5S 4 0 # 2: CALL - 198: HTAB S: INVERSE : PRI NT Gé;: NORMAL : PRINT “ LETTRE-CLE -? "fs: GET RS: PRINT RE: IF RS ¢ ) REG THEN E= E * 1: GOTO 348 350 VTAB S + @ ® 23 HTAB Si PRINT Gf 348 #IF @ ¢ 4 THEN 338 378 GOSUB 498; TEXT APPRECIATION... SI L'ON PEUT DIRE 388 YTAB 15: CALL - 958: PRINT : HTAB 5S: IF E = 2 THE N PRINT “ “y: FLASH : PRINT “BONNES REPONSES; TRE 5 BIEN!": GOTO 428 396 INVERSE : IF £€ = 1 THEN PRINT “UNE LACUNE GUI SER A DONC COMBLEE": GOTO 428 408 IF E ¢ 4 THEN PRINT “UNE BONNE REVISTON S° IMPOSE. «e's GOTO 428 418 PRINT “CONNAISSANCES TRES INSUFFISANTES* ON CONTINUE... OU ON ARRETE ? 420 NDRMAL : VTAB 22: CALL - 198: = @: GOSUB 446: PR INT "EMU DE OISGUETTE ‘;: GOSUB 46@: PRINT “ECOMMEN CER ";: GOSUB 448: PRINT “ERMINE ";: GET R®: PRINT Rs: IF RS = "R* THEN CLEAR : GOTO 28 436 IF R3 = "M* THEN PRINT : PRINT CHRS (4)*RUN MENU : 49a IF RO ¢ > "7" THEN 428 458 HOME : END 4466 INVERSE :X = % + 1: PRINT MID® (*MRT",¥%,1)472 NORM AL ; RETURN 470 VTAB 21: CALL - 958: RETURN PETITS SOUS-PROGRAMMES DIVERS 486 YTAB 24; HTAB 4: PRINT "PRESSE2 UNE TOUCHE QUELCON QUE";: VTA 20: PRINT "" 498 CALL -— 178: POKE - 16968,@: WAIT - 14984,128,12 7: POKE - 16348,8: RETURN $@8 HCOLOR= Z: HPLOT 2,H TO 1 - 7,2 70 B,H HPLOT 1 - 7,2 TO 1 - 74H - 13 RETURN 518 HCOLOR= 3: HPLOT I,2 TO 1,H — 1: HPLOT 2,H TO 1,2 TO BH 528 FOR 22 = 1 70 18:X = PEEK (49208): NEXT 530 X= PEEK (49152); IF X ¢ 128 THEN 53a 548 POKE 491468,0: VTAB 2@: PRINT “"s RETURN 558 POKE 8192,0:A% = "2001¢280@.3FFEN D8236" 560 FOR I = 1 TO LEN (A$): POKE S11 + 1, ASC ¢ MIDS ( $,1,49) + 128; NEXT + POKE 72,8: CALL - 144 57@ HGR 1 TEXT : HCOLORS 9: CALL 4790: GOSUB 598: GOTO 48 586 POKE 49234,8: POKE 47235,0: POKE 49239,8: POKE 492 32,8: RETURN | 598 DATA RECTANGLE,B,ISOCELE,A,SCALENE,D, EQUILATERAL ,C — TRIBIN (ROUTINE DE PRESENTATION) 125C:A2 af AD BH AY 28 20 5S? F4 AS GE AS 61 AG 26 26 3A FS AS F646 AG OS 20 BA FS A° 8 48 28 29 SA FS AZ BC AD GH AS 32 = 6 57 F4 AP G4 AD 9B AD SE 20 3H FS AS RA ag 6E 20 34 FS AP BC AB 32 20 3A FS A2 BD AG 81 AP 32 26 57 FA AP 1E AS BA AB ZF 7 28 3A i24D;F5 Ae? DC A® 95 20 3A FS AY BD AZ Bl AG 32 20 SA FS AS OF AB BO FH 2B 57 FA Ae 22 AS 8B AB BO 26 34 FS AP 22 48 BS 2 6 GA FS AP 18 AR @5 28 SA FS AP 168 AB 23 26 34 FS AS 13 AB 23 28 3A FS AP 13 AD 65 28 3A FO AP BF AG OS 28 3A FS AF BF 4 6 66 26 12FE:3A FS A2 27 AG BO FSB 20 57 F4 AP 42 A2 86 40 GB 2Q BA FS APF 42 AD 14 28 3A FS A? 3° AB 14 28 3A FH AY 42 AB 29 26 3 a FS Ae 3C AB 23 26 34 FS AY 32 AG 14 20 36 FS AY 2E AB 14 26 3A FS AP 2E AD 23 28 3A FS AS 29 AG 23 28 3A FS AP 2F AB GB 6 25 34 134F:F5 A2 2E A® @8 AY G5 26 57 F4 AP 3D A2 88 AG 85 26 BA FS AS 32D AB BF 28 BA FS AS 2E A® OF 26 34 FS AY 2E AB G5 28 3 A FS Az 4° ASB BO PE 20 57 F4 AP GE AZ BB Ad BB 26 3A FS AP 4E AB 23 28 3A FS AP 4? AD 23 28 3A FS AP 4° AG BB 26 34 FSA 2 55 AB 1348:00 °3 26 57 F4 AP SE 42 8G AB BO 2H 3A FS A? SE 40 23 280 3A FS AP 49 AM 23 20 2A FS AY 67 AB 14 26 GA FS AP SA AB 1 4 2@ 36 FS AF 5A AB 23 26 SA FS AP SS AB 23 28 3A FS APY 55 AW B86 29 SA FS AZ 5A Ag G6 AP G5 28 57 FA AS 47 AZ GH AG OS = 6 3A FS I3SFITAy 69 AG AF 20 34 FS AS SA AB BF 26 3A FS AP 54 AG GS 26 3A FS AB 75 AB HB 98 20 S57 F4 AF 75 AZ GA AG 23 26 BA FSA 2 PA AB 23 20 3A FS AP 7A AG OS 26 3A FS A? 38° AG 23 28 34 FS AP BE AB 23 20 3A FS A? SE AG BA 28 3A FS APY BF AB BE 20 F 6 FS Ae 1442:389 AB 1C 26 2A FS AF FA AG GE 26 34 FS A? 75 AG O88 20 FH FS AZ AE AG GO FA 20 S57 F4 AP $5 AZ 8H AB OB 26 BA FS AP F 5 AG 23 26 34 FS AP AE AB 23 28 BA FS AP AE AB BF 28 3A FS AP Ad AB BF 20 BA FS AP Ad AG 14 20 BA FS AY AP AB 14 2B Be F 5S ar ae Cee ee ee aaa ea allel at tattle alate delete Si vous étes néophyte, taper un CALL—15) (suivi de RETURN) pow passer en mode moniteyr. Puis, immeé- dintament apres |'étolle, (oper chocune des sequences suivantes (RETURN oprés cha- cune Welles}, Pour terminar BSAVE TRIBIN, Ad700, L258 {ou BSAVE TRIBIN, A$125C, L058) Ensuite, topez CTRLC, puis RETURN of, en direct, In for- mule de contréle que yous frouverez 4 Io page suivante. Le rasuliat devro étre 96808, DEUX ADRESSES Trace un paint {placer dons % at ¥ les parties basses et hautes de la coordonnde X du point en question, ef dons A la coardonnée ¥). Ainsi, & partir de $125C, LDx £$99 LDY £300 LDA. £$28 JSR SF4S7 va frocer un paint en $9-$28 (9-40 en ddcimal)... ou ancore 1 9 du bord gauche de |'étron et 6 40 du haut de ce méme écran), SF53A HLIN Trace une ligne, de lo méme maniére. Cette fois, on place le nombre de poinis horizontoux en A,X (toujours en hexadétimal) et la coordennée Y dons ¥ (eccumulateur), Oons notre programme, 4 partir de Vodresse $1265, cela donne : LDAESGE ~] $10E = 270 LDx £301 LDY £328 $28 = 40 JSR SF53A, Une ligne va aller du point précéden! av point situé a 296 du bord gauche ef a 40 du haut de I’éeran. ceoueuneanvesecennesness GUY -HACHETTE Ne aaa ladleelaleieaialeleeenerianieialanialal 1493100 1E 28 34 FS AS FA AO TE 26 34 FS A? 94 49 85 28 34 FS AP AE AG OS 28 3A FS AS AE AM OB 28 34 FS AP BS AD BH 9S 2 @ S7 F4 AP BA AZ OF AB OG 29 3A FS AP BA AG 1E 26 34 F5 AD CE A@ 1E 28 3A FS AP CE AG 23 20 3A FS AS BS Ae 23 28 SA FS A ° BS AG 14E4:00 26 34 F5 AZ 05 AG BH 98 ZO 57 FA A? EE AZ 90 AG BO 26 Ze FS AP EE AG OS 20 34 FS AP DA AB 85 26 BA FS AP DA AD B F 20 3a F5 AS E4 AG GF 28 34 FS AP E4 AG 14 20 34 FS AF DA AB 14 26 3A FS AS DA AG 1E 26 34 FS Ao EE 48 1E 28 34 FS APE E a@ 23 1535:20 34 FS AP OS AB 22 20 SA FS AP DS AB 86 20 34 F5 AZ BE AG Bi AF BB 2a 57 F4 A? FS AZ 4G AB GB 2B 34 FS AP FS AGL 4 20 34 FS AP OF AZ G1 Ae 14 28 3A FS AP O? AZ B1 AG 1E 26 3A FS AP FS AZ OO AD Un sous-programma en lan- goge machine porait terri- blement long (celui-<ci est dlémentaire et ne foit que trover des lignes successi- ves), mais il n'en ast rien, Sons étre un chef-d'couvre (et pos dovontage un modéle), !cran graphique ainsi obfenu occuperait les 39 sectours dune disquette, ici, || ne comporte que 858 octets... 22 lignes de BASIC | 1E 20 26 FS AP FS AB 23 28 34 FS AP BE A 2 81 A4@ 1584:23 26 36 FS AP GE AZ B11 AB OF 20 3A FS Ae Fa G2 68 AG OF 28 3A FS AP FA AB 65 26 34 FS AP GE AZ 81 AB 85 29 BA FSA ° GE AZ @1 A 6B 24 3A FS 46 BSAVE TRIBIN, AS125C, L658 FORMULE DE CONTROLE (EN DIRECT) ET=0 +FOR1=4700709760+957 :T=T+PEEK CI) 1NEX T:PRINT T Le résultat devra tre 96808 Vous nous aclressez vos programmes, soit pour qu’ils soient publiés dans Tremplin Micra, soit parce que vous butez sur une difficulté appa- remment insurmontable. Bien, Nous sommes vos amis... mais de grace, joignez toujours 4 votre envoi la disquette cor- | respondante, avec les sources éventuelles. De plus, si un retour s'impose,n‘oubliez jamais _ que Tremplin Micro ne roule ni sur lor ni sur _ les timbres-poste ! Alors, amicalement, joignez une enveloppe timbrée et libellée a votre adresse. TREMPLIN MICRO Votre bibliotheque INFORMATIQUE « BASIC PLUS... 80 routines pour Apple Il* Michel Martin connait bien le basic Applesott et désire communiquer sO science aux programmeurs moins qualitiés que lui : lo bonne idée que vollé | Comment struetu- rer un programme ? Camprendre a) ufiliser les fonctions logiques et notamment DEF FN 7 Deux ques- tlona cuxquelles Michel Martin répond simplement et efficace- ment. Mals i) vo beaucoup plus loin, et lon n'en finiralt pos d'éru- meérer les titres des divers chapi- (res et sous-chopitres de cet excal- lent recuell de programmes, judi- Clouserhent structure... mais oul | On aimeroit que tous les bouquins cient cette fenue, Brovo | © MATHEMATIQUES ET GRA- PHISME SUR APPLE II** Marc Ducamp et Alain Reverdron ont associé leurs efforts et leur tolent pour nous concocter un bou- quin | ['aveve, & ma gronde honte, n‘avoir pas recopid les pra- grammes, Chapeau ! Porsonnelle- ment, j@ n'ai qu'un rearel, c'est de ne pos pouvoir acheter la dis- quetie.. contenant toutes les rou- fines de cet ouvrage, Pourquoi ne pos. la commertioliser ? Il est vrai que les auteurs désirent —d'abord et surtout — initier leurs lecteurs aux méthades de calcul numéri- que, ce gui posse pat une analyse sérieuse Ges programmes... et donc par une froppe directe, au clovier. Je conseille néanmoins a la librairie Eyrolles de diffuser la disquette : elle le mérite ! ik 4 * LE TOUT MICRO*** Tout. Vous saurez tout sur la micro-informatique individuelle, et méme l'odresse de votre Tremplin Micro, Veédition 1985/1986 de cet ouvrage, discret — mals suffisant — par sa pagination, séduisont par lo richesse da son illustration (beaucoup de couleur) ef de sa mise en poges, indispensable par lobondance et I'exoctitude de so documentation qui m‘a paru plus compléte que la précédente, déjd fort intéressante. = Matériels, tableaux comporotits, pdériphéri- ® par NESTOR ques, logiciels, livres, adresses... LE TOUT MICRO mérite san titre | Y ov * Basica et GWBASIC Micro- soft** Je sais: vaus possédez un Apple ef non un IBM PC, mois est-co une raison suffisunte pour vous désin- téresser complétement du GWBA- SIC (ow BASICA) ? Sirement pos. Uouvrage de Bruno Vanryb et Roger Politis tlent campte des der- niéres versions {celles instollées sur IBM PC ef OLIVETTI M24), mais les instructions les plus récentes sont séparées des autres, ce qui permet de née pas pénoliser les possesseurs des pramidros ver- sions, Comme on aimerait trouver, sur Apple, certaines des exten- sions (et pourquoi pas toutes ?) du BASICA | Il est vrai qu'il y o le Basic de Mac... mals je préfare, ay 6 moi, sage Nestor, réver ‘un Apple tl... 16 bits | NESTOR. J Pst * Eprolles +" Hachette Informatique GUY-HACHETTE PRATIQUE [ees ProDoOs BASIC FACILE r vrovanme denne DRAJET MINUTE ll s'agit de noter, pour chaque étape d'un por- cours (un rallye... ou un déplacement ae- rien), le temps prévu, Le programme va donc odditionner les minu- tes et les heures, four- nir, au fur et & mesure de la saisie, le temps fotal préevu ; * en heures et minutes * en minutes * en heures et centié- mes de minute, On peut corriger les données en topant un "voir et revoir le tableau aide-mémoire en tapant un "C".., etc, Tout cela figure dons le programme, Ajoutons que |'impres- sion des étopes et de leur durée est aussi prévue, De plus, il n'est pos interdit de modifier et de compléter cette routine, créée 4 Ia demande d'un lecteur de Tremplin-Micra. TREMPLIN MICRO 168 TEXT i; PRINT CHRE (21): HOME 185 DIM Té30°,TS!38> 118 FOR 1 = 1 TO 21:9 = VS 4" ": NENT 115° FOR 1 = 1 TO 112PTS = PT@ + "...": NEXT 128 : 125) REM See eee eee eee eee REESE RESET 138 REM #* PETIT MENU oid 135 REM SESS ONE eeNEeRe eRe RHR 148 3 145 HTAB 9: INVERSE : PRINT " LES ETAPES DU PARCOURS * 156 NORMAL ; PRINT {35 PRINT “MENU EXPRESS ----------- , 168 PRINT x PRINT * 1. SAISIE* 145 PRINT : PRINT “ 2. IMPRESSION" 170 PRINT : PRINT " 3. TERMINE" 173 PRINT § PRINT “s2-ee-ess-s-- CHOIX =>) "y2C = POS (X) 4 2:CV = PEEK (37> 4 1 16@ PRINT : GOSUB 488 185 VTAB CV: HTAB C; CALL - 958: CALL - 198: GET RS 172 ON WAL (R$) GOTO 258,480,195: GOTO 185 193 TEXT : HOME : END 208 ON R GOTO 258,480,548: GOTO 198 205: 210) REM ##tB eee eee eee RRR e Re eR eRe 215 REM #* SAISIE DES DONNEES lead 220 REM FEHNNS HRT EHR ERR RET ERE EEE 225 1 238 X = 8: FOR 1 = 1 TO 21 STEP 71X = X + 1: VTAB Xe HT AB 33; PRINT MIDS (T8,1,7): NEXT : RETURN 235 TS = Vb: GOSUB 238: GOTO 185 248 TT = TT — <TCN — 19):N = N = 2: GOTO 435 245: 258 INVERSE +; PRINT R#: NORMAL 255 NORMAL 268 N = 8 265 N = 81TT = 8 278N=N41 275 T# = “LIBELLEDE L’ETAPE": INVERSE : GOSUB 238: NORMAL 288 PRINT : VTAB 14; CALL - 8468: PRINT N" "siVI = PO S (X}: PRINT PT$;: HTAB VI # J}: CALL — 198: IF Es¢ Nd) ¢ > *" THEN PRINT ES<N); 285 HTAB VI] + t: INPUT "*;E% 290 «IF £8 = ** AND ES(N) ¢ > “* THEN VWTAB 14: HTAB 1 + 1s PRINT E®(N) — 9 295 «IF E® = *" AND EStN) ¢ 4 *" THEN 328 300 4IF E@ = "F" THEN POKE 35,22; GOTO 235 385 IF ES = “C* THEN GOSUE 486; GOTO 288 316 TF E# = °* THEN 208 315° IF ES = *#" AND N > 1 THEN 246 328 «#IF Es = “?* THEN 235 325 ES(N) = ES:Es = °" 338 T@ = "RENTREZWOTRE HORSIRE*: INJERSE ; GOSUB 238: NORMAL 395 TAB 14: HTAB 24: PRINT "TEMPS "N" => "iV = POS m4 348 CALL - 848: CALL a 345 HTAB Ys INPUT ""4T# 35a IF 7 = "9" THEN 225 355 IF T$ = "C" THEN GOSUA 4@8: GOTO 325 - 198: IF TON) THEN PRINT T#iN 368 «IF 7% = "" AND TON) THEN 430 363 IF T# = "* THEN 185 376 «IF 7S = “** AND N > | THEN 240 375 IF T# = “F" THEN POKE 35,22: GOTO 235 388 P = 6:PP = O:LT = LEN (T$): IF NOT LT THEN 286 385 FOR 1 = LT TO 1 STEP - 1:08 = MIDS CTS,1,492 IF «ce ¢ "8" OR CH > "9". AND CB ¢ > "." THEN 298 398 #IF Cé = *." THEN P = 1:PP = 1 395 IF P AND I = LT - 1 THEN T$ = + RIGHT# (74,1): GOTO 388 408° NEXT 4035 IF NOT P THEN TMs = 46@ * VAL (T#)1 GOTO 428 410 7X4 = INT ¢ VAL (T8))!TY% = VAL ¢ RIGHTS (TS3,LT - PP) 3TMA = (68 * TX) + TYR 415 IF NOT PP THEN TS = T# + *.80” 420 «#IF TM% > 300 THEN YVTAB 21: HTAB 1: PRINT TMZ" MIN WES - CONFIRME2 PAR OUI SVP "ys: GET R$: PRINT : VT OB 21: CALL - 848: IF RS % ) "0" THEN 286 925 TS(N) = TS:T(N) = THY 438 TT = TT + TiN? 495 HS = "*sMS = "" Ht = AL CHS) * 66) ¢ > TT THEN MB = He) # 689) 498 HOS = He: IF MB ¢ =) “* THEN HOS = HOS + ",* # STR 3 ¢ INT ¢ VAL (MS) © 180 / 489) 445 He = He + "h” + Me 450 GOSUB 57a: GOTO 278 455 3 460 REM seeeeeeen eee eee ee eee ee eee 445 REM ## IMPRESSION oe 470 REM SFeeeeREN RENE REE NEHER eee 473: 488 PRINT : VTAB 2@: CALL ~- 848: PRINT "ALLUMEZ VOTRE IMPRIMANTE S.V.P";2 GET RS: PRINT + VTAB 28: CALL ~ B63 485 PRINT ; PRINT CHR® (4)*PREI“; PRINT : PRINT CHR (P)"GON": PRINT CHRS (279"E"; CHRS (27)"L628" LEFT$ (78,1) « "6" STR# ¢ INT (TT # 60903 TF ¢ VY STR® {TT - ¢ VAL ¢ On gurail sans dowte pu simplifier cette partie de lo saisie en utilisant une seule yarjable, évitant les doubles "IF cech.. ou cola”, mais on n’es! pas — ici en tout cos — 4 quel- ques octets de plus ov de moins, | existe différentes méthodes pour addition. ner les heures et les minu- tes, Nous en avons cholsi une, pour différentes rai- sons... fout a fait arbitraires_ A noter que, si vous saisis- sez 1.1, le programme tronstorme oqutomatique- ment en },01. La encore, il s'agit d'un cholx délibéré. Si CHRS"BON” es! une commande standard, CHRS(27)"E" et CHR "L820" sont destinées ux imprimantes DMP et IMAGEWRITER. f2e see sseveuerenseweas GUY-HACHETTE UW eo se eae SR ERS E EER SRES ERS SS Oa a5 koe SSSR ESTAS OUST S ELT EE sss SoS SSESTSE SEATS Voici un PRINT USING de derriére les fagots, Si vous aver mieux... n'hesitez pas | Si, lors de la saisie de la valeur n°l, on indique \'HEURE DE DEPART, on obtiendro ici | 'HEURE D'ARRIVEE. Nous avons fait un effort méritoire pour afficher, por lo frappe d'un simple “C', V'aide-mamoire cl- contre, Programme classique, on basic, de transfert d'écran. 46 495 508 sas Pt) 315 529 525 538 595 346 345 358 555 568 565 576 S75 56a 565 37a 595 600 685 418 41s 428 425 430 435 448 645 658 655 66e 445 678 475 4688 485 PRINT CHR® ¢14)"DEPLACEMENT DU" CHRS ¢15)PT#: PRI WNT : PRINT FOR T= 1 TON - 128% * *:s IF TP} P ORN-1 C1 @ THEN E# = "" PRINT E€;15". "SESCT) 5: POKE 34,50 IF Tél) ¢ 688 THEN PRINT * "5 IF TOY) 4 61 THEN PRINT * “; T= WAL (T#<1)) Ts = STRO CCL + T # 1006) 4 1888): = LEN (TS):TS = LEFTS (T#,L — 1): PRINT T9;" mn* NEXT PRINT : PRINT §V = 1: GOSUB 5782 PRINT : PRINT CHR® ¢4>"PREO* POKE 35,24: GOTO 185 t REM «2+ # OPRORE REE R EE HER ETE HOW REM ** TEMPS TOTAL ” REM S84 RRHEREC OST EON ee eR eer EEE AEE i VTAB 23: PRINT "TEMPS TOTAL:"HS" ¢"TT" mn) OU "5: INVERSE + PRINT HC#;: MORMAL + PRINT © "s: RET URN “REM ESERIES THER EH ES ER EEN AEH REM *# A1DE-MEMDIRE “ REM #FtSeM MEE Meee ee eee Rete eee GOSUB 478 VTAB ii: CALL - 958: FOR I = 1 TO 1@: PRINT *---~ “ts: NEXT 1: PRINT INVERSE | PRINT “PENDANT LA SAISIE:": NORMAL = NT PRI PRINT "- <?9 VOUS RENVOIE AU MENU" PRINT "- ¢F9 INDIGUE LA FIN DE LA SAISIE PRINT *- (#) PERMET DE REVENIR EN ARRIERE” PRINT “- <C> RENVOIE A CE PETIT TABLEAU" PRINT *- (RETURN) CONSERWE LA DONNEE EXISTANTE" VTAB 22: HTAB 5: INVERSE : PRINT " ENFONCE? UNE TO UCHE QUELCONQUE *;: GET R®: PRINT : NORMAL ; GOSUB 685: RETURN t REM #8#S SSeS SAAR RUE ER CNET ERE REM #* TRANSFERTS DES ECRANS ** REM 4249 ed ed eee RENE A eee Re eee ee i ES = 1024110 = 68; GOSUB 480:E5 = 2848:L0 = 62: GOS UB 480:ES = 9192:L0 = 44: GOSUB Be POKE 748,148: POKE 769,08: POKE 778,74: POKE 771,44 + POKE 772,254: CALL 748: RETURN POKE LO,E5 - INT (ES / 254) * 254: POME LO + 1, I NT CES # 2546); RETURN ES = @192:L0 = 40: GOSUB 698:ES = 9288:L0 = 42: GOS UB 688;ES = 1024:LO = 46; GOSUB 688; GOTO 4675 e INITIATION Oui, il est facile, sur une POINT imprimante ImageWriter (ou bien sur une DMP), ar d’éditer les pages ; P graphiques de I’Apple. POINT L ES imprimantes Apple sont accompagnées d'une documentation et d'une disquette TOOL KIT permettant d'éditer rapidement n'importe quel écran graphique, mais leur fonctionnement teste néanmoins mal connu. Pourtant, quand on sait utiliser toutes les ressources de ces machines, réaliser de belles impres- ie sortant de l'ordinaire, devient un jeu d'enfant... en y mettant le temps, comme on le verre plus loin, L'ECRAN GRAPHIQUE DE L'APPLE : Les adresses de |'écran “TEXT” figurent dans de nom- breux ouvrages, mais les adresses des écrans graphi- ques sont moins courantes. Une routine simple vous permettra de les afficher... ef méme de les imprimer (c'est de lo documentation sire !). La voici : $0409 1624 $2086 B192 $4088 146384 $9488 1152 22886 8328 $4088 14512 $8500 1266 $2180 8449 $4100 146446 $0588 1408 $2180 9574 $4188 14768 $0488 1534 $2208 9704 $4208 14894 20688 1444 #2288 8832 $4298 17824 $8708 1792 $2308 8948 $4388 17152 $8788 1720 $2388 7896 $4386 17260 90428 1844 $2028 8232 $4028 16424 $04A8 L192 $20AG 8348 S40AG 14552 $8528 1320 $2128 8486 $4126 146680 SO5A8 1448 $21A8 8416 $4148 14688 eDPRESSES FCRAM 168 TEXT : HOME 118 FOR T = 74870 92a: READ D: POK E 0,0: NEXT 128 PRINT "TAPER 1 POUR IMPRIMER "3 1 GET Re: PRINT : HOME + IF RS = "I" THEN PRE 1 136 FOR I = @ TO 23 146 POKE 6,1: IF 1 ¢ 18 THEN PRINT Svoonwovsune ae 156 PRINT 1; TABt 4331 CALL 768 s oe «23 THEN PRINT 12 $0428 1576 $2228 8744 $4228 14996 oa 13 $848 1784 $2249 8872 $4208 178464 te 3 Re = "I* THEN PRINT + PRE 8 14 $0728 1892 $2928 Pega $4328 17192 1 C81 FORE = ie geo4 8s WOET 15 $07A8 1960 $2348 9128 $43A8 17328 ~ 16384,128: HOME 16 $8459 1184 $2050 8272 s4a58 14444 208 DATA 165,6,92,199,251,165,41,19 17 sqqng 1232 $2aD8 8480 $40De8 14592 3,6,32,33,3,165,41,24,105,28,133 19 sassq 1348 $2158 8528 $4150 14720 De ee i pm a ae 19 $8508 1488 $2108 84654 $41De 14848 132,333) 28 $0658 1414 $2258 8784 $4258 146976 218 DATA 169,164,32,237,253,166,48, 3) gana 1749 $2208 B912 $42D8 17104 165,6,32,65,249,32,55,3,166,48,1 39 9759 1872 $2358 9848 $4358 17232 sei EsPE RIT ONCR 1 sSEy CH PAE 23 $87D8 2008 $23D8 9168 $43D0 17348 12 GUY-HACHETTE La structure de chaque écran graphique est opparemment la méme que celle de V'écran TEXT, soit 24 lignes de 49 corac- féres, mais ce n'est pos tout. Chacune des lignes de notre tableau n'est que lo premiére d'un groupe de 8. Ainsi, si l'on considére I’écron HGR ($4000), entre la ligne @ et la ligne |, an trouve 7 sous-lignes : [LiGNeo = 8192 | 0,1 = 8192 + 1024 = 9216 3.2 = 8192 + 2048 = 10240 Q.3 = 8192 + 3072 = 11264 G4 = 8192 + 4096 = 12288 0.5 = 8192 + 5120 = 13312 0.6 = 8192 + 6144 = 14336 0.7 = 8192 + 7168 = 15360 LIGNE] = } 1.1 = 8320 + 1024 = 9344 1.2 = 8320 + 2048 = 10368 1.3 = 8320 + 3072 = 11992 1.4 = 8320 + 4096 = 12416 1.5 = 8320 + 5120 = 13440 1.6 = 8320 + 6144 = 14464 1.7 = 8320 + 7168 = 15488 et ainsi de suite. Terminé pour les rangées.,. mois il y a oussi Jes colonnes ; 40 ovons-nous dit. D'occord, mais 4@ colonnes de 7 points (bis)... powr orriver au total de 280 UNE PAGE GRAPHIQUE EST DONC COM- POSEE DE 280 X 192 (24X48), SOIT LA BAGATELLE DE 53760 POINTS (PIXELS). On comprend pourquoi le programme chaprés (Basic + langage machine) exige plus de 3 minutes pour effectuer, POINT PAR POINT, une copie d'écran (le femps de traitement ne dépasse pas | minute... et cest seulement la lenteur de limprimante qui est en couse), Par contre, on obtient un résultot excel- lent... ef méme des ronds ronds (pas question de s'endormir pour autant !). Noturellement, il existe un outre moyen, plus rapide, mais nous en reparlerons. CANTAL MUNSTER PONT-EVEQUE - REBLOCHON \~" AUTRES —~"~" BRIE" CAMENBERT -—~~ BRUYERE =" CHEURE ROQUEFORT —~ DIAGRAMME OBTENU AVEC LE FROGRAMME TREMPLIN MICRO .-. ET LE MEME AVEC LA ROUTINE TOOL KIT... “RinPReS GRE ERGGEFE nP En” BOMBS cg Te CANTAL —— MUNSTER —— —~ PONT -EVESUE — REBLOCHON s3 AMI AUTRES ee ! MA nl a CAHENRERT i Hl I | Hip I TREMPLIN MICRO 3 SERUSUE SSS SON ERTS SS SS ee PSNR Rese eccane ss REN ESTSSSRER TSP STENTS STE SNe ess eee RASS ERE 188 105 118 115 128 125 138 146 145 158 155 168 165 178 175 188 185 198 195 208 205 218 215 220 225 238 235 246 245 258 255 248 265 278 275 268 285 298 295 308 305 SL = TEXT =: PRINT CHRS (21): HOME + VTAB 22 DS = CHRS (4):E¢ = CHRé C27>:5U = 8 GOSUB 488; GOTO 286 i REM #0 FR RRHR RMR TERE RSE eK REHASH EH REM *# AFFICHAGE DES PARAMETRES #« REM #20 eeeN RR RR ERE Rede e eee E Ee 135 : PRINT : VTAB 18: CALL - 958 PRINT "PAGE ";1 INVERSE : PRINT PG}: NORMAL PRINT " - MODE "3:73 = "BLANC SUR NOIR": IF M = 8 TH EN 7% = “NOIR SUR BLANC” PRINT 1% IF 13 ¢ > *" THEN PRINT "IMAGE: PRINT " = DRIVE “DR IF SL THEN PRINT "IMPRIMANTE DANS LE SLOT ";5L RETURN i REM SH#ERRHRRHRE AER HERS RR ERRNO RRR REM #4 ENTREE DES PARAMETRES “a” REM ON ERE SESE SLES LETRA EASA EEE i VTAB 221 HTAB 1: CALL R2 —-> “;: GET P$:PG = =1 IF PG = 1 THEN HGR IF PG = 2 THEN HGR2 :5U = 8172 TEXT : HOME GOSUB 148 VTA 22: HTAB 1a CALL NORMAL -} “7: GET RS IF R@ = CHRe (8) OR RS = "1$;: IF DR THEN - 868: PRINT “<i> HGR <2) HG VAL (P#)1 TF NOT PG THEN PG - B4B: PRINT "{1> INVERSE (@> CHRS 411) THEN 208 M= VAL (Re); IF M > 1 THEN M = 1 POKE 16,¢ GOSUB 146 VTAB 22: HTAB i: CALL ~- 868: PRINT “IMAGE -) "ya GE TRS: IF R@ = "" OR RO = CHRE (8) OR R# = CHRS (11) THEN PRINT : GOTO 200 1% = Re VTAB 22: HTAB 1: PRINT “IMAGE -> "I@;: HTAB J1: INPU T ""GRe;1é = Is + RS 1F 19 <¢ «> "?" AND CIS ¢ *A* GR.1S > “Z") THEN 256 IF 1@ ¢ > “?" THEN GOSUB 148 WTAB 22: HTAB 1: CALL - 8681 PRINT "DRIVE 1-2 ? -) "y2 GET Ré: PRINT 1DR = 11 IF R® = "2" THEN DR = 2 IF R@ = CHRé (8) OR R& = CHRe (11) THEN 258 IF I$ ¢ 9 "3" THEN GOSUB 148 IF 1 = "9" THEN HOME + PRINT D#"CATALOG,D"DR: PRIN T : GET RS: PRINT : PRINT ¢: PRINT :18 = "": GOTO 248 UTAB 22: HTAB 1: CALL = 848: PRINT "SLOT DE L’IMPRI MANTE 7 -> “ys GET Re IF R@ = CHRS (8) OR R$ = CHRS (11) THEN 275 WAL (R#): IF SL 4 1 OR SL > 7 THEN 295 14 a Vers linitialisation du systame CALL—958 effoce tout ce qui vient aprés le cur- seur (y compris au-dessous} DR = Numero de DRIVE SL = Numero de SLOT PG = Numéro de page (HGR =1 —HGR2=2) q $U = 8192 quond on chaisit la page 2 M =Mode (1=Inver- se, 3%=Normal) @ ts = Imoge & charger Noter qu'il est possible dobtenir fe catalogue en topant {?) ef de revenir 4 Vitam précédent en utilisant l'une ou l'autre des Méches del'Apple le ow de l'Apple tle; eee eeseeeeneeeereene GUY-HACHETTE DS = Densité (normal ou gras) Cest par |'Ampersand (ini- Hialisé plus loin) que len transme} |'odresse du début de ligne & la routine en ossembleur. 4 lire {1 prinei- | P = nombre de lignes pale + 7 souslignes} = nombre de lignes principales [2d) Si Vous désirer en savoir plus sur ces 4 lignes {qui installent une courte rou- tine en langage machine} feporter-vous @ Io poge suivante. 318 315 328 325 338 335 346 345 358 355 348 365 378 a75 388 385 398 395 408 485 418 415 428 425 430 435 aaa 445 458 455 4d8 465 478 988 485 498 495 GOSUB 140 VTAB 22: HTAB 1: CALL - 868: PRINT “<S>IMPLE DENSIT E {DDOUBLE ";: GET S$:DS = 8; IF S$ = "2" THEN DS = 1 Ps = ",At2008"; IF PG = 2 THEN P# = "AS49000" PRINT : PRINT De"BLOAD"I$;P#* ,D"DR POKE 49235 + PG,O: POKE 49234,0: POKE 49239,@: POKE 49232 ,8 i REM +4222 Reed eee HR HH RRR RCO RR ERE REM *# IMPRESSION id REM HARSHER RRA SES ER SR EAE OEE t PRINT CHRS (4)"PRE*SL PRINT : PRINT CHR® (15) PRINT CHR® ¢9)"G8N* IF NOT DS THEN 385 PRINT Ee"! "; PRINT ES">"; PRINT ES"n"; Awl en caractéres gras si DS=1 impression unidirectionnelle coractére choisi PRINT Es*T@)" READ ABAD = AD + SU:P = 8 & AD PRINT E@"G8280";: CALL 779 PRINT : PRINT PsPd4 it IF P< @ THEN 418 O=0D+ i: IF D < 24 THEN 408 PRINT PRINT E® * CHR® (34) PRINT De" PREG" % = 8: FOR 1 = 1833 TO 10153m = X 4 1: POKE 1,A(X): N EXT TEXT + HOME : END REM #4 Ft Fete eRe eee TET eee T Ee TEE REM ** ROUTINE LANGAGE MACHINE #* REM ###RFERRR ERS HSER EE ERR H EER EER t POKE 768,32: POKE 769,123: POKE 778,221: POKE 771,32 : POKE 772,82: POKE 773,23): POKE 774,132: POKE 775,46 : POKE 774,133: POKE 777,7: POKE 778,96: POKE 779,168 1 POKE 780,08: POKE 781,177: POKE 782,4: POKE 783,133 POKE 784,81: POKE 785,142: POKE 786,7: POKE 787,165: POKE 788,8: POKE 789,24; POKE 790,74: POKE 791,133: P OKE 792,8: POKE 793,169: POKE 794,08: POKE 795,105: PO KE 796,08: POKE 797,24: POKE 798,181: POKE 799,18 POKE 888,201: POKE 881,2: POKE 882,209; POKE 983,3; POKE 884,54: POKE 885,233: POKE B@é,2: PDKE 887,32: P DKE 888,237: POKE 889,253: POKE 818,282: POKE 811,208 + POKE 912,230; POKE 813,280: POKE 614,192: POKE 815, 48 POKE 814,288: POKE 817,219: POKE 816,24: POKE 819,16 9: POKE 826,4; POKE 621,101: POKE B22,7; POKE 823,133 1 POKE 824,72 POKE 825,96 —_ 8 588 ; Souvegarde des 585 % = 0: FOR T = 1013 TO 1015:K = X *# 13AK) = PEEK (I voleurs pour le cos ds NEXT ov elles serciant utili- S18 POKE 1813,7é: POKE 1014,0: POKE 1815,83: RETURN sdes por alllours S15 + 528 OATA 8192,8920,8448,8574,9784,6952,8960,7089,562392,85 grr des 24 68,9498, 9516, 8744, 2972, 90n0, 9128, 8272, agua, 8528 18656, lignes principales area, BP12,7048, 9148 POUR EN SAVOIR PLUS SUR LES POKES (page 15) 63008- 20 76 DD JSR #DD78 B3SG3=— 26 52 E7 JSR $E752 4 B306- a4 B4 STY $84 | ie eae) . @) §8308- 85 ar STA £07 B3GA— 46 RTS @30B- S&@ 6B LoY £¢o0 On arrive ici par un CALL 779 (ligne 410) Q3aD- Bi B46 LOA ($046),¥7 LIRE EXPLICATION S836F- 85S 68 STA 266 Stochage 4 l'adresse G8, page zéro B31i1- Az OF LDX £367 X est mis 7 (compteur de boucle) @313- AS 68 LOA #95 A chargé avec contenu de 8 @315- 18 cLc Annulation de la retenue O314- 4A LSR Décolage a droite (le bit 7 tombe dans lo retenue) @317- 85 68 STA $85 BS1e°- AF BO LDA £200 831B-— 67 08 ADC e888 On odditionne @ + Io retenue 6 A @31D- 16 cLe Nouvelle onnulation BS1E- 465 8A ADC 8A En $04, ilya 1 ou @ (salon mode) g328- CY B2 CMP £tG2 Obtient-on 27 @322- De 83 BNE ‘#8327 Si non, sout @324- 38 SEC Relenue a1 @a25- E9 G2 SBC £802 $i oul —2 (ainsi, 1=@ et 0=1) 9327- 26 ED FD JSR +¢FDED Envol a 'imprimante Q@324- CA DEX ¥=xX-1 @32B- oe Es BNE #8313 Sion n'est pas 40, encore wn tour 632D- Cs INY Y=¥41 O32E- ce 28 cPY €£%28 Esf-on @ $28 (40) 7 8330-— 08 DB BNE #8300 Non : encore un tour @332- 18 cLo Annulation de lo retenue O333- AF B4 LOA £384 = ees be pt a nr us On incrémente lo partie haute de l'adresse de $04 Q33?- 468 RTS ® $DD78 évalue la formule venant du Basic (ligne 405), vio |'Ampersand ef met le résultat dans FAC, $E752 va transformer ce résultat en un entier, sur 2 octets. On le récupére dans Y et A pour le stocker aux odresses $6 ef $7. @ — Ainsi, dans 6 et 7, ona Vodresse du point 4 lire sur l'écran (au départ : $00 20... ou $ 20 00, si l'on préfére). LDA ($06) Y lit la valeur qui se trouve 4 l'adresse 6+, mais une adresse comporte 2 octets et, en réalité, on lit & |'adrosse 6 —7 + Y... ov, dans le cas présent, $2000 + Y. (See EET ORE ET RSS NS Te eRe Eee SSS yews nee ses ees SSS TREES SEES ET ES Se eee sees aSssseesessersesesssens 1 GUY-HACHETTE bos ProDOs Et voici le programme iz 11 IMP.HGR.1 |; 3 o s 8 7 6 5 ats 4 IL FONCTIONNE SUR 3 IMPRIMANTES DMP, 5 IMAGEWRITER, MANNESMANN 1 ET AUTRES COMPATIBLES. 12 VIDEMMENT, i] opére par groupe de E lignes, est enti@rement en langage ~~ machine, et se révéle donc oussi rapide que les routines existant daja. Il est Indispensable, au départ, d’initialiser les odresses 253 et 254 par POKE 253,00 et POKE 254,24 (ligne de départ et ligne d'arri- vée). Si l'on sort plusieurs éditions du mame graphique, il n'est pas nécessaire de se livrer 4 cette opération.,, sauf si l'on désire modi- fier le numéro de lo premiére ou de lo der- niére ligne (ici, la notion de ligne est la méme qu’en mode "TEXT" ; 24 lignes, de @ @ 23), Prenons un exemple précis : soit 4 imprimer un graphique commencant en VTAB 4 et se terminant an VTAB 12. On tapera ; POKE 253,3 (VTAB — 1) et. POKE 254,12. D'occord ? MODE et PAGE Par défaut, le logiciel vous fournira une copie d'écran de la page } (HGR), en mode normal. Attention | mode normol signitie, sur le papier, blanc dans du noir [comme sur votre écron). C'est parfait pour les “photos”, mais pas forcément joli pour les graphiques, Un POKE 6,) permet d'obtenir l'image INVERSE (noir sur blanc). = = : rs COMPLE TEMENT INUTILE if . ~ — a : i z= = | < > md = Vs OS ti em Se Pour imprimer la page 2 (HGR2), taper un POKE 6,2, RAPIDITE Si vous utilisez $4E (N) ou lieu de $6E [n) a Vodresse $60D4, yous y gagnerez en rapidite, mais vos comemberts seront ovales. Pour impression en double densité, allumez votre imprimante avant de lancer limpression et dites-lui gentimen! que vous attendez du gras por la séquence suivante : PRE] PRINT CHRS(27 "!” PREG EN CONCLUSION Dons un programme Basic, une seule ligne tera le bonheur de IMP.HGRI ; 1Q PRINT CHRS(4)"BLOAD (IMP,HGRI" POKE 6,1 : POKE 7,) ; POKE 253,00 ; POKE 254,24 ; PRINT CHR$(4)"BLOAD IMAGE, A$2000" : CALL 24576 Toutes les voriantes sont possibles. Le programme n'est pos relogeable, mois si vous disposez d'un assembleur, il suffit de | modifier l'adresse ORG $6000 (ligne 7) pour Vinstaller cilleurs. Attention | il est un peu trop long pour étre place a |'adresse $309. 2eeSR SRE U eee EEE TEER TEER N ESET aes eee ee SRS E ASSO STE NTE RSs ETeoSses esse SSeS SEES TREMPLIN MICRO 7 ae ae ee W=TNODoe TN noennooann pecoeese 6026: 6028: 6029: 6020: 602F: 6031: FE Assembiage par ProtObeE VINO SuN-sBooIHheuhw-o oo ae ot em ae oe 20 HPEPSHSPAHATHSG EA SESH SATE RED ATHSAeGeEnGEehseHeansgsens * a ee tt = GUY-HACHETTE TREWPLIN MICRO NOVEWERE 8S * FEIT SHEME OPK OHA FSAH ELS SES ASHSE SS HESHSHSHEGESHS GSTS AAS * one = $6000 = # Pour utiliser, ener pet le programme par Bload COPHGA * * POKE 6,0 pour MODE NORMAL ou POKE 6 Gur INVERSE & COKE 7,1 pour PAGE } ou 7,2 pour PAGE * POKE 253,nOen23 (ligne début) POKE 254,N>n<24 (Fin] = § (ligne début - 0 par defaut et ligne fin = 24) - = om MODE O pour NORMAL et 1 = Inverse VPAGE S1C= Her - $3C= Hgr2 ABAST ; Adresse de bese de le ligne ABAS2 artie haute WLIGN iombre de lignes (0 p/défaut) FLIGN Derniére ligne (23 p/défaut) HTAB Longueur de la ligne STOCK Tampon de 7 octets BASCALC Calcule l‘sdresse de base SeTViIo Equivalent de Pret OUTPOAT Pour Pré! si A contiant tf cour Vers imprimante * # * 2 Btp Stid gtif peee eso ; Imprimante dana le Slot | a Ouetpart Z z INITIALISATION DE L*LWPRIMANTE ( DEPART) : LOX CSFF #80 INX LOA TABI, Xx JSA Cout CPX ERI? . BNE §80 ‘ * "60280" ENVOYE A L"IMPAIWANTE (QUI ATTEND UNE LIGNE) “4 INIT LOX ESFF $80 INK GA TABZ, x JBA Egut CPX ESO? BNE 480 é * * ADRESSE DE BASE . iti‘ eee 1a GUY-HACHETTE 6040: ag OO 68 LOA e000 6042; 85 FF 63 STA Htab ; Longueur de ligne 4 zéro 6044: a5 FD 70 DEBUT LOA Wlign 6046: 20 C1 Fe 71 JSR Gascale ; Ltadresse eat dana $268 6 $29 6049: As 28 72 LOA &26 6048: 65 FF x | Apc Htab ; On y ajoute ntabd 6040: 645 08 74 6TA Abas! , Partie basse stochée S04F: AS 26 75 LOA $29 ; Récupération partie haute 6051: 65 07 76 ADC ayers } @ laguelle on ajfoute $1C/$3C 6093: 85 O09 ras STA Abas2 ; avant de la sauvegarder * = 33 * ZONE DE STOCKAGE WISE A (ERO (918-1E) 3 Bl LDX E07 62 LBA eEgo0 83 980 STA Stock-1,X BS DEX a5 BME §80 6 7 e 87 PREPARATION DES 7 CODES Di CARAC GRAPHIQUE + SB Sept cotats pour imprimer 1 carectéra gra- e 4] : phique, le 1/402 de la ligne (280 /? * 40) bd 605E: Ag oa a! Loy $08 6060: a2 O00 §2 Initx LOx E£$00 6062: 41 O08 93 LDA [{Abas?,4) ; Lecture adressage indirect 6064: 4A 94 Décal LSA ; Décalage & droite GO6S: %6 18 95 ROR Stock, * ' La retenue entre 4 gauche 6067: EA 96 INK 6066: €0 07 o7 cPX €$07 ; Bi #8 on @ fait terminé! 606A: O00 FB i) -] BNE Déoal ' ginon nouveau décalaga 606C: AS O4 99 LOA £804 + On va majorer la portie haute 606E: 16 400 eLe ; de $04 (04/00+1024) pour pas- 606F: 45 og 101 ADE Abase ; ger 4 la ligne suivante 6071; 85 o9 12 STA Abas2 ; immadiatement réinstallée 6073: 86 03 DEY 6074; DO EA tee ” BNE Initk ; Si «> de zéro, enoore un tour 106 ° TUPRESSION OU CARACTERE * | i ro eese a * 6076: AZ FF 108 LOX ESFF 6078: EB 109 =BCARAC INX 6079: 85 18 110 LDA Btock,* 6078: Ad O& iw LOY Wode 6070: €O 1 V2 cPr €$o1 607F: FO a2 13 BEQ Filtre 6081: 49 FF 114 EOR ESFF 115 # + ie % FILTRAGE OE $00 §8D 814 ET $9A (CTAL-13 ET CTAL-2) . 6083; C9 ao 148 FILTAE CMP E£$00 6085: FO GE 119 BEQ Chang 6087: 09 8D 120 CWP &$8D 6089: Fo OA 121 BEQ Chang 6088: Co 1A 122 CMP ESTA 6080: FO 6 123 BEQ Chang GOBF: C9 GA 124 CMP E£S$9A 6091: FO 02 125 BEG poate 6093: DO 04 126 BNE Grap 6095: 4A 127 CHANG LSA 4 Un zéro rentre & gauche... 6096: 4A 128 LSR + »0. BE un second 6097; OA 129 ASL + Un zéro rentre 4 droite... 6098: OA 130 ASL + .., puis un second 6099: 20 ED FO 131 GRAPH JER Cout 609C: ED O6 132 CPX £$6 ; Si 86, on a torminé 609E: 00 O08 133 BNE Bcarac | 6OAD: EG FF 134 INC tab 60A2: AS FF 135 LDA Htab 60A4: C9 26 136 CMP £$28 — TREMPLIN MICRO Ld IM P. H G R. 1 (suite) 60A6; OO 9C 137 BNE Debut 6048: AQ DD 138 LOA £$00 4 Positionnement marge gauche SOAA: 20 ED FD 139 JSR Cowt 60AD: E6 FO 140 INC Nilgn BOAF: AS FO 141 LOA Nliga 6084: C5 FE 142 CMP Filtgn 60B3: FO 43 143 BEQ Fin 6085: 20 33 60 144 JSR Init 6q86; AQ 1B 145 FIN LDA E£$1B 60BA: 20 ED FD 146 JER Cout 60BD: A9 63 187 LDA E$63 ; ASCII "c": imprimante normale 60BF: 20 FO FD 148 JSR Cout 6Gc2: 20 99 FE 149 JSR Setvid 6005: 60 150 RTS Si > * led TABLES POUR L*IMPAIMANTE * 163 # ST * 60c6: 00 09 154 TABI HEX 0009 6008: 36 30 4E 185 ASC ‘BON 60ce: 00 18 156 HEX OD3B 60C0: 3& 187 Ast '> ; Unidirectionne! 60CE: 16 158 HEX 18 a0CF: 46 30 31 aq 159 asc ‘LONG 6003; 18 160 HEX 1 ; Fait les camemberts ronda, 6004: 6E 161 asc ‘hn 5 mais moins rapide que N 6005: 18 162 HEX 16 6006: 64 31 36 163 ASC ‘T16 ; Interlignage approprié 4009: 1B 164 HEX 18 600A: SA 165 ASC "2 ; Reconna it le Be bit 6008: OF 166 HEX O89 600C: 5A 167 asc ‘2 } Pour éviter interférences §9 6000; 00 168 HEX O0 gone: 00 00 169 TAB2 HEX 0000 60E0: 8 170 HEX 1B 6OE1: 47 30 32 38 30 174 ABC 8 ‘GO280 Table des symboles ordre alphabetique @ABAS) 22. = gopo8 —-ABAS2...,. $0009 ~BASCALC...$F8C1 -BCARAC, .. . $6078 -CHANG....« $6095 -COUT.....,8FDED -DEBUT..... $6044 -Decal. 6064 =FILTRE --. - $6083 2) Pee g6088 -FLIGN, ,...00FE -GRAPH . 6099 sHTAB. 5. + SOOFF -INIT...... $6033 -InitX.....$606D -MODE...,,.$0006 -NLISN..... $00FD -OUTPORT. .-SFESS -SETVIO-- FEQS -B802d..... -$6015 WBE ca ae BOVE ~STOCK....-$0018 “BED. peau 6008 =TABL 0 « eaen $6006 -TAB2..,., ,§60DE =VPAGE,.... g0007 Souvez votre programme par un BSAVE IMP.HGR.1, A24576,.230 (REUSE = 9 FoR) = 24876 70 24575 + 297) T= T+ PEEK{) NEXT: PRINTT Lo résultat devro dire - 28606 —— REGLAGES CONSEILLES CARTESUPERSERIE SW) 1 2 3 4 5 6 7 way 23 4.5 8 7 =), =]Ion [ T =" 1ON elale [=e 0 OFF sis 2 |» GOFF DMP sWwi ®@ 7 6 5 4 3 2 1 IWRswi 8 7 6 5 4 3 2 1 . = . . = Q@orr e|s = = = QOFrF = = « |10N = = = |10N sw2 7 6 5 4 4 2 1 §w2 4 3 2 1 LS i) = |)O OFF = | = | c00FF = =il|eleles .ON sie ION 20 GUY-HACHETTE | TREMPLIN MICRO FICHE 6| CARACTERES PERSONNALISES sur DMP et IMAGEWRITER PROGRAMME BASIC: CARAC.1.0 (qui appelle CARAC.C, routine en L.M.)} OPTIONS: Aprés un RUN, le menu général s'aftiche st propose plusieurs grandes options, Choisissons lo premiére, et aussi lo plus intéressante. CREERUN CARACTERE (SCSI de ce long pro- gramme, avec lequel vous pourre: créer un caractére,.. ef méme une police compléte de caroctéres personnalisés (96 maximum, lespace compris). lorsque vous choisirez ‘option |, une grille s‘oHichera sur votre écran et vous devrez indi- quer la largeur du ow des caractéres 4 créer, Pour une fonte normale, cette'largeur sera de 8 points, mais n'oubliez pas dé réserver une colonne de blanc pour séparer vos caractéres. Si vous tapez [erme-e], un exemple de coractére s‘inscrira sur votre écran, Pendant toute lo séquence de création, Il vous suffira de presser lo borre d'espacemen! pour ironsformer le point en ostérisque ou vice versa, Stant enfendu que point = non impres- sion et astérisque = impression, Pour vous déplocer, utilise alors les fléches de !'Apple. Dune maniére générale, les coractéres utill- sent les giguilles 1 G8 de l'imprimante (lignes | 48), mals les g, j, p. q et y, oinsi que les ¢ at certains signes de ponctuation font appel aux aiguilles 2/9, Laissez le logiciel faire son travail et ne soyez pas surpris, aprés [ese] si une lettre basse remonte d'un cron. Si vous vouliez que tows vos caractéres soient imprimeés avec les aiguilles de 2 & 9, il vous sul- firait de les dessiner 4 partir de la 2° ligne — lo programme ferait le reste. FAUT-IL DEMANDER L'IMPRESSION DE CHA- QUE CARACTERE, AU FUR ET A MESURE DE LA CREATION 7? Qui, au moins pour les dix cu vingt premiers, pour Stre sir que foul se passe bien. Il serait inutile de perdre une heure... pour un résultat nul... ou décevant. Ensuite, nous vous conseillons de n'imprimer les caroctéres déjd créés qu'une fois sur cing. Si la sortie imprimante devient soudainement, mauvaise, c'est porce qu'un caractére a proton- dément déplu & votre chére machine. Elle n'occepte pos les voleurs 13 ef 141 (RETURN) qui la perturbent | i suffit de modifier |égérement le dessin pour repartir d'un bon pied, mais attention | Pour redessiner un caractére existant, taper qui affiche les noms des lettres deja c s, puis indique quel est celul & redéti- nir. Si vous utilisez lo touche LeTRE-F |, vous abtiendrez automatiquement laffichage des coroctéres existants, aprés chaque création, Un simple [ese] vous roménera alors @ l'option création. En fait, étant une bascule, un nou- vel appel 4 cette fonction... l'onnulera. Lo lettre-clé designant choque IMPORTANT ——_caractére personnolise doit étre “affichable”. Done, pas question d'utiliser, du mains avec ce programme, de valeurs inférieu- res & 32 (ESPACE) ou supérieures & 127 (DELETE). Naturellement. cet utilitaire autorise bon nombre de fantaisies... graphiques, pourvu que celles-ci soient cantenues dans les limites déjé indiquées ; 14 pts de large pour 8 pts (uti- les} de hout. Voici quelques exemples de corac- teres trés spéciaux, réalisés de cette maniére (16 pts... sans colonne de blanc... sur 8 pts). On les appelle par 1, 2, 3, 4. eft. ; mais on aurait évidemment pu choisir d'autres lettres-clés. aes ed CL cm i) mm > -6 CONSEIL = Lisez ottentivement Io liste des fonc- tions (ou verso de cette fiche). Elle vous donnera de bonnes indications sur lo maniére d'utiliser CARAC.1.0, Ne manquez pos, por ailleurs, de nous indiquer les difficul- 165 rencontrées, Novs metirons au point, ensemble, une version 1.1 plus performante | GUY-HACHETTE — TREMPLIN MICKO TREMPLIN MICRO FICHE 6 CREATION ET MODIFICATION DE CARACTERES (COMMANDES) BARRE D'ESPACEMENT *sj set si* |bascule) > (ou CTRL-U): Vers lo droite ~) Un signal sanan: (ow CTRL-H}; Versla gauche | lexique quand (ow CTRL-K) ; Vers fe hout ta besite ® fou CTRL): Versiebos _| et atvinte CTRL-N : Permet de redefinir lo lorgeur CTRL-P © Ajoute une colonne a lo grille (a droite) CTRL-L > Supprime une colonne (id droite) REAFFICHAGE D'UN CARACTERE CTRL-R : Retroce le dernier coractére créée CTRL-A ; Restitue le dernier écron de creation CTRL-O; Atfiche les noms des coraciéres deja creas : Rend cet otichage automatique {mais c'est une boscule, ef an |'annule par un second CTRL-F}, On sort de ces deux séquences en tapant lo lettre-clé... ou par ESCAPE. CTRL-F DEPLACEMENT DU CARACTERE {| est possible de mouvoir le coroctére d lintérieur de fa grille (en cas d'erreur, récu- pérotion du dernier écran par CTRL-A). CTRL-O : Un point vers Io droite CTRL-G : Un point vers la gouche CTRL-Z - Un point vers le hout CTRL-W : Un point vers le bos EXEMPLE DE TRACE : CTRL-E FIN DE CREATION: ESCAPE Indiquer ensuite la lettre-clé (ou ESCAPE pour revenir) CATALOG DE DISQUETTE : ? MENU GENERAL : Topor CTRL-C RECUPERATION DES FONTES GRAPHIQUES TOOL KIT ET CHAT MAUVE Choisissez l'option 4 du menu, puis @®) pour TOOL KIT ov (<) pour CHAT MAUVE, Attention | le choix ©) ne vous autorise pas @ charger une fonte graphique (méme person- nelle), mais une police de coractéres personna- Visés créée suivant les normes de CARAC.1.0. Por contre, une FONTE comme FAIRE.F1, (n°) de T.M.}, peut étre considerée comme un pro- duit TOOL KIT. Pour l'utillser, la renommer en lui ajeutant ".5SET"... et ¢a morchera | En cos d'erreur de lecture, tapez GOTO 10000, puis renouvelez votre tentative. Naturelle- ment, les caractéres créés 4 portir de la dis- quette TOOL KIT ne comportent pas de lettres occentuées, mais yous pourrez les modifier a volonté, Doilleurs, aprés transformation de la fonte, le programme cholsit pour vous l'eption “erdation-modification”... et vous vous trouvez en présence d'une grille de 8 pis de large. Tapez [ETRL-S] et la liste des coroctéres disponibles apporcit. Vous pourrez les passer successivemen! en revue en répondant par la lettre-clé, puis por un nouveau et ainsi de suite. En cos de modification, la séquence se termi- nera por [escare]. || peut étre intéressant, immeédiatement aprés lo création, de revenir au menu général (CTRL- C), puis de demander l'impression du fichier. En cos de plontage, n’occusez pos votre impri- mante, mais les codes d'un coractére. || faudra vous faire une raison ef les passer fous, avec impression, coroctére par caroctére. 5| vous disposez d'une police de 95 ou 96 carac- féres, le programme vous imprime une page compléte, Dans le cos contraire, il yous faurnit les caractéres disponibles, les uns ala suite des autres. en mode normal, puis expanse. Noubliez pos de souver votre fonte (Menu général). Mame si le titre apparoit sur Vécran, n'oubliez pas non plus de le valider en le refopant, Eten cos de pépin: GOTO 10000. GUY-HACHETTE — TREMPLIN MICRO —— bos [ ProDos | GUIDEDUTIUSATIONSURLA CHEN'S CARACTERES PERSONNALISES sur ImageWriter et DMP Avez-vous déja essaye de créer des coroctéres personnalisés, sur votre imprimante imogeWriter ou sur votre “vieille DMP (notez que nos programmes fonctionnent oussi sur FimogeWriter Mf, ef probablement sur divers compatibles... mois sans aucune garantie) ? Ce n'est pas trés focile... saul quand on sait.., bien sir, et encore, certains problimes subsisient, Nous vous présentons ici une batte- tie de programmes qui devraient normalement répondre 4 votre otfente, Ils vant vous poraitre longs. Nous gurions certes pu les obrdger, mols au détriment de la présenta- tion. La plupart dientre nous s'adon- nent 6 lo progrommation par jeu plus Que por nacessité, Pourquai ne pas ge folre ploisir en déplagant par axemple des dcrans ? Personne n‘interdit aux plus molins de se mettre plusieurs pour “ren free un programme... ol encore dutiliser las compétences do leur charmante épouse {ou époux... car Neus connaissons aussi dexcellentes odeptes de la programmation). €t ie Von ne vienne pas nous accuser publier des “frucs interminables foits pour obliger les bonnes gens 6 acheter nos disquetfes” (dixit un lec- feur pas content qui nous précise les avolr & ceil... chez son dentiste. én voila ou moins un qui n'a pas Io dent contre... excusez-moi, je divague !), 1, CARACTERES PERSONNALISES (Basic) Véritiez minutieusement votre pre- gromme avant de fe lancer. Tout y ast important, et notamment fa voleur de LOMEM. Ne modifiez pas eseesseeEEDERssuneenaeeneneeee TREMPLIN MICRO lo syntaxe ou les termes choisis pour les commentaires, sout si votre texte est PLUS COURT que le nétre... cor Varrivée se fait dans wn mouchoir de poche | Consultez la fiche numéra 6 de Tremplin Micro avont de loncer Je RUN décisif. {| est indispensable de cannoitre un certain nombre de “CTRL” pour tirer le meilteur parti possible de cet utilitalre. Nous lavens longuement teste [trois ton- tes spécinies, dont une de gros eoractéres, figurent sur lo disquette numéro 6, ef ont FACILEMENT até réolisées avec ce programme), mals des ereeurs peuvent subsister Dans tous les cos, un GOTO 10000 vous permetira de retrouver votre MENU. 2, CARAC.C C'est Io routine en langage machine. Le programme source est sur la dis- quetfe (encore elle, axcusez-moi), Il n'était vraiment pas possible de te publier dans ce numéro, deja tres complet (mows avons di ojouter 4 pages au tout dernier moment |) Inutile de préciser que choque octet y es non seulement important, mais indispensable. CARAC,C accelére considéroblament le pregramme en Basic. C'est sa raison d'étre. 3, CARAC.CHARG Quand vous aurez réalisé votre pre- miére fonte de coractéres, vous utili- B : ae ee ee | |e e e s $ e |_|@ ® eeoce a = serez CARAC.CHARG (Basic) of CARAC.CH (LM, page suivante) pour lo... charger dans votre Imprimante, Normalement, la batterie de pro grommes des “Coractores personna- lists" prend fin ich, mois nous evans voulu étre plus complets avec CARAC.VISU Deux courtes routi: nes (lo premlére en Bosic at la seconde en longoge machine} vous permettront de visua- lisar une 4 une (peut-@tre avant de les transformer en caracteres per- sonnalisés), les polices de caractéres figurant sur la disquette TOOL KIT APPLE (DOS 3.3,), Efficace et pratique. CADRE SPECIAL (Application) On peut assurément tracer un cadre... une grille, etc. on utilisant des coractéeres personnalisés, et sens gucune ditficulte, 51 vous en doutez, tepez les quelques lignes de lo page 33... ef un RUN saure défini- tivemant vous convaincre. DERNIERE RECOMMANDATION Régiez éventuellement vos interrup- teurs DIP en conformité avec les indi- cations de la page 20 du présent numéro, Grophisme ow coracteres personnolisés,.. cest le méme combat | Et maintenant, 4 vous de jover, at que l'on no Vienne pas me reprachar mon extréme concisian | G.-H. Ce texte est edité ovec une fonte SPECIALE, sur lo nouvelle imorimonte ImogeWriter I d’ Gpple en corectéres semi-compressés. 23 -———— CARACTERES PERSONNALISES 1 108 LOMEM: 22485 2: CALL G: CALL G: GO5UB 538 118 TEXT : PRINT CHRS (21): HOHE 478 GOTO 1B 228 BOSE 3898; REM INTTIALISATION Sae : 1383 Si8 REM ##* LE DERNIER CARACTERE EST: ##e 14g REM ##e EN GUISE DE MENU GENERAL ee Sa: ish: 538 VTAB 28; CALL FLi PRINT * DERNIER CARA M68 TF R¢ > 3 SND N THEN 778 CTERE : “3: INVERSE : PRINT CF* "3: NORMAL 178 TEXT : GOSUB 3546 : IF CCCR,L) THEN PRINT "(" CHRS (CCCF,1)) 188 VTAB 16: CALL LS: HTAB 13: CALL G: PRINT " 9": GOTO 558 CHOI X -) "ys GET Rb: TF RS { "2" OR RS | SB INVERSE : CALL Gz PRINT "MON CREE": NORMAL } "8" THEN PRINT +: GOTO 188 198 FLASH 3 PRINT RS: NORMAL S58 GOSUB 278: RETURN faa iF RR="?* THEN GOSUB 3390: GOTO 188 S68: 218 ON VAL (Re) GOTO 798,468,488, 2470,220 , 248 37h REM #e4 ATGUILLES DU HAUT OU DU BAS exe «328 258 588 : 220 Ff NOT BI AND NOT CF THEN NES = "PAS DE Sv x = 8 FICHIER BINAIRE EN MEMOIRE’: GOSUB 348: GOS | 488 FOR J =@ TON -1 UB 278: GOTO 138 618 IF PEEK ACL) #0) ¢ } 174 THENX = 1 238 PE = 1: BOTO 1590 628 IF PEEK CAC?) # J) ¢ 0) 174 THEN Y = 3 240 GOSUB 2398: GOTO 148 638 NEXT 256 TEXT : HOME ; GOSUB 358: PRINT "SODTO 1808 640 IF X + Y= 2 THEN VTAB 17: PRINT 1 CALL G @ POUR REDEMARRER*: VTAB 2a: END : CALL FL: PRINT "T RO P*: CALL FLs INVERS 268 : E 2: PRINT * HAUTE ": NORMAL sH4 = 1: GOTO F 278 REM We = BOUCLE D*ATTENTE & WAIT 9 #ee 3 re 658 IF ¥ THEN PL = 2: POKE dN: POKE 24,0: CAL 278 FOR I =} TD 1588: NEXT : RETURN L 13it4 388 CALL G: POKE - 14348,0: WAIT - 16984,128 668 GOTO 1248 ,127: POKE = 16968,0:PW = PEEK ( - 16984) | 478: > RETURM 688 REM tet = =©DEPLACER LE CARACTERE oe 318 : 678: 320 REM tee = AFFICHAGES REPETITIFS oon 766 GOSUB 3518: POKE 4,NM:ES = 1 3H: 718 IF R= 4 THEN CALL 131%4 348 VTAB if: CALL G: CALL LS: HTAB INT (41 - 72h IF R= 7 THEN CALL 13225 LEN (MES) / 2: PRINT MES: RETURN 73@ IF R= 23 THEN POKE 24,1: CALL 13114 356 YTAB 21: CALL FL: RETURN 740 IF R= 26 THEN POKE 24,03 CALL 13114 368 FOR 1 = 5 TO 13: VIAB I: PRINT LEFTS (TLS 738 «GOTO #38 MD * LEFTS (W,17 - Ni: NEXT ¢ RETURN 768 : 378 RS = ".": IF R= 12 THEN RS =" * 778 REM 288 TRACE DU CARACTERE ee 368 FOR 1 = 5 TO 13: VIAB Tz HTAB Ns PRINT RS: 78: NEXT + RETURN 77H = GOSUE 375 Ey 888 IF NOT CF AND NOT N THEN 846 488 REM t#* FENETRE EN GAS DF L’ECRAN se 818 1F W THEN 788 aia: B20 N= ASC { MIDS (CO$,6,1)) - 64: IFN) 1é 424 POKE 35,24: GOSUB 3570: VIAB 14: CALL LS: THEN N= N ~ 32 PRINT : PRINT T$: PRINT RETURN S38 GOTO a8 $30: 848 VTAB 1S: HTAB i: CALL Gs PRINT “LARGELR 7- 440° REM *#* PLUS OU MOINS 1 CARACTERE #a« 16 "jie = °° 458: B58 GET B$:B = ASC (BS): IF B= 27 THENN= 1 468 IF CF THEN CF = CF - i:FS = FS -N- 2; TA 6: GOTO 518 LL G: CALL 6: GOSWB 538 6b IF B> 47 AND B ¢ 57 AND B¢ 9 13 THEN PF 478 GOTO 168 RINT BS;:h = Re + BS: GOTO B58 468 IF CF ¢ 96 THEN CF = CF + 1:FS = FS +N +t 870.N = VAL (R6)cL = LEN (COS) 24 GUY-HACHETTE Bo8 IF L AND NOT N THENN=1 -? bea IFN ¢ 7 OR N > 16 THEN Bae 08 IFN ¢ > 16 THEN FOR 1 = 5 TO 14: VTAB ! s ATAB N+ t; PRINT LEFT® (8,16 — Nd: NEY T v8 PRINT ; VTAB 15: CALL Fle PRINT "L-) "gi 1 NVERSE 2 PRINT Ni; NORMAL : PRINT " "AL® 920 IF F THEN GOSUB 2118 988 H= I= 5 poet ante 948 REM ONERRGOTO 4148 comes 938) PRINT "*; VTAB WV: HTAB Hi GET RW PSR CALL 19474:R = ASC (RH): IF R= 32 THEN 9 =) 78 788 98 = aaa naw» ne 1 AND H = N THEN 1208 1 AND V = 5 THEN 1288 @ AND V = 13 THEN 1200 1888 BAND H = 1 THEN 1200 1818 IF R= 21 THNH= Het 1028 IF R= 8 THENH= H-1 1838 IF R= 18 THNYV=V+t 148 IF R= 1) THNV = - 1 1056 iF R= 1 AND ES THEN ES = G: GOSUB 3528: 6 OTO 938 188 IF R= 3 THEN ES = i: GOSUS S5i@: GOTO 168 1878 IF R= 4 THEN NMA =N - 1: GOTO 786 1888 IF R= 5 THEN SOSUB 3518: GOSUE 3438: GDS UB 3528 1098 IF R= 6 THEN F = ABS (F - 1)3 IF F THEN R=15 1188 IF R= 7 THEN NM = Ni GOTO 788 1118 IF R= 12 AND N } 7 THEN GOSUB 378:N =N - Ll: GOTO 718 1128 1F R= 14 THEN GOSUB 354e; GOTO 848 113 IF R= 15 THEN GOSUB 2118 1148 TF R= 14 AND NN ¢ 146 THENN=N + tb: GOSUE 37h: GOTO 71a 1156 IF R= 18 THEN GOSUB 2278 1168 IF R= 23 OR R= 24 THEN NM =N: GOTO 788 1178 IF R= 2? THEN GOSUB 351@:ES = 1; GOTO 59 | 1188 LF R= 63 THEN GOSUB 2378: GOTO 938 1198 GOTO 752 1208 POKE 6,58: POKE 7,t+ CALL 19847: POKE 4,5: POKE 7,33 CALL 19847: GOTO 958; REM AVERTI SSEMENT SONDRE (LIMITES DE LA GRILLE) 1218 : 1228 REM ¥#* DU IL EST QUESTION DE G18] #6 1238 : 1248 GOSUB 3518: REM SAUVEDARDE ECRAN 12359 FORT =S 70 §?: VOAB I: HTABN + 2: CALL FLs NEXT 1268 FORT = 1 TON CARACTERES PERSONNALISES 2 1278 2 = USR (ACT)>: POKE B, PEEK (8): POKE P, PEEK (7) 1288 POKE 4,1 - 13 POKE 7,28 1270 CALL 13878: VTAB 4 + i; HTAR USBH Bil) = PEEK (24) L318 TF BCI) = 13 THEN BYl) = 14 1328 PRINT "> CHRB(*BKID")* 1334 NEXT 1348 : 135@ REM #44 QUEL SERA LE CODE D°APPEL? ee 1368 + 1378 POKE 34,16; POKE 33,172 POKE 35,22: VTAB | Br HTAB 1; CALL LS: CALL Gz PRINT “LETTRE-C LE =o" 1368 GET L$; PRINT 13998 POKE 33,4%; POKE 34,3 1488 IF L§ = CHR (27) THEN GOSUB 320: GOTO P38 1418 TF L684 CHRO 632) OR L& ) CARS (159) THE No1378 1420 ALS = Ls 1438 PRINT ALS" CHRE(* ASC (L#)")": GOSUB 2°68 1440: 1450 REM ##* ET LE CODE IW-tHP, DONC 7 fee 1468: i470 IF Pu = 27 THEN 1a7e 1488 IF N >} 8 THEN 1588 1498 COS = ESt + "-"s GOTO 1518 1580 COs = [Ps 1518 COS = COb + ESS + CHS (75) 4 LS 1528 CO¥ = COR + CHRE (N + 32 + 32 © PL) 1538 FOR [ = 1 TO NrCOe = CO + EXT :CO$ = COS + Dem = 8 1540 1F ND ¢ 3 THEN GOSUB 2358 1558 CF = CF + 1: GOSUB 3é50 1Sdh 3 1570 1380 3 1398 Pl = 6 i688 GOSUB 428 Idi VTAB 17: PRINT : INVERSE 2 PRINT “EDITION® > NORMAL 1620 GOSUB 358; CALL G: PRINT ' (RIEN - (TOUT ? © GOSUB 380 IF PW = 84 THEN Pl = 1: GOTO 1478: REM EDI TION OW FICHIER ACTUEL IF PW = B2 THEN 2648 IF Pit} 47 THEN 1620 GOSUB 2580 IF PE THEN $788 CHRS (BCTI32 MN REM a8) FAISONS BONNE IMPRESSION! 224 {CSARACTERE = 1638 bed 1d50 1488 1478 1488 1490 2 TREMPLIN MICRO 1788 PRINT : PRINT D&*PREL": PRINT 1718 PRINT CHRE (99"BBN": PRINT CHRE (15>; 1728 PRINT ESSE" ;ESS"LBla"; CHRE (97°27 1738 X = @: REM POINTEUR 1748 IF NOT PI THEN 1978; REM IMPRESSION 0’UN BEUL CARACTERE {758 LE = FE + 1 - Flsx = 8 1760 2 = USR (LG): POKE &, PEEK (6): POKE 9, PE EK «7) 1778 CALL 139806: PRINT OF: PRINT CHRE (24) 1788 ¢ i798 1888 ; (B18 REM #44 LA, TOUT LE FECHIER Y PASSE! #84 PRINT CHRS (14);ESS°X": PRINT "FONTE "FS; Ess"y"; CHRS (15): PRINT IF CF } = 9S THEN 1670 PRINT ES&"D a"; PRINT IP; FOR 1 = 1 TO 95: IF CCT,1) THEN PRINT CH Re CCL Dy NEXT g PRINT GX =X 4 13 IF 4 4 2 THEN PR INT CHRS (14): GOTO 1648 1868 X = O: GOTO 1738 1828 1B25 1838 1846 1858 i678 H= CF 4 (4 - Xe 2, IF Wt > INT CCF 6) THEN H= INT (H¢ 1) 1889 FOR T=1 TOH:S = 3: FORJ=1 TO (6-X a2 1e98 IF 1 +S > 126 THEN 1718 (Fae PRINT INS; CHRS (1 + Sp" -) "GIPGy CHR ¢ 1 S)y2 IF d ¢ (6 - % # 2) THEN PRINT * % 1918 $= 5.» Ms NEXT s PRINT : NEXT 1928 K =X + 1s IF RX 4 2 THEN PRINT CHRS (15); Ess"Leas"; CHRS (14)2 GOTO 1878 1938 «PRINT INS: PRINT CHR$ (15S): PRINT DS"PREO 1948: 1958 GOTO 2658 1768 : 1978 REM #44 ICI, SEULEMENT 1 CARACTERE! ##* 1988 ¢ 1998 FORT = 1 TO LEN (COS): POKE 6, ASC ( MID $ (CO8,1,12)2 CALL 13080: NEXT 2006 FORT =1 703 2618 IF L¢ > CHRO (127) THEN PRINT ES¢ + "#"; Lo;INé;; GOTO 2838 2028 PRINT IPSsL9; INF; 2038 PRINT" "32 NEXT 2048 X= XM + 1s FFX ¢ 2 THEN PRINT CHRS (14); 1 GOTO 2808 2658 PRINT + PRINT ES$"c*: PRINT DS" PREG" 2R6@ POKE 34,4: HOME ix = @ CARACTERES PERSONNALISES 3 2878 GOTD 148 POBB 7a98 «REM eee CARACTERE ANCIEN oe 2108 : 2118 TF NOT CF THEN ME® = “PAS OF CARACTERE EN MEMDIRE": GOSUB 349; GOSUE 276: RETURN 2128 VTAB fS: CALL 13415 2130 PRINT : VTAB 1%: CALL G: INVERSE : PRINT " CARACTERE DESIRE";: NORMAL : PRINT ") *y: 6 ET &$: PRINT 2146 TF Re = ES& THEN POKE 35,22: TAB 15: CAL L LB: RETURN 2158 IF R# < " * THEN 2138 Bide FOR I = 1 TO Cr: IF ChE.) = ASC (Re) THE N ND = I: GOTO Z228 2178 NEXT 2168 VTAB IS: PRINT RE* EST INTROUWABLE"; RETUR " 2178: 2208 «REM #¥* = REAFFICHAGE DL CARACTERE se 2218: 2228 IF NOT ND THEN ND = CF 2238 P= PEEK (CCND,B) + 1) ~ 6d: TF P } 16 THE NP=P- 32 7240 1FN (>) P THEN N= Pe GOSUB 368 2258 FORT = 1 TOP 2268 X= PEEK (CONDO) # T+ bev = INT CK / 1 Hilak- Y # 1b 2270 Lect) = MIDS (BIS,) + 4 8 ¥),4) * MIDE f BIS,1 # (4 ® 23,4) 2288 NEXT 2278 VTAB S; HTAB 1 7388 FORT = 8701 STEP - i: FOR J = 1 TO Ps PRINT MIDS (LO(J),1,1);: NEXT ¢ PRINT + NE xT 2318 VTAB 14; CALL LS: RETURN 7328: 7338 REM #88 REMPLACEMENT D’UN CARACTERE m6e 2348 : 2350 FOR 1 = 1 TO CF: IF CC1,4) = ASC (L$) THE NONE = 1: GOTO 2370 NEXT NE = It GOTD 2428 GOSUB 428: PRINT : VTAB L@: CALL G: PRINT “Remplacement de “L$* (return) ? "y+: GET RS 2348 2378 : PRINT : IF Re ¢ 9 CHR® (13) THEN POP : GOTO 1378 2388 L = LEN (COS) = 1 7378 FOR T= 5 TOL 2408 POKE CiNE,8) + 1 - 5, ASC ¢ MIDS (CO#,7,1) ) 2418 NEXT : POP : GOTO 1598 2428 IF NE) CF THEN GOSUB 428; CALL G: PRINT 26 GUY-HACHETTE : VTAB 1B: PRINT * NOUVEAU CARACTERE: "L#" (°NE*) - RET@OUL "y: GET RS: IF R# = CHRE (13) THEN RETURN 2438 POP + GOTO 1598 2448 ¢ 2450) REM t#* ATTENTION! WA-T-ON EFFACER? #39 2468 ¢ 247H ~=1F WOT BI THEN MES = "PAS DE FICHIER BINA TRE EN MEMOIRE’: GBOSUG 348: GOTO 2568 2458 MES = "ON EFFACE LE FICHIER EN MEMDIRE (0/N ": GOSUE 348 GOSUE 388 IF Ful = 79 THEN 2568 IF Pal = 78 THEN 148 CALL - 198: GOTO 2478 2498 2508 2518 2528 2538 5 2548 2558 1 2568 2578 REM "#8 = CHARGEMENT O°UNE FONTE = #4 POKE 35,24 BOSUB 354: PRINT "<T)0DL KIT <C>HAT MALWE ¢PDERSONNEL -} “5: INVERSE : HTAB 2: PRINT “T's: HTAB 12: PRINT “Cy: HTAB 263 PRINT " Pri; NORMAL : HTAB 39 2568 CALL Gr GET R$: PRINT ** 2598 IF Re = "2" THEN GOSUE 3376; GOTO 2578 2608 CM = @:FT = CMF = OM: IF Re = "C* THEN CH = 1: GOTO 2648 2618 IF R$ = "T* THEN FT = 1 GOTO 2648 2628 IF R= "PY THEN FP = 1: GOTO 2648 2638 GOTO 148 2648 PRINT : GOSUB 358: CALL G1 INPUT "FONTE DE SIREE 7 *;F$ 2658 IF FS = ** THEN 2578 2668 GOSUB 2778: IF R&S > 8 2678 AS = "AS35008"; IF FP THEN A’ = " AS4BBR" 2688 DE = 1: ONERR BOTO 4140 2698 POKE 34,22: VTAB 28: PRINT : PRINT DS"BLOA D'F$ + AS:BI = 1 2708 POWE 214,08: POKE 266,8: POKE 287,531 REM A DRESSE FIONTE 2718 fF CM THEN DF = 32: GOTO 2788 2720 DF = B: 1F FT THEN 2898 2738 IF FP THEN 3118: REM MATERTALISATION 2748 GOTD 168 2758 : 2760 2778 2788 CHRS (13) THEN 257 REM #48 SUFFIXE (SET) (FONT) (FP) te IF CH AND RIGHTS (F6,5) ¢ ) *.FONT" THEN FS = FS 4 *. FONT": REM CHAT MAUVE :G0TOS08 & TF (FT) AND REIGHT® (FR,4) 4 2798 ) ".SET* THE CARACTERES PERSONNALISES 4 N FS = F$ + *. SET": REM TOOL KIT APPLE 2888 «GOSUB S58; CALL Bs PRINT *CHOIX: "33 INVER SE : PRINT F&;; NORMAL : PRINT " (RETURN=DU 1)";s GET Ri: PRINT : RETURN 2818 : 2828 IF RIGHTS (F8,5) = *.FONT’ THEN Fé = LEF T$ (FS, LBY (FS) - 5) + *.0M" TF RIGHTS (FS,4) = "\SET* THEN Fé = § (FS, LEN (PF) - 4) ¢ "LPT" 2838 LEFT 2648 IF (FP) AND RIGHT® (F6,3) = ".FP" THEN FS = LEFTS (FS, LEM (FR) - 3) + ",FP" 2B58 GOTO 2288 2888 3 2878 REM a#% FONTES D°APRES CHAT MAUNE nee BBE : 2B7H POKE 13344,182: CALL 13918: POKE 13344,3B: BOTG 2718 2788 CALL 13318 2718 + 2928 = GOSUB 420; INVERSE + PRINT "* APPLE TRAVAT LLE POUR VOUS: PATIENCE #*: NORMAL + PRINT 2938 Al = 13567 4 B® OF:l = 32:L = S:L) = 14548 1 IF FT THEN LI = 14319 2948 POKE AP,27: POKE AF + 1,45: POKE AP + 2,27 7 POKE AP + 3,733:n2 = AP + 4 2958 POKE A2,C: POKE A2 + 1,64 4 L: FOR | = Az +2 TO Az + ¥: POKE 1,03 NEXT 2968 P= AZ + [3:2 = UGR (P): POKE B, PEEK (4): POKE 9, PEEK (7) 2970 2 = USR (Ald: POKE 24,L3 POKE 25,1 4 2 2908 H = 64:0 = 0 + AZ = AZ + 1EAl = AL ee 2978 CALL 19268 ahh iF PEEK (24) ) 127 THEN H = 36 3018 PORE A2,C: POKE AZ * 1,H*L SH28 IF Al < LI THEN 2968 3838 PORE A2 + 18,4: REM FIN DE FICHIER 3840 VTAB 22: PRINT " FONTE PRETE A EDITER & S ALVEGARDER" 3058 CF = C - 3l:sL=A2 + 18 - (AP - 1):2 = USR (Lo: POKE LB, PEEK (é): POKE LB + 3, PEEK (7) 3048 C4 = OFT = B:FP = 1:1 = AP 9a78 GOTD Sida 3888 : 3878 REM 8## PETITE ANALYSE DU FICHIER #8 S188 : 3118 LG = PEEK <LB) + 2 ee tee) 3128 IF PEEK (FS) = 4 THEN FS = FS - 1 3138 Nl = Fl + 4:K = BstF = 8 3148 CE = CF 4 130(0F,8) = NIICCCF,1) = PEER UN 1 PEEK (LB ¢ 1) # 2561FS = — TREMPLIN MICRO 27 Sb5@ R= PEEK (ND + Lak = R= 44: TF RD 16TH INR = R - 32 3148 NI = Nl ¢ B+ 2: IF NI t PS ~ t THEN 3148 317A TAB i?: CALL LS: PRINT : PRINT "FICHIER * ye INVERSE : PRINT F%3: NORMAL t PRINT " AY! EC "ss INVERSE : PRINT CFy: NORMAL : PRINT * CARACTERES* 3108 K = R; GOSU 278: GOTO a8 3198 : Ta S218 : 3228 REM 6# ANMULATION 0'UN CARACTERE v0 FOR [ = C(AN,@) ¢ 2 TO FS: PORE 1,8: NEXT : IF AN = CF THEN FS = COAN,@) ~ LCF = CF = 1; GOTO 3248 RETURN IF NOT CF THEN FS = FI - 1 RETURN 3238 3248 3250 3268 ; 3278 REM eee = COPE SUR UNE DISDUETTE S28 : 3278 GOSUE 2020:FMb = Fe: IF RB ) CHRE (13) THEN 14a GOSUB 358: PRINT “TITRE (7=CAT) “sFM$3: HT AB 15: CALL G: INPUT “*;F%; IF F& = ** THEN 148 ced 3304 3318 IF Fe = ">" THEN GOSUB 3370: GOTO 3298 3328 [F PEEX (F5) ¢ ) 4 THEN FS = FS + Lb: POK E F5,4 3338 GOSUB 356: PRINT “BSAVE "Fe" AS4B8BR,L yeh = F541 - Fl: PRINT L 3348 PRINT : PRINT CHRS (4)"BSAVE"FS" ASMBRB,L “L 3358 GOT 1BR Be: 3378 REM #88 CATALOBUE DE DISQUETTE SVP? #ew Tei: 3398 TEXT : GDSUB 3578: HOME : PRINT : PRINT 0% “CAT": PRINT : IMMERSE : PRINT “RETURN SVP* ¢: NORMAL : INPUT RB: GOSUB 3588: RETURN 3408 ; REM CATALOG” SOUS DOS 3.3 3416 El = MIsE2 = M2:E9 = 17488: GOTO 2598 3428 5 3938 VA = 4: FOR T= 170 LEN (E6) STEP Bsa = Wieo+ 1: VTAB WA: HTAB 28: CALL FL: PRINT M 108 (E$,1,8)2 NEXT PRINT + GOSUB 3478: RETURN VTAB Ié: HTAB 9: PRINT "PRESSE? UNE TOUCHE VP 3 CALL Ge GET RO: PRINT + VTAB 1d: CALL FLs RETURN 3478 SOSUB 388: RETURN 3488 + 3448 3458 Bdde CARACTERES PERSONNALISES 5 3478 REM #44 TRANSFERT DES DIVERS ECRANS #e S508 : 3918 El = MIsE2 = M23E3 = 21468: GOTO 3598 3520 £1 = 2146882 = 22484:E3 = Ml: GOTO 3570 3538 £1 = M1:E2 = M21E3 = 18417: GOTO 3598 3540 El = 184173262 = 174933E3 = ML: GOTO 3598 3558 E] = ML:E2 = M2:E3 = 17434; GOTO 3598 3546 £1] = 19494:E2 = 20658:£3 = Mi: GOTO 2578 3578 El = M1sE2 = M2:E3 = 2045): GOTO 3598 3588 El = 20451sE2 = 21447:E3 = ML 3598 E = EliLO = 68: GOSUB 3600:E = E2:L0 = 62: GOSUE 3488:E = ES:L0 = dé: GOSUB 3488: CALL 13517: RETURN 3488 2 = USR (E>: POKE LO, PEEK (6): POKE LO + 1, PEEK (7): RETURN 3618 3428 REM tee 3638 5 3648 Fl = APSFS = Fi - tr RETURN 3658 CXC A) = FR + 1 Bé66@ JF CF = 1 THEN FOR] = 1 TO 43F5 = FS + 1 eee CONSTITUTION BU FICHIER + POKE FS, ASC ¢ MIDS CIMB,I,1))2 NEXT 20(C | FB) = CiCF,Q) + 4 FOR 1= STO 6:FS= FS + ts POKE FS, ASC { Mibé (COS,1,1))3 NEXT 3678 3688 FOR T= 1 TON:FS = F5 + 1: PORE FS,BCL): NEXT 3498 CCCF,1) = ASC ¢ MIDS. (COS,5,1)) 3708 RETURN o7ie ¢ o728 : S738 REM eee PRESENTATION oe 3748: 3758 TEXT : HOME : LF 22 THEN GOSUB 3340s RETU RN PRINT T$: PRINT T# 4 VTAB 2+ PRINT "® CREATION DE CARACTERES PE RSONNALISES #* 3788 IF Bi THEN GOSUB 348; GOTO 3888 3798 N = 14: GOSUB Sd8:N = & BBB@ WTAB 23: PRINT T?"DEPLACBMENTS AVEC LES FL ECHES DE L’APPL"3: VTAB 15: POKE 2839,139 POKE 34,4: PORE 35,22 VTAB 4: HTAB 28: PRINT *LA BARRE D°ESPACEM ENT" ;: HTAB 28: PRINT "TRACE OU EFFACE LES ay: HTAB 26; PRINT “FIGURANT LE CARACTERE* VTAB 18; HTAB 28; PRINT "LARGEUR NORMALE:8 PTS"s: HTAB 28: PRINT “LARGEUR MAX;1é POIN TS";: HTAB 2: PRINT “CTRL-E POUR EXEMPLES "y: HTAB 20: PRINT LEFT$ (1,21) IF NOT 22 THEN GOSUE 8598222 = 1 RETURN 3768 a78 3818 3828 3838 Bade 28 GUY-HACHETTE ————— CARACTERES PERSONNALISES 6 waa: * 3TL8 = ThA + "i400" NEXT SVS = VS + © 3878 REM ### INITIALTSATIONS GENERALES ¢9# " 3888 + 4048 GOSUB 3448; REM INIT FICHIER TRAVAIL 3998 DIM BC1d) ,LOC16) 5807) ,CC12B8,1) ACA) 4850 PRINT TSMTST$: PDKE 34,3 3908 DS = CHAS (4):E5% = CHR (27) 4040 % = 5: FOR | = 1 TD 168 STEP 48:x =X 4 2: 3918 ML = 1824:M2 = 2848:AP = 16384: REM ADR POL VTAB X: PRINT MIDS (H$,1,48): NEXT ICE 4070 INVERSE : FOR 1 = 1 TO 4; VIABS + [ & 2: 3728: PRINT MIDS (MNT # 2,193: HTAB 22: PRINT 3938 PRINT D$"BLOAD CARAC.C* MIDS (MNS ,1 4 T © 2,193 NEXT > NORMAL BP4H CALL 133°¢: REM INITUSR 49b@ GOSUB 3558: REM STOCKAGE ECRAN BYS8 INS = EDS + “S*s1P$ = ESS + “oS TIME = ESS + | 4098 GOTO 1é8 "4" # ESS ¢ "I" 4108 DATA 1536, 1664, 17921920, 1864, 1192,1328,14 3968 G = - 198rFL = - BsBsLS= - P58 48,1576,1784,1892, 1968, 1184,1292,1368, 1488 3978 Me = "O15263748":1B = 4BB40 4a S988 MT$ = "NU-MENUHENU-MENU-MENU-MENU-MENU-MEN 9] 4128 REM wie EN CAS D°ERRELR ett UME" 4138 2 3998 Mb = "1 CREER CARACTERE oS EDITER LE FICH | 4148 ER = PEEK (222): CALL LS; CALL G: INVERSE TER2 MOINS 1 CARACTERE 4 VOIR LE CATALOBUE 7 PRINT "ERREUR "ER;: NORMAL : PRINT * "5: 3 PLUS 1 CARACTERE 7 SAUVER LE FICHIERS C GET R$: PRINT + TEXT : HOME ; PRINT DS*CATA HARGER FICHIER 8 FIN DE TRAVAIL" 06" 4000 BIS ="...... Rll Batt, tee... | A058 PRINT : PRINT T%1 INPUT "FONTE DESIREE ? * HAE NE, I a” Fo: IF Fe = *" THEN POKE 216,80; GOSUB 356 4010 ES =". 8.0... Leer eee hee ied 8: GOTO 168 HiasHaretees seone 4148 3548: VTAB 19: RESUME 4020 FOR 1 = 1 TO fd: READ ACL): | 4178 POKE 214,8: GOTO 938 4038 FOR 1 = 1 TO 18:T$ = TS + “Hn--"1V6 = V8 + [ 1NBHR POKE 51,8: GOTO 168 = CARAC F: 32081 AS 4 24 ED FD 68 AP FF * 522 octets 3208! 95 G4 AP BF 85 87 Es 86 —o 32p8: AS 84 DH 82 Ed 7 Cé OB 32F8: a5 ee CO FF DA G4 AS 49 Le programme en Basic falt fréquemment appeld = 32E8: Fe BC C4 OF AD AO BI 94 diverses routines en langage machine. Celles-ci 22F01 28 ED FD 40 Dé 32 68 Ad son! regroupées & partir de l'odresse $3208 32F8 04 Ad 84 AP G4 2G AB FC (13000), sur 522 octets. 3380! AD 3@ CA ES DB FD 88 DR Publier le programme source aurait monopolisé 9 aad oe 7. - “ad = 2 4 ny pages de la revue d'o son absence (par contre, il a3;9: FR aq a6 BI 22 C9 aA FO figure sur la disquette Tremplin Micro n%6... ainsi 9320! G5 AS BA 18 98 839 3B AP que plusieurs fontes de caractéres personnalisés). 39281 31 Ad 07 91 OB 246 18 C4 Rappelons que, pour rentrer un programme en 3238! 25 Eé 87 AS 25 C9 63 DO langage machine, il suffit de toper CALL—151, i D0 's0 AS, 18 Fa i e a suivi de RETURN, puis chacune des lignes ci- aout i Fe oS ens Pa &o a4 85 contre, un RETURN marquant Ia fin de chaque 3350: 25 28 Cl FR AS 28 BS 88 ligne. 3958: AS 29 85 09 Ed 25 AS 25 Pour sortir du moniteur, taper CTRL-C (Contréle C) 33601 28 C) FA AG 88 BI 28 CF et RETURN 13481 AG DO 62 AP AE 91 8 CB 3378: C4 @é D@ Fl AS 25 CF BD SAUVEGARDE : BSAVE CARAC.C, A$32C8,L522 {vite page 30) TREMPLIN MICRO 29 3988: Ed 3388: 33 3398: FB a3¢a: 28 SeAdt ES 33Ag: 48 33881 Aa 33BS? CB a3C@! 91 339097 ao 3apa: 18 33D8: 67 33E0: AS 3SEG? a4 SSFQ: a2 33F8! 1A 34803 85 34087 85 a41at 95 3418: 98 3420: 24 3428: e9 3430: EB 3438: 08 3448; C8 g446: Ca 3458: 08 3458: 85 94401 52 3468: 94 3470: 08 34783 7F 3486: 32 | 3488: EF G40: 04 3498: 18 34AG: 34 a4Aa: 61 J4Ba: 47 348: CF 34C8: AF 3408: 2C 3486: 28 1 80 48 Ad BB 23 ay 48 C4 28 te] 85 As Oe 1A Ae cea FE CARACTERES PERSONNALISES 7 CARAC.C 3378: D8 DA AF 5c AP a4 08 AS a4 VERIFICATION : T=@;FORI = 522: T = T + PEEK(|) : NEXT: PRINT T Le résultat doit étre 58641 a4 33 a4 ae F? 25 85 Bi ba Eé 6a AS 18 48 81 v1 08 CF a8 ES ae res 65 Bl A? ce 25 28 Sulte CARAC.CHARG 33 8D 20 ca ot 6 Ct 91 9 AE 25 18 ae 7? ci v1 28 Eé FB 28 8g cy 45 13000 TO 12999 + 188 119 128 138 148 158 168 176 188 198 208 218 228 238 Chargement d’une police J Bec de caractéres personnalises 258 268 278 228 298 TEXT : NORMOL : PRINT CHRE (213) HOME Of = CHRE (4:58 = CHRS C27) PRINT D$"BLOSD CARAC CH’ VTAB 12; PRINT "TITRE DE LA FONTE A CH ARGER ( ?=CATALOG VTA 14: INPUT "=> 6%) fF FS = HOM T HEN HOME : PRINT D$"CATALOG": GET Rt: PRINT : RUN ONERR GOTO 278 PRINT : PRINT De" BLOGD FS", As4eqa" VTAB 121 PRINT "ALUUMEZ UL! IMPRIMANTE ¢ DMP IMAGE WRI TER)! ONERR GOTO 280 PRINT OS"PRAI": PRINT ESN’; PRINT C HR COI"SON":; PRINT CHRE (153, CHRE (9 yizm CALL 768 PRINT D$: PRINT €Sd/ 0 FOR | = 99 TO 127: PRINT CHRS (13,: N EXT + PRINT &=% +41 16 X © 2 THEN PRINT CHR® ( 14): GOTO 228 CARAC.CH PRINT CHRS (15), 69979"; PRINT ; PRINT De" PRHB” HOME : WTAE 12: PRINT "VOTRE FONTE !.: INVERSE : PRINT F%.; NORMAL ; PRINT EST INSTALLEE” CALL - 198: POKE - 16368,8: WAIT - 16384,128; HOME ; END POKE 216,80: VTAB 22: INVERSE : PRINT ¥ A REJOUER! "; NORMAL : CALL - 198; GO TO 148 POKE 216,80: VTAB 22: INVERSE : PRINT # 1% A UN PROBLEME "; NORMAL GOTO 260 GUY-HACHETTE ——— a aaa CARACTERES PERSONNALISES 8 ASSEMBLAGE 8 s#seveenereretaeenseneneennsenee een eae tad eena eee RSE E SH ee DAR CCODE. eee eee Rete cece 4 * FONTES ISSUES DU PROGRAMME CARAC DE TREMPLIN MICRO * Si vous ne possédez 4 * Imprimantes DMP et Image Writer Apple * pas d‘assembleur, : vienna eat iN in seule cette partie © yous concerne. 8 ¥ sk . % LBL EQU #AAéa ; Contient la long du fic B 18 # SBECE-BECF avec ProDos * 11 COUT EQU SFDED 12 4 * 8300: Ay FF 13 LDA £9FF ; Adresse de la fonte moins 0302: 85 86 14 STA $84 8384: AF 3F 15 LDA &$3F 9304: 85 a7 14 STA $87 tr * * 0300: AD 66 AA | 16 LDA LBL ; Longueur partie basse 830B; 85 08 i? STA 408 38D: AD 61 AA | 29 LDA LBL+! + Longueur partie haute 6316: 95 89 21 STA $89 22 # * O312: Eé @4 230 INC INC #84 ; Plus 1 pour 1*adresse 0314; AS 84 24 LOA $84 @316: DB 82 25 BNE Dec ; Si ce nest pas 8 O318: Eé a7 24 INC $87 ; Si c’était @, par contre G31A: Cé 88 27° DEC DEC $86 831C: AS a8 28 LoA $08 B31E: C9 FF 29 CMP fSFF ; Est-ce $FF ou non ? 0328: DB B4 30 BNE Non 322: AS a9 31 LOA 489 @324: Fe Cc a2 BEG Out ; 3i 6, terming 9326: Cé OF 33 DEC #89 } Sinon on décrémente 0328: Aa 08 34 NON Loy #00 + Pour adressage indirect 832A: Bl G4 35 LOA ($861, O32C; 20 ED FD | 36 JSR Cout ; Transmission Imprimante Q32F: 4C 12 83 | 37 UMP Inc ; Si ce n*était pas fini 83392: 48 38 «OUF RTS I QD Cn * @ Pour terminer : BSAVE CARAC.CH, A$309, L$33 Table des symboles ordre alphabétique -COUT......SFDED =DEC. 00... .88314 ING. 00 ee 88312 LBL. wwe ee SARS “NON... 2.2 $8928 -OUF.......%8332 Pour vérifier l’exactitude des données, tapez en direct Ia ligne suivante (sans oublier un RETURN, bien entendu) : = 0: FORI = 768 TO 767 + 51:T = T+ PEEK(I):PRINTT Le résultat devro étre : 5691 TREMPLIN MICRO 31 CARACTERES PERSONNALISES 9 CARAC.VI S U BASIC; CARAC.VISU LLM. : CARAC. VIS. (-: E mini-programme (n’oubliez pas les 126 octets de la routine en langage machine) vous permettra de visualiser les polices de coractéres de votre disquette TOOL KIT (Applesoft Programmer's assistant). Si vous possédez une version récente, confrontez les titres de son catalogue et ceux indiqués dans notre ligne de données (250). 108 TEXT ; NORMAL +: PRINT CHR¥ (213: HOME 11@ PRINT CHPS ¢d)"BLORD CARBC.UIS* 126 ONERR GOTO 318 138 WIRB 12: INVERSE : PRINT * VISU.FONTE "; NORMAL 148 YTRB 15: PRINT " Pour visugliser les fantes dy Tool Kit" 156 PRINT : PRINT "Toper (A> pour visualisation automatique™ 160 GOSUB 248 178 #XIF PEEK (49152) = 65 THEN 2468 168 WTAE 23: PRINT : PRINT ; INPUT "FONTE 9 "; Fe 198 IF F# = "" THEN 230 208 IF F$ = "9" THEN TEXT : HOME + PRINT CHAS CA)"CRTRLOG4: PRINT : PRINT 7 GOTO 160 218 PRINT : PRINT CHRS (d)"BLORD"Fs" ,Aedga0" 228 CALL 769: GOTO 188 238 TEXT : HOME : END 248 WIRE 21: HTAB 5: INVERSE : PRINT " PRESSER UNE TOUCHE QUELCONQUE ";: NO RMAL + CALL @87: RETURN 258 ODRTA BLIPPO BLACK BYTE COLOSSAL ,COUNT ,CYRILLIC ,ESPERANTO ,FLOV ,GOTHIC ,GR APHIC ,GREEK , KATAKANA MIRROR OUTLINE , PINOCCHIO ,PUDGY ,ROMBN , SHADOW , SLANT 5 TOP UPSIDE DOUN 260 FOR I = 1 TO 20: READ Fs:F$ = FS + ".SET* 270 PRINT : PRINT CHR@ (d)"ELORD*FS" ,Asdao"; CALL 768 @a0 WVTRB 23: HTRB (41 - LEN (F#)) / 2: PRINT FS; 298 GOSUB Zd@: PRINT : NEXT 308 GOTO 238 318 HOME : INVERSE : PRINT " N'OUBLIEZ PRS LA DISQUETTE TOOL.KIT !": NORMAL : GOSUB 240 326 POKE 216,08: GOTO 120 CARAC.VIS — 8300:20 58 FC 20 EZ F3 AS 83 BS 19 HS OO oper exactament ces 85 06 85 88 AS 49 85 OF 6h 85 OS AS ZS deux lignes (aprés un a5 16 RA 88 AS a8 85 OF AS @9 85 OB B1 AB Cali 15) of RETURN), 6 48 C® Of FO 19 84 Of Fé OC AS OB 18 69 @4 CR D® FR 85 OR Ad AC 68 81 OR CA cA @8 99 DS AS a6 18 69 Of 8S 86 AS OF 69 @ VERIFICATION: ® 85 a7 T= 0; FOR I = 768 TO O8351:E6 98 DO 82 E6 O09 C6 18 DB CA cH 19 89: T = T + PEEK(I) : FO 17 AS 98 18 69 58 85 88 AS a9 69 oo NEXT: PRINTT 85 09 AS 19 C9 91 DO AS AO OF DA HS 4a Z ® Ed FB ZO 1B FD 60 Résultat : 12697 BSAVE CARAC.VIS, AS300, LS7E 32 GUY-HACHETTE nega aS S SEER OER E ESTEE SEE e ene eee ese SAECO ER AE OST eR Se eee SST ETRE eee eeeee Te ae CARACTERES PERSONNALISES ony ek Ce cadre pal) ager en est une hs anes premiere application = eviennent Hed possibles 0 N peut certes imprimer des cadres en utilisant d'une part le souligne, et d’autre part le traditionnel! point d'exclamation, mais le résultat n'est pas folichon. Par contre, avec quelques caractéres personnalisés, eréés en cing minutes (ici, ils vous sont fournis aux lignes 280 et 290), on obtient réellement de bons résultats. Le cadre ci-dessus en est un exem- ple. Vous obtiendrez le méme, sur lmageWriter ou DMP. = ————~ 188 =GOSUB 238 Rappelons que 118 PRINT CHR® (27)°'"; CHRS ¢27)"L020" Vinstruction 128 PRINT CHR$ (27)"E" CHRS(27) "ROGNC” 138 PRINT CHRS (27)")" imprime n fois 148 PRINT CHRS (27)"T14" lscoccctare 158 PRINT "A"; CHR® (27) "RaSQB";"C" 168 FOR I = 1 TO 22: PRINT "D"y1: PRINT CHR® (27)"RO5 ; aba B";* ";¢ PRINT "E*: NEXT Lecons Si 178 PRINT "F"; CHR$ (27)"ROS@G" ;"H" pinged: 188 PRINT ————— 198 PRINT CHRS (27)"T22"; CHRS (27)"<* 289 FOR 1 = 1 TO 8: PRINT CHRS (27)"$"; CHRS (I + 64 J" ="; CHR ¢27)"'", CHR (I + 64): PRINT + NEXT ce qui permet 21@ PRINT CHR® (27)"$": PRINT CHR® (9)*66N": PRINT CHRS (272"L@10"; LIST 228 PRINT CHR® (4)"PR#0": HOME 1 END 23@ FOR 1 = 768 TO 773: READ C: POKE 1,C1 NEXT Cette partie 248 DATA 1465,4,92,237,253,96 du programme 250 PRINT CHR# (4)"PRHJ": PRINT : PRINT CHR® (27)*I installe “; CHRS (9)"48N": PRINT CHR® (¢27)"2" la police spéciale 260 FOR 1 = 1 TO $4: READ C: POKE 4,C: CALL 768: NEXT dans I‘imprimante. 7 PRINT SS ee 288 DATA 27,43,27,73,65, 72,255, 1,1,1,1 2.1 1,66, 7251, Lylgd phyla ly ls 67,72,2y1yh,0,1 51,2, 255,68, 72,2558 »8,8,8,0,8 298 DATA 8,49,72,0,0,0,0,8,8,8,259,78,72,255,128,128, 128,128,128,128,128,71,72,128,128,128,!28,128,128 :128,128,72,72,126,128,128,128,128,128,128,255,4 TREMPLIN MICRO 33 Votre bibliotheque INFORMATIQUE J prcicmentxewaro @ Guide du PC (Modula, Belin) Je sais { nous sommes ict entre ulllisateurs d'Apple, mais ' qui, pormi nous, n'utilise pos — dans le endre de son G ul d e d U PC entreprise, notamment —, ou ne sera pos amend o le faire, un IBM PC ? Vous ? alors, possez votre chemin car ce GUIDE DU PC. un gros bougin de Lon Poole (traduction de Michéle Briére et André Contin). est entiérement dédié 4 l'ordinateur personnel IBM,,. que louteur vous propose d'apprivoiser. Ah | comme j'cimerois pouvoir disposer, sur mon 65C02, du Basic PC | Evidemment, per- sonne ne miempéche d'achoter un Mac, mois je suis 4 lo fols tétu et inconditionnel de l'Apple... alors, Nempéche, que j'ai feuilleté le Guide du PC aver beay- coup dintérét, Je ne suis guére dove pour les langues @irangéres, mais |‘avove que lo langue porlée chez IBM mest plufal familiére, saul que, chez eux, certains mots son! directement compris par la machine, tandis que, O chez nous, il faut les lui expliquer en lui fobriquent des routines appraprides. Mois revenons au livre: super. Bien présenté, bien rédigé, opporemment complet, avec des exemples et encore des exemples. Bravo ! Lon Poole | @ La félé-informatique personnelle (Hachette informatique) Joé| de Rosnay a prétacé le livre de Jacques Bessiéres, lequel travaille chez Apple... dob ces Applications aux ordinateurs Apple, Lb, nous sommes bien en terrain connu. Lisez, braves gens, surtout si la télé-informatique personnelle ne vous loisse pas indifférents. Que faut-il pour communiquer ? Les secrets de la communico- tion ? Transpo... Le pratique de quelques serveurs... L'Apple et les connexions... les émulations IBM... fe vidéotex., Joural énumeré les titres des chapitres de cet ouvrage quand Joural précisé que les deux derniers sont consacrés a i'Apple i micro-serveur et 4 un guide pratique des communications. Ainsi, aprés avoir lu — ov dévoré (il n'est pos indigeste, croyez-moi || — le texte de Jocques Bessiéres, non seulement vous sourez commen! vous équiper pour communiquer (vio Apple}, mais vous serer en mesure de créer votre propre micro-serveur Une invitation @ la communication qui devrait assurément figu- rer en bonne place sur l'un des nombreux rayons de votre bibliotheque informatique | Clément RENARD. a4 (GUY-HACHETTE I GROSSIR 2? Une simple formalité, avec le programme que vous présente Bernard GOURC. QUR en comprendre le fonctionnement, commencez por suivre le déroulement de la routine en langage machine (elle n'est pas commentée). Utilisez votre assembleur si possible, mais ne vous découragez surtout pas. Vous pourrez tres bien vous contenter du CALL—151 habituel, suivi des valeurs. De toute facon, de $6106 4 $62F4, il n'y a-plus rien & comprendre.,. puisqu’il s‘agit de la fonte de caractéres que vous fournit Bernard GOURC... en prime, bien sdr. Résumons-nous ; 1. GROS (programme de $690@ 4 $6195, puis fonte) GROSSIR 2. DEMO1, en Basic se compose dane de : 3. DEMOz, en Basic également (29@ M sur un dessin). a ORG #Apae OO1E: Eé FF 2 INC SPTEL GROS 1 SODE EQ $84 6028+ Eé EE 30 INC LIGB 2 CODE! Eou $F sa22: C6 FB I} DEC CPTE MSs COE2 «= EGU SD 6024: 08 FA a2 BNE AFFICHE 4 COLONNE EOU #82 826; 48 3 RTS. 5 LIGNE FOU 8° 34 SRRSRROE NOREEN 4 CPTEL EOU FF 35 + DOUBLE LARGEUR # 7? MEN EGU ear SA SHESSEEREEEESESE ES & CPIE EQU #FB 68277 AP 87 37 DOL LOA ese? * Lo EQU $FE 6829: BS FF 3B STA CPTEL 16 LI6B EOU SEE 6028: AS ay 39 «DEBUT = LDA LIGNE 11 COLB EQuU SEF 6820: 28.11 Fa = 48 JSR §F411 12 PeeOOREREWOTETEEEEOEEEES Ag3a: A4 a8 al LOY COLONNE 13° © AFFICHE UN CARACTERE * 6032: BL 26 42 LDA (#26),1 1d PeOeN OR ERREE ERTS HERS é834; 85 b4 qa STA CODE 4anb: AP 88 15° AFL LOA e888 4836: 28-48 48 44 JSR DOUBLE S882; BS FF 1é STA CPTEL 6039: Ad 88 45 Loy = COLONNE 6004; AY A? 7 LOA f$87 6838: AS FC 44 LOA CODE! 688d: 85 FB 18 STA CPTE 6830; FL 24 4? STA ($26),¥ 6008: AS EE v LOA LIGB 603F: CB 4B INy éOBA: 25 8F 2 STA LIGNE 6848: AS FD 4g LOA CODEZ spac: AS EF 21 LDA COLE eR42: Fl 26 38 STA (824), ABBE: 85 8B 22 STA COLONNE 6844: Cé OF St DEC LIGNE é018: AS EE 23 AFFICHE LOA LIGE 6846: [6 FF 52 DEC CPTEL g012: 28 11 F424 WSR $F4ll 4048: D@ Et 52 BNE DEBUT 4815; At EF 2 LOY COLE ée4A: 48 54 RTS OO17: Ab FF 26 LOX CPTEL | 848; AS @4 35 DOUBLE LDA CODE OhiP: BD B6 dl 27 LDA CARACT x 6840: 29 BF é AND ESBF 681C: Fl 26 28 STA ($26),7 6h4F: 85 87 vv STA MEM > TREMPLIN MICRO a5 Ce ee alee GROS (suite) | stAas 38 107 SEC 6HABs EP 4 AB Set espa éA51: AF 88 58 LOA eed ian; 85.87 1a STA MEH 6853: 85 FB 59 STA CPTE éBAF: 38 18 SEC 6855: BS FC ée STA COOEL 6eB6; EP BF AL SBC £S87 4857: 85 FO ét STA CODE2 6OB2: BS FE = 112 Sta LD 805%: AS 87 62 PREM = LDA HEM 6884; AS 87 «©9113 AUTRE = LDAsMEN 6858: 48 63 LF 6O6; 20 11 Fa 114 JSR $F411 éhSC: 85 87 “4 $Ta HEM 6OBP: AG AB OLLS LOY COLONNE 6856; 2 IF 45 acs TOT! SOB: B1 26 LN LDA ($28),7 6068: Ed FE 66 Al INC CPTE 48RD: BS B46 LL? STA COE 6621 AS FE a? LOA CPTE 48BF; AS FE = 118 LOA LD 6064s CF 84 68 CHP esas 4OCi: 28 11 Fa 119 ISR #F4it 6864: DD Fi a ENE PREM sca: Ad OB 28 LOY COLONNE 6482 AS 84 78 La CODE SO0d: AS BG = 121 LOA CODE oWéA: 29 78 11 AND £878 SOCB: 91 28 = 122 STA ($26), 686: BA 72 ASL ROA: E4 FE «128 INC LD 6040; 85 67 73 STA MEM sBCC: AS FE 124 LOA LD her: AS 84 74 Loa £884 BCE: 2811 FA 125 JSR $F411 S71: 85 FE fic} Sta CPTE 4ODi: AS BB 126 LOY COLOMNE 6873: AS 87 76 DEK = LDA MEM 6803: AS A6 = «127 LOA CODE 4875: OA 7 ASL 6005: 91 26 = «128 STA ($26),¥ 874: BS 87 78 STA MEM 6aD7: E46 87) = 129 INC MEM 6078 BB 13 Td BCS TOT? sH0P: G6 FE 138 INC LO eo7Ar C4 FB 88 AZ OeC CPTE 6o0B: CS FF 188 DEC CPTEL éB7C: 08 FS 8) BNE DEUK ODD: AS FF 132 LOA CPTEL SO7E: 68 82 ATS SODF: 08 D3 = 133 BNE AUTRE 407: As FB 63 TOT! LD CPTE 4OEL: 68 134 RTS S881: AS FL 84 LDA CODE! 135 seveesRsssEeeaPRHSRERN EEE 8892 18 85 cLe 136 * DOUBLE HAUTEUR+LARGEUR * 684; 70 9B 4k BS ADC TABLE! ,x [37 SeeeesEdeTERHE ESE FER HEREEE ne7: 8S FC a7 STA CODE! 69E2: 05 8? = «138 -DLOH «= LDA LIGNE ABBR: 18 8B ce sBE4: BS EE = 139 STA LIGE BBA: 94 D4 a9 BCC Al SBE: AS AB | 148 LDA COLONNE sneC: 48 a1) RTS SBEB: B5 EF 141 S74 COLB 6880: AS FB tL TOT? LOX PTE REA: 28 27 48 12 JSR DOL GABF: AS FD 92 LOA CODE2 4BED: AS EE = 143 LOA LIE 2812 1S 53 cur SeEF: 85 89 =| 144 STA LIGNE e892: 7D 9F 4h 4 ADC JABLEZ, é8F1: 85 EF (45 LOA COLE 4095: 85 FD 95 STA COvE? $OF3: 25 08 = 144 STA COLONNE 6b97: 18 9 cLe S8F5: 28 44 6B 147 USR DHAUT dave: FA EB 7 BCC Az 4OF8: AS EE 148 LOA LIGE 689A: 68 8 RTS seFA: 65 8? = Lae STA LIGNE 4098: 03 OC 38 OFC: E4 EF = 158 INC COLE 48 9% TABLEL HEX f30C3868 4HFE: AS EF ISL LOA COLE e9F: a8 BY He 6108; 85-48 =| 152 STA COLONNE 18 48 188 TABLEZ HEY AG@1NdtB60 é102: 2A Ad 6 153 JSR HAUT [G1] +eFeeeeeeeeeeenene i852 68 154 RTS 182 * DOUBLE HAUTEUR * bad: 155 CARACT (G2 SeehePEREETEEREES b s8Ad: AP 7 = 184 DHAUT. «LDA £887 48Ad: BS FF OBS STA CPTEL BHAB: AS 8 ied LDA LIGNE vaasaganeg fected coracteres, 36 GUY-HACHETTE GROS (suite et fin) S1E8- 22 22 22 3E 08 88 14 22 | 61F@- 22 3E 22 22 1E 22 22 1E | 61F8- 22 22 1E 1C 22 62 82 a2 *6196.52F2 POLICE DE CARACTERES 6200- 22 1C 1E 22 22 22 22 22 6208- 1E 3E 02 @2 1E 82 82 3E Slas- 88 88 6218- 3E 82 OZ 1E 92 82 82 IC 4108- 08 8G BH BO BH 88 BS BB S218- 22 B2 G2 BA 22 1C 22 22 6116- 68 @8 a8 88 14 14 14 BB 4220- 22 3E 22 22 22 1C @8 08 6118- @@ 86 86 IC 22 @2 BC Bd 4228- 68 88 G8 1C 26 26 20 20 é120- 24 1E 68 3C 0A 1E 28 28 623G- 20 22 1C 22 12 8A 86 GA 6128- 1£ 8@ 24 16 88 34 32 68 6238- 12 22 82 O2 82 82 82 82 6138- 68 14 14 @8 2C 12 2C Ba 624G- 3E 22 34 2A 2A 22 22 22 6138- 88 08 8B BB AG BO BB 84 $248- 22 22 26 2h 32 22 22 1C 6148- 82 62 G2 44 BB 48 18 28 é250- 22 22 22 22 22 1C 1E 22 614B- 20 20 10 88 88 2A IC 3E 6258- 22 1E @2 @2 62 IC 22 22 6158- 1C 2A 8@ 88 88 68 98 3E 6260- 22 2A 12 2C 1E 22 22 1E é6158- 68 68 88 88 BG BG BS AB 62468- GA 12 22 1C 22 O82 IC 24 5168- 84 86 80 GO 88 SE G6 BB é278- 22 1C 3E 98 68 88 BB BB 4168- 60 89 20 @6 6G 04 48 BB 6278- @8 22 22 22 22 22 22 iC 617@- 28 18 88 B84 O2 BB IC 22 6280- 22 22 22 22 22 14 @8 22 6178- 32 2A 24 22 1C 88 OC BA 6288- 22 22 2A 24 34 22 22 22 618@- 88 88 88 @8 iC 22 24 18 4270- 14 98 14 22 22 22 22 14 4188- 8C 82 3E 1C 22 20 18 28 6298- 08 99 08 @8 3E 28 16 88 6198- 22 1C 18 18 14 12 3E 18 62A0- 84 82 3E 18 88 36 3F IF $198- 18 3E @2 16 2@ 28 22 1C 62A8- 3F 36 18 88 36 21 11 2° | 61AQ- 3@ G8 G4 1E 22 22 1C 3E S62B0- 36 88 94 84 7F Od B4 OB 61AG- 22 26 18 88 84 B2 1C 22 62B8- 09 18 30 7F 30 16 8G 68 61B@- 22 10 22 Z2 1C 10 22 22 62C8- @8 98 88 3E 1C 68 OB IC 61B8- 3C 16 88 66 OG BB BA BB 6208- 3E 88 88 88 88 7F 7F 7F 6i1C8- 8G 8B O68 BB BG BB 88 4B 62D6— 7F 7F 7F 7F OF GF OF OF 61C8- 88 B84 18 88 84 B2 64 BB 62D8- @F OF BF 78 78 78 78 78 61D8- 18 86 98 BB SE 80 3E 28 S62E8- 78 78 7F 7F 7F 7F OB 28 61D8- 64 68 18 28 18 @8 84 1C S2E8- 86 88 G6 OG 7F 7F 7F 7F S1E@- 22 26 18 68 88 89 OB BE 62F@- 80 FF FF Vous souvere: le tout par BSAVE GROS. A$6000.1$2F3 CONTROLE; T = @: FOR! = 24576 TO 25399 ; T = 7 + PEEK(I}: NEXT: PRINTT Le résultat doit étre 47339 Tene Wile@inme OP peut employer une auire fonte de coractéres (provenant de TOOL KIT, por exemple), Il suffit de la charger & portir de l'adresse $6106, Toutefois, le pro- gramme de Bernard GOURC est prévu pour travoiller avec des caractéres de 7 bits, Or, coux de TOOL KIT sont sur 8 bits. Il conviendra donc de remplocer la valeur Q7 (ligne 17, page 35) par 08. On obtiendra le méme résultot par POKE 2458108, COMMENT AFFICHER SIMPLEMENT UN CARACTERE ? Placer en SEF (POKE 239,...) le numéro de lo colonne ob on désire aHicher (de @ & 39) et en SEE (POKE 238,...) fe numéro de so ligne de base (de 7 4 19), Ensuite, il faut placer l'adresse du caroctére dans !o table en $401A (partie basse) et $6018 (partie haute). Ainsi, pour afficher le premier caractére de la table, on pourra soit (moniteur}) écrire ; * A9TA ; G661, soit [en basic) envoyer les pokes suivants ; 24602,06 et 24603.97 (97 = $61), | AFFICHAGE NORMAL : CALL 24576 — DOUBLE HAUTEUR : CALL 24740 — DOUBLE LARGEUR ; CALL 24615 DOUBLE HAUTEUR ET LARGEUR : CALL 24802 Attention | oprés aHfichage normal, ne choisissez que l'une des 3 options ef non les trois successivement | TREMPLIN MICRO aw GROSSIR.DEMO1 100 110 120 130 140 150 160 170 180 190 200 210 220 230 240 250 PRINT CHR ¢€4);"BLOAD GROS* DEF FN H¢ADR) = INT (ADR / 256) DEF FN LiADR) = (CADR ¢ 256) - F N ACADR)> # 256 HGR : HCOLOR= 3: POKE - 16302,0 REIN WACK FEW EEE HE KEM * ECRIT * REM ##O#24e4e eR EER C = O:L = 21:48 = *GOURC BERNARD FOR F = 1 TO LEN CAS}: GOSUB 660 :¢ = C + 1: NEXT REM HHRHEH MANE H HHH REM #ECRIT+DOUBLE HAUTEUR * FRE 23 OE IH HE C= O:L = 21 FOR F = 1 TO LEN CA®) GOSUB 660: CALL 24740 C=C +1: NEXT F REM #4eCHEHEME Hee REM #ECRIT+DOUBLE LARGEUR # REM WHR REE E RCH IO C = 20;:L = 45 Ag = *PRESENTE* FOR F = 1 TO LEN (AS) GOSUB 660 CALL 24615 C=C + 2: NEXT FP REM #2404 m RHR RE REM #ECRIT+2#LARGE+24HAUT # REM #40HREHEH FES E He C = 12:8 = 84 AS = “GROSSIT" FOR F = 1 TQ LEN (AS) GOSUB 660 CALL 24802 C=C + 2: NEXT F HPLOT 0,110 TO 279,110 REM ARHEHA HERKEN HEN HEH REM # TOUS LES CARACTERES # REM ae Ee ee He C= 2:L = 171 = 0 TO 70: GOSUB 700 + 1: IF C < 38 THEN 520 L =L+i4 NEXT A HPLOT 0,154 TO 279,154 REM SHEER EAH eH REM # ANIMATION .... 4 BREMNER AEE EE EEE HO Bi FOR A c=c € = 2: a ° id o 630 640 650 660 670 680 690 700 710 730 = 134: GOSUB 700 = 134: GOSUB 70D: CALL wan nn 2 = 134: GOSUB 700; CALL AONONQ|AaAN os + n = wn i] & ‘ 134: GOSUB 700: CALL 24802 S = PEEK ¢ - 163396) FOR T = 1 TO 100: NEXT T.A GOTO 570 FEM HORA REM 4AFPICHE UN CARACTERE # TRE 106 Hime eat 48 Ee AE Ee Be = MIDS (AS,P,1):A = ASC (BS) ~ 32 ADR = 24638 + CA # 7) POKE 24602, FN LCADR): POKE 2460 3, FN HCADR) POKE 239,C: POKE 238,L: CALL 245 76 RETURN GROSSIR.DEMO2 10 15 20 aa) 30 35 40 45 50 55 75 HOME : HGR PRINT CHRS (4};"BLOAD GROS" PRINT CHR® (4);"BLOAD DESSIN* HCOLOR= 3: POKE - 16302,0 REM HAM HAH HERRERO REM * DOUBLE HAUTEUR . REM 2620S 000 EE L = 182: REM LIGNE BASSE DE LA P ARTIE AGRANDIE A = 91: REM NOMBRE DE LIGNES AGR ANDIES,SOIT GRANDEUR DU CARACTER E POKE 24741.A: POKE 24748,A - 1: POKE 24753, FOR T = 1 TO 2000: NEXT T: REM A TTENTE FOR C = 4 TO 25: REM NOMBRE DE C OLONNES TEXT AGRANDIES POKE 8,C: POKE 9,L: CALL 24740: REM INITIALISATION + APPEL ROUTI NE NEXT ¢ a GUY-HACHETTE YS Propos | Derniére heure : 1200 F HT (au lieu de 2000 F)... Un excellent traitement de texte : e LEJONGLEUR DE MOTS { Mots ? Joli, non ? Et poétique avec cela. t Ca sent bon lo vieille France, celle que oe l'on retrouve avec tant de plaisir quand camp! ona le privilage de séjourner au Québec. Lie) ONNAISSEZ-VOUS le Jongleur de { I Cor te Jongleur de Mots est canadien (en langue anglaise, son titre — non moins évocateur — est World Juggler}. Javoue avoir un faible pour tout ce qui vient de la-bas. Peut-étre parce que mon Paitou natal compte bon nombre de cousins des Canadiens et Acadiens, Eux et mai avons les mémes racines terriennes. Aussi, amie Lectrice, ami Lecteur, ne compte pas sur mai pour “démo- lir' ce traitement de texte en francais (au Qué bec, on adopte volontiers le tutoiement, et c'est sympa). S'il était mauvais, je n'en parlerais pos, at vaild tout ! Premiére constatation : Le Jongleur de Mofs est bavard. Dommage que l'auteur de son mode d'emploi ne soit pas l'un de nos distingués rédac- teurs: Tremplin Micro déborderait d'explica- tions. Le livret, 136 vraies pages, bien remplies — el rédigées dans un style agréable — explique réelloment comment utiliser au mieux le produit, Cest de l'excellente doc, classique dans lo pré- sentation, mais bien imprimée. Les menus se révélent au moins oussi bavards que le bouquin.., dont il est certainemen! possi- ble de se passer, les commentaires du lagiciel se suHfisont & eux-mémes. Que l'on ne se méprenne pas ; lorsque jécris “bavords", ce n’es! pas un feproche, ou conptraire. Faut-il aborder les questions techniques 7? Je sup- pose que vous n‘attendez pas autre chose de moi. Sechez donc que Le Jongleur de Mots est utilisa- ble sous PreDOS (version 1.1.1, c'est-d-dire la bonne... celle qui es! compatible avec les nou- veoux lecteurs Apple). tl est écrit en assembleur, dou une rapidité qui n'a rien 4 envier oux autres produits de cette catégorie (en mode “insertion” notamment), Au moment of je rédige ces quel- ques lignes. mon Apple fle (avec son 65C02) vaut une bonne machine @ écrire, et je retrouve blen, sur les 80 colonnes de mon écran, tous les carac- téres rentrés au clavier (je vous signale au pas: sage que je ne tape qu'avec deux ou trois doigts, mais avec une rapidité satistaisante...). ACS FNSA SRE OAT ESOT EN EKER Ree eeCenesenasseeeeasee TREMPLIN MICRO On se proméne dons le texte — pour insérer ou elfacer — par le truchement des fléches et je vous assure que la souris ne me manque absolu- ment pas. Pour ne rien vous cacher, $i |'en suis partisan dans des utilitaires de type “Mouse Desk" (fameux !) au "Version Cale",