Download Magazine Pom`s : la collection
Transcript
Ile+, Ile, - - - - - L'anti-disque Speedisk™, la RAM Card a mémoire permanente Rapidité Fiabilité Temps d'accès 0 l'information: 0,2 ms (100 fois plus rapide que les disques durs ... ). Par exemple: démarrage sur Basic.System en 3 s. AppleWriter dispoo'ble en 0 oer.a s. Constituée de c rcu' C�·OS è "ès '"V es· faible consommeTlOn, Speec aussi fiable que l'ordinateur iUt-même_ Elle est insensible 0 l'environnement. Capacité Speedisk'" est proposée en quatre versions: 1 Mo(l 048576 octets) 384Ko extensible OlMo avec hortoge compatible ProDOS (pour les Apple )(+, Ile) ou sans (IIGS) Compatibilité 100% compatible avec ProDOS (c'est un VOlume), Speedlsk™ fonctionne sur Apple )(+, sur Apple Ile et sur Apple IIGS, Prix Lecteur de Pom's, vous bénéficiez d'une remise de 10 % : 5P400 364Ko SP1000 1 Mo SP400H 384Ko horloge SP10C01 1 Mo ho�oge Garantie � � � � 3591.00 5391,00 4122,00 5 922,00 Speedisk™ est une fabrication française garantie un an par échange de la carte. Banc d'essai dans la revue Pom's nO 31 Vente par correspondance, Logma S.A. documentation, 12, rue d'Anjou renseignements 78000 Versailles Tél: (1) 3951 2443 Je désire recevoir- sans engagement- voire documentation sur les cartes Speedisk™ Speedisk"" est une marque déposée de Thot Informatique® - France Speedisk"" ----_._------- -- ------------- - - - - - -- - Numéro 34 janvier-février 1988 Apple Il for ever Editorial Hervé Thiriez Il 6 Copie de l'écran texte 40 et 80 colonnes Il 1 7 • • Ile Répom'deur IIII[ 11,111!/,�G:111g1 Page Ile • mOOe d'empWi Apple Il • mOOe d'emploi Mac • programme Apple Il 9 • • Initi ation Le passage des paramètres • • Il IIIli l!+111111 1!111!I,�G81�age Ile À l'essai: Les Il I le A 1 • - 28 I le l'essai: OverVue �4 mode d'emploi • liste des instructions • résumé des inshuctions • sources Apple Il Alexandre Duback Alexandre A vrane Û 56 Boîte Û 61 - 12, rue d·Anjou - 78000 Versailles. Tél. Imprime en Francc_ Pom's nO 34 : (1) 39 SI tif d ,mpres�,on 53 35 page 23 page 39 Û Page Page Û Page Page aux lettres 69 Petites 70 annonces Les annonceurs; American COfllpuling : page 49; AppJc: pages 72 et 73 ; Bréjoux AE : page La Commande Elœtronique : pages 4 el5 ; LOGMA S.A. : page 2. Éditions MEV 35 68 Du côté des L a serWriter Stéphane Dedeyan Guillaume Lejeune 33 50 page 11 page 12 B ibliographie 2.1 Page page page page page page page 51 Pom_Link TimeO ut Jusqu'à 72 points av ec MacWrite • 24 1 111 [111 !,�G81�a� ge 1 Page �4 Éric Weyland programme Mac syJwptiqtœ Apple Il • synoptique Mac Jean-Jacques Colwhir Ile Ile �Ii Spécial répondeur télématique AppleWorks des macro-commandes I! 62 Ile !11[1l!+IIIII[lIelllll�'�G8tpage Dimitri Ge stor y I I[1 ][+111111 1I;!1111_�G811�age 8 [lêfl 1!,�G tlll I!III! ,II Ile Ile Yvan Béard Ile . • Jean-Yves Bourdin Û Page , - 71 8; 24 43. Directeur de la publication: Hervé Thiriez 785066 _ �p<)t 1�8al Jan'·'er 1988 3 Ashton4ate et La Co présentent cl < .. .... . ··""IF '__t: .. D'_' o·· .,·· or., _.... ..... .." , .. Ho,O'_ c'"'"",,, .....: , 1 ,.",..._: . •••••• _r.......... . ... ,.. '.," .... ,.. ••...,._r.. oc..., ,,""', 6 ... " .. ....... ,.. _-- Il....,. .., __ _ . ......' ,.. - ....... • - .. , ... _---, � - _ .. � Club � Video _... _ --�--- -- mmande Electronique �BASEMac dBASE®Mac est disponible. C'est le plus puissant système de gestion de base de données relationnelle pour TM. Macintosh A la différence des autres bases de données, vous l'utilisez sans aucune . connaIssance de la program mation. Commencez par créer et relier vos fichiers. La modification d'une information entraînera la mise à jour des autres. Automatiquement et immédiatement. Et souvenez-vous qu'avec dBASEMac, tout est réalisable sans programmer. Cliquez simplement la souris et vous visualiserez vos fichiers de mille et une façons. Toujours sans faire appel à la programmation. En insérant des polices de caractères issues deMacDraw®, vous créez les rapports les plus simples aux plus sophistiqués. Ils apparaîtront à l'écran, M ••• _ La Commande Electronique 7, RUE DES PRlAS - 27920 SAlNT·PIERRE DE BAlLl.EUL TËL 32 52 54 02 TElEX LeE 180 855 FAX 32 52 54 46 tels qu'ils seront imprimés. Nous ne parlons pas simplement du texte et des graphiques. Avec dBASEMac, vous pouvez même incorporer des photos au sein des fichiers. Toujours sans programmation, vous importez des données issues de dBASE ID PLUS ou de n'importe quel fichier ASCII. Tout cela, grâce au système d'aide intégré et aux menus déroulants du Macintosh. Mais si vous voulez aller encore plus loin, un puissant langage de programmation permettra de développer des ,- ------- -------- X ---applications. 1 BON DE COMMANDE . 34Vous désirez A retourner à : une documen.. La Commande Electronique 7,rue des Prias tation 21920 SAINT PIERRE DE BAILLEUL complète ou Nom: assister à une Société: présentation, N°:_Rue: alors, n'hésitez 1 pas à contacter Ville: votre reven Code postal: deur agréé Téléphone: Apple. dBASEMac o Je \'OUS commande exemplaires de la prise en main d8ASE Mac, au prix est disponible de 50 F TIC. Règlement par chèque joint à la commande. au prix de o Envolez-moi une documentation 3950 F (HT). comp ète sur le logiciel dBASE Mac, _ __ __ _ _ _ ______ _ _________ ___ ___ _______ _ .\�AsH1DN TATE T,ditoria{ / Ont collaboré à ce numéro Alexandre Avrane - Jean-Luc Balanegue Yvan Béard - Jean-Yves Bourdin Jean-Jacques Colwhir - Stéphane Dedeyan Alexandre Duback- Dimitri Geyslor Olivier Heu- Guillaume Lejeune Gérard Michel- Christian Piard Joëlle Piard- Hervé Thirie... Bernard Toméno - tric Weyland Directeur de la publication rédacteur en chef Porn's sur Minitel, aujourd'hui Hervé Thiriez Rédacteurs Alexandre Avrane - Olivier Herz &litions MEV - 12, rue d'Anjou 78000 Versailles- 1r (1) 39.51.24.43 Siège social Éditions MEV P ublicité Diffusion N.M.P.P. Pom's est bien plus la revue desAppleque celle des Apple Il avec un cahier Mac: comme Minitel 27, Kruptos, InterPom's, T_Pom's, Clv, nous vous proposons A nouveau des program mes communs aux Apple Il et au Macintosh, Il s'agit de Pom_Link et Répom'deur, deux de ces programmes qui don nent Il un seul numéro la valeur d'un abonnement. (1) 39 53 04 40, tel est le numéro de téléphone que pom's met à la disposition de votre Minitel 24 heures sur 24, Dès aujourd 'hui, vous y découvrirez le répondeur télématique de ce numéro, répondeur prêt à enregistrer vos messages et, pour quoi pas, vos commandes; voici donc la possibllité d'essayer Impression Berger-Levrault 18, rue des Glacis 54000 Nancy 'l!t 83.35.6l.44 Photos de couverture CP & ILS Photogravure Graphotec 21, chemin de la Tour 92350 L e Plessis-Robinson !l' (1) 46.30.44.49 Pom's est une revue indépendante non rallachte à Apple Computer, me. ni à Apple Computer France S.A.R.L. Apple, le logo Apple, Mac et le logo Macintosh sont des marques déposées d'Appie Computer.lnc. IBM est une marque déposée de Intemational Business Machine. PC et AT sont des marques déposées de la Société IBM. eËditionsMEV 1988 Toute reproduction intégrale ou partielle. effectuée par quelque procédé que ce soit, sans raccord écrit d'Éditions MEV, constitue une contrefaçon. Loi du Il mars 1957, anicks 425 et suivants du Code Pénal. Droits de traduction. de reproduction et d adaptation réservés pour 10US pays. un nouveau programme de communication avant d'acheter la disquette, Qui dit mieux? Ce nouveau numéro de téléphone est promis à bien des développements mais, rançon du succès, pardonnez-nous en cette période de mise en service quelques tonalités "occupé". S'ilest un service qui vous tient, et qui nous tient, à cœur, c'est bien l'assistance téléphonique pour la mise en œuvre de nos programmes ; c'est une charge importante, mais elle nous semble capitale. Nous comprenons que ceuxqui manifestent leur fidélité par un abonnement en attendent plus d'efficacité, aussi nous travail lons à des solutions: rendez-vous au numéro 35. Comme tout service gratuit. cette assistance comporte un sympathique sottisier (qui occuperait bien un numéro com plet) tel le cas de cet utilisateur d'lnterPom's - au demeurant peu aimable - qui avait quelques soucis de communication: 11 s'agissait d'un pirateur de base dépourvu de mode d'emploi, ..• qui exigeait une aide! Heureusement, notre flegme nous aide Sondage? nous recevons Il l'heure de ces lignes encore bien des réponses: dépouillement dans le prochain numéro mais déjà une dominante apparaît, un succès pour la rubrique Apple Il fo r ever - doutez·vous encore de l'inventivité des développeurs - et des programmes de communication. Hervé Thiriez ' 6 Pom's n° 34 Copie de ['écran tel(te 40 & 80 cofonnes e programme en assembleur présenté ici est une évolution de celui de Christian Guérin paru dans le numéro 3 de Pom's. Il fonctionne dans les mêmes conditions et s'utilise de la même façon. L'évolution réside dans le fait qu'il détermine la nature de J'écran et donne aussi bien la copie d'un écran en 40 colonnes qu'en 80 colonnes. Il fonctionne sous ProDOS et DOS 3.3. Le petit progr'lmme BASIC ci*joint donne un exemple d'utilisation. Source TXT.DMP Assemblage par Pro CODE o ...................................................... , 4 ...................................................... , , 8 ADL 10 CU:!' Il PAG!:20FF 12 PAGF.20N 13 RD80::0L " 5300 "" " ;Adres.se de début "'" " "" srom ;NlJ/fléro de liane ",. SCOS( ;Sél.ceion paae 1 ". SCOSS ;Sélection paae lA ". SCOIF ; Test 40 ou 80 colonnes IS de 11an. ;Ecrtcure d'un caraceére .--------- --------------- ----------------------------- Début du procra. ."., " e 16 17 .----------------------------------------------------19 HCT LDA 10 HCTl PHA " ZZ 21 Il suffit de saisir et sauvegarder la récapitulation TXT.DMP.C (sauvegarde: BSAVE TXT. DMP. Cf L$60). Le programme se charge en page 3 (ce n'est pas très original, mais sous PraDOS, quelle simplification) ; donc, l'une des premières lignes de votre programme Basic sera: 20 PRINT CHR$(4) "BLOADTXT.DHP.C" À chaque fois que vous avez besoin d'envoyer une copie d'écran à un périphérique (ce sera bien souvent l'imprimante), failes : GALL 768: PRINT CHR$( '0 ;Début Hud Copie Hane 0 ;S�u\leo.rde nu:néro 110ne .----------------------------------------------------Calcul de l '�dre5..e de début d.. l� 110ne .----------------------------------------------------- " "" " " '" " '" " ",. " '" " '''' " '" '" '" ADL+l 'OC " '" lS7F '" '"' HCTZ " '" " '" HCTZ " '" '"' " '" '"' " 41 42 •----- ;Rout!".. VTAB !SIS " " -- --------------- -- ------------------------ ----- Ecritur. d·un.. 110r.e 43 .---------------- ---------------------- ---- ------- - --- 4) �PRLO" " Ceci dans le cas ou le périphérique destinataire est connecté au port 1. Veillez à ce qu'il n'y ait pas d'écho à l'écran lors de l'envoi des caractères au périphérique (à l'imprimante), sinon l'écran sera défiguré au fur et à mesure de l'impression. En principe un : avant le CALL 768 règle ce perit problème. PRINT CHR$ (9) "BON" À noter enfin que le fichier binaire s'appelle TXT.DMP.C, mais qu'il conviendra à toute imprimante. û Pom's n° 34 '" , 24 PRINT CHR$(4) "PRLl": HARD COPIE TEXTE 40 FT Ba COLONNES lB Comment faire? A$300, • , , "" " " 47 HC:!'J "" " ; y p01n�e dans la liane U7F ;E ..t-on en mode " en RD80COL " '" HOT' "'" " " '" PAGEZON ;Acti.vati.on Pdae lA " '" " '" P AGE20FF ;Retour an paa" l " �, HCff " "" UJF " "" UZO " '" HOT' 60 "" U40 '" '$B� '" '"' 80 ou 40 colonnes? ;Sl en 40 colonne.. " ;CAI/ACTI;RE EN PAGE lA " " " " " HCT4 " " .. HCTS '" MDL). y ("DL). r ;si. le caractére est en 1nver ..e Ou en flashol"c , on 1. transforme ;Ecrlture sur l'1mpr1molnce ;CARACTERE EN PAGE 1 7 67 BMI HeT6 68 AND L$3F 69 CMP L$20 70 BCS 71 HeT6 72 73 " • 75 HeT6 DRA L $40 JSR OUT DRA INY April avoir saisi cn 77 L ! 40 BNE HCT3 rlcapilulatiOIl par; BSAVETXT.DMP.C,A$300,L$60 0300:/19 0 0 48 48 'lA 29 03 09 0308:04 85 07 68 29 18 90 02 .. Caractère suivant ;Test 0310:69 lF 8 506 DA DA 0506 si fin de ligne 0318:85 06 AO 00 A2 7F EC IF 0320;CO BO 19 A9 00 80 5S CO • 0328:81 06 80 54 CO 30 08 29 *----------------------------------------------------- 0330:3F Cg 20 BD 0 2 09 40 09 80 '" 0338:80 20 ED FD 81 81 Fin d'une ligne *----------------------------------------------------- 0340:29 3E" C9 20 80 02 09 40 82 • 83 LDA ! "M"-$40 84 JSR OUT 85 ; PLA 87 TAY 'RETtJRN' 0350:DO CA A9 80 20 ED 88 INY ;Passe à TYA 90 CMP ;s uivante !!24 ;Test 91 BNE HCT! ;de la page 1ig si fin • Programme de démonstration TXT. DMP. DEMO 10 30 40 0 APPLE Il GS, APPLE Il E, APPLE Il C RÉVEILLEZ VOUS! GS RAM· GS RAM PLUS Eltensilm m'mGlr. 512K • 8 MO avec patch 'Super Ajp l leWorks' ". mémoire cache. RAMKEEPER Alimenlaton perm.ntnle cie t cu 2 cartes mémoire en slct 8ltension as. DISQUE DUR 3.5" BJX 20 MO Oisq... Winchester 3.5" IIIIfnt. cOmpild .1 rapide. patlil:ioooablll sous diU,,.ntl ,ys"mu. LIVI' avtc son dl.c'eur de pfogrammu Il utiUllifli ln nombrl. TRANSWARP liE: Ace"'r.!.ur 3.6MgI dl le m6meNr. Pmc:4WI, aUJI�ÎlÎr' et d., acc" RolI'I. V�IUI �I&bll 1\lI 1& c"'•• au cl&vier I! Igne dt p'oglllMll. 65 0 Z·RAM ULTRA 1.2.3 IIC: APPLE Il FOR EVER Patch "Super AppleWorks". Tableau de bOfd de contlgur.tlon: 22.800 lignes. 22.600 lichu, 2.042 eoupat·coller, bu!l.r d'Impression, IIU'I'oarde plr luto·segmentation, dale et heure' tkran .t ln cal'goMI bue dl données. CHR$ 0 AS "POM'S": + S (21) .,,* ...: IF FLAG THEN B$ IF FLAG THEN C$ - " H A R T E X T 0 IF FLAG THEN PRINT A$;: IF FLAG THEN 90 FOR l - 1 TO 21 100 PRINT " """" ; 110 IF FLAG THEN 120 HrAB 40 HTAB 80: NEXT l 170 IF : GOTO 130 PRINT B$: FLAG THEN PRINT A IF FLAG THEN VTAB 4: HTAB 7: INVERSE PRINT A$; "II"" IF FLAG THEN PRINT A$""""";: TAB( 5); 160 C O P l D PRINT D$"PRf.3" $"*"; 150 " P 0 .. 70 130 NEXT .. 80 PRINT VTAB Il HTAB 24: INVERSE GOTO 190 180 HTAS 190 PRINT C$ 200 13: VTAB 18: EN FLASH TAB ( 20).- NORMAL PRINT PRINT "Mettez : 220 VTAB 20: HTAB 4: IF FLAG TH votre imprimante en rche" IF FLAG THEN HTAS 8: ma PRINT TAB{ 20); 230 240 •• , E 210 Extension m6molr. d. 256K • t MO av.e pO$sibi�,' hooo91 eUou CP/AM. P.teh". R.mOisq... BOUS OOS, PlOooS. CP/AM. Cc"l'atibll ne 128K, 128K Rom 3.5, 384K. - � 60 C$ - "HAEW COPIE TEXT" IIGS,IIE: d'upIGIt.lion. SaU'leg.ucle p'rmaoerlle avec RamCNilrger. Patch" sur Apple liE. PRINT FOR J- 1 TO 3 9:A$ M 140 RAMFACTOR·RAMCHARGER ,,"mGI,. cie 5t2K • 5 MO partitionnable sous dil1érents syst'mes , HOME CHR$ (4) :FLAG PRINT D$; "BLOADTXT, DMP, Co, 50 BS BRÉJOUX AE· Applied Engineering 29 rue l.4ontribbud 69009lYON Tél: 78.36.52.69 , TEXT 20 DS RTS lias: FD 68 sur l' i mp rim== '_'_ - ___ __ '_'_' _'_"_ '_c_'_ '_ c_ _ ' _ '_ ' D' _ _ '_' _ ' "=t= e= _ '_ _ - 89 93 06 30 08 0348:09 80 20 ED FD ce co 28 ,-Envoi de • 86 92 8 edit $OU$ ntOlIi/l!ur, IJOUI la sauvl!gardull [, $80 76 78 79 Récapitulation TXT.DMP.C 250 260 PRINT "puis tapez sur une touche" - 16384,128: POKE - 16368,0 l'lAIT PRINT D$"PRf.l": Ri.O " HOME : CALL IF FLAG THEN 768: PRINT D$"P END 270 FLAG - 1: GOTO 50 Porn's nO 34 flLpp!eWorkJ : ies macro-cow:rnandes L'un des reproches que l'on adresse à la version française lA d'AppleWorks est qu'clic n'a pas (en tableur) les fonctions tJJimitri (jeystor START àROUND, àAND et àOR de sa sœur 2.0 américaine. pas O:<asp>àif«msg>" plus qu'elle ne possède de programme de mailing. uis RETURN'<input>:1; (àif«msg>" "<msg>'OR : de Qu'à cela ne tienne, SupcrMacroWorks permet de contourner ces lacunes avec élégance. Pour vous meure en appétit. Porn's vous propose, dès ce mois-ci el dans la nouvelle rubrique consacrée à AppleWorks el SuperMacroWorks, les lrois macros AND, OR Cl ROUND. Rappelons que les fichiers de macro-commandes sc présentent sous la forme de fichiers traitement de lexie AppleWorks. Une fois que vous avez modifié votre ApplcWorks avec le logiciel SMW. tout cc que vous avez à et faire ô= pour compiler celles·ci et les rendre actives. faire est de charger le fichier de macros, J'appeler à l'écran, Les macros sont actionnées en appuyant simultanément sur la touche '* et la touche d'identiflcation de la macro. Pour "<msg>'OR : première expression, p tn>< msg> ' Résul t at du OR' ! uxième expression, puis RETURN'<input>;l;O»)<r A:<asp>àif«msg>" "<msg>' AND : première expression, uis RETURN ' < input >; (àif«msg>" xième expression, p "<msg>'AND : cleu puis RETURN'<input>;l;O);O)< rt n><msg> ' Rés ult at du A.�D'! R:<a sp>à int««msg>" "<msg> ' Express i on à arrond , ir puis RETURN'<input» +,OOS)*lOOl!lOO<rtn><m sg>'Arrondi à deux déc imales '! END plus de détails sur la syntaxe des macros, reporleZ vous au manuel français qui accompagne SMW. Quelques mots d'explication sur ces macros. Elles tirent Voici le listing de la macro AND.OR.ROUND. Vous trouverez ce fichier sur la disquette d'accompagnement de Pom's. Une dernière remarque: le pavé explicatif enlee les deux traits d'astérisques n'est nullement nécessaire pour le parti de trois formules classiques: pour l'arrondi à 2 décimales : àINT«(Expression) + ()()5)' 1()()li1()() • pour OR: àIF(Exprl;I;(àIF(Expr2;l;O) ) - il suffit que bon fonctionnement des macros, mais c'est une bonne Exprl ou Expr2 soit vérifiée pour que la formule habitude à prendre: il fait exactement les dimensions d'un renvoie écran, et rappelle en quelques lignes les fonctions el pour AND : àlF(Expl;(àIF(Exp2;I;O);O»· il faut que 1. Exprl et Expr2 soient vérifiées pour que la formule commandes qui suivent. renvoie 1. L'introduelion des expressions se fait par la fonction <inpuD : la macro s'arrête, et attend l'cnleée de texte au clavier. La macro reprend aussitôt après un 'Rcturn' au APPLEWORKS 1.4 - SuperMacroworks clavier (qui n'est pas ajouté à l'input). Pour que la macro AND.OR.ROUND La f r an ç aise version soit compréhensible, il faut faire précéder <inpuD de la 1.4 d'Appleworks ne àAND et àOR contient pas les fonctions àROUND, de la version américaine 2.0. Mais il est i nt roduire fich ier . t ou t avec à possible tlR, ,b, fait les macros et de tlo les de ce a l l e z dans reste qu'à un tableur, et expérimentez. introduire expressions. Dimitri Geystor - Novembre 1987 Porn's n° 34 MOllseText (* *). Dans le cas des macros ci-dessus, la série d'espaces entre" " efface le début de la ligne (où va s'inscrire l'input), et le message proprement dit, cnlee ' " est volontairement déporté vers la droite. attention aux apostrophes dans les messages en vidéo Les macros vous guident par des messages, vous l'écran, en caractères normaux (" "), inverses (' ') ou Notes : Compilez avec (jpuis fonction <msg>, qui permet d'afficher un message au bas de les il ne valeurs ou inverse: remplacez-les par un <0> si vous ne voulez pas que la suite du message se retrouve dans les endroits les plus inattendus... <inpuD accepte non seulement l'entrée de caractères, mais les déplacemenls par les flèches el la souris. tous ceux qui font régulièrement de la rédaction: Voici, avant de vous quitter, une autre macro fort utile pour 9 = quand toutes les commandes qu'elle contient ont été exécutées ; APPLEWORKS 1.4 - SuperMacroWorks ou CO�PTE-MOTS Cette permet macro nombre de mots texte. de quand une condition qu'elle contient n'est pas remplie (si compter rapide1:1ent le dans un fichier de Traite�ent de Par "mot" il faut entendre tout groupe compte se fait du avec �, aux endroits voulus, caractères t précédés curseur d'un jusqu'à espace. deux Compiler placer les caractères t et le curseur mots s'inscrira t aper à la fin, .5. Le nombre de à la place du double t. certains groupes de caractères sc répètent régulièrement, à peu de chose près. 0 : écrire le C'est l'occasion ou jamais d'utiliser, pour la copie au clavier, une autre particularité de la Macro groupe de caractères une seule fois, meure le curseur sur le premier caractère, et répéter CI (c'est+à-dire <rcac!» la fin du groupe à recopier. Maintenant la Macro jusqu'à 0 contient ce groupe, qu'on peut reproduire autant de fOÎs qu'on le Cette macro utilise les mémoires de la Macro 0, et Note : dans la macro "Compte-mots", de caractères entre deux espaces. Le la condition est remplie, elle se poursuit normalement). les mémoires supplémentaires pour stoc�er les valeurs des 1, unités, 2, 3 et 4 dizaines, désire en faisant -O. Puis, en mode recouvrement, on apportera rapidement les quelques retouches supplémentaires. centaines et milliers pendant le décompte. *A.*.A ••A*••••*••••_.* ... *•••*••••• _ •••******** Dimitri Geystor - Décembre 1987 macro plus élaborée, avec recours à des macros conditionnelles, au chaînage et à l'incrémentation de variables. START _, d'aller chercher une adresse dans une base de données d'adresses, d'ouvrir un Elle permetlra, en une seule commande Les macros suivantes s'appellent en cascade: S:<all><insert><O->O<saveO>1<save0>2<saveO>3<sa -M>! Dans le prochain numéro, nous vous présenteront une en démarre fichier traitement de texte et de faire la mise en page d'une lellre-lYpe contenant votre en-tête, l'adresse du destinalaire choisi et la date; petit raffinement: cette macro par la M:<all><sa-C><O->1<saveO>4<sa-c><O->2<saveO>4<s même occasÎon (et sans intervention supplémentaire) a-C><O->3<saveO>41 renommera le fichier traitement de texte ouvert en lui Milliers C:<all><sa-D><O->1<saveO>3<sa-D><O->2<saveO>3<s a-D><O->3<saveO>3<sa-D> <O->4<saveO>3<sa-D><O-> 5<saveO>3<sa-D><O->6<saveO>3<sa-D><O->7<saveO>3 <sa-D><O->8<saveO>3<sa-D><O->9<saveO>3<sa-D><O ->O<saveO>31 donnant le nom qui figure dans l'adresse... Les deux fichiers de macros AND.OR.ROUND et COMPTE.MOTS, prêts à l'emploi, sont inclus dans la disquette d'accompagnement de ce numéro de Pom's. Centaines D:<all><sa-U><O->1<saveO>2<sa-U><O->2<saveO>2<s û a-U><O->3<saveO>2<sa-U> <O->4<saveO>2<sa-U><O-> 5<saveO>2<sa-u><O->6<saveO>2<sa-U><O->7<saveO>2 <sa-U><D->8<saveO>2<sa-U><O->9<saveO>2<sa-U><O ->O<saveO>21 Dizaines U:<all><sa-K><O->1<saveO>1<sa-K><O->2<saveO>1<s a-K><O->3<saveO>1<sa-K> <O->4<saveO>1<sa-K><O-> 5<saveO>1<sa-K><O->6<saveO>1<sa-K><O->7<saveO>1 <sa-K><O->8<saveO>1<sa-K><O->9<saveO>1<sa-K><O ->O<saveO>ll Unités K:<all><oa-right><sa-t>! Compteur t:<all><if>t<right><if>E<del>«spc>-<spc><loadO >4<sa-O><loadO>3<sa-O>< loadO>2<sa-O><loadO>1<s a-O><spc>mcts<right><del><spc>l<stop>l retour. Test et ou arrêt et résultat HGR/Minitel sur Sur les Apple Ile, la configuration de l'Interface est perdue à chaque PlU:. Aussi, dans le programme de transformation d'Images HGR en Images semi-graphlques Minitel (Pom's 33], Il convient de modifier les lignes suivantes: 40080 PRINT CHR$(4)"PRf.2": PRINT CHR$(1)"lD"CHR$(1)"3P"CHR$(1 )"8B" 63040 PRINT END Ile CHR$(4)"PRf.2" : PRINT CHR$(1)"lD"CHR$(1)"3P"CHR$(1 ) .. 8B" Pour l'explication du mécanisme de ces macros (comme pour (ouleS les macros en cascade), voir le manuel page 16. La macro appelée renvoie au point d'appel de la macro appelante: 10 Sur la disquette d'accompagnement de la revue. ce petit problème avait été réglé. Porn's n° 34 J. L. 13azanegue, C. Piard - Pom_Linl2.1 • • 40 instructions qui sertJent bjectivement, l'importance et les ressources des librairies Pom_Link ne les destinaient pas a priori à une publication dans les pages de Porn's mais plutôt en logiciel édité à part. Pomts se devait toutefois à la fidélité de ses lecteurs ; aussi, ce serveur Vidéotex vous est proposé en deux versions qui satisferont les besoins de chacun. La version 2.1 dont nous discuterons ici regroupe une quarantaine d'instructions nouvelles. orientées télématique, ajoutées à celles de volte Basic (AppleSoft sur l'Apple Il. Basic Microsoft 2.0 et plus sur le Macintosh). Cette version comporte le nécessaire à la réalisation d'un véritable serveur Vidtotcx qui n'aura ricn à envier aux serveurs du sur les disquettes d'accompagnement Macintosh et Apple /1. 3615. Pom_Link 2.1 est publiée dans ces pages, donc aussi Les sources de la version Macintosh, beaucoup trop volumineux, n'ont pas pu être placés dans ces pages, mais Que font-elles ? Chaque routine Pom_Link a une fonction d'envoi et/ou de récepLÎon de caractères vers ou depuis le Minitel 'servi'. Ainsi, il est plus agréable d'écrire dans son programme Basic: DEPLACE 1, 16 pour positionner l e curseur en ligne l , colonne 1 6 plutOt que la suite d'instructions: ouvrir PRINT termer port _'rie CBR$C31} port en _ortie CBR$(64+1l CER$ (64+16) _'rie Réaliser un 'INPUT' sur le Minitel servi en Basic est quasi irréalisable alors que celui proposé ici est déjà beaucoup plus puissant que celui de l'AppleSoft. Chaque nouvelle fonction offre à chacun la possibilité de piloter un serveur sans pour autant maîtriser les égarements de la norme (?) Vidéotex; il faut LOutefois en dire un mot. ils sont toutefois sur la disquette Mac 34. Le Vidéotex au mode téléinformatique (style CalvaCom, mode ASCII Dans le descriptif de chaque instruction figurent souvent des La version 3.0, disponible en produit à pari, ouvre la porte 80 colonnes) mais va également plus loin dans l'exploitation du mode Vidéotex. Elle donne également à l'ocran de l'ordinateur serveur un écho des entrées/sorties (utiles pour rechercher les bugs). remarques du fait de contraintes Vidéotex, ct i l faudra pardonner aux librairies de n'avoir pas totalement supprimé la lourdeur du système. La couleur du fond qui repasse au noir lors d'un déplacement, le soulignement qui n'est validé qu'après affichage d'un espace par exemple sont à prendre cn Pourquoi des librairies ? Certes, Pom's pouvait publier comme produit unique et final le répondeur télématique donné en exemple mais le résultat aurait été figé. De nouvelles instructions ajoutées considération lors de la programmation. Conséquence de ces petites contraintes. cenaines instructions ne fonctionne pas _ ou au moins pas normalement pour certaines - en local, c'est-à-dire MinilCl serveur non connecté: cela compliquera légèrement la mise au point. au Basic pcnnettent à chacun: de mooificr simplement ce rép:mdeur et de J'adapter à ses besoins; de créer son propre serveur spécialisé. Les librairies permettront de mettre en œuvre vOLTe imagination. De plus, ne doutons pas qu'elles serviront de base à bien d'aulres programmes dans les prochains numéros. Mise en œuvre... Une synta:o:e commune à l'Apple Il e t au Macintosh à été retenue ct, pour ne pas dupliquer les e:o:emplcs, voici le mode d'utilisation sur chaque appareil: ... sur l'Apple /1 La première instruction du programme Basic serveur doit �tre la suivante: IF POKE (104) + PEEK (103) < > 103,1: POKE 104,30: 7680,0: PRINT CHR$(4) "-nom" PEEK 7681 TH EN * 256 POKE où nom eSlle nom de votre programme Basic. La ligne suivante sera: PRINT Optimiser HGRIMinitel CHR$(4)"-POM.LINK.2.1" Les nouvelles instructions sont alors disponibles avec la syntaxe suivante: Instruction dans le mode d'emploi de Pom_Link : ALERTE "interdit",l Sur l'Apple Il : , ALERTE, "interdit", En ajoutant la ligne suivante au programme de conversion HGRlMinitel du numéro 33 de Porn's, on gagne un temps précieux : 50135 IF MN% THEN 50160 1 Pour convertir Lady, il faut avec cette ligne 2'55, et 4'45 sans ... Autrement dit, les mOlS-clé des nouvelles instructions sont précédés de "&" et suivis de ",". G. Lauvergnier, Rennes ... sur le Macintosh L'instruction suivante devra être placée avant l'occurrence de la première inSlfuction de Pom_Lînk utilisée: LIBRARY "pom Link 2.1" _ Dès lors, les nouvelles instructions sont disponibles telles qu'elles sont décrites dans leur mode d'emploi: ACCEPT ALERTE "Interdit",l à condition LOuterois d'avoir placé au début de votre programme l'instruction du Basic Microsoft: DEFSNG retour.étoJ A-Z But A-Z Si vos habitudes vous conduisent à utiliser DEFINT (ce qui est, à notre humble avis, la meilleure solution) ou DEFSTR, il vous faudra placer un point exclamation '!' ou - mais moins efficace - un dièse '#' juste après le nom de l'inst.ruction. Vous obtiendrez alors: indifféremment en majuscules ou minuscules; ainsi: vous . . taille des caractères utilisés: • ." • mode = 0 : taille nonnale ; mode = 1 : double hauteur. sollicitation est une variable ou expression chaine qui sera est aussi valide que AFFICHER! "Bonjour chez indiquant la position de la zone de saisie sur l'écran du mode est une variable ou expression entière désignant la Notons enfin que le nom des instructions peut être saisi "Bonjour chez Explications colonne el ligne sont des variables ou expressions entières ligne doit être compris entre 1 et 24 inclus. "Interdit",l AfficheR! Gère une zone de saisie contrôlée. Minitel. colonne doit être compris entre 1 el 39 inclus. A LE RTE ' " I nte rdit " , ! ALERTE! Syntaxe de l'instruction A CC E PT coloMe)igne,mode.sollicitatwn,longueur, ou DEFDBL (ne fonctionne pas en local) vous . . . " û affichée avant la zone de saisie proprement dite. Le nombre de caractères de sollicitation doit êlfe compris entre 0 et 39 inclus. POM' S SUR MINITEL (1) 39 53 0440 • • DES AUJOURD 'HUI, NOUS RESERVONS CE NOUVEAU NUMERO DE TELEPHONE A VOS MINITELS. V OUS y TROUVEREZ A TITRE DE DEMONSTRATION LE IIEPONDEUR TELEMATIQUE DE CE NUMERO. Nous y 12 AVONS ADJOINT UN MODULE SUSCEPTIBLE ' D ENREGISTRER DES COMMANDES. Pom's n° 34 longueur indique le nombre maximum de caractères qu'il de saisie situés sur des positions inutilisées sont sera possible d'entrer dans la zone de saisie. Afin de effacés : matérialiser la zone, ACCEPT affiche autant de points que lorsqu'un message est affiché dans la ligne 0 , une action sur le clavier du Minitel provoque l'effacement de ladite nécessaire. longueur doit être compris entre 1 et 39 inclus. retour est une variable chaîne dans laquelle sera retournée la chaîne de caractères entrée. Si la variable chaine retour n'est ligne; ' les caractères',' et ':' sont remplacés par un point ('.') pas vide, son contenu sera utilisé comme texte par défaut' et affiché en début de zone de saisie. La longueur de la (uniquement avec l'Apple Il comme serveur). chaine de caractères représentée par retour ne peut pas être Exemples 10 REM Exemplas itat est une variable entière indiquant les conditions de 20 ACCEPT 5.8 , 1 , "Nom 30 ACCEPT CO% , LI % + l , l , A$+": 40 O N ET%+l supérieure à la longueur de la zone de saisie. sortie de l'instruction: état = état = 0 : pas de caractère saisi depuis plus de 2 minutes (voir le paragraphe "Côté utilisateur''); d ' u t i l i a a t i o n d ' ACCEPT GOSOB : " , 12 , CH $ , E T % " , 1 0 , C $ , ET' 1 00 , 2 0 0 , 3 0 0 , 4 0 0 , 5 0 0 , _ Voir aussi ACCEP1F, SAISIE et SECRET. 1: sortie par ENVOI ou 'retour·chariot' ; état = 2 : sonie par RETOUR ; état = 3: sonie par REPETITION; état:::: 4: sortie par GUIDE; état:::: 5: sonie par ANNULATION (voir le paragraphe "Côté utilisateur"); 7: sonie par SUITE; état = 6 : sortie par SOMMAIRE; élUt = élUt = Syntaxe de l'instruction Remarques la somme de colonne + longueur de sollicitation + longueur ne doit pas être supérieure à 40; ACCEPTF état nul ACCEPT provoque le passage en moere texte; le curseur est invisible lors du retour au programme Basic. Côté Attend pendant 2 minutes maximum une action sur une touche de fonction. Explications utilisateur ACCEPT place le curseur sur la première position de la zone de saisie ou, si une chaîne par défaut est utilisée, état est une variable entière contenant, au retour, le code de la touche de fonction: état:::: 0 : pas de caractère saisi depuis plus de 2 minutes sur la position suivant cette chaîne; (voir le paragraphe "Côté utilisateur'') ; élUt:::: 1: ENVOI ou 'retour-chariOl' ; si l'on tente d'entrer plus de caractère que n'en prévoie la zone de saisie, ACCEPT émet un 'bip' et affiche le état:::: 2 : RETOUR; message "Fin de zone" dans la ligne 0 ; état = 3: REPETITION; la touche CORRECTION déplace le curseur d'une état:::: 4 : GUIDE; position vers la gauche en effaçant un caractère. Si le curseur se trouve sur la première position de la zone de saisie, une action sur la touche CORRECTION provoque l'affichage du message "Rien à effacer" dans la ligne 0 ; • zone de saisie, une action sur la touche ANNULATION vide la zone de saisie et place le curseur sur la première position. Si le curseur se trouve sur la première position de la zone de saisie, ANNULATION provoque un retour au programme Basic avec état = 5 ; toutes les touches de fonction provoquent un retour au ANNULATION dans l e cas cité précédemment; programme Basic sauf CORRECTION, et si le clavier du Minitel n'est pas sollicité pendant une minute, ACCEPT émet un 'bip' et affiche le message "Déconnexion imminente" dans la ligne O. Si rien ne se passe pendant la minute suivante, il y a retour au avant retour au programme Basic, les points de la zone programme Basic avec état:::: 0 ; Pom's n° 34 état: 5 état = 6 : SOMMAIRE; état = , ANNULATION; 7: SUnE; état"" 8: CONNEXION; si le curseur ne se trouve pas sur la première position de la (ne fonctionne pas en local) ACCEPTF 8: sortie par CONNEXION. état = 9 : CORREcnON. Côté utilisateur Si le clavier du Minitel n'est pas sollicité pendant une "Déconnexion imminente" dans la ligne O. Si rien ne se minute, ACCEPT émet un 'bip' et affiche le message passe pendant la minute suivante, il y a retour au programme Basic avec état = O. Exemple 10 REM Exampla 20 ACCEPTF d ' ut i l i s a t i o n d ' ACCEPTF ET' Voir aussi ACCEPT, SAISIE e t SECRET. 13 AFFICHE Affiche un message d'alerte dans la ligne O. Syntaxe de l'instruction Explications AFFICHE chaîne [;1 (sur l'Apple /f) message est une variable ou une expression chaîne. la AFFICHE choîne (sur le Macintosh) But Affiche une chaîne de caractères sur l'écran du Minitel uti l isateur, à partir de la position courante du curseur. Explications chaîne est une variable ou une expression chalne. Les caractères portant des codes différents sur l'ordinateur-serveur el le Minitel sont recodés. Sur l'Apple 1/, AFFICHE fonctionne comme un PRINT : un retour chariot est généré s'il n'y a pas de point-virgule à la fin de l'instruction ; seule la chaîne est affichée dans le cas contraire. Sur le Macintosh, seule la chaine est affichée. longueur de la chaine de caractères doitêtre comprise enue o et 36 inclus. Les caractères portant des codes différents sur l'ordinateur-serveur et le Minitel sont recodés. bip est une variable ou expression entière qui indique si le message doit être accompagnés d'un 'bip' sonore: bip = 0 : pas de 'bip' ; bip <> 0 : émission d'un 'bip'. Remarques la ligne 0 est effacée avant affichage du message d'alene ; il est possible d'utiliser ALERTE pour effacer la ligne 0 en passant une chaine de longueur 0 comme message ; la posilion courante du curseur est rétablie après exécution de J'instruction ALERTE. De même, l'ensemble des attributs Vidéotex sont préservés et restitués. Remarque Aux éventuels 'retour-chariot' (ASCII 13) contenus par la chaîne de caractères sont ajoutés des 'line-feed' (ASCII 10). Ceci autorise l'envoi direct d'un fichier. Par exemple, sur le Macintosh: AFFICBE INPOT$ ( LOF ( l ) , l ) envoi la totalité du contenu du fichier #1 sur ,'éçran du Minitel. Exemples 10 REM Exampl • • 20 ALERTE " T o u c h . " + A $ ( T \ l + " invalida " . B\ 30 ALERTE CR $ . O 4 0 ALERTE d ' utilisation "Communication d ' ALERTE interrompu e " , l Voir aussi AFFICHE. AFFICHER. MfH. Exemples 10 REM E x e m p l e . 20 AFFICHE 30 AFFICHE "Paqe 40 AFFICHE C$ II) d ' u t i l i . a t i o n d ' AFTICHE "O'but n ; (uniquement Apple "+STR$ (NP') APPEL Syntaxe de l'instruction Voir aussi AFFICHER, ALERTE, CHARIOT, MTH. APPEL itat Bu t AFFICHER (uniquement Macintosh) Syntaxe de l'instruction AFFICHER chaine But Identique à AFFICHE mais ajoute un 'relOur-chariol' à la fm de la chaîne de caractères. Voir aussi AFFICHE, ALERTE, CHARIOT. Détecte la présence - ou J'absence - d'un appel téléphonique. Exp li c a ti on s élaI est une variable entière contenant, au relOur : • o si aucun appel est délecté ; 1 si un appel est déœclé (-1 sur le Macintosh). Remarque Si APPEL délccle quelque chose, l'instruction s'assure de la validité de l'appel en éliminant les impulsions inférieures à 25 centièmes de seconde. ALERTE Exemples 10 REM Exampl • • Syntaxe de l'instruction 20 APPEL ALERTE mess age,bip 30 IF 40 REM NOT d ' utilisation d ' AP P E L EU ET' THEN 20 APPEL But 14 Pom's nO 34 BAS rype est une variable ou expression entière qui indique le [)'pC de cadre à afficher : (ne fonctionne pas en local) Type=O Type= 1 Type=2 Syntaxe de ,'instruction BAS nombre D o But Décale l'écran Vidéotex vers le bas. Explication Mmbre est une variable ou expression entière qui indique l'amplitude du décalage en lignes. nombu doit être compris entre 0 el 24 inclus. Remarque BAS vide le tampon d'entrée des caractères (voir PURGE pour le Macintosh). Exemples 10 REM Exempl., 20 BAS d ' �t i l i • • tion de BAS 10 JO BAS N ' + l O fo O BAS N $ ( U ) Voir aussi HAUT. BIP Syntaxe de J'instruction lignage est une variable ou expression entière qui indique si le cadre doit être tracé avec des caractères semi-graphiques joints ou disjoints : • lignage = 0 : caractères joints ; lignage <> 0 : caractères disjoints. Si Type '" 2, lignage est ignoré. • couleur C est une variable ou expression entière représentant la couleur des caractères ; couleur F est une variable ou expression entière représentant la couleur de fond : 0% de gris o : noir 50% de gris 1 : rouge 70% de gris 2 : ven 90% de gris 3 : jaune 4 : bleu 40% de gris 60% de gris 5 : magenta 80% de gris 6 : cyan 7 : blanc 100% de gris BIP Remarques But • Provoque l'émission d'un 'bip' sonore. Exemple 10 REM Exempla 20 BIP d ' ut i l i •• tlon le rectangle minimum est de 3 caractères par 3 ; après affichage du cadre, le curseur est placé dans l'angle supérieur gauche du cadre ; lors du retour au programme Basic, le Minitel utilisateur est en mode texte, curseur invisible. d. B I P Yoir aussi ALERTE. CADRE Syntaxe de ,'instruction Exemples 10 REM Ex.�pl.a 20 CADRE X l % , Yl % , X 2 ' . Y2 ' . T ' , L' , C % , F% d ' u t i l i a . t i o n d. 30 CADRE 1 0 , A% + 9 , B' , 2 4 , l , l , C% + 2 , F % ( A ' 1 Voir aussi VIDRECT. CADRE xl,yl ,x2,y2,type,lignage,couleur C,couleur F CHARIOT But Syntaxe de l'instruction Trace un cadre à l'écran du Minitel utilisaleur. CHARlOT [nombre] Explication xl, yI, x2 el y2 : coordonnées du rectangle dans lequel doit s'inscrire le cadre. xl el x2 doivent être compris entre 1 et 40 inclus. yl et y2 doivent être compris entre 1 et 24 inclus. Pom's n° 34 CADRE But ProvCXJue nombre 'retour-chariol'. Explications nombre est une variable ou expression entière facultaûve 15 qui indique le nombre de retours à l a ligne à effectuer. S i nombr� est omis. CHARIOT provoque u n seul retour à la ligne. nombre doit être compris entre 0 et 24 inclus. Exemples 1 0 REM Exe�ple. 20 REM d e 30 CHARIOT d ' u t i l i l at i o n CHARIOT 40 CHARIOT 50 CHARIOT N ' Exemple 10 REM Exemple d ' utili • • tion 20 CNXR E T ' de CNXR Voir aussi APPEL, CNXN, DECNX. 3 6 0 CHARIOT N'+2 CURINVIS Voir aussi AFFICHE. AFFICHER. Syntaxe de l'instruction CURINVIS Bul CNXN Rend le curseur n i visible. Syntaxe d e l'instruction Exemple CNXN 10 REM Exemple d ' u t i l i l at i o n 2 0 R E M d e CORINVIS Bul 30 Connexion du Minitel serveur. CORINVIS Voir aussi CURVIS. Exemple 10 REM Exemple d ' u t i l i l . t i o n 20 CNXN de CNXN Voir aussi CNXR. DECNX. CURVIS Syntaxe de t'instruction CURVIS CNXR (ne fonctionne pas en local) Syntaxe de l'instruction Bul Rend le curseur visible. CNXR état Exemple 10 REM Exemple d ' u t i l i l a t i o n de Bul 20 CORVIS Retournement et connexion du Minitel serveur. CORVIS Voir aussi CURINVIS. Explication Cette instruction est normalement utilisée lorsqu'on a détecté un appel téléphonique (à l'aide de l'inSlruclion APPEL). état est une variable entière dans laquelle on pourra trouver au retour dans le programme Basic : état '" 0 si le Minitel de l'utilisateur n'a pas été connecté au bout d'une minute (dans ce cas, le Minitel serveur est déconnecté) ; état :: 1 (-1 sur le Macintosh) si le Minitel de l'utilisateur a été connecté (dans ce cas. un message de 'copyright' est affiché pendant 4 secondes sur l'écran du Minitel utilisateur). Remarque CNXR vide le tampon d'entrée des caractères (voir PURGE DECNX Syntaxe de l'instruction DECNX Bul Déconnexion du Minitel serveur et du Minitel utilisateur. Exemple 10 REM Exemple d ' u t i l i l a t i o n 20 OECNX de OECNX Voir aussi CNXN. CNXR. pour le Macintosh). 16 Pom's nO 34 Exemple DEPLACE Syntaxe de l'instruction 10 REM Exempl. 20 rIXE d ' u t i l i s at i o n d. rIXE Voir aussi FLASH, PARAMG, PARAMT. DEPLACE colonne,ligne B"' Positionnement du curseur. FLASH Explications colonne et ligne sont des variables ou expressions entières indiquant la position du curseur. colonne doit être compris entre 1 et 40 inclus. ligne doit être compris entre 1 ct 24 inclus. REM FLASH B", Passe en affichage clignotant. Exemples 10 Syntaxe de J'instruction Exemp188 d ' ut!liaation Exemple 20 REM ae 30 DEPLACE DEPLACE 2,10 10 REM Exemple d ' u t i l i s a t i o n 40 DEPLACE 2 , LI' 20 FLASa 50 DEPLACE COl+2 , L' { N ' + 1 ) Voir aussi FIXE, de rLASR PARAMG, PARAMf. Voir aussi LOCALISE. (ne fonctionne p�s en local) ENLIGNE Syntaxe de l'instruction Syntaxe de l'instruction GR ENLIGNE étal B"' Permet de s'assurer de la présence du Minitel utilisateur. B", Passe en mode semi-graphique. Exemple Explication état est une variable entière dans laquelle on pourra trouver au retour dans le programme Basic: étal'" 0 si le Minitel utilisateur ne répond pas ; éLat = 1 (-1 sur le Macintosh) si le Minitel utilisateur répond nonnalemenL Remarque ENLIGNE vide le tampon d'entrée des caractères (voir PURGE GR pour le Macintosh). 10 REM Exempl. d ' u t i l i s a t i o n d. GR 20 GR Voir aussi PARAMG, PARAMT, TXT. HAUT (ne fonctionne pas en local) Syntaxe de l'instruction HAUT nombre Exemple 10 REM Exemple 20 ENLIGNE d ' u t i l i s at i o n ET' FIXE Syntaxe de l'instruction de ENLIGNE B" , Décale l'écran Vidéotex vers le haut Explication nombre est une variable ou expression entière qui indique l'amplitude du décalage en lignes. nombre doit être compris entre 0 et 24 inclus. FIXE Remarque B", Passe en affichage non clignotant. Porn's nO 34 HAUT vide le tampon d'entrée des caractères (voir PURGE pour le Macintosh). 17 J[II I Exemples 10 REM Exemp�as 20 BAUT 10 30 BAOT N t. + 1 0 \1 0 d ' u t i l i s a t i o n de BAOT slot est une variable ou expression entière RAOT N t. (At. J Voir aussi BAS. IDENT incliq'" quel pan série devra être utilisé pour les entrées/sorties. Exemples (ne fonctionne pas en local) 10 REM Exemp�.s d ' u t i � i s a t i o n de 20 INIT 2 30 INIT S t. INIT Voir aussi SERVOFF. Syntaxe de l'instruction IDENT va/eur l,valeur l,valeur 3,é/al But Retourne les lfois octets d'identification du Minitel utilisateur. Explication valeur 1 est une variable entière dans laquelle IDENT retourne le code constructeur du Minitel utilisateur ; valeur 2 est une variable entière dans laquelle IDENT retourne le type du Minitel ulilisateur ; INVERSE Syntaxe de l'instruction INVERSE But Passe en affichage inversé. Exemple valeur 3 est une variable entière dans laquelle IDENT 10 REM Exemp�e d ' u t i � i B a t i o n retourne le numéro de version du Minitel utilisateur ; 20 INVERSE de INVERSE état est une variable entière dans laquelle on pourra trouver au retour dans le programme Basic : érat = 0 si le Minitel utilisateur n'a pas répondu ; état 1 (-1 sur le Macintosh) si le Minitel utilisateur a répondu nonnalement Voir aussi NORMAL, PARAMG, PARAMT. • • = LIGNE Remarques si état = 0, le contenu de valeur 1, valeur 2 et valeur 3 est indéfini. LIGNE • sur le Macintosh. IDENT vide le tampon d'entrée des caractères (voir PURGE). But • certains Minitel sont munis d'un logiciel qui Initialise le mode lignage ou souligné. • Syntaxe d e l'instruction ne permet pas l'émission des identificateurs ; dans ce cas étal sera égal à O. Explications • si le Minitel utilisateur est en mode semi-graphique, LIGNE passe l'affichage en mode ligné (caractères semi-graphiques disjoints) ; • si le Minitel utilisateur est en mode texte, LIGNE passe l'affichage en mode souligné ; Exemple d ' u t i l i s a t i o n de 10 REM Exemple 20 IDENT V1 % , V2 % , V3 % , E T % INIT IDENT (uniquement sur l'Apple /f) Syntaxe de l'instruction INIT slot But Initialise les routines sur le sial indiqué el vérifie l'existence du port série. Remarque Dans le cas du mode texte, LIGNE envoie un atlfibut latent qui ne sera validé par le Minitel utilisateur qu'à la réception d'un espace (ASCII 32). Exemple 1 0 REM Exemple 20 d ' u t i l i s a t i o n da LIGNE LIGNE Voir aussi PARAMG, PARAMT, SANSLIGNE. Explication 18 Pom's n° 34 LOCALISE (ne fonctionne pas en local) Syntaxe de l'instruction LOCALISE colonne.ligne,élat But Retourne la position courante du curseur. MTH (uniquement sur l'Apple If) Syntaxe de l'instruction MTH mode But Modifie le recodage des caractères issus de l'instruction AFFICHE. Explication colonne Cl ligne sont des variables entières dans lesquelles LOCALISE retourne la position courante du curseur. é/al est une variable entière dans laquelle on pourra trouver au retour dans le programme Basic : état = 0 si le Minitel utilisateur ne répond pas ; état = 1 (-1 sur le Macintosh) si le Minitel utilisateur rép:md nonnalcmcnt. Remarques si étal :: O. le contenu de colonne et ligne est indéfini. LOCALISE vide le tampon d'entrée des caractères (voir PURGE pour le Macintosh). Exemple 10 REM Ex.�pl. 20 REM d . 30 LOCALISE d ' utilisation LOCALISE CO\ , L I l , E T ' Voir aussi DEPLACE. Explication mode est une variable ou expression entière qui indique le type de recodage de cenains caractères : mode :::: 0 : mode littéraire (par défaut) ; • mode <> 0 : mode mathématique. Apple Il Minitel littéraire mathématique 1 é é è è ç ç \ à § à 0 0 J [ ù Ù E 'li E a • à � @ 1 # ra autres voyelles accentuées : idem a aultCS voyelles accentuées : idem rt leures non accentuablcs : idem Remarque MODE Tous les Minitels n'ayant pas les mêmes ROM d'affichage, les résuhats peuvent varier légèrement d'un modèle à Syntaxe de l'instruction l'autre. MODE mode Exemples But 10 REM Exemple. Change le mode d'affichage. 20 MTH 30 MTB M ' l d ' utlllaation de MTH Explications mode est une variable ou expression entière indiquant le mode d'affichage à utiliser : • mode = 1 : double hauteur ; mode = 0 : caractères nonnaux ; NORMAL mode = 2 : double largeur; Syntaxe de l'instruction mode = 3 : double taille. NORMAL • Remarque But MODE provoque le passage en mode texte. Passe en affichage non inversé. Exemples Exemple 10 REM Exemplea 20 MODE M' 30 MODE M'+A\ I B ' l 40 MODE 2 d ' u t l l i a a t i o n de MODE 10 REM Exemple 20 NORMAL d ' u t l l i a a t i o n de NORMAL Voir aussi INVERSE, PARAMG, PARAMT. Voir aussi PARAMT. Pom's n° 34 19 mode = 0 : caractères normaux ; mode = 1 : double hauteur ; PARAMG mode = 2 : double largeur ; mode = 3 : double taille. Syntaxe de l 'instruction couleur C est une variable ou expression entière PARAMG cou/tur C,couleur F,lignage,flash rcprésentamla couleur des caractères ; nut représentant la couleur de fond ; o : noir 0% de gris couleur F est une variable ou expression entière Passe en mode semi-graphique et établü les paramètres d'affichage. Explications couleur C est une variable ou expression entière représentant la couleur des caraclères ; couleur F est une variable ou expression enlière o : noir représentant la couleur de fond ; 2 : vert 3 : jaune 4 : bleu 5 : magenta 6 : cyan : blanc : bleu : magenta : cyan : blanc 50% de gris 70% de gris 90% de gris 40% de gris 60% de gris 80% de gris 100% de gris flash est une variable ou expression entière déterminant la 0% de gris 50% de gris 70% de gris 90% de gris 40% de gris 60% de gris 80% de gris 1 : rouge 1 : vert : jaune 1 : rouge 2 3 4 5 6 7 fixité ou le clignotement (inversion des points du caractère une fois par seconde) : • flash • flash <> 0 : caractères clignotants. = 0 : caractères fixes ; inversi est une variable ou expression entière indiquant si les couleurs de carac:Lere et de fond doivent être inversés ou 100% de gris non : ligno.ge est une variable ou expression enLÎère qui indique si les caractères doivent être affichés avec des caractères • inversé = 0 : couleurs normales ; • inversé <> 0 : couleurs inversées. semî-graphiques joints ou disjoints : souligni est une variable ou expression entière qui indique • si les caractères doivent être soulignés : • lignage = 0 : caractères joints ; lignage <> 0 : caractères disjoints. souligné = 0 : caractères non soulignés ; flash est une variable ou expression entière déterminant la • 1 souligné <> 0 : caractères soulignés. fixité ou le clignotement (inversion des points du caractère Remarque : caractères fixes ; une fois par seconde) : flash "" 0 • flash Les paramètres couleur F et souligné constituent des attributs latents qui ne seront validés par le Minitel <> 0 : caractères clignotants. utilisateur qu'à la réception d'un espace (ASCII 32). Exemples REM Exemple. d ' u t i l l . a t l o n PARANe C C ' , C F ' , L I ' , F L ' 10 REM Exemple. 30 PARAMe 20 PARAMT M ' , CC ' , CF ' , F L % , I N % , SO' 40 PARAMe CCH 1 , A' { CU ) . IN T { L' / 2 ) , 0 30 PARAMT 2,0,7,1.1,1 40 PARANT N ' + { V ' <3 ) , 0 , 7 , 1 , l , SO % < > 1 0 Voir aussi de PARAMG Exemples 10 20 7,0,1,1 d ' u t i l i a a t i o n de PARANT FIXE, FLASH, GR, LIGNE, PARAMT, SANSLIGNE, TXT. Voir aussi FIXE, FLASH, INVERSE, LIGNE, GR, NORMAL, PARAMG, SANSLIGNE, TXT. PARAMT Syntaxe de l'instruction PARA MT mode,eoulew C,eou/eUT F,jfash inversi,souligni nut Passe en mode texte et établit les paramètres d'affichage. Explications mode est une variable ou expression entière désignant la taille des caractères : 20 PURGE (uniquement sur le Macintosh) Syntaxe de l'instruction PURGE nut Vide le wnpon d'entrée des caractères. Explications Les instructions de cette librairie qui reçoivent des caractères utilisent un tampon d'entrée capable de stocker Pom's n° 34 1024 caractères. Celui-ci permet à J'utilisateur d'anticiper les commandes ou le remplissage des zones de saisie. Cependant, suivant le type de traitement effectué par le serveur, il peut êlle utile de vider le tampon d'enllée pour être sûr de n'exploiter que des caractères 'frais' (par exemple avec SAISIE). But Passage en mooe page ou en mode rouleau. Explication condition est une variable ou expression entière qui n i dique le type d'affichage à utiliser : Remarque Les insltUcLÎons suivantes vident le tampon d'entrée : • condition ::: 0 : mode page ; condition <> 0 : mode rouleau. CNXR Remarque BAS ROULEAU vide le tampon d'entrée des caractères (voir ENLIGNE HAUT PURGE pour le Macintosh). IDENT Exemples LOCALISE ROULEAU Exemple 10 REM Exemple d ' ut l l l . at l o n 20 PURGE d_ PURGE 10 REM Exempl • • 20 REM d. 30 ROOLEAO l 40 ROOLEAU R tl 50 ROOLEAU R \ - O d ' u t l 1 l . at i o n ROOLEAO SAISIE Syntaxe de l'instruction REINIT SAlSIE caractère Syntaxe de J'instruction REINIT But But clavier du Minitel uLÎlisateur, ou une chaîne vide si aucun Retourne une chaîne contenant l e caractère frappé sur le caractère n'a été sollicité. Réinitialisation du Minitel ulilisaleur. caractère est une variable chaîne qui reçoit le caractère éventuel. Explicat ions Explications Le Minitel utilisateur passe en : mcxle Vidéotex carxtcrcs blanc Si le code ASCII du caractère retourné est inférieur à 32 (espace), l'utilisateur a sollicité une touche de fonction : fond noir taille normale ASC(caractère) '" 1 : ENVOI ; ASC(caractère) '" 3 : REPETITION ; ASC(caractère) '" 2 : non souligné non inversé non flash ASC(caractère) ::: 4 : GUlDE ; ASC(caractère) '" 6 : SOMMAIRE ; ASC(caractère) '" 5 : Remarque REINIT émet un espace (ASCII 32) afin de valider le mode non souligné et la couleur de fond. RETOUR ; ASC(camctère) • ASC(caractère) • 7: 8: ASC(caractère) • 9 : ANNULATION SUITE ; CONNEXION ; CORRECTION ; ASC(caractère) '" 13 : RETOUR-CHARlOT. Exemple 10 REM Exemple d ' u t i l l . a t l o n d e R E I N I T 20 REINIT Voir aussi sur le Macintosh, lorsque le tampon d'entrée contient SANSLIGNE, TXT. FIXE, ROULEAU Remarques FLASH, LIGNE, PARAMT, (ne fonctionne pas en local) plusieurs caractères, le caractère retourné par SAISIE est le premier caractère enllé non lu (voir PURGE). l'ordinateur-serveur sont recodés. les caractères dont les codes diffèrent sur le Minitel et Exemple 10 REM Exempl. 20 SAISIE d ' u t i l i . a t i o n de SAISIE Cl Syntaxe de l'instruction ROULEAU condition Porn's n° 34 Voir aussi ACCEPT, ACCEPTF, SECRET. 21 Exemple SANSLIGNE 10 REM Exemple d ' u t i l i •• t i o n 20 SERVOFF Syntaxe de l'instruction Voir aussi lNlT. de SERVOFF de TXT SANSLIGNE nut Initialise le mode non ligné ou non souligné. TXT Explications Syntaxe de l'instruction si le Minitel utilisateur est en mode semi-graphique, TXT SANSLIGNE passe l'affichage en mode non ligné (caractères scmi-graphiquesjoints) ; • si le Minitel utilisateur est n ut en mode texte, Passe en mode texte. SANSLIGNE passe l'affichage en mode non souligné ; Exemple Remarque 10 REM Dans le cas du mode texte. SANSLIGNE envoie un attribut 20 Exemple d ' uti1i ••tion TX T latent qui ne sera validé par le Minitel utilisateur qu'à la réception d'un espace (ASCII 32). Voir aussi GR. PARAMG. PARAMT. Exemple 10 REM Exemple 20 R E M de 30 SANS LIGNE d ' utililation SANSLIGNE VIDECRAN Syntaxe de l'instruction Voir aussi PARAMG. PARAMT, LIGNE. VIOECRAN [couleur] nut SECRET (ne fonctionne pas en local) Syntaxe de l'instruction SEC R ET colonne,lignemode,sollicitation.longueur, retour,état efface le conlenu de l'écran en utilisant la couleur désignée. Explications couleur est une variable ou expression entière optionnelle qui désigne la couleur à utiliser pour effacer le contenu de l'écran : o But : noir 0% de gris 50% de gris 70% de gris 90% de gris 40% de gris 60% de gris 80% de gris 100% de gris 1 : rouge 2 : vert 3 : jaune 4 : bleu 5 : magenta Gère une zone de saisie contrôlée. Explications par le fait qu'au lieu de retourner les caractères frappés par SECRET est en tous points identique à ACCEPT, mis à 7 : blanc 6 : cyan l'utilisateur sur l'écran de son Minitel, on retourne . uniquement des caractères ' .. (astérisque). Remarque Voir aussi ACCEPT. ACCEP'lF. SAISIE. Si couleur esl omis, le noir est utilisé. Exemples SERVOFF (uniquement sur Apple If) 10 REM Exemp188 20 REM de d ' utililation VIDECRAN 30 VIOECRAN Syntaxe de l'instruction 40 VIDECRAN SERVQFF 50 VIDE CRAN C ' 60 VIOECRAN C' ! I ' ) . l n ut Libère l'imerpréleur ampcrsand en restaurant l'ancien 2 Voir aussi VIDLIGNE, VIDRECf. vecteur. 22 Pom's nO 34 Remarque x2 doit être supérieur ou égal à xl. y2 doit être supérieur VIDLIGNE ou égal àyl. Syntaxe de ,'instruction VIDLIGNE figne,cou/eur Exemples 1 0 REM Ex.�p1 •• 20 But d ' u t i l i •• t i o n R E M de V I D R E C T 3 0 V I D R E C T X1 ' , Y1 ' , X2 ' , Y2 ' , CO ' efface une ligne cn uûlisant la couleur désignée. Explications ligne est une variable ou expression entière indiquant la ligne li. effacer. liglle doit êlre compris entre 1 et 24 inclus. couleur est une variable ou expression entière qui désigne la couleur li. utiliser pour effacer la ligne : o : noir 1 : rouge 2 : vert 0% de gris 50% de gris 70% de gris 90% de gris 40% de gris 60% de gris 80% de gris 100% de gris 3 : jaune 4 : bleu 5 : magenta 6 : cyan 7 : blanc 40 VIDRECT 10, 10, 20, 15, 2 50 VIDRECT X' ( X 1 ' I , 3 , X' ( X2 ' 1 , 2 0 , C Il - 1 Voir aussi VlDECRAN. VIDLIGNE. Porn Link 2.1 : les instructions ACCEPT colonne, ligne, mode, sollicitation, long�ur, retour, bal ACCEPTF ilat AFFICHE charne [:] (sur l'Apple /f) AFFICHE charne (sur le Macintosh) AFFICHER charne (uniqtICment Macintosh) ALERTE musage, bip APPEL Ital BAS nombre Exemples d. d ' utl11 ••t l o n B'P CADRE xl, yi, x2, )'2, type, lignage, couleur C, couleur F 10 REH Exempl •• 20 REH 30 " VIDLIGNE L U , co, CNXN VIOL IGNE '.3 CNXR bal 50 VIDLIGNE . , CO\ ( 2 ) CURINVIS VIOLIGNE L ' + l , ASC ( N$ ) - 4 8 CURVIS " VrOLIGNE Voir aussi ALERTE, VIDECRAN, VIDRECf. CHARIOT [llombre] DECNX DEPLACE colOllne, ligne ENLIGNE lIaI FIXE FLASH GR VIDRECT valeur l, HAUT nombre Syntaxe de ('instruction VIDRECT xl ,yl.x2,y2.couleur iDENT valeur 2, valeur J, lIas. INIT slot INVERSE LIGNE But efface un rectangle en utilisant la couleur désignée. LOCALISE colonlle, ligne, lIaI �10DE mode MTH mode (uniquement Apple /f) Explication xl, yI, x2 ct y2 : coordonnées du rectangle à effacer. xl et x2 doivent être compris entre 1 ct 40 inclus. yl et y2 doivent être compris entre 1 CI 24 inclus. couleur est une variable ou expression entière qui désigne la couleur à utiliser pourerracer le reclaIlgle : o : noir 1 : rouge 2 : verl 3 : jaune 4 : bleu 5 : magenta 6 : cyan 7 : blanc Pom's n° 34 0% de gris 50% de gris 70% de gris 90% de gris 40% de gris 60% de gris 80% de gris 100% de gris ;o.;ORMAL PARAMG couleur C, couleur F, Iigllage, flash PARAMT molÛ., cowleur C, couleur F, flash, Înversl, soulignJ PURGE (uniquement Macintosh) REI/liIT ROULEAU cOllditioll SAISIE caraclère SA/liSLIGNE SECRET colOlllle, liglle, mode, sollicitalioll, IOllg�ur, relour, ilal SERVOFF (uniquement Apple /f) TXT VIDECRAN (cowleur] ViDLiGNE liglle, coweur VIDRECT xl, yi. x2, )'2, couleur 23 · tiati01t 11'1,1; Le passage âts paranretres 1 cnre une routine autonome en assembleur el ( !-V l'appeler depuis le Basic par un CALL ne présente que la difficulté de manipuler , l'assembleur. Ainsi, pour faire un 'bip', il "" _ ' suffit de lire l'octet Se030 scIon un cycle ct une fréquence données. Depuis le Basic, on l'appellera par un CALL adresse de début. CAU 768 par exemple. Si l'on veut depuIs te Basic donner à la routine la longueur du bip ct sa hauteur, le plus simple sera de meUre ces paramètres à des adresses convenues et depuis la routine, d'aller les rechercher aux mêmes adresses : POKE 6 , 3 0 : POKE 7, 150 : CALL 768 Dans la routine, on récupère les paramètres par : lda sta lda jsr Jean-Jacques Co{w/iir $6 ._ $7 ._ & PR1NT cha1ne, poids_fort "Hello" A$ (13} STR$ + "He l l o " (1*2) + LEFT$ (A$, 3) Siot sera une expression numérique représentant le numéro de port du périphérique destinataire, sous la fOffile : 1 SLOT S (5) P o i d s fort sera également une expression numérique qui vaudra 255 ou 127 selon que les codes des caractères iront de 128 à 255 ou de 0 à 127 (pour les périphériques qui n'utilisent que 7 bits - Minitel par exemple - ce paramètre sera sans effet visible). Voici des expressions valides : L'objet de cet article est de montrer (de rappeler ?) comment passer des paramètres du Basic à la routine assembleur ; pour appeler nOlre bip par CALL 768, LG, HT ou & B/P LG +3, 3 · (HT + K) par exemple. Un prochain article présentera le passage aller ct retour basé sur la réalisation d'un INPUT contrôlé. & PRINT A$ (5) , SLOT,PF & PR1NT "Noe" & PRINT STR$ + (A CER$ � (8) .. + ··1 .., l, 127 8) , 2 , 255 Pour les lignes qui suivent, nous prendrons l'exemple de la ligne Basic : 100 & r PRINT "Essai " l, 127 , : IF A - ... la flèche indique le caractère désigné par le pointeur de programme (TXTP1R en $B8, $89). L'ampersand Première étape, l'installation du vecteur ampersand ( & ' ou esperluette). Lorsque l'interpréteur Basic renconLrc un &, il exécute un saut à l'adresse $3F5. Il nous suffit donc d'installer, à cette adresse, un vecteur (un saut) qui vise le début de notre interpréteur. Ainsi, nolre routine prendra en charge l'analyse du programme Basic après lecture de l'ampcrsand. ' Un nouveau PRINT debut code de jump Id. f.$4C st. $3F5 Id. E<debut st. $3F6 ld. !>debut adresse st. $3F7 fm d'initialisation . rts La syntaxe de notre insLruction sera : 1;] A$ Passer les par amètres Pour démonstration de celle premère partie, nous montrerons un nouveau PRINT, capable d'envoyer une chaîne de caractères à un périphérique sans utiliser les fastidieux PR/NT D$"PR[ "s/ot. Il pcffilettra également d'indiquer si les caractères devront être envoyés au périphérique avec le bit de poids fort à 1 ou à O. Cette caractéristique est capitale pour l'émission de codes graphiques vers une imprimante puisque les huit bits doivent être significatifs (AppleSoft met systématiquement le bit de poids fort à 1). Cela servira également aux utilisateurs de LaserJet+ de Hewlett·Packard pour laquelle le bit 7 positionné à 1 pose un problème. Ce PRINT ne fonctionnera que sous ProDOS en raison de la méthode de sortie de caractères adoptée mais le principe du passage des paramètres est valable également sous DOS 3.3. 24 slot, Chaîne sera une variable ou expression chaîne du type : .. adres5C Pom's n° 34 Lors du BRUN (démarrage du programme en langage-machine) de notre routine, seule l'installation du vecteur sera pratiquée ; on ne sautera à debut que lors de la rencontre d'un &. Notons qu'il s'agit là d'une méthode brutale : l'ancien vecteur est écrasé sans sauvegarde. La bonne méthode, pour que plusieurs routines ampcrsand puissent cohabiter consiste à nOler le vecteur existant ct à y faire un saut si la commande ne nous conccrnait pas. jsr 1 0 0 (, PRINT "Essai", 1, 127 : IF A : ... r debut ok cmp CHKSTR donne type mis match si ce n'est pas une chaîne Ceci fait, nous pouvons sauvegarder le pointeur sur le descripteur de la chaîne à afficher et nous intéresser aux: paramètres suivants : Après rencontre d'un &, le pointeur de programme est disposé ainsi : avcc dans A le caractère qui suit 1'&, en l'occurencc, il doit s'agir du 'token' (code du mot-clé) dc PRINT c'cst-à-dire $BA (pour le trouvcr, il suffit de taper NEW : 1 0 PRINT et de passer en moniteur pour lire les octets à panir de $801). $DD6C 1da $AO sta $85 Ida $A1 sta $86 FACMO, poids faible de l'adresse FORPNT qui reçoit habituel lement le pointcur sur la dernière variable utilisée poids fort Notre TXTPTR est maintenant positionné ainsi : 1 0 0 0; PRINT "Essai ", 1, 127 r : IF A - ... f.$BA beq ok jmp $DEC9 jsr $B1 SNERR routine qui stoppe le programme Basic avec le message syntax crror) CHRGET saisi le caractère suivant et avance le pointeur de programme d'un octet Pour évaluer le numéro de slOl, nous utiliserons GETBYTC qui saute un caractère (en l'occurencc la virgule) et qui évalue l'cxprcssion suivant ce caractère. Le résultat de celte évaluation doit tenir sur un octet (de 0 à 255) sinon nous aurons un Illegal Quantity Error. Le résultat est dans le registre X : Arrivés ici, nous nous sommes assurés qu'il s'agit jsr $E6F5 stx $6 Getbytc on stocke en $61e n° de pon bicn de PRlNT et le TXTPTR se présente ainsi : 1 0 0 (, PRINT "Essai ", 1 , 127 r : IF A - ._ Idem pour le sens du bit de poids fort. : Nous pourrions maintenant par une suite de JSR CI-IRGET saisir les caractères à afficher mais il est préférable de faire confiance à l'AppleSoft : Ida LO sta $52 jsr $DD7B Réinitialise le calcul des chaînes temporaires FRMEVL, donne un Syntax Error si besoin FRMEVL est la routine d'évaluation des fonnules, ce qui permettra l'utilisation d'expression complexe du style STR$ (3 • AB) + "ERR" + CHRS(lO). Elle évalue l'expression qui débutc sous le TXTPTR et qui sc Icnnine par une virgule (ou une fm d'instruction ou de programme). Le résultat se trouve cn FAC, zone de 6 octets à partir de $9D réservée aussi pour tous les calculs sur les nombres en virgule nonante. Si l'expression évaluée était une chaîne, et c'est le cas, seuls deux octets nous servent : $AD, $ A 1 . Ils forment un pointeur sur le descripteur d'une chaîne temporaire que FRMEVL a créée à partir des constituants de l'expression. Assurons-nous d'abord que l'expression évaluée par FRMEVL était bicn une chaîne : Pom's n° 34 $E6F5 $7 Getbytc on stocke en $7 le sens du poids fort Nous avons tous les paramètres, vérifions si un ";" suit, le TXTPTR se présentant ainsi : 1 0 0 (, PRINT "Essai ", 1 , 127 : IF A - ... r Il faut lire le prochain caractère du Basic mais sans incrémenter le TXTPTR au cas où ce ne serait pas un point-virgule. C'est l'objet de CHRGOT, semblable à CI-IRGET mais sans incrément ; au sortir de CHRGOT, le caractère lu est dans A et le bit Z du registre d'état est positionné si on était en fin d'instruction. Le descripteur, pointée par SAD, $A 1 se présente sur l'Apple 1/ ainsi ; OCLet 1 : longueur de la chaîne octet 2 : poids faible de l'adresse du premier caractère octet 3 : poids fort de l'adresse du premier caractère jsr stx !O st, $B chariot jsr $B7 beq cr cmp [;$38 Chrgo, si = O. il n'y avait pas de ";" est-cc ";" ? jsr $Bl saute le ";" jmp pascr bne " initialise l e drapeau de retour- id, " jmp $DEC9 cr dec $B pascr ... Syntax Error note qu'il faudra un rctourchariot 25 • Dans notre exemple, le TXTPTR n'a pas bougé puisqu'il n'y avait pas de point-virgule. 1 0 0 & PIUNT "Essai ", L 1 2 7 err $' cmp lB bec port ok Jmp rgerr port ok Ida $7 cmp L $ 7F beq pEok cmp !$FF bne err t : IF A '"' pas de port au-dessus de 7 SBE30 ancvec 'd. $BE30+1 st. ancvec+l Id. <0 st. $BE30 'd. $' or. t.$CO sta $BE31 §l Idy st. $18, y Id. ($8S) , y sauve l'ancien vecteur lda ancvec+1 sta $BE3I restitue l'ancien vecteur et revient au Basic rt s Ida [;2 jmp $BE09 et le stockage de l'ancien vecteur : ancvec ds û 2 Source PRINT.S Assembleur ProCODE ,., , installe le nouveau En $6. c'est le n° de port le résultat, c'est Cn copie le descripteur en page 0 , 0300: .U 4C • 0305: A9 10 , 0307: ", , 0302: 80 F"S 03 80 F"6 03 030A: A9 03 '" ", • iny dec $18 bmi fin Id. ($19) , y ora t.$80 .nd S7 Jsr $FDED Jmp §2 charge u n caractère de la chaîne positionne poids fort Cout, sortie de caractères Si demandé, on affiche un retour-chariot à la suite de la chaîne cn veillant au bit de poids fort : fin 26 bit $8 bpl sortie lda [;$8D afficher un retour-chariot ? non si posiLif oui. on tient compte du poids CS4C 53F"5 !<debut 53.6 , '" !>debut «, «, 80 F7 03 • 030F: " , 0310: " .. " del::>ut cop " o., "" 0312: FO 03 0' 'op 5DEC9 53.7 " 0314: t C C9 D& " 0317: 20 81 " 00 ,« 0' '" " 03lA: A9 00 " 8S 52 " 0321: y=o longueur chaîne 5300 ." 78 DO " 6C DO '" «, lB ,« " " " '" SDD7a ,« SDD6C " §2 prlnt 030C: 031E: " §l 0'0 , 031C: dey bpI $BE30 sinon Range Errar Maintenant, affichons la chaîne en recopiant d'abord son descripteur en page 0 : <2 ancvec sta Ajoutons la prise en charge d'un éventuel Range Ereor : Il faut maintenant rediriger la sortie de caractères vers le périphérique choisi. Le mieux, sous ProDOS, est de remplacer le PRis/Dl par une modification du vecteur de sortie de caractères dans VECTOUT en $BE30-$BE31 : sauvegarde l'ancien vecteur, remplacement par $CnOO. n étant le numéro de port. st. $FDED sortie Ida rgerr Id. jsr fort demandé Cout Restituons enfin le vecteur de sortie de caractère (c'était l'écran 40 ou 80 colonnes ou peut-être un autre périphérique) : donne Range Error PF vaut 1 27 ou 255 pEok pfok $7 sortie " " Nous avons touS les éléments ; nous devons les contrôler : Id. a.nd 0324: AS AD " '" M' 0326: 85 85 " ." '" OJ28: AS Al " ", '" OJ2A: " 032C; 8S 86 20 F"5 E6 OJ2.; 86 0 6 «. " J" " «. " " ". 5E6.S " 5E5F5 0331 : 20 FS E6 " 03J4: 86 07 " 0336: ..u " 00 " ", 0338: 85 08 " '" OJ3A: 20 87 00 " 0330: .0 00 J« " '"' c, 033F: c9 38 " c,"" DO 06 " 0", CS3B 0341: 0343; 20 81 00 " ,,, '" 0346: (C 4E OJ " 'op PASCR " 'op SDEC9 co Ooc " ,,, m " " " '" " " 0349: (C C9 DE " " 034C: C6 08 .. " Pom's n° 34 " D34[;; A5 D6 " D 35D ; Cj D8 PASCR " D352: 'ID 03 " ,,. cmp '00 porto" r'lerr D354: 4C AC 03 " OU JmO 0357: AS 07 " porto" ,,. " Cj 7F 035'1: " 0358: FO 04 0350: Cj FI" " 0361: AD JO BE 80 BI OJ 0367: AD 31 BE 036A; BD 82 D3 036D; Aj DO D36F; BD 30 BE D372: AS D6 " 0381 ; la " " 0]91 : 4C 83 03 " 0394; 24 08 " " " 07 " 0]9A: 25 07 0]9C: 20 ED FD " 0]9,: AD 81 " 0] 8E " 8D 31 Bt: " 03),5; AD 82 03 03A8: 03A8: " " " " 03AE: 4C 09 Bt: " " " " iSCO SBE31 " (S85) , y $lB,y n. 'd, W '" ..ncvec 'd, Jmp d. sortie iS8D de diffuser ce programme de Randy Brandt dans ses versions française et américaine. Précisons que, si SuperMacroWorks est bien entendu compatible avec toute carte d'extension mémoire pour Apple Il (cartes Apple, Applied Engineering, Checkmate et autres), il ne nécessite aucun équipement spécial : du moment que vous pouvez Pour les techniciens : SuperMacroWorks se loge dans la carte langage de la IT).émoire auxiliaire, ce qui n'est pas simple, sachant SFDED que vous n'avez plus alors de ROM et que ancvec vous devez utiliser la pile et la page zéro de SBE30 ..ncvec+l SBEJ1 " SBEOj . . TM et/ou ™ Macintosh Porn's nO 34 les " Des transmissions intelligentes entre IBM®et chez pouvez utiliser SuperMacroWorks. InterPom's version 2.0 .� et/ou SuperMacroWorks SFDED " , Apple / / rechercher charger AppleWorks 1.4 tel qu'il est, vous H. n;err vainement à nombreux (SHI,Y is80 " 'd, " " OJAC: A9 02 sortie étiez Pom's a obtenu de Beagle Bros la possibilité SBEJD 'H J" vous " ancvec+1 " .od Après l'article de Damien Nould dans Pom's 33, et l'éloge qu'en faisait aussi J.Y. Bourdin, revendeurs. J" Jmo '" ]F«»llîIÙl m§m1bl\Ul� Super�acroVVorks SBOD+l '" 'd' " 0398; A9 8D ,u,cvec '.y d.o .od n. SBE3 D " M' " ESFF '0' 'd, " 038E: 2D ED FD ". >m, n 0]8C; 25 07 8D 30 " " 038A; 09 80 'dy 'do d.y " D388; BI H D])'2: " " " 0384; C6 1 8 la ", " " 0386; 30 OC 0396; 'do 'u " 0383; " ". '" " " F8 ", '" " " jj 18 00 OU ", 0379: AD 02 D380; " ", " " D37B: BI 85 pro" ,,. " " ES7F ,,' " D376: BD JI BE 037D; pro" " 0'1 co 0374: " om, omo 55 035F: DO F3 0364; " " " comp atibles la mémoire auxiliaire. C'est d'ailleurs pourquoi AppleWorks renonce à utiliser cet espace. Les seules exceptions imaginables à la compatibilité avec SuperMacroWorks seraient donc pour le propriétaire d'un qui aurait modifié AppleWorks H+ avec Plus-Works 2.0 ou le 'patch' fourni avec la carte Ramfactor d'Applied Engineering (ce qui est malin), ou l'improbable propriétaire d'un I l e qui l'aurait laissé à 64 Ko avec une carte 80 colonnes non étendue et aurait fait l'une des deux modifications précédentes pour charger quand même AppleWorks. Attention : la version française que nous diffusons est la version 1.2. Cette version étant débuguée, il ne faut plus faire le patch de Pom's 33 page version 67. Si vous avez une antérieure, contactez votre revendeur. Si vous n'avez que la version US de SuperMacroworks, adressez-vous Dimitri Geystor (pom's 33 page 63). à Et si vous n'avez pas encore SuperMacroWorks . . . Prix : 500,00 F ITC - abonnés : 450,00 FITC - Port 20,00 F 27 {'essai (es 'IimeOut • • 'Eric Wey[and omme c'est la lecture de l'arti cle de J, Bourdin dans Pom's 33 qui m'a fait passer commande au père Noël de quelques programmes de la série des TimeOut de Beagle Bros je n'ai pas pu refuser quand i l m'a demandé d'expliquer ici pourquoi je suis bien content d'avoir pensé à mettre mes sabots dans la cheminée, transfonne AppleWorks en une sorte TimeOut présemes et futures, ce qui de d'exploitation représente énormément de travail. pilotant des applications intégrées. On L'investissement est sans doute trop super· système peul parfaitement imaginer par grand pour être rentable (à moins exemple un assembleur TimeOut qu'un taux spectaculaire de ventes de assemblant sous ApplelVorks des SuperMacroWorks en France n'amène Beagle à réfléchir, qui sait ?). sources constituées de fichiers traitement de texte. Disons que TÎmeOut réussit avec AppleWorks, sans menus déroulams ni fenêtres. mais avec une transparence parlaite. ce qui a été raté Cà mon humble avis) sur IBM avec Windows : un intégrateur d'applications. Ou bien disons que, de même qu'il existe un "atelier du programmeur" (Apple Programmer Le principe : continuer AppleWorks maintenant un "atelier de J'utilisateur" (Apple . . . works !) sur Ile. Ile et IIGS : on peut tout faire sans sortir de son atelier. La série des TimeO ut ajoute une Telle était la philosophie de B o b quamité de fonctions nouvelles à Lissner, l'auteur d'AppleWorks : il ApplelVorks, à la fois parfaitement faut bien sûr intégrer l'interface la place sur le bureau (de la mémoire). Bien sûr, vous pouvez choisir de charger en mémoire certaines applications seulement au démarrage d'AppleWorks, ct TimeOut vous permet d'appeler ensuite, sous AppleWorks, en cas de besoin, une autre application depuis le disque (y compris le disque Ram type Speedisk) ; il vous permet également de vider la mémoire et le bureau des applications dont vous ne vous servez plus, aussi facilement qu'on efface un fichier du bureau. Mais une application comme TimeOUl Graph, chargée de faire des graphiques avec les fichiers tableur, prend à elle seule indépendantes les unes des autrcs et utilisateur, mais ce ne sont pas les totalement intégrées aussi bien à menus déroulants, souris, fenêtres, 56Ko sur le bureau d'AppleWorks : AppleWorks qu'cntre elles : chaque disque TimeOut fournît en même temps une modification d'AppleWorks etc., qui font l'intégration. II s'agit là seulement de l'expression visible l'Apple Il courant, vous ne pourrez d'une autre intégration, ceBe des qui est le noyau intégrateur commun, opérations que fail l'utilisateur et des l'application, le fichier tableur qu'elle véritable exploit de programmation données qu'il manipule. Tous les doit traiter ! signé Alan Bird, et une nouvelle "couper-coller", les accessoires de Il faut donc soit avoir suffisamment "application" qui se charge en prcnant bureau, etc., ne sont qu'un pâle de mémoire pour ne pas être gêné, substitut, un pauvre "faute de mieux", soit renoncer aux TimeOul et quitter fonctionnant en 'overlay' (un segment de l'intégration vraie. C'est parce que AppleWorks pour utiliser des de programme chargé momentanémenl programmes indépendants de lui (en de sauver puis recharger l'état présent Beagle est totalement fidèle à cette inspiration initiale d'AppleWorks que TimeOut est une telle réussite. de la mémoire AppleWorks, comme Une conséquence désagréable de cetlC donc de préciser que les TimeOut sont avec Pinpoint. intégration est que la série des compatibles avec pratiquement toutes C'est là évidemment une ouverture permettent fantastique pour AppleWorks : loin de TimeOut ne marche et ne marchera sans doute jamais que sur la version américaine 2.0 d'AppleWorks, et pas une partie du bureau d'AppleWorks, du disque) d'AppleWorks. Nul besoin avec une machine de 128Ko, pas charger, en même temps que l'occurrence Visualizer de PBI ou Graphie Edge de Pinpoint). Inutile les sortes de carte mémoire qui d'étendre le bureau d'AppleWorks : il s'agit ici d'une P i n p o i n t des sur la version française lA. Non que nécessité. accessoires supplémentaires dans une cela soit techniquement impossible : Troisième point à savoir : il vous faut application, ou des applications mais il faudrait alors adapter et de la place sur disque pour placer vos extérieurcs à la première, TimeOut traduire chacune des applications fichiers TimeOut, puisqu'en fait c'est fournir 28 W o r k S h o p ) sur GS. il existe Second point à savoir : il vous faut de comme Porn's n° 34 AppleWorks !). Il nous donne accès à reconnaît l'essentiel des imprimantes. de problème (les lïmeOut sont tous les caractères des polices Mac. ct Il d'ailleurs livrés à la fois sur disquette utilise des polices de 8 à. . . A p p l e Wo r k s AppfeWorks qui enfle. Si vous avez un lecteur 3,5' ou un disque dur, pas 5,25' et sur disquette 3.5'). Si vous avez un Méga de Ram, vous pourrez vous débrouiller. Mais si vous n'avez que 128Ko et deux lecteurs 5.25'. il va falloir jongler : au début vous pourrez placer vos applications TimeOul sur votre disque de données. Mais elles risquent vite de remplir la la vraie justification à droite avec 127 n'est pas en couleurs. non mais plus. J'ai automatiquement les points ! particulièrement apprécié sa capacité à Voilà un sérieux concurrent pour relracer Mu{tiScribe. Printrix el. . . GSWri/e (il imprime plus vite que GSWritt valeur dans votre fichier tableur. - ce qui n'est guère difficile - tout en utilisant ses polices, et il reconnaît plus de 40 imprimantes). Seul problème : pour le moment, il ne disquette. Bref, avec les TimeOu/. dispose pas d'éditeur de polices (à ce c'est non seulement AppleWorks. propos : quel éditeur de polices mais J'Apple lui-même qui grandit. système utilisez·vous sur GS Les deux faces d'une disquette 5,25' ne bien ce qu'on attend de lui, et 1). Pour graphiques dès que vous changez une Comme ce fichier est en mémoire en même temps que TimeOul Graph. on peut percevoir immédiatement ce qu'est l'intégration vraie. En fait, AppleWorks est tout simplement doté désormais de la fonclion graphique intégrée qui lui manquait. SideSpread est de la nos accents, il faut donc par exemple TimeOul lui suffisent déjà plus pour stocker remplacer même veine : il intègre tranquillement toutes les polices de T i m e O u t "<x2>N<x l>" avant l'impression à Ap p l e Wo r k s SuperFonts. Il faut donc sérieusement avec les polices fournies sur la d'impression verticale des fichiers songer aux extensions nécessaires disquette. Voilà une belle macro tableurs trop larges qui demandait (mémoire, lecteurs de disques). SuperMacroWorks à faire. . . Mais Mark Simonsef/ nous promet pour bientôt un Universal FOf/1 Edi/or, toujours chez Beagle. qui permettra auparavant de sortir d'AppleWorks L'indispensable : TimeOut SuperFonts chaque "é" par d'éditer les polices Mac ou GS Write. y compris sur fie. Super/onls de M a rk Simonsen est une vraie merveille. Il imprime les fichiers textes périme pas GraphMerge de Pif/poif/l, qui m i prime aussi les images dans les fichiers AppleWorks. mais imprime AppleWorks entièrement en caractères le texte en mode texte au lieu du mode graphiques graphique de SuperFof/fs. GraphMerge proportionnels, vous donne le choix entre qualte qualités s'accommode donc d'une police d'impression possibles, dans les transférée dans l'imprimante, ce que ne "styles" (italiques. inverse, gras, peut faire SuperFonts. sur la même ligne, avec les dessins (HOR ou DHOR mais pas SHOR) ou les parties de dessins que vous voulez, avec les polices que vous voulez (jusqu'à 64 dans le même texte : la disquette en fournit 47. ct d'aultes disquettes de polices sont promises à Les utiles : FileMaster, Graph, SideSpread, QuickSpell Macintosh ou en OS monochrome : d'ailleurs il utilise les polices du Mac, qui sont aussi les polices système du GS. Seule différence avec le Mac : vous travaillez volte texte sur l'écran texte d'AppleWorks, ct il faut choisir J'option "imprimer sur écran" pour voir à l'avance ce que donnera votre impression graphique. Il reconnaît TimeO"t File Masiu est une double le rend particulièrement utile aux utilisateurs de disque dur. Et la possibilité de programmer des macros pour lui avec SuperMacroWorks me semble fort toutes les options d'impressions du intéressante. . . traitement de texte AppfeWorks. TimeOul auxquelles il ajoute les siennes (enfin grapheur en DHGR, qui fait vite ct Porn's nO 34 que P i n p o i f/ l Checker. (même en laissant son dicLionnaire de 80 000 fait aussi bien Document mots sur disque : si vous mettez celui-ci sur la carte Speedisk, c'est quasiment instantané), le tout sans avoir besoin de quitter AppleWorks. DeskTools m e semble uniquement par la nécessité purement backup sélectif des fichiers qui ne sont en pour corriger vos fautes en anglais, ct commerciale de "couvrir tout le fonctions DOS 3.3. Sa fonction de déjà Quickspell est plus TimeOut un produit assez inutile, engendré sorte de Filer évolué ou de Copy If Plus intégré à AppleWorks, mais sans pas l'essentiel des imprimantes. TimeOu! bon marché). Le Ile ou IIc est uansformé en pour utiliser F o n t W o r k s ou SideWays, et reconnaît également Le superflu : TimeOut DeskTools souligné, ombré, silhouette, indices, exposants) du Mac tous combinables fonction rapide que Pif/point Spefling Checker Notons que TimeOut SuperFof/ts ne TimeOut la terrain" de ce qui sc vend déjà bien sur Apple Il (les accessoires Pinpoif/t en l'occurrence). Les fonctions de ces accessoires de bureau sont tout aussi bien remplies sail par AppleWorks lui·même (la calculette le bloc·notes textes), soit = = le tableur ; le traitement de par SuperMacroWorks des macros (calendrier, adresseur d'enveloppes. composeur téléphonique, horloge, conversion majuscules/minuscules, décompte des Graph est u n bon moLS d'un texte, ct même l'en.cryptage des fichiers). 29 Beagle ne nous avait pas habitués à ce genre de frivolités. Quoi qu'il en soit, J'abonnement à Pom's, à ses disques, et à ses programmes de macros pour SuperMac roWorks est un bien meilleur investissement que les TimeOut DeskTools. - Mais - me direz·vous - les publicités de DeskTools parlent d'un utilitaire de conversion des données qui permet de passer directement par le presse-papier, sans l'intermédiaire d'un fichier DIF sur disque, des catégories de la base de données dans des colonnes du tableur, et vice versa, et c'est quand même plus pratique qu'une macro qui passe par un disque, même un disque Ram comme celui de la carte Speedisk, n'est-ce pas ? - Bien sûr, mais ce que les publicités ne disent pas, c'est que cet accessoire est également fourni, en prime, avec TimeOut Graph et TimeOw UltraMacros. . . PinPoint, TimeOut, Macros : compatibilités, incompatibilités Une excellente nouvelle : tous les TimeOut (sauf UltraMacros) sont entièrement compatibles avec Pinpoinl. À l'installation, vous 'patchez' d'abord AppleWorks avec T i m e O u I , puis vous y installez Pinpoint. Une fois AppleWorks chargé, il suffit de faire ti-P pour accéder à Pinpoint, et <j-Escape pour accéder à TimeOw. Du coup (et c'est sans doute pourquoi Beagle ne crie pas sur les toits cette bonne nouvelle), il me semble que les TimeOut qui doublent les accessoires de Pinpoinl (Correcteur, accessoires de bureau par exemple) ne sont pas indispensables à qui a déjà Pinpoinl. D'autant que Pinpoint, lui, s'installe aussi dans Basic System, W o r d Perfeci et autres, et pas seulement dans AppleWorks, ct permet avec Pinpoint Too/Kit de programmer soi-même ses propres accessoires. De plus P i n p o i n t reconnaît aussi AppleWorks 1.4 français (même si 30 cenains des accessoires tels le Speller ou les macros KeyPlayer ne marchent qu'avec AppleWorks américain). Deuxième bonne nouvelle : les Time O u l sont compatibles avec SuperMacroWorks et A utoWorks. Mais . . . ces deux programmes de macros, d 'ailleu rs ainsi q u ' U l t r a M a c r o s , n e sont pas eux· mêmes compatibles avec Pinpoim (sauf AutoWorks qui offre une option de choix du banc mémoire aux propriétaires d'une carte d'extension mémoire type RamWorks ou MultiRam sur /le ou l/c). Les gourmands qui voudront avoir tout en même temps (Macros ET accessoires Pinpoint ET applications TimeOut), devront donc utiliser KeyPlayer, le programme de macros de Pinpoint. Mais. . . KeyPlayer n'automatise que les fonctions AppleWorks, pas celles de Pinpoint ni celles de TimeOut, et ne marche pas avec AppleWorks français. Bien entendu vous êtes complètement perdu dans le dédale des infonnations qui précèdent : cela prouve que vous êtes normalement constitué, j'ai du mal à m'y retrouver moi-même. Ne nous plaignons pas trop de notre difficulté à comptabiliser notre fortune, et simplifIOns. Si vous utilisez AppleWorks J.4 français, vous ne pouvez rajouter à AppleWorks qu'un seul programme de macros, SuperMacroWorks, et un seul programme d'extensions, Pinpoinl. Vous ne pourrez pas les utiliser en même temps, il faudra quiner l'un pour utiliser J'autre. El vous n'aurez accès qu'à certains accessoires de Pinpoint. Si vous utilisez AppleWorks 2.0 américain, le tableau joint à cet article devrait vous éclairer un peu plus. Ultra Macro Works ou . . . SuperMacroWorks ? TimeOut UltraMacros, le dernier-né de est bel et bien encore que son aîné SuperMacroWorks. Mais il partage avec lui le tempérament fier et Randy Brandt, plus doué indépendant de son auteur. Car, quoi qu'en dise B e a g l e , ce n'est pas vraiment une application TimeOut comme les auues. Il ne se loge pas dans le bureau d'AppleWorks, mais dans la place laissée libre par celui-ci (la carte langage de la mémoire auxiliaire : c'est d'ailleurs pourquoi il est le seul TimeOul qu'on puisse recommander au même titre que SuperMacroWorks à ceux qui n'ont que 128Ko de mémoire). Il n'est pas un subalterne docile qui reste à sa place tant qu'on ne l'appelle pas, comme les autres Time O u t . Bien entendu il est compatible avec les autres TimeOut : mais c'est pour les commander. Il m'a fallu fouiller, mais j'ai pu découvrir page 26 de la documentation une de ses fonctions les plus intéressantes : il automatise également les fonctions des applications TimeOut. UhraMacros est une sorte de langage de programmation complet pour AppleWorks et TimeOut qui intègre toutes les commandes de l'Applesoft, y compris les manipulations de chaînes, et en rajoute même (IF THEN ELSE). Il permet d'inlroduire ses propres routines machines dans AppleWorks avec les macros Peek, Poke et Cali, de créer des macros avec '* et <j, des "macros-réveil" qui se déclenchent à l'heure choisie, des "fichiers-tâches" qu'on lance depuis le sélecteur du ProDOS, il éteint provisoirement l'écran quand vous allez prendre un café, il corrige le bug du Control-à dans la définition des codes imprimantes. Mais. . . il ne reconnaît pas la version française 1.4 d'AppleWo rks, ni les macros déjà existantes de SuperMacroWorks, françaises ou non. Les macros que vous avez et aurez pour la version française de SuperMacroWorks ne tourneront pas sur UltraMacros. J'ai essayé de traduire les macros agenda de Dimitri Geyslor : c'est un joli casse-tête (il faut traduire d'abord les commandes AppleWorks J.4 VF en commandes AppleWorks 2.0 US, traduire ensuite les commandes SuperMacroWorks VF en commandes SuperMacroWorks US, traduire enfin les commandes SuperMacroWorks en commandes UILraMacros !). Pom's nO 34 SuperMacrolVorks vous permet de transférer une p:>lice Power Print pour l'imprimante au chargement d'ApplelVorks, ce qu'UltraMacros ne permet plus. Enfin - et sunout - un fait que B e a g l e s'abstient soigneusement de dire, et que doivent donc crier sur les toits les utilisateurs qui n'aiment pas ce genre de cacholtCries : SuperMacrolVorks aussi automatise les applications TimeOUl ! Eh oui : quand la légion des TimeOUl s'est formée, son commandant était déjà là ! UltraMacros me semble donc surtout destiné aux fanatiques de la programmation et du "bidouillage" qui voudraient un autre programme, en plus de SuperMacroWorks, pour créer des applications spéciales en anglais seulement. S i vous tenez absolument à UltraMacros, il vous suffira d'envoyer 22,5 dollars à Beagle en même temps que votre disque original (version US) de SuperMacroWorks. On est prié de ranger soi-même son bureau En admettant que vous ayez un bureau (une mémoire) de taille suffisante, vous avez tellement d'accessoires et d'applications à y mettre qu'un sérieux problème de rangement se pose. La Ram supplémentaire doit à la fois .. compati ble avec ., l AppleWorks 2.0 seul AppleWorb 2 . 0 avec Pi npoi nt AppleWorks 2.0 avec TimeOut AppleWorks 2 . 0 avec Pinpoint ET TimeOut Pilote AppleWorks ET l e s fonctions TimeOut Pom's nO 34 vous servir à étendre le bureau d'ApplelVorks, à sauver les fichiers transitoires (fichiers ASCII, fichiers DlF) utilisés pour communiquer entre deux fonctions d'AppleWorks, à entreposer provisoirement la mémoire de travail AppleWorks que Pinpojn/ y sauve de temps en temps, à stocker les applications TimeOut et les accessoires Pinpoin/, et même à garder en pennanence sous la main ProDOS, un sélecteur de programmes et vos applications favorites (dont ApplelVorks lui-même bien sûr)_ 1 024Ko, c'est vraiment le minimum, mais il reste le rangement. .. Aïe ! En fait, le problème est plus simple qu'il n'y paraît : il se résume au "partitionnement", ce barbarisme désignant le partage de la mémoire entre AppleWorks et son bureau d'un côté, le disque Ram de l'autre. Sur le GS, pas de problème : le tableau de bord est là pour cela. Si vous avez une carte mémoire type Mul/jRam de Checkmate, RamWorks, Z-Ram ou RamFactor d'Applied Engineering, les logiciels d'installation du disque Ram et de modification d'AppleWorks pennettent ce "partitionnement". Si vous avez le nouveau Ile un Méga ou une carte type Apple dans votre Ile, AppleWorks dévore toute la place disponible sur la carte pour son bureau, el. . . bigre, on ne peut plus rien ranger du tout ! appétit de mémoire, avant toute modification par SuperMacroWorks, TimeOut et/ou Pinpoint. Deux programmes du domaine public se chargent de ce travail pour nous. L'un, publié par Steve Stephenson dans Open Apple volume 3, modifie AppleWorks 2.0 américain. L'aulre, publié par l'Écho des Apple d'Octobre 87, est J'adaptation du premier à AppleWorks 1.4 français par J.Y. Bourdin. Les colonnes de Pom's n'étant pas destinées à être remplies de listings de programmes du domaine public, nous ne pouvons les reproduire ici. Mais nous les avons ajoutés gracieusement, en prime, sous les noms de APLWorkS2 .0.MOD et APLWorkSl . 4 . M O D , sur la face ProOOS de la disquette Pom's 34 . . Bien entendu, ne les utilisez que sur une copie de votre disquelle AppleWorks ! . Conclusion : innovation ou conformisme ? La solution consiste à 'patcher' Vous comprenez maintenant pourquoi je suis si content de ce que j'ai trouvé dans ma cheminée : les TimeOut constituent dans leur conception fondamentale une innovation importante et extrêmement prometteuse pour tous les utilisateurs d'Apple Il et d'AppleWorks. Cette innovation se situant dans la continuité de l'esprit même AppleWorks de façon à limiter son d'AppleWorks. Supe r MacroWorks Ultra Macros AutoWorks KeyPlayer OUI OUI OUI NON NON NON O U I / NO N OUI OUI OUI OUI NON NON NON O U I /NON OUI OUI OUI ??? NON 31 le succès mérité de utilisateurs, vous êtes priés de parler La réussite commerciale me semble utilise promise à celte série, et i l faut que programmes Beagle ou SoftWare dcvant J'hygiaphone. nous assurions celte réussite : j'incite fortement lOUS ceux que l'anglais ne Touch déjà existants (Au/oWorks, FontWorks, Triple Dump) pour faire meilleurs programmeurs Be(lgle (dont rebute pas trop à s'offrir au moins encore mieux, Randy), et une majorité d'utilisateurs TimeOut SuperFonts en plus de SuperMacroWorks. Mais reconnaissons qu'il y a un risque Randy Brandt, qui n'a pas perdu Gardons cependant confiance : les ont toujours "l'esprit Wozniak" . de glissade vers ce conformisme, ce l'ancienne mentalité, parsème ses Sachons-le, le nom de Beagle Bras ne renoncement à la création ct à programmes d'aBusions, de clins d'œil signifie plus la même chose qu'avant : situations de concurrence effrénée dans et d'informations presque cachées. (Un décontractés ct sympaÙliques devient un marché fermé (allumez votre fichiers des disquettes 7ïmeOu/ !). maintenant une entreprise moderne et téléviseur sur n'importe quelle chaîne R a n dy performante, rivalisant avec les "pros" pour en voir un exemple). Certaines mini-entreprise, applications TimeOu/ ne font que Software, qui diffuse pour un prix ce qui était un atelier d'artisans du logiciel, une puissance l'innovation vraie, qu'engendrent les par "doublonner" purement et simplement l'excellence de ses produits. Beagle de oons programmes déjà existants. commerciale qui s'impose conseil : lisez, listez, testez tous les a même fondé appelée une Jem dérisoire des mini-programmes de l'ancien style Beagle. Si Hermès le prend la liste des principaux succès de Elles travaillent souvent mieux et Dieu messager y consent, je pourrai vente en matière de compléments à plus vite, mais elles font la même pcut-êLrC vous entretenir un jour d'un AppleWorks (Copy JI Plus, Pinpoint accessories, MultiScribe. Visualizer, SideWays, SuperMacroWorks, Pinpoint SpeIfing Checker) ct y réellement. L'opinion de J.r. Bourdin certain "Patchmania" chose qui se : elles n'innovent pas réjouissait dans Pom's 33 de la fusion Beagle/SoflWare To uch me subslÎtue sa version, intégrée à semble globalement confinnée par l es AppleWorks ct souvent meilleure que non TimeOul : mais ses craintes sur l'orientation exclusivement utilisa/eur seulement je n'échangerais pas un GS imprimée par la nouvelle direction ne avec ApplelVorks, SuperMacroWorks sont et TimeOut COntre 2 ou 3 barils fondements, d'ordinateurs-X avec lVindows, mais J'en prends pour preuve un signe qui, les autres. Sincèrement, je ne l'échangerais même pas contre un Mac avec Microsoft Works ! Cette bien hélas que pas non plus superficiel, sans me parait néanmoins quelque peu inquiétant : stratégie de B e a g l e est fini de rire en lisant les cenainement la oonne : une telle série documentations Beagle ; plus de de oons utilitaires réellement intégrés gravures rétros et de légendes ... Des cerveaux comme ceux d'Alan Bird, Randy Brandt ou M a r k Simonsen sont strictement incapables de se limiter à améliorer essence des créateurs : ils ont déjà su, avec TimeOul. inventer les chemins de J'avenir. Préparons-nous à d'autres belles surprises" , Beagle Uros/Père Noël 6215 Ferris Square, Suite 100, San Diego, CA 92121. USA. Jem Sortware/Randy Brandt P.O. Box 20920, El Cajon, est effectivement un besoin des humoristiques, plus de complicité utilisateurs. ces entre auteur et lecteur, plus de clin applications (au moins SuperFonts) d'œil ; et plus non plus de celte sont tellement au-dessus du lot de ce pédagogie souriante qui enseignait 1163 Triton Drive, Foster City, Certaines de CA 92021, USA. PBI Software, Inc des innovations, De plus, cela permet sans qu'il s'en aperçoive au lecteur à CA 94404, USA. maîcriser sa machine, et peut-êcre, qui Pinpoint d'assurer un oon départ, une bonne sait, à devenir un jour un auteur assise pour la série, ce qui permettra Beagle. Nous sommes au royaume des 5901 Christie Avenue, EmeryviJIe, CA 94608, USA. qui existait déjà qu'elles sont en fait des développements nouveaux et "pros" : tenue stricte, documentations peut-être plus risqués, Enfm cela "c1ean", compartiments étanches POM LINK 3 .0 : PLUS LOIN . . . le programme du concurrent. Ce som par Publishing ment de la couleur des caractéres ou cie la couleur cie lond seule ; idem mais exprimé en pourcentage de réglage du délai imparti à la connexion ; routine de temporisation pour allouer des l'ex.ploitation des /essources Minitel. Elle délais ; ouvre la porteà la réalisation de serveurs très affichage des caractères émis et reçus calcul automatique de la durée de com puissants. (deb<Jgging) ; affichage de la date et de l'halle ; l'AppleIl, en secondes surla Macintosh ; Parmi tes instructions nouvelles : instruction accept sans effacement des 32 niveau de gris ; La ve/sion 3.0 de Pom_Link va plus loin dans munication (en minutes entiéres sur fonctions utilitaires (sur rApple Il : bug de fONERR.. . sur le Macintosh : change geslion du mode téléinformatique ; points ; mise en mode téléinformatique, mise en instruction accept numérique contrôlée ; menl de curseur, chargement des icônes mode Vidéotex ; instruction spécialisées pou/ le change- systéme... ) Porn's n° 34 1?j,]pCOJm Pdeur... AjpljpJl© Il ... enregistreur, télématique, interrogea6fe... Christian Piard e répondeur télématique que nous vous proposons i c i n'est qu'une illustration des multiples possibilités des routines Pom Link 2. 1 . Il n'en est pas moins complet, fiable et convivial. Il se distingue de 90 % des serveurs-kiosque par la rapidité et le contrôle des saisies au "clavier : on ne risque pas de saisir 8 caractères là où on en attend 3 ; ainsi, l'aspect de l'écran est protégé. L'utilisateur reste toujours dans les zones qui lui sont allouées. Fonctions du répondeur Le principe de l'ensemble est le suivant : Un client, un ami vous appelle en votre absence : l'apple /1 détecte cet appel, connecte votre Minitel. Votre client et néanmoins ami reçoit alors la tonalité familière aux habitués du Minitel et connecte son propre Minitel (avec la touche Connexion/Fin). Le dialogue peut s'engager entre votre ordinateur-serveur et l'ami et/ou relation d'affaires. Il aura la possibilité de laisser un ou plusieurs messages qui seront enregistrés sur disque. En fin de communication, ordinateur-serveur et Minitel se remettent en veille dans j'attente du prochain appel. Tout ceci se passe alors que vous êtes fort loin de votre domicilelbureau/atelier ? Appelez chez vous avec un Minitel sous la main : vous pourrez demander la lecture, depuis votre lieu de vacances par exemple, des messages télématiques qui ont Pom's n° 34 été laissés sur l'ordinateur. Cet accès à vos messages est évidemment protégé par un mot de passe. Beaucoup de messages sont arrivés, vous craignez la saturation du disque ? VO? S avez également la possibilité d'effacer le fiC?Ier pour libérer de la place. Luxe supplémentaIre, vous changerez si nécessaire le mot de passe (cas où vous l'auriez communiqué à un ami - client ? pour démonstration). Hard : comment faire ? L'ordinateur. Ce programme fonctionne avec : Apple ][+, Rom minuscules, carte langage, cane Super Série Apple ou ; Apple Ile, cane Super Série Apple ou ; Apple Ile ou ; Apple IIgs (sur port série intégré ou carte Super Série Apple). Le Minitel. Il sera nécessairement bi-standard ( 1 B) c'est-à-dire avec modem retournab/e (aujourd'hui, c'est presque toujours le cas). Le détecteur de sonnerie. Peu importe son type : celui dont le schéma a paru dans le numéro 33 de Pom's convient, celui vendu par votre revue préférée également. Notez toutefois que la fiabilité de l'ensemble est directement fonction de la qualité des composants utilisés. Le câble MinitellApple. Il est maintemant bien connu. Vous l'utilisez déjà avec MinBas (Pom's 27), InterPom's (28), T.Pom's (30), Clv]om's, HGR/Minitel (33). S'il vous manque, Pom's en dispose. Le port ou la carte série de l'Apple. Sur les Apple ][ + ou Ile, la carte série sera configurée ainsi : '.... 1 33 Au menu Quatre options sont proposées à l'écran de l'Apple Il : ,,,,2 1 Act iver le serveur : votre ordinateur se met Sur votre IIGS, à l'aide du tableau de bord, mettre toutes les options port modem par défaut sauf : Data/Stop Bits 7/1 Even Parity DCD Handshake : No DSR/DTR Handshake No Soft : comment faire ? Ce paragraphe ne vous concerne que si vous ne disposez pas de la disquette d'accompagnement de ce numéro. Il vous faut saisir et sauvegarder sur une disquette ProDOS le programme Basic Repomdeur. En ce qui concerne, Pom.link.2. 1 , même pensum ; i l est toutefois plus fiable de reprendre le source et de l'assembler car les erreurs sont en principe décelées plus facilement. Sur votre disquette, n'oubliez pas de mettre ProDOS 8 (version 1 . 1 . 1 o u plus) et Basic.System. 1! Avant de lancer l'ensemble, modifier la ligne Basic 26 pour indiquer : votre mot de passe à la place de ABCDE (de 4 à 7 caractères ; votre numéro de téléphone à la place de (1) 12 34 5 6 7 8 (maximum 1 5 caractères) ; votre nom à la place de M. Xxxxxxxxxx (maximum 15 caractères). 1 1 L'ensemble est alors prêt à enregistrer fidèlement les messages ; faire simplement : RUN REPOMDEUR Le serveur en service Rien de passionnant n'apparaît sur l'écran de l'Apple lors du fonctionnement du serveur ; trois messages seulement : Attente d ' un appel. attente de connexion Appel. reçu, Connexion ok, serveur a c t i f . Côté correspondant utilisateur, c'est plus complet ; après deux pages de présentation du répondeur le menu principal apparaît offrant : l Laisser un message 2 Fonctions de service ce répondeur 3 Quitter L'option 1 invite sur une page écran à laisser nom, prénom et numéro de céléphone puis 7 lignes de message. Un écran de validation s'affiche ensuite pour inviter le correspondant (et toujours client) à confirmer, à corriger ou à annuler le message. L'option 2, qui donne accès aux fonctions de service, demande en premier lieu le mOl de passe. Seules trois tentatives sont permises avant déconnexion forcée (même si l'on revient au sommaire après chaque essai infructueux). Le menu des foncrions de service est le suivant : l Lire les 2 Effacer 3 Changer messages le fichier le mot de passe La première tâche du programme sera de créer le fichier (le message Erreur 1 8 s'affiche si la disquette est protégée en écriture . . . ). L'option 1 affiche le dernier message reçu ; on accède aux différents enregistrements avec SUITE et RETOUR. Changer de nom L'option 2 évite les effacements involontaires de fichier en attendant les trois lettres OUI avant de supprimer les messages. Petite simplification de programmation, le changement du nom et du numéro de téléphone n'est pas prévu. La méthode est l a suivante : effacer le fichier de message par DELETE F I C . REPONDEUR puis modifier la ligne 26 et . . . RUN 34 à l'écoute de la ligne et attend patiemment le premier appel. On sort de ce mode par ESC ; 2 Lire les messages : vous avez pu aussi les lire à distance ; 3 Effacer les messages : c'est aussi une opération que vous pourriez faife à distance ; 4 Quitter le programme. REPOMDEUR Le changement de mot de passe par l'oplion 3 est fiable : les caractères frappés au clavier sont remplacés à l'écran par des ' * ' par souci de discrétion et le nouveau mot est demandé deux fois pour être à l'abri des fautes de frappe. û Porn's nO 34 . Programme 'REPOMDEUR ' 2 REM ----------reloge éventuel1ement --------- 3 IF la Il (l03) 7681 (4} �-repomdellr" (21) : HOME CHRS (4J "-pom . llnk . 2 . 1 " " :PR$ .. " " : TL $ .. .... ; FOR l 11117', 2 :N$ .. .. 0 10 6:M$(I) 12 OS " 22 CHR$ CHR$ PRINT ' > POXE 103, 1 : POKE 1 0 4 , 3 0 : PO!Œ 7680. PRINT PEEX < (104) 0: PRINT 6 • 256 + PEEK THEN .. " " : NEXT :PO .. a (4) :FIS .. "tlc. repomdeuc " CIIR$ COTO 25 ONERR 23 PRINT DS"open "FI$", 1255"; PRINT DS"reiJd"FI$ 24 GOrD JO 25 ONERR " , c O " : INPUT LG,MOS,TES,NOS GOro 20000 26 MaS " "ABCDE " : TE$ .. H {l) "M. 12 34 56 78":NO$ .. Xxxxxxxx" 27 PRINT DS"r.lcHe"FIS " , r O " : PRINT 0 : PRINT MO$ JO PRINT DS "cl ose 38 GOTO 9000 40 HOME : PRINT TES .- PRINT NO$ :PO .. O:ES .. 0 45 US .. "Attente d'un iJppel (Esc " menu) " ; GOSU B 8000 49 REM ----------a t ten te de l ' appel----------- 50 " APPEL, AI 51 IF (4 91 S2) PEEX - 155 THEN ssc "- If' ' H+ POXE 491 68, 0 : GOTO 9000 52 ON NOT AI GOTO 50 55 U$ - �Appe1 reçu, 60 " CNXR, A I 70 ON � �tten te de connexion � : GOS BOOO US NOT AI GOTO 1 0 0 1 0 75 US - �ConneKi on ok, p = ou serveur �ctif�: GOSUB BO Ile Ile+ II GS Ile 00 97 REM ---------------lère page--------------- 98 " M'rH, 1 99 " DEPLAcr, 1 , 1 3 100 , AFFICHE, " 1 101 , AFFICHE, "1 .. .. . .". .. " ç � , 1 ''' ç l' " " ç . . . . . .. , • , 1 è é /'"ç_l " /' '''ç 1 • • 102 " AFFICHE, �é / '" ç è é l 'ç è é l''ç l''ç è é 103 " AFFICHE, �é é è é é é è é é è é è é è é 104 " AFFICHE, �é é è è é ê è è é è é è é è è é ç_ l , ," ç- " 105 129 120 ç� " AFFICHE, "é ç_1 è é ç_1 è ê è é è é è , ." " AFFICHE, "Vous Aetes bi " AFFICHE, � é è " : " AFF 2JO " DEPLACE, 4, 5 : " 14ODE, 2 : 240 " DEPLACE, 4 , 1 0 : , AFFICHE, "Votre interl 250 " DEPLACE, 4 , 1 2 : 260 " DEPLACE, 4 , 1 4 : " AFFICHE, HVOS messages 270 " DEPLACE, 13, 1 8 : " AFFICHE, "é è " : ,_1 " AFFICHE, "ç_1 " PARAHT, 1 , 2 , 0, 0, 0, 0 : " AFFICHE, �- La re VI,Ie des Apple -"." BAS, 4 : JIRAHT, 0, 2, 0, 0, 0, 0 t CHR$ (lB) t CNRS , 20 , 2 , 0, 5, ° en au .. + TES; " CADRE, 1 , B , 4 0 " AFFICHE,NOS,. ocuteur est un�,. " DEPLAcr, 9, 1 7 : " P " AFFICHE, Hordinateur A pple prAee .t enregistrer"; et confidences . . . "; (86) ; : & DEPLAcr, 12, l B ; , PARAHT, 0, 3, O, O, 0, O : Porn's nO 34 REM ---------------2ème page-------------- " DEPLACE, 4 , 3 : 108 " _ " " M'TH, ° FOR l - 1 TO 1 0 0 0 : NEXT 220 ,--1" " AFFICHE, (92) ç_1 ç_1 ç_/ " AFFICHE, �é ç_ 1 112 CHR$ " VIDECRAN 107 " HAUT, 1 2 : + " CADRE, 1 , 1, 40, 7 , 2 , 0 , 5, 0 : l"ç_1 è� 110 (lB) 210 1 é è é é é é 1 ç " AFFICHE, "é ICHE, "ê è " : 199 CHRS 200 106 109 & AFFICHE, "_" + " AFFICHE, "Accès au me 35 nu "; : , : INVERSE : , AFFICIŒ, " ,. 280 ' DEPLACE, 1 8 , 1 9 : "; : , , It.EFICHE, "Renoncer & DEPLACE, 13, 7: FO."? l .. Il 805 ON PO GOTO 810,850,880,910 : ' It.FFICIŒ, " Conn exion INVERSE : 802 803 ., & AFFICHE, TL$; ro 1 7 : & 290 ' ACCEPTF, AI 300 ON 830 COS US 4 0 0 0 : GOTO 810 340 GOSUS 4 0 0 0 : GOTO 290 835 GOSUB 5 0 0 0 : GOTO 810 499 REM ---------------Sommllire--------------- 840 IF N$ .. 500 PRINT DS"close": 845 IF El .. 1 GOTO 990 510 ' DEPLACE, 9 , 4 : 520 GOSUB 6000 NOT At GOTO 10000: ON AI GOTO 500,340, 200,340,340,500,500,10010,340 1, l, 40, 6, 4 , VIDECRAN: AFFICHE, " Répondeur , NOT Et GOTO 10000: .. " THEN ' ALERTE, "Nom indispensa ble . . . .., l : GOro 810 850 PO '"' 2 : ' ACCEPT, 13, 6, 0, ...., 1 6, PR$, E. télémlltique"; 860 NOT E' GOTO 1 0 0 0 0 : ON Et GOTa 990,810, ON 700,875,870,500, 880, 1 0010 550 , PARAHT, 0, 7, 0, 0, 0, 0 870 GOSUB 4 0 0 0 : Garo 850 560 ' DEPLACE, 8, 1 1 : , AFFICHE, "Laisser un m 875 GOSUS 5 0 0 0 : GOTO 850 5 70 ' DEPLACE, 8, 1 4 : , AFFICHE, "Fonctions de 890 ON 580 ' DEPLACE, 8, 1 7 : , AFFICHE, "Quitter ce r 900 COSUB 4 0 0 0 : COTO 880 905 GOSUS 5000: GOTO 880 essage"; 880 PO - 3 : service"; ' DEPLACE, 1 5 , 2 2 : oi ": 600 CliS " 610 ON + "; : , ' AFFICHE, "Votre choix INVERSE : ' AFFICHE, " Env 910 NN .. 0 915 V - NN + I l 920 PO " 4 : .... : NOT El GOTO 1 0 0 0 0 : ON El GOro 650,200, GOSUS 5000: GOTO 630 IF CliS < " 1 " OR CH$ > 650 IF CHS < "1 H OR CliS > 660 ON 700 REM -----------Enreg du messa ge----------- 710 ' 600 "3" THEN GOSUS 7000 "3" THEN GOSUS 7000 : GOro 600 930 GOSUS 5000: GOTO 915 940 GOSUS 4000: Garo 915 ' DEPLACE, 3 , 2 : PARAHT, O, 7, 4, 0, 0, 0 : ' ' DEPLACE, 1 , 5 : • AFFICHE, " "; : E, " " ; : , Prén om 1002 , 1004 1006 : ' AFFICHE, " Sui te , CHARIOT : : NORHAL ' 1010 . ' AFFICHE, " Suite : , MODE, 2 : , FOR l - Il 770 ' DEPLACE, l , ! : E, " ";: , � DEPLACE, 4, 9 : FOR l .. 0 TO 6: Nom & INVERSll . , AFFICH ' AFFICHE, " Suite : , DEPLACE, 6, 11 vlliider . . . , AFFICHE, " Envoi ";: , AFFICHE, " ";: , It. + I: 1060 � . . . . . . . "; : INVERSE NORMAL ' ": INVERSE ' NORMAL ' AFFICHE, �Pour l 'annuler . . . . . . . . . . , AFFICHE, " "; : , AFFICHE, � Annulation 1050 , ": , AFFICIŒ, " Correction 1040 , LIGNE : ' AFFICHE, "Téléph AFFICHE, "Pour le modifier . . . . . . . . . "; : , LIGNE: ' AFFICHE, " . . . . . . . . . . . . �:: , AFFICHE, �Prénom , AFFICHE, "Pour le , LIGNE : + ;" • AFFICHE, " , DEPLAŒ, 1 , 2 1 , AFFICHE, " 1030 TO 17 . • . • • . . . . . • • . . . , DEPLACE, 4, 8 : , LIGNE: AFF ICHE, "���Message���·, 760 ' DEPLACE, 4, 7 : E'FICHE, MS(I) ; ; NEXT + " ; : , LIGNE: , AFFICH INVERSE ., 750 ' AFFICHE, " TLS: , AiTICHE, "Téléphone : • • . • • • . • • • . • . . • E, " "; : , DEPLACE, l , 3 : PRS; 1020 , DEPLACE, l, 7 : VIDECRAN: Voici votre message tel qu 'lI serll " : , AF FICHE, "enregistré 1000 + "; : , LIGNE : , /tFFICH INVERSE : , . ' AFFICHE, " Suite : , AFFICHE, " . . . . . . . . . . . . . : + "; : , LIGNE: ' AFFICH INVERSE ' DEPLACE, l, 6: 990 NS; "; 730 GOTO 915 GOTO 915:NN '"' !<EM ----------écnn de val1dilti on--------- En , CADR ' AFFICHE, "Votre nom • • . . . • . • • • . . . . • , - 1 > 989 INVERSE E , 2 , 1 , 3 8 , 3 , 0, 0,2, ° "; : 7 GOTO 990: 980 NN " NN - 1 : ON NN < 0 : GOro 880 GOTO 700,3000,9900 (CRS) VIDECRAN: E, " NOT E' GOTO 1 0 0 0 0 : ON E' GOTO 990,980, 950 NN " NN + 1 : ON NN regi stremen t de votre message 720 ON 935 : GOro 600 • ' ACCEP1', l , V, o, "", 700, 935, 940, 500, 950, 10010 620 : ' DEPLACE, l , V: 28, M$ (NN) , E' , ACCEPT, 29,22,0, ...., l, CH$,E. 500, 620, 600, 600, 650,10010 VAL ' It.CCEPT, 13, 7, 0, .. .., 1 6, TLS,Et NOT E' GOTO 1 0 0 0 0 : ON e. GOrO 990, 850, 700,905,900,500, 910, 1 0 0 1 0 épondeur"; 590 ON Et GOTO 840,830, 700, 835,830, 500,840, 1 0 0 1 0 , VIDRECT, , PARAHT, 1 , 7, 4, 0, 0, 0 : ON AFFIC & ACCEPT, 13, 5, 0, ...., 1 6, N$,Et 810 PO .. 1 : 820 & DEPLACE, l , I: HE,MS (1 - Il) ; : NEXT �: � . , . INVERSE , NORMAL , ACCEPTF, At ON NOT AI GOro 1 0 0 0 0 : ON AI GOTO 1 1 0 0 , 70 0 , 9 9 0 , 1 070, 500,500,1 065, 1 0 0 1 0 , 7 0 0 780 NEXT 790 ' DEPLACE, l , 2 0 : , AFFICHE, "Pour valider votre message : "; : .. " ; : "; : , 36 , LIGNE: : ";: INVERSE : , : ' AFFICIŒ, " , DEPLACE, 1 3 , 2 1 : 'annuler , INVERSE , LIGHE: , M'FICIŒ, Envoi 1065 ' ALERTE, "Touche interdite", 0 : GOTO 1050 1070 GOSUS 5000: GOro 1050 1099 REM ------------enregistremen t---------- 1100 ' M'FICHE, " ' Ai'FICHE, " Sommaire "; : "; , VIDECRAN: , DEPLAŒ, 6, 1 2 : , AFFICHE , "Enregistrement en cours"; AFFICHE, "Pour 1 1103 PRINT D�"open"FIS",1255" 110S PRINT D�Hread HFI$ H,rO INPUT LG 800 , DEPLACE, 13, 5 : , AFFICHE,NS; 1110 801 ' DEPLACE, l3, 6: , AFFICHE, PRS; ll20 LG - LG + l Porn's nO 34 1130 PRINT D$":.trite-FIS" , r O " ,' PRINT LG: PRIN'!' 110$ : PRINT TE$ ,' PRINT NO$ 1140 ODE, O 3144 PRINT DS"write"FIS", r "LG 1150 PRINT NS: PRINT PRS: PRINT TL$: FOR 1 .. 0 1160 PRINT DS"close ' PARAHT. 0 . 2 . 0, O. 0. 0 : ' HTH, l : ' AFFIC HE. ,,�- t TO 6: PRINT M$(I} : NEXT ' LIGNE: 1 1 65 FOR 1 .. 0 TO 6:MS (I} 1169 REM --------- - --darnier écran----------- ; 1170 & VIDECRAN: ,nt " " : NEXT & DEPLACE, 6, 1 2 : (64 t 39) ; : , CHR$ , AFFICHE. H "; : , AFFICHE, � & AFFICHE , "Votre message est enregi stré . LACE, l l , 1 4 : t 0. 0. 0 : ' AFFICHE, "précédent 3146 .. (lBl CHRS NTH, O : , DEPua. 9, 5 : , PARAH'I'. 0, 6. 0, . . " : & DEP & AFFICHE, " . . . t,ites "; : INVERSE : & AFFICHE, " Sommaire "; : & , 3148 , AFFICHE, H H; : & AFFICHE, �Sui v , �;: .. IN Suite , PARANT, 0, 6, 0, 0, 0, 0 ,' , " DEPLACE.15, 7: � INVERSE : , DEPLACE , 1 1 , 6 " LIGNE : , AFFICHE, " : "; : : "; : AFFICHE, "Fin OCEPTF, A I : OH AI .. 0 OR AI .. 8 GOTO 1001 "; , PARANT. O. 6. 0, O. 0, 0 : VERSE : JI!. Retour : -; , , LICNE : , AFFICHE, INVERSE : ' AFFICHE, .. Sommaire O:PO .. 4: GOTO 500 3000 REM ----------fonctions de service------ 3010 , VIDECRAN: PLACE , 1 0 , 4 : 3150 , VIDRECT, l, l , 40, 6, 4 : & DE ' PARAHT, 0 . 2 , O, O,0. 0 : ' AFFICHE. "_ " , PARAHT, 1 . 7, 4. 0. 0. 0 : & AFF ICHE, " Fonctions de service";: , PARAHT, .. t 3152 , DEPLACE, 32, 1 2 : , AFFICHE, "t " ; : ' ' DEPIACE, 1 5 , 1 5 : cer : ";: , I 39) ; : "; O. O : ' AFFICHE, "Pour renon INVERSE : ' AFFICHE, " Somm 3154 H, ON 7, MPS. El 3180 ' DEPLACE. l . 2 4 : " + 1} IF ES .. 1 THEN ' ALERTE, "Mot de passe e 3196 .. IF ES 2 THEN ' ALERTE. "Erreur. encore 3198 , AFFICH 3200 .. CHR$ " PARAHT, 0 , 2 . 0. 0, O, O : " CHR$ (18) t (64 + CHR$ 1 TO 3 : INPUT IS(I) ; NEXT & DEPLACE. 8. 1 4 : tacer le fichier " ; : ' AFFICHE, "Ef , DEPLACE, B . 1 7 : , AF " AFFICHE. '" t " " t .. . , + IS ( ' AFFICHE, .. . . > t (24) CHRS 1 10 7: '> (24) CHRS ' DEPLACE. 2 , 1 6 .. + MSS (I - 1 1 t - t I$ ( 1: " + , A CHRS , ACCEPTF, A ' : ON 3230 ON A' GOro 3240. 3250, 3140, 3235, 3240.500,3 , DEPLACE. 1 5 . 2 2 : , AFFICHE, "Votre choi t "; : & INVERSE : NOT AI COTO 10000 260,10010, 3240 3235 GOSUB 5000: GOTO 3220 3240 GOSUS 4 0 0 0 : GOTa 3220 3250 NO .. NO - 1 FICHE. "Changer le mot de passe"; 3252 ' AFFICHE, " En voi "; 304 8 CH$ .. .... ON t " " + + I$ ( ""> (24) 3220 & DEPLACE, B, l l : , AFFICHE, "Lire les me ssage s " ; : .. ' AFFICHE, CHR$ (24) ; : NEXT 0: GaSUB 6000 3050 CHS (NO) ; + t H " FOR l 10010 x : STR$ rrICHE. " , déconnexion torcée . . , " ; : GOro 3028 ES .. 0: , VIDLIGNE, 12. 0: , VIDLIGNE. 15, ON NO > 0 GOTO 3 1 7 0 :NO " ) : ' ALERTE, H C ' est le premier message", l : GOTO 3220 3260 NO .. NO t 1 3262 " " : , AOCEPf'. 29. 22, 0, ...., l, CH$.E. NOT El GOTO 1 0 0 0 0 : ON E' GOTO 3070.30 3065 GOSUS 4 0 0 0 : GOTO 3050 3066 GOSUS 5000: Garo 3050 3070 IF CHS < " 1 " OR CHS > 3299 3300 GOSUS 700 3100 PRINT DS"open"FI$-, 1255 3120 PRINT DS"read"FIS " , r O - : INPUT LG t " DEPLACE. 2, 3 : t & MODE, l : CHR$ Pom's nO 34 ' AFFICHE, "Cette comma , AFFICHE. "des messages stockés , " ' AFFICHE, "On ne peut ' DEPLACE. 5 . 1 3 : 3325 R$ ... "": , DEPLACE. 5,22: , AFFICHE, "Pou r effacer : (64 t 3 9 ) : ' AFFICHE. "Co nsu1tation des messages enregistré s � : , PARAHT, O annuler un effacement . . . .. , PARAHT. 0, 2 . 0 , 0. 0. 0 : , AI' (lB) , VIDRECT, l, 1. 40, 6, 4 : , DE , DEPLACE, 5. 1 0 : : 3320 PRINT DS-close": , ALERT CHRS , VIDECRAN: nde supprime l ' ensemble " : , DEPLACE. 5, 11 E. "Aucun message reçu", 1 : GOTO 3050 , VIDECRAN: REM ----------ettacer le fichier--------- , 7. 0. 0. 0, 0 3310 3110 FICHE. �_ " LG GOTO 3170 :NO .. LG: , ALERT ICHE, " Effacement fichier "; : "3" THEN ON VAL (CH$) GOro 3100. 3300.3500 REM -------------lecture fic------- ------ 3135 NO .. LG .. < PLACE. 1 0, 4 : ' PARAHT. l , 7 , 4 . 0 . 0 , 0 : " AFF 0: GOTO 3048 IF LG .. 0 THEN ON NO E, "C'est le dernier", l : GOTO 3220 00. 3065.30 66, 3065.500. 3070,10010 3142 + ' DEPLACE. 2 , 1 5 : 3) , VIDECAAN: , DEPLACE, 1 0 , 1 2 ; E, "Désolé. 3140 .. . .. ' DEPLACE. 2 . 1 4 : 2} un essai ". l : GOro 3014 3130 + ' DEPLACE, 2, 1 3 : rroné". l : GOTO 3014 3075 (18) PRINT DS"read"FI$". r"NO FOR 1 GOTO 3014 3020 ES .. ES t 1 • CHRS 3194 IF MPS .. MO$ GOTO 3028 3060 , DEPLACE. 1 . 1 6 : ' PARAHT. 0. 4 . 0. 0. , DEPLACE, 2, 1 0 : ' AFFICHE. " Message nO 3018 3040 , + 3192 GOSUB 5000: GOTO 3014 3030 (64 CHRS FOR 1 " 0 TO 6 : INPUT MSS (I) : NEXT GOSUS 4000: 3024 + (l8) 3190 3016 3023 CHRS 0,3000,3016,3017.500.3018.10010 3017 3022 (64 t 3 9 ) ; 39) ; 3170 NOT El GaTO 1 0 0 0 0 : ON el GOTO 3018,50 CIIRS t , AFFICHE. H " PARAHT, O, 4 . 0. 0, 0. 0 : & AFFICHE, " · " t AFFICHE• 3014 MPS .. " " : , SECRET, 9. 1 2, O. "Mot de passe : 3015 t (64 t 39) : (64 t 39) H; ,ire (18) CHRS AFFICHE, H ' " t NVERSE : & AFFICHE, " Envoi 3013 CHR$ , DEPLACE. l , 1 2 : 0, 7, 0. 0, 0, 0 3012 + (18) CHRS t. H "; : . " OUI + Envoi 3327 ' DEPLACE, 5. 23: er : aire " .. : , , INVERSE : ' AFFICHE "; , AFFICHE. "pour renonc INVElI.SE : ' AFFICHE, " Somm �; 3330 R$ .. " " : , ACCEPT, 10, 16. 0, "Ok pour tout e 37 ffacer 3340 ON ? ICHE, � 3 " ; : RETURN � , 3 , R$,E1 NOT E1 GOTO 1 0 0 0 0 : ON E1 GOTO 3380,33 50,3300,3360,500,500,3350,10010 3350 GOSUB 4 0 0 0 : GOro 3330 3360 GOSUB 5000: GOro 3330 3380 IF R$ < > 3400 3410 3420 & ALER'!'E, "Choix impossible", 1 : RETURN 8000 VTAB 1 0 : PRINT US; : CALL 9000 "OUI" THEN R$ .. "H: & ALERTE, GOTO 3330 VTAB 23: FOR l .. 1 1'0 23: PRINT : NEXT 9020 PRINT PRIN'!' D$"write"FI$ � , r O " : PRINT 0 : PRINT M 9030 PRINT 1 activer l e serveur 9040 PRINT 2 lire les messages PRINT D$"close" 9050 PRINT 3 effacer les messages 9055 PRINT 4 quitter ce programme": PRINT & VIDECRAN: INVERSE & DEPLACE, 6 , 1 2 : & AFFICHE & été réinitialisé . . . � : & AFFICHE, � . . . faites "; : : PRINT DE & 9060 & AFFICHE, " Sommaire " ; : & : 9070 ON HOME : END & 9100 PRINT : PRINT & VIDRECT, l, 1, 40, 6, 4: & DE VIDECRAN: & PARAHT, 1 , 7, 4, 0, 0, O : ICHE, "Mot de p a s s e " ; : & & AFF PARANT, O, 7, O, O, O DEPLACE, L 2 3 : faites : ";: & AFFICHE, "Pour renonc & INVERSE : GOro 40,9100, 9400, 9080 PRINT D$�open "FI$ ",1255 PRINT D$"read"FI$ " , r O " : INPUT LG: PRINT D 9130 AFFICHE, " Envoi & DEPLACI!:, l , 1 6 : & AFFICHE, �Taper le no & INVERSE "; & AFFICHE, "Taper le 9140 PRINT D$"close�: PRINT HA 9150 il PRINT "Vous a vez 1 THEN & 9160 3540 & CADRE,25, 12, 35, 1 4 , 2 , 0,5, 0 3550 & 9170 INPUT "N� du message il _ H;N1$:N1 VIIL lire (N1$) IF Nl < 0 OR Nl > LG THEN (0 pour tlnir PRINT HDe 1 à "LG� . . . H : GOTO 9150 CADRE, 25, 17, 35,19,2, 0, S, 0 9172 ON 9175 PRINT , PRINT "Message " . "Nl" ON Et GOTO 3600, 3590,3500, 3595, 3590 , 5 0 0 , 3 9180 PRINT D$"read"FI$H, rHNl 600, 10010 9190 3570 ON 3580 "H: & SECRET, 27, 13, 0, "", 7,Rl$,Et NOT Et GOTO 10000 3590 GOSUB 4 0 0 0 : GOro 3560 3595 GOSUB 5 0 0 0 : GOro 3560 3600 IF LEN (Rl$) < 9200 & ALERTE, "Minimu m 4 caractères", 1 : GOTO 3560 3610 R2$ " HH: & SECRET, 27, 1 8 , 0 , "", 7,R2$,EI 3620 ON 3630 ON Et GOTO 3680,3640,3500,3645,3640,500,3 NOT Et GOro 10000 FOR l - 1 FOR l - 1 3645 GOSUB 5000: GOro 3610 3680 IF Rl$ < > R2$ THEN TO 3 , INPUT A $ : PRINT "--> INPUT A $ : PRINT - , TO 7 , PRINT D$"c1ose " : 9400 PRINT : PRINT HOk pour effacer TOUS les m 9420 9430 GOro 9020 ?" INPUT �Répondre OUI pour effacer ",·Nl$: > 0 HOUI" GOro 9500 PRINT D$"open"FI$",1255 PRINT D$Hk'ri ta"FI $ � , r O " : PRINT 0 : PRINT M 0$: PRINT TE$ : PRINT NO$ PRINT D$"opan�FI$",1255" 9440 3710 PRINT D$"write"FI$" , r O " ; PRINT LG: PRINT 9450 Ma$: PRINT TE$ : PRINT NO$ 3720 PRINT D$"close" 3730 & VIDECRAN: • DEPLACE, 6, 12: INVERSE : ACCEPTF, A t : PRINT D$Hclose" PRINT PRINT "Messages etta c é s � : GOTO 90 20 & AFFICHE , "Le mot de passe a été changé . . EPLACE, 1 1 , 1 4 : & AFFICHE, " . . , faites ": "i : & AFFICHE, " Sommaire "; : & D PRINT "Ordre annulé": PRINT 9899 REM ----------tin & déconnexion --------- 9900 & VIDECRAN: & DEPLACE , l 0, 12: & 9910 10000 PRINT D$Helose H ; & VIDECRAN: & , DECNX: REM --------------sous -prog- .------------ in utes, "," : & ALERTE, "Toucha inactive ici", O : RETURN éconnexion forcée . "; 5000 & ALERTE, �Guide indisponIble", O : RETURN 19999 & CADRE, 4 , 1 0 , 6 , 1 2 , 2 , 0 , 5, 0 : & AFFICHE, �l 20000 & AFFICH & AFF ' FLASH : & AFFICHE, HMinitel inactif depuis 2 m 4000 10010 GOTO 40 DEPLACE, 3, 1 2 : 3999 CADRE, 4 , 1 6, 6, 1 8, 2, 0, 5, 0 : ; AFFICH E, �Au ravoir . . . � ; ON At .. ° OR Al .. 8 GOTO 1 0 & CADRE, 4, 13, 6 , 1 5 , 2, 0, 5, 0 : GOTO 9020 9500 010: GOTO 500 & "A$: N GOro 9150 3700 E,"2";: "11$ : 9250 3690 MO$ .. Rl$ �.. : PRINT FIUNT D$ N Nl$ < & ALERTE', "Les deux . 9210 9410 mots da passe diffèren t ", l : GOro 3560 " 9205 essages GOSUB 4000: GOro 3610 . EXT 680, 10010 3640 & NOT Nl GOTO 9250 NEXT 4 THEN IF LG > �LG" message",· : PRINT "s ",· PRINT : PRINT ) ; nouveau pour contrAole"; 3560 Rl$ - IF LG .. ° THEN ucun message reçuH; PRINT ; PRINT : GOTO 9 & AFFICHE 020 & DEPLACE, l , l l : uveau mot de passe t "; : 38 (R$J 9120 , " Somma ire "; 6000 "4" GOT , er, 3530 VAL 9110 ,0 & G o 9060 9080 PLACE, 1 4, 4 : ON R$ < � 1 " OR R$ > ET R$: PRINT : GOro SOO Votre choix "; : VTAB 23: PRINT " REM --------- -changer le mot de passe---- 10: 3520 : " : PR INT ACCEPTF, A l : ON Al .. 0 OR Al .. 8 GOro 100 3510 : PRINT HVoulez- vous PRINT 0$: PRINT TE$ : PRINT NO$ PLACE, l l , 1 4 : 3500 REM -------------menu général ----------- 9010 PRINT OS"open"FIS",12SS" , "Le fichier a 3499 - 868: PRINT RETURN "Réponse incorrecte", O : 3390 7000 & DEPLACE, 9, 1 4 : PRINT D$Hclose " : & AFFICHE, HO & DECNX; Garo 4 0 REM ---------------erreur--------------& VIDECRAN: me serveur " ; & AFFICHE, "Désolé, prob1é & DECNX: PRINT D$"close": PR INT "erreur " PEEK (222) : END Pom's n° 34 Cfiristian Piarc{ l Les sources Procode, pour Apple présentés ici doivent permettre à chacun d'améliorer, d'adapter à ses propres besoins les nouvelles instructions serveur. ! .u '" 1/. Ils sont présents en format texte sur la disquette d'accompa gnement de ce numéro et sont récupérables par tout autre assembleur. Dpi ,u Id. et. Ida ur7 10 na IdO ota Id, - pl.( put JrMlI Sok d.�"c pJ..'P pl.daU ou .norr HAD .U CIld,y De" cl>.r;et !1nc:-d CIOp !:>n. JO SI , h coaaaM. CfId • , .. " " 1 ! .. " .. " " " " " " " " " " " " $DEI'I� $DD�e ehhtr ,,"rq't chrqo. ,'U page 75 ou, pour les SM st) $01>18 " " " " " " " iO " SI Hncmd $Il un «d.lNt SO $IFl Vd.Dut ok Hy L2 Ida nn,y Porn's n° 34 '" «, '"0 '" ". lWacU�r , del' ,inn.la ! " $100 : ..uv. anchn :vecUur tz . .utlo<l.2 ..utlnd+! U ..utlnd'2 dey lin. S1 ,.. lO '" d..cnt ,e' n'ut pa' , ..eut qotby�e :poaitign hor1< ,poo1don vert! .. ,.. =, �. ,," ,"" '"0 '" urr pUc:-d e_nd., y � lCO/cpan d' a!>ora " ,la 10n"uou< ,puh 1. n_ 'lul-...... " ". =, : d.. c","""nd.. .. �." '" noroli_ qetbytc , .. 0" t2 �o ,.. ,., '" '" dblh iv.. lhor ,.. " '" , .. '" .., ;poolUonn. , le cur..ur potition , .. ". ". ". '" ". ,," 0'0 000 ". '" ". ,.ode dbl. h&�t • , Q ou 1 ..uleunt horoH_ ""r..url ch�""," , .. ,.. ptrca<l Iv.. .. , .. pt<COI<I Ihor qotbyte ,., ,," ,e_par. , "I>.ocun. HF' <Irop �o , .. UA $Il Id� "'"1> tin. I�. ""'p De" tin. inc ,.. ". o� ,OEct .. inc '" n$U st .cru IIDI bn. ine ,.ynt... .rror $DDH o." n_a ..utincl uudncl'i , ..ut. numéro 32. $H"$ .un $CODO " " bricoleurs, dans le .,.. vun.. vu"n. I�y l>aq !ne ,lnlthlh. , 1. ..ut ' v... la ,ro�tino concu"'. ,.. '" 'BEOt ptrqn onlr< .tatuo ,on � trOuve ..,.tln<l.1 vadrco"utlnd.2 l'ordinateur ne sait ...out pt. lcadr=- ou l�a ota d'un serveur si sonne ? Rendez-vous kbd _10... _ut. ,n' d. 10 c_nd. l�' ,.. UI $1l4U ql'0p" fi Source PL_2 Assembleur ProCODE ,',' Inor hClOO rO"pn. rr_vi t..top ql'brtc pa• •u " nO",,"" ,tran.fon•• on ,.inu.cul. et , .tOCk. 1•• cHoct " u.qu" 1 virqui. pas que le téléphone "p ,FPED cout dau U Quel serait l'intérêt .-----------------._.. • H ,""orel>.. ordre , acc.pt .--.----------------_ . eh\c_ ,.ub.nt dana ptread ca...ond.,y ,Ubl. l"p trouve nocaod ca<! UOO pnCOl<l Idy Id, � inc ,Ile 1 tz _ trouve tin. ine l>aq Source PL.1 Assembleur ProCODE • il ,ut_on our un LO clld lU Sil lu o� l:>eq nllCo lnc I<ly cpy lin. llOf> put pl . I put p1.2 pl.3 ,v.cteur , ,cl>.o<c�. .. h� oH dok �.lInt.2.1 put put ,Innoll. nouvnU " 1<1& tin. d•., .ty oty " put d.u..., Sok Idy Source PL.O Assembleur Pro CODE brI. ,>�.l>ut tin. «. ,.. SI U4C urs l<d.lNt ur' Ido .. v.cuur,y tr••vi Ch�Ot< fa""" forpnt b.,..,.1 :invhlDl. ,tn'u. ehoin. ,c' ..t 1 Chain• " 'cu",r. pointeur ,our chaln. ,t_ ..1r. forpnt'l " ctorpnt l , y 'M' Ihor " Cforpnt l , y ,,6cu"'n .duo.. ,do 10 choin. 39 n. " S!ln.orf pu.y ..py tO bno SO ••• �, srtnarf '" j.. onvolcu '" ,. 1" SpolO -,- nb<:or d. '" $lQok '1'.'02 'oconnoxion l.unonU . . . to..po d. , dopallt d. , al dl carr.cu d. dblh d. '0.... 0 ,�ont.oh d h. tchlonc ,dlnO 1'6enn -, �. .., 'U ... rina cOllpuuro dleuh Inltc�t j" 1110 " ." '" n, m ". '" '" ", '" '" ". '" ". no '" '" m n, '" trop ,.1 nk...du. ,.Uoc. lI'1no 0 j., " flqO '" '" �, "". ,o r ''''' dfb dfb ", ". Ile dfb ", ". w " tehfonc tUO dobl , oui. _ , onvol ,toucho !oncdon 1 nb<:or lQltt OH '" trop rion c....cu t ', ' " ;.n d.. ou t' . ' 'ZOO, y SO rhn Ihor " ... jn , (01 ..crot, t' " Ive< paddon " .. onvol palalen _.. Iho• IVU polidon lQatt �, j. . j. . ,affiche un point SI S2 nonrlp ,upolltionn. 'CU - CU _1 hu it. , curuur en dtbut ,de Ion. ,.Ulc" IQ' pol",1 """eurv '" Unacc , podüonn cu...ur :en d'but do Ion. ,"I len. vid., '"0«, on d.buil " ,p.. flçO, y : eUacl. d. c.. . So " .nvoi Sel " cur..urv SU·. SU,Ul,UO ... UZ,SU,Ut,UO,UI .. debl S.tr ' a orr.C.r . d.bl 1.Ut,HO,HI,UO Uz.,u,ur,uo,ul , \ .tnuu " ,1noctH " j-, .. non..� lU oU d U depult :I"' curo.url dop.out ,u .n 'Ü� hllpO'l plnt ." ... 'rin d. lono' U.... ° lU n. initcptl Id. ,u ,a toh 1 Uni ,lh. -.1nuu , ......'1. d' aler.e ,den. 1_1non" .Chl M' .., OU m " Hln , d'po.. t 0 ehlido! cur ..url U Ida sorUQO, ... :MinH. " pond pal ,œ Id... ,.. Cp. �, ... Ida ... 'U jn ... .tJ .... ... �vup lvorpntl , y cll�M" :atund variable ptrQet , entUn vupnt vorpn •• l vorna.. v ..no..n .. cuuc" " tecko lut donl (vlrpnt ) , .,. ; vorloble entilro " (vupnt) • .,. cur..uri nbear lQatt SUn ,. . .nvol k" " dup eh_c(lll. ,attl"d var chl1n. ptrQet :pcur atrichlr 1& v..n... :chaine plr dH.ut n=ch $1.. ''"'l'fl''1 Idy fnet - • ou " :enl". 1 U �I Ida lU :oi ,., ,u j., ... , l a d6pllC. " ...arnalltl nOnlchtl huite .lurr vorl'flt forpnt ... - ,erfoce li;ne 0 ""vot. <1 Ida :chllr.• en $201 nb<:u j>, '" Sluite li :clll.cho lipoce :pour lo chain. " �, œ. - Sorr Qetlpa ,dler. ... " Utl Ullpo'2 ley , �O fretop.1 (vorpnt) , y OU " ute jlT ,doubl. ".uuur 1 " envoilB 1540 '" '" n. 'M ... , fin "0 00... eu...urv dblll rutop ,n • . • .0.... 0 SI 0' U40 envol '" '" ". n• j .. U " U40 InvOI nbeu 'u 'Rion ' initep. " Id. jn '" '" jn '" '" .., ... ••• œ' nb<:u uh ,II cur..Ur " InvoliF carrecu ... " ,.. , politienno SI ... 'n jn Ilnen cn :r.cc_nel .� ...,,_ cu.uurl envol ... ,cu...ur vhlble lnl tcptl _ :noll chl1nl r.tour '.p do d. Id. ,., SU,HI 2 Unaec ,annulation, ... n. j.. ,cone hon zono ,. tH<:h. $0 n, nb<:u '" . .. jn '" .......url ... '" n. ... .., dobl politlon M' j.. . ., 0>0 ,non, rin d ' occ.�t 1 CH , i etroc.. 1 , ncul e d'Un cun ,correcüon, jn ... '" j" j. . ,.toek. ur reçu '" " ,>0 ,.nnulotlon 1 n!>car Iver '0' ... t' , ' dooc..t " '" lI\or jo, nb<:ar nb<:or '" ,' . ' jn '" " ." ... j" ,couc controlo 1 dOplut �, ". 40 ." ". jn j.. '" uo '" Hl 1 'u .n ,rnour c�.r1ot 1 'n il on M' j-, "0 '" . .. �, M' '" �, M' .Hal j" '" lU ". '" '" '" ' eoJIIpu..... , '1 ... U> '" '" tnt ., �, œo ... ... '" j" j" ,.. ... .., j" ... flOO .U �, �, �, œ' polldon 'or n. .., curoeU .., �, .., ". :tun.ror... Ile ,.n envol U " Hnace n!>car �, j., ... j.. ". ... ou .Ilund un cuoct. "" jn ... '" ... -, ... j .. j" " tpldlp.ol '" �, ,n n, '" n, n. "lIpoH Inltcpt euroou " '" j .. " e....cu tnitcpt '" ... UllPO'1 jn -, �, ... ,ine ho C01O.pt . ,,. '" " dnh <161.1 j" .., ,Ion; chl1n. , 10n;,,*u• •tt.ndui d. d. chlld.! ... ... ... j.. orb d. horoU. �, $O.... $U,$l2 $20,Ul.$40,SIF n....," '" $IQOkl j.. ... ... al drb IQaU lQIU " In ltcptl dob: I;ch d.ca 'p" 0 ,pt. donnont 00. S.!fl;O SI 10 .ta n. tl onvol '12,IU,UF.HO.Hl ,.., ... c.....'\I"V '" U 7.ur,IU,Ul.UO SlQok 00. ... 1u j,.p QIlDytc IQ.tt horoU. M' onvol '0' bn. " il 5pol0 j .. '" bpi Ida 1<1. �ptr),.,. " SIQokl U dOcl_,r ",,"q j.. Idy rorl'flHI tO ;choroe IQ de .1 Porn's n° 34 ,.. -, �, ,.. .. �. j., ou ,U '" ", '" ,U atHena :parl1r ". nOI ,or (plrl ,y 110l,y onvo1 '"' bne lil IdK IMI" Id. ju U. ,,. o<le 14y ju ''"1' "" ntleu l;ott Hlnp la ehd... j., ", 0<, " , .. j,,-p ,IV.C d.. polnu ,al' 1<1& tG n. Il n. "opou, Ine 01 "Ob) ,or Initept sa Ine UmjXI Ine t",po'l jo. n. ny 1"0 and ta!. hl .,� bn. bn. SI m .!rlch.. , po.hionn. CH' ,.n rin d. chilu :P" dHlu. Id. tO .ta $52 jlr H:uovl lu ch.otr tupo'2 oh 'or "orro"u inltept 01 fil draL "... uc.. Id. IMIq jo. Id. ","p ....1' be<: " 1' " bill Id. :1.. srln ; lncr c","pt.uu S!inl ,.. tpldap que.. Iq SO 5200 Ilorta un tU rnrocu UO fnrKU dot>4 :retour cl.... lot 1 ,oul, _ , onvol Hou.. n. fonction 1 ,oui fO ... lU .".p "u,"'" Mo tOO '" '" -, �, ,.. �, �, ,� '" ," '" ", ou oU jor beq ""p beq oU j"'p Ido jor Ido j"'p III jor Id. hl hl , t u n.to r • • IIC ,.n .nvol ldy ldl un '" '" " " ("arpnt l , y , .. rhb entUn " Porn's n° 34 '00 :quol ut la ,.,.roct ."lvlnt 1 :poin. virouia 1 '" oIClr. 110 .nvoi lU honne h2 lO li (VI<PMI ,y (Vltl)tlt l , y U UC� bit bpi $PC'" tcOU honn.pa '" brI. S.I Ido t1 Ido !1 ju CI>" Q.tbytc UI ,oonn.-t-Il lu :1/2 ncond. 1 : ('vito lu :tlnto"."UI Sftn :\_p .nvol !>c. .... Ion! Sh.I jor Cpl< !>c. •... ..otbyte :\.. cp" !>c. qotbytc ,nund hl, ."vol cl'lXCOJll tO :cllorello clloino ,c' ••t 1 cllain. na ,.. cp' !>c. lac.o'l o,. (orpnt_1 lO {torpntl , y :tIeU�" lonouaur U7 , ..xI_ l' SOOO ,cl..etira. I.rtcol jar CI>" beo 0" j.r ... j.r cp>< UQ ptr,y tO '" ." '" ,.. .., - ' ....nd un In.tlnt :lVlnt d. renoncor :-oyntlX arror enr..a, cpy '" ", j .. lO ,.1 VI< entUr., ; 1 •• 2 GCtoU 10nt ;n'9"tHI , blp blp oU �. j.. MI bu Hln (ptrl,y onvolc.. t2 ,.. 'cou "'" Horpntl , y , .icu�.. .11..... ,do II cl'loina Idy ldl day " .h... ldy ldl '" ptr,y lO SO !Ica<> forpnt '" " bill '..p ,virq"le 1 ,cl'lorch. vlrloble '" 12 Idl oU Idl .tl tI chXc"," ptrqo. urpn• urpnHI varnl. Vlrnl.+1 fil :\.. n2 ton. jor jo. jor oU b7>. Uorpntl , y :r'cu�ro lonçuaur frlllvi eHo'r .ta 1 tO lor j.r =p !>cc j"" d. ", Stinl UI, Slll, Sir, su S12,I2D,SII,IIO,SlF flcao+1 t"rpnt_1 Ser UO'" dlb honnopl Idl Hln Idy ..1 torl)tlt Il cl'lrqot SI onvol '" foCll:O o�. Idy Idl sooo Ida '"' j.p j",P ldl j.p dtb o.y Ida Ind SI nonrp fnaC.. !>n. "0 .nvolc.. ..� ch..cc", Idy ldo day .ta c(>y iI,tr l , y jor , "pp"l " InHcp'l jor Idl .u ldl .u ldy ldo SI Ine bile j"p 'or Id. Ileq Idl ond bot" S il O Il flq , dUch.. .-------------------- ln. politien "ot... 1o 1 cl>k.. �rqn vupnt varplt'l .......... var.....l hl .Lou. fllqnoO " , ,,,,,"pat. SO 'o. d.pa... d.cl.. ,y " • nvol ldl '"' Uln ,.,., u, accapU " IIln"•• , InlctH :2 1010 , rln , I i•• IIlnu•• , .....q. d'ol.ru ;1 Source Pl.3 Assembleur ProCODE onvol nbcO< .. ncnrp U �. , .. let 10 n""x. , '- . • S2 Iller dOpa.. ' '"' �, " •U ", �. 0<, '" ,.. l'n,y " nbc:ar fUnen "p. .. '" ,pund 1·."..... U ({o<pllt ) , y :dO la ellolno '" ep)l IMIq m fn nben ,otun"... , nrln; ,lOO Ion; .. ... bnl Hln" ,.. ,., nn...>l ,ellolno 111 011. on 1'111. 110n;..0 quo la III ,� - Id. Ulnc:h " «(O<l"'t ) , y l;on C torpntl , y : rku�r• •dr.... Id. 1. enal... SO oo'byte ... '" " nlqnaO,y onvol ,VI .n I1qna 0 :at l ' .rr.ca '" " '" ,.fUcl'lo SUn Il Clloln• Sorrf Ihl Il'IZ Ivl h2 Seoule.. lecuHd Hypo Serr! Shl qo'bytc tU Serr! Sv2 ç.tbytc U Sorrf Stypo qotbytc Sllçnlq. oa'byte U ,.. or. tHO _le .. qatbytc .n ", un ,.p do do do do dl do do hcrol1. , �, œ, :h2, 141 Sorr! jor h' :vl, Sorr! Svl beo .u ,Ittond variabla' U� , •• cou1our fond, Scoultd us. $dob 41 §1iqnoqe do §dah Ida no .be ""'p bec Ida .be ""'p [2 Dec j .. cur..ud Ida no Ida IMq c010""e Sv2 , vl > v2 ? Svl Srinc Surr ocle U3l" =p ven bne Id. :I.e j.e Scolod m Id. ode un StOO 1" envoi Shi un iliqn.q. Idy uor .nvoi envoitF UH 11qnoqO SVI il,y 1" envol ehkce.. ,virqule ptrqat :cherche vod.hle .to oty vupnt v..pnt.! :entUre Id. .nd varn'" v..n....! boo.J. j"p S.I .Iserr I>lt plnt bpi h2 jH envol ceulc Ida t2 îH envoi !>ne Styp<l !>na StOl lne hort m fcoulcH coule ", 00' no coulf tfiB couIc+! ", " .., .., coulcH coulf ", '"' colonne ,U ,Si typa 2, loh.. ,la couleur tond ,� recoitl : ..ttend 10 r'pon•• ", jar �, " ,coroc reçu ,"' '" o� ", Suul ,., '" ,.. , "' ,.. '"' UJO ,., repot ,� '" ", �ta §type '" cauet QraphO Id. ota Id. ah�, y ll.çn.qo onq1e'l coule " 0 m ota Id. .ta Ida ,� Ih,y .M,y .nqled qrophl,y qupM Svl ceult ,typa ° , l-qroph ,typa 2 _ uxu ,po.ltlon vert. onql.o c..oc� ..pet .n'lied Ih do .dc .ta U40 lb vert jar liq,," co cd ldy Styp<l Ida II>, y caro"t .u Ido .ta Ida ota Ua 0'0 Uc .ta jar Ida .ta ota Ua 0'0 .de ol>q,y .nqleq vert 11'1"e U onqle'l onqled Shi U4C Sv). ode ota lnc Idy U40 vert vert ota jn c.roct colonne Ido Sv2 Stype c'l,y HJr -, �, vert 0'0 ",0 m ,.. 0'0 ",0 ohq ohd •I>q •bd Orophl Mb dtb Mb dfb d!l> dfl> dfl> Mb Mb <lfb dtb dfb dfl> d!l> d!l> dO> dfh �, SI " '0' ,., • ..nvol ,tuee I1q du 1>0. wq : annul e 1.. onql.. ,colonn. 'lOuChe , po.ltion horh '"' lor =p beq Slnu1 JOO SOO,S12 . .. . ., SlO,$2J,UF $2J,$70,$7! S,",,$35.$7D US,",,",$711 UO,$37,SOO no, S6P, $00 SU, $7S,$OO $21,$7"-,$00 'Ol!, SO!, SOF Sbel Srine ,,,,,.iUon vert ,boucl. de tuct ,chuq. type c..." ,troce la colonn. SI Shi'" • ,colonna droit. , 1 dlOll chrqot H ..111 t' , ' SOO j"p onerr U bne sa j.. qetl>ytc tn be. du boI1 1c10 Shl.Jl lor envol Ua lf< j...p envol j�p 110.011.. SI (10 (\3 so rta ,ouI, attend un UIJ ,corocUre . m USJ SllO UH 'o, : - HI : .lnon on boucle :dUp _ 1 ot U :,,"t 10 �'pon .. :don. vHl (vuprttl , y m (vorpntl,y �, S·chou," ,"' '" " wait Ido Scopyr,y �, SUne '0' UAS J .. envol '"' 00. ,�, wdt vdt j .. J .. J .. J .. ,., j.p d. dfb Ol"B ". ". ". ". ". ... ... 0" 0" ". ... ." ... ". ". ". ". ". 'Il? U "'" .,. ,., curo.urv Id. SI :reçu $\3 1 :attend 1 in.tont watt wdt '" envol decnx :.rhe. 1 ' 6eron at , .ort 104, 57,27, I l l, H. 27 $BA, SI'.5, SU, $15, $B7. 'Cl, $BA n5, SU, SS�, $9C, $DA, SA' $BA, UF, no, $�S,$CA, SOC, 'C� $00, US, $D5, SCO, '07, S03 'CO, 'DO, 'D7 , $1 $, 'fS, $CII, $CI $FA, 'u, 'CC, sce, SCE, SI5 $9?, 51B, 594, SU, SU, SEO. $D5 SCA, SOO, SD?, 51!. $&4. '05 'os. sct, SCO. SIS. S&C, $EC, '15 sco, 'Dl. $15, ,�., sc�, SC, $CC, SCB, SOI, SCA, $05, $CD, SM 'U. SEC. $ID, ,C6, UC, SIS $9�. UC, UD, UD. 'IS, $H, sFS Ut, $IS, SEr, set, 'El. SIS $13, $IS, SFS, $CA, $ÇI, Sl2, $Di SU, UI, SF6, SFII, SFA, SFA SU, $VI, SU, SlD, $9�, SIC, $15 U6,He, $'B. S9O. $9�. $lB $97,Hl. $lB. $tl. S9', $00 • eur..urvi cnxn en"n un :�o UModvu I on • 6chou' reeoitl ,.. huat S2 Supon .. ju c,' ... ,,. -, �, ,h n. Se..oi :non, on boucle -, 00. .. . SOl, SIII SB,S!II $40,$IB S..ul 'o, SilO Ida S..""nu ldy '" ... Ux cp. 00' �, Scopyr cllarlot =p -, lU 'U conet envol chariot LHO vert Sil cllolne, y hehoue SO ode sr1neolq Id. "0 1$40 Ido 0'0 ,anqle hu qouche SV2 hed I da :COUct li;". 1>0. obd, y Inq1 ed no 0'0 ,tuce li; du hout h3 no ,., o� 00. ..0 LH Ida .u 00' «, Seoul !d , .. '" '" Sek '" ,,� " Stypa2 m .nvoilS Sa jor :lst Ici. tHO ,envoie le. euoe ,�. eonnuion ,retourn" j.. hOr! ode B Ida '" bpI 0'0 lclo IO�,S7,2? • enxr 0'0 .U 0'0 odc ,,. ", ,,. 42 ln Ido d'h liqnaqO -, �, ", Scolod car'ct §hl ", '" Hype cd, y Ido ""'p §type2 ldy U. .u lnc Id. StOl ,hl " h2 1 Shi t2 Serrf Sv2 no StOO 1 Sh2 '" ldy Ida :In '" LHO 1I0r! I>pi .,. lne vert j.p jar "ecolt U lllp U ll envoi S2,y envol • eur ..urinvl SI recoit recoiU cur..uri Id. j"p [$14 envoi Porn's nO 34 . -------------------- d.cahl> Iok la , .. ep� bee jap ldy Ida :lor çnbyte t2$ onli;". 10_ ho[.I1. t11 IClcl>.y .n.ol $Z SOl :&ionr booi lfin n. I dy jor j.p Idy .nvol Ida lfin ,.p Id. Ida j ar '" UO. drl> '43.U'.UA• •la.4.U6.UA.ua ' 4 1 , ' 4 1 . 1 1.... .14 $43, "A, UA. 'Ia. 4. ,��. 'lA. 'la <lfl> bpi Jor SC beo d.c ft bit M' ,.. �. Sl ""'p M' j" -, �. j" docahh ,u Cp" bec j.p ldy SOl 10 lolo Il jor .., bpi do. booi srln SZ Ida j.r j.p Idy Ida '"[ .., bpi n. dtb dfb "n, -, �. çnbytc us 10k hoo.l1. UI $dCh.y onvol SC It!n j" 00' HI U lU S... .1 U Ichalno.y onvol '" U Sp.oç•• y .nvol Id. jor Il bpi Cltl> lok lokl OU puçn varpnt vupnUI vun•• vorn.,,'1 $0 bpi d•• 00. ehle"",, ond bd '" Il 1'[ lor .u oty Id. j.r bec ... j" ,.. lupon.. Idy oU Soli rocoltl SI S....I 1....1 houl tehalno d. d. d. j.r j" ." Ulr " U ..cclU U3r '" Ulr .,. ... j" j" ... .., ,.. ... j.. " " I v"pnt f . y (vorpnt).y Il UIIIOZU1A1!1 UOA onvol SI (7 Spoç•• y .nvol th. Il 143. U'. UA•• 1•• 4. ,U. " ". 'Ia UI.Ht.'lr.1l4 li' Id. U49 ,.p onvoi Id. '" ... .., .,. ... j" j" ... .nvDll" ." • ". ond bill n"h .U. U.... fl"• • I•.4 , . U• .,". '11l nuh jar Id. onvallil j",p .nvol .. un '" Sdobut lupon•• ehle"",, PUQ.t urpnt ..rpnt+l alun .ocolt! ... .. vorn•• varn'.'1 Id. '" j.p 1do 1dy oh :au.nd 10 4 final Id.but j., .u ... roeolU ••• ,.. " Snpou. ._, Hln foc: SOCl Supon•• SUn a«.nd 10_ ,,<,Ut OU �. d. d. ••• neoltl Id.but " .u :.tund 2.... ,,<,Ut Idobut .-, Id. OU d. hu �. j.. 1....1 loci '" .,. •h n. j-, cap ••coltl " lacl " Iv.rpntf . y Ivarpntf . y chlcD. ptrQot vorpot varpntOl v..n&lO ..rn...·1 " •ho.r .-, U (VO[pnU.y (vorpntf.y �.- ptr..ot u.pnl varpnt'I vuna.. varn'.'1 H ..1 ...< So>e3 tl (vupntf.y '" <,. jl. .. U Idy Id. n.y jlr onvol .., " ucolt Dpi jo. ju j.p dtb . " Qr Id. ua! j!Op .nval SI ucoitl rocoit .ocolt 103,51.27 Source PL.4 Assembleur ProCODE " beo un po.h 1" boq Sor. ." .de It. oU Idy Id. boq j.. ,., j" 00. ... U40 ClIp bel lor. Id. U I... lU Sd.but .. Id. brio PO" tU, 1"0 :II< Ua ',"p j!Op ldont .,wol polV onvol PO'" onvd ho.. l1", Porn's nO 34 1] $0..01 tO vupntH 1da and bill vo.na,. v..n....l j.p .turr Id. fr.pono. • <, .U ... Id.nt un $o •• ..otbyte u. hrr Son varpnt .ty ldy :eho.ch. l roto : 10 ,opon.. • 10 .nvot Inlt ' ". oU ••• fd rocDIU " S....l 1....1 oro ... .u ... SUn Sint... ." " -, ... j" UI '" ... Ivarpnt).y (vorpnt) . y Untot<.y '" j., 00. li !nIt .. ... f� . -�------------------ ,.. �, M' , .. ,.. Ivupnt) . y ehKeo,. '" u. boq ." •de Ha ClIp ptrQot oU .U ._------------------- • oh jot jot Sropon.. 'III. "A. $". 13. 21. J 1• .,•• 0 :.Ol-C. 1. 1 " ..cclU :aul, fd_Dut fael :oeUt .u.nd I.r ... ,.. ..otbytc noolot :att.nd n' d. port nco H*: 140: SI-: .cooe tUI fur HeO , ..t-c. un ,.irlo l port ...tu.'1 <iat..1 no.lot ... . ., . .. 43 .., •<le .U n.t�. nu". jar j o. ..acoH ld. 1>1<1 rocolt doua" S2 :I� conf Id. .. ju Id. ...p beq :1.. ". "ont U porünt n orrout Ida UH ,ne tUIi jo. Ida J.p 10"oU .. IOC:dl ur tilt Idy U Id. n. 'tl l l JI tOO n. Ue! jo. cout U hV,y 'BUO,y Idy Id. •U '" 52 hv d. 2 portlnt Id. .t. ". 10. DU ota ota •ta •ta .u u,r plnt no.lot •ta Il'2 5" 2 •ta S"'2 .ta h'Z Id� ,eOOD Sr Ida 'COOl! SM Ida Ida n. Id. .., ... ... ... .U Seh.ln. dt!> lo.u! ... ••• œ' j., S2 .,. '" " . m ln jn plrud ,COO, plllr1U m n, ... ,COlO .., �, plotot no.lot 53 j., Id. '" .,. (p11) j>Op (pl1nltl lplrUdl wrlt.pl .htpl l>Op (ploUtl pit pUnit O. .0000 plr..d do pl..rlu d. phht do j., j., .,. l phrlto l n, ... ••• '0000 tOOOO tOOOO '0000 S' �, j., Id. ." m '" <,. .u 44 !oh : la " pon•• , onvol : tunepa..ne. , . 'lB, UI ,pour p.,.hlon , eur..u. I\oroll. n o"voll11 Ida tHC d. onvol 1 &de jop jor cp>< lMq n Q"tbyte LO S!i tt IdX urr .U drop ". • nor..al no....1 ••coltl tU, U40 lYer ..coltl lUI' j.r 1<10 'OI" " ,oui, attond nrt '"''l'hieur , HO · ."vaIU use onvol p'''� I d H ' e' ..t Don :oouotroit U O jf< :.tund "orhon.al o.tbyte .U Icoulc j.r O.tbytc .tx leoul! 'd.but j.r Q.tbytc un ot. 'M' U Jupen•• Qotbyte oU Hlo." Cn IccuH ""p bee j"p • " Id. jor j.r ellte". ... VHpn. VHpnUI vun•• ode vun.",>! ... " Ida Id. plOt.;,. lor lor .I..t< Ihor &Cc lor lor U (vorpft.tl,y (vlrpnt l , y ellke... puo" vupnt Id. bit SI vupnt'l vunl" vunl"H U (varpntl, y " Seaul" ScouH SH;n. SUUh Scoulc ,. 10 110.,1111 UOI! 'couic U40 .nvol .nvoilS SecuH tUO .nvol .nvoUII HU HI.." SI jor .nvol j.r .nvollB 'K .b<: tl Id. U�t Id. SHon• boq n odC 11 j"p .nvol •• • j.. et_ Qotbyte flOOd. Q.�bytc feeulc Qotbytc SCl>\Ilf ;etbytc Sll. .11 Q.tbytc •• •• •• :;uphlqu. .nvol .nvolU � " .1...r lY•• $lIon. jor U. • liB. U•• $66. $2, IlB, Hl. 0 .,. m ,en.."". l lUI' '" nO JMP d. id• '" pHn!t j.p l.p lnltpl j.. j., m ." ". r..dpl tt• d. Ille. Ivu d. . . d. Irepcn p!wrlu+! .ta .ta d. uco plotot+! .u '" Stin sou.1 en p1l'1 pilnltH plroodH .ta .u j., 11 bpi ,d.but �, 00. .00 .,. ... St • IOtn ucolU JI S..u l Suul " lupon.. 00. .00 ;atbytc U '00 HI" ... IUll 5""&1n.,y SO .nvol j., =p 00. j .. �, 'at30 Ida n. Id� §l laUO,y Id. b<:. ... hv,y .., bpi jor ... ... 00. uo nt j.r bn. " 10"011 100ul U j.r jor ". il 5..ul lO ue t4 oU ••• tUA j.. cp. bec jop .u JI onvol H' HI IcIa ,nvalla Id. '" n. pl jo. jOlI' lU n. USD onvol • local! .. aU Hl ."voH8 ",ad. Id. n. S. l"" 10y lU boq Ida SI lor Id. 1410 tUI un U1C n. S2 lnver.. ,COOO ,COOO 1$2C Id> Ida .t. lU ". 11 :1." n. SI dU. .u lne " .. un (uq>llt l , y ellkcOlll ptr.;" vupnt vorpnt+1 vun•• urn•••l .. 1010er. lupon.. U Iv.rpntl,y • paru.t po r'lIt jor et. 1" .t. "l" et. lor H_ (varpntl,y lor Slnv Q.tbytc Porn's n° 34 .u Id. <:>op bec j_p Id. 0<0 ClIp be. Ida j .. la. .n�ol lor .n�oIUI 1<10 (J,a ode feo�l" jor .n�ol on�o1\1J Id. Id� Ul..h bo<l Ibc l"r onvol l"r onvollli ldx SUo.h S1n� lOoul1 " " roçu aç M. " ,., nll " control nu ,� nu ,� Itock. p. ...c� 1 n••h tinuh tue ! 1nv '" Ilnv S2 .. tU' houU n U j.p onvol , te S2.y SUn onvol " SI dfb Ila,H',lla,Uc,ua,14' dtb IU,ISO,UO,O sc" a,'" lor <ocolt lor O"tt>yte Cl"< tO bOIq ",rr Son l<1y SO !do 17 "'nl,y jor onvol bpi SO " " .. '" Idy Id. 1'" .., Sotn.y bpi fi dft> Hl,SU, UA,Jla.',U',IlA.Sla dft> Hl. "A, UA, fla. 4, n onvol " " ,U, Ill'., SIII '0' '0' • ad.h Porn's eh�eO<l pUO.t nO 34 coroct "l>*e101 :ou .cc.ntua 1 :un il :dolt .t.. :�41 .t $U ,CHie entra 1 • , ont.. nock. . ..crn 1 e.roe ..crot :atUnd no.. d. contrel Id. 0<0 SI d.c noo O.Upa t2 "",vltr :""9. 1. e1'l11n. 1'1 I dy LO 10 '" '" :chore1'l. ploc. Idy ju Ida fntop lU '"' Idl iurpntl ,y rr.�op.1 IVorpn� ! , y ..coltl be. j!Op n paltocU Ind ure CIlp E$40 ""<1 ", Idy I�eento lO oetl. y boq U '"' '" ' epy tH Itx ju bcs j.." •u l<ly 1<11 ClIp brI. '"' Id. ClIp brI. '"' SI pal"C� o�tl,y .toch �, -, �, ,., IdX �. Scoul.u! j n Scoulnol Ida m '" 00, SOO j,.p jo< ,.. 10 tlbl. "0 : ..� don. 10 table "0 ," :1'1.1 dlnl lO :don. 1. sa m tO SI :pa' r.çu ,=-pou 1. �... Idy Ida ,,, '" ..' '"0 ,.. tlbl. chrQOt 'M' L', ' Icll.y S2 :01 0 pa......... : c ' ..t noir Scoullul Inln " Seoul nol O·tbyte U41 Spol+1 : n' a. coul.ur "Unit politien Sne!r " '" ho<l1101 cu"uu.l :curuur Inviolbll HU Sccul 1$10 Secult2 '" hf!,y .nvol : .ffoc. une 110no " Spoo+l Spo.U -, us, 00. " j " 110n.O Sel :2( Hon.. In tout «, Sel .eU,y Sl .toch joc inol SRrr : ..u.... 1. 2t CUle :.n attend un lu. oc<2,y be. uor 'IlP .nvol 0", Sel ..col0 SC p.. ..cu j,." '"' '". '". cpy bn. .. .. :ca..eUro :p" reçu : c ' ..t .econtu' :olnon, e'on :un e. ..e 11>*10101 : qu'on ..cod. :ov.c Il t.t>h " Idl vldeeran j .. '"t�.nd un l_ : ol , t UO, " v.cteur, y $3H,y - t.. 000 1<10 jll" acco"t! ..rvot! ," 00, Ido j.." '". ldo j.." a..eret d. .....u.o ldy Ida fi ,pour 1 c...c qui : •• trouva on 1200 <:II\p urr 5200 SI bel lU . E' 11 0 ju d..cru '200 CIOp bno • rouha" 'n bec joc 27,Sl." F,na" j." uor jmp .. dl dl aft> nid. Id. no f2 Sonl sottl Ind «, ni rh �orr SI [HA ,or ""voiUI .., un j., ."vol t.� d. '" ""'p ..n.l1�n. '". srln "ouleau ? : tonction :u;u SI .. 00. il l-p Id. SOO Uc jor '"' cont<ol EHO bOIq bel U :noü, .n noo Id. .t. l>r\o onvolUI boq Lill : c...ct"o ond ," bn. onvol Idy Id. �, �, tl • relnlt rdnlt " pa...cu bit ..10 t!nnlo Id. ". jllp CIIlp boq " "horr SI jor .. .. il vun.",-J tl jor bo<l ,o, U ,voriat>lo Son CIIlp U lIIx ..10 vorn.,. '"0 UU ode ldo leoulour tond feo�H 1" 0'0 ot usa .n�ol bo<l Sco�U on�ol UI 1" la. :tond < • S.rr SI ." ." W j"'p jor on�ol S_. no :couleur c...e s.r. uor ",e Id. ode : ...ao < , U ode jo< Sco�lc Sok 110. .11_ Sco�lc Sco�H on�ol\a 0'0 " S....d. t' ldo 0'0 " S....d. j .. "0 " Soo�l1 Snolr j" :trOUV' Slft Seoul ,�, t42 SI 1I0n.0 ." p....cu . . .eoltl Id. ,,, 1110noO j., ... ... m '" ,.. j" '" ." ," ... '" .nvoi cu...ud 110n.0 ,or.IOl, SI2,Hr UO. liB, $So, $18, $O� "1.uo. ur,SI' " Uion.O,y .nvol :vl .n H9". :ot l'.theo SI 45 ,retour vldU;ne jor oetbyt" ,beq Sur cap �2� Del ,400 1 1 24. U40 lU Spoltl ,"r ;Itbyte ,,,ouleur ,"r cu.nurl ,,,urllUr lnvh.lDle "",p Dee '" ... .., 5coul " " " " " • envoi Il' .."vollr Sen ad" '" Source PL.SP Assembleur ProCODE sr '.1' " Ide U40 lU Scoul ade Uia na SCOU!'2 Idy (12 lU s.rr,y jl' .nvol onvo!III • fl.oull. Seoul ,�. • l'I"na. Ida U , ..p ..rou� ,lUeçl1 quantit)' ,error $OF,10l,$lZ,Hr dfD $40, $l�,S50,$IB,'O! dfD HI, HO,nr,l14 Iutocl UIIO jltp enor 11r O.tbyt" ,"tt.nd 1.. cpx tH ,pau"'tre. Sfl.l çetbyt.c " 10 drap "" " \dl accent,)' Jo, Uabut It.. hl SL Ida Ic"entO. )' jar ,,"tbytc §debut uq " cpx HI bel hrrf oetbytc tn Surf lU Sv2 j.. o�tbyt" cp" ta l Seo... bec Id.D :!-p fl.ou11. Id. Ihl "1' Surf Ida svl "'p sv2 curnuri Id& UU ," envollr .de hl jor envol Id. un Id" 1"1 j.. ."vol .,. ,cOIIleu. � • 1 ,hl , 1>2 ? ,vi ' v2 SI SICC SI"cl lU huiu serrf 'or '". 10 Sh2 bel �, �. '0' '0' '0' '0' Jh2 jor bel SI>cI Sil bit Sur! n" fdob '" Sbel u"" [n be. ,envol Ir ,140 • vi ,140 • III �. Ida , .. 'IIP ln)' bit dnp SI 'U oCClnt,y accente,)' jlr envoi bit � ... ... 1"" JI"cl plnt .. .. j.. .nvollll Ida U40 lcaul :lu Invol '" lu "" , .. envolill UIO jor envol Id. jor lU tUr UU :lor envol Sh2 .. .. Involço p/l.1 Iblanc .nvol Ida .. .. S.U''''' .- lbe ... Shi ade U40 jn .nvol lne Svl Ida CIlp '" , .. '" SVI Ivz bec Sbel Id. ur b4tq ... Sbel Sx Idx ,non d. S)' d. ,. " paup! " nup! Slin ""raI'l nadp! [HF .., •• " paupl ,envol du l "nac nçolt un e... ct la" 01 reÇU cl" 01 pal reçu IVlnt • tp. re"alU Il Idl UÇO lU .U ItreeH jor be" ... S2 ..ne ncoit H inc """ bne SI in" Olnc·1 bile Il ," o. ,,"it jar ,,, , .. uq" , .ee " paup! ,o. Idl S. 4datl,x' ,. ,.. �. ,. . ,. fOl. UOIllllll 1. ... . ., ldlta,"} In� '" ," " ,.. 4.Utu.,.1 oU UIO �. " ... .. U" Idl ,.. �o ,.. ,.. .0' ,l1tt...1<. envolQI .nvol .U ,oQx ,.. ,o. " Ut ... Id" 0<, '"U!U Ida '0' ... '0. Il .e""itQI .t. ,..t"""t1q�e ,oui " �. envol earac 4.tatuI.x} UOODCIOOO bile SUn ,�, U ond , .. ... '" '" ,� ,""cantu' 1 hc" jar ,,, adc .e;" ... , ..t·ca .", CIne el..C Id. odc recchOI Itl , .. ...colt be. cp" pint bal .., cpx lU Sent 1" ... ,.. Sert! jor bit ..0 '" envoi w> "an��"e envclcar 46 Id. vldr."t n.. HIll anvol Ida tl "lb De. Ida 'np Id. • vid.."t Invol .eclVoir un eaneUre '" Sert tUF j"p • nc li .eçu, "1,, linon '" bpi Ida , envoi III U 0 • 7 U ferr " ,.tUnd n' 110n. SM 'or "OY reQ. ua nç, SFCA.' �bd un Uq 52 ,., "'"p §ottand parapl " ... Id. Id. ot&tpl ,. .h ... Id)' SI " "dupl It)' Il ton, SI pli ldy 'IQY 1"" nQI '" dl Sy 01 car," dl Porn's nO 34 uvueo n. oU oty ", ...tn; I,U '00' ld� reox ldy dlb d�b no. no� " QY odr".. d. reoy d. d. d. ," oCI rh no .cr d. .. Source PL.DATA Assembleur ProCOOE .ceontO JO .ccont <lIb dlb .n" oO,U',,"l:"'· dtb ' S ' . 'U,$27,$00 dlb ' ( ' ,SU,$23,500 '·', SI',UO.IDO dfb '." 'U,.U.,,� dfb '." 'lJ,$41.SU dfb dlb dfb dfb ' � " 'U" U,"I ' o. ' , '19,'H,'75 •• .. .. .. .. .. .. .. .. .. .. .. .. •• .. .. .. .. ' ç ' , IU,HO,SU 0 Ul,"1 tabh pour h rocedoq. d.. dfb 124,". dfb SH,"L c op'd.ux dfb $27,". dlb ne,"< dfb 120,"'" ...cU... d. UO, dfb UI,'" d. da dfl> UI,"' d. sn,'" d. d. d. $le,'" no,'" ",ruch." ".I..t." Ur ott oU ".ppel" "bip" "co<l.." " 0.. "Ch.riot .ppel bip c.dn .t. "cn",," "cnu" c/lorlot cnxn ." ua,Hl,".. 0 .cc.p� .cc.pt! .IUcll. docdon U.. u..n .t. ,la. "0 dfl> 0 .n"'nct d. 2 douxc d. dlb dtb dlb dtb 141.'iI,"' S43."I,"o dfb dfl> .. .. "1.". .U.'''."1 dlb .... SU.·1 dlb 'H,ur,·o '" '" n. d!b .... US.". '" -" ." no''''1 da "3,"5,". '" .� Inlt Invo... xllOno loc.ll .. ,1A,"' dfb dfb dn. dlb '" '" " i<lont dfb contrcl. dtb .� '" '" m ," on1l9no d. da 'H,H5,"' '" '" '" '" '" m <Ioploc. SU,"' IH,'H,"' ," curoourl doc.lOb dfb dfb dfb dfb .to cn,.. CUroou." urYouro t.t videcun "idli;n. vldr.ct dfb no .leru ..lnlt Toul..u ..lolo ..n.119n. ...",.ot UI'".·v dfb n. nr HI,ln,"u d. 'lE,", ,1 :l poro.mq dfb n. ",ccop�" ",ccopu" po...t dfb ,,_nd. otr HI,I1S,"O, d. d. dfb .cU .. .. ' - ' , SOO,SU,SU dlb dfb <I� <I� <In. d. S",HI'",·o '" nr nt dfb d. "U..• : Il ; 17 , 10 : U..II :9' 1,'111' l, '111 "1'" 00 'AO $II or :U "Inh" 1,'&& :1nveu sn or 1110 ·119no· "locol1.." "_0" "..u," :24 l,no "por.taq" ,15 :26 :27 ;norlld $ t 0 o . '110 ;H "p.uru" ;30 "nlnit" "rouloau" "••lIi." :32 ,JI ,ll "..n'110no" , la ;B :l6 :37 "vldI1Qn." : n ;'0 "vldrect" 0 Il :cond.nd 1 . <:!Id ;-$CO"lot d. d. ; pour "od. ..t� drap ;n" do c.. .cUn noc.r noCJII. d. nollot dl 1 ° dfb po.1I dl d. do ;n" de 1. co"'-Undo ;n" du port Itri. :-,pp our IIqo dl :annulation : 00llli'001u ptrca<! ,correction ,0uiU uq. r.q& .110 :11 "id.nt nD pint . ,I� "doploc." ".nHono" " oo.v '41.'''= "dOCU" '" ;rtp'tltlon :quldo 'U.ISO ,n "curlnvlo" ,12 "b. ." :Il ,u "h.ut" ""id."'un" : J I ;utollr .... Ut :10 .tt U3.H3 dtb "cu.vio" """'Ut" ". .nof!" U2.H2 dtl> dlb .� " "tn" Ul,540 SU.'H ,1 .tt :"srl'" .1 Ilc ; 'nvol (,uit '13) "1,"0 :� ,7 .tr .tt ,v.ctour p.tctd.nt ,J :a :po.lden lIerh ;poo1tion von ;point.ur lur cM d. d. u\lY vecuu. d. d. , , Récapitulation POM.LlNK.2. 1 Après avoir saisi cette récapitulation sous moniteur, vous la sauvegarderez par : BSAVE POM.LINK. 2 . 1 , A$801,L5104 0980 : 1 6 FO E5 AD 00 02 29 0 9 9 0 : 0B FO OB AD 4 6 OB C9 OD FO 03 2 0 21 7F 8D 4 6 OB 20 05 OB AD 45 04 Cg 004 BO 0904 0 : 0 3 4C 5 9 004 Cg 20 9 0 BB AD fO OB CD 3D OB DO 03 0801 :040 F 5 0 3 C9 3E D O 0 7 A D F 7 0 3 C 9 0 8 F O l A 040 09BO: fC 08 0 9 EE 40 081 0 : 02 B9 F'5 03 99 ED lB 88 1 0 F'7 049 4C 80 F5 03 049 09CO:A9 2E Cg 3A DO 02 Ag 2E 99 00 02 2C 51 0820:3E 80 F'6 03 04 9 08 80 F7 03 04.9 00 80 C6 lA 0900:049 2A 20 1 0 1 9 4C 53 0 9 A9 Dl 80 45 OB 20 FE 1 0 0830:FB C9 06 DO 08 AD CO FE DO 03 CE C6 lA AD B3 60 AD 00 OB AC 40 OB AD 46 OB C9 2C DO 02 09EO:AO 00 B9 F3 09 FO 05 2 0 1 0 1 9 C8 DO F5 20 F9 1 0 0840:8C 03 lB 8C E4 lB EE 03 lB AC 03 18 CO OC DO 03 09FO:4C 63 09 0 7 IF fO 41 0850:4C C9 DE 09 A O 9 9 03 18 20 91 OAOO:20 00 FO 04 C9 2C DO 54 65 2 0 0860 :E5 04 0 FF 8C E9 lB EE E9 lB AC E9 lB B9 08 lA CD OAI 0 : 75 OB 049 01 0870:D3 lB DO OA20:33 1 8 042 00 E8 EE E9 lB AC E9 lB 89 08 I A 20 12 64 IF 40 41 4 6 69 6E 7A 6F 6E 65 DA 0 0 AD 80 45 OB OA FO 0 6 20 1 0 80 44 H OB FO 03 4C OB 20 FE 1 0 AD 0880:00 03 l B D O 0 7 EC D3 l B FO 1 5 D O EA EE E 9 l B AC OA30 : 4 C 66 09 0 7 I F 40 41 20 12 OA4 0 : 65 78 59 6F 6E 20 59 50 4C 6F 08 049 63 6F 5E 5E 08040; 74 80 C2 08 049 lA 8D C3 08 AC E4 lB FO 13 EE C2 OA50: 65 6E 74 08BO;08 DO 00460:00 DO 03 EE C3 08 EE C2 08CO:ED 6C 'lE lA 4C C9 DE 049 08 DO 03 EE C3 08 00 80 51 1 7 A9 FF 8& DO 80 E2 65 64 65 2E 2E 2E 004 00 20 05 049 01 DA70:4C 7A OB AD 40 8D 00 B 9 1 9 C8 DO F5 2 0 F 9 1 0 2 0 004 OB 0890:E9 lB B9 08 lA FO 20 30 F3 EE E4 18 1 7 1 0 02 46 OB C9 IF 40 41 05 OB AD 0 7 FO OB FO 51 AD 82 1 4 0 7 C9 18 44 1 9 42 50 69 6E 46 08 C9 05 FO 25 6D 40 OB AA 19 20 48 OB CE 08DO:IB 20 F5 E 6 8E 82 1 4 2 0 F5 E6 8E 83 1 4 EO 1 9 90 OA80:CA AC 83 1 4 20 48 OB 049 2E 20 1 0 08EO:03 4C BD 1 8 20 F5 E6 EO 02 8E 4 7 0049 0 : 4 0 08FO:OB AC 8 3 1 4 AE 82 1 4 2 0 4 8 OB 2 0 FE 1 0 2 0 BE DE OAA0: 1 0 0.900:.49 7B DO 2 0 6C DD A5 04 0 85 85 AS Al OABO:AC 8 3 1 4 2 0 4 8 OB 2 0 F 9 1 0 AD 4 0 OB D O 03 4C 704 85 AA 18 OACO :OB 049 00 80 4 0 OB 4C 58 09 040 00 85 52 20 0 9 1 0 : 8 5 86 040 00 BI 0920;Bl 90 03 4C BD 18 60 82 1 4 80 82 14 040 02 85 88 99 08 00 CO 00 DO F6 CA 30 09 Bl 08 2 0 AI'. 3D OB CA A9 4C 204 09 20 F5 E 6 8E 3D OB EO 0 0 FO 0940:EO 29 90 03 4C BD 18 AD 82 14 0950:90 4C BD 1 8 4C D6 OB A9 00 80 45 OB 80 44 OB OBOO:DA 00 0960:EE 45 OB 20 OB 20 F'9 1 0 42 081 0 : 4 2 OB 2C E6 lB 1 0 0970:0B DO 08 EE 43 OB DO Pom's n° 34 05 03 4C EE GA 18 6D 3D OB C9 29 41 OB DO OA 20 02 00 EE OB AD CC AI'. 1 4 20 48 OB 20 FE 20 1 0 1 9 CA 1 0 F8 AI'. 82 1 4 00 B9 E4 OA FO 0 6 00400 :20 1 0 1 9 C8 DO F5 20 F9 1 0 20 004 OB 04 9 01 0930;C7 1 8 C8 03 04 OB 4C 53 09 AE 82 1 4 AC 83 OAE O : OB 4 C 6 3 0 9 IF 40 41 2 0 12 OMO: 6E 20 1 9 41 65 66 61 20 4C ?4 1 6 049 082 0 : 6 0 20 FE 1 0 040 64 IF 4 0 4 1 66 61 00 80 44 63 65 72 2E 2E 2E OB 049 00 80 41 04 049 FD DO 80 4 5 52 6 9 65 02 049 F8 8D OB 8D 43 OB 06 B9 35 OB 20 1 0 1 9 88 1 0 F7 049 47 OB3 0 : 0 0 80 45 OB 60 01. 64 1 2 20 OB4 0 : 0 0 OB50 : 0B 20 56 OB6 0 : 1 8 6J1 ]JI AD 74 OB 1 8 40 2 0 1 0 OB70:4C 10 1 9 00 OB80:A2 41 40 IF 00 0 0 0 0 0 0 0 0 0 0 C O 0 0 20 FE 1 0 8E 6.9 40 20 1 0 1 9 AD 4 7 OB FO 00 1.9 00 80 46 OB 83 C8 AS 25 70 91 OBAO:84 84 AS 81 OB8 0 : 9 0 02 EJI 0 1 1. 0 0 1 AD 00 OBE O : OB 30 80 E2 lB 00 10 E4 83 C8 AS 83 2 0 BE DE 20 E3 OF 85 83 91 83 A O 0 0 98 gl 83 20 FE 1 0 H E8 DO F3 50 20 BE DE 20 E3 OF AS 81 80 3E 1 04 0 , 5 1 DO DE AJI 01 1.0 1 0 5 0 : 2 3 20 C7 1 9 1.0 01 00 B9 48 91 BI 85 8B JIJI 08 OB FO OB BI 08 jJl 01 I J1 C8 DO FO I.E 4 0 08 EC 3D OB FO I J1 E8 D O F3 A D 8 2 1 4 18 08 A JI 60 4 0 OB lIA A C 45 OB 20 05 OB EE 4 1 19 4C 83 Il 00 58 39 lB 5f' 39 lB BA ES J N ' , . U 87 � M n . a E M U M U a a � 1090:DC C4 DO 85 05 CO 07 03 CO DO 07 85 F5 CA ce FA 1 0AO:E9 cc CB CE 85 9 7 8B 94 BA EE ED 05 EE 08 EE 4 3 08 DO 03 OB D O 00 EE 4C C9 OC 20 02 08 AD 05 OB AD 1 0FO:90 94 8B 9 7 91 8B 91 96 0 0 A9 I l 1 1 1 0 :2F I l 20 1 0 1 9 88 1 0 F7 CA 1 1 7 0 : 6 9 3A lB 0 4 66 31. lB 41 1 1 8 0 : 6 6 31. 60 1 9 AD 02 B9 80 46 08 AD 4 6 OB C9 00 DO AJI 83 1. 0 00 Jl8 83 60 AD 44 OB FO JI! OJi DO 04 JlO 02 E9 01 1.0 03 f C 1.5 80 45 OB 80 44 OB A D 00 BJI 33 01. FO 0 6 OCEO : 2 0 1 0 1 9 C8 D O F5 20 01. 08 fC 6A O C 2 0 BE DE A JI OCF O : O O 85 52 2 0 000 0 : 8 6 1. 0 001 0 : 0 0 F6 00 BI CA 78 DO 20 6 C DO 1.5 1. 0 85 8 5 A 5 Al 85 AI. AD 02 Bl 30 O Ji B I 0020:00 F O 08 C9 38 FO 85 88 JIJI 08 85 00 CO 0 0 0 8 2 0 C l 1 8 C8 4 C 1 2 0 0 20 8 7 01 60 4 C B I 0030,1.9 00 4C 1 0 19 20 BE DE 1.9 OD4 0 : 6C DO AS AD 85 85 AS Al 0 0 AJI 01. 20 1 0 !JI 00 85 52 20 7B DO 20 85 86 AD 00 81 BI 0080:81 00 08 2 0 Cl 18 C8 4 C 10 00 1.9 ODJlO:lF 64 1 2 2 0 4 1 AB JI] 00 01. 4 C la 20 1 1 90:F7 20 AC 1 9 20 60 19 20 CA 30 OJi 1 9 41 40 4 0 I F 0 0 2 0 BE DE 2 0 E3 DF 85 83 001. 0 : 8 4 84 AS 81 008 0 : 3 0 OE 88 DO F8 1.9 0 0 1. 0 01 25 82 30 03 4C 16 DO 1.0 00 AD 61 CO JI] ODCO :AO 03 1.9 C6 20 A8 FC 2C 51 CO 1 0 EJI 88 DO F3 Ag 83 88 Jl8 Jll 83 50 I F 14 4 3 6A 31. lB 04 30 08 A9 01. 20 1 0 10 19 88 1 0 F7 58 ZF 1 4 4C 60 91. I l 19 1 1 1. 0 : 81. FO 2B 18 69 40 80 E7 lB C9 1 1 B O : 8A FO lB 69 l1CO:10 18 19 AD E8 lB 20 1 1 E O : 0 8 4C 76 DO AJI 4 3 6A 31. lB 04 67 39 lB 20 F5 E6 59 BO 21 83 84 0 6 80 22 1 2 1.0 20 F5 E6 Il 1.9 IF 20 10 1 9 AD E7 lB 4C 10 1 1 0 0 : 1 8 2 0 BE DE 20 E3 OF 85 lJI 60 43 20 1(1 1 9 88 J(I 40 80 E8 lB C9 59 BO 84 1.5 81 19 4C BD 25 82 30 05 B9 23 1 2 20 1 0 I 1 F O : 1 9 88 1 0 F 7 2 0 AC 1 9 B O O C CE 22 1 2 2C 22 1 2 DO l200:E8 1.9 00 FO 14 CJI I F DO EB 1220:83 00 DO F6 20 F5 E6 81. FO 03 20 03 00 AO 08 Bj 88 10 F7 1.0 lB 7B 11 9J1 08 00 OD50:CO H 85 88 20 1 0 lJI 88 1 0 F7 CA 1 2 1 0 : 2 0 AC 19 C9 3F 90 02 1.9 01 03 4C C2 18 80 97 00 1.0 O D 7 0 : 8E 00 2 0 1 0 02 1 l 5 0 : 6F Il 85 CJI 25 0050:90 10 19 41 56 31. lB 41 00 01 CJI 0 7 DO 04 08 1.9 OB 20 1 1 3 0 : 6 9 31. lB 0 4 08 4C 61. OC 1.9 30 1 1 4 0 : 6 6 31. lB 20 F5 E5 EO 19 90 03 4C BD 1 8 AD OB B9 07 B9 OB 20 1 9 A9 1 4 20 1 0 1 9 8 8 1 0 F 7 6 0 43 1 1 6 0 : 4 C 58 11 AD 46 4C 1 0 1 1 2 0 : 4 C 1 8 I l AD 0 7 B9 3B 1 1 02 2JI 7F 80 83 85 F5 CA C8 82 0 5 1 J 0 0 : 4 C 1 0 1 9 2 0 F5 E5 EO l Jl JlO 0 3 4 C BD 1 8 A O OB B9 OB AD 46 OB CJI 00 FO OC C9 DA Jl1 DO 07 85 1 0EO:BA E8 F6 FA FA FA BA El. E8 80 9 4 8C 85 9 5 9C 8B OB FO 03 20 21 OCCO : O l CA � D6 œ M n K W � E U N E W W 1000:85 E5 FS 89 85 EF E9 E7 85 OCJl O : 4 5 OCD O : O C AJI 01 58 Fa 1 0 5 0 : C8 DO F3 2 0 C 7 1 9 2 0 C 7 1 9 2 0 C 7 1 9 20 C 7 1 9 1.9 1 0 7 0 , O C 4C 10 OC80:CC 1 6 FO E6 AD 00 AJI 83 J _ œ ru 02 OC60:0B 8 0 4 4 0 8 OC8 0 : 0 2 83 88 Jl8 91 7E 1 0 FO 08 4 9 AS 2 0 1 0 1 9 85 CD 3D OB JlO 05 FO 03 OB 80 48 OC 1.0 25 8 2 3 0 0 3 4C 76 DO 1.9 00 8 0 4 5 OCA O : 9 0 n 1 0 DO F3 FO 1 5 1 030 :CJI 1 3 D O ED 20 AC 1 9 C JI 1 3 FO FJI C JI 53 FO 0 4 C9 85 86 1.0 00 BI OC40,e3 1 4 2 0 4 8 OB 4C 58 OJi 0 0 2 0 BE DE 2 0 E3 OF 8 5 50 00 61 1 2 3 0 : 1 9 2 0 SB 1 9 lB A.9 02 01 91 83 88 98 91 66 31. lB 20 SB 1 9 1.9 49 4C 1 0 4 8 4C 1 0 1 2 4 0 : 80 JlD 1 2 1. 0 0 0 BJI 20 AC 19 C9 3F 90 09 1.0 H A.9 OE 4 C 1 0 H A JI 03 53 1 2 FO 0 6 20 1 0 1 9 C8 DO F5 1 2 5 0 : 2 0 AC 1 9 BO 1 6 CE JlD 1 2 AD JlD 12 DO f'3 80 Al 1 2 6 0 : 4 C 1. 2 1 2 lB 31. 6 5 03 l B 3J1 12 7B 0 0 C 9 01 D O El 2 0 1270:AC 1 9 Jl O CF 80 JlE 12 20 A C l JI Jl O C 7 80 Jlf' 1 2 2 0 1280:AC I Ji 1 2 9 0 : 0 4 FO Jl O BF 80 1.0 1 2 2 0 AC I J1 B O 03 4 C 4 3 1 2 C9 03 4C 43 12 Aj 01 80 Al 12 DO 05 00 00 00 ODDO : Ol DO E4 A JI 07 4C 1 0 IJ1 20 F5 E6 EO 29 BO 48 8E 121.0:00 0 0 20 BE DE 2 0 E3 OF 85 83 84 84 AS 8] 25 82 ODEO:2D OE 20 F5 E6 EO BO 41 12BO:30 03 4C 01 83 88 ODFO : 2 J1 BO H 8E 2F OE 20 F5 E6 EO 37 BE 2E OE 2 0 FS E6 EO H BO 20 8E 30 OE 76 DO AD JE 12 1.0 12DO:4C 75 DO AD JlF 12 1.0 01 OE1 0 : 2 0 F5 E6 EO 12EO:DE 20 E3 OF 85 83 84 84 A S 81 12FO:DD AD 1.0 1 2 1.0 01 08 80 1 3 81. OJi fO 80 31 DE 20 F5 E6 OE2 0 : 8A OJi 50 80 32 OE CJI 58 90 OB fC BD 18 00 00 00 OE3 0 : 0 0 02 JlO El. 00 00 00 00 AD 2E DE 38 ED 20 DE Cj 83 88 98 69 1 3 2 0 : 1 8 81. Oj CO 80 SE 31 1330:CJI 31 DO 33 A j CO 85 lB 33 OE C9 02 Fa 00 AD 32 OE 80 92 1 3 4 0 , 01. 88 OF DO 08 1.9 0 0 80 Jl1 1350:C6 lA 1'0 EE OE FO 03 lB 80 91 OEJlO:AD 2E OE 38 ED 20 OEA O : 9 8 OF 80 OEBO:OF Bj BD OECO:20 68 JI4 DE OF Bj A4 8E OF AD 20 DE 1 8 6J1 3D 80 JI6 OF 8D 92 OF OF AC 33 OE B9 OF AC 33 OE BJI JlB OF 80 Jl4 6J1 40 80 81. OF 1 2 1.0 6J1 1 3 6 0 : 2 C FO 01 91 85 1 8 03 2 (1 B9 1 3 04 85 43 OF 80 13J10:C3 1. 0 0 1 Bg 3 0 BE 13AO:BE A JI C2 80 31 OFO O : OF AC 33 OE 89 9E OF 80 j4 OF 20 OF EE 8A 7 6 OF AD 30 69 3F CD 81. OF DO E6 AD 2F DE 1 8 5J1 40 OE 80 81. co 1300:11. 8D l C 1 4 14 13EO:13 AD 80 EO lB OF 20 1 4 0 0 : 80 El OF40 , BA OF DO E6 AJI OF5 0 , 6 J1 41 OF 20 1 0 H 20 5 6 !JI 1 8 AD 2F DE 2 0 1 0 1 9 1 8 AD 20 OE 6J1 41 OF60 : 1 9 AD jO OF 20 OF70 , C8 CO OF DO F5 1 0 l J1 50 1.0 50 AD 00 8J1 8j OF9 0 : f O 18 50 00 00 12 DO 10 Jj 4 C OFEO : l JI AD 02 BJI F2 OF 20 1 0 OFFO:AC 1 9 68 H 40 DE lB 5J1 lB 75 00 21 7.11 00 01 CJI 2C FO 0 7 4C CJI DE 1.2 07 2 0 F5 E5 EO I Ji BO OFDO : I 0 1 9 1.9 00 20 1 0 1 J1 70 23 SF 23 70 lE 51. 35 OFA O , 7D 35 51. lB 50 37 00 30 68 00 22 OFCO:Ol 1 0 1 9 20 SB OF 20 1 0 I J1 C8 CO OF 4C 1 0 I J1 lF 40 OFB O : OE DE OF 20 87 00 FO 20 00 BJI 89 OF 20 OF8 0 : 08 DO F5 AD 94 40 00 69 3F CD lB 1.0 OS BJI CA H Il CA 30 00 AJI OA 20 lB 60 03 4C 50 AJI 03 4C JI9 50 lJI 20 60 1 9 AD 07 20 00 C2 AD 00 C2 Cj 80 7E OJi BE Aj 38 80 7C 04 AJI 7E 7C 85 42 85 85 3E 38 20 1 1 B7 1 3 88 1 0 F 7 A 9 0 0 80 3 0 80 1 4 1 4 AD E5 80 1 6 1 4 8D 1 8 1 4 80 80 lB 1 4 AD E5 lB 6C 1 3 1 4 6C 1 5 1 4 01. 01. 6C 1 7 1 4 OF C2 01. 01. 6C ] JI 1 4 1 4 1 0 : 5C lB 1 4 0 0 C2 4 5 C2 4 6 C2 4 7 C2 4 8 C2 2 0 SB 1 9 1420:119 50 4 C 1 0 I J1 2 0 SB 1 9 A JI 51. 4 C 1 0 1 9 2 0 33 1 4 1 4 3 0 : 4 C 85 1 4 A JI 03 8D 71. 1 4 1. 0 0 0 B JI 7B 1 4 FO 0 6 20 1 4 4 0 : 1 0 1 9 C8 DO 1'5 20 AC 1 9 BO OE CE 71. 14 AD 71. 1 4 1450:00 F3 80 8 4 1 4 4C l H O , 3F JlO DS EJI 4 0 80 83 1 4 20 AC 1 9 CJI 3F 90 Cj Ej 1 4 7 0 : 4 0 80 82 1 4 1.9 01 7J1 1 4 C9 IF DO E9 20 AC 1 9 C9 80 84 1 4 60 00 lB 31. 66 02 l B 1 4 8 0 : 61 0 0 00 0 0 00 2 0 BE DE 2 0 E3 OF 85 8 3 8 4 84 AS 1490:81 25 82 30 03 4 C 75 DO AD 82 14 1.0 01 1 4 A O : Jl 8 Jll 88 1 0 F7 20 4C 14BO:82 30 H 76 DD AD OC C2 60 60 76 DA 01. 85 OF 60 4C BD 18 20 18 10 20 1 0 H 88 1 0 F7 4C 60 2 0 1'5 E6 8E ES 00 C2 80 1 5 1 4 AD OE C2 80 1 7 1 4 AD OF30,B9 Al 30 OE 1 8 03 83 20 BE DE 20 80 E3 1 3 80 Ej 1 3 80 EF 1 3 80 F5 13FO:8D 1 9 1 4 AD 1 0 C2 AD 83 20 BE J3BO:J19 30 BE 8e 1 0 F7 50 0 0 00 1.9 FF 80 E6 lB 13CO:IB OJi 6.9 4 0 80 8B OF EE 81. OF AC 33 OE 7 6 OF 30 BE A JI 0 7 2 0 ED FD A D 0 1 BJI B 7 1 3 OF2 0 : 0f' AD 2E OE 18 OF 80 94 83 85 3D 85 3F 1.9 80 81. 6J1 4 0 80 81. 83 1 9 AD ES lB 01. 1 3 7 0 : 0 4 Aj 68 80 70 04 AJI 81 1 3 8 0 : 3C Aj 91 85 lA E6 11. 20 OF B9 AI. 68 OF A9 00 80 JI] OF 80 JI] OF AD 20 OE 1 8 98 91 13 eD SB 1 3 80 2F 1 3 AD 03 4C 5C 13 AJI 97 OF AD JO DE 1 8 69 40 OEF O : 6. 9 4 0 80 88 OF AD 2F OE 1 8 OFl O : 1 8 AD OF 80 jJ OF BJI 1.7 OF 80 j 7 OF eD 8C OF AD 2F OE 1 8 OED O , 9 3 OF B9 AD OF 80 OEEO:OF 20 83 88 98 JI! 84 A5 81 25 82 30 33 OE CJI 02 DO 03 EE 88 OF AJI 25 82 1300:E3 OF 85 83 84 OE50 : 8D 8E OF AD 34 OE8 0 : 0F 83 88 98 91 1 3 1 0 :1.1 jO OF 2 0 FE 1 0 A9 OE6 0 : 4 0 80 88 OF OE70:0E 80 JlO OF 91 Jll 59 OE 3e ED 2F OE CJI 02 AD AD Jll 1 2 C O : 2 0 BE DE 20 E3 OF 85 83 84 84 1.5 81 25 82 30 03 OEO O : 2 0 F5 E!6 EO 03 80 23 8E! 33 OE 20 F5 E6 BE 34 OE OE40:AD 30 48 04 AJI OF DO 02 AJI 3C 8D 7 7 J � . e e � � U IT K u � ru U . � � Œ OC5 0 : 83 84 84 AS 8 1 OC70:42 08 DO 10 1 0 2 0 : 1 0 2 0 A C 1 9 B O 01. CE 7 7 1 0 AD 3 0 03 4C 7 6 DO 1.5 83 85 OCI 0 : 0 0 CO 00 DO F6 1.0 0 0 CC 40 OC2 0 : 0 2 20 Jll 82 30 03 4C 75 DO AD 4 6 OB C9 0 7 82 8D 3F OCOO:4C C2 1 8 80 40 OC30:AE 2 0 1 0 AD 73 OB 1 0 0 0 : 2 0 BE DE 20 E3 OF 85 83 84 84 A5 81 25 82 30 03 1 0 1 0 : 4 C 75 DD 2C E5 lB 08 0 7 AS 08FO ,B5 AS 84 ]JI 4 0 OB 20 52 OBCO:AE 4 0 OB EC 3D OB FO 08 1.9 AO 2 0 1 0 OBDO,A9 00 0 0 05 20 5B 1 9 A9 4D Dl 1. 0 0 2 20 E2 ES AD 4 0 OB 1.0 OBJlO:6F Jll 00 73 OB 8C 74 91 83 88 83 20 BE DE 20 E3 OF 85 83 84 84 AS 81 25 03 4C 76 DO AD 83 1 4 AD 83 88 j8 Jll 1 4 C O : 83 20 BE DE 20 E3 OF 85 83 84 01 jl 84 AS 81 25 82 30 Porn's nO 34 1 4 D O : 0 3 4C 76 DD AD 84 14EO:20 F5 E6 EO 04 90 1 4 AO 01 1 4 F O : 1 8 A9 4 C 50 F9 1 4 4 C l a 1 9 1 5 0 0 : 0 2 A2 FF 8E E2 lB 1 5 1 0 :F5 E6 8E 71 91 03 4C BD 18 83 88 98 91 83 60 8E F9 14 20 SB 1 9 00 20 F5 E6 E O 0 0 Fa 60 20 SB 19 A9 SC 4C l a 1 9 20 1 5 20 F5 E5 8E 72 15 20 F5 E6 8E 73 1 5 2 0 : 1 5 20 F5 E6 8E 74 15 AD 71 15 00 72 15 C9 08 1 5 3 0 : 0 3 4C BD 1 8 A9 OE 20 1 0 1 9 20 SB 1 9 18 AD 71 90 15 154 0 : 69 4 0 20 1 0 1 9 2 0 SB 1 9 1 8 AD 7 2 1 5 69 5 0 2 0 l a 1550 . 1 9 20 SB 1 9 A9 4 9 2C 7 4 1 5 FO 03 38 E9 01 20 l a 1 5 6 0 . 1 9 20 SB 1 9 A9 5 9 A E 73 1 5 rD 03 1 8 01 4C la 69 Computer Eyc s / 2 Carte à digitaliser pour Apple IIGS (320x200 pts / 16 Niveaux de gris) Manuel en Français Prix 3200 Frs 1 1 5 7 0 . 1 9 0 0 0 0 0 0 0 0 2 0 F5 E 6 8E 0 5 1 5 20 F5 E 6 8E 0 7 1 5 8 0 . 1 6 20 F5 E6 8E 0 8 1 6 2 0 F5 E 5 8E 0 9 1 6 20 F5 E 6 1 5 9 0 : 8E GA 1 6 20 F5 E 6 8E OB 1 6 A D 06 1 6 C9 04 90 03 1 5 B O : I 0 1 9 20 58 19 18 A9 4C 60 06 1 6 20 10 19 20 5B (Carte pour Apple Ile ou 15CO : 1 9 18 A9 40 60 07 1 6 20 l a 1 9 20 SB 19 1 8 A9 50 15DO:6D 08 1 6 20 10 19 20 SB 19 A9 49 AE 09 1 6 FO 03 15EO : 3 8 E9 01 20 l a 19 20 SB 1 9 A9 SC AE OA 1 6 FO 03 15FO : 1 8 69 01 20 l a 1 9 20 SB 1 9 A9 59 AE OB 1 6 Fa 03 1600:18 69 01 4C l a 1 9 00 00 00 00 1 61 0 : 1 6 Fa 06 20 1 0 1 9 C8 DO F5 1 6 2 0 : 4 9 lB 59 lB 4C lB oc AO 60 47 lB 50 20 00 00 AO 00 89 lA 39 7r lB sc lB 00 20 50 1 9 20 F5 lB 1630:E5 EO 00 Fa 1 6 4 0 : 6 0 AO 0 7 B 9 55 1 5 20 l a 1 9 8 8 1 0 F7 5 0 4 J 6 9 3A 1650:1B 66 3A lB 43 04 0 7 B9 40 1 6 20 l a 1 9 88 la F7 6A 3A lB 04 66 3A lB 20 BE DE 1 6 6 0 : 2 0 E3 OF 2 4 81 30 04 2 4 82 30 03 4 C 76 DD 20 1 67 0 : 1 6 4C 99 1 6 A9 00 8D CC 1 6 20 60 1 9 90 1 7 C9 1 3 1 68 0 : 0 0 0 3 4C 28 1 7 C9 1 6 F a 4 4 C9 1 9 F a 4 0 29 1690:00 02 EE CC 1 6 AD CC 1 6 60 AD 1 5A O : A 9 0 9 8 0 00 0 2 D O 09 9 0 07 C9 1 6B O : 2 0 52 E4 A2 00 AO 1 6 C O : 8 3 C8 AS 1 6DO,BO 6F 91 03 4 C 95 1 6 70 91 74 Nos prix sont TTC American Computing Résidence les Floralies 7, Rue Charles Péguy 42300 Roanne Tél : 77.72.98.75 03 CE 0 0 02 83 60 00 20 AC 1 9 4C 95 16 C8 B9 26 4C 80 16 8E 2 6 1 7 20 AC 1 9 !JO 03 4C 95 15 80 1 7 0 0 : 2 7 1 7 AO 00 AD 2 6 1 7 D9 49 lA DO 1 0 C8 AD 2 7 1 7 1 71 0 : 0 9 49 lA DO 08 C8 B9 4 9 lA 4C 8D 1 6 C8 C8 C8 CO 1 7 2 0 : 2A DO El 4C 95 1 6 00 00 20 AC 1 9 Ba 1 7 3 0 : C 9 1 3 FO F4 89 4 0 FO F5 C9 Ile : 2800 Frs) 7F 80 29 Fa C9 4 0 Fa 1 8 8A A O 0 0 09 1 6E O : 2 6 lA Fa 09 C8 C8 CO 22 DO F5 1 6FO:IA 40 FIS COPV Il PLUS v8.1 : 395 Frs PROGRAM WRITER + Manuel FR : 630 Frs FONTWORKS v2.06 + Manuel FR : 630 Frs LABEL SHOP v 1 .0 (FR) : 240 Frs (Étiquettes couleur, Justification, Fontes. Type d'impression, Tous formats) 02 20 E2 ES AD CC 1 6 AO 00 91 83 C8 AS AA o o o o 00 02 C9 0 7 DO 0 7 DA Ba : Disquette Démo 15A O : 4 C BD 18 AD 07 1 6 OD 08 1 6 C9 08 Ba F3 A9 OF 20 03 4C 95 1 6 4A B a FI 29 OF 4C 80 1 7 4 0 : 1 6 20 SB 19 A9 59 4C l a 19 A9 FF 8D 51 1 7 4C CC 19AO:A4 1750:08 60 A9 OF 19BO : 1 9 80 C6 1 9 20 60 19 90 01 19C(I:C5 1 9 DO Fa 00 8C EC lB 8E EB lB 4 8 AO OA 00 AO 02 B9 ED lB 99 F5 1 7 6 0 : 4 C la 19 20 B7 1 7 7 0 : 0 0 FO 03 20 F5 E5 A9 41 1780:90 00 FO 03 88 l a F7 07 C9 2C Fa 03 4 C BD 1 8 20 FE la 8D Cl 07 4C C9 DE A2 1 7 8A Fa 2E C9 08 8A 69 40 8D BB 17 69 la 1 790:80 BD 1 7 AO OC B9 B 7 1 7 20 la 19 8 8 la F7 EE Cl 1 7A O : 1 7 AD Cl 17 50 A9 1 7 C9 59 DO EB 20 C4 OC 20 10 1 7B O : 1 9 20 FE la 4C C4 1 7 OF 67 12 5F 4 0 lB 50 lB DE 1 7C O : 4 1 4 0 IF 14 AO 05 B9 D O 1 7 20 la 19 88 la F7 50 1 7 D O : OA 54 12 20 41 40 IF 20 F5 E6 8A FO 1 4 17EO:I0 1 8 20 F5 E6 20 FE 10 8A C9 69 40 8D 1 4 1 7F O : 0 3 4C BD 1 8 59 40 80 DE 1 8 1 8 0 0 : B 9 OA 1 8 20 l a 1 9 88 1 0 F7 1 8 1 0 : 5 (1 lB OE 41 40 1 8 4 0 :F5 E5 8E BC 1 8 EO 08 C5 20 A 8 FC AD 1 _ � Œ 18 H a '8 00 50 CE CS 19 DO FS EE 00 CO C9 9B Fa 03 88 DO FI 1 9FO: 50 AD EA lB AE EB lB AC EC lB 50 60 50 7E 00 1 9 l A O O : 4 8 5E 00 1 9 4 3 5D 1 9 2 7 0 0 23 1 9 23 00 5B 1 9 30 l A 1 0 , O O 7D 19 41 55 7B 1 9 42 65 40 1 9 41 51 7C 19 41 1/;2 (1 : 75 SC 19 48 53 00 23 A3 24 A4 25 A3 27 DO 2e Be 1A30:2D /;2 2E BE 2F F6 30 DB 31 AB 38 AF 3C Ar 3D AF AF l A 4 0 : 3E 7A M 7B C2 59 l a 80 l a 1 8 AO OC 1A50: 6 5 ES 4 8 5 5 ES 41 61 C O 43 OF 57 12 5F 40 lB lA50:E9 4 8 6 9 E9 43 tiF EF 4 8 lA70:4B 63 OC 00 08 4 9 OC EC OC 35 aD 98 lA80;D8 aD 83 OF DE OF F5 Of' F9 la FE 10 03 Il 60 19 80 aD 8E BB 1 8 20 90 03 4C BD 1 8 AD B8 18 CD lA.90;83 1 1 6A AA C7 9D 1 1 D l 00 41 55 FD 42 65 FB 4 3 51 E l 4 8 51 El 4J 5 9 tiF EF 41 7 5 Fe 4 8 75 f'5 Il 2 9 1 2 31 aD D3 aD 43 I l 12 3 .9 12 3E 12 lB 1 3 lAA O : l D 1 4 25 1 4 2 D 1 4 E O 1 4 FA 1 4 0 7 1 5 OF ] 5 7 5 1 5 1850:B9 1 8 Ba F5 AD BA 1 8 CD BB 1 8 Ba ED 20 FE 1 0 20 lABO:OC 1 6 2B 1 6 50 1 5 4 1 1 8 6 0 : 5 5 1 9 A9 4 0 1 8 5D BA lACO:D7 1 7 1 7 1 8 00 00 (la 4 1 4D 42 52 4 3 53 44 lADO;51 48 6E 00 06 El E3 E3 ES Fa F'4 1 8 7 (1 : 1 8 2(1 1(1 19 A9 18 20 10 19 A9 4 0 18 5D B8 (lE 2(1 l a 1 9 2(1 5B 19 A9 4 0 18 6D 58 u u a 18 U _ '8 � IT 18 90 8E BA 1 8 20 F5 E5 EO 29 1 7 8E B9 1 8 20 F5 E6 EO 50 08 IF 1 4 2 (1 F5 E5 EO 29 Ba 2B 8E B8 1 8 2 0 : 1 8 20 F5 E5 EO 1 9 Ba 21 1830:BO C9 1 9 Ba 19DD:A9 1 9 6 0 0 0 0 0 A E EO lB AC E l lB fi a Ag C O 8D CS 4 6 50 4 7 5C 1 7 4 .9 1 7 52 1 7 SE 1 7 5 3 1 7 50 45 07 l a 1 9 A9 lAEO:El E3 E3 ES FO F4 E 5 07 El E6 E5 E9 E3 E8 E5 06 1 9 AD B9 1 8 38 ED B8 1 8 lAFO:El EC ES F2 F4 ES 05 El Fa FO ES EC 03 E2 E9 FO 1 8 A O : 1 8 5 9 4 0 2 0 l a 1 9 EE BA 1 8 AD BA 1 8 CD BB 1 8 90 1800:05 E3 El E4 F2 ES 0 7 E3 E8 El F2 E9 EF F4 04 E3 1 8 8 (1 :BC 1 8 4 8 20 l a 1 9 20 SB 1 9 1 8 9 0 : 5F 20 l a 19 A9 12 20 10 18BO;AE Fa AC A9 OF 4C la 19 00 58 00 69 l a 20 00 00 00 A9 02 4C 1 8 C O : 0 9 BE A2 Ba 4C 12 04 20 E7 1 9 80 55 1 9 20 18DO:AO 60 1 9 00 2C E2 l B l a 0 6 B9 25 lA 4 C E O 1 8 B9 FD 1 9 1 8 1 0 : EE F8 EE 0 4 E3 EE F8 F2 05 E3 F5 F2 f'6 E9 F3 08 IB20;E3 F5 F2 E9 EE F5 E9 F3 03 E2 El F'3 04 E8 El F5 IB30;F4 05 E4 ES E3 EE F8 0 7 E4 E5 Fa EC El E3 ES 0 7 BF a l 18EO:FO OB CD 55 1 9 F a OF C 8 C 8 C 8 C 8 DO ES AD 5 5 1 9 1B40:E5 EE EC E 9 E7 EE ES 0 4 E 6 E9 F8 ES 0 1 18FO:20 l a 1 9 4 C FI 1850:05 E9 C4 ES EE F4 04 E9 EE E9 F4 01 BE 05 EC E9 1 9 C8 A 2 03 2C E2 1 9 0 0 : 1A 4C 07 19 B9 FD 19 20 la lB 19 C8 CA DO EB Fa E3 1 9 1 0 : 2 C E6 lB 30 lC 8D 2F 1 9 8E 30 19 A2 1 9 2 (1 : 1 0 F(I F8 AD 2F 1 9 1930;00 1940;90 F 6 2 0 A 5 1 9 1950 ;FB 1 9 " 81 48 8E 53 19 8C 54 U X E" 60 l a 0 5 B9 25 00 Al lA 29 18 AE 30 1 9 20 FB 1 9 60 00 19 20 AS 1 9 A 9 00 20 la 1 4 68 20 a D 1 4 AE 53 1 9 A C 5 4 1 9 2 0 00 0 0 00 A 9 I F 4 C 1 0 1 9 A9 l B 4 C 1 0 1 9 8 H 'c u a 18 U N M U H U M ., A8 lB50:E7 EE ES 08 EC EF EJ El EC E9 F3 ES (14 ED EF E4 lB70:E5 03 ED F4 E8 01 BD (16 Fa El F2 El ED E 7 05 Fa IB80:El F2 El ED F4 05 F2 E5 E9 EE E9 F4 07 F2 EF F5 lU' IT a a N " n a n n n a •• n a a n lBAO:EC E9 E 7 EE ES 05 F3 E5 E3 F2 ES F4 0 7 F3 ES F2 IBB O , F 6 EF E 6 E 5 03 F4 F8 F4 (18 F5 E9 E4 ES E3 F2 El 1 8 2 9 7F AE EB lB 38 20 FC 1 9 IBCO:EE 08 Ffi E9 E4 EC E9 E 7 EE ES 0 7 F5 E9 E4 F2 E5 IBDO:E3 F4 00 04 E9 EE E9 F4 00 00 1 9 8 0 : 60 8 E A3 1 9 B C A4 1 9 20 A S 1 9 A.9 al 20 l a 1 4 .9 0 1BE O : C2 20 00 00 15 02 FF 00 00 82 1 9 9 0 : 08 20 A S 1 9 20 18FO : 3 0 30 1970:AE EB lB 18 Porn's nO 34 50 Al OA 1 4 2 9 7F 2 0 FC 1 9 AE A 3 1 9 AC 00 00 00 00 ·00 00 00 02 00 4C 03 BE 49 9?j]p@îm Pdeur... MadITffiro§]ffi ... enregistreur., télématique, interrogea6fe... Jean-Luc '13azanegue e numéro de Porn's que vous avez entre les mains contient un puissant ensemble de roulines en langage machine, formant une librairie d'instructions télématiques qui s'ajoutent à celles du Basic Microsoft (2.0 et plus). Afin de donner un exemple de programmation sur la base de ces nouvelles fonctions, nous avons pensé qu'il serait judicieux d'écrire un serveur/répondeur télématique intcrrogeable à distance. Il ne faut cependant pas s'y tromper : malgré sont caractère 'démonsU"atif' , ce serveur est parfaitement fiable, pratique, et son ergonomie pourrait faire rougir de honte les 'programmeurs' de la plupart des serveurs Vidéotex dits serveurs-kiosque. Si vous ne programmez pas, Cl comme à l'accouLUmée, cette application est disponible 'prête à lancer' sur la disquette d'accompagnement Mac 34 de Pom's. Un répondeur télématique pour quoi faire ? Il est inUlile dc préscmer ici le traditionncl répondeur téléphoniquc, matériel pas très pratique (il faut enregistrer u n message tout en ayant J'air décontracté, dynamico-branché - c'est à la mooe - et intelligent - ce qui, en cc qui nous concerne, requiert beaucoup d'efforts ainsi À propos du programme "Envoi Vidéotex" (Porn's 33) Le 'mini-protocole' utilisé par ce pro ' en SOOKo La taille des systèmes gramme - qui envoie les d'exploitation, des utili images créées par"Paint taires, ,... Minitel" - n'est pas caractères. . . n'allant pas reconnu par tous les en diminuant, il devient (demande Minitel d'identification). certains cas, Dans J'image Vidéotex n'est donc pas émise. pol ices très difficile de tout loger sur une disquette simple (ace 400Ko. inévitables 800Ko ce qui disquette d'ajouter une démo de gnement de ce numéro une version universelle. plus numéro La généralisation du Minitel, en particulicr avec l'annuaire téléphonique ct les grandcs sociétés de vente par correspondance, fait que la LOnalité aigu/! de la porteuse. qui est devenue parfaitement familière, est en passe de provoquer le geste réflcxe qui consiste en la mise sous tension du Minitel suivi d'une pression sur la touche 'Connex.ion/Fin' ; c'est ce que feront la plupart de vos correspondants, qui auront alors tout leur temps pour écrire - voire même peaufiner - un message à votre attention. Répomdeur, puisque tel est le nom du serveur que Pom's vous propose, vous donnera donc, outre le style dynamico-branché cité plus haut el que vous ne recherchez pas forcément, la possibilité de stockcr un maximum d'informations avec l'outil de communication qu'est votre Macintosh. De plus. votre servcur-répondeur télémauque Répomdeur est interrogeable à distance depuis n'importe quel Minitel raccordé à une ligne téléphonique. Il vous sera donc possible à tous moments d'appeler votrc Macintosh pour lire les messages enregistrés el prendre immédiatement les mesures qui s'imposent en (onction des besoins ou propositions de vos amis et/ou clients. Le matériel L'utilisation de Répomdeur rcquiert la présence du matériel suivant : unc lignc téléphonique ; un Macintosh 512Ko. Plus. SE ou II ; un Minitel bi-standard dit 'retournable' (ils le SOnt pratiquement tous) ; un câble de liaison Macintosh '" Minitel tel que celui utilisé par les programmes dcstinés à l'utilisation du Minitel ct publiés depuis le numéro 27 (si par hasard ce câble vous faisait défaut, les Éditions MEV peuvent vous le fournir) ; • Nous passons donc aux nous permet, pour d'accompa Cela ne va pas toujours jusqu'à la perte d'un client mais peut vous faire perdre une information, un rendez-vous, ou tout simplement un chaleurcux ct amical 'Comment vas·tu 7'. Nous passerons rapidemcOl sur le 'yau de poil . . . ' pour en venir à notre serveur/répondcur télématique. de Afin de remédier à cela, nous avons placé sur la 50 Les disquettes d accompagnement Macintosh mainte nant qu'une attenUon soutenue), et particulièrement irritant pour la plupart des correspondants, qui généralement raccrochent rageusement avant d'appeler lc maudit concurrent ce 34 de Pom's, ' ' programmes et fichiers "dBasc Mac" en plus des publiés dans ces pages. • • • Pom's n° 34 • un détecteur d'appel téléphonique que vous pourrez réaliser à l'aide du schéma publié dans le numéro 32 de Pom's. Cet appareil, dont le double connecteur s'intercale entre la souris et le Macintosh, peut aussi vous être fourni par les Éditions MEV. de l'objet, construire vous-même Si vous décidez nous vous reçommandons de faire très attention à la qualité et au branchements du relais ; une isolation galvanique parfaite est indispensable. Le synoptique joint à cet article indique quelles sont les liaisons à effectuer entre les différents appareils. On peut noter que la présence de l'appareil téléphonique n'est pas "" ' indispensable. Démarrage du serveur lire les messages enregistrés ... Quitter S 1 2Ko Plus L'article "Démarrer avec un fichier existant. . . " permet SE l'utilisation d'un fichier qui contient déjà le mot de passe, II votre nom - ou raison sociale - et votre numéro de téléphone. Le mOl de passe vous sera n i dispensable si vous comptez lire vos messages à distance depuis un autre Minitel, alors que les deux derniers 'éléments' seront employés pour l'affichage sur l'écran du Minitel de votre correspondant d'un texte que nous poumons qualifié 'd'écran de reconnaissance'. Par exemple, pour les Éditions MEV, nous affichons : Vous êtes bien au - Editions MEV - (l} 39 51 24 4 3 L'ouvenure d'un nouveau fichier sera parfois nécessaire. ne serait-ce que lors de la première utilisation du serveur. Dans ce but, Répomdeur affiche une fenêtre de saisie qui vous permellra l'initialisation de vos nom ou raison sociale et numéro de téléphone, ainsi que du mot de passe qui ce qui rassure tout de suite votre correspondant sur le bon autorisera les 'fonctions de service' à distance (lecture des aboutissement de son appel. messages, remise à zéro du fichier et changement du mot de passe). Cet article du menu "Fichier" conduit naturellement à l'affichage de la fenêtre de sélection de fichiers habituelle. Note : au lancement du progranvne, lafenêtre de sélection s'affiche, permettant ainsi un démarrage direct du serveur. Si vous appeliez Réporndeur pour effectuer une autre opération (démarrage avec un nouveau fichier, lecture des messages. . .), faites simplement un 'clic' sur le bouton 'Annuler' . M o t d e passe : d e 4 il 7 coroctères 2 e t 0 -> 9). Nom : Jusqu'à 1 6 caractères (A > - affichables par t o u s les Minitel. T é l é p h o n e : Jusqu'à ......0...................... .................... Nom Tél. 1- Editions M E U 1( 1 1 39 51 24 43 Rnnuler . .. . . . . . ..0..... .. Mot de passe Pom's n° 34 1 6 caractères affichables par t o u s les Minitel . . . . . .. . . ................ •.. .......• IW2Boo� - ) C=I\ OK 51 Le passage d'une zone de saisie à l'autre se fait classiquement par un 'clic', un 'retour-chariot' ou une Lecture des messages action sur la touche de tabulation. Certains contrôles sont effectués par le programme afin d'éviter les plus grosses erreurs de saisie ; ainsi, pour empêcher l'apparition dans le mot de passe de caractères difficiles - voire même impossibles - Z et 0 à saisir sur le clavier du Minilel. on limite les possibilités à A ... .. 9. Au cas où un ou plusieurs caractères se trouveraient hors de ces gammes, l'erreur est signalée par un 'bip' suivi de l'affichage en inverse du texte indiquant les possibilités. Le même principe est utilisé pour la saisie des nom et numéro de téléphone dont la longueur est vérifiée afin que l'affichage des chaînes de caractères ne provoque pas de désordre sur l'écran du Minitel servi. Mot de passe : de ... il! 7 car'actè.-es 1" Nous ne parlerons ici que de la lecture des messages SUI le Macintosh ; la consultation du fichier à distance sera évoquée un peu plus loin. 2 et 0 -) 9). -) N o m : jusqu'à 1 6 caractères affichables p a r tous les M i n i t e l . Téléphone : jusQu'o 1 6 caractères nffichables par tous les Minitel. Mot de posse 1- Editions MEU 1(1 ) 39 5 1 2 4 43 Nom Tél. Annuler azerty 1( 717 rIes sage ROUGERON 39 , 5 1 . 24 . 43 Jacques J ' a i l u quO i l ex i s ta i t un m i croprocesseur pour App l e Ilc, Pouvez-vous m ' i nd i quer où j e p u i s l e trouver, a i ns i que son pr i x . Je vous remerc i e d ' avance . Uotre revue est super ! ............... " ... . . ...,.,...... . ........ ' 1::1\::1 )' t1P ré é den tl 1'-;�-:-!l";:-: c ......................•••••••••" ........................................ Annuler IUiderJ de saisie est valide (les vérifications sont faites lOfS Le bouton 'OK' confinne vos choix el, si le contenu des zones de la sollicitation de ce bouton), une seconde fenêtre apparaît, autorisant le baptême du fichier serveur. Une fois le fichier nommé, et si vous n'utilisez pas le bouton 'Annuler', le serveur démarre avec le nouveau fichier. Quand le Macintosh sert . . . . . . son écran affiche un minimum d'infonnations. Le premier message affiché est le dernier reçu. Les boutons message à l'autre. Le boUlon 'Vider' pcnnet la remise à zéro 'Précédent' et 'Suivant' seront utilisés pour passer d'un du fichier, après confinnation bien sûr : Uoulez-uous effocer le contenu du fichier 'Fichier serueur 3' 1 n Il s'agit de : Attente d'un appel (Commande+ ' . ' pour Annuler OK interrompre le serveur) lorsque le MacinLOsh est en attente d'un appel ; Appel reçu. en attente de connexion.., attendant que votre correspondam appuie sur Côté Minitel servi Connexion/Fin ; Connexion ok, (connexion nO N) Après affichage des écrans de présentation, votre quand le Macintosh 'conversc' avec le Minitel servi. N correspondant se trouve devant une 'page' qui lui propose représente le nombre de connexions depuis le lancement de trois choix possibles : Réporndeur. 52 serveur actif ( 1 ] Laisser un message Pom's nO 34 discrétion, les caractères du mot de passe sont retournés à l'écran sous la forme d'astérisque ('.'). donne accès à différentes zones (parfaitement contrôlées par votre Macintosh-serveur), qui permettent la saisie d'un nom (obligatoire), prénom, [ 3 ] Quitter numéro de téléphone ct message de 196 caractères (7 n'ont rien à faire là. . . soigné l'ergonomie du serveur, pour la partie utilisateur ou la panie 'maître' (fonctions de Fonctions d e service service) ; ainsi, par exemple si votre correspondant d�irc passer plusieurs messages de suite, il trouvera lors des nouveaux affichages de la fenêtre de saisie Vous seul pouvez accéder à ces fonctions puisque le mot de ses nom, prénom, et numéro de téléphone affichés passe est indispensable. par défaut (mais modifiables) et le curseur placé sur la première JXlsition de la 7..one de saisie du message. ( 1 ] Lire messages l'écran de votre MacinlOSh, les boutons 'Précédent' et on le présente tel qu'il sera réellement enregistré, 'Suivant' étant seulement remplacés par les louches permettant ainsi au correspondant une éventuelle 'Retour' et 'Suite'. modification ou, pourquoi pas, annulation. ( 2 ] Effacer le fichier Identique à la fonction disponible sur le Macintosh service Ceci vous est destiné, L'écran qui suit cc choix est avec, bien sûr, demande de confinnation. un passage obligé pour aller vers les fonctions de [ 3 J Changer service ; il faut ici frapper le mot de passe. Le le mot de passe serveur autorise trois essais au terme desquels Ceci peut être utilisé si, par eltemple, le mot de l'indélicat est déconnecté. Afin de sc protéger des passe a été communiqué à fin de démonstration. Le indélicats futés, il n'est pas possible de faire plus de changement de ce mot est doté de nombreuses trois essais même en revenant à l'écran précédent protections qui garantissent une modification entre deux tentatives. Notons que, par souci de parfaitement fiable. Programme 'Répom 'deur' , ç s.::� PI "> les indentations indique la continuité de la ligne. • les Le fonctionnement est comparable à la lecture sur Dans le même esprit, avant d'enregistrer le message, de répondeur Pour ceult qui s'aperçoivent au dernier moment qu'il lignes de 28 canlctères). Nous avons particulièrement [ 2 ] Fonctions ce ' - Répom 'deur - e 1988 Christi an Piard, et Pom ' s Jean-Luc Bazaneque - LIBRARY "Pam Link 2.1H DEFINT A-Z DIM Messaqe$ ( 6} , Cris(3} , Rect(3 ) ON BREAK COSUB B l o q u e ; BREAK ON COSUB Init i a l i sations ON MENU COSUB Men u s ; MENU 0 N ON MOUSE COSUB Souris COSUB OuvreFichier , DemNouvedll, Lire, Rien, Qui tte r ON ERROR RepriseAttente: MENU ON COSUB MENU ChtlineEtat$ ....Attente d ' u n dppe ' , ' pour 1 1 DemExlstanC: nterrompre le serveur) " COSUB OuvreFichier RETURN COSUB NouveauFichier ( "+CHR$ (17} + " + COSUB spAffl cheEtat '. DeroNou veau : attente d ' un appel ' AttenteAppel: HENU 1 , 5, 0 RETURN ON BREAK COSUB ArretServeur Arreter: HENU OFF WINDOW CLOSE 1 MENU 1 , 1, 1 HOUSE ON Dr-F'dux MENU 1 , 2 , 1 DrArret -Fd uX MENU 1 , 3, 1 C$-'''' Dr-Faux D1og-0 COTa AttenteOuverture WHILE NOT Dr AND NOT DrArre t AND C$<>CHR $ ( 2 7 } Rien: RETURN C$-INKEY$ Quitter: Dl og�DIALOC (O) LIBRARY AND 0 1 0 g<>4 CLOSE IF Dr THEN FichlerOuvert SYSTEM l WEND HOUSE HENU OFF ON ON BREAK COSUB Bloque FlchierOuvert : WINDOW l , Httat HENU OFF VideVariables RETURN WINDOW CLOSE COTa Attent eOuverture COTO Erreur FinMenus: AttenteOuverture: Menus: MENU 1, 3, 0 du serveur", (0 , 39 } - (512, 342} , 1 HENU 1. 5, 1 IF DrArret OR C$-CHR $ ( 2 7 } nMenu-NENU(Oj nArc i cle -HENU (l j TEXTFONT CLS OPEN "R",l, Flchier$ , 2 4 4 IF nMenu<>l HENU 1 . 1 . 0 FIELD THEN FinMenus ON nArCicle COSUB DemExistant Porn's nO 34 O ; TEXTSIZE 1 2 MENU 1 . 2 , 0 Dlog-4 OR THEN Arreter 1 , 2 A S zNombre$, 8 A S zN ot$, 1 6 AS zNom$, 1 6 AS zTel$ 53 �I GEX 1 , l Mot$-zMot$ NomServeur$-zNom$ XelephoneServeur$-zTel$ tlMot: '" I ...J C �� ?) " THEN M IF RIGHT$(Mot $, l ) - " ot $-LEFT$ (Mot$, LEN (Mot$) - 1) :GOTO tlMot THEN NomServeur$-LEFT$ (NomS erveur$,LEN (NomServeur$)-l) : GOTO t l Nom tlTel: IF RIGHT$ (TelephoneServeur$,l .. THEN TelephoneServeur$ -LEFT$ (TelephoneServeur$, LE N(TelephoneServeur$) -l) :GOT o t l Tel ChaineEtat$-"Appel reçu, atten te de connexion..... GOSUB spArri cheEtat WHILE Accept ! 29,22,0, '''', 1 , Chaine$,D TIHER<Temp ' + 2 ON Dr+l ' . Seconde page • ChoixImp2, Deconnexion Cadre ! 1 . 1 . 40, 7, 2. 0,5. 0 GuideImp2 : Cadre! 1,8,40,20,2,0,5,0 GOSUS GuideIndisponible GOTO BoucleChoix Deplace! 5,3 Affiche! "Vous étes bien a u Depl«ce! AfrlcheR ! (connexion nGn+No 4, 1 0 "Votre interlocuteur est un" 4,12 "ordinateur Apple pré ArricheR! "1 Arfi cheR! 1- ' 1- , Affi cheR! 1 1 1 } "1 1 } - 1 } "1 Affi cheR! "1 } 1 ,1 1 1 1 /1 "1 Affi cheR! } , 1 '" 1 } Il Affi cheR! 1 1 } 1 } 1 ',-1 } 1 1 AfricheR ! Affi cheR! Affiche! ........ Inverse! " Connexion Deplace! 1 , 6 GOTO DeconnexionF, Som }" "'_1 Affiche! Afriche! 1 . 1 . 40, 6, 4 Inverse! 9, 4 AfficheR ! 1 , 7, 4, 0, 0, ° .. Répondeur télématiq " " Suite Norma l ! Mode ! 2 GOSUB spCadresCho i x Affiche! ParamT! FOR 0, 7, 0, 0,0, 0 B, Il 8, 1 4 Affi che! "Fonctions de service "Laisser un message" Message___ " Index-lI Deplace! Deplace! Affiche! TO 1 7 l , Index "• . . . . . . . • • . • . . . • • • • . +" . . . . . . . . 12 Ligne! Affiche! 4 Deplace! ParamT! +" Chariot! Afriche! Bas! "Téléphone Ligne! Affi che! Haut! Suite 1, 7 . . ...... P«ramT! 1 . 2 , 0,0, 0, 0 "- La revue des Apple Ligne! Affiche! Deplace! ue" Deplace! Prénom +" ........ Inverse! VidEcran! Afriche! Affiche! Affiche! Sommaire: ParamT! Suite Arfiche! AcceptF! Dr Deplace! . • . . . . . • Affiche! BouclePage2 : VidRect ! : +" Ligne! "Renoncer ' . Sommaire "1 } " '" "Votre nom Suite GOTO BouclePage2 ,- 2, L 38, 3, 0, 0, 2, 0 Affiche! GOSUB spToucheInactive ,--1 Enregistrement de L5 nexion, Indctl 1 " Affi che! Inactl: ,- 1 , }" 1 1 ,-1 '-1 '-- 1" "1 } " Affi cheR! Cadre ! "Accès " menu actl, Sommaire, Sommaire,Decon ," 0, 7, 4, 0, 0, ° votre message maire, Inactl , Page2, Inact l , In 1 1- \-1 } " "1 . . .. paramT! Affiche! Deplace! ON Dr+l 1 1 , 1 } Affi cheR! 1- } ( ) ( 1- \ 1 " "{ 1- - \ 1 [ 1- \ 1 conr 3,2 Inverse! Affiche! 1___ \ 1- -- - ' -------- 1 Il 1----- ' " H ' VidEcran! Inverse! Inverse! ' Enregistrement du message Deplace! Deplace! 13, l B Affiche! 1, 1 3 '. EnrMessage: Deplace! Afriche! Deplace! 1 8 , 1 9 mbreConnexions$+") .. GOTO EnrMess age, Service, Quitte Affiche! Affi che! ser COSUS spAfri cheEtat AUicheR! ON VAL (ChaineS) Deplace! idences • Première page THEN GOSUS Choiximpossible NomServeur$ "vos messages et onnexions) IF Chaine$<"l " OR ChaineS>"3" : GOTO BoucleChoix Affiche! ChaineEtat$... ..Connexion ok, ChoixImp2 ; 5,5 Mode ! 2 NombreConnexions-NombreConnexi '. "+ Te1ephoneServeur$ 4, 14 ons+l GOTO DeconnexionF,Cho ixImp2,Page2, Sommaire. Guldei mp2,Bouc1eChoix,BoucleChoix, Deplace! Deplace! r WEND IF NOT Dr THEN Deconnexion NombreConnexions$-STR$(NombreC " Envoi BoucleChoix: ChaineS-.... Temp '-TIMER t a enregistrer" CnxR ! Dr 9. 1 7 Deplace! 8, 1 7 Inverse ! Arfiche! "Quitter ce répondeur Afriche.' 0 , 2 , 0, 0 , 0, 0 Arfiche! "_ "+CHR$ (18) +CHR$ [86 Deplace! 1 2 , l B Suite NEXT Deplace! Arri che! 54 "_ "+CHR $ ( l B ) +CHR$ (92 VidEcra n ! IF RIGHT$(NomServeur$, l ) - " veur a-::t ir Affi che! 0,3, 0, 0, 0, 0 Arfiche ' Page2 : tlNom: ) -" paramT! Invers e ! 15,22 "Votre choix . " Deplace! Affiche! essage 1,20 "Pour vaUder votre m ." Porn's n° 34 casus spTouchelnactive Ligne! Affiche! " Affiche! COTa SaisieTeleph one Inverse! Guidelmp5: AfficheR ! COSUS GuideIndisponlble Normal! COTO SaisieTelephone Affich e ! Envoi Affiche! Depl.!ce! 13,21 Affi che! "Pour l '.!nnuler :" Inverse! LlgneMessage-O Ligne! Affiche! S.t1sieMessdge2 : Affichel Inverse! SOmnl.!ire Depl.!ce! 13,5 Depl ace! ON Dr+l AfficheR! Deplace! 1 , NumLigne, 0, ..... 28, Mes 1 , NumLigne TelephoneS Ta 1 7 COTO DeconnexionF, Val " Annul.!tion AttenteValidlltion: AcceptF! Dr ON Dr+1 COTa DeconnexionF, Enr egistrement, EnrMessage, Valid ssage, CUideImp6. Inact6.Somma ation, GuideImp7,Sommaire,Som ire, SaisieMessage4,Deconnexi maire, ChoixImp7, Deconnexion, EnrMessage 00 1 . Index AfficheR ! Message$ (Index-11) GuideImp6: Ch oixImp7 : NEXT COSUB GuideIndisponible Alerte! "Touche interdite". 0 COTO SaisieMessage2 COTa AttenteV.!lidiition isiePrenom,S�isieTelephone, S Inact6: Guidelmp7 : alsieMessage COSUS spTouchelna c t i ve casus Guidelndisponible COTO SaisieMessage2 COTO AttenteValidation ON Pointeur COTa S.!lsieNom,S� SaisieNom : SaisieMessage4: Pointeur-1 Accept ! ON Dr+l 13,5. O. " " , 1 6. Nom$. Dr COTa DeconnexionF,ErS .!lsieNom, In.!ct3, EnrMessage,G uldeImp3, In.!ct3, Somm.!lre,ErS LigneMessage-LigneMessage+l IF LigneMessage-7 THEN Valida tion GaTO SaisieMessage2 SaisieMessage3: aisleNom,Deconnexlon Inact3: LigneMessage�LigneMessage-1 COSUB spToucheIn.!ctlve IF LigneMessage<>-l COTa Saisi eNom LigneMessage-O: COTO SaisieTele casus Guidelndisponible phone COTa SaisieNom THEN indispensable . Alerte! . • "Nom ", l :OOTO Sai sieNam IF Dr-l GOTO Valid.!tion SaisiePrenom: Pointeur-2 Accept ! , ON Dr+l 13, 6,O, ...., 1 6, PrenomS. D COTa DeconnexionF, V.!l idation,SaisieNom, EnrMessage , GuideImp4, Inact4, Somm.!ire,S aisieTelephone,Deconnexion In.!ct4: ' AfficheR ! "enregistré : " 4, , Affich e ! Nom Deplace! 4.8 Affiche! "Prénom Depl.!ce! 4, 9 Affi che! "Téléph $ "+NomS "+Prenom$ "+Telephone ro 6 Deplace! GuideImp4 : NEXT Deplllce! 1,21 COTO Sl1isiePrenom Affiche! "Pour le valider 6, 1 1 +Index otS, 1 6 AS zNomS, 1 6 AS zTelS CET l, l NombreMessaga-CVI (zNombreS) LSET zNombreS-�I$ (NombreMess S , 2 8 AS u3S,28 AS u 4 $ , 2 8 AS u5S,28 AS u6S.28 AS u 7 S LSET uNS�NomS LSET uPS-PrenomS LSET uT$-Telephone$ LSET u 1 $-MessageS (0) LSET u2S-MessageS ( 1 ) LSET u3S-MessageS (2) LSET u4S-MessageS (3) LSET u5S-Message$ (4) LSET u6$-Message$ (5) LSET u 7 S-MessageS (6) PUT 1 , NombreMessage+l TO 6 MessageS (Index) NEXT Pointeur-3 Ligne! Accept ! 1 3 , 7 , O , " " , 1 6, Telephone Affiche! COTa DeconnexionF, Val Affi cheR ! " Norma l ! .!ge,GuideImp5, In.!ct5, Sommair Affiche! e,S.!i sieMessage, Deconnexion Ligne! _ .... Dernier écran VldEcran ! Inverse! idl1tion, SaisiePrenom. EnrMess uP$,l 6 AS uTS,28 AS u l $ . 2 8 AS u2 FOR Index-O S.!isieTelephone: Porn's n° 34 FIELD 1 , 2 AS zNombreS, 8 AS zM tel q u ' i l sera" FOR Index-Q In.!ct5: "Enregistrement en co urs" "Voici votre message Affi cheR ! MessageS(Index) $,Dr 6,12 Affiche! FIELD 1 , 1 6 AS uN$, 1 6 AS 1. 3 AfficheR ! COTO SaisiePrenom ON Dr+l VidEcran! Deplace! PUT 1 . 1 VidEcra n ! Deplace! Deplilce! Enregistrement age) Validation: COSUS spToucheln.!ctlve casus GuideIndisponlble " Enregistrement : NombreMessage-NombreMessage+l ' . tcran de validation ErSaisieNom: IF NomS� � " THEN Sais ieMessage2 GuideImp 3 : '" Normal! idation,SaisieMessage3,EnrMe 13, 7 FOR Index�ll AfficheR! sageS (LigneMessage) ,Dr AfficheR! PrenomS Deplace! Inverse ! Pointeur-4 Accept ! 13, 5 " "Pour l 'annuler NumLigne-LigneMessage+l1 Deplace! Affi cheR ! NomS éPI 'i::� S.!isieMessilge: Ligne! Affiche! .. Correction Deplace! .. Envoi Affl cheR! 6, 12 "Votre message est e nregistré . . . .. "Pour le modifier Deplace! 11.14 Affiche! " . . . faites Inverse! 55 Affiche! .. Sommaire .. Affiche! IF Essai-2 AttenteMo;;: IF Dr-Fa ux THEN DeconnexionF MotP./lIsse$-"" IF Dr-8 THEN Deconnexion Secret ! Pointeur-4 : GOTO Sommaire ' . Fonctions de service ' nteMot .. Sommaire AcceptF! Dr ur, VidEcran ! GOTO DeconnexionF,Att Deplace! 10,12 Affic;he! "Dé::colé, enteMot2, Sommaire, Servi ce, Gu Service: idelmp8, Inact8,Sommaire, Atte COTO Deconnexion VidRect ! 1 , 1 , 40 , 6 , 4 nteMot2,Deconnexlon AttenteMot3: P./liramT! Affiche! 10,4 1, 7 , 4 , 0 , O. 0 e" paramT! 0, 7, 0, 0, 0, 0 Deplace! 3 2 , 1 2 Affiche! "+ " .. Envoi --, ç , Inverse! Affi che! _ I ii " Fonctions de servi e " �� <7) GuldeImp8: Essal-0 GOSUB Guidelndisponib1e VidLigne! 12, 0 GOTO AttenteMot VidLigne! 15, 0 Inact8: GOSUB spC�dresChoix GOSUB spTouchelnactive Deplace! GOTO AttenteMot Affiche! "Lire le. mess�ges" AttenteMot2: Deplace! 8,14 IF MotPasse$-Mot$ GOTO Attent Affiche! "Effacer le fichier" Deplace! 8, 1 7 Affiche! "Changer le mO< de P' eMot3 Deplace! 1 5 , 1 5 Ess<"Ji-Essai +1 Affiche! IF Essai-l "Pour renoncer déconnexion forcée . . . .. VldEcran! Deplace! "Erre AttenteMot 9 , 1 2 , 0, "Mot de passe " , 7 , MotPasse$,Dr ON Dr+l THEN Alerte! encore un Essai", l :GOTO THEN Alerte! sse" "Mot de passe erroné", l : COTO Atte Inverse! Jusqu'à 72 p oi n ts avec MacWrite Le nouveau 'système' (4.2) est arrivé avec les polices LaserWriter Courier, Helvetica et Times (aussi utilisables avec une ImageWriter) en tailles 27, 30, 36, 42, 54 et 72. Malheureusement, le menu 'style' de MacWrite n'autorise que les tailles allant de 9 à 24 points. C'est pourquoi, afin de détourner le problème, nous avons créé avec un éditeur de fichiers un document MacWrite baptisé "MacWrite 9 à 72" et contenant des caractères en tailles 9 à 72. Ces caractères utilisent la police Times mais, ici, peu importe la police, c'est la taille qui compte. Par exemple, si vous voulez insérer dans un document le titre "Section 1" en Courier 72 : • fermez votre fichier ; ouvrez le fichier MacWrite 9 à 72 ; • sélectionnez et copier 72 (ou seulement le 7 ou le 2) ; • fermez le fichier MacWrite 9 à 72 ; ouvrez votre fichier ; • coller 72 à l'endroit où vous voulez placer votre titre ; • taper Section 1 ; • sélectionnez Section 1 ; changer la police (Courier dans le menu Caractères) ; • supprimez 72. • • • Le fichier Write 9 d 72 est sur la disquette d'accompagnement de ce numéro. 8,11 Deplace! 15, 22 Affi che! "Votre choix • " Inverse! " Envoi Affiche! AttenteService: Chaine$-"" AttenteServlce2 : Chalne$-.... Accept ! 29, 22, 0, " " , l , Chaine$,D r OH Dr+l GOTO DeconnexionF, Att enteService3, Service, Inact9, Guidelmp9, lnact9, Sommaire,At tenteService3, Deconnexlon IMlct9: COSUB spToucheInactive COTO AttenteService2 Guidelmp9 : COSUB Guidelndisponible GOTO AttenteService2 AttenteService3: IF Chaine$<"l " OFI. Chaine$>"3" THEN COSUB Choix Impossible: coro Att enteService ON VAL (Chaine$) GOTO Lecture ,Effacer, ChangeMot '. Lecture du fichier Lect ure: FIELD 1 , 2 AS zNombr e $ , 8 AS zM o t $ , 1 6 AS zNom$, 1 6 AS zTel$ GET 1. 1 9 10 12 14 18 24 27 30 54 72 36 56 42 NombreMessage-CVI (zNombre$) IF NombreMessage-O e! THEN Alert "Aucun message reçu", l :GO TO AttenteService2 NumMessage-NombreMessage+l FIELD 1 , 1 6 AS uN$, 1 6 AS uP$,l 6 AS uT$, 28 AS u l $ , 28 AS u 2 $ , 2 8 AS u3$, 28 AS u 4 $ , 2 8 AS u5$,28 AS u6$,28 AS u 7 $ Lecture3: VidEcran! ParamT! 0,2, O. 0, 0, 0 Pom's nO 34 Affiche! "_ "�CHR$ (l8) +CHR $ ( 6 4 Deplace! 2,3 Affiche! "Consultation des me ssages enregistrés" Mode! 0 ParltmTI 0,2, O. 0, 0, 0 Affiche! PdrdmT! Affiche! "tPrenom$ .. ' ' ;> FOR Index-l Affiche! "+Telephone$ Inverse! TO 7 Deplace! 2 , l 6+Index Affiche! Affi che! AttenteEffdce: n+MeSSdge$ (Index Accept ! Affiche! "Précédent ." Ligne! 1 0, 1 6, 0, "0/1: pour tout ? ",3, Reponse$, Dc effdcer cora DeconnexionF, A t t ON Dc+1 AcceptF! Dr 0. 6, O. 0, O. 0 SOIRln.aire Reponse$-.... NEXT AttenteLecture: 9,5 "Pour Ligne! -1) "�"tCHR $ ( 1 8 ) tCHR$ (64 t39) Dep1dce! ';> Deplace! 2 , 1 5 Mode ! 1 AfrlcheR! Depl,ace! 5,23 Deplace! 2, 14 Affiche! +39) ON Dr+1 coro DeconnexionF, Ind cUD, AttenteL�ctureR, Lecture 3,GuldeImpl O, In.actlO, Sommair enteEfface2, Indctll, Eff.acer, GuideImp11, SolRlndice,SOlRlndire , In,actll,Deconnexion Affiche! eBis,AttenteLectureS,Deconne Indct l l : Inverse! xion, Inact10 GOSUB spToucheln,active Affiche! RETOUR Depl,ace! p,ar,amT! 11. 6 0, 6, 0, 0, 0, 0 Affi che! "Sui v,ant :" Ligne! Affich e ! SUITE 15, 7 0, 6, O. 0, O. 0 Affiche! "Fin ." GOTO AttenteEfface SommaireBis: AttenteEff,ace2 : IF Reponse$<>"OUI" THEN Repon se$-"":Alerte! In.act l O : FIELDI1 , 2 AS zNombr e $ , 8 AS zM ot$. 1 6 AS zNomS, 1 6 AS zTe1S GOTO AttenteLecture AttenteLectureR: 'Retouc GET 1 , 1 AfficheR! .. SOMMAIRE 0,2, 0, 0, 0. 0 AfficheR! "_ "+CHR$ (lB) tCHR$ (6 4t39) Affiche! .. "+CHR$ (lB) +CHR$ (64 LSET zNombre$-MKIS(Oj GOTO Lectuce2 NumMessage-2 :Alerte! "C'est le premiec mess,age" l : GOTO Att . enteLecture AttenteLectuceS: 'Suite Deplace! 1 . 12 0, 4, 0,0, 0, 0 AffiChe! .. · ..+CHR$ (18) +CHR $ ( 6 4 Depl,ace! 1,16 0, 4, 0, 0, 0, ° " ' ''+CHR$ (18) +CliR$ (64 +39) Deplace! 1,24 0,2, 0, 0, 0, 0 Affic h e ! .. · ..+CHR$ (lB} +CliRS (64 6,12 AfficheR! �Le fichier a été ré . . Depl.ace! 11.14 IF NumMessage<-NombceMessdge+l Affiche ! ". NumMessage-NombreMess,agetl:Ale rte! "C'est • • " f,aites Inverse ! le derniec", l :GO TO A t tenteLecture Affiche! " SOIRln,aire AcceptF! Dr IF Dr-F,aux IF Dr-8 Affic h e ! P,ardmT! VidEcr.an! Depl,ace! NumMessage-NumMess,age+l +39) ParamT! pur 1 , 1 initi,alisé • GOTO Lect ure2 +39/ "Réponse inca rrecte", 0 : GOTO AttenteEffdce GOSUS spTouchelnactive IF NumMessage;>l Invers e ! paramT! COSUS GuideIndisponible GOTO AttenteLecture NumNessage-NumMessage-l Ligne! AffiChe! P,ar4mT! GOSUS Guidelndisponible GOTO Sommaire Inverse ! panmT! GarO AttenteEff,ace Guidelmpll: GOSUB VideVarlables Affiche! Deplace! GuideImpl0: ' . Effacer le fichier THEN DeconnexionF THEN Deconnexion COTa Sommaire EffiJCer: VidEcran! ' . Changec le mot de passe VidRect ! L L 4 0 6, 4 Ch.angeMo t : Deplace! 10, 4 VidEcr.an! P,aramT! . 1 , 7, 4 , 0, 0, ° Affiche! V.1dRect ! " Eff.acement fichier +39) Depl dce! P,ac,amT! 1 1 , 40, 6 , 4 . 24,4 1 , 7, 4, 0, 0, 0 Lecture2 : Par.amT! GET 1 , NumMesssge Deplace! 5 , 1 0 PdrdmT! NomS-uN$ AfficheR! Depldce! 1 , 23 Affiche! "Pour renoncer, Prenom$-uP$ 0, 7,0, 0, 0, 0 Affiche! "Cette commande supp rime l 'ensemble� TelephoneS-uT$ Deplace! Mess,ageS (DJ-u1$ AfficheR! 5,11 s : "des messdges stokés Mess,age$ (1)-u2$ Messltge$ (2J-u3$ Deplace! Mess,age$ (3}-u4S ArficheR! Message$ (4}-u5S Mess,age$ (5)-u6$ 5,13 �On n e peut dnnuler un effacement . . . " Deplace! 5,22 Affi che! "Pouc eff,acer .. Messdge n o " + STRS ( NUmMessage-l ) 2.13 Inverse ! ... . ;> "+Nom$ Affiche! . Inverse ! Affiche! " Sommdire .. Deplltce! 1.11 Affiche! "Taper l e nouve,au mot " Affiche.' .. Envoi Deplace! 1,16 Affiche.' Ligne! Affiche! Porn's nO 34 :" "T,aper l e J nouveau p ouc contc01e" Affiche! Depldcs! faite . Inverse! Deplace ! Affiche! �Mot de passe" 0, 7, 0, 0, 0, 0 de pdsse + R$-"" Messdge$ (61 -u7$ 2,10 · C.adre! 25,12, 35, 1 4 , 2 , 0 , 5 , 0 " OUI + Envoi " C.adre! 25, 1 7, 35 , 1 9 , 2 , 0 , 5 , 0 57 VerifMot: spCadresCholx: Reponse2$-"" Cadre! Secret ! 27,13,0, "", 7,Reponse2$ Affiche! Cadre! ,Dr ON Dr+1 GOro DeconnexionF, Ver � 4 . 1 3. 6, 15. 2. 0. 5. 0 ,, ") 4 . 1 6. 6. 18. 2, 0. 5. 0 "2" Affiche! ifMot2,Inact12,ChangeMot. Gui Cddre! delmp12, Inact12. Sommaire. Ver Affiche! itMot2 , Deconnexion RETURN "3" Indct12: Choixlmpossible: GOSUB spToucheln active Alerte! GOTO VeritMot RETURN ' . Ouverture d ' u n nouveau tich ier • NouveauFichier: Drlnverse-Faux WINDOW 2, ...., ( 1 1 6, 4 4) - (J 7 9 , 2 7 5 ) , -2 TEXTFONT O : TEXTSIZE 1 2 PENPAT VARPTR (Gris (0) ) "Choix impossible".l HOVETO 8, 1 2 0 LINETO 2 5 5 , 1 2 0 HOVETO 8, 2 0 0 GuideImp12: spAtficheEtat: GOSUB Guidelndisponible PRINT ChaineEtat$ PENNORHAL GOTO VeritMot PRINT HOVETO 1 6, 1 6 RETURN PRINT "Mot de passe VeritMot2 : IF LEN (Reponse2$) Alerte! < 4 THEN "Minimum 4 caractère s .... l :GOTO VerltMot VeritMotBis: Secret ! 2 7 . 1 8 . O. "". 7,ReponseJ$ ,Dr ON Dr+1 Garo DeconnexionF. Ver ifMotBis2, InactlJ, ChangeMot, GuidelmpI3, Inact13. Sommaire. VerifMotBls2. Deconnexion InactlJ: GOSUB spTouchelnactive GOTO VeritMotBis Guidelmp1J: GOSUE Guidelndlsponible GOTO VerlfMotBis Veri tMotBis2 : IF Reponse2$<>Reponse3$ THEN Alerte! "Les deux mots de pa sse dittèren t " . l :GOTO VerifM '" FIELD 1 . 2 AS zNombre$ . 8 AS zN ot$. 1 6 AS zNom$, 1 6 AS zTel$ GET 1, l LSET zNot$-Mot$ PUT 1 . 1 Deplace! 6 , 1 2 Affi cheR! "Le mot de passe a é té changé . • • Deplace! 11. 1 4 ... . . taites Inverse! " Sommaire AcceptF! Dr IF Dr-Fa ux THEN DeconnexionF ' . sous-programmes divers "Touche inactive ici". Faux RETURN PRINT "affichables p d r t o u s l es Minitel . " FOR Index-O Ta 6 HOVETO 56, 1 4 1 Message$ (Index) -..... PRINT "Mot NEXT PRINT "Nom" Souris: HOVE Ta 1 6 . 1 8 9 Appel ! Dr PRINT "Tél . " EDIT FIELD 1. " " . ( 1 6 0 . 1 2 9 ) - ( 2 Fin et déconnexion ' Quitte: 48,144) EDIT FIELD 2 . ''''. (54. 153) - (2 4 8. 1 68) VidEcran! Deplace! 1 0 . 1 2 . "Au revoir. . . . DeconnexionF: vidEcran ! J.12 Flash! "Minitel inactif depu is 2 minutes. " 9.14 Fl<lsh! "Déconnexion forcée. " EDIT FIELD J. '.... (54 . 1 7 7) - (24 8 . 1 92) EDIT FIELD 1 NumEdit-l BUTTON 1 , 1 . "Annuler", ( 1 6. 2 08) - (128.224) BUTTON 2 . 1 , "OK", (136. 208} - (24 8.224) ON DIALOG GOSUB DialogueNou vea u : D IALOG ON DrSortie-Faux BoucleD: IF DrSortie THEN SortieNouvea , GOTO BoucleD CLOSE RESET SortieNouveau ; GOTO Repri seAttente DIALOG OFF Erreur: HINDOH CLOSE 2 RESUME Erreur2 IF NOT Dr Erreur2: Fichier$-FILES$(O. "Nom du l'ich VidEcran! Alerte! Affiche! "Guide indisponible".F de passe" HOVETO 1 6, 1 65 RETURN Guidelndisponible: RETURN HOVETO 1 6, 1 1 2 Telephone$-.... DeCnx ! spTouchelnactive: jusqu '� 1 6 caractères " Prenom$-.... GOTO Sommaire " Pi/INT "Téléphone Nom$...... IF Dr-8 THEN Deconnexion - HOVE Ta 1 6, 9 6 Pointeur-O Aftiche! 1 es Minitel . " VideVariables: Depldce! jusqu ' J 1 6 carac PRINT "affichables par tous Essai-O Affiche ! : HOVE Ta 1 6. 72 DrArret"Vrai Deplace! et (J -> 9) , " tères" RETURN Attiche! Z PRINT " (A -> PRINT "Nom ArretServeur: " NOVETO 1 6. 32 HOVETO 1 6. 5 6 RETURN Deconnexi on: Alerte! THEN Dr-Vra GOTO Deconnexion vidEcra n ! Attiche! Fich ier$-FILES$ (1. "'PRêp ") IF LEN (Fichier$) de 4 � 7 caractères" OuvreFichier: RETURN Mot$-Reponse2$ Attiche! LINETO 2 5 5 , 2 0 0 i ELSE Dr-Faux ReponseJ$...... 58 "1" I P 0� 9 C' 4. 1 0. 6, 12,2. 0. 5, THEN RETURN ier serveur : H} "Désolé. problème ser veur" GOTO Deconnexion IF LEN (Fichier$) THEN Dr-Vr<l i ELSE Dr"Faux :RETURN OPEN"R". 1 . Fichier$. 244 Pom's n° 34 FIELD l 1 , 2 AS zNombre$, 8 AS zH ot$, 1 6 AS zNom$, 1 6 AS zT81 $ NumEd i t -DIALOC (2) EDIT FIELD NumEdit PENNORHAL Dlog-Faux LSET zNombre$-MKI$ (01 RETURN WHILE Olog<>l AND 010g<>6 LSET zMot$-Mo t $ RienD: D 1 og-DIALOG (0} LSET zNom$-NomServeur$ RETURN LSET zTel$-TelephoneServeur$ WEND WINDOW CLOSE 2 Sloque: RETURN PUT 1 . 1 RETURN CLOSE ReturnD: NANE Flchler$ AS Fichier$, "PR ép" IF DrIn verse THEN COSUS Sign ale:Drlnverse-Faux �ETU�N NumEdit-NumEdit+1 Dl�logueNouveau: IF NumEdl t ...4 THEN NumEdit-l DIALOG OFF EDIT FIELD NumEdit Di a I O-DIALOG (O) RETURN ON DialO GOSUS Bout onO, EditD, Signale: Reet (top) -4+ (Drlnverse-l) -40 turnD Reet (left J - 8 Reet (bottom) -36+ (DrInverse-I) · RETURN 40 BoutonD: Reet (right) -255 IF DrInverse THEN GOSUS Sign INVERTROUNDRECT IF 01al1-1 THEN Dr-Faux:DrSor t ie"Vrai :RETURN ' . Lecture des fiches sur le H aeintosh Hot$-EDIT$ ( l } Flehler$-FILES$ (1, "PRép") TelephoneServeur$-EDIT$ (3} LMot-LEN (Mot$} OR LMot > 7 IF LNo m <l OPEN "R", l , Fiehier$,244 FIELD 1 , 2 AS zNombre$, 8 AS zM o t $ , 1 6 AS zNom$, 1 6 AS zTe1 $ GET 1 , 1 OR LNom > 1 6 THEN SE EP:DrInverse-2: GOSUS Signal 8) - (88, 184) IF NombreMessage-l THEN BUTT ON 1 , 0 BUTTON 2 , 0 , "Suivant", (104, 1 68 BUTTON 3, 1 , "Vider", (16,200) - ( 56,216) SUTTON 4 , 1 , "Annuler", (72,200) - (176,216) TEXTFONT 4 : TEXTSIZE 9 ; TEXT xNumMessage$-"" xNom$-"" xPren om$- "" MENU 1 , 3, 0 LNom-LEN(NomServeur$) TEXTFONT O : TEXTSIZE 1 2 xTe1ephone$-"" HENU 1 , 2, 0 9J - (2 4 8 , 1 4 4 } :DrSortie-Fa ux:R (160, 60) - (351, 283 HENU 1 , 1 , 0 THEN BEE ETU�N .oR, J.2 IF Fiehier$-"" THEN RETURN P: DrInverse-l : GOSUB Signale :EDIT FIELD l , Mot S, ( 1 6 0 , 1 2 WINDOW 2, MODE 0 Lire: NomServeur$-EDIT$(2) IF LMot<4 VARPTR(Rec RETURN Diall -DIALOG (1) • ) - (1 76,184) t (top) ) , 4, 4 ale:DrInverse-Faux • Oia1Afflehe: BUTTON 1 . 1 . "Précédent", (1 6, 1 6 RlenD, RienD,RienD,ReturnO, Re DIALOG ON ' . D i 6 1 0gue message enregistré FOR Index-O 1'0 6 xLigneMessage$ (Index) -"" NEXT COSUS H�J NumHessage-NombreMessage+l NombreMessage$-STR$ (NombreMess NombreMessage.cVI (zNombre$} IF NombreMess�ge-O THEN CLOS age} IF LEFT$ (NombreMessage$, l ) -" e : EDIT FIELD 2, NomServeur$ E:GOSUS Oia lMess�geO:GOTO , (54, 153) - (248, 1 681 : DrSort ie " RetourLire $ (NombreMessage$, LEN (NombreM -Faux:RETURN GOSUS Dia1Afflehe:CLOSE :COTO LTe1-LEN(TelephoneServeur$) IF LTe1 <1 OR L1'e1> 1 6 THEN SE EP: OrInverse�3 : GOSUS Signal RetourLire RetourLire : HENU 1, 1. 1 THEN NombreMessage$-RIGRT ess�ge$) -1} FIELD 1 , 1 6 AS uN$, 1 6 AS uP$, l 6 AS uT$, 28 AS u 1 $, 2 8 AS u2 $ , 2 8 AS u3 $, 2 8 AS u 4$, 2 8 AS e : EDIT FIELD 3, Teleph oneSe MENU 1 , 2, 1 rveur$, (54, 1 77) - (248, H2) :Dr HENU 1 , 3 , 1 Sortie-F�ux ;RETURN LectureM�c: RETURN GET 1, NumMessage DrErreur-Faux FOR Index-1 ' . Dialogue pas de message ' 1'0 LMot C$-HID$ (Mot$,Index, l } IF (C$>"/" AND C$<": ") > " @ " AND C$<"]") OR (C$ THEN testO K DrErreur-Vrai testOK: NEXT IF OrErreur l'HEN BEEP :DrInve rse-I : GOSUB Signa 1 e : EDIl' F IELD l , Mot$, (160, 129} - (248,1 4 4 ) ;DrSortie-Faux;RETURN DrSortie-Vrai :Or-Vrai RETURN xPrenom$-uP$ WINOOft 2, "", (100, 120) - (411. 1 9 xTelephone$-uT$ xLigneMessage $ ( O } -ul$ 1 ) , -2 TEXTFONT O : TEXTSIZE 1 2 BEEP HOVETO 1 6, 2 4 PRINT "Ce fichier n e contient pas de message . " BUTTON 1 , 1 , "OK", (192, 4 0} - (296 , 56) Reet (top) -36 Reet (lett) -188 xLignaMassage $ ( 1 } -u2$ xLign eMessage$ (2) -u 3$ xLigneMessa ge$ (3} -u4 $ xLigneMessage$(4J -uS$ xLigneMess�ge$(51 ·u6$ xLigneMessage$(6)-u7$ xNumMessage$-"Message"+STR$ (Nu mMessage-l) + "/"+NombreMessag e$ Reet (bottoml -60 GOSUB M�JBis Reet (right) -300 BDia125: PENSIZE 3, 3 IF Drlnverse THEN COSUS 51gn FRAMEROUNDRECT VARPTR (Rect Porn's nO 34 xNom$-uNS DlalHessageO: !.'dÜO : �le:DrInverse-Fa ux u5$,28 AS u 6$, 2 8 AS u 7 $ (top) } , 12, 12 Olog-Fa ux WHILE Dlog<>l AND 010g<>5 Dl og-DIALOC(O} 59 IF DP fi/END IF Dlog-5 THEN GOSUB MdJ : GO TO BDidl25 BEEP O l o g-DIALOG (l ) HOVETO 1 6, 24 ON Dlog GOTO Preceden t , Suivan PRINT "Voulez-vouS HOVETO 1 6 , 4 ° Precedent : IF NumMessage-2 'l'BEN BOia125 NumHessage-NumMessage-l IF NumMessage-2 ON{I} 'l'BEN IF BUTT THEN BUTTON 1 , 0 IF NumMessage<NombreMessage+l THEN IF BUTTON ( 2 ) -0 'l'BEN BUTTON 2, 1 IF NvmMessage-NombreMessage+l 'l'BEN BDia125 '" �� 'ouvcrturc de la nouvelle version ?" de ce gestionnaire, le fichier sc BUTTON 1 , l , "Annuler", (72, 56) présente sous la forme d'un (176, 72) tableau : chaque colonne BUTTON 2. L "OK", ( 1 92 , 5 6) - ( 2 96 eprésente , 72) IF NumMessage-NombreMessage+l THEN IF BUTTON ( 2 ) THEN B UTTON 2, 0 'l'BEN IF BUTT THEN BUTTON 1 , 1 GOTO LectureMac Vider: GOSUB Confirma tion THEN LectureMac Dr-Faux \\ un champ, chaque ligne une fiche. Rect (top) -52 � _ � Rect (left)-68 PENSIZE 3 , 3 FRAHEROUNDRECT VARPTR (Rect (top) ) , 12, 12 NumMessage-NumMessage+l IF NOT Dr " ' " C$ Rect (right) -180 Suivant: IF NumMessage>2 PRINT Rect (bottom) -76 GOTO LectureMac ON { l ) -O i\: effacer le contenu du fichier" t, Vider, Annuler 1 � Comme sur Works, on peut obtenir une "� fiches (l'ensemble présentation par d'une fiche apparaît à l'écran). Ces deux modes de présentation ne sont PENNORHAL pas paramétrables et la seule police Dlog-Faux disponible est le Monaco 9. Le HHILE Dlog<>l AND Dlog<>6 manuel d'utilisation est sobre lui D l o g-DIALOG(O) aussi : les cents premières pages HEND survolent tous les aspects du logiciel, IF Dlog-6 'l'BEN Dr-Faux: GOTO SortieConfirm permetlaIlt un rapide apprentissage de Dl og-DIALOG ( 1 ) base. Pour le reste il faudra se plonger IF Dl og-l dans les 200 autres pages, arides mais 'l'BEN Dr -Fa u x : GOTO SortieConfirm efficaces. FIELD'1 , 2 AS zNombre$,8 AS ZM ot$, 1 6 AS zNom$, 1 6 AS zTel$ Annuler: fi/INDOfi/ CLOSE 2 RETURN MaJ: Sobriété, tel semble êlIe le mot clé GET 1 , 1 pour définir J'1l.Sp«:t d'OverYue 2.1. S'il LSET zNombre$-MKl$(O) fallait choisir un mot pour en décrire PUT L I les fonctionnalités, efficacité serait PENPAT VARPTR (Gris ( O } ) CLOSE HOVETO 8 , 2 4 sans doute le plus approprié. En effet, Dr-Vrai OvcrYue LINETO 1 8 4 , 2 4 SortieConfirm: et uniquement en mémoire vive. Cela HOVETO 8, 72 WINDON CLOSE LINETO 1 8 4 , 72 RETURN HOVETO 8, 1 60 1 lui FOR Index-O LINETO 1 8 4 , 1 9 2 PRINT xNom$ dans une colonne, Non-Unique avertit l'utilisateur s'il vient d'entrer une valeur qui n'existait pas left-l PRINT xPrenom$ la saisie. de laisser OverYue "deviner" rlght-3 MENU 1 , 1 , 1 , "Démarrer avec un FOR Index-O Ta 6 PRINT xLigneMessage$ (Index) NEXT RETURN ' . Dialogue connrmation • MENU 1 , 3, 1 , "Lire les messages s'imposeront ouveau fichier.., " MENU 1 , 4 , 0, " MENU 2 , 0 , 1 , "pom ' s " MENU 2 . 1 , 1 , "e 1988 JLB, BoucleConfirm : RETURN assurer cette 1 II. deviné. vous pouvez soit la valider soit CP & 39.51.24.43" td1tions MEV WINDOH CLOSE pour affiché vidéo inverse la valeur qu'il " CS-FichierS le même début, deux ou lIois lettres "clairvoyance". Une fois qu'OverYue a enregistrés.,," WINDOW L " ", (100, 120} - (4 1 1 , 1 9 12 colonne. Il tennine ainsi la frappe pour MENU 1 , 2 , 1 , "Démacrer avec un n MENU 1 , 5, 1 , "Quittec" H16). -2 fonction de ce qui existe déjà dans la vous. Parfois, si plusieurs valeurs ont Confirmation: DP-INSTR (C$, " : " } t ichier exist"nt... " NOVETO 12, 88+11 �Index O : TEXTSIZE ce que vous êtes en train de laper en MENU 1 , 0, l , "Fichiec" PRINT xTelephone$ dans la colonne. Enfin. Clairvoyance penne!, au cours de bottom-2 HOVETO 1 2 , 62 cette rapidité est utilisée même valeur est introduite deux fois top-O HOVETO 12, 51 Mais fonctions astucieuses : Non.Duplicatas Vrai--l HOVETO 1 2 , 4 0 rapidité une permet d'avertir J'utilisateur lorsqu'une Faux-O PRINT xNumMessage$ confère précis de la saisie, au moyen de trois TO 3 NEXT HOVETO 1 2 , 1 6 gère lcs fiches entièrement également pour effectuer un conlIôle Gris (Index) -&HAA55 MaJBis: TEXTFONT tri. Initialisations: HOVETO 8 , 1 92 2.1 impressionnante dans Ics opérations de ' . Initialisations LINETO 1 8 4 , 1 60 60 THEN C$-RIGHT$ (C$, LEN (C$) -DP) :GOTO BoucleConfirm poursuivre nonnalement VOire frappe pour un autre mol. Ces trois fonctions se monlIent extrêmement confortables et accélèrent réellement la saisie, sans ralentir sensiblement le fonction nement du programme. Pom's nO 34 �sai : O'Vero/ue 2.1 s. rnedeyan & q. Lejeune financières, mais l'accent a été mis 111. OverVue dispose en outre d'un éditeur où il le faut pour un fichier : l'alphabet. de macros-commandc ronnal précis, par exemple la position Une douzaine de fonctions sur les Chaque fichier peut gérer jusqu'à vingt macros. Une fois écrites et titrées elles Mais, plus encore, il est possible, pour une colonne donnée, de définir un très complet. des parenthèses et tirets s'il s'agit de chaînes de caractères sont en effet noter des numéros de téléphones. Par la disponibles (extraction, repérages de apparaissent suite, il n'y aura plus qu'li saisir les chiffres, peuvent être lancée par un raccourci chiffres. Bien sür. si celle colonne 1 conversion minuscule, majuscule! rotation ... ), Le module dans le menu D o et clavier. La définition de ces macros ne été cochée comme No,,-Uniqu� et graphique est s'opère pas par enregistrement d'une numérique, on évitera de nombreuses impossible d'imprimer un graphique à séquence de commandes mais par un erreurs de saisie. En cas de données partir d'QverVue, il faudra le transférer éditeur de fortement répétitives, comme les jours via J'album. réalisation plus difficile. Elles peuvent de la semaine, on peut établir un masque de saisie à choix multiples On est simple mais l1I. un point touche il crucial du grâce a la fonction Barre de Saisie., logiciel. En effet, OverVue n'utilise pas La gestion en mémoire vive offre mode graphique, Il utilise le propre d'autres aIOULS. Ainsi, OverVue se passe générateur l'ImageWriter ni la très bien de la fonction Index, présente sur loutes À les bases conventionnelles. des priori th de données quoi bon définir dans les recherches de LaserWritcr cn caractères de l'imprimante. Ainsi, QverVue se limite aux seuls caractères romains sans italique ni gras. Les rapports imprimés permettent soit une simple copie de puisque même les plus gros fichiers tableau Uusqu'à 200 caractères de largc sont triés en quelques secondes. 1\ en ultra-condensé), soit du cousu-main. existe cependant un petit inconvénient Dans ce cas, on se de des de 11. cela : les tris ne portant que sur une l'emploi colonne ensuite données classiques : on crée des cases effectuer un autre tri sur le critère correspondantes aux calaMes choisies, suivant, le on en détermine la longueur et la place à la fois, il faut premier ordonnancement n'éllnt pas oublié, En plus du de masques rapproche bases tri, sur le rapport, on ajoute du texte libre OverVue propose le regroupement des ça et 111., on peut dater... rien que de très fiches, une fois triées. Par exemple, classique. chaque ville d'un fichier d'adresses crée s'intercalent à loisir. 11 est possible de un groupe qui sera séparé des autres par une fiche spéciale appelée sommaire. Les fiches de sommaire mémoriser huit formats de rapport. Avec de l'habitude, les rapports Ce sommaire pennel d'effectuer des d'OverVue sont présentables, malgré calculs dans chaque groupe (moyenne, lcur limÎtation somme, mini, maxi, compteur . . . ), mais caractère. se comporte comme une liche ordinaire imprimer sur quatre coloMes et accepte pour les tris et sélection. Ces possibilités sont souvent offertes dans les autres logiciels avec le module "rapports", rarement à l'écran. possibilith de recherche Les et de sélection sont tout à fait classiques el Notons seul type de qu'OverVue peut toutes les hauteurs de papier; c'est donc un précieux générateur d'étiquettes. La fusion de fit:hier est ce qui rend OverVue relationnel. Les deux fichiers peuvent être juxtaposés, chacun gardant scs caractéristiques propres, ou superposés s'ils sont du même type:. On rien ne manque. OverVue à un présente en outre deux peut aussi insérer un fichier entier au caractéristiques qui le rapprochent du milieu d'un autre grâce à la fonclÎon de coller. Enfin l a fonction Lier permet fonctions de calcul et la possibilité de une réelle fusion relationnelle : on représenter les données sous forme de précise quelle est la colonne de chaque tableur : un nombre imporlant graphiques. On peut ainsi remplir une fichier qui contient les dOMées de type colOMe d'une valeur 6xe ou d'une série, commun, puis quel nom dOMer à la ajouler les valeurs de deux colOMes colonne nouvelle qui accueillera le dans résultat de la fusion. Ces opérations une troisième, multiplier ce résultat par trois, le diviser par 2 et envoyer le tout dans la colonne sont sans danger dans la mesure où les deux fichiers d'origine subsistent suivante. Le tout peut être assorti de toujours, Le scul problème que l'on fonctions logiques, Certes, il n'y a pas peut de disponible en mémoire vive. fonctions Porn's n° 34 mathématiques et rencontrer ici est la place texte, ce qui rend Icur effectuer toutes \cs fonctions d'OverVue sauf les entrées/sorties Finder, elles peuvent s'interrompre pour demander à J'utilisateur d'entrer une réponse. On dispose là d'un véritable langage de programmation. En ce qui concerne l'ouverture sur l'extérieur, OverVue est plus doué pour l'Importation que pour l'Exportation. L'exportation n'est en effet possible que par l'album, le presse-papiers et l'écriture d'un rapport sur disque et non sur l'imprimante. Pour l'importation, les formats lexte (avec choix de trois séparateurs : virgule, retour-chariot), Sylk tabulation et et Dif sont acceptés. En définitive, OverVue est une gestion de fichier originale ct simple d'emploi. Elle est particulièrement efficace et puissante, grâce 11. la gestion en mémoire vive. C'est pour J'instant lc seul 11. programme fonctions aussi des proposer étendues pour le contrôle de la saisie. Ses macros, en combinant des fonctions astucieuses permettent de récupérer des heures de saisie et d'en économiser autant. QverVue apparaît presque comme un logiciel intégré qui serait orienté vers la base de données (contrairement à Excel qui lui est orienté vers le tableur), Cependant deux points faibles viennent ternir le tableau : l'aspect trop spartiate de la présentation à l'écran et surtout 11. l'impression ainsi que l'absence de fonction "Annuler". OverVue cst remarquablement efficace pour les bases de données de taille moyenne rapports ne 11. irréprochable. nécessitant la Elle pas des présentation est agréable à utiliser mais donne un sentiment de frustration devant J'absence de certaines fonctionnalités primordiales comme l'impression soignée. 61 Jean-Yves Bourdin Nouvelles du front Il Y a de l'angoisse dans l'air chez les propriétaires d'Apple /1 : l'abandon désormais officiel par Apple de la production du Ile et du /le signifie-t-il la condamnation de l'Apple//? Du point de vue d'Apple, les choses sont claires : Apple est une entreprise dont toute la fOfce repose dans l'innovation (technologique et logicielle). Quelles que soient les réticences de chacun d'entre nous au changement, nous avons donné de l'argent à Apple, et cel argent est utilisé par lui poUf rester à la tête de l'innovation en matière d'informatique personnelle. Nul n'ignore que ni le Mac II ni le cs n'ont été précédés par une quelconque étude de marché, pas plus Que l'Apple ][ de Wozniak ne l'avait été. Nous faisons de bons produits, et le marché suivra : c'est ainsi qu'Apple raisonne depuis Wozniak - avec quelques échecs (Apple III, Lisa) mais avec principalement, ma foi, pas mal de réussite. Il est clair que la technologie 8 bits seule est une technologie dépassée. Ne nous voilons pas la face : le point d'entrée dans la gamme Apple, le bas de gamme d'Apple, c'est le GS. Est-ce donc la fin de l'Apple Il ? Basic et à répandre la "philosophie voici D . D . A . , Documentations D'autant que la technologie Apple 8 française de l'APDA. C'est auprès bits n'est pas morte. Faire tourner utilisateur débutant. domaine public, je veux dire dans la production Taïwanaise à bas prix, rejoignant les compatibles IBM. Le successeur de l'Apple Ile se trouve désonnais dans les supennarchés des USA : un ordinateur compatible Ile 65C02, avec 1 Méga de Ram, souris, sortie RYB, drive 5,25' intégré, acceptant les disques 3,5', avec pavé numérique, avec tous les interfaces du C'est le LASER 128 EX de Video T e c h n o l o g y , produit en Chine, Le 65832 (processeur 32 bits compatible patte-à-paue avec le 65816 du GS) est en cours de production. Les accélérateurs OS une étude un peu serrée de ses performances. ce prix, on a désormais un Apple Il Apple (768Ko) et une carte contrôleur Apple Il for evcryone. . . Si Apple abandonne le IIc, il n'abandonne pas $Cs utilisateurs : il a créé aux États-Unis avec la coopérative A.P.P.L.E. une "Apple Programmers and Developers Association" (APDA) qui fournit à et pas seulement aux patentés, les pour programmer sur les machines en sont membres tout aussi bien que sont vendus à prix coûtant, et bien sans préalables, aucune garantie, de pre-Re/ease, de documentations provisoires entre dans n'importe quel slot sauf le slot 3 ou le slot auxiliaire, est à la de drives universelle pour l'Apple : elle pilote aussi bien les lecteurs OS 3,5' (mais pas les Unidisk Ile et fic) que les drives 5,25' 40 pistes double faec type IBM vendus par Applied Engineering disquettes (elle 5,25' formate en 360Ko les sous ProDOS), et elle permet de chaîner cinq lecteurs en tout. Bien entendu, c'est aussi un compatible PC : microprocesseur Nec Y30 à 7,16 MHz (trois fois plus rapide que l'IBM), 640Ko de Ram possibles en mode IBM, tous les modes vidéo CGA sur votre moniteur Apple, coprocesseur arithmétique en option, bref on peut faire tourner sur l'Apple l'adaptation sous MS-Dos de Visicalc appelée Lotus 1-2-3. Les avantages principaux de celle carte polycopiées, qu'Apple diffuse dès qu'il sont bien entendu dans l'intégration le peut auprès de ceux qui en ont qui besoin. Cette politique d'ouverture périphériques de l'Apple permet d'utiliser les : carte maximale semblerait, à première vue, horloge, Ile-IIGS (les touches de fonction IBM vont bientôt sortir. elle a, en fait, toujours fait le succès d'Apple. Apple France s'y met aussi : après le serveur Apple (en 36.14), imprimante, tous donner des armes à la concurrence : Et ces machines 32 bits accélérées continueront à faire tourner l'Integer énorme effort de développement et presque comme on a le téléphone. À entendu commencent à foisonner. émuJateur, mais un véritable IBM fois une extension mémoire type dollars, soit moins de 3000 francs. puisqu'il s'agit parfois de versions GS l'Apple. Cette carte n'est pas un Il et le Mac). Son prix : 500 le machine, j'en suis persuadé, a de pour le deuxième système d'exploitation pour utilisation du MS-Dos, cette carte, qui ](+ pour gigantesques possibilités (avez-vous Les qu'était le CPjM auparavant : un Software (qui produit Copy le bidouilleur de banlieue. Les outils ?). MS-Dos devient pour l'Apple Il ce Tout d'abord, en dehors de toute ulilîsateurs qui voulaient une machine sonores Transporter E n g i n e e r i n g , le d'Applied vendu aux USA par Central Point Apple. Les plus grands développeurs programmes, les cartes, les interfaces Avec la carte PC 3,6 Mégaherz (plus rapide que le GS). un Apple Il à part entière. Le GS a été possibilités un IBM dans l'Apple ? d'investissement. Son prix justifie d'extension, muni d'un processeur à de développemem etc., nécessaires ? Ses Touj ours plus : Ile plus l'interface parallèle ct un port informations, documentations, outils GS documentations dans l'Apple : elle a nécessité un dans le monde : c'est plus que toute épluché le moniteur du les Simplement, l'Apple 8 bits passe quasiment dans le autre machine. à la fois moderne et compatible. Cette d'elle que tout un chacun peut se techniques sur le GS ou sur le Mac. développeurs produit par Apple sur la demande des version Méga suffit à 80% des besoins d'un y C'est un énorme Apple, procurer tous, a trois millions d'Apple Il installés Développeurs AppleWorks avec un bureau de 1 Évidemment pas. D'abord, parce qu'il marché. Ensuite parce que le GS est 62 Wozniak". Bref: Apple 1/ for ever. clavier du étant remplacées par des combinaisons avec les touches ti), souris, moniteur vidéo, son. Vous pouvez stocker des Porn's nO 34 données et programmes MS-Dos sur tout disque formaté en ProDOS (5,25', 3,5', disque dur, etc.). La carte permet même de lire et écrire des disquettes 3,5' formatées en MS-Dos avec un simple lecteur 3,5' Apple type IIOS. Mais. . l i Y a cc que les publicités ne disent pas : la carte PC Transporter ne pennet pas de fonnater en MS-Dos les disquettes 3,5' avec un lecteur Apple 3,5' ni de démarrer directement ces disquettes. Il vous faudra donc avec la carte le duo-disk 5,25' type IBM vendu par Applied Engineering pour démarrer le MS-Dos. Et il est indispensable d'avoir accès à un compatible IBM muni d'un lecteur 3,5' pour formater en MS-Dos les disquettes 3,5'. . Faites les comptes : la carte avec MOKo, plus le kit d'inslallation, piuS le Dua-.Disk 5,25', tout cela fait 1058 dollars aux prix d'Applied Engineering poUf mellre le MS-Dos dans le OS. Rajoutons le fait que la carte en action tire 600 mA, et 1075 mA avec le coprocesseur arithmétique, el il est pratiquement indispensable de changer l'alimcnlalion du Ile pour celle plus puissante (110 et 220 V) vendue 69 dollars par Applied Engineering. C'est en fait le prix d'une configuration de équivalente à base compatible-lambda made in China vendu dans les supermarchés. L'avanlage est évidemment de n'avoir qu'une seule mach n i e sur son bureau, une seule imprimante, etc., el de pouvoir échanger les fichiers entre les systèmes d'exploitation. ou un Apple dans l'IBM ? • . • PluLÔt que de mettre à vos frais dans votre Apple l'ordinateur du patron, il serait peut-être malin de faire mettre à ses frais un Apple dans son IBM : la carte T r a c k s t a r 1 2 8 de Compatible Peripherals met un Ile 65C02 128K dans un IBM ou compatible. Elle utilise les drives 5,25' IBM pour lire les disques Apple, y compris les disques protégés (sauf ceux qui utilisent les demi-pistes). Elle utilise les périphériques de j'IBM pour l'Apple, sauf le joystick (port Porn's nO 34 pour joystick. Apple sur la carte), elle permet les transferts de fichiers ProDOS/MS-Dos. Et elle ne coûte que 300 dollars. Mais ce n'est pas un OS, et vous n'aurez pas les caractères accentués français sur l'écran. . . . ou une machine d'avenir ? À chacun donc de faire ses choix. Le mien est ni l'un ni l'autre : un ordinateur dans un autre est une machine bloquée, qui ne pourra plus évoluer, et aussi bien l'IBM PC que l'Apple Ile sont des machines technologiquement dépassées, d'ailleurs abandonnées toutes deux par leurs constructeurs respectifs. Ce ne sont pas des investissements d'aujourd'hui. J'avoue également n'éprouver qu'une jouissance très modérée à la compilation en DBase III. Et plutôt que d'utiliser Lotus 1-2-3 ou Ward Perfect sur IBM, essayez donc Vip P r o fe s s i o n a l de V i p T e c h n o l o g i e s , parfait clone de Lotus 1-2-3, mais avec l'interface graphique·souris du as, ou . . . Word P e r l e e t de W o r d Perrect Corporation sur OS. Ces deux programmes existent d'ailleurs aussi pour Ile-Ile (Vip Professional nécessitant une extension mémoire type Ramwork.s ou Multiram). Peut-être la carte PC Transporter serait-elle un bon moyen de mettre à niveau un I/e qui n'aurait que 128Ko et des lecteurs 5,25' : mais c'est le même prix qu'une unité centrale de a s . La seule machine qui peut concurrencer un OS, c'est le Mac. Bon, je sais, le patron . . . Eh bien, faîtes-lui faire un tour au Sicob ou à la prochaine Apple Expo. Une entreprise ne peut pas se permettre longtemps sans dommage économique ce qui peut au contraire être l'intérêt bien compris du paniculicr : utiliser une infonnatique obsolète. Le mange-disques Depuis le temps qu'on J'attendait ! Ça y est, il est arrivé, il eSllà : Merlin 8/16 de Glen Bredon chez Roger Publications est sorti ! Enfin la possibilité de programmer en assembleur de façon pratique pour le o s , finie la galère d'APW/ORCA ! Pourquoi ne pas en parler dans la rubrique "16 bits" ? Mais parce qu'il marche aussi sur le Ile et le I/e : vous avez bien lu, non seulement le Merlin 8, dernière version du Merlin-Pro sous Dos et ProDOS, mais également le Merlin 16 bits, tout cela marche sur tous les Apple 1/ d'aujourd'hui. Bien entendu, il vous faut précisément un Apple 1/88 : microprocesseur 65802, lecteur 3.5, mémoire. Voir la rubrique "sous le capot". Wagner Entre autres, cela signifie qu'il est sous ProDOS 8 et ne s'occupe pas plus qu'AppleWorks du graphisme GS. Faudrait-il en conclure que même Glen Bredon estime que le ProDOS 1 6 n'est pas très au point, et que le graphisme os ne fail que ralentir les choses dans les applications sérieuses ? Mais non voyons, puisque précisément il vous permet d'écrire quant à vous des applications sous ProDOS 16, des accessoires de bureau, de vous régaler avec les outils du GS. Un éditeur de liens plus rapide produisant du code relogeable, un éditeur plein écran, des bibliothèques de sous-routines, des bibliothèques de macros (incluant des macros d'accès aux outils OS), que nous faut-il de plus ? Eh bien, un assembleur et un éditeur de liens co-residents en mémoire avec l'éditeur, qui relient et assemblent jusqu'à 12 000 lignes de code par minute, sans qu'il soit nécessaire de passer par des mooules séparés (suÎvez mon regard. . . ). Et aussi un Sourceror 16 bits, ce magnifique désassembleur qui a autant fait pour l'Apple que le Locksmith (à ce propos : la dernière version du L o c k s m i t h , 6,0 Révision C , d'Alpha Logic Business Systems, fonctionne sur le OS). Sans compter la compatibilité avec tous les sources Merlin existants, el la possibilité de charger et assembler les fichiers APW avec un minimum de travail d'édition. Voilà le genre d'outils qui remet les montres à l'heure et les choses à leur place : le langage privilégié de l'Apple Il, c'est l'assembleur, n'en 63 déplaise aux adeptes d'autres jargons. C'est lui qui a fait et qui fera les plus grands programmes et les plus grands succès de l'Apple /1. Apple /1 for ever, cela passe par Merlin ror evet. Avec Merlin 16, TML Pascal et TML Basic, l'avenir du GS est assuré. D o c u rn a x , de S i g n u rn Microsystems, est exactement le genre de programmes qui me pousse à écrire dans ces colonnes. Un coût ridicule (25 dollars avec la documentation sur le disque), une in terface utilisateur parfaite, implantable, pas de protection, des possibilités extraordinaires, et.. personne ne le connaît ! Que fait-il ? D'abord, il compresse à 50% les fichiers textes, à 40% les fichiers traitement de texte et base de données d'AppleWorks, et les décompresse ensuite bien sûr. En quelques communications avec InterPom's, je le rembourse intégralement. Au lieu de copier un fichier pour le ranger, compressez-le : cela n'est pas plus long, et de toute façon Documax vous permet de lire ces fichiers et de travailler dessus. Étant sous ProDOS 8, il tourne sur Ile, Ile, IIOS et accepte bien entendu tous les disques reconnus pad'roDOS. Ensuite, il permet de chercher une référence, un nom, un morceau de phrase, un numéro de téléphone, dans l'ensemble de tous les fichiers texte ou AppleWorks que vous lui indiquez, compressés ou non (bien entendu, il s'occupe lui-même des catalogues ProDOS : vous n'avez jamais à taper un nom de fichier). Il vous crée si vous le voulez un fichier de références sur n'importe quel sujet avec nom de fichier, texte recherché avec son contexte, numéro de ligne. Vous faites ensuite de ce fichier une base de données, ou bien vous coupez et coller l'information dans d'autres fichiers. Il segmente et fusionne les fichiers à volonté. Il gère les catalogues ProDOS, y compris l'ordre des fichiers dans le catalogue. Il est sain de temps en temps de nous rappeler que l'informatique ne sert pas à cliquer des souris, mais à traiter et manipuler à notre guise l'infonnation. Allez, chiche : trouvez le nom et le prix d'un programme qui en fasse autant sur une autre machine ! 64 Sous le capot Pour un prix inférieur à celui d'un lecteur 3,5', vous pouvez aujourd'hui mettre un disque dur 20 Mégas dans votre Apple. Vous avez remarqué que les clones IBM sont munis de disques durs bon marché. Évidemment, un petit malin a réalisé une carte d'interface entre ces disques durs ct l'Apple ][+, /le, IlOS. Il s'agit de la carte M e g a b o a r d de P e r l i n Electronics. La carte coûte 200 dollars, et supporte ProDOS, DOS 3.3, Pascal, CP/M. Pour 500 dollars (2 750 F au cours d'aujourd'hui), vous avez la carte et un disque dur de 20 Mégas. Reconnaissons cependant que la carte Speedisk, si elle ne fait qu'un Méga, est beaucoup plus rapide, silencieuse et sans doute durable (aucun élément mécanique). Savez-vous que vous pouvez pour 25 dollars mettre un processeur 16 bits dans vOlfe Ile ou Ile ? Il s'agit du microprocesseur 65802, vendu par Roger Wagner Publishing, et produit par le Western Design Center, concepteur du 65816, le microprocesseur du O S . Ce microprocesseur reconnaît toutes les instructions ct tous les modes d'adressage du 65816, a les mêmes modes émulation et natif, mais bien entendu ne fait pas l'adressage mémoire sur 32 bits par page de 64Ko, et ne vous met pas un os dans le Ile. Il fait tourner les programmes 8 bits existants, plus ceux spécialement écrits pour lui (un seul aujourd'hui : Merlin 8/16). Il suffll d'enlever le 65C02 et de mettre à la place le 65802. L'autre solution consiste à acheter une carte accélérateur T r a n s w a r p d'Applied Engineering pour le /le, avec un 65802 intégré. Roger Wagner la vend pour 245 dollars, el votre /le tourne plus vite que le OS (si !). Évidemment, Zip-Chip (voir Pom's 33) est moins cher el ne prend aucun slot : mais ce n'est pas un 65802, il ne fail pas tourner Merlin 16. Toujours pour mettre votre Ile ou /le à niveau, il faut étendre sa mémoire. Si vous avez un nouveau Ile, poussez-le à un Méga (voir Pom's 33). Si vous avez un ancien Ile, vérifiez qu'il a les Rams pour le lecteur 3,5', sinon faites-le mettre à niveau par Apple. Pour l'étendre à un Méga, les seules solutions seront ensuite la carte Z-Ram d'App lied Engineering ou la carte Multiram C X de Checkmate Technology (sur lesquelles vous pouvez ajouter une carte 65816 pour faire tourner Merlin 16). Si vous avez un Ile, vous pouvez l'étendre avec une des cartes qui se metlent dans le SIOl auxiliaire (Ramworks d'Applied Engineering ou Multiram Ile de Checkmate Technology). Ces cartes ont J'avantage de remplacer la carte 80 colonnes, donc de ne pas prendre un slot de plus. Elles ont l'inconvénient d'être technologiquement dépassées et de ne pas être portables sur le OS. Le plus intéressant, ce sont sans doute les canes au standard Apple ("Slinky"), qui se mettent dans n'importe quel slot du ][+, Ile, IIO S (sauf le slot 3). Elles sont portables sur le O S , sont reconnues par AppleWorks pour y étendre son bureau. Choisissez entre la carte Apple (chère, mais Apple), la R a rn r a c t o r d'A p p l i e d Engineering qui est la meilleure, Cl la carle Sprintdisk d'AST qu'on trouve à des prix bradés en ce moment (179 dollars par exemple avec un Méga installé chez Microtech Consulting Company). L'autre complément d'un Apple Il pour le mettre à niveau, c'est le lecteur 3,5'. Le Ile est normalement muni de cette capacité. Pour le Ile, il faut une carte d'interface. Apple nous propose sa carte pour l'Unidisk 3,5'. Mais ce lecteur étant assez cher, on peut lui préférer la carte Universal Disk Controller de C e n t r a l Point Software pour ][+, Ile, lIaS. Celle carte a l'avantage d'accepter aussi bien les lecteurs 5,25' Apple ou compatibles, que les Unidisks 3,5' d'Apple, que les lecteurs 3,5' 800Ko compatibles Mac, qui sont très bon marché, que les lecteurs 3,5' simple face 400Ko des vieux Mac, qu'il faut laisser aux dinosaures. Pour 261 dollars (plus le port) chez Triad Software, mon fournisseur favori, Pom's nO 34 vous aurez une carte et un drive 800Ko qui lira les disquettes GS sans problème, fera tourner Merlin 16 et rentrera AppleWorks, les accessoires Pinpoint et les applications TimeOut sur la même disqueue, et démarrera automatiquement sur un Ile 65C02. Cene carte a cependant quelques inconvénients : d'abord, même si elle peUL théoriquement rentrer dans tous les SIOlS sauf le slot 3 du Ile, elle déborde beaucoup à droite. En conséquence, elle est en fait pratiquement réservée au slot 2 du Ile et au slot 7, ce qui marche impeccablement sous ProDOS, mais pas sous Pascal. Ensuite, elle accepte les drives Apple 3,5' du G S , mais n'obéit pas à l'éjection manuelle (ce qui n'est pas grave : c'est si facile par programme). Enfin, elle ne reconnaît pas les disquettes prOlégées du G S (raison de plus pour ne jamais utiliser un programme protégé sur G S ) . Ajoutons que comme les drives 800Ko sont pilotés par la carte et pas par J'unité ccntrale, elle n'accepte pas les programmes qui, comme Diversi·Cache, modifient les routines de lecture-écrhure. Bill Basham a découvert pas mal de bugs dans ceue carte, mais ils ne vont jamais jusqu'à la perte d'un fichier en mémoire ou la ruine d'une disquette. C'est donc malgré tout la solution de loin la plus économique pour tout Apple II démuni de lecteur 3,5'. Voilà donc votre Ile ou Ile enfin à niveau, vous avez un "Apple Il 88". Ceci dit, faites vos comples : une carte accélérateur, plus un 65802, plus une interface pour lecteur 3,5', plus une carle mémoire de 1 Méga, c'est vrai, ça ronlle. et c'est au point. Mais c'est très en-dessous d'un G S , et ça n'est pas un OS, pour un prix qui lui est bien voisin ! POKE 1 4 1 5 7 , 2 0 8 19� : POKE 1 4 1 5 8 , (Ne demande plus la date) aSAVE APLWORK S . SYSTEM, A$2000, TSFF� Le patch suivant pennet aux heureux propriétaires d'un G S et d'une carte Ram 1 Méga type Apple "slinky" (cartes Apple, RamfacLOr, A$T Sprintdisk, etc.) de faire croire à AppleWorks 1.4 qu'il est sur un Ile et non sur un C S , le faisant ainsi se charger et mettre son bureau dans cette carte, en n'occupant que le Bank 0 de la Ram as. UNLOCK APLWORKS . SYSTEM� BLOAO APLWORK S . SYSTEM, AS2000, T$FF� POKE 1 3 6 0 9 . 44� aSAvE APLWORK S . SYSTEM, AS2000. T255� Regardez à ceUe occasion le code que vous changez, el VOuS verrez comment AppleWorks s'y prend pour reconnaître qu'il est sur un as. Voici eomment (Merci Dominique Ottello) permeLtre à AppleWriter ProDOS (version française) de marcher avec le port imprimante intégré du as en court-circuitant sa routine d'initialisation du port série. C'est donc à vous qu'il appartient de configurer ce port en passant par le tableau de bord (d-control-esc). Pour cela, il faut d'abord avoir remplacé le ProDOS de la disquette par un ProDOS 8 plus récent qui autorise les interruptions. PREFIX/AwJ aLoADAWD _SYS.TSC,AS2000� CALL-151� 4098: 60� 4F8A:l0� BSAVE AWO .SYS,T$OC,AS2000� Voici comment raccourcir le temps de chargement d'AppleWorks 1.4 pour ceux qui le chargent depuis un disque 3.5, un dur, ou un disque Ram, et/ou qui ont une horloge dans l'Apple (GS et autres) : ONLOCK APLWORKS . SYSTEM� Porn's nO 34 (plus de «Prcsscz ..) une touche pour continue POKE 1 4 4 1 1 , 44� 4 F 9 1 : 1J� Patchworks BLOAO APLWORKS . SYSTEM, TSYS..J A$2000, Encore une partie et j ' éteins Garder un vieux J [+ avec un joystick pour les jeux des enfants n'est plus un bon calcul : les grands du jeu sur Apple (Broderbund, Epyx) sortent maintenant systématiquement de magnifiques jeux d'action (arcade et simulation), de superbes animations en Double Haute Résolution. Après Air Heart de Broderbund. voici California Games d'Epyx, qui vous permet de faire du surf, du vélo-cross, du skate-board, du "freesbee", etc. Sous l'Apple, la plage. . . - Range-moi cette disquette loin d'ici, lu vois bien que je travaille 1 Après les diverses séries de simulation des Jeux Olympiques d'hiver el d'été, la Double Haute Résolution va nous offrir des simulations encore plus réalislCs, puisque nous allons refaire nos parties de sports des rues, là où nous jouons sans arbitre avec le copain qui ne sait pas rattraper une balle contre celui qui ne sait pas la lancer (Street Sports Base-Bail, B a s k e t - B a l i , ete., toujours d'Epyx). - Ne touche pas à ce joystick et laisse-moi écrire mon article ! Bien entendu, la Super Haute Résolution du OS pennet aussi de magnifiques animations et simulations sportives : essayez donc World Games GS. du même Epyx, décidément très en forme en ce moment Mais cela n'empêche pas les français de travailler aussi à de bons jeux sur Apple Il : on parle beaucoup d'une version française pour Apple 1/ de l'Arkanoïd de l'Atari, et Froggy Software nous offre des aventures inédites avec Le j ust ic ier du bahut. Les jeux de l'Arlésienne : UItÎma V ct W i z a r d r y I V . Cela fait longtemps qu'on les attend, les publicités sont parues, mais, à l'heure où j'écris ces lignes, je ne connais personne qui ail réussi à acheter autre chose qu'une promesse de vente. Curieuse stratégie commerciale. - Bon, puisque c'est comme ça, je te prends au surf et je pulvérise ton high-score 1 Bon sang, où as-tu mis la disquette de California Games ? J'avais dit qu'elle devait toujours rester à côté de l'Apple ! 1 ! 65 16 Bits Si vous avez un C S , prenez rendez-vous avec votre revendeur : il vous remettra la dernière version du système (3.1, avec le Finder) et vous mettra à niveau votre machine (nouvelles Roms, nouvelle chip vidéo) si son numéro de série est inférieur à C725XXXXX. Tout cela gratuitement. Mais bien entendu ne jetez rien : ni l'ancien système ni les Roms. Certains anciennes progmmmes ne marchent pas avec les nouvelles Roms. La solution : charger les anciennes Roms en Ram, changer les vecteurs. Lecteurs aSphilcs, au travail! Nous comptons sur vous. Question : Qu'est-ce qu'un Macintosh ? Réponse : Un ordinateur assez ancien de la société Apple, en noir ct blanc dans ses versions grand public, mais dont le mérite fut d'avoir permis la réalisation d'un assez grand nombre de dessins ct de fontes graphiques pour le nouvel ordinateur couleur de cette société, l'Apple lIas. Exp lication : Vous avez dû remarquer, au milieu du tas de polycopiés et de disquettes qui accompagnait la documentation technique du cs, une disquette un peu spéciale : elle ne marchait pas. C'est en effet une disquette pour Macintosh, destinée à vous pcnnettre de récupérer sous ProDOS les fontes graphiques, les images MacPaint, et les fichiers data divers du Mac. Bien entendu, la conversion fonctionne aussi dans l'autre sens, mais les fichiers OSPaint om des couleurs bien pâles sur un Mac Plus. Quelques conseils pour piller un Macintosh : choisissez·le avec suffisamment de mémoire pour avoir un disque Ram conséquent. Emportez votre drive as avec vous pour faire un deuxième drive au Mac s'il n'en a pas déjà un. Emportez un stock de disquetl.CS fonnatées en ProDOS. 1 66 La disquette contient aussi une application pour le Mac appelée "Emulateur Apple Il GS" : Pom's a obtenu d'Apple l'assurance que vous pouvez donner cette application aul'; possesseurs de Mac. Quand vous aurez fini de soutirer pour votre GS toute la substantifique mœlle du Mac de votre ami ou de votre patron, remerciez-le en lui laissant cette application ct regardez-le l'essayer. . . Vous l'avez remarqué, si vous voulez reconfigurer votre disque Ram et faire prendre en compte cette modification immédiatement à votre machine, le seul moyen, après avoir fait le nécessaire avec le tableau de bord, est. . . de J'éteindre. Le C S refuse le moindre risque de perdre un fichier du disque Ram. Comme il est aussi protégé contre les micro-coupures d'électricité, vous avez le temps de prendre un café avant qu'il oublie réellement ce qu'il a en mémoire et que vous puissiez le rallumer. Heureusement il y a un autre moyen : faites (j-control-option-reset, ct l'autotest de votre machine démarre. Attendez un peu, puis faites â-control-reset pour redémarrer le disque. Cette fois-ci, le as vous obéit. Puisqu'il y a déjà u n redémarrage à chaud ct un redémarrage à froid , ceci doit être un redémarrage glacial. . . Roger Wagner m'a écrit trois pages pour expliquer les raisons et formes de sa protccLÎon de Softswitch. En gros, il s'agit d'évitcr, s'agissant d'un programme que l'utilisateur met sur toutes ses disquettes, une diffusion ou un passage involontaires dans le domaine public. Tout est copiable, mais l'installation du programme met un signe dans votre machine pour qu'il ne puisse pas marcher sur une autre. Ccci dit, la dernière parution de Roger Wagner, Merlin 8/16, est un programme normal (non protégé). Et si quelqu'un devait craindre le passage dans le domaine public, c'est bien Bill Basham, de D i v e r s i fi e d Software R e s e a r c h , dont le D i v e r s i - C a c h e , qui s'intègre carrément au ProOOS 8, accélère de façon considérable la lecture ct l'écriture sur le disque 3,5'. Eh bien, ce programme est diffusé en S h areware, avec d'autres indispensables (Diversi-Copy, le plus rapide des copieurs 3,5', Diversi.Key, qui met des macros partout, D i v e r s i - H a c k , un mini-Softswitch) : vous pouvez copier et distribuer gratuitement la disquette (la documentation est sur le disque). Si le programme vous plaît, vous êtes invité à payer directement à l'auteur. J'ai acheté Diversi-Copy, ce qui prouve que l'idée est bonne. Pour Diversi-Cache, j'aimcmis qu'un lecteur fasse la comparaison avec le programme de cache fourni avec la cane OS-Ram d'Applied Engineering. La place me manque pour faire aujourd'hui un tour d'horizon complet des langages sur le CS (j'ai dénombré jusqu'ici, en ne comptant que les langages 16 bits, au moins trois Pascal, deul'; Forth, cinq Basic, un C, plus les assembleurs). Disons seulement qu'Apple a fait son lfavail en sortanl son interprélCur GSBasic, disponible chez D D A , fon ressemblant au Business Basic de l'Apple III. Et parlons de l'autre. Vous qui commenciez à vous mettre au Pascal à cause de TML Pascal, mais qui regrettiez de ne pouvoir vraiment parler en Basic à votre machine, réjouissez-vous : le l'ML Basic est en vente. Attention : ce n'est pas un simple compilateur qui viendrait en complément d'un interpréteur, comme c'étaitlc cas avec l'ApplesofL S'il est vrai qu'il compile les programmes du C S Basic, et que la plupart des programmes 100% Applesoft seront compilables après un petit nombre de modifications, TML Basic est un ensemble de programmation complet. Sachant que TML Basic compile très vite, en mémoire, CI lance aussitôt le programme compilé, sachant que son debugger intégré vous renvoie, en cas d'erreur, immédiatement dans l'éditeur, à la ligne fautive de votre programme toujours en mémoire, avec un message d'crrcur explicite, la différence avec un interpréteur devient invisible pour l e presque programmeur. Il n'y a que la vitesse d'exécution du programme qui change, mais de façon faramineuse. Bien entendu, il donne accès aux outils de la Rom, permet la programmation structurée Cl la récursivité, elC. L'interface avec le l'ML Speech Toolkit permet de faÎre parler le OS. La documentation est excellente. C'est un TML, et c'est un a s : donc, souris, couleurs, couper-coller à Porn's nO 34 travers quatre programmes chacun dans sa fenêtre, etc. De quoi plaindre les pauvres s i n c è re m e n t programmeurs MS-DOS, même turbo. DDA devrait pouvoir fournir certains de ces ouvrages : demandez-lui son catalogue. Sinon, essayez avec l'APDA. Sauf pour S y b e x , les éditeurs ne diffusent pas directement. À essayer : la carte Memory Pom's a découvert l'existence d'un sympathique/amine de bonne facture pour les loqués de J'Apple Il ct du Mac, un produit du Sud Cl de l'association S u n Data appelé "Ampersand". Aux rubriques habituelles des fanzines (solutions de jeux, comment "protéger" vos disquettes), il joint des informations, des revues de logiciels, ct des articles d'initiation. Il propose un catalogue de "Freeware" à la carte pour CS ct Mac, ct offre aux Marseillais l'accès à un serveur gratuit (91 79 30 60, code Sa\'er de Checkmate Technology, qui pour 150 dollars transforme le disque Ram de n'importe quelle carte mémoire du slot auxiliaire du CS en disque Rom. S i vous avez essayé Movie S t u d i o et V S / C o rn de Version Soft, écrivez-moi. Même chose pour Gribouille G S de Madeleine Hodé. À lire ouvrages sur le CS commencent à foisonner. li y a bien entendu de toul Pour ma part, je vous conseille les suivants : Les Roger Wagner : Apple I1GS, Machine Language for Deginners, chez Roger Wagner Publishing ; David Eyes ct Ron Lichly Programming the 65816 i n c l u d i n g t h e 6502, chez Brady Book 1 Prcnticc Hall Press ; Gary Liule Exploring the Apple H G S , chez Addison Wesley. Michael Fischer : Apple I1G S Technical Reference, chez Osborne-McGraw Hill. Gary Bond : Inside the Apple IIGS, chez Sybcx. D'autre pari, Apple public peu à peu chez Addison-Wesley ses différents m,Uluels pour le CS. Cc sont de vrais livres, bien plus utilisables que les millîers de pages photocopiées dont il fallait se contenter jusqu'ici. Votre patience sera récompensée si vous avez atlendu pour acheter: Apple Computer : T e c h n i c a l Introduction to the Apple I1GS, chel Addison-Wesley. Apple Computer : Apple IIG S l;irmware Reference, chez Addison.Wesley. Apple Computer Apple I1G S Hardware Reference, chez Addison-Wesley. Apple Computer : ProDOS 16 Reference M a n u a l , chez Addison-Wesley. Porn's n° 34 "&"). Pom's a également reçu le faire-part de naissance d'un futur confrère, une revue française spéciale CS ct Mac : G S Magazine. Il est prévu que chaque numéro coûte 50 F, ct soit accompagné d'une disquette 800Ko (en kiosque, cc sera une disquette Mac, que vous échangerez par la poste avec la disqueue CS. Par abonnement, vous choisirez entre disquette CS ct Mac, mais vous aurez le droit de l'échanger contre l'autre). La disquelle contiendra des programmes en domaine public, Shareware, ct des démonstrations de logiciels. La revue devrait être orientée principalement sur les services à l'utilisateur et au consommateur. Baptême prévu à la mi-février. 290 S.W. 43rd Street, Renton, \VA 98055, USA. • Coop 290 S.W. 43rd Street, Renton, WA 98055, USA. Alpha Logie Business Checkmate Technology 509 South Rockford Drive, Tempe, Arizona 85281, USA. Compatibles periphericals, Inc. 6363 Taft Street, Suite 305, Hollywood, Florida 33204, USA. D.D.A. Technopole - rue M. Faraday 78180 Montigny Le Bretonneux. "Zr (1) 3 0 4 5 26 62. Di\'ersified Software Research 34880 Bunker Hill, FarminglOn, �'iI 48018-2728, USA. Ep)'x, Ine, 600 Galveston Drive, Redwood City, CA 94063, USA. Froggy Softwllre 33, avenue Philippe-Auguste 75011 Paris "Zr 43 58 25 98. G S Magazine 320, rue Saint Honoré - 75001 Paris. Gribouille 16, rue de Poules - 67000 Strasbourg. Microtech Consulting Company 206 Angie Drive, Cedar Falls, lA 50613, USA. Mindseape, Inc_ 3444 Dundee Road, Northbrook, IL 60062, USA. Perlin Electronics, Pin point A ,P.O.A . Central Point Software 9700 S.W. Capitol Highway, #100, Portland, OR 97219, USA. Inc, 7394 Calle Real, Suite B, Goleta, CA 93117, USA. Adresses A.P.P.L.E 17 Paul Drive, San Rafael, CA 94903, USA. Systems Publishing 5901 Christie Avenue, Emeryville, CA 94608, USA. Roger Wagner Publishing 1050 Pioncer \Vay, Suite P, El Cajon, CA 92020, USA. Signum Microsystems 4119 North Union Road, Woodstock, 120 Mountain Avenue, Bloomfield, Connecticut 06002, USA. IL 60098, USA. S u n Data-Ampersand A p plie d E n g i n eer i ng P.O. Box 798, Carrolllon, TX 75006, USA. Beagle Bros 6215 Ferris Square, Suite 100, San Diego, CA 92121, USA. Broderbund Software, Inc, 16, rue Julia - 13005 Marseille Sybex 6-8, impasse du Curé - 75881 Paris Cedex 18 U' 42 03 95 95 - l'ML System Customer Sales Dcpanment, 8837-B, Goodbys ExecuLive Drive, 67 Jacksonville, Florida 32217, USA. tr 47 27 7 1 72. Triad Softwa re 125 North W"shington Street, PapiIlion, NEbraska 68046, USA. VIP Technologies CIO ISO Marketing, 20 StcclC;lse Raad West, Markham Ontario L3R 102, Canada. VersionSoft 94, rue Lauriston - 75116 Paris Word Perrect Systèmes d ' e x p l oitation et Qui n'a jamais rêvé de découvrir les secrets des protections de programmes. Voici donc un livre qui devrait assouvir l'appétit de découverte des chevronnés de l'Apple Il. Que les éditeurs de logiciels soient néanmoins rassurés : il s'agit ici de montrer comment protéger les programmes ct leurs disquettes ; il n'est jamais question de détailler le travail inverse. 'Déplombeurs' s'abstenir 1 Avec un sujet de très haut niveau technique comme celui-ci, il est indispensable de posséder une excellente connaissance préalable de l'assembleur et des systèmes d'exploita(Îon de l'Apple Il (DOS 3.3 ou ProDOS). Il ne sera jamais question de faire un apprentissage de la pratique du 6502 : le début du livre démarre sur les chapeaux de roue et la suite COIllÎnue à la même viœsse. . . Au menu, o n trouve d'abord les éditeurs habituels de disquette tels que CIA ou Walson. Suivent une description des méthodes 'préhisto riques' de protection en mémoire d'un programme (en commençant par rediriger les vecteurs du Reset), Puis, les protections sur disque sont progressivement détaillées modifications du nombre de pistes, de secteurs, d'octets ou de nibbles précèdent des méthodes franchement abominables : nouvel encodage des nibbles, allongement des temps de synchronisation, synchronisations angulaires. Enfin, apparaissent les méthodes quasi-incopiables interpistes ou spiraling par exemple. 68 Zip Chip 1 1926 SnnL.1. Monica Boulevard Los Angeles, CA 90025, USA. Corporation Œi6fiographie systèm e s de protection sur Apple Il, par Jean-Pierre Lagrange Édition Micro-application - 179 F 288 West Center Strcct, Orem Utah 84057, USA. ô JlIe?(andre 5'lvrane, 5'l{e?(andre 1Jubact Pour illustrer ces méthodes, l'auteur parsème les chapitres des listings des principales routines étudiées (à nouveau, seulement des routines de protection : aucun listing n'est fourni pour décrypter). Il ne reste plus au lecteur qu'à protéger ses programmes en créant un cocktail de sa composition pour faire amplement transpirer les héritiers d'Aldo Rcscl. l'essentiel tirés de J'excellent PostScript Language - TUiorial and Cookbook chez Addison-lVesley Publislzing Compagny (fort beau livre, bien fait, réalisé avec goût et élégance dont le seul inconvénient est d'être en anglais). MatStatMath - Logma SA - 12, rue d'Anjou - 78000 Versailles 450 F Il ne s'agit pas là d'un livre mais d'une disquette proposée en annexe dans l'ouvrage Excel efficace publié chez Cedidna/han. MarSrarMath regroupe un grand nombre de modèles de calcul utilisables avec Excel ct destinés au étudiants, professeurs ou, plus généralement, tous ceux qui ont besoin de manipuler des statistiques ou nombres sous toutes leurs formes. Cette disquette contient également une police de caractères en taille 6 points, baptisée MicroCarnctères. MatStatMath est commercialisée par wgma SA, société qui distribue aussi les fantastiques cartes Speedisk pour Apple Il. de PostScript� , par Bernard-Paul Eminct - Édition du P.S.! - 2()() F Le livre Il ne faut pas rechercher dans cet ouvrage une description exhaustive des possibilités de PostScript. 11 s'agit plus d'une présentation qui permet peut-être de débuter dans cc langage, Les exemples de ce livre sont pour Comme toutes les documentations d'origine Apple, cclle·çj est bien faite, claire et précise. De plus, les erreurs qui apparaissaient dans les éditions antérieures ont apparemment disparues, Cel ouvrage est donc indispensable lorsque l'on veut utiliser à fond l'imprimante ImageWriter, pratiquement toujours sous·employée. Pom's nO 34 ------- - 'Boîte au?( (ettres 4) Transmission - 9 1. De: Arian ZELWER (AZI 0) I l jan 88 22h35 • S'il vous plaît, une question : - Ayant à côté du Mact un Nic avec lecteur 3,5 pouces, est-il possible de récupérer les fichiers textes sous ProDOS/Appleworks . et les reprendre sous MacWrije ou Ward ? Puis-je échanger des fichiers par liaison directe entre ces deux machines ? Merci de votre aide . ••• AZ10 H' Avec InterPom's sur le Mac et InterPom's sur le Ile (et un câble de liaison ad hoc), vous pOUfrez transmettre les fichiers à 9600 bauds. Si vous transmettez le fichiers AppleWorks, vous hériterez de codes de contrôle qu'il faudra éliminer en traitement de textes sur Je Macintosh. Un conseil, demander à AppleWorks'J'«impression dans un fichier texte (ASCII) sur disque», puis transmettez ce fichier nouvellement créé : plus de codes de contrôle, peu de questions de présentation à régler à l'arrivée sur le Macintosh. 5) Bonjour el S.O.S. ... - 41 De: Jean-Pierre BCULETEX (JPBI2) · 1 2 jan 88 08h31 J'ai un problème avec un fichier texte DOS 3.3 et ce message : Erreur code 107 ? Oue doua-je faire ? Amitiés. (PS) à quoi correspond le numéro de chaque disquette Mac dans le bon de commande ? Erreur 107 .- Bad Subscript error .- vous tentez de sortir des limiles d'un lableau ; par exemple, DIM A$(12) : PRINT A$(16). Devant une erreur dont on ne connait pas le code, le plus simple - à part consulter le manuel du Basic, du DOS ou de ProDOS - esl de supprimer le ONERR qui récupère les erreurs. Un message en clair, et accessoirement en anglais, s 'affichera. Le numéro des disquettes Pom's représente le numéro de la revue à laquelle elles correspondent. Ainsi, la disquette 28 contient tous les fichiers listés dans la revue 28. 5) Date avec AppleWrner Pom's 33 91 De: Jean-Marc MAYER (JMMI3) - 02 jan 88 14h04 • Je rencontre un petit problème avec "Date et AppleWriter sur un GS. Sans programme de boat Qui met la date dans les octets $BF90-$BF91 , l'utimaire me d� : vous n'avez pas de carte Porn's n° 34 horloge, ce qui est normal. J'ai installé REBOOT.SYSTEM importé de CalvaCom mais lors d'un boot, j'ai toujours le message : INSERERIREBOOT. Oue faire ? En fait, vous n'avez pas besoin de REBOOT.SYSTEM puisque l'Apple IIGS comporte une carte horloge. C'est votre version de ProDOS qui ne la reconnait pas : il faut installer la version 1.3 ou 1.4 de ProDOS 8 sur votre volume AppleWriter et tout rentrera dans l'ordre, les fichiers seront datés. En ce qui concerne REBOOT, si vous préfériez cette solution, importez également MOOIF.REBOOT qui permet de changer le nom de volume qu'attend cet utilitaire. Autre solution transitoire, renommer votre volume de travail /REBO O T. 3) Câble el Geslion bancaire (AR) 351 De:Thierry VICAIRE (TVIO) - 30 dec 87 21 h03 • Je vous ennuie encore avec deux questions : 1 ) J'aurais besoin d'un câble de 3 m pour relier mon Min�el 1 B à mon MacPlus : quel serait le prix ? 2) Concernant le programme de gestion de compte bancaire du numéro 20 de Pom's : est-il compatible HFS ? fonctionne-j-il obligatoirement avec Basic 2.0 ou son RunTime est-il suffisant ? la ventilation des dépenses peut·elle servir à ventiler les recettes ? 1) 300,00 F franco 2) Ce programme ne fonctionnera normalement en HFS qu'avec la version 3.0 du Basic Microsoft. Basic 2.0 ou simplement RunTime 2.0 conviennent mais pas en HF$. Non, seules {es dépenses sont ventilées. 14) Graphisme et assembleur "AR' 911. De:Jean-Louis ROCHE (JLRI 0) 27 dec 87 23h06 • • Problème : Un petit bonhomme traverse l'écran ; 7 formes (shapes) définissent le mouvement et un petit programme Basic s'occupe de l'affichage. Cela fonctionne mais je me heurte à un clignotement de l'écran. Même travail en assembleur, mais après de vains essais, je constate que �ça clignote toujours� ; on est loin du défilement harmonieux que j'attendais ... J'en conclus qu'il y 69 a une astuce de programmation certainement bien connue depuis la préhistoire de l'informatique ! Nous ne publions pas fe listing accompagnant ce message car la solution est effectivement connue : Il suffit de tester l'octet $COt9 et de n'afficher que lorsqu'il est positif, c'est·à·dire qu'il ny a plus de balayage en cours. §1 BIT $C019 BPL §1 'Hroutine d ' affichage Cette solution n'est valable qu'en assembleur : pour une question de vitesse, pas question de tester en Basic ou même d'appeler depuis le Basic ce micro�programme avant IXORAW. 1 7) Cw'Pom_1ranstert 81 De: Alexis APLOGAN (AA1 1 ) . 29 dec 87 1 1 h55 � JtE:-.JJ 10) Help PatchworXs · 1 7 1 De: Laurent AIUTI (LA24) . 26 dec 87 t4h5 Rét. Pom's 33 PatchworXs page 67 le patch qui remplace le caractère "damier" par le caractère souris "return" sur AppleWorks 1 .4 ne fonctionne pas, AppleWorks se plante et bloque le GS. Pourtant j'ai exécuté à la lettre les indications. y a I-il une erreur dans les Pokes ? Amicalement. Que vous dire ? Non, il ny a pas d'erreur, après exécution des pokes, nous obtenons le résultat escompté. /1 ne peut que 5 'agir d'une erreur d'adresse lors de la manipulation. • Avec Clv_pom's, je n'arrive pas à récupérer les applications importés de CalvaCom. Lors de la transformation par BinHex 4, la lecture de l'application est interrompue par ERREUR CRC ($2A83). Merci de votre répon se. II est probable que vous ayez importé votre application en mode "enregistrement de textes· ce qui a conduit à un recodage des caractères accentués, donc à une erreur de 'checksum'. JI convient de se mettre en mode "enregistrement de programmes·. 1Ju 6) Conseil... . 101 De: François MULLER (FMt7) . 1 t dec 87 15h31 aux utilisateurs du programme Min Bas (Pom's 27) de faire la modification suivante s'ils ne l'ont déjà faite ... Je conseille Ligne 795 ajouter CHR$(31) 9 après le CHR$(14). Ceci provoquera un saut de 9 lignes sur votre IMW /1 et imprimera une page Min�el sur une page de papie r , ce qui est plus pratique. Amitiés •• FM •• côté des imprimantes Laser'J!Vriter On parCe âune nouvelk version au PostScript inugré à fa 'Trois nouveflts LasefWriter sont proposées par �ppCe : LasefWriter âl.5poni6te att.t itats·'Unis, mais qurJ est Ce auraoUs, oac ae 2°ofeui.lIe.s et, enfin f, un 6ac d enve(oppes. numéro de version de votre imprimante ? Pour te savoir, envoyez-fui Ce programme f/.Su â-tUssous. lf tfonne acces soirement Ce nombre tÛ. pages imprimies et Ce nom tÛ. Congiviu tripte, aensiti cfe.s noirs améCiorée, cartouc.fus pfus • {imprimante j c'est aussi {occasion cft voir tUs itt.5truction.s non aooraées aans Ce numéro 24 ae Pom s. L'envoi se fait cftpuis un %ac à {aide tÛ. 'Down.Load ou - • ?), rapiâe et partiliJea6te : 35 po(jces, l?{o 1(çm, 2'Mo 1(çm - 29900 1'm traitement cft te)(te.5. • LasefWriter II'JI.[IX coTtfIU! avec un processeur 68020 à 16Mfiz, 2 à 4foispfus rapide qlU! faLaser+. 'LrJett.5iott.5 /Iimes-1(pmanfirul fMt 12 scalefont set/ont mémoire prévues : 3Spofices, 1%0 'R.pm,jusqu.'à 12%0 100 700 move.to llt.rsUm (?{;J12 cft ver.;ion : )sfww sfww 1(çm - 399OO 1'm 100 680 nwveto 31 string statusâut oegin printername pagecou.nt erui 'Eiks sont connecta6Us d un lI(jS ou 100 720 move.to (Imprimante : ) sfww sfww sfwwpage à (autre est prévu. 6 string cvs ('J{rmore cft pages : ) sfww sfww 70 LaseflVriterJl'J'lE aoUe cft Ca aemitre version ae Po.st Script (42 Just!Te.;rJ. et aepuis un �ppCe If, par te port sim avec tout %! nO version PostScript aieni à un seul :J,{acinto.sfi, pifotie parCes routines Q!licK:JJraw aud"it!Jv{ac : 4 poCias, I:J,{o 19 9OO 1'W 1(çm LasefWriter lISe. à un PC d CaMe â�ppfe'TafK..PC et un système ae mise à niveauâun mmfèfe Porn's nO 34 Pe-ti-tes annonces Ces petites annonces sont gratuites et réservées aux abonnés. Elles doivent bien entendu concerner l'informatique. Pour les ventes de logiciels, l'annonceur doit nous faire parvenir une photocopie de la facture d'achat. Vends carte SSC (Ot/B7) : 750 F câble SSC/Minitel : 150 F - Disk Il : t 000 F - carte horloge (driver ProDOS à adapter) : 100 F collection Micro-Systèmes (20 à 72) : faire offre. Jean·Marc Corazza - Le Téoulet BI600 Gaillac {() 63 57 06 96 Vends imprimante Microline 80 parallèle connecteur Cenlronics : 1000 F. Michel Le Port {() 47 20 BI BB. Calva MLPIO Recherche Langage Fortran UCSD original pour Apple 11_ André Moreau - 73, rue du Roleur 59300 Valenciennes {() 27 45 1 6 1 2 V e n d s logiciels pour P C & compatibles sous emballages scellés, Multiplan 3, VP Expert : faire offre. Daniel Ronxin - Laignelet - 35133 Fougères {() 99 99 33 71 Vends Apple Ile 65C02 1 2BKo, Moniteur ambre, 2 lecteurs 1 40Ko, Solution du nO ventilateur, pavé numérique, joystick : 5000 F - Machine à écrire Underwood électronique à marguerite avec mémoire : 3500 F. M. Calvet {() 45 97 44 B2 Recherche Compilateur C Aztec d'origine, complet avec documen tation pour Apple Ile. Norbert Steinberg - 24 avenue du Moulin - 7B230 Le Pecq {() dom : 39 58 42 71 {() Bx 64 46 2650 Contact Pour partager expérience en assembleur, prendre contact avec : Emmanuel Bougeard - 3Bis boulevard des 3 croix - 35000 Rennes {() le week-€nd 99 59 37 06 Recherche programmes d'origine : The Bridge, MultiScribe 2.0, logiciels d'astrologie, Astronomie, Généalogie sur Apple Il, Mac, IBM et tous logiciels de démonstration en version limitée_ Club informatique ForlNext - 1 5 square Costes 91 070 Bondoufle {() 64 97 67 09 CalvaCom CliO & PBI6 Vends machine à écrire IBM à sphères : 1500 F Maurice Trecul . 3, boulevard de Verdun - Moigny sur école - 91490 Milly-la-Forêt (() (1) 64 9B 42 35 33 1 - Courroies 2 - Tel Bdlzdc 3 - Vrdiment proteshnte 4 - Opaline 5 - FloUe - Bye-bye 6 - Il peut s'agir d'une zone - Mal vieilli - Arc en ciel 8 - Empotés 7 - Va au fast foot - Débarrasée Verticalement la - Félicitations et rendez-vou s au prochain numéro pour le résultat de notre sondage et un autre tirage au sort parmi les abonnés (rappelons que nous offrons programmes de valeur et documentation techniquesl_ l a - Dégoutter - Fins des fléaux 1 ���+-+-+-1-1-1-1-� 2 ���+-+-+-1-1-1-1-� �I-I-I-I-If-f-f-f56 1-1-1-1, H-t-f-f-f- 3 4 1 - Cuirs équestres 2 - Vit sur la Loire- mais pas dans la Loire 8 4 - Certaine argile 5 - Boue - Aufwiedersehen 6 - Peut tourner à 14 psychose 7 - Permet aux IBM d'y voir clair 9 8 - Retouchés 9 - lunch - De moins en moins - Nacrés 1 3 - Vociférante M. M i c h e l C o s s e t de Caudebec en Caux à reçu un traitement de textes, M. Jean Rumeau, un trai tement de textes doublé d'un programme de mailing, M. Patrice Verdun de Villiers le Mahieu, un traitement de textes, et M_ B e r t r a n d G u i l l i n d'Épernay u n tableur. Problème 34 pdr Joëlle Pidrd Horizontdlement 9 Comme promis, nous avons tiré au sort des noms parmi les bulletins d'abonnement depuis parution du dernier numéro, '--+-+_ r Exhaler - Chevilles Pom's n° 34 71 Nous avons découvert qu'on peut avoir le sens des affaires ... Avoir le sens des affaires est devenu monnaie courante. Rien n'est plus banal que de commencer une entreprise à deux dans un garage, et de la retrouver 10 ans plus tard dans les 200 plus grandes entreprises amêricaines. Ce qui est plus rare, c'est de conserver les vraies valeurs et d'avoir le sens de la famille. De 1984 à 1987, Macintosh a beaucoup progressé. Sa mémoire s'est considérablement étendue, de 1 à 8 méga octets, ses menus se sont sophistiqués, hiérarchisés, sa bibUotlièque de logidels est devenue gigantesque. Cependant, il n'a jamais oublié ce qu'il avait appris de plus important: l'homme. Après Macintosh plus et Madntosh SE, Madntosh II en est une nouveUe preuve. et celui de la famille aussi. Les menus déroulants sont toujours présents, bien qu'ils se déroulent beaucoup plus vite. Les capacités graphiques sont toujours les memes a 16 millions de couleurs près. . C'est une machine toujours aussi intuitive, disposant de 1 a 8 mégaoctets de mémoire vive (et meme plus), d'un disque dur interne de 20 a 80 mégaoctets, pour que toute la logique de votre travail y trouve son aise. Ouvert a tous, Macintosh li est aujourd'hui ouvert a tout grâce à ses 6 connecteurs d'extension. Mais pourquoi au juste les hommes ont-ils le sens de la famille ? Parce qu'ils n'aiment pas renoncer ace qui leur est familier, ni s'encombrer l'esprit de règles inutiles, et parce que le progrès et l'expérience doivent etrevêcuscomme un enrichissement et non comme un changement systématique de méthode. Et comme derrière chaque utilisateur se cache • un homme, nous avons en définitive encore plus Apple le sens des affaires. ,-"'. Macintosh II i f • i1 l � • � � 1 1 • t t1 • ] i � • t i1 i J 1 J • ! r � 1 • z J • ! 1 • j Revues Pom's n'8 n'14 n'19 n' 24 n' 29 n' 34 35,00 F O 40,00 F O 40,00 F O 40,00 F 0 45,00 F 0 45,00 F O n° 1 0 n° 15 n' 20 n'25 n'30 40,00 F O 40,00 F O 40,00 F O 40,00 F O 45,00 F O n° 1 1 n° 1 6 n° 21 n'26 n° 31 40,00 F O 40,00 F O 40,00 F O 40,00 F O 45,00 F O nO 1 2 n° 17 n'22 n'V n' 32 40,00 F O 40,00 F O 40,00 F O 45,00 F O 45,00 F 0 n' 1 3 40,00 F O n' 18 40,00 F 0 n' 23 40,00 F 0 n' 28 45,00 F 0 n' 33 45,00 F 0 Oisquenes d'accompagnement de Pom's pour Apple lI, en 140Ko - 5,25 pouces n° 1+2 60,00 F 0 n'7 60,00 F O n' 1 2 60,00 F 0 n° 17 60,00 F O n'22 60,00 F O n° 27 60,00 F O n032 60,00 F O n' 3 60,00 F O n'S 60,00 F O nO 1 3 60,00 F O n ° 1 8 60,00 F O n° 23 60,00 F O n'28 60,00 F O n 0 33 60,00 F O n' 4 n'9 n° 1 4 n° 1 9 60,00 F O 60,00 F O 60,00 F O 60,00 F O n024 60,00 F O n' 29 60,00 F O n' 34 60,00 F O n' 5 n0 10 n015 n'20 n'25 n030 60,00 F O 60,00 F O 60,00 F O 60,00 F O 60,00 F O 60,00 F O n'6 nO 11 n0 16 n° 21 n'26 n° 31 Disquettes d'accompagnement de Pom's pour Apple ][, en SOOKo - 3,5 pouces n'29 80,00 F O n' 34 80,00 F 0 n' 30 80,00 F O n' 31 80,00 F O 60,00 FO 60,00 F O 60,00 F O 60,00 F 0 60,00 F O 60,00 F O n' 32 80,00 F 0 n' 33 80,00 F 0 nO 1 8 n° 23 n'28 nO 33 nO 19 80,00 F O n° 24 80,00 F O n'29 80,00 F O nO 34 80,00 F O Disquettes d'accompagnement de Pom's pour Macintosh nO 14+15+16 n'20 80,00 F 0 n° 21 n025 80,00 F O n' 26 n' 31 n'30 80,00 F O 150,00 F O 80,00 F O 80,00 F 0 80,00 F 0 n° 17 n'22 n'V n° 32 80,00 F O 80,00 F O 80,00 F O 80,00 F O 80,00 F O 80,00 F O 80,00 F O 80,00 F O Recueils de la revue Pom's (regroupent quatre numéros de Pom's) 140,00 F O 200,00 F O n' 1 (revues 1 à 4) Oisquene 1 à 4 Logiciels pour Apple rr ' Pom Link 3.0 140Ko 450,00 F 0 Clv_Pom's 140Ko 200,00 F O InterPom's 2,0 14OKo 200,00 F 0 E.P,E 5,1 140Ko 200,00 F 0 200,00 F 0 Ordico 140Ko Logicie� pour Macirtosh Excel e"icace 400Ko t 95,00 F 0 '450,00 F 0 Pom_Link 3.0 n' 2 (revues 5 à 8) Oisquene 5 à 8 140,00 F 0 200,00 F O ' Pom_Link 3.0 800Ko 450,00 F 0 Clv_Pom's BOOKo 200,00 F O InterPom's 2.0 8OOKo 200,00 F 0 E.P,ES,1 8OOKo 200,00 F O Dominos t4OKo 200,00 F O BananaSo" t40Ko Édit. Vidéotex 140Ko LudoJogic 14OKo MaxMoniteur 140 Ko COGO (src) t40Ko 200,00 F O 200,00 F 0 80,00 F 0 150,00 F 0 200,00 F O Excel efficace BOOKo t75,OO F O Clv]om's 200,00 F O MacAstuces InterPom's 2.0 200,00 F O Disquettes de logiciels 'domaine public' pour Macintosh Mac 'A' 0 'B' 0 'C' 0 '0' 0 n' 3 (revues 9 à 12) 140,OO F O Oisquene 9 à 12 200,00 F O 'E' 0 'F' 0 'G' 0 Reliures toilées !X)ur 6 numéros de Pom's (un an) : 'l' 0 'J' 0 80,00 F pardisquena F exemplaire(s) à 60,00 F, soit ,à: Abonnements pour sil numéros à partir du 'H' 0 450,00 F O 225,00 F 0 la revue Pom'sseule • revue et les disque"es Apple n BOOK 625,00 F 0 la revue et les disque"es Apple II 140K 525,00 F O 625,00 F 0 • revue et les disque"es Macintosh 925,00 F 0 1025,00 F 0 la revue Pom's, les disque"es Apple II 140Ko - 5' 1/4 at les disquettes Macintosh la revue Pom's, les disque"" Apple II BOOKo - 3' 1/2 et les disquettes Macintosh Envoyez ce bon el VOIre règlemeri à : �dJtIons ŒV - 1 2, ru. d'AIljou - 78000 Versalnes Nom : __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ Adresse : __ __ __ __ _ __ _ __ __ __ _ _ _ __ __ _ __ _ __ __ __ __ __ __ _ __ __ _ __ _ _ _ _ Règlement par: CBlVisaJEuroiMaslerCard numéro de la carte Montant ____ , ____ __ F ____ ____ 0.. Chèque bancaire 0 _ _ __ Signature : 'Remise de 10% sur Pom_Link 3.1 pour les abonnés Chèque postal 0 date d'expiration __ __ Mandat 0 __ --------;Détecteur d'appels téléphoniques Cet appareil. pour Apple Il ou Macintosh. autorise une surveillance de la ligne té.l�phon1que pour l'utllisatlon de l'Apple comme serveur avec un logiciel tel, par exemple, Répom'deur publié dans 1e numéro 34 de Porn's. Câble-interface Apple - Minitel Pour Caire fonctionner les programmes suivants : Minitel/l pour Macintosh. �1inBas pour Apple H+. / le, /Ie+, / le et IIGS : programme permettant l'enregistrement des écrans Minitel la restitution à loisir hors réseau, le stockage et/ou l'impression de copies d'écran du Minitel, et aussi l'envoi de textes ou messages sur Wl serveur. Programme du numéro 27 de Porn's. • • InterPom5 1 . 0 (et plus) pour Apple 11+. /le. /Ie+. /Ic. nGS et Macintosh : programme de téléchargement entre Apple J[ et/ou Apple Il et Macintosh. Transmission de n'importe quel type de fichier (système, texte. binaire. Basic ) en utiUsant le Modem du Minitel. Version 1.0 publiée dans le numéro 28 de Porn's. •.. • T_pom's pour Apple 11+, Ile, //e+, fic, IIGS· et Macintosh : récupération de l'annuaire téléphonique sous la fonne de fichiers texte. Nwnéro 30 de Pom's. • Clv_Pom's pour Apple 11+. /le. / /e+, / /c et IIGS· et Macintosh : programmes de communication pour CalvaCorn et serveurs 'ASCD'. Numéro 31 de Pom's. • Paint - Minitel pour Mac et HGR - Minitel pour Apple 11+. //e, //e+. / /c, IGS· : graphisme et Minitel. programmes proposés dans le numéro 33 de Porn's, • Répom'deurpour Macintosh, Apple U+, //e, //e+, / /c et IIGS· : répondeur/enregistreur télématique lnterrogeable 4 distance publié dans le numéro 34, • sur u n Apple IIGS. ce programme fonctionne Indüféremment avec le port série intégré ou la carte Super Série Apple, Pour connecter le port intégré du DGS, utilisez un cable pour Macintosh Plus. k------- Je désire recevoir : détecteur d'appels Apple // détecteur d'appels Macintoshcâble Minitel/Apple // & SSC câble Minitel/Apple / /c cAble MinlteljMac 128. 512K cAble Minitel/Mac Plus. Des cAble Minitel/IBM pcTM 4 500,00 F __ 4 500,00 F A 225,00 F Il �25,OO F A. 225,00 F A 225,00 F 4. 225,00 F A. 225.00 F __ • __ • __ __ __ __ __ câble de llaison locale·· • si vous êtes abonnés. vous bénéficiez d'une remise de 10% sur le prix du détecteur, soit 450 F au lieu de 500 F. .. préciser le type des deux machines à reUer: Mac_ 512, Mac Plus, Apple Ile, IIc, DGS, mM perM , Envols par avion : ajoutez 15 F par câble et/ou détecteur Éditions MEV - 12, rue d'Anjou - 78000 Versailles Nom : __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ Adresse : En cas de règlement par CB/Vlsa/Eurocard/Mastercard : nwnéro de la carte date d'expiration Montant _ _ _ _ • _ _ F Signature : l:�PROTECTED Backups ll'I3y be �e using standard copying procedures. PPleworkSN Macro Power! Tum A any series of keystrokes inta a new one-keystroke commando Adds many new features to your Ward ProcessoT, Data Base and Spreadsheet.