Home

Magazine Pom`s : la collection - SbM

1. Q 29 2 yded UTSITIM Arp Duo uor44 r Duopex urssap ap a 16 Pour l Apple une commande externe ProDOS Pour le Macintosh un accessoire de bureau MEL KFUVO OS YMliolby 21 658 dee noONSUOC pe 7 Kruptos est un utilitaire de cryptage disponible a Revue 29 45 00 F tout instant Kruptos rend inaccessible sans la clef Disquettes de T les fichiers un vu sj Apple 140Ko 60 00 F confi entiels courrier personnel rappor Apple 800Ko 80 00 F professionnel fichier de clients M me les Macintosh 80 00 F programmes et applications peuvent tre prot g s Les deux versions de Kruptos sont des programmes Bon de commande page 74 Pom s list s dans la revue n 29 Une disquette de jeux Ludologic N RAR N R BR RRS A c A AA eT A A ee Be a sea GEL REG E Au sommaire de la disqueite LUDOLOGIC trois jeux de r flexion de difficult croissante Ces jeux gui n cessitent des neurones aussi calmes qu entra n s ne devraient pas d cevoir les amateurs de puzzles et autres casse t tes ll n est pas n cessaire de pr senter TAQUIN ce pousse pousse informatique ici fort bien pr sent Nouvelle difficult NOIR amp BLANC 37 hexagones peuvent tre noirs ou blancs mais au d part vous n en connaissez pas la couleur Chacun comporte un num ro qui repr sente le nombre de
2. Class and sign inquiries lll gt xa am um aub nn e wm nm am amm emm m m s CSNAN equ al signaling NAN CQNAN equ 2 r quiet NAN CIN egu 3 Infinity fcZERO equ 4 zero fcNORM equ 5 normal number fcDENCRM equ 6 z denormal number Senna ama mm e E s E E OR um mum r r r mm o I I E EE zs um s Bit indexes for bytes of floating point environment word fBINVALID equ 0 invalid operation BUfLON equ 1 underflow f30fLOW equ 2 overflow fBDivZER equ 3 Division by zero fBINEXACT equ 4 inexact fBRNDLO equ 5 q low bit of rounding fBRNDHI equ 6 high bit of rounding fBLSTRND equ Y y last round result bit fBDBL equ 5 double precision control fBSGL equ 6 single precision control NumBros Me po I I FoLNX equ 0000 logarithme n perien foLOG2X equ 0002 logarithme de base 2 foLN1X equ 0004 q 144 Suite page 54 Pom s n 32 rthogiciel Plus de Larousse est une nouvelle version du as correcteur orthogra phique pour Macintosh Elle int gre de nouvelles possibilit s telle la correction de documents entiers sauvegard s par MacWrite 4 5 et 2 0 Orthogiciel Il est livr sur deux disquettes contenues dans un petit classeur mode d emploi bien pr sent Pas de difficult s de mise en route peu de cont
3. e TE z Be vin SL nir E HE Ph IN r Ys ini m E ur AA AAA Ee AN 1 U Se SESS SANS Je d sire recevoir sans engagement votre i T r d 3 M E 1 M H v 38 e Ee m gt 1 2 EL a a 1 AT n L l v ghe in T d ch di k LG 1 1 11 DK 2 i S K 4940 M EIT 1 64 AE a a A rr 3 s il al mire T r Il lH m orun a r di do d 3 r D j Im 1 x 4 AL a 2 P mn 1 E ar m Se a vd A b Ek rz m EH I 1 t 4 1A ee de k 21 1 e L T L L i g gt r e vi e Ke L Mus J 4 e A z gm Te i s dar Teac Bn ve x d F 4 r F z Pete 4 d AL i I 1 e z iid mS m U dl T a 2 KS E des Es i N z 4 wu t amp m VEL m O ES R s o Mera u Kul C a Timi M 003 wl Vas ID KA E a R me le M B r E 2 L FIL IE MS E e mW re a E H ST N N x 6 ama EE s A m 1 z H wi Leo Ae Y LES re d Se AE documentation sur les cartes Speedisk IR e E RL L anti disque Rapidit Capacite Compatibilit Prix Garantie Speedisk la RAM Card m moire permanente
4. Il se charge d installer la commande externe entre ProDOS et ses buffers Gatbufr n tanc disponible qu avec les versions ProDOS 1 1 2 et les sous catalogues d une disquette Fro005 et sulvantes une petite modification sera n cessa re pour Ba les versions ant rleures Sylvie GALLET pour POM S Juillet 1987 Assembleur ORCA M initialisacion ProDOS init lda ali l st on cap 54C est ce un JMP err on beq initl oul 65816 off idy nonactif non gt affiche message et fin 65C02 off nabcl lda nonactif y absaddr on jsr outdo keep Z XCAT dey boe nabcl org 2000 rts main START init1 lda opencnt y a t il des fichiers ouverts beg in t2 non EQUATES lda 51 oui gt impossible placer la commande d s 2 message FILE S STILL OPEN mp errout adresses en page z ro Jo init2 Ida extrncmd 2 seuve adresse de la premi re himem gegu 73 sta precad 2 commande externe length gequ S2F longueur de i1 instruction lda extrnemd i pci gequ S3A adresse de la ligne d sassembl e sta precmd l al gegu 3c dresse de depart pour move lda gt long demande d un buffer de A pages a2 gequ 536 adresse de fin z jsr getbufr a4 gequ 542 adresse d arrivee cmp 0C erreur bne gothen non nbloc gequ 6 nombre sur 2 octets bas haut errout oui gt affiche NO BUFFERS AVAILABLE temp gequ 8 F et fin longueur gequ SiA longueur de nom de volume debsscat
5. x um xu umma w sd MACRO P2Couic x y couic MOVE W 1x SP MOVE W y SP _ couic PETITS BOUTS MACRO tuu moveM L A0 A1 DO D2 SP move W 1 SP _SysBeep moveM L SP A0 A1 D0 D2 MACRO FIN END MACRO L CBR L SP MACRO deg f R MOVE 1 SP R MACRO emP f R MOVE f RJ SP MACRO mouv L D Addr LEA fAddr AO MOVE L D AO 1 MACRO mouvi L D Addr LEA Addr Al MOVE L D A1 Pom s n 32 MACRO Si f x y a CMP f x fy ES BEQ a e c MACRO SiNon f x y a 2 CMP f x y 7 BNE a MACRO SSi f x y a CMP f x y BEQ S a MACRO SSiNon x y a CMP f x ty BNE S al RESSOURCES GetRes FV Macro g n rale pour la collecte des ressources ee el ee 9 0 0 0 9 O 00 0 0 0 0 0 9 0 0 2002 0 0 o 0 0 0 666 Parametres type ID handle sur la pile s mm dmun sur mmm wm Gur gr gr g m uman ver mmm wm mmm wm mm mmm mm mmm mam ge mm gem mm mm w m vun mmm gem si mmm vm m s m m m mmm gem MACRO GetRes TYPE ID CLR L SP MOVE L TYPE SP MOVE W 1D SP _GetResource CollRes_ Macro pour la collecte de nombreuses ressources 2 eS Pour obtenir un handle sur une ressource on fournit souvent un ID et une instruction telle que GetPlcture retourne un Handle un un aaz mmn wm sma wm wan w
6. MIPS As 2 15 GOSUB 3000 GOTO 228 PRINT D OLOSE NEXT IF DT THEN AN NN NN NN DT DB 0 GOTO 210 NC NN DT REM x x x x xx xx x x x REM Cr ation des catalogues REM PRINT PRINT Cr ation des catalog WES a PATNT IF NOT INC GOTO 400 FOR I 1 TO NC PA DIS I FOR J 2 TO LEN DAS IE MIDS BASA 1 THEN PAS MIDS PAS J 1 J LEN PAS NEXT PRINT DES PAS PRINT DS CREATE DES PAS TDIR NEXT REM x x x x x x x xx x REM Copie des fichiers REM HXKAXAAAA A f 61 62 340 400 405 410 420 425 430 431 440 450 455 460 470 500 501 202 503 504 505 509 510 77 299 PRINT PRINT Copie des fichiers PRINT FOR I 0 TO NC NI 0 PRINT D S OPEN DIS I TDIR PRINT DS READ DIS I F 0 INPUT AS INPUT AS REM INPUT AS IF F AND NOT HEN 500 IF NOT LEN 430 IF MIDS AS 18 3 DIR THEN 430 Fus Sad 1 5 1 MY MIDS Pas 2 15 NI NI 1 FIS N1 15 GOTO 430 PRINT D CLOSE IF NOT NI THEN 510 FOR K 1 TO 1 15 DES RIGHTS F1S LEN OG PRINT PRINT Copie de F1 PRINT D COPY FI P26 PRINT gt F2 NEXT K FOR K PRINT NEXP T PRINT DS PREFIX APS END LEN AS T AS THEN F 1 GOTO FIS K F25 Fis LEN 0 MO M PRINT NDKI Editeur Plein Ecran Le Pacha DO
7. READ Reponse WRITELN UNTIL END PROCEDURE BEGIN Reponse 0 Afficher GOTOXY 14 4 WRITE Fich Nom GOTOX Y 14 5 WRITE Fich Prenom GOTOXY 14 7 NRITE Fich Adresse1 GOTOXY 14 8 WRITE Fich Adresse2 GOTOX Y 14 10 NRITE Fich Code postal GOTOXY 20 10 WRITE Fich Ville GOTOX Y 14 12 WRITE Fich Telephone WRITELN END PROCEDURE BEGIN Pich Fich Bacil Pich Fich Pich Pich END PROCEDURE Effacer Nom z Prenom Adressei Adresse2 Code postal z Ville Telephone Ajouter Ajoute une nouvelle fiche VAR Choix 1 CHAR Sature BOOLEAN PROCEDURE Auto SC Fe VAR C e une fiche aleatoire pour essai haine String20 PROCEDURE Alea Longueur INTEGER VAR Chaine St ring20 Cree une chaine aleatoire VAR I L INTEGER BEGIN Chaine ji RANDOM MOD Longueur 1 FOR 1 1 TO L DO Chaine 1 CHR RANDOM MOS D 26165 Chaine COPY Chaine 1 L END BEGIN Auto RANDOMIZE Aleaf20 Fich Nom Alea 20 Fich Prenom Alea 20 Fich Adressel Alea 20 Fich Adresse2 Aleaf20 Fich Ville Alea120 Fich Telephone Alea 5 Chaine Fich Code postal Chaine Afficher END BEGIN Ajouter IF Fin lt Plafond OR Tablel 11 Cle THEN Sat ure FALSE ELSE Sature TRUE Choixl O WHILE Ch
8. WPL Pascal ProDOS 7 Graphisme GS Essais logiciels Communication Les Pons ISSN 0294 6068 1 32 45 00 F Ap IW ti i NM 1 Tm n n II OL II Wit WI ITE 1 Wa m A il Abonn a CalvaCom 2 Clv Pom s application Qualit Dom e pour le Macintosh est un x logiciel complet pour optimisation de vos connexions au serveur de RCI Enregistrement des consultations dans des fichiers vEnregistrement de textes de type MacWrite Enregistrement de programmes Exportation de textes amp procedures Exportation de programmes Exportation de messages de proc dures de programmes et de fichiers Fichier Nouveau sen Suppression ventuelle des lignes de Dustin e message du serveur Option telescripteur impression des dep ches de AFP lorsqu elles tombent par exemple Suppression des lignes Y L Recodage etc Impression simultan e JE imp Fermer PA Possibilit de traitement des de programmes et fichiers cr s avec le fichiers programme Minitel 27 Quitter Raffinement AT A xD en quittant Clv Pom s on peut se diriger vers le bureau lectronique vers une autre application mais aussi en emportan le dernier fichier eN 96B 96 A 200 00 F TTC franco bon de comrnande page 74 CLV_Pom s existe galement 5 en version Apple pour O utilisation a
9. K 2 L Y 1 Source BIGTEXT STA 3F5 39 LDA S90 Assernbleur Big Mac 40 STA 3F6 format TEXT 41 LDA 591 42 STA 3F7 1 AG x 43 RTS 2 PAGE GEANTE 44 PRO PRINCIPALE 3 x 45 TAY 4 x H ROY CONTANCIN 46 LDA DIMI 5 19 05 86 1 1 47 BEQ E128 6 AA 48 E256 LDA 500 7 PAGE EQU 06 49 STA DIM1 1 8 VIVIR EQU 07 50 LDA 501 9 HTVIR EQU 08 51 STA 1 10 SAVX EQU 09 52 LDA S30 11 DIMI EQU SOA 53 STA DIM2 12 DIM2 EQU SOC 54 GLC 13 ADR EQU 18 55 BCC NOPAG 14 ADP EQU 1A 56 E128 LDA 4580 15 RAM EQU C083 57 STA DIMi 1 16 ROM EQU C082 58 LDA 860 Ju IG EQU 1C 59 STA 2 18 LIGP EQU 510 60 NOPAG LDA PAGE 19 MAXV EQU SCE 61 CMP 4502 20 MAXH EQU CF 62 BEO PAG2 21 LONG EQU S1F 63 LDA 00 22 LIGD EQU F9 64 STA SAVX 23 LIGF EQU SFA 65 CEC 24 COLD EQU SFB 66 BCC PPTEST 25 COLF EQU SFC 67 PAG2 LDA 2508 26 PTR EQU SFD 68 STA SAVX 27 SAVA EQU SFF 69 PPTEST TYA 28 GETBYTC EQU 5 6 5 70 CMP 4548 29 SPPRINT EQU 9400 71 BEQ BH 30 SPCADRE EQU 9403 72 CMP 543 31 SPVISU EQU 9406 73 BEQ BC 32 ADTX EQU 9409 74 CMP 4 57 33 INIADR EQU 940C 75 BEQ BW 34 ERROR EQU 50419 76 CMP 4550 35 CHARGEMENT ADRESSE 77 BEQ BP 36 ORG 9180 78 CMP S4B 37 LDA s4C 79 BEQ BK VTAB 23 HTAB 1 INPUT E IF ES gt amp W 0 0 VTAB 23 HTAB 1 TENDEZ MERCI GOTO 50 REM SAUVEGARDE ENTREZ LE NOM DE L ECRAN 0 THEN 500 PRINT INPUT E
10. Pivot dc L 0 coin du rectangle pivot Lea dc W 0 longueur grandes aiguilles Lpa dc W 0 longueur petites aiguilles Axe deL 0 VF11 dc W 0 petit axe de l ellipse HELL dc W 0 grand axe ROTATION EE ek E EETETIETIT 4E Gu Cer E EE tt ett Aiguilles amp Cadran e zBitMapHandle du cadran CadrHndl die L 0 ga derb 0 grande aiguille pa descL NHeur 0 petites aiguilles Autres Objets Poms n 32 VectLUn dcB B 2 Extd 0 emplacement lune tendu ObjTour ne pas changer l ordre LunHndl dc L 0 Lun dc L 0 emplacement lune en entier TassHndl dc L 0 Tassi dc L 0 emplacement tasse entier SolHndl dc L 0 Soll der 0 emplacement soleil entier TelHndl dc L 0 Tell dc L O emplacement t l en entier FIN Fichier mABcro Txt 9 mABcro a Macros G nlales Fassa yaducalcul equ 0 EQUATES s s o aooaa ooo oo e o 20 equ 0 By equ 1 Wo equ 2 Lo equ 4 LR equ 8 rectangle Extd equ 10 longueur d un tendu vv equ 0 bh equ 10 points en tendu LStr equ 256 phrase DIVERS eee cre ooo door K 666666666 ooo o Po 6 e G GB _SetFont_ MACRO SetFont fonte taille MOVE W fonte SP _TextFont MOVE W taille SP _TextSize PZCoulc Traite toutes les s quences dans lesquelles avant d appeler une routine on pousse deux entiers sur tla pile MoveTo OffSetRect W eee Se SS
11. Q l gnes FF htab 580 outdo inc ida cop bee bit bmi bit bat Ida jst ida sta ida sta ida rus crde noformf memepage y incmax oui gt y incmax pour limiter le d calage une valeur ralsennable dej 60 l gnes affich es non oui gt 80 col active oui non gt nom de ss cat Qui non gt saut de page imprime le caract re A ou un espace et incr mente htab mm mm mun mm muz xum mum IS us GER zz m m GRE CO IL A GE OXUN mm ma zm GEN AE IE Gss s m A c jsr sta litbuf 1bloc 1 nombre de blocs du fichier dans les octets 13 et 14 de l enregistrement suivi fmm dia tement par impradr imprime un d cimal de 5 chiffres maxi cadr droite d e a a a o L A n n lt H t ce nombre est contenu daas bloc et nbloc 1 si le d cimal est inf rieur 20 lt gt 3 espaces 10 3 00 0A compris entre 10 et 100 gt 2 z 100 5 00 64 compris entre 100 et 1000 gt 1 7 1000 503 ES z superleur 1000 gt 0 1 espace pour le s parer de ce gui pr c de impradr 0 ida nbloc 1 3 nombre 03 00 bcc bl oui bne impbloc nombre gt 04 00 lda nbloc non cop EB8 nombre sup rieur 03 8 2 bes mpbloc oui gt 1000 J bee lsp nen 1000 bi Ida nbloc l bne ilsp nombre superieur 25
12. 10 TXT 1 27 AUG 87 1708 TXT 3 27 AUG 87 P RODOS SYS 32 31 AUG 87 REBOOT SYS 4 27 AUG 87 FILER SYS 52 31 AUG 87 XRUPTOS BIN 3 31 A0G 87 STARTUP BAS g S P 27 INTERPOMS v 2 BIN 17 7 SEP 87 COPIFRAN TAT 11 31 AUG 87 T POMS BIN 9 31 A0G 87 XCAT BIN 5 9 SEP E BASIC SYSTEM SYS 21 31 AUG 87 CLV POMS BIN 10 SEP 67 BL LIBRES 615 OCCUPES 1433 TOTAL 2048 28 pr c dent l o on Tavait laiss L utilisation de la pile permet une sauvegarde tr s simple des valeurs indispensables la reprise d un catalogue sans perte de place dans le programme et avec un contr le tres simple de la profondeur le pointeur de pile tant sauvegard au d but 1l suffit la fin d un sous catalogue de comparer le pointeur actuel et le premier pour savoir si tout a t d pil et si on est dans le catalogue principal Remarque sur la page z ro La plupart des adresses libres en page z ro sont utilis es Si on souhaite pr server le contenu de ces adresses il est possible de sauver la page z ro dans le buffer de ProDOS la moiti sup rieure de ce buffer n est pas utilis e par READ BLOCK Structure des catalogues et de la bitmap Le catalogue principal comporte 4 blocs n 2 3 4 et 5 Chaque bloc est chain au pr c dent et au sulvant Les sous catalogues comportent au minimum 1 bloc auquel peuvent tre chain s d autres blocs si le nombre de fichiers est sup rieur 13 Chaque b
13. affiche le menu pour chaque courbe et retourne le choix 7 function menu string char var bonset choideca begin if choix D then begin message marge 6 D dessin 2 bonset ze D d j end else begin bonset 1 choixilength choix message marge 6 concat ordre choix end message f marge 8 I imprimer message marge 10 Q quitter message marges15 12 votre choix F bonset bonset I Q i q menu prencar bonset end 2 cette procedure contient toutes les procedures de dessin procedure dessine courbe var reponse char ordre integer procedure init hgr x y angle integer beg n initturtle pencolor none moveto x y turnto fangle pencolor white end procedure von koch procedure v dessin ordre long integer var nouv long nouv ordre integer begin nouv ordre ordre l nouv long long div 3 if ordre then move long eise begin v dessin nouv ordre nouv long burn 60 v dessin ordre long turn 120 v dessin nouv ordre nouv long turn 60 v dessin nouv ordre nouv long end E end begin init hgr 0 40 0 v dessin ordre 270 readln C oll SLUOJ tl end init 69 53 0 ordre d dessin ordre 1 160 evo A 008 M L 2 ma end procedure triangle ll aml ci cig 0 MO CE
14. 69 enow d zg A u L aier STTSIUSP f urou eiert UT Haq fd Aru 8l odect f ouoDexow g wou g 83531 OP p I r 10 Err Aru g eastI Z TASUT ISTS S uwou G S3S T 4 0769091 xbq 3tur PEPE Aqu sas Mi f QOuP d s p 9QANOD p wou p S T UT Haq Fog Aru 6 AASTT z UoBezp p uou E 83617 1 39 CT ATu Tel 8511 Z r buerr3 Za uoU g 8357 z Pus opp Arut t ei Q90J UCA ap 3q1NOD T wou fr 3srIT suas p6 uang f 242 uos Z 621 242 fer AD 21 AYD ao sr urbag Rua BuoT Aoul IE e SS A a See x 4 Pua x E a nusu 2 SUesu Duo u urssop uoT u EL am 17 77 ei ur sq eP 01 T 107 su s r su su f Z ATP buoy Buoru pua 1D 0 VT suod z T3un ustiz T lt jT pu puo x D qur sussu Buoru T tea s zIg3 i 19b63a73ut sues Buol urssap f z uoDbex q g d ZaB3IUT T apa Z Tysulll ls y se31e9 rnp oorzd 2 ouead E Z E erbueraa FS W x Z 20y UOA T N jo 1 s z pus en Z 0 PIO urbaq f 6867 09 utssop op Z 07070 164 arurT sr e Pus Jafded seT z pue O Ko
15. MLI GET FILE INFO PARMGFI ERROR MLI GET TIME 0 0 ERROR MLI CREATE PARMCRE ERROR MLI OPEN PARMOUV ERROR MLI WRITE PARMECR ERROR MLI CLOSE PARMCLO ERROR GET EOF PARMEOF ERROR MLI READ PARMLIT ERROR MLI GET PREFIX FARMFREF ERROR ML ONL NE PARMON ERROR MLI DESTROY PARMOES ERROR MLI SET FILE INFO PARMSFI ERROR GETBUPR ERROR message d errsur ERROR PRA CMP BNE LDA LDY STA 48 ERR PARMCRE 1 PARMCRE 2 PARMDES 1 Pom s n 32 ERR1 GETMLI OUIOUI ERR2 MLICODE ML 1 MLIZ MLI3 MLI4 MLIS MLI MLI7 ML18 MLIS MLIA MLIB MLIC MLID MLIZ MLIE STY JSR JSR LDA LDA LDY JSR PLA PHA JSR LDA JSR LDA JSR LDA JSR PLA LDX CMP BEQ BNE TXA STA ASL CLC ADC TAX INX LDA INX JER LDA JSR LDA JSR HEX ASC ASC HEX ASE ASC ASC ASC RSC REX ASC ASC HEX HEX ASC PARMDES 2 JER RESTORE JMP WARM CLOT EFFACE Table des adreeses des messages d erreur CODEMSG ERR1 1 MLIERR LDA MLI ERR1 2 LDA MLI2 STROUT LDA MLI3 LDA MLI4 LDA MLIS PRBYTE LDA MLI6 ESAO LDA MLI COUT LDA MLI8 LDA MLIS EZ LDA MLIA cour LDA ML B ds LDA MLIC ee LDA MLID LDA MLIZ LDA MLIE 28 LDA MLIF MLICODE X LDA MLIG QUIOUI LDA MLIH LDA MLII x LDA MLIJ LDA 11 ERR241 LDA MLIL LDA MLIM LDA MLIN ze LDA MLIO LDA MLIP LDA MLIO MLIERR X LDA MLIR LDA MLI
16. oud contient 0 si pas de prefix gt dernier lecteur utilis code de GET PREFIX code de SET PREFIX nas d erreur 7 d h las s non gt on prend la derni re unit acc d e sen num ro est en 5830 toujours contient 0060 0000 avec 00 01 drive 1 ou 00210 drive 2 gt A 0000 0000 avec st drive 1 ou Del drive 2 gt A 0000 0000 vslot contient 0000 9553 gt A 0000 CSSS autres gt A 0555 0000 af bc m c est vraiment parti p le 0 increm blociu i compteur buffer debascat debsscat h men 1 buffer 2 lignes bloclu litbloc devent 580 prodos himem y himen y noprodos himen y 3 prodos errout L 27 himem y bitmap himen y b tmap i himem y biocm x himen y blocmax 1 crdo datecat crdo crdo titres titres y outdo titrebel crdo crdo analyseb litbloc kbd Pom s n 32 la plie va servir de zone de stockage sauvons le pointeur lecture du bloc 00 02 alali ne gt debascat SFF on devra souligner le 1 er nom de fichier qui est celui de la disqu tte himem contient l adresse du buffer brouillon de ProDOS toujours pour le bloc 2 affbel2 nuwero du dernier lecteur accede est ce le ram disk 64k s3 d2 suivant sl oui inutile de v rifier les 2 premiers octets du Blac 2 lit les 3 Bremiers octets de ce bloc sl lt gt 00 00 03 gt ce n est pas un disque Pro00S
17. var long integer procedure peano var long i integer procedure t dessin ordre long sens integer var nouv long nouv ordre integer procedure p dessin i long sens integer begin var longi long2 long3 integer nouv ordre m ordre l begin nouv long long div 2 if i gt I then if ordre then begin move long long3 long div 3 else p dessin i l long3 1 turn 90 begin p dessin li l iong3 1 turn 90 turo 60 sens t dessin nouv ordre nouv long 1 sens p dessin i 1 long3 1 turn 90 turn 60 sens t dessin nouv ordre nouv long sens p dessin i 1 1ong3 1 turn 90 turn 60 sens t dessin fnouv ordre nouv long l sens p dessin 1 1 Jengi 1 z turn 90 z turn 60 sens H p dessin 1 1 long3 1 turn 90 z end p dessin i 1 long3 1 sp turn 904 3 end p dessin 1 1 long3 1 z turn 90 p dessin 1 1 long3 sens begin end case ordre of else 1 2 6 long 256 begin 425 x long 255 longi long div 2 4 z long 239 long ze trunc long 8 35355 end move longl turn 45 move long turn 45 init bor 12 0 0 t dessin ordre LONG l move longl turn 45 move flong2 turn 45 resdin ja move flon i turn 45 move long2 turn 45 end move longl turn 45 move long2 turn 45 move longl turn 45 move long2 turn 45
18. DEBUT ADIM LDA STA JSR LDY HEX HEX HEX JSR LDA STA STA INC INC INC LDA STA STA 0 PX ADRESSE 00 AE 0000 01 LABO ADIM ADIM2 ADIMI ADIM2 AD 1MI ADIMI ADIM 1 ADIM2 1 ADIM1 1 OPCODE DE LDA LONG m LO ET HI DE L OCTET A ETUDIER 9 DANS LA BANK 01 MEM AUX RECONSTRUCTION DES 7 OCTETS DEBSEC ADIMZ LDA STA LDA STA LDX LDA STA LDA JSR STA INX LDA JSR STA JSR INX LDA JSR STA INX LDA JSR STA JSR INX LDA JSR STA INX LDA JSR STA JSR HEX HEX HEX JSR LDX LDA JSR STA INX LOA STA LDA JSR 02 BIT2 BIT BIT3 0l BIT COUL 01 DECAL FIRST 00 DECAL SECND RECONS 01 DECAL FIRST 00 DECAL SECND RECONS 01 DECAL FIRST 00 DECAL SECND RECONS AF 0000 l LABO 00 01 DECAL FIRST BIT CQUL 00 DECAL Poms n 32 pour respecter la couleur du 1 pixel de chaque ligne a Na Se 1 pixel d un octet GS PAINT X22 2 pixel de l octet GS PAINT 23 X24 OPCODE DE LDA LONG 2eme OCTET A DECORTIQUER EN BANK 01 X ADIMI NINC NEXT NO INC DECALAGE VERS LE PIXEL DECAL CREATION DE LA PALETTE DE COULEURS 5 JSR INX JSR STA INX LDA JSR STA JSR INX LDA JSR STA INX LDA JSR STA JSR INX JSR STA HEX HEX HEX JSR LOX LDA JSR STA JSR INC INC INC INC BNE INC INC INC CMP B
19. Probleme 32 par Joelle Piard 3 Toujours plus proches 6 Possessif Pour tailler le 8 horizontal 8 Deux g Paris Ne reconnaltra plus 9 Fut en Asie Mineure Une pomme grand sport Oui 73 74 Disquettes Apple Macintosh Accompagnement CLV_Pom s 140Ko ou 800Ko 200 00F L CLV_Pom s 20000F 1140 4 6000F 3 Editeur Vid otex 140Ko 200 00 F LI MacRaccourci 20000F O 140 5 6000F O E P E 5 1 140Ko 200 00F L MacAstuces 20000F D A 140Ko6 6000F O E P E 5 1 800Ko 200 00 F O A 8000F 1 AJ140Ko7 6000F O Max moniteur tendu 140Ko 150 00F Mac B 80 00F CI A 140K08 6000F O BananaSoft 140Ko 200 00F 1 Mac 8000F I A 140Ko9 6000F O Pascal 140Ko 80 00 F LJ Mac D 80 00F D A 140Ko 10 60 00 F O Max moniteur tendu 140Ko 150 00F O Mac 80 00F LI 140 11 60 00F O Dominos 140Ko 80 00F O Mack 8000F 1 AJ 140Ko12 60 00F O COGO 140Ko 200 00F O 80 00F 1 Al1140Ko13 60 00F O Ludologic 140Ko 8000F D Mach 80 00F LI A 140Ko 14 60 00F O Ordico 140Ko 200 00F O l 80 00F LI 140 15 6000F O A 11140Ko 16 60 00 F O Recueils Pom s Mac17 150 00F 1 AJ 140K017 60 00F LI Mac 18 80 00F O A 140Ko 18 60 00 E O Num ro 1 Revues 1 a 4 140 00F O Mac19 80 00F O A 140Ko19 60 00 F O Disquettes 1 a 4 200 00F O 20 80 00F 1 A 140K020 60 00F LI Num ro 2 Revues 5 8 140 00 F E 21 80 00F 1 A 140Ko21 60 00F O g
20. h dessin 264 readin end EE A procedure dentelle procedure de dessin x y long integer var 1 1 integer begin if long gt 0 then ror 0 to 2 do for 0 to 2 do if itj 1 then begin viewport xtlong x 2 long l y long y 2 long 1 fillscreen reverse de dessin fxtiong ytiong long div 3 damp f 31Pp10 istded Pue 5711 uf T IE IP D UT raua Z wuousf1 23STT 222 aatded air iv E 7 pu f ae3upzd 1ordrd uzn2 zu ad E 9QANOD ufss p Z Zoe sine s3ueurzdul T zeredoid er O abessau 101 pro suod z pie T urboe UL Deg uei 3 T I1 ut esuodaz jr you D 0 UT JI Aru r e sT nuour asvodaxz Z wou rJe3srt T ST Axojob BITIM p u3x 2 sq b ur ssueds1 Jou IT 17b 0 p T aesue1id osuodoi Z 51304 gz qr oDaew obessou Z 2833776 O 0Z eDzew oDessour qe d z Z wotr T 3sTT 247 7 s IeUW oDessau x Y CM op 8 I F 207 A A 5 g ebaew z SaATSAND aI az 1 sbriewj 7 pu d awon a371M uTp SI 2 id hrada Salad s wou fg 995591 I Zt ulseep 2
21. il est possible de g rer des Ey gros fichiers de 1 4 donn es et pour gue SS B le temps d acc s aux reste acceptable il est usage d organiser le fichier en fichier s quentiel index comportant une table d index associant a la cl de chaque article son num ro dans le fichier A partir de quelques centaines d articles la table ne tiendrait plus enti re en m moire et serait sur disque trop longue A explorer D faut alors la remplacer par un syst me de tables multiples dont la gestion est a inclure dans le programme Nous vous proposons ici une UNIT assurant la gestion d un systeme de tables deux niveaux Les programmes Vous disposez de la disquette daccompagnement 800 Ko Les fichiers ont t transf r s en ProDOS grace a Universal File Conversion UFC C est ce programme que vous utiliserez pour les repasser sous Pascal Vous disposez de la disquette daccompagnement 140 Ko Deux possibilit s Sur la face ProDOS il vous faudra utiliser UFC comme sur a disquette 800K 0 Les fichiers sont galement en format DOS 3 3 sur l autre face utiliser le programme BASIC PASCAL livr sur la disquette pour repasser les fichiers sous Pascal Pom s n 32 Vous pourrez l utiliser gr ce au linker avec le programme de gestion de fichier que vous crirez selon vos besoins en partant du modele pr sent Les performances sont les suivantes pour un fichier de
22. la chose est l tude 12 4 Questions naives 43 De Patrick BARCZEWSKI PB46 04 aou 87 11h06 Bonjour tous et merci d avance du lemps que vous voudrez bien consacrer aux questions suivantes qui vous sembleront sans doute bien candides 1 UPGRADE Abonn Poms je dispose des programmes suivants 1 Minitel disquette command e avec votre num ro 27 2 Interpom s disquette command e avec votre num ro 28 Je souhaite les mettre au niveau des versions d crites dans votre num ro 31 et vous commander le programme CLV_POM S Un tarif special est il pr vu 2 AFFICHAGE 80 COLONNES Le serveur envoie en ligne au minitel IB la commande qui le fait basculer en mode 80 colonnes J ai des probl mes pour restituer localement un fichier sur lequel figure un tel passage En d autres termes en mode consultation de votre programme minitel quelle est la s quence de touche qui permet de reproduire localement sur le IB cette commande du serveur 3 FIL TRAGE DES CARACTERES ACCENTUES Votre programme minitel mode pr paration de texte avec lequel ce message est pass sur Calvacom apr s pr paration sous Macwrite semble comme vous pouvez le constater avoir des difficult s filtrer les caract res accentu s Comment y rem dier Encore bravo pour ces programmes de comm vraiment utiles Cordialement Patrick Barczewski PB46 UPGRADE Pour une question de droits d auteur modif IBM obligent nous ne
23. type htab A0 outdo 528 il type blocs date une touche efonc ee non oui ctrl es p oui non gt attend une nouvelle touche le nombre de blocs et la date le type commence en colonne 41 28 40 analyse 256 octets de la bitmap AA oe Y TU litbitmp ida tay jon beg sta ldx Alda lsr adc bcc inc dex bne sta iny bne res bmpl bmp hmp3 bmp4 250 litbuf bap temp 8 nbloc temp 0 bmp3 nbloc 1 bap2 nbloc bmp1 octet 00 gt on passe au suivant 8 bits a ajouter le bit b tombe danc c et est ajout A bit suivant oui non octet sufvant lit et affiche le nombre de blocs occup s par le fichier r mam A Gs LOL OL EI ZEE sm AO mm mm mm d z m umn mm mm gem ma mm mm om GANE mg ma mr mm ass gem mm ur Gun remm um Gun asa gr mm jsr outspace ldy 13 blocs z lecture due enregistremert du bloc lu sr litbuf litbuf Ilda 58000 adresse non significative modifi e sta nbloc iny rts selon les besoins imprime les espaces de d but de ligne Tm ah GR increm esprts incmax espacbis fncmax espaces Idy epy bee ld y ida sr dey bne rts A0 outdo espacbis espbci espbcl esprts imprime un retour chariot lignes lignes 32 memepage carte amp 0c noformf debsscat memepage 0C outdo
24. 1 tbuf 1 buffers i 11tbuf 2 2 l tbuf blociu litbur bloclu 1 blociu catfini 0 compteur blocsutv pile termine bloc lu bioclu i compteur increm increm litbloc Suivant 3 32E outdo asu vre pile crdo meme si le CTRL C date un peu clavier remis en attente avec kbstrobe n n oul gt on crit la derni re ligne adresse relative de l enregistrement calcul adresse absolue de 1 enreg lit le 1 er octet de l enregistrement qu contient le Cype de sauvegarde du fichier et la longueur du nom octet de la forme tttt 1111 0 si fichier inexistant ou d truit gt A tttt 0000 est ce un sous catalogue branche si autre que sous catalogue C est un nom de sous cataiogue gt on sauve le compteur et le nun ro du bloc Il faudra souligner pour i re le n du l er bloc du soUS Catalojgue au retour Y 0 gt A 0000 1111 Y 1 d but du nom nom de cat ou sousecat oud non on souligne non gt debsscat oul trait de soulignement enregistrement suivant d j 13 fichiers affich s oui non On va lire les 2 octets de Chainage avart octets num ros 2 et 3 du bloc c ast le num ro du bioc suivant si 00 00 gt le dernier bloc vient d etre iu polnteur de pile gal sa valeur de d but lt gt a t on tout denile oui gt catalogue principal termir non 5 on r cup re le n de bloc et le compteur pr c dents on
25. 145 146 147 148 149 150 151 152 159 154 153 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 1719 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 193 196 19 7 198 199 200 201 202 203 204 205 SPC1 SPKFIN SPCERR BEC CPX BNE JSR LDA RTS LDX JMP SPKFIN 501 SPCERR 1 ROM BO ERROR GRAND CADRE OPT OPT1L1 OPTIS1 152 OPT LF 1 JSR JSR INC LDA CMP BEO LDX CPX BEQ CMP BEQ LDA LDY STA LDY DEY STA CLC BCC JSR LDA RTS INIADR TRAIT AD80 LIG LIG 55F OPT LF DIMI 00 OPT1S2 52F OPT LF 520 500 ADR Y DIM1 1 ADR Y 151 TRAIT ROM XQUADRILLAGE OPT2 OP2B TRCOL COLSUI JSR STX JSR STX JSR LDA STA STA STA LDA CMP BNE JSR LDA STA CLE FCC LDA CMP BNE LDY LDA STA LDA STA INC LDA CMP BEQ GETBYTE LIGD GETBYTC COLD INIADR 500 COLF LIGF MAXH LIGD LIGF TRCOL TRAIT 500 LIGF LIGSUI COLD COLF COLSUI MAXH 520 ADR Y 500 COLF MAXH MAXH DIM1 1 LIGSUI Pom s n 32 206 207 208 209 210 211 212 213 214 215 216 217 218 210 220 221 222 223 224 225 226 227 228 2 230 gol 232 233 234 295 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 xk 254 255 256 467 258 259 260 261 262 263
26. 3 1 2 62500F Ul e la revue etles disquettes Macintosh 62500F LI a la revue les disquettes Apple 140Ko 5 1 4 etles disquettes Mac 92500F LI la revue les disquettes Apple 800Ko 3 1 2 et les disquettes Mac 1025 00F 1 8 Envoyez ce bon et votre reglement a Editions MEV 12 rue d Anjou 78000 Versailles S Nom E Adresse ma 2 R glement par Carte Bleue VISA O 4 Ch quebancaire 1 Ch que postal C Mandat LI 2 num ro de la carte 6000 date d expiration __ __ __ pos Montant F Signature Poms n 32 0 Cable interface de communication Apple Minite Cette liaison d crite dans les num ros 27 et 28 de Poms est indispersane por She DESTE ies programmes suivant MinBas pour Apple 7e e ft et GS programme permetiant lemegesement des Scans Maviel la restitution loisir hors r seau le stockage et ou l impression de copies d cran du Minitel et ass Sade eres au messaces sur Un serveur ces messages tant pr par s l avance avec n importe quel programme de r next 3e ers mame publi dans le num ro 27 de Poms Minltel 1 pour Macintosh programme identique MinBas pour Apple avec ea NEM made de Exe pour la pr paration etle stockage des messages sans sortir du programme Programme publi numan 27 ey 5 InterPom s pour Apple l e e fc et GS programme de t l chargement e toe Ace et Macintosh Ce logiciel autorise la transmiss
27. 3 non oul ptr est toujours gal 4 1 longueur du nom elle va servir longueur lt 3 oul gt erreur le nom doit contenir au m nlmum 2 et un caract re lit le dernier carsctere 2 2 non oui gt lit le l er caract re uer non oud gt on cherche un interm diaire oui gt erreur i V 9 nen oui gt en premier caract re oui erreur non autorise a non lt 9 5 code de r oui v rifier sl pas en l re positicn lt Pom s n 32 nomok p svol dernier calcunit stunit bee cmp bes isr jmp 1da bne lda bed jsr syntaxer 5B syntaker chislastt nemvol go fbitsel calcunit SBPIA dernier mil dc 11 8C7 12 prefparm gsr mil dc 11 306 12 prefpar a bec ldx Exs f r np dda bne lda and a l asl ora asl asl asl asl sta cette fois go noprodos prodos titrebc f ntitre blocsu v analyseb ESN stx lda sta sta sta sta sta dec Ada sta ida ta sta isr lda emp beq ldy Ida iny ora bne ny ida erp beg ida jnp ldy lda sta ny Ida st iny Ida sta iny Ida sta jsr jsr jsr jsr ldy Ida TSE dey bne jsr jsr isr Ida dernier p le badcali errout devcnt 1 stun t vdriv 502 out Ze 2 58 code de J continue a t on fourni vn param tre s ou d
28. 60 0 6008 GEO 60E8 6OFO 60F 8 Dal Qr 6106 6110 zl 14 Gal Ol 6 128 61308 6128 6140 6148 6 1508 6040 6068 AD BE 60 4C A8 5 48 BF ED A4 01 4C DD WS 69 8D 8D 8D 08 8D 20 09 AE 07 4A p CA BB 07 AJ 60 31 DO 88 Bi AQ 09 CIN FA siz 07 60 02 00 00 00 00 00 00 00 A6 07 65 B1 19 6D 61 61 50 2 54 A 6000 L A08 BE 61 FS BE BA A8 4A 58 DO BE BE 00 A2 20 28 B1 34 02 Gg 3A E6 EG 88 00 01 00 00 00 00 00 00 00 06 AD DC 06 61 65 88 AD BE BE BE 8D 61 BE 8D 60 BO 4A BF EU 8D 65 E 00 66 1 Eu 3A 40 Bi QA A2 JA FB 310 80 00 00 00 00 00 00 00 00 AD 6D 69 Gy E DO 88 B Bc eD 18 Poms n 32 62 A9 ES 08 8A BB Ad 68 AD HE FA 3A AQ F6 JA Co 05 3A Be 00 BG A9 E6 40 00 00 00 00 00 00 00 00 6C BE 65 AO 66 28 BC 61 54 bib 60 61 0A OC BE 48 60 gA A9 BA BE A9 20 EF 29 69 00 19 05 C a FA 6B DO 20 00 00 00 00 00 00 00 00 BE 85 A2 DO 65 E 52 AC BE BE 36 AD 8D DO 85 98 AA 19 QE 60 A9 61 62 Al 212 BF DO 20 BO 6D Al DO eo E 10 00 00 00 00 00 00 00 00 85 OF 00 04 EO C6 BE 99 A9 A9 AD vous le sauvegarderez BA 03 HB 48 66 58 68 38 00 65 JA CU DO 09 FO 61 08 3A QA 38 FU 08 00 00 00 00 00 00 00 00 06 8E AO ca OA 4C AD 61 00 0
29. 6916 6936 AD z ES AO EB EE ES FA FO AO EG ED E5 EZ AO EI AO E AO 00 EC Ge 3 EE 69 EF EE E 9 E9 EN D3 F4 135 FO EE GC E AZ ER AE FO M EC AO EG 00 E9 216 EG E9 ES A0 00 F4 EMI E 4 AO Ca 6 0 Exo 3 00 3 z P4 AO EE FJ EQ AO AO ET EC ET ET AO AO E4 AJ E4 A0 F6 ce EF AO Fo AO 2 ES A0 AO 12 ES EJ ET AO AO F4 00 ET FE CO E6 Eg GE ES ES FB ES F4 cc Eli A0 7 9 ES E5 D3 E3 F4 EC AO BE DO B5 E5 z A0 Ed F6 A AO E6 EE ES ES ce EE E6 BS FE A0 ES E3 E E7 EB F4 00 BS AO FO ES E8 AO EE Fab AO AO EB A0 E6 ET F4 GF BJ AO AO 9 Bes ES BE E2 AE E8 AO F5 ES E 7 E5 FB F3 F3 EE AO Fa Bd EM H 5 AO EP F4 EB EE EF ES E4 EC E9 A AO AO E E 4 E 9 EB El A0 Fo EC A0 ES m A0 CO ES El BE A0 B DO F4 ES Ed El E6 9 AO ES BE F4 El E4 SE E8 AO AO EZ 00 R 5 F AQ AE E F4 AO BO ES AO BJ E2 EF ED BS El EE F4 EC Rd E9 H5 E E4 ES E5 r El E9 CU FO m HS E ES FO FO F4 EE Ed ES F2 AO E9 ES E5 B7 E9 ES FB Erg AO AO F5 z A0 E9 E6 E Gu ES ES E3 ES ES E4 00 ES A0 DO D5 El E3 F4 F4 C4 ES PR EC 5 AE F F4 Hs EB E3 E El AO AE F3 AE
30. Apple est Tabri des soucis puisqu il est isol du r seau t l phonique par le relais Le programme Dans le programme il suffit de tester l octet 16287 une valeur gale ou sup rieur 128 indique que la sonnerie est en cours En assembleur le test du bit 7 donne l indication 1 le t l phone sonne 0 il ne sonne pas A noter qu on peut simuler la sonnerie en pressant la touche G On peut s inspirer du programme DETECT qui attend un certain temps avant de signaler la sonnerie cel vite la d tection des tintements parasites tels celui d au raccroch du combin 390 Q 4 X 1 N 4004 Paul Courbis En pratique Le petit montage seffectuera sans difficult sur une plaque d essai L1 et L2 sont relier la prise gigogne standard intercal e entre la prise murale du t l phone et l appareil t l phonique Ces fils sont connecter aux bornes 1 et 3 Il ne faut pas oublier de relier les bornes des c t s m le et femelle pour que l appareil t l phonique fonctionne toujours C t Joystick la num rotation de la prise correspond celle de la DB 9 l arri re de l ordinateur 3 Programme DETECT 10 AS Le t l phone ne s onne pas 20 BS Le t l phone sonn a 30 HOME 40 PRINT PRINT PRINT PRINT Etat de la 1i ene 50 FOR W 1 TO 10 VTAB 10 EAB 1 60 10 1 70 IF 16287 gt 127 THEN NEXT ERMNT BS GO
31. Christian Piard Joelle Piard Fr d ric Rosay H Roy Contancin Herv Thiriez Bernard Tom no Vincent Tom no Directeur de la publication r dacteur en chef Herv Thiriez R dacteurs Alexandre Avrane Olivier Herz Si ge social Editions MEV 12 rue d Anjou 78000 Versailles Tt 1 39 51 24 43 Publicit ditions MEV Diffusion N M P P Impression Berger Levrault 1 rue des Glacis 54800 Nancy B 3 35 61 44 Photo de couverture CP amp JLB Photogravure Graphetec 21 chemin de la Tour 92350 Le Plessis Robinson TT 1 46 30 44 49 Pom s est une revue ind pendante non rattach e Apple Computer Inc ni a 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 IBM est une marque d pos e de International Business Machine PC et AT sont des marques d pos es de la Soci t IBM Dom n 32 Grand rendez vous annuel des Apple maniagues Apple Expo vous propose cette ann e d entrer gratuitement si vous tes porteur de Pom s bonne nouvelle Plus qu une simple Expo cette f te devrait nous r server quelques grandes nouveaut s les HyperCard MultiFinder et autre ImageWriter LQ mais on nous promet galement la d monstration d un r seau utilisant des fibres optiques de multiples p riph riques pour les handicap s tablette graphique cran tactile et le r sultat de mille ceuvres de d velopp
32. DO BEGIN PAGE OUTPUT ChoixM 2 N WRITE nom READLN Nom 68 r READLN Prenom Synthese Nom Prenom Cle 1 Decouvrir BlJe 1 IF Numero 0 THEN WRITELN nom inconnu WRITE prenom ELSE BEGIN SEEK Fich Numero Masque Afficher GOTOXY 14 18 WRITE voulez vous Modifier ou Supprime m cette fiche 28 J READ ChoixM WRITELN IF ChoixM M THEN Modifier IF ChoixM S THEN Supprimer END GOTOXY 14 20 WRITE autre fiche 0 N READ Choix WRITELN END END GEF Fich PROCEDURE Lister VAR Il I2 INTEGER Cholx CHAR Debut Tcle BEGIN WRITE debut de la liste READLN Debut IF Debut THEN Debut pour eviter de if ister les fiches effacees Localiser Debut 11 I 2 PAGE OUTPUT WRITELN pour arreter WRITELN pour guitter WRITE numero 2 WRITELN prenom WRITELN Chen xe Es WHILE Il lt Tablelf0 index AND BEGIN Num 2 Tablel Ilj Ineex SEEK Fitab Num 2 GET Fitab Table2 Fitab A Ld taper sur une fleche taper Q WRITELN nom J ville Choix Q DO Numero Table 2 12 Index SEEK Fich Numero GET Fich WRITE 4 Fich Nom 20 WRITELN Fich Prenom 20 Fich Ville 29 IF KEYPRESS THEN BEGIN READ Choix READ Chf oix END 124 1241 IF I2 Table2 0 Index THEN BEGIN 12 1 I1 f I1 1 END END END BEGIN debut du programme Plafond Dim Dim DIV 2 PAGE
33. IF LEN E GOTO 4145 80 81 82 83 84 85 86 BH 87 BC 88 BW 89 BP 90 BK 91 BT 92 BV PRINT re CMP BEQ BEQ LDX INVERSE A ES P 0 1 NORMAL amp W 0 0 REM MM AFFICHAGE RESULTAT CONFIRMES P THEN 4030 PRINT CALL 37723 REM TRANSFERT EN MEM POKE 33153 L POKE 33154 Y PRINT DS BSAVE F A 5180 L 3010 554 BT 556 BV 510 ERROR SPHOME SPCOPY SPWIN SPPRINT SPCADRE SPCHPAG SPVISU 93 xxrxxxxx xxxxxxx 94 HOME 95 SPHOME 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 143 114 115 4 116 117 118 119 120 121 SPHS JSR JSR STX TXA CMP BCS JSR CPX BCS INX STX TXA CMP BCC JSR STX LDA BEQ CPX BCS JSR STX LDA BEQ CPX BCS CPX ADT X GETBYTC LIGD DIM2 ANOH GETBYTC DIM2 ANOH LIGF LIGD ANOH GETBYTC COLD DIM1 1 GB4 DIM1 1 ANOH GETBYTC COLF DIM1 1 SPHS DIM1 1 ANOH COLD Pom s n 32 122 123 124 125 126 127 128 129 190 131 132 193 134 193 136 137 136 169 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 BEC BCS ANOH LDX SUITHOM JSR BCLI FIN HSUIT HERR RER Z BCS k AD80 INPUT RTS E CUT CALCADP LDA CLC ASL TAY LDA STA Pom s n 32 ANOH SUITHOM 54D E
34. JSR HPOSN LDA GBASL STA ADIM LDA GBASH STA ADIM 1 RTS LELALOASALALALARSGAROROLELOSASSGSG AAA ROUTINE MOVE POUR TRANSFERER L IMAGE ei DE 00 1000 VERS SEI 72000 e esse COMP 1 D6 s COMPTEUR 256 OCTETS COMP2 07 COMPTEUR 128 256 MOVE LDA 00 STA COMP1 LDA 128 STA COMP2 LDX 00 TOUR1 LDY 00 SOURCE HEX AF001000 LDA EN BANK 00 DESTIN HEX S8FOO20E1 STA EN BANK El INC DESTIN INC SOURCE I INY CPY COMP 256 OCTETS BNE TOUR1 2 INC DESTIN 2 INC SOVRCE 2 INX CPX COMP2 7128 BLOC DE 256 2 BNE TOURI ZDA 00 ON RETABLI STA DESTIN I les adresses SOURCE er STA SOURCE 1 DESTIN comme elles LOA 4520 taient STA DESTIN 2 sau d part LDA 10 2 STA SOURCE 2 RTS LA LU LL ee ee LL 899989 s V et B TOMENO h bt 6 ee ee ee ee Pom s n 32 n guise de suite au programme du n 22 de Foms s dessins de courbes fractales sur Macintosh et pour que Apple ne soit pas en reste voici un programme qui profite pleinement de la r cursivit du Pascal pour aller un peu plus loin dans les espaces non entiers Le programme R cursives propose huit options Courbe de Von Koch La courbe fractale la plus connue Se reporter au Pom s 22 pour sa construction Triangle Une autre fractale dans laquelle chaque segment est remplac par ps en chan
35. OUTPUT Initfichier IF Erreur FALSE VR TELN WRITELN choisissez Ajouter une fiche Becher THEN REPEAT cher Lister Quittes WRITELN fou ajout aleatoire READ Choix NRITELN CASE Choix OF A Ajouts L Lister R Rechercher END UNTIL Choix o CLOSE F ich CLOSE Fitab END fera pour essai Poms n 32 afale de nouveaut s chez Apple Elles ont t d voil es en ao t et feront leurs d buts europ ens l Apple Expo La premi re de ces innovations est baptis e HyperCard apr s avoir t connue sous le nom de code WildCard Que les lecteurs anglophones ne se laissent toutefois pas abuser par cette d signation il ne s agit pas d une carte d extension mais bel et bien d un programme Le plus difficile est d expliquer exacte ment quoi il sert Chez Apple on le d crit seulement comme un hyperm dia ou langage de navigation sur les bases de donn es C est en effet la premi re caract ristique de cette application qui constitue un Hypertexte L hypertexte est un programme permettant en cliquant sur un dessin l cran d obtenir des informations plus d taill es sur ce dessin et ainsi de suite La firme Ow fut la premi re d voiler un produit de ce genre avec Glue Elle fut donc la premi re r ler lorsque Apple d voila son HyperCard D autant que le programme d Apple sera distri bu gratuitement
36. Temps d acc s l Information 0 2 ms 100 fois plus rapide que les disques durs Par exemple demorroge sur Bosic System en 3 s AppieWriter disponible en peine 1 s Constitu e de circult CMOS tr s faible consommation Speedisk est aussi fiable que l ordinateur lui m me Elle est insensible l environnement Speedisk est propos e en quatre versions 1 Mo 1 048 576 octets 384Ko extensible 1Mo avec horloge compatible ProDOS pour les Apple e ou sans 155 100 compatible avec ProDOS c est un volume Speedisk fonctionne sur Apple sur Apple e et sur Appie GS Lecteur de Pom s vous b n ficiez d une remise de 10 SP400 384Ko SO 359100 SP1000 1 Mo 5990700 539100 SP400H x 384Ko horloge 458060 4 122 00 5 1000 1 Mo horloge 6586 592200 Speedisk est une fabrication francaise garantie un an par change de la carte Banc d essai dans la revue Pom s n 3 Vente par correspondance documentation renseignements Logma S A 12 rue d Anjou 78000 Versailles T l 1 39 51 24 43 Speedisk est une marque d pos e de Thot Informatique France Speedisk
37. disquette 4 derniers bits d o la limitation 15 caract res 5 13 nom de la disquette 27 et 28 num ro de bloc de la bitmap 29 et 2A nombre maximum de blocs du support ler bloc de sous catalogue i re entr e On utilise seulement les octets 4 13 comme ci dessus Entr es de fichiers Les num ros d octets sont donn s par rapport au d but de l enregistrement Les octets utilis s sont les suivants 0 type de fichier longueur du nom voir ci dessus 1 F le nom 10 type de fichier BAS BIN TXT Mi 11 et 12 num ro du ler bloc du fichier 13 et 14 nombre de blocs occup s par le fichier 21 et 22 date de derni re modification du fichier lire envers 22 21 La bitmap Elle occupe g n ralement le bloc 6 Chaque octet renseigne sur l occupation de 8 blocs un bit est 1 sile bloc est libre et si le bloc est occup Sur une disquette 140 Ko il y a donc 35 octets utilis s 280 8 et 200 octets pour une disquette 800 Ko 1600 8 0 Bibliographie Organisation une disguette ProDOS Guide ProDOS P Beaufils W Luther Editions Sybex e Beneath Apple ProDOS Quality Software Relogeur Commande exteme num ros ant rieurs de Pom s d Pom s n 32 Source XCATS z Relogeur tr s senblable celui de PON S n 26 et l g rement sodifi pour reloger les appels au MLI Assembleur
38. litbuf 1 datesys 21 litbuf 2 msqdate msgdate Y outdo affmsQ TE demande ProDOS de lire la date elle sara stock e dans datesys datesys l code de GET TIME uniguement pour faire joli GET TIME n utilise pas de parametre mais une adresse est n cessaire apres le code de l appel la routine date utilise Y2521 et Y 22 z Suivi imnedlatement de date affichage de la date de acdification du fichier la dete est stock e dans les ectets 22 et 22 de 2 ltanregistrement avec le format date r lay n beq cnp bes lsr sta dey jsr beg sta ror 15 isr der lsr emp bes Sta ida and cmp bes cmp bcs pha Poms n octet 22 aaaa aaam outspace 522 iitbuf sansdate 5 8 sansdate 2 aa litbuf sansdate 7 a 6 2500 sansdate mm 3 1F 320 sansdate 50A datel Ca octet 21 mmmj 1111 octet 22 gt ES C8 7 lt gt ann e gt 100 c bit b fait partie du mois lecture octet 521 on fait entrar la retenue gauche et on garde b7 b4 par d calages meis gt 12 oui sans date jour b4 b0 jour gt 32 oui sans date non gt jour 10 7 non oui datel ms sansdate affsd imprdate jer pla sz ida sr ida asi adc tay 1dx ida isr iny dex bne lda isr lda isr rts ldx ida dsr inx bcc rts tax Zda Jer rts outspace imprdate 20 outdo m a mn 53 moi
39. per vpath1 1 ptr l 1 nocmd 1441 compar xlen 0 syserr xcnum 100010000 pb ts 00900100 pdits xsuite ver suite xtrnaddr versulter2 xtrnaddr 1 xreturn 1510 errout n cessaire pour faire reler Yvan Koenig il vpathi pointe sur la commande entr e compare la commande entr e et xcat ce n est pas pour nous commande xcat 4 caract res gt y 3 n commande externe nom de fichier autoris slot et drive autoris s utile au relogeur seulement adresse laquelle ProOOS devra nous rappeler apres analyse 1 des parametres retour PTOODS sans erreur pour analyse des parametres utile s notre cemmande est ia setle ou la derni re pour s gnaler l erreur saut d la commande externe pr c dente code de SYNTAX ERROR affiche le message passons aux choses s rieuses ldx lda cmp bne dex stx 1dy lda beg ida sta cop bee tay ida bne Jdy ide hne iny cpy bes lda cnp beq cnp hne beq bne emp bce cmp bee cnp 0 output L C3 80 carteS c 0 b ts pas vol perio y longueur 3 syntaxer pte y 2F syntaxer 4 ptr y 52F syntaxer longueur nomok ptr y 52 syntaxer 52 cs 2 syntaxer chslash 30 syntaxer 3A esl 541 carte 80 coionnes active non oui gt carteSOC FF un nom de volume demand fbits lt gt 0
40. te 00 On ne peut aller au del de la fin du fichier 00 Le fichier est verrouille 00 Le fichier est rest ouvert 00 Le catalngue est endommeg 00 Le disque n est pas en ProDOS 00 Un des param tres de la table est incorrect 00 ProDOS ne peut gerar que huit lecteurs la fois 00 Le buffer ne peut s implanter l endroit d sign 00 Il y a deux nens de volume ide nt gues 00 La carte des blocs est endomme g e 00 60 objet pr sent programme est de r pondre aux besoins de sauvegarde de volumes de tailles diff rentes Avec MouseDesk la copie de multiples fichiers ne pose pas de probl me mais avec le Filer de ProDOS pas question de sauvegarder des dossiers oi de copier des volumes diff rents M ADA La configuration tait la suivante Apple une carte Speedisk 1 M ga un lecteur 800 Ko pas de souris et le probl me tait de saugarder la carte RAM sur une disquette 800 Ko Le programme Basic pr sent ici n est qu une utilisation du Copieur de F Rosay list dans ces pages 1l se charge de rechercher dans le catalogue les dossiers et sous dossiers quelle qu en soit la profondeur puis fait appel 3 la commande externe COPY pour en assurer la sauvegarde I donne accessoirement une fa on de rechercher les fichiers dans les dossiers Utilisation Le programme se lance simplement par RUN COPIE TF OU COPIE TF exclusive
41. 00 FO 39 A5 08 C9 01 FO WoM Beurj nus Z eg ae Ben 90B8 00 20 27 91 85 EF 20 C7 9190 08 A5 07 C9 00 FO 2A DO 90 0 91 9 01 20 27 91 85 9198 25 A5 07 C9 00 FO 1C DO BSAVE HGR SUPHGR C A 9000 L 230 90C8 EE E8 A9 00 20 27 91 85 1 0 17 AS 09 L FO OE 90D0 EF 20 C7 91 E8 A9 01 20 91A8 CF C9 01 FO 08 A5 08 C9 9000 A9 00 85 F9 85 FD 85 3C 90D8 27 91 85 EE AP OO OO 01 91B0 01 FO DE DO E4 A9 OF 60 9008 85 3E 85 42 A9 20 85 3D 90E0 20 67 91 A2 00 A9 00 20 91B8 A9 06 60 A9 0A 60 A9 04 9010 85 43 A9 40 85 3F A9 10 90E8 27 91 85 EF 20 C7 91 EE 91C0 60 A9 03 60 A9 00 60 AS 9018 85 FE 38 20 11 C3 A9 00 90F0 DD 90 EE DD 90 EE 90 90 91C8 EE 0A 0A 0A 0A 85 06 18 6090 85 FA 20 DF 91 AO 00 AF 90F8 EE 90 90 AD DD 90 DO 06 91D0 A5 EF 65 06 91 FD E6 FD 9028540 00 01 20 67 48 AD 28 9100 EE DE 90 EE 91 90 FA 91D8 AD PD DO Q2 H FE 60 9030 90 8D 90 90 8D DL 90 EE 9108 A5 FA C9 14 FO 03 4C 51 91E0 F9 AO 00 A2 00 20 11 F4 9038 90 90 EE DD 90 EE DD 90 9110 90 18 A5 FD 69 14 85 FD 91E8 A5 26 8D 28 90 A5 27 8D 9040 AD 29 90 8D 91 90 8D DE 9118 00 02 Eb FE E6 F9 F9 91F0 29 90 60 A9 00 85 D6 A9 9048 90 AJ 02 85 CE AS 18 85 9120 C9 CO FO 15 4C 1E 90 85 91F8 80 85 D7 A2 00 AO 00 AF 9050 CF A2 01 A5 1F 85 07 A9 9128 08 A5 CE 85 09 AS CF 85 9200 00 10 00 8F 00 20 El EE 9058 01 20 27 91 85 EE E8 A9 9440 5 18 85 CF 180 79 91 9208 04 92 EE 00 92 C8 C4 D6 9060 00 20 27 91 85 EF 20 C7 9138 60 A2 00 BD 47 91 9D 00 9210 D0 ED EE 05 92 EE 01 92 9
42. 11 ees SE ce c e Ge 1 total il 10 pref para de LATOT de 1211 1 seul param tre msgdate de 11 17 de 125200 le buffer d entr e do EL EMIRPMI EUGOLATAC incmax de 11 24 d calege maximum de 24 caracteres adresses relatives des enregistrements d un catalogue ou d un sous catalogue par rapport au d but du buffer SES ER TAI RP au PE NE wi fin gegu END R capitulation 2108 BE 85 FF Ol Bi FE D9 2250 00 CO 29 7F C9 03 DO 03 2010884 26 DO 2D 68 CO 05 M 2298 4C 15 23 A4 16 B9 9E 25 XCAT 2118 F4 88 88 8C 52 BE A9 00 2260 18 65 73 8D 99 23 H9 AB 2120 8D OF BF 8D 53 BE A9 10 2268 25 65 74 D 9A 23 0 20 Apr s avoir saisi ce code sous moniieur 21287810 54 BE AS 04 8D 55 BE 2270 20 98 23 FO 54 29 FO C3 vous le sauvegarderez par 2130 AD 4A 21 AD 31 21 8D SO 2278 D0 DO 14 A5 C 48 AD 96 BSAVE XCAT A 2000 11685 2138 BE AD 32 21 8D 51 BE 18 2280 25 48 AD 95 25 48 AJ FF 2140 60 38 4C 9E BE A9 10 4C 2288 85 1B AO 11 4C E2 22 20 2000 AD 00 BF C9 4C FO 0D AC 2148 09 BE A2 00 AD 31 BE C9 O 2008 39 26 B9 39 26 20 D6 23 2150 C3 DO 01 CA 86 E3 AO 00 E 28 0 4 0 IG 2010 88 DO F7 60 AD 4D BE FO 2158 AD 56 BE FO 44 BI FE 85 mio Hl d ducc AOS 2018 05 A9 15 4C 09 BE AD 08 2160 1A C 03 90 EO A8 Bl FE 505 A h 2020 BE 8D 44 21 AD 07 BE 8D 2168 C9 2F DO D9 AO 01 B FE U9D 7 75 2028 43 21 A9 06 20 F5 BE C9 2170 C9 2F DO D1 C8 C4 1A BO E e 2030 0C DO 03 4C 09 BE 8D E2 2178 22 Bl FE C9 2F FO C6 C9 22
43. 20D0 E9 21 90 OC 20 BA 20 BO 2218 B1 73 85 EB C8 Bl 73 85 2360 E5 06 85 06 AS EE ES 07 20D8 07 6D E2 20 91 FC 18 60 2220 EC C8 B1 73 85 ED C8 Bl 2368 85 07 AC 63 26 63 26 20E0 38 60 00 00 00 00 00 00 2228 73 85 EE 20 Bl 23 20 9E 2370 20 D6 23 88 DO P7 20 37 20E8 00 00 00 00 00 00 00 00 2230 24 20 Bl 23 20 Bl 23 AC 20F0 00 00 00 00 00 00 00 00 2238 B8 25 B9 BB 25 20 D6 23 20F8 00 00 00 00 00 00 00 00 2240 88 DO F7 20 Bl 23 20 Bl Suite page 37 AD 6C BE 85 FE AD 6D 2248 23 4C 4F 22 20 29 25 AD 2100 D8 lowb highb de il 04 2B 52 79 A0 C7 SER dc il 15 3C S63 SIA SBI SDB dc 2170 7050 020 0 0 dc ire 171 lt ligne de titres du catalogue t tres de de c z textes et command dc 11124 AG ca munun dc c dc il 8D c EIPIBeM K e caca constantes C XCAT nonactif dc 11 25 13 13 7 ms SCOLA MON dc c FICTA NON SODORP libres dc il is ac cr SERBIL SCOLB Pom s n 32 es imprimantes Image Writer et DMP B 1 poss dent un grand SEN nombre de possibilit s qui ne sont g n ralement pas exploit es par l utilisateur En effet il faut lui envoyer des codes de commandes relativement complexes qui n cessitent souvent un programme pa
44. 450 articles extraction d un d entre eux par sa cl demande environ une seconde Le tri alphab tique demande aussi environ une seconde par article En outre le fichier na pas tre purg pour r cup rer la place des articles supprim s La d monstration Le programme REPERTOIRE gere un fichier d adresses d une capacit de 450 articles La cl de chaque article comprend le nom et le pr nom concat n s puis tronqu s 15 caract res Vous entrez d abord le nom du fichier par exemple ADRES SES En cas d absence sur le disque il y a cr ation du fichier de donn es ADRESSES DATA et du fichier de tables ADRESSES TABL attention la place disponible Vous pouvez ensuite ajouter des articles les rechercher un par un par le d but de leur cl pour ventuellement les modifier ou les supprimer ou encore les lister par ordre alphab tique de cl partir d une origine quelconque Le fonctionnement Les fonctions principales du programme P REPERT sont assur es par les proc dures AJOUTER RECHERCHER et LISTER Celles ci font appel des proc dures de l unit link U GESTABL e CLASSER range dans les tables la cl et le num ro d un arucle e DECLASSER supprime une cl des tables et les r organise e REPERER et DECOUVRIR cherchent dans les tables le num ro d article associ une cl donn e respectivement dans l ordre descendant ou ascendant e LOCALISER cherche la
45. Disquettes 5 a 8 200 00 F L1 Mac 22 80 00F 1 A 1140Ko 22 60 00F O E Num ro 3 Revues 9 12 14000F O 23 80 00F 1 AJ 140K0 23 6000F O 2 Disquettes 9 a 12 20000F 7 Mac24 80 00F O 140 24 6000F 11 2 Mac 25 80 00F 1 AJ 140Ko 25 6000F LI gt reliures toil es Mac 26 80 00 F 1 A 140Ko26 60 00F 1 2 pour 6 num ros soit un an 60 00 F C1 Mac 27 80 00 F l A 140K027 60 00F D c Mac 28 80 00F 77 All 140Ko28 60 00F O E Apple 800Ko 35 num ro29 8000F 1 Mac 29 80 00F LJ All 140Ko 29 6000F O S Apple 800Ko 35 num ro 20 8000F 1 Mac30 80 00F E A 140K030 60 00F E b Apple 800Ko 35 num ro31 80 00F 1 Mac31 80 00F Li A 140K031 60 00F Q Apple 800 3 5num ro32 80 00F O Mac 32 80 00 F 1 AJ 140Ko 32 60 00 F O 3 Revuen 8 Eu Revue n 10 40 00F U Revuen 11 40 0F J s Revuen 12 4000F O Revue n 13 40 00F O Revue n 14 4000F O E Revue n 15 40 00 F 1 Revue n 16 40 00 F L Revue n 17 4000F Revuen 18 4000F O Revuen 19 4000F LI Revuen 20 4000F O Revue n 21 4000F O Revue n 22 4000F Revue n 23 4000F LI 2 Revue n 24 4000F O Revue n 25 40 00F U Revue n 26 40 00F O Revuen 27 4500F 0O Revue n 28 45 00F LI Revue n 29 4500F LI gt Revue n 30 4500F O Revue n 31 4500F O Revue n 32 4500F 3 Abonnements pour six num ros partir du a g la revue seule 22500 F O 5 la revue et les disquettes Apple 140Ko 5 1 4 52500F D 8 la revue et les disquettes Apple 800Ko
46. NS T C A I000 L32 68 HOME TEXT VTAB 15 HTAB 3 I NVERSE PRINT NS EST MAINTENANT A U CATALOG PRINT HTAB 8 PRINT ET 115 VTAB 21 HTAB 72 INPUT COS T T 1 ON CO GOTO 70 CO VAL CO IF CO gt 0 OR CO 16 THEN E AD IN CO 120 GOTO 70 125 ER PEEK 222 LI PEEK 218 PEEK 219 256 ERS Y a un probl me en ligne STRS LI IF ER 255 THEN HOME END 130 IF ER 6 OR ER 7 THEN ERS Err eur sur le nom du Fichier ou du Volum LISIBLE SOUS GS PAINT NORMAL e 135 IF ER 4 THEN ERS Disque prot g 65 PRINT T 1 en criture 70 IF T 1 THEN CLS NOIR IN 15 140 IF ER 3 OR ER 8 THEN ERS Err 76 IF 2 THEN CLS WIGLET IN s 12 eur d entree sortic 80 IF T 3 THEN CLS BLEU IN 9 145 IF ER 9 THEN ERS pas assez de 85 IF T 4 THEN CLS VERT IN 6 place sur ce disque PRINT DS DELETE 90 IF T 5 THEN CLS ORANGE IN 3 NSS 95 IF T 6 THEN CLS BLANC IN 0 150 IF ER 19 THEN ERS Fichier d ja existant sur le disque 155 HOME VTAB 23 ATAB INT 80 L EN ERS 2 PRINT ERS CHRS 7 FOR D 1 TO 3000 NEXT HOME TEXT GOTO 25 160 REM LES POKES AD LIGNES 35 ET 11 100 IF T 5 6 THEN HOME GOTO 45 105 VTAB 22 CALL 958 HTAB 12 PRIN T QUELLE NUANCE POUR TRADUIRE LE CL RTN NO CHANGE 110 PRINT 0 Noir 1 Gris fonc 4 Bleu fo 60 END 2 Brun 3 Violet nes P
47. PARMOUV 2 JER OUVRE LDA REF NUM STA PARMECR 1 JER GEUE Chois t un buffer pour le transfert LDA 0 STA POSEOF STA POSEOF 1 STA POSEOF 12 LDA PARMGFI 4B8 LDY PARMGFI STA CALCUL SEX CALCUL 1 ASL CALCUL ROL CALCUL 1 LBA CALCUL 1 BEQ TAILLE LDA 143 STA ECCO BNE CHERBUF TAILLE LDX CALCUL INX STX ECCO CHERBUF DEC ECCO LDA ECCO JSR GETBUFR BCS CHERBUF STA PARMLIT 3 STA PARMECR 3 LDY 0 STY PARMLIT 2 STY PARMECR 2 LDA ECCO STA LENBUFF Procede au transfert des infermations SUITE LDA PARMEOF 2 SEC SBC POSEOF STA RESTE LDA PARMEOF 3 SBC POSEOF 1 STA RESTEFI LDA PARMEOF 4 SBC POSEOF 2 STA RESTEY2 LDA RESTE 2 ENE SUITE LDA RESTE 1 CMP LENBUFF BCS SUITE STA PARMLIT 5 LDA RESTE STA PARMLIT 4 JME SUITE2 SUITE1 LDA 0 LDY LENBUFF STA PARMLIT 4 STE PARMLIT 5 SUITEZ JSR LIT LOX PARMLIT 6 LDY PARMLIT ADC POSEOF STA POSEGE ADC POSEOF 1 STA POSEOF 1 LDA 0 ADC POSEOF 2 STA POSEOF 2 STA PARMECR 4 STY PARMECR 5 JER ECRIT LDA POSEOP 2 CMP PARMEOF 4 BCC SUITE3 SUITE3 END RECOP BCC LDA STA DEX BNE JSR RTS POSEOF 1 PARMEOF 3 SUITE3 POSEOF PARMEOF 2 END SUITE CLOT VPATH2 VPATH2 1 PARMSF I 1 PARMSF1 2 4 PARMCE 1 2 X PARMSFI 2 X RECOP FIXF LE Ferme le fichier source puis le fichier destinatien CLOT RESTORE LDA STA JSR RTS PARMLIT 1 PARMCLO 1 FERME DEPLACE PARMEC
48. TOTAL PSX 1 B B ProDOS PRT VERI3 PAS A A CALC PSY X PSX 2 520 PSYIX 8 PS2 8 PSZ8 PSY 1 BCL1 PS2 1 PGO 8 PGODEC2 PRT PGOECRIT BLANC PSX 7 DEC2 PSY 1 PAS A PGOBCLI BCL2 PASSA A PGOVERI3 PSX 1 ECRIT F 4 A c PGOBCL2 o CODE F lt lt gt 2V gt 000 2 C gt lt PSRCALC 0 HAUT PINCode du filet haut C DHHHHHHXD PSRFILTR F lt gt lt SA gt lt PCS lt C lt lt 0 PGOHAUT PRT B FILTR PCS lt C lt lt PSRBLANC PRT BAS PINCode du filet bas D PCS C PCS lt D lt lt PAS C 52 EOS 5 3 PAS D C PAS C PSRFILTR PRT PCS lt SC lt lt PGOBAS BAS2 PSRCODE 1 mettre un CTRL L taper au clavier CTRL V CTRL L CIRL V POT 2 mettre Escape taper CTRL V ESC CTRLV 2468 60 20 D4 23 A0 10 20 98 2580 A5 08 29 FO 8D 92 25 60 Suite de la page 34 2470 23 A2 OD AO 00 DD 89 B9 2588 CA 10 CD A9 06 4C 09 BE 2478 F0 14 C8 C8 C8 CA 10 F5 2590 00 03 50 00 00 00 00 02 2480 AA A9 24 20 D6 23 8A 20 2598 00 00 00 01 00 02 04 2B 2378 24 A5 ED 85 06 A EE 85 2488 DA FD 20 D4 23 60 A2 03 25A0 52 79 A0 C7 BE 15 3C 63 2380 07 AC 70 26 B9 70 26 20 2490 B9 97 B9 20 D6 23 C8 CA 25A8 8A BI D8 00 00 00 00 00 2388 06 23 88 DO F7 20 37 24 2498 D0 Ee 20 D4 23 60 20 00 25B0 00 00 01 01 01 01 01 01 2390 20 B1 23 2C 10 CO 18 60 2HAOASF 82 00 0001 d A CE 2399 89 00 80 60 24 10 EO 1 24A8 23 A9 BF 8D 9A 23 AC 7B 25C0 2D 2D 2D 2D 2D 2D 2D 2D 23A0 CC 93 26 90 03 AC 26 24B0 26 B9 7B 26 20 D6 23 88 25C8 2D 2D 2D 2D 2D 2D 2D 2D
49. VIDEO il suffit de taper VIDEO Consultation Utilisation directe de amp V VT HT On d place l cran par les fl ches et on sort par ESC ou RETURN Mise jour Il y a 3 phases distinguer Visualisation de l cran vous devez jouer avec les fl ches pour que la cellule modifier soit pr sente l cran puis faire RETURN ESC perrnet d abandonner la mise jour 2 Affichage de en vid o inverse D placer 1 de facon la loger dans la cellule mettre jour puis faire RETURN ou ESC pour abandonner Si vous faites sortir 1 de l cran on repasse en phase 1 3 Saisie du texte dans la cellule La cellule choisie est plac e dans le coin sup rieur gauche Cr ation d un cran Fonction tr s simple Sauvegarde de l cran Le programme demande le nom de l cran ce qui permet de les dupliquer Note Ligne 1070 les PEEK 33153 et 33154 servent r cup rer la taille d une cellule nombre de lignes et de colonnes Ces informations ont t stock es la cr ation de l cran ligne 4175 dans les 2 premiers octets de la page 2 non utilis e par VIRCEL Comment faire Vous avez la disquette daccom pagnement Pom s pas de probl mes vous disposez des fichiers n cessaires Pour voir la d monstration faire simplement RUN VIRCEL Vous n avez pas la disquette Pom s 1 saisir et assembler BIGTEXT BIGPGM et BIGSAVE pour obtenir les fichiers BIGTEXT OBJ
50. Ww LA LA VO O VG Ln EQU EQU EQU EQU ORG LDA STA STA LDA STA STA JMP LDA STA STA LDA STA STA LDA STA LDA STA LDA STA LDA STA LDA LDA LDX LDY LDA STA INY BNE INC X x x xx x x x x xxx TRANSFERT ECRAN ENTRE 5180 ET CARTEI6K kk x o GG eoo 18 1A C083 C082 935B S1A K1B2 1 K2B2 1 518 K1B2 3 K2B2 3 TRANS 518 K1B2 1 K2B2 1 SlA K1B2 3 K2B2 3 9551 ADP 1 580 ADP 500 ADR 500 ADR 1 RAM RAM 500 500 ADR Y ADP Y K1B2 ADR 1 40 INC ADP 1 41 INX 42 CPX 30 43 BNE K1Bi 44 BANK2 LDX 808 45 LDA RAM 46 LDA RAM X 47 LDA S00 48 STA ADR 49 LDA D0 50 STA ADR41 51 LDX 00 52 K2B1 LDY 00 53 K2B2 LDA ADR Y 54 STA ADP Y 55 INY 56 BNE K2B2 57 INC ADR 1 58 INC ADP 1 59 INX 60 CPX 9510 61 BNE K2Bl 62 FIN LDA ROM 63 RTS Sch mateur suite Le programme de dessins de graphes et fonctions du num ro 31 de Pom s m rite un petit patch pour permettre la lecture des fichiers sur des disquettes ne contenant pas la routine de chargement rapide e Dans le programme Sch mateur Ajouter 2365 PRINT D BLOADCHARGE OBJ A 9000 Modifier 2100 CALL 36864 2390 CALL 36864 e Dans le programme Gravure Ajouter 145 PRINT DS BLOADCHARGE OBJ A 9000 Modifier 160 CALL 36864 amp GRAV C AG 260 HGR POKE 49234 0 C ALL 36864 amp IMS 8192 Z 5 R 92A8 60 20 4A 93 20 68 92 AS 94B0
51. alors une application ou d boucher sur un programme crit en MPW le langage de programmation d Apple HyperCard a d j suscit tout un foisonnement de mini applications baptis es stackware Comme par exemple un guide touristique interactif Bref beaucoup de b n fices pour pas grand chose puisque HyperCard sera distribu rappelons le gratuitement Le seul vrai probl me est que ce programme consomme lui seul 360Ko d une disquette et que les fichiers qui incorporent beaucoup de graphiques sont encore plus voraces Avec HyperCard le standard minimum du Mac vient de passer une configuration incluant au moins un disque dur de 20 M gas Faute de quoi on ne peut vraiment utiliser cette application g niale et dont on n a pas fini de parler Jean Mich Wi D r p c BH E um y x K i Le w Et ce n est pas fini car l autre nouveaut d Apple le MulfiFinder est lui particuli re ment exigeant en m moire vive Connu sous le nom de Juggler ce MultiFinder est incorpor la demi re version du Finder et repose sur les programmes crits par Andy Hertzfeld sous le nom de Servant II sagit dun commutateur d applications int gr au Bureau du Macintosh A la diff rence du Switcher apr s avoir cliqu deux fois sur le MultiFinder les applications deviennent simplement des fen tres pos es sur le bureau que Von peut r tr cir par leur case de contr le de taille En dessous c est toujour
52. cellules voisines blanches vous de reconstituer le d cor original HEXAGONE MAGIQUE est encore plus d licat m me principe que le carr magique mais ici vous devrez Installer les chiffres de 1 19 dans un hexagone de telle facon que les 5 horizontales et 10 obliques totalisent chacune 38 bonne chance Fid le son habitude Pom s vous propose sur cette disquette les sources des routines crites par Sylvie Gallet en assembleur Lisa 2 5 Bien entendu le Basic 80 00 F Franco est galement listable TAQUIN et NOIR BLANC Bon de commande page 74 utilisent leur propre routine graphique qui permet de dessiner plus rapidement qu avec des shapes Poms n 32 Ffoici un programme gul B permet de disposer d un cran virtuel de 7 256 colonnes par 48 lignes de texte ou 128 par 96 Bien entendu il ne sera pas possible d afficher l ensemble de l cran mais votre cran physique de 40 colonnes et 24 lignes devient une fen tre que vous d placez dans les quatre directions grace aux fl ches du clavier Pour ce qui est de l usage de ce programme elle d pend de l imagination stockage d cran jusqu 15 menus d filants crans type Visicalc a K Pons Eed Ga SR Principe de virtuel 0 HTVIR En 256 colonnes les lignes sont num rot es de 0 a 47 la variable VTVIR 07 repr sentant le num ro de ligne Les colonnes sont num rot es d
53. commande mais ne peut copier des volumes Ainsi l ordre COPY DISQUE RAM5 est invalide Si l utilisateur ne poss de qu un lecteur de disquettes il devra utiliser l ventuel disque virtuel comme tampon 55 S6 62F8 65 6300 52 6308 90 6310 90 6318 F0 6320 AD 6328 65 6330 65 6338 91 6340 65 6348 C3 6350 AC 6358 68 6360 07 6368 00 6 370 BE 6 378 BC 6380 64 6368 0A 6390 88 B3 95 20 63A0 85 63A8 A0 6 3B 3E 63B8 28 BC DB 5 6 3C8 A5 6300 1 63D8 AD 63E0 AD 63E6 328 63F0 AD 63F8 06 6400 69 6408 00 6410 64 6418 C8 6420 18 6428 AD 6430 BF 6438 00 6440 20 6448 60 6450 4F 6458 B0 6460 65 6468 B3 6470 CA 6478 BF 6480 00 6488 20 6490 60 6498 07 64A0 48 64A8 AC 64B0 65 64B8 C4 64C0 20 64C8 A9 64D0 ED 64D8 A2 64E0 DO 64E8 69 64F0 BC 64F8 20 6500 20 6508 65 6510 54 6518 AD BE 64 10 08 03 6E BC 9D 64 20 63 65 65 60 8D 65 29 PO 0A 98 YE JE 00 A5 64 42 JE EI 64 BB 18 00 Bi 18 AJ 69 EF C4 BE 00 20 60 46 B0 65 A5 C7 BE 00 20 60 60 20 65 0 120 IE FB 00 06 ED 4D AD 66 A7 Al AD AD AD 4C BE 85 85 60 5B 20 65 AC A9 BB BC 64 01 0A 4A 64 A5 B1 07 18 AS 38 CR 65 65 38 65 69 85 06 69 AF 02 Ji 82 BE 00 20 60 3D BO 65 BE C5 BE 00 20 48 65 JB AD DB 20 A9 DD BA 65 BD 63 OB AD 66 65 60 5 58 99 65
54. conception rappelant sur bien des points celle d AppleWorks mais avec videmment les progr s dus d une part au fonctionnement du Macintosh dautre part la puissance du mat riel Works propose outre les trois outils pr c dents un grapheur associ au tableur un module de courrier personnalis par liaison du traitement de texte et de la base de donn es et un module tr s complet de t l communications Les liaisons entre modules utilisent syst matiquement le Copier Coller cependant que les liaisons avec dautres logiciels se font par importation ou exportation de documents ou encore par linterm diaire du module de communication Pris individuellement les outils sont classiques poss dent les fonctionnalit s indispensables sans sophistication Ils sont en cons quence faciles maftriser et mettre en ceuvre Pris ensemble on appr cie le passage instantan d une fonction une autre par simple activation de la fen tre voulue et la liaison elle aussi presque instantan e par le Presse papiers A noter une bogue g nante Works non seulement est incompatible avec l Album mais de plus une tentative d utilisation se solde toujours par une bombe Esp rons que Microsoft corrigera rapidement cette erreur Le traitement de texte I ressemble beaucoup MacWrite ou Word Il utilise classiquement une r gle et poss de les fonctions galement classiques dalignement paginati
55. d marrer m me si cette carte est dans le port 6 et les lecteurs 140Ko en port 5 Pourtant neuf fois sur dix on souhaite utiliser le lecteur 35 ce qui conduit un CTRL RESET suivi d un PR 5 au clavier pas l gant On peut laisser sur le lecteur 140Ko un programme Basic du style PRINT CHR 4 PR S mais c est lent La solution la plus rapide semble de mettre l ordre PR 5 sur le secteur O de la piste O de la disguette 51 4 Taide d un diteur de secteur Bag of Tricks Copy 1 Mobby Disk mettre les octets suivants 01 convention A6 2B LDX 2B arr te le lecteur 5 1 4 BD 88 CO IDA C088 X 4C 00 C5 JMP C500 PR 5 Le dernier octet est remplacer par C4 pour un d marrage sur le port 4 par exemple Cette disquette de d marrage pourra alors rester demeure dans le lecteur 140 Ko Pom s n 32 267 CAT commande a externe ProDOS a 14 pour objet de lister V sw tous les fichiers d un volume qu ils se trouvent au niveau ou dans un ni me sous dossier Il est crit en 6502 pour fonctionner sur tous Apple sous ProDOS versions 1 1 et suivantes pour les versions ant rieures de ProDOS il faudra modifier le relogeur pour quil recherche lui m me la place en m moire Le source abondamment com ment contient toutes les explications n cessaires son utilisation mais il reste quelques pr cisions apporter L assembleur ORCA M Le source occupe environ de 50 de la m m
56. forward forward y cote 1 i 1 moveto x y cote_ 4 cote 4 ti 1 1 1 X x h x se x h y Y y hy r z moveto x y X h Y iz y h cote 3 i 1 cote 2 1 1 x x hs moveto x y cote_3 i 1 moveto x y x x h Z cote 2 i 1 y ay 2 h cote 1 1 1 moveto x y end end procedure cote 1 begin if i gt tren begin moveto x y cote 4 fi l 2 moveto x y end CE oU 5 LOJ cote 1 1 1 z x im x th y e Ke cote 2 i 1 x x h s cote 1 1 1 x 15 x 2 h z moveto x y 2 y F Fi F begin i zs 0 n ze ordre h 48 4 for z I to n do begin h h div 2 i 22 1 1 end Xo m 40 h y 191 h init har x y 0 2 cote 1 i z x sex t h zg y y b z moveto x y 7 cote 2 i z x is x h y y h z moveto x y cote 3 i x sex h zg y y hi moveto xy cote 4 i x sex they y he moveto x y readin end e T AE Ps 2 S x procedure hexagone procedure h dessin long integer var cote nouv long integer begin if long gt 3 then begin nouv long trunc long 0 36 for cote 1 to 6 do begin move nouv long turn 60 h dessin nouv long end end end begin init bar 255 95 120
57. io PRELIMINAIRES 154857 Ooo oo s E INCLUDES include QuickEqu D include SystEqu D include ToolBEqu D Poms n 32 include MacTraps D include CalEqu D include mABcro Txt EQUATES control status code Wj csCode equ 1A csParam equ ic op defined params 20 B NHeur equ 12 NEUS equ 24 carts dans la liste des points Piv equ 0 pivot LAig equ 4 longueurs des aiguilles Ax equ g raxe de rotation Ell equ 12 petit et grand axe ellipse A Se xRef GrandAig xRef PetitAig 47 48 xRef GetTime XRef SinCos xRef Rotvect90 MATO pige xDef dt xDef DERU DERU MOTS D ENTREE Comportement A A gini ei fii E dc W 2400 ctri actions p riodiques dc W 3600 toutes les minutes dc W 0040 uniquement events mise jour dc W d pas de menu vers les Routines A AH EE dc W DIGORADYR DERU l ouverture dc W HorolazhEshy DERU prime unused dc YRZ DERU z 2 controle dc W HorolazhEshy DERU status unused dc W KLOZADYR DERU 3 fermeture Titre talbenn dc B 0 dle B d ALIGN 2 OUVERTURE EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEBEEEEEEBEEEE DIGORADYR PREMSIMINADRAES s o ENEE emp M L A2 A4 sauvegarde moveA L A1 A4 DCEPtr registre s r Sauvegarde du GrafPtr de l application en cours ep L pour le GrafPtr emp L SP GrafPtr
58. les 2 premiers blocfini correspondent au cha nage arri re nuis puisque ce bloc ast le premier le 03 normalement suivi de 00 correspond au chalnaqe avant bloc nouvbloc sulvant du catalogue gt 1 0 ERROR sauve le n de bloc de la bitmap foctets 27 et 28 du bloc 21 il vaut presque toujours 00 06 sauf pour ram 00 03 catfini nombre maxi de blocs du support octets 29 et 2A du bloc 2 on va imprimer la ligne NOM BLOUS etric asuivre inutile de relire le bloc 2 term ne arrel avec CTAL C 7 and cmp bna jmp lady lda clc adc Ste ida ade sta dy isr beg and cap bna lda pha lda pha ida pha lda sta 1d y mp sr isr and sta tax iny isr jsr day dex bne hit Amd isr isr bit bpl nc isr lda sir dex bne jsr ne ine ine ida cmp beq Ida sta ida sta 1dy jsr sta iny jsr sta ora beg ida sta jmp Esx beg pla sta pla sta Dla sta dec dec jsr im ldx lda jsr dex bne 1dx txs gsr 57F 3 cont nue ctric conpteur lewb y himea litbuf 4l hiqhb y himem iitbuf 2 0 litbuf suivant ESEU 300 autras compteur blocluzl bloclu FF debsscat 11 ricuvbloc espaces licbuf ESOF longueur litbuf outdo aff bcll debsscat aleligzsie infos crdo debsscat su vant debascat espaces longueur 20 outdo aff bel2 erdo increo increm compteur compteur S00 biocfini analysab buffer
59. matur e les proc dures suivantes interviennent si n cessaire e TASSER qui r unit deux tables de rang cons cutif dont l effectif total est inf rieur DIM e COMPRIMER renum rote les tables en supprimant les tables vides Cr ation d un nouveau programme Ajustez d abord si n cessajre et en t te de UGESTABL TEXT la valeur de DIM d apr s la taille de votre fichier de donn es ainsi que le nombre de caract res de la cl puis compilez cette unit Ecrivez ensuite votre programme de gestion de fichier de pr f rence a partir de P REPERT TEXT en vitant de modifier la mise en ceuvre des proc dures de gestion de tables dans AJOUTER RECHER CHER et LISTER Apr s l avoir compil il ne vous reste plus qu assembler avec le linker le code de l unit dans celui du programme puis ex cuter le code r sultant a PROCEDURE Decouvrir Donnee T cle PROCEDURE Localiser Donnee T cla VAR Rangl1 Rang2 INTEGER Note le caract re indique la continuit de la ligne 5S4 UNIT Sequin Gestables INTERFACE CONST Dim 30 TYPE T cle STRING 15 T elem RECORD fa ajuster selon taille fichier a ajuster IMPLEMENTATION PROCEDURE Situer Libelle T cle Table T table v AR Rang INTEGER BEGIN Rang 1 WHILE Libelle Table Rang Cle AND Rang lt 1 ablef0 Index Cl eric tes Index INTEGER END T table ARRAY 0 Dim OF T elem VAR Fitab FILE OF T table
60. pea Lo Wo Lo LR Lo SP pea Lo Lo Wo Lo LR SP pea Lo Lo Lo Wo Lo SP _GetDitem TepLeft sommet de la pile sous PC RTS RotAlfa ROTATION D UN VECTEUR DE L ANGLE ALFA rentr e adresse de SinCosAlfa AD adresse du vecteur faire tourner Al sortie AO sans changement Al adresse du vecteur transform subA 2 Extd SP OpBin vv Al vv Lo SP X2X OpBin hh Al hh Lo SP x X OpBin vv A0 vv A1 mulx r sind sinx OpBin hh A0 hh Al mulX x cosd cosx pBin hh A0 vv Lo SP mulx r cosd sinx OpBin vv A0 hh Lo SP mulX r sind cosx pea hh SP pea vv Lo SP emp W rffEXT foADD _FP68K r sin d x pile pea vv Al pea hh Al emp W ffEXT foSUB TP68K sr Cos d x gt bonne adr OpBin vv SP vv Al X2X sin d x bonne adr addA 2 Extd SP RTS DONNEES GEEEBEEEEBEEEEFEEEEEEEBEEEEEEEBFEEEEBFEEEBEEEEBF EEEEEEE CONSTANTES 9 9 9 Sin5 dc W S3FFE 58000 50000 50000 50000 Cos5 dc W S3FPE DDB3 D742 C265 539E SinMin dc W 3FF7 9 8EFA 1757 514B7 0DBF CosMin dc W 3FFE SFFFF 604B 01C2 6FBC x RESERVATIONS DE MEMOIRE O o o AC A A A 66 AL AL AA 099998 TEMPS tttttttit t ttit ttttt tttt t tttt ae o emm AM ee d dcB W 750 fiche de la date et du temps s LISME DE 51 6 hR NEE 44 EE ARAS EE
61. pile _GetPort GrafPtr APPL en cours pile ObscureCursor pour faire plus joli QUESTION DE LA FENETRE T ttot tit E tst b dctlWindow A4 de a fen tre 7 bne W Prenestrameus k CONSTRUCMIONS Er o o s o s os noo e 6 A s s si l on n a pas de fen tre tout est construire COLLECTE DE L ID DE BASE ditti bI 393930991 sn de 1 Acc move dCt1RefNum A4 DO addQ 1 D0 neg DO sous 1D Acc 151 5 D0 move 5C000 D1 or DO D1 emp W Dl 1D de base surpile et dans Di LISTE DE POINTS EK t 444444400 009944999 1122 Collecte de la Liste et Placement GetRes pnt Dl dep A L A2 handle dans A2 moveA L A2 A0 adresse lea Pivot Al move L Piv AO Al move L Laig A0 A1 move L Ax A0 Al move L El1 A0 Al axes de l ellipse Destruction E emp L A2 _ReleaseResource Si l on n a pas d ja une fen tre ittttittitt tirs il faut en fabriquer une Placement de l ID de la Mappemonde dans 1 Item No 25 GetRes DITL D1 dep A L AO handle moveA L A0 AO0 move D1 Wo WNFus itmData By Wo itmData By A0 k Collecte du Dialogue s DODO E ep L pour le DialogPtr emp W D1 emp L 0 heap emp L 1 fen tre premier plan GetNewDialog fen tre fabriqu e 1 moveA L SP A2 DialogPtr A2 amp pile fonte T _SetPort enl vement du DialogPt
62. plac en Bank El partir de l adresse 2000 pour pouvoir tre visualis Les fichiers qu utilisent GSPaint sont de deux types e type C format compact e type C1 format cran Ce demier format a t retenu et c est pour pouvoir sauver sous cette forme qu il faut au pr alable cr er un fichier de type SCT par l ordre Basic CREATE FICH T C1 avant de sauvegarder BSAVE FICA A 1000 132768 Tout cela est effectu par le programme Basic TRANS FORMEUR apres qu 11 vous ait demand le nom de l image charger et qu il vous ait propos den respecter ou d en bouleverser les couleurs Pom s n 32 Vincent er Bernard TOMENO A noter que l image finale n occupe pas toute la largeur de cran GSPaint marge droite de 40 points et marge inf rieure de 8 points en raison de la diff rence entre les 320 200 points de la page SHGR du IIGS et les 280 192 points de image HGR us o ume pd A ree 4 Mv AIN ar cs Ed 9080 27 91 85 EE E8 A9 00 20 9158 0F FO 0F EO 00 DF 04 AF 9088 27 91 85 EF 20 C7 91 AF 9160 0D 8F 07 CC OC FF OF 85 R capitulation 9090 00 00 01 20 67 91 A2 00 9168 FF A2 00 46 FF A9 00 69 9098 A9 01 20 27 91 85 EE E8 9170 00 95 18 E8 EO 08 DO F3 HGR SUPHGR C 90A0 A5 1F 85 07 A9 00 20 27 9178 60 A5 CE C9 00 D 22 A5 90A8 91 85 EF 20 C7 91 E8 A9 9180 09 C9 00 FO 3F A5 CF C9 Apr s avoir saisi ce code sous 90B0 01 20 27 91 85 EE E8 A9 9188
63. position d une cl dans les tables Structure des tables Les tables sont compos es d l ments associant une cl et un index Chaque table a une capacit de D M l ments plus un l ment de rang 0 qui contient le nombre d l ments pr sents Le fichier comprend une table primaire de num ro 0 et DIM tables secondaires Les tables secondaires comprennent les cl s de tous les articles associ es aux num ros darticle Exemple de tables pour DIMz4 Fichier DONNEES 0 6l 1 JANDRE 2 ISO LES 3 4 lALAIN s RENE 6 JJEAN 0 Fichier INDEX 1 2 3 4 __ 3 lALA 1 3 IREN 2 dx 0 ALA 4 JAND 1 IDAV 3 al IREN 5 e aw SO sn 63 64 La table primajre contient les cl s de t te des tables secondaires associ es aux num ros de table Proc dures de UNIT Chacune des cinq proc dures cherche d abord dans la table O le num ro de la table secondaire concern e Dans exemple rep r en italique pour DECOUVRIR le numero d article defini par la cl JUL la table O aiguille sur la table 3 car JEA lt JUL lt REN et celle ci indique le num ro 2 de l article La proc dure CLASSER fonctionne de fa on maintenir vide la derni re position de chaque table secondaire Si apr s insertion de l l ment cl num ro cette table contient DIM l ments elle est d gonfl e par transfert de so
64. pouvons envisager de tarifs sp caux pour nterPomis m me pour les fideles La nouvelle version Mac du programme Minitel du n 27 est sur la disquette 31 en votre possession si vous tes abonn 2 AFFICHAGE 80 COLONNES Le Minitel passe en mode t l informatique fran ais par la s quence FNCT T suivi de F NB Pour l enregistrement de CalvaCom CLV POMS est pratique 3 FILTRAGE DES CARACTERES ACCENTUES Le programme du 27 etait concu pour les serveurs Vid otex ce qui explique vos difficult s qui d pendent du type de Minitel CLV POMS r soutle probl me 6 questions sur clv poms 8 De Gerard MARTZ GM46 31 jul 87 15h16 Le programme civ poms permet il de r ceptionner galement des fichiers binaires issus des biblioth ques Ce point n est pas clairement expose dans l article de pom s 31 Merci de me r pondre en bal gm46 Si vous avez un Apple A seuls les fichiers TEXT ou EXE peuvent tre import s mais la plupart des programmes en langage machine ou en Basic sont disponibles sous la forme d un fichier TEXT E XECutable Pour le Mac vous importerez en priorit BinHex fichier Basic qui cr ra l application BinHex4 Avec ce programme et CLV Poms tous les fichiers sont r cup rables Packlt 3 galement en bib vous sera utile pour certains 1 TRANSFERT FICHIERS TXT EN RAM 251 De Francois MULLER FM17 06 aou 87 09h53 Chers Amis Merci d abord d avoir ouvert une BAL pour communiquer av
65. relit le bloc pr c dent en cas de CTRL C on imprime F F a E de on laisse las lieux Comme on les a trouves crdo bitmap bloclu bitmap 1l bloclutl litbloc himem litnuf 4 h memil litbuf 0 nbloc JSE ida sta ida sta dsr ida sta lda sta ida sta nbloc l litbitmp Jitbuf 2 litbitmp libres libres y outdo sta sr inc sc dy 10a dsr dey bne jsr ida sec sbc sta ida sko sta ld y ida jer dey bne er ida sta ida sta ldy lda jsr dey bne dsr 1525 bit cic rts tl t2 impradr blocmax nbloc nbloc blocnax nbloctl nbloc i OCCUP ES Y outdo t2 t2 impradr blocmax nbloc blocmax 1 nbloc i total total y out do t3 t3 impradr crdo kbstrobe SOUS PROGRAMMES 11 ne reste qu afficher la iigne Mises libres lit la bitmap on va explorer 512 octets du buffer nbloc nbloc l contiendra le nombre de blces libres on va lire la 1 ere moiti de la bitmap 2 me moiti mention blocs libres Imprime nombre de blocs libres calcule blocs occupes mention occup s mention total blocs imprime total blocs pour ProDOS pas d erreur outspace Ida outdo pha lda bpl hit cmp beq bit bpi bit pla sr inc rts attends out z imprime le ldx lda dsr inx CEX bcc JSr jsr JSE rts infos il A0 kbd out kbstrohe 583 out kbd attends kbstrobe SOBSC Atab
66. remplacer avantageusement crayon et gomme et d aborder un nouveau langage dans ces pages le Turbo Pascal L application permet de sauvegarder une recherche en cours pour la reprendre t te repos e Utilisation Par le double clic habituel lancer l application Mots_Crois s Par d faut la grille num ro 1 est charg e Si cette grille n est pas pr sente sur la disquette un message d erreur appara t Pour s lectionner une autre grille s il en existe une cliquer sur le rectangle grille num ro Une bo te de s lection appara t alors Roland Jost Choisir le num ro de la grille en cliquant sur les cases ou puis charger la grille en cliquant dans OK D placer la souris sur la grille frapper la lettre inscrire dans la case point e par la souris bien s r les cases noires ne sont pas accessibles Pour conserver une grille inachev e cliquer Sauver Cette grille pourra tre rappel e dans l tat ult rieurement La commande Effacer vide la grille IL est possible d imprimer le probl me sur papier en cliquant Imprimer Pour quitter le programme choisir option Quitter Enfin pour contr ler les r sultats enfoncer la touche TAB tout en cliquant dans Grille num ro La solution du probl me s affiche Le probl me de ce num ro faisant fobjet d un concours cette option ne fonctionnera pas Structure d un fichier Grille Les fichiers grilles sont des fic
67. ro de l unit dans la table des param tres de READ BLOCK siS ou Destutilis on calcule le num ro de Tunit et on termine comme ci dessus on lit le bloc 2 de Tunit choisie on v rifie guil sagit bien d un disque ProDOS dans affirmative lanalyse peut commencer e celle ci se fait tres simplement en lisant Tun apr s l autre les blocs de ce catalogue et en analysant les 13 entr es de chaque bloc Un catalogue ou sous catalogue est termin quand le chainage avant est gal 00 00 Au cours de l analyse d un catalogue si on trouve le nom d un sous catalogue on sauve 3 octets sur la pile le num ro du bloc en cours et le num ro de lenregistrement on proc de ensuite l analyse du sous catalogue quand celui ci est termin on d pile les 3 octets sauv s et on reprend le catalogue Exemple d ex cution SACAT SPDK CATALOGUE IMPRIME LE DE RN JA 1 A ES x ku m mm RER UU UM m ES m m MUN NS MN NUN mm 9 SEP 87 TYPE BLOCS MODIFIE SENDHSG S TXT 1 27 AUG 87 OUTPUT S TXT 3 27 A06 87 UTIL XREF BIN 5 27 AUG 87 MON 65C02 BIN 1 22 AUG 87 SOURCE PI START S TXT 8 27 A0G 87 PI MAIN S TXT 7 27 AUG 8 PI LOOK S TXT 3 27 AUG 87 1 START SES 9 27 AUG 87 MAIN F 1 27 AUG 87 cook SES 1 27 AUG 87 DIV 3F8 1 22 AUG 87 MERLIN SYSTEM SYS 37 27 AUG 87 PARMS BIN 1 27 AUG 87 PA S TXT 1 27 AUG 8 PA DIN 1 27 AUG 87 ELY PROC TXT 1 27 AUG 87 CP 3 TXT 1 27 AUG 87 G520 TXT 1 27 AUG 87
68. sur Tecran virtuel le contenu de la variable d finie en premier dans le programme Cette variable sert de buffer d impression 10 AS REM d finition 20 175 AS Hello 180 amp P VT HT REM Affiche Ce PRINT na pas d effet imm diat sur l cran amp W VT HT le rend visible Le PRINT virtuel respecte les fonctions NORMAL FLASH et INVERSE du Basic La variable de transfert A dans exemple doit tre d finie en premier dans le programme Basic gare au D CHR 4 fr quemment d fini en t te des programmes Grand cadre SK 1 L cran virtuel est bord de blancs invers s tr s utiles pour rep rer les limites Attention les fonctions amp C et amp P crasent sans complexe le cadre K 1 r tablit la situation Quadrillage SK 2 L C Cette fonction trace le grand cadre et trace une ligne toutes les L lignes et une colonne toutes les C colonnes Visualisation SV VT HT Par cette commande VTVIR et HTVIR sont mis VTetHT et la fen tre peut tre dirig e votre gr Taide des 4 fl ches sur le l CTRL K et CTRL J 17 remplacent et J On sort de la visualisation par ESC ou RETURN Si utilisateur a press ESC PEEK 9 141 sil a press RETURN PEEK 9 155 Turn page amp T 1 amp T 2 Un cran virtuel peut en cacher un autre La carte langage est constitu e de 2 banks de 4Ko et d une partie commune de 8Ko En 256 colonnes les b
69. 0 65D8 65EO 65 57 50F0 FB 65F8 E5 6600 EF 6608 C9 66610 EZ 6618 E1 6620 E9 6628 F4 6630 A0 6638 E5 6640 E E 6648 E9 6650 EE 6658 F5 665 0 NP 6668 E9 6670 E4 6678 6680 3 6688 AE 6690 A0 6698 A0 66A0 E9 66A8 El 66 B F4 66B8 FB BoCOPES 66C8 EE 66D0 A0 66D8 A0 66 0 3 66E8 F9 66F0 A0 66F8 E3 6700 F5 6406013 6710 EF 6718 FB 6720 A7 6728 A0 6730 A7 62305659 6740 F2 66 IF AD 68 BA AD 69 BE 00 00 59 00 00 00 00 00 00 00 00 02 00 E4 27 45 4D AD 67 C7 68 21 AD 69 00 00 OA 00 00 00 07 00 00 00 00 00 00 ES 28 36 dE 5A AO AO AO ED BE E 4 R F4 ES p HB BS HB BE 00 FO CU F4 AO F4 A0 F4 EE E9 F4 AO EB EB F6 AO E2 Em ES Fa Eb F4 08 AD 67 38 AD 68 39 AD 00 00 00 00 00 00 00 00 00 00 00 00 01 AO 2B 47 50 CD E 3 EG AO 00 E4 FD B zi 00 ENS Ha ENS AE A0 ES AE AO B2 EE C4 F2 AO E3 E4 ES ENS 00 El EE EE E9 ET 15 9 H9 AO E4 E Es ES EE HD AE 67 y AD 68 B9 AD 69 ES 00 00 00 00 07 00 00 00 00 00 02 00 00 A 4 2 48 bl EI EF ET E4 CE ES F4 EP D4 AU F3 Fe AO 00 E4 AF 00 Fig B9 EP EC E2 ES AO EB US F8 ED E3 AE A0 ENS B2 EE ES BE F4 BC AO AO 00 AD 57 27 AD 68 OD AD 69 00 04 00 00 00 00 00 00 00 00 00 01 8D 00 40 49 592 E4 EE P5 A
70. 0 BER RMLI note les pages ut lis es NOMLI LDY 2 pour abaisser Himem RMLI LDA PCL Y MARKUSED TXA SEC PHA SBC gt DEBUT PASMIEN TYA BCC RTRANS PHA CMP PFIN DEBUT FF AND BCS RTRANS TAY ADC EXTRNCMD LDA BIT MASK Y STA ECL Y OLDCMD TAX PLA RTRANS DX 0 ll PHA INY LSR RBUUCLE LDA PCL X LSR STA ADR X T LSR INC PCL CA A n m A n TAY INC ADR TXA BNE NOCARRY ORA BITMAP Y INC PCL41 COPY STA BITMAF Y INC ADR41 PLA IDA gt PFIN SEE TAY CMP PCL i INY BEQ RFIN PLA NOCARRY DEY TAX BMI RTRANS DEX BNE RBOUCLE ANE MARKUSED BEQ RELOGE GOODBOY LOA NBPAGES REIN RTS SEC SBC HIMMSB NBPAGES DS H STA HIMMSB BITMASK OFB 680 40 20 810 8 4 2 1 LDA 0 V rifie que la comando STA EXTRNCMD ost b en CUPY STA ADR IDA gt DEBUT DS DEBUT STA PCL 1 DA lt DE BOT CLD STA PCL LOX BUFFER JSR RE LOGE LDA VEAT 41 CLC STA BUFFER RTS LDY BUFFER LOA VPATH1 1 Relogeur STA BUFFER 1 r assemble 1e programme STA OLDBUFF situ l adresse ADRESSE STY OLOBUPF i DEBUT doit etre multiple de 256 LDX 0 la zone des donn es est LDY l s par e du par un 09 TEST LDA BUFFER Y le progranne reloge la CMP a structure du MLI BNE TESTI ainsi que les parametres INY PRFXSTI ventuels JMP TEST TESTI CPX COMMAND RELOGE LDX 0 BEQ MTENNE LDY ESFE CMP COMMAN D 1 X EDA PCL X BNE PASM EN BEQ RTRANS INX TEST XLEN COPY MIENNEL i MIENNE1 2 ATERNABDR ATER
71. 0 BZ H F6 AO ER FO EN A7 13 DO FB 25 ER F4 A7 E5 En E El H5 A0 00 E4 F4 5 F4 ey AO ES AO 15 El6 EP D3 44 AD 67 68 AD 69 8B 00 00 43 00 00 00 00 00 04 04 03 00 00 AO 01 42 4A 33 HS EE BS AO ED FO E Pe HP ES E4 EMO B 2 EF EM FE m Fl FB EB Fat AQ EE A0 A0 EB EA C9 EB AO 53 PE ED F2 ENS FO ES ES PI EE 67 AF AD 68 D4 AD 69 00 00 JF 00 00 00 00 00 00 00 00 00 00 Cs 04 93 4B 55 ES AO F4 CD E 28 ES E DS E3 A7 FO ES F 2 EE HE 3 9 BS F4 P5 EN EJ 00 F5 HE E x E4 m E2 ge EA AO AE FB AO pet AO ES F6 F5 AD 67 OB AD 68 2 AD 00 00 50 00 00 00 00 00 00 00 00 00 01 EP 25 44 4C 26 69 4 BO CGC HP 11 4 AO 25 ES F4 ES F4 Ee ES F4 F4 AO FO AQ EB ES FB m2 EL ES F4 HB 29 BS F4 ES A0 Bl Eg EF 00 FZ E6 EE 53 4 E La ES 6748 6750 6756 6760 6766 6770 6776 6780 6788 6790 6796 67 A0 67A8 67 BO 67 B8 67C0 67C 8 67D0 67D8 67E0 67E8 67F0 67F8 6800 6808 6810 6818 6820 6828 6830 6838 6840 6848 6850 6858 6860 6868 6870 6878 6880 6888 6890 6898 68 A0 6828 68B0 68B8 68C0 68C8 68D0 68D8 OBEC 6888 68F0 DE 6900 6906 6910 A7 6920 6928 6930 6940 6948 6950 6958 6950 6966 68F8
72. 010 H A 1 GOTO 3030 IF V 1 THEN 2010 V V 1 GOTO 3030 IF V 24 THEN 3010 V V 1 GOTO 3030 REM MISE A JOUR EFFECTIVE HOME REM CALCUL DE VO H SY Y 1 H1 HT H 1 V1 VT V 1 H SY INT H1 SY 1 V0 L x INT VI E IF VO L gt 95 THEN 3030 IF HO SY gt 128 THEN 3030 D1 0 D2 0 REM DEPLACEMENTS VER T HORIZ V2 VO H2 HO IF VO gt 72 THEN V2 72 D1 2 IF HO gt 88 THEN H2 88 D2 8 6 V V2 H2 1 REM AFFICHAGE CELLU LE DANS LE COIN SUPERIEUR VTAB 1 Di HTAB 1 D2 INPUT TS IF LEN TS 0 THEN 3030 REM TITRE VU E HO 8 AS LEFTS T BS Y INVERSE amp P VO H NORMAL FOR J 1 TO L 1 VTAB J 1 DI HTAB l D2 I NPUT ES AS LEFTS E BS Y P VO J HO NEXT J GOTO 3030 REM CREATION ECRAN HOME HTAB 10 PRINT CREATION D U 19 20 N ECRAN 4130 4040 VTAB 5 HTAB 1 PRINT NOMBRE DE LI 4140 GNES 2 4145 FS ES 4050 VTAB 8 HTAB 1 PRINT NOMBRE DE CO 4150 LONNES AR C 4060 VTAB ll HTAB 1 PRINT NOM DE L EC 4160 RAN 4165 4061 5 HTAB 20 INPUT ES X VAL ES 4170 4065 IF X lt 1 ORX gt 20 THEN 4061 4175 4070 VTAB 8 HTAB 20 INPUT ES Y VAL 4180 ES 4075 IF Y lt 1 OR Y gt 39 THEN 4070 4190 4080 VTAB 11 HTAB 20 INPUT ES IF LEN 5000 E 0 THEN 80 5010 4090 T 1 REM PAGE 1 5020 4100 POKE 10 0 REM 128 COLONNES 5 4110 6 H 0 95 0 127 REM HOME 5030 4120 L X 1
73. 06 C9 0A B 01 C8 2568 A0 00 20 98 23 85 08 29 2680 4C 20 45 4D 49 52 50 4D 2458 C8 C8 C8 20 AS 23 AS 07 2370 0F 65 1A DO 43 A8 20 98 2688 49 20 45 55 4 4F 4C 41 2460 A 06 20 24 ED 20 D4 23 2578 23 Dl FE DO OB 88 DO F6 2690 54 41 43 18 60 C9 Pom s n 32 38 Pour viter les saisies fastidieuses et pas toujours fiables Pom s met votre disposition des disquettes d accompagnement qui regroupent ensemble des programmes de la revue Apple Pour les Apple deux types de disquettes e 140Ko 5 25 pouces au prix de 60 00 F fichiers en format DOS 3 3 au recto en format ProDOS au verso 800Ko 3 5 pouces pour Unidisk au prix de 80 00 F fichiers en format ProDOS seulement Sur la 800Ko et la 140Ko face ProDOS toutes deux nomm es POMS 32 nous vous conseillons d installer les fichiers ProDOS et Basic System ainsi la disquette sera bootable Sur la liste ci contre les fichiers sont rep r s ainsi D face DOS 3 3 de la 140Ko P face ProDOS de la 140Ko 8 disquette 800Ko Macintosh La liste ci contre donne l ensemble des fichiers de la disquette Mac fichiers utilisables sur tous les types de Macintosh Fichiers G D GDG 0 U 0 O tu g o O g m m u u v Io o Oo o Co o Oo Co Oo Q 0 o TRANSFORMEUR HGR SUPHGR C HGR SUPHGR S BIGTEXT BIGPGM BIGSAVE BIGPTR ECR VIRT VIRPUZZLE VIRCEL VIDEO XCATS XCA
74. 068 91 E8 A9 01 20 27 91 85 9140 8E ER EO 20 DO F5 60 00 9218 E8 E4 D7 DO EO A9 00 8D 9070 EE E8 A9 00 20 27 91 85 9148 00 74 07 41 08 20707 OF 9220 04 92 8D 00 92 A9 20 8D 9078 EF 20 C7 91 E8 A9 01 20 9150 00 80 00 70 OF 00 0D A9 9228 05 92 A9 10 8D 01 92 60 Programme TRANSFORMEUR I 25 8 INPUT NOM DE L IMAGE A TRANSFORMER RIN CATALOG 10 DS CHRS 4 PRINT DS BLOAD HGR SU J F ITS GARS 3 THEN 125 PHGR C PRINT PRINT DS PRE3 PRIN 30 IF ITS TEEN HOME PRINT PRI T ONERR GOTO 125 NT DS CAT GET A HOME GOTO 25 15 HOME TEXT VTAB 2 HTAB 3 INVERS 35 HGR PRINT D BLOAD IT A 2000 AD E PRINT TRANSFORMATION D IMAGE CLA 37302 POKE AD 15 POKE AD 3 6 SSIQUE HGR EN IMAGE DE TYPE GS PAINT POKE AD 6 10 POKE AD 9 4 POKE A POUR II GS D 12 3 POKE AD 15 0 20 NORMAL CALL 958 PRINT HTAB 2 40 VTAB 22 PRINT RESPECT DES COULEUR 8 PRINT NE MARCHE QUE SUR II GS S O N GET AS IF A N THE FOR I 1 TO 3 POKE 49204 1 4 PO N 65 KE 49186 I 12 FOR 1 TO 300 NE 45 HOME VTAB 22 PRINT OK POUR TRAN XT NEXT REM POKES POUR FAIRE JOL SFORMATION 2 O N GET A IF AS Pom s n 32 7 Q THEN TEXT HOME GOTO 25 50 CALL 36864 PRINT POKE 49193 161 CALL 37363 GET A POKE 49193 65 PR INT ON SAUVEGARDE ITS GS O N GET AS ON AS lt gt GOTO 15 NSS ITS GS PRINT DS CREATE NS S ROCI 55 PRINT D BSAVE
75. 23A8 A9 A0 20 D6 23 88 DO FA AR DN 0 64 bulle ee 6 s 23B0 60 Ee EF AS EF C9 3D 90 24C0 98 23 Be 50 C9 C8 BO 4C 25D8 2D 2D 2D 2D 2D 2D 2D 2D 55 57 6 24C8 4A 85 F9 88 20 98 23 FO 5 2D 2D 2D 2D 2D 2D 2D 2160003 20 GET gt 10 00 me 85 FB 6A 4A 4A 4A 4A Ea 2D 2D 2D 2D 2D 2D 2D 06 se D 24D8 C9 OD BO 38 85 FA A5 FB 07 2D 2D 2D 2D 2D 2D 2D 210020 D TI O cea 0 23D8 00 CO 10 OF 2C 10 CO C9 Dir poe 50005 5 10 s 24F0 22 25 A9 2D 20 D6 23 A5 2608 20 45 50 59 54 20 20 20 EN 70 SS o ce 24F8 FA 0A 65 FA A8 A2 03 B9 2610 20 20 20 20 20 20 20 20 BOBO cosi ue g 5 B9 20 D6 23 C8 CA np 2618 20 20 20 20 20 20 20 20 7755757557 2508 F6 A9 2D 20 D6 23 A5 F9 2620 20 20 20 20 20 20 20 20 55 o T 2510 20 22 25 60 A2 24 BD C1 2628 20 20 20 20 20 20 20 20 2208 A9 DO AB 2D 98 23 FO 13 2518 B9 20 D6 23 E8 FO 2D 90 2630 20 20 40 4F 4E 58 43 41 2520 F5 60 AA A9 00 20 24 ED 2638 54 19 0D 0D 07 2A 2A 20 2410 85 08 A2 08 A5 06 46 08 EV acevo 0000705000 ue 2528 60 20 00 BF 80 91 25 90 2640 46 49 43 54 41 20 4E 4F 2550505 26 20 8B BE 20 2648 4E 20 53 4F 44 4F 562 50 2420 F5 85 06 C8 DO E5 60 20 2538 09 BE 60 C6 1A C6 1A A5 2650 20 2A 2A OF 20 3A 20 53 2428 D4 23 AO 13 20 98 23 85 2564857557 09 23 As secede so dovas 400 ra 2430 06 C8 20 98 23 85 07 AO ke a on SA 23 56 Se no 2438 00 AS 07 C9 03 90 0A DO eo rh Ee wr AB 3 HE a leet TON ER SE o pr 2558 BD 32 BF 29 FO 8D 98 25 2670 0A 20 3A 20 4C 41 54 4F 2448 10 A5 07 DO OC AS 06 C9 AO s ee NR OR NET ET 2450 64 BO
76. 264 265 266 267 Pom s n 32 LIGSUI OPT2FIN TRAIT TRBL TRFIN INC CLC BCC JSR LDA STA STA INC INC LDA CMP BEQ BNE LDA RTS LDA LDY STA INY CP BEQ BNE RTS COLF TRCOL AD80 500 MAXH COLF LIG LIGF LIG DIM2 OPT2FIN OP2B ROM 1520 900 ADR Y DIM1 1 TRFIN TRBL x VISUALISATION SPVIS SPVISU BIT1 SPWAIT LDA JSR JSR DEC DEC JSR INC BNE INC BIT BPL LDA BIT CMP BEQ CMP BEQ CMP BEQ CMP BEQ CMP BEQ CMP BEQ JSR JSR CEC BCC DIM1 1 CHMAX INPUT MAXH MAXV SPWDEB S4E BITI S4F SC000 SPVISU 5 000 C010 S9B SPVFIN S8D SPVFIN 588 SPVGAUCHE 595 SPVDROITE 58 SPVHAUT 58A SPVBAS INIADR SPWDEB SPVISU SPVGAUCHE LDA HTVIR BEQ DEC CLC SPWAIT HTVIR BCC SPWAIT SPVDROITE LDA HTVIR CMP BEQ ES d 268 269 CEEC 270 BCC 271 SPVHAUT LDA 272 BEQ 273 DEC 274 CLC 275 BCC 276 SPUBAS LDA 277 CMD 278 BEQ 279 TNC 280 CLC 281 BCC 282 SPVFIN STA 283 RTS Source BIGSAVE HTVIR SPWAIT VTVIR SPWAIT VTVIR SPWAIT VTVIR MAXV SPWAIT VTVIR SPWAIT 09 Assembleur Big Mac format TEXT ADP ADR RAM ROM lo Oo JI O On A UNK h Q VERMEM F R on a h O Ln Aa LA Ha VER16K N KM hb MA KA h LA N O TRANS LA LA KM o M M K 1 LA W LA a Lu N K1B1 K1B2 LA Ww
77. 3 68 6158 6160 6168 6170 6178 AC 6166 6190 6160 6196 6140 6148 61B0 61B8 64 0 GE 8 6 DO 61D6 bulu Or GEO GEO G F8 6200 6208 6210 6238 6240 6248 6290 6258 6260 6266 6270 6276 6260 6286 6230 6296 6240 62248 GE BO 6288 62C 0 62667 62D 62D8 6250 6288 62F O o C9 BE 72 65 8C Ele 06 AD 84 FO AD A2 63 94 AE 65 9B AJ END AG 6218 6220 6228 6230 65 A6 9A Bal 8D 64 64 SE 65 67 65 6B 20 8D ge 65 8D 65 60 DO BO 8D AC 65 AC 5E 65 AC FE 03 AD 65 6F A5 65 85 C9 SE 07 03 75 DO 02 EO 69 52 65 04 65 6D 20 65 64 65 AD 64 65 7A UE 65 DO 65 F5 A0 oF AD 61 8D 65 14 UC A9 6A 20 65 A9 69 BF NO 6 8 BG SE 73 65 06 A0 20 65 05 E8 07 20 BF EN 8E 40 8D BE 49 8D AO AD 65 B2 A9 8D 65 66 FO 07 GE BE 65 B5 65 62 8D AD eD 65 65 6D 6A 98 00 65 AD 05 BE 73 8D 44 AD 64 FO AC 01 62 SEI A9 D 7 8D BF E 9A Bl 8D 64 B4 00 SB 8C 65 00 60 8D 65 07 AE 6B BO AO AD 65 AD 65 63 62 AA 4C D 64 18 6D 6D 06 BE 10 6D AD 65 8D BE A0 20 BE 06 20 FO 4C 65 A9 AD 65 93 20 A0 AD 65 B2 A9 BO AC 65 56 SE AD 65 67 65 80 8C 65 ED 65 B7 AD CB AD 62 65 AB SE 65 65 84 29 4C BE 6E
78. 6 lda nbloc cmp 564 sup rieur 100 bes ilsp out emp 0A nen gt sup rieur 10 bes i2sp oui iny non i2sp iny ilsp iny impbloc iny jar espacb s ida nbloc i idx nbloc Pom s n 32 lsr jsr rta imprime le g soft R soit beauooup de du logic el est stockee de la liste type 1d y y sE 1dx ldy typebcl emp beg iny iny iny dex bpl tax ida isr sr jsr res afftyse lgx afftbcl Ida isr iny dex bne jsr rts imprime la datecat jsr iinpr nt outs pace type du fichier ll s E uz m m zs CI mm mun m mr TT par son abr viation sous la forme xx des code outspace 510 litbuf 2500 0 ty prume x affty pe ty pebcl 24 outdo proyte outspace 3 typtable y outdo afftbol outs pace types poss dent une abr viation qui d pend utilisant les fichlers La liste des codes 3 l envers partir de 8989 et est suivie le type de f chier est dans l octet 10 l4abr viations diff rentes Aj code lu ou non au suivant oui non f A contient aussi le type code de 3 imprime le type en 2 chiffres hexa 3 caracteres impr ner Y contient d j l offset du type afficher date d impresslon du catalogue ee uu Gum mm wa wa w mli de 582 de 220 lda sta lda sta ldy affmsg ida jsr dey bne lt dates ys 21
79. 65 AD 64 5B 85 69 01 65 BD 20 60 0A 8A A5 07 06 69 69 07 42 18 69 60 69 02 43 8D 00 91 AB 29 65 00 CO BE 00 20 60 34 BO 65 B8 El BF 53 DO 8D 63 B8 68 ED AO CD 8D E8 20 A9 4C 66 6C AD BC 63 65 65 62 6F A2 A6 64 73 65 20 8C 65 76 6A 06 69 J8 00 03 69 36 CO 69 00 00 85 20 13 69 06 A9 0E BO 00 91 C8 00 20 60 2B BO 65 Gs BE 12 CU 20 64 46 FD 20 65 EY BD 3A 8D DO AD 66 C3 A2 CD CD CD 20 04 DO 65 9E AD 84 85 9A BA 8D 64 38 80 18 00 65 85 UB 00 AB 00 01 85 65 85 42 20 64 02 20 AF 60 6A BO 65 AD GB BE 00 20 60 22 BO 65 83 BO AD 65 88 AC 0 A9 ED FO 64 06 DB 20 03 2B AD 66 65 B B6 BS 3B 8D BD E7 8D 65 64 74 06 64 63 2A 20 BE 3D B9 69 85 06 BUT 65 85 66 DO 83 3D 83 E A5 PE 20 9n 28 91 20 60 61 BO 65 9D EC BE 00 20 60 19 BO 65 01 92 ae 64 B9 DA BA FD 03 0A 65 A9 ED 66 BA AD 20 65 65 65 63 84 73 20 63 8D 65 AD 84 AO 8D 64 28 OA 65 01 3D 85 20 06 43 88 z ac 20 GE AS 07 A0 28 06 64 06 00 20 60 58 B 65 Cz BF 00 20 60 10 BO 60 65 21 64 ED 20 68 18 EB 07 AD AD 66 BS 6520 6526 6530 6536 6540 6546 6550 6556 6560 6566 6570 6576 6380 6588 6590 6 5 96 65A0 6328 65B0 65B8 6960 65C8 65D
80. 78 C9 CO BO OA 48 AS 32 C9 9278 08 E4 CF BO 6F A9 00 85 9480 7F DO 15 68 09 40 25 32 7 9280 1D 85 1C 85 18 A9 DO 85 9488 48 98 85 FF 18 65 08 A8 Domicile 9288 19 A6 09 BD 83 CO BD 83 9490 68 91 18 A4 FF 18 90 04 16 97 8104 O9 9290 00 FD AJ 93 Be 9498 68 18 90 EA C8 C4 1F 90 9298 FE 60 AS 1D 18 OA A8 Bl 94A0 D3 68 85 08 68 85 07 AD S2AOED 35 1A CB Bl ED 85 IE 94A8 82 CO 60 A5 B8 18 69 01 24 Pom s n 32 DOS 3 3 e but de ce montage est de permettre votre Apple favori de d tecter la sonnerie du t l phone ss afin de provoquer ner Tom d un logiciel serveur r pondeur t l matique compteur d appels envoi ou r ception de fichiers etc La pr sence de la sonnerie se traduit par la fermeture du bouton joystick n 0 c est dire G La sonnerie d tect e le programme d application devra se charger de d crocher la ligne connecter le modem 0u autre Principe Le courant de sonnerie est un signal alternatif 100 Hz Le condensateur 2 2 uF filtre ce signal qui est r duit une tension raisonnable par la r sistance de 390 2 Le pont de diodes et le condensateur redresse le signal qui devient continu et active le 2 2 uF 100 Y 77 prise gigogne L2 Pom s n 32 Relais 9 V relais Ce dernier se comporte comme un bouton de joystick et est connect avec une r sistance comme indiqu dans les Manuels de Reference Apple A noter que
81. 8 9 17 85 9550 92 A9 00 85 CF 85 FC Ee regroupe les objets issus 9350 CE A5 OB 38 E9 27 85 CF 9558 1C E6 FA AS 1C C5 OC FO des trois sources et la table 9358 60 FB 00 A9 1A 8D 99 93 9560 02 DO BE AD 82 CO 60 A9 BigPtr 9360 8D BD 93 A9 18 8D 9B 93 9568 20 A0 00 91 18 C8 C4 OB 9368 8D BF 93 4C 7E 93 A9 18 9570 F0 02 DO F7 60 A5 20 Apr s avoir saisi ce code sous 9320 8D 99 93 8D BD 93 lA 9578 4A 93 20 68 92 C6 CF C6 moniteur vous le sauvegarderez par derib on da Sb shana A 9580 CE 20 F7 92 E6 4E DO 02 BSAVE ECR VIRT A 9180 L 480 ot 99 19 ag 30 05 15 MR 9598 6 dr 26 do CO 10 PM 9180 A9 4C 8D F5 03 A9 90 8D 9388 85 1A A9 DO 85 1B AD 83 9590 00 CO 2C 10 CO C9 9B FO 9188 F6 03 A9 91 8D F 03 60 9390 CO AD 83 CO A2 00 AO 00 9598 45 C9 8D FO 41 C9 88 FO 9190 A8 AS OA FO OF A9 00 85 9398 B1 1A 91 18 C8 DO F9 E6 95A0 15 C9 95 FO 1A C9 8B FO 9198 0B A9 01 85 0A A9 30 85 93A0 1B E6 19 E8 EO 30 DO EE 95A8 21 C9 8A FO 26 20 OC 94 91A0 0C 18 90 08 A9 80 85 OB 93A8 A2 08 BD 83 CO BD 83 CO 95B0 20 F7 92 18 90 CE AS 08 91A8 A9 60 85 OC A5 06 C9 02 93B0 A9 00 85 1A A9 DO 85 1B 95B8 FO F3 C6 08 18 90 EE AS 91BO FO 07 A9 00 85 09 18 90 93B8 A2 00 AO 00 Bl 1A 91 18 95C0 08 C5 CF FO E9 E6 08 18 91B8 04 A9 08 85 09 98 C9 48 93C0 C8 DO F9 E6 1B E6 19 E8 95C8 90 E3 A5 07 FO OF C6 07 94 0 0 1D C9 43 BO 1C GS 57 93C8 E0 10 DO EE AD 82 CO 60 95D0 18 90 DA A5 07 C5 CE FO 91C8 F0 1B C9 50 FO 1A C9 4B 93D0 00 04 80 04 00 05 80 05 95D8 D4 E6 07 18 90 CF 85 09 91
82. 85 B8 AS B9 69 00 85 B9 Recapitulation 92B0 1C C5 07 90 2B 18 AS 07 94B8 60 20 AB 94 20 F5 E6 EO BIGPTR 92B8 69 17 C5 1C 90 2A 20 9A 94C0 02 DO 09 20 DC 94 20 OC 92C0 92 A4 08 A2 OO 86 1F 98 94C8 95 18 90 07 EO D1 DO 07 Bom 92C8 48 A4 1F Bl IA 85 FF 68 94D0 20 DC 94 AD 82 CO 60 A2 Apr s avoir saisi cette table sous ppm A 0 slo Me 15 po M OC 94 70 moniteur vous la sauvegarderez par BSAVE BIGPTR A 300 L 30 92D8 A6 1F EO 28 90 E9 E6 1D 94E0 67 95 20 SA 92 Be IC AS 92E0 E6 1C 20 5A 92 18 90 C7 94E8 1C C9 5F FO 18 A6 OA EO 0300 00 04 80 04 OO OS 80 05 92E8 AD 82 CO 60 A2 4D 4C 19 94F0 00 FO 04 C9 2F FO OE A9 0308 00 06 80 06 00 07 80 07 92F0 D4 20 4A 93 20 68 92 AS 94F8 20 AO 00 91 18 A4 OB 98 0310 28 04 A8 04 28 05 A8 05 92F8 1C C5 07 90 2B 18 AS 0 9500 91 18 18 90 DD 20 67 95 0318 28 06 A8 06 28 07 A8 07 9300 69 17 C5 1C 90 2A 20 9A 9508 AD 82 CO 60 20 F5 E6 86 0320 50 04 DO 04 50 05 DO 05 9308 92 A4 08 A2 00 86 IF Bl 9510 F9 20 F5 E6 86 FB 20 OC 0328 50 06 DO 06 50 07 DO 07 9310 18 85 FF 98 48 A4 1F A5 9518 94 A9 00 85 FC 85 FA 85 9318 FF 91 1A 68 A8 C8 E6 1F 9520 CF AS F9 C5 FA DO OA 20 p z z 9320 A6 1F EO 28 90 E9 E6 1D 9528 67 95 A9 00 85 FA 18 90 Recapitulation 9328 E6 1C 20 SA 92 18 90 C 9530 1D A5 FB C5 FC 80 9A A4 ECR VIRT 9330 AD 82 CO 60 20 09 94 20 9538 CF A9 20 91 18 AJ W 85 9338 F5 E6 EO 01 FO 09 EO 02 9540 FC E6 CF AS CF C5 OB FO Cette r capitulation 9340 F0 05 A2 3D 4C 19 D4 86 SE Ee FC 18 90 E3 20 5A 9348 06 60 5 3
83. AND Rang2 lt zFitab l0 Index DO Rang2 Rang2 1 IF Rang2 Fitab 0 Index THEN BEGIN Rang2 1 Rangl1 Rang1 1 END END BEGIN Numero 0 Num 2 0 Rang 0 END PROCEDURE Nommer VAR Fichier Table T nom VAR Nom Volume STRING 10 Lecteur CHAR BEGIN WRITE nom du fichier max 10 caracteres d READLN Nom WRITE lecteur 1 OU 2 READ Lecteur NRI TELN STR ORD Lecteur 45 Volume Fichier CONCAT Volume Nom DATA Table CONCAT Volume TABL END PROCEDURE Creer VAR Nombre INTEGER Reponse STRING BEGIN WRITE taper CREER pour confirmer READLN Reponse F Reponse CREER THEN BEGIN REWRITE Fich Nom fichier EJch Der article 0 PUT Fi chy WRITE reserver combien de fiches REA DLN Nombre Richi Der article ssl FOR Numero 1 TO Nombre DO PUT Fich CLOSE Fich LOCK REWRITE Fitab Nom table FElitab 07 Index 0 Mitab f0 Cle FOR 1 TO Dim DO BEGIN Fitab Numero Index 1 Fitab Numero Cle END FOR Numero 0 TO Dim DO PUT Fitab CLOSE Fitab LOCK END END Pom s n 32 O 8800000 BEGIN Initfichier Erreur F ALSE REPEAT Nommer Nomfichier Nomtable 51 CLOSE Fich RESET Fich Nomfichier I IF IORESULT 0 THEN Test O ELSE BEGIN WRITELN fichier introuvable voulez vous 2 VR TELN 1
84. C0 D0 FA 20 Bl 23 E6 1D ES 2038 20 85 43 8D 08 BE A9 21 2180 2E DO 06 CO 02 FO BE DO a id l 2040 85 3D A9 93 85 3E A9 26 2188 EB C9 30 90 B8 C9 3A 90 E ANE 2048 85 3F A0 00 84 42 84 3C 2190 F2 C9 41 90 B0 C9 5B BO ra 2 M E D E 2050 8C 07 BE 20 2C FE 20 5A 2198 AC 90 D9 20 3B 25 4C D8 SOM uuo 26 Sb 23 HD 98 23 2058 20 60 AD E2 20 85 3B A9 21A0 21 AD 57 BE DO 21 AD 9A 3577 7 AR K 2060 00 85 3A A2 00 Al 3A FO 21A8 BF FO 17 20 00 BF C7 9B Ge NEE EN li 2068 50 20 8C F8 A4 2F CO 02 21B0 25 20 00 BF C6 9B 25 90 oo 2070 D0 2C BI 3A C9 BF DO 19 21B8 09 A6 1E 9A 20 8B BE 4C ag 00569 AD d yq 00 RO WP G 2078 88 B1 3A C9 00 DO 12 88 21C0 09 BE AD 30 BF DO OE AD EG NC dos PEC APO ac 2080 B1 3A C9 20 DO OB AS 3A 21C8 62 BE 29 02 0A 0A OD 61 2310 29 25 4C C9 22 A2 05 A3 2088 18 69 03 85 3A 90 02 E6 21D0 BE 0A 0A 0A 0A 8D 92 25 GELS CP 23 CQ D TAAS 2090 3B A5 3A 85 FC AS 3B 85 2108 86 1E A9 00 85 1D 8D 2320 1E 9A 20 Bl 23 20 BI 23 2098 FD A4 2F 20 CB 20 AS 2F 21E0 96 25 85 1C 8D 93 25 85 SE EB 009 Bo AS PO ow 20A0 38 65 3A 85 3A AS 3B 69 21E8 1B C6 1B A5 74 8D 94 25 7 ee eee 20A8 00 85 3B 38 ED E2 20 A6 21F0 A9 02 85 EF 8D 95 25 20 Lc n 20B0 3A 20 BA 20 BO 03 4C 63 21F8 29 25 AD 30 BF C9 BO FO A cuo OA ed 20B8 20 60 C9 05 90 06 DO 06 2200 15 AO 00 B1 73 C8 11 73 5 7 7 20C0 E0 94 B 02 18 60 38 60 2208 D0 07 C8 B1 73 C9 03 FO 5757 771 5 20C8 88 Bi FC AA C8 1 FC 38 2210 05 A9 08 4C 09 BE A0 27 2358 D0 F7 20 37 24 A ED 38
85. D0 FO 19 C9 54 FO 18 C9 56 93D8 00 06 80 06 00 07 80 07 95E0 60 90 CF 85 09 60 00 00 91D8 F0 17 A2 10 4C 19 04 4C 93E0 28 04 A8 04 28 OS A8 O5 95E8 BB BB 00 00 BB FB 00 00 91E0 F4 91 4C A9 92 4C F1 92 93E8 28 06 AB 06 28 07 A8 07 95F0 BB BB 00 00 BB FB 00 00 91E8 4C 00 94 4C 03 94 4C 34 93F0 50 04 DO 04 50 05 DO 05 95F8 BB BB 00 00 BB FB BO 04 91F0 93 4C O6 94 20 09 94 20 93F8 50 06 DO 06 50 07 DO 07 91F8 F5 E6 86 F9 8A C5 OC BO 9400 4C 21 94 4C B9 94 4C 75 9200 2F 20 F5 E6 E4 OC BO 28 9408 95 4C AB 94 A9 OO 85 1C 9208 E8 86 FA 8A C5 F9 90 20 9410 85 1D 85 18 A9 DO 85 19 9210 20 F5 E6 86 FB A5 OB FO 9418 A6 09 BD 83 CO BD 83 CO Un collaborateur de 9218 04 E4 OB BO 13 20 FS E6 9420 60 AS 07 48 AS 08 48 AS Pom s vend 9220 86 FC A5 OB FO 04 E4 OB 9428 0C 85 CE A5 OB 85 CF DO 9228 B0 06 E4 FB 90 02 BO 05 9430 02 C6 CF 20 68 92 AD 82 Macintosh 512Ko 9230 A2 4D 4C 19 D4 20 OC 94 9438 CO AO 00 Bl 69 C9 41 DO tendu 1 5 M ga 9238 A2 00 E4 F9 90 08 E4 FA 9440 19 C8 Bl 69 C9 80 DO 12 carte Max 9240 90 0B AD 82 CO 60 E8 20 9448 C8 B1 69 85 IF C8 Bl 69 9248 5A 92 18 90 ED A4 FB A9 9450 85 1A C8 Bl 69 85 1B 18 Lecteurs interne amp 9250 A0 91 18 C4 FC C8 90 F9 9458 90 05 A2 BO 4C 19 D4 20 externe 400Ko 9258 B0 EC 18 A5 18 65 0B 85 9460 0C 94 AS 1C C5 07 FO OA ImageWriter 9260 18 A5 0A 65 19 85 19 60 9468 BO 37 20 SA 92 E6 IC 18 MacPaint MacWrite 9268 20 09 94 20 F5 E6 86 07 9470 90 FO AO 00 B1 1A 09 80 SD Compta 9270 E4 CE BO 78 20 F5 E6 86 94
86. ENS EC A0 ED EM AO H A0 A0 258 F2 E9 F2 EF EE A0 A0 ES EE EB F4 EE EE A0 AO E4 BIS E EJ m ES PE ES He El A0 EE ES EO FA EE EZ A0 ET A0 BJ GF F5 AO Pom s n 32 EF E 00 ED AO FO 00 ES F4 EE F4 E4 00 E 9 F4 00 ES El ES ED F4 Fo EG ES CD F4 E A0 A0 AE C4 B6 E 9 F4 BI AE AO 9 BB F4 E5 EC E4 EC ES EZ HJ F4 R AO AO P4 F4 P4 ES ED E5 AO El EF A0 Ed E4 B2 EJ F4 D3 F4 E Ei E 9 Eb FO CE BS AO R3 EI BS CC BS B DO FA ES BS EM F2 A0 ED CG B2 E3 EC E6 00 EF F5 ES F4 00 E4 ES A0 ED A0 EC ES El AO E8 A0 EC Ep H5 BB El T ED AU EE E3 C4 E4 ED ES BG EE AO AO F5 E ES E CE F2 Ed El 6970 E5 AO 6978 5 EJ 6980 CO AO 6388 P3 AE 6990 6 Ee 6998 F0 ES 69A0 ED FO E8 Pa EC E5 209 EC Source COPY S Assembleur Merlin Pro E EJ F5 AO ES A0 A0 EE F4 F2 EG AO EE F F4 Copie de fichiers ProDOS a AO ES 5 7 5 Fr d ric Rozay juillet aout 87 Wow RRR RE LST OFF BOFFER 6 AJ 3C A2 3E A4 42 START 56000 DEBUT START 100 LENGTH 2F PCL 3A HIMEM 73 ADR SFA WARM 3D0 EXTRNCMD BE07 ERROUT SBE DECSLT 5 DEFORY BEJD XTERNADDR SBESO XLEN SBE52 XCNUM BE53 PBITS 5BE54 FBITS BE56
87. EO STA LDA STA LDA STA LDA STA JSR RTS SECNO RECONS 01 DECAL FIRST 00 DECAL SECND RECONS 01 DECAL FIRST 00 DECAL SECNO RECONS 01 DECAL FIRST AF 0000 01 LABO 00 00 DECAL SECNO RECONS ADIMI ADIMI ADIM2 ADIM2 ADIMI NINC ADIM1 1 ADIM2 PX PX 20 NEXT OEBSEC LO DS 20 LO DS NO INC HI DS PY PY 192 CREPAL DEBUT RANG BiT2 BITI BIT3 BIT2 BIT X BIT3 CRECOUL SUIVANT Na e X 2 3 X 4 X25 X26 OPCODE DE LDA LONG ler OCTET A DECORTIQUER EN BANX 01 on passe aux autres points incrementation ligne derniere ligne si oui creation palette sinon ligne suivante D pixel suivant CREPAL TABLE LOX LDA STA INX CPX BNE RTS HEX HEX HEX HEX 00 TABLE X PALETTE X 32 CREPAL 2 Te Na ku a Sa Ve 0000770741082C07 0F008000 700F000D A90FFOOFEOO0DFO4 AFOD8FO 7CCOCFFOF LABORATOTRE w DISSECTION D UN OCTET LABO ROT CALCUL e CRECOUL PATR IMPAIR EGUN BLANC ORANGE VERT BLEU VIOLET NOIR STA LDX LSR LDA ADC STA INX CPX BNE RTS CASE 00 CASE 00 00 BIT X 08 ROT l octet est range dans une case Creation paiette GS PAINT La palette standard est compos e des 32 octets de la table Ci dessous raison de 2 octets par couleur de travail PBIT de droite va dans la retenu
88. Jequ SiB indicateur de soul gnement gothen sta adresse n de la l re page accord e par compteur qaqu 51 cospteur d enregistrements dans cat sta adtl Pro00S increa gequ 510 d calage de d but de ligne sta extrncmde2 pile gegu 516 sauvegarde du pointeur de pile ida gt debut htab gedu Sif position horizontale du curseur sta al 1 carte8 c gequ SEJ flag carte 80 col active pour viter ida lt fin 1 E de lui envoyer un form feed sta a2 bitmap gequ SEBS nup ro de bioc de la bitmap bes haut ida gt f n 1 blocsax gequ SED Abre max de blocs du support bas haut sta 3241 lignes gequ SEF noabre de lignes affich es 1dy 0 aa gegu SF ann e aty a4 les adresses de d par et d arriv nu gequ FA mols sty al sont al gn es poids faible 0 ji gequ SEA Jour sty extrncmd i adr gequ FC adresse temporaire sr move d place le programme DES gequ FE 5 jsr reloge rts 2 sous programmes moniteur et adresses syst me CU E rare DT E SR AA Z reloge lda adrease adresse de relogement sta 191 dinprint gegu 5 024 affiche en d cimal le contenu de A X lda 0 nsdsp2 gequ F88C d sassemble la ligne pel sta pel D move gequ FEZC comme son nom l indique rdecode ldx 0 n cessaire pour insdsp2 prbyte gegu FODA affiche A en 2 chiffres hexa Ida PCI kbd gequ C000 lecture directe clavler beq rfin si 00 s parant programme et donn es kbstrobe gequ C010 initlalisatlon clavier jsr insdsp2 idy length Y long
89. Left A3 D0 move L DO BotRight SP emp L A3 pea Bounds A3 SrcRect BitMapBounds pea 2 Lo SP sdestRect emp W zsrcCopy crase emp L 0 spas de ClipRgn _StdBits uilles A ttt add L D4 SP grande aiguijle emp L SP _ MoveTo emp L ga Line k petite aiguille 22222222 emp L 20002 _PenSize plus large que grande aiguille emp L SP _MoveTo emp L A4 _ Line _PenNormal sretour aux dimensions normales Sortie subo 1 D3 beq S 820 rsortie cmpI W NHeur D3 bne S 010 myst re des macros lea pa Ad r intialisation pa bra s 80 810 addA Lo A4 cas ordinaire bra S 80 LUNE amp SOLEIL 4444444444 HH 620 lea ObjTour A3 moveQ 4 D3 scompteur 630 move L Lo A3 TopLeft SP move L Lo A3 BotRight SP moveA L A3 A0 handle moveA L 1 adresse move L PicFrame TopLeft A1 D move L PicFrame BotRight Al Dl 2 stb L D DI C ddd m DL BotRight SP SC gt emp L A0 7 pea Lo SP _DrawPicture subQ 1 D3 beq S 40 addA 2 Lo A3 bra S 630 FINITIONS tittttttttttttttkttttttkttttttttttttttttrkti 440 addA LR Lo 4Wo SP dep M L A3 A4 D3 D4 RTS zrestauration GetRect COLLECTE D UN RECTANGLE D ITEM ooooossosoovovvovece entr e au moins 14 octets libres pile n de l item DO sort e rectangle au sommet de la pile PC sur la pile emp L A2 emp W DO
90. MP JMP JMP JMP LDA STA STA STA LDA STA LDX LDA LDA R15 LDA PHA LDA PHA LDA STA LDA STA BNE DEC JSR LDA LDY LDA CMP BNE INY LDA CMP BNE ENY LDA STA INY LDA STA INT LDA STA CLC BGC 9400 SPPRINT SPCADRE SPVIS ADTX 500 LIG LIGP ADR SDO ADR 1 SAVX RAM X RAM X VTVIR ATVIR DIM2 MAXV DIM1 1 MAX H SPPI MAX H INPUT ROM 500 LOMEM Y 541 SPPERR LOMEM Y 580 SPPERR LOMEM Y LONG LOMEM Y ADP LOMEM Y ADP 1 SPPS 82 SPPERR LDX 83 JMP 84 SPPS JSR 85 SPPB1 LDA 86 CMP 87 BEQ 88 BCS 89 JSR 90 INC 91 ELE 92 BCC 93 SPPMOVE LDY 94 SPPMI LDA 95 ORA 96 CMP 97 BCS 98 PHA 99 LDA 100 CMP 101 BNE 102 PLA 103 ORA 104 CFIN AND 105 PHA 106 TYA 107 STA 108 CLC 109 ADC 110 TAY 39 3 PLA 112 STA 113 LDY 114 Boe 115 BEG 116 CN7F PLA 117 GLE 118 BCG 119 CINY INY 120 CPY 121 BCC 122 SPPFIN PLA 123 STA 124 PLA 125 STA 126 LDA 127 RTS 129 t bb 3 129 ADTX LDA 130 GLC 131 ADC 132 STA 133 LDA 134 ADC 135 STA 136 RTS 137 SPCADRE JSR 138 JSR 139 CPX 140 BNE 141 JSR 142 JSR 143 CLC B0 ERROR INIADR LIG VTVIR SPPMOVE SPPFIN AD80 LIG SPPB1 500 ADP Y 580 5C0 CFIN INVF LG FS7F CN7F 540 INVFLG SAVY HTVIR ADR Y SAVY CINY CFIN LONG SPPM HTVIR VTVIR ROM TATETIR 501 TXTPTR TXTPTR 1 500 TXTPTR 1 ADTX GETBYTC 9502 OPEN OPT1 OPT2 144
91. Macawosh soni des marques wre de Apple Computer Inc Apple Expo 87 inutile de taper 36 15 pour que je vous montre tout Si vous d sirez vraiment taper 36 15 code d acces Villette mot cl Apple vous trouverez tous les renseignements utiles propos d Apple Expo Toutefois si vous d sirez faire des ren contres int ressantes ou tout simplement tout voir d un coup d il d complex nousavons toujours pens chez Appleque rien ne remplacera les vraies exp riences humaines et surtout pas les machines En fait il s agit d un coup d il parti culi rement panoramique puisque vous pourrez en 14 000 m travers 160 e sants contempler tout un univers sa culture son pr sent et son avenir celui d Apple Celui de votre Apple Voyons d abord ce que vous pourrez Apple Expo La Grande Halle La Villette voir du 30 septembre au 3 octobre Lorsque vous aurez vu ensemble des produits Apple et non Apple mis au point par des d veloppeurs ext rieurs vous pourrez contempler tous les logiciels dis ponibles aujourd hui sur l Apple II ou Macintosh avec une attention toute parti culi re pour les derniers n s des Etats Unis visibles en France pour la premi re fois Au passage n oubliez pas de deman der au Macintosh II de se livrer une petite exhibition personnelle Gardez un peu de votre temps pour er les domaines o Apple ent une place toute particuliere comme l duca tion ou l dition pe
92. N vecteur exact HE PP OpBin VEll VectLunsvv mulI OpBin VEll VectLun hh mulI CALCUL e sesce c c eec ec s eoc c c c c c cs c s c c scoooooo o o pour avoir les aiguilles de suite bsr W CalAig z ACHEVEMENT o ooooocorcrrnnrnoonrnrnnnnn non onso Prenestrameus Distro Ser Bore ancien GrafPtr sur la pile moveA L A4 Al dep M L A2 A4 restauration HorolazhEshy Poms n 32 0 00 return no error Xenavo RTS FERMETURE EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE KLOZADYR SAUVEGARDES moveQ 00 0 0 0 9 e 0 Ge sa 0 0 e S 0 0 0 94999 a ae 0 eege emp M L A2 A4 s Sauvegarde moveA L AI AJ sDCEPtr ep L enp L SP GetPort GrafPtr en v gueur pile Se e e ee 0 0 9 a age ee BT ee geg ee STY ee oe 4 YT e eege e LIQUIOATIONS emp L CadrHndl _ReleaseResource lea ObjTour Al moveQ 4 D1 compteur 20 emp L Al _ReleaseResource subQ 1 01 beg S e10 addA 2 Lo A1 bra S 80 210 emp L dctlWindow A4 fpile pour destruc ellr E dctlWindow A4 ssinon boum _DisposDialog plus besoin fen tre bra S Distro on va fermer CONTROLE EEEEEBEBEEBEEEEEEEEEEREEBEEEEEEEEEEEEBEEEEEEEEEE YRZ ROUTINE PRINCIPALE BRANCHEMENTS AO pointe sur le Device Request Block et Al sur le DCE emp L A4 sauvegarde moveA L Al AJ PCEPtr move csCode AO DU sn requ te SSi I W taccEvent D0 doCtlEvent v nement SSi I W taccRun DO0 ActMin action p r
93. N DB25 14 sep 87 12h11 Votre revue est super super super Bravo et continuez avec cette qualit David Bensimon Merci nous en restons sans voix 4 Cordon MAC MINITEL 61 De NUMERA PN19 08 jul 87 21h07 Bonjour Philippe C m a dit que vous pourriez me procurer un cordon MAC MINITEL Quel en est le prix et serait il possible d en avoir un d une longueur de 5 m environ si cette longueur n est pas critique En attendant impatiemment de vos nouvelles Je vous remercie d avance D Poms n Nous pouvons effectivement effectuer cette liaison qui vous co tera 300 00 F Franco 4 prog ck pb export 11 De Olivier FAGES OF17 04 sep 87 00h27 Bonjour Je suis fid le lecteur et utilisateur des PROGS de Pom s En particulier CLV et MINBAS qui m aident d couvrir CALVACOM Mais j ai des pbs 1 Avec CLV jobtiens des fchiers en inverse et non exploitables avec AppleWorks utilisables avec AppleWriter mais apr s CONVERT Y a t il une solution ce pb 2 CALVACOM incite EXporter mais le 75 bauds est limitatif Avec un minitel 1B votre g nie 1 Apple s rie ne peut on pas faire plus vite SANS modem ou est ce une limitation du serveur sp cial minitel je n y connais pas grand chose et compte sur vous ou un forum olivier of 17 Nous n avons pas vos difficult s avec notre AppleVVorks qui semble indiff rent au poids fort des octets composants le fichier TEXT Nous avon
94. NADDR 1 0 XCNUM PBITS 1 3 PBITS OLDBUFF OLDBUFE 1 BUFFER BUFFERS FFFF deux pathnames n cessafres FBITS 3 3 GOODBOY 2910 ERROUT VPATH VPATH1 1 PARMGFIY PARMGEI 2 VPATH2 VPATH231 PARMCRE 1 PARMCRE 2 H MEM HIMEM 1 OLDPI A OLDAIM 1 VPATHI VPATH Lei BUFFER BUFF ER 1 l BUFFER Y 5 1 INCPATR VPATH2 VPATH2 1 BUFFER BUFFERe1 1 BUEFER Y Et 57 S8 BEQ PRFXST2 JER INCPATH PRFXST2 JSR GETFINFO V rifie que le fichier n est ni un Directory ni un fich er Bad LDA PARMGE I 4 CMP 1 BEQ BADTYPE CMP ESF BNE GOODTYPE BADTYPE LDA SD JMP ERROUT Recopie les param tres du fichier seurce dans la table des param tres du fichier destination GOODIYPE LDX 2 1 CRE INX LDA PARMGFI X STA PARMCRE X CPX 7 BNE GFI CRE LDA e 11190011 STA PARMCRE 3 Va chercher l heure et la date de cr ation du fichier destination JSR HEUDAT LDA DATE LDX DATE 1 STA PARMCRE 8 SIX PARMCRE 3 LDA TIME LDX TIME 1 STA PARMCRE 1 0 STX PARMCRE 11 JSR CREE Ouvre le fichier source puis le fichier destinatien LDA 4 JSR GBUFF LDY 0 STY PARMOUV 3 STA PARMOUV 4 LDA VPATHI LDY VPAT HI L STA PARMOUV 1 S Y PARMOUV 2 SR OUVRE LDA REFNUM STA PARMLIT 1 STA PARMEOF 1 LDA 4 JSR GBUFF LDY 0 STE PARMOUV 3 STA PARMOUV 4 LOA VPATH2 LDY VPATH241 STA PARMOUV 1 STY
95. Numero Num 2 Rang INTEGER Tablel Table2 T table PROCEDURE ClasserfLibelle T cle Numero INTEGER PROCEDURE Declasser Libelle T cle PROCEDURE Re perer Donnee T clej DO Rang Rang 1 IF Libelle gt Table Rang Cle AND Rang Tabl el01 1ndex THEN Rang Rang 1 Rang Rang 1 END PROCEDURE Inserer Element T elem VAR Table T ta been VAR Indice Rang INTEGER Pom s n 32 BEGIN Situer Element Cle Table Rang FOR Indice eTable 01 Index DOWNTO Rang 41 DO Table Indice 1 Table Indice Table Rang41 Element Table 0 Index Table 0 Index 41 END PROCEDURE Comprimer Supprime les tables vides VAR 1 Nombre Trou Rang INTEGER BEGIN Trou 0 Nombre Tablel 07 Index FOR I 1 TO Nombre DO Jia Table IIIe CAEN ProureTrEeut l ELSE Tablel I Trou Tablel IJ Tablel 0 Index Tablei 0 Index Trou Trou 0 FOR I 1 TO Nombre DO BEGIN SEEK Fitab I GET Fitab IF Fitab 0 Index 0 THEN Trou Troutl ELSE BEGIN SEEK Fitab 1I Trou PUT Fitab Rang 1 WHILE Tablel Rang Index lt gt I AND Ran g lt Nombre DO Rang Rang 1 Tablel Rang Index I Trou Tablel Rang Cle Fitab 1 Cle END END END PROCEDURE Tasser ffReunit 2 Tables peu pleines et comprime VAR Z Indice Nombre Num A Num B INTEGER TableA TableB Ttable BEGIN I 1 WHILE I lt Table f0 Index DO BEGIN Num A Tablel 1I Index SEEK Pitab Num A GET Fitab TableA Fitab A e Num B T
96. O BIGPGM OBJO et BIGSAVE OBJO 2 saisir et sauvegarder la table BIGPTR 3 saisir sauvegarder et ex cuter le programme VIRPUZZLE qui partir des 4 fichiers ci dessus constitue ECR VIRT 4 pour vous servir de la d monstration saisir sauvegarder et ex cuter VIRCEL C 6 lt DhgrTool Dans le num ro 30 de Pom s un Couper Coller nergique a fait perdre quelques octets la r capitulation DAGRTOOLO la routine ne peut fonctionner quen ajoutant partir de 0B96 84 20 2B EB 60 Pom s n 32 Programme VIRPUZZLE 1 REM VIRPUZZLE REM RASSEMBLAGE DES MORCEAUX 10 HIMEM 37248 REM PROTECTION DU PRO GRAMME 20 DS CHRS 4 30 PRINT DS BRUN BIGTEXT OBG 40 PRINT DS BLOAD BIGPTR A 93D 45 PRINT D BLOAD BIGSAVE OBJO 50 PRINT DS BLOAD BIGPGM OBJO 60 PRINT DS BSAVE ECR VIRT AS9180 L 480 Programme VIRCEL 2 REM GESTION CELLULES TEXTE 10 HIMEM 20864 REM PROTECTION ECRAN V IRTUEL 15 AS A REM PREMIERE VARIABLE DU PG M 17 DS CHRS 4 B 20 PRINT DS BRUN ECR VIRT ENT 30 POKE 10 0 REM ECRAN 128 COLONNES REM CHARGEM 50 HOME REM AFFICHAGE MENU 60 HTAB 10 INVERSE PRINT MENU NOR MAL 70 VTAB 4 HTAB 1 PRINT 1 CHARGEMENT D UN ECRAN 80 VTAB 7 HTAB 1 PRINT 2 CONSULTATION CELLULES 90 VTAB 10 HTAB 1 PRINT 3 MISE A JOUR CELLULES 95 VTAB 13 HTAB 1 PRINT 4 CREATION D UN ECRAN 98 VTAB 16 HTAB 1 PRINT 5 SAUVEGARDE ECRAN 100
97. R 1 PARMCLO 1 FER DLDHIM OLDHIM 1 HIMEM HIMEM 1 OLDBUFF OLDBUFF 1 BUEF ER BUEFER 1 Met le pr fixe du lecteur par d faut devant le pathname peint par BUFFER NCPATH PASPREF LDA JSR LDY STA STY STA 556 STA STY JSR JSR BEQ ETS l GBUFF 0 PARMON 3 PARMON 2 PARMPREF 2 PARMPREF 1 LITPATH 2 LITPATH 1 PRNDPREF ADD LITPATH PASPREF DEFSLT DEFDRV LITPATH EFE PARMON 1 BUFFER s Al BU FER 1 0 Alfi 0 BUFFER Y BUFFER A2 BUFFER 1 0 A241 LITPATH 9 BUFFER A4 BUFFER 1 0 A441 AZ Ai Al Y Ad Y 0 DEPLACE PARMON 2 zu Al PARMON 3 0 21131 LITPATH PARMON 2 A2 PARMON 3 0 A2 1 BUEF ER 2 A4 BUEFER 1 0 Agel MOVE 0 BUFFER Y ADD 1 LITPATH 0 2 BUFFER Y Enf BUFFER Y LITPATH 2 pr BUEFER Y FFFF 800001111 Appels au ProDOS ENLIGNE E Dome n 32 m sl de ee GETPINTO REUDAT CREE QUVEE ECRIT FERME GEOF PRNDPREF ENLIGNE EFFACE FIX FILE GBUFE Affichage du code et du JSR DFS DA BCS RTS JSR DFS DEB BCS RTS JSR DFB DA BCS RTS JSR DFB DA BCS RTS JSR DEB DA BCS RTS JSR DFB BCS RTS JSR DEB BCS RTS JSR DFB DA BCS RTS JSR DEB DA BCS RTS JSR DEB DA BCS RTS JSR DFB DA Bes RTS USR DFB DA BOS RTS JSR BCS RTS
98. R OR BOR ss NUMEROS DES OPERATIONS foADD equ 0 Addition foSUB equ 2 soustraction foMUL equ 4 Multiplication foDIV egu 6 Divtsion oCMP equ 8 compare foCPX egu 10 compare foREM egu 12 remainder oz2X equ 14 tendu foX22 equ 16 tendu gt ToSQRT equ 18 racine carr e foRTI equ 20 round to integral LOTTE equ 22 truncate to integral foSCALB equ 24 sbirary scale foLOGB equ 26 logarithme base 2 foCLASS egu 28 sclassify UNDEFINED equ 30 foSETENV equ 1 set environment foGETENV equ 3 get environment foSETHV equ 5 set halt vector foGETHV equ 7 get halt vector foD2B equ 9 d cimal gt binaire fcB2D egu 11 binaire gt d cimal foNEG equ 13 rnegate foABS equ 15 Valeur absolue foCPYSGN equ 17 s copy sign foNEXT equ wa Z next after foSETXCP equ 21 Z set exception FoPROCENTRY equ 23 procedure entry foPROCEXIT equ 28 procedure exit FOTESTXCP equ 27 F test exception UNDEFINED equ 29 UNDEFINED equ 31 NUMEROS DES FORMATS D OPERANDES f EXT equ 0000 ffDBL equ 50800 J ffSGL equ 1000 ffINT equ 2000 S ise ffLNG equ 52800 ffcOMP equ 3000 7 Precision code masks forces a floating point outout value to be coerced to the range and precision specified fcEXT equ 0000 tendu fcDBL equ 54000 double fcSGL equ 58000 single em KA o o om e em oxu o
99. RROR INIADR 500 LIGD HSUIT LIGF HEFF ROM AD80 BCLI COLD AO ADR Y COLF HEF2 HSUIT ADR DIM1 1 ADR DIMI ADR 1 ADR 1 ADTX GETBYTC VTVIR MAXV SPCERR GETBYTC HTVIR MAXH SPCERR 500 LIGP LIG ADR SDO ADR 1 SAVX RAM X RAM X 8500 593 PTR 1 ADP LIGP A PTR Y ADP 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 206 209 210 211 212 213 214 218 216 217 218 219 220 221 222 22 3 224 225 226 227 226 229 230 21 232 233 234 236 236 29 238 233 240 241 242 243 244 245 INY LDA STA RTS JSR JSR LDA CMP BCG CLC LDA ADC CMP BCC ON STOCKE JSR LDY LDX STX TYA PHA LDY LDA STA PLA TAY LDA STA INY INC LDX CPX BGC INC INC JSR CLC BGC LDA RTS LDX JMP JSR JSR LDA CMP BCC CLC LDA ADC CMP BCC SPGOPY SPEB SPC BZ SPCLS SPCFIN SPCERR SPWIN SPWDEB PTR Y ADP 1 CHMAX INPUT LIG VTVIR SPCLS VTVIR 517 LIG SPCFIN UNE LIGNE CALCADP HTVIR 500 LONG LONG ADP Y SAVA SAVA ADR Y LONG LONG 528 SPCBZ LIGP LIG AD80 QE BT ROM 540 INPUT LIG VTVIR LIGSUIT VTVIR 17 LIG SPWFIN AFFICHER UNE LIGNE JSR LDY LDX STX LDA STA TYA PHA LDY SPWB1 CALCADP ATVIR 500 LONG ADR Y SAVA LONG 246 LDA SAVA 247 STA ADP Y 248 PLA 249 TAY 250 IN
100. S MLIERR X STROUT BRK COUT POSEOF DS 3 E 8D RESTE DS 3 COUT OLDHIM DS 2 0104252728282 40424344454647484 944484 404 505152535556575 LLE Mauvais code de fonction du ML d n 00 MLIG N mbre de paremetres incorrect 00 MLIH Table de vecteurs d nterrupti cn pleine 00 MLII Erreur d entree sortie 00 Pas de peripherique connecte MLIJ 00 Disque prot g 4 1 criture 00 ML K La disquette a t chang e 00 MLIL La syntaxe du nom est incorrec te MLIM 00 Il y a dela huit fichiers ouve MLIN rts 00 Ce num ro de r f rence n est p MLIO ds celui d un fichier ouvert 00 MLIP Sous catalogue inexistant 00 Le volume n est pas disponible MLIQ 00 Le fichier n est pes dans le C MLIR atalogue demand 00 Le fichier existe d j MLIS 00 Pas assez de place sur ce volu me PEIN CALCUL DS 2 OLDBUFF DS 2 LENSUFF DS 1 ECCO DS 1 COMMAND STR COPY PARMGFI DFB 0A DS 17 PARMSFI DER DS 13 PARMCRE DEB 507 DS 11 PARMECR DFB 04 DS 7 PARMLIT DFB 504 DS 7 PARMOOV DFB 303 DS 4 REFNUM DS 1 PARMEUF DEB 502 DS 4 PARMON DEB 02 DS 3 PARMPREF DFB 01 DS 2 PARMDES DFB 01 DS 2 PARMCLO DFB 01 DS 2 CODEMSG HEX 40 ASE Code 5 HEX 00 x Codes d erreur du MLI 00 Le catalogue principal est ple in 00 Le MLI est trop ancien pour l re ce fichier 00 PreDOS ne peut util ser ce type de stockage 00 La fin du f chier a t attein
101. S 33 ProDOS 1999 REM t t t ttXxXx xXX 3000 U DIS NN DT U LEN 05 FO RS 2d MO U IF MIDS US C D THEN DES NNet BT gt LEFTS US J 57555 7 3010 NEXT RETURN 4000 CALL 768 REM Bug de l OnErr 4010 LI PEEK 218 256 x PEEK 219 ER PEEK 222 4020 IF ER 19 AND LI 320 THEN GOTO 330 4030 IF NOT ER 71 AND LI 504 THE N 4035 4031 ON DF GOTO 4034 PRINT SPC 11 F2 existe deya PRINT Rempicmt O N Remplacer tous S 4032 WAIT 49152 1268 POKE 49168 0 RR PEEK 49152 IF RR ASC N OR RR ASC n THEN PRINT Copie annul e PRINT GOTO 505 4033 IFRR ASC s THEN DF 4 4034 ON RR lt gt ASC AND RR lt gt ASC o AND NOT DF GOTO 4032 PR IN DO S UNLOCK F26 PRINT D DELETE F 25 PRINT Effacemt F2S RESUME 4035 PRINT PRINT CHRS 7 4040 IF NOT ER THEN PRINT Disque des tination plein END 4099 PRINT D PREFIX AP 4100 PRINT Erreur n ER ligne EPE Apple JZ Ae 2 gs S OR RR ASC P UNE e Listez vos programmes Basic en avant et en arri re e 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 200 00 F TIC franco bon de commande page 74 Pom s n 32 Jean Louis Chauvin vec un Apple
102. SPDK MERLIN LIB SENDMSG S Copie de SPDK MERLIN UTIL XREF gt COPIE SPDK MERLIN UTIL XREF Copie de SPDK MERLIN UTIL XREFA gt COPIE SPDK MERLIN UTIL XREFA ux x w w mm mm mm mmm mm mm ss Poms n 32 120 de 128 125 130 140 150 155 SION 152 160 190 2 00 2 10 Z l 221 224 226 228 2860 2312 234 4236 238 240 250 260 270 Arl 272 280 2 90 300 517 316 380 330 SR 3 3 S 37 VTAB 13 INPUT lt PI BR 65 S VTAB 14 INPUT lt TA OR US PRINT DS PREFIX S 16 D P PRINT DS PREFIX INPUT DES DE EFTS DES LEN DES 1 IF OG DES THEN PRINT PRINT L es volumes sont homonymes WAIT 49152 128 POKE 49168 0 PRINT DS PR EFIX APS RUN 1 OBE 2562 NI 7 COMO VS SA AN Pact SUS ON Ge P ESTO 1610 VAL PRINT PRINT Copie de OG vers DES BRINT INEUT ek ab IFRS d gt AND HS EP ETNEN RON 2 PRINT PRINT REM x x x xx x xx REM Recherche des catalogues REM x x x kx x x xx PRINT Recherche des catalogues Z PRINT DIS 0 085 0 FOR I AN TO NN PAS DIS I PRINT PAS PRINT DS Q PENE AE TDIR PRINT DS READ PAS F 0 INPUT AS IF F AND NOT LEN AS THEN 238 IF NOT LEN AS THEN F 1 IPMNDS AS 06 39 DIR CHEN DT DT 1 DIS NN DT PAS
103. T WPL FILET COPY COP YS TF RECURSIVE TEXT U GESTABL TEXT P REPERT TEXT DETECT RECURSIVE U GESTABL P REPERT BASIC PASCAL BASPAC OBJ1 Apple Programme RUN ou Utilitaire pour Transformeur Source en format TEXT Source en format TEXT Source en format TEXT Source en format TEXT Table Code issu des 3 sources et de la table Pgm de cr ation de ECR VIRT RUN Pgm de d monstration RUN cran de d monstration pour VIRCEL Source en format TEXT Objet BRUN ou VPL ex cuter depuis AppleVriter Objet BRUN ou Source en format TEXT Pgm Basic RUN ou Ces trois progranmes Pascal sont convertir l aide d Universal File Conversion Pon Basic RUN Ces trois progammes Pascal sont convertir l aide de Basic Pascal Pgm de conversion DOS PASCAL RUN Utilitaire pour BASIC PASCAL Fichiers Macintosh Dossier Systeme Font DA Mover Mots Crois s Grillel mots croises pas Accessoire fuseaux d calage Asm mABcro Txt CalEqu Txt Pom s 6 Contient fuseaux install et quelques l ments vitaux Pour installer fuseaux Application du m me nom Le probleme pos dans ce numero page 73 Source de l application Fichier Font DA Mover qui contient Source MDS 68000 de fuseaux Fichier de macro instructions pour Fichier d quivalences pour fuseaux Mots Croises fuseaux Pom s n 32 C C M amp 2200 Apple le logo Apple
104. TO 50 80 PRINT AS W 1 GOTO 6 0 2 Vers 3 Apple Prise Joystick Ee 26 objet Unimate programme de Cirtech g est d utiliser les 777755 programmes DOS 3 3 Pascal ou CP M sur les Unidisks 3 5 Il permet de faire fonctionner sur un support plus plaisant et spacieux des applications allergiques ProDOS ou difficilement transposables voici un programme qui m riterait d accompagner chaque lecteur 800Ko Unimate est livr sur une disquette lisible en DOS 3 3 en Pascal et en CP M Il est compatible avec tous les Apple Depuis chacun des syst mes d exploitation les fichiers concern s sont copiables directement Un d marrage sur la disquette Unimate donne acc s un mode d emploi imprimable en anglais Il est succinct car part l installation des drivers l utilisation est totalement transparente DOS 3 3 La m thode retenue est l installation d une modification au DOS Il convient de d marrer en DOS 3 3 puis d ex cuter le programme livr le DOS en m moire est alors modifi et il suffit d initialiser des disquettes 3 5 ou 525 qui comporteront le nouveau DOS elles sont bootables Chaque Unidisk 3 5 est reconnu en DOS 3 3 comme deux disques de 400Ko Deux Unidisks en Slot 5 seraient reconnus comme tant 55 D1 S5 D2 52 B8 S5 D4 Seule pr caution pour initialiser le disque du deuxi me lecteur faire INIT HELLO et non pas D2 sinon Les deux f
105. Tablei Rang Index SEEK Fitab Num 2 GET Fitab Table2 Fitab Element Cle Libelle Element Index Numero Inserer Element Table2 IF Tablel 0 Index 0 THEN Table1 0 Index 1 Table fRang Cle Table2 1 Cle IF Table2f0 Index Dim THEN Degonf ler Rang T ablel Table2 SEEK Fitab Num 2 Fitab Table2 PUT Fitab 12 IF Table1 0 Index Dim THEN Tasser SEEK Fitab 0 Fitab Tablel PUT Fitab END PROCEDURE Decl asser Libellesd cie Retire un element de la Table2 VAR Indice Rang2 1NTEGER BEGIN Rang2 Table210 1ndex WHILE Libelle Table2 Rang2 C1l e DO Rang2 Rang2 1 Table2 0 Index Table2 0 Index 1 FOR Indice Rang2 TO Table2 0 Index DO Table2 Indice Table2 Indicetl Tablei Rang Cle Table2 1 Cle Fitab Tabie2 SEEK Fitab Num 2 PUT Fitab 65 IF Table2 0 Index 0 THEN BEGIN TablelfRang Cle Comprimer END END PROGEDURKH Re perer Donnee T cle Repere un article d apres sa cle VAR Rang2 INTEGER BEGIN Situer Donnee Tablel Rang Num 2 Tablel Rang Index SEEK Fitab Num 2 GET Fitab Table2 Fitab Rang2 Fitab 0 1ndex WHILE Donnee lt gt Fitab Rang2 Cle AND Rang2 gt 0 DO Rang2 Rang2 1 Numero sFitab Rang2 Index IF Rang2 0 THEN Numero 0 END PROCEDURE Decouvrir Donnee T cle VAR Rang2 INTEGER BEGIN Situer Donnee Tabiel Rang IF Rang lt Tablel 0 Index AND POS Donnee
106. Taf blel Rang 1 Cle 1 THEN Rang Rang 1 Programme P REPERT Note le caract re F indique la continuit de la ligne PROGRAM Repertoire fichier sequentiel indexe USES APPLESTUFF U 5 U GESTABL CODE Seguin gestables TYPE String20 STRING 20 String5 STRING 5 VAR Fich FILE OF RECORD CASE INTEGER OF 0 Der article INTEGER 1 Nom Prenom Adressei Adresse2 Ville Telephone String20 Code postal String5 END Fin Plafond INTEGER Cleri T cde Choix CHAR Erreur BOOLEAN PROCEDURE Synthese Nom Prenom String20 VAR Raccou rORuT cle Cree la cie avec nom et prenom VAR Nom prenom STRING 4i BEGIN Nom_prenom CONCAT Nom Prenom IF LENGTH Nom prenom gt 15 THEN Raccourci COPY Nom_prenom 1 13 ELSE Raccourci Nom prenom END PROCEDURE Init fichier TYPE T nom STRING 23 VAR Test CHAR Nom fichier Nom table T nom 66 IF Rang 0 THEN Rang 1 Num 2 Tabiel Rang Index SEEK Fitab Num 2 GET Fitab Table2 Fitab Rang2 21 WHILE POS Donnee Fitab Rang2 Cle 51 AND Rang2 Fitab 0 Index DO Rang2 Rang2 1 Numero Fitab Rang2 Index IF POS Donnee Fitab Rang2 Cle lt gt 1 THEN Num ero 0 END PROCEDURE Localiser Donnee T cle VAR Rangl Rang 2 INMEGER BEGIN Situer Donnee Tablel Rangl IF Rangl 0 THEN Rangl 1 Num 2 Tablel Rangl Index SEEK Fitab Num 2 GET Fitab Rang2 1 WHILE Donnee Fitab Rang2 Cle
107. UL SP _FP68K MACRO faddX addition d un tendu MOVE W FFEXT FOADD SP _FP68K MACRO faddS addition d un single MOVE W FFSGL4FOADD SP _FP68K MACRO fmulS multiplication par un single MOVE W FFSGL FOMUL SP FP68K MACRO fdivI division par un entier MOVE W FFINT 4FODIV SP FP68K MACRO fremI sentier MOVE W FFINT FOREM SP _FP68K MACRO COSx cosinus MOVE W FOCOSX SP _Elems68K MACRO fSINx sinus MOVE W FOSINX SP Elems68K 22 PERSO Opemation EEE De nombreuses op rations du SANE utilisent deux arguments et un code d op ration La macro ci dessous reproduit la forme g n rale de la soit d instructions correspondante AAA A ee nn mm MACRO OpBin A B op PEA A PEA B Flop ENDIF kee E 5x ROB n r o l ik 66 ORO CC CCC R R BOR RB b E RB A AL amp m FIN Fichier CalEqu Txt ct B geg eg 4 w Calli q uir xt Ww NU was ge Les equates ci dessous font partie du Standard Apple Numeric Environment SANE d crit dans l Apple Numerics Manual inclus dans Inside Macintosh extraits de SANEMacs Txt le 24 Juin 87 condens Ho 9906500099060 606080600800 ee o o OR o BOR PO
108. VPATH 5 VPATH2 BESE HIMMSB SBEFB GETBUFR BEF5 MLI BF00 BITMAP BF58 DATE BF90 TIME SBF32 STROUT DB3A INSDSP2 F85C PRAYTE FDDA cour FDED MOVE FE2C GET TIME 82 DESTROY 5 1 CREATE co SET FILE INFO C3 GET FILE INFO C4 ONLINE scs GET PREFIX C OPEN C8 READ CA NH TE SCH CLOSE ZCC GET EOF D1 ORG START Relogeur de le commande externe LDA Pom s n 32 EXTRNCIAD I 69EU F5 ES F3 00 C EJ 69E8 E3 El F4 ES AO ES ES 69F0 F3 AO E BE EF E3 ET AO 69F8 E5 F4 AC E5 EE E4 EF 6A00 ED ED El E7 FB E5 AE 00 INY DEY STY LDA LDA STA STY LDA STA STA STA CLC RTS SEC LOR LDY STA STY JMP x Initialisation pour la copie LDA ANO CMP BEQ LDA JMP LDA LOY STA STY LDA LDY STA STY JSR LDA STA STY LDY LDA EC 69A8 A0 CO AO EC A ES EE EJ AO 6980 P2 EF E9 F4 AO Ed FB F3 E9 69 8 9 E7 EE FB AE 00 C9 EC F5 69C0 A0 FS AO El AO E4 ES FS AO 69C8 F8 AO EE EF ED F3 AO E E9 69D0 E5 AO F6 EF EC F5 ED ES F2 6908 2420 ES Ed ES EE F4 E9 Fi 7 STA OLDCMD 2 JER INSDSP2 LDA EXTRNCMD LDY LENGTH STA OLDCMD 1 CPY 2 BNE RTRANS MIENNE LDA E PFIN DEBUT PF LDA PCL Y STA N8PAGES CMP BF JSR GETBUFR BNE NOMLI MIENNEI CMP 0C DEY BNE LDA PCL Y JMP ERROUT CMP 0 BNE NOMLI GOTHEM STA 1 DEY STA ADRs1 LDA PCL Y TAY LDY S LDX NBPAGES CMP 2
109. VTAB 13 HTAB 1 PRINT 4 CREATION D UN ECRAN 105 VTAB 23 GET E PRINT DS 110 IF E 1 THEN GOTO 1000 120 IF E 2 THEN 2000 130 IF ES 3 THEN 3000 140 IF E 4 THEN 4000 150 IF ES SU THEN 5000 160 GOTO 50 1000 REM CHARGEMENT ECRAN 1020 HOME PRINT NOM DE L ECRAN INP UT ES 1030 IF LEN ES THEN 1020 1040 ONERR GOTO 1020 1045 PRINT JE CHARGE 1050 PRINT DS BLOAD sE A 5180 1060 CALL 37742 REM TRANSFERT SUR CART E 16K 1070 L PEEK 33153 Y PEEK 33154 1080 GOTO 50 2000 REM VISUALISATION 2005 VT HT 0 Poms n 32 2010 2020 2000 3005 3010 3020 J021 3025 3030 3021 3035 3040 3050 3060 3070 3080 3085 3086 3088 3090 3100 3110 2120 3200 3210 3300 3320 3400 3410 3500 3510 9612 3514 3516 3518 3520 3530 3540 3550 3560 4590 3600 3610 3620 3630 3640 3630 3660 4000 4030 amp V VT HT GOTO 50 REM MISE A JOUR VT 0 HT 0 amp V VT HT REM AFFICHAGE VT PEEK 7 HT PEEK 8 TF PEEK 9 155 THEN 50 REM ES CAPE V 12 H 20 IF AT gt 88 THEN HT 88 IF VT gt 72 THEN VT 72 5 W VT HT INVERSE z NORMAL GET ES PRINT DS A IF A 21 THEN 3100 IF A 8 THEN 3200 IF A 11 THEN 93300 IF A 10 THEN 3400 IF A 27 THEN 50 REM VTAB Ve HTAB H PRINT ASC E ESCAPE IF A gt 13 THEN 3030 GOTO 3500 REM DROITE IF H 40 THEN 3010 H H 1 GOTO 3030 IF H 1 THEN 3
110. Y 251 INC LONG 252 LDX LONG 253 CPX 528 254 BCC SPWBl 255 INC LIGP 256 LIGSUIT INC LIG 254 JSR AD80 258 CLC 259 BCC SPVDEB 260 SPWFIN LDA ROM 261 RTS 262 SPCHPAG JSR ADTX 263 JSR GETBYTC 264 CPX 501 265 BEQ 1 266 CPX 02 267 BEQ SPPI 268 LDX 8530 269 JMP ERROR 270 SPP1 STX PAGE 27 1 RTS 272 xxx CHARGER MAXV MAXH 273 CHMAX LDA DIM Z 274 SEC 275 SBC 17 276 STA MAXV 277 LDA DIM1 1 278 SEC 279 SBC 527 280 STA MAXH 281 RTS Source BIGPGM Assembleur Big Mac format TEXT 1 TTT 2 3 4 H ROY CONTANCIN 5 19 05 86 1 1 6 tbt t ff ttttrt 7 VIVIR EQU 07 8 HTVIR EQU 508 9 SAVX EQU 09 10 LOMEM EQU 69 11 ADR EQU 18 12 ADP EQU S1A 13 RAM EQU C083 14 ROM EQU C082 15 LIG EQU 51 16 LIGP EQU ein 17 LONG EQU 1F 18 INVFLG EQU 32 19 MAXV EQU CE 20 21 22 23 24 25 26 2 28 29 30 31 32 29 34 ES 36 37 38 9 40 41 42 43 44 45 46 47 48 49 50 ad 52 515 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 Z5 76 77 78 79 80 81 MAXH LIGD LIGE COLD COLE SAVY TXTPTR GETBYTC DIMI DIM2 AD80 INPUT SPWDEB CHMAX ERROR EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU SC E SEO SFA SFB SFC SFF B8 SE6F5 SOA 0C 925A 9268 92F7 934A D419 t CHARGEMENT ADRESSE EH E2 E E4 INIADR SPPRINT SPPI ORG J
111. ablelf1 1 Index SEEK Fitab Num B GET Fitab TableB ssFitab Nombre TableA 0 Index TableBf0 Index ZF Nombre Dim THEN BEGIN FOR Indice 1 TO TableB 0 Index DO TableA TableA 0 Index4Indice TableB Indice TableB 0 Index 0 TableA 0 Index Nomb re TablelfIti Cle SEEK Fitab Num A Fitab TableA PUT Fit ab SEEK Fitab Num B Fitab TableB PUT Fit ab 141 END TARA END Comprimer END PROCEDURE Classer Libelle T cle Numero INTEGER f Poms n 32 Insere dans les tables la cle et le numero al un article VAR Rang Num 2 1NTEGER Element T elem PROCEDURE Degonfler Rang A INTEGER VAR Table0f e TableA T table Reporte dans une autre table le dernier eil em d une table pleine VAR TableB T table Element T elem Rang B Num B INTEGER BEGIN Rang B Rang Ati Num B TableO Rang Bj Index SEEK Fitab Num B GET Fitab TableB zFitab Inserer TableA Dim TableB TableA 0 Index Dim 1 IF TableB 0 Index Dim OR Rang A Tableof 0 Index TableB pleine ou Table A en queue dans Table0 THEN BEGIN Num B TableO 0 Index 1 TableB 0 Index 70 Inserer lableA Dim TableB Element Cle TableB fi Cle Element Index Num B Inserer Element Tabled END ELSE TableO Rang B Cle TableB 1 Cle SEEK Fitab Num B Fitab TableB PUT Fitab END BEGIN Classer Situer Libelle Tablel Rang IF Rang 0 THEN Rang el Num 2
112. aces sinitialisent alors simultan ment et le HELLO est install en D3 Une limitation le num ro de volume n est plus v rifi sur l Unidisk Un FID adapt nomm UNIFID est galement livr pour permettre les copies sur disques 3 5 Pascal 1 1 1 2 Les drivers livr s perrnettent Pascal 1 1 de reconnaitre deux Unidisks comme tant les volumes 9 et 10 de 800Ko chacun Pour la version 1 2 ce seront les volumes 19 et 20 Un nouveau FORMATTER livr autorise le formatage des disques 3 25 e 6 5 CP M 2 23 2 20B Le driver n cessaire est install par lex cution dun programme lors du d marrage Pour CP M 2 23 les Unidisk seront les volumes C etD E et F pour la version 2 20B volume Chaque Unidisk comporte 788Ko Un programme de formatage est galement livr Speedisk Gr ce a Unimate il est possible d utiliser la carte Ram Speedisk sous DOS 3 3 La carte SP1000 de 1 m ga octet se trouve alors reconnue comme les Unidisks on dispose de deux lecteurs virtuels de 400 Ko sous DOS 3 3 Place faite au DOS et au catalogue qui accueille 216 fichiers il reste disponible 2 fois 376 832 octets pour les fichiers sur la carte Un plus pour les applications allergiques ProDOS Unimate est distribu par Alpha Syst mes 29 bld Gambetta 38000 Grenoble Effectivement l Apple ne consid re pas que la carte contr leur de l Unidisk 800Ko est susceptible de le faire
113. an r m ws saa wam oa w w m r MACRO CollRes ID Genre CLR L SP MOVE W 1D SP _Get Genre CollPhrase Register stacx based macro pour les ressources de type STR LL LL m wm um mm wm mam GER oz m m m m G m mm a m s Macro permettant la collecte des pointeurs sur les phrases d une liste STR Handle dans AQ No dans la liste dans DO qui sert aussi de compteur STR Ptr sur la pile Utilise aussi Di MACRO CollPhrase donne Ptr phrase MOVE W 2 01 longueur des phrases MOVEA L AO AO adresse AQ e100 ADDA W D1 A0 ptr phrase dans A0 MOVE B AO D1 long phrase dans D1 ADDQ W 1 D1 cause octet longueur SUBQ W 21 00 decrement du compteur BNE S 6100 sarrlv bonne phrase MOVE L A0 SP NO BOO 00 09 000 o i 009009090 ok 9000 00 9090900900 00 9009000909 00 0090 9000 00900 IF yaducalcul CALCUL sss s s s oo c c s s s s s s oooo ooo so e e macros les plus utilisees de SANE MACROS OFFICIELLES MACRO fX2X tendu tendu MOVE W 3 FEXT FOZ2X SP FP68K MACRO fX21 tendu entler MOVE W FFINT FOX22 SP _FP68K MACRO fI2X entier gt tendu MOVE W FFINT FOZ2X SP 51 52 _FP68K MACRO fmuli multiplication par un entier MOVE W FFINT FOMUL SP _FP68K MACRO fMulX Multiplication par un tendu move ffEXT OM
114. anks 1 ou 2 contiennent 16 lignes etles 8Ko 32 lignes En 128 colonnes les banks ou 2 contiennent 32 lignes et les 8Ko 64 lignes GT 1 et amp T 2 permettent de choisir le bank utilis Colonnage 128 256 Poke 10 0 Affichage en 128 colonnes Par d faut 256 colonnes Save page Call 37723 Pour sauvegarder un cran il convient d en transf rer le contenu de la carte 16Ko en 5180 par CALL 37723 puis de faire BSAVE PAGE A 5180 L 4000 Load page Call 37742 Pour charger un cran il convient de faire BLOAD PAGE puis d en transf rer le contenu en carte 16Ko par CALL 37742 VIRCEL programme de d monstration titre de d monstration le programme VIRCEL utilise la plupart des commandes de l cran virtuel I permet de cr er et de tenir jour un cran g ant de 128 18 colonnes par 96 lignes cran divis en cellules pour tenir jour un petit fichier d adresses par exemple La cellule est un rectangle d un nombre de lignes et de colonnes d finis la cr ation de l cran ce sont des cases dans lesquelles on peut stocker du texte volont Une cellule est constitu e d une ligne titre vid o inverse et de 14 20 lignes de texte Une ligne est constitu e de 1 a 39 caract res le premier caract re est en vid o inverse et 1l est inaccessible Le menu Chargement d un cran Le programme vous demande d entrer le nom de l cran voulu Pour charger l cran
115. aract res Escape en justification totale il faut changer tous les PSX 7 en PSX 5 et les PSZ8 en PSZ6 pour obtenir un centrage correct CREATION DE FILETS GRAPHIQUES AVEC APPLEWRITER SUR IMAGEWRITER Programme WPL FILET 0 VERI2 PSY X PSZ8 A saisir Faide AppleW riter Pour en simplifier le BCL PS2 1 comptage des espaces ont t replac s par des puces PGODEC1 PGOLI2 DEC PS 1 DEBUT PND PGOBCL PPR PGOVERI1 PPR FILETS AUTOMATIQUES R Coustal 87 112 PSRCALC PPR PSRBLANC PPR PPRQuelgues codes PCS SA o PPR PASO SA PPRliynes finesseee largeses smixtes PCS lt SA lt O lt PPR PGOAUTRE PPR 1l ooocod eeeeeeeee UN POT PPR 2 lt A gt lt B gt lt D gt lt P gt egnF e lt C gt 40 bz AUTRE F PPR 3 lt R gt lt I gt lt T gt 7G ITWZ jum 0 PPR 4 eeecekg occccccccccccccccl 54 HHDXB PPR PSX B P NTitre encadrer return filet seul A PSX 4 PCS lt SA lt lt PAS X B PGOLI1 PGOVERI2 PGOTITRE TITRE PSRPLACE 111 PINLongueur en caracteres B Fce A lt PSX B 0 PAS X B PSXO PCS B 0 COMPT DHH PGOLII F lt 2 lt lt A PSRPLACE B E FILET PINCode du filet C Fe ce PSRFILTR ER PCS lt C lt lt D PGOFILET INC PSX 1 PGOVERI2 PGOBCLO VERI1 PSX 1 PINune autre ligne plus courte O N BCLO F lt lt lt SA Poms n 32 O PLACE F lt lt gt JC JT gt lt PGOINC DOS 3 3 0
116. begin for i 110 100do begin Getmouse c il Ptinrect c casesfij then ncase i end quelle case ee em em SV X em em em Au em em Se lt s s Oh analyse des commandes el branchement veis les routines concern es var c point delai longint begin GetMouse c if PuinRect c commander 1 then begin efface remplit arilte sauve grilla end if if PtinRecl c commande 2 then sauve grille if PtIinRecl c commande 3 then begin HideCursor PrOpen PrCtiCatl iPrEvtCtlPrEvtAILO 0 PiClose ShowCursor end if if PUnRect c commande 4 then sortie true if PtinRect c commande 5 then begin if solflag ue than affiche_solution 3 else premier saisie numero end if prob leme ch 10 est C V 10 end bouton procedure Initialise initialisation begin procedure saisie myE vent EventRecord i initgral OtheP or openport gport filtre les touches clavier et affiche dans la grile PenPat black BackPat white begin FrameRect gPort portRect inRect gPort portRect Quelle case InsetRect inRect 1 1 il encours ncase lt gt then EraseRect inRect bedin TextFont NewY ork li myevent Message and charcodemask gt 96 then myevent message myevenl message 322 TextSize 9 inkey char myevent message and charcodemask GetFontinfo into case inkey of initcursor AZ begin sortie false eraseRecl cases ncase solflag laise P
117. ci que WordPerfect le g ant du traitement de texte sur IBM PC sappr te sortir une version pour le Mac qui va faire quelque bruit Avec des macro commandes un v rificateur orthographique et un dictionnaire de synonymes le multi colonnage l cran la c sure automatique la g n ration de notes de bas de page tables des mati res d index et de traitements did es Et surtout la possibilit changer des fichiers avec ceux cr s sur les IBM les Vax de Digital Equipment et les Data General Emploi Soci t de Recherche D veloppement en pointe dans son domaine 50 personnes offre Poste informaticien Bac 2 3 5 ans exp rience dont un an minimum en micro informatique pour Q mise en place d un r seau Macintosh AppleTalk 9 d veloppement d une base de donn es multi utilisateurs sur 4D formation du personnel Q r ponse aux besoins des chercheurs Possibilit d volution au sein du groupe pour un sp cialiste micro Contact St Clonatec M Mergu 1 43 42 43 88 Vous utilisez un Apple un Mac Vous suivez l volution de l informatique Les nouveaux produits ne vous chappent pas Par votre pratique de l anglais vous tes au fait des nouvelles d outre atlantique Vous pouvez consacrer quelques heures votre revue pr f r e crivez ditions Mev 12 rue d Anjou 78000 Versailles Pom s n 32 En France Talor d ja a
118. ctangle r var h v integer begin h r lefl r right r left StringWidth m div 2 V r bottom r lop fAsc Desch div 2 fAsc MoveTofh v i DrawString m end PutMsgj 44 begin mm nA Se em AR mr memes procedure boites affiche le num ro de la grille en cours begin SetRect commende 5 150 10 230 30 FremeRoundRecl commande 5 5 5 PutMsg gritle n sn commande 3 end boites procedure messages initialise et affiche les commandes begin SetRect commandel1 10 10 70 30 FrameRoundRecticommarxlel11 5 5 PutMsg Effacer commande 1 SetRect commande 21 80 10 140 30 FrameRouncRect commaride 2 5 5 PutMsgf Sauver commandel2 SetRect commande 3 10 40 70 60 FrameRoundRect commande 3 5 5 PutMsg imprimer comma nde 3 SetRect commande 4 80 40 140 60 FrameRoundRect commande 4 5 5 PutMsg Quiller commande 4 boiles end messages procedure remplit_grille affiche le contenu de la grille var i integer begin fori 1 to 100 do begin eraseReci casesfi case ericours i of 7 tinver rect cases i otherwise putmsg srcovrsfil caseslil end case er for i end r
119. dage de la couleur Une ligne cran est donc compos e de 40 octets 40 octets 7 bits 280 points l organisation de la page HGR est assez compliqu e car les adresses des premiers octets de chaque ligne ne sont pas en ordre r guli rement croissant ainsi le 4dl me octet au lieu d tre au d but de la deuxi me ligne est au d but de la 64 me le Sleme au d but de la 128 me ligne tout se passe comme si l cran tait divis en 3 zones de 64 lignes pour plus de d tails voir dans le ler num ro de Pom s l article sur lorganisation des pages graphiques e quoi qu il en soit on peut obtenir l adresse d un point par la routine Moniteur HPOSN F411 apr s avoir charg comme suit les registres X amp Y position horizontale du point faible fort A position verticale le r sultat est obtenu en lisant aux adresses 26 et 27 Images de type GS Paint Le mode de construction d une image de type GSPaint est plus simple e la r solution d une telle image est de 320 points horizontaux sur 200 points verticaux un point cran est cod sur 4 bits 16 couleurs 2 4 combinaisons de 4 bits e un octet sert donc coder 2 points et on a 160 octets sur une ligne adressage est on ne peut plus simple les 160 premiers octets pour la l re ligne les 160 suivants pour la 2 me ligne les 160 suivants pour la 3 me ligne etc e un cran GSPaint se compose donc de 32000 octet
120. de de de de d ada da dh FITT die de d da de d d d de da de dd cto de de de dd de de qe 1 D0 bne V e0 addA 3 Extd Lo SP RAN LUNE 6 SOLEIL tfitttttttt t ttt LLLE Coordonn es Relatives de la Lune 810 lea lea adr lignes trigo de alfa SinMin A0 VectLun Al vecteur faire tourner bsr W RotAlfa OpBin VectLuntvv LunI v X2I OpBin VectLun hh LunI h X2I Calcul de toutes les Coordonn es Absolues lea moveQ move L move mulS divS Luni AO 44 D1 40 00 DO 02 HE11 D2 VE11 D2 compteur 49 move D2 D SWAP De add Axe v DO SWAP Do add Axe h DO subo 1 D1 beq S 820 C ese fini move L A0 2 Lo A0 move L D A0 addA 2 Lo A0 bsr W RotVect90 bra S e10 620 move L D A0 RTS DessAutour x DESSIN ee sc ec e c ceecc c codo voovc des sedesa CADRANS amp AIGUILLES H HHtik emp M L A3 A4 D3 D4 Sauvegarde Initialisations emp L A2 _SetPort moveA L CadrHndl A0 moveA L A0 A3 Se a 40 V ae age a adresse du bmap lea BitMapRec A3 A0 adr de la bitimage move L A0 BaseAddr A3 la bonne place lea pa A4 zadr dims aiguilles move NFus D3 compteur move L Pivot D4 pour la translation subA LR Lo Wo SP Rect Hndl type Boucle 20 collecte du rectangle F move D3 DO bsr W GetRect cadran r t tb gt t bot t t move L TopLef t SP DO add L Bounds BotRight A3 D0 sub L Bounds Top
121. e Envoyez ce bon et votre r glement ditions MEV 12 rue d Anjou 78000 Versailles Nom Adresse Sy rr R glement par Carte Bleue VISA amp Cheque bancaire Ch que postal C Mandat L num ro de la carte date d expiration __ Montant esi S gnature Programme de transmission InterPom s Ce programme d crit dans le num ro 31 vous donne la possibilit changer a distance via Minitel et en local des fichiers de texte entre Apple Macintosh et IBM PC Entre deux machines de m me type tous les fichiers sont transferables Applications polices de caract res accessoires de bureau commandes documents graphiques etc Je d sire recevoir InterPom s pour Apple disquette 140Ko 525 45000F InterPom s pour Apple disquette 800Ko 325 1 45000F InterPom s pour Macintosh disquette 3 25 45000F InterPom s pour IBM PC _ 450 00 F pour les envois par avion ajoutez 15 F par disquette Envoyez ce bon et votre r glement Editions MEV 12 rue d Anjou 78000 Versailles Hn es C Adresse A R glement par Carte Bleue VISA O Ch que bancaire ET Ch que postal L Mandat UJ num ro de la carte date d expiration A 5 Damp Age eg m Montant Tu oignature Depot legal septembre 1987 ns d impressien 789441 Ss oe o ee p
122. e fabrication de logiciels dont elle pourrait toutefois devenir action naire minoritaire a suscit quelques remous aux Etats Unis Il s agit en fait de contrebalancer la position dominante de Microsoft En Europe une unit de programmes strat giques se charge d aider les d veloppeurs de logiciels On peut d ja discerner les cr neaux qu Apple va tenter de favoriser En premier lieu bien videmment la publication lectronique en second lieu les langages de programmation Et puis toutes les applications tirant parti de la puissance et des caract ristiques exclusives du Mac II Ainsi il faut sattendre voir encore davantage de logiciels de CAO et d architecture C est que comme le remarquait r cemment une revue de CAO am ricaine TEurope occupe dans ce domaine une position privil gi e Bien que le nombre d architectes rapport aux habitants soit plus faible de ce c t ci de l Atlantique Enfin seront privil gi s tous les programmes Scientifiques permettant d implanter le Macintosh dans des bureaux d tudes ou au contr le de production en usine On n a pas fini d en voir Et de toutes les couleurs gr ce la mar e montante des crans polychromes pour le Mac H Traitements de texte gogo Tandis que les utilisateurs de Writer Plus continuent se d soler des bugs sauvages d un programme par ailleurs g nial Word sest impos sur le march Peut tre pas pour longtemps Car voi
123. e z donc Accumulateur retenue le BIT est mis de cot dernier BI DE LA COULEUR D UN PIXEL LDA BNE CMP BEQ LDA CMP BEQ LDA CMP BEQ LDA CMP BEO BNE CMP BEQ LDA CMP BEO LDA LDA BIT2 00 EGUN BITI 00 NOIR BIT3 00 NOIR RANG 02 IMPAIR COUL 00 VIOLET BLEU COU L 00 VERT ORANGE BIT 01 BLANC 4173 01 BLANC RANG 01 PAIR IMPAIR 15 06 10 04 03 00 Bit du z Bit du z Bit du Bit du Bit du les 16 codees NOIR MARRON ORANGE e x x x x HGR pixel etude pixel precedent pixel suivant pixel precedent pixel suivant couleurs GS PAINT sont Comme suit O GRIS FONCE 1 2 VIOLET 3 BLEU FONCE 4 VERT FONCE 6 ROUGE 7 ROSE 8 JAUNE VERT CIAIR 10 BLEU CLAIR 11 MAUVE 12 BLEU MOY BLANC 15 Dans les LDA ci contre vous pouvez remplacer 6 par 7 10 par 13 GRIS CLA R voire des valeurs de Couleurs totalement diff renres n 5 1 F RECONSTRUCTION D UN OCTET GS PAINT a RECONS LOA FIRST premier pixei de l octet ASL ASL ASL ASL STA OCTET CLC LOA SECND second pixel de l octet ADC OCTET STA LO DS Y HI DS LO DS adresse oct INC 20 05 GS PAINT reconstitu LOA LO DS BNE RETOUR INC HI DS RETOUR RTS CALCUL DE L ADRESSE DU PREMIER OCTET D UNE LIGNE HGR ADRESSE LDA PY LDY 00 LDX 00
124. e qui aide ne pas accorder elle s est complu et accorder elle s est abstenue par exemple Le programme propose aussi une aide la conjugaison des verbes qui conna t les fortnes d fectives ventuelles les doubles formes et les participes invariables du type succ d Le dictionnaire Surtout incomplet le petit ET ya duyum Laan Rjouter eu dictionnaire m Arr ter la Correctlon L Larousse ne permet pas de satisfaire les besoins de chacun Orthogiciel permet de d finir un ou plusieurs dictionnaires utilisateur pour y inclure le jargon de telle ou telle profession Chaque dictionnaire additionnel peut contenir 500 mots et on ne peut utiliser qu un seul de ces dictionnaires la fois Et les accents Orthogiciel bien que con u pour le Macintosh se plante syst matiquement si la z l e secr taire prend le soin d crire Etats Unis ceuvre CEuf Atre au lieu de Etats Unis oeuvre Oeuf Atre Idem pour les ligatures fi et fl le programme pr f re nettement fichier fichier C est bien regrettable car bien utilis le Mac produit une typographie de qualit dou e de C et autres O Ca marche ne marche justement pas Mots d fectifs Tout le francais ne tient pas sur un disque et le choix n a pas d tre ais Toutefois des mots d usage fr quent manquent l appel logo convivial d codeur positionnement picots r util
125. e 0 a 255 la variable HTVIR repr sentant le num ro de la colonne L cran 1 est localis par les coordonn es du point A qui est le coin sup rieur gauche de cran physique Le point B localise l cran inf rieur droit qui a les coordonn es maximales pour la fonction d affichage L cran 128 colonnes se pr sente ainsi 88 127 Dome n 32 H Roy ContandW Les commandes Les diff rents param tres transmettre sont des variables Basic ou des constantes A AZ A 25 A 25 Pour la pr sentation ci dessous les variables ont la signification suivante LD Ligne d but CD Colonne d but Vi VIVIR HT HTVIR LF Ligne fin CF Colonne fin L Toutes les L lignes C Toutes les C colonnes 255 216 ecran 2 Home SH LD LF CD CF Effacement de tout ou partie de l cran virtuel Les 4 param tres sont obligatoires pour effacer tout l cran 1l faut 256 col amp H 0 47 0 256 128 col H 0 95 0 127 La fonction effacement ne change pas affichage physique Copy SC VT HT Cette fonction copie cran physique de telle facon que le point VTAB 1 HTAB 1 soit plac en VT HT sur l cran virtuel Le programme contr le que VT et HT ne d passent pas les coordonn es du point B Window SW VT HT Fonction inverse de la pr c dente on place la fen tre d finie par VT HT sur l cran physique M mes contr les Print SP VT HT Imprime
126. e Creer WRITELN Modifier son nom r READ Test WRITELN IF Test C THEN Creer END UNTIL Test lt gt M 1 CLOSE Fich RESET Fich Nom fichier 31 7 F TORESULT lt gt 0 THEN BEGIN WRITELN traitement impossible READ Choix Erreur TRUE END ELSE BEGIN Fin Fich Der article CLOSE Fitab RESET Fitab Nom table Tablel Fitab END END PROCEDURE Masque BEGIN PAGE OUTPUT WRITELN fiche individuelle nf Numero WRITELN I x GOTOXY 0 4 WRITELN nom WRITE prenom GOTOXY 7 WRITE adresse GOTOXY 0 10 VRITE code ville GOTOXY 0 12 NRITELN telephone END PROCEDURE Saisir VAR Reponse CHAR Chaine String20 PROCEDURE Lire X Y L INTEGER VAR Champ String 20 VAR Donnee STRING 21 BEGIN GOTOXY X L Y EWRITE GOTOXY X Y READLN Donnee IF LENGTH Donnee L THEN Donnee COPY Donnee Pe 1 2 IF Donnee lt gt THEN Champ Donnee GOTOXY X Y WRITE Champ CHR 29 teffacement fin de ligne END BEGIN Saisir REPEAT Lire 14 4 20 Fich Nom Lire 14 5 20 Fich Prenom Lire 14 7 20 Fich Adressel Lire 14 8 20 Fich Adresse2 Chaine Fich Code postal Lire 14 10 5 Chaine Fich Code postal Chai ne Poms n 32 GOTOXY 20 10 WRITE Fich Ville Lire 20 10 20 Fich Ville Lire 14 12 20 Fich Telephone GOTOXY 14 16 WRITE accord O N
127. e buffer recevra le nom de chaque volume trouv par ON LINE avance ptr d un cren pour sauter le slash nombre d Unit s connact es le nombre trouv est de la forme dess tttt o tttt d signe le type de support disque souple dur gt on limine tttt code de ON LINE table des Dara met res erreur quelconque gt au suivant lit Je 1 er octet du buffer qui contient dess 1111 ou 1111 est la longueur du nom du volume 2 longueurs gales non oui gt Y longueur compare les noms de volumes demand et lu par ON LINE ils sont diff rents fini non out A dsss 0000 mission acc mplie unite suivante 2 oui non gt on n a rien trouv code de PATH NOT EQUND insulte e Gum NER pm em a lz bulle n cessaire au relogeur 34 rien param tres de READ BLOCKS ds 1 read params anop 31 3 unite buffer bloclu ds 2 tables et textes dc 11 550 ds 2 onlineparams anop de 4112 unitol ds 1 bufferol ds 2 mm GS muz rm GEO UM CN mg pm un uma wm HAS em A me om Gum cet Uum ma mF m GG m masa mm wm ma s em mm zm AD ee ss sss 2 3 paratt tres lecteur s5 di on y stockera l adresse du buffer brouillon de Propos numero du bloc lire 2 param tres num ro d unit seme buffer que pour READ s param tres de GET PREFIX et SET PREFIX occupes dc
128. e plus en plus puissant 10 Ne partirai pas x 1 Type de variable Op rateur logique 2 R cent Note 3 Inutile avec Mac Draw Fin de verke Invers Avait son si ge Geneve 4 Consonnes Bon pour le neurrisson 5 Embleme d un parti politique Grimpe aux arbres 6 Crainte Systeme de d tection 7 Ainsi soit il Symbole chimique 8 Monnaies europ ennes Monnaie d Europe 9 R cipient Axe 10 Enseignants Pom s n 32 43 3 A Programme Mots Croises Turbo Pascal PROGRAM Mols_Croises Roland JOST VERSION 2 0 Juin 1987 U T APPLMCO2 uses Memtypes Quickdraw OSintf Toollnti Packinif PasinOut MacPrint const System NewYork 2 type str15 string 15 CharArray packed array 0 4999 o1 Char var Nase fasc fdesc lin nombre enno integer textinlength textinllengih longint inRect E 1 arect brect Rect inkey char encours solution siring 100 chaine numero S nomgrille sn String C point cases array 1 100 ol rect commande afray 1 5 of rect mes array 1 4 of string 10 Line array 1 50 ol string 100 gPort GrafPort myEvert eventRecord sortie solflag boolean Textin Textin1 TextOut CharArray lO Fontlnlo Ed procedure PutMsg fm str15 r Rect ecrit la chaine de caracteres m dans le re
129. e qui mon sens me semble rarement atteinte dans bien des revues am ricaines auxquelles j avais l habitude de souscrire e Ic nes doit trouver sa place dans la biblioth que de tout Macintoshien qui se respecte Enfin des articles objecmfs qui savent faire la part des choses et qui ne portent pas Apple aux nues b atement Bravo continuez e Tai eu le plaisir de veir votre revue si visuellement passionnante et Je tiens continuer le plus longtemps possible C est pourquoi H m mE Adresses 3 Van H Code postal AA PE Professien i Ic nes vous d coit il suffit de nous retourner avant dix jours votre ler exemplaire pour etre int gralement rembours cheque retourn 4 4 OSPF HHO Ho Hoe HOM sore tl v dd ee e it Een c h fh l m Tirez le macsimum de votre Macintosh Cliquez sur Ic nes gt Bulletin d abonnement a renvoyer a Ic nes 135 bis rue du Faubourg de Roubaix 59800 LILLE OK Je clique sur ic nes Je m abonne pour huit num ros France 180F Etranger 250F Ci joint mon r glement par ch que eg NE Ee Satisfait ou rembours Pom s n 32 ne revue telle Pom s pouvait elle proposer des grilles de mots z Crois s sans proposer l assiette de l ordinateur L application pr sent e ici pennet de traiter sur l cran des grilles de mots crois s pr enregistr es elle pr sente le double avantage de
130. ec vous J ai un peu avanc depuis mon dernier courrier transfert de fichiers TEXT en RAM J ai transform le programme COPYBASFILES de Francois Dreyfuss paru dans le num ro 28 de POM S Pour transf rer des fichiers T XT en RAM il faut faire les Modfs suivantes 5 DIM L 40 OS 40 155 P RIGHT L I 12 156 O LEFTS P 5 162 BAS gt TXT 595 PRINT CREATE R L I 7 TXT 600 PRINT BLOAD MM L 1 T TXT A A00 700 PRINT BSAVE RSI S I T TXT A ADO L 0501 Tous ce passe bien mais rapidement j ai le message DIRECTORY FULL Exemple je mets 12 fichiers TXT en RAM et j ai ce message Pourtant CAT RAM me donne BLOCKS FREE 93 BLOCKS USED 34 Ou est le probl me PS que signifie le T15 a la ligne 90 Mercid avance pour votre r ponse Normal Le directory est effectivement satur pas le disque car il n est compos que d un bloc au lieu de quatre pouries lecteurs classiques Chaque bloc peut contenir 13 fichiers sauf le premier qui contient des infonnations sur le support et sur le catalogue lui m me il ne peut enrecevoir que 12 Sur votre Jecteur 5 25 pouces le directory est satur avec 51 fichiers 122134 134 13 51 La soluti on r side dans l utilisation de sous directory qui eux ne sont pas limit s en aille Pour en cr er un PRINT D CREATE RAM SOUS CAT T DIR T15 signifie type directory c est quivalent T F et TDIR 4 Pom s 41 De David BENSIMO
131. eh oui gratuite ment avec tous les Macintosh Certaines applications d j r alis es laissent entrevoir les utilisations de cet outil L une est un manuel de r paration de bicyclettes Lorsque l on clique sur une roue on voit s ouvrir une nouvelle fen tre d taillant la pi ce sur laquelle on a cliqu et ainsi de suite L autre est le manuel d utilisation de l HyperCard qui se pr sente l cran comme un bloc note illustr On clique sur le titre d un sujet ou sur une information qu on souhaite d tailler et la page se tourne pour afficher la lecon Tr s joli Rien Dome n 32 d tonnant si cet outil semble vou la recherche des millions d informations stock es par exemple sur un CD Rom laser Euvre de Bill Atkinson le p re de MacPaint Apple Hypercard est en fait un programme de gestion de docu ments utilisant des fiches cards et des piles stacks La program mation consiste tablir des relations entre cartes et piles gr ce des boutons des zones sur lesquelles on clique l cran Ces boutons sont cr s simple ment gr ce un menu contenant des outils il reste ensuite d finir l action provoqu e par un clic de souris l ouverture d une autre fiche ou gr ce un script s quences de commandes d un langage baptis HyperTalk et comprenant une cinquantaine d instructions la mise en oeuvre dune s rie d actions les programmeurs noteront qu on peut m me ouvrir
132. emplit grille procedure affiche solution affiche la solution de la grille var i integer begin for i 1 to 100 do begin eraseReclicasesl l case solution i 01 tinvertrect cases i otherwise putmsgisolution fi caseslil end case end for 1 solflag taise end affiche solution procedure affiche_orille g n re la grille 10 10 de mots crois s J var i j integer E A dee Pom s n 32 for la 1 io 10 do begin for i 1 to 10do begin SetReci r 270 20 1 20 j 290 2020420 j FrameRectir SetRect r1 271420 i 1 20 289420 1 19420 jy casas 410 j 1 r1 SetRect r1 270 20 j290 20 20 NumToStringtj chaine PutMsg chaine r1 for e 110 10 do begin SetRect r1 270 20 10 290 20 1 20 Numtostring i chair e PutMsgichain r1 end end faffiche grille Procedure laittextrecl var axrect bxrecl rect begin SelRecifaxrect 5 80 270 210 SetRect bxrect 5 230 507 330 aRect lett e axRect leli 5 aRect righl axRectright 5 aRect botlom axRect bottom 5 aRect top axRect top 5 bRect lefi bxRect left 5 bReci righl bxRect right 5 bRect bottom bxRectbotlom 5 bRect lop bxRect top 5 end Procedure laittextrect procedure rappel chargement d un probl me partir du disque et affichage des d finitions va
133. ere Frot 6 Opange 7 5 RETABLISSENT OU CHANGENT LES COULE MAGE EN E1 2000 Blanc Bleu moyen 14 Gris clair 15 HPOSN SF411 Source HGR SUPHGR S Zanen ProDOS Assembleur ProCODE GBASH 4527 a ntb AAA AAA MAR AAA AAA 2 apte AS 2 da E PROGRAMME TRANSFORMATION D IMAGES 13 axsa x HGR gt SHGR format GS 14 T Tomsoftware JUIN 1987 x ASSEMBLEUR PROCODE 12 ORG 59000 i BIG MAC Compatible 18 E161 r ry INITIALISATION DES ADRESSES m PY SEN z num ro de ligne PX FA num ro d octet dans ia ligne 2 LOA 2500 LO DS SED STA PY RI DS m SFE STA LO DS FIRST SEE STA MP OL SECND SEF STA MP FL CASE SFF q adresses de stockage STA MA OL OCTET 6 F des donn es LDA 20 BIT 18 pendant 1 operation STA MP OH COUL 7 BIT codant la couleur STA MA OH RANG z 8 2 paire impaire LOA 40 BITI m 8 F CU E Ta STA MP ER BIT2 z SCE 5 B A tage LOA 6510 s L image GS sera stock e BIT3 e SCH pixel d apr s STA HI DS partir de 1000 en Mem princ MP OL 3c Origine de la MP OH 530 SONE d transferrer TRANSFERT IMAGE EN MEM AUX A MP FL 3E Fin de la zone f R MP FH S3F 2 transferrer MA OL 42 s Origine de la SEC Retenue a 1 pour transfert de MA OH 943 e zone destination JSR AUX MOVE la Mem Princ gt Mem Aux AUX MOVE C311 PALETTE 8E00 BOUCLE SUR L IMAGE Pom s n 32
134. est dire le caractere dont le code ASCII dessinera le filet chague bit 1 de ce code tracera une ligne horizontale Vous pouvez essayer diff rent codes les caract res VU u g mpar exemple donnent de jolis filets le programme vous fournit guelgues exemples et vous pouvez une fois de retour au texte changer le caract re sil ne vous convient pas Si vous avez choisi encadrer un texte lt Retum gt seul en r ponse la demande du code du filet du bas conservera le m me code que pour celui du haut Les titres et les filets sont ins r s a Templacement du curseur dans 35 le texte et crivent le code JT d Applewriter pour remettre le texte en justification totale Vous pouvez changer JT dans le programme par JG si vous pr f rez la justification gauche Il existe toutefois certaines limitations on ne peut pas choisir des codes ASCII inf rieurs 128 et le code 255 du fait d AppleVVriter de plus WPL FILET intercepte les et Return caract res CTRL H et le parametre du soulign ne sont pas conseill s Saisie Un programme WPL ne peut pas d passer 2048 caract res WPL FILET tant un peu long on peut supprimer les espaces inutiles en t te des lignes en en conservant toutefois un avant chaque commande et les exemples de codes au d but Sauver ensuite en faisant CTRL S WPL FILET D autre part si votre Applewriter ProDOS est patch pour ne pas compter les c
135. eurs Bien entendu Pom s vous y accueillera Ce num ro Toujours en volution nous avons ouvert Pom s l assembleur ORCA M GS oblige au Turbo Pascal sur Macintosh et m me une grille de mots crois s objet d un petit concours Autre nouveaut votre courrier lectronique nombreux sont nos lecteurs qui 24 heures sur 24 d posent dans notre bofte a lettres CalvaCom questions remarques et suggestions deux pages de ce num ro en sont le reflet Pom s se veut une revue complete et vari e et le pari est encore gagn pour cette rentree trois bancs d essal deux commandes externes ProDOS un tonnant cran virtuel en DOS 3 3 deux programmes Pascal un petit montage lectronique pour d tecter la sonnerie du t l phone un programme WPL Deux mois entre chaque parution ce n est pas si long pour tout exploiter Herve Thiriez HOtre propos est 3d apporter ici une solution pour trans former des images SS haute r solution Ni images classiques Sur Fla gamme Apple L J e c en images de type GSPaint Les systemes de codage de ces deux types d images sont tr s diff rents Images classiques e la r solution d une image HGR classique est de 280 points horizontaux sur 192 points verticaux un point cran est cod sur 1 bit allum teint e un octet sert coder 7 points sur les 7 bits de plus faible poids le bit de poids fort servant au co
136. gG 64 AC 01 62 85 Gg 04 09 ES 90 BF 40 00 6C 8C 65 04 65 6F 20 65 6 5 75 ac 65 eD 8 6 A8 A7 8D 3E ED 65 EE 6A 61 A9 c 65 65 8D 8D 07 03 09 8D 93 65 6D Bi 63 06 DE 64 C9 BE 8D 9A 8D 64 dE BE AF 8D 20 8D BE 49 20 8D 65 67 AD 6B BE 65 65 65 6A 65 SE ED 65 65 65 00 AC 8D oF 60 12222 e programme ajoute une commande COPY ProDOS En effet cette um commande non implant e d origine lui fait cruellement d faut car il faut avouer qu il est plus pratique de donner un ordre directement au clavier plut t que sortir son copieur favori Cette commande servira pour recopier un fichier texte volumineux d un disque un autre par exemple Mode d emploi Cette nouvelle commande est disponible au clavier ou par programme apr s avoir tap BRUN COPYOU GOP L sous ProDOS exclusivement La syntaxe de la est la m me que celle des autres commandes ProDOS a savoir COPY chemini chemin2 Cheminl est le chemin d acc s pathname du fichier source chemin2 celui du fichier de destination par exemple COPY bureau dessier client archive client Si le nom du volume est omis le programme prendra le lecteur par defaut cest dire celui que ProDOS utilise quand on tape CATALOG Cette commande externe permet la copie de tous types de fichiers system text AppleWorks binaires
137. geant chaque fois le sens de rotation Dragon Cette courbe illustre ce que l on obtient en pliant une bande de papier un certain nombre de fois 2 par exemple gt et en la d pliant de facon que chaque pliure forme un angle droit ce qui donne la courbe Pom s n 32 A noter que les ordres propos s pour cette courbe vont de 1 6 mais que l ordre r el va de 2 12 par pas de 2 Courbe de P ano Le p ncipe est le suivant u segment est rei a 0 par et chaque petit segment obtenu subit le m me traitement On obtient une courbe ferm e en appliquant cette m thode un carr et la courbe obtenue tend remplir un autre carr H las la haute r solution de l Apple est bien vite prise en d faut La courbe de Sierpinski traduite d un programme en langage C paru dans Micro Syst mes elle utilise 4 proc dures mutuellement r cur sives pour calculer les coordonnees de chaque sommet Hexagone Un hexa gone qui contient des hexa gones qui contiennent des hexa gones Dentelle On partage un carr en 9 on inverse la couleur du centre et on recommence sur chaque petit carr Sylvie Gallet Carr s Un carr dont les sommets sont prolong s par des carr s plus petits dont les sommets Impression Si vous disposez d un programme de dump sur imprimante il vous suffit de le placer en librairie Dans le cas contraire toutes les in
138. hiers TEXT nomm s GK LEE GRILEE 2m Leur contenu doit tre le suivant e une chaine de 100 caract res o sera stock e la grille en cours de remplissage e 1 retour chariot e 1 chaine de caract res contenant la solution du probl me Les cases noires sont repr sent es par des points e 1 retour chariot e 1 certain nombre de caract res pour les d finitions horizontales e 1 retour chariot e 1 ast risque e 1 retour chariot e les caract res n cessaires pour les d finitions verticales 1 encadr donne un exemple de fichier Exemple de fichier exploitable par Mots croises Pour plus de compr hension les espaces ont t mat rialis s par des Un tel fichier peut tre constitu Vaide d un traitement de textes sauvegarde avec l option texte seul See ee eege ee ee Se ee e ee See e e e e ee a e KH KW eee td a D e H L m m D INTERPRETENCE OE CUBTU SU UBUEVITERA S CGERS M MAEA E Ee E ie e ESE OTRU LION YE NAAN LEUORDINATEURRESTERAI S 1 Parle plusieurs langues 2 Patriarche Cardi naux Noble invexs 3 Cach Appris Pere de comedie 4 Feras un detour 5 Riviere de France Possessif 6 Voyelles Un langage francais ui a eu bien peu de succ s Centre de vote 7 Petit ruisseau Le roi des a nimaux Debut de monnaie 8 de Nathan Vieux loup 9 B
139. i est automatique Ses plus e linstantan it du passage d un outil un autre par ouverture si 41 es ce n est d ja fait ou activation de fen tres la convivialit tr s pouss e la Macintosh du passage par le Presse papiers La liaison avec d autres logiciels Elle peut se faire de trois fa ons e par le truchement du Presse papiers comme entre les fonctions de Works e par lecture ou enregistrement sous forme de texte seul pour les logiciels qui comportent cette possibilit mais les options de formatage sont perdues ou sous certains formats particuliers par exemple SYIK e en utilisant le module de communication pour les logiciels Macintosh ou ordinateur tiers qui disposent eux m mes d un tel module ou peuvent en utiliser un Ses plus e de nombreuses solutions possibles dans lesquelles on peut faire un choix en fonction du probl me traiter e la grande facilit d usage des liaisons par Presse papiers ou module de communication Ses moins e la n cessit si on sort des options simples de bien comprendre la structure des documents produits par d autres logiciels format caract res de contr le mais ce n est pas propre Works surtout c est l que se fait durement ressentir lincompa tibilit de Works avec l Album En r sum Pour Un logiciel pour lequel on est parfois tent d utiliser l adjectif g n
140. ial en particulier pour son module de communication sa fonction de courrier personnalis et la facilit de commutation et de liaison entre outils Une tr s grande facilit d utilisation parfois au d triment de la puissance mais jamais au d triment de la rapidit Contre Quelques lacunes regrettables comme l absence de colonnage dans le traitement de texte ou de fonction de date dans le tableur Et surtout l incompatibilit avec l Album g n rant une bombe et une grave erreur syst me Un bilan tr s largement positif Works peut fort bien tre le logiciel unique pour les besoins courant de la piupart de ces travailleurs du savoir chers nos amis d Apple certains d entre eux tant amen s par ailleurs utiliser des logiciels sp cialis s de leur profession ou de leur technicit sP N Es S N 8 RSS EIG 87 Leone 13 terne H R Le journal du Macintosh Gagnez un disque dur 20 m gas en lisant vos ic nes d or More Altar s Ready Set Go 3 Tops Turbo Pascal Xyphus Pour tre s r de ne rater aucun num ro abonnez vous Le reseau AppleTalk je m abonne Ul Ce qu en pensent les lecteurs C est avec plaisir et int r t que je lis Ic nes dont la plus grande qualit mon sens est Fintelligibilit pour un profane curieux Ter ettez moi de vous f liciter pour la tres haute qualit r daction neDe de votre revu
141. iod YrzEshy moveA L A4 A1 DCEPtr pour JIODone dep A L Ad restauration moveQ 0 D0 return no error emp L jIODone request trait saut IODone RTS amp EVENEMENT ee esse o o slan aT z ejes cc doCtlEvent ROUTINE PRINCIPALE 6 BRANCHEMENTS emp L A2 Sauvegarde moveA L csParam A0 A0 sur l v nement moveA L EvtMessage A A2 NindowPtr move EvtNum AO DO num ro v nement SSI I W updatEvt D0 MAJ mise jour CtlEvtDone zrestauration YrzEshy dep A L A2 bra S MAQ MISE A JOUR ses sense sense entr e DialogPtr A2 emp 1 2 _BeginUpdate emp L A2 _DrawDialog bsr W emp L A2 _End pdate bra S CtiEvtDone ACTION PERIODIQUE v v coooo eoooe o cos ActMin x MECANISME eeeeeeecccccecccsweecccoosvececececceoccccecoe DessAutour bsr S CalAig bsr w DessAutour bra S YrzEshy SOUS ROUTINES SRSRRESRRERRERRRERRERRRRRRERRERRRRERRRER CalAig CALCUL DES POSITIONS PREPARATIFS tt ttttttttttttHttttttttttttttttttt tt ttt t am bsr W GetTime Pom s n 32 POSITION DE BASE Tttrttr trttttttt moveA L dctiWindow A4 A2 subA 3 4 9 sangle vecteur Grande Aiguille moveA L SP A0 lea move ga Al sadresse du r sultat Lga DO longueur bsr W Gra
142. ion de n importe quel type de fichier systeme texte 280 s M37 ie Mocem du Minitel Programme publi dans le num ro 28 de Pons nterPom s pour Macintosh m me programme mais version Macintosh Programme publi Gans E aumen Fons TPom s pour Apple e e c et GS programme de r cup ration de l annuaire i sas forme ce fichiers texte Voir page 53 du num ro 30 TPom s pour Macintosh Identique la version Apple Voir page 42 du num ro 30 ce programme est pr vu pour fonctionner avec une carte Super S rie Apple le port s rie int gr de Aze NGS me Game pas Toutefois si vous d sirez utiliser le port int gr afin d y connecter le Minitel pour d autres app catix e commence un cable pow Macintosh Plus sur un Apple IIGS TPom s fonctionne indiff remment avec le port s rie int gr ou la carte Super Arne Sor ces le port int gr du l GS utilisez un cable pour Macintosh Plus Jed sire recevoir cable Minitel Apple 4 e e lles avec SSC 22500F cable Minitel Apple c _ ad 2 cable Minitel Macintosh 128 amp 512Ko WEM EBENE cable Minitel Macintosh Plus 155 port int gr _ 22500F cable Minitel IBM PC 22500F cable de liaison locale Apple 225 00F m pr ciser le type des deux machines relier Mac 512 Mac Plus Apple c IIGS IBM PC pour les envois par avion ajoutez 15 F par cabl
143. ions personnalisables etc Au sommet des programmes d dition le match s annonce passionnant entre PageMaker et XPress de Quark vendu chez nous par P Ing nierie Disons simplement en r sum que Pom s n 32 XPress gr ce sa cr ation obligatoire de r serves pour le texte ou l image peut tre plus facilement manipul par quelqu un n ayant aucune notion de mise en page mais pour qui Von a pr d fini des gabarits En revanche PageMaker qui accepte n importe o des textes ou des images sans que l on ait besoin de le sp cifier se r v le souple et particuli rement rentable aux mains d utilisateurs imaginatifs L arriv e de Scoop pourrait encore agiter ce nouveau secteur en plein d veloppement et ou le Macintosh tient toujours le haut du pav L avenir L ann e 1988 se r v lera cruciale pour Apple Si la firme de Cupertino sait bien utiliser ses arguments et tendre ses positions dans des domaines 00 elle est en pointe elle peut profiter de l instabilit instaur e par la rupture de standard du monde IBM H ne serait pas tonnant d assister dans ce d bat une alliance entre DEC le sp cialiste num ro 1 des mini ordinateurs et Apple pour faire la nique au g ant IBM On constate d j un grand nombre de connections r alis es entre des Mac et des VAX de DEC apparition de cartes permettant de relier les Mac aux r seaux Ethernet avec notamment le logiciel 3 COM Plus es
144. is Le programme sarr te galement sur surnatalit num ris e cr nage enfiche occlusives salvateur compilez G n rer est bien dans le dictionnaire Orthogiciel mais les formes conjugu es g n r g n re g n rant ne sont pas reconnues Plus curieuse est la scission al atoire de certains mots proc dures position caract res sont parfois reconnus comme pro c dures po sition ca ract res d ou arr ts fr quents et inutiles de la v rification 53 NAN INAN equ 38 x NANINIT egu 255 Sulte de la page 52 54 En cas de c sure avec trait d u nion comme ci dessus le mot union n est pas reconnu mais g ne est minime A l usage Dot de la fonction renvoyer sorte de copier coller Orhogiciel est souple d emploi Un menu propose l aide la conjugaison un g n rateur de pluriel et l aide la correction par une recherche simplifi e dans le dictionnaire Il est assez rapide et m me tr s rapide en consid rant limpor tance de la recherche Le d faut le plus p nible supporter apparait lors de la d tection d une faute une fen tre s affiche avec un extrait de la phrase le mot en cause et neuf boutons de contr le Le drame est que cette fen tre disparait et r apparrait chaque d tection d o un fatigue visuelle d s la S me faute et la migraine la 10 me Pourquoi ne pas avoir opt pour deux fen tres en haut et en ba
145. it une r solution sup rieure 400 points par pouce se rapprochant encore davantage des machines imprimerie profes sionnelle En bas de gamme de laser on attendait une machine Apple Surprise cest General Computer gui a sortie Baptis e Personal Laser Printer cette imprimante vendue 2 600 dollars aux Etats Unis pourrait arriver en France aux alentours de 26 000 Francs Elle ne poss de pas le langage de description de page PostScript ce qui exclut actuellement de pouvoir utiliser avec le pro gramme Illustrator d Adobe On peut cependant imprimer des documents r alis s avec PageMaker qui s est v ritable ment impos comme un standard dans l dition lectronique dont nous allons parler plus loin En attendant on travaille bien videmment chez Apple toute une salve de nouveaut s On a ainsi entendu parler dun Mac SE qui pourrait inclure un cran couleurs voire la carte du Mac II avec un seul connecteur d extensions d un SE qui serait vendu l inverse sans cran etc Il est s r qu une quipe travaille sur un micro ordinateur quip d un processeur 68030 On se rapproche peu peu du pari de John Sculley qui voudrait offrir un micro ordinateur offrant une puissance de 100 Mips Millions d instructions par seconde c est dire la puis sance des volumineuses unit s centrales d aujourd hui et ce avant l an 2000 C t programmes la d marche d Apple de cr er une filiale d
146. l l devent gequ 8 31 nombre de lecteurs sta adr i out put gedu 9 1 octet haut adresse du P riph de sortie ldy length datesys gequ SBFW date courante jsr calcul rsuivant lda length on passe 1 instructicn suivante long gequ fin debut 100 longueur du programme a reloger sec avec pel pci length ade pcl EA A a an xam MAZA EEN sta pel relogeur lda pc1 1 SE E TERT ade LO Pom n 32 1 29 rfin test out nen calcul none adresse te Ma a M Be t ta a sta sec sbc idx sr bes lap res bec bne cpx bes elc rts sec rts dey ld t x iny lda sec sbc bce jsr bes ade ta cic rts sec rts ds 1 ds SFF jadresse lnit fonction de XCAT pcisi adrasse pc test rfin rdecode tofin debut oui non tefin debut adr Y gt d8 but none test nonc adresse adr y distance pci adresse stock e dans A NSB et X LSB distance gt longuerr du progranne oui gt on a fini non A lt nbre de pages du programme oul non et A gt nbre de pages gt en dehors du pregranse on est dans Ja de n re page X lt po ds faibte de fin non gt en dehors du programme dans les limites partie basse de l op rande partie haute de l op rande cart en pages entre adresse et d but cart lt gt operande en dehors des adresses medifier cart gt 0 gt cart gt long
147. loc comporte octets 0 et 1 2 octets indiquant le n du bloc qui le precede c est le chainage arri re contiennent 00 00 si ce bloc est le premier octets 2 et 3 num ro du bloc suivant chainage avant 00 00 si ce bloc est le demier la suite du bloc est partag e en 13 entr es de fichier de 27 octets chacune il reste 1 octet inutilis La premi re entr e du bloc 2 ainsi que la premi re entr e de chaque premier bloc de sous catalogue contiennent des informations relatives la disquette ou au sous catalogue et sont l g rement diff rentes des entr es de fichiers Bloc 2 l re entr e octets 4 2A Elle contient l en t te du catalogue principal XCAT utilise les octets suivants 4 type de fichier 4 lers bits 0 fichier effac ou inexistant ou effac lt gt QY Mode d emploi Si vous n avez pas la disquette d accompagnement Pom s il vous faut saisir et sauvegarder le code XCAT La commande externe est disponible apr s avoir tap en mode direct XCAT ou par programme PRINT CHRS 4 XCAT Pour obtenir le catalogue tendu taper simplement XCAT nom de volume QU TET ss Dd s amp d tant le num ro de port et de lecteur Le listing peut tre suspendu et repris l aide de la barre d espace il est stopp par CTRL C Q QY D fichier sous catalogue E en t te sous catalogue F en t te catalogue e longueur du nom de la
148. lonnes il faut passer par l interm diaire de la fonction Transpose heureusement ais e mettre en uvre La fonction communication Ilest relativement rare de trouver aujourd hui encore une fonction communication int gr e un logiciel Celle de Works est la fois puissante et tr s commode 43 ESSAUS d emploi On peut d finir sur un cran les caract ristiques techniques de la communication puis envoyer ou recevoir des messages frappe directe au clavier des textes sans formatage des fichiers avec toutes les caract ristiques de formatage en texte ou en dessin ou graphique La raret des options communication fait qu il est difficile de parler de plus et de moins par rapport quoi Ce qu on aime la tr s grande vari t possible des sp cifications techniques e la possibilit de cr er des documents communications qui mettent en m moire les sp cifications et un annuaire t l phonique personnalis sous r serve de poss der le modem voulu la num rotation automatique la mise en r ception automatique e la facilit op ratoire Ce qu on n aime pas rien de particulier La liaison entre outils Elle utilise syst matiquement le Copier Coller quels que soit les outils entre lesquels on veut tablir un transfert de donn es sauf lecourrier personnalis r alis par une fonction particuli re e la liaison tableur grapheur qu
149. men eee A O O move longl turn 45 move long2 turn 45 z move longl turn 45 move long2 turn 45 z procedure dragon move long1 turn f 45 move long2 turn 45 e move longl turn 45 sens move long procedure d dessin ordre sens integer long real turn 45 sens var nouv ordre nouv sens integer end nouv long real end begin nouv ordre e ordre I begin nouv sens z sens 1 init bor 135 0 45 nouv long long 0 70711 if ordre 3 then if ordre 0 then long 56 move trunc long else else long 48 begin Tori 5107606 do turn 45 sens d dessin nouv ordre 1 long begin turn 90 sens d dessin nouv ordre 1 nouv long turn 90 p dessin ordre long 1 turn 45 sens end end readin end end begin 3 m A SS s t 2 ordre readin procedure slerpinski var h zz xy A procedure cote 1 fi 6 procedure cote 2 procedure cote 3 f 1 procedure cote 4 i begin if i 0 then begin cote 4 i 1 moveto x y y y 329 cote 3 1 1 moveto x y end end TU Se procedure cote 3 begin if i gt 0 then begin cote 3 1 1 moveto x y 4 X EEEX 2 n cote 2 fi 1 moveto x y end end procedure cote 2 begin if i gt 0 then begin integer integer integer integer integer x ze X th J z forward z z 2 r
150. ment sous ProDOS Il demande successivement les port et lecteur du volume original et du volume destination puis recherche les catalogues les cr e si n cessaire sur le volume destination et enfin ex cute les copies Si un fichier existe d ja sur la copie le programme affiche un message auquel on r pond par Programme COPIE TF PRINT 4 VWBEOADGOPY POKE 2576 3 6s POKE 25964 3 FOKE 257485 401 POKE 5660 9 BOKE 25861 190 CALL 2 4576 1 HOME s FOR I 0 TOM READ Z PORE 7 68 1 2 NEXT DATA 104 168 104 16 04223 198 2 152 72 36 2 ONERR GOTO 4000 5 DS CHRS 4 20 PRINT DS PREFIX INPUT APS 100 ONN OFNK zPF 0 BIM DES Christian Piard o le fichier sera effac et remplac N la copie de ce fichier est annul e s ce fichier et tous les ventuels suivants seront effac s et remplac s Pour une question de rapidit il est vivement conseill de reformater le volume destination avant copie Remarques Ce petit programme pourrait tre adapt pour faire des sauvegardes d un volume 800 Ko sur plusieurs 140 Ko par exemple ici le cycle de copie sinterrompt en ligne 4040 en cas de saturation du disque destination La commande externe COPY g re elle meme les erreurs et ne permet pas de les recuperer par PONERR Les POKES de la ligne 0 ont pour objet de d tourner les erreurs vers le vecteur BEO9 BEOB Errout de la page globale du Basic System ainsi un Du
151. n dernier l ment e soit dans la table de rang suivant si celle ci contient moins de D M 1 l ments sinon dans une nouvelle table dont la cl est ins r e son tour dans la table 0 Proc dures du programme Elles fonctionnent conune suit e MODIFIER sila nouvelle ci Programme U GESTABL differe de l ancienne celle ci est d class e puis la nouvelle est class e SUPPRIMER l ancienne cl est d class e puis une cl vide chaine est class e associ e au m me num ro d article Les articles supprim s peuvent tre rep r s par leurs cl s vides en t te des tables e AJOUTER sj les tables comportent des cl s vides en t te le dernier des articles vides est extrait puis modifi par substitution des nouvelles donn es lancien contenu vide Sinon un nouvel article est cr et sa cl est class e dans les tables Ainsi les emplacements des articles supprim s sont r utilis s automatiquement et le fichier n a pas tre purg Saturation Au remplissage les tables se saturent dans le cas le moins favorable avec alternativement une table a 1 l ment et une table DIM 1 l ments Pour viter la saturation le nombre d articles est plafonn a DIM DIM DIV 2 Ainsi dans P REPERT DIM 30 et le plafond est a 450 articles Mais en supprimant ou en modifiant des articles certaines tables peuvent se d gamir Pour viter une saturation pr
152. n entiere structur e en MSBASIC et ZBASICTM foXPWRY equ 8012 exponentiatlon g n rale STRUCTUREXPERTM vous permet de E 3 nu ENEE disposer d un ensemble d analyses qui o equ annuity NIE 2 da ah Pad cmm peuvent tre visualis es fen tres foCOSX EX S00TA Kcosinus scrollables sauv es s par ment sur foTANX equ 001C tangente tichiers ou imprim es 1 equ 50018 Arctangente Arborescence compl te descendante foRANDX equ 0020 nombre al atoire et ascendante des appels GOSUB et NaN codes CALL Listes tri es sur plusieurs types de ki equ crit res des GOSUB et des CALL equ R e ation Edu A statistiques fr quence d appel de NANMul m 8 chaque routine NANREM equ 3 D tection d erreurs logiques boucles peca equ 17 non contr lees r cursivit ill gale M egu 20 nos omm Ss E labels et routines non utilis s NANTRIG equ 7 NANINVTRIG equ 34 STRUCTUREXPERT 495 F TTC 20 de port NANLOG equ 36 Paiement par CB ou ch ques adress s a HANRORER i Q S 149 rue Oberkampf 75011 PARIS T l 1 42 49 3795 Pom s n 32 Programme COPY Apr s avoir saisi ce code seus moniteur par 4 BSAVE C PY 6000 6008 G L 6018 6020 6028 6030 6038 AR 6048 6 0 50 6 58 6060 FFO 6070 6078 6080 6088 6090 6098 60A0 028 60B0 6058 6060 60 8
153. ndAig Petite Aiguille moveA L SP A0 lea move pa Al sadresse du r sultat Lpa DO longueur bsr W Pet tAig petite aiguille en tendu cce multiplication du vecteur unitaire orthogonal par la longueur calcul rotati pea pea MulI pea pea fMull w N emm on mm mm om A S AD a a an eee q Lpa Extd vv Lo SP Lpa Extd hh Lo SP reste pa en tendu sur la pile l espace on de 90 dl emm TD a Gum A A A A GU A A A emm A A A A A aum amm cum cum m dessous dessus milieu dessus pea pea fX2X Extd hh SP Lo SP dessous pea pea X2X milieu pea pea 2 2 Extd vv SP Extd hh Lo SP 7 c SP s Extd vv Lo SP remplacement l orthogonal AUTRES POSITIONS Boucle 20 fMull 1 1 SP SP Extd vv Lo SP on fait tourner le petite aiguille de pi 6 Initialisations lea move lea Extd SP Al adr vecteur tourner pea pa place results int o pile NHeur 1 D0 compteur Sin5 A0 adr lignes trigo de alfa bsr W RotAlfa transferts 44444 HH AHHH HAHAHA moveA L SP A0 addA move OpBin Extd tvv Lo SP v A0 X21 OpBin Extd hh Lo SP h A0 X2I fini 590 Lo A0 AO SP ir sin d x r cos d x eee bee de de de d
154. nserver des gabarits d tats Ses moins e pas de vue pr alable des tats a Vecran seulement les r sultats des totalisations e la limitation de la longueur d un champ nom contenu A une ligne de Tecran Par ailleurs il ne faut pas perdre de vue que ce gestionnaire est mono fichier Poms n 32 Le courrier personnalis En associant un texte avec un fichier ou plusieurs on peut cr er ais ment un syst me de courrier personnalis travaillant sur tout le ou sur une s lection du fichier Il suffit d indiquer en position les rubriques des fichiers utiliser lors de l impression par choix dans une liste de rubriques pr sent es cran Ses plus e une facilit extraordinaire d utilisation e la possibilit de voir l cran ce que sera exactement tel ou tel document imprim lenregis trement o se trouve le curseur tant utilis pour cette vue pr alable Ses moins on ose peine le dire le fait qu il faille redemander option de pr paration pour chaque champ A int grer dans le document de traitement de texte Le tableur Sa parent avec le c l bre Multiplan et peut tre plus encore avec Excel deux logiciels sign s Microsoft est vidente Sa capacit est de 230 colonnes et de 9999 lignes ce qui est tr s confortable On y trouve une large panoplie de fonctions un travail en r f rences absolues ou relatives internes o
155. oire disponible environ 36 Ko il peut donc tre saisi en une seule fois confort non n gligeable si un commentaire est plac apr s une instruction le point virgule n est pas obligatoire anop permet de ne pas crire d instruction apr s un label anop ne g n re pas de eode c est l quivalent de pour LISA e keep xcat le code g n r est sauvegard automatiquement sous le nom xcat quivalent du DSK de ProCODE e lt et gt signifient respec tivement partie basse et partie haute ds n r serve n octets en m moire et les initialise z ro de il nl n2 mp d finit les entiers nl n2 np chacun sur un octet Poms n 32 dc i2 label entier label est stock sur deux octets bas haut Cette instruction permet de stocker l adresse label c chaine d finit la Cha ne de caract res cha ne bits 740 e les instructions implicites ASL LSR ROR ROL doivent tre Suivies de A Le fonctionnement de XCAT On commence par v rifier si la commande est bien XCAT sice n est pas le cas on en fait cadeau aux ventuelles autres commandes extemes e si c est pour nous on demande ProDOS d analyser les param tres qui peuvent tre soit un nom de volume soit un num ro de slot et ou drive e si un nom de volume est demand on utilise ON LINE pour savoir dans quelle unit il se trouve Sil existe on met le num
156. oix1 0 AND Sature PALSE DO BEGIN IF Tablelf1 Cle effacees THEN BEGIN Reperer Declasser END ELSE BEGIN Fin Fin l Numero Fin END Effacer Masque IF Choixe a THEN Auto pour essai f ELSE Saisir SEEK Fich Numero PUT F ich Synthese Fich Nom Fich Prenom Cle 1 SEEK Fich 0 Eich Der article Fin PUT rif en Classer Cle 1 Numero IF Fin lt Plafond OR Tablel 1 Cle THEN Sature FALSE ELSE Sature TRUE IF Sature THEN WRITELN fichier sature ELSE BEGIN GOTOXY 14 18 WRITE fiche suivante O N 25 READ Cho ix1 END END END tsi des fiches ont ete J WRITELN PROCEDURE Rechercher Recherche un article d apres sa cle VAR Choix M CHAR Nom Prenom String 20 PROCEDURE Modifier Modifie un article VAR Ele 2 m Cier BEGIN GOTOXY 14 18 WRITE CHR 29 tefface ligne Synthese Fich Nom Fich Prenom Cle 1 Saisir Synthese Fich Nom Fich Prenom Cle 2 IF Cle 2 lt gt Cle 1 THEN BEGIN Declasser Cle 1 Classer Cle 2 Numero END SEEK Fich Numero PUT Fich END PROCEDURE Supprimer Supprime un article VAR Reponse CHAR BEGIN WRITE taper X pour confirmer READ Reponse WR ITELN IF Reponsez X THEN BEGIN Synthese Fich Nom Fich Prenom C e 1 Declasser Cle 1 Classer Numero Effacer SEEK Fi ch Numero PUT Pich END END BEGIN Rechercher Choix OQ WHILE Choix 0
157. on en t te et bas de page recherche et remplacement etc Ses plus e la possibilit de juxtaposer face face du texte et des dessins ou graphiques issus soit de logiciels tiers via le Presse papiers soit du grapheur int gr e le transfert de caract ristiques de formatage d un paragraphe un autre par clic e l existence d une panoplie d outils semi graphiques int gr s traits encadrements ovales avec diverses paisseurs de traits Ses moins e Tabsence de fonction de mise en colonnes du texte qu on peut Philippe Mathieu cependant Sattendre a trouver dans un logiciel moderne e absence de tabulateur d cimal e Tabsence de glossaire et quoi que l importance soit sans doute moindre de dictionnaire et de c sure automatique Le gestionnaire de fichiers Il s appelle un peu pompeusement Base de donn es c est en fait un honn te gestionnaire de fichiers dont la conception ressemble beaucoup a celle de File galement propos par Microsoft Ses plus e des possibilit s tr s larges de s lection d enregistrement par des associations de fonctions logiques de bonnes possibilit s de caract risation des champs et d ex cution de calculs sur les champs num riques e des formatages des dates int ressants une grande facilit de d finition d un tat de sous totaux et totaux de sauts de lignes et de pages a possibilit de co
158. plicate File Name est bien pris en charge par l ONERR GOTO 4000 La ligne 100 pr voit 200 dossiers et sous dossiers et 500 fichiers par dossier au maximum la modification des DIM devrait r pondre tous les besoins La commande COPY ne g re pas les num ros de port et de lecteur aussi 1l convient de nommer diff remment les volumes origine et destination d 2007 FIS 500 105 PRINT Origine PRINT 10 5 INPUT Port 785 ON 185 Ce SS gt 7 Gero 110 5 WAL S lil VTAB 6 INPUT Lect ruo ON We lt am OS gt 2 GOTO T11 D WAL US 112 PRINT DS PREFIX S S D D PRINT DS PREFIX INPUT 5 0 5 LEFTS OG LEN mS 1 115 PRINT PRINT PRINT Destination TERIN 5 Pom s n 32 A s Exemple d ex cution Orieine Part 1 Lect 1 Destination Port 5 o 25 9 ProDOS Copie de SB K vers COPIE SPDK Ok 0 Recherche des catalogues SPDK SPDK MERLIN SPDK MERLIN LIB SPDK MERLIN UTIL Creation des catalogues COPIE SPDK MERLIN COPIE SPDK MERLIN LIB COPIE SPDK MERLIN UTIL Copie des fichiers Copie de SPDK PRODOS m zun gt COPIE SPDK PRODOS Cepie de SPDK REBOOT SYSTEM gt COPIE SPDK REBOOF SYSTEM Copie de SPDK BASIC SYSTEM gt COPIE SPDK BMS TC SYSTEM Copie de SPDK MERLIN MERLIN SYSTEM x vn gt COPIE SPDK MERLIN MERLIN SYSTEM Copie de SPDK MERLIN LIB SENDMSG S gt COPIE
159. r i erreur Integer F Text car char begin nomgrille grile sn 1 Reset F nomgriile erreur e IOResuli Readin F encours erreur IOResult Readin F solution erreur OResult if erreur Ollren begin lin 0 while car lt gt do begin Read F car Textin lin bn e lin 1 end textinlength lin 1 Read F car lin O while not Eof F do begin Read F Textint lin En calin 1 end lextinilength lin Pom s n 32 end lif ctose f i erreur lt gt 0 then begin E zai SysBeep 1 C Moveto 200 150 gt OrawString Cette guille n existe pas 1 S end else begin affiche Grille remplit grile moveto 5 80 DrawString Horizontalement TexiBox Textin textinlength arect 0 moveto 5 225 DrawString Verticalement TextBox Textini textinilength brect 0 end 514 end rappel 22 22 om eee procedure saisie numero saisie du num ro de la grille chaiger var boite contour 1 rectangle pour le rc2 rectangle pour le rok rectangle pour OK Tel begin EraseRed commaride 5 SetRect boite 150 10 250 60 FrameRoundRect bolte 5 5 Moveto 170 25 DrawsString grille n 7 PenSize 1 1 SelReci r1 220 14 240 289 SetRect rc1 224 40 236 51 SetRect rc2 170 40 182 51 PutMsg rc 1 PutMsg rc2 SetReci rok 190 35 214 55 Framero
160. r SetFont geneva 9 move L A2 dctlWindow A4 WindowPtr gt DCE move dctlRefNum Ad WindowKind A2 COLLECTE DES IMAGES Hutt Cadran ID principal toujours sur la pile dep W D1 ID gt Dl RAN GetRes F bmap Dl mouvO L SP CadrHndl Images Tournantes lea ObjTour Al adresse de stockage moveQ 4 D2 compteur Q10 addQ 1 D1 ep L emp W D1 m _GetPicture e dep L Al subQ 1 D2 beq S 1828 zy addA 2 Lo Al bra S 610 POSITION INITIALE DE LA LUNE 33354 41 4 1111 11 820 Collecte de l Horloge Margvant lh du Matin c est la 23 me une congruence pr s apres l horloge locale bsr W GetTime clay L DO move dt dtHour DO add NFus l DO divu NFus DO swap DO sn de l item de 2h du mat MM 16 R TopLeft du rectangle rrr TAE subA 2 Extd SP Rect Hndl type tendus bsr N GetRect move L Axe DO sub L DO TopLeft SP OpBin Top SP VectLun vv I2X OpBin Left SP VectLun hh I2X Calculs somme des carr s 6 norme LEE TEA ee EE OpBin VectLun vv vv Lo SP X2X OpBin VectLonshh hh Lo SP 2 OpBin vv SP vv Lo SP mulX OpBin hh SP hh Lo SP mulX OpB n hh SP vv Lo SP addX pea SP emp W HfoSQRT _FP68K vecteur unitaire T pea SP pea VectLun vv emp W foDiv ffExt FP68K pea SP pea VectLun hh emp foDiv ffExt _FP68K addA 2 Extd SP RA
161. raintes dinstallation aucun probl me de mise en place sur disque dur Le principe retenu pour la correction est le suivant un document a t sauvegard par MacWrite 4 5 ou 2 0 ou par tout autre traitement de textes en format texte seul lancer Orthogiciel ouvrir le document demander la v rification Orthogiciel sarr te sur chaque mot posant un probl me et propose de le maintenir en l tat de le corriger de consulter le dictionnaire avant correction ftichines V rification Options E l usage S Orthogiciel est souple d emploi tance de la recherche Consultation du Larousse C fide ta correction d Pluriel des noms Te Hr Hi ans AE D Pom s n 32 Dictiannalres Halle a aufils orthogiciel 23 Dot de la fonction renvoyer sorte de copier coller Le dictionnaire sur disquette ne comprend pas tout le petit Larousse mais 150 000 formes ce qui est beaucoup pour une disquette mais pas trop pour le francais La grammaire Orthogiciel est un correcteur orthographique et ce titre 1l laisse de c t les erreurs de syntaxe et fautes d accord On pourra crire nous avez sans mouvoir le programme d celer ce type de faute est dune difficult sans commune mesure avec la comparaison un dictionnaire m me de 150 000 mots Le mode d emploi pour compenser cette restriction propose un guide d orthograph
162. re de caract res du titre que vous voulez placer sil n y a qu un seul filet tracer sa longueur est demand e l utilisateur multiplie ensuite ce nombre par 6 pour conna tre le nombres de points qui correspond la taille de la ligne crit ce nombre en respectant le format de 4 caract res avec des z ros en t te si n cessaire ajoute ensuite des espaces pour obtenir une longueur de ligne correcte pour la justification au centre Si votre texte ou votre ligne compte moins de 8 caract res c est dire la longueur minimum du code de commande la ligne sera allong e automatiquement Si vous d sirez une s rie de lignes de longueur d croissantes le programme se chargera de calculer une ligne plus courte de 4 caract res au Robert Coustal dessous de la pr c dente Utilisation Deux possibilit s taper CTRL P DONPL FILET mettre le programme sous la pomme en utilisant le glossaire Il faut faire CTRL G puls et choisir un caract re pour faire ex cuter le programme par exemple tapez alors CTRL PDOWPL FILET gt suivi de Return gt dans Applewriter ProDOS ou dans Applewriter DOS 3 3 Chaque fois que vous voudrez utiliser le programme tapez seulement 6 Le programme une fois lanc vous demande de taper votre titre ou lt Return gt si vous voulez seulement une ligne Il demande ensuite le code du filet c
163. res et Font DA Mover fera tr s bien l affaire Si vous tes nouveau lecteur de Pom s Bienvenue il convient de signaler que comme fuseaun horaires E men CN C E d habitude la disquette d ac SE compagnement de ce num ro Nerd contient l accessoire install dans SIT Sydney le syst me et dans un fichier en Font DA Mover Les sources E Noum a sont aussi sur ladite disquette 2 3 Wellington a Mac 32 22 Auckland 2 Les virtuoses de l diteur de ressources vont aussi pouvoir MET Anchorage soccuper les noms de ville ne E o noie sont pas dans le code mais dans une ressource DITL 16000 pour ne rien vous cacher il est donc possible de remplacer par exemple Paris par Brest ou Bordeaux heure moyenne San Francisco Papeete te Dawson Vancouver a a Phoenix 17 a LN 7 Singapour b Djakarta atmandou ew De lhi an Kaboul Ne Mascate les Kerg Teheran 124 Moscou n Bagdadis y Djibouti S Helsinki Athenesi Johannesburg Varsovie 11151 Lisbonne V Londres 31271 Cs Hanoi Lhassa A Dacca Karachi lles du Cap Vert Buenos Aires AB Source Fuseaux Asm PUSEAUX heure travers le monde A2 handle de la liste des points DialogPtr adresse du BitMap du cadran adresse du handle d un objet tournant Ad sauvegarde du DCEPtr A3 1 a 9 D3 compteurs 4 D pivot
164. rsonnelle Et si vous n tes toujours pas rassasi s Du 30 septembre au 3 octobre arr tez vous au village de formation pour demander voir tout ce que vous n auriez os imaginer En ce qui conceme les rencontres rien n a t laiss au hasard Que ce soit au cours de l une des nombreuses conf rences pendant un spectacle au Club Apple ou tout simplement au restaurant vous rencontrez qu vous voulez Apple Expo du 30 septembre apr s midi au 3 octobre 1987 La Grande Halle La Villette Heures d ou verture mercredi de 12 h 419 h autres jours de 10 h 19 h Jeudi journ e professionnelle M tro Porte de Pantin Apple 40 es anciens utilisateurs de Apple se souviennent sans s f doute d un logiciel face pour son poque AppleWorks qui existe toujours et a t perfectionn depuis D s origine ce premier vrai int gr pour micro ordinateur proposait trois fonctions tableur gestion de fichier et traitement de texte La communication entre les fonctions se faisait au moins partiellement par Copier coller grace un Presse papiers certes rudimentaire mais qui pr figurait celui du Macintosh Les diff rents modules taient g r s par des commandes homog nes tr s conviviales pour ce type de mat riel sans souris et ais ment mises en uvre Une fonction d aide tait accessible en permanence Quand on aborde Microsoft Works on est frapp par sa
165. rticulier peu compatible avec d autres logiciels et dont les effets semblent quelquefois al atoires Heureusement le traitement de texte AppleWriter permet d envoyer ces codes l ImageWriter et son langage de programmation le WPL Word Processing Language peut se charger de calculer les param tres n cessaires aux commandes envoyer Le programme WPL FILET Se charge de tracer des filets graphiques d coratifs et centr s pour encadrer un titre o bien pour s parer des paragraphes sans quitter le texte en cours en incluant les caract res de commande dans le texte Il fonctionne avec Applewriter version DOS 3 3 ou ProDOS et avec une imprimante de la s rie ImageWriter Le principe Sur l ImageWriter le code ESCAPE Vnnnnc permet de tracer une ligne r p tant nnnn fois l image du code binaire ASCII du caract re c Le probl me consiste donc une fois choisi le caract re c calculer le nombre nnan pour Poms n 32 obtenir la longueur de ligne voulue et a ajouter ce code un certain nombre d espace pour obtenir une justification au centre correspondant la longueur du filet tracer et non A la longueur du code seul Pour obtenir deux filets encadrant une ligne de texte il faut de plus conna tre le nombre de caract res de celle ci WPL FILET se chargera de ces calculs Fonctionnement WPL FILET ins re un marqueur l endroit du texte o vous souhaitez Op rer compte le nomb
166. s 200 160 qui occupent la zone E1 2000 a E1 9CFF mais en fait le fichier sur disque en occupe 32768 car viennent ensuite les Scan Line Control Block et palettes voir Pom s 31 Peeks et Pokes longs Transformations d images La transformation d une image classique en une image de type GSPaint gr ce au programme binaire que nous proposons seffectue en plusieurs tapes par manque de place en m moire principale Bank 00 pour y charger image HOR 4000 octets et y reconstruire l image type GSPaint 32768 octets tout en gardant de la place pour les programmes on transf re l image transformer en Bank 01 m moire auxiliaire de la carte 80 colonnes gr ce AUX MOVE C311 e pour chaque ligne cran on calcule l adresse de ses 7 premiers points c est dire du premier octet e loctet qui s y trouve ainsi que le suivant sont d compos s en leurs 14 bits significatifs puis on reproduit 4 fois chaque bit ce qui nous donne 4 14 56 bits que Ton recombine 8 par 8 pour faire 7 octets qui sont alors stock s en m moire principale partir de 1000 les uns la suite des autres On passe ensuite aux 14 points sulvants puis la ligne suivante en incr mentant chaque fois l adresse de stockage des 7 octets une palette standard de couleurs est cr e en 8E00 Enfin gr ce la routine MOVE que nous avons ajout au programme binaire le tout est d
167. s 3 y outda ms 520 outda aa imprdate 324 mois x outdo 52D af fsd 0 linprint lecture d un blec a mb litbloc sr mli do il 80 ox dc i2 readparams bee 1dx txs sr isr rts oki plle badcall errout gt un espace imprime le jour code de Calcul adresse relative du l er ceract re du mois mm 3 3 caracteres table des noms des mois de ProDOS imprime l ann e d but du message NO DATE imprime le contenu de A MSB et X LSB en d cimal code de READ BLOCK adresse table des paranetres c 0 gt pas d erreur sortie en catastrophe traitement erreur recherche des volumes en ligne On pass en renie les lecteurs en ligne dans l ordre ait trouv nomvol nomvoll onlinebcl ida devent 1 x comprem unitsuiv dec dec ida Sta sta ida sta s s inc bne inc 1dx and sta jsr croissant des slots et drives jusqu ce que l on le volume cherch longueur longueur himem bufferol litbuf 1 himem 1 bufferol l litbuf 2 ptr neavoll ptr 1 devcnt SFO unitol mli dc 11 505 dc i2 onlineparams bes ldy sr sta and emp bne tay isr emp brie dey bne ida and Sta rts dex bpl Ida imp unitsuiv 0 litbuf ternp 0F longueur unitsuiv litbuf ptr y unitsuiv compron temp 250 unite onlinebcl 6 errout longueur du nom sans les 2 le mem
168. s de l cran affich es simultan ment fichiers V rification Dptipns Dictionnaire LAROUSSE CopyRight Dictianmnaires CONSULTATION Haile a aufil4 S Ss at 5 gouge 3 gouges goujat 5 goujaterie 5 gou jateries S gou jats 5 goujon S ou jonner en Le confort y aurait gagn A noter que les fen tres sont dot es de barres de d placement alors qu on ne peut les d placer En conclusion Des bons points le prix la rapidit l efficacit la possibilit de l installer sur disque dur la disquette originale n est demand e que de temps en temps Renvoyer GTA Consultation Ob eer Hu z r jl re Lass mr gai dan ub ouire LS Lag He yan R E x mir Get m b pao Des points noirs cette fen tre qui flashe les E et autres O ignor s de petits d fauts de fonctionnement impossibilit de faire accepter CP M m me l aide du dictionnaire utilisateur du fait du 7 Orthogiciel reste toutefois irrempla able pour des fautes du type programmme qui peuvent chapper la relecture la plus attentive foLOG21X equ 0006 loge i x HOEXPX equ 50008 exponentielle de base e STRUCTUREXPERT foEXP2X equ 000A zexponentielle de base 2 E m Mie ML ow La solution pour programmer de mani re foEXP21X equ 0008 zexp2 x 1 1 p BIOS foXPNRI equ 8010 exponentiatio
169. s fichiers la Sortle se fa t sur le p riph rigue en service ecran 40 ou 80 colonnes ou mprimante elle est videmment plus claire en 80 celonnes A l imprimante un Saut de page est envoy toutes les 60 lignes environ messages d erreur poss bies r FILE S STILL OPEN pour nstailer XCAT tous les fichiers I O ERROR SYNTAX ERROR t PATH MOT FOUNO RANCE ERROR z INVALID PARAMETER PROCRAM TOO LARGE NO BUFFER AVAILABLE PRODOS NON doivent etre ferm s ta erreur de lecture disque bloc endommag lecteur ouvert disque non ProDOS erreurs diverses dcnt un nom de volume incorrect trop cu pas assez de nom de la forme ou acm conte ant des caract es non autoris s 1 s E le voluee n est pas en ligne valeur en dehors des limites autor s es si on utilise d autres paraz tres que slot ou drive ACTIF Peu probable Rm m L em FU 2228 s y O 26 228 285424 sr IAS OSES an ER UC en em PUER xr programme d reloger eem OO k e OS am am an an am am am um Gp 28242265282 2248288 m am am um UY o an an am an an an ML an A up m ms debut compar versuite nocad precmd eld ida sta ida sta ldy ld cup Bae iny cpy dec dey dey sty ida sta sta lda sta ida sta ida ida sta ida sta cle 153 sec jmp syntaxer 2108 xsulte no80c Se chslash esl csa vpeth
170. s le bureau On passe d une application a l autre en cliquant sur sa fen tre et son menu vient alors prendre place dans la barre des menus du Macintosh Pratique pour changer des documents entre les programmes et lorsque les auteurs des programmes l auront pr vu on pourra r aliser une impression en t che de fonds On peut ouvrir simultan ment 30 applications condition de disposer de suffisamment de m moire vive Car et c est l que le b t blesse il faut au minimum 2 M gas de m moire pour utiliser vraiment le MultiFinder 1 M ga est un peu juste et 512Ko sont definitivement insuffisants Une seule solution acheter des extensions de m moire Il y a de la r lerie dans alr Autre nouveaut en provenance d Apple une imprimante bapti s e Image Writer IT LO La LQ dispose d une r solution de 216 x 216 points par pouce Soit le double de Tancienne Image Writer et peine moins que la LaserWriter 300 x 300 points par pouce Cette imprimante matricielle de tr s haute qualit el Gour vitch 69 70 qui ne dispose cependant pas du langage de description de page PostScript comme la Laser est vendue aux alentours de 13 000 Francs HT Dans le m me temps la Laser a baiss de plus de 20 passant de 49 900 F a 39 900 F HT L offre d Apple se resserre donc On attend pour les prochains mois une imprimante laser de tr s haut de gamme qui pourrait fr ler les 80 000 Francs et offrira
171. s toutefois apport une modification CLV dans sa version 1 01 mais nayant pas le probl me nous ne savons pas sil est r solu 2 solutions nous renvoyer votre disquette pour change nous t l phoner si vous avez InterPom pour t l charger la nouvelle Version CalvaCom ne g re pas le retournement du Minitel pour qu il mette 1200 bauds donc pas de solution imm diate Pour cette premi re grille de mots crois s de Pom s nous vous proposons un petit concours soyez le premier nous envoyer la solution et vous b n ficierez d un avoir de 200 00 F sur les produits Pom s pourquoi pas Ordico Les possesseurs de la disquette d accompagnement pourront r soudre le probl me sur leur Macintosh gr ce l application crite en Turbo Pascal par Roland Jost pr sent e dans ces pages Imprimer Quitter Horizontalement 1 Pas tres bas 2 Reprises 3 Parasites Tout un sac c est pas pais 4 Sur un arbre mais pas un fruit Pour les babies 5 Pour un essai c est rat Deux pour les Zazous 6 Pour le coureur de fonds Deux pour un parfum Sans ordre 8 Roche rouge 9 Plainte m lancolique Mauvais pour la vigne bon pour bebe 10 Possessif Distant Verticalement 1 Ne pleurent pas entre les rails 4 Courant On peut y trouver le 8 horizontal 2 Frangaise 5 Abr viation couronnee Amere 7 Subissant 10 Sur certaines tables Poursuit sans courir Poms n 32
172. structions concernant l impression doivent tre supprim es du source Sur les disquettes Pom s les fichiers sont transf rables sur votre disquette Pascal depuis la face DOS gr ce utilitaire Basic Pascal livr avec depuis la face ProDOS gr ce utilitaire Universal File Conversion dit par Ouality Software O 11 Cl Ct oU Od Programme RECURSIVE TEXT Cc Sylvie GALLET 2 S x program courbes recursives uses turtlegraphics dump hgr si vous avez un programme de dump bor pour votre imprimante il est temps de le mettre en librairiei Sinon il faut supprimet tout ce qui concerne cette instruction const marge 20 20 pour Un ecran 80 colonnes 0 pour 40 colonnes j type choideca set of char courbe record nom niv string end var liste array 1 8 of courbe i integer efl cr son home reponse char papier text Ge procedures d interet general procedure prenreturn var sort char begin repeat read keyboard sort until eoin fkeyboard end function prencar bonset choideca char var ch char e bon boolean begin repeat read fkeyboard ch if eoin keyboard then ch sz cr bon ch in bonset if not bon then write son else if Ch m kuh z then write fch until bon prencar ch end procedure message x y integer s string begin gotoxy x y write s efl end
173. t un signe important dans ce sens Quant AppleTalk le r seau de connections d Apple il est aujourd hui tout simplement le plus r pandu au monde reliant entre eux quelque 450 000 Macintosh L avenir du Mac est donc dans les r seaux On s loigne grands pas de la machine des travailleurs du savoir vant e jadis par Steve Jobs Et si c tait la cl du succ s Dans cette nouvelle rubrique nous vous pr sentons une s lection des questions r ponses chang es sur la messagerie de CalvaCom Notre bo te lettres emp11 7 Bonjour AR 141 De C dric NEROT CN10 02 sep 87 22h26 Bonjour Enfin je trouve 5 minutes pour faire exploser ma joie Pom s est sur Calva III Nous passerons rapidement sur tout le bien que je pense de vous L heure de connexion ici bas n est malheureusement pas donn e pour arriver ma question Envisagez vous de t l charger les programmes de la revue via Calva avec s besoin est d dommagement II semble en effet bien plus pratique et bien plus rapide pour ne pas dire plus sur avec les Postes ni oises de r cup rer un texte de cette facon que par une disquette soumise aux voies de fait postales Qu en pensez vous Amicalement amp admirativement votre Merci vous nous faites rosir Nous pensons dans un premier temps mettre disposition sur biblioth que CalvaCom des programmes mais nous reflechissons galement un projet plus large
174. u externes des options de formatage vari es etc Ses plus e la transposition ais e des lignes et colonnes notamment pour la construction de graphes e de nombreuses fonctions math matiques logiques statistiques et financi res une bonne vari t d options de collage sp cial s la possibiit de d couper la fen tre en deux panneaux Poms n 32 horizontalement ou vertica lement e la d placement de cellules obtenu par clic Ses moins e des fonctions de date et de chaines de caract res inexistantes pas de possibilit de cr er des formats personnalis s comme c est la cas avec Excel Par ailleurs il n existe pas de macro commandes associ es au tableur Le grapheur Il est associ au tableur et permet de tracer des courbes des diagrammes barres ventuellement combin s et des diagrammes secteurs camemberts Un graphique est comme il se doit mis jour automatiquement par la feuille de calcul qui le sous tend Ses plus e la possibilit de repr senter des lignes de donn es disjointes ce que ne permet pas un outil aussi puissant qu Excel e une chelle semi loganthmique disponible e la possibilit de conserver des gabarits utilisables en diverses circonstances Ses moins la limitation 4 s ries de valeurs e la repr sentation de s ries de lignes uniquement pour repr senter des s ries de co
175. ueur du programme nen oui gt on reloge adresse de d but du programme relog debut sera gale 2100 A propos de XCAT catalogue tendu de tout support ProDOS disponible en mode direct ou diff r les noms de tcus les fichiers sont affich s avec une indentation mettant en vidence les scus catalogues z II n y a p s de limitation du nombre de niveaux d emboitement des sous catalogu s sauf le bon sens l indentation est seulement limit e 6 24 caract res Les noms de catalogues sent soul gn Les autres fichiers sont suivis du type du nombre de blocs et de l date de derni re modification le nombre de blocs libres occup s total est affich meme si xcat est interrompu avant la fin La date courante est affich e en tete du catalogue a Se brun xcat ou tu Ra ha Na Ge Be Na w w Installation utilisation xcat syntaxe en mode direct xcat nomvolume Ss Dd en mode diff r print chrS 4 xcat suiv ieventuellesent da parametres constantes ou variables chaine les param tres sont optionnels sl on les omet le lecteur par d faut sara utilis la pr sence de param tres meme S et D ne modifie Gas le prefixe par d faut Arret temporaire et reprise du d filement avec une touche quelconque arret d finitif par CTRL C dens ce cas cn affiche i pour siqnaler qu il reste peut etre de
176. ueur instruction 1 z ProDOS et BASIC SYSTEM cpy 2 instruction sur 3 octets Ba SE bna rsulvant non gt pas de changement A ida pel y oui typnum gequ 8989 codes des types de f chier ayant une cup gt a1 est ce un appel au MLI 2 2 abr viation hne noml non typtable gequ 8997 table des abr viations de y peut etre sols gequ BSC table des noms des mois Ida pel y ali gegu SAF00 point d entr e de Prados emp lt mli extrncrd gequ 58806 saut vers commande externe hne nomli non errout gequ 8E09 affiche erreur et fin dey badcall gequ Zeren convertit code erreur MET en BASIC S lds pc1 y getbufr gequ 8 F5 r serve A pages sous BASIC SYSTEM 320 est ce un jsr xtrnaddr gequ BESO adresse commande externe hne nomil non xlen gedu BE52 longueur de le commande lda pel oul avance pcl de 3 octets et xcnum gequ 38 amp 53 n de la coamande clc traite les 3 octets suivant jsr BF00 pbits gequ 5 54 param tres autoris s adc 3 comme une instruction 4 reloger fbits qequ BE56 param tres effectivement trouves l adresse du buffer n a pas besoin vpathl gequ BE6C vecteur vers la Commande entr e d etre relog e syserr gequ 58 0 sta pcl xreturn gequ BE E un RTS Qul gagne etre connu bcc nomli vsiot gegu 5 61 n slot trouv inc pcl 1 vdriv gegu 58 62 drive se ACM lda pel passage de param tres pour calcul openent gegu 58 40 nombre fichiers ouverts sta adr vpath2 gequ BE6E 2 me nom de fichier lda pe
177. undRecitrok 8 8 PulMsg OK rok Frameroundrect c1 5 5 FrameRoundRect rc2 5 5 case ord sa 0 of 1 nombre ord sn 1 48 2 nombre1 10 ordisni11 48 ord sn 2 48 3 nombrel 100 ord sn 1 48 10 ord sn 21 48 ord sn 3 48 end case PutMsg sn r1 X repeat Getmouse c if Button and PtlnRect c rc1 then begin nombre nombre1 1 if nombre1 gt 998then nombre 1 NumToString nombret sn EraseRoundRect r1 5 5 PutMsg sel r1 for e 1 to 30000 do end if if Butlon and PtinRect c rc2 then begin nombre gt nombre1 1 if nombre1 lt 1lhen nombre 1 NumTosString nombret sn EraseRect r1 PutMsg sn r1 for 1 to30000do end if until button and PtinRect c rok Ch i 10 C V a1 EraseRect inRect messages rappel end saisie numero procedure sauve grille 45 sauvegarde de ta gr lle en cours sur disque var integer e Sa text begin rewrite f grille sn D writeln f encours writeln I solution for i 0 to textinlenglh 1 do write f textin i vrritelnif for 0 to texlinflengih 1 do write f textint i close 1 end sauve grille II II II L II I II II 1 0 II 0 il H U U II II II 222 gt BS gt gt 2 procedure quelle_case trouve la case point e par le curseur var i integer c point
178. utMsg nkey casesincasel encours Delete encours ncase 1 with Info do Insert inke y encours ncase begin SysBeep 1 fasc ascent end fdesc Descent otherwise end sysbeen 4 laillextrect end case sn st end if rappel alse sysbeep 2 messages end saisie procedure efface efface le contenu de la grille var integer f text begin lor i 1 to 100 do il encours i in A Za z then encours i end efface procedure bouton 46 eng initialise begin main initialisa repeat if GetNextEvent everyEvent myEvent then case myEvert what of MouseDown bouton KeyDown begin ff myevent message and charCodeMask 9 then solliag true Saisie myEvent end case until SORTIE end Pom s n 32 onnaitre instantan ment l heure de Vladivostok Phoenix ou acces Cp soirement Paris Tel e est le but de cet accessojre de bureau crit en assembleur 68000 pour efficacit mais aussi inutile d essayer de le dissimuler pour le plaisir crire un mode d emploi de fuseaux tiendrait du gag tant son usage est transparent signalons seulement que cafeti re tasse lune t l viseur et autre soleil indiquent ce que sont cens s faire cette heure et en gros vos amis de Vancouver ou Singapour L installation de fuseaux dans le system de vos disquettes de d marrage est aussi simple que pour d autres accessoi
179. uteur d un traitement de texte pour TIBM PC a d velopp Textor 4 pour le Macintosh capable lui aussi dechanger des fichiers avec le monde MS DOS Textor vise le march des techniciens avec un diteur de formules math ma tiques et un tableur Autre traitement de texte vedette outre Atlantique FullWrite un logiciel avec multi colonnages g n rations de post it notes guon peut coller sur un document et syst me de dessin incorpor avec possibilit d habillage automatique d images irr guli res par un un texte Publication lectronique le grand d bat Du c t de la publication lectronique on s agite aussi beaucoup Aldus a sorti la version 2 0 de PageMaker et travaille d j une version 3 0 encore perfectionn e LettraSet a sorti une version 4 0 de Ready Set Go On y dispose notamment d un bureau la pr sentation plus claire avec une main pour d placer la page le trac de lignes diagonales une palette de filets disponible par menus un espacement contr l entre les mots la sp cification possible des c sures avec un dictionnaire d exceptions un glossaire un v rificateur ortho graphique l habillage automati que de dessins etc Quant RagTime import par ItalSoft il s offre d j une version 2 avec habillage des r serves cr nage 40 trames de fond une grille de construction un traitement de texte avec c sure automatique algorithmique un dictionnaire d except
180. vec un Minitel 29 Pom s n 32 I Disquettes Pom s32 Page 38 Essal Macintosh Editorial Ru MicroSoft Page 5 Herv Thirlez W or k Philippe M Mathieu Roland Jost Mots croises Transformation HGR gt SHGR Vincent et Bernard Tom no Courbes fractales Sylvie Gallet A Fuseaux horatres Alain Bohec Ecran virtuel H Roy Contancin Essai Macintosh Orthogiciel 2 Copy une commande externe Fr d ric Rosay COPIE TF copier TOUT les fichiers Christian Piard Commande XCAT TOUT le catalogue ProDOS Jean Louis Chauvin fichiers s quentiels index s Des filets en WPL pour ImageWriter et DMP Rober t Coustal sur CalvaCom C Page 35 Page 71 Pom s n 32 Pour TOUT communiquer entre Apple Macintosh IBM ou compatible INTERPOM S V 2 0 ES Minitel s Modem ou local Imp 300 8 A 2 Com 57600 7 P 1 Pr sentation dans le num ro 31 de Pom s Protocole ALC Jean Luc Bazanegue Christian Piard amp Pom s Version Apple C Piard amp Pom s Version Macintosh J L Bazanegue amp Pom s Version IBM Thierry Tallagrand Olivier Marcus Octet Ont collabor ce num ro Alexandre Avrane Jean Luc Bazanegue Alain Bohec Jean Louis Chauvin Paul Courbis Robert Coustal Alexandre Duback Sylvie Gallet Jean Michel Gour vitch Olivier Herz Roland Jost Philippe Mathieu G rard Michel

Magazine Pom`s : la collection - SbM

Contents

Download Pdf Manuals

Related Search

Related Contents