8L2C)pJJJJ IH(ȱH:=IH[H`@HcH  $ +   I/H`JLNGȄBȄF aK  haaFF  mJm# KKJ UJ )J ۈ) ;J3ȱJFȱJGJKaȄM  aaNNJFLGJL L3>>3>?3?33ժ*UڪU+U*U>33?@_*U*U*U*UT*>3333?>ժժj*UU*U*U*U*_*U*U*U*U*U@ ! SAUVE.BASRT]!MENLMLM.0.ADRESSES.ECR!SAUVE.S{!{SAUVE.O<{!{'STOREST. !GROS ! %BOOT2E!@(COMMANDEVw !-TRAJET.MINUTE v !CAT3y{ !&SAISIE1c~!$MENUTUP$ !HDCv !%BOOT1+!@TM6Cu' %MULTI !*EFFACE.RAM!2!IMP;u! $DATE>`w !CARACBw ! TRIC >dLԡm#i㰼m#iЕOLԡȱfg hi !dLԡ憦  Ljmkm l y`2 Lԡ8(Je稽)ʈ@LLnSOS BOOT 1.1 SOS.KERNEL SOS KRNLI/O ERRORFILE 'SOS.KERNEL' NOT FOUND%INVALID KERNEL FILE: xةw,@  ȱlmi8#)!)? &PRODOS `DaElH$?EGvѶK+`L HHLy XP LM ŠϠĠӠS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8R33ժժj*-U*U*U*U*33 *U*U*U*U*xժ+U>ժժժJ**?U*U*U*U*+U*U*U*U* ?; ?ժժ+U*UZ*?3 ЪժժժժKtU*U*U*U*5?3ժ?U*U*U*5ժժ+UUU*U*+U*U*U*U*U*`U*U*U3?3;Ԫժj*)uW*U*U*U*;3+U*U*U*U*ժժ+U*uЂʪժժժժJJj+U*U*U*U* /U*U**U 33?;3?;? 3; ~373ժժjR*u_*U*U ?33 _*U*U*U*U*-3?3;;73 3?3ժժj*Uj/U*U*U**U*U*U*U*U337 3Ъתժ*U*%U*u+33 U*UT*U*U*U*333333 ЪU*U*ߪժ*U**UjU* ԀW*U*U*%U*U*|Wj37 3ժժ+U*UJj33 3ЪժժժժKvW*U*U*U*5333ЪՊ/U*U*U*Uժժ+U*UT*Uժժ+U*U*U*U*U*5p?U*U*U*333337֪ժj*-u_*U*U*U*3333@+U*U*U*U* pժժ+U*=ժժժJjj/U*U*U*U*/U*U*U*U*333333333373 337 333ՊҪժj*R*u*U*U33333 _*U*U*U*U**333337733 3333ժժj*Uj?U*U*Uj *U*U*U*U*U?333 33Պתժ*U*%U*U33 3ԀU*5U*U*U*U*33333333 Ԫ@U*U*ժ*U*+UjU* W*U*U*+U*U*@W*333 3ժժ+U*UJj33 333ЀЀЪժժժժKVW*U**U*U*5333333ժ/U*U*U*U@ժժ+U*UT*U ժժժU*U*U*U*U*5x?U*U*Uj33333333Ѐժժj*-U_*U*U*U*3333333@+U*U*U*U*תժ+UjժժժJjj/U*U*U*U*+U*U*U*Uj33333?33333333333333333333 3333 333333j**U*U*U33?3?333 @_*U*U*U*UZ* 3333333333333 333333333ժժ߾j*UUj?U*U*Uj*U*U*U*U*U333?ժתժ*U*5U*U?U*)U*U*U*U*3?ՂpU*U*5@ߪժU*+U*W* W*U*UJ*U*U*pW*5>3?>`ժժ+U*Uj>3?ЪժժժժKR_*U*U*U*533֪/U*U*U*Uժտժժ+U*UV*Uժժժժ*U*U*U*U*5d?U*U*U*33; ժתժ*U*-U*uj U*UZ*U*U*U*3733 |U*U*Ъժժ*U**UjU*5W*U*U*UU*U*pW:033330030333 033 ~3;3ժժժUV*u_*U*U 3333 Ԁ_*U*U*U*U*330333;3 33030ժժj*5Uz/U*U*U**U*U*U*U*UԪՊժժ+U*UV*UЪժժժժժ/*U*U*U*U*5C?U*U*U*ժתժ*U*5U*U~ЀUj*U*U*U*U*xU*U*Uժ+uҪժժJ**?U*U*U*U* +U*U*U*U*ժժ+U*UjЪժժժժJR^*U*U*U*5ժ/U*U*U*Uժժj*UT*U*U*U*Ԁ_*U*U*U*U*Uժ֪j*%U~*U*U*U* *U*U*U*U*33 3ߪժ*UԪU*}_*?3?U*U*U*U*U*3.3 W*Uҭժ*UJ~/U*U@W*U*U*U*)U*~>33 3?ժժժ+U*UR*U3 3ЪժժժժO=U*U*U*U*5>3 3?U*U*U* תժժ*U*U*U~ЀUR*U*U*U*U*U*U*U@3??>33ժժJ*+}U*U*U*U* 3 3+U*U*U*U*ժժ+U*UjЀЪժժժժJZ~*U*U*U*5ߪժ/U*U*U*U?33333?333>3?3  .ժժ*UT*}W*U*U>333?3 Š_*U*U*U*U*U?3333. ??33ժժj*%U~+U*U*U**U*U*U*U*53333 3ߪժ*U**}_*3 3U*U*-U*U*U*33333 `W*Uުժ*Uj*/U*U W*U*U*Uj*U*x333 3ժՀժժ+U*UR*533 33ЪժժժժO=U*U*U*U*53333@?U*U*U*ժժ*U*U*UzUU*U*U*U*U*תU*U*U3333333@Ҷժժj*+}U*U*U*U* 33 33+U*U*U*U*ժժ+U*U:ժժժժJZz*U*U*UU*@ժ*U*U*U 3333333333333333333 333 33333ժժժ*UV*}W*U*U3333333 _*U*U*U*U*U333333333333 33333333ժժj*5Uz+U*U*U**U*U*U*U*3330 ժߪժ*U*-*u*3 ԀU*U**U*U*U*3;33 ՀxW*Ujتժ*Uj*UU*UW*U*U*UR*U*_33 3Ъժ`ժժ+U*UZ*33 0ЀЪժժժժKtU**U*U*U*533ЪՊ0?U*U*U*ժժժUU*Uz%U*U*U*U*U*@U*U*U33333ժժj*)uW*U*U*U*33 +U*U*U*U*@ժժ+U*UªժժժժJJz+U*U*UU*`/ժժ*Uߪժʪ+U*W*ԀW*U*UV*U*U*5|W*Uժ*UJU~+U*U@W*U*U*U*5U*@d:(4)"PR#3"::4309nI110:T$T$"________":xT$::1:"LA MULTIPLICATION EN LANGAGE MACHINE";:1403,79:"1"::"Soit la multiplication:":"-----------------------" :" 1 2":"X 1 3":"--------":" 3 6":"+ 1 2 ":"--4)"RUN/TM6/MENU"4I1:F$(J)(F$(J),17):(F$(J),1)(32)(F$(J),1)(42)F$(J)(F$(J),(F$(J))1):D$"UNLOCK"F$(J):D$"DELETE"F$(J):G$;:::D$"CAT":"TERMINE!":G$ :"FICHIER(S)";::" : ";:J4I1:15:F$(J):::15:"..... effac{s!+ 16368,0:"ENU Ad* EFFACE FICHIERS /RAM WnD$(4):G$(7):F$(60):::D$"PREFIX/RAM":D$"CAT"}x LECTURE FICHIER DIRECTEUR /RAM 150D$"OPEN/RAM,TDIR":D$"READ/RAM":I151:F$(I):D$"CLOSE":I4ĺG$G$::"/RAM VIDE !"::500 TRI J MENU ";:R$)::R$"M"R$"m"Ā?(4)"-/TM6/MENU"} CES DEUX LIGNES ONT PLACE LE PROGRAMME A L'ADRESSE $300I768793:A:I,A:: 169,12,133,6,169,13,133,7,169,0,162,8,70,7,144,3,24,101,6,106,102,7,202,208,245,96"66 07 ROR $07 : puis de $07"O h"CA DEX : X = X moins 1"~ r"D0 F5 BNE RET : Encore si pas z{ro" |"60 RTS : Fini!"32,0:33,80:23:1:" POUR OBTENIR LE MENU DE CETTE DISQUETTE, PRESSER LA TOUCHE COMMEompteur)"8 ,"46 07 LSR $07 : Premier d{calage"h 6"90 03 RET BCC DEC : Si la retenue est 0" @"18 CLC : Annulation de retenue" J"65 06 ADC $06 : Ac=Ac + Multiplicande" T"6A DEC ROR : D{calage de l'Accum."% ^tiplicande dans A"G "85 06 STA $06 : et stock{ en 6, page 0"y "A9 0D LDA #$0D : Multiplicateur dans A" "85 07 STA $07 : et stock{ en 7, page 0" "A9 00 LDA #$00 : Initialisation de A" ""A2 08 LDX #$08 : Init. X (c1 1100 soit ";::"9C";::"= 156"Q 23:"PRESSER UNE TOUCHE SVP ";:R$:""o :I421:I:32:" ":: 32,35:33,45:34,3:35,23:: "MEME TECHNIQUE EN LANGAGE MACHINE:":"---------------------------------" :"A9 0C LDA #$0C : Mul------":"= 1 5 6"4 :14:7:"$C":14:"$D":C H16:7:H L$" 1100 1101 -------- 1100 0000 1100 1100 -------- 10011100" I19911:H:(L$,I,11):% :::"FINALEMENT, LE RESULTAT EST:"::"100 DEBUT DE CHAQUE LI- GNE DU MENU RENVOIE A LA PAGE CORRESPON-DANTE DE TREMPLIN MICRO.":740:140198:16368,0:16384,128,127:16368,0:XX1:X2740X1: PRESENTATION 16368,0:(0)0ı D$(4)::860:768:D$"BLOAD BOOTOURC),DEMO1,/TM6/GROS/E 38 - .... ... DEMO2,DEMO2,/TM6/GROS/ 51 - SAISIE DE MOTS ,SAISIE,/TM6/ 53 - CONVERSIONS DEC/HEX/BIN,HDEC.BAS,/TM6/HDC/ 56 - CONVERSION HEX/DEC EN EN L.M.,START,/TM6/HDC/"& 58 - CATCARAC.1.0,/TM6/CARAC/V  30 - CHARGEMENT DES CARACTERES,CARAC.CHARG,/TM6/CARAC/  32 - FONTES TOOL.KIT->CARAC.1.0,CARAC.VISU,/TM6/CARAC/  33 - APPLICATION CARAC.1.0 (IMP ACTIVE),IMP.CADRE,/TM6/IMP/ 38 - ZOOM HGR DEMO1 (BERNARD GFOS GENERALES,INFOS,/TM4/N  " 3 - ANIMEZ VOS TRIANGLES",TRIBAS,/TM6/TRI/}  " 9 - TRAJET MINUTE",TRAJET.MINUTE,/TM6/  12 - POINT PAR POINT,IMP.HGR,/TM6/IMP/  12 - ADRESSES ECRAN,ADRESSES.ECR,/TM6/  23 - CARACTERES PERSONNALISES,VV1. TNSPS0VRD1VD1:SSP:200H ^VND1SVD1:190Q h270 r35,24:34,21:22::T$;:"SELECTION -> PAGE "((A$(VDS),2))" "B$(VDS) |B$(VDS)"INFOS"650 23:D$"PREFIX"P$(VDS) 23:D$"RUN"B$(VDS)  PAGE IN1:31:"> CTRL-I <";@ V:768,A$(VSD): VERS MODE INVERSEl K(16384):K9ĺ:21:D$"RUNCOMMANDE" "K6ĉ::(18):D$"CATALOG": ,K128280 616368,0:V:A$(VSD):K141Ģ22:370 @K136K139VV1:VDVD1:190 JK149K138#%&'() MPLIN MICRO NUMERO 6 "T$:34,2c 23:T$" UTILISEZ LES FLECHES - RETURN POUR RUN";:V::35,22o R0:S0x V: S0240 RR1:A$(R):RSP220 250 RR1:A$(R):RN240 :31:V:"FIN=CTRL-F": 20:31::"COMMANDES:"::22D$(4):D$"PREFIX/TM6":770: PRESENTATIONId:D$"PR#3":(17)knNU6: NUMERO DE LA DISQUETTExI110:T$T$"----":N30:A$(N),B$(N),P$(N):620V3:DV1:SP19:N20R1N:A$(R),B$(R),P$(R):! 1:" DISQUETTE DE TRESIC ";:X$:X$"M"X$"m"ĺD$"-/TM6/MENU"1 X"1" 16368,0:X$x*I14:X(10(I)40):812,X:813,I10:791::I14:X(10(I)40):812,X:813,I10:791:4D$"BLOAD BOOT2">16368,0:X$HI411:X(10(I)40):812,X:813,I10:791::I14:X(10(I)40):812,X:813,I10:791ALOGUE SUR 3 COLONNES,CAT3,/TM6/W0 59 - POUR UN NEW MALENCONTREUX,SAUVE.BAS,/TM6/: 60 - STORE & RESTORE,STOREST,/TM6/D 61 - EFFACER LE RAM,EFFACE.RAM,/TM6/N 62 - MULTIPLICATION,MULTI,/TM6/X >> - DATE SOUS PRODOS,DATE,/TM6/b:l768,32:769,190:770,222:771,32:772,123:773,221:774,32:775,253:776,229:777,133:778,96:779,160:780,0:781,177:782,94 v783,234:784,234:785,32:786,237:787,253:788,200:789,196:790,96:791,144:792,244:793,32:794,251:795,218:ժժժժժժժժժժժ~`sq@@p8`" ap@$>8> ժժժժժժժժժժժ~`\;px|G`@xC?`?8***************************************|@bpqcq<<"" ""Dbqx@ypCx!<aa!x<B`x(DOCbsq<<BDpx@ `|><ժ|@abcp<"<<8>ny|?@|pxOGw@<xCx<<PDHDA pA(DD qA\;8NG@dAp<<|@bpacqDbqx@>pCx!<~`Ax|~|Acqx?DDHPOGbsq<<BDpx@`|><ժ:" SI VOUS POSSEDEZ UNE CARTE BLEUE, TELE-PHONEZ AU 49 93 66 66"m::11::"EXPEDITION IMMEDIATE":v740:12:" Cette disquette n'est pas PROTEGEE et il est prudent d'en faire IMMEDIATEMENT une bonne copie."b::" LE NUMERO PLACE AUIENDREZ FACILEMENT CE NUMERO ENLE DEMANDANT A L'ADRESSE SUIVANTE: * TREMPLIN MICRO LA PETITE MOTTE * SENILLE 86100 CHATELLERAULT"::" UTILISEZ LE BULLETIN DE COMMANDE DE VO-TRE DISQUETTE."E796,968:::11:" BONJOUR ET MERCI! "::" CETTE DISQUETTE NE VOUS RENDRA VRAIMENTSERVICE QUE SI VOUS POUVEZ LIRE LES COM-MENTAIRES DE SES PROGRAMMES ET ROUTINES DANS LE NUMERO ";::NU;::" DE ";::"TREMPLIN MICRO"::" VOUS OBTժժժժժժժժժժժժժժժժժժx@bpx<G xx!"Pժժժժժժժժժժժժժժժժժժժ|@bpscq><<"""""$)DxaG>AC`A#$D<< pp`8pGDDQOGbsq<8b D/px@ `^/<ժժժժժժժժժժժժժժժժժժժBbax <~A x>p0 cxժDDxc?\;|~OG?pxx<@@ժժժժժժժժժժժ<""<***************************************|@a0@cCp<<8<8HC @|@`gcp DժժժժժժժժժժժD""DC`1c?p<<0|`@|@`Poc?p @!"ժժժժժժժժժժժ>w>ժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժ|@bp@cq<|8<<wpw>x)EH@"@  0|@'`gcp<r<<<` 88p~ @p 8p8p :22:"<1> CHANGER DE DATE <2> CONTINUER -> ";V 198:R$:(R$)49(R$)50150f R$"1"180o 400y J$"" 10:19:198:J$;:R$:16368,0:(R$)127J$""J$"":190 J$""R$"3"190 R$"0"R$"9"190 J$""J$J$R$:190=?@A P:"PREFIX";::PR$::t ZD1(49040)((49040)32)32:D2((49041)2):D3((49041)D22)8((49040)32) dD30M$(AN$,D332,3) n"DATE DU SYSTEME : ";: x(("0"(D1)),2)"-"M$;:M$""ĺ"..."; "-"(("0"(D2)),2)1 20:TR$ :(12);(21)::GAN$"JANFEVMARAVRMAIJUNJULAOUSEPOCTNOVDEC"dI110:TR$TR$"____":(I15:I:1:" ";:I1I5āJ239:" ";:J240:" ":::3:7:"QUELLE EST LA DATE DU JOUR ?"<6:34,7 F(4)"PREFIX":PR$:(4)"PREFIX"PR$470,220,240,3290,250Z BICFME$"PAS DE FICHIER BINAIRE EN MEMOIRE":340:290:180i PI1:1590x 3390:160 ::350:"]GOTO 10000 POUR REDEMARRER":20: : *** BOUCLE D'ATTENTE & WAIT *** : "I11500::- ,G:16368 d22485n:(21):5x3890:INITIALISATION;:d*** EN GUISE DE MENU GENERAL ***j:zR3N790:356016:LS:13:G:"C H O I X -> ";:R$:R$"1"R$"8"ĺ:180:R$:R$"?"İ3390:180 (R$)790,460,480,2w !`v;)IMP.CADRE! ;"EXM ! ;IMPuHUSTON!u' ''IMP.HGR ! ;EXO u ;IMP.HGRCPE w ;IMP.HGRCP.Caw ` ;(IMP.HGR0c w !v;IMP.HGR0.Cn`c<\;<OG<`xx<ժժժժժժժժժժժ""D<Bbqx@pAx <|@bp`cq<|<<<I"" ""D)D8|| `8 `G0<><^/b!DxasH|@G`bcp<"<<<`DD @@ 0DDժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժDDxpOGbsq<<b D/px@ `^/<ժժժժժժժժժժժժժժժժժժժBbA?x<|C xDa6ժ~8|`c<\;<OG<`xx< ժժժժժժժժժժժ""$<|Abqx@pAx |~" (J$R$)1(J$R$)311903 R$:J$J$R$G MM1:M13M1| 10:22:198:(AN$,M32,3);:22:R$:16368,0 R(R$):R13300 R127R8MM2:M0M11 "250 ,A$"" 610:26:198:A$;:R$:16368,0 @A$""((R$)8(R$)127)300$ JR$"0"R$"9"310B TR$:A$A$R$:(A$)2310 ^12:1:198:"HEURE ARRONDIE : ";R$:H(R$):H1R24350 h49041,(A$)2(M7) rM8Ĺ49040,M32(J$):390 |49040,(M8)32(J$) 49043,H:49042,05 :22:198:"<1> A*****************************************3?????3??????????3????********???????????3??3?? ***̀00000DFGHIJKLMNOPQRST?33???? 80003???3??????3????????33?? TRIuHUSTON!w ' '&TRIBAS v !C&TRIBINZv !\v CTRI.BAS- Cv !@v B'CARAC.G8v !@v B+CARAC.CHARGCv !v BCARAC.CH3v !v B*CARAC.VISUgv !yBCARAC.TRILMav  BCARAC.TRIBv  BCARACuHUSTON!w ' ')CARAC.1.0oB*v !v B'CARAC.C v!2 B%CARACz-v !vB)CARAC.TM0v !Pv B)CARAC.TM1v !Pv B)CARAC.TM2"/"R$"/"R$'(4)"PREFIX"R$:70W216,0:(222)6Ģ14:"PREFIX INCONNU":400_:UTRE PREFIX <2> APPLESOFT <3> MENU";:R1$:16368,0S R1$"3"Ģ22:(4)"-MENU"d R1$"2"490 R1$"1"Č198:12:1:"NOUVEAU PREFIX : ";R$:R$""400 I1(R$):R((R$,I,1)):(R45R58)(R64R90)ĂI:450 420 480(R$,1)*??3?3??????????** @0 6** ****6  ** 0  0**䌘Ԙ䀀@**0** 0 0 **@**********************************************3? ?????? ?????? ?********?? ???3???3???3 ?[3 0333****> >&*3>2&> <3&>2 << >322< >>2 >2*<  <&322>2>32 &>>< 2>*>2 j :j  22>2> <3& >3333333 333>[[3 >3 33&2<2322>*>2< <>&>> >0 3330?3 3  3>333>>>3  >33333 333333333333 33 33 33>3 3333[333;3 +33 3 0+3 2<&2232< & 0 33 ?3?333; [> 333>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>Ꞇꌂ >>33333333333>> 3333330[[333 03 3333>> >>>>>> 333????  >>3 3303333 333033003 >>> 033333333>>>>>3 33333333333333333333 >>>333 33 33303 3333333[3333333>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>?3  #3 3 #3 >>>>>>>> 3? ??333? [0 3 33>>>>>Lx>&>x8L>>x 8 8x>>8>x>>>88x>>x>>>>Lx>8>>>>d Td lTdd<>>8Lxx3> ??> >>3L>8>>>>>88xL> 33333333  ?>3>> 333>3>33333>3 >3> 3?>73 #33 3 #3 <8L>>8L 333 3333337 ?3>***̀***********************************************?????3;?????**3 30>3306>333033 ** 3306033****30 33>336336>3 **36 33 03033 3333[33****3033333>6** 03>3[[03 33 0>366******* LE CONNAISSEZ, BIEN SUR...":NZ4:1:"NUMERO DE CLIENT ";N$:N$""130Zd774,N$nI1(N$):AS((N$,I,1)):AS48AS5790x6:1:958:"NOM & PRENOM ";I$:I$""130774,I$I1(I$):AS((I$,I,1)):I2AS32170+::UWXYZ[\]^_`05:FR36:FA180:FX25:FE10: TARIFDISQUETTE,NUMERO REVUE,ABONNEMENT,DISQUETTE DEMO,FRAIS ENVOI 7CA170:PRIX DE >>MINIE<< <1170:1030 FT$"":::" PAGE D'INFORMATIONS EN TAPANT ":2:I110:T$T$"----"::T$:34,3 P22:3::"SI VOUSH ::(12);(21):::49234,0: ECRITURE MASQUEE DE LA PAGE INFOS (103)(104)2563073Ĺ103,1:104,12:3072,0:(4)"RUN COMMANDE" LI6: NOMBRE DE DISQUETTES POUVANT ETRE COMMANDEES A CE JOUR (LD2: NOMBRE DE DISQUETTES DEMOc 2FD10000  113>>00>[[>>> 0>? 33???? ?>0>0>>>> > >>> 30>  >>0>   3 3> 3>>[3>3 ??.?? ??.? ? ? ?3??3 ?3 ?[> 3>*************************************************:"NOM ET PRENOM SVP"::I12000::130I1020:(R$)180,130:170:N$""Ģ20:"Si vous n'avez pas chang{ d'adresse de- puis votre derni}re commande, c'est bon!"8:1:"CODE POSTAL & VILLE":" - 00000 ............................."9:6:"";V$:N$""V$""330.V$""190:774,V$K(V$)9190wI15:AS((V$,I,1)):AS48AS57190I:(V$,6,1)" "190I7(V$):AS((V$,I,1)):(AS65AS90)AS32190I1020:(R$)290,190:280"11:1:"FIN nvoi pour les abon- n{s @ la revue."V:"MARCHE A SUIVRE: Simplement r{pondre---------------- aux questions, puisallumer votre imprimante!"`:"FACE 1: DOS 3.3 FACE 2: ProDOS"j16:20::"ABONNEMENT (1 AN)"::17:20:"180 FJ:" ";:40:" ":::$32,2:33,36:34,2:35,22F.2:1:8" Utilisez votre imprimante pour pas-ser votre prochaine commande de dis-quette a TREMPLIN MICRO:"B:"PRIX UNITAIRE: 105F + 10 F d'envoi --------------"&L" Pas de frais d'e(T$,7):E$"TREMPLIN MICRO - GUY HACHETTE":E$"La Petite Motte - Senill{ - 86100 CHATELLERAULT"y(12):(4)"PR#0"::20:958:198:" <1> ON PEUT CONTINUER <2> ERREUR";:R$:16368,0:774,R$::I122:I:1:" "; I1I22āJ239: "(T$,28):G:E$"MODE DE REGLEMENT: CHEQUE --- CARTE BLEUE":E$"CARTE BLEUE ..../.../.../.../ - VALIDITE: ../..":E$"Montant @ d{biter: Signature:"D(3)1ĺ:E$"Vous recevrez une disquette vierge gratuite."`:E$T$1(NU$):E$" - DEMO "DE$(((NU$,I,1)));:36,65:FX:IAB$"O"ĺ:E$" - ABONNEMENT A 5 NUMEROS DE T.MICRO";:36,64:FAN$""AB$"N"ĺE$" - FRAIS D'ENVOI FORFAITAIRES";:36,65:FE:E$" MONTANT TOTAL DE MA COMMANDE: ";:36,64:T:E$" CODE CLIENT: "N$0\E$L$:E$V$:E$T$(T$,07)mf::E$"Vous prie de lui adresser la commande suivante:"p:I1LI:D(I)1ĺE$" - DISQUETTE N["I;:36,64:FDzI:I1LI:R(I)1ĺE$" - TREMPLIN MICRO N["I;:36,65:FRI::NU$""āI) ";:R$:R$""R$"1"1*:SL(R$):SL6800f4::"ALLUMEZ-LA ET POSITIONNEZ LE PAPIER":R$:>(4)"PR#1":(9)"080N":E$" ": 20 ESPACESHE$(14)" BULLETIN DE COMMANDE":" "(E$,10)(T$,20):(15):RE$I$;:36,48:"FDR(I)1TTFR/I:AB$"O"TTFACCA$"O"TTCA`NU$""TT((NU$)FX)TFDN$""AB$"N"TTFE :"MONTANT TOTAL DE VOTRE COMMANDE: ";::T" F":1020:(R$)800,330:790 ::"SLOT DE L'IMPRIMANTE (1 PAR DEFAUTR$"?"640*(R$)127(R$)8700Q(NU$)1NU$(NU$,(NU$)1):640k(NU$)1NU$"":640t640(R$)0(R$)LD(NU$)LDNU$NU$R$:640:18:33::NU$::9581020:(R$)730,620:72034,10::I1LI:D(I)1TT)590,575:580NN:::"DESIREZ-VOUS UNE DISQUETTE DEMO -> ";:R$:774,R$^XR$"N"730obR$"O"590l:::I1LD:DE$(I)::I;::" "DE$(I):v18:"TAPER LE OU LES NUMEROS DESIRES":958:NU$"":21:198:"-> "NU$;:R$ 774,R$:(R$)560,490:550Q0:::"DESIREZ-VOUS UN ABONNEMENT ? -> ";:AB$:774,AB$q:AB$:AB$"O"AB$"N"560<1020:(R$)575,560:572?:::">>MINIE<< LOGICIEL DE CLAUDE AUBRY -> ";:CA$:774,CA$@CA$:CA$"O"CA$"N"575D1020:(R$774,R$)R$:R$"E"I1II1:400AR$"O"D(I)1:490RR$"N"440R(I)0::15:868:198:"TREMPLIN MICRO NUMERO "I" -> ";:R$774,R$R$:R$"E"I1ī440R$"O"R(I)1:540R$"N"490ILI390&400:1020:11:12:@r22:T$:3:" RAMENE A LA QUESTION PRECEDENTE"H|I0RII1`400:440w:18:868:J1ID(J)0Ğ:"D";::J" ";R(J)0Ğ:"R";::J" ";:""::D(I)0:13:868:198:"DISQUETTE NUMERO "I" -> ";:R$ DE VOTRE ADRESSE":958^," - ";:657:L$"":X512767:(X)141L$L$((X)128):Xj6774,L$@1020:(R$)330,290:320J34,3::N$;8)I$:V$""ĺV$:L$T1020:(R$)350,70:340^:8:T$ h::"REPONDEZ PAR OU "::34, (5 NUMEROS)";t6::"DEMO:";::" 25 F par disquette"~60,0:61,4:62,255:63,7:66,0:67,8:768:TRANSFERT PAGE 1 A PAGE 2 34,0:32,0:33,40:35,24::768,216:769,160:770,0:771,76:772,44:773,254:TRANSFERT PAGE 1 A 2p 774,32:775,190:776,222:777,32:778,123:779,221:780,32:781,253:782,229:783,160:784,0:785,177:786,94:787,201 788,63:789,208:790,9:791,173:792,85:793,192:794,32:795,12:796,253:797,173:798,84:799,192:800,96:TEST ET AFFICHAGE INFOS!ؠƍϠ؍±؍ҠؠŠϠǰŞ̌ŠɠĠŠũҠ􍪠ΠŞ̌Šԩ占ÍàРÍѠÍ卪Рà䍠РàĠՠŹ򣰍ԠՠŹ򣱠ԠՠĻ卪ΠŠԠӠӠՠĻ󠨰ΠՠŻ堨 ՠƻˠՠ堷󍪠àՠñŭŠՠ̠Šՠý򠭠ýӱՠӲՠΠҠŠŠ̠ŠŠŠŠŠŠŠξbdefghijklmΠϠŠǠ着ŠҠҠҬРΠԠ٭Š::(4)"-HDEC"! GRIBOUILLE,PROCODEԠؠƍϠ؍²؍ҠؠŠύŠŠŠ⻠ԠҠ㻠̧󠤲à⻠⍠󱻠占占à廠堤ïL010nT16Z Z G0280àԱؠàڻ堸ؠàڻ󠤹ؠč²ؠؠàǰ?ӠҠ̧бؠİà΍ؠıà썠ؠà̰ؠ»󬍠àΠРѠҠ􍪠ЍҠɠ㢺堍ҠҠ䠍Ӎà⍠⍠РŠ􍪠Ġ占Ҡ􍪠à獠РѠ獠РѠ獠ŠǠҠ宮Ҡ䍠̠宮̠ȠҠؠ頤Š㍪٠堍٠Ѡ占ҠƍŠŠĠĠԠ̭Ԡ̭کŠРčѠ獠РčѠᠠΠՠŠؠƍà؍؍Ġ占à堤󭍠à󲻠占󲻠占ٍŠػ頼ﬠ򍪠٠ؠؠةҠ占Ҡػ占؍ؠ頸Š컠卪ύΠӠӠՠàŠ򠱠᭠嬠報堨󲻠򍪠ŠŠŠŠϠũؠϠ뭱؍؍Š,0:16384,128,127:16368,0:PW(16384):3 6:\ @*** AFFICHAGES REPETITIFS ***b J: T19:G:LS:(41(ME$))2:ME$: ^21:FL: hI513:I:(TL$,N)(V$,17N):: rR$".":R12R$" " |I513:I:N:R$:: : *** F1(6X2)bIS1261910TlIN$;(IS);" -> ";IP$;(IS);:J(6X2)ĺ" ";dvSSH:::XX1:X2ĺ(15);ES$"L005";(14):1870IN$:(15):D$"PR#0":2050:*** ICI, SEULEMENT 1 CARACTERE! ***:I1(CO$):6OUT LE FICHIER Y PASSE! ***#:P(14);ES$"X":"FONTE "F$;ES$"Y";(15):aCF951870p!ES$"D 0";z&IP$;0I195:C(I,1)ĺ(C(I,1));:::XX1:X2ĺ(14):1840DX0:1930NHCF(6X2):H(CF6)H(H1) XI1H:S31:J6203580PI1700":4:D$"PR#1":K(9)"80N":(15);iES$"E";ES$"L010";(9)"Z"{X0:POINTEURPI1990:IMPRESSION D'UN SEUL CARACTERELGFS1F1:X0Z(LG):8,(6):9,(7)13006:D$:(24):*** LA,TCFCF1:3650:A"*** FAISONS BONNE IMPRESSION! ***G,:P6PI0Y@420rJ17:::"EDITION":T350:G:" ARACTERE - IEN - OUT ? "^300hPW84PI1:1670:EDITION DU FICHIER ACTUEL rPW822060|PW671AL$" CHR$("(L$)")":290!:J*** ET LE CODE IW-DMP, DONC ? ***P:`PW271370nN81500CO$ES$"-":1510CO$IP$CO$CO$ES$(73)L$CO$CO$(N3232PL)I1N:CO$CO$(B(I))::CO$CO$D$:X0ND0İ2350B(I)13B(I)14*("> CHR$("B(I)")"026<:`F*** QUEL SERA LE CODE D'APPEL? *** fP:Z34,16:33,17:35,22:18:1:LS:G:"LETTRE-CLE -> ";dL$:n33,40:34,3xL$(27)İ3520:930L$(32)L$(159)1370AL$L$:950:AVERTISSEMENT SONORE (LIMITES DE LA GRILLE) ;:d*** OU IL EST QUESTION DE 0101 ***j:3510: SAUVEGARDE ECRAN I519:I:N2:FL:I1NZ(A(I)):8,(6):9,(7)6,I1:7,20 13070:4I:30B(I)(24)15LR7NMN:7006VR12N7İ370:NN1:910K`R14İ3540:840[jR15İ2110ztR16N16NN1:370:910~R18İ2220R23R26NMN:700R27İ3510:ES1:590R63İ3390:93095056,50:7,1:13047:6,5:7,3:1304721HN1200!R11V512005R10V131200GR8H11200WR21HH1fR8HH1vR10VV1R11VV1R1ESES0:3520:930$R3ES1:3510:160.R4NMN1:7008R5İ3510:3430:3520BR6F(F1):FR3ĺB$;:R$R$B$:850+fN(R$):L(CO$);pLNNL7MzN7N16840vN16āI514:I:N1:(V$,16N)::15:FL:"L-> ";::N;::" "AL$Fİ2110H1:V5:ONERRGOTO 7410 "":V:H:R$13474:R(R$):R32950RR26Ĺ24,0:13114!930':P*** TRACE DU CARACTERE ***V :`3750p CFN840{*N9004N((CO$,6,1))64:N16NN32>900H15:1:G:"LARGEUR 7-16 ";:R$""RB$:B(B$):B27N16:910\B47B57B1A(9)J)174Y1 vX XY2Ģ17::G:FL:"T R O P":FL::" HAUTE "::HM1:930v YPL2:6,N:24,0:13114 1240 : *** DEPLACER LE CARACTERE *** : 3510:6,NM:ES1 R4Č13194 R7Č13225R23Ĺ24,1:13114EST: ***  :h 20:FL:" DERNIER CARACTERE : ";::CF" ";::C(CF,1)ĺ"<"(C(CF,1))">":550 :G:"NON CREE": &290: 0: :*** AIGUILLES DU HAUT OU DU BAS *** D: NX0:Y0:HM0:PL1 XJ0N1 b(A(1)J)174X1 l(ENETRE EN BAS DE L'ECRAN ***% :H 35,24:3570:16:LS::T$::N :w *** PLUS OU MOINS 1 CARACTERE ***} : CFCFCF1:FSFSN2:G:G:530 180 CF96CFCF1:FSFSN2:G:G:530 180 : *** LE DERNIER CARACTERE ,((CO$,I,1)):13000:$I13JL$(127)ĺES$"*";L$;IN$;:2030[IP$;L$;IN$;g" ";:XX1:X2ĺ(14);:2000:ES$"c":D$"PR#0" 34,4::X0160 :**** CARACTERE ANCIEN ***4:!>CFME$"PAS DE CARACTERE EN MEMOIRE":340:290:0H15:13415cR:19:G::"CARACTERE DESIRE";::"> ";:R$:\R$ES$Ĺ35,22:15:LS:fR$" "2130pI1CF:C(I,1)(R$)NDI:2220z15:R$" EST INTROUVABLE":: *** REAFFICHAGE DU CARAC$)8:VAVA1:VA:20:FL:(E$,I,8):5(p :3470:\(z 16:9:"PRESSEZ UNE TOUCHE SVP ";s( G:R$::16:FL:~( 300:( :( *** TRANSFERT DES DIVERS ECRANS ***( :( E1M1:E2M2:E321468:3590( E121468:E222484:E3M1:3590) E1M1:E2а350:"BSAVE "F$",A$4000,L";:LFS1F1:LL' :(4)"BSAVE"F$",A$4000,L"LU' 180[' :'* *** CATALOGUE DE DISQUETTE SVP? *** '4 :'> :3570:::D$"CAT":::"RETURN SVP";::R$:3580:'H :'R E1M1:E2M2:E317400:3590'\ :'(f VA4:I1(EFFSC(AN,0)1:CFCF1:3240$& 5& CFFSF11;& A& :j& *** COPIE SUR UNE DISQUETTE ***p& :& 2820:FM$F$:R$(13)160& 350:"TITRE (?=CAT) ";FM$;:15:G:"";F$:F$""160& F$"?"İ3390:3290& (FS)4FSFS1:FS,4+' 0)N1:C(CF,1)(N1)7%N R(N11):RR64:R16RR32S%X N1N1R2:N1FS13140%b 17:LS::"FICHIER ";::F$;::" AVEC ";::CF;::" CARACTERES"%l NR:290:160%v :% *** ANNULATION D'UN CARACTERE ***% :& IC(AN,0)2FS:I,0::ANCTER & SAUVEGARDER"J$ CFC31:LA210(AP1):Z(L):LB,(6):LB1,(7)c$ CM0:FT0:FP1:F1APm$ 3100s$ :$ *** PETITE ANALYSE DU FICHIER ***$ :$& LG(LB)(LB1)256:FSF11LG$0 (FS)4FSFS1$: N1F14:X0:CF0%D CFCF1:C(CF, A2,C:A21,64L:IA22A29:I,0:I# PA21:Z(P):8,(6):9,(7)c# Z(A1):24,L:25,L2# H64:CC1:A2A210:A1A1L# 13260# (26)127H96# A2,C:A21,HL# A1LI2980# A210,4: FIN DE FICHIER$ 22:" FONTE PRETE A EDI6 *** FONTES D'APRES CHAT MAUNE ***."@ :T"J 13344,102:13310:13344,38:2910_"T 13310e"^ :"h 420::"* APPLE TRAVAILLE POUR VOUS: PATIENCE *"::"r A1135678DF:C32:L8:LI14568:FTLI14319"| AP,27:AP1,45:AP2,27:AP3,73:A2AP4'#)".SET"F$F$".SET":TOOL KIT APPLEc! 350:G:"CHOIX: ";::F$;::" (RETURN=OUI)";:R$::i! :! (F$,5)".FONT"F$(F$,(F$)5)".CM"! (F$,4)".SET"F$(F$,(F$)4)".FT"! (FP)(F$,3)".FP"F$(F$,(F$)3)".FP"!" 2800!, :("$:BI11 216,0:206,0:207,53:ADRESSE FONTEE CMDF32:2900W DF0:FT2890v FP3110:MATERIALISATION  160 : *** SUFFIXE *** : CM(F$,5)".FONT"F$F$".FONT":CHAT MAUVE :GOTO5008(! (FT)(F$,4*( CM0:FTCM:FPCM:R$"C"CM1:2640A2 R$"T"FT1:2640X< R$"P"FP1:2640aF 160P :350:G:"FONTE DESIREE ? ";F$Z F$""2570d 2770:R$(13)2570n A$",A$3500":FPA$",A$4000"x DE1:4140 34,22:20::D$"BLOAD"F$A)":340 300" PW7925601 PW78160A 198:2490G :p *** CHARGEMENT D'UNE FONTE ***v : 35,24 350:"OOL KIT HAT MAUVE

ERSONNEL -> ";::2:"T";:13:"C";:26:"P";::39 G:R$:"" R$"?"İ3390:2570t NECFİ420:G::18:" NOUVEAU CARACTERE: "L$" ("NE") - RET=OUI ";:R$:R$(13)ıc~ :1590i : *** ATTENTION! VA-T-ON EFFACER? *** : BIME$"PAS DE FICHIER BINAIRE EN MEMOIRE":340:2560  ME$"ON EFFACE LE FICHIER EN MEMOIRE (O/N:, *** REMPLACEMENT D'UN CARACTERE ***2$ :W. I1CF:C(I,1)(L$)NEI:2370h8 :NEI:2420B 420::18:G:"Remplacement de "L$" (return) ? ";:R$::R$(13)ġ:1370L L(CO$)1V I5L` C(NE,0)I5,((CO$,I,1))j ::1590WTERE ***: NDNDCFCP(C(ND,0)1)64:P16PP32VNPNP:360aI1PX(C(ND,0)I1):Y(X16):ZXY16L$(I)(BI$,1(4Y),4)(BI$,1(4Z),4)5:1I811:J1P:(L$(J),I,1);::: 14:LS: M2:E318417:35905) E118417:E219433:E3M1:3590T) E1M1:E2M2:E319434:3590v) E119434:E220450:E3M1:3590) E1M1:E2M2:E320451:3590) E120451:E221467:E3M1)EE1:LO60:3600:EE2:LO62:3600:EE3:LO66:3600:13517:*Z(E):LO,(6):LO1,(7):*:A*$*** CONSTITUTION DU FICHIER ***G*.:[*8F1AP:FSF11:l*BC(CF,0)FS1*LCF1āI14:FSFS1:FS,((IM$,I,1))::C(CF,0)C(CF,0)4*VI56:FSFS1:FS,((CO$,I,1)):*`I1N:FSFS1:FS,B(I): +jC(CF,1)((C(`L, `eie i ȱ  )`΅υ 0HV &  h8мL _ 4 ` R`@ *&H8@8 ieihi Lo4` `% (e$()i)(ɪ `?  L2` 0` % (ɪ81&%%` N3ƍ\3w3% () %% (ɠ% کN3\3 w3`% (ȑ((%% `% ȱ(((%%27)"L010":(9)"70N":(27)"'";:100,10000:(27)"$"::0A2$'104,1232,1360,1488 1:D1*** EN CAS D'ERREUR ***J1":1,ER(222):LS:G::"ERREUR "ER;::" ";:R$::::D$"CATALOG"16:T$:"FONTE DESIREE ? ";F$:F$""Ĺ216,0:3560:1601@3560:19:1J216,0:9301'51,0:160;2'5:("#03640:INIT FICHIER TRAVAIL60T$MT$T$:34,3a0X5:I116040:XX2:X:(M$,I,40):0:I14:5I2:(MN$,I2,1);:22:(MN$,1I2,1)::03550:STOCKAGE ECRAN016011536,1664,1792,1920,1064,1192,1320,1448,1576,1704,1832,1960,1 FIN DE TRAVAIL"]/BI$".......*..*...**.*...*.*.**..****...*..**.*.*.****..**.****.****"/E$"..*........*......***........*....****...*...*....***.*................."/I116:A(I):I0I110:T$T$"----":V$V$" ":TL$TL$"...."::V$V$" .xG198:FL868:LS9588.MN$"015263748":LB48840k.MT$"NU-MENU-MENU-MENU-MENU-MENU-MENU-MENU-ME"/M$"1 CREER CARACTERE 5 EDITER LE FICHIER2 MOINS 1 CARACTERE 6 VOIR LE CATALOGUE3 PLUS 1 CARACTERE 7 SAUVER LE FICHIER4 CHARGER FICHIER 8-:1-*** INITIALISATIONS GENERALES ***7-(:^-2B(16),L$(16),S$(9),C(128,1),A(16)t-<D$(4):ES$(27)-FM11024:M22040:AP16384:ADR POLICE-P:-ZD$"BLOAD CARAC.C"-d13394: INITUSR .nIN$ES$"$":IP$ES$"'":IM$ES$"+"ES$"I"9,133,34,4:35,22x,6:20:"LA BARRE D'ESPACEMENT";:20:"TRACE OU EFFACE LES *";:20:"FIGURANT LE CARACTERE",10:20:"LARGEUR NORMALE:8 PTS";:20:"LARGEUR MAX:16 POINTS";:20:"CTRL-E POUR EXEMPLES";:20:(T$,21),ZZİ3530:ZZ1- O$,5,1))+t+~:+:E+*** PRESENTATION ***K+:_+::ZZİ3540:k+T$:T$+2:"* CREATION DE CARACTERES PERSONNALISES *"+BIİ360:3800+N16:360:N0,23:T$"DEPLACEMENTS AVEC LES FLECHES DE L'APPL";:15:203ΠŠӠӠҠŠРՠנΠΠŠΠΠӠàﶠ堨Ω﷠㠲 婠︠﹠؍Šػ䬠頿٠ٍŠػ占àﷻ額ŠōӍŠŠ㠠Š٠ﶍؠؠﶍ򮮮ҠԠҠЍؠؠҠԻ占РōӍ堨婠ﶠ﷠︍Рƻ쬠占Š廠캠占ﹻѠﬠàﹻ堍٠ﶩٻ占ƻ﷍ŠàﶍﶻŠ፠à﷠à︻報︠﹠̧ƻﶻ򠭭ﶻŠ؍ҠԍӍ堠ԠՠĻԠՠŠՠŲû堍堠ƍ̠ՠȠՠ»󍪍ĠՠðҠՠðҠՠŷ򠲠àՠñ廠̠ՠŻȠՠƻ̠ՠȠՠ̠ՠ報Ƞՠ̠ՠŻȠՠϠ۶Ǡøﶠՠ﷠ՠ︠ՠ﹠ՠϠՠȠՠ֠ՠ̠ՠûȠՠ堪ϻû占ֻ֠ŠҠû占٠ﶻ占̩ٻ㍠РѠ챻°썠àà챍챠àÍàϻϠ㍠ﶍﷻӧ嬠à占ﷻ︻占à占àϫ򠪍ﶬ頲󠠠ﶻ堿Ż򮮮٠占̩ٻ占ٍàֻ젿֍РčŠԍӍ쭭֍ԠҠÍ٠塍Šٍٍ̩٠占̩ٻç٠٠ﶻ㍠ŠŻà֍֍РĻ忍ŠҍӍ堨̩ٻ٠占̩ٻ٠ŠһﬠŻ󮮮̩ٻ򭭭堨ﶠ婠占ֻҠҠÍ٠ﶻҠ٠ֻ򠿍РĻŠŻ占ԫŶԫčԫӍ堿Š廠占Ż︩ٻ占٠٠ﶻŠһ︻썠Ȼ占ﹻ占àֻ֍ֻҠû占٠Ҡ̩٠Рԫöàéԫ占ԫԠֻ֠ҠÍŠ̻占報󠻠󠭾堽ϻѠԻ頰û򮮮Ӎ젠婠٠﷍︩ٻ̠ϻ占àֻ֍àﷻ占֍РŠŻ︍﹍à﹍٠٠ϫΠٍﶩٻ占РĻӠҤ占ŠòΠûò︩ٻ占Ġ堷ϫ٠󠿍ŠλӍŠŠ占Š堻ō쩬٠ӍŠȻ컠占軠占à占荠٠쩬ٍР堿Ѡ麠ĻРѠӠΠֻҠ㍠컠占Íàä占﷍占ÍàҠРӍԭŠԠŭ堤àᬠ婍àà婍àﶻ占ﶻ堶ﷻ占à占٠ٽﶩ٠堨𩍠à占à堭򮮮Р報à썠占ﶍ占﷍٠ٽﶩ٠堨ƩР堤à㍠РƻƠӠ㍠ﶫӍҠҠҍ﷍٠ﶍӍŠӠӠӠŠũҠûҍﶫҍﶫҍڍٍ؍ؠ󠿍Š廠ؠ٠Š廠占à﷍à︻Š廠ҍŠջ鍠󫷻ٍààٍؠػﶩٻà̠ﹻ؍؍ؠŠԻΠﹻؠٻ占٠占٠ؠﶩٻ占ػҍٍ؍ؠ󠿍Š̠̍占٠ՠؠԠҠػՠﶫՠﶫ̻占ﶍȍ﷍ύ︍٠̭٠Рō?-IAHAQ|BHAIIII6CH>AAAAA"DHAAAAA>EHAIIIAAFHII GH>AAAII:HHIHAAAAJH0@@@A?KHAIbALHAA@@@pMH~NH ~OH>AAAAB<PHAQQH>AAaA>RHAQ1NSH"EEEEI2THAAAAUH?@@@@?VH @@ WH @ @ XHAA""AAYHHpHZH;hlHd8?H@HxDAHBHvCH~BDH~EHFH GH~rHHIHJHpKH$BLHMHNHOH~~PHQH~ARH1QSHF+I!H"H#HQ@$H$JJJ2%Hg&H`@'H(H|)H|*HZ<,H`-H.H@/H@ :Hl;hPH""=H?HY [H^H_h`HUUUU~HOH]HJUUUU) H@>VH @ WH @>@ XHA""@YHABDHT"ZH@aQIECA1HA@2HBaQIIf3H"AAII64H5H'EEEE96H8DFEE97Hq 8H6IIII69HFII)0H>QIEC>!H_"H#H$H$****%HG%tRq&H0HFMR P'H(HDD@uH<@@@ |vH @@ wH @<@ xHD((Dyh~zH.H``/H@ :Hll;hvHAA"?HQ^H_h\h""$#HH>II!B[H]HJUUUU('H~H`HUUUU~zHDdTLD@1HBA@@2HBaQIEb3H"AIII64H8$"! 5HGEEEE96H8DFEE97Hq8H6IIII69HNQQQ10H>QIEC>@H8DEFH<@{H8TTVUTX}H8TUVTTH|H<@AB@ |!H_"H$H$****%HG%tRq&H0JEJP P(H"AA)HAA"*HI**I+H>,hp-HCaQIECaaH8DDDH<@bH(DDDD8cH8DDDDDHdH8DDDD(eH8TTTTTXfH|gh~hHxiH}jH0@@@@=kH(DlH@@mH|xxnH|xoH8DDDDD8ph""""qh""""rH|sHHTTTTT$tH?DD@@0uH<@@@@@<vH @@@ wH @8@ xHD((DyhrTHUHVH?@@ WH?`@?XHf<$BYH ZH񙏇[H\h>$ ]HZZ^H_h`HUUUUaHxDbHxcHx@dHxeHx@fHw gh^hHiH}@jh@} kH0HlH@ ~@mH27:16368,0:::300E 216,0:22::" A REJOUER! "::198:140p 216,0:22::" IL Y A UN PROBLEME ":v " ,12:"<1> MENU DISK <2> PROGRAMME <3> FIN ";:R$:R$ 6R$"1"ĺD$"PREFIX,D1":D$"RUN MENU" @R$""ė:( J:12:"TITRE ->":D$"03 D$"PR#1":ES$"N":(9)"80N":(15);(9)"Z"G 768:ES$"D 0";X D$:ES$"'";q I33127:(I);:: XX1:X2ĺ(14):220 (15);ES$"$"::D$"PR#0" :12:"VOTRE FONTE ";::F$;::" EST INSTALLEE" 198:16368,0:16384,128,1d::(21):(nD$(4):ES$(27)@xD$"BLOAD CARAC.CH"s12:"TITRE DE LA FONTE A CHARGER (?=CATALOG)"14:"-> ";F$:F$"?"ė:D$"CAT":R$::270:D$"BLOAD"F$",A$4000"12:"ALLUMEZ L'IMPRIMANTE (DMP/IMAGE WRITER)" 28X|J||\j<~~f$^J~J sJHdtH uJ||vJ<|`<wL<||||<|ÁYNZN1L2L3Lff4L8<6305L_s6L~r+IAPngcccccflBPpCP~dDPpEPFP333333GP~tHP00000000IHJJpKP<~ÁLNMP8pp8NM 0`OM<~|8PNxnHoHxxph"BB pour d::(21):f12::"POUR UTILISER LES FONTES DE LA DISQUETTETOOL KIT (APPLE) DOS 3.3, IL EST EVIDEM-MENT INDISPENSABLE DE LES CONVERTIR POURQUE LE SYSTEME PRODOS LES RECONNAISSE... UTILISEZ VOTRE UTILITAIRE SYSTEME ":v g:"Quand vous disp< 5600:(4)"BLOAD TRIBIN,A4700": $125C (LONGUEUR 858)Q::(21)::Z0Z550(21:" La surface d'un TRIANGLE est {gale au DEMI-PRODUIT de sa BASE par sa HAUTEUR"2:I515:I:5:" ";:36:" ":I5I15āJ635:I:J:" ":< F ( W( : : ( :<2 W n :n :<2 : 2 Ww :ܠ : 2 : W" :" : :# :# : :  : :) WB :B :8 :B# :<# :2 :. :.# :)# :) :. W=E,A,SCALENE,D,EQUILATERAL,CZZ110:X(49200):3X(49152):X128530J49168,0:20:"":q&8192,0:A$"2001<2000.3FFEM D823G"0I1(A$):511I,((A$,I,1))128::72,0:144:::3:4700:580:40D49236,0:49235,0:49239,0:49232,0:NRECTANGLE,B,ISOCEL/TM6/MENU"R$"T"420%:D:XX1:("MRT",X,1);::T21:958:24:6:"PRESSEZ UNE TOUCHE QUELCONQUE";:20:""198:16368,0:16384,128,127:16368,0:Z:Z,HI7,ZB,H:I7,ZI7,H1:3:I,ZI,H1:Z,HI,ZB,H"UNE LACUNE QUI SERA DONC COMBLEE":420YE4ĺ"UNE BONNE REVISION S'IMPOSE...":420"CONNAISSANCES TRES INSUFFISANTES":22:198:X0:460:"ENU DE DISQUETTE ";:460:"ECOMMENCER ";:460:"ERMINE ";:R$:R$:R$"R"Ľ:20 R$"M"ĺ:(4)"-NEGAUX"634,7:35,15&@QZ:EZ9JQQ1:Q$:RB$T5Q2:198:5::Q$;::" LETTRE-CLE -> ";:R$:R$:R$RB$EE1:340^5Q2:5:Q$hQ4330r490:|15:958::5:EZĺ" ";::"BONNES REPONSES: TRES BIEN!":420):E1ĺ ::5:"Quelle est la bonne d{finition ?" 16::"A";::" Deux COTES EGAUX et deux ANGLES EGAUX qui leur sont oppos{s": :"B";::" Un angle DROIT": ":"C";::" Trois COTES EGAUX (angles= 60 degr{s)": ,:"D";::" Trois COTES I0~ 7:8:"COMME VOUS LE SAVEZ, CES ":9:8:"TRIANGLES AVAIENT MEME BASE":11:8:"MEME HAUTEUR, MEME ";::"SURFACE":: 470::480: T$" Q U A T R E Q U E S T I O N S "::2:5:T$:T$" ":1:5:T$:3:5:T$/:22:520B 24:6:" LA HAUTEUR RESTE CONSTANTE ";:20:""i I7B7:500:510::500:IB:510 470:5:22:"ICI, C'EST UN TRIANGLE ";::"RECTANGLE"::480 470:7:22:"ET VOICI LE MEME... ";::"ISOCELE": :B2,ZZ,HB,HB2,Z:48470O 198:21::"BASE = "B;::" SA HAUTEUR (10 A 150) -> ";R$:R$""90k H(R$):H10H150130 470:22:8::"BASE =";::" "B" ";::"HAUTEUR =";::" "H 3:Z,HZ,ZB,HZ,H:580 24:4::"PRESSEZ UNE TOUCHE SUIVANT VOTRE GRE":480::470: P8:9:"DONNEZ LES DIMENSIONS DU":10:9:"TRIANGLE QUE VOUS DESIREZ ":12:9:"OBSERVER SUR CET ECRAN..." Z:Z:Z,Z:3082:470 d198:21:"QUELLE EST SA BASE (20 A 279) -> ";R$:R$""İ470:420 nB(R$):B20B279100 x := :. :. :I WN :N# :I# :I :U Wn :n# :i# :i :Z :Z# :U# :U :Z Wi :i :Z :Z :u Wu# :z# :z :# :# : : : :z :u : ***************** :]:20:868:"ALLUMEZ VOTRE IMPRIMANTE S.V.P";:R$::20:868:(4)"PR#1"::(9)"80N":(27)"E";(27)"L020"(14)"DEPLACEMENT DU"(15)PT$::I1N1:E$" ":I9N110E$""E$;I;". ";E$(I);:36,50TTTTT(N)PH$"":M$"":H$((TT60)):((H$)60)TTM$(TT((H$)60))HC$H$:M$""HC$HC$","(((M$)10060))H$H$"h"M$570:270:******************************** IMPRESSION ***************ILT1T$(T$,I)"0"(T$,1):380*DPTM%60(T$):420yTX%((T$)):TY%((T$,LTPP)):TM%(60TX%)TY%PPT$T$".00"TM%300Ģ21:1:TM%" MINUTES - CONFIRMEZ PAR OUI SVP ";:R$::21:868:R$"O"280T$(N)T$:T(N)TM% ĺT$(N); YV:"";T$( ^T$"?"235> cT$"C"İ600:335R hT$""T(N)430a mT$""185u rT$"*"N1240 wT$"F"Ĺ35,22:235 |P0:PP0:LT(T$):LT280 ILT11:C$(T$,I,1):(C$"0"C$"9")C$"."280 C$"."P1:PPI$P4:VI1:E$(N)) 'E$""E$(N)""330A ,E$"F"Ĺ35,22:235W 1E$"C"İ600:280f 6E$""280z ;E$"*"N1240 @E$"?"235 EE$(N)E$:E$"" JT$"RENTREZVOTRE HORAIRE"::230: O16:24:"TEMPS "N" -> ";:V(X)1 T868:198:T(N): T$V$:230:1856 TTTT(T(N1)):NN2:435< :H :R$:N V N0c N0:TT0m NN1 T$"LIBELLEDE L'ETAPE"::230: :14:868:N" ";:VI(X):PT$;:VI1:198:E$(N)""ĺE$(N); VI1:"";E$ "E$""E$(N)""Ģ1ISQUETTE: ";::"M";::" ";:R$:R$"M"ė:E :(4)"-MENU"] R250,480,540:190c : ****************************** ** SAISIE DES DONNEES ** ****************************** : X8:I1217:XX1:X:33:(T$,I,7):"MENU EXPRESS -----------"3 :" 1. SAISIE"N :" 2. IMPRESSION"f :" 3. TERMINE" :"------------- CHOIX -> ";:C(X)1:CV(37)1 :600 CV:C:958:198:R$ (R$)250,480,195:185 :2 12:"POUR LE MENU DE Dd:(21):"iT(30),T$(30):nI121:V$V$" ":VsI111:PT$PT$"...":\x:}******************************** PETIT MENU ******************************** :9::" LES ETAPES DU PARCOURS ": :  :  : :# :# : : : : : :`W :# :# : : : : : : : : : : W : :Π :Π# :# : :ՠ W : :ڠ :ڠ : : :ڠ :ڠ : :# :ՠ# :ՠ : W :T(I)600ĺ" ";#T(I)61ĺ" ";2T(T$(I))kT$((1T1000)1000):L(T$):T$(T$,L1):T$;" mn"q y:SV1:570::(4)"PR#0"35,24:185!:&******************************+** TEMPS TOTAL **0****************************** 5:`:23:"TEMPS TOTAL:"H$" ("TT" mn) OU ";::HC$;::" ";:f?:D******************************I** AIDE-MEMOIRE **N******************************S:X670]11:958:I110:"----";:d:(21)::22.iD$(4):E$(27):SU0<n480:200Bs:fx******************************}** AFFICHAGE DES PARAMETRES ********************************::18:958"PAGE ";::PG;: " - MODE ";:T$"BLANC SUR NOIR":IN16N:I". "5)M$(I):868:V20:J V:V$;N;". ";M$(N);:5:"";M$^ M$"*"N1260n M$"*"160~ M$""250 M$(N)""ĢV:868:NN1:280 260 M$(N)M$ V:5:868:M$(N):M$"*"NN1:160 150 22:39:198:M$ d:(21)::M$(50)Nn:" SAISIE EN BASIC ";::30)"INITIATION":34,3kx*** SAISIE DES MOTS ***sN022:"* POUR CORRECTION - CTRL-C POUR FIN"NN1VN3:V20Ĺ35,21:912:35,23:V20V$" ":N9V$""' M$"*"V20Ģ4:$(J):VV1:(JDI)(JDI)ĭH59HH26:V1p :20:1:22:"ASIC ENU ";:X$:X$"M"X$"m"ĺD$"-MENU"x (:e H1:VH:F$(100),BL$(100):D$(4):D$"PR#3":D$"PREFIX":C$:D$"OPEN"C$",TDIR":D$"READ"C$:17I13:BOF$::I152:F$(I):F$(I)(F$(I),28):BL$(I)(F$(I),3):D$"CLOSE":II3:DI(I3):DI3IDIDI1- J1I:1403,H:V:(F$(J),20)BL:22:"<1> ENCORE <2> MENU DISQUETTE <3> FIN ";:1745,49:1756,50:1775,51:R$:q (R$)110,690,700:670 (4)"RUN MENU" : :"768,165:769,6:770,166:771,7:772,76:773,65:774,249:775,165:776,6:777,166:778,7:779,76:780,36:411:V((N$,I,1))48:V9VV7@ 0NN(V16P):PP1::\ ::10:" DECIMAL: ";e D775k N: X*** HEXADECIMAL EN BINAIRE *** b: l:14:" BINAIRE: ";:782 v: *** ON CONTINUE OU PAS ? *** : 32,0:33,40:21:U ,208,5,206,45,3,240,9,202,208,245,174,44,3,76,23,3,96,0,0::793,192:794,136:795,208:796,5:797,206:798,45:799,3z800,240:801,9:802,202:803,208:804,245:805,174:806,44:807,3:808,76:809,23:810,3:811,96:812,0:813,0:R0,0:)\ CODE CLEARHGR,SON f768,169:769,32:770,133:771,7:772,169:773,0:774,133:775,6:776,162:777,64:778,160:779,0:780,145:781,6:782,136:783,208:784,251<p785,230:786,7:787,202:788,208:789,244:790,96:791,173:792,48771,44:772,254:768:DLO,ES(ES256)256:LO1,(ES256):ES8192:LO60:680:ES9208:LO62:680:ES1024:LO66:680:675FONCEZ UNE TOUCHE QUELCONQUE ";:R$:::685:6:Z******************************~** TRANSFERTS DES ECRANS ********************************:ES1024:LO60:680:ES2040:LO62:680:ES8192:LO66:680768,160:769,0:770,76::$b:"PENDANT LA SAISIE:"::Fg"- VOUS RENVOIE AU MENU"nl"- INDIQUE LA FIN DE LA SAISIEq"- <*> PERMET DE REVENIR EN ARRIERE"v"- RENVOIE A CE PETIT TABLEAU"{"- CONSERVE LA DONNEE EXISTANTE"022:5::" ENM0T$"NOIR SUR BLANC"! T$N I$""ĺ"IMAGE: "I$;:DRĺ" - DRIVE "DRu SLĺ"IMPRIMANTE DANS LE SLOT ";SL{ : ****************************** ** ENTREE DES PARAMETRES ** ****************************** :6 22:1:8781,237:782,165:783,6:784,240785,3:786,32:787,23:788,3:789,165:790,7:791,160:792,8:793,10:794,72:795,169:796,176:797,144:798,2:799,169800,177:801,32:802,237:803,253:804,104:805,136:806,208:807,241:808,169:809,160:810,:D$"CATALOG,D"DR::R$::::I$"":260^ '22:1:868:"SLOT DE L'IMPRIMANTE ? -> ";:R$x ,R$(8)R$(11)275 1SL(R$):SL1SL7295 6140 ;22:1:868:"IMPLE DENSITE OUBLE ";:S$:DS0:S$"2"DS1 @P$",A$2000":PG2P$",A$ P,V:170 :8 *** SAISIE DU NOMBRE ***> :L ::868r 5:"NOMBRE ";::(S);::" ";N$~ L(N$) "(S66(L4L16))(S66((L4)L4))270 ,S66320 6L4S72L5S72270 @I1L:M((N$,I,1)) JS66(M4d::(21):720n:#x:G*** AFFICHAGE DU TITRE ***M::"CONVERSION: DECIMAL HEXADECIMAL BINAIRE":I110:T$T$"____":16368,0:P,V:P0Į:170P,V64I115:B(49200)S(16384):SV64260 :F$; "240:: ,230V 6::" N'OUBLIEZ PAS LA DISQUETTE TOOL.KIT !"::240f @216,0:120R$""R$(8)R$(11)ĺ:200) I$R$X 22:1:"IMAGE -> "I$;:11:"";R$:I$I$R$y I$"?"(I$"A"I$"Z")250 I$"?"İ140 22:1:868:"DRIVE 1-2 ? -> ";:R$::DR1:R$"2"DR2 R$(8)R$(11)250 I$"?"İ140* "I$"?"ė68:"<1> HGR <2> HGR2 -> ";:P$:PG(P$):PGPG1B PG1đV PG2Đ:SU8192^ :g 140 22:1:868:"<1> INVERSE <0> NORMAL -> ";:R$ R$(8)R$(11)200 M(R$):M1M1 10,M 140 22:1:868:"IMAGE -> ";:R$: 0 B 0 u >e? >? $ BLLb% b`HDCuHUSTON!v '  'HDEC;v !v &HDEC.S*!v STARTa!(HDEC.BASE!32:811,237:812,253:813,96$B1037,4,1045,8,1057,2,0,04000"# E:D$"BLOAD"I$;P$",D"DRN J49235PG,0:49234,0:49239,0:49232,0T O:x T****************************** Y** IMPRESSION ** ^****************************** c: h(4)"PR#"SL m:(15) r(9)"80N"wDS385 |E$"!";E$">";$E$"n";1E$"T01"FAD:ADADSU:P0NADcE$"G0280";:779k:~PP1:P8410DD1:D24400E$(34)D$"PR#0"X0:I10131015:XX1:I,A(X):::: *******************"M$"*"NN1:260( ,M$(3)280b 6:12:4:"ASIC ENU ";:X$:X$"M"ĺ(4)"-MENU"1,1,67,72,1,1,1,1,1,1,1,255,68,72,255,0,0,0,0,0,0 "0,69,72,0,0,0,0,0,0,0,255,70,72,255,128,128,128,128,128,128,128,71,72,128,128,128,128,128,128,128,128,72,72,128,128,128,128,128,128,128,255,4:- (27)"$":(9)"60N":(27)"L010":A (4)"PR#0"::Z I768773:C:I,C:s 165,6,32,237,253,96 (4)"PR#1"::(27)"I";(9)"60N":(27)"Z" I184:C:6,C:768:: 3 27,43,27,73,65,72,255,1,1,1,1,1,1,1,66,72,1,1,1,1,1,1, d230$n(27)"'";(27)"L020"2x(27)"E"@(27)">"P(27)"T16"j"A";(27)"R050B";"C"I122:"D";:(27)"R050";" ";:"E":"F";(27)"R050G";"H"(27)"T22";(27)"<" I18:(27)"$";(I64)" = ";(27)"'";(I64):56,8784,8912,9040,916817,219:818,24:819,169:820,4:821,101:822,7:823,133:824,7:825,96N:uX0:I10131015:XX1:A(X)(I):1013,76:1014,0:1015,03::8192,8320,8448,8576,8704,8832,8960,9088,8232,8360,8488,8616,8744,8872,9000,9128,8272,8400,8528,867,165:788,8:789,24:790,74:791,133:792,8:793,169:794,0:795,105:796,0:797,24:798,101:799,10800,201:801,2:802,208:803,3:804,56:805,233:806,2:807,32:808,237:809,253:810,202:811,208:812,230:813,200:814,192:815,40H816,208:8***********1** ROUTINE LANGAGE MACHINE **U******************************[:768,32:769,123:770,221:771,32:772,82:773,231:774,132:775,6:776,133:777,7:778,96:779,160:780,0:781,177:782,6:783,133g784,8:785,162:786,7:78411:V((N$,I,1))48:V9VV7@ 0NN(V16P):PP1::\ ::10:" DECIMAL: ";e D775k N: X*** HEXADECIMAL EN BINAIRE *** b: l:14:" BINAIRE: ";:782 v: *** ON CONTINUE OU PAS ? *** : 32,0:33,40:21:U AG 15:T$T$:7:T$T$::I816:I:" ";:40:" ":::32,3:33,36M :q *** DECIMAL EN HEXADECIMAL ***w : 12:"HEXADECIMAL: $";:S72ĺN$:570 768:570 : *** HEXADECIMAL EN DECIMAL *** : N$(("000"N$),4):P0% &I8M49)260! TM47M583709 ^M64M71S72370B h260H rN |:r *** BINAIRE EN DECIMAL ***x : S66P0:IL11:V((N$,I,1)):NN(V2P):PP1::N$(N):440 S72İ540:440 N(N$) B(N256):ANB256:6,B:7,---------------------------------------* ?* * Pour utilisation avec & (Ampersand) taper POKE 1013,76 * * POKE 1014,0 et POKE 1015,3. Ensuite, avant chaque uti- * * lisation,il suffira de taper "&". Sinon, un r{sultat * * identique sera obtenu avec un simple "CALL 768" * *-----------------ol convenait) JMP INIT; Et \a recommence SORTIE JMP Reset POSITION LDA #$13; $13 = ligne 19 STA $25 JSR Bascalc; Calcul indispensable JSR Cr; Pour aller ligne suivante RTS ; Retour @ l'envoyeur *--------------------------------------------------------$3E et CLC ; (attention, en additionne) ADC $3F; $3F va grossir (pu pas) A BEQ Sortie; (si 3E+3F <> 0 on continue) LDX $3E; X est charg{ avec $3E LDA $3F; et A avec $3F pour aller @ JSR Linptr; qui affiche le nombre hexa JSR Clreop; Effacement (Clrei}re utilisation INIT JSR Position LDA #$A4; $A4 = dollar JSR Cout; Affichage du dollar LDX #$00; Registre X mis @ z{ro JSR Nxtchar; Saisie du nombre hexa JSR Zmode; Mise @ z{ro du Mode JSR Getnum; et r{cup{ration du nbre hexa LDA $3E; contenu dans FA7; R{cup}re un nombre hexa ZMODE EQU $FFC7; Met @ Z{ro-Mode ($31) RESET EQU $FA62; Retour Applesoft avec Bip *------------------------------------------------------* * * JSR Position JSR Clreop; Prem; Affiche X et A en hexad{cimal BASCALC EQU $FBC1; Calcule l'adresse de base CLREOP EQU $FC42; Effacement fin de la page CR EQU $FC62 ; Envoie un retour chariot NXTCHAR EQU $FD75; Lire le prochain caract}re COUT EQU $FDED; Sortie de caract}re GETNUM EQU $F*------------------------------------------------------* * CONVERSION D'UN NOMBRE HEXADECIMAL EN NOMBRE DECIMAL * *------------------------------------------------------* * * ORG $300 LINPTR EQU $ED24 :22:"<1> ENCORE <2> MENU DISQUETTE <3> FIN ";:1745,49:1756,50:1775,51:R$:q (R$)110,690,700:670 (4)"-/TM6/MENU" : :$768,165:769,6:770,166:771,7:772,76:773,65:774,249:775,165:776,6:777,166:778,7:779,76:780,36:781,237:782,165:783,6:784,240785,3:786,32:787,23:788,3:789,165:790,7:791,160:792,8:793,10:794,72:795,169:796,176:797,144:798,2:799,169 800,177:801,32:802,237:803,253:804,104:805,136:806,208:807,241:808,169:809,160:81占Р占Ӡ㍍?占٠Ƞ򠿍àŠ占àР占Р占Р͠占àŠ堿٠Ƞ占Р占֠썠Ҡ ̠ȍŠ̩٠占Р堿ŠϠ占٠鬠占占ӠŠΠà֠占Ҡ ̠ȍ占̩٠Š٠̠ȍ̩٠占Р堿ѠŠ頿占̩٠占֠占Р堿àΠ SAISIR LES DONNEES."_ F:"RESTORE":"-------"::"APRES MEMORISATION, TAPER NEW ET CECI:" P:"10 HOME":"20 PRINT CHR$(4)"G$"RESTORE ESSAI"G$:"30 FOR J = 1 TO I-1 : PRINT M$(J): NEXT" Z23::"<1> MENU DE DISQUETTE <0> ON ARRETE ICI";:R$: d ::(21)::G$(34)M:"UTILISATION DE STORE ET RESTORE (PRODOS)"l3::"SAISIE":"------":("10 HOME":"20 FOR I = 1 TO 5":"30 INPUT "G$"DONNEE -> "G$";M$(I)"2"40 NEXT":"50 PRINT CHR$(4)"G$"STORE ESSAI"G$ <:"TAPER UN RUN, ETgh^_ e^i_ij :Lԩ^^Șe^^_^`ȍàȍҠ̍РĴƵǠٍٍ̩٠ٍٍ̱̩Šٍ̱Íà̍̍à̲àȍ̲٠ٍ̩ŠӍ?נé΍Ǡ̠ՠōȠՠƍ̠ՠȠՠ̠ՠȠՠ̠ՠƳǠ̍٠ȍ̍٠ȍҠǍÍà̍̍0,32:811,237:812,253:813,96&D1037,4,1045,8,1057,2,0,0::R$"1"ĺ:(4)"-MENU", nR$"0"Ĭd*********'B$(A$,F,1):A(B$)32;ADR24838(A7)]24602,L(ADR):24603,H(ADR)v239,C:238,L:24576|34:670$ 0C15:L134:670:24740? :C25:L134:670:24615Z DC35:L134:670:24802j NS(16336)| XT1100:T,A b530 l v ***********************  *AFFICHE UN CARACTERE *  **************ES *$  ***********************2 C2:L171C A070:670W CC1:C38480f C2:LL14m A 0,154279,154  ***********************  * ANIMATION .... *  *********************** A070 S(16336) &C5:L1****$ 6 *ECRIT+2*LARGE+2*HAUT *B @ ***********************P JC12:L84a TA$"GROSSIT"p ^F1(A$)y h630 r24802 |CC2:F 0,110279,110   ***********************  * TOUS LES CARACTER 3 ***********************Q *ECRIT+DOUBLE LARGEUR *o ***********************} C20:L45 A$"PRESENTE" F1(A$) 630 24615 CC2:F "  , *******************"GOURC BERNARD". dF1(A$):630:CC1:W n u x *********************** *ECRIT+DOUBLE HAUTEUR * *********************** C0:L21 F1(A$) 630:24740 CC1:F  (4);"BLOAD GROS.C"2H(ADR)(ADR256)WL(ADR)((ADR256)H(ADR))256j(:3:16302,02 < ***********************F * ECRIT *P *********************** ZC0:L21:A$GROSuHUSTON! ' '%DEMO1} ! %DEMO2 ! &GROS.C !` $GROS! !"HЅNqȅN8!Oqe"O8#N$O"% "(ɠH(%h% "h($"% "(ɠУ!""#h"`  (4);"BLOAD GROS.C"=(4);"BLOAD/TM6/IMP/EX"N(3:16302,0wn x *********************** * DOUBLE HAUTEUR * ***********************L182: LIGNE BASSE DE LA PARTIE AGRANDIE; A9ű؍űÍàӍԲؠōŲÍàŲ؍ŲÍàӍűؠóŲؠŠҠԠ̍ōÍàűŲ͍͠Ҡ͍ӠԱàōōРŠ͍ōĠ̠͍ōؠ͍̠͍ӠԲàōŠ؍ӍԱؠōűÍà¤̍ԠōҠƴ٠ōٍōҠō٠ōűٍٍŲٍàōà̍ŠԍӍŠōĠƍ͍ōōōōŠҠƴ٠ؠ̍Ԭ؍ٍà̍ààōŠōӍŠҠ̠ǠŠՠűՠÍŲՠčŠՠŠՠ̠ՠƍ͠ՠŠՠĠՠō ՠō ՠƍŠΠŠƱ"""""">>>":"""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >6??66!)600>>xxxxxxx ``" $< ((&42,, *>*>> "2*&" "  >"  ">> "0"">" """"""<>> " >""">"">"""""""   b&` & K`&ȥ& `)J)x  `}``}`` 0@` 88 & & &`  '`  ` 1: NOMBRE DE LIGNES AGRANDIES,SOIT GRANDEUR DU CARACTERE\ 24741,A:24748,A1:24753,Aw T12000:T: ATTENTE C425: NOMBRE DE COLONNES TEXT AGRANDIES 8,C:9,L:24740: INITIALISATION + APPEL ROUTINE C 198:16368,0:R$::(͍