Home

Ordico contient plus de 15000 mots classés en 70 rubriques

1. 140 CALL G80 K PEEK 16384 K K 610 L 0 J 0 FOR I 1 TO 12 128 K gt 177 620 IF I 7 THEN X0 J J 0 150 IF K 27 THEN POP RETURN 630 L L 1 REM Ignore blanc tiret et a 160 IF K 10 OR K 11 OR K 13 GOTO 26 postrophe 0 640 E MIDS C08 L 1 IF KS THEN K 170 IF K 8 OR K 127 AND 1 gt 1 THEN a I 7 Te PRINT BSS IF 6 COTO 650 IF ASC K 64 lt 0 GOTO 630 40 660 J 27 ASC K 64 180 IF K 127 THEN P PEEK 1403 K 670 NEXT 1 X1 g MIDS CS I 1 LM 1 I CS MID 680 RETURN CS 14T 1 XS PRINT KS BO 699 KE 1403 P GOTO 140 700 REM Lecture d une fiche 190 IF K 21 LM PABN E H 1 701 REM PRINT FS GOTO 140 710 CALL INANOSE CALL IN PR CALL AN ADS 200 IF MA AND 96 lt K AND K lt 123 THEN K CALL IN VIS CALL N TES CALL IN RE K 32 z PRINT 06 210 IF MA AND K lt 65 OR K gt 90 AND K lt 720 PRINT TMS gt 32 AND K lt gt 45 AND K lt gt 39 AND 730 PRINT NOMS pNOS POKE 96 441 PRINT K lt gt 46 THEN PRINT BE GOTO 140 Pr nom PR PRINT Adresse AD 220 TF 32 THEN PRINT BES GOTO 140 PRINT Ville VIS POKE 36 46 PR 230 K CHRS K C MD BBG E INT T l phone TE PRINT Renseign I 1 K MIDS CST 1 LM I ement RES 240 I I 1 IF I gt LM THEN KS Ke BL 740 RETURN BSS TI
2. 607 DFB 583 513 547 0 624 640 608 Ctri S Sommaire 625 DFB FB 19 42 641 PLA 609 DEB 93 513 546 0 69 642 TAY 610 Ctrl G Guide 626 643 PLA 611 DFB 587 513 544 0 62 7 DEB 9FD 19 541 644 LDX DF 612 Ctri X Annulation 65 645 TXS 613 DFB 598 513 545 0 628 646 PHA 614 Ctri R Retour 629 DFB SDB 19 530 0 647 TYA 615 DFB 592 513 542 0 630 ou 4 648 PRA 616 Ctri B R p tition 631 DFB A3 19 23 0 649 RTS Programme MINBAS 1 PRINT CHR 21 2 ONERR GOTO 5000 5 PRINT CHR 4 BLOADMINITEL 10 8265 TEXT HOME GOSUB 2000 PRINT POM S SPC 9 MINITEL APPLE SP C 8 POM S GOSUB 2000 VTAB 22 GOS UB 2000 VTAB 10 HTAB 10 POKE 34 4 P OKE 35 21 15 CX S DIM A 9 NF NOM DU FICHIER 20 DIM M 6 M2 2 M35 2 M4S 6 M5S 4 M 6 GOSUB 1000 AD 8266 SL 2 EN 1 LE 2 CE 3 BE 4 SI 1 POKE 97 28 255 D CHR 13 CHR 4 DR 0 D1 CHR 4 CU 1 Si c parametres de l interf ace modem 30 IF PEEK 64435 6 AND PEEK 64448 O THEN PRINT DS BRUNPARAM Menu principal 100 FOR I O TO 6 5 M1 1 NEXT C H A0 TT MENU GENERAL GOSUB 1100 A0 CH A2 0 CT 0 105 ON CH O OR CH S AND SL 6 GOTO 4300 110 ON CH 1 GOTO 150 160 250 350 200 440 0 3000 150 FOR I O TO 2 M I M I NEXT C A1 TTS MIS AO GOSUB 1100 A1 C H ON CH 1 GOTO 400 500 100 1
3. 200 00 F dessus Recueils N 1 recueil des revues 1 4 4 140 00 F A Disquettes d accompagnement 1 4 lt 200 00 F ARES N 2 recueil des revues B 96 en n A AA Disquettes d accompagnement 5 8 i s rm 200 00 F N 3 recueil des revues 9 12 mm Sais 140 00 F D PR Disquettes d accompagnement 9 12 200 00 F iia go Revues disquettes Revues4 7 8 a 35 00 F Revues 1011 12 13 14 15 16 17 18 192021 2223 24 2526 0 Rk 40 00 F RE Disquettes Apple TI e c 1 2 3 4 5 6 7 8 9 10 11 12 13 5 aad 14 15 16 17 18 19 20 21 22 23 24 252627 Disquettes Macintosh 14 15 16 proup es 0 Ae 150 00 F DES 17 18 19 20 21 22 23 24 25 2627 mmm 8000F yaydan MAA E erin V00F sims MacAst ces M 200 00 F 20000F 6202215320505503 Abonnements Pour 6 num ros partir du n Abonnement la revue seule 22500F seven Abonnement revue disquettes Apple Il e fe 525 00 FE Azda Abonnement revue disquettes Macintosh gt 625 00 F ss Total TTC Suppi ment avion hors CEE 15 00F par num ro et ou disquette Montant du r glement Envoyez ce bon et votre r glement EDITIONS MEV 64 rue
4. MENU PRINCIPAL CREATION ANNULATION IMPRESSION Sur le c on en peut plus se r f rer au changement de valeur de l octet C019 Un interruption peut tre g n r e chaque d but de trame mission confi e la carte souris La routine installe en premier lieu le vecteur d interruption puis ex cute une boucle en attendant la premi re d entre elles une chaque 60 me de seconde Le reste du traitement est similaire Un test permet au d but de la routine de savoir si on se trouve sur l un ou l autre des ordinateurs Utilisation du programme Charger depuis votre programme Basic la routine PRINT CARS 4 BLOAD CRAYON A3812 77 A chaque utilisation du crayon faire CALL 38127 Sur le e la routine tant Telogeable il suffit de faire CALL adresse de chargement Sur le c il faudra r assembler l adresse choisie ou sous ProDOS utiliser le relogeur d A Avrane INITIALISATION MODIFICATION CONSULTATION FIN DE LA DEMONSTRATION Um Crayom p qlue Christian Piard Apr s cet appel dans Toctet 6 vous disposez de la position verticale du crayon entre O et 23 Si cet octet est 255 l utilisateur sest servi du clavier et vous trouvez le code de la touche dans Yoctet 7 Ceci est illustr dans le programme DEMO Comme dans le programme de d monstration r servez une zone en vid o inverse sur chaque option pour que le phototransistor r agisse efficacement
5. de KOK k de e KOK KOK OK KOK 520 DARA 169 159 144 88 192 32 1609 252 1 1010 IF PEEK 16287 gt 128 THEN P0 68 108 1 41509 9 Br M 188 M20 1 540 RETURN 1020 IF PEEK 16286 gt 128 THEN P1 550 1 600 REM COMPOSITION NUMERO XXXXXXXX 1030 IF PEEK 16285 lt 128 THEN P2 XAXXXXXXXXXXXXXXXAXAX 1 610 HOME 1040 IF NOT OR Pl OR P23 THEN 100 620 READ X IF X FIN THEN END 0 630 POKE 49241 0 REM PRISE DE LIGNE 1050 GOSUB 600 REM APPEL 640 FOR B 1 TO 700 NEXT U 1060 FOR Q 1 TO 200 NEXT Q 650 HOME 1070 CALL SLOT 660 PRINT PRINT Je compose le num ro 1080 A OPS CO Bomen 27 9 1090 1100 TADO 1120 1130 1140 1 150 5160 1170 1180 1190 1200 1210 1220 T230 1240 1250 1260 1270 7200 1200 1300 1310 1320 Tosu 1340 PSSO 1360 BOA 1380 1390 1400 1405 1410 GOSUB 800 REM AFFICHAGE Fi eF2 0 T 0 T T 1 AS ALERTES GOSUB 800 FOR I T vo CALL ENTRE IF PEEK 9 1 CALL ENTRE IF PEEK 9 1 IF Fl AND F2 NEXT I IF T gt 5 THEN POKE 49240 0 IF T gt 10 THEN AS DES GOSUB 800 FOR G 1 TO 500 NEXT G POKE 49321 1 28 GOTO 1050 GOTO 1120 IF PO THEN SOS NE RCS RCS IF Pl THEN 515 NE RCS RCS 200 _ _ ASC THEN Fl ASC K THEM 2 MEN 1250 CIRCUTT 1 ACTTON CIRCUIT 2 ACTION IF P2 THEN S2 CIRCUIT 3 ACTION NE RCS BCS EOS 5 5 PDL 0
6. diteur Plein cran Le Pacha EPE Apple e e c Listez vos programmes Basic en avant et en arri re Modifiez ins rez effacez des caract res en plein cran sans relire les lignes Recherchez toute cha ne de caract res Choisissez vous m me les codes de contr le d EPE Modifiez EPE le fichier source est sur la disquette DOS ProDOS 40 80 colonnes Pom s n 27 La premi re partie de cet article proposait un programme sous forme de commande CP M permettant de configurer la carte Super S rie d Apple Apres configuration des fichiers pouvaient tre transf r s d un ordinateur l autre par la commande CP M PIP Une transmission plus volu e tel est l objet de ce deuxi me volet XMODEM protocole de Ward Christensen Le protocole XMODEM a t choisi car il est tr s courant et c est le plus simple des protocoles hautes perfor mances Il est en effet beaucoup plus puissant que les protocoles type D1 D3 ou ENQ ACK et reste relativement simple implanter compar des monstres comme KERMIT Dans un protocole logiciel la gestion de la transmission appel e aussi Contr le de flux n est plus assur e par les signaux de la RS232 mais par des codes chang s entre metteur et r cepteur De ceci d coulent plusieurs avantages la liaison lectrique est plus simple En local un c ble pour XMODEM se ram ne trois fils seulement Masse TXD RXD
7. e imprimer avec la Laser Writer jusqu 1400 Seul inconv nient majeur il ne se charge pas automatiguement guand on cligue dans un document MacPaint Et encore la solution ce probl me vous est propos e dans la rubrique Enfin l aide du driver ColorPrint disponible sur la disquette FullPaint vous pouvez imprimer des documents FullPaint en couleur avec de nombreuses imprimantes dont bien entendu les Image Writer 1 on peut y mettre des rubans de couleur et II Epson JX 80 Canon jet d encre ou Scribe pour ne citer que les plus connues Conclusion Un produit que nous recommandons vigou reusement et sans r serve ce qui est h las un plaisir Irop rare Diffus par Ann Harbor Softworks 308112 S State Street Ann Harbor Mi 48104 USA Version US A gq qQ 2 2 AA Pom s n 27 43 Cans ce num ro Pom s propose deux programmes effectuant peu pr s les m mes t ches L un fonctionne sur les Apple l autre celui qui correspond cet article de pr sentation sur les Macintosh les deux utilisant le Minitel Afin de ne pas mettre deux fois la m me chose dans la revue il nous a sembl pr f rable de placer les g n ralit s sur le Minitel ainsi que les probl mes qui lui sont li s dans un article commun que vous pourrez trouver si cela vous int resse page 53 Un sch ma vous indique le cablige n cessaire la r alisation tr s simple nous joignons un petit de
8. transmettre Connexion Fin MOVE B Al D0 DC B 500 513 549 500 LSL L 8 D0 LINK A6 0 Tampon 0 MOVE B Al D0 MOVE 8 A6 D0 maaa LSL L 8 D0 LEA 3 MOVE B Al DO MOVEQ 31 D1 Source MAJ Asm LEA Tampon10 A0 LEA Table Al MOVEA L 0 1 Beucle CMP B A1 D0 ERRARARARARA NA NARARARARANANANARARARAA MOVEQ 24 D1 BNE S Non Routine de mise Jour de Boucle CLR A1 MOVE L A1 A0 la fen tre de cople DBRA Dl Boucle TST 2 A1 d cran 6 BEQ S Un Les caract res afficher Hen TST B 3 A1 sont dans un tableau de Sortie LEA Drapeau Al BEQ S Deux gt variables enti res MOVE A1 MOVE B 83 AO L adresse du prenier UNLLE A BRA Fin l ment est pass par la RTS Un MOVE B l AO pile Lecturel BRA S Fin ay ac Deux MOVE RB 42 A0 Trap _Movete SA893 amponlv BRA S Fin Trap DrawChar SA883 CLR L 12 A0 Non ADDQ L 44 1 MOVE B A1 D0 SF A0 MOVEO 1 D3 LSL 18 D0 Fin UNLK A6 MOVEA L 8 A6 A3 MOVE B Al D0 RTS MOVE A3 D4 0 MOVER 0 D0 Table MOVE 42 5 MOVE B Al DO DC B 88 519 541 5 61 MOVE D3 SP LSL L 8 D0 LA W MOVE B Al DO DC B 89 519 543 61 Boucle SUBQ 31 D4 MOVE B Al D0 DC B S8D 19 4B 63 MOVEQ 0 DO MOVE L 00 32 se MOVE B A3 4 D0 MOVE 11 44 A0 DC B S8E 519 42 565 CMPI B 13 D0 MOVE L 12 A6 46 A0 Fa BEQ S CR Read DC B 8F S19 541 565 MOVE D0 P BRA S Sortie e DravChar Fermeturel DC B 90 19
9. ENTR KEY DUP BEGIN 32 WHILE KEY DUP REPEAT EMIT ef FIN p Programme CREMESS REM H AR A d d s esse REM Programme CREMESS REM Creation des Messages d ERREUR pour programme APF REM Le fichier cree est MESSAPF REM C est un fichier direct REM Fej Nissuorgsky 10 REM k ib b k mu 99 DS CHR 4 PRINT DS PRE3 100 TEXT HOME PRINT CREATION des messages d erreur d u programme APF PRINT Le fichier s appelle MESSAPF m 105 PRINT PRINT Taper lt C gt pour creer un message ou lt W gt pour VOIR un message lt 6 gt pour quitter GET X 106 PRINT X X ASC X IF X 38 THEN END 107 IF X 67 OR X 99 THEN GOSUB 110 GOTO 100 108 IF X 86 OR X 118 THEN GOSUB 2000 GOTO 100 109 GOTO 105 110 HOME PRINT CREATION des Messages 36 Caracteres ma xi 62 Pour Quitter PRINT INPUT Numero NUS NU INT VAL NU IF NU lt 1 OR NU gt 99 THEN 110 120 X ASC X IF X ASC 6 THEN END 150 M PRINT Votre Message lt amp gt Quitte 2 152 GET X X ASC X IF X 13 AND LEN M 0 THE bou amp N ka N 152 153 IF X 8 AND LEN M lt gt O THEN GOSUB 1000 GOTO 152 154 IF X 13 THEN 160 155 IF X ASC s THEN N N 1 RETURN 156 IF X lt 32 OR X gt 125 THEN 152 157 PRINT X M M X IF LEN M gt 36 THEN INVER SE PRINT Trop long NORMAL PRINT GOTO 150 158 GOTO 152 160 PRINT PRINT D OPEN MESSAPF L39 PRINT DS WRITE ME
10. gt Caract res Ascii du protocole SOH EQU 1 EOT EQU 4 ACK EQU 6 NAK EQU 21 CAN EQU 24 SUB EQU 26 Table de variables point e par IY COMPT DS 1 Compteur NESSAI DS 1 Nb d essais FINI DS 1 Flag fin NBLOC DS 1 PAGE START EQU F Bloc courant D but progranme LD A BUFFER OR A Nom de fichier LD DE MSG JP Z PRMSG Non retour LD DE MSG1 En tete CALL PRMSG LD C 15 Ouverture fichier LD DE FCB CALL BDOS INC A Fichier trouv 7 LD DE MSG2 JP Z ABORT Non erreur Pr paration Sp Vi Ya CALL CONF ACTA LD IY COMPT XOR A LD IY 2 A Pas fini INC A LD IY 3 A Bloc 1 LD A T60 LD IY 0 A 1 minute LD DE MSG3 CALL PRMSG r Attente r cepteur CALL LECTURE UR NC WAIT2 VAITI DEC IY 0 JR NZ WAIT REC LO DE MSG9 JP WAIT REC Caract re J attends encore Temps maxi ABORT WAIT2 LD DE MSG8 CP CAN Cancel JP Z ABORT CP NAK JR NZ WAIT Lire un Buffer A ER AAR r ta a Se RDBUF EQU LD 6 20 LD DE FCB CALL BDOS OR A Fin de fichier JR Z ENVOI Non envoi du Bloc SET 0 IY 2 Fini LD IX BUFFER BSIZE 1 LD A SUB Fin du bloc CP IX 0 E Ctrl Z 9 JR Z ENVOI Renvoyer un bloc plein de Ctrl Z LD IX BUFFER LD B BSIZE RDBUF 1 LD IX 0 A INC IX DINZ RDBUF1 Pom s n 27 RES gt Envoi du Bloc ENVOI LD ENVOI1 1D SUB BIT Se CALL CALL LD CALL D
11. puisque le programme attend la fin de la page qui ne viendra jamais Dans ce cas il convient d envoyer nouveau une copie qui elle aussi sera tronqu e mais d clenchera une protection du programme qui remettra tout en ordre Les fichiers constitu s depuis ce mode sont exploitables depuis tous les programmes qui acceptent le format TEXT Mac Write Word Edit Afm de respecter la g om trie de l cran il convient lors d une impression d utiliser une police de caract res chasse fixe Monaco ou Courier Stockage Consultation Copie d ecran Pr paration enuoi Ce mode sera utile ceux qui ont fr quemment besoin d mettre des messages assez longs vers des serveurs et de mani re plus g n rale aux futurs utilisateurs du courrier lectronique qui sera prochainement mis au service du public par les PTT 11 permet l mission de messages pr par s hors r seau donc sans contrainte de temps et ventuellement leur dit on Fichier Nouveau uurir Enregistrer Fermer Quitter Pour commencer l dition d un nouveau message Fichier Nouveau Quurir Enregistrer Fermer Quitter Ouverture d un fichier contenant un texte dit avec ce mode ou un programme autorisant une sauvegarde en format TEXT Si le fichier en question contient plus de 960 caract res un cran Vid otex complet le programme met un Bi
12. 0D 00 E6 20 24 5 22 A9 E 6 PO 83 9B 23 0 3 20 92 DB 92 60 10 AA 85 85 81 64 1D FO 92 07 96 82 DB 1E 1A A5 FE 08 C2 20 FO 4C A2 Al CO 23 A0 23 BA FO 60 lE 19 18 23 60 04 07 DO DO 23 20 10 S 06 91 A5 20 JA 2E 62 00 ED AD A0 00 A9 48 F8 A9 85 C6 A9 60 c9 ER 09 IC 14 A0 OC 0A 18 20 07 08 92 DB 20 22 A2 85 00 23 A9 00 A 2 A5 00 18 19 26 A9 90 20 80 E 6 46 24 E 6 PO 6B E 6 C 9 23 20 2B 2C EB 06 co A9 EF 85 00 06 85 A9 A0 CE 00 90 90 8D 08 07 A9 JE DE 03 23 07 96 A0 OC 23 00 29 18 38 EC 91 Al 82 07 26 00 9 85 03 D2 F 7 AS Eb 2D 22 E6 4C A0 DO DO 24 ED 20 CO 08 60 60 4C 07 85 EB ED 85 85 A9 18 me 20 2370 73 23 60 98 48 8A 48 A0 2378 40 98 6A AA CA DO FD 2C 2380 30 CO 88 DO F4 68 AA 68 2388 48 60 85 06 20 32 2390 23 60 AS 00 85 24 17 2996485 25 20 Ul FB Ae 3 FE 23 0 5 06 09 80 85 06 2 00 23A8 BD A4 24 FO OA C5 06 FO 23B0 09 E8 E8 E8 E8 DO Fl 4C 23B8 32 23 A0 03 E8 BD A4 24 23C0 F0 08 85 06 20 32 23 88 Z3C0 00 F2 60 CD CF C4 C5 A0 28D0 CC C5 C8 D4 D5 D2 C5 WO 23D8 CD CF CH C5 A0 C5 CE D2 23E0 C5 C7 C9 D3 D4 D2 C5 CD 23E8 C5 CE D4 00 CD CF C4 C5 23F0 A0 C3 CF DO C9 CS A0 C4 23F8 A C5 83 D2 C1 CE 80 Da 2400 D2 C5 CD C9 ES D2 C5 A0 2408 D0 C1 C7 C5 A0 BC D2 Ch 2410 D4 D5 D2 CE BE 00 C4 Ch 2410612 CE C9
13. 5 REM a a aaa a a aa a aa aa aaa a aa a aa aa a aa a aa aaa 2 aaa 2 aa aaa 99 REM 100 REM Programme Principal 101 REM 102 GO UB 56000 REM Initialisation 104 GOSUB 57200 GOSUB 1350 REM Etablit l ecran 110 GOSUB 11000 GCSUB 51000 REM Met le DICO 120 SU VR 130 IF NOT SU THEN 180 135 X FRE 0 140 GOSUB 31000 IF MIDS 5 1 4 DEMO THEN GOSUB 1 6000 GOTO 150 148 TE MEDS LES slo 4 150 TF MIDS ES 2 2 INIT THEN GOSUB 350 GOTO 130 z M THEN GOSUB 20000 GOTO 160 H 151 GOSUB 2000 160 IF ER lt gt 0 THEN GOSUB 10000 170 GOTO 130 180 IF MIDS 5 1 4 INIT THEN RUN 199 END 297 REM 298 REM ENTREE d une Touche au CLAVIER 299 REM 300 INVERSE PRINT NORMAL 4 KEY X PEEK 768 X5 CHRS X PRINT CHRS 8 CHRS 32 CHRS 8 RETURN 350 VTAB 2 PRINT VTAB 28 PRINT Confirmer par C a GOSUB 300 IF X C OR X c T EN SU FX RETU RN 22 355 VTAB 2 PRINT VTAB 23 CALL CW RETURN 1297 1298 1299 1300 1347 1348 1349 1350 13 57 1358 1559 1360 1997 1998 1999 2009 2011 2015 2020 2030 2031 2032 2033 2034 2035 2036 2037 2039 2040 2045 2050 2060 2065 2070 2197 2198 2199 2200 2210 2215 2220 2240 2297 2298 2299 2300 2310 2397 2398 2399 2400 2410 2497 2498 2499 2500 2310 2520 2597 2598 2599 2600 2605 2610 2620 2697 2698 2699 27
14. Ce programme peut fonctionner sous ProDOS sur l un et l autre appareil R alisation pratique Le hardware se r sume trois r sistances qui laissent l entr e logique O quivalent la e un phototransistor qui en se saturant la lumi re porte cette entr e 1 Le phototransistor dont le type n est pas critique sera install dans un tube opaque Quant aux r sistances elles trouveront leur place dans la prise reli e au connecteur poign e de jeu 67 68 L incompatibilit se faisant sentir o o R capitulation 9558 08 58 24 08 10 FC 78 A9 A ce niveau l galement lune CRA YON 9560 00 AQ 12 20 DE 95 58 60 des r sistances est ajustable car le 9568 78 A5 FE 85 19 A5 FF 85 seuil de d clenchement de l entr e Apr s avoir saisi c code sous 9570 1A AS 45 85 1B 86 1C 84 differe sensiblement selon les moniteur vous le sauvegarderez par 9578 1D A9 00 A0 12 20 DE 95 appareils Pour la r gler ex cutez BSAVE CRAYON A 94EF L 111 9580 A0 13 20 DE 95 90 06 20 le programme suivant 9588 F1 95 4C EB BF A9 00 85 94EF AD 9590 06 85 07 85 08 AC 06 A2 10 PRINT PEEK 49249 94F0 CO FB FO 4A 2C 00 CO 30 9598 E3 CA DO FD 88 DO F8 A2 20 COLO 20 94F8 38 2C 61 CO 10 F6 A9 00 95A0 1E 2C 00 CO 30 2A 2C 61 9500 85 06 85 07 2C 19 0 30 95A8 CO 30 17 CA DO F3 E6 06 R glez la pour obtenir les valeurs 9508 FB 2C 19 CO 10 FB A2 1E 95B0 AS 06 C9 18 90 E9 A9 08
15. ENVOI2 CALL LD CALL CALL CALL CALL CPL LD CALL TEF ENV BCL ADD INC GALL DJNZ LD GALL 0 IY 2 Pas fini LD A MAXTRY 210 essais max IY 1 A 15 B 1Y 1 A MAXTRY 1 B No de l essai en cours 0 IY 2 Fini P Z ENVOI2 Non sortie du Bloc IX MSG5 1 CONVERS DE MSG5 PRMSG C EOT ECRITURE VALID No essai en Ascii LD IX MSG4 1 CONVERS No essai A IY 3 No Bloc IX NUMBLOC CONVERS DE MSG4 PRMSG C SOH Header ECRITURE A IY 3 C A No Bloc ECRITURE C A 255 No Bloc ECRITURE A Init Checksum IX BUFFER B BSIZE C IX 0 Caract re A C IX ECRITURE ENV BCL C A Checksum ECRITURE Attente validation VALID LD VALIDI JR VALID2 JR LD CALL JR JP F F ve VALID3 JR LD JR VALID5 JR LD CALL JR VALID6 JR Se Se Bloc accept MAA E A A ta LD 10 T max IY 0 A CALL LECTURE NC VALID4 Oui DEC IY 0 NZ VALIDI Oui DE MSG9 PRMSG R ponse T attends encore Si pas de r ponse on renvoi le Bloc actuel DEC IY 1 Enccre un essal NZ ENVOI Oui renvoi du Bloc ABORT1 Test du code re u CP CAN NZ VALIDS DE MSG8 ABORT CP NAK NZ VALID6 DE MSG7 PRMSG VALID3 CP ACK NZ VALID2 LD DE MSG6 RET CALL PRMSG 2 BIT 0 1Y 2 Fini 2 Routine d criture du port RS232 JR NZ TERMINE J INC IY
16. v rifier le num ro de bloc Bloc attendu envoyer ACK Bloc pr c dent l metteur n a pas re u le ACK correspondant laisser passer et envoyer ACK Tout autre Bloc le transfert est perdu envoyer CAN et abandonner C est le code EOT Envoyer ACK fermer le fichier termin e Ce n est ni l un ni l autre bloc incomplet ou trou dans la transmission faire une purge de 5 secondes et envoyer NAK En lecture tout d lai de plus dune seconde entre deux caract res signifie un probl me grave de ligne m me basse vitesse 300 bauds cela fait au moins 30 caract res perdus L information sera de toutes facons d grad e la purge de 5 secondes sert laisser l metteur finir l envoi du bloc en cours Remarque une fois la transmission commenc e le r cepteur doit abandonner s il reste plus de 10 secondes sans rien recevoir l metteur faisant des renvois automatiques cela indique une ligne compl tement coup e Lorsqu on abandonne la transmission il est recommand d envoyer un ou deux codes CAN afin de lib rer ventuellement l metteur Le programme Le programme est en fait d coup en deux commandes CP M une pour l mission XMODE COM et l autre pour la r ception XMODR COM Ces deux programmes sont assez voisins assurent la gestion du fichier transmettre ou recevoir et le d roulement du protocole La carte SSC est initialis e avec 8 bits
17. IF NC O THEN PRINT BIP RETURN CHR 13 RETURN on n a pas tape CTRL H 13 THEN 31910 on a tape CTRL H NC NC 1 5 MIDS E 1 NC GOSUB 31970 RETURN REM REM Recul REM VTAB 2 PRINT VTAB 20 INT NC 80 POKE 36 N C 80 INT NC 80 PRINT CHRS 8 RET URN REM REM Recherche d un mot dans l ENTREE REM MOS gt TRAME G IF MIDS ES PR 1 THEN PR PR 1 GOTO 320 10 IF MIDS ES PR 1 OR MIDS ES PR 1 CHRS 13 THEN 32055 MOS MOS MIDS ES PR 1 PR PR LM LM 1 GOTO 32040 IF LM gt 16 THEN ER 17 RETURN IF MIDS ES PR 1 lt gt CHRS 13 THEN RETURN IF LM O THEN MOS CHRS 13 PR PR 1 RETURN REM REM Affiche le MOT REM IF MOTS CHAS 13 THEN RETURN VTAB 2 PRINT VTAB 14 POKE 36 17 PRINT LEFTS MOS gt 16 RETURN REM REM MOS est il un nombre REM ER Z FOR U TO LEN MOS X ASC MIDS MOS I U IF X lt gt 43 AND X lt gt 45 AND X lt 48 OR X gt 57 OR X 43 AND I lt gt U OR X 45 AND I lt gt U THEN ER 18 1 LEN MOS NEXT IF ER lt gt Z THEN RETURN VN VAL MOS NU 99 IF VN lt NN OR VN gt NX THEN ER 3 RETURN 32197 32198 32199 32200 32202 32202 32203 32209 32210 32212 32213 32214 32215 32220 32225 32230 32235 32236 32245 32250 39997 39998 39999 40000 40060 50004 50005 50050 50055 50897 50898 50899 51000
18. M2366 27 45 F NUMERO 27 PRIX 45 F ISSN 0294 6068 LES BEST SELLERS Systeme ProDOS sur Apple par M Cottini 328 pages 190 00 FF Programmation syst me de l Apple par M Cottini 320 pages 190 00 FF Apple Modems et serveurs par A Mariatte 224 pages 130 00 FF Clefs pour Apple 65C02 par N Br aud Pouliquen 172 pages 130 00 FF Appleworks au travail par J M Jego et A Gargadennec 192 pages 160 00 FF 50 mod les Multiplan pour g rer sur Apple et IBM PC par P Gysel 200 pages 130 00 FF Apple logique et syst mes experts par R Descamps 224 pages 120 00 FF Cr ation et animation graphique sur Apple Il par G Fouchard et J Y Corre Livre disquette 335 00 FF Super Jeux Apple par J F Sehan 256 pages 120 00 FF D SIGNATION PRIX Signature ENVOYER CE BON ACCOMPAGN DE VOTRE REGLEMENT P C V DIFFUSION BP 86 77402 Lagny Marne Cadex EN a A ES y x W CE Clefs pour Macintosh par F Blanc et P Brandeis 204 pages 150 00 FF Multiplan pour Macintosh par H Thiriez 312 pages 110 00 FF Le livre de Jazz par J C Krust et P Auchatraire 312 pages 220 00 FF Basic Microsoft 2 0 sur Macintosh par M Miller et K Knecht 380 pages 250 00 FF Mac Astuces Mac et Mac Plus Deuxi me dition par H Thiriez 288 pages 160 00 FF Des explications claires sur de no
19. PREC CLR B SP MOVE L hPrintRec A6 SP J5R PrValidate MOVE B SP Ae DO gt Affiche le dialog de la mise en page CLR B SP MOVE L hPrintRec A6 SP JSR PrStiDialo g MOVE B SP D0 BEQ e9 Marque la ressource conune modifi e MOVE L hPrintRec A6 SP _ChangedResource CLR SP _RaaRrror MOVE SP D0 BEQ q w g Sg Erreur fonction ChangedRessource disquette prot g e en crlture ou fichier proteg CMP 44 D0 BEQ 84 CMP 45 D0 BEQ 46 DO BEQ 82 r Erreur Inconnue MOVE 10 SP MOVE D0 SP JSR StopAlert BRA 89 Le volume est verrouill e2 MOVE CER JSR BRA Le fichier est 23 CLA JSR BRA 2 SP SP StopAlert 29 verroullil 3 SP SP StopAlert 29 Disquette prot g e en criture 84 MOVE CLR JSR BRA 4 SP SP StopAlert 09 Enregistre la ressource 87 MOVE L hPrintRec A6 1 SP _WriteResource CLR SP _Feskrror MOVE SP D0 BEQ e9 MOVE 5 SP MOVE D0 SF JSR StopAlert D bloque la ressource 9 MOVE C _EHEPurge 810 JSR UNI K RTS StopAlert hPrintRec A A0 PrClose A6 Affiche la StopAlert d ID 128 avec message dont 1 1D est dans la pile et No de l erreur si non nul Variables dans la pile ErrMumi EQU 8 StrID EQU 10 Varlables locales String EQU 16 StopAlert LINK A6 16 MOVE L
20. Pom s n 27 Gonnesion sommaire 404 680 Enuoyer un message un serueur l interm diaire du Minitel revlent g n ralement assez cher ceci cause du clavier pas uroiment ergonomique et des possibillt s d dition linenistantes On passe facilement dix minutes ou plus entrer un texte comme celul ci L optlon Pr paratlon Enuol du programme propos dans le num ro 27 de Pom s autorise une saisie pr alable al als e Couper Coller de tentes qui paurront tre per la sulte ou Imm diatement transmis au serveur at ceci rapidement un peu plus d une minute pour ce texle Le programme permet blen s r la sauvegarde le chargement et la modification des teules cr s partir de cette option mais aussi le chergement de textes mis en forme avec n importe quel diteur de texte Chronometre vO connexlon automatique 5 Marche Mise z ro Permet la mise en marche du chronom tre et remplie le m me r le que le bouton M A plac dans la fen tre ceci fonctionne quelle que soit la valeur courante du chronom tre Une fois s lectionn l article Marche devient logiquement Arr t et un petit voyant s affiche entre les boutons M A et O Chronom tre ZB part automatique D connexion automatique 3 Arr t Mise a zero Force z ro le chronom tre sans l arr ter Il fonctionne comme le bouton 42
21. TXD et RXD tant bien s r crois s le dialogue entre le programme metteur et le programme r cepteur autorise une automatisation compl te de la transmission Il y a envoi dun bloc de donn es contr le par le r cepteur et envoi d un accus de r ception ou au contraire d une demande de renvoi en cas d erreur En cas de non r ponse Pom s n 27 coupure de ligne momentan e ou perte du code retour il y a r mission automatique du bloc Enfin les programmes metteur et r cepteur se d connectent au bout d un temps maximum ou d un nombre donn de renvois sans succ s On peut donc lancer le transfert d un gros fichier et vaquer ses occupations en toute ser nit le programme ne plantera pas En cas d avarie le r cepteur est assur d avoir un fichier peut tre partiel mais valid et ferm correctement XMODEM transmet sur 8 bits ce qui autorise des changes de fichiers ASCII ou binaires et avec somme de contr le ce qui assure une bonne fiabilit de la transmission Enfin la mise en route de XMODEM metteur et XMODEM r cepteur est contr l e par les programmes qui doivent se rencontrer dans un d lai d une minute maximum Ceci permet des transferts t l phoniques avec un quipement rustique un simple Modem manuel est suffisant Les correspondants peuvent s appeler se mettre d accord puis chacun lance son programmme de transmission et commute son Modem sur la li
22. l aide du menu fichier et de son article Fichier Nouveau UE insegistrement Fermer Quitter Cet article affiche la c l bre fen tre de choix du nom de fichier Cette derni te se comportant d une mani re tout fait mitel amp Macintos classique ajouter quelque chose sur le sujet ne serait que g chis de papier Lorsqu un fichier est ouvert il devient impossible de changer de mode et il en sera ainsi jusqu ce que le fichier soit ferm Ah mais Fichier NOUVEAU Dunn Enregistrement Fermer Quitter L article magistralement visualis ci dessus permet de mettre en ou hors fonction l enregistrement ceci afin d viter le stockage d crans ind sirables comme par exemple les premiers crans de l annuaire lectronique Il s agit en fait de l quivalent de la touche Pause d un magn tophone Lorsque Tenregisirement est en cours l article Enregistrement appara t coch et simultan ment parfois en m me temps un voyant s affiche c t du chonom ke Fichier pt on hutt vEnregistrement Fermer Les articles du menu Mode redeviennent valides il est possible de changer de mode ou encore de d buter un nouvel entegistrement Chronom tre Aa D part automatique D conneion automatique Marche Mise z ro _ Le programme propose l utilisation optionnelle d un chronom tre dont le
23. pour l envoi d un fichier TEXT au Minitel La routine prend le caract re que le Basic a stock en 6 ventuellement le recode cas des USA dy et l envoie au Minitel En fin de routine sont install s les habituels octets de correction du bug de TON ERR Sur le c La carte s rie est r gl 4 1200 bauds parit paire 7 bits de donn es 1 bit de stop l aide de CONFIG Les trois octets n cessaires sont install s dans la m moire principale dans un trou de la m moire cran puis transf r s en m moire auxiliaire par MOVEAUX Mode d emploi L ensemble des choix dans les menus se fait par l utilisation de l une des quatre fl ches ESC signifie abandon et provoque le retour au menu pr c dent On accepte l option vis e par la fl che l int rieur d un menu avec RETURN La premi re tape indispensable consiste d finir la configuration pour indiquer les num ros de ports de la SSC reli e Minitel et de l imprimante Par d faut il est pr vu 2 et 1 Vous changerez ce choix par d faut en modifiant la ligne Basic n 20 SL est le port Minitel et SI le port Imprimante Minitel Vers Apple Enregistrement de s quences e eg e TTT LET s s as sa G em Q xu G n Gs GR m um sm m m s s un s uzi m qx sx E imi s dh ap a nab a o mn n n nd r h e MENU GENERAL MIMITEL VERS APPLE CONSULTATION CHARGER SAUVEGARDER OPTIONS EN
24. symbolisent les espaces pour simplifier la saisie G80 est un programme d entr e de caract res en 80 colonnes Il est surtout utile pour viter les inconv nients de la fonction GET en 80 colonnes sur un Apple e en particulier linterception de la touche Escape ou la confusion entre la fl che droite et le carac t re espace ces inconv nients n existent pas sur un c De plus il permet de red finir le curseur Les fichiers CARNET programme ADRESSES et INDEX fichiers de donn es cr s l initialisation T G80 et T IN sources de G80 et de IN ProCODE ou Big Mac 290 C 399 499 500 MIDS C pl L RETURN REM Recherche du code d un nom entre deux limites O DVADRESSES Q BARTS MIVOLEW BOT REM x SKI 1986 510 N 04 03 AUR T 1 TO NF 1 REM 520 J J 1 Y0 X J 0 Y1 X J 1 IF 10 ONERR GOTO 20000 Y 0 GOTO 520 20 GOTO 10000 530 IF Z0 lt Y OR Z Y AND Zl lt Yl 99 AND YO lt XO OR YO XO AND YI lt X1 100 REM Entr e d un mot THEN N N 1 N N J 101 REM 540 NEXT I 110 MA 1 GOTO 130 550 RETURN 120 MY GOTO 130 599 130 I 1 C MIDS CS 1 LM P PEEK 600 REM Codage d un nom sur 12 lettres 1403 PRINT C POKE 1405 E 601 REM
25. 00 2A 87 36 41 49 44 45 EARN 8660 OE 86 51 43 40 20 00 OF 8750 20 00 2B 87 41 51 55 49 5 FORSEN 8668 86 5A 43 21 20 00 10 86 8758 54 54 45 20 00 2C 87 4C SWAP AIDE 2670 63 Sp dm 554 20 00 11 86 8760 4D 4F 44 45 20 00 2D 87 CR QUITTE 8678 6 53 57 41 50 20 08 15 8768 55 52 41 5A 20 00 2E 87 EMIT MODE gege sssi 43 92 20 00 83 36 8770 60 42 45 4C 4C 20 00 2F RAZ 8688 79 45 4D 49 54 20 00 14 8778 87 69 4C 49 53 54 45 4D BELL Stan gs z 21 Bo Jo 15 86 Pa 8780 4F 54 53 20 00 30 87 71 a LISTEMOTS 969B8 9220100 26 86 9420 22 8788 49 4E 49 54 20 00 31 87 2 INIT 86 A0 20 00 17 86 98 3F 20 00 8790 7A 44 45 4D 4F 20 00 32 8 DEMO 86A8 18 86 9E 40 20 00 19 86 8798 87 88 44 Programme CREDEMO Fi P INT VAL NUS IF NU lt 1 OR NU gt 99 705 VTAB 6 POKE 36 0 REM www kk ki t t b t t tt t P t AAA 710 PRINT PRINT D OPENDEMOAPF L160 VT d 2 REM Creation des phrases pour la commande DEMO 720 PRINT D5 READDEMOAPF R NU 3 REM du programme APF 730 GET XS IF XS CHRS 13 THEN 740 4 REM Fej Nissuorgsky c 1985 CHANCELADE 24650 735 VT VTS XS GOTO 730 5 REM Le fichier s appelle DEMOZPF 740 PRINT DS CLOSE PRINT PRINT VTS 6 REM Ce programme s appelle CREDEMO 750 PRINT PRINT Autre taper lt RETURN gt Arret taper lt gt 9 REM ttttttttt n tt ttt t t t t k k t k k k k k k k k k k k k k k k k h hok 2 K m KEY IF PEEK 768 lt gt 13 THEN RETURN 99 REM f 7
26. 109 BO LDX E3 Attend que le sosu AA AAA 110 Bl DEX premier point i i Broche 2 45V 11 81 de l cran ii 112 DEY soit allum i broche 3 OV I 113 BNE BO ii broche 7 entr e de jeu C061 oli 10 diiz Tep emc Aen ii Sur le connecteur interne du e on y la broche 2 est la 1 116 BIT KBD TIL81 117 BMI CLAV Surveille clavier la broche 3 est la 8 i 118 BIT CRAYON et crayon la broche 7 est la 2 227 119 BMI ECLAIR AS in e EE i 1 2 0 DEX oooO o E E EE EE EE EE EE E EE EEEE EE EE BE mum CT ER 184 BNE 500 122 Programme DEMO 123 INC COMPT On compte de 0 r Gen 577570 5 PRINT CHR 4 BLOADCRAYON A38127 126 BCC SO 6 HIMEM 37888 REM ProDOS page enti re 127 5000 10 DATA INITIALISATION CREATION MODIFICA 128 LDA 8 TION ANNULATION CONSULTATION IMPRESSIO 129 LDY 12 Souris active pour N FIN DE LA DEMONSTRATION MN ROUE 11 FOR I 1 TO 7 READ M 1 NEXT 131 JEE RESTREG 55 Pe 100 HOME PRINT MENU PRINCIPAL 154 110 FOR I 1 TO 7 VTAB 2 I 4 PRINT 135 ECLAIR SPC 3 INVERSE PRINT I 136 LDX 1 20 Crayon de nouveau NORMAL PRINT M I NEXT 137 EC DEX a l ombre JA RON 138 55 120 CALL 38127 130 6 3 2 141 FIN DEC DRAP 140 IF PEEK 6 255 THEN CHOIX 142 BMI S000 7 48 143 150 IF CHOIX lt 1 OR CHOIX gt 7 THEN 120 144 CLAV BIT C020 Garde caract re 160 ON CHOIX GOTO 200 200
27. 2 MOVE 8 6 00 BEQ Q1 EXT L DO LEA 16 A6 A0 _NumToString BRA CR l Cha ne de longueur nulie MOVE B 0 16 A6 ez CLR L SP MOVE L STR SP MOVE 20 A6 SP _GetRasouzce MOVE L SP A2 MOVE L 2 _ELock Ins re le texte dans l alerte MOVE L 2 5 PEA 16 A6 CLR L sP CLR L SP ParamText Affiche la fen tre d alerte expliquant 1 annomalle CLR SP MOVE 4128 5 CLR L SP StopAlert MOVE SP DO MOVE L A2 A0 SUaLoek r Retour MOVE L SP A2 UNILK A6 MOVE L SP AO ADDO L 4 SP JMP A0 END Fichier Mep R Note le caract r e P indique la continuit de la ligne Ressources pour le programme Mise en Page Men APPLMYAP Type MYAP STR 0 Mise en Page G 2wingelstein Type BNDL 128 32 MYAP IC 0 FR 0 N 128 EF 128 Type FREF e d AP 28132 PL 0 Type ICN GNRL 128 2 00000000 051C5000 05087200 07 051c0500 9FFFFFC9 9FFFFFC6 80000008 00000000 07FFF000 7 07FFFF00 07FFFFOO FEPEEEEE 8 32 00000000 043E4800 04080100 05880D00 04080100 90000049 80000008 PFEFEFF8 00000000 07FFF800 07 07FPEFOO 07FFFF00 FFFFFFF8 FFFFFFF8 07F5C000 05084400 04880900 04880900 PFFFFFF8 90000049 80000008 80000008 7FFCO00 07FFFF0
28. 8 ou un AND 10 avec l octet de status et d examiner l indicateur de z ro Le caract re re u ou mettre est plac dans la m moire 9 qui intervient dans les transferts entre la routine machine et le programme Basic Le Minitel agent de liaison Le Minitel est un Modem bien particulier qui interpr te certaines s quences de codes pour son propre compte L ensemble de ces mots r serv s constitue le vocabulaire de la norme Vid otex T l tel d taill e dans la notice technique du Minitel ou dans quelques ouvrages disponibles en librairie Un deux trois quatre ou cinq octets servent construire GOSUB 100 ces mots Non seulement le Minitel comprend ce langage mais il y r pond parfois en met tant une s quence appropri e Les principales fonctions du lan gage sont les suivantes e modifier le mode de fonction nement du terminal vitesse d change avec le p riph rique aiguillage des diff rents modules connexion et d con nexion e modifier les caract ristiques de visualisation passage du jeu alphab tique au jeu semi graphique taille et couleur des caract res e g n rer les s quences de codes correspondant aux touches de fonction Envoi Suite Annu lation e indiquer l tat du terminal vi tesse aiguillages des modules pr sence d une porteuse e mettre en marche la proc dure de correction d erreurs REM chargement des routine s et des va
29. 9 Portrait de probl me puisqu il est enregistr chaque utilisation la ressource num ro 0 contient le Print Record qui nous int resse celui du dialogue du style Format d impression orientation etc qui lui n est pas modifi mais est utilis par l application afin de connaftre la taille d une page dans Je nouveau document O Paysage Substituer les caract res Finition Reduire Agrandir La mini application propos e ici ne fait que charger cette ressource s en servir pour afficher le dialogue du style et enfin enregistrer le r sultat modifi par les s lections dans le dialogue en rempla ant l ancienne ressource So M 9 TRAP __ShowWindow A915 _InitFonta urce ep Asm TRAP _MedalDialog A991 MOVE L 50000PFFP De TRAP ResError A9AF _FlushBvants LGL LE TRAP __HLock SA029 _InitMindows Fichier Mise en Page Asm TRAP HUnLock A02A _TnitMenus AAA A TRAP ParamText 5A98B EL RL SP Modifle la ressource contenant la TRAP StopAlert A986 _InitDialogs m se en Page par d faut TRAP Pack SA9EE TElnit Format du papier orientation _In tCursor etc Constantes RTS EOE O O okButton EQU 1 G 2wingelstein numToString EQU 0 Dialogue 19 9 86 Affiche le dialogue de Num ro Macro DialogID et retourne vrai si Bouton Ee MACRO PackCall QK Choisi faux sinon MOVE A1 sP Le Bouton OK 4 1
30. A B6 T20 1 B6 T20 B6 B6 1 IF B6 T22 1 THEN Bl 1 ERROR 240 RETURN A9 A9 720 GOTO TO S99 A B6 1 A B6 A9 1 B6 A9 B6 B6 1 IF B6 T22 1 THEN B1 1 ERR OR 240 RETURN A9 0 RETURN S98 A1 B6 A B6 4A9 1F B6 TEEN 1 B6 1 1 B6 1 A9 A9 0 RETURN e Ouverture unnouveau fichier en mode stockage TI DA 0 F FILES 0 GOSUB 53 100 IF F THEN DA 1 RETURN 101 OPEN o 3 F NAME FS AS F mt 1F B6 0 A9 0 A 0 0 RETURN e Ouverture d un fichier en mode Consultation S62 0A 0 F FILES 1 mt1F GOSUB S3 1F F THEN DA 1 RETURN OPEN I 3 F RETURN On arrive ici en cas d v nemeris de type Dialog S5 GOSUB S18 0N GOSUB T2 T3 T4 T5 GOSUB S19 RETURN e Dialog en mode Stockage T2 B8 DIALOG 0 IF B8 5 THEN GOSUB 592 RETURN e Dialog en mode Consultation T3 B8 DIALOG 0 IF B8 5 TEEN GOSUB S93 RETURN IF B8 1 TEEN GOSUB S 7 RETURN IF B8 6 THEN IF B7 lt B9 THEN BUTTON 4 2 C1 4 GOSUB S70 RETURN e Dialog en mode Copie d cran T4 C2 DIALOG 0 IF C2 5 THEN GOSUB 583 IF C2 lt gt 1 THEN RETURN IF DIALOG 1 1 THEN IF B3 THEN BUT TON 1 1 B3 0 ELSE BUTTON 1 2 B3 1 A1 0 CB INPUT LOC 2 2 Pom s n 27 RETURN Dialog en mode Pr paration Envoi T5 B8xDIALOG 0 IF B8 5 THEN GOSUB 584 RETURN IF B8 1 THEN GOSUB S86 RETURN Mise jour mode Stockage S92 GOSUB S65 C3 1 IP A5 AND DT T HEN GOSUB S22 E
31. DS MULU 54 D5 BSR 54 BSR S2 MOVEQ 1 D0 1 DBRA 00 21 BSR s2 BSR 53 BRA Fin El LINK A6 0 MOVEA L 8 A6 A2 PEA ES _GatHousa MOVEO 98 D3 MOVEQ 0 D4 MOVEQ 0 D5 2 CLR A7 LEA E5 A3 MOVE L A3 SP PEA 2 A2 D5 _PtInRect TST A7 BNE E2 ADDI 454 05 ADDO 1 D4 DBRA D3 42 LEA E4 A1 LEA 5 sF 5 A3 MOVE L 15F0098 A1 MOVE L 152600A7 4 A1 BSR 55 BNE S 83 LEA 4 1 MOVE 4178 2 1 MOVE 192 6 Al BSR s5 BEQ S 210 ST S A3 BSR S6 ST 4 A3 GA CLR A7 8t2112Down TST A BEQ 86 PEA ES _GetMousa BSR ss 5 45 TST B 4 A3 BNE S RA BRA S 63 a5 TST B BEQ S RA BSR S6 SF 4 A3 BRA S 4 6 TST B 4 A3 BNE S RI BRA S 610 87 TST B 5 A3 49 810 Fin E2 82 63 94 85 66 52 53 s4 55 56 4 5 BEQ S 49 MOVE 11 BSR 56 BRA S F n MOVE 10 A3 BRA S 68 MOVE SFFFF UNLK A5 RTS BSR 54 BSR S S2 ST 4 A3 CLR A7 _8t1llDoun TST A7 BEQ S 45 ES GetMouse CLR A7 LEA E5 Al MOVE L A1l SP PEA 2 A2 D5 Ww _PtInRact TST A7 BEQ S 04 TST B 4 A3 BNE S 3 BRA S 2 TST B 4 A3 BEQ S 3 BSR S s2 SF 4 A3 BRA S e3 TST B 4 A3 BNE S es BSR S s3 BRA S Non BSR S S2 MOVE D4 A3 BSR S s3 BRA S Fin MOVE L A4 SP _InvertPoly PEA E 4 _InvertOval RTS MOVEA L 4 _DisposEandie RTS MOVEQ 54 D0
32. E X GOTO 16040 21055 IF NU 30 THEN ER 24 RETURN 16050 VTAB 2 PRINT PRINT DS CLOSE IF E FIN OR E 21060 IF NU 32 THEN ER 11 RETURN S SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 21065 IF NU 34 THEN ER 8 RETURN SS SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 21070 IF NU 35 THEN ER 9 RETURN SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSsSSSSSSSssssssssssss 21075 IF NU 37 THEN ER 12 RETURN SSSSSSSS THEN ER 36 RETURN 21080 ER 25 RETURN 16060 NC LEN ES 21100 IF FC 31 THEN GOSUB 21150 RETURN 16070 MIDS ES NC 1 f THEN NC NC 1 GOTO 160 21101 GOSUB 21200 RETURN 70 21150 IF NU 31 OR NU gt 32 AND NU lt 39 THEN ER 26 R 16080 ES MIDS E 1 NC CHR 13 LEN ES ETURN 16090 VTAB 2 PRINT VTAB 19 CALL CW PRINT EM PRINT 21151 IF NU 32 THEN FC Z ES RETURN 21152 RETURN 19997 REM 21200 IF NU 30 THEN ER 24 RETURN 19998 REM COMPILATION ARA 21205 IF FC 33 THEN GOSUB 21250 RETURN 19999 REM 21210 GOSUB 21300 RETURN 20000 SGOSUB 15900 GOSUB 15920 0 4 GOSUB 15000 GOSUB 21250 IF NU 34 THEN FC Z RETURN 20900 CP VR PR 3 FC Z 21251 IF NU 35 THEN FC 35 RETURN EE Poms n 27 25 21252 21300 21301 21350 21351 21400 21401 21450 21451 21500 21505 21510 30997 30998 30999 31000 31010 34015 31020 31025 31030 31040 31041 31050 31060 31061 31897 31898 31899 31900 31906 31907 31910
33. FOR I 0 TO 3 READ G 1 N 1 0 1 P 1 Q I R I S 1 Y 1 NEXT FOR I 0 TO 96 READ A I NEXT FOR I 0 TO 225 READ B 1 NEXT FOR 1 0 TO 63 READ T I NEXT FOR 1 0 TO 7 READ C I NEXT FOR 1 0 TO 23 R BAD U I NEXT FOR I 0 TO 18 READ W 1 NEXT FOR 1 0 TO 4 RERD 5 1 0 5 1 1 XEXT Al 0 Al1eVARPTR C 0 A1 Al 3 A2S CHRS 27 CER 57 CHR 103 A6 CHBR 27 CER 57 CER 104 A2 0 H CEHR 13 FOR 1 0 TO 4 READ CS MENU 1 1 I lt gt 1 2 CS NEXT FOR 1 0 TO 5 READ C S MENU 3 1 1 AND I lt 5 1 CS NE XT POR I 0 TO 4 READ CS MENU 4 1 1 C NEXT FOR 1 0 TO 4 READ CS MENU 5 1 I gt 2 1 CS NEXT FOR 1 0 TO 1 READ CS MENU 6 1 1 C NEXT FOR 1 0 TO 3 READ CR 2 1 NEXT FOR I 0 TO 4 FOR J 0 TO 4 READ 22 1 J NEXT NEXT CHAIN Minitel 2 ALL Programme Minitel Seconde partie doit tre baptis e Minitel 2 e Adresses en cas d interruptions par les V NEMENS DEFINT A Z GOSUB T14i GOSUB T140 G OSUB S4 0N GRRAK GOSUB S1 BREAK ON ON ERROR GOTO S0 0N DIALOG GO SUB S5 0N MENU GOSUB S17 0N MOUS E GOSUB S20 0N TIMER 1 GOSUB S2 2 GOSUB S19 INITCURSOR e Boucle principale 10 N A3 GOTO 11 10 13 10 GOTO 10 11 IF A4 THEN IF A5 gt A6 TEEN GOSUE S18 GOSUB S55 GOSUB MA GOSUB S5 3 GOSUB S19 C INKEY IF C c THEN 20 12 A3 1 THEN A8 LOC 2 IF DE TE EN IF A8 THEN PRINT 3 INPUT A98 2 A9 A9 AB 1IF THEN IF E TH EN GOSUB S18 E7 0 DT 0 GOSUB 567 GOSUB S68 GOSUB MA G
34. JT 1 799 250 PRINT K GOTO 140 999 260 L DEN C Z 0 OTO 290 1000 REM Insertion d une fiche 270 BOR I D TQ 1 SEE 1 IF MIDS fC 1000 EE WAT lt m ROEN L I I 1 1010 NOS WE DRYS An w FF 280 NEXT I E Unu UE Pom s n 27 13 1020 ho 1030 1040 1050 1060 1070 1080 1090 1100 1 101 L1H0 darc n 1180 1140 1150 1160 1170 1180 1790 1200 1201 1210 1220 1230 1240 1250 1260 1270 1280 1290 1300 1310 1320 1500 1501 1510 1520 1500 1540 Tosu 1560 1570 1580 14 REM Recherche point d insertion REM IF PF MF 1 GOTO 1070 FOR 8 PF TO MF IF X 1 0 0 THEN PF I GOTO 1080 NEXT I PF MF l PRINT PRINT BLS Attention le fich ler est plein vous ne pouvez plus in s rer de fiche GET K RETURN FF PF P PEEK 37 T Nombre de fiche s 1 REM Entr e d une fiche REM KK Te GOTOLLI 70 F K 14 GOTO 4450 IF KK lt gt 1 AND KK lt gt 4 THEN PRI NT VTAB 3 HTAB 26 PRIN NE VTAB P KK KK 1 GOTO 1170 KK KK 1 IF KK THEN KK 1 P RINT BUS IF KK lt gt 1 AND KK lt gt 4 THEN PRI NT VIS HTAB 2 PRINT BSS ON KK GOT TEEN 1550 42560 1570 1580 PRINT TM VT REM Enregistrement d une fiche REM PRINT DS OPEN INDEX L20 PRINT DS OPEN ADRESSES L256 PRINT DS WRITE INDEX R FF PRINT X0 PRINT X1 IF
35. NT CHAQUE COPIE PRINT lt ESC gt POUR FIN IR GOSUB 7000 CALL AD SL CE PRINT D PR 0 IF PEE K 9729 gt 255 THEN Al 1 GOSUB 41 00 DR 1 DK 1 FS 1 GOTO 355 DR 0 GOTO 100 C onsulter une copie d cran ON Al lt gt DK GOTO 4200 FOR I O TO 3 M I M5 I NEXT CH A3 TT M I fi 256 1 GOSUB 1100 A3 CA ON CH lt 2 AND SI 6 GOTO 4300 ON A3 1 GOTO 750 750 750 150 600 FOR I O TO 6 M I M4 I NEXT C H SL 1 TT M1 4 M3S A 2 GOSUB 1400 IF CH 6 THEN SL CH 1 610 A2 2 GOTO 200 700 FOR I TO 6 M45 T NEXT C H Sr L TTS MIS 4 MS A 2 GOSUB 1100 FF CH 6 TREN 51 CH T 710 A2 2 GOTO 200 750 ON A3 1 GOTO 775 775 760 760 HOME UTAB 8 PRINT NF TEXT RECEPT EUR OU CHR 34 2 CHR 34 GOSUB 4000 IF NM THEN 550 770 IF CT THEN CT 0 GOTO 760 775 HOME PRINT PRINT TRANSFERT EN COU RS 12 PRINT z PRINT lt ESC gt POUR d INT ERROMPRE IF A3 gt 2 THEN 795 780 PRINT D OPEN NM PRINT DiS WRITE NMS GOTO 800 795 PRINT D PR SI IF O THEN PRINT CHR 27 CHR 69 CHR 14 800 AC 9729 810 820 822 825 830 900 910 1000 1010 1020 1030 1040 1050 1060 1070 1080 1090 1100 1105 OC PEEK AC IF OC 255 THEN 900 IF OC 254 THEN PRINT PRINT FOR T O TO 39 PRINT 7 NEXT PRINT PRIN
36. O S particulier le 65BIOS qui est en gros une boucle d attente avec gestion des entr es sorties de TApple d un buffer de clavier et dun buffer d imprimante L auteur a r alis une modifi cation de ce 65BIOS qui permet de g rer quatre buffers clavier imprimante r ception RS232 et mission Ce programme peut utiliser une ou deux cartes SSC par exemple une r ception 1200 bauds et une mission 75 bauds valeurs au hasard Ceci permet de cr er des applications de transmissions tr s efficaces La gestion de la transmission des donn es tant assur e par le 6502 en temps r el on peut utiliser le Z80 pour faire tourner le programmme principal sans imp ratifs de rapidit 20Ko de buffer r ception s rie ce qui autorise l utilisation de langages volu s Turbo Pascal Forth Basic A titre indicatif un mulateur de terminal Minitel compil en Forth occupe moins de 4Ko de m moire et avec une facilit de mise au point et de modifications tr s sup rieure Les CP Mistes t l maniaques int ress s peuvent me contacter par l interm diaire de la revue IY 5 BIT c 9 Z BDOS DE DE MSG4 0 IY 5 PRMSGI DE LD c 3 BDOS 0 IY 5 Affiche le caract re dans E LD 6 2 BDOS BOOT EQU 0 BDOS EQU 5 PRCAR FCB EQU SCH JP BUFFER EQU 80H j Messages du programme JP START P H MSG0 DB 7 Routines CP M ASC F ASC Affiche le message point par DE
37. PE FCGA C5 23 CMP 23 FF FC6C 90 B6 BCC FC24 4A FF FCSE C6 25 DEC 25 FF FC70 A 06 LDY 06 FF FC72 80 B5 BRA FC29 4B L exploration de cette ROM de 328K o laisse para tre un tableau de bord qui fait penser au Macintosh Cette visite nous conduira galement une table de sauts dans la page E qui rappelle aussi le sus cit Ouvert ferm Le tableau de bord en plusieurs menus et Pergonomie agr able donne la possibilit de r gler le niveau sonore la fr quence du Bip la couleur du fond celle des caract res celle de la marge de l cran la nationalit des caract res affich s pourquoi les Danois perdraient ils leur celle du clavier Bien s r il donne galement acc s l horloge mais il s duit surtout par la gestion de l affectation des slots Par d f aut nous trouvons dans ceux ci connect s soft les interfaces int gr es Suivantes SLOT 1 Imprimante SLOT 2 Communication SLOT 3 80 colonnes SLOT 4 Souris SLOT 5 Smart slot SLOT 6 Lecteur de disquettes SLOT 7 Libre 66 Ceci sans carte dans l appareil Notons que le slot 7 peut tre affect l interface AppleTalk int gr e Dans ce cas l interface communication est indisponible Pour chacun des ports il est possible d imposer 4 la machine l utilisation de l interface connect e physiquement Nul besoin de modem Mettre en port 2 la carte Z80 l indiquer par ce tableau de bord et le CP M est access
38. Pour passer la rubrique suivante utilisez _i ou L Pour revenir la rubrique ou champ pr c dent utilisez T Dans un m me champ vous pouvez vous d placer l aide des touches lt et Pour effacer le caract re quc vous venez de taper utilisez la touche Delete Quand le dernier champ est compl t la fiche est enregistr e sur le disque Si vous voulez retourner au menu principal sans enregistrer la fiche pressez la touche Escape Sinon compl tez l enregistrement puis pressez ou Escape Recherche d un nom Vous pouvez entrer soit le nom en entier soit le nom abr g suivi par un point Dans le premier cas le programme affichera toutes les fiches portant le m me nom dans le deuxi me cas toutes celles commen ant par le nom abr g quelle que soit la longueur de ces noms La recherche se fait dans un tableau en m moire vive elle est donc relativement rapide Quand 11 12 les num ros des fiches recher ch es sont trouv s le programme lit leurs diff rents champs sur le disque La clef utilis e est de 12 lettres au del les noms sont consid r s comme identiques Quand vous avez trouv la fiche vous pouvez l imprimer Modification d une fiche La recherche de la fiche se fait de la m me fa on que ci dessus mais vous avez ensuite acc s aux diff rents champs de la fiche afin de les modifier Les possiblit s sont les m mes que pour l enre gistr
39. SSAPF R NU 170 PRINT CHR 34 M 180 RETURN 1000 REM On a tape CTRL H 1010 M MIDS M 1 LEN M 1 PRINT VTAB PEEK 37 POKE 36 29 LEN M CALL 868 RETURN 2000 HOME PRINT VOIR un message PRINT INPUT Numer O NUS NU INT VAL NUS IF NU lt 1 OR NU gt 9 9 THEN 2000 2010 PRINT D OPEN MESSAPF L39 PRINT D READ MESSAPF R NU INPUT M PRINT D CLOSE 2020 PRINT PRINT M PRINT PRINT Taper une Touche GET X PRINT X RETURN 3000 REM Liste IMPRIMEE des MESSAGES 3010 HOME PRINT ASSUREZ VOUS QUE L IMPRIMANTE EST ERAN CHEE 1111 PRINT PRINT VOUS ALLEZ LISTER SUR L I MPRIMANTE LES MESSAGES 3020 GOSUB 3500 3030 NM 35 D CHR 4 PRINT DS PR 1 PRINT Liste des Messages d Erreur du progranme L APPRENTI FORTHle r PRINT PRINT PRINT 3035 PRINT D OPEN MESSAPF L39 3040 FOR I 1 TO 35 PRINT D READ MESSAPF R I INPUT M gt BRINT RIGHRS m 5 1 2 M5 NEXT 3050 PRINT D CLOSE PRINT DS PR 0 END 3500 REM ABANDON 3510 PRINT PRINT POUR ABANDONNER TAPER A SINON lt RETU RN gt GET X IF X a OR X A THEN END 3520 IF X lt gt CHR 13 THEN 3510 3530 PRINT X RETURN 5000 REM Creation du Fichier MESSAPF la lere fois 5005 HOME PRINT CREATION du FICHIER MESSAPF la lere fo is GOSUB 3500 5010 DS CHRS 4 M FOR I 1 TO 38 M M Sin NEXT PRINT D OPEN MESSAPF L39 5020 FOR I 1
40. gt 11 THEN ER 21 RETURN 3500 PD 2 GOSUB 15210 IF ER lt gt Z THEN RETURN 5310 IF MID E PR U CHR 34 OR PR gt NC THEN 5 3510 IF 8 8 U lt 8 8 THEN 1 GOTO 3820 330 3520 TP Z GOTO 3820 5315 PM PM U PM8 PM8 ASC MIDS E PR U GOSU 3599 REM Sr e qee B 5000 IF ER lt gt 2 THEN RETURN 3600 PD 2 GOSUB 15210 IF ER lt gt Z THEN RETURN 5320 PR PR U GOTO 5310 3610 IF PM PM U PM PM3 THEN TP 1 GOTO 3820 5330 IF MIDS ES PR U gt CHRS 34 THEN ER 31 RET 3620 TP Z GOTO 3820 URN 3699 REM seen gt Xxx 5340 PR PR U RETURN 3700 PD 2 GOSUB 15210 IF ER lt gt Z THEN RETURN 5399 REM ib d 3710 IF PM PM U gt PM PM THEN TP 1 GOTO 3820 5400 PD U GOSUB 15210 IF ER lt gt Z THEN RETURN 3220 EP 2 GOTO 3820 5410 COSUB 5510 COTO 5210 3799 REM E e A 5499 REM AROBAS FETCH 444 3800 PD 2 GOSUB 15210 IF ER lt gt Z THEN RETURN 5500 PD U GOSUB 15210 IF ER lt gt Z TBEN RETURN 3810 IF PM PM U lt gt 8 8 THEN 1 GOTO 3 5510 T9 PEEK PM PM PEEK PM PM 1 256 820 5520 IF T9 gt NX THEN T9 T9 65536 3815 TP Z 5530 PM PM8 T9 RETURN 3820 PM PM U PM PM3 TP RETURN 5599 REM t KEY did 3899 REM ER NB 5600 GOSUB 15200 IF ER lt gt Z THEN RETURN 3900 PD 2 GOSUB 15210 IF ER gt Z THEN RETURN 5605 VTAB 2 PRINT VTAB 4 EL
41. gt Z THEN 2730 4120 PM PM Z RETURN 2753 PR PR PT 12 GOTO 2730 4199 REM EEEE o 3760 IF PEEK PT 128 THEN N NU NU PEEK PP 1 4200 PD U GOSUB 15210 IF ER lt gt Z THEN RETURN GOSUB 2820 NU N GOTO 2730 4210 GOSUB 15200 IF ER lt gt Z THEN RETURN 2770 IF PEEK PT 129 THEN GOSUB 2950 4220 PM PM 8 8 U RETURN 2800 GOTO 2730 4299 REM DROP 2820 IF NU gt 99 OR NU 23 THEN 2825 4300 PD U GOSUB 15210 IF ER lt gt Z THEN RETURN 2821 GOSUB 2210 IF ER lt gt Z THEN RETURN 4310 PM PM U RETURN 2822 PT PT 2 GOSUB 15220 IF ER Z THEN PR PR PT 4399 REM ARRE OVER PRSA RETURN 4400 PD 2 GOSUB 15210 IF ER lt gt Z THEN RETURN 2825 IF ER lt gt Z THEN RETURN 4410 GOSUB 15200 IF ER lt gt Z THEN RETURN 2830 IF NU 23 THEN 2900 4420 8 8 8 8 2 RETURN 2835 GOSUB 15220 IF ER lt gt Z THEN RETURN 4499 REM Ca f 2840 PR PR PT 2 4500 PD U GOSUB 15210 IF ER lt gt Z THEN RETURN 2845 GOSUB 9000 REM cherche l adresse du mot cree NU 4510 8 8 PEEK PM PM RETURN 2850 GOSUB 15220 IF ER lt gt Z THEN RETURN 4599 REM TERE CH 4228 2855 PR PR AD RETURN 4600 PB 2 GOSUB 15210 IF ER lt gt Z TREN RETURN 2900 TP PEEK PT 2 GOSUB 15200 IF ER lt gt Z THEN 4610 IF PM PM U lt Z OR PM PM U gt 255 THEN ER RETURN 30 RETURN 2905 IF TP lt gt Z TH
42. isk Manager le Dos en Kit de Dan Steerey pour le classement de tous vos programmes tri instantan Z Z Z Z Z Z Z Z Z Z Z SE Z Z AT Z Z Z Z ES Z Z DTA d Z Z si d ETE f Z Z f Zf Z Z O O f Z Z Pom s n 25 Un Carnet d Adresses Boris Fivolewski ans remplacer les carnets d adresses traditionnels ni avoir la pr tention d galer gestion de fiches une sophistiqu e ou un logiciel de communication ce programme offre des possibilit s 1n t ressantes du moins nous l esp rons comme la composi tion automatique d un num ro de t l phone Et surtout 1l est crit essentiellement en Basic vous pourrez donc le modifier facile ment en fonction de vos besoins Mode d emploi La gestion du fichier d adresses est volontairement simplifi e pour permettre une utilisation du programme aussi bien en DOS 3 3 ou en ProDOS Vous devez avoir sur la m me disquette le programme CARNET et les deux fichiers ADRESSES et INDEX S il n y a pas de fichier INDEX sur la disquette un nouveau carnet est cr au d marrage Vous ne devez pas par la suite retirer la disquette du lecteur les donn es tant lues au fur et mesure en fonction des commandes ce qui permet d avoir des fichiers tr s importants avec un unidisk par exemple qui ne pourraient tenir enti rement en m moire vive Sur une disquette 5 1 4 la limite est d environ 400 fiches mais avec d autres Supports vous
43. list P FF 19F0 BD A0 D FS F2 E7 ER A0 Purge FF 19F8 EC E9 F3 F4 A0 A0 C6 BD list F FF 1A00 A0 C6 F2 ES E5 A0 EC E9 Free li FF 1A08 F3 F4 AO A0 D BD A0 Di st 0 FF 1A10 F5 E9 F4 3B 8D 8D A0 uit FF 1A18 A0 A0 A0 C8 El EE E4 EC FF 1A20 ES A0 AO 1 E4 E4 F2 A0 e Addr FF 1A28 A0 Ci F4 F4 F2 A0 AO C9 Attr I FF 1A30 C4 A0 AO A0 AO D3 E FA D siz FF 1A38 E5 AZ A0 A0 A0 D F2 E5 e Pre FF 1A40 F6 A0 A0 A0 CE E5 F8 F4 v Next FF 1A48 A0 A0 A0 C6 F2 E5 ES 35 Freen A gauche le num ro de la page sous la forme nn on devine rapidementqu il y a 256 pages mais qui n existent videmment qu en fonction de la RAM disponible A droite un quivalent en ASCII pratique Surprise on est gratifi du bip m rit par FBEAG et FC58G efface l cran comme pr vu mais le listing Pom s n 27 donne ceci 00 FC58 00 00 BRK 00 00 FC5A 00 00 BRK 00 00 FC5C 00 00 BRK 00 00 FC5E 00 00 BRK 00 00 FC60 00 00 BRK 00 00 FC62 00 00 BRK 00 00 FC64 00 00 BRK 00 00 FC66 00 00 BRK 00 00 FC68 00 00 BRK 00 00 FC6A 00 00 BRK 00 00 FC6C 00 00 BRK 00 00 FC6E 00 00 BRK 00 Ceci parcequ au dessus de BFFF en mode mulation le saut se fait dans la page FF l od se trouve la ROM FF FC58 A0 05 LDY 05 FF FC5A 80 CD BRA FC29 f 33 FF EC C EB XBA FF FC5D 4C EB FC JMP FCEB FF FC60 00 00 BRK 00 FF FC62 A9 00 LDA 00 FF FC64 85 24 STA 24 FF FC66 E6 25 INC 25 FF FC68 AS 25 LDA 25
44. maximum un des codes suivants CAN abandonner ATK correct passer au Bloc suivant NAK refus renvoyer le m me bloc Au bout de 10 secondes sans une de ces trois r ponses renvoyer le m me bloc Un Bloc mauvais n est r mis que dix fois au maximum apr s on abandonne de la transmission 3 Fin du fichier Le demier Bloc doit comporter des Ctrl Z de remplissage Si ce n tait pas le cas fichier de donn es multiple exact de 128 il faut renvoyer un Bloc complet de Ctrl Z Apr s envoi du dernier Bloc l metteur envoie le code EOT avec la m me proc dure que pour les envois de Blocs 10 essais maxi 10 secondes maxi pour recevoir CAN ACK ou NAK D roulement de la transmission c t r cepteur 1 Attendre quelque chose en provenance de l metteur en envoyant NAK toutes les dix secondes ceci pendant une minute maximum Help Vous avez la disquette d accompgnement Utilisez un programme du type Universal File Conversion pour transf rer les fichier sur votre disquette CPIM puis tapez selon le cas XMODR ou XMODE Vous n avez pas la disquette d accompgnement Saisissez les codes objet l aide de DDT puis sauvegardez par SAVE 6 XMODR COM et SAVE 5 XMODE COM Enfin ex cutez l une ou l autre des Ccorrunandes 2 R ception de quelque chose e C est un bloc de 132 octets V rifier l en t te SOH et le Checksum En cas d erreur envoyer NAK Si c est correct
45. plac c t dans la fen tre Liaison Connexion D connexion 1200 bauds 4800 bauds Le premier article du menu Liaison est utilis pour connect le Minitel au r seau apr s avoir fait le 11 le 36 15 etc Liaison Connexion D connexion 1200 bauds 4800 baud C est le contraire c est dire la d connexion compl te du r seau Attention le bouton Connexion Fin situ dans la fen tre n a pas la m me Pom s n 27 45 fonction gue les articles du menu Liarson il sera utilis pour passer par exemple du niveau serveur au niveau T l tel Pour conclure le mode d emploi du mode Stockage 11 convient de signaler qu un bip juste apr s une commande signifie qu elle n a pu tre prise en compte la demande doit tre r it r e Consultation Copie d cran Pr paration envoi Le mode consultation est employ pour renvoyer sur le Minitel les informations accumul es partir du mode Stockage La fen tre contient les boutons de commande ainsi qu une indication sur le nombre de pages dans le document actuellement ouvert et le num ro de la page courante x gt e e gt gt 17 18pages ARPA EE AA PEAT Fichier Quvrir Enregistrernen Fermer Quitter Macintosh 126 ou 512 Macintesh Plus Minttei C blage Minitel Macintosh Minite Permet d ouvrir un fichie
46. tre le premier Include Pr Qu Txt 12 dans la d finition du dialoque TRAP ces ak ENDM Il doit y avoir un Userltem en 3i me nitGra A86E Ren TRAP _Initfonta SASFE PARU 1 ag son TRAP Fl ek _PackCall NumToString _Pack 57 he ENDM variables dans la p le TRAP Inlt Windows 5 912 EQU 2 TRAP _InitMenva A930 ENEE _ E ET TRAP _InitDialogs A978 77 57 Trenka TRAP TE tnit SA9CC tart Variables locales TRAP InitCursor SA850 BSA nitHanagera DlalogPtr 200 4 TRAP 5 GetResource 5 CLR B Ge Type EQU 6 TRAP HNoPurge SA04A d P It em EQU 10 TRAP ChangedResource SA9AA 7 sa En box EQU 18 TRAP _WriteResource SA9B0 Ge 81 TRAP HPurge A049 e Dialog TRAP GetNewDialog A97C SCH GaBpe tank LINK A6 4 16 TRAP _DisposDialog SA983 l CLR L 5 TRAP _GetDitem SA980 1 A MOVE 8B A6 SP TRAP setDItem SA98E Init alise les Managers CLR L P TRAP PenSize A898 InitManagers MOVE L 4 1 5 TRAP InsetRect SABA9 PEA 4 AS _GetNewDialog TRAP FrameRoundRect 5 _ nitGraf MOVE L SP 4 A6 r o 40 Pom s n 27 Initialise ProcPtr du Vserltem vers Proc dure qui entoure le bouton r d faut MOVE L 4 A6 SP MOVE 3 SP PEA 6 A6 PEA 10 A6 PEA 18 A6 _GetDItem MOVE L 4 A6 SP MOVE 3 5P MOVE 6 A6 SP PEA OutLineButton PEA 18 A6 _3etDitem ModalLoop attend une
47. vocabulaire de dBase auquel ils sont d j familiaris s Ce programme donnera 4 ceux qui ne connaissent pas encore le manque de convivialit caract ris de IBM PC et de dBase par rapport ses concurrents sur Mac une assez bonne compr hension par comparaison de la grande convivialit du Mac La documentation est enti rement francis e mais le lravail a t fait un peu vite ce qui donne parfois jusqu 10 fautes par page entre le francais l orthographe et la ponctuation Pourquoi donc les diteurs et importateurs francais ont ils tant tendance sous estimer l importance d une documentation bien finie La premi re cons quence que l on peut en Urer d un essai de dMac est que ce produit vu son ambition de ressembler 4 dBase ne peut exploiter pleinement le graphisme souris du Mac Deuxi mement il est de notre devoir de souligner que la compatibilit avec dBase III n est en aucun cas totale les caract res graphiques de ITBM PC ainsi que les caract res accentu s ne se r cup rent pas tels quels Les fichiers m mo ne sont pas r cup rables non plus Ajoutons que PC Diffusion International a l honn tet d avertir l utilisateur de ces limitations et promet de r soudre ces probl mes Enfin la d finition de la structure d un fichier est celle de dBase IF en non pas celle de dBase 11 En conclusion d une analyse rapide disons que l utilisateur de dBase ne sera pas d pays contraire
48. 0260 62 6F 72 74 65 64 0D 24 ES ES ES ES 80 00 03E0 3E 83 B8 20 07 1B 1A FE 04 CA 85 04 06 05 CD F8 0270 B7 11 10 01 CA 06 01 11 21 l CD 06 01 E OF 11 03F0 04 11 66 02 C3 6C 04 12 13 10 EO 11 EO 01 CD 06 0280 5C 00 CD 05 00 3C 11 9A 01 CA SE 03 CD A7 03 FD 0400 01 DD 21 D4 02 11 FE 01 3E 01 DD BE 00 20 5D DD 0290 21 69 02 AF ED 77 02 3C ED 77 03 3E 3C ED 77 00 0410 ZE 02 2F DD BE 01 20 54 FD BE 04 28 35 11 2C 02 02A0 11 AC 01 CD 06 01 CD BA 03 30 0B FD 35 00 20 F6 0420 FD BE 03 20 4B AF DD 21 D7 02 06 80 DD 86 00 DD 02B0 11 2B 02 C3 9E 03 11 F 02 FE 18 CA SE 03 FE 15 0430 23 10 ER 11 14 02 DD BE 00 20 31 OE 15 11 SC 00 02C0 20 E9 OE 14 11 5C 00 CD 05 00 B7 28 20 FD CB 02 0440 CD 05 00 B7 11 52 02 20 27 FD 7E 03 FD 77 04 FD 02D0 C6 DD 21 FF 00 3E 1A DD BE 00 28 11 DD 21 80 00 0450 34 03 DD 21 FO 01 CD 14 05 11 F0 01 3E 06 FD 77 02E0 06 80 DD 77 00 DD 23 10 F9FD CB 02 86 3E 0A FD 0460 06 SE 01 FD 77 01 CD 06 01 C3 B6 03 3E 15 18 EE 02F0 77 01 FD 46 01 3E 0B FD CB 02 46 28 14 DD 21 0470 CD 06 01 18 CD EE 04 06 03 CD F 04 CD EE 04 0300 El 01 CD 15 04 11 E2 01 CD 06 01 0E 04 CD EF 03 0480 11 B4 02 18 0E 11 85 02 CD 06 01 0 06 CD EE 04 0310 18 3E DD 21 C6 01 CD 15 04 FD 7E 03 DD 21 D8 01 0490 11 95 02 CD 06 01 OE 10 11 SC 00 C0 05 Fb 80 0320 CD 15 04 11 C7 01 CD 06 01 OE 01 CD EF 03 FD 7E 04A0 00 OE 1A C3 05 00 3A AB EO E6 OF Ft 10 32 AB EQ 0330 03 dF CD EF 03 2F dF CD EF 03 AF DD 21 80 00 06 04B0 3E 09 32 AA EO 3A A8 E0 C9 21 A9 E0 CB SE 20 2
49. 1 1 contenal C 1 B5 1 1 plus de 2000 car acteres PRINT CB MOVETO 48 26 CB elle CS 2 BS 1 1 C 3 BS 1 1 d tre scind e C5 4 B5 1 1 PRINT CBS GOSUB 510 RESUME 110 S16 A VARPTR 9 0 A IC VARPTR X 0 RETURN S1 0 WBAILE MOUSE 0 NEND VB LE MOOS E 0 0 NEND WINDOW CLOSE 2 IF ER R 241 TEEN RETURN GOSUB S91 RETURN S91 0N GOSUB S92 S93 S83 S84 RE TURN S1 RE TURN e Curseur en forme demontre S3 A VARPTR 2 0 A 4 RETURN e Chicago 12 points S61 TEXTPONT 0 TRXTMODE 1 TEXTSIZE 1 2 RETURN e Ouverturede l interface COM enerir e T14i OPEN COM1 3V 4 00 E 7 1 FO R INPUT AS 2 LEN 1000 RETURN Ouverture de l interface COM en sortie T140 0PEN COMl 3V 9 00 E 7 1 FO R OUTPUT AS 1 RETURN Zone d dition pour le mode Pr pa ation Envoi T30 2D17 FIELD 1 CBS 4 46 387 2 69 RETURN SPE LINE 3 4 387 18 30 BF LINE 166 25 224 39 30 BF RETURN T98 FOR J 0 TO 4 MENU 3 1 22 NEXT RETURN Source Clic Asm u o i usss Routine utilis e en cas de clic z dans la fer ire en mode stockage La routlre d tecte une action su r des boutons et opere en cons quence Trap _GetMouse 5A972 Trap PtinRect SABAD Trap Nevkandle 5 122 Trap InvertPoly SA8C9 Trap StlilDewn 5A973 Trap InvertOval SA8BA Trap DisposHandle A023 Trap InvertRect 5A8A4 LINK A6 0 MOVEA L 8 A6 A2 MOVE 12 A6
50. 15 STRS PUL 1 26 STRS PDL 55 STR PDL 3 A M CARS 31 JA DHS VTS SOS S1 525 RCS RC M3 S 1 POS RCS RCS M3S Bu EDS ROM RCS MIS 3 E2S RCS RCS 4 m E3 GOSUB 800 A RCS RCS M4S GOSUB 800 CALL ENTRE X PEEK 9 48 TF X lt 1 X gt 3 THEN 1380 PRINT PEEK 49241 X A RCS RCS VIS RIPOSTE STR X ACTIONNEE GOSUB 800 END DATA 3541 REM MONSIEUR X DATA 35654321 REM MONSIEUR Y DATA FIN Source T ALARME NB revue est sauvegard en format Ce source Assembleur Big Mac sur la disquette d accompagnement de la TEXT pour permettre la r cup ration par votre assembleur a 2 3 4 PRET E ER E t p p t p p A LARME Crid ere h p ah dh h 9 AVRIL 86 STATUS SC029 Registre d tat carte SSC DATE CDA8 Registre entr e sortle donn es CHIFFRE 7 CARACT 59 param tre transfert Basic SETANO C059 Sortie binaire paddle mise 8 1 CLRANO C058 sortie binaire paddle mise 0 NEIT FCA8 routine tempo du mon teur ORG 300 gt Entree de caract re TEST LOA STATUS Si le bit 3 du registre d tat est 1 ceci n a pas d utilit dans notre cas AND 408 un Caract re est pr sent j on aurait pu le tester un BE LDA DATA Lecture de la donn e STA CARACT RTS g
51. 2D 2D 2D 2D 2D 2D 2D 2D 22 2D 2D 2D 2D 2D 2D 0300 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0190 2D 2D 2D 2D 2D OD OA OD OA 24 43 61 6E 27 74 20 0310 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01A0 6F 70 65 6E 20 46 69 6C 65 09 0A 24 57 61 69 74 0320 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01B0 69 6E 67 20 66 6F 72 20 72 65 63 65 69 76 65 72 0330 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01C0 2E OD 0A OD 0A 24 ES 76 78 20 20 53 65 SE 64 69 0340 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01D0 6E 67 20 42 6C 6F 63 20 78 78 78 20 20 20 20 20 0350 00 00 00 00 00 00 00 00 3A 80 00 B7 11 25 01 CA 01 0 24 5 78 78 20 20 53 65 6 64 69 6 67 20 45 4F 0360 IB 01 11 36 01 CD TB 01 OE OF 11 SC 00 CD 05 00 01F0 54 20 20 20 20 20 20 20 20 20 20 24 41 63 6B 6E 0370 3C 20 OF OE 16 11 5C 00 CD 05 00 SC 11 B7 CA 0200 6F 77 6C 65 64 67 65 64 OD OA OA 24 4E 6F 6E 20 0380 1B 01 CD A6 04 FD 21 CD 02 3E 01 FD 77 03 AF FD 0210 41 63 6B 6E 6F 77 6C 65 64 67 65 64 00 OA 24 43 0390 77 05 FD 77 04 3E 06 FD 77 l SE 15 ED 77 06 11 0220 61 6E 63 65 6C 6C 65 64 0D A 24 54 69 6D 65 6F 03A0 D7 02 0E 1A CD 05 00 11 C9 01 CD 18 01 FD CB 05 0230 75 74 OD 0A 24 OD QA 46 69 6C 65 20 73 65 6E 74 03B0 C6 1E 2E CD 20 01 3E OA FD 77 00 11 D4 02 06 84 0240 20 73 75 63 63 65 73 73 66 75 6C 6C 79 60 A 24 03C0 FD 4E 06 CD EE 04 CD B9 04 30 2C FD 35 00 20 F6 0250 OD 0A 54 72 61 6E 73 6D 69 73 73 69 6F 6E 20 61 03D0 FD 35 01 20 DC 11 41 02 C3 70 04 CD B9 04 30 17
52. 4 ABS DV 1 RETURN Affichage et mise jour du chronem tre S22 A5 TIMER B C7 IF A5 3600 THEN B TIMER C7 0 A5 0 49 50 S68 C8 A5160 D4 A5 MOD 60 CR 0 0 C8X10 CR 0 1 C8 MOD 10 0 2 D4 10 CR 0 3 D4 MOD 10 TEXTFACE 0 FOR K 0 TO 3 1F CR 0 K lt gt CR 1 K O R C3 THEN CR 1 K CR 0 K LINE CR 2 K 22 CR 2 K 46 30 30 BF CR 2 x 9 31 PRIN 1 K NEXT RETURN M ise z ro du chronom tre S67 1F DT THEN B TIMER C 0 C7 0 A5 0 FOR K 0 TO 3 CR 1 K 1 NB XT RETURN e MarchelArret chronom tre MA IF DT THEN TIMER OFF MENJ 4 3 1 Marche DT 0 CI TIMER RASEREC T VARPTR P 0 RETURN MENU 4 3 1 Arret DT 1 1F AS THE M C7 C74 TIMER C ELSE C7 0 Bi TIMER PAINTROUNDRECT VARPTR P 0 4 4 TI MER ON RETURN e Action sur les boutens Marche Arr t ou Mise z ro du 206 S69 1F N 10 THEN GOSUB MA RETURN GOSUB S67 GOSUB S68 RETURN e Fen tre pour choix du temps si d connexion automatique S64 GOSUB 561 0 8 16 PRINT 05 8 33 u bout de MOVETO 126 33 inutes PENSIZE 3 3 FRAMEROUNDRE VARPTR 0 0 16 16 PENNORMAL RETURN e Si v remerts dans la fen tre pour choix du temps S6 C2 DIALOG 0 1F C2 lt gt 1 AND C2 lt gt 6 TEEN RETURN EOS EDIT 1 IF LEN ED 2 THEN 57 D9 VAL ED IF D9c1 OR D9 gt 59 TEEN s A1S STR D9 A1 RIGHT A
53. 45 LSET A4 MKI 56 LSET A3 MKS 123 4567 112 PUT 3 1 FOR 1 0 TO B6 LSET A3 MKS A 1 LSET 45 15 1 1 POT 3 1 2 NEXT CLOSE 3 S63 GOSUB S31 8RASERECT VARPTR O 0 DE 0 F K 1 GOSUB T98 RETU RN s Menu Fichier article Quitter S28 PRINT 1 A2 CLOSE A VARPTR T 56 A A VARPTR C 0 A SYST EM e Mode Stockage menu Chronam tre et article D part SS1 IF C6 THEN MENU 4 1 1 C6 0 E7 1 ELSE MENU 4 1 2 C6 1 RETURN e Mode Stockage menu Chronom tre et article D conneuon automatique S52 1F A4 TEEN MENU 4 2 1 CD A4 0 RETURN IF DT THEN TIMER OFF A4 1 WINDOW 2 32 62 222 134 2 GOSUB S64 EDIT FIEID 1 A1 83 21 120 35 1 3 BUTTON 1 1 OK 14 46 172 64 ON DIALOG GOSUB S6 DIALOG ON INITCURSOR S9 GOTO S9 S8 GOSUB S3 GOSUB S65 MENU 4 2 2 C 054 A1 0N DIALOG GOSUB S5 IF DT THEN TIMER ON RETURN e Mode Stockage menu Chronom tre et article Mise z ro S53 GOSUB S67 GOSUB S68 RETURN Menu Liaison et article Connexion S56 PRINT 1 A65 RETORN e Mode Consultation menu Liaison et article 1200 bauds SS IFP DV THEN DV 0 V 12 PRINT 1 CHR 27 kd GOTO T99 M ode Consultation menu Liaison et article 4800 bauds 558 1 DV 0 THEN DV 1 V 48 PRI NT 1 CHR 27 kv T99 CLOSE 1 GOSUB T14o MENU 5 3 DV 2 MENU 5
54. 570 571 PE 578 574 275 376 577 578 579 580 581 582 583 584 585 586 287 588 583 590 591 392 293 594 595 596 597 598 ENCAR LDA ORA STA LDX ENCARI LDA BEQ CMP BEQ 1NX INX INX INX BNE FINCAR JMP OKCAR LDY OKCAR INX LDA BEQ STA JSR DEY BNE FINCARO RTS ML ASC BRK ME ASC BRK MC ASC BRK MP ASC BRK MD ASC BRK MM ASC BRK MO ASC BRK MF ASC BRK MA ASC BRK CARAC 810000000 CARAC 0 TABLE X FINCAR CARAC OKCAR ENCAR1 ENVOI 3 TABLE X FINCARO CARAC ENVOI OKCAR1 MODE LECTURE MODE ENREGIS TREMENT MODE COPIE D ECRAN PREMIERE PAG E lt RETURN gt DERNIERE PAG E lt RETURN gt MEMOIRE SATU REE ENREGIS TREZ lt RETURN s PAUSE lt ESC gt POUR FINIR OK POUR FIN DE CONSULTA TION 2 RETURN COP ZE ESC MI N t Correspondance codes Apple Minitel TABLE R Envoi DFB 580 513 541 0 be Pom s n 27 60 599 Ctr1 K Connexion 617 DFB 82 13 543 0 632 600 DFB 58 51 539 5 618 t Ctrl E Fin de page 633 DFB DD 19 527 0 68 619 DFB 85 0D 0 0 634 601 Ctr1 W Deconnexion 620 a 635 DFB FC 19 41 602 DFB 597 513 549 0 621 DFB C0 19 41 75 603 Ctri 1 Tab Suite l 6 36 DFB 0 604 DFB 89 13 43 0 622 637 605 Del Correction 623 DEB SDC 519 54B 5 638 Bug de 1 ONERR GOTO 606 DFB SFF 13 47 0 63 639
55. 8800 RETURN REM x THEN 2812412 RETURN REM kkdd ELSE m ND 34 GOSUB 8800 RETURN REM k BEGIN 1000 PH c PT RETURN REM xama WHILE ES PD U GOSUB 15210 IF ER lt gt Z THEN RETURN IF PM PM8 lt gt Z THEN PM PM U RETURN PM PM U ND 38 GOSUB 8800 RETURN REM REPEAT s PT PW RETURN REM we CONSTANT PD U GOSUB 15210 IF ER lt gt Z THEN RETURN T1 U GOTO 7005 REM At VARIABLE TI 2 IF MIDS E 1 LEN MO5 lt gt MOS THEN ER 28 RETURN GOSUB 32000 IF ER gt Z THEN RETURN IF MOS CHR 13 THEN ER 23 RETURN GOSUB 32200 IF NU lt gt Z THEN ER 20 RETURN GOSUB 32090 IF BD EM 9 gt MX OR MC 255 THEN ER 4 RETURN FOR I Z TO LM U POKE FD I ASC MIDS MOS I U U NEXT POKE ED MIE POKE UD I U Z POKE ED I M C POKE FD I 3 Ti TI 2THEN POKB BD I duz POKE PD hb 5 7 gt POKEFD I 462250 IF Ti U THEN POKE BD I 4 PEEK FN VP PM POKE FD I 5 PEEK FN VP PM U POKE FD I 6 255 PM PM U POKE ED I 8 EN RQUDM POKE FD I 7 INT BY 256 DM FD FD FD IM 9 MC MC U GOSUB 51000 RETURN REM CARRAY vn PD U GOSUB 15210 IF ER lt gt Z THEN RETURN TP PM8 PM J IF TP lt U OR TP gt 127 THEN ER 33 RETURN GOSUB 32000 IF ER lt gt Z THEN RETURN IF MOS CHRS 13 THEN ER 29 RETURN GOSUB 32200 IF NU lt gt Z
56. BS CHR 8 55 CHR 31 BL I CHR 15 5 CHRS 28 VTS CHR 7 CHRS 14 IC 10140 10130 10160 10170 10180 10190 CHR 27 I NI 24 IC PEEK 64448 1 224 BB N GR 1 IC 0 E BES BBS BBS II TB TBS TB TBS SSSSSSSSSSSSSSSSSSSSSSSSSSSSS ICS TM TMS TM S88SSS8S8SSS TMS NIS CHR 26 IF IC GOTO 10200 TM 10199 10200 T0201 10210 10220 10230 10240 10250 10260 TUTO 10280 10285 10290 10299 REM Sous programmes en binaire re logeable GER 768 REM Gestion d erreurs DATA 104 16871047 166 223 158 725 152 72 96 IN GER 10 REM Input g n ralis DARA 32 290 222 324 327 2235 32 144722 3 162 255 232 189502 2087250 138510 0 0 145 131 32 82 228 7275270360 a 45 131 136 138 145 131 162 074007008 UE 226y 229 EE G80 IN 43 REM GET clignotant en 80 colonnes DAMA 165 37 32 198 25 160 96 205 201208 3 22 78 125 5 74 168 141 84 3 OR 76 3 141 85 BB2 177 40 170 13878 05407208 2 169 223 145 40 169 0 24 72 44 0519 2 233 1 208 247 104 233 1 208 245 8240 227 104 138 145 40 141 16 19 2 141 84 192 96 COMP 80 68 REM utomatique DATA 166 6 160 0 169 160 140 88 192 Jn 168125216
57. C5 D2 C5 A0 DO 2420 C1 7 C5 A0 Be D2 C5 D4 212805 D2 CE 00 CD CS CD 2930 CF CH D2 C5 40 D3 C1 D4 2438 D5 D2 C5 65 AC A0 CS GE 2440 D2 C5 C7 C9 D3 D4 D2 C5 2448 DA A0 BC D2 C5 D4 D5 D2 2450365 00 DO Ci D5 2458 AE A0 BC C5 D3 C3 BE A0 2460 D0 CF D5 D2 A0 C6 C9 CE 2468 C9 D2 00 CF CB A0 DO CF 2470 D5 D2 A0 C6 C9 CE A0 C4 2478 G5 C3 GF CE DB D5 CC 2460 D4 Cl D4 C9 CF CE A0 BP 2488 00 D2 C5 D4 D5 D2 CE AO 2490 BD A0 C3 CF DO C9 C5 AC 2498 A0 C5 D3 C3 AO BD AO C6 24A0 C9 CE A0 00 8D 13 41 00 24A8 8B 1B 39 68 97 13 49 00 24B0 89 13 48 00 FF 13 47 00 24B8 83 13 47 00 93 13 46 00 24C0 87 13 44 00 98 13 45 00 24C8 92 13 42 00 82 13 43 00 24D0 85 0D 00 00 C6 19 41 61 24D8 DC 19 4B 63 FB 19 42 65 24E0 FD 19 41 65 DB 15 30 00 24E8 A3 19 23 00 DD 19 27 00 24F0 FC 19 41 75 00 68 A8 68 24F8 A6 DF 9A 48 98 48 60 Recapitulation PARAM NB Ce fichier n est utile que pour utilisation sur un Apple tic Apres avoir saisi ce code sous moniteur vous le sauvegarderez par BSAVE PARAM A3300 L 527 0300 38 80 7C 04 A9 6B 89 0308 7D 04 A9 81 SD 7E 04 A9 0310 7C 85 42 85 A9 04 85 0318 43 85 3D 7E 86 SE 0320704 85 JF 38 4C ih C3 Pom s n 27 04 App L objet de ces lignes de pr sentation n est pas de faire une analyse exhaustive du nouveau b b bien beau ni de c der la facilit qui consiste reprendre ligne ligne le dossie
58. Drogues Escrimeurs Explorateurs Gymnastes Halt rophiles Judokas Lutteurs Maladies Mar chaux de France M dicaments Nageurs Patineurs Poissons Pr sidents am ricains Skieurs Ski nordique Unit s Villes olympiques Exemples Un musicien dont le nom comporte 7 lettres les 2 me et S me sont des E Tapez E E Vous obtenez instantan ment BENNETT DEBOECK DELEEUW GEVAERT LESUEUR PEDRELL PEETERS WELLESZ Dans les acteurs A E vous donnerait CARETTE PALANCE RACETTE RANDONE RAYMONE VALLONE des CAUCHY ENIGHT VAUGAN WRIGHT dans les femmes celebres donnerait 32 noms Disquette double face et documentation 200 00 F franco Bon de commande page 74 4 Pom s n 27 ditorial Trait d union entre la s rie et le Macintosh ressort de nos premiers contacts avec le HGS qu Apple a r ussi construire un syst me ouvert pratique comme le Mac dot de la philosophie Mac la couleur en plus le 68000 en moins Le c t evolution de VApple est a notre sens un atout d cisif pour les adeptes du pr d cesseur il tait malais de passer du 6502 au 68000 car il s agit de deux mondes diff rents Avec le 65816 on se sent chez soi et a en croire nos entretiens t l phoniques nombre d entre vous sont d j s duits La pr sentation de la page 65 vous en dira plus Le num ro 1 de Pom s est sorti en septembre 81 a 35 F plus de cinq
59. EZ 2 T XW P 7 206 25 106 et B T 74 74 74 207 25 122 SAMA K 75 75 75 214 25 56 530777 iz T 76 76 76 53 NE E M 77 eg 25 44 N 78 78 78 T 25 45 O 79 79 79 y 25 46 p 80 80 80 P 25 47 2 2 u Ski H 8 4 83 K 2 a pu 84 84 84 KE BRK 0 U 85 85 85 13 V 86 86 86 gt y 87 87 87 Envoi 19 65 E 88 88 88 Retour 19 66 R p tition 19 67 Y 89 89 89 Sa 19 68 K i 90 90 90 10 2 ice 91 91 Annulation 19 69 92 92 Sommaire 19 70 E 93 93 19 71 80 00 F TTC L 1 oa i Suite 19 72 u 95 95 95 Comexion Fin 19 89 franco o 96 96 96 Indique que lec arac i re est diff rent Bon de commande y 97 97 97 mais il exisie Por exemple le du 74 b 98 98 98 Minitel correspond ane du 2 Ma PES EE 54 Pom s n 27 Christian Piard Le pr sent programme a pour but d enregistrer des s quences de consultations Minitel de les resti tuer d enregistrer et d imprimer des crans l a t con u sur un Apple e et fonctionne galement sur un un c et m me un 165 avec dans ce cas un gain de temps sensible l affichage et l impression Pour les e et Heas la carte SSC est indispen sable et doit tre configur e comme ci dessous Elle sera install e dans l un des slots entre 1 et S sw 0000000 modem_ configuration de la carte SSC Apple terminal Dans un des m mes slots une
60. MODE vu 7500 IF NOT MF THEN GOSUB 1360 RETURN 7510 GOSUB 1350 RETURN 7599 REM SAS RAZ 7600 GOSUB 15300 GOSUB 15900 GOSUB 15920 PR NC RETUR N 7699 REM BELL 88 7700 PRINT BIP RETURN 7799 REM sees LISTEMOTS 7800 AD DM GOSUB 51900 TP Z TEXT 7810 IF AD Z THEN 7870 7815 VTAB 2 PRINT VTAB 13 4 TP POKE 36 54 7820 IF PEEK AD 32 THEN 7850 7830 PRINT 5 PEEK AD AD AD U GOTO 7820 7850 TP TP U GOSUB 51800 AD PEEK AD 256 PEE K AD U IE PP 5 THEN 2 2 PRINT U TAB 23 GOSUB 1300 VTAB 2 PRINT VTAB 23 CALL CW GOSUB 51900 TEXT 7860 GOTO 7810 7870 IF TP lt gt Z THEN VTAB 2 PRINT VTAB 23 GOSUB 13 00 VTAB 2 PRINT VTAB 23 CALL CW 7880 GOSUB 51000 RETURN 7899 REM xx DEMO da 7900 ER 28 RETURN 7999 REM d INIT TET 8000 ER 28 RETURN 8798 REM Recherche d un mot de numero ND dans un mot cr ee 8799 REM utilise pour ELSE THEN et REPEAT 8800 PT PT 2 8820 IF PEEK PT U ND OR PT gt MX THEN RETURN 8930 IF PEEK PT 129 THEN PT PT 3 GOTO 8820 8840 IF PEEK PT 128 AND PEEK PT U lt gt 23 THEN PT PT 2 GOTO 8820 8850 PT PT 3 PEEK PT 2 GOTO 8820 8997 REM 8998 REM Cherche l adresse du mot cree NU 8999 REM 9000 I DM 9005 IF I Z THEN RETURN 9010 IF PEEK I lt gt 32 THEN I I U GOTO 9010 9015 IF PEEK I 2 NU THEN AD I 4 1 Z GOTO 90 o5 9020 AD I GOSUB 51800 I P
61. Pr paration Envoi S35 0N M1 GOSUB S36 S37 S38 S1 S28 RE TURN e Mode Pr paration Envoi meruz Fichier et article Nouveau S36 F C4 0 GOSUB SPE MOVETO 6 16 PRINT Fichier Sans titre C B GOSUB T30 RETURN e Mode Pr par aton Envoi menu Fichier et article Ouvrir Pom s n 27 S37 INITCURSOR CB F F FILES 1 TEXT GOSUB S3 1F F TEN F CB RETURN OPEN 1 3 F L IOPF 3 IF L gt 960 THE N BERP 1 960 CB INPUT L 3 CLOSR 3 C4 0 GOSUB SPE GOSUB T30 RE TURN e M ode Pr paratiorJEnvot menu Fichier et article Enregistrer S38 CB EDIT 1 L LEN CB IF L 0 TREN REPP RETURN IF L gt 960 TEEN L 960 BEEP C4 L G 960 CB LEFT CB L GOSUB T30 IF F lt gt THEN 539 INITCURSOR F FILES 0 160 IF F THEN RETURN GOSUB S3 161 3 5 F F TE XT GOTO 162 S39 0PEN o 3 F 162 PRINT43 CB 163 CLOSE 3 164 RETURN Menu Fichier en mode Stockage S50 0N M1 GOSUB 546 547 527 548 52 8 RETURN Menu Chronom re en mode Stockage S54 0N M1 GOSUB S51 S52 MA S53 RET URN e Menu Liaison en mode Stockage S59 0N M1 GOSUB S56 S55 S57 S58 RE TURN e Menu Mode article Stockage S41 GOSUB T14i GOSOB T140 DIM A T 22 1 T22 V 2 GOSUB S60 C5 1 GOSUB 54 5 0 1 0050 T98 RETU RN Menu Mode a ticle Consultation S42 GOSUB T14o DIM A T2
62. RETURN IF CA 8 OR CA 11 THEN CH CH 1 IF CH lt O THEN CH MA GOTO 1110 IF CA 21 OR CA 10 THEN CH CH 1 IF MA lt CH THEN CH 0 GOTO 1110 IF CA 27 THEN CH MA RETURN GOTO 1110 RETURN Affiche la fl che des menus FOR I O TO MA VTAB I 2 8 POKE 36 7 IF CH I THEN PRINT gt GOTO 1330 PRINT SPC 4 NEXT RETURN FOR I 1 TO 5 PRINT 2 NE XT RETURN Fin ESC ne permet pas de sortir ON CA 27 GOTO 100 END Saisie le nom du fichier IF UK 1 THEN CT 1 0K 0 RETURN VTAB 10 POKE 36 10 CALL 958 PRI NI ee POKE 36 10 INPUT SNM IF NMS THEN RETU RN IF LEN NM gt 20 THEN CALL AD SL BE GOTO 4000 IF LEN NM 3 THEN 4050 IF LEFT NM 2 C OR LEFTS NM 2 S AND CU THEN NM RIGH TS NM LEN NMS 2 IF ASC LEFT NM 1 lt 65 OR AS C LEFT NM 1 gt 90 AND NM gt 2 THEN CALL AD SL BE GOTO 4000 FOR I 0 TO 1 M I LECTEUR STR I 1 NEXT M 2 M2 2 1 3 CH PEEK 43624 1 GOSUB 1100 IF CH 2 THEN CT 1 RETURN POKE 43624 CH 1 HOME IF NM 2 THEN 10 PRINT DS CATALOG PRINT PRINT lt RETURN gt GO SUB 6000 HOME CT 1 RETURN LF PEEK 8 256 PEEK 7 947 1 RETURN Erreur de ty pe de fichier HOME PRINT PRINT IL N Y A PAS DE M2 1 DK PRINT EN MEMOIRE lt R ETURN gt CALL AD SL BE GOSUB 6000 1 DK GOTO 100 L
63. THEN ER 20 RETURN IF FD LM 7 TP gt MX OR MC 255 THEN ER 4 R ETURN FOR I Z TO LM U POKE FD I ASC MIBS MOS 1 UZUN NEXT POKE FD 1 32 POKE FD I U Z POKE FD I 2 M CSTPONE Ds 1 3 3 POKE FD sh geb PORE ED Y I ts 5 T42 255 POKE ED I 7 DPS EN RO DM POKE ER I 6 TP INT DM 256 DM FD FD FD LM 8 8 MC 0 GOSUB 510 00 PM PM U RETURN REM RARES FORGET GOSUB 32000 IF ER lt gt Z THEN RETURN IF MOS 5 13 THEN ER 29 RETURN VTAB 2 PRINT VTAB 23 CALL CW PRINT Etes vous 5 ur 0 N As GOSUB 300 IF XS lt gt O AND XS lt c AND X gt N AND X5 lt gt n THEN 7210 IF X n OR X N THEN PR NC RETURN VTAB 2 PRINT GOSUB 32200 IF MOS CHRS 13 THEN ER 29 RETUR N 7230 IF NU Z THEN ER 18 RETURN 7240 IF NU lt NM U THEN ER 22 RETURN 7250 FD AD AD AD TP GOSUB 51800 DM PEEK AD 2 56 PEEK AD U 7260 MC NU GOSUB 51000 RETURN 7299 REM xx AIDE 7300 GOSUB 57000 GOSUB 57200 CO 4 GOSUB 15000 GOSUB 32090 7310 GOSUB 50050 GOSUB 1350 GOSUB 51000 7320 VTAB 2 PRINT VTAB 19 PRINT PM PRINT ES RETURN 7399 REM 22 QUITTE 7400 VTAB 2 PRINT VTAB 23 PRINT Confirmer par GOSUB 300 IF X C X THEN TEXT HO ME PRINT Au revseir END 7410 VTAB 2 PRINT VTAB 23 CALL CV RETURN 7499 REM xd
64. TO 5 IF PEEK AD 32 THEN 51040 PRINT CHR PEEK AD AD AD 1 IF I 5 THEN 51050 PRINT GOSUB 51800 AD AD 1 NEXT REM REM Calcul l OFFSET pour trouver l adresse suivant e REM IF PEEK AD 2 lt 100 THEN AD AD IF PEEK AD 3 1 OR PEEK AD 3 AD 7 RETURN R IF PEEK AD 3 3 THEN AD AD 6 RETURN OS 4 IF PEEK AD OS IF PEEK AD OS GOTO 51020 PEEK AD 256 BBEK 1 TEXT RETURN 3 RETURN 2 THEN AD PEEK AD 4 255 THEN 51860 m 128 AND PEEK AD OS 1 23 THEN OS OS 3 PEEK AD OS 2 GOTO 5182 0 IF PEEK AD OS 129 THEN OS OS 3 GOTO 518 20 OS OS 2 GOTO 51820 AD AD OS 1 RETURN REM REM Efface ecran fin du DICO REM TEXT POKE 33 16 POKE 32 55 POKE 34 12 PORKE 35 17 HOME RETURN REM REM INITIALISATION HIMEM 34304 REM 8600 2 0 1 ER 2 1 2 2 Z VR U FX 2 DS CHRS 4 CL 868 958 X X Z MF FX PR U NU Z PM Z PR3 2 5 SR FD 2 1 Z MO Z LM Z VN Z FG 2 X 32767 50 VR MS 5 m ADS AD 2 5 9 4096 6 256 D M Z BD Z DD 8 4096 6 256 1 MC 101 TP Z PM R Pret NE 0 05 Z CP VR FC Z N 2 2 Z ID Z EC U EL C Z II 2 8 T1 2 9 2 X1 m Z X2 2 Z DEM o Pom s n 27 O TI L APPREN
65. TO L K MIDS TES d 1 K ASC K IF K THEN J L I I 1 I I d NEXT J POKE 4403P PRINT Va CHRE 11 NEXT I REM D crochage PRINT PRINT CHR 7 D crochez le combin avant secondes BOB ne LJ GO 7 SITES 1 HTAB 26 PRINT SPC F lt 10 s tz FOR J 1 TO 1000 NEXT NEXT I PRINT VIS IF IC THEM BOKE 49322 0 IF NOT IC THEN POKE 49240 0 REM Fin PRINT Pressez une touche pour reven ir au menu principal CALL G80 RETURN REM Escape IF IC THEN POKE 19322 0 IF NOT IC THEN POKE 49240 0 RETURN 6999 7000 REM Cr er un nouveau carnet 16 7001 7000 7020 7030 7040 7100 7110 7120 7130 7140 150 7160 7170 7180 7190 7200 999 3 9999 3 10000 10001 10002 10010 10020 10030 10055 10040 10045 10050 10055 10060 10065 10070 10080 10085 10090 10095 o D v F oxun n HOME PRIMT Attention en cr ant un nouveau carnet vous effacer le pr c dent s il existe PRINT Voulez vous vraiment cr er un nouveau carne E 070 5 CALL G80 K CHR PEEK 16384 IF KS gt AND KS gt o THEN RETURN PRINT REM Destruction eventuelle IF LI 7130 GOTO 7140 IF LI 7140 GOTO 7150 PRINT D DELETE INDEX PRINT
66. but est double donner une id e du temps pass sur un serveur et permettre une d connexion automatique l expiration d un temps donn Puisqu il y a d connexion automatique il fallait aussi une ophon D part automatique Quand cette option est choisie article coch le d part automatique aura lieu d s que le Minitel mettra quelque chose Notons que s il est possible de rendre tous moments cette option valide ou invalide elle ne fonctionne que lorsqu un fichier est ouvert et l enregistrement autoris Si le chronom tre tait en fonc tionnement ou simplement n tait pas z ro le premier caract re re u provoquera sa r initialisation Pratiquement une s ance d enregis trement avec d part automatique du chronom tre pourrait d buter ainsi on consid re que le Minitel est sous tension Jean Luc Bazanegue ouverture d un nouveau fichier e autorisation d enregistrement e demande de l option d part automa tique composition du 11 annuaire lectro nique connexion au r seau par s lection de l article connexion du menu Liaison Ea derni re op ration provoque le d clen chement du chronom tre Chronom tre D part automatique Deconnexion automatique Marche Mise z ro La d connexion automatique pourra tre utile ceux qui ne veulent pas que leurs factures t l phoniques atteignent des sommets vertigineux La s lect
67. ces 2 octets 4 bits donnent le niveau de bleu 4 pour le vert et 4 pour le rouge 4 ne servent pas Mode 320 ou 640 En mede 320 chaque pixel est d fini non par 1 bit mais par 4 qui donnent le num ro de la couleur de ce pixel dans la table de la ligne En mode 640 chaque pixel est d fini par 2 bits donnant le num ro de sa couleur dans une partie de la table de la ligne il y a donc 4 pixels par octet Le premier pixel sera de Tune des couleurs 0 4 3 le deuxi me dans l une des couleurs 447 etc 2 pixels adjacents ne peuvent donc tre de la m me couleur que si la table est compos e de 4 fois les m mes couleurs Interruptions Le trac d une ligne peut g n rer une interruption il est donc possible d en profiter pour changer la palette de couleurs avant Gymnastique complexe qui rend possible l affichage de 256 couleurs sur le m me cran Remplissage Sile bit de remplissage de Toctet de contr le d une ligne est 1 la couleur O de la table de couleur est indisponible les pixels d finis de la couleur seront en fait de la derni re couleur utilis e De telles possibilit s graphiques devraient donner l id e dutilitaires Pom s n 27 Lass des saisies au clavier Choisissez une interface directe et conviviale le crayon optique un peu d laiss depuis l arriv e des Macintosh Apple c et leur cort ge de souris Le petit montage propos ici ne saurait rivaliser avec la pr cision des petit
68. cran du Minitel les pages r apparaissant exactement comme lors de l enregistrement mais plus rapidement Dans le mode que nous appellerons copies d cran l ordinateur nenregistrera que les codes ASCII d livr s par le Minitel lorsqu il effectue un copie d cran Les crans enregistr s dans ce mode ne sont pas restitu s sur le Minitel mais sur votre imprimante ou bien transf r s dans un fichier de type TEXT pour exploitation future par un traitement de textes Vous opterez pour ce mode dans la consultation de l annuaire lectronique pour par exemple r cup rer des adresses Le premier mode servira surtout pour consulter sans contrainte de temps des informations qui ne n cessitent pas l impression Rappelons que sur les Minitel qui le permettent la copie d cran s obtient par FNCT puis F ou FNCT I puis A selon que vous d sirez ou non les minuscules accentu es Un mode auxiliaire De fa on accessoire le programme vous permet de transmettre au Minitel un fichier de type TEXT que vous aurez pr par en traitement de textes Ceci vite de perdre un temps co teux lorsqu il s agit de taper un texte destination d une messagerie ou pour utiliser moindres frais le futur service des PTT Post clair Minitel Le programme Basic ne Joue pas activement dans la relation Minitel Apple mais g re les diff rents menus intercepte les ventuelles erreurs DOS s occupe des chargem
69. de la routine de char gement des ic nes Pom s 18 DATA H4E56 0 64H42A7 H3F2E 6HC 5H A9BB 6H2057 6H2250 6H246E amp H8 amp H 24FC 32 32 6H701F 6H24D9 6H5iC8 SHFFFC 6H4E5E 6H4E75 e Pour message si plus de 2000 caract res par pages 128 DATA s t ent s a ont s e Titres des menus DATA Mode Stockage Consultation Co pie d ecran Preparation envoi Fi chler Nouveau Ouvrir Enregistr ement Fermer Quitter Chronometre D part automatique D connexion automatique Marche Mise a zero DATA Liaison Connexion Deconnexion 1200 bauds 4800 bauds Pom s 1 39 51 24 43 e Positions descaract res du chrono DATA 212 220 232 240 tats des articles du menu fichier pour le s diff rents modes DATA 0 0 1 1 1 1 0 0 0 1 0 1 0 0 1 1 1 1 0 1 0 0 0 1 1 e Initialisationdes tableaux de variables et muse en place des menus FOR I 0 TO 14 READ Z1 1 NEXT POR I 0 TO 10 READ Z I NEXT A VARP TR 2 0 A 4 FOR I 0 TO 5 READ B 6 I NEXT FOR I 0 TO 3 F 1 6HAA55 H 1 6HFFFF NEXT FOR 1 0 TO 18 STEP 2 READ E 1 E 1 1 A 112 NEXT N 0 FOR I 0 TO 19 STEP 2 RESTORE S2 READ ooo 47 48 D N N N 1 FOR J 0 TO 12 READ D N D N 1 D N D N E I D N 1 D N 1 E I 1 N gt N 2 NEXT NEXT FOR I 0 TO 16 READ A U 1 A K 1 A NEXT FOR I 17 TO 26 READ J I NEXT FOR 1 17 TO 26 READ K 1I NEXT FOR 1 0 TO 26 READ L 1 NEXT FOR 1 0 TO 22 READ M I NEXT
70. e Une unit centrale 128K de ROM et 256 de RAM extensible 4 m gaoctets Un clavier d tachable ou plut t d tach avec bloc num rique et souris Moniteur couleur Lecteur de disquette 3 5 pouces e 640 x 200 points l cran en 4 couleurs parmi 4096 ou 320 x 200 en 16 couleurs Son 16 voix e 8 connecteurs d extension dont un pour une extension m moire e Deux interfaces s rie une souris une 80 colonnes une AppleTalk Les Lecteurs de Pom s qui se sont pench s sur les sources des programmes Macintosh se sont allou s un avantage certain pour la programmation de leur futur GS Le contact avec les routines graphiques des 128K de ROM leur sera familier SetClipRgn ObscureCursor GetPenState TextFace et autre GetFontinfo sont apparues dans le cahier Mac depuis bien des num ros Les param tres se passent ici aussi par la pile pile qui atteint 64K Le graphisme Point fort du nouvel arriv le graphisme Super Haute R solution m rite quelques pr cisions L cran est divis en 200 lignes de 320 ou 640 points A chaque ligne est affect un octet qui en donne les caract ristiques 4 bits pour indiquer quelle table parmi les 16 tables de 16 couleurs doit tre utilis e 1 bit indiquera si la ligne est en mode 320 ou 640 points 1 pour activer le mode remplissage 1 bit pour les interruptions La table de 16 couleurs choisie pour la ligne est compos e de 16 fois deux octets Dans
71. le Plus n est s rement pas trang re ces succ s En France od les baisses de prix sont rarement l ordre du jour chez Apple on compte d ja 55000 Macintosh vendus dont 30 dans les grands comptes qui boudaient ostensiblement le Macintosh depuis ses d buts ces bons r sultats probablement trois raisons d abord l arriv e du Macintosh Plus avec son interface SCSI qui fait plus s neux que le Macintosh 512Ko sans sortie pour disque dur ensuite le rapprochement de l univers MS Dos qu il s agisse de l int gration du Macintosh dans des r seaux od se trouvent d j des PC par exemple avec le r seau TOPS ou de l change de fichiers entre les Macintosh et les PC Et enfin le boom de l dition personnelle Ce que les Am ricains appellent le desktop publishing et qu on a baptis chez nous du nom barbare d ditique ou de PAO publication assist e par ordinateur Un grand nombre d entreprises se sont avis es qu elles pouvaient r aliser elles m mes et dans leurs locaux des documents qu on devait auparavant confier un imprimeur 11 vient ainsi de s ouvrir un tout nouveau march qu on n avait pas imagin auparavant et qui s av re tre juteux IBM qui s y int resse de pr s a donc annonc une version sp ciale de son micro scientifique le PC RT sp cialis dans les t ches d dition En attendant Apple dispose avec le Macintosh d une confortable avance sur ce marc
72. lit en permanence le clavier et se charge de la conversion des ordres clavier en codes Minitel Envoi Suite Correction ainsi que du recodage des caract res non ASCII va Commande 2 C est le mode restitution des s quences les caract res sont lus en m moire et envoy s au Minitel via la carte interface s rie une pause tant marqu e entre chaque page Commande 3 C est le mode enregistrement de copies d cran La prise n tant par forc ment inhib e sur le Minitel les ventuels douze caract res destin s aux p riph riques du Minitel sont supprim s On compte par la suite les retours chariot pour rep rer la limite entre les diff rentes copies d cran Chaque fin de copies d cran est rep r e par un code FE dans le stockage et la fin des copies par FF Commande 4 La routine ne fait qu mettre un Bip plus agr able que l habituel CTRL G Comment faire R alisez le c ble interface 0 NONA O N Faites RUN MINBAS Vous avez un c passez a l tape 4 Configurez la carte S rie Apple SSC comme indiqu Vous avez la disquette Pom s passez l tape 8 Saisissez et sauvegardez le programme Basic sur disquette DOS Saisissez et sauvegardez le code MINITEL Vous avez un Apple saisissez et sauvegardez le code PARAM Le mode d emploi ci contre et les menus vous guideront Commande 5 Ce mode est utilis
73. niveau du GS Un kit sera disponible l an prochain mais pour un prix d environ 1000 dollars C est que ce kit comprend une nouvelle carte logique 256Ko de RAM Le clavier et la souris sont vendus en suppl ment pour ne pas nuire ceux qui avaient d j achet une souris pour leur e En attendant voici bizarrement que sortent de nouveaux accessoires pour am liorer le dans les domaines o le GS prime Ce sont notamment la carte Yess de Yam Educational permettant de transformer le en piano lectronique et le Phasor d Applied Engineering une carte synth tiseur avec 4 voies st r ophoniques 12 canaux simultan s 4 g n rateurs de bruit blanc etc Prix 179 dollars D j des nouveaut s pour le Hss A peine est il sorti que voici d j des logiciels et du mat riel pour ie GS C t logiciels remarquons les trois pro grammes de Version Soft un traitement de texte GS Write tr s semblable Macwrite mais avec la possibilit d ouvrir jusqu 16 documents un programme de dessin GS Paint MacPaint avec de a couleur et un programme de communication GS Com Ces produits ont t achet s par la firme Activision qui compte en couler 75000 aux tats Unis On recense encore des programmes de publication assist g par ordinateur Opus de Quark Pager de Megahaus et Front Page de Broderbund TML a un compilateur Pascal Electronics Art a adapt Deluxe Paint son programme de dessin d ja
74. pouvez aller jusqu 1200 fiches Attention le fichier CARNET de type Basic est facilement conver tible en ProDOS l aide des Utilitaires Syst me II n en est pas de m me pour les fichiers ADRESSES et INDEX qui sont acc s relatifs Choisissez donc avant d enregistrer quoi que ce Pom s n 27 2 Recherche d une fiche 3 Modi fication d une fiche i E N A soit le syst me d exploitation que vous utiliserez Le passage de l un l autre tant d licat par la suite Description des commandes Introduction en continu Les diff rentes rubriques sont les suivantes e Nom e Pr nom e Adresse e Ville e T l phone e Renseignement Les rubriques t l phone et rensei gnement peuvent tre utilis es par exemple pour d finir une proc dure de connection automatique un serveur en couplant la com mande 6 voir ci apr s avec un logiciel de communication La rubrique Nom n accepte que les lettres majuscules et les carac t res apostrophe et tiret les minuscules sont automatiquement converties en majuscules les autres caract res ne sont pas pris en compte Pour les autres rubri ques il n y a pas de limitation except pour les caract res de contr le Suppression d une fiche i Liste alphab t que Composition automat i que Nouveau carnet Quitter la programme Tapez un nombre ou pressez ou T pour s lectionner una option Puis presser 4
75. pr cise Le traitement de texte est volu avec notamment une possibilit d a jouter des notes avec num ration automatique Ce traitement de texte tr s rapide utilise bien videmment l s fichiers de Macwrite ou de Word et comprend dans sa version am ricaine un correcteur orthogra phique B sera vendu 175 dollars Mini Macintosh maxi prix Il ne manque plus qu un Macintosh portable pour compl ter la gamme Certains constructeurs essaient de renouveler le coup fait par Compaq IBM en pr sentant le premier PC portable Cette fois c est plus dur car compte tenu du fait qu Apple reste l unique source de production des ROM et du syst me du Macintosh il faut obligatoirement passer sous ses fourches caudines Ou se borner acheter des Macintosh puis les recarosser ce qui fait all grement grimper la facture Il y a quand m me des volontaires Parmi eux Colby qui avait d j pr sent de nombreux Macintosh recarross s qet esp re pr senter un portable comprenant outre les l ments d un Macintosh Plus avec lecteur de 800K un cran plat au plasma de 12 pouces un disque dur int gr de 20 M gas et la possibilit de fonctionner sur batteries Prix de 5000 7000 dollars remarquer encore le Dynamac de Dynamac Computers un portable style Papman lui aussi avec disque dur incorpor et cran plat lectrolumi nescent Prix de 4500 5000 dollars Enfin le MX Plus d Entelitec cran electrol
76. propre nous satisfaire Vous pourrez trouver page 53 de ce num ro un article sur les probl mes g n raux de liaison Apple Minitel chaque entr e logique est associ un commutateur logiciel Leurs adresses m moire sont 16287 16285 ou C061 C063 C est le bit de poids fort bit 7 qui informe de l tat de la commutation alors que le reste de l octet est ind fini En Basic il suffit de lire le commutateur avec un PEEK et de le comparer avec la valeur 128 Si la valeur est gale ou sup rieure 128 le commutateur est 1 ou pour notre application le micro contact est ferm effraction Pour les entr es analogiques l Applesoft donne un moyen rapide d valuation par l instruc tion PDL avec pour argument le num ro 0 3 de la manette Chaque capteur doit videmment tre talonn Pour les sorties logiques ici les relais la commutation logicielle utilise cette fois une paire d adresses une met l annoncia teur O tandis que l autre le met 1 Le simple fait d acc der une adresse une lecture par exemple suffit pour l activer Le composeur automatique de num ros t l phoniques illustre un exemple de leur programmation Les trois paires d adresses libres vont de 16294 COSA a 16289 COSF L ACIA du travail en s rie La mani re la plus simple d utiliser la SSC est encore de se servir du firmvvare de la carte Tapez les commandes PR 2 et IN 2 en
77. une des interfaces manque HOME PRINT PRINT UTILISEZ LE MEN U OPTIONS POUR PRINT INDIQUER LA CONFIGURATION lt RETURN gt CALL AD SL BE A0 4 GOSUB 6000 GOTO 100 Envoi d un fichier au Minitel HOME VTAB 8 PRINT NF TEXT A ENV OYER CU 0 GOSUB 4000 CU 1 IF NM THEN 100 IF CT THEN CT 0 GOTO 4400 HOME PRINT PRINT TRANSFERT EN CO Pom s n 27 URS PRINT PR NT lt ESC gt POUR L I NTERROMPRE 4430 PRINT D PR SL PRINT D OPEN NM P RINT D19 READ NM 4440 GET R IF R CHR 13 THEN POKE 6 19 CALL AD SL CX POKE 6 72 CALL AD SL CX FOR I 1 TO 2400 NEXT GO TO 4440 4445 FOR I 1 TO 35 NEXT 4450 POKE 6 ASC R CALL AD SL CX IF PEEK 49152 155 THEN POKE 49168 0 GOTO 4500 4460 GOTO 4440 4500 PRINT D CLOSE PRINT D1 PR 0 GOT O 100 Minitel et interface en 4800 bauds 4600 VTAB 17 FOR J O TO 4 POKE 6 A J CALL AD SL CX NEXT PRINT PRINT DS PR SL PRINT CHR 1 12B PR INT D PRPO VTAB 17 PRINT SPC 4 PRINT 4605 RETURN Minitel et interface en 1200 bauds 4610 17 FOR J 5 TO 9 POKE 6 5 gt CALL AD SL CX NEXT PRINT PRINT DS PR SL PRINT CARS 1 8B PRI DS PR 0 VTAB 17 PRINT SPC 4 P RINT 4615 RETURN T raitement des erreurs 5000 CALL 9461 U PEEK 222 IF U 5 T HEN 4500 5005 CALL AD SL BE U PEEK 222 IF U 255 THEN RESUME 5010 LI PEEK 219 256 PEEK 218 PRI
78. vendu pour l Amiga Broderbund va am liorer pour le GS les programmes Print Shop et Fantavision On parle m me d un logiciel int grateur fa on switcher baptis Carrousel Sur le front des accessoires on remarque un disque dur de 20 M gas et une carte de 1 m ga octet de disque virtuel d AST Une carte d extension m moire pouvant contenir 4 M gas le RamPak4 GS d Orange Micro et une carte interface parall le le ProGrappler Orange Micro propose m me un des ces accessoires avec un ventilateur et prises suppl mentaires qui permettent de rendre bruyants des ordinateurs g n ralement silencieux Applied Engineering a d j concoct deux cartes d extension la GS Ram 1 5 M ga octets sur la carte et la GS Ram Pius Jusqu 6 M gas L Apple GS est ouvert Grand ouvert On va voir d ferler les accessoires Les imaginations et les fers souder n ont pas fini de chauffer dans la Silicon Valley Adresses Mindscape Inc P O Box 1167 Northbrook IL 60065 Orange Micro 1400 n Lakeview Ave Anaheim CA 92807 PS Publishing 290 Green St San Francisco CA 94133 ACI 6 avenue Franklin Roosevelt 75008 Paris T l 43 59 89 55 T Maker 1973 Landings Drive Mountain View CA 94043 P Ing ni rie 226 bd Raspail 75014 Paris T l 43 21 93 36 OWL International 14128 NE 21st Street Believue WA 98007 Think Technologies 420 Bedford St Lexington MA 02173 Abvent 53 avenue de Breteuil 75
79. 0 8 169 1098 1408922592 312 168 2521202 2085258 96 FIN COMP 25 FOR I GER TO FIN READ J PONE 1 07 NEXT I TF IC THEN POKB QMP 4 7 11 BC a POKE COMP 17 170 Composition a 10299 Y 10300 10301 10500 FOS20 10330 10340 10390 10360 10370 10380 10390 10599 10400 10401 10410 REM Menu RE DATA DATA DATA DATA DATA DATA Insertion d une fiche Recherche d une fiche Modification d une fiche Suppression d une fiche Liste alphab tique Composition automatique DATA Nouveau carnet DATA Quitter le programme NC 7 DIM CHOIXS FOR I NC READ CHOIX5 T NEXT I 0 TO REM Lecture du fichier index REM PRINT D UNLOCK INDEX ma e Pom s n 27 10420 10430 10440 10450 10460 10470 10480 10490 PRINT D UNLOCK ADRESSES PRINT D OPEN INDEX L20 PRINT Dip READ INDEX RO INPUT NF IF NF 0 GOTO 10490 K 0 FOR TO NF 1 PRINT D READ INDEX R K INPUT X K 0 X K 1 IF X K 0 0 AND X K 1 0460 NEXT 1 PRINT D CLOSE PF 1 0 GOTO 1 10499 10500 10501 10510 10920 10330 10540 10550 10560 10570 10580 20590 10600 10610 10620 10630 10640 10650 10660 10670 10690 10700 10701 10710 107 20 10730 REM Affichage du menu 1000030000 7 TEXT HOME HP LD PT 1 PRINT TBSP BRENT PS BBo VRAB 2 H TAB 20 PRINT CARNET D ADRESSES C BO
80. 0 EYEFEFE4 FEFFELEE EFEBETYTFS FFFFFFF8 04086000 04084200 05880000 04320100 9000004 9000004F 80000008 FFFFFFF8 00 O7FFFE06 OTFFFFO0 0TFFFFOO FFFFFFFF FFEBFFEF FEBEPFES FEFFFFF8 fen tre d alerte 31 erreur syst me Type ALRT 4128 50 50 250 450 128 5555 DITL de la fen tre d alerte Type DITL 128 2 Button 170 150 190 250 StaticText 60 20 150 380 message d erreur de la fenetrel d alerte Type STR 1 Le document ImageWriter n est pas c mpatible avec cettel applicati n 2 F D sol la disquette est verroulllee l Les nouvelles selections ne peuvent tre enregistr es 53 D sol le document ImageWriter estf verrouii16 Les nouvelles s lections ne peuvsnt trel enregistr es 4 Lss nouvelles s lsctlona n ont pas pu tre enregistr es Veuillez d prot ger la diaquette del d marrage et recommencer 5 D sol Une erreur impr vue estf survenue lors deJ l enregistrement des nouvelles s lections Erreur No 10 Une erreur syst me impr vue estf survenue Erreur No Dialog des instructions Type DLOG r 128 dialog box 30 10 332 502 Visible NoGoAway 1 dBoxProcb alert box or modal dialog box 0 129 DITE du dialog des instructions Type DITL 129 12 Button 270 80 290 180 OX Button 270 280 290 380 Annuler UserItem Disabled 0000 staticText Disabled 10 5 70 482 Cette application
81. 0 20 47 6F 74 20 73 6F 0270 6D 65 74 68 69 E 67 2C 20 62 75 74 20 3F 20 3F 180 00 F franco France m tropolitaine 0280 20 3F OD 0A 24 20 52 65 63 65 69 76 65 64 20 45 0290 4 54 00 OA 24 00 OA 46 69 6C 65 20 72 65 63 65 Badaroux A 0240 69 76 65 64 20 73 75 63 63 65 73 73 66 75 6C 6C e 02B0 79 OD OA 24 OD OA 54 72 61 6E 73 6D 69 73 73 69 144 rue Legendre 75017 Paris 02C0 6 6E 20 61 62 6F 72 74 65 64 OD OA 24 00 00 00 T l 1 47 57 91 11 02D0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 02E0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 02F0 00 00 00 00 D 00 00 00 00 t 00 00 00 00 00 00 Poms n 27 37 A s EE CE MA Word est une marque d pos e p r Microsoft Writer Plus est une marque d pos e ACL Cette fois Gutenberg n Gutenberg et ses associ s des gens tres perfectionnistes au demeurant n h sitant pas regarder la loupe le moindre d tail n avaient pourtant fait que la moiti du travail Le pouvoir de l dition c est bien pouvoir diter soi m me c est mieux C est d ailleurs le seul moyen de pouvoir parvenir la vraie libert d ex pression Cela Gutenberg n y avait pas song En toute bonne foi il croyait fer mement dans les vertus de la vis bois et d une imprimerie pour tout le monde Chez Apple nous croyons aux res sources de l individu et l dition personnelle Par contre pour cr er son atelier Macintosh a fait comme Gutenberg il
82. 0 PRINT Pressez une touche pour reve nir au menu CALL G80 5500 REM Fin de la liste 5501 REM 5510 PRINT PRINT D CL RM 5520 RETURN Pom s n 27 5999 6000 6001 6010 6020 6030 6040 6050 6060 60 70 6080 6090 6100 6110 6120 6130 6140 6150 6160 6170 6180 6190 6200 6210 6220 6230 6240 6250 6260 6270 6280 6290 6400 6410 6420 6430 6440 6450 6460 6470 6480 6490 6500 6510 6520 6550 6560 6570 6580 KS REM Composition automatigue REM GOSUB 2500 IF K 27 OR N 0 THEN RETURN PRINT VIS CHR 29 L LEN TES IF L 0 THEN PRINT Pas de num ro de t l phone GOTO 6500 PRINT Je compose le num ro Prise de ligne TIE IC THEN POKE 4932278 IF NOT IC TREN POKE 49241 0 FOR J 1 TO 1000 NEXT REM Composition FORT 1 BOLA MEDS MESE EE RING KS IF 47 lt K AND K lt 58 THEN POKE 6 K 48 10 K 48 CALL COMP K REM Ajoute un d lai d 1 seconde apr s chaque chiffre IF K THEN FOR J 1 TO 1000 REM ASC K P NEXT REM Environ 1 seconde IF K THEN FOR J 1 TO 10000 NEXT REM Environ 10 secondes IF KS lt b MG GOTO 6290 P PEEK 1403 PRINT PRINT Indicatif O N CALL G80 K PEEK 16384 KS CHR K REM Indicatif IF K 27 GOTO 6550 IF K O OR K o GOTO 6280 IF K gt N AND K lt gt n GOTO 6190 FOR Y I Y
83. 00 REM REM Sulte Taper Return REM PRINT Pour continuer Taper une Touche GOSUB 300 9 PEEK 37 VTAB 22 PRINT e VTAB T9 1 POKB 36 0 CALL CL RETURN REM REM Mode NORMAL REM VTAB 2 PRINT VTAB 4 POKE 36 62 PRINT NORMAL MF FX RETURN REM REM Mode PAS A PAS REM VTAB 2 PRINT VTAB 4 POKE 36 62 PRINT PAS A PAS VR RETURN REM REM EXECUTION REM PR GOSUB 15900 GOSUR 15920 4 GOSUB 15000 IF NOT PR lt LEN ES AND ER 0 THEN 2060 GOSUB 32000 GOSUB 22090 IF ER gt Z THEN RETURN GOSUB 32200 IF NU lt gt Z THEN 2034 GOSUB 32100 IF NU 99 THEN GOSUB 3000 GOTO 20339 ER 18 RETURN IF NU gt 29 AND NU lt 39 THEN ER 6 RETURN IF NU 28 THEN ER 28 RETURN IF NU 29 THEN ER 27 RETURN GOSUB 2200 IF ER lt gt Z THEN RETURN IF MF THEN GOSUB 15920 CO 42 GOSUB 15000 VTAB 2 PRINT VTAB 24 GOSUB 1300 IF MF THEN GOSUB 15900 GOSUB 15920 CO 4 GOSUB 1 5000 GOTO 2015 IF NOT MF AND ER Z THEN GOSUB 15920 CO 42 GOS UB 15000 VTAB 2 PRINT VTAB 24 POKE 36 3 GOSUB 1300 GOSUB 15900 GOSUB 15920 C0 4 GOSUB 15000 RETURN REM REM Ex cution d un mot REM IF NU gt 99 THEN 2300 ON NU GOSUB 3100 3290 3300 3400 3500 3600 3700 3800 3900 4000 4100 4200 4300 4400 4 500 4600 4700 4800 49 00 5000 5100 5200 5300 5400 5500 5600 5700 5800 5900 6000 IF NU 31 THEN RETURN ON NU 30 GOSUB 6 100 6 200 6300 6
84. 007 Paris T l 47 34 43 98 Textco 27 Gilson Rd West Lebanon NH 03784 Stewart Rubinstein 77 Sacramento St 11 Somerville MA 02143 National Instruments 12109 Technology Bd Austin TX 78727 GW Instruments PO Box 547 Cambridge MA 02142 Brainpower 24009 Ventura Bd Calabasas CA 91302 High Performances Systems 13 Darmouth College Hwy Lyme NH 03768 X 10 185 A Le Grand Ave Northvale NJ 07647 Eudimed 98 bis bd de la Reine 78000 Versailies T l 39 02 15 30 Jasmine Computer S PO Box 1119 Mountain View CA 94042 Styleware 6405 Hillcroft Suite 201 Houston TX 77081 Batteries Included 30 Murai St Richmond Hill Ontario Canada Ap 1b5 ISD Marketing 20 Steelbase Road Unit 12 Markham Ontario Canada L3R 1B2 Electric Transit 501 Marin Street suite 116 Thousand Oaks CA 91360 Yam Educational Software 2028 El Camino Real San Mateo CA 94403 Applied Engineering PO Bax 798 Carrollton TX 75006 4 Collaborateur de Pom s vend l tat neuf un lecteur 140Ko c 1700 00 F un moniteur c 1100 00 F un Stand 250 00 F une housse c 375 00 F un joystick e c 375 00 F et un manuel de r f rence e 250 00 F crire La r daction qui transmetlra Pom s n 27 Alexandre Duback AppleWorks au travail par Alain Gargadannec et Jean Michel Jego ditions du PS 160 FF Cet ouvrage est compos de trois parties D couverte de la base de donn es du tra
85. 1 LEN A1 1 A6 D9 60 1 WINDOW CLOSE 2 RETURN S8 S7 BEEP EDIT FIEID 1 15 83 21 120 35 1 3 RETURN S55 PRINT 1 A2 RETURN e Met off les articles du menu mode sauf z mode courant qui est coch S24 FOR 1 1 TO 4 MENU 1 I 2 ABS I A3 NEXT RETURN e Met on les articles du menu mode sauf le mode courant qui est coch S31 FOR 1 1 TO 4 MENO 1 1 A3 lt gt 1 2 NEXT RETURN Contenu de la fen tre en mode Consultation S93 PENSIZE 2 2 FRAMEROUNDRECT VAR PTR X 0 16 16 PENNORMAL PENPAT VARPTR F 0 FRAMPRECT VARPTR R 0 PENNORMAL 534 BRASERECT VARPTR S 0 CB STR B7 STR B9 page IF B 9 gt 1 THEN 5 5 MOVETO 8 118 WIDTB CBS 2 178 PR INT CB RETURN Mise a jour du compteur de pages apr s action sur un bouton en mode S CI DIALOG 1 S70 E1 1 0N C1 GOSUB S71 S72 S73 S74 S15 S76 GOSDB S78 GOSUB 534 GOSUB S33 RETURN S71 B7 1 RETURN S72 B7 B7 10 RETURN S73 B7 B7 1 RETURN S74 B7 B741 El 0 RETORN S75 B7 B 7310 RETURN S76 B7 B9 RETURN tat des boutons apr s consultation d une page S78 BUTTON 1 B7 1 1 BUTTON 2 B7 lt 11 1 BUTTON 3 B7 1 1 BUTTON 4 B7 B9 1 BUTTON 5 B7 10 gt B9 1 BUTTON 6 B7 B9 RETURN Lecture et envoi d une page S33 MENU 5 SPACES I B 1 A VARPTR T 27 A A B7 1 VARP
86. 10 ORG 204A SE aE 148 BCLI LDA TABLE X 11 80 149 BEQ FIN 12 CARAC Sp 81 MESEN SR VTAB 150 CMP CARAC 13 STOCK 7 82 LDY gt ME 151 BEQ OK 14 PAGE 18 83 LDA ME 152 INX 15 DRAP AA 84 JSR STROUT 153 INX 16 COMPT 1C 85 RTS 154 INX 1 7 DRAP1 SIE 86 ENREG 155 INX 18 CH 524 87 ISR MESEN 156 BNE BCLi 19 CV 925 88 JSR INITAD 157 OK 20 PILE FE 89 BCL 158 TXA 21 STATUS SEB 90 BIT KBD 159 CMP 45 22 DATA SED 91 BMI CLAV 160 BCS SUITE 23 SLOT SEC 92 IDX 0 161 OK1 LDY 0 24 KBD 50000 93 LDA STATUS X 162 LDA COMPT 1 25 STROBE C010 94 AND 08 163 BNE PLDE100 26 HP x C030 95 BEQ BCL 164 LDA COMPT 27 STROUT OB3A 96 SSC 165 CMP 100 28 GETBYT SE6F5 97 LDA DATA X 166 BCS PLDE100 29 BASCALC FBCI 98 LDY 40 167 MODE100 30 CLREOL SFCSC 99 STA STOCK Y 168 ADC PAGE Y 31 KEYIN o PFDOC 100 ORA 1310000000 169 STA PAGE Y 32 COUT FDED 101 STA 7F7 170 BCC MO1 33 102 INC STOCK 171 INY JA Me 109 BNE SS2 172 SEC 35 R cup re n slot et 104 INC STOCK 1 173 BCS 2 36 n commande 105 LDA STOCK31 174 MO1 INY 37 106 CMP 4596 175 MO2 LDA COMPT 1 m 107 BNE SS2 176 ADC PAGE Y 39 JSR GETBYT 108 DEC STOCK 177 STA PAGE Y 40 TXA 109 DEC STOCK 1 178 JSR CONTP 41 PHA 110 JSR 179 JSR INITCO 42 CLC HM LDY f oMM 180 JMP SU TE 43 ADC 45 0 g LDA lt MM 181 PLDE100 44 STA SLOT 113 JSR STROUT 182 GLC 45 PLA 114 551 JSR KEYIN 183 LDA COMPT da 7 115 MR FINER 184 ADC PAGE
87. 1000 2000 3000 4000 5000 6000 7000 10750 GOTO 10500 11000 HOME PRINT CHR 21 END 199991 20000 REM Traitement des erreurs 20001 REM 20100 ER PEEK 222 LI PEEK 218 PEEK 219 256 20200 20210 CALL GER 20220 IF LI 20230 GOTO 20240 20230 PRINT DS CLOSE 20240 PRINT GCHR 7 20250 IF ER 255 THEN PRINT BREAK EN L IGNE LI END 20300 REM Erreurs initiales 20301 REM 20310 IF ER 6 OR ER 7 AND LI 1041 O GOTO 10420 20320 IF ER 6 OR ER 7 AND LI 1042 O GOTO 7100 20330 IFER 5 AND LI 10430 GOTO 7100 20340 IF ER 6 OR ER 7 AND LI gt 700 O AND LI lt 8000 GOTO 7100 20350 IF ER 4 AND LI 10410 GOTO 10430 20390 TF i gt 10000 AND GI lt 10500 THEN PRINT Erreur pendant l initialisati on Recharger le programme END 20400 REM Autres erreurs 20404 BEM 20410 IF ER 6 OR ER 7 OR ER 8 THEN PRINT Carnet d adresses non trouv PRINT Mettez la bonne disquette ou cr ez un nouveau carnet option SC 20420 IF ER 9 THEN PRINT Disque plein PRINT Cr ez un nouveau carnet s ur une autre disquette GOTO 20500 20430 IF ER 17 THEN PRINT R pertoire plein PRINT Utilisez une autre d isquette GOTO 20500 20440 IF ER 10 THEN PRINT Fichiers ve rrouill s 20450 IF ER 4 THEN PRINT Disquette pr ot g e 20460 IF ER 4 OR ER 10 THEN PRINT Vous ne pouvez pas modifier les
88. 1D0 2108 210 2TE8 21F0 2187 2200 2208 2240 2218 2220 E 6 AS 08 10 4F 0E AC A5 02 21 23 ES ER 69 A9 85 FU z C9 05 92 DB 2C EB 00 E6 C9 20 JA E 6 20 80 92 DB 20 A9 18 24 E8 BO A5 91 Ce 6B 18 C8 18 18 20 24 88 23 23 24 84 E6 69 18 00 80 07 07 E6 85 69 CO PE 26 c9 04 DO 23 60 00 29 81 07 96 92 DB 1C 2C 85 23 20 90 FB 4C PO E 8 49 TE 18 A5 23 A5 38 Ee 20 64 PO DO 4C A9 20 07 08 EF 85 B1 80 DO D1 16 2C BA 95 73 E9 18 23 PP BA FD 85 85 20 03 00 03 AO 20 co 06 07 DO DO 23 20 DO TO 06 A0 20 91 92 6B E8 A0 c9 90 1D 20 IG BO 18 6 B 23 08 F2 Al CB 8A A9 DO PO 07 07 F7 02 28 DO 10 FO 20 23 02 20 23 20 48 68 EB EC F 5 02 DO 03 4C 23 90 30 FO 09 1C 14 A0 DC 02 co C9 24 F D 4C 07 23 C5 DO 00 64 04 71 64 71 01 6 23 A0 85 4C 20 4C 23 25 OF 75 E6 30 07 E6 DO DB CO 12 BO 4C FU BA 20 3A 18 0A 85 85 E 6 DO 03 4C AO A9 20 3C ES 80 E6 24 PD E 6 AD 9B A9 c9 Al 2 06 FI A5 BO 68 18 23 18 C8 18 88 03 06 A1 20 JA A0 85 A0 65 18 64 20 08 E 2 AD c9 C3 63 ES OB 28 92 DB 0A ED EE 8A 03 4C 73 23 D8 20 A2 Al 8D 08 07 A9 4C 2D 00 DO 21 9B 20 66 00 FO BA 1D 1A 38 91 4C 48 AS A0 66 E8 20 20 92 DB 00 19 01 0
89. 2 1 T22 V 2 PRINT 1 A25 GOSUB S60 WIND OW 1 20 50 156 240 4 GOSU B S61 FOR I 0 TO S BUTTON 1 1 0 B 1 8 842571 128 264 25s1 N EXT B7 0 B9 0 K 2 GOSUB T98 GOSU B T11 RETURN Menu Mode article Copie d cran S43 GOSUB T141 GOSUB T140 DIM A 2 1 2 V 492 GOSUB S60 WINDOW 1 20 32 264 324 4 WIDTH 41 TEXTFONT 4 TEXIMODE 1 TEXTSIZR 9 K 1 GOSOB T98 BUTTON 1 0 Rece ption de copies active 2 274 242 289 2 GOSUB 525 0 0 TURN Menu Mode arncle Pr paratiorJEnva S44 GOSUB Tl40 DIM A 2 1 2 V 2 GOSOB 560 4 0 1 20 50 411 324 4 GOSUB S61 WIDTH 80 K 3 GOSUB T98 BUTTON 1 1 Nom bre de caract res 2 23 163 4 2 BUTTON 2 1 Envoi 228 23 389 42 6B GOSUB T30 RETURN e Mode Stockage menu Fichier et article Nouveau S46 GOSUB 1 DA 0 THEN B5 0 GOS UB S24 K 0 GOSUB T98 E7 1 RETURN Mode Stockage menu Fichier et article Ouvru S47 GOSUB S62 1P DA 0 TEEN K 4 GOS UB T98 RETURN e Mode Stockage menu Fichier et article Enregisremert S27 1F DE THEN DE 0 RRASERECT VARP 0 ELSE DE 1 PUT 195 14 L PSET MENU 3 3 ABS DE 1 RETURN e Mode Stockage menu Fichier et article Fermer S48 1F BS THEN ERROR 241 LSE GOSU B S96 110 CLOSE 3 F2 F T 111 OPEN R 3 F2 NAME F2 AS F2 mtlT PIELD 3 4 AS A3 2
90. 2 Correction 56 208 Retour 96 208 Suite 16 304 E Paqe 56 304 Repetition 96 304 Envoi Pour les polygones des boutons en mode Stockage S2 DATA 54 0 0 24 88 0 9 0 86 2 88 22 88 24 86 24 2 22 0 10 0 7 1 127 079 e D finitiondes boutons MarchelArr t et Mise 2 ro en mode Stockage DATA 16 25 6H7FFE 6H8001 6H9FF9 6H 9FF9 6H8811 6H8761 6H83C1 6H8181 6H8181 6H8241 6H84A1 6H8BD1 6H9 FF9 5H9FF9 65H8001 6H8181 6H8261 6H8241 6H82C1 6H8341 6H8241 6H86 41 6H8181 6H8001 6H7FFE 6H9141 6 H9B41 6H9581 amp H9181 6H8131 6H814 9 6H8279 6H8249 4H8001 aH FFE e D finition du voyant enregistrement en mode Stockage DATA 11 25 6H7FC0 HFFE0 6HF1E0 6H EAE0 4HE4E0 6HEAE0 6HF160 amp HFF60 S HFF60 6HC160 amp HCF60 amp HCF60 6HC 360 amp HCF60 SHCF60 6HC160 amp HFF60 amp HFF60 6HF160 6HEAE0 6HE4E0 6HEA E0 amp HF1E0 6HFFEO 6H7FCO e Pour le polygone du chrono Pom s n 27 DATA 46 12 150 40 258 12 152 12 25 6 14 258 38 258 40 256 40 152 38 150 14 150 12 152 Rectangles divers DATA 6HDDFF 14 14 14 42 165 168 80 SH77FF 208 195 170 10 8 9 5 6HD DFF 39 39 39 68 183 182 104 6H77 FF 257 206 175 176 128 127 131 Code objet de la routine Conversion DATA 6H4E56 0 6H302E 8 6H41FA 6HB8 6H721F 6H43FA GH32 6HB011 6H662 0 6H2091 6H4A69 2 6H670C 6H4A29 3 8H670C SH10BC 3 6 6014 6 10 1 6H600E 4H10BC 2 6H6008 4H5889 5H51C9 6HFFD8 6H51D0 6H4E5E 6H4E 75 6H8819 6H4161 6H8
91. 200 200 200 200 145 LDA KBD 300 June 315 TOUCHE 200 HOME PRINT OPTION M CHOIX 17 5 75 et compt a FF VTAB 20 INVERSE PRINT RETOUR 148 STA COMPT 149 150 SOURIS 210 CALL 38127 GOTO 100 151 Cherche dans la 300 VTAB 20 PRINT OK POUR FINIR 152 LDX 0 table en C400 NUERSE PRINT OUI VTAB 22 POKE 153 STX ADR l adresse r elle de 36 16 PRINT NON NORMAL d 3 lt Check d sir e 310 CALL 38127 ON PEEK 6 19 OR PEE K 7 ASC O GOTO 320 7 me Y G gt 318 IF PEEK 6 lt gt 21 AND PEEK 7 158 LDY 540 gt ASC 310 159 PLA 316 VTAB 20 CALL 64578 GOTO 120 160 JMP ADR 320 HOME END Pom s n 27 69 wa r r rm rr Y A aar 72770 c 7000 EE C Z Z Q T A yi 70 Micro informations Jean Michel Gour vitch Bouleversement dans le paysage de la micro Alors que les r sultats d IBM s effritent voici que ceux d Apple connaissent un ciel de plus en plus bleu se serait m me vendu en ao t plus de Macintosh que d IBM PC AT Le Macintosh Plus a incontesta blement dop Apple Tandis que se profilent les livraisons de l Apple IIGS et que les Macintosh ouverts connaissent semble t il quelques retards on ne parle plus de sortie avant le mois de mars les Macintosh actuels se vendent particuli rement bien Aux tats Unis il faut dire que la baisse de prix baisse de 200 dollars sur le 512Ko et de 400 dollars sur
92. 3 Bloc suivant Ecrit le contenu de C RDBUP Utilise C et HL z Fin de transmission ECRITURE LD HL STATUS Berna ECRT1 BIT 4 HL TDR vide TERMINE LD DE MSG10 JR Z ECRI1 JP PRMSG Message et retour CCP DEC HL Adresse ROR j LD ADJ C ABORT CALL PRMSG RET 1 LD DE 14SG11 PRMSG Boucle d attente nb de secondes dans B PAGE p en Routines de service Utilise A et IX d SECONDE LD IX TEMPO Adresses du port RS232 SECON1 XOR A 2 LD IX 0 A NSLOT EQU Carte en slot 2 L A 228 init temporisation DIPSW1 EQU NSLOT 1 Switches 1 LD IX 1 A DIPSW2 EQU NSLOT 2 Switches 2 5 2 DEC IX 0 RDREG EOU NSLOT48 Registre lecture JR NZ SECON2 TDREG EQU NSLOT 8 Registre criture DEC IX 1 STATUS EQU NSLOT39 Reg stre d tat JR NZ SECON2 COMMAND EQU NSLOT 0AH Registre de commande DINZ 5 1 CONTROL EQU NSLOT 0BH Registre de controle RET Clavier TEMPO DS 2 compteur KBD EQU 0 000 Conversion en Ascil du contenu de A KBDSTR EQU 0E010H Range a IX sur 3 octets Utilise A IX DE HE z Se Sp Sa gw u s s s ms e P Configuration de 1 ACIA 8 DATA 1 STOP sans Parit Vitesse courante CONVERS LD L A Ut lise A LD H 0 F LD DE 1 00 CONF_ACIA LD A CONTROL CALL 1 AND FH R cup vitesse LD DE 10 O
93. 300 OBJ 300 ENTRY EQU 0 DEVICE EQU 1 20 00 00 JSR ENTRY 04 DFB 4 DA 03 DA PARLIST 8D 11 03 STA ERROR 60 RTS 03 PARLIST DFB 3 00 DFB DEVICE or DV CTREST 04 DFB 4 00 00 CTRLST DW 0 ERROR EQU Pom sn 27 h ppren iYOx I lier Jhe Nissuoresk y L Apprenti FORTHier APF est un syst me FORTH interpr teur compilateur crit en Applesoft sous DOS 3 3 et pr vu pour fonctionner en 80 colonnes poss de de plus l int r t de visualiser le contenu de la pile de DATA et l tat du dictionnaire et permet donc de saisir le fonction nement du langage Forth Le langage Forth 1 fut invent la fin des ann es 60 et impl ment sur IBM 1130 par Charles H Moore Ses premi res applications furent consacr es l astronomie Forth est galement un outil privil gi dans le d veloppement de la ludotique Forth poss de un grand nombre d avantages e facile utiliser gr ce une syn taxe simple et peu contrai gnante l utilisation cr e son propre vocabulaire de dialogue avec la machine e efficace car semi compil il est interpr t et permet donc une programmation agr able les d finitions du vocabulaire sont compil es d o une ex cution tr s rapide sauf pour APF car interpr teur et compilateur sont crits et compil s en Applesoft ce qui est le pendant de son caract re didactique puissant car c est un langage de haut niveau qui permet ce pendant g
94. 31911 31930 31947 31948 31949 31950 31956 31960 31967 31 968 31969 31970 31997 31998 31999 32000 32010 32040 32050 32055 32060 32065 32070 32087 32088 32089 32090 32093 32095 32097 32098 32099 32100 32110 32120 32130 32240 ER 26 RETURN IF FC 35 THEN GOSUB 21350 RETURN GOSUB 21400 RETURN IF NU 34 THEN FC Z RETURN ER 26 RETURN IF FC 36 THEN GOSUB 21450 RETURN GOTO 21500 IF NU 37 THEN FC 37 RETURN ER 14 RETURN IF FC lt gt 37 THEN ER 15 RETURN IF NU 38 THEN FC Z RETURN ER 26 RETURN REM REM ENTREE d une ligne de 159 caracteres REM VTAB 2 PRINT VTAB 19 POKE 36 0 CALL CW PRINT PMS NC x FRE 0 X Z MOS 2 GOSU B 32090 IF NOT NC lt gt 159 AND X lt gt 13 THEN 31050 VTAB 2 PRINT VTAB 20 INT NC 80 POKE 36 N C INT NC 80 80 300 IF X 123 AND X gt 96 THEN X X 32 XS CHRS X IF X 27 THEN TEXT HOME GOTO 31000 IF X 8 THEN GOSUB 31950 IF X lt gt 8 THEN GOSUB 31900 GOTO 31010 F X lt gt 13 THEN ER 16 GOSUB 10000 GOTO 31000 NC NC 1 5 MIDS ES 1 NC IF RIGHTS ES 1 THEN 31060 NC NC 1 E ES REM REM REM F NOT NC 0 AND X 32 OR X PRINT BIPS IF X 13 THEN X 0 RETURN IF X lt 32 AND X lt gt 13 THEN PRINT BIPS RETURN NC NC U ES ES XS IF X lt gt 13 THEN PRINT X RETURN REM REM REM
95. 374 55 2 475 376 377 378 379 380 381 382 5569 383 384 PAUSE 385 386 387 388 389 390 391 392 393 394 395 396 397 PAUSE2 398 399 400 401 402 403 404 LDA CMP BNE LDY JSR DEY BNE LDA CMP BNE DEC LDA CMP BEQ CMP BCC LDY ST ORA STA INC BNE INC LDA CMP BNE DEC DEC JSR LDY LDA JSR JSR JMP BIT BPL INC INC LDA CMP BEQ JMP LDA JSR LDY LDA STA INC BNE INC LDA CMP BNE BEQ JSR LDY LDA JSR JSR CMP BEO JSR CARAC 19 SSC00 12 GETDATA CO2 SSC01 CARAC 13 SSC02 DRAP1 CARAC 13 SSC022 2520 01 20 STOCK Y amp 10000000 ZS SE STOCK SSG2 STOCK 1 STOCK 1 2596 SSC2 STOCK STOCK 1 UTAB lt MM STROUT KEYIN FINCOPIE DRAP1 55 5 1 24 PAUSE 01 STOCK 1 CONTP 50 FE STOCK Y STOCK PAUSE2 x STOCK 1 STOCK 1 2596 PAUSE 55 03 VTAR 45MA lt MA STROUT KEYIN 855 FINCesIE INIDRAP 59 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 438 439 440 441 464 466 467 468 469 470 971 472 473 JSR MESECR JMP COl GETDATA BIT KBD BMI GET LDX 0 LDA STATUS X AND 8 BEQ GETDATA LDA STA CARAC CEG RBS GET BIT STROBE LDA KBD SEC RT S MESECR US
96. 4 0340 80 DD 4E 00 81 DD 23 CD EF 03 10 FS5 4F CD EF 03 04C0 DD 21 12 05 AF DD 77 00 3E 62 DD 77 01 CB SE 20 0350 3E OA FD 77 00 CD BA 03 30 13 FD 35 00 20 F6 11 04D0 13 3A 00 EO B7 FA E8 04 DD 35 00 20 F0 DD 35 01 0360 2B 02 CD 06 01 FD 35 01 20 88 C3 A1 03 FE 18 20 04E0 20 EB 37 C9 2B 7E B7 C9 32 10 E0 E6 7F C9 21 A9 0370 05 11 1F 02 18 28 FE 15 20 08 11 02 CD 06 01 04F0 EO CB 66 28 FC 2B 71 C9 DD 21 12 05 AF DD 77 00 0380 18 E3 FE 06 20 D4 11 FC 01 CD 06 01 FW CB 08 46 0500 3E E4 DD 77 01 DD 35 00 20 FB DD 35 01 20 F6 10 0390 20 06 ED 34 03 63 62 5102 C3 06 01 CD 06 0510 EB C9 CD 96 6F 26 00 11 64 00 CD 40 05 11 0A 00 03A0 01 11 50 02 C3 06 01 AB EV E6 OF F6 10 32 AB 0520 GD 40 05 37 30 B5 DD 77 00 DD 7E FE FE 30 CO SE 03B0 EU 3E 09 32 AA 0 A8 E0 CY 21 A9 E0 CB SE 20 0530 20 DD 77 FE DD 7E FF FE 30 CO 3E 20 DD 77 FF C9 03C0 24 DD 21 13 04 AF DD 77 00 3E 62 DD 77 01 CB 5E 0540 AF ED 52 38 03 3C 18 F9 19 F6 30 DD 77 00 DD 23 03D0 20 13 3A 00 EO B7 FA E9 03 DD 35 00 20 FO DD 35 0550 C9 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 03E0 01 20 EB 87 C9 2B 7E BF C9 32 10 EU E6 7F C9 21 03F0 A9 E0 CB 66 28 FC 2B 71 C9 DD 21 13 04 AF DD 77 0400 00 3E E4 DD 77 01 DD 35 00 20 FB DD 35 01 20 F6 0410 10 EB C9 3E FF 6F 26 00 11 64 00 CD 41 04 11 0A p 0420 00 CD 41 04 3E 30 B5 DD 7 00 DD 7E FE FE 30 CO 12 f ti d b 0430 3E 20 DD 77 FE DD 7E FF FE 30 CO 3E 20 DD 77 FF onc 101S e ase 0440 C9 AF ED 52 38 03 3C 18 F9 19 F6 30 DD 77 00 D
97. 400 6 500 6600 6700 6800 6 900 7000 7100 7200 7300 7400 7500 7600 7700 78 00 7900 8000 RETURN REM REM Ex cution d un mot cr REM ON PEEK AD LM 3 GOTO 2400 2400 2600 2700 ER 18 RETURN REM REM le mot trouv est une CONSTANTE REM GOSUB 15200 IF ER lt gt Z THEN RETURN POKE FN VP PM PEEK AD LM 4 POKE FN VP PM 1 PEEK AD LM 5 RETURN REM REM mot trouv est une VARIABLE REM GOSUB 15200 IFER lt gt Z THEN RETURN T9 FN VP PM POKE T9 FN RO AD LM 4 POKE T9 1 INT AD LM 4 256 RETURN REM REM le mot trouv est un TABLEAU CARRAY REM PD 1 GOSUB 15210 IF ER Z THEN RETURN TP PM PM3 IF TP lt Z OR TP gt PEEK AD LM 4 1 THEN ER 33 RETURN T9 FN VP PM POKE T9 PEEK AD LM 5 TP POKE T9 U Z RETURN REM REM Ex cution d un MOT CREE REM PR I PR PR AD LM 3 Pomsn 27 2730 IF PR Z OR ER lt gt Z THEN RETURN 4010 IF PM PM U lt gt Z OR PM PM lt gt Z THEN TP 2735 PT PR PR PR PR 1 1 GOTO 3820 2740 IF PEEK PT 1 OR PEEK PT 2 OR PEEK PT 4020 TP Z GOTO 3820 3 THEN ON PT GOSUB 2400 2500 2600 GOTO 2730 4099 REM tax NOT FREE 2750 IF PEEK PT lt gt 4 THEN 2760 4100 PD U GOSUB 15210 IF ER gt Z THEN RETURN 2781 IF PEEK PT 1 255 TEEN 2730 4110 IF 8 8 Z THEN PM PM U RETURN 2752 GOSUB 15280 IF ER
98. 43 65 BRA S Boucle LINK A6 0 PE Ein UNLK A6 LEA 10 DC B 591 519 548 565 RTS CLR L 012 A0 pt _Close DC B 594 519 543 569 BRA S Sortie SCH Drapeau DC DC B 95 519 48 69 TarmponIo DCB B 50 0 DC B 99 519 543 6F Vous avez un 570 e 3 Source Delai VAGO SH C B 590 519 541 575 5 le Basic 25 2 22 22 2 22 2 ul R utine d attente Boucle pendant DC B 9E 19 543 575 N interruptions video W N est pass depuis le programme DC B 9F 519 548 575 Sur la disquette Basic par la pile entier 1 t DEB 5 1 519 538 500 d accompagnement Trap TickCount A975 E vous trouverez un DC B SA3 S19 523 S00 6 LINK A6 0 100 RUNTIME du MOVE 8 A6 D3 DC B 5 4 519 527 500 Basic Microsoft EXT B AE 5080 4 SP DC B 5 7 519 578 500 pour utiliser _TickCount E normalement les MOVE L SP D4 CC B S31 S19 S31 S00 25 h KE programmes de la 81 5080 84 5 DC B CE 19 6A 500 revue TickCount os CMEI SP D4 DC B CF 19 7A 500 BHI S el je UNLK A6 DC B D6 19 38 00 RTS E Page n na nnnn n o ununuqununununuquupnqu n t 52 Pom s n 27 Les programmes relatifs au Minitel que vous lirez dans ces pages n cessitent une pr sentation sommaire des aspects soft et hard de nos terminaux t l matiques hard mat riel d ne sera pas
99. 500 REM Recherche des fiches POL REM R 2510 N 0 PRINT NOM LM 35 MA 1 C NOS GOSUB 110 PRINT 2520 GOSUB 600 IF X0 0 THEN PRINT No m incorrect GOTO 2510 2330 20 X08Z1 X IF RIGHT CS l lt gt pn THEN X1 X1 1 C portant dle nom C GOTO 2560 2540 C C GOSUB 600 REM Astuce Code ascii suivant celui de Z 2550 C commen ant par LEFTS C LEN C 1 2560 GOSUB 500 IF N 0 GOTO 2670 2970 VEAB 6 BRENT T1 EN Fiche 5 2 9 HOME 2580 PRINT D OPEN ADRESSES L256 2590 FOR I 1 TON 2600 PRINT D READ ADRESSES R N I 2610 GOSUB 700 2620 PRINT PRINT Est ce la fiche que v ous recherchez O N 2630 CALL G80 K PEEK 16384 K CHR K IF K 27 GOTO 2680 2640 K O K o GOTO 2680 2050 IF X lt gt N AND KS lt gt h Ga o 2630 2660 PRINT VT VT NEXT I 2670 PRINT PRINT La fiche que vous rec herchez n est pas dans ce fichier PRINT Pressez une touche pour reven ir au menu ce CALL G80 N 0 2680 PRINT PRINT D CLOSE 2690 RETURN 2999 3000 REM Modification d une fiche 3001 REM 3010 GOSUB 2500 3020 IF K 27 OR N 0 THEN RETURN Pom s n 27 3030 FF N I 3040 HOME GOSUB 720 2050 VTZAB S GOPO 1200 3999 4000 REM Suppression d une fiche 4001 REM 4010 GOSUB 2500 4020 IF K 27 OR N 0 THEN RETURN 4030 PRINT PRINT D accord pour suppri
100. 51020 51020 51030 51040 51045 51050 51797 51798 51799 51800 51805 51810 51825 51820 51825 51830 51835 51860 51897 51898 51899 51900 55999 56030 56002 56003 56004 56005 56006 REM REM Recherche du numero d un mot dans le dico REM NU Z FOR I U TO NM IF TS I MOS THEN NU I I NM NEXT IF NU lt gt Z THEN RETURN IF MC 101 THEN RETURN AD DM IF AD lt AY OR NU lt gt Z THEN 32245 TP Z IF PEEK AD TP lt gt 32 THEN TP TP U GOTO 3 2213 IF TP lt gt LM THEN AD AD TP GOSUB 51800 AD PEEK AD 256 PEEK AD U GOTO 32210 FG VR FOR I Z TO LM U IF PEEK AD I lt gt ASC MIDS MOS I U U T HEN FG FX 1 LM NEXT IF FG THEN NU PEEK AD AD TP GOSUB 51800 AD EEK AD U GOTO 32210 AD TP 2 GOTO 32210 PEEK AD 256 P IF AD Z AND NU Z THEN MOS THEN NU U RETURN REM REM Gestion des ERREURS REM ER PEEK 222 IF ER gt O AND ER lt 16 THEN ER 34 GOSUB 10000 RESUME PRINT ERREUR NON TRAITEE N ER 256 PEEK 219 END REM Efface Ecran du Forth HOR T U TO S BCS I SUB 50055 RETURN REM Affiche ECRAN du Forth EN PEEK 218 NEXT EC U EL U GO TEXT POKE 33 16 POKE 32 18 POKE 34 4 POKE 35 0 9 HOME TEXT FOR I U TO 5 VTAB 4 I PORE 36 28 PRINT EC I NEXT gt RETURN REM REM Affichage Fin du DICO REM GOSUB 51900 AD DM BORT cal
101. 60 GOTO 700 100 REM Programme Principal 999 END 101 REM 1000 Q 45 REM IMPLANTATION DE LA ROUTINE KEY 110 GOSUB 1000 GOSUB 56000 1010 FOR I 0 TO Q 1 READ 28 POKE 769 1 2 NEXT 120 HOME PRINT Ce programme cree le fichier DEMOAPF qu 1020 POKE 1014 1 POKE 1015 3 i contient les phrases de demonstration PRINT utili 1190 RETURN sables par le programme APF 1 APPRENTI FORTHier sous 4200 DATA 44 0 192 16 251 473 0 192 44 16 192 41 127 142 la commande DEMO PRINT Les phrases contiennent au 0 3 201 32 144 14 165 184 24 105 3 m ximum 159 caracteres 1210 DATA 133 18 4 165 85 105 0 133 185 96 201 13 240 238 121 PRINT Le nombre de phrases est limite a 99 201 8 240 234 76 1 3 122 PRINT PRINT Taper lt C gt pour CREER une phrase ou lt V gt 30997 REM pour VOIR une phrase PRINT lt gt pour quitter 30998 REM ENTREE d une ligne de 159 caracteres 130 GET X X ASC X IF X ASC THEN END 30999 REM 140 IF X 67 OR X 99 THEN GOSUB 500 GOTO 120 31000 VTAB 2 PRINT VTAB 19 POKE 36 0 CALL CW PRINT 141 IF X 86 OR X 118 THEN GOSUB 700 GOTO 120 PMS INVERSE PRINT NORMAL NC 0 E X 142 GOTO 130 FRE 0 X 2 500 REM CREATION 31010 IF NO 160 OR X 13 THEN 31050 510 HOME PRINT CREATION d une PHRASE PRINT INPUT 31015 VTAB 2 PRINT VTAB 20 INT NC 80 POKE 36 N Numero NUS NU INT VAL NUS IF NU lt 1 OR NU C INT NC 80 80 gt 99 THEN 510 31020 6 K
102. 60 HOME PRINT IF PEEK 9728 255 O R PEEK 9729 255 THEN PRINT RIEN A CONSULTER FAITES RETURN CALL A D SL BE GOSUB 6000 A0 2 GOTO 100 170 GOTO 150 Charger un fichier 200 FOR I 0 TO 2 M I M3 I NEXT C H A2 TT M1 4 GOSUB 1100 A2 CH A0 0 ON CH 1 GOTO 600 700 100 250 FOR I TO 2 M I M2 I NEXT C H Al TT M1 2 GOSUB 1100 A1 CH 252 ON Al 2 GOTO 100 255 HOME VTAB 8 PRINT NF A CHARGER OU Pom s n 27 CHR 34 P CHR 34 GOSUB 4000 I F NM THEN 250 260 IF CT THEN CT 0 GOTO 255 270 GOSUB 6100 280 PRINT D BLOAD NM A 2500 A0 1 LF PEEK 43617 256 PEEK 43616 9471 POKE 8 INT LF 256 POKE 7 L F PEEK 8 256 GOSUB 4100 DK A1 FS 0 GOTO 100 Sauvegarder un fich ter 350 IF PEEK 9728 255 OR PEEK 9729 255 THEN CALL AD SL BE HOME PRINT RIEN A SAUVEGARDER lt RETURN gt WAIT 49 Apple 19 ecu Dos Carte SSC l 1 4 2 5 o DIN 180 5 broches HPH 5280 DIN 180 S broche 5 M le 4 5 CY Prises vues cot soudures Composants n cessaires 2 transistors 2N2222 2 resistances de 10 KQ 1 de 18 KQ 61 Y us 62 351 152 157 355 360 370 376 378 380 400 405 410 412 415 420 425 430 450 452 455 460 470 480 500 505 515 520 530 550 555 560 152 128 POKE 49168 0 GOTO 100 FOR I O TO 2 MS
103. 8 E6 85 32 A0 C8 00 9B 88 8B 21 38 4C 23 4C 0A C6 A9 c9 4C 5 28 60 20 43 00 ED F 7 A5 C6 2D 07 4C 80 25 20 FO A0 CE BD 06 C9 DO 71 BO 18 74 90 20 01 91 BD 32 20 23 20 84 85 B1 88 18 06 23 00 A5 co FO FO FO 38 E 9 AD A0 37 2228 2230 2238 2240 2248 2250 2258 2260 2268 2270 2278 2280 Si votre carte 80 colonnes TEXT Apple est active 2288 2290 207 2298 22A0 22A8 522 0 DC 20 JA GE 20 C 9 22 C9 60 24 FD 92 DB FO 4C 22 DO 13 BO 0D 20 A9 20 23 20 06 92 20 F 7 DO EC DO 73 26 8D A0 OC 20 23 FD 4C 0A 88 02 26 20 21 24 FD 8D 20 22 CA A0 DO 20 3A 4C A9 29 21 43 90 22 OC F8 IB 92 DB E 5 6B DF 4C 23 07 AS 20 A5 AS 23 20 21 20 C 9 ES 4C C 3 06 FD 06 06 80 colonnes et HGR2 PR 3 l ordre HGR2 ne vous conduit pas n cessairement effacer graphique 2 Le rem de et afficher la page avant de faire HGR2 faites POKE 49164 0 et POKE 49152 0 ce qui d sactive la carte et commute la m moire principale C9 A0 08 08 22B0 20 22B8 2200 22050 22D0 2208 22E0 22E8 22F0 22F8 2300 2308 2410 2318 JA 23 20 223 1A 62 00 0A 02 A9 C9 18 30 FO 2C 20 2328 4C 2330 VE 2388 2340 2A 08 2348 2350 2358 2360 2368 29 68 00 20 85
104. 919 6H4361 8 H8D19 6H4B63 6H8E19 6H4265 DATA 6H8F19 6H4165 6H9019 4H4365 6 9119 6 4865 6 9419 H4369 6H951 9 6H48969 54H9919 54H436F 4H9A19 4H 486F 8H9D19 6H4175 6H9E19 6H4375 GH9F19 6H4875 6HA119 6H3000 6HA 319 6H2300 6HA419 6H2700 4HA719 6H7B00 GHB119 6H3100 HCE19 6H6A 00 DATA HCF19 H7A00 6HD619 3800 6 H70D 0 6H913 6H4100 6H513 6H4200 SH813 6H4300 4H213 6H4400 4H313 H4500 H113 H4600 4H413 6H4 0 0 6H613 6H4800 6H13 4H4900 Code ebjet de la routine Clic DATA H4E56 0 4H246E 9 6 H3A2E 12 4 HCAFC GH36 6H4EBA GH144 6H4EBA a H12E H70FF 6H51C8 6HFFFE 6H4EBA SH124 6H4EBA GH12C GH4EFA aHC6 6H4E56 0 6H246E 8 6H487A 6H198 6 HA972 6H7609 6H7800 6H7A00 4H426 7 6H47FA 6H18A 6H2F13 6H4872 6H5 002 6HA8AD H4A5F 6H6600 DATA 6HA2 6H645 6H36 6H5244 6H51CB SHFFE4 GH43FA 6H166 4H47FA 6H16 A 6H51EB 5 4H22BC 15 6H99 4H237 C 6H26 6HA7 4 GH4EBA 6H132 6H661A 6H43FA 6H146 GH337C 6HB2 2 6H33 1 6 0 6 6H4EBA 4H11C 6H6758 6H 50EB 5 GH4EBA 6H124 6H50EB 4 6H4 267 DATA 6 973 6 4 5 6H6700 6H26 6H4 87A SH122 SHA972 aH4EBA SHFA sH6 708 H4A2B 4 4H66E4 H60DA 6H4A2 B 4 6H67DC 6H4EBA 6HF8 4 51 4 6H60D2 GH4A2B 4 6H6602 6H6016 6H 4A2B 5 6H670A 6H36BC 11 4H4EBA 6 HDC 6H600A 6H36BC 10 6H60F4 6H36 BC GHFFFF GH4ES5E DATA H4E75 6H4EBA H62 6H614C 6H5 OEB 4 6H4267 6HA973 6H4A5F 6H672 E 4H497A 6HC6 6HA972 6H4267 6H43 FA GHBE GH2F11 6H4872 6H50N2 6HA SAD 6H4ASF 6H6708 6H4
105. A gt INTER 20 BMI CLAVE au clavier 66 STA VECT 1 21 BIT CRAYON ou que le crayon 67 22 BPL DEB soit l ombre 68 LDY 9129 Initialise souris 23 69 JSR SOURIS 24 LDA 0 Initialise 70 LDA 48 En mode interrupt 25 STA COMPT compteurs 71 LDY 4512 video autoris es 26 STA TOUCHE 72 JSR SOURIS 27 73 LDA 0 Initialise drapeau 28 ElE BIT VBL Attend f n du 74 STA DRAP 29 BMI ELE balayage vid o 25 CLI 3 E2E BIT VBL en cours puls 76 BCL 31 BPL 2 d but du sulvant 77 BIT DRAP On boucle en 32 78 BPL BCL attendant nterrupt 33 SOE 79 SET 34 LDX 451 temporisation 80 LDA 40 Remet souris en 35 S00E 81 LDY 4512 inactif 36 BIT KBD Attend une touche 82 JSR SOURIS 37 BMI CLAVE au clavier 83 CLI 38 BIT CRAYON ou que le crayon 84 RTS 39 BMI ECLAIRE soit clair 85 40 DE X 86 INTER 42 BNE 500 boucle 87 SET 42 88 LDA ADR Sauvegarde des Poms n 27 89 STA SAVE registres 161 RESTREG 90 LDA ADR 1 162 LDA SAVE Restaure les 91 STA SAVE 1 163 STA ADR registres 92 LDA ACC 164 LDA SAVE 1 93 STA SAVA 165 STA ADR 1 94 STX SAVX 166 LDY SAVY 95 STY SAVY 167 LDX SAVX 96 LDA 0 168 LDA SAVA 97 LDY 4512 Souris nactive 169 RTS 98 JSR SOURIS Jo LDY 1 13 265575 r 100 JSR SOURIS Vue de la prise cote soudures 101 BCC SUITE Oui on la traite 3 2 102 JSR RESTREG Non on restaure Le 103 JMP BFEB et on repart 00000 104 SUITE LDA 0 Initlalise 2000 0006 107 STA COMPT les compteurs 7 680Q 106 STA TOUCHE 107 STA DRAP i 2 5 KQ Z 108 LDY 6 _
106. A EQU old page LDA TAX TXA GMP BNE LDA STA boucle cur seur LDA CEE PRA BTF BMI SBE BNE PLA SBC vait0 vaitl touche BNE BEQ PLA TXA STA STA STA TEXT sur la disquette Pom s pour r cup ration sur votre assembleur old OURCH TXTPAGE1 page TXTPAGE2 BASL Y BASL Y curseur kn D FASL Y 0 KBD touche 1 waitl 1 vait boucle BASL Y KBDSTRB 1 RTS DS 5300 jectez les disquettes 325 Bruno R mari Bien qu un bouton permette de le faire manuellement il peut tre int ressant d jecter une disquette de l Unidisk 3 5 par programme a la mani re d un Macintosh La petite routine ci contre permet de faire l op ration La commande d jection n tant pas g r e par ProDOS il faut faire appel directement la carte interface Le programme de d monstration donne les quelques lignes inclure dans votre programme Basic 4 18 Demonstration 20 Z0 30 40 50 60 70 80 BATA 32 8 Ox VO p 1112177 38 96 0 5 370 0 FOR I 768 TO 784 READ J POKE I J NEXT INPUT SLOT S NPUT DRI VE DE S SF192 256 IF PEEK S 7 THEN PRINT CE N EST PAS UN UNIBIS E ND POKE 769 PEEK S 255 3 a POKE T S Y 258 POKA 7 9 D CALL 768 ER PEEK 785 IF ER 40 THEN PRINT DRIV E NON CONNECTE END IF ER THEN PRINT ERREUR S jecti ource Ejection ORG
107. A2B 4 6H66D A 6 H60D2 4H4A2B 4 6H67D2 6H6118 H51EB 4 4H60CA 6H4A2B 4 6H6604 4 6116 6 60 6H6106 6H3684 DATA 4 610 6 60 H2F0C 64HA8C9 6 H487A H7A 6HA8BA 6H4E75 6H204C 6HA023 6H4E75 6H7036 6HA122 6H43 FA 6H68 6H22B2 6H5002 6H2351 4 6 H5369 0 aH5369 2 5H5869 4 6H5869 6 6H43F2 6 5000 6 2848 4 2050 4 H701A H30D9 6H51C8 6HFFFC 4H205 4 6H5268 10 4H5268 14 DATA 4H5268 4H22 6H5268 6H24 6H526 8 6H28 6H5268 amp 6H2C 6H5268 6H2E 6 H5268 6H32 amp H4E75 6H4267 amp H47FA GH1E amp H2F13 amp H487A 16 GHA8AD amp 6H4 ASF 6H4E75 6H487A 6 amp 6HA8A4 amp H4E 7 5 e Code objet de larounne HO DATA 6h4E56 0 6h226E 8 6h5489 6h70 00 6h1019 6hE188 DATA 6h1019 6hE188 6h1011 6h41FA 6 h006A 6h2248 6h7218 6h4259 DATA 6h51C9 6hFFFC 6h2140 18 amp hA00 0 6h43FA 6h54 6h32A8 DATA 16 4 4 5 4 4 75 4 4 56 0 4 4 1FA 6h46 6h42A8 DATA 12 4 226 8 4 1019 6 148 4 1 019 6h3140 4h26 DATA 4h7000 4h1019 6hE188 6hi0i9 4 hE188 6h1011 6h2140 32 DATA h317C 1 6h2C 4h216E 12 4h2E 6hA002 h60BA DATA 6h4E56 0 6h41FA 12 6h42A8 12 ShA001 sh60AA e Code ob jet de la routine defermeDne des fen tres Poms 19 DATA 6H42A7 gHA924 cH2E1F 6GH6706 6 H2F07 6HA916 6H60F2 6H4E75 e Code ob jet de la routine DATA 6H4E56 0 6H76FF GH266E 8 6H38 1B 6H643 11 6H3F3C 2 6H3F03 6HA8 93 6H5344 6H6B10 6H7000 6H101B 6 HC00 13 6H67E6 6H3F00 CHA883 6H6 6 4 5 6 4 75 Code objet
108. CON2 MSG DB 19 40 DONZ SECONI ASC Bad Command RET MSG1 DB 27 1 F ASC r TEMPO DS 2 conpteur DB 13 10 f ASC XMODEM Uploading Utility Conversion en Ascii du contenu de A DB 13 10 gq TeaM ASC JF R 1986 Range IX sur 3 octets DB 13 10 Utilise A IX DE HL ASC r ri DB 1971073 L0 3 CONVERS LD L A MSG2 ASC Can t open File LD H 0 DB 1320 ya LD DE 100 MSG3 ASC Waiting for receiver CALL CONVER DB 13 10 13 10 S LD DE 10 DS 1 CALL CONVERI MSG4 ASC xx Sending Bloc LD A 30H NOMBLOC ASC txxx e OR L DS 1 LD IX 0 A MSG5 ASC xx Sending EOT LD A IX 0FER ASC CP 30 H ro a z RET NZ MSG6 ASC Acknovledged LD A 20H on met un Blanc DB 139101085 LD 1 3 MSG ASE Non Acknovledged L A IX 0FFH DB 13710 5 CP 30H MSG8 ASC Cancelled RET NZ DB 13 10 PS LD A 20H MSG9 ASC Tlmeout LD IX 0FFH A DB 12 10 53 RET H CONVER1 XOR A MSG10 DB 13 10 CONVER2 SBC HL DE ASC File sent successfully JR C CONVER3 DB 134105 INC A MSG11 DB 13 10 JR CONVER2 ASC Transmission aborted CONVER3 ADD HL DE DB 13 10 46 OR 30H z LD IX 0 A Constantes et variables du programme INC IX EE o RET z T10 EQU 10 Tenporisation 10 s END T60 EQU 60 Temporisatlon 1 mn 34 Pom s n 27 EQU 10 Nombre d essais maxi BSIZE EQU 128 Taille Buffer
109. Coller tant valides il est possible de coller un de ces caract res T SUP avec un accessoire la commande Suite qui remplace uz retour chariot est suivie d un d d environ une seconde et demi ceci af m de laisser au serveur le temps de dig rer la ligne de texte Fichier Nouveau Ouvrir Enregistrer Fermer Quitter Quel que soit le mode de fonctionnemen en cours cet article ferme l ventuel fichier ouvert et provoque un retour au Finder Quelques g n ralit s Le programme est en deux parties la premi re est baptis e Minitel 1 mais ce nom peut tre chang En revanche la seconde partie doit imp rativement sappel e Minitel 2 sinon il faut modifier le CHAIN situ la derni re ligne de la premi re partie Pour lancer l ex cution du programme un double clic sur la premi re partie Si vous avez la disquette d accompagnement de ce num ro elle contient une version RunTime du Basic Microsoft Sur un 128Ko De grands efforts d optimisation ont t faits afin que ce programme fonctionne aussi sur un Macintosh 128Ko Cepen dant le syst me se trouvant un peu l troit il est pr f rable d utiliser un ancien fichier syst me num ro de version inf rieur ou gal 2 0 Les versions post rieures constituent quelque fois avec le MSBasic 2 un m lange detonnant seulement sur un 128Ko En HFS A notre conn
110. D 00 di 0450 23 C9 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2 ISQUes 500 programmes Dump hexad cimal de XMODR COM 0100 00 00 00 C3 58 03 FD CB 05 46 E 09 CA 05 00 D5 0110 11 DB 01 FD CB 05 86 CD 1B 01 D1 OE 09 C3 05 00 0120 OE 02 C3 05 00 OD OA 42 61 64 20 43 6F 60 6D ei 0130 6E 64 2E 2E 2E 24 1B 2A 20 2D 2D 2D 2D 2D 2D 2D 0140 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0150 2D 2D 2D 2D 2D 0D 0A 20 58 4D 4F 44 45 4D 20 20 0160 20 44 6F 77 6 6C 6F 61 64 69 6E 67 20 55 74 69 0170 6C 69 74 79 OD OA 20 4A 46 2D 52 20 20 20 20 20 0180 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 0190 39 38 36 OD 0A 20 2D 2D 2D 2 2D 2D 2D 2D 2D 2D 01A0 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 01B0 2D 2D 0D 0A OD 0A 24 43 61 6E 27 74 20 6F 70 65 Apple c et Image Writer 01C0 6E 20 46 69 6C 65 OD DA 24 50 72 6F 60 70 74 69 Capture le catalogue 0100 SE 67 20 53 65 6E 64 65 72 20 24 0D OA 0D OA 24 01 0 20 52 65 63 65 69 76 65 64 20 42 6C 6F 63 20 24 Imprime 01F0 78 78 78 20 20 20 20 4F 6B OA OD OA 24 20 20 Archive 0200 20 20 20 20 20 48 65 61 64 65 72 20 45 72 72 ep d 0210 72 0D OA 24 20 20 20 20 20 A 20 43 68 65 63 6B 0220 73 75 6D 20 45 72 72 6F 72 OD OA 24 20 20 20 20 Retrouve les programmes de vos 0230 20 20 20 46 61 74 61 6C 20 45 72 72 6F 72 0D 0A disquettes des trois DOS 0240 24 20 20 20 20 20 20 20 54 69 6D 65 6F 75 74 0D 0250 A 24 20 20 20 20 20 20 20 44 69 73 6B 20 45 72 0260 72 6F 72 0D A 24 20 20 2
111. DB 5 2 points d entr e avec et saut de ligne DB Pom sn 27 31 ASC UF R 1986 DB 13 10 ASC i DB 13 90 Im MSG2 ASC Can t open File DB 13 0 4 MSG3 ASC Prompting Sender MSG1 DB 19 Im O S MEGS ASC Received Bloc NUMBLOC ASC xxx Ok DB 1372103589 T0 t St MSG6 ASC Header Error DB 13 107 S MSG7 ASC Checksum Error DB 43 00 5 5 8 ASC Fatal Error DB 13 20 5 MSG9 ASC Timeout DB larla MSG 10 ASC s Disk Error DB 1340 5 14 ASC Got something but DB 13 20 5 MSG ASC Recelved EOT DB 137204 MSG12 DB 13 10 ASC File received successfully DB 13 10 MSG13 DB 13 10 ASC Transmission aborted DB 10 00 Constantes et varlables du programme Na Ba Se T10 EQU 10 Temporisation 10 s T60 EQU 60 Temporlsation 1 mn MAXTRY EQU 10 Nombre d essals maxi BSIZE EQU 128 Tallle Buffer Caract res 11 du protocole SOH EQU 1 EOT EQU 4 ACK EQU 6 NAK EQU 21 CAN EQU 24 SUB EQU 26 Table de varlables point e par IY COMPT DS 1 Compteur NESSAI DS 1 Nb d essais FINI DS SE lage fin NBLOC DS 1 Bloc courant PREBLOC DS 1 Bloc pr cedent DEBUT DS 1 Flag d part CODE 1 Code envoyer REC_BUF DS BSIZE 4 Buffer de r ception PAGE START EQU D but pro
112. DS DELETE ADRESSES PRINT D OPEN INDEX L20 PRINT DS WRITE INDEX RO PRINT 0 REM Z ro pas o PRINT D OPEN ADRESSES L256 PRINT D CLOSE RUN REM gt kk REM DEBUT DU PROGRAMME REM x x kk TEXT HOME D CHR 4 PRINT DS PR 3 REM 80 colonnes PRINT PRINT POM S pr sente POKE 32 20 PRINT PRINT PRINT vokxtitkxkooco Xkoo o kkoo o eee AE e e e e PRINT koro co o ortoocoxko rocoxos oo tee Zeeeeeeee fg PRINT Zeeeeeefttttteetttteeeteoefeiee kkk c ec cX PRINT Xos c ckoc k csk sck sc k tee Zeeeeeeee tr PRINT etttieeteee tee teeetee fteeetee kkkkik sooX POKE 32 9 PRINT PRINT PRINT toco ttiteeetttteeetttte ee 9 PRINT ee feeeeeefteeeeeefteeeeeefteeeeee ff PRINT es ita a rt a cz ce titan ce tt t a eesti PRENT ee feeeeeeegeefteeeeeeiteeteeeeeeeeeetet ee tee tac an ooco oo oro roo ooo Cidra ce t it ta a asana ra a AAA Xkokooro o orocok oo oroo oo ooY oe PRINT Fo f ra a fa ee fk ka kja s ae naa3 art fk ns a f k yk P PONE 32 0 PRINT BRENT PRINT Veuillez patienter merci 10099 OOO 10102 TOUTO 10120 101310 REM Variables principales 6 caracte res sp ciaux Q XO XleY Y1 20 00 DIM X MF 1 N MF
113. E GO TO 582 Mise jour de la fen tre en mode Copie dan S83 PENPAT VARPIR F 0 MOVETO 2 2 70 LINETO 241 270 PENNORMAL IF V 0 TEEN V 0 V 0 1 A VARPTR U 0 A VARPTR V 0 V 0 V 0 1 RETURN Mise jour de laf en tre en mode Pr pa aior Envo S84 LINE 2 2 388 20 B LINE 2 3 398 19 B MOVETO 6 16 PRINT Fichier IP 5 THEN PRINT Sans titre GOTO T12 I INSTR F 7 IS RIGHT FS LEN F 5 1 IF WIDTH I5 lt 320 THEN PRINT 15 60 TO T12 T13 15 LRFT 15 LEN 15 1 IF WIDT H I gt 320 THEN T13 ELSE PRIN T ISa T12 LINE 165 23 225 41 B LINB 165 24 225 40 B GOSUB S85 LI NE 2 44 388 271 B RETURN e Action sur un bouton en mode Pr paration Envor S86 CB EDIT 1 C4 LEN CB G ST R C4 G RIGBT G LEN G 1 E 6 DIALOG 1 IF E6 1 THEN GOSUB 5 85 RETURN IF E6 lt gt 2 THEN RETURN FOR J 1 TO C4 N ASCIMID CBS J 1 IF N gt 31 TEEN IF N lt 128 THEN PRIN T 1 CHER N GOTO 587 IF N 13 THEN N 6 B4 1 GOSUB S88 B4 0 1F N 6 TEEN A VARPTR 21 0 A 144 S87 A VARPTR 21 0 j A 6 NEXT RET URN Affichage du nombre de caract re en mode Pr paratior Envo S85 LINE 166 25 224 39 30 BF IF C4 TEEN MOVETO 166 58 WIDTB GS 2 37 GS RETURN e ruttalisat ons pour chaque changement demode S60 F CLS IF YT THEN DT 0 TIME R OFF MENU 1 A3 1 A3 M1 MENU 1 A3 2 RETU RN Sous programre de traitement des ET
114. EEK AD 256 PEEK AD U GOTO 9005 9997 REM 9998 REM Affichage des messages d ERREUR 9999 REM 10000 IF ER 34 THEN 55 Erreur d E S sur Disquette GOTO 10010 10004 VTAB 2 PRINT VTAB 2 10005 PRINT DS OPEN MESSAPF L39 PRINT DS READ MESSAPF R INPUT MSS PRINT D CLOSE 10010 VTAB 2 PRINT VTAB 23 CALL CW PRINT MSS VTAB 2 0 CO PR IF PR gt 80 THEN CO PR 80 VTAB 21 10020 POKE 36 CO 1 INVERSE PRINT NORMAL VTAB 2 PRINT VTAB 24 GOSUB 1300 VTAB 2 PRINT VTA B 23 CALL CW 10030 ER Z GOSUB 15900 GOSUB 15920 GOSUB 15300 RETUR N 10997 REM 10998 REM Mise en place du DICO 10999 REM 11000 VTAB 20 POKE 36 10 PRINT Preparation du Diction naire en COURS 11005 PRINT DS BLOAD DICO 11010 FD 34714 REM FD FINDICO 11020 DM 34705 REM DM LASTMOT DERNIER MOT 11025 AY FD REM FIN DU DICO DE BASE 11030 I DM K NM 1 Q Pom s n 27 11040 I 2 TREN RETURN 20010 IF MC 255 THEN ER 4 RETURN 11050 IF PEEK I lt gt 32 THEN TS K T K CHR P 20020 GOSUB 32000 GOSUB 32090 IF MOS CHR 13 THEN EEK I I I U GOTO 11050 ER 19 RETURN 11060 AD I GOSUB 51800 K K U VTAB 20 POKE 36 51 20030 IF ER lt gt Z THEN RETURN PRINT CHRS 42 K INT K 2 s 2 20040 GOSUB 32200 IF NU lt gt Z THEN ER 20 RETURN 11070 I PEEK AD 256 PEEK AD U GOTO 11040 20045 Al FD 11080 VTAB 20 POKE 36 0 CALL CL 20050 IF Al LM 3 gt M
115. EEN GOSUB 569 RET URN S88 A11 VARPTR A 0 A11 N A1 A1 194 A1 PREK A1 A1 A1 1 IF A 1 0 THEN RETURN FOR I 0 TO Al 1 PRINT 1 CER PEYK Al 1 NEXT 1F B4 THEN RETURN IF N lt 10 THEN GOSUB S96 RETURN Affichage du contenu de la fen tre en mode Stockage Altertion il y a deux espaces collants dans le PRINT S65 1F DT THEN TIMER STOP GOSUB S61 N 0 FOR 1 0 TO 9 IF 1 0 OR 1 7 TEEN FILIPOLY VARPTR D N VARPTR F 0 GOTO S97 IF 1 9 THEN FILIPOLY VARPTR D N VARPTR G 0 ELSE FILLPOLY VARPT R D N VARPTR B 0 S97 FRAMEPOLY VARPTR D N IF 1 0 OR 1 7 OR 1 9 TEEN TEXTMODE 1 XTFACE 8 ELSE TEXTMODE 3 TEXTFAC E 0 MOVETO D N 2 9 D N 1 11 PRINT AS I 1F 1 0 THEN TEXTFACE 8 MOVET O D 2 9 D 1 23 PRINT Fin N N 27 NEXT FRAMEPOLY VARPTR M 0 FRAMEROUNDRECT VARPTR N 0 4 4 TEXIMODE 1 TEXTFACE O MOVETO 22 7 31 PRINT 152 14 SET PUT 177 14 J PSET IF A3 1 A ND DE THEN PUT 195 14 L PSET IF DT THEN PAINTROUNDRECT VARPTR P 0 4 4 TIMER ON RETURN e On arrive ici en cas d action sur la souris et dans la fen tre S20 GOSUB S18 0N A3 GOSUB S21 S1 S 1 S1 GOSUB S19 RETURN S21 INITCURSOR A VARPTR B 21 A VARPTR D 0 GOSUB S3 1F B 230 1 THEN N B 230 9SUB S94 RETURN En mode stockage mise jour de la table d index apr s chaque action sur une commande Minitel 596 A9 lt 100 THEN 598 T0 IF A9 lt T20 TEEN S99 B5 B5 1 A B6 1
116. EN FOR I U TO TP PM PM PEEK 4615 POKE PM PM PM PM U PM PM 2 RETURN PT 2 I GOSUB 5000 PM PM U NEXT 4699 REM ROT 2906 PM PM U GOSUB 15220 IF ER lt gt Z THEN RETURN 4700 PD 3 GOSUB 15210 IF ER lt gt Z THEN RETURN 4710 PM PM 2 PM PM 2 PMS PM 8 8 2910 PR PR PT 3 TP RETURN U 8 8 PM8 PM8 TP RETURN 2950 GOSUB 15200 IF ER lt gt Z THEN RETURN 4799 REM SWAP xx 2955 T9 FN VP PM3 POKE T9 PEEK PT U POKE T9 U 4800 PD 2 GOSUB 15210 IF ER lt gt Z THEN RETURN PEEK PT 2 4810 PM PM U 8 PM U PM PM PM PM 2965 GOSUB 15220 IF ER lt gt Z THEN RETURN TP RETURN 2970 PR PR PT 3 RETURN 4899 REM geit CR ARA 2997 REM 4900 EL EL U EC U IF EL lt gt 6 THEN RETURN 2998 REM 99 immediat 223 4940 FOR I U TO 4 ECS I ECS I U NEXT EC 5 2999 REM EL 5 3000 GOSUB 15200 IF ER Z THEN PM3 PM VN 4920 GOSUB 50055 RETURN 3005 RETURN 4999 REM 2 EMIT 3099 REM 5 2 5000 PD 1 GOSUB 15210 IF ER lt gt Z THEN RETURN 3100 PD 2 GOSUB 15210 IF ER lt gt Z THEN RETURN 5010 IF PM8 PM8 gt 255 OR PM PM lt 32 AND 8 8 lt 3105 8 8 PM PM U GOSUB 15400 IF ER gt gt 13 THEN ER 30 RETURN Z THEN RETURN 5015 IF PM PM 13 THEN GOSUB 4900 RETU
117. ETURN 20317 IF FC 36 THEN ER 14 RETURN 15919 REM Efface Pile APRES 20318 IF FC 37 THEN ER 13 15920 POKE 33 7 POKE 32 42 POKE 34 3 POKE 35 14 HOME 20319 IF ER lt gt Z THEN RETURN TEXT RETURN 20320 IF Al 3 gt MX THEN ER 4 RETURN 15997 REM 20330 POKE A1 255 A1 Al U POKE Al INT DM 256 A1 15998 REM DEMO Al U POKE Al FN RO DM A1 Al U DM FD 15999 REM 20340 FD A1 MC MC U GOSUB 51000 16000 GOSUB 15900 GOSUB 15920 GOSUB 50005 GOSUB 15300 20345 MOS GOSUB 32090 VTAB 2 PRINT VTAB 24 POKE GOSUB 1360 367 Z 16005 VTAB 2 PRINT VTAB 23 PRINT Numero de DEMO XX 20350 RETURN gt mr CALL CW XS X ASC IKS 48 TF X 0 20899 REM OR X gt 9 THEN PRINT BIP GOTO 16005 20900 VTAB 2 PRINT VTAB 24 POKE 36 8 PRINT Compilat 16010 X PRINT XS GET X IF X CHRS 13 THEN 1 ion en cours Soyez patients RETURN 6025 20997 REM 16015 X ASC X 48 IF X lt O OR X gt 9 THEN PRINT BI 20998 REM Analyse SYNTAXIQUE des structures de PS GOTO 16005 ntrole de 16020 NE 10 X PRINT X GET X IF X lt gt CHR 20999 REM 13 THEN PRINT BIPS GOTO 16005 21000 IF FC Z THEN GOSUB 21050 RETURN 16025 VTAB 2 PRINT PRINT D OPENDEMOAPF L160 VTAB 2 21010 GOSUB 21100 RETURN PRINT PRINT D READDEMOAPF R NE ES S 21050 NU 31 OR NU 33 OR NU 36 THEN FC NU RETU 16040 GET X IF XS CHR 13 THEN 16050 RN 16045 ES
118. EY X PEEK 768 X CHR X IF X lt 123 AN 520 GOSUB 31000 PS D X gt 96 TREN X X 32 X CHRS X 530 FOR I 1 TO LEN ES 31030 IF X 8 THEN GOSUB 31950 540 IF MIDS ES If 1 gt CHRS 96 AND MIDS ES I 1 lt 31040 IF X lt gt 8 THEN GOSUB 31900 CHRS 123 THEN PS PS CHRS ASC MIDS E I 1 31041 GOTO 31010 32 GOTO 550 31050 IF X lt gt 13 THEN 31000 545 PS PS MIDS ES I 1 31060 NC NC 1465 MIDS ES l NG IF RIGHTS ES 550 NEXT ES P THEN 31060 560 PRINT D OPENDEMOAPF L160 31061 RETURN 570 FOR I 1 TO LEN ES PRINT DS WRITEDEMOAPE R NU 31897 REM B I l PR NT MIDS ES I 1 NEXT 31898 REM on n a pas tape CTRL H 580 PRINT DS CLOSE RETURN 31899 REM 699 REM VOIR 31900 IF NOT NC 0 AND X 32 OR X 13 THEN 31910 700 HOME PRINT VOIR une PHRASE PRINT INPUT Numero 34906 PRINT BIPS IF X 13 THEN X 0 Pom s n 27 31907 31910 31811 31930 31947 31948 31949 31950 319596 31960 31967 31968 31969 31970 56000 56010 56020 56099 57000 57010 57020 57030 57040 58000 58001 58010 58015 58016 58020 58030 58040 58045 58050 58060 58065 5807U 58080 RETURN IF X lt 32 AND X lt gt 13 THEN PRINT BIPS RETURN NC NC UES ES XS IE X lt gt 13 THEN PRINT X INVERSE PRINT NORMAL RETURN REM REM on a tepe CTRL H REM IF NC 0 THEN PRINT BIPS RETURN GOSUB 31970 RETURN REM REM
119. FF lt gt PF G TO 1270 PRINT D WRITE INDEX R0 1 NF NF 1 PRINT DS WRITE ADRESSES R FF PRINT NOS PRINT PRS PRINT ADS PRI NT VIS BRINT TES PRINT RES PRINT DS CHOSE X EF XO X FF 1 Kl IF FF PF GOTO 1000 REM Insertion en continu RETURN REM Rubriques BEM PRINT NOME gt UB 110 NO C GOSUB 600 IF X0 GOTO 1120 POKE 36 41 PRINT Pr nom LM 3 0 5 PR GOSUB 120 PR C GOTO 1120 PRINT Adresse LM 70 C ADS GOSUB 120 AD C GOTO 1120 PRINT Ville LM 38 5 GSUR 4205 VES 1655 GOTO 1120 POKE 36 46 PRINT T l phone P2 CS TES GOSUB 120 TE5 T 1120 LM 250 LEN ADS PRINT NF LM 35 C NOS GOS 0 THEN RETURN G ALM C5 GO LEN NOS LEN VIS LEN PRS LEN PES LM 64 LM gt 64 LM LM lt 65 IF LEN RES gt LM THEN PRINT CHRS 29 1590 PRINT Renseignement C RES G OSUB 120 RE GOTO 1120 1999 2000 REM Recherche et impression d une fi che 2001 REM 2010 G S B 2500 2020 IF K 27 OR N 0 THEN RETURN 2030 PRINT PRINT Impression de cette f iche 0 N CALL G80 PRINT 2080 K5 CHRS PEEK 16394 a IF K gt O AND K gt o THEN RETURN 2050 PRINT D PR 1 I 10 2060 PRINT SPC I M FPRS NOS 2070 PRINT SPC PPADS PRINT SPC I PV IS 2080 PRINT D S PR 3 2090 RETURN 2210 PRINT VTS VES 2499 2
120. G Forth distribu par le Forth Interest Group Forth 79 TransForth avec des nombres r els de Paul Lutus GraForth avec de puissantes possibi lit s graphiques de Paul Lutus Poms n 27 Liste des mots du Fichier DICO 86B0 A5 4B 45 59 20 00 1A 86 dictionnaire de DICO 86B8 AB 43 4C 53 20 00 1B 86 cr par CREDICO 86C0 B1 3A 20 00 1C 86 B9 3B 157 colonne puis 2 M colonne 86C8 20 00 1D 86 C1 49 20 00 Apr s avoir saisi ce code a KEY 86D0 1E 86 C7 44 4F 20 00 1F CLS sous moniteur vous le 86D8 86 CD 2B 4C 4F 4F 50 20 sauvegarderez par 86E0 00 20 86 D3 49 46 20 00 BSAVE DICO A 8601 L 19A 86 8 21 86 54 48 45 4 20 lt I 8604 28 20 00 01 00 00 2D 86F0 00 22 86 E4 45 4C 53 45 DO g l 20 00 00 865 01 226 0006 sore 20 00 23 86 B 42 4547 gt LOOP 8610 04 86 07 r 20 00 04 86 8700 49 4E 20 00 24 86 F4 57 IF dcad D 32 208 00 05 86 13 30 8708 48 49 4 45 20 00 25 86 AND THEN 8620 20 00 06 86 19 3E 20 00 AO ers WS S 45 41 54 20 OR ELSE Seen 09 86 Ab 3C 3B 20 00 08 omme 00 26 87 07 43 dm 48 58 NOT BEGIN 8630 86 25 41 4E 44 20 00 09 8720 54 41 4E 54 20 00 27 87 55 geg ascuas Fr 52 80 n 86 8728 11 56 41 52 49 41 42 4C SRP e 8640 32 4 ap 154 20 00 0 86 Ser M 30 00 23987 160 Y 8648 3A 44 55 50 20 00 OC 86 9038 se Y 41 59 20 00 29 87 sb a 8650 41 44 52 4F 50 20 00 0D 87 40 2 9 dE 52 47 45 54 20 ei 8658 86 49 4F 56 45 52 20 00 8748
121. I M2S I NEXT C H Al TT M1 3 GOSUB 1100 A1 CH ON Al 2 GOTO 100 IF Al lt gt DK THEN 4200 HOME UTAB 8 PRINT SAUVEGARDER OU CHR 34 CHR 34 GOSUB 4000 IF NM THEN 350 FF THEN CT 0 GOTO 355 GOSUB 6100 IF DR THEN 380 GOSUB 4100 PRINT D BSAVE NM5 A 2500 L LF A0 1 FS 0 GOTO 100 HOME ON A0 1 GOTO 405 450 Recevoir une s quence PRINT PRINT ENVOI RETURN PRINT PRINT CORRECTION CTRL C DEL PRINT ANNULATION CTRL X PRINT SUITE CTRL I TAB PRINT REP C TKL B PRINT SOMMAIRE CTRL S PRINT Y GUIDE CTRA5G PRINT REFOUR CTRL R PRINT CONNEXTON CIRL K PRINT FIN DE PAGE TRL E PRINT DECONNEXION CTRL M PRINT FIN ESC GOSUB 7000 CALL AD SL EN PRINT D PR O IF PEE K 9728 gt 255 THEN Al 0 GOSUB 41 00 DR 1 DK 0 FS 1 GOTO 355 DR 0 GOTO 100 Consulter une s guence ON SL 6 GOTO 4300 IF Al lt gt DK THE N 4200 GOSUB 7000 M 0 1200 BAUDS M 1 4800 BAUD S M 2 M3 2 1 3 CH BD GOSUB 1100 ON CH 2 GOTO 150 BD CH ON BD GOSUB 4600 HOME PRINT PRINT FLECHES PASSER DE PAGE EN PAGE PRINT ESC ABANDONNER LA CONSULTATION CALL AD SL LE PRINT DS PR 0 ON BD G OSUB 4610 GOTO 100 HOME ON AO 1 GOTO 505 550 Recevoir une copie d cran PRINT PRINT MODE COPIE D ECRAN PR INT PRINT PRINT FAIRE lt RETURN gt AVA
122. LSE GOSUB S68 C3 0 RE TURN Menu Fichier en mode Consultation T10 0N M1 GOSUB 546 11 527 532 52 8 RBTURN e Mode Consultation menu Fichier et atic le Ouvrir T1 F FIIES 1 mt1F GOSUB 53 120 IP F THEN RETURN OPEN R 3 F T FIELD 3 4 AS A3 2 AS A4 GET 3 1 121 A CVS A35 IF A lt gt 123 4567 TB EN ERROR 254 B9 CVI A4 IF B9 THEN B7 1 ELSE B EBP Fr CLOSE 3 RETURN FOR 1 2 TO B9 2 GET 3 1 1 1 2 CVI A4 A1 1 2 CVS A3 NEXT CLOS E 3 GOSUB S24 K4 GOSUB T98 GOSU B S78 A5 CER LEN F F A VARPTR T O A VARPTR A5S5 IP T 64 THEN ERROR 255 PRINT 1 CHR 12 GOSUB S33 RETURN e Mode Consultation menu Fichier et atic le Fermer S32 FOR I 1 TO 6 BUTION 1 0 NEXT B 7 0 B9 0 GOSUB S34 A VARPTR T 5 6 A GOSUB S31 K 2 GOSUB T98 F S RETURN Menu et mode Copie d cran S30 0N M GOSUB 545 51 529 554 559 RETURN e Menu Fichier en mode Copie d cran S29 0N M1 GOSUB S25 S1 S27 130 S28 RETURN e Mode Copie d cran Fichier et article Ouvnr S25 GOSUB S79 1F DA THEN K 1 GOSUB T98 MENU 1 3 2 BLSE V 0 0 BUTT ON 1 1 LINE U 1 242 269 30 BF GOSUB S24 E5 24 K 4 GOSUB 98 B5 INPUT LOC 2 2 RETURN Mode Copie d cran menu Fichier et article Fermer 130 CLOSR 3 B2 0 BUTTON 1 0 B3 0 G OSUB S31 K 1 GOSUB T98 F RET URN Menu Fichier en mode
123. NC DE DINZ WAIT Traitement du Bloc regu We a Be LO DE MSG5 CALL PRMSG LD IX REC BUF LD DE MSG6 LD A SOH CP IX 0 JR NZ REFUSE LD A IX 2 CPL CP IX 1 JR NZ REFUSE Header correct Pom s n 27 CP IY 4 JR Z ACCEPTE LD DE MSG8 CP IY 3 JR NZ ANNULE Bloc pr c dent Bloc attendu XOR A Init cheksum LD IX REC BUF 3 LD B BSIZE CALC CHK ADD A IX 0 INC IX DINZ CALC CHK 1D DE MSG7 CP IX 0 JR NZ REFUSE Chksum Ok Ecriture sur Disque des donn es LD 21 LD DE FCB CALL BDOS OR A Probleme LD DE MSG10 JR NZ ANNULE Oui on ferme LD A IY 3 LD 1Y34 A INC IY 3 Bloc suivant r Accepte le Bloc regu ACCEPTE LD IX NUMBLOC CALL CONVERS LO DE NUMBLOC LD A ACK No de bloc en Ascii D F SUIVANT LD IY 6 A LD 1 LD IY 1 A 21 essai CALL PRMSG JP ENVOI Validation Refuse le Bloc re u REFUSE LD A NAK JR SUIVANT gt Annule la transmission ANNULE CALL PRMSG LD C CAN CALL ECRITURE LD Bus CALL SECONDE CALL ECRITURE LD DE MSG13 JR CLOSE Fin de transmission TERMINE LD DE MSG11 CALL PRMSG LD C ACK CALL ECRITURE LD DE MSG12 CLOSR CALL PRMSG LD C 16 Ferme le fichier LD DE P GB CALL BDOS LD DE BUFFER LD C 1AH JP BDOS PAGE Routines de service E SS Adresses du port R8232 Dome n 27 Glossaire Les messages en anglais simplifient les transmissions o
124. NT D PR O 5020 VTAB 18 PRINT 1F U 8 THEN PRINT ERREUR D ENTREE SORTIE 5030 IF U 6 THEN PRINT FICHIER INTROUV ABLE 5035 IF U 13 THEN PRINT ERREUR DE TYPE DE FICHIER 5040 IF U 9 THEN PRINT PAS DE PLACE SU R LE DISQUE 5045 PRINT lt RETURN gt WAIT 49152 128 PO KE 49168 0 5050 IF LI 280 THEN 255 5060 IF LI 380 THEN 355 5070 IF LI 780 THEN 760 5080 IF LI 4057 THEN UK 1 GOTO 4000 5090 IF LI 4430 THEN 4400 5091 END SP attend une touche 6000 WAIT 49152 128 POKE 49168 0 RETURN Pr fixes pour fichiers binaires 6100 IF Al O THEN NMS S NMS 6110 IF Al 1 THEN NM C NMS 6120 RETURN Initialise SSC Minitel 7000 PRINT D PR SL PRINT DS PR 0 RETU RN R capitulation MINITEL Apr s avoir saisi ce code sous moniteur vous le sauvegarderez par BSAVE MINITEL AS204A L54B5 204A 2050 2058 2060 2068 2070 2078 2080 C 9 2088 20390 20398 20A0 20A8 A0 20B0 20B8 2060 2068 20D0 20D8 20E0 20E8 20F0 2100 2108 2110 2118 2120 2128 21305 2138 2140 2148 2150 2 151868 2160 2168 2270 A4 2118 2180 2188 2190 2155 21A0 2128 21B0 2188 2100 720 69 0A ED 00 01 297 22 20 JA 23 Al 07 08 08 20 521 Al 205 20 20F8 3A 06 00 92 A4 E 8 2D 20 20 02 20 21 04 71 91 18 23 32 A0 8D 18 08 218 281 A0 21C8 09 2
125. OSUB S19 IF Bl THEN 1 0 090 548 IF DE 0 THEN IF A8 THEN CES INPUTS A8 2 GOTO 10 13 IF B2 THEN IF B3 TEEN A8 LOC 2 IF A8 THEN GOSUB S80 GOTO 10 14 GOSUB S63 GOTO 10 15 GOSUB 130 GOTO 10 20 N ASC C IF N 13 OR N 3 THEN N 9 GOTO 30 IF N 8 THEN N 4 GOTO 30 IF N 9 TEEN N 6 GOTO 30 IF N 27 THEN N 3 GOTO 30 IF N gt 31 AND N lt 128 THEN PRINT 1 CHR N ELSE GOSUB S94 GOTO 10 30 A VARPTR B 0 A N VARPTR D 0 GOSUB S94 GOTO 10 s On arrive ici en cas d action sur un menu S17 GOSUB S18 MO MENU 0 M1 MENU 1 IF M cG TEEN ON GOSUB T7 T8 S30 T9 MENU GOSUB S19 RETURN e Menu et mode Stockage T7 0N M GOSUB S45 S1 S50 S54 S59 RETURN e Menu etmode Consultation T8 0N M GOSUB S45 S1 T10 S54 S59 RETURN e Menu et mode Preparatioru Envoi T9 0N MO GOSUB S45 S1 S35 S54 S59 RETURN e Article Stockage du menu Mode S45 1F M1 A3 THEN RETURN ON GOSUB Ul U2 U1 U4 MENU 4 0 M1 gt 1 1 IF Mi 2 THEN FOR I 1 TO 4 MENO 5 1 1 lt 3 1 NEXT MENO 5 3 2 ELSE FOR I 1 TO 4 MENU 5 1 I gt 2 1 NEXT IF M1 4 TEEN CB Enregistrer EL SE CB Enremistrement MENU 3 3 1 CB A FRE ERASE A I V ON M1 GOSUB 541 542 543 54 4 RETURN U2 IF DV TEEN DV 0 V 12 PRINT 1 CHR 27 kd U4 CLOSE 1 RETURN U 1 CLOSE 1 CLOSE 2 RETURN e des caract res si n cessaire S94 1F Nc10 THEN IF LOC 2 TEEN BE EP RETURN IF N 10 OR N 11 T
126. PM lt 11 THEN PM PM 1 RETURN KE Al LM U FOR I U TO LM U POKE Al I ASC 15201 ER 21 RETURN MIDS MOS I U NEXT Al LM GOTO 20210 15209 REM Y a t 1l assez d elements sur la pile 20160 IF NU lt gt 99 THEN 20170 15210 IF PM lt PD THEN ER 1 20161 IF Al 3 gt MX THEN ER 4 GOTO 20300 15211 RETURN 20162 POKE A1 129 A1 Al U TP UN POKE Ai INT TP 15219 REM Pile de retour saturee 22 256 A1 Al U POKE Al EN RO TP A1 Al U 15220 IF PR lt 255 THEN PR PR 1 RETURN GOTO 20210 15221 ER 21 RETURN 20170 IF NU 29 THEN CP FX GOTO 20300 15297 REM 20180 NU gt 29 AND NU lt 39 THEN GOSUB 21000 IF ER lt 15298 REM Initielisation des Piles gt 2 THEN 20300 15299 REM 20190 IF Al 2 gt MX THEN ER 4 GOTO 20300 15300 PM Z PR Z MOS GOSUB 32090 RETURN 20200 POKE A1 128 A1 Al U POKE A1 NU Al Al U 15397 REM 20210 GOSUB 32000 GOSUB 32090 GOSUB 32200 IF NU lt gt Z 15398 REM Test si resultat entre NN et NX THEN 20300 15399 REM 20211 GOSUB 32100 IF NU lt gt Z THEN 20300 15400 IF TP lt NN OR TP gt NX THEN ER 3 20212 IF MO CHR 13 THEN ER 19 GOTO 20300 15401 RETURN 20213 ER 18 15897 REM 20300 GOTO 20110 15898 REM Efface Pile AVANT 20310 IF ER lt gt Z OR CP THEN RETURN 15899 REM 20315 IF FC 31 THEN ER 10 RETURN 15900 POKE 33 7 POKE 32 4 POKE 34 3 POKE 35 14 HOME 20316 IF FC 33 OR FC 35 THEN ER 7 RETURN TEXT R
127. POKE 36 EC 17 GOSUB 3910 IF PM PM U 2 OR PM PM Z THEN Z GOT 300 VTAB 2 PRINT PM8 PM8 ASC X RETURN o 3820 5699 REM Fx CLS t 3920 TP 1 GOTO 3820 5700 GOSUB 50005 RETURN 3999 REM OR 22 2 5799 REM erer 4000 PD 2 GOSUB 15210 IF ER lt gt Z THEN RETURN 5800 ER 23 RETURN Pom s n 27 23 5899 5900 599 9 6000 6020 6030 6099 6100 6110 6 199 6200 6 210 6215 6220 6230 6299 6300 6310 6320 6330 6340 6393 6400 6499 6500 6599 6600 6699 6700 6710 6720 6799 6800 6899 6900 6910 6999 7000 7005 7006 7010 7012 7015 7020 2025 7030 7035 7040 7050 7060 7099 7100 7105 7110 7115 7116 7120 7125 7130 7140 7145 7150 7198 7200 7205 7210 7245 7216 7220 24 REM d 25 ER 27 RETURN REM I ada IF PO Z THEN ER 24 RETURN GOSUB 15200 IF ER lt gt Z THEN RETURN PM PM ID RETURN REM seen DO uda PD 2 GOSUB 15210 IF ER lt gt Z THEN RETURN ID PM 8 11 PM PM U PM PM 2 PO PT RETURN REM FEKT 34266 PD U GOSUB 15210 IF ER lt gt Z THEN RETURN IF PO Z THEN ER 11 RETURN ID ID PM PMS PM PM U IF ID lt II TREN PT PO RETURN REM t IF PD U GOSUB 15210 IF ER lt gt Z THEN RETURN IF PM8 PM8 gt Z THEN PM PM U RETURN PM PM U ND 35 GOSUB 8800 IF PT lt MX THEN RETURN ND 34 GOSUR
128. PRINT La recherche des erreurs prend du temps Soyez PATIENTS 57145 57150 57151 ecriture d 57152 57155 PRINT Ne jamais taper CTRi C 57160 VTAB 24 POKE 36 12 GOSUB 1300 57180 RETURN 57199 REM 57200 REM Ecran de travail 57201 REM 57205 GOSUB 57700 INVERSE FOR I 4 TO 14 VTAB I POK E 36 so BRINT POKE 36 117 PRINT 5 OKE 3 6 39 PRINT f ps POKE 36 49 BRINT NEXT 57210 VTAB 15 POKE 36 1 PRINT 2 BONE 36 392 BRINT VTAB 16 POKE 36 2 PRINT PILE AVANT POKE 36 40 PRINT PILE APRES 57215 VTAB 4 POKE 36 16 PRINT ECRAN miz V TAB 10 POKE 36 16 PRINT Y FOR I 5 TO 9 VTAB I POKE 36 16 PRINT PO KE 36 34 PRINT NEXT NORMAL VTAB 12 POKE 36 16 PRINT MOT en COURS VTAB 4 POKE 36 54 PRINT MODE VTAB 11 POKE 36 53 PRINT FIN du DICTIONNAIRE 57220 57225 57299 RETURN 57699 REM 57700 REM TITRE 57701 REM 57705 HOME PRINT 30 TIS RETURN 57799 REM Fichier DEMOAPF cr par le programme CREDEMO Phrase 1 123 58 78 SWAP DUP AND 1 lt gt Phrase 2 CLS FORTH 42 78 555 4 Phrase 3 AIDE LISTEMOTS 12 45 78 96 DUP DROP SWAP 45 OVER 78 ROT Phrase 4 gt BOOM CR ESSAI BOOM Phrase 5 VALIDE KEY BEGIN 13 lt gt WHILE KEY REPEAT RT Pom s n 27 Phrase 6 ESSAI VALIDE CR Phrase 7 VARIABLE XYZ Phrase 8 24 CONSTANT CST Phrase 9
129. QUE CHATERIEL ET FOURNITURES DIVERS LES ULIS ESSONNE 3 8 6 1 69 07 15 93 Qu bec Apple Computer France av Gc gnie C1 69 28 22 00 neme adresse C1 69 28 12 11 Reple Computar Franca Axel SA D 69 28 27 27 Qu bec gt plus d informations topez Je H cholsl page suivante gt SUITE uis EMO Recepten de copins a lise Le mode Copie d eran est utilis conjointement aux fonctions du m me nom disponibles sur la plupart des mod les de Minitel Fnct I puis F pour une copie d cran avec caract res accentu s Fnet I puis A pour une copie d cran sans caract re accentu Pour que la r ception de copie s fonctionne il faut qu un fichier sur leqvel seront dirig es les informations soit ouvert et que le bouton R ception de copies actives soit on Ce dernier est n cessaire pour ne pas accumuler tout ce qui est envoy par le Minitel entre deux copies d cran Si plusieurs copies sont enregistr es sur le m me fichier elles sont s par es par deux sauts de ligne et une ligne de Pratiquement pour faire une copie d cran on suppose qu un fichier est ouvert il faut mettre le bouton R ception de copies actives on e faire Fnct I puis F ou Fnct 1 puis A sur le Minitel Si l ordre n est pas respect on peut avoir une copie tronqu e et en m me temps l impression de ne plus avoir la main
130. R 10H Data et Stop CALL CONVERI LD CONTROL A LD A 30H LD A 9 RTS DTR sans parit OR L LD COMMAND A LD IX 0 A LD A RCREG z Init RDR LD A IX 0FEH RET CP 30H 22 RET NZ r Routine de lecture du port RS232 LD A 20H on met un Blanc LD IX 0FEH A Retour avec caract re dans A et Carry 0 LD A IX 0FFH ou retour au bout d une seconde avec Carry 8 1 CP 30H S frappe Clavier retour avec car clavier RET NZ Utilise A HL IX LD A 20H z LD IX 0FFH A LECTURE LD HL STATUS RET BIT 3 HL RDR plein CONVER 1 XOR A JR NZ LECT2 CONVER2 SBC HL DE LD IX TEMPO JR C CONVER3 XOR A INC A LO IX 0 A JR CONVER2 LD A 98 CONVER3 ADD HL DE LD IX 1 A OR 30H LECTII BIT 3 HL LD IX 0 A JR NZ LECT2 INC IX LD A KBD RET OR A UP M LECT3 END DEC IX 0 JR NZ LECT1 DEC 1X 1 Dump hexad cimal de XMODE COM JR NZ LEST1 SE 0100 00 00 00 C3 6D 02 OE 09 C3 05 00 OE 02 C3 05 00 RET 0110 0D DA 42 61 64 20 43 6B 6D 60 61 SE 64 2E 2E ZE LECT2 DEC HL Adresse RDR 0120 24 1B 2A 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D LD A HL 0130 20 2D 2D 2D 2D 20 2D 2D 2D 2D 2D 2D 2D 2D 0D QA OR A 0140 20 58 4D 4F 44 45 4D 20 20 20 55 70 6C 6F 61 64 RET 0150 69 6E 67 20 55 74 69 6C 69 74 79 OD OA 20 4A 46 LECT3 LD KBDSTR A 0160 20 52 20 20 20 20 20 20 20 Bo 20 20 20 20 20 20 AND ER 0170 20 20 20 20 31 39 38 36 0D 0A 20 2D 2D 2D 2D 2D 36 Poms n 27 o a 1 0180 2D
131. R VTAB LDY gt MC LDA lt MC JMP STROUT 16 10 40 LDA FF STA STOCK Y JMP VTAB INIDRAP LDA 0 STA DRAP STA 1 RTS k Caract re gt SSC P V a NEE LST ENVOI TXA PRA ENVOI1 LDX 0 LDA STATUS X AND 10 BEQ ENVOI1 LDA CARAC STA DATA X PLA TAX RTS RS Tnit les compteurs R A AN E INITAD LDA 0 STA STOCK STA DRAP STA DRAP STA PAGE LDA 4526 STA STOCK STA 1 DEC PAGE 1 LDY 0 LDA 0 STA PAGE Y LDA 526 INY STA PAGE Y 974 475 476 477 476 473 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 498 499 500 501 502 503 504 505 506 507 508 503 570 911 512 513 514 515 2 17 518 5139 520 221 522 2 524 325 527 328 529 530 537 532 383 534 336 536 957 538 339 540 541 542 JSR RTS INITCO LDA STA STA RTS INITCO 0 COMPT COMPT 1 Bient t satur CMP BCC JSR C1 RTS TYA PHA TXA PRA LDY C TY ROR TAX D DE X BNE BIT DEY BNE PLA TAX PLA TAY RTS LDA STA JSR RTS LDA STA LDA STA JSR 8590 cd BEER ve v v gt 540 HP 0 CH 23 CV BASCALC CLREOL Envoi de caract res 543 544 545 546 547 548 549 530 351 552 553 554 355 556 557 558 559 560 561 562 563 564 565 566 567 568 569
132. RIS FIVOLEVSKI 1986 N VIAB WP 1 BOR I 0 TO NG de H TAB HP 22 ERP I 19 fC St T PRINT NEXT I HTAB HP 2 PRINT VTAB 23 PRINT TM IF LC GOTO 10590 PRINT Tapez un nombre ou utilisez les fl ches pour choisir une option Puis RETURN GOTO 10600 PRINT Tapez un nombre ou pressez Az UNAS ot MESE MENTES O our s l ctionner une option Puis pre tO ACHOPXSTPNC sser TOS UM NTS REM Entr e du choix IF PT OLD THEN GOTO 10630 VTAB OLD 2 VP HT B HE PRINT SPCT 20 PRINT HP PREMT CHOLXS OLD HTAB HP VTAB PT 2 VB PRINT LEFT TB LEN CHO IXS PT E r HTAB HP BRINT I ANIS WAIT 16584 128 POKE 46366 K PEEK 16384 OLD PT IF 10 PHEN PT PP 1 NC 1 PT NC IF K 11 THEN PT PT 1 NC 1 PT 0 IF 47 lt K AND K lt 49 NC THEN PT K 49 IF PT lt THEN PT NC IF K gt 13 THEN GOTO 10600 REM Ex cution de la commande MM NC GOTO 11000 0 AND PT gt THEN VTAB 22 PRINT I Commande impossible fichier vide N OLD GET K PRINT 26 0 HOME PRIMP VTAB Ps APAB 2 PRINT CHOIX PT POKE 365 510 PRT NT ESC Retour au menu general N gt POKE 54 5 PRINT BRENT H il o II GOTO 1060 Poms n 27 PT PT 0 10740 ON PT 1 GOSUB
133. RN 3110 PM PM U TP PM PM U RETURN 5020 EC EL ECS EL 5 PM PM8 VTAB 2 PRINT 3199 REM vax VTAB 4 EL POKE 36 17 EC PRINT CHRS PM PM 3200 PD 2 GOSUB 15210 IF ER lt Z THEN RETURN EC EC 1 IF EC 17 THEN GOSUB 4900 3205 8 8 U PM3 PM3 GOSUB 15400 IF ER lt gt 5030 PM PM U RETURN Z THEN RETURN 5099 REM STORE xax 3210 PM PM U TP PM PM U RETURN 5100 PD 2 GOSUB 15210 IF ER lt gt Z THEN RETURN 3299 REM 44 5110 POKE PM PM PEEK FN VP PM U U POKE 8 3300 PD 2 GOSUB 15210 IF ER lt gt Z THEN RETURN 8 U PEEK FN VP PM U PM PM 2 RETU 3305 TP PM PM U PM PM GOSUB 15400 IF ER lt gt RN Z THEN RETURN 5199 REM zitt 3310 PM PRS U TP PM 8 U RETURN 5200 PD U GOSUB 15210 IF ER lt gt Z THEN RETURN 3399 REM tatx erte 5210 VT STRS PM PM GOSUB 4900 ECS EL VTS EC 3400 PD 2 GOSUB 15210 IF ER lt gt Z THEN RETURN EC LEN 3402 IF PM PM 2 THEN ER 2 RETURN 5220 VTAB 2 PRINT VTAB 4 EL POKE 36 18 PRINT ECS E 3405 TP INT PM PM U Z PM PM GOSUB 15400 IF L PM PM U RETURN ER lt gt Z THEN RETURN 5299 REM 2 M 3410 PM3 PM3 U TP PM PM U RETURN 5300 IF MIDS ES PR U THEN PR PR U GOTO 5300 3499 REM Pro lt E 5305 IF PM
134. Recul REM VTAB 2 PRINT VTAB 20 INT NC 80 POKE 36 N C 80 INT NC 80 PRINT CHRS 8 8 INVERSE PRINT Mn NORMAL NC NC 1 E MIDS ES 1 NC RETURN REM INITIALISATION DS CHR5 13 CHRS 4 PM Votre phrase B IPS CHRS 7 958 Z 0 0 1 RETURN REM CREATION du fichier DEMOAPF la lere fois DS CHRS 13 CHRS 4 PRINT DS OPENDEMOAPF PRINT DS DELETEDEMOAPF PRINT DS OPENDEMOAPF L160 Fr Fr FOR Y j T T 9EFS FS E 5 NEXT FOR I 0 TO 99 PRINT DS WRITEDEMOAPF R I PRINT F NEXT PRINT DS CLOSE END REM LISTE IMPRIMEE DES PHRASES DE DEMO REM LA FIN DU FICHIER EST INDIQUEE PAR LA PHRASE FIN TEXT HOME PRINT LISTE IMPRIMEE DES PHRASES DE DEMO PRINT PRINT Preparer 1 1MPRIMANTE puls tap er une TOUCHE GET X PRINT X DS 5 13 CHRS 4 NU 1 PRINT 5 1 PRINT Phrases de la commande DEMO PRINT PRINT D S PR 3 PRINT PRINT DS OPBNDEMOAPF L160 VT W PRINT D READDEMOAPF R NU GET X IF X 5 13 THEN 58050 VTS VIS XS GOTO 58040 PRINT D CLOSE IF VIS FIN THEN PRINT DS PR 3 END PRINT DS PR l PRINT PRINT Phrase NU PRINT VT PRINT DSPPR 3 NU NU 1 GOTO 58020 Programme APF 22 4 REM EEHEEHE m E EF SF mr eg 2 REM 8 L APPRENTI FORTHier Version 3 0 3 REM 4 REM N ssuorgsky 1985 CHANCELADE 24650
135. STOCK Y DERPAGE CARAC 10000000 7F7 ENVOI STOCK LECO STOCK 1 0 STOCK PAGE Y LEC1 STOCK 1 PAGE Y LEC1 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 262 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 31 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 TOUCH LDA BPL BIT CMP BEQ CMP BEQ CMP BEQ CMP BEQ CMP BEQ M1 JSR JMP MOINS SEC LDA SBC BEQ SEC KBD TOUCH STROBE 259 FINFICH 58 MOINS 2588 MOINS 2595 FS8B PE BEEP TOUCH PAGE 2 PRPAGE SBC 2 STA PAGE JSR CLS JMP PC PRPAGE JSR BEEP JSR VTAB LDY MP LOA lt MP JSR STROUT JMP Di RTS DERPAGE JSR BEEP JSR VTAB LDY gt MD LDA lt MD JSR STROUT D JSR KEYIN JSR MESLEC JMP TOUCH FINFICH JSR VTAB LDY gt MF LDA lt MF JSR STROUT JSR KEYIN AND 211011111 CMP BEQ F SR MESLEC JMP TOUCH E JMP VTAB Mode enregistrement de copies d cran COPIECR JSR INITAD JMP PAUSE 208 JSR GETDATA BCC 55 0 c CMP 1B BNE 01 JMP PAUSE 336 SSC 337 338 339 340 341 55 01 342 343 344 345 55 00 346 347 348 349 350 55 02 351 352 353 354 355 856 ssc022 357 358 359 360 361 362 363 364 365 366 55 03 367 368 369 370 371 372 373
136. T AC AC I GOTO 810 PORE 2039 OC 128 IF PEEK 49152 155 THEN POKE 4916 8 0 GOTO 900 PRINT CHR OC AC AC 1 0 PRINT DSCLOSE CHR 15 PRINT CHR 12 PRINT D PR 0 POKE 2039 160 GOTO 100 Initialise les tableaux pour les menus DATA MINITEL VERS APPLE CONSULTATION CHARGER SAUVEGARDER OPTIONS ENVOI D UN FICHIER FIN FOR I TO 6 READ M1 I NEXT DATA SEQUENCES PORT MINITEL COPIES D ECRAN PORT IMPRIMANTE RETOUR RETOUR FOR I 0 TO 2 READ M2 I M3 I N EXT FOR I O TO 4 M4 I PORT ST R I 1 NEXT M4 6 RETOUR M4 5 NEANT DATA VERS IMAGEWRITER DMP VERS AUTRE IMPRIMANTE VERS UN FICHIER TEXT RETO UR FOR I TO 3 READ M5 I NEXT DATA 2 58 107 118 902 D7 58 007 100 32 FOR I 0 TO 9 READ A3 1 NEXT RETURN SP ffichage des menus HOME TT TT PRINT 5 PC 40 LEN TT 2 INVERSE PRINT TT NORMAL M I 1 FOR T 0 TO MA VTAB I 2 8 PRINT SPC 12 M I NEXT ESC 0 IF LEFT M 0 1 M AND FS THEN VTAB 14 HTAB 12 INVERSE PRINT M 3 NORMAL GOTO 81 IF A3 O THEN PRINT Pom s n 27 1110 1120 1130 1140 1150 1160 1170 1200 1300 4120 4330 2000 3000 4000 4002 4003 4030 4040 4050 4055 4056 4057 4060 4100 4200 4210 4300 4400 4410 4420 GOSUB 1300 GOSUB 6000 49152 IF CA 13 THEN
137. TEUFS SO IP ERR 53 THEN RESUME NEXT IF ERR 254 TEEN IF T 64 49 TREN RESUMB NEXT WINDOW 2 32 62 400 110 2 80 GOSUB S61 TEXTFACE 0 IF ERR 240 OR ERR 241 THEN 589 IC 6047 GOSUB 516 8 8 0 1 C 0 GOSUB S16 PUT 48 8 x 0 MOV ETO 216 40 PRINT CCS 96 17 1F ERR 254 THEN PRINT Fichier d index introuvable GOTO S11 IF ERR 57 THEN PRINT Erreur d entr Pom s n 27 ees sorties GOTO 511 IF ERR 61 THEN PRINT Disquette sat uree GOTO 511 IF ERR 70 THEN PRINT Disquette pro t g e GOTO Sli PRINT Erreur systeme S11 0N A3 GOTO S12 S13 S14 S15 S12 PRINT Enregistrement MOVETO 96 33 PRINT impossible GOSUB S10 IF ERI 12 THEN CLOSE 3 KILL F RESUME 14 IF ERL 101 THEN F5 RESUMB 100 IF ERL 110 OR ERL 111 THEN KILL F RESUME 563 IF ERL 112 THEN KILL F CLOSE 3 KI LL F2S RESUME 563 RESUME NEXT S13 GOSUB S10 1F 8RL 121 TEEN CLOS E 3 KILL F T F5 RESUMB 12 0 RESUMB NEXT S14 GOSUB S10 IF ERL 130 TBEN RESU ME NEXT IF ERL 141 THEN F RESUME 140 IF ERL 150 THEN RESUMB 15 RESUME NEXT S15 GOSUB S10 1F ERL e161 TEEN F RESOME 160 IF ERL 162 THEN CLOSE 3 RESUME 164 IP ERL 163 TEEN RESUME 164 RESUME NEXT S89 IC 1 GOSUB S16 PUT 8 8 X 0 M OVETO 216 4S PRENT CC IP ERR 2 41 TEEN S90 WOVETO 46 17 PRINT Maximum 64 page s le fichier va MOVETO 48 33 P RINT etre clos GOSUB S10 RESUM E NEXT S90 MOVETO 44 10 CB eSTR B5 3 pa ge C5 0 B5
138. TI FORTHler BIP 56010 NM 50 DIM PM3 11 PR 255 EC 5 T NM CHR 7 56015 DEF FN RQ X X INT X 256 256 56016 DEF FN VP X PEEK 107 PEEK 108 256 7 2 X 56020 ONERR GOTO 40000 56030 RETURN 56999 REM 57000 REM ECRAN d A DE 57001 REM 57005 GOSUB 57700 VTAB 1 POKE 36 48 PRINT INV ERSE PRINT Ecran d AIDE a l utilisateur NORMAL VTAB 3 POKE 36 0 PRINT DEMO acces a un f ichier de demonstration doit etre en debut de ligne m 57020 PRINT INIT e en debut de ligne 57030 PRINT LISTEMOTS m PRINT MODE A PAS 57010 reinitialise le FORTH doit etr liste le dictionnaire a l ecran 57060 commute mode NORMAL et mode PAS 57070 PRINT OUITTE arret du programme 57080 PRINT AIDE affiche cet ecran 57085 PRINT RAZ initialise les piles 57090 PRINT CARRAY tableau d octets 25 CARRAY XZ donne un tableau XZ de 26 octets 57100 PRINT C et C pour utiliser les elements d un tableau 57110 PRINT LOOP il n y a pas de boucle LOOP don c toujours preciser le pas 57120 PRINT Nombres entiers de 32767 a 32767 57130 PRINT Autres mots ils sont classiques du FORTH 79 57140 PRINT PRINT Longueur d une phrase l mitee a 15 9 caracteres PRINT MOTS CREES limites a 16 caracteres pour le n om 154 mots 1 PRINT L APPRENTI FORTHier n adinet pas les structur es de controle imbriquees PRINT Attention aux mots et ans la memo re
139. TO 50 PRINT D WRITE MESSAPF R I PRINT M NEXT 5030 PRINT D CLOSE CHR 34 PRINT DS CLOSE Z ri Programme GARDE APF 1 REM 2 Page de Garde du programme APF V3 0 3 REM P Nom de ce programme GARDE APF REM 8 REM Fel Nissourgsky c 1985 CHANCELADE 24650 9 REM t k t k 10 PRINT CHRS 4 PR 3 TEXT HOME 20 GOSUB 1000 REM Implante AMPERSAND 6 25 VTAB 2 PRINT 30 VTAB 1 POKE 36 11 PR NT PROGRAMME D ACQUISITION DES CONCEPTS DU LANGAGE FORTH 35 INVERSE 40 VTAB 3I BOKE 36 615 BRENT P ma erm L APPRENTI FO SR SA P 45 50 VTAB 5 36 15 PRINT c Fej N ssuorgsky 24650 CHANCELADE 60 VTAB A POKE 36 9 PRINT Ce logiciel permet de s mule r un FORTH Il n en a pas la vitesse 70 VTAB 10 POKE 36 6 PRINT mais l comporte de nombreu x messages d erreur tres explicites 80 VTAB 12 POKE 36 6 PRINT et l utilisateur peut voir l effet de chacun des mots FORTH sur la 90 VTAB 14 POKE 36 6 PRINT pile l ecran ou le diction naire mode PAS A PAS Le mode NORMAL ne montre 100 VTAB 16 POKE 36 6 PRINT pas les etats intermediair es de la pile 110 VTAB 18 POKE 36 6 PRINT Ii est possible d utiliser constantes varlables tableaux et 120
140. TR CBS MENO ON IP T 64 THEN ERROR 254 IF El THEN PRINT 1 CHR 12 PRINT 1 CBS RETURN e Autorise les v nements S19 DIALOG ON MENU ON MOUSE ON INI TCURSOR RETURN e Interdit les v nements S18 DIALOG STOP MENG STOP MOUSE F GOSUB S3 RK TURN e Fen tre dumode Stockage S4 A3 1 WINDOW 1 20 50 428 1 86 4 GOSUB S61 WIDTH 80 1F C5 0 TEEN GOSUB S65 GOSUB S67 GOSUB S68 RETURN e Ouverture d un nouveau ficho en mode Copie d cran S79 0Az0 F FILES 0 GOSUB 53 140 IF F5 THEN DA 1 BUTTON 1 0 RETURN 141 OPEN o 3 F NAME FS AS F5 TE XT BUTTON 1 1 B2 1 RETURN Traitement en mode Copie d cran S80 DIALOG STOP IF E5 24 THEN LINE 1 1 243 269 30 BF E5 0 MOVET O 2 10 BUTTON 1 0 ES INPUT 1 2 IF ES THEN 150 IF ES CER 19 TEEN CB INPUT 11 2 DIALOG ON RETURN 150 IF E H TEEN E5 E5 1 IF ES 24 TEEN 190 ELSE 189 IF ASC ES gt 31 THEN 582 DIALOG ON RETURN S82 1F E THEN ES IF E THEN E e IF 5 0 TEEN Es IF E N THEN ES IF E THEN E N IF E THEN ES T89 PRINT ES GETPEN VARPTR PL 0 IF PL 0 263 AND PL 1 gt 237 THEN T88 PRINT 3 E A1 A1 1 V 0 A1 1 A VARPTR V 1 POKE A A1 1 ASC E A1 lt 984 THEN DIALOG ON RETURN T88 E5 24 H H CB INPUTS LOC 2 2 BUTTON 1 1 B3 0 DIALOG ON RETURN ELS
141. VOI D UN FICHIER a em mm mm em mm mm mu mm mm mm mm mm wm mm mm e mm Gss mm mm as Gss Qs Q lt A as mm EE Qu Qs GUR UBR KUR s Q G s d o Il faut se servir du clavier de l Apple en lieu et place de celui du Minitel Ceci permettra l ordinateur de rep rer les d buts de page Un rappel des touches de fonction est alors affich CTRL X Annulation DEL ou CTRL C Correction TAB ou CTRL I Suite RETURN Envoi mm pm mr s s ETE m sm mm A E UE EE m mW w mm em w o m mm mm s m m mm u su m mm m m mm m um m w mm zm Gss Gs Qs MINITEL VERS APPLE gt SEQUENCES3 COPIES D ECRAM RETOUR AAA ESC interrompt de fa on provisoire l enregistrement une touche quelconque relance alors l enregistrement sauf ESC qui l interrompt d finitivement le Basic vous proposant de sauvegarder Si la sauvegarde n est pas ex cut e vous avez PA A II A Pom s n 27 r pondu par un simple RETURN au nom de fichier l option SAUVEGARDE du menu principal sera en vid o inverse titre de rappel Enregistrement de copies d cran Avant chacune d elles vous devrez faire RETURN TApple comptant alors les retours chariot qui passent Si la copie d cran est interrompue par ANNU LATION surle Minitel ou bien si vous avez fait RETURN apr s le d but de la copie faites ESC pour indiquer la fin de page l Apple en attend alors une nouvelle ESC perinet d aba
142. VOUS pro pose Table de correspondance We d p de 100 100 100 ominos Mac zer 101 101 101 Apple 17 T 102 102 102 Minitel ER 32 32 32 Y 106 106 106 E 2 k 107 107 107 Th H 108 108 108 terry Haurte k 35 35 m 109 109 109 36 36 36 mr 110 110 110 pa 5 4 o 111 111 111 a Q 112 112 4 4 39 39 39 A 113 13 113 Il est inutile de pr sent I mo 114 114 114 41 41 41 Ss 1156 115 112 le jeu de dominos v 42 42 42 Yo 16 116 116 celui ci b n ficie d un 43 43 43 yk 117 117 117 p 4 4 he m y 118 118 118 graphisme tr s so1gne l w 119 119 119 mm 46 e D D en couleur si vous P y 121 121 121 I O 48 48 48 Qonu Y disposez d une carte 55 55 T 183 123 Chat Mauve et les 2 50 50 50 dh 124 124 3 5 5 5 y 125 DS gt messages transmis parle 4 126 126 dh a 136 64 25 65 97 i V E 7 Se noh choix en Fran ais en 8 56 56 56 141 92 25 75 99 Italien en Allemand ou 9 57 57 51 142 123 25 66 101 0 58 58 58 e 143 125 25 65 101 en Anglass CH 59 59 59 U 144 25 67 101 de 60 60 60 amp 145 25 72 101 61 61 61 1 148 25 67 105 ai 62 62 62 y 149 25 72 105 GN 63 63 63 6 153 25 67 DI 64 64 amp 154 25 72 111 65 65 65 Y 157 124 25 65 117 B 66 es F 158 25 67 117 75 e a 159 25 72 117 5 4 So om 27 i T DO E 69 69 69 EI 163 35 25 35 RAM F 70 70 70 65 164 93 25 39 mon A M U R 167 25 123 A S Hi 72 72 72 177 25 49
143. VTAB 20 POKE 36 6 PRINT de creer des mots nouveaux DEMO donne acces a un fichier de demonstration 130 VTAB 22 POKE 36 6 PRINT Il s agit d un programme d apprentissage il n est pas rapide 140 VTAB 24 POKE 36 6 PRINT Pour continuer taper une t ouche 6 KEY 200 VTAB 2 PRINT PRINT CHR 4 RUN APF 22 4 D1 999 END 1000 Q 45 1010 I O TO 1 READ 28 POKE 769 I Z NEXT 1020 POKE 1014 1 POKE 1015 3 1190 RETURN 28 1200 DATA 44 0 192 16 251 173 0 192 44 16 192 41 127 141 0 3 201 32 144 14 163 198 2 4 10 5 B 1210 DATA 193 184 1635185 M05 04138 185 96 201 413 240 238 20428 240 234 76 153 Fichier MESSAPF cr par le programme CREMESS YOU hh Insuffisance d l ments sur la pile Division par ZERO D passement num rique Plus de place en MEMOIRE Mot IMMEDIAT Mot interdit en mode Imm diat IF sans THEN THEN sans IF ELSE sans IF DO sans LOOP LOOP sans DO WHITE sans BEGIN WHILE sans REPEAT BEGIN sans WHILE REPEAT sans WHILE ENTREE trop LONGUE gt 159 caract MOT trop LONG gt 16 MOT INCONNU sans MOT non unique Pile SATUREE Dictionnalre PROTEGE R p tition de I hors d une boucle REPEAT sans BEGIN Structures de controle imbriqu es sans Le mot doit etre en DEBUT de ligne Il manque un NOM Sommet de pile INVALIDE Il manque un Structure INCOMPLETE Hors limites Tableaux Erreur sur DISQUE Absence de ELSE
144. X THEN ER 4 RETURN 11090 RETURN 20060 FOR I Z TO LM 1 POKE Al I ASC 5 MOS I 11997 REM U U NBXT 11998 REM Examen du DICO pas utilise par le programme 20070 POKE Al LM 32 Al Al LM U POKE Al Z 11999 REM 20080 A1 Al U POKE Al MC A l Al U POKE Al 4 A1l 12000 I DM Al 12006 IF I Z THEN END 20100 GOSUB 32000 GOSUB 32090 GOSUB 32200 IF NU Z TH 12007 PRINT WC EN GOSUB 32100 12010 IF PEEK I lt gt 32 THEN PRINT 5 PEEK I 20105 MOS 5 13 THEN ER 19 RETURN zI I U GOTO 12010 20106 IF NU Z THEN ER 18 RETURN 12020 PRINT s PEEK I U 256 PEEK I 2 20110 IF ER lt gt Z OR NOT CP THEN 20310 I GOSUB 51800 1 PEEK AD 256 PEEK 20112 IF NU 49 OR NU 50 THEN ER 5 GOTO 20300 AD U PRINT I GOTO 12026 20120 IF NU 28 THEN ER 23 GOTO 20300 14997 REM 20130 IF NU gt 38 AND NU lt 51 AND NU lt gt 47 THEN ER 5 14998 REM Affichage Pile Ecran GOTO 20300 14999 REM 20140 IF NU 23 THEN GOSUB 32000 IF MOS CHR 13 15000 IF PM Z THEN RETURN R MIDS MOS LM 1 gt CHR 34 THEN ER 31 GOT 15010 FOR I 1 TO PM VTAB 2 PRINT VTAB 15 I POKE 20300 36 CO PRINT RIGHTS H 5 5 PM I 6 20150 IF NU lt gt 23 TEEN 20160 15020 NEXT RETURN 20151 IF Al 3 LM U gt MX THEN ER 4 GOTO 20300 15199 REM Pile saturee 20152 POKE 1 128 1 Al U POKE A1 23 A1 A U PO 15200 IF
145. Y 17 ASL 116 SS2 185 PHA 48 ASL 117 INC COMPT 186 BCC PLI 49 ASL 118 BNE SS3 187 INY 50 ADC 4589 19 INC 41 188 SEC 51 STA STATUS 120 SS3 189 BCS PL2 52 STA DATA 121 JMP BCL 190 PL1 INY 53 BEG BATA 122 CLAY 191 PL2 LDA COMPT 1 54 LDA C0 123 BIT SIROBE 192 ADC PAGE Y 55 STA STATUS I 124 LDA KBD 193 INC PAGE 56 STA DATA I 125 ORA 80 194 INC PAGE 57 LDA 0 126 STA CARAC 195 LDY 1 58 STA SLOT 129 CMP 9B 196 STA PAGE Y 59 JSR GETBYT 128 BNE S 197 JSR CONTP E AA 58 Pom s n 27 198 199 200 201 202 203 204 205 206 207 208 209 270 277 242 243 214 205 216 7 277 218 219 220 22 222 223 224 225 226 22 228 223 30 231 292 233 234 235 236 237 238 279 240 241 242 243 244 245 246 247 248 249 250 251 222 293 254 255 256 257 258 259 260 261 262 263 264 265 266 DEY PLA STA PAGE Y JSR INITCO SUITE LDY 3 BCL2 INX LDA TABLE X BEC FINCH STA CARAC JSR ENVOI DEY BNE BCL2 FINCH JMP BCL FIN JSR ENVOI JMP BCL JSR LDY LDA JMP LECTURE JSR JSR LOY SIY STY LDA STA STA INC BNE PC LDY LDA CMP BEQ STA DEY LDA STA LEC INC INC LEC1 LDY LDA BMI STA ORA STA JSR INC BNE INC LECO LDY LDA CMP BNE INY LDA CMP BNE Pomsn 27 VTAB gt M L lt ML ST ROUT MESLEC CLS 0 PAGE STOCK 525 4 1 STOCK 1 STOCK 1 LEC 2 PAGE J Y FREF DERPAGE STOCK 1 PAGE Y STOCK PAGE PAGE FO
146. _NewBandle LEA EA Al MOVE L 2 A2 D5S w Al MOVE L A1 4 A1 SUBO 31 0 A1 SUBQ 31 2 A1 ADDQ 4 4 A1 ADDO 44 6 1 LEA 0 A2 DS W A1 MOVEA L A0 A4 MOVEA L MOVEQ 426 00 MOVE A1 AO DBRA 00 01 MOVEA L 4 ADDQ 1 10 A0 ADDQ 1 14 A0 ADDQ 1 34 A0 ADDO 1 36 A0 ADDQ 1 4D A0 ADDQ 1 44 A0 ADDQ 1 46 A0 ADDO 1 50 A0 RTS CER A7 LEA ES A3 MOVE L A3 SP PEA Ed _ PtInRact TST A7 RTS PEA Ed _InvertRect RTS DC 0 0 0 0 DC 0 0 0 mn Pom sn 27 51 DC B 507 500 500 500 Source VO Asm Source 1509 DC B Co ion Asm 66 bc h k kok K k k D E K k A RO R Kok R OR KOR K k mnversion sm DC B 505 513 542 500 Routine d ouverture lecture et R p tition fermeture des fichlers mode zhe e de de EA de de de de e de e REA DC B 508 513 543 500 consultation r Routine de conversion des Guide caract res non ASCII et des DC B 502 513 544 500 54000 commandes Minitel Annulation Trap Read SA002 Le code du caract re ou de DC B 03 13 545 5 00 Trap Close A001 r cermande est pass par la pile Sommaire La suite de caract res DC B 01 13 46 00 Ouverturel r sultante est plac e dans la Correction LINK A6 f0 r zone tampon DC B 504 513 547 500 MOVEA L 8 A6 A1 Le premier octet de la zone Suite ADDO L 42 1 indique le nombre de caract res DC B 506 513 548 500 MOVES f0 D0
147. action CLR L SP PEA 10 A6 _Modalblalog CMP okButton 10 A6 SEQ 10 A6 Fin du d alog MOVE L 4 A6 SP _DisposDialog UNLK A6 MOVE L SP 3 A0 ADDO L 2 SP JMP A0 w w Sp a Sp q Sp q op Sp rm s nun E o a qax ax un oma mm mm mm mm mm wm mm nun uk Gmm m n mn mun Entoure le bouton par defaut le numero 1 cf Inside 1 407 2 et 1 405 16 18 Variables dans la pile itemNo 20 8 WindowPtr EQU 10 Variables Locales Type EQU 2 ItemHandle EQU 4 Type Box EQU BA ItemHandle OutLineButton LINX A6 14 MOVE L 10 6 5 1 SP PEA 21A6 PEA 61A6 14 A6 GetDIt em MOVE 3 SP MOVE 3 5P PenSixa PEA 14 A6 MOVE 4 4 5 MOVE 4 4 5 _InsetRect PEA 14 A6 MOVE 16 SP MOVE 16 SP _FrameRoundRect UNLK A6 MOVE L SP A0 ADDO L 6 SP JMP AD GecDefault a pp pp Se Affiche le dialog de la mise en page et enregistre les modif Variable locale hPrintRec EQU 4 GetDefavult LINK A6 HPrintRec JSR PrOpen R cup re ressource de type PREC du fichier ImageWriter CLR L 5P MOVE L PREC SP MOVE 0 SP _GetResource MOVE L 5P hPrintRec A6 BNE 81 Erreur chargement ressource MOVE 1 SP CLR SP JSR StopAlert Pom s n 27 BRA 19 gt Prot ge la ressource CN MOVE I hPrintRec A6 A0 _RNoPurge Valide la ressource
148. aissance il n existe pas encore de version du Basic Microsoft compau ble HES Il faudra donc jusqu ce que la grande maison nous foumisse un Basic en tat de marche laisser la totalit des fichiers interpr teur et programmes compris au niveau 0 Pom s n 27 Programme Minitel Premi re partie MiniteVT e F ait un peu de place si onest sur un Maci28Ko IF FRE 0 c50000 TREN CLRAR 20000 2200 e nitialise les tableaux de variables et quelques variables utilis es plus loin DEFINT A Z DR ABS FRB 0 gt 50000 T 20 2000 30000 DR T22 63 447 DR D V 0 V 12 CD D connexion aut omatique CC e Clic pour conti nuer DIM A 722 1 T22 V 2 A 99 B 23 2 C D 269 E 19 A 9 F 3 G 3 H 3 7 26 K 26 L 26 M 22 N 3 0 3 P 3 0 3 B5 5 R 3 S 3 T 89 0 23 V 18 X 65 C 4 10 Y 3 271 14 CR 2 8 22 4 4 PL 1 e Code objet de la routine D lai DATA h4E56 0 4h362E 8 6h48C3 6h59 4F 6hA975 6h281F 4hD883 6h594F 4 hA975 6hB89F 4h62F8 6h4E5E 6h4E7 5 e Code ob jet de la routine de char gement descur seurs Poms 18 DATA H4E56 0 4H42A7 GH3F2E 8 6HA9 B9 6H2057 6H2E90 6HA851 6H4ESE H4E 75 Titres des boutons en mode Consultation DATA lt lt aus lt lt gon lt o gt o gt gt gt gt e Positions et titres des boutons en mode Stockage DATA 16 16 Connexion 56 16 Sommair e 96 16 Guide 56 112 Annulation 96 11
149. alement de manipu ler les donn es au niveau des octets en m moire Forth ne fonctionne pas avec des instructions comme le Basic Pascal ou les assembleurs Au contraire l utilisateur peut ensei gner son langage la machine en Pom s n 27 cr ant des mots ce vocabulaire tant plac dans un dictionnaire Il est tr s simple de d finir un mot qui ne sera reconnu que s il ne fait appel qu des mots d j CONTIUS Emenple 2 m Exemple affiche le r sultat de 1 2 noter que en Forth tous les mots doivent tre s par s par un espace Bien entendu un mot peut tre effac avec l instruction FORGET Les donn es manipul es en Forth peuvent tre des variables ou tableaux des constantes ou encore des constantes imme diates Forth est construit autour de deux piles la pile de donn es la seule visualu e par APF et la pile de retour toutes deux b ties selon la structure LIFO Last In First Out Forth fonctionne avec la notation polonaise invers e comme cer taines calculatrices 1 2 3 donne 9 La pratique d APF permet de visualiser la pile tout au cours des op rations Conventionnellement on repr sente entre parenth ses et s par s par les param tres sur la pile avant et apr s ex cution du mot a b a b L approche interpr t e est repr sent e par le dialogue au clavier Help Voici la marche d suivre pour utiliser ce p
150. ans apr s nous sommes h las oblig s d augmenter le prix pour la seconde fois le num ro passant a 45 F Le tarif tait rest stable depuis le num ro 9 ce qui reste honorable d autant plus que la densit d informations s accro t de num ro en num ro la typographie r duite pour les listings nous permet de vous proposer des programmes toujours plus riches La o nous pouvions vous proposer une routine utiliser dans vos programmes un programme complet sept pr sentement d utilisation ais e trouve sa place Comme vous le d couvrez ces pages sont tr s orient es vers la communication Le Minitel prend la dimension d un ph nomene on parle de deux millions d appareils en service a la fin de cette ann e et Pom s devait s y consacrer car la gratuit de ce modem nous donne une ouverture vers la communication ouverture qu il serait dommage d ignorer Un syst me de T l alarme et des logiciels d enregistrement et restitution des crans sont au programme l utilisation de la prise p ri informatique et du modem vous sera bient t famili re Autre aspect de la communication le protocole XMODEM sous CPIM qui d crit l art et la mani re de transmettre des informations avec l assurance qu elles sont bien comprises Pour l Apple deux autres programmes d utilisation imm diate l un pour approcher le FORTH l autre pour g rer un carnet d adresses dot d une bonne ergonomie Ce dernier re oit de fa on optionnelle le compose
151. ansform s ligne 4440 en les codes 19 72 qui quivalent SUITE pour le Minitel les serveurs attendant g n ralement ce code pour passer la ligne La boucle de d lai qui suit pernet audit serveur d exploiter ce code SUITE Source T Param uniquement c 1 0 2 Param tres pour 3 port 2 du e 4 538 6B 81 dans 5 les octects 47C 6 47E en m moire 7 auxiliaire 8 So gt gt o 9 ORG 5300 10 OBJ 5300 1 12 LDA 538 13 STA 47C 14 LDA 56B 15 STA 47D 16 LDA 981 17 STA 47E 18 LDA 7C 19 STA 42 20 STA 53 22 LDA 4 22 STA 43 23 STA 530 54 LOA S7E 25 STA 335 26 LDA 4 27 STA S3F 28 SEC 29 UMP 5 312 Source T MINITEL 2 2 am 62 BEQ ENRFG 131 LDA lt MO Assembleur Big Mac et m B 64 BNE DEBI 133 ISR KEYIN Note ce source est sauve gard sur la 65 JMP LECTURE 134 CMP 459 disquette d accompagnement Poms 27 66 DEB CMP 3 135 BEQ FINER enformat TEXT pour permettre la 67 BNE DEB2 136 JSR MESEN r cup ration par votre assembleur 68 JMP 237 JMP BCL 69 DEB2 CMP 4 138 FINER LDY 0 1 411 70 BNE DEB3 139 LDA SFF 71 140 SNA STOCK Y 3 Minitel Apple 72 DEB3 CMP 5 141 INY 5 73 BNE ERR 142 INY 3 Syntaxe 74 JMP ENCAR 143 INY 6 CALL 8266 SLOT COM 75 ERR RTS 144 STA PAGE Y 76 145 JMP VTAB 8 22 A EC 146 Sl 3 LST OFF 78 Mode enregistrement 147 LDX 0
152. aragraphes souvent utilis s et de les rappeler la facult de stocker par th mes des images la permutation automatique de deux caract res pratique pour corriger une faute de frappe la c sure automatique qui divise un mot sur une syllabe et pose un tiret pour tout mot arrivant en fin de ligne des statistiques fournissant le nombre de signes de mots de paragraphes et d images d un texte ou d une partie de texte le cadrage d un texte l quilibrage des colonnes la gestion des niveaux d un texte avec g n ration automatique d un sommaire le calcul entre plusieurs cellules dans un texte la num rotation des notes etc C est vrai qu il est difficile de construire un programme pour le Macintosh Et apparemment plus le programme est inventif plus le debuging est difficile Au d but novembre Writer Plus tait ainsi encore afflig de plusieurs bugs qui auront certainement disparu dans ia version qui sera mise en vente En attendant la concurrence s annonce d j difficile Avec notamment Write Now d velopp par Solaster Inc soci t acquise par Steve Jobs ie fondateur d Apple et distribu outre Atlantique par T Maker Write Now comporte lui aussi la possibilit d crire en colonnes jusqu 4 par page de contr ler l cart intercolonnes en points On peut aussi y m langer textes et graphiques changer les dimensions d une image sans qu elle se distorde contr ler l interlignage de fa on
153. conde avec Carry a 1 Si frappe Clavier retour avec car clavier Utilise A HL IX LECTURE LD HL STATUS BIT 3 HL JR NZ LECT2 LO IX TEMPO XOR A LD IX 0 A LD LD RDR plein A 98 IX 1 A LECT1 BIT 3 HL JR NZ LECT 2 LD A KBD OR A JP M LECT3 33 Min Source XMODE SOURCE DEC IX 1 JR NZ LECTI TITLE XMODE SCF AUDE O e ee RET j LECT2 DEC HL Adresse RDR Emission de fichiers au protocole XMODEM LD A HL OR A JF R 1986 RET LECT3 LD KBDSTR A nuuuu AND ZER R RET Adresses CP M d E gt Routine d criture du port RS232 BOOT EQU 0 d BDOS EQU 5 Ecrit le contenu de C FCB EQU 5 r Utilise C et HL BUFFER EQU 80H ECRITURE LD HL STATUS PHASE 103H 1 4 HL TDR vide 2 JP START JR Z ECRIL1 DEC HL Adresse ROR LD HL C RET Routines CP M a ba Se Affiche le message polnt par DE Se Boucle d attente nb de secondes dans B e a a a rm PRHSG LD c 9 Utilise A et IX JP BDOS SECONDE LD IX TEMPO Affiche le caract re dans E SECON 1 XOR A fo Ad ALA a nd cde LD IX 0 A PRCAR LD cia LD A 228 init temporisation JP BDOS LD IX 1 A d 5 2 IX 0 Messages du programme JR NZ SECON2 r DEC 3X 1 z JR NZ SE
154. construire mat riellement un circuit D autre part Stella un outil pour am liorer les processus de productivit permet aux chercheurs de construire des mod les logiques pour r aliser des simulations Qu il s agisse d optimiser des quotas de lignes de production ou d tudier les effets cologiques de la pollution par les gaz d chappements des automobiles Par ses possibilit s graphiques et de calculs le Macintosh devrait bient t p n trer en force dans les laboratoires Une irruption facilit e par l entr e dans la vie active de nombreux tudiants qui l utilisent depuis d j plusieurs ann es Hard Le g nie souffle aussi sur le mat riel Ainsi voici h ias seulement pour l instant aux tats Unis et en 110 volts mais on peut r ver un syst me permettant de contr ler avec l ordiaateur tous les interrupteurs et tous les syst mes lectriques d une maison De quoi par exemple faire couler automatiquement un bain chaud heure fixe r chauffer une pi ce juste avant le retour du bureau allumer ou teindre automatiquement l clairage Oui mais je vous vois venir quoi bon allez vous me dire mobiliser un micro ordinateur du prix d un Macintosh pour servir de programmateur lectronique Eh bienla nouveaut du syst me X 10 Powerhouse de X 10 c est que le Macintosh sert simplement programmer un petit bo tier de commande On commence par r aliser un plan de sa maison avec les circuits lectr
155. d finition Exemple de d finition CARRE DUP Compare nl a n2 Sur la pile drapeau sera a 1 51 nien et 0 sinon Compare n1 a n2 Sur la plle a 1 si 1 2 et 0 sinon Compare nl a n2 Sur la plle 1 sl n1cn et sinon Compare ni a n2 Sur la pile 1 si nl gt n2 et O sinon Affiche contenu de la m molre ADR M morise n l adresse adr n sur 2 octets Empile le contenu de l adresse adr n sur 2 octets ET logique M morise l octet l adresse adr Empile le contenu de adr Affiche un retour charlot Supprime le sommet de la pile Duplique le sommet de la pile De la forme lt Cond gt F lt sl vral gt ELSE lt sl faux gt THEN Affiche le caract re dont le code ASCII est n Supprime un nom du dictionnaire et ceux d finis depuis ex FORGET CARRE Dans les boucle Empile l indice ex DO I LOOP Si drapeau est vral les mots qul sulvent sont ex cut s sinon ceux qul sulvent ELSE le sont Empile code ASCII de la touche frappee Inverse le drapeau OU logique Empile cople de l avant dernler nombre Rotatlon de la pile 3 cellules Echange des deux cellules en haut de la pile Symbolise la in d une condition drapeau sera drapeau sera drapeau sera Les nombres sont sur deux octets 32768 32767 les mots sont limit s 16 caract res 154 mots maxi et les phrases 159 carac t res Les autres mots sont des classiques du Forth 79 voir ta bleau ci joint Bibliographie FI
156. de donn es 1 stop bit et pas de parit La vitesse n est pas modifi e faudra la configurer au pr alable ou bien l aide des switches ou bien gr ce un utilitaire de configuration SETSSC COM voir n 26 par exemple Pour lancer un envoi de fichier on entrera la commande XMODE Nomdufichier Pour lancer une r ception AMODR Nomdufichier 11 suffit que les deux programmes soient lanc s dans la m me minute chaque programme commente l tat de la transmission en indiquant le num ro du bloc en cours ventuellement le nombre de r mission d un m me bloc en cas de probl me et le r sultat de l envoi de Bloc correct erreur etc La gestion de la carte s rie est r duite au minimum puisqu il n y a aucun traitement des signaux de contr le Il suffit de tester l tat des registres mission ou r ception A noter que comme pour SETSSC COM la routine de lecture du port s rie peut retourner au programme appelant un caract re frapp au clavier Ceci donne donc un moyen ventuel d interrompre une transmission en frappant un code CAN Ctrl X si vous constatez par exemple que votre programme r met constamment le m me bloc indiquant manifestement un probl me chez votre vis a vis La mise en uvre est donc tr s simple le choix de la vitesse d pendra des conditions d utilisation en liaison locale par fil entre deux machines la grande fiabilit de ce protocole autorise de
157. des Note le programme contraire ment ceux des num ros 22 et 23 de Pom s detecte si vous utilisez un Apple Ile ou lic vous pouvez donc l utiliser sur une machine ou sur l autre condition d avoir r alis le circuit correspondant Cr ation d un nouveau carnet Cette commande permet d effacer totalement un carnet pour en cr er un nouveau A utiliser avec prudence Description technique Les caract res sp ciaux avec la carte 80 colonnes Le programme utilise largement les possibilit s des divers carac t res de contr le qu autorise la carte 80 colonnes Les caract res de contr le qui suivent sont uti lisables avec la fonction PRINT d s que l on a fait PR 3 Tabulation e BS CHR 8 curseur un cran gauche e FS CHR 28 curseur un cran droite VT CHR 31 curseur une ligne au dessus m me position horizontale e LF CHR 10 curseur une ligne au dessous idem Effacement e CHR 26 effacement de la ligne e CHR 11 effacement jus quen bas de l cran e CHR 29 effacement jus qu en fin de ligne Mode d affichage CHR 18 affichage en 80 colonnes CHR 17 affichage en 40 colonnes mais gestion par la carte 80 colonnes e CHR 21 retour l affi chage normal en 40 colonnes Les ic nes souris e I CHR 15 mode in verse e N CHR 14 Mode nor mal e IC CHR 27 I mode ic
158. des Chantiers 78000 VERSAILLES Nom Adresse 74 Pom s n 27 Cnn m a d M n mnn KEEN VER d D mu a EE m ER Bel s n R 222 MEA arrasa amp amp zes E E E E R E zl z EA R ninin m m a x SUS 48 PET yi yil m s FEFE RE a w n m a a s s mim m wu a a a a a a a a wi de ee ee Ce n nni ma aaa sasa aa a Fa Na E aN N K EJ PROGRAMMER Clefs pour Macintosch 450 FF Basic Microsoft 2 0 sur Macintosh 250FF Basic 80 routines sur Mac Astuces 150 FF Multipian pour Macintosh 440 FF Le livre de Jazz 220FF 50 mod les Multiplan Apple 195FF Les ressources de l Apple pour g rer sur Apple et IBM PC 430 FF ilc 95FF Assembleur de Apple 420 FF Appleworks au travall 160 FF introduction ProDOS sur Apple 85FF Photographie sur Apple et Amstrad 150 FF Syst me ProDOS sur Apple arr semen DES LIVRES POUR JOUER Apple modems et serveurs z 102 programmes pour 430 FF Clefs pour l Apple lic CREER Apple 120FF Super jeux et lle 65CO2 445 FF Apple 120 FF Programmation des jeux d Arcade sur Apple il 140FF Apple logique et syst mes experts 120 FF Cr ation et animation graphique sur Apple 335 FF DEMANDER LE CATALOGUE GRATUIT P S I D
159. e Maker est une marque d pos e d Aldus Corps Vous avez sans doute remarqu que lorsqu une application ouvre un nou veau document son format d impres sion initial est rarement celui souhait il s agit g n ralement du format Lettre am ricaine Ayant souvent oubli de choisir imm diatement le format A4 nous avons parfois d refaire totalement la mise en page d un texte le format Lettre am ricaine tant plus court que le format Tettre A4 Nous avons donc d cid de nous attaquer au probl me avec l aide de MacsBug et REdit La solution en fin de compte est assez simple e dans le document Image Writer ou Laser Writer se trouvent trois res sources de type PREC Deux d entre elles ont la m me longueur que le Print Record utilis par la plupart des routines du Printing Manager la troi si me contient les dimensions et noms des diff rents formats de papier la ressource num ro 1 contient le Print Record utilis pour afficher le dialog du Job c est dire la qualit d impression etc Celui ci ne pose pas ImageWriter Papier rientation MISE EN PAGE GEORGES ZWINGELSTEIN OlLettre US OL gal US O Papier informetique Effets speciaux L Portrait ajust L R duction 50 2 C Pas de saut de page Format A4 O Format B5 LaserWriter Papier O Lettre am ricaine 9 Format A4 O Format B5 gu O L gal umericain Orientation
160. e ext rieur clavier Un F en haut connexion COS de d conne La connaissance de la norme T l tel est indispensable pour primez l appel au sous xion DES d opposition O P droite de l cran pr cise que les autres ne concernent que la M y Seen SCH mise en page des messages enfin assurez vous que l appel t l phonique automatique se Une fois votre dispositif en place r alise bien et que le Minitel v rifiez son bon fonctionnement prend la ligne R tablissez 330 M3 MESURE ANALOGIQUE 340 M4 NUMERO DE RIPOSTE 1 2 3 670 FOR I 1 TO LEN X 350 680 A ASC MID X I 1 128 400 REM ROUTINES MACHINE x x xxxxx xx 690 POKE 7 A 2 2 2 700 CALLE BTT 410 SLOT 49664 710 PRINT CHRS A 420 ENTRE 768 720 FOR T 1 TO 600 NEXT T 430 AFFICHE 779 730 NEXT I 440 PTT 792 740 RETURN 450 800 REM AFFICHAGE D UNE CHAINE 460 FOR I 768 TO 832 21 470 READ X POKE I X 810 FOR J 1 TO LEN AS 480 NEXT I 820 X ASC MIDS A 1 490 DATA 173 169 192 41 8 173 168 192 13 830 PONE 9 X 3 3 396 840 CALL AFFICHE 500 DATA 173 169 192 41 16 240 249 165 850 NEXT T 9 5141 168 192 96 860 RETURN 510 DATA 165720076 1245172207186 ZE 176 13 41 15 208 2 169 10 170 32 48 3 1000 REM PROGRAMME PRINCIPAL 202 208 250 96 k k d k k Z d K
161. ement en continu Suppression d une fiche La recherche de la fiche se fait de la m me fa on que ci dessus Avant de supprimer la fiche le programme vous demande de confirmer Liste alphab tique partir d un nom La liste commence au nom que vous choisissez Si vous voulez lister partir du d but tapez directement Vous pouvez interrompre momentan ment l af fichage l aide de la barre d espacement N importe quelle touche permet de reprendre la liste Pour interrompre d finiti vement pressez Escape Composition automatique Vous avez sans doute trouv que le programme qui accompagnait le composeur automatique de num ro de t l phone Pom s num ro 22 pour le e 23 pour le c tait un peu sommaire L option 6 permettra d utiliser pleinement le circuit que vous aurez construit cette occasion Si le num ro comprend des parenth ses le composeur consi d re les chiffres entr s comme un indicatif et 1l vous demande s il faut le composer ou non De plus vous pouvez ajouter des tempori sations pour attendre une tonalit apr s un indicatif Le symbole correspond une pause d une seconde le symbole une pause de dix seconde Exemples num ro en r gion parisienne 16 1 12 34 56 78 Si l indicatif est compos la pause entre l indicatif et le num ro est de 2 secondes num ro en province 16 12 34 56 78 Dans ce cas la pause est de 11 secon
162. ents et sauvegardes ainsi que de la consultation des copies d crans Lors de vos adaptations de ce programme il faut garder en m moire les deux points suivants e la place disponible une fois les variables initialis es est tr s r duite il ne fonctionne tel quel qu avec le DOS mais comme pour le jeu SNAKE paru r cemment ne n est pas un handicap puisque le programme est autonome La partie assembleur est appel e par le Basic par l ordre CALL AD SL COMMANDE AD etant Tadresse de chargement de la routine SL tant le port du Minitel et COMMANDE prenant une valeur de 1 S Commande 1 La routine est en mode Pc nn enregistrement de s quences les caract res recus sont stock s de 2600 95FF chaque adresse de d but de page Minitel est stock entre 2500 et 25FF Une nouvelle page est rep r e par l utilisation d une fonction Minitel Correction Annulation Guide uniquement si au moins 100 caract res ont t re us depuis le dernier appel une fonction Ainsi la restitution l ordinateur ne marquera pas de pause si CORRECTION n a fait que supprimer un caract re dans une zone de saisie mais il s arr tera si CORRECTION vous a servi revenir au menu de l annuaire lectronique A 1500 caract res de la saturation la routine mets quelques bips et 95FF on se dirige vers le Basic qui propose la sauvegarde La routine
163. er celle que l on veut et qu on la s lectionne Tempo n enregistre alors pas la police choisie mais le mouvement de la souris Le r sultat est que lors de l utilisation la police selecNonnee par la macro d pendra de la position ant rieure c est dire de la s lection pr c dente Pour tre francs il faut dire que nous ne voyons pas tr s bien comment le programmeur de la chose aurait pu faire autrement Une astuce r sout ce probleme quand on doit faire d filer une liste dans une fen tre il faut d abord revenir au premier l ment de la liste et le s lectionner puis pratiquer la s lection voulue Conclusion C est finalement un produit qui comporte des potentialit s int ressantes mais qui en dehors des exemples simples d application pr sent s ci dessus risque de d cevoir Peut tre faut 11 attendre une prochaine version Cr par Affinity Software Boulder Colorado et Vendu par Alpha Syst mes avec une documentation en fran ais A dMac ITI Ce produit malgr son nom et la compatiblit dBase III qu il semble impliquer et qu il revendique d ailleurs dans sa publicit ne provtent pas d Ashton Tate Ce n est pas non plus un clone logiciel puisqu il ne tourne pas sur le meme mat riel que le logiciel qu il imite Son objectif est ciair donner aux utilisateurs du Macintosh la possibilit la fois de c cup rer des fichiers dBase d velopp s sur IBM PC XT et de retrouver la syntaxe et le
164. essins techniques d finir des cadres avec un logiciel comme Page Maker pour organiser et mettre en page vos rapports d entreprise vos formulaires vos manuels votre journal interne pour ne citer qu eux laisseront de vous une excellente impression Et vous pourrez toujours tout modifier y compris la derni re minute MacWrite Mac Driu Pour Apple il n y a pas de petits et de grands crivains de litt rature de bureau et de litt rature tout court tout le mondeest log la m me enseigne celle de la qualit Avec la LaserWriter une impression impeccable est la port e de tous Elle vous propose en effet onze familles de typographies extension LaserWriter Plus imprime sur papier sur calque Ou sur transparents et fournit des documents de qualrt bromure LaserWriter Et si vous voulez vraiment faire les choses en grand Macintosh peut aussi se connecter directement une photocomposeuse d imprimerie En fait Apple ne vous offre rien de plus que votre imprimeur sauf que vous n aurez pratiquement plus besoin de lui D sormais c est vous l diteur qui prouverez la sensation de Gutenberg il y a 436 ans lorsqu il contempla son premier document C est ainsi qu Apple vous offre le meilleur de vous m me Macintosh est une marque sous licence chez apple Cemputer Inc Apple le logo Apple LaserWriter Apple Talh MacWrite et Macbraw sent des marques d pos es d Apple Computer Inc Pag
165. eur Y autre familier qui est heureusement bien chez lui etc T l Alarme Yelematique cette variante peut tre r p t e yusqu 3 puisement de l agenda Acte 3 Monsieur X ou Y d clenche la riposte ad quate en tapant le num ro sur son clavier une sir ne les gaz paralysants ou le pulv risateur d huile de putois au choix du sc nariste Happy end le voleur est arr t Le dispositif Les l ments n cessaires la r a lisation du syst me de t l alarme sont les suivants e un Apple ou de pr ference e pour le c c est plus complexe muni d une carte super s rie SSC entre nous e un Minitel r versible pres que tous le sont maintenant e un petit circuit de compo sition automatique de nu m ro semblable celui propos dans le num ro 22 de Pom s e un certain nombre de micro contacts aimants autant que de portes ou de fen tres prot ger Ces micro contacts quipent les dispositifs de s curit Normalement en veille ces contacts sont ferm s Remplacer l ampoule par une ampoule contacts ouverts lorsque le plot aimant est rapproch Les micro contacts sont group s en s rie sur une entr e un bit boutons poussoirs H y a 3 entr es PBO PB1 PB2 sur la prise de jeux vous pourrez donc avoir trois groupes diff rents de micro contacts Vous reliez l autre borne de l interrupteur au 5 volts broche 1 du connecteur interne via u
166. fich es GOTO 20500 20470 IF ER 5 THEN PRINT Fichiers d t rior s ou disquettes chang es G OTO 20500 20480 PRINT erreur 20500 PRINT Pressez une touche pour reve nir au menu CALL G80 20600 GOTO 10500 R capitulation Les guatre fichiers binaires utilis s se trouvent sous forme de DATAs dans le programme Basic NB Sources en format Source IN Assembleur Procode 31 32 33 34 35 36 37 38 DEY TXA STA VARPNT Y LDX 500 INY PLA JSR RTS MOVSTR Source T G80 ou BigMac 1 2 ORG 0300 3 4 VARPNT EQU 83 5 IN EQU 0200 6 INLIN EQU SC 7 x HKCTS EQU DEB8 8 CHKOPN EQU S DEBB 9 PTRGET EQU 5 10 GETSPA EQU B452 11 MOVSTR EQU E5E2 I2 13 xxx D but di code m 14 115 JSR CHKOPN 16 JSR PTRGET 1 JSR GHKCLS 18 JSR INLIN 19 LDX FF Z BEL INX 21 LDA IN X 22 BNE BCL 23 TXA 24 LDY 500 25 STA VARPNT Y 26 JSR GETSPA 27 PHA 28 TYA 29 LDY 6502 30 STA VARPNT Y Assembleur Procode ou BigMac GET 2 3 ORG 380 4 CH 24 6 CV S29 7 BASL 528 8 OLDCH S47B 9 OURCH S57B 10 11 KBD C000 12 KBDSTRB SCH TO 13 TXTPAGE l 5 054 14 2 SCUSS 15 16 BASCALC FBCI 17 18 LDA GV 19 JSR BASLALC 20 LDA CH 2 CMP OLDCH 22 23 24 25 26 E 28 29 30 31 32 33 34 25 36 59 38 39 40 41 42 43 44 45 46 47 48 49 50 21 22 53 54 2 56 57 BNE LDA LSR TAY STA BCS ST
167. fier au logue entre 1 Apple et le Minitel programme et ajoutez en contraire ces m moires s tablit il lorsque vous validez DATA une liste de vos proches la carte SSC PR IN amis Normalement l Apple affiche le num ro qu il com avant dimportuner vos amis pose puls un C prend alors la testez en local la r ponse i P place du F sur l cran du l criture d un losiciel serveur une alarme simul e Pour cela e 2 shuntez la demande de Minitel e Zeen Ee e connexion en oblit rant les lation d un Minitel Elle pr sente i X moins d importance dan notre lignes 1080 et 1020 Sup EE ee DE vou p i u application de t l alarme Les A id de codes essentielles programme de composition de D E lloc ou les plus usit es ont t num ro t l phonique ligne q d introduites dans des variables 1050 Pour d clencher Talar Va avec celles d appareils me utilisez indiff remment le SPecialises cha nes rassembl es en t te du programme Pour les transmettre micro contact la touche ou Plus encore ces quelques lignes il suffit de faire appel au sous le bouton poussoir Votre vous auront peut tre fait d cou programme d affichage d une Minitel doit alors afficher les vrir les immenses possibilit s messages d alerte auxquels d ouverture de votre ordinateur cha ne ligne 800 Retenez e Surtout les s quences de vous r pondrez sur son surle mond
168. ge MacAstuces Macintosh et Macintosh Plus deuxi me dition par Herv Thiriez ditions du PSI 160 FF Cette seconde dition de MacAstuces comporte une mise jour Vadjonction de nouvelles astuces d utilisation du Macintosh et surtout une vingtaine de pages enti rement nouvelles et consaci es au Macintosh Plus La disquette d accompagnement peut tre command e aux Editions MEV Guide pratique d Excel par Herv Thiriez Cedic Nathan 170 pages grand format Un ouvrage de base pour l apprentissage d Excel l aide de plusieurs cas de gestion r alistes Le seul livre sur Excel qui notre connaissance Bibliographie indique quels sont les bogues du logiciel et comment les contourner Une prise en main progressive et p dagogique couvrant toute l utilisation de base d Excel y compris le calcul de tables et la programmation de macros De nombreuses astuces d utilisation sont mises en relief et ressortent facilement gr ce une pr sentation en gris Une disquette d accompagnement facultative comprend tous les tableaux de l ouvrage ainsi qu une nouvelle police de caract res de taille 6 permettant de voir l cran un grand nombre de lignes et colonnes la fois Programming pearls par Jon Bentley Addison Wesley En anglais C est la reprise sous la forme d un livre d une s rie d articles publi s dans Communications of then ACM une s rieuse revue professionnelle pour informat
169. ge de programmation gra phique Plus besoins d crire des GOTO ou des tristounets IF THEN ELSE on clique simptement sur des ic nes Ou on utilise des menus d roulants On peut ainsi appeler directement les proc dures de la Toolbox ces morceaux de programmes inscrits dans les ROMs du Macintosh permettant par exemple d ouvrir une fen tre l cran Une fois compos le programme est repr sent par un sch ma affich l cran Le programme peut tre visualis modifi ex cut en mode normal ou en pas pas Une version pro permettant de g rer des variables locales ou le list manager sera bient t disponible Tout comme des biblioth ques d livrant du code source en C ou en Pascal Est ce un syst me de gestion de bases de donn es Oui d une certaine facon Est ce un logiciel de traitement d id es Oui aussi Guide dOWL International se pr sente comme le premier syst me d hypertexte ce qui ne veut strictement rien dire Plus simplement ce logiciel permet d tablir des textes ou des graphiques et de cr er entre eux des syst mes de r f rences crois es En cliquant sur une partie d un dessin on voit ainsi s ouvrir l cran le texte ou la Pom s n 27 partie de dessin correspondante Gageons qu on entendra reparler de ce logiciel vendu 100 dollars Et puisqu Unix est le syst me la mode voici d j aux tats Unis Macnix distribu par Eurosoft Interna
170. gne Tous les signaux parasites raccrochement de combin s et autres sont sans importance Le nratacale Le format de la transmission est 8 bits de donn es 1 bit d arr t pas de parit vitesse quelconque Les donn es entre metteur et r cepteur sont transmises sous forme de blocs de 132 octets le format des Blocs tant le suivant e un octet den t te SOH ASCII 1 dh o gt e un octet donnant le num ro du bloc modulo 256 Le premier bloc est le num ro 1 e un octet donnant le compl ment 3 255 du num ro de bloc pour verification e 128 octets de donn es soit au hasard un secteur CP M un octet Checksum qui est la somme sans retenue des 128 octets de donn es Le contr le de transmission utilise les codes de contr le suivants e EOT ASCII 4 Fin de transmission e ACK ASCII 6 correct e ASCII 21 Refus du Bloc re u erreur e CAN ASCII 24 Annulation de la transmission Bloc recu et D roulement de la transmission c t emetteur 1 Attendre pendant une minute un des deux codes suivants CAN abandonner NAK d marrer la transmission Au bout dune minute sans NAK abandonner Ceci est la seconde partie d un article sur la carte SSC et le CP M Cependant le contenu de ce num ro textes et programmes est utilisable seul 29 30 2 Transmission e Envoyer un Bloc de 132 octets e Attendre pendant 10 secondes
171. gramme LD A BUFFER OR A Nom de fichler LD DE MSG0 JP 2 5 1 Non retour LD DE MSG1 CALL PRMSGi LD C 15 Ouverture fichier LD DE FCB CALL BDOS INC A Trouv JR NZ PREPAR LD C 22 Cr ation fichier LD DE FCB CALL BDOS INC A Correct LD DE MSG2 JP Z PRMSG1 Non je sort 32 Pr paration PREPAR CALL CONF ACIA LD Y COMPT LD A l LD IY 3 A ler bloc XOR A LD IY 5 A debut LD IY 4 A precedent L D A 6 LD IY 1 A Nb essais LD A NAK LD IY 6 A Code d appei LD DE REC BUF 3 LD C lAH Adresse DMA vers Buffer CALL BDOS LD DE MSG3 CALL 5 1 SET 0 IY 5 Envoi code d appel ENVOI LD Es CALL PRCAR ENVOI 1 LD A T10 LD 1Y 0 A Attente 10 s LD DE REC BUF Buffer d arriv e LD B BSIZE 4 LD C IY 6 Caractere CALL ECRITURE Attente reponse F WAIT CALL LECTURE Qlque chose JR NC RANGE DEC IY 0 J attends encore JR NZ WAIT DEC IY 1 Un autre essai JR NZ ENVOI LD DE MSG9 Non trop tard JP ANNULE Boucle interne au Buffer N Se e WAITI CALL LECTURE JR NC RANGE Buffer incomplet LD A BSIZE 3 CP B 21 car re u 2 JR NZ PURGE DEC DE LD A DE CP EOT Fir de transmission 2 JP Z TERMINE Oul Pb r ception on purge et on refuse PURGE LD DAS CALL SECONDE LD DE MSG14 JP REFUSE s La z Remplissage du Buffer de r ception RANGE LD DE A I
172. h PAO gogo Rien d tonnant si les programmes d dition lectronique se multiplient Aux Page Maker et autres MacPublisher dont il vient de sortir une nouvelle version il faut d sormais ajouter Graphie Works de Mindscape un v ritable programme int gr comprenant un traitement de texte un logiciel de dessins sophistiqu avec a rographe pressions r glables et la possibilit de m langer textes et graphiques Prix 80 dollars Ragtime d Orange Micro autre int gr d dition nanti d un traitement de texte avec colonnes multiples possibilit de m langer des styles et tailles de cr er des cadres de styles diff rents On peut aussi exploser un document pour acc der simultan ment neuf sections de ce document En prime on dispose d un tableur Enfin PS Compose de PS Publishing usage professionnel permet de choisir des niveaux de gris et de transcrire un texte en langage de composition Il fonctionne avec des imprimantes utilisant le langage Postcript comme la Laser Writer Prix 1000 dollars mais aussi avec des syst mes de composition de Compugraphic ou d Alied Linotype le prix est alors de 2000 dollars Est ce un traitement de texte ultra sophistiqu ou bien un syst me de mise en page Les nombreuses fonctions de Writer Plus d AC permettent de l utiliser indiff remment pour ces usages remarquer parmi les avantages la possibilit de stocker par th mes des p
173. i ciens Une mine d or pour les programmeurs qui y trouveront de multiples astuces de programmation des routines de tri et recherche des id es sur la facon de structurer efficacement les donn es des conseils sur la mise au point des programmes Indispensable pour les programmeurs u 80 00 F franco Bon commande page 74 La disquette comprend les sources Taquin Noir amp blac hexagone magique trois 17 weem zer gp jeux de r flexion de difficult croissante Ces DI jeux qui n cessitent des neurones aussi calmes quentra n s ne devraient pas d cevoir les amateurs de puzzles et autres casse t tes eee 2 E la Oh KSM A Bon de commande Disquettes HAIFA source tes dE cra os ce Pom s on 5 comino 6000 F imss O DISK MANAGER cf Pom s n 11 450 00 F bani BASTARDU 5 s cf Pomsn 13 a A 150 00 F 4545695454465666 EXE O ET E cf Pomsn 23 ii 20000F mises change E P E 5 0 cf Pom s n 23 8000 F A o P ASC E cf Pom sn 15 80 00 F MAX Moniteur tendu cf Pom s N 18 UASD rra L Dr LO EEN cf Poms n 19 0 W OOO f COGO em 248924607 cf Pom s n 21 150 00 F URA ska LUDOLOGIC Esas C Poms an 25 mr ux A 80 00 F suma ORDICO scsi cf Pom sn 26
174. ible Le IIGS donne galcment le choix de Tinterface qui servira au boot l est m me possible de booter sur le disque virtuel si on a pris soin de l installer d y copier une disquette avant le CTRL RESET Vitesse garantie Pour les interfaces imprimante et communication le r glage des param tres peut galement se faire par ce tableau de commande D bit parit format et protocole de transmission des donn es sont accessibles sans lever le capot ce qui vu la conception de l ouverture ne nous frustera pas Cet aspect de la machine rend plus vivable le syst me ouvert Poms sait par exp rience toute la souplesse tir e de multiples cartes mais sait galement toute la lassitude de retirer le moniteur pour passer du mode imprimante au mode communication pour tourner le Jumper Bloc parfois imiter les syst mes ferm s a du bon 2 La compatibilit Ce tableau de bord offre galement le choix de la vitesse du processeur 1 ou 2 8 MHz Celle des Apple est 4 choisir si l ouverture de Guillaume Tell de la disquette Pom s 5 doit rester compr hensible ou si votre Z80 est perdu par la vitesse standard du IIGS La fr quence 2 8 MHz est choisir pour tous les programmes ind pendants du timing ou ceux qui sont synchronis s sur la vid o L utilisation de Big Mac par exemple devient tonnante le gain est remarquable sur la plupart des programmes surtout si l on consid re la gestion de la car
175. iffusion B P 86 77402 LAGNY CEDEX
176. imprimante pourta tre connect e Sur l Apple c une routine fort pertinemment nomm e PARAM configurera le port 2 pour le Minitel et le port 1 servira l imprimante S il vous manque l interface Minitel ou celle pilotant l imprimante seules les fonctions li es au p riph rique concern seront indisponibles Autrement dit il sera toujours possible d enregistrer et de consulter des informations du Minitel sans imprimante ou d imprimer des informations pr alablement sauvegard es si votre interface s rie n est pas connect e La liaison Les interfaces RS 232 SSC et V28 Minitel d livrant des signaux s rie incompatibles il vous faut prendre votre fer souder pour r aliser le montage inverseur ci contre Les composants trouveront leur place dans l une des prises ou dans un boitier part Pom s n 27 Mimitel pple Si vous doutez de vos talents d lectronicien vous pourrez vous adresser l une des nombreuses soci t s qui proposent un tel c ble citons par exemple la Sarl OLITEC Les deux modes principaux Le programme propos ici peut recevoir du Minitel restituer Sur Minitel sauvegarder et recharger ce que nous appellerons par la suite s quences l s agit des pages Minitel compl tes charg es de tous leurs attributs graphiques l ordinateur enre gistre dans ce mode tous les signaux disponibles sur la prise p ri informatique La consul tation de ces s quences se fait sur l
177. ion de l article provoque l affichage de la fen tre de s lection suivante D connexion automatique au bout de minutes La fen tre propose par d faut trois minutes ceci correspond au temps pendant lequel l annuaire lectronique est gratuit dans les zones ol il est accessible par le 11 Il est possible de choisir une dur e allant de 1 59 minutes Une fois le choix effectu l article appara t coch avec sa suite un rappel du nombre de minutes Remarques le processus de d connexion du r seau est entam deux secondes avant l expiration du d lar ceci afin de tenir compte de l inertie de l ensemble Mac programme Minitel prononcez cha ne t l matique comme dans les salons o l on cause la d connexion a lieu lorsque le chronom tre passe au temps donn si le chronom tre nest pas z ro lorsque l option d connexion automatique est demand le temps est fauss on se croirait dans la quatri me dimension De m me si on demande un temps de d connexion inf rieur la valeur courante du chronomttre la d connexion sera imm diate l option est outrepassable si la d connexion n est plus d sirable s lectionner nouveau l article d connexion automatique ou demander l azr t du chronom tre bien que les options d connexion automatique et d part automatique soient ind pendantes elles seront la plupart du temps utilis es de conserve
178. iques sur un logiciel de style MacPaint On relie le boitier au Macintosh on programme les heures de mise en action en cliquant sur les interrupteurs sur le plan du Macintosh et en r pondant aux questions dans les fen tres qui s ouvrent On peut ensuite enlever le boitier et le connecter au syst me lectrique A l heure dite les interrupteurs lectriques seront command s Le module de commande avec c ble de liaison au Macintosh et logiciel co te 80 dollars les modules 71 72 n cessaires pour commander chaque appareil iectrigue 20 dollars chacun Pour ceux qui ne disposent que d une Imagewriter I voici un introducteur feuille feuille permettant d viter le papier perfor H co te moins de 2000 Francs et est vendu par Eudimed Disques durs SCSI A noter d abord que le premier Hyperdrive externe le FX 20 est disponible chez P Ing ni rie pour 15300 F avec ses logiciels de spool imprimante de protection des fichiers et de sauvegarde incr mentale sur disquette Chez International Computer on trouve pour quelques 12000 Francs l IC 20 lui aussi d une capacit de 20 M gas Les lecteurs de Pom s se souviendront peut tre de nos pr visions sur la baisse de prix des disques durs Voici pour eux le premier disque dur externe SCSI de 20 M gas disponible pour moins de 600 dollars C est celui vendu par Jasmine Computer Combien de temps faudra t il pour arriver ce prix en France Moins d un a
179. itement de texte et du tableur Plus loin avec la base de donn es et le tableur Int gration avec AppleWorks Bien crit et agr ablement pr sent il nous emm ne la ma trise du logiciel gr ce des applications destin es aux PME artisans et commercants paye facturation Il est utile surtout pour les non informaticiens et les vilains poss dant une version pirat e Le principal int r t de ce livre est de nous entrainer au del de la simple utilisation du programme ce qui est facile Apple Works tant un logiciel ultra fiable conversationnel et bien document part une fonction d aide en nous montrant jusqu o vont les possibilit s de ce logiciel int gr c est dire les articulations entre ses trois applications Ce livre ne s adresse pas aux possesseurs de la version anglaise dont les commandes ne sont pas les m mes Dictionnaire de micro informatique par ric Duceau et Christophe Do Cedic Nathan 191 pages TeLudologic JOQOG elo Pom sn 27 Un livre clair comportant de nombreuses illustrations et bien pr sent Les informations ne sont pas toujours exactes ainsi le langage de programmation Ada et non A D A a t cr par Jean Ichbiah et non Ichbiach et la date de parution de l ouvrage il existe d j de nombreux compilateurs contrai rement l affirrnation de l auteur Un double lexique fran ais anglais et anglais fran ais termine l ouvra
180. ls m caniques lectri ques ou scientifiques Les acteurs de la pi ce sont les suivants e d un cot l Apple avec pour acolytes des capteurs des relais et un MINITEL e de l autre cot Monsieur X ou un complice Monsieur Y comme lui possesseur d un Minitel entre les deux la ligne t l pho nique Le sc nario se d roule ainsi Acte 1 une maison isol e Ars ne Lupin croch te la serrure Au moment o la porte s ouvre un microcontact se ferme L Apple en chien de garde d tecte l ouverture Aussit t 11 compose secr tement le num ro de t l phone de Monsieur X Acte 2 la sonnerie du t l phone de Monsieur X retentit Monsieur X d croche le combin et dans l couteur lui parvient un sifflement aigu quelque chose qui lui rappelle le 1700 Hertz de l annuaire lectronique Monsieur X a compris et connecte son Minitel voit appara tre sur son cran une supplique le pressant se manifester frappe sur son clavier la r ponse souhait e Alors un message plus explicatif s offre ses yeux le lieu d effraction la position exacte du circuit atteint l tat de certains capteurs Une question lui est enfin pos e doit il ordonner l Apple une riposte sur le lieu de l effraction et laquelle Variante l acte 2 la sonnerie du t l phone de Monsieur X retentit Monsieur X est absent Au bout d une minute l Apple impatient raccroche puls compose le num ro de Monsi
181. m er cette fiche O N CALL G80 PRINT 4040 K CHR PEEK 16384 IF K lt gt O AND K gt o THEN RETURN 4050 PRINT DS OPEN INDEX L20 4060 PRINT DS WRITE INDEX R N 1 4070 PRINT Oe PRINT 4080 PRINT DS WRITE INDEX RO 4090 PRINT NF 1 4100 PRINT DS CBOSE 4110 X N 1 0 NF NF 1 PF N I 4120 RETURN 4999 5000 REM Liste partir d un nom 5001 REM 5100 REM Initialisation 5101 REM 5110 PRINT Nom d origines ie LM 352 5 NOS GOSUB 110 PRINT GOSUB 600 SUBO K Oe BOR CU 5130 K K 1 Y0 X K 9 Y1 X K 1 5140 N K 0 IF YO A GOTO 5130 5150 IF YO gt XO OR YO XO AND YI gt Xi THEN FF FF 1 N K 1 5160 NEXT I IF FF O THEN PRINT PRIN T Il n y a aucune fiche apr s ce nom LES GOTO 5200 5170 CS de C IF X0 0 THEN C du d but 5180 VTAB 3 PRINT Liste de FF fiche s partir CS HOME 5190 PRINT DS OPEN ADRESSES L256 5200 REM Lecture 5201 REM 5210 FOR I FF TO 1 STEP 1 5820 XO 987654321 K 0 FOR J 1 TO I 5230 K K 1 IF N K 0 GOTO 5230 5240 YO X K 0 YI X K 1 5250 IF SO X Y X0 AND 71 lt XITH EN X0 Y0 X1 Yl N K 5260 NEXT J PRINT D READ ADRESSES R N GOSUB 700 5270 POKE 16364 0 PEEK 16384 32 THEN CALL G80 5280 IF PEEK 16384 27 GOTO 5500 5290 N N 0 NEXT I PRINT PRINT Dern lere fiche 530
182. mbreux aspects du Mac et de multiples astuces sur son syst me et ses logiciels courants Le livre d Excel sur Macintosh par P Auchatraire 384 pages 245 00 FF D couvrez progressivement grace des exemples le tableur d Excel sur Mac et Mac Plus A PARAITRE Macintosh efficace par P Brandeis et F Blanc 168 pages 150 00 FF t Paiement par ch que joint O Paiement par Carte Bleue Visa P C V Diffusion uniquement Date d expiration O Je demande le catalogue P C V gratuit Nom Pr nom ET T Rue N ville Code Postal ET ANIMATION GRAPHIQU e SUR APPLE PROGRAMMA 10 DE L APPLE MATE PTY SUR MACINTOSH b R nasi 4 TAFE La Gagnez du temps Ne recopiez pas tous les programmes du livre commandez la disquette qui vous les fournit directement utilisables sur votre ordinateur Prix 150 00 FF en vente par correspondance uniquement 8 Mise En Page Georges Zwingelstein p a Page 40 Editorial Herv Thiriez Page5 T l Alarme Telematique BE Un carnet d adresses Boris Fivolewski MacAstuces Page 42 e Minitel Macintosh Jean Luc Bazanegue Bernard Hoyez et Jean Luc Nail Page6 Minitel Apple Christian Piard Un crayon Optique Christian Piard Carte Super S rie et CPIM Seconde partie Jean Michel Gour vitch Page 70 Bibliographie Alexandre Duback Page 73 Jean Frang
183. ment au Macophile imp nitent et qu au prix de certaines modifications il potirra r cup rer ses fichiers dBase IBM notons au passage que rien n est dit sur la r cup ration de fichiers Apple II ce qui pourtant devrait aussi tre possi ble sans difficult suppl mentaire H 1 int ressant de voir comment sera le dBase Mac d Ashton Tate qui devrait tre disponible en France en d but 87 Contrairement dMac III dBase Mac compatible avec dBase 111 doit sortir en fin d ann e c est une base de donn e relationnelle compl te permettant d ouvrir 36 fichiers a fois un produit concurrent d Omnis III de 4 me Dimension et du plus r cent REFLEX de Borland lui aussi bient t disponible en fran ais PC Diffusion Internabonal 9 bis rue Casimir Pinel 92200 Neuilly Prix 3950 F HT FullPaint C est bien simple si vous aimez MacPaint vous adorerez FullPaint Voici enfin pro gramme totalement compatible avec MacPaint c tait la moindre des choses et qui permet de faire tout ce que fait MacPaint plus e travailler sur des images en plein cran e avoir plusieurs documents ouverts Aia fois effectuer des rotations et transformations diverses d placer ou cacher les outils et les motifs e utiliser des r gles et des pointeurs de position e coller depuis Album des documents plus grands que la fen tre e imprimer avec limageWriter dans les formats 50 100 200 et 400
184. mode direct ou pr c d es par CHR 4 dans un programme Basic et le tour est jou Tout ce que vous tapez sur le clavier de l Apple est instantan ment tranf r sur les crans de l Apple et du Minitel et de m me si vous tapez sur le clavier du Minitel Le revers de cette facilit est d une part une certaine lenteur et d autre part un manque de contr le sur les incidences du logiciel Pour ces raisons nous avons pr f r programmer direc 7 tement les entr es sorties de VACIA VACIA ou Asynchro nous Communications Interface Adapter est le circuit int gr principal charg de la serialisa tion et des transferts de don n es Deux registres sont connaitre le registre tampon double d mis sion r ception et le registre d tat qui ont respectivement leur image en m moire aux adresses C0A8 TDREG RDREG et C0A9 STATUS si la carte est enfi ch e dans le slot 2 pour l activer faites un saut en C200 Chaque bit du registre d tat pris isolement indique l tat de cer tains registres ou de certains s gnaux Dans notre cas ce sont les bits 3 et 4 qui retiennent notre attention Le bit 3 est positionn si le tampon de r ception est plein Attention c est l inverse pour le bit 4 qui est 1 si le tampon de transmission est vide Programme TELEALARME de Pour tester si un caract re est entr ou sorti il suffit de faire respectivement un AND
185. n L Apple en vedette L Apple est en vedette am ricaine Avec d abord le HGS qui est enfin sorti avec une moisson de programmes nouveaux pour la gamme Apple Son prix et ses possibilit s devraient le r server dans un premier temps aux march s de l ducation Des traitements de texte Voici Multiscribe de Styleware tr s ressemblant Macwrite avec menus et polices de caract res modifiables utilisation de la souris et un prix de 60 dollars Voici encore Paperclip de Batteries Included avec toutes les fonctions de recherches les en t tes et bas de pages automatiques une vision sur l cran du document tel qu il sera imprim Voici un nouveau tableur style Macintosh utilisant la souris VIP professional de ISD Marketing avec 8192 rangs sur 256 colonnes une m moire utilisable de 4 M gas un grapheur et un langage de macros comme Lotus 1 2 3 Prix 250 dollars Voici encore la derni re version d un simulateur de vol Jet r alis par Subloglc l auteur du c l brissime Fight Simulator qui vous place au commande d un avion r acteur avec vue de Vext rieur d collage d un porte avion etc Et si on se plante Alors voici Wilderness d Electric Transit Que faire apr s que vous vous soyez crash avec le Flight simulator demande la publicit Utiliser Wilderness un jeu de survie dans la jungle Am liorer le Faut il abandonner son Il sera probablement possible de le mettre au
186. n donner ce mode et bien entendu la sauvegarde est propos e Consultation S quences La consultation se fera sur le Minitel Si ce dernier est r cent vous pourrez optez dans le demier menu pour 4800 bauds l affichage devient alors tr s agr able Les fl ches vous permettent d avancer et de reculer dans la consultation et ESC de conclure Copies d cran La consultation consistera en l impression ou la cr ation d un fichier TEXT Sur ImageWriter DMP l impression se fait en lite largi code de contr le la fm de la ligne 795 adapter votre imprimante Sur les autres imprimantes aucun code de contr le n est envoy Vous pourrez galement cr er un fichier TEXT partir de vos copies d cran Dans les deux cas les copies sont s par es par une ligne de 40 Transmettre l ordinateur des s quences alors qu il attend des copies d crans provoquera des effets tonnants lors d une ventuelle consultation l imprimante O Pom s n 27 Chargement dm G n n d r AAA AA TL mr r mam am m e Qm amo m ama gw e e ar mn mm e ge e R ze ge ge ge am u LECTEUR 1 LECTEUR 2 RETOUR q A mp e mp mm w ES Le nom de fichier demand peut toujours tre remplac par un pour obtenir le catalogue des disquettes Un simple Retour Chariot signifie que vous renoncez l op ration mais bien S r
187. ne r sistance d environ 1 KS2 pour att nuer le courant Pom s n 27 Rappelons que les entr es logi ques sont accessibles sur les broches 2 3 et 4 du connect eur interne ou sur les broches 7 1 et du connecteur arri r e du le de 0 3 relais selon les be soins mont s selon le m me principe que pour le compo seur de num ros Ces relais sont connect s aux sorties t moins ou annonciateurs Les sorties logiques sont acces sibles sur les broches 15 14 13 et 12 du connecteur inteme h las pas sur le connecteur arri re Comme l une de ces sorties est d ja occup e par le composeur de num ros trois sont encore disponibles ANI AN2 et AN3 e de a 4 capteurs r sis tance variable ou potentio m tres de 150 KC Ces capteurs seront reli s direc tement aux entrees des manettes de jeux GC GCi GC2 et GC3 Dans le programme propose nous ne ferons que lire la valeur prise par ce capteur mais vous pouvez bien entendu envisager de d clencher l alarme au del d un certain seuil Une application classique peut tre la d tection d incendie ou de gel l aide d une thermistance Une valeur pr conis e pour cette thermistanc e peut tre de 15 KQ la temp rature ambiante et un rapport R 25 1 R 50 entre 9 et 10 Des essais ont montr la lin arit de la fonction R ff PDL x Pour PDL x 255 la r sistance est environ de 115 KA D autres applications adapte
188. ne puis mode inverse e NI CHR 24 N fin du mode ic ne puis mode normal Ces caract res permettent de modifier plusieurs fois le mode d affichage pendant le m me PRINT Sur les anciens e les ic nes n tant pas disponibles IC et NI n ont aucun effet Exemple d utilisation l affichage de la variable CR IC M NI donnera l ic ne Note pour que le programme puisse tourner sur unlle non mis niveau un test est effectu au d but afin de d terminer si l affichage utilisera ou non les possibilit s graphiques des ic nes SOUT LS Les programmes en langage machine Ces programmes au nombre de quatre sont charg s par le programme en Basic sous forme de DATA qui sont POK s en page 3 Ils sont tous relogeables peu importe donc leur ordre pourvu quils ne se chevauchent pas Les deux premiers sont d j parus dans Pom s donc seuls les sources des deux derniers sont list s GER est la routine classique qui Pom s n 27 accompagne un traitement der reur il est inutile de la pr senter COMP assure la m me fonction que les programmes COMPO SEUR d j cit s Il est par contre relogeable et fonctionne aussi bien sur le e ou le c IN est un input g n ralis qui permet d accepter tous les caract res l est utilis pour lire le fichier ADRESSE sans avoir de probl me avec les virgules ou autres Programme CARNET NB Les puces
189. nsultation vous retrouvez toutes vos couleurs Notons galement que les caract res que vous tapez au clavier de l Apple sont transmis au Minitel transmis l ventuel serveur en ligne affich s l cran du Minitel puis transmis vers la prise o votre Apple pourra les recueillir pour les afficher Lorsque votre Apple transmettra un texte un serveur le programme tiendra compte du d bit et du temps n cessaire au serveur pour interpr ter les codes sp ciaux de type SUITE Pour vos programmes nous donnons en annexe la table de correspondance des caract res disponibles sur vos Apple avec ceux du mini terminal ainsi que ses caract res semi graphiques EA ra ranman na A AA ra ra ranna na naamana ARA O O A EE E E E E E JE BA ELL i 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 PERAR i 48 49 50 51 52 53 54 55 56 52 58 59 60 61 62 65 EREATARA T A A 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 PETT i 80 s 82 85 84 85 86 87 88 89 KA 91 92 95 94 95 Jeux de Mederos e Vid atex ASCII desman CARA AAA AA AAA eo EA HHHH HAHAHA i tener AAA O C O IIA AA AA A A 53 En attendant nos prochains Sarl Olitec 20 rue de programmes de communications R m nauville 54000 NANCY 2 via Minitel ne manquez pas de T l 16 83 35 00 65 P ont S nous faire part de vos remarques Tarif 225 00 F pour Apple et suggestions e c et Macintosh
190. ois Gell Page 29 Les annonceurs Apple pages 38 et 39 Badaroux C A page 37 Infomag page 75 PSI page 76 ditions MEV 12 rue d Anjou 78000 Versailles T l 1 39 51 24 43 Directeur de la publicatlon Herv Thirlez Pom s n 27 Pom s pr sente o Destin aux amateurs de mots crois s ou de Scrabble cette base de donn es due Roland Jost permet de trouver un mot de longueur donn e dont on ne connait gue guelgues lettres pour Apple J lle Ae Ordico contient plus de 15000 mots class s en 70 rubriques Recherches et affichages sont rapides un fichier de 1500 mots est charg en moins de 10 secondes et exploit quasi instantan ment Il est bien s r possible d ajouter des termes aux divers fichiers de cr er de nouvelles rubriques Voici quelques rubriques lere face Acteurs Animaux Armes guerres Auteurs am ricains Auteurs anglais Auteurs fran ais Chimie Cin astes Coureurs cyclistes D partements r gions Dieux d esses Familles v g tales Femmes c l bres Hommes politiques Iles Jeux sports Min raux Montagnes Musiciens jazz Musiciens Parties du corps Peintres trangers Peintres francais Rivi reslfleuves Saints saintes Savantslinventeurs Scul pteurs v g taux V tements Villes 2 me face Athl tes Boxeurs Cantatrices Cols Cosmonautes Coureurs automobiles D serts D troits Doctrines philosophiques
191. onde sait maintenant que les applications doivent laisser une place dans la barre des menus pour UN ventuel accessoire justement Certains togiciels fort connus tels ReadySetGo Switcher ou ThinkTank sont allergiques Tempo f licitons ici l initiative de l importatemr qui fournit une premi re liste de ces allergies Avee PageMaker Tempo exige l original ne perineitant m me pas qu on l introduise seulement loss de la v sification de copysight Enfin Tempo est vite d bord quand on utilise tes possibilit s les plus int ressantes telles que la programmation de pauses ou de boucles il affiche alors des messages totalement incoh rents et se comporte bizarrement Quelques avantages Tempo est en fait un out id al pour accomplir sans difficult s et sans risque d erreur des actions r p titives simples Dans ce cas d ailleurs m me les fonctions avanc es pauses boucles et tests fonctionnent de fa on satisfaisante Tempo est vraiment utile pour prendre trois exermle s comme glossaire pour Mac Write pour effectuer des Rechercher Remplacer ou des changements de police et de style fr quents pour faciliter avec Pagemaker une op ration ennuyeuse telle que le choix de caract res Une bizarrerie Cette derni re utilisation fait toucher du doigt une particularit de Tempo Supposons que dans une fen tre de dialogue on fasse d filer une liste par exemple de polices de caract res pour trouv
192. p et seuls des 960 premiers caract res sont charg s Fichier Nouveau Ouvrir Enregistrer Fermer Pour sauvegarder un texte Si le texte ne porte pas de nom le programme affiche la fen tre de saisie habituelle Comme pour le chargement si le texte sauvegarder contient plus de 960 caract res un Bip est mis et seuls des 960 premiers caract res seront enregistr s Le Bouton Nombre de caract res donne cette indication dans la case plac e au milieu de la fen tre 11 peut tre utile dans le cas de serveur acceptant seulement un nombre limit de caract res Le Bouton Envoi met les caract res contenus dans la fen tre vers le serveur ceci raison de dix caract res par secondes Remarques e les caract res sont filtr s et recod s si besoin est au moment de l mission Certains caract res exotiques qui ne seraient pas reconnus pas le serveur sont simplement supprim s Ainsi le caract re Y n est pas transmis Le tableau de la page 54 indique les caract res valides la fen tre de saisie du mode Pr paration Envoi n accepte pas les retours chariot Cependant uz retour chariot se trouvant dans zz texte saisi avec un programme Com MacWrite sera envoy au Minztej comme la commande Suite bien que les retours chariot ne soies pas accept s directement parla fen z les fonctions d dition Couper Copa et
193. permet de modifier le format d impressionf pr tabli utilis dans la plupart des applications voir l article miss en page ou format d impression du menuf Fichier par les nouveaux documenta StaticText Disabled 70 5 120 482 Si vous cliquez sur la case oK MAC Astuces Plus de 24 points avec MacWrite Mais oui c est possible 11 suffit pour cela de disposer d un diteur de fichiers FEdit par exemple et de quelques minutes pour les manipulations Voici ia m thode tapez un mot par exemple MOT et donnez lui la taille 24 points enregsirez le petit fichier ainsi constitu avec voe diteur de fichiers visualisez le contenu du document on voit apparaitre le MOT le sixi me octet apr s MOT indique la taille du texte ici 18 pour 24 en d cimal remplacez l valeur par 32 48en d cimal lorsque l on appelera nouveau le fichier depuis MacWrite sera d sormais affich en 48 points il est donc possible de le s lectionner et de ta per ce que Yon veut la place Celle m thode autorise aussi les tailles de caract res hors normes comme par exemple 8 ou 42 points MacPaint et FullPaint Si vous maintenez la touche Opuon enfonc e lors du trac d une surface remplie rectangle oval le bord de la surface ne sera pas trac Si vous voulez totalement remplacer MacPaint par FullPaint au point qu un double clic s
194. question de Minitel rose dans les lignes qui suivent peut tre utile de rappeler dans ce pr ambule que dans les zones desservies par l annuaire lectronique le Minitel est gratuit ce qui donne un modem d un rapport qualit prix incalculable Le hard Les programmes de ce num ro supposent que votre ordinateur est quip e d une carte interface RS232 courante sur nos micros mais incompatible directement avec la V28 du Minitel cest ce qui impose de fabriquer ou d acheter le c ble de liaison enrichi d un petit montage inverseur Ce petit montage est peu co teux 30 00 50 00 F selon les connecteurs utilis s si vous le faites vous m me environ 200 00 F chez l une des nombreuses soci t s qui le proposent Olitec par exemple En ce qui concerne le raccordement des appareils il est important de veiller ce que le Minitel soit isol du secteur avant de brancher et debrancher La prise peri informatique laquelle vous reliez votre Apple d livre et accepte des signaux 1200 bauds valeur par d faut La plupart des Minitels livr aujourd hui disposent d une touche FNCT qui permet entre autres deffectuer des copies d cran vers ladite prise FNCT I puis A ou bien FNCT I puis F d clenche le processus ANNULATION l interrompt Lors de ces copies d cran seuls les caract res ASCII sont transmis les ventuels graphismes Vid otex ne le sont pas Pour changer la vitesse de t
195. r une photo r sistance pour d clen cher en fonction de la lumi re ambiante une jauge r sistive de contrainte en fonction d un effort ou d une pression un acc l ro m tre en fonction de chocs e une liaison SSC MINITEL plusieurs solutions s offrent vous Se reporter la pr sentation g n rale page 53 et au plan de c blage dans l article Minitel Apple page 55 Pom s n 27 Attention si vous tes bricoleur ne r unissez votre Minitel votre Apple qu apr s avoir d branch sa prise secteur Il ne suffit pas de Veteindr e mais carr ment de l carter du 220 volts car le pauvre n a qu une seule tare il ne poss de pas de transformateur d isolement La carte SSC est log e dans le slot 2 Pour une autre implan tation quelques modifications doivent tre apport es au programme Enfin quelques r glages pr limi naires permettent de s affranchir de lignes de programmes super flues Voici la configuration sv 1 sw2 on on 0000000 0000000 modem configuration de la carte terminal SSC Apple Le programme Trois sortes de consid rations sont abord es dans l criture du logiciel de t l alarme la gestion des entr es sorties sur le connec teur de jeu la programmation de l ACIA de la carte super s rie et enfin l utilisation du Minitel La prise de jeu prise au s rieux Pourquoi chercher plus compli qu Le connecteur de jeu offre une vari t de signaux d entr es sorties
196. r uniquement s il a t cr partir du mode stockage Une fois le fichier ouvert les boutons de commandes sont rendus valides en fonction du nombre de pages du document Leur signification e lt C e premi re page du document e lt lt dix pages en arri re une pageen arri re e gt page suivante e gt gt 6 e gt dix pages en avant derni re page du document Il est aussi possible de passer la page suivante avec les touches retour chariot et entr e Note afin d viter la confusion des crans on vide celui du Minitel avant chaque changement de page sauf lorsqu on passe la page suivante Liaison llac panpsrion 1200 bauds 3800 bauds La vitesse de transmission par d faut vers le Minitel est de 1200 bauds si votre mini terminal le permet il est possible de passer 4800 bauds ce qui donne un plus grand confort la consultation Bien que cela ne pr sente pas beaucoup d int r t on peut changer de vitesse tout moment Attention de mani re g n rale lorsque vous utilisez ce programme et surtout si vous utilisez le changement de vitesse de transmission il faut que le Minitel soit reli au Macintosh et sous tension Ceci garanti l utilisation de vitesses identiques par les deux appareils 46 Mode Consultation Copie d ecran Pr paration envoi IFORMAT E
197. r de presse diffus par le constructeur Voici simplement notre premier contact et quelques caract ristiques gageons toutefois que nous vous ferons profiter sans tarder de nos premi res lignes de programme 16 bits Le processeur Empiler directement un registre compter de 0 1000 ou 65535 directement disposer de branchements relatifs longs de sauts indirects des sous programmes utiliser un adressage sur 24 bits d placer des blocs de m moire 32Ko en 80 ms sont quelques unes des possibilit s du 65816 Ce processeur qui reste dans la ligne des 6502 et 65C02 s duira leurs adeptes la lecture de ses caract risti ques ne d paysera pas le Lecteur de Pom s comme il put l tre par l arriv e du 68000 Le 65816 qui est une volution non une r volution met la disposition du programmeur Accumulateur A 16 bits Registres X et Y 16 bits Registe DBR le num ro de la page DATA c est dire les 8 bits de poids fort dans les adressages longs e Registre PBR le num ro de la page de l instruction suivante Program Bank Register le PC contenant les 16 bits de poids faible Registre D pour les adressapes directs Registre d tat P Pointeur de pile S sur 16 bits Un petit tour en moniteur par le CAL1 151 on est en mode emulation nous fait decouvrir ce nouveau listing FF 19D8 00 00 El E2 30 64 Al 60 ab0d FF 19E0 32 D5 BD A0 DS F3 ES E4 2U Used FF 19E8 A0 EC E9 F3 F4 A0 A0 DO
198. ransmission vers la prise e FNCT P puis 3 donne 300 Pom s n 27 bauds e FNCT P puis 4 donne 4800 bauds FNCT P puis 1 donne 1200 bauds Les programmes qui suivent gerent eux memes les changements de vitesse vous n aurez donc pas intervenir La prise se fait l cho en perinanence de ce que re oit le Minitel sauf lorsque vous l inhibez en faisant FNCT P puis seules les copies d cran passent alors Notons l attention de ceux qui se sentent une me de t l maticiens que le protocole utilis sur cette prise perinet de s adresser non seulement une imprimante ou un micro ordinateur mais galement un p riph rique donn parmi plusieurs autres branch s simultan ment presqu AppleTalk Dans ses changes avec le r seau votre terminal re oit les informations 1200 bauds et les transmet 75 les appareils livr s aujourd hui sont tous retoumables vitesses invers es Le soft La gestion de l cran du Minitel rr n est pas des plus simples caract res ASCII ABCD polices parall les et autres semi graphiques couleur de fond couleur de caract re masques A joutons l obligation d crire un espace de validation des changements d attributs graphiques pour clairer l ensemble Les programmes d enregistrement Minitel de ce num ro stockent l int gralit de ces informations sans devoir les analyser et lors de la co
199. riables 1 REM de ae re 56 o o 7 3 96 ot 76 3 56 HAE 2 20 GOTO 1000 REM programme principal 2 REM x x 3 0 4 D BREM i TELEALARME 3 100 REM COMMANDES VIDEOTEX RH 4 REM 3 3k 3 3 3 3 3 5 3 3 O 5 REM Bernard HOYEZ 110 ESS CHRS 27 6 REM Jean Luc NAIL 2 120 EFS CHR 12 REM HEFFACEMENT DUE 7 REM x RAN 8 REM 2 2 tt t e tt t t tt OK 130 RCS CHRS 10 CHRS 13 9 3 140 DH ES CHR 77 REM DOUBLE HA UTEUR 150 FLS ES CHRS S 72 REM FLASH 160 VTS ES CHR 82 REM FOND VERT 170 PIS ESS CHRS 57 REM PROM 180 CO Pl CHR 104 REM N 190 DES P1 CHRS 103 REM DECONNEX ION 200 OPS PIS GHRS T14 REM OPPOSME ON 210 Y 300 REM MESSAGES X H t x 310 ALERTES EFS RC RC VT DHS FLS ALERTE A CHR 31 KA DHS REPONDEZ E N TAPANT VIS F 320 M1S EFS RCS DH MERCI D AVOIR REPONDU RCS RC CECI ETAIT UN E SIMULATION D EFFRACTION RCS RCS CHEZ MARTIN d 2 6 7 CLARE PRME 5V hy WA La Ch NN Ce sch ma est extrait du num ro 22 de Pom s Composition de num ros de t l phone 8 Poms n 27 t l charger les m moires vives en dehors de l alarme le dia pour cela toutes les lignes du du Minitel ou identi
200. rogramme d approche du langage Forth Vous tes le bienheureux possesseur de la disquette d accompagnement de la revue Passez l tape 7 At A LA t A GARDE APF A APF 22 4 B DICO DEMOAPF T MESSAPF 7 Faites RUN GARDE APF Saisir et sauvegarder le fichier binaire DICO qui contient les ordres Forth de base le noyau Saisir CREDEMO le sauvegarder faire RUN CREDEMO pour cr er le fichier TEXT DEMO APF Saisir CREMESS le sauvegarder faire RUN CREMESS pour cr er le fichier MESSAPF Saisir et sauvegarder GARDE APF et APF 224 Vous devez disposez sur la m me disquette des fichiers suivants ce sont les seuls n cessaires La Pa alors que l approche compil e est repr sent e par la d finition de nouveaux mots CARRE DUP Les programmes fournis CREMESS cr e et modifie le fichier direct MESS APF L utilisateur n a pas en principe travailler avec sauf sil veut adapter le programme APF CREDEMO cr e et modifie le fichier DEMO APF qui contient des exemples de s quences Outre l aspect d monstratif on peut s en servir comme base de petits program mes charger GARDE APF affiche la page de garde et lance APF Comment se servir d APF Il y a deux modes e normal pas pas pause apr s chaque mot d une m me ligne Vocabulaire d APF DEMO charge un des exemples du fichier DEMO APF INIT r initialise le Forth doit tre en d b
201. s transferts la vitesse maximale de la carte SSC 19200 bauds Ceci permet des changes de fichiers importants avec une rapidit spectaculaire en liaison t l phonique cela d pendra videmment du standard utilis 300 bauds pour Transpac V21 et 1200 75 pour V23 Sous XMODEM le volume d information chang est de 132 octets dans le sens metteur vers Pom s n 27 r cepteur pour 1 octet en sens inverse La transmission en V23 nest donc int ressante que si cest le programme d mission qui utilise le canal 1200 bauds les codes du programme r cepteur revenant par le canal 75 bauds Ceci suppose donc l utilisation dun Modem r pondeur Mode 2 Si votre Modem ne comporte que le mode Appel utilisez plut t Transpac 300 bauds ce sera plus rapide Enfin derni re remarque la carte SSC est monovitesse Pour transmettre en V23 il vous faudra un Modem capable de sym triser ses entr es celui du Minitel par exemple ou la solution deux cartes s rie une mission une r ception Ceci tant XMODEM rend envisa geable la technique consistant utiliser un port monovitesse en changeant la vitesse de transmission selon que l on lit ou crit puisque les op rations de lecture et d criture sont altern es Dans ce cas il faut initialiser avec la vitesse de r ception reconfigurer l ACIA en vitesse de transmission uni quement au moment d mettre et repasser sur la vitesse de r ception
202. s est associ avec la LaserVriter Pimprimante laser d Apple A la seule diff rence que si 31 assistants se bousculent autour d une presse 31 Macintosh reli s par AppleTalk se partagent ais ment une LaserWriter Mais malgr son million d octets de m moire morte extension LaserWriter Plus et sa r solution de 130 points cm la LaserWriter ne serait qu une version Gatenber g 1395 1468 a invent l im primertt l g rement am lior e de la presse en bois sans la puissance et les capacit s graphiques de Macintosh Plus 7 X ef Apple Cemputer France Avernse de ad aura pas le dernier mot C est dire un m ga octet de m moire extensible 4 m ga octets un nouveau lecteur de disque interne double face 800K et en option un dis que dur de 20 m ga octets ce qui permet de stocker des milliers de pages de documents Et comme toujours Macintosh Plus met votre disposition tous ses ameux outils de bureau pour couper coller remodeler le texte choisir les carac t res m langer texte et dessin etc Au commencement de l dition il y a l criture avec des logiciels de traitement de texte comme MacWrite Word ou Writer Plus le vrai probleme des auteurs c est l inspiration Page Maker ZA de Courtabezuf BP 131 91944 Les Ulis Cedex Le texte si brillant soit il ne suffit pas Avec MacPaint et MacDraw pour illustrer tracer des sch mas et des d
203. s rongeurs roulettes mais pour passer de menus en menus il s av re particuli rement efficace De plus le co t de l op ration moins de 40 00 F la rend attrayante Le principe lle Les principes retenus pour le contr le du balayage vid o tant diff rents sur les c et e la routine est compos e de deux parties ind pendantes Le manuel de r f rence de l Apple e signale un octet qui change de valeur au d but et la fin du balayage vid o 5 019 Pour conna tre la position d un crayon optique sur l cran il convient de chronometrer le temps coul entre le d but du balayage et la r ception de la lumi re par le crayon Cette r ception sera contr l par un phototransistor reli au connec teur des poign es de jeu Le programme en assembleur respecte les tapes suivantes attendre que le crayon ne soit plus clair pour laisser fmir un ventuel balayage en cours attendre le d but d une trame commencer alors le comptage attendre que le phototransistor soit clair pour stopper le comptage recommencer le processus si on arrive en fin de trame sans que le crayon n ai re u de lumi re e contr ler que le crayon se retrouve bien dans l ombre apr s le passage du spot Si tel n est pas le cas le crayon tait clair par la lumi re ambiante e contr ler simultan ment le clavier pour que l utilisateur puisse l utiliser son gr Pom s n 27
204. siner sur une m me table micro ordinateur et Minitel En dehors de leur air de famille ils s ignorent souvent l un l autre 11 suffit cependant de peu de chose pour les marier et que naissent des applications nouvelles Celle que nous vous pr sentons s adresse un Apple mais la transposition est r alisable simplement sur un autre micro ordinateur ayant un port s rie Peut on apprendre notre ordi nateur t l phoner tout seul c est dire composer un num ro et r pondre intelligiblement On peut envisager par exemple la connexion du haut parleur interne sur la ligne t l phonique par l interm diaire d un transforma teur de t l phone Ce dispositif permettrait l Apple de servir de r pondeur t l phonique en utili sant un programme de synth se vocale par exemple Malheureu sement la synth se et la recon naissance vocales sur un Apple sans p riph rique sp cialis n offre pas de bons r sultats Aussi notre r alisation n utilisera pas la parole comme moyen d change mais le texte Rangez donc votre combin t l phonique dans le placard et sortez votre Minitel qui s av rera plus adapt la situation Le principe Plus qu un simple dispositif d alarme cette r alisation est un v ritable syst me de contr le distance d une installation Le cas choisi ici un dispositif anti cambriolage nous servira d exemple mais vous pourrez l adapter la surveillance d apparei
205. spectives faces cach es calques superposables etc Prix 7000 Francs Toujours distribu par Abvent Slide 123 permet la r alisation sur le Macintosh de dossiers de permis de construire de maisons individuelles avec notamment l tablissement des calculs de surfaces La sortie imprimante est r alis e l chelle requise par l administration lcm par m tre pour les plans et fa ades et le plan Masse Prix 7000 Francs Des Macintosh dans les labos Avec l entr e possible du Macintosh dans les usines d crite ici dans le dernier num ro de Pom s son irruption dans les laboratoires n a pas fini de faire du bruit Dans un article consacr aux logiciels sp ciaux la revue MacWorld de septembre recense notamment des programmes permettant de reconstruire l cran les mol cules d ADN recombinant c est DNA Inspector de Textco ChemDraw de Stewart Rubinstein est un outil de dessin pour chimistes Labview de National Instruments Corporation permet d erelier le Macintosh des instruments et de les contr ler l cran du Macintosh l interface se r alise par un bus IEEE 488 Macintosh ADIOS de GW instruments permet de faire fonctionner le Macintosh en analyseur spectogra phique voltm tres huit canaux ou d muler un oscilloscope basse fr quence A remarquer toujours dans le m me domaine Designscope de Power un instrument de simulation de circuits lectroniques utiliser avant de
206. ssin qui donne la correspondance entre les transistors sur le sch ma et leur apparence physique ce qui rend le montage accessible tous de 1 interface reliant le Minitel au Macintosh ou au Macintosh plus Ce demier utilise une fiche Mini DIN qui n est pas encore en vente partout si vous avez des probl mes pour vous en procurer une il vous sera toujours possible d employer la solution Macintosh 128 ou 512Ko avec en plus un adaptateur Mac MacPlus DB9 femelle Mini DIN m le L autre solution consiste en l achat d une interface du commerce Le programme emploie plusieurs menus le menu Mode est le principal Voici le premier de ces modes de fonctionnement Stockage Consultation Copie d ecran Pr paration envoi Ce mode sera utilis pour engranger rapidement les informations qui arrivent sur l cran du Minitel Pour cela d faut utiliser le clavier et la souris du Macintosh la place du clavier du Minitel on ne perd pas au change Les commandes Minitel Sommaire Guide etc sont obtenues par l action sur des boutons affich s l cran certaines d entre elles sont acces sibles par des quivalents clavier Envoi Retour chariot ou Entr e Suite Tabulation Correction BackSpace Annulation Annulation uniquement MacPlus Le but du jeu est donc d enregistrer les crans il faut pour cela ouvrir un fichier sur une disquette ou un disque dur
207. sup rieures 127 g n ralement 9519 2C 00 CO 30 ic 2C 61 CO 95B8 A0 12 20 DE 95 20 Fl 95 on obtient 160 puis revenezen 2535 co 30 na 10 oz A2 20 9508 61 CO 30 C6 08 30 ES arri re l g rement pour obtenir Q Ca oo Fp 22 di co s ca 9300 zc 10 CO AD 00 CO as 07 c 9530 60 2C 10 CO AD 00 CO 85 95D8 A9 FF 85 06 DO EE 48 A2 127 g n ralement 32 le tout 35385 07 FF 85 06 60 78 A9 95 0 00 86 FE A2 C4 86 FF 81 crayon l ombre 9540 68 8D FE 03 A9 95 8D FF 95E8 FE 85 FE A0 40 68 6C FE C 9548 03 A0 19 20 DE 95 A9 08 95F0 00 AS 19 85 FE AS 1A 85 9550 A0 12 20 DE 95 A9 00 85 95F8 FF A4 1D A6 1C AS 1B 60 6 s Source T CRAYON 43 INC COMPT Chronom tre 44 BIT VBL jusqu fin Assembleur Big Mac 45 BM SOE balayage 46 BPL DEB 1 ORG 9600 273 47 ECLAIRE 2 COMPT 6 48 LDX 20 Crayon de nouveau 3 TOUCHE 7 49 ECE DE X l ombre 4 DRAP 8 50 BNE ECE 5 SAVE 519 5 BIT CRAYON 6 SAVA 1B 52 BMI DEB Non parasite 7 SAVX SAC 53 RTS Oui fini B SAVY 510 54 9 545 55 CLAVE BIT 5 010 Vide clavier 10 ADR SFE 56 LDA KBD Sauvegarde carac 11 VECT 3FE Vect interruption 57 STA TOUCHE tere et met 12 VBL C019 Video sur e 58 LDA FF compteur a FF 13 CRAYON C061 Entr e logique 0 59 STA COMPT 14 KBD C000 Clavier 60 RTS 25 l 16 LDA FBCO c ou e 62 IIC SEI Mise en place I7 BEQ IIC 63 LDA lt INTER du vecteur 18 DEB 64 STA d interruption 19 BIT KBD On attend une touche 65 LD
208. t Sortie de caract re LO P LBA STATUS 251 le bit 4 du registre d tat est 4 1 AND 4510 on peut transmettre la donnee BEQ LOOP LDA CARACT STA DATA rSortie du caract re RTS gt Composition num ro LDZ CHIFFRE SEPARE ss parateur entre chiffres CMP 9 1 BCS SEPARE AND f 81111 Tiltrage BNE COMPOSE LDA 10 chiffre 0 10 COMPOSE TAX BOUCLE JSR PULSE DEX BNE BOUCLE SEPARE RTS PULSE LDA 4159 delat de 66 ms STA CLRANO coupure de la ligne t l phonique JSR WAIT LDA 108 delai de 33 ms STA SETANO r tablissement de la ligne tel phoniqu JSR WAIT RTS Recapitulation ALARME Ce code est inclus dans le proqramme Basic f F F f f e ESO E F f FE f e F Z E vs Z yo vv yr ff vf Z F CEE r v Z Z v v v D SS A WS A 3 Accompagn d une cinquantaine de pages de documentation Disk Manager permet de recr er les commandes du Dos red finir l organisation d une disquette gr ce un jeu d instructions qui en fait un langage simple d acc s la disquette Il offre galement un programme d dition l aide de commandes volu es 4 utilitaires figurent aussi sur la disquette Ukli disgue reconstruction d une disquette d truite V rification Plan d occupation Ultra copie pour un backup particuli rement rapide Edicat Edition du catalogue classement des fichiers Titres Multi disque
209. te 80 colonnes sensiblement plus nerveuse que celle du e La compatibilit semble assur e tr s largement bien que notre AppleWriter DOS 3 3 soit inutilisable et que la version ProDOS soit d pass e par les nouvelles interfaces M me Pascal dont la portabilit semble surfaite lorsqu on passe du e au c nous a paru saccomoder mais seule l exp rience en dira plus Logiquement les programmes qui cherchent une adresse particuli re dans la carte souris ou 80 colonnes courent l chec mais l mulation semble tr s au point les disquettes Dome resteront d actualit pour celui qui gardera un lecteur 5 25 pouces car le IIGS est quip en standard de lecteurs de disquettes 3 5 pouces 800K ceux du Macintosh un t moin rouge de fonctionnement en prime Quelques caract ristiques du IIGS Bien des photos des crans cr s l aide du programme de dessin GSPaint ont fait les couvertures Il reste que l utilisation est spectaculaire toutes les facilit s du Macintosh sont pr sentes dans ce programme auquel on pardonne d tre plus lent vues les couleurs disponibles Le plus tonnant est l dition de ces couleurs trois ascenceurs ou potentiom tres pour doser les rouge vert et bleu un pour r gler la luminosit et un pour la saturation ies 4096 nuances sont l Ajoutons que les motifs sont ditables en couleurs mais comment obtenir une copie papier qui respecte l uvre En r sum le IGS c est
210. tional qui transforme un Macintosh en station de travail Unix en le reliant un ordinateur h te fonctionnant sous ce syst me Avantage Unix fonctionne alors avec tous les avantages graphiques du Macintosh fen tres ic nes possibilit de recevoir un fichier en transf rant l ic ne de la fen tre Unix sur la fen tre du Macintosh etc remarquer que ce logiciel qui pourrait constituer une tape importante dans la strat gie logicielle d Apple travaille avec les versions Unix System V et 4 2 BSD ce qui lui permet d tre reli 4 des stations de travail Sun Sun 2 et Sun 3 des Vax de Dec des PC AT et compatibles Prix de 600 dollars version pour 2 utilisateurs 10000 dollars nombre d utilisateurs illimit Logiciels des perfectionnements remarquer que la derni re version du programme de dessin Full Palnt le successeur de MacPaint permet d imprimer en couleurs sur l imprimante Image writer II noter aussi un nouveau langage de programmation en C le Lightspeed C de Think Technologies Ce langage particuli rement rapide comprend un diteur de texte multi fen tres un compilateur un diteur de liens et des utilitaires de programmation Prix 175 dollars Pour les architectes Space Edit crit par l auteur de Macintosh Space et distribu par Abvent est un logiciel francais de CAO avec objets volumiques combinables biblioth ques de composants en trois dimensions per
211. tout de suite apres ATTENTION ne jamais changer la vitesse lorsque l ACIA est en train de faire une conversion Source SOURCE selon Flag DEBUT TITLE XMODR ERAN aa ay eg sss JP i R ception de fichiers au protocole XMODEM G ss JP R 1986 parall le s rie faudra crire une routine d mission qui charge le registre de sortie avec Toctet mettre et gui attende que ce registre soit vide bit 4 du registre d tat avant de modifier la vitesse Aux CP Mistes t l maniaques l faut mentionner ici un point qui sort du cadre de cet article car utilisant un mat riel trop sp cifique la Premium Softcard de Microsoft quipement qui repr sente l arme absolue pour l inconditionnel de CP M Cette carte qui utilise le slot 3 auxiliaire de l Apple e rassemble une carte 80 colonnes tendue et une carte Z80 avec toutefois une diff rence fondamentale avec la Softcard classique elle utilise un Z80 B 6 Mhz et d autre part les deux processeurs 6502 et Z80 sont d coupl s et chacun fonctionne sur ses 64ko de RAM simultan ment alors que sur la Softcard traditionnelle ils ne travaillent qu tour de r le sur les m mes bus en se mettant alternativement en DMA Le programme d application tourne sur le Z80 tandis que le 6502 joue le r le d un processeur d entr es sorties RES CALL POP PRMSGl JP En plus de l implantation CP M Microsoft a donc d velopp un
212. uminescent de la taille de l cran Pom s n 27 du Macintosh avec modem et disque dur incorpor possibilit de fonction nement sur 12 volts Prix 5 4 7000 dollars pour un ordinateur install dans un attach case tout aluminium Devant tous ces projets une seule question Apple sous traitera t il son Macintosh portable pour le sortir plus vite Ou bien tous ces fournisseurs devront ils rengainer leurs projets pour laisser la firme la pomme le monopole jusqu pr sent inentam de la construction du Macintosh R ponse probablement l ann e prochaine Logiciels encore du g nie Lorsqu on crira un jour l histoire de la micro inf ormatique il faudra coup s r cr diter le Macintosh d un pas important r alis dans l intelligence des pro grammes Quelques preuves D abord More la derni re version du traitement d id es Think Tank Ce logiciel permettant de g n rer automatiquement un plan un organigramme ou des encadr s pour pr sentation audiovisuelle est sans concurrence pour pr parer un article concevoir un livre ou penser une conf rence Ses multiples perfec tionnements possibilit de regrouper de promouvoir ou de r trogader les parties d un texte de datage ou d horodatage puis de pr sentation ont bien m rit de la cause de la micro informatique C est simplement g nial Autre logiciel illumin VIP distribu par P Ing ni rie Il s agit simplement d un langa
213. ur une image MacPaint ouvre FullPaint il faut cette application affichera le dialogue du format d impression pre etabli contenu dans le document Image riter de la disquette de d marrage StaticText Disabled 120 40 190 482 11 suffira alors de cholsir votrel format habituel st cliquer sur la case OK pourj l enregistrer comme nouveau format d imprsssion pre etabli ou sur laj case Annuler pour l ancien StaticText Disabled 190 5 230 482 si vous pr f rez quitterf imm diatement cett application cliquez sur Annuler StaticText Disabled 240 5 260 482 G Zwingelstein et Pom s 1986 Fichier ASM Mep Asm Exec Edit LINK Mep Link Exec Edit RMAKER Mep R Finder Edit Fichier Mep Link Mep PrLink changer PANT en MNPT dans la ressource BNDL FullPaint utiliser L ire les Informations de ResEdit pour effectuer la m me rnodification ei mettre en fonction le bit de liaison Apr s avoir quitt ResEdit effectuez un changement de dossier pour faire reconnaltre au Bureau ia modification du type Et voila NDLR en proc dant de cette fa on un double clic sur un document FullPaint cr avec une version non modifi e n ouvrira pas ledit document Une autre solution plus simple el moins d finitive consiste charger le document MacPaint depuis FuliPaint et demander Enregistrer sous le m me nom La m moire du pe
214. ur t l phonique des num ros 22123 ce qui forme alors un ensemble int ressant Nous n abandonnons pas l aspect utilitaire des routines ch res s un crayon optique pratique sera certainement connect demain l entr e des manettes de jeux de vetre e ou c Autre utilitaire comment jecter des disquettes 375 Pratique galement mais sans rapport l application Mise En Page uvre d un auteur pass r cemment de l Apple au Macintosh Herv Thirtez Ont collabor a ce num ro Alexandre Avrane Jean Luc Bazanegue Bruno F nart Boris Fivolewski Jean Michel Gour vitch Olivier Herz Bernard Hoyez G rard Michel Jean Luc Nail Fe Nissuorgsky Christian Piard Jean Francois Rabasse Herv Thiriez Georges Zwingelstein Directeur de la publication r dacteur en chef Herv Thinez R dacteurs Alexandre Avrane Olivier Herz Si ge social ditions MEV 12 rue d Anjou 78000 Versailles T l 1 39 51 24 43 Publicit ditions MEV Diffusion N M P P Impression Rosay 47 avenue de Pans 94300 Vincennes T l 1 43 28 18 63 Pom s est une revue ind pendante non rattach e Apple Computer Inc ni Apple Computer France S A R L Apple le logo Apple Mac et le logo Macintosh sont des marques d pos es d Apple Computer Inc Pom s n 27 5 Bernard Hoyez Jean Luc Nail e d veloppement parall le de la micro mformatique et de la t l matique fait souvent voi
215. ut tre visualis e si vous appuyez sur la touche INTERRUPT plac e sur le c t gauche du Macintosh Plus le prompt gt appara tapez DM 1000 le contenu dela m moire de l adresse 1000 105F s affiche H est aussi possible de modifier le contenu de la m moire attention danger en tapant SM l adresse en hexa et la ou les valeurs placer partir de cene adresse Pour reprendre le cours normal de Vos activit s tapez Gr Pom sn 27 Tempo Depuis tr s longtemps nous r vions d un accessoire de bureau qui permettrait d enregistrer tout un traitement clavier souris et de le rappeler avec une simple combinaison de touches II y a bien eu MacTracks mais cet accessoire ne cessait de faire la bombe Aussr tions nous ravis de voir d barquer Tempo Vaccessoire de bureau pour la cr ation et l utilisation de macro instruckons Tempo permet d enregistrer en temps r el ou en mo e programmation toute une s quence d utilisation du clavier et de la souris Cette s quence peut tre ensuite modifi e loisir puls ex cut e sur l appel d une touche associ e la touche Commande Quelques critiques En fait une fois activ Tempo se loge droite de la barre des menus avec le symbole Commande D od une premi re ineompati bilit avec es logiciels qui tel Excel remplissent cette ligne En fait l imcompati bilit vieat ici d Excel puisque tout le m
216. ut de ligne RAZ r initialise les piles CLS efface l cran BELL met un been LISTE MOTS liste les diction Naires MODE commute les modes nor mal et pas pas QUITTE arr t du programme ATDE affiche un cran d aide CARRAY tableau d octets n CARRAY nom cr e un tableau de n 1 octets auquel on peut acc der par C et C 20 Quelques clefs pour l utilisation du programme PILE PILE ORDRE AVANT APRES nl n2 n3 n n2 n3 LOOP n nl n2 n3 n texte ni nz n MOT d finition lt nl n2 drapeau del nz drapeau o ni n2 drapeau gt ni n2 drapeau z adr 8 n AND ni nz n3 C octet adr adr octet CR DROP DUP nn ELSE EMIT n FORGET T n IF drapeau KEY n NOT drapeaul drapeau2 OR nl n2 n3 OVER n n2 n n2 n ROT nl n2 n3 n2 n3 n SWAP nl 22 n ni THEN Se reporter a la bibliographie COMMENTAIRE Multiplication de ni par n2 Lalsse n3 sur la pile Somme de n1 et de n2 Lalsse n3 sur la plle Incremente l indice de boucle de n L ex cution reprend au DO correspondant tant que l indice est inf rieur a la limite Soustralt n2 de ni Laisse n3 sur la pile Affiche le nombre n sulvi d un espace Affiche du texte jusqu vivise nl par n2 division entl re Lalsse n3 sur la pile MOT est cr dans le dictionnaire l interpr teur compile la d finition chaque ordre de la d finition doit exister dans le vocabulaire connu Indique la f n d une
217. utre manche et outre oc an mais si la langue des Beatles vous chappe Downloading Cant open file Prompting sender Received bloc Header error Checksum error Got something but Received EOT Uploading Waiting for receiver Sending bloc Acknowledged Cancelled File sent successfully Transmission aborted T l r cepti on Ouverture fichier impossible Attente de l metteur Bloc re u Erreur d ent te Erreur de somme de contr le Bien re u mais qu est ce Code de fin de fichier re u T l chargement Attentte du r cepteur Envoi bloc Compris Annul Fichier bien transmis Transmission annul e Badcommand Erreur de commande NSLOT EQU Carte en slot 2 DIPSW1 EQU NSLOT 1 Switches 1 DIPSWZ EQU NSLOT 2 Switches 2 RDREG EQU NSLOT 8 Registre lecture TDREG EQU NSLOT48 Registre criture STATUS EQU NSLOT39 Registre d tat COMMAND EQU NSLOT 0AH Registre de commande CONTROL EQU NSLOT 0BH Registre de controle D d 2 Clavier KBD EQU OEOOOR KBDSTR EQU 0E010H L F r Configuration de 1 ACIA o sassa masaspa 8 DATA 1 STOP sans Parlt Vitesse courante z Utilise A CONF ACIA LD A CONTROL AND FH R cup vitesse OR 10H Data et Stop LD CONTROL A ID A 9 RTS DTR sans parit LD COMMAND A LD A RDREG init RDR RET z Routine de lecture du port RS232 Retour avec caract re dans A et Carry 4 0 ou retour au bout d une se
218. vous pourrez renoncez renoncer Le choix du lecteur vous est propos apr s saisie du nom et lors de l op ration les diff rentes erreurs disques sont intercept es Selon leur type s quences ou copies d cran les noms de fichiers sont pr f 1x s par S ou C Ces pr fixes ne servent qu vous rep rer dans le catalogue de la disquette il est inutile de les taper car ils seraient simplement ignor s Sauvegarde C est le menu par lequel vous passez obligatoirement l issue d un enregistrement M mes conventions que pour le chargement e Options POM S HIHITEL APPLE PON S OPTIONS gt PORT MIMITEL PORT IMPRIMAHTE RETOUR lt lt lt lt lt s lt s us um ss Qum mm Qm Qam a Qam am AA Ce menu vous permet de changer les num ros de port par d faut pour les Minitel et Imprimante Si aucune imprimante n est connect e il convient de mettre NEANT et non de laisser une autre valeur car les r sultats d une tentative d impression sont pr visibles Envoi d un fichier lt AAA A A SZI IZ AI IAIa I I I s sm um un uu Gum Tm Gu mn mm m m m OPTIONS PORT MINIYEL PORT 1 gt PORT 2 PORT 3 PORT 4 PORT 5 NEANT RETOUR Hn AAA AA u um mm ma Ce fichier doit tre de type TEXT certainement cr par un traitement de textes Les Retours Chariot CHR 13 sont tr

Ordico contient plus de 15000 mots classés en 70 rubriques

Contents

Download Pdf Manuals

Related Search

Related Contents

Ordico contient plus de 15000 mots class&eacute;s en 70 rubriques

Contents

Download Pdf Manuals

Related Search

Related Contents

Ordico contient plus de 15000 mots classés en 70 rubriques