8L2C)pJJJJ IH(ȱH:=IH[H`@HcH  $ +   I/H`JLNGȄBȄF aK  haaFF  mJm# KKJ UJ )J ۈ) ;J3ȱJFȱJGJKaȄM  aaNNJFLGJL L P% b oɮ)ȹ yɇ2JfF  eJeץ  ieLϮϮɍ `ΠՍK V)RNDQK!9,ALLER.RETOUR;K!9TRIKKCK K(MINI.DOCo!K!G/1MLIK!I5MONOCHK!= HVwK!I!LOUPExKKUNXDEUXK!HSECTKKMELK K+QUATRE.OPERfK!9TM17K' STARTUPKK'STARTUP K!IPOLY K KWARMK!9FONTENK K*CLASSEMENTu? &PRODOS `DaElH$?EGvѶK+`L HHLy XP LM ŠϠĠӠS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8Rd:::(21)=n5::"PROGRAMMES DISPONIBLES (TM17):"kx34,3:3:P$(17):D$(4):D$"PREFIX/TM17"PRINTD$"BRUN PRO.FP"::N0NN1:N17190N18ė:N1A$,P$(N):A$"0"NN1:190:(N64);::3:A$:150! 22:"(S) !"#$%&'()ĠŰƠƵΠĶԠÍϠԠ³ϠµÍԠIJؠƹԠ³֠µ òŠõ̠ùÍ٠İÍԠčŠŲÍԠŹ堠堠頠αββÍβō͠Ƞ̠֠ıÍIJōĴΠKK!= RPL&K!= POLYuHUSTON!K' '+POLY.SOURCET5K!7 *POLY.OBJET+ K!7 &DESSIN3K!@7 .EXEMPLE.SOURCEDwK!7 EXEMPLE.OBJETHK!7 (POLY.BASJ)",MINI.DOC>"MLI (INFOS, OPEN-READ-CLOSE, page 69)",MLIG0,0&"Avant d'utiliser cette routine (surtoutdestin{e @ vous montrer comment aborder le MLI de votre ProDOS ch{ri) lisez bienl'article de Cl{ment Renard."PER6"RND 1 OU 0 (l'al{atoire roi, page 44)",RNDp"ALLER-RETOUR arithm{tique en page 45)",ALLER.RETOUR"TRI.B (tri simple d'octets, page 46)",TRI.B"LE MONDE DES C (lect. progr, page 47)",LIRE.C "MINI-DOC (Startup ProDOS, en page 51(A, page 37)",SECT/BLOLIB.AX "BLOCS DISPONIBLES PRODOS (V, page 37)",SECT/BLOLIB.V "MELANGEUR (Essai avec ES5 en page 40)",MEL/MEL.ESSAI "MELANGEUR (une autre d{mo en page 40)",MEL/MEL.BAS"QUATRE OPERATIONS (calcul en page 43)",QUATRE.O,CLASSEMENT? "QUELS DRIVE ET SLOT ? (@ la page 20)",DRSLo "HV (pav{s al{at. Basic/LM en page 24)",HV "DEMO.LOUPE (Loupe d'R. Jost, page 25)",LOUPE/DEMO.LOUPE "UN x DEUX (Initiation LM, en page 36)",UNxDEUX "BLOCS DISPONIBLES PRODOS 9168,0:49152,128:49168,0:Fī190. T140i ^"POLY.BAS (D{mo du Polyglotte, page 3)",POLY/POLY.BAS h"WAR (Jeu d'aventure de NOEL), page 9)",WAR r"FONTE (de Didier CHARRON) en page 11)",FONTE/STARTUP |"CLASSEMENT (alpha/longeur en page 19)"D DRSL":768,D,S:320:330r P$(S)"SECT/BLOLIB.V"ĺD$"BLOAD"P$(S):768,6,1,S:320:"Secteurs libres: "S:330 "P$(S)"SECT/BLOLIB.A"ĺD$"BLOAD"P$(S):320:768:330 ,P$(S)"MLI"ćA$::12:A$:F1:330 6D$"-";P$(S) @22:958:% J198:4 UITE (R)UN (A)PPLESOFT ";:R$:B (R$"S"R$"s")A$"0"160Y R$"S"R$"s"140p R$"R"R$"r"250 R$"A"R$"a"ĉ:: 190 22:868:"LETTRE-CLE DU PROGRAMME CHOISI: ";:R$: S(R$)64:S1SN250 P$(S)"DRSL"ĺD$"BLOA͠Ǡ٠􍍠øРàɍ̠ҠƍàˍΠҠŰÍРİˠРŠ΍ɠĴĴııŠͱͱàβŠͱàβͱٍ٠ٍ؍ÍàٍѠϷӠҍРҍҍҠٍββββŠϲϱàβŠϲàβϲβؠβ٠ؠ֍Ѡ͹Š͸ͷàβŠ͸àβ͸βٍ̠ͷ؍ŠͷàβŠ͹àβ͹ββٍͱٍβةɠͱàβŠͱàβ֍Ҡ֍ȍͳ٠ͳҠԍҠōҠ֍ȍҠ̍ҠαŠͰРǰͰؠ؍؍Ѡͱ؍Ͷά؍Ġƍά؍؍̠ͶͱβŠŵŴҠōРŰŵҠ̍؍ؠ֍ŠűŶРŠŷؠ֍ŠųŹҠ̍РŲųҠ̍؍ؠ֍РűŷРŠŸРǰŸР芏卍Ҡ̍ǴРųǴРčѠԍҠ̍РdzԠҠ֍ȍͲ٠ͲҠԍҠōŰ֍űҠҠōŲҠԍРŠŶؠ֍ؠ֍ѠŴؠŠűРЍűРŠǰРҍǰ͍Ҡ֍ȍͱ٠ͱҠԍҠōDZҠԍDzҠōdzҠԍРѠDzРŠ֍Ŷà֍ŷҠ̍ҠҠōɠōŸРŠű֍РŠŹ֍Źà֍ŠŷűРĠѠűҠ̍Рōű֍РŠűРҍűзҠԍҠύ͸٠͸ҠԍҠ֍ҠōŠҠԍРŠŵø̠ŴҠԍŴҠōҠİÍŵРŠŸ֍РŠŶųҠԻųҠԍҠōʹ٠ʹҠԍҠōҠ֍ȍ͵٠͵ҠԍҠύͶ٠ͶҠԍҠύͷ٠ͣû占ŠδР̲δРӠβٍÍРƴ퍍卍ΠҠıԠð占ɠŲűӍŲРŠűðƻ쿍ø堤ĸƍŠαРԍαРàҍ؍βàٍ̍ķ占ıΫٻ占άٍ٠¸ٍР±γРҍҠұ堤Ĵ؍ŠРĴÍؠƍؠàҠ΍Рĸؠƍؠؠ°ؠҠԍҠ΍РĴű٠؍٠ĸŠҍРà΍Ӎ卍Ҡؠ؍٠ٍұРӠҲРōҲӍŠؠػ占٠ٍ؍٠؍٠ÍѠ٠ƍѠű٠؍٠ĴŠƍIJƍIJ٠ҠōԠ󍍠ÍōōÍÍƱγƲγƳ΍ùŠϱѠϵϳβРβŠϴβРβѠ϶ϴàββРƍŠϵàβϵβةβٍРϳ϶٠ٍβÍàٍβàϷàβϷββ٠ϸάٍβٍٍ٠؍Šϸββ֍Ҡ֍ȍͲ٠ͲҠԍҠō֍РűҍūҠͲūؠŠРųؠ؍٠ٍͬΫ؍؍ٍРčŠؠ؍؍ά؍Ϋ؍؍̠؍Ŭ؍ά؍؍ؠ؍ج؍ά؍؍ؠŠҠύҠčàҠŰÍҠԍРҍҠύҠύҠύͱ٠ͱҠԍؠٮ؍ά؍Ҡԍ؍ؠŠҠԍҠٍРύѠҠύҠύҠύ؍٠؍ҠԍūҠα٠٠ūŠРųčΫ؍؍ά؍Ϋ؍؍̠͸٠͸ҠԍҠōҠύؠج؍ά؍؍ؠŠčά؍Ҡč٠ٍٍ̩̠ҠύҠύҠύ͹٠͹ʨβٍ̠Ӳ؍ŠӲàβŠӲàβӲٍӲٍβٍ̠ӲٍӲβٍβةѠӲàβŠӲàβŠӲӲРųҠ٠썍ҠҠōРčѠӱҠ̍Рӱӱؠ֍؍؍РѠӱ̍؍ӱΫ؍ά؍؍ؠŠӱӱàˍàˍ٠؍ѠӲŠӲӲàβŠӲàβӲӹà֍ӱҠӱҠōӱҠԍРŠӱҠ̍֍Р֍ѠӷŠӹӱРŠӱҠ̍֍РѠӱà֍Šӱӱ֍֍ŠӱӱРŠӱРųӱàβŠӵàβӵ̠ӴȍҠԍ٠֍ٍٍٍ̍ؠάٍٍάٍ؍ŠӲÍàӲҠ؍٠ҠύРӴӶà֠֍֍ӷ֍ōҠ֍ҠύҠԍ٠ؠӱàβŠӲàβӲβٍ̠ӱ؍ŠӱàβŠӳàβӳββββ٠ȍӴβٍѠӶҠԍàˍàˍРų卍РˍŠӰҠ̍РōӰҠōȍͷ٠ͷҠԍҠōҠ֍ҠύͲ٠ͲҠԍҠҠβٍҠ֍Ҡύͱ٠ͱҠԍūҠαū٠Ҡ͍ؠˍàIJIJά؍РƍŠʸàIJʸIJΫ؍αŠʰРųʰؠ؍؍Ѡʴ؍ʳάػᠱĠƍά؍؍̠ʳʴҠԍ٠ʵàβŠʶàβʶβٍŠʵʷά٠βٍٍ٠؍ŠʷβɵРϷ卍ҠˍРŠʲҠ̍ʱРōʲҠōȍͶ٠ͶҠԍҠōҠ֍Ҡύͱ٠ͱҠԍҠҠÍٍà؍ٍɱàβؠβؠƍŠɲàβɲٍŠɱٍؠɳβٍβةѠɴàβŠɳàβŠɳɴ٠ٍβÍàٍβӠɵàɍŠ٠٠ı٠ĴĴıƍIJIJҠōҠύҠčàҠŰÍҠԍРҍРų卍αؠͱ؍ͲҠٍРŠͳٍ̩ŠͱͳРŠʹѠͲàȍŠͱʹРčѠ͵ͱРàͲРŰӠͲŠؠѠͲά؍Ҡԍ؍ŠͲ͵ά؍Р̍ ͶàҠŠŢ ͷàҠŠŢ ͸àҠŠ٠̢ ͹àؠ ͱà ͱà忠Ωé ͲàΩé ͳàΩ ʹàӠӠՠŢ ͵àҠӠӠӢؠƲð²؍ЍЍвٍЍЍбӍؠ ٠ ø ֠ ˠ ŠàŢؠàؠ ٮàٮ͠à̤ؠčͱàÍàƍ؍٠٠ƍ٠č٠ƭ٠ō٠ƍ̱؍Ѡ̱̱Ҡ̱̠̱ɠ̱̱Ҡύ̱Ҡ̱ɠ̱ҠύŠ̱̱ҠύŠ̸𡍍̠٠±ҠύРà̱Ҡύٍ̱©ٍŠٍ̱©ٍ؍ٍ©ٍؠÍŠ̵̱čҠύРķIJٍ̱Š̱àō̱ĩٍӍ̱̠̹ӍŠ̵ƍ̵٠©ٍѠ̱ҠĸҠύٍ©ٍ؍ٍ©ٍРŠ̶ؠѠ̷̶Ӡ̷̱٠Ҡԍ̸٠Ġƍ̹¸ӍԍԠ̲ĸҠ±à̲Ѡ̲РùѠ̲РÍѠ̲̱Ӎ̲ҠԍҠ΍Ҡ·Ѡ̴РùѠ̳РÍŠ̱̳Ҡ±ҠԍŠ̴̱àŠԲōԱ؍ѠԱРōѠԱԱٍ¬ٍ؍ŠԱԱؠ¸àƍԱĩٍٍŠԱàōԱ̍àԱĩٍŠԸ؍̠ԹԱĬٍà¹ƍԷÍàĩٍѠԶРŠԱƍРõŠԹ؍РōѠԱРƍѠԱõԹ٠čԱ؍ٍ¬ٍ¬ٍѠԱÍàѠԱРŠԱԱԱÍōРѠԱӠԱРƍŠԴŠԱԴРàԵРÍàԱԵ٠čƍčƭō٠٠ƍٍؠ¸؍ԶٍŠԷàōԷ؍Ը؍РѠٍ̠ɱӍԠİααƍβƍβӍΠؠ¸؍٠٠Ա؍ԲؠԠӠԳРѠԱԳ卍Ԡð̠ԍðӍ썍̠٠αٍٍٍ̩̩̠αӍ卍Š٠ɱٍ̩Ġƍٍ̩čѠиȍҠԍҠԍàȍàȍàȍжβٍҠԍàβŠзàβз̠жà֍֍РѠиҠРвиؠ֍؍ؠ֍йӍŠҠō٠βٍŠбҠԍбββββв٠٠ȍгαٍѠеҠԍàαŠдàαд̠геβٍ ΍Πؠؠ䍍ƠؠôIJŴĴñŵĴؠôĵôIJĴؠõôĴôŵôōؠ²IJƴôƵĴôĴؠķķòƴõƍؠĵôĵôƴôõؠŴƵõŴƵĴôŵؠõôøƴô`hhH"H ,`  , hhPQPQD X ȱȱQP- $ ) \ۥ$! ک$ȱȱж \L枱`8 0 \ 0 \ \۩ И0`ؠٮh%% "Lɐ%ʎ``'( (`'()?(`Ѕ`ʠ$p "tpM?E0<= 8ɀA N4O0Ťș98:I8xІș Нƹ:ۢ  L⒠ɍʽ璝? ,  LZL ɕ(Ɉ$ɍɡ ڝ ѝL X ?$H h3 $ $$$H ɍ ВLΎ%ʊH [Y(撠hȱȱL X$ : 3 ڢ쒝 '( ک : O ک젒 :۩( } Lʽ쒝  LZ ک2 >>Y??ZL ВLN X$ޠ : 3 [ ک2 : 3 [ ?k$7H h$ % YȹYi A L%%咩%% " 3 ɕ '%Ɉ '%%֭咅%ɛLL茌㒥m㒅hhhh%H [$2 : 3h%L8⒨㒥8㒅L* ВLN X$Š : 3 [ ک2 : }L ʽ) ? [ کA :۩ } 3 ɕ% L '%Ɉ% ВL 'ʆ%LɛLɍ '%H [$Z : 3h [$ }L ʽ)HH%HHȡ0Ȍ㒭8HLI*,-./01 9 X : 3 [$ : کŠ : کޠ : ک :۩ [ 3 ɛ X ɕ%  %% ' " 30Ɉ% %%ɍ ВLN% LZ L& L# [$ : 3 ? ɕɛLɍ ВL΋ [$2 : 3% "ɋ  LɊCB<@=>O? ,LiL܍򞩊ɚʚ`⒬:L`⒌㒺L0 ahhL<Ԣv NLئij NLjԼЩɼL됞hh HHZHYHLɼLڅ38L ,a0`ɿŵ´ôŵôóؠôĴ?ĴƴĴôĴÍؠIJĴŴķƴŵؠŴĴŴĴİƍؠŴôIJõŴĴijؠIJõõijIJؠôô÷İijŵŴؠƵĵİòؠĴôƴĴƴŴIJؠõõƵõؠĴôĴƵƵŴöƍؠõƵòŵĵؠİŵĴôƴôõöؠƴõ̤ΩéΩéΩӠӠՠҠӠӠҠŠҠŠҠŠ٠ؠ忠ENFONEXDATINPUDEDIREAGTEXPRINCALPLOHLIVLIHGRHGHCOLORHPLODRAXDRAHTAHOMROTSCALESHLOATRACNOTRACNORMP~?~?~p~~ppPFF|1F>f ЀPPЀPPժժժժժժժժժժՀPppPЀժժժժժժժժժժժժժժժժժժժP*U*U*U*U*U*U*U*U*U*U*U*U*U*U*UPPPPP*U*U*U*U*U*U*U*U*U*U*U*U*U*U*UժժժժժժժժժժժժժժժժժժժPpppPfLf@3f f ЀPPЀPPPppPЀժժժժժժժժժժժժժժժժժժժPP2456789:;<=>?@ABPPP*U*U*U*U*U*U*U*U*U*U*U*U*U*U*UժժժժժժժժժժժժժժժժժժժPpppPFOf@0FO?f ЀPPЀHRLEFTRIGHTMIDAINVERSFLASCOLORPOVTAHIMEMLOMEMONERRESUMRECALSTORSPEEDLEGOTRUIRESTORŦGOSURETURRESTOOWAILOASAVDEPOKPRINCONLISCLEAGENETABTFSPCTHEANOSTEЫANOҾSGINABUSFRSCRNPDPOSQRNLOEXCOSITAATPEELESTRVAASCPPP*U*U*U*U*U*U*U*U*U*U*U*U*U*U*UP*U*U*U*U*U*U*U*U*U*U*U*U*U*U*UPPPPЀPPժժժժժժժժժժՀPPЀP~pOppPO3fЀPPPPPPPPЀPPժժժժժժժժժժՀPPЀP~xppP|1f ЀPPPPPPPPЀPPЀPPժժժժժժժժժժՀP|ppPЀP*U*U*U*U*U*U*U*U*U*U*U*U*U*U*UPPPPP~?~?|p||ppPЀPPЀPPժժժժժժժժժժՀPppPЀPPPPPPҍ¸РƍŠƱ๹Р򿍠ŠƱōРĴƱ¸ٻԍР̿ŠƲàĻ頭ŠػԠĻ΍Ҡ·ҍРĸ宮̠Ҡķ»ĻѠ؍Ӡؠ٠à¸ƿŠλРĹű頭ΠРĹÍԠ򠮮̠򍪠򠲵󡍍ҠƴРōŠƶà¸ҍ¸РƍŠƵà¹ƵРĹƶ٠󮮮ŠƳ󡍍ŠŻ鮍ôΠ΍ҠðƱĻŻōѠƲРĹű頭Ʋ٠Ƴ¸ٻŠŠƴ占РĹCEFGƍŮǠƠàΠōƻҠķ»Ҡ·占Р»ϿѠƱ鮮ƠΠŠԠ̠頪ƠΠ򠺠Š򍪠Ơ򍪠ŮP~?~~~PЀժժժժժժժժժժժժժժժժժժժPpppP3L3f@0L3f ЀPPPPPPPPЀPPժժժժժժժժժժՀP~?|||PЀPpOppP{FGFpCGf ЀРĻԿŠػàĻ頭Šػ鍠Ҡ±Рĸ? { ɫ ޥL٠L ƸƹLLL٥ L( {ݥ`ƸƹLԱƝ L(dD$(4):B$"RUN";iD$"PR#3":D$"PREFIX/TM17/FONTE"Fn MENUrs .............SOMMAIRE.............x * APPLEWORKS *} * FONTE * * MAILING *" * K!@G/1N-FT.TREMPLIN.1jK!PG/1N-FT.TREMPLIN.2mK!PG/1NFFTVoK!=/0N)FT.VIERGEqK!@=/0NCREE.FONTE.FINsK!G/1NFONTEuHUSTON!K' ''STARTUPPK!=/0N%FONTESK!G/1N$VOIRb K!=/0NFONTE.CODEd3K!9NFONTE.FINeKG/1N-FT.TREMPLIN.3g 2(4)"RUN STARTUP"  :12"Vous obtiendrez cette disquette-jeu contre une participation aux frais tr}s modeste: 20 F Utilisez obligatoirement le bulletin de commande du num{ro 17 de TREMPLIN MICRO." (I16000:Ʌ:3򞩨ɚʚ`: (4)"BRUN RP"A R$"M"R$"m"ĺD$"RUN /TM17/STARTUP"J 160IKs de bonnes conditions. Pour y acc{der: POMME OUVERTE + POINT D'INTERROGATION 198:49168,0:49152,128:49168,0::(21) :22:"(A)PPLESOFT (M)ENU DE DISQUETTE ";:R$:R$"A"R$"a"ė(4)"PREFIX /TM17/POLY"5 (4)"BLOADDESSIN"Pd::D$(4):(21)::nn(4)"BLOADDESSIN,A$4000"xC03000:::D$"PR#3"::12:D$"BRUN POLY.OBJET,A$4000" "LE POLYGLOTTE EST INSTALLE, mais lisez TREMPLIN MICRO pour l'utiliser dan Imprimer les fontes **&&>I1::(12):dII1:A$:A$"&&"T$(I)A$:150pNBEI1|:HT23HT:8::T$(0);:HT:10:G134:(255);:G:I1NBE10I:HT:T$(I)IHT:10I:G134:(255);:G:OQ""Ģ8:6:"Charger ancienne FONTE";:330gE8:6:"Charger ancienne FONTE";:35::" ";H$;" ";:J10:6:"Charger nouvelle FONTE";:35:" ";:12:6:"Supprimer une FONTE";:14:6:"Cr{er nouvelle FONTE";:15:2GOD178:"_":80:"_";:D:24:2:D279:"L";:D:(24);:;1:2:D178:"_";:D:3:5:" Catalogue des fontes nombre de fontes disponibles: ";::" ";G;" ";::" ";:4:2,@D178:"_";:D:20:2:D178:"_";:D:6:6:".....Retour au SOMMAIRE";:H$EUR ";::820:216,128::540:1403,69:" ";:160'216,0:18:1403,69::" ERREUR ";::820:216,128:540:1403,69:" ";:605,H13101D223:D:1:"!";:1403,79:"!";:D:23:2:D279:"_";::31516E$::D223:D:1:"Z";240K$"FT."F$:D$"BLOAD"K$",A$4000":18:10:"Allumer l'Imprimante (DMP/IW) ";:500:D$"PR#1":E$"N";(9)"80N";(15);(9)"Z":768D$"PR#3"::300:19:10:"Fonte ";::" "F$;" ";::" install{e ";::"216,0:22:39:".";:18:1403,69::" ERRE27160200)F$H$:275:2001J1>J1JGKJGJ110:35::" ";G$(J);" ";::" ";:34:500:E11JJ1:240E10JJ1:240E13F$G$(J):275:200 E27ĺ" ";:160240F$"" ";:II2:1602E11ĢI:3:" ";:II2:160@E13195I175j(I2)2200,230,235,340,38522:39:500:E13220J$""I$J$F$""H$F$D$"OPENFONTE.FIN,TTXT":D$"WRITE FONTE.FIN":H$:I$:D$"CLOSE":D$"RUNSTARTUP" ONTE.CODE":D$"OPENFONTE.FIN,TTXT":D$"READ FONTE.FIN":H$:I$:D$"CLOSE":H$H$(B$,1,12(H$)):I$I$(B$,1,12(I$)):I6D$"PR#3":300:290I14I6I6I14I10ĢI:35:" ";I:3:"=>";:500:E10ĢI:3:" RTUVWXYZ[\]^_`7)sD$"PREFIX":PF$\x:G$(50):D$"OPEN ";PF$;",TDIR":D$"READ";PF$:G1:A$:A$:A$}G$(G):G$(G)(G$(G),2,15):G$(G)""140(G$(G),1,3)"FT."G$(G)(G$(G),4,12):GG1125GG1:D$"CLOSE":H0:(1088)2240H1}D$"BLOAD Fd(4)"PR#3":ni12:".............< Auteur >.....................Didier..CHARRON...................."n20000:B$" "::D09:E:820D,E:: 104,168,104,166,223,154,72,152,72,96:C$(8,8):F18:D18:C$(D,F)".":D:F:D$(4):E$(2I)II1I1INBE&200;10I:HT:T$(I)EII1T INBEI1]200tI280,285,290,295D$"-APLWORKS.SYSTEM"D$B$"FONTE""200'D$B$"VOIR" I1.10I:HT1::(T$(I),2,32);:_HT:14NBE:"S{lection :FLECHE HAUT ET BAS"HT:15NBE:"Validation:RETOUR CHARIOT";:R$R$(27)ĺD$"RUN/TM17/STARTUP"(R$)13ĺ:275(R$)10255(R$)1120510I:HT:T$(;:D:22:16:" Sommaire ......... changer de FONTE";:{T14:35:" ";:J1YJ1JG^JGJ1c12:35::" ";G$(J);" ";::" ";:34:500:E27ĺ" ";:160hE11JJ1:345mE10JJ1:345nrE13Ė30:"O/N";:500:E79İ550:12:30:" ";:160w30:" ";:E78Ė35:" ";:160|345D$"BLOADFT.VIERGE,A$4000"565:580H1405UD614:D:1403,55:735(N12N12:735<((E);:NN1:L$L$(E):735Y( Q0:R1G:G$(R)M$Q1g(R:Q0ı(17:6:" La fonte ";::" ";M$" ";::" existe d{j@ /Retour pour accepter ";:540:E13Q2(17:6:60);:1) 14:1403,34:"APPEL CAR? ";:5VE FT.";L$;",A$4000,L955"::Q0:605'E13ĺD$;"BSAVE FT.";L$;",A$4000,L955":GG1:G$(G)L$(B$,1,12(L$)):J$L$:565:605'E8E127ĺ(8);" ";(8);:NN1:N1L$"":715'E8E127L$(L$,1,(L$)1):735((E48E57)(E65E90)(E46)J$:840:N(L$):12:30:"=>";:1403,34:L$;:735J&12:30:"=>";:35]&540:E27605p&E65E90720&(E);:NN1:L$L$(E)&540:E27Ģ12:30:" ";:605&E13M$L$(B$,1,12(L$)):780:Q1605%'Q2ĺD$;"BSA%JGJ1X%10:35::" ";G$(J);" ";::14(G$(J)));:34:540:E11JJ1:670m%E10JJ1:670%E27ĺ" ";:605%E13J$G$(J):D$"BLOAD FT."J$",A$4000":10:30:" ";:800:395%670%N0:L$"":J$""7153&L$27āP514:P:30:" ";:P:I14:155S$620$I:30:" ";:(I2)2650,655,665,705$J$"":10:35:" ";:800:395$I$""605$J$"":D$"BLOAD FT."I$",A$4000":800:395$J1%J1JGu Pr{c{dent ";:I6:#]I12I6H#bI6I12#g12:30:" ";:10:30:" ";#lI:30:"<=";:540:E11ĢI:30:" ";:II2:605#qE10ĢI:30:" ";:II2:605#vE13645J${E8:6:"Charger ancienne FONTE";:30:" ";:600"N8:6:"Charger ancienne FONTE";:35::" ";I$;" ";::" ";"S6:6:"Utiliser FONTE vierge";,#X12:6:"Sauvegarder la FONTE";:22:16:" Pour retour au Men" ";:m!53:5:" Cr{ation de fontes nombre de fontes disponibles : ";::" ";G;" ";::" ";:!:E(16384):E128Ğ:C$(L5,C55);::P150:P:(8);C$(L5,C55);:P150:P:(8);:570!?16368,0:EE128:!D295:F$""C"II$""Ģ;:F150:F:(8);" ";:F150:F:(8);:540H !16368,0:EE128:\ &I$G$(J)I$""p +H$G$(J)H$"" !0D$"DELETE FT."G$(J):OJG1:G$(O)G$(O1):O:GG1:3:5:" Catalogue des fontes nombre de fontes disponibles : ";::" ";G;" ";::0EL13NGĢL:1403,55::" SUITE ";::540:NN1:530k L:1403,55:G$(N);15(G$(N)));|L:NG51513:1403,55::" FIN ";::500:L613:L:1403,55:" ";:::1600 E(16384):E128ĺ"_"127İ830:800:410#430:160mE(16384):E128ĺ"_";:F150:F:(8);" ";:F150:F:(8);:50016368,0:EE128:E63ı6:1403,55::" CATALOGUE DES FONTES";::N0L8:L813:NN1:NGĢL:1403,55:" ";:538);:570:435j14:1403,34:"TYPE H ou h ";:540:14:1403,34:" ";:E72E104VLE:480s47014:1403,34:"RANGER CAR? ";:540:14:1403,34:" ";:E27I12:1403,35:" ";:605E32E126470E31E5);:4250F:1403,D:".";:C$(F5,D55)".">F:D:M2\6:1403,56:L6:C56:570kE32İ820E8CC1:C56C63E21CC1:C63C56E11LL1:L6L13E10LL1:L13L6E27470L:1403,C:C$(L5,C55);("!";:1403,64:"!";:D:14:1403,56:D18:"_";::5:1403,56:D18:"_";::410E$::D613:D:56:"Z";:1403,64:"_";:D:14:57:D18:"L";:D:(24);::5:57:D18:"_";:DK1:E13K0 D5663:F613:K1ĢF:1403,D:C$(F5,D540:E27Ĺ1403,34:" ";:I12:605=)%E13ıQ)*E32E126800)/(E);:C18:A(16389(E32)10C):L18:S1282(L1):C$(9L,C)((AS)446):AA(AS)S:L:C:)4C$(L5,C55)"*"C$(L5,C55)".":*9C$(L5,C55)"."C$(L5,C55)"*":f*>16388(E32)10,E:16389(E32)10,VL:C18:B0:L18:C$(L,C)"*"BB2(L1)*CL:16389(E32)10C,B:C:*HA1*MA(L$)855*R(L$,A,1)" "AA1:845*WL$(L$,1,A1):fhN~:H;hlHd8?H@HxDAHBHvCH~BDH~EHFH GH~rHHIHJHpKH$BLHMHNHOH~~PHQH~ARH1+I H!H"H#HQ@$H$JJJ2%Hg&H`@'H(H|)H|*HZ<(G$(G),1,3)"FT."G$(G)(G$(G),4,12):GG1G155\GG1:D$"CLOSE"vD$"BLOAD FONTE.CODE" IMPRIMANTE18:10:"Allumer l'Imprimante (DMP/IW) ";:A$18:10:"Edition des fontes disponibles "D$"PR#1":E$"q";(dB$" "%iC$(8,8)InF18:D18:C$(D,F)".":D:FUsD$(4)bxE$(27)w}D$"PREFIX":PF$}::D$"PR#3":G$(50):D$"OPEN ";PF$;",TDIR":D$"READ ";PF$G1A$:A$:A$G$(G):G$(G)(G$(G),2,15) G$QSHFrTHUHVH?@@ WH?`@?XHf<$BYH ZH񙏇[H\h>$ ]HZZ^H_h`HaHxDbHxcHx@dHxeHx@fHw gh^hHiH}@jh@} kH0HlH@d::D$(4)5i:12::"FT.VIERGE EN COURS":AnA16384XsI03:R:IA,R:lxAA3:B31:F72}BB1:A1,B:A2,FIA3A10:I,0:AA10:A17337125I,0D$"BSAVE FT.VIERGE,A$4000,L955":D$"RUN STARTUP"27,43,27,7?@@mH|xxnH|xoH8DDDD8ph"""qh"""rH|sHHTTTTT tH>DD@uH<@@@ |vH @@ wH @<@ xHD((Dyh~zHDdTTLD{H8TVUTX@|H<@AB |}H8TUVTX@~H*DSH$JIIII2THUH?@@@@@>VH @ WH @>@ XHA""@YHABDHT"ZH@aQIECA[H\h""]HJUUUU)^H_h`HaH8DDDH<@bH@?HDDD8cH8DDDDD dH8DDDH?@eH8TTTTX@fH~ gh~hHxiH}@jH}kH@$DDlHlnFII):Hl;hPH""?HY @H8DEFH<@AH|~BHIIIIJ4CHPH QH,H`-H.H@/H@ 0H>QIEC>1HA@2HBaQIIf3H"AAII64H5H'EEEE96H8DFEE97Hq 8H6IIII69H@@mH|xxnH|xoH8DDDDD8ph""""qh""""rH|sHHTTTTT$tH?DD@@0uH<@@@@@<vH @@@ wH @8@ xHD((Dyh~zHDdTLD@{H8TTVUTX|H<@AB@ |}H8TUVTTH~HNSH"EEEEI2THAAAAUH?@@@@?VH @@ WH @ @ XHAA""AAYHHpHZHCaQIECa[H\h""$]HJUUUU(^H_h`HaH8DDDH<@bH(DDDD8cH8DDDDDHdH8DDDD(eH8TTTTTXfH|gh~hHxiH}jH0@@@@=kH(DlHikNQQQ1:Hll;hvHAA"?HQ@H8DEFH<@AHAQ|BHAIIII6CH>AAAAA"DHAAAAA>EHAIIIAAFHII GH>AAAII:HHIHAAAAJH0@@@A?KHAIbALHAA@@@pMH~NH ~OH>AAAAB<PHAQQH>AAaA>RHAQ1+I H!H_"H#HH>II!B$H$****%HG%tRq&H0JEJP P'H(H"AA)HAA"*HI**I+H>,hp-H.H``/H@ 0H>QIEC>1HBA@@2HBaQIEb3H"AIII64H8$"! 5HGEEEE96H8DFEE97Hq8H6IIII69H ~@mHxnHoHxxph"BB ";M$(N):M$(N)""125xN}K0:NN1:L130I1N:L(M$(I)):LL2L2LLL1L1LIL1L2K1K JK1N:(M$(  D$(4),D$"CREATE FONTE.FIN,TTXT"ID$"OPEN FONTE.FIN,TTXT"b(D$"WRITE FONTE.FIN"p2"VIERGE"~<"VIERGE"FD$"CLOSE"dmHnHoHpHqHrHsHtHuHvHwHxHyHzH{H|H}H~HSHTHUHVHWHXHYHZH[H\H]H^H_H`HaHbHcHdHeHfHgHhHiHjHkHlHpr:H;HH?H@HAHBHCHDHEHFHGHHHIHJHKHLHMHNHOHPHQHRH,133,40,169,32,145,40,96LOUPEuHUSTON!K'  '%LOUPEzK!=/0x'LOUPE.AK!8x*CREATABHGRmK!8x'LOUPE.0(K!8x*DEMO.LOUPEhK!=/0x*LOGO.LOUPE٠ز堿ŠŲ堍àڱ頬󠍠àٱ堍ٱР報堿ŠųŠ頬젍àà򠲠ūؠؠڱ±̬ؠ堍Ų±ȬؠààōŲ٠ر堍Ųԩ٠堍ũ٠Ų٠٠ؠ󠍠ؠزűؠٱ堍±̬ؠ堍ԍ±Ȭ؍ԫؠڱ堍±̬ؠ堍ō±ȬؠààŠ媍ŠԠҠ占ԠҠԠҠ堲ԠӠؠؠرؠٱؠڱؠð󠍠ؠڲؠٲؠ報䠍ؠàԠ報򠍪ҠԠҠ占ԠҠ占ԠҠԠӠӠ報堤Ʃ堍ŠӠҠРӠР堍ŠӠҠ΍ӠРà̩堍ŠȍҠōȠРijө𠍠ŠűҠЍűРĠΠŠԍҠҍԠà³Ȭؠ占Ƞ堳Ӡ󠍪ԠĠ򠍠̠ԍԠР þ砍ŠԠРԠﮠàԠРҠ±̬ؠ̍̍²Ȭ؍Ƞᠱ堲³Ȭ؍Ƞᠱ堳ؠ占±̬؍̍̍²Ȭ؍Ƞ堲ՠðҠՠðҠՠð報Ҡՠð堲ӠՠðԠՠķIJǠؠy{|}~ՠ±̠ՠò±ȠՠŸ󠬠報²Ƞՠ󠬠堲³ȠՠŶ󠬠堳Ġՠð ՠðŠҠŪōéҮ􍪍ڱՠڲՠŠՠԠՠŠՠŲՠÍرՠزՠÍٱՠčٲՠō̠ՠÍȠՠč̠ՠōȠՠƍ̠ՠȠՠ̠ՠȠK!@8x(IM.LOUPEK!@8x᠍Š堳Ʃڱ堍ųٱРٲ󿠍ŠűӠ󠲠Рؠ堍ؠر堍ؠٱ堠ؠؠز嫱ؠð󽠍ؠٲ嫱ؠ堲ؠōбؠٱ嬠堰±̬ؠ堍ԍ(<@=hA(>B?hC`,ɛLɕ Ɉ  i ߊɍ \,P,R,T,W`,P,R,U,W ((茅(e (e ` i Э`(@ (堳ٍ٠ŠŲĠӍΠҮ?؍±̬ؠԍ³Ȭؠԫ٠ӲĠԩٍũٍٍ٠ŠӲĠؠŠβĠ٠ŲĠά٠ᠱ堍̩ٱĠ̩٠堳堍̩٠ᠱ堍٠堲٠ŠűĠؠ堳βĠ±̬ؠ󠠍Š³Ȭؠ堍²Ȭؠūؠ±̬ؠԍ²Ȭ؍ԫ٠ӱĠԩٍũٍٍ٠ŠӱĠؠŠαĠ٠堍󍪍Π٠堍ű̩٠堲堍ά٠ٍ٠ŠűؠαĠ±̬ؠ堲Šﲠԩٍũٍٍ٠ŠӲؠŠβ٠Ųά٠堍̩٠堍٠堳٠ŠŲӍ堍٠堲٠Šűؠβ±̬ؠ堳ō³Ȭؠū؍±̬ؠԍ³Ȭؠԫ٠²Ȭ؍ԫ٠ӱԩٍũٍٍ٠Šӱؠ󠱹Šα堲٠ᠱ᠍ű̩٠堳堍̩٠ά٠٠堍٠Šűؠ堰α±̬ؠō²Ȭ؍ū؍±̬ؠԍ頬Ӡ鮠穠ᠱ堲Р٠堰ű̩٠堍Рԩ٠堍ũ٠堍٠堍٠ز堍Šв宠àٱ堿ٱРٲŠбō²Ȭؠԫ³Ȭؠū堍٠ر堍вԩ٠堍堍ũ٠堠hHh`<((((ܠ@>((h(h(ܠB(`>((ʽ((ܠB<((hʽ(h(ܠ@(`((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP $(,048< $(,048((h(h(ܠB(`>((ʽ((ܠB<((hʽ(h(ܠ@(`(<@=hA(>B?hC`,ɛLɕ Ɉ  i ߊɍ \,P,R,T,W`,P,R,U,W ((茅(e (e ` i Э`(@ (:R$ :R$"C"R$"c"15J R$"M"R$"m"ĺ(4)"RUN /TM17/STARTUP"a R$"A"R$"a"ė:k 5010*0,168,104,96,0,128,0,128,0,128,0,128,40,168,40,168,40,168,40,168  80,208,80,208,80,208,80,208,0,0,1,1,2,2,3,3,0,0,1,1,2,2,3,3,0,0,1,1,2,2,3,3,0,0,0,0 "LIRE LA REVUE AVANT D'UTILISER CE MODULE" 22:"(C)ONTINUER (M)ENU DISQUETTE (A)PPLESOFT ";S PAGE 1 8 @Z384I,(7)32: OCTETS HAUTS PAGE 2h BZ576I,(7)64: OCTETS HAUTS PAGE 3 n F P12::"TABLE CONSTITUEE"::5000  32,245,230,32,11,3,133,6,132,7,96,138,74,74,74,168,185,34,3,72,138,41,7,10,10,24B  121,58,3,101,23 :5000R PROGRAMME DE CREATION DES TABLES DES ADRESSES HAUTE RESOLUTIONz UTILISEES PAR LE PROGRAMME LOUPE.I084:X:768I,X:Z35880230,32(I01912768,I<ZI,(6): OCTETS BAS >Z192I,(7): OCTETS HAUT!%)-159="&*.26:>"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?@DHLPTX\@DHLPTX\AEIMQUY]AEIMQUY]BFJNRVZ^BFJNRVZ^CGKOSW[_CGKOSW[_@DHLPTX\@DHLPTX\AEIMQUY]AEIMQUY]BFJNRVZ^BFJNRVZ^CGKOSW[_CGKOSW[_@DHLPTX\@DHLPTX\AEIMQUY]AEIMQUY]BFJNRVZ^BFJNRVZ^CGKOSW[_CGKOSW[_`dhlptx|`dhlptx|aeimquy}aeimquy}bfjnrvz~bfjnrvz~cgkosw{cgkosw{`dhlptx|`dhlptx|aeimquy}aeimquy}bfjnrvz~bfjnrvz~cgkosw{cgkosw{`dhlptx|`dhlptx|aeimquy}">@@@ 8@@@@@ p ||@@@A@@   @@@@@``@@@@ 0@ (M)ENU DE DISQUETTE ";:R$4 R$"A"R$"a"ė:^ R$"M"R$"m"ĺD$"RUN /TM17/STARTUP"g 390:36864: HARDCOPY : IMPRIMANTE EN SLOT 1, MODE DOUBLE GRANDEUR. ^(27)(114);:(31)"1";:(27)(102);: DEROULEMENT INVERSE + SAUT DE UNE LIGNE + RETOUR AU DEROULEMENT NORMAL hSWAP r6,1:7,7:36864 |:D$"PR#0" ::22:"(A)PPLESOFTNDES  IMP0390^ "VOULEZ-VOUS IMPRIMER L'IMAGE (O/N)? ";:R$:R$:R$"O"390l "D$"PR#1" ,(27)(78);: CARACTERES PICA 6(27)(118);: POSITIONNE LE HAUT DE PAGE @(27)(62);: MODE UNIDIRECTIONNEL JLOUPEB T6,1:7,7IMAGEWRITER TOOLKIT (DOS 3.3). 2 216,0:IMP0M LOUPE35433:SWAP35551r "NOM DE L'IMAGE ";N$:N$""390 N$"?"ĺD$"CAT,TBIN"::210 :16302,0 D$"BLOAD "N$",A$2000" 35328: INITIALISE CERTAINS POINTEURS 35367: APPEL COMMA(4)"PREFIX /TM17/LOUPE"0d DEMO.LOUPEFn R.JOST (C) 1986qx::"DEMONSTRATION DE LA LOUPE APPLE"::(21)IMP1D$(4)D$"BLOAD LOUPE.0"190! D$"BLOAD GF":200: GF EST LE PROGRAMME DE HARDCOPY DE LA DISQUETTE aeimquy}bfjnrvz~bfjnrvz~cgkosw{cgkosw{@00`@@@@@@@@@@@@@@ @""@@@@ " "" ``@@ @@ @    @@`@@|pp |@@``@@@@` @@@@00@@@ @@@@@0@@""@@`@ "< @@@@@    @@ @@   @@ @@@@ @@@@@@@0``@@@@ @@"""@@ @" <"" 00@@ @@@    @@0@@   @@00@@@@0@A@@@@`@@ @@@@@@"""@@0@"  ""@@@@@ p ||@@ @@   @@@@@`@A@@@ @@@@@@@@@@ @>">>"">>*">"""">2*  """>"|| p p ||>">>"">>"">""">2" ""      "<>">>@ @@@ @@@@@@ @@@  ||@@`@@@@@@@@@@@@@@@@@@@@00@@@>>@@@"@@@@0@@@  ||@@@ @@@@@A @@@@@@@@@``@@@@@@ `@@""@@@@"" $""@@@@@@@    @@@0@@|pp |@ @ @@@">">>>>"" <> "<>">>>">>>  "**"&"""""  L     " "" >2" ">""""">"|| p@|pp |6:<< <":*""""""*"""*"*""""**"*"*""""""""""""" **"""*"*"""" """""""""""""""""*""* "" 2"""6""66"""""""  <     """"*">""""""""""""      6""""""&"""""&"""&"""""""&&""*"*"""""""""""""::66<*"""""" "" < :<":":< <<"""""""&""""* "" 2"""6""66"""""""  <     """"""&"""""""""""""""      6""""""""""""""""""""""""""""""""66""""""""""""""" 6""""""""  " """"""""""""*">"""">2*  """>"|| p p ||""""""""""""""">2" ""      "<>">>">>">>>>"">">>"">>">"""" "" >2" "> "<",""<>"">""""""  "" >""> >"""<**>2">">2*  "" "" "">>""">""">>d:::2003n9:"RENTREZ DEUX CHIFFRES ":Hx"A(0) -> ";A(0)_"A(1) -> ";A(1):t768,A(0)::150:A(2)22:"(E)ncore (M)enu (F)in ";:R$R$"E"R$"e"ė:110R$"M"R$"m"ĺ(4)"RUN STARTUP"R$"F"R$"f"ė:  "**"*""" |L   ||*"""""*"*">>>"">>>>">"""">""">"">>""""""">>">>>>">"""< <""<<<<""<>"">">"<<<,<< ,<<>">>>>""">">>""**"*""" |L   ||>">>>>""">">>""*"""""*"*"""""""""""""""""""""""""""""""""""""""""""<"**"""""6"""""""""$$ 2"$" <2$$"""""""""""<",""<>"">""**"&"""""  L     """""""""""""">"|| p@|pp |6:<< <":*"""" "> "2  "" >2 " 2 "" > >22" ">160" I768828:R:I,R:: 32,190,222,165,184,72,165,185,72,32,227,223,133,6,132,7,104,133,185,104,133,184,32,103,221,32,99,235,164,7,165,6,24,105,5,144,1,200,32,249,234,32,130,233,164,7,165,6,24,105,10,170,144,1,200,32,45,235,76,46,237SECTuHUSTON!K'  'BLOLIB.A8KHBLOLIB.VQKHCHEREBLANCALICEVOICIVENUEJEUDISEULECETTEFAIRE ׾ؾ Ⱦɾ c i R8e c c R c  RHehe Hȱh`E MEL/";T$"M";",A";A;",L";LF4 D$"CATALOG MEL": k 23:"(M)ENU DE DISQUETTE (F)IN ";:R$:22: R$"M"R$"m"ĺD$"RUN /TM17/STARTUP" R$"F"R$"f"220 &dD$(4):D$"BLOAD MEL/MELANGEUR"8nD$"PR#3"::MxD$"CATALOG MEL"u:"TITRE A TRAITER ? ";T$:T$""Ā"LONGUEUR DES MOTS ? ";L:LĀD$"BLOAD MEL/"T$768,LAL1((8)(9)256)LF1L2((25)(26)256)A D$"BSAV N0:SS1:S6150J 23:"(M)ENU DE DISQUETTE (F)IN ";:R$:22:t R$"M"R$"m"ĺD$"RUN /TM17/STARTUP" R$"F"R$"f"230 &dD$(4):D$"BLOAD MEL/MELANGEUR"8nD$"PR#3"::OxD$"BLOAD MEL/ES5"WL5]h768,LAL1((8)(9)256)LF1((25)(26)256)IAAL1:M$M$((I)):NN1:M$(N)M$:M$"":AAL:ALF180I1N:M$(I),: :MELuHUSTON!K'  'MEL.ESSAIK9MEL.BASK9MELANGEURK9ES57K 9ES5M7K 9 H Jh HhL Kȹ?  ߪL-`@ 2ȹ?  [ B $``@FAIRECHEREVENUEBLANCVOICIALICESEULECETTEJEUDI30,233,32,190,222,32,227,223,166,131,164,132,76,45,235,049152,128:49168,0:(49152)27130e 22::"(E)NCORE (M)ENU DE DISQUETTE (A)PPLESOFT ";:R$| R$"E"R$"e"130 R$"M"R$"m"ĺ:D$"RUN STARTUP" R$"A"R$"a"ė: 190: 32,190,222,32,123,221,32,99,235,32,190,222,32,123,221,32,1d::D$(4):D$"PR#3":<nI768976:R:I,R:R0Ăxx:"A L L E R - R E T O U R":"_______________________":12:95814:"N1-> ";R$:N1(R$):N119016:"N2-> ";R$:N2(R$):N2140768,N1,N2,N3N3' 198:49168,0:32,82,231,152,9,176,32,237,253,44,16,192,173,0,192,44,16,192,201,27,208,218,96 ::(21):D$(4)K:"PRESSER ESCAPE POUR STOPPER LA SEQUENCE":eI139:R:767I,R:p(768:221:958:23:"(M)ENU DE DISQUETTE ";:R$:R$"M"R$"m"ĺ:D$"RUN STARTUP"<P F169,1,32,177,239,32,99,235,160,2,32,1,227,32,130,233,5,3,141,56,3,32,190,222,32,123,221,32,99,235,32,190,222,32,123,221,32,105,234,32,52,237,76,58,219,0NU DE DISQUETTE (A)PPLESOFT ";:R$< R$"E"R$"e"130b R$"M"R$"m"ĺ:D$"RUN STARTUP"y R$"A"R$"a"ė: 230e 32,245,230,169,231,160,170,224,1,144,22,224,2,176,4,160,193,128,14,224,3,176,6,169,233,160,130,208,4,169,234,160,105,140,515:"SIGNE-> ";:R$:R$> X03:R$("-+X:",X1,1)ĂL X4200w X03:R$("-+*/",X1,1)Ă:X4160 16:"N2-> ";R$:N2(R$):N2150 768,X,N1,N2 198:49168,0:49152,128:49168,0:(49152)27130% 22::"(E)NCORE (M)Ed::D$(4):D$"PR#3":<nI768976:R:I,R:R0Ăx:"Q U A T R E O P E R A T I O N S ":"_________________________________":12:958"Op{ration (N1 - N2 ou N1 + N2 ou N1 * N2 ou N1 / N2)"14:"N1-> ";R$:N1(R$):N1230 TRIuHUSTON!K' 'TRI.BKGTRI)KG " ","UN ","DEUX ","TROIS ","QUATRE ","CINQ ", "SIX ","SEPT ","HUIT ","NEUF ","DIX ","ONZE ", "DOUZE ","TREIZE ","QUATORZE ","QUINZE ", "SEIZE ","DIX-SEPT ","DIX-HUIT ","DIX-NEUF " nombre3; int card; /* L'argument card 0 ou 1 selon que le mot suivant est nom ou adjectif il permet de respecter la syntaxe QUATRE-VINGTS, QUATRE-VINGT-MILLE, QUATRE-VINGTS MILLIONS (idem avec CENT) */ { static char *unite[] = {/*============================================================================ Traitement d'un nombre de trois chiffres ==============================================================================*/ void traduc3(nombre3,card) unsigned int ======= (c) 1987 CLAUDE AUBRY et TREMPLIN-MICRO LANGAGE C POUR XT,AT,IIGS,MAC etc Version IIGS compil{e sur APWC 1.0B7 Adaptation pour IIGS Emile SCHWARZ ==============================================================================*/ #include /*============================================================================ NOMBRES EN LETTRES Traduit un nombre entre 1 et 999999999 en lettres =======================================================================CuHUSTON!K' ')NOMBRES.CK G %EX3.CK K%LIT.CK!~  H h`F23:"(M)ENU DE DISQUETTE (A)PPLESOFT ";:R$:22:Z PR$"M"R$"m"ĺD$"RUN MENU,S6"q ZR$"A"R$"a"ė:y _60 dI8192819218:JII7619:(J),:: n22:958::A$;:R$:22: xR$"T"R$"t"ė:20 d2 ::D$(4):D$"PR#3"::D$"BLOAD TRI/TRI":aI8192819294:I,1((1)95)::8191,95A$"PRESSEZ UNE TOUCHE POUR ACTIVER LE TRI ":100(768:2A$"VOTRE LISTE EST TRIEE (PAR COLONNE) ":100<A$"(T)RI POUR UNE AUTRE LISTE ":1106 }; static char *dizaines[] = { " "," ","VINGT","TRENTE","QUARANTE","CINQUANTE", "SOIXANTE","SEPTANTE","QUATRE-VINGT","NONANTE" }; /* SEPTANTE et NONANTE ne sont pas utilis{s par le logiciel et ne figurent dans le tableau que pour faire plaisir @ nos amis Suisses et Belges */ unsigned int nb_centaines,nb_dizaines,nb_unites; /*============================================================================ On ====================*/ void traducn(nombre) long nombre; { int nb_millions,nb_milliers,nb_unites; if (nombre < 1e9) /* On ne traite pas les milliards */ { nb_millions=nombre/1e6; nb_milliers=(nombre-(nb_millions*1e6))/1e3; nb_unites=nombre-nb_millions } break; } } /* fin de traduc3 */ /*============================================================================ Conversion d'un nombre entre 1 et 999999999 ========================================================= default: { printf("%s",dizaines[nb_dizaines]); if (nb_unites == 1) printf(" ET "); if (nb_unites > 1) printf("-"); printf("%s",unite[nb_unites]); else printf("-"); printf("%s",unite[nb_unites]); } break; case 9: { printf("%s-%s",dizaines[8],unite[nb_unites+10]); } break; ou pas de milliers S pluriel Si unit{ un tiret, si MILLE un espace */ if (nb_unites == 0) if(card) printf(" "); else printf("S "); else printf("-"); printf("%s",unite[nb_unites+10]); } break; case 8: { printf("%s",dizaines[8]); /* Si pas d'unit{ case 7: { /* On {crit SOIXANTE */ printf("%s",dizaines[6]); /* La liaison soit ET soit tiret */ if (nb_unites== 1) printf(" ET "); eurs @ 100 ==============================================================================*/ switch (nb_dizaines) { case 0:printf("%s",unite[nb_unites]);break; case 1:printf("%s",unite[nb_unites+10]);break; as particulier de VINGT et VINGTS On joint par ET les nombres des dizaines et le nombre UN de VINGT @ SOIXANTE inclus ainsi que pour SOIXANTE ET ONZE au dessus on n'emploie pas de ET On place un trait d'union entre les diff{rentes parties de nombres inf{ri========= On traite les dizaines et les unit{s: Pour les valeurs entre 10 et 19 on augmente l'index du tableau des unit{s de 10 de fa\on @ {crire ONZE plutot que DIX-UN! On fait subir le m}me traitement pour SOIXANTE-DIX et QUATRE-VINGT-DIX On traite le cunite[nb_centaines]); if (card || nb_dizaines || nb_unites || (nb_centaines==1)) printf("CENT "); else printf("CENTS "); } /*================================================================= suivit d'un adjectif cardinal, suivit de CENTS s'il est suivit d'un nom ou s'il est situ{ @ la fin du nombre ==============================================================================*/ if(nb_centaines > 0) { if (nb_centaines > 1) printf("%s",0; /*============================================================================ On s'occupe des centaines : Si pas de centaines on n'{crit rien! Si une centaine on {crit CENT Si sup{rieur @ 1 on {crit le nombre de centaines suivit de CENT si le nom estcalcule le nombre de centaines de dizaines et d'unit{s ==============================================================================*/ nb_centaines=nombre3/100; nb_dizaines=(nombre3-(nb_centaines*100))/10; nb_unites=nombre3-nb_centaines*100-nb_dizaines*1*1e6-nb_milliers*1e3; traduc3(nb_millions,0); switch (nb_millions) { case 0:break; case 1:printf(" MILLION "); break; default:printf(" MILLIONS "); break; } switch (nb_milliers){ case 0: break; case 1: printf("MILLE ");break; default:traduc3(nb_milliers,1);printf("MILLE "); }; traduc3(nb_unites,0); } else printf("Nombre trop grand,162,4,142,123,5,104,32,237,253,201,141,240,6,200,192,80,144,212,136,152,101,6,133,6,144,2,230,7,44,0,192,16,251,44,16,192,173,0,192,201,27,208,185,96 }::22:"SLOT (d{faut 6): ";S$:S$""S$"6" :22:"DRIVE (d{faut 1): ";DR$:DR$""DR$"1"% d::D$(4):D$"PR#3":'i215@nI768868:R:I,R:s32,88,252,169,16,133,7,24,109,201,190,133,9,173,200,190,133,8,169,0,133,6,168,145,8,133,8,133,9,160,0,177,6,240,65,9,128,192,0,208,22,230,8,208,2,230,9,166,8,72,165 x9,90,32,36,237,122 printf("Ce qui fait, en hexad{cimal: $%x\n", x); printf("ou encore en octal: %o\n", x); goto LG; } ZERO, C'EST FINI --------------------*/ } if(x==0){ printf("MERCI DE VOTRE ATTENTION! A BIENTOT!\n"); exit(0); /*------------- CONVERSION EN HEXA, PUIS OCTAL ET RETOUR --------------*/ } -------*/ SA: printf("TAPEZ LE NOMBRE A CONVERTIR: "); scanf("%ld",&x); if(x>=65536){ printf("PAS PLUS DE 65535 S'IL VOUS PLAIT!\n"); goto SA; /*------------------- SI C'EST UN printf("____"); goto LG; /*-------------------- DEUX PETITS RETOURS LIGNE ----------------------*/ } printf("\n\n"); s=20; /*--------------------- SAISIE DE VOTRE NOMBRE -----------------main() { int c, s=20; long x; /*----------------- TRAVAILLONS AVEC UN ECRAN VIERGE ------------------*/ CL: printf("\f"); /*-------------- ET SEPARONS CHAQUE PHASE PAR UNE LIGNE ---------------*/ LG: --s; if(s>0){ main() { long nombre=0; printf("Programme traducteur de nombres\n\nTapez 0 pour terminer\n\n"); do { printf("NOMBRE: "); scanf("%ld",&nombre); traducn(nombre); } while (nombre != 0); } !!!"); printf("\n"); } /* fin de traducn() */ /*============================================================================ PROGRAMME PRINCIPAL =============================================================================*/ :D$"CATALOG,S"S$",D"DR$::R$:D D$;"PREFIX,S";S$;",D";DR$X D$"PREFIX":P$ ::24:"PREFIX (d{faut: "P$"): ";:"";PR$:PR$""PR$P$ D$"PREFIX";PR$ :D$"CATALOG,T$B0" :23:"FICHIER A LIRE: ";F$:F$""180 D$"BLOAD ";F *A;* C$ : COMMAMNDES DISPONIBLES *~@* AD : COMMUTAION AUXMAIN *E ******************************************************* J:O:T************************************************* *M'* TX : INDICE FICHIER *,* TM : NOMBRE TOTAL DE FICHIER DANS LE PREFIX *1* PL : PREMIERE LIGNE DU CATALOGUE *6* T$ : TYPES DES FICHIERS AFFICHES ::6 "IDENTIFICATION DE L'ACQUISITION :";:115@A$""XD$(4):D$"PR#3":******************************************************* * TX$ : NOM DES FICHIERS *"* BIP$: TYPE DE CHAQUE FICHIER - LE NOM DE FICHIER N'EXCEDE PAS 15 CARACTERES ! " (16):PO,10:" - NE SONT VALIDES QUE LES LETTRES LES CHIFFRES ET LE POINT !"I516:(I):PO,10:" ":J1100:SOUND(16336):120 120Y (10):PO,10:" CETTE IDENTIFICATION EST UN NOM DE FICHIER *PRODOS* " (12):PO,10:" TROIS REGLES D'OR SONT A RESPECTER : " (14):PO,10:" - LE PREMIER CARACTERE EST UNE LETTRE ! "7 (15):PO,10:" E$"":RT0:160= RT(RE$)RE$(RE$,RT1):RTRT1:160 RT1(RE$)1ER$(RE$,(RE$)1):AA((ER$,1)):AA46AA58225:RE$ER$:RTRT1:160 RE$(RE$,RT1)(RE$,(RE$)RT):RTRT1:160 A$"":RTRT1:RT(RE$)ĺ(7); 120 235:):RTRT1- (1):1403,CT:RE$;;" ";:120M RE$""120:RE$(RE$,RT):w 235:RTRT1:RE$(RE$,(RE$)1):160 A$"":RE$""RT0ĺ(7);:120 RTRT1:120 A$"":RT(RE$)ĺ(7);:120 RTRT1:120 A$"":RT0175:RT1(RE$)1RAA57)(AA97AA90)AA122İ235:120S RT(RE$)RE$RE$A$:RTRT1:A$;:120{ RT0(RE$)1RE$RE$:RTRT1:160 RT(RE$)1RE$(RE$,RT)A$:RTRT1:160 RT0RE$A$(RE$,(RE$)RT1):RTRT1:160 RE$(RE$,RT)A$(RE$,(RE$)RT1 d270<i16384,128,127:(16384)128:16368,0:105Rn(16287)::110jsRE$"":RT0:PO1403x(RE$)15235:(1):PO,RTCT}A$:;:AA(A$):AA8175:AA21185:AA127195:AA13165:AAAA(1(RT0AA46AA58))' AA46AA47(AA6422::" GLISSEZ UNE DISQUETTE PRODOS DANS LE SLOT ";S$;" DRIVE ";DR$;: " ERREUR ";ER;" - TOUCHE SVP ";:R$::216,0:125$;",T$B0,A$1000" 768u 22:"":958:24:"(R)ELECTURE (A)UTRE FICHIER (M)ENU DE DISQUETTE (F)IN ";:R$:"" (R$)82R$((R$)32) R$"R"175 R$"A"125 R$"M"ĺD$"RUN /TME/MENU" R$"F"ė: 180I ER(222):ER8ė:******EY* INITIALISATIONS *^*******************************************************c:hTX110:TX$(TX),BIP%(TX),LOCK%(TX),S(TX),BLOC%(TX):AD16300:ZERO0mPL2:DL21:HHDLPL1XrT$(1)"DIR":T$(2)"BAS"::T$(3)"BIN":T$(4)"TXT":T$(5)"AWP":T$(6)"USR":T$(7)"SYS":T(1)1:T(2)1:T(3)1wC$(1)"Pr{fixe":C$(2)"Dossier"::C$(3)"BLoad":C$(4)"Bsave":C$(3)"":C$(4)"":C$(5)"Verrouiller":C$(6)"d{veRrouiller":C$(7)"Effacer"|LO$(0)"Acc}s libre ":L*********************** :t A84C$" ESP s{lectionne <-> d{place ESC sort ":(24):1403,79(C$):C$;:810 A80905: P A68945: D A86B$"LOCK":BF$"Verrouill":955:V! A82B$"UNLOCK":BF$"d{veRrouill":955: R D$"-";TX$(TX)0BIP%(TX)2ĺD$"RUN";TX$(TX)YBIP%(TX)1PR$PR$TX$(TX)"/":470_ ******************************************************* * ANALYSE ET EXECUTION DES POMMES OUVERTES *  ********************************* REALISATION DE LA COMMANDE SUR LES FICHIERS SELECTIONNES *************************************************************:TX(HH(C1))LPL:TX$TX$(TX)I1611:(TX$,I,1)" "715:TX$(TX)(TX$,I1)IBIP%(TX)3Ĺ48984,0:HH(C1))LPL:20032BIP%(TX),85:(24):1403,50:LO$(LOCK%(TX));:" BLOCS : ";BLOC%(TX);:868::675:20032BIP%(TX),1601403,1(16(C1)):(L):(TX$(TX),15);:::************************************************************>1)(LPL)TMLPLTM(TMHH)HH5{A13705:600;:y******************************************************* * AFFICHAGE INVERSE NORMAL INVERSE NORMAL INVERSE...********************************************************:iTX(6709bA9PR$(PR$,(PR$)1):(PR$,1)"/"470:610RgA8CC1:C(C1)ClA21CC1:C(C5)1C:HH(C1)(LPL)TMCC1qA10LL1:L(LDL2)(PL1)(LDL2)L:HH(C1)(LPL)TMLPL1"vA11LL1:L(LPL)(DL1)(LPL)L:HH(C***********************************N:S1403,1:(2):C1:LPL1:TM0Ģ(15):" Pas de fichier des types selectionn{s dans ce volume":TX1:BIP%(TX)1:605X665]:16384,128,127:A(16384)128:16368,0:(16287)127760:A0605:A321085:** &:+TX1TM_0LPLTXHH(((TX1)HH)):C16((TX1)HH)1:36,C:(L):TX$(TX);g5TXm::?*******************************************************D* DEPLACEMENT ET SELECTION PRISE DES POMMES OUVERTES*$I*********************)):BLOC%(TX)BLOC:BIP%(TX)I:TX$(TX)TX$:515G TMTX:D$"CLOSE"PR$M:******************************************************** AFFICHAGE DES TX$ SUR 5 COLONNES *!*****************************************************X)0:BIP%(TX)0:LOCK%(TX)0:BLOC%(TX)0::TX0:TM0?905sD$"OPEN"PR$",TDIR":D$"READ"PR$:L1$:L2$:L3$L4$:L4$""525/TYP$(L4$,18,3):1030:TX$(L4$,2,16):TX$"STARTUP "515:TXTX1:LOCK%(TX)((L4$,1)"*"):BLOC((L4$,25,4:868:1403,80(PR$)::PR$:':d******************************************************** LECTURE DU CATALOGUE SAUVEGARDE DES TX$ TYPE$ * *******************************************************5TX1TM:TX$(TX)"":S(T*******************************************************z* LECTURE DU PREFIX * *******************************************************:D$"PREFIX":PR$:475(PR$)1465:D$"PREFIX";PR$!(2)24,65:(1):1403,2:"-commandes ";:J17:C$(J);:" ";:2000,65:(24):1403,2:"-Types : ";:J17:425:T$(J);::" ";::T(J)Ğ:(23):1403,1:"Fl}ches d{placent; ESP s{lectionne; RETURN entre dans le dossier ou boote";:<O$(1)"Acc}s prot{g{":335,22:34,2:415:4359:x *******************************************************  * AFFICHAGES DES TYPES DE FICHIERS SELECTIOONES * *******************************************************:;10,!A69B$"DELETE":BF$"Effa\":955:E5!760r!*******************************************************! * SELECTION DES TYPES DE FICHIER A AFFICHER *!%******************************************************* !*670"/I1:K1 "4(24)"920032I,85U">16384,128,127:A(16384)128:16368,0:A32860m"CA8KI(I1):855"HA21KI(I7):855"MA27ĝ:C$" ":(24):1403,79(C$):C$;:20032I,160:34,2::500"R830#We d'obtenir un aspect identique @ celui qu'il obtenait en monochrome sur son //e. Disons, pour ^etre bref que selon la parit{ de leur colonne, les points font 1/3 ou 2/3 du point auquel il {tait accoutum{. La lisibilit{ des affichages s'en trouve quelque HGR MONOCHROME 04 Juin 87 Un lecteur de Sophia Antipolis m'a appel{ pour me faire part de ses probl}mes avec l'{mulation du mode HGR sur le GS. Lorsqu'il affiche des caract}res ou des lignes il lui est impossiblMONOCHuHUSTON!K' 'HGRMONO KV)(MONOCH.S=K!ĮMONOCH7K! X\ : o) xکd :ۮ}~ $n :ۮ $ Ȋ` ʐ ̘`TITRE: Ad/Long: Blocs:   403,(16(C1)):(L):(160);:S(TX)0:605])GAD1,0:F(41)256(40):F8(C1),68:AD,1n)LS(TX)1:6055 (1035($:Q()******************************************************* (.* ESP SELECTIONNE DES FICHIERS *(3*******************************************************(8:(=TX(HH(C1))LPL:TX$TX$(TX)+)BS(TX)Ĺ1*****************************************i' * NE CHARGE QUE LES FICHIERS DE TYPE SELECTIONNE *' *******************************************************':'I1' T(I)0II1:I81050:1035'T$(I)TYP$ı'II1(I8ġ:51T31:115:D$;"CREATE";RE$:415::475-&9&I1TMI&S(I)0995W&A$TX$(I)&J1611:(A$,J,1)" "980:A$(A$,J1)&J&(15):1403,15:BF$;"age de ";A$;:868&D$;B$;A$:;:S(I)0&I&670:500&:+' **************:415:475^%:(1):1403,1:"Nouveau port : ";" Nouveau drive : ";:PR$"":868:1403,16{%A:A;:PR$PR$",S"(A)%1403,33%A:A;:PR$PR$",D"(A)%415:D$"PREFIX";PR$:465%:'&:(1):1403,1:"Sous catalogue @ cr{er : ";:868:C************************************* .$:y$(1):1403,3:C$(1);" P pour prefixe , S pour port et lecteur ";:868$A$:;:A$"P"915:A$"S"920:910 %:(1):1403,1:"Nouveau pr{fixe :/ ";:868:CT19::115:PR$"/"RE$"/"20032I,160:IK:8259#\T(I)(T(I)1):T(I)0ĝ:870?#aW#f1403,84I:T$(I);j#kKI(I7):855p#p:#u*******************************************************#z* POMME p *($******************peu perturb{e. Essayez par exemple AUX.DRAW de Tremplin 12 sur un GS. Ne trouvant rien dans ma documentation et surpris par la r{ponse faite par le support technique: bug de la carte m}re, j'ai interrog{ le responsable du Support D{veloppeur qui m'a envoyon le sauve et on force le mode monochrome. CALL771 - appelle la routine officielle d'identification. Si l'on a affaire @ un GS on r{tablit $C029 dans son {tat initial. - GS ou pas, on r{cup}re l'{tat initial de AN3 ce qui pour savoir si l'on se trouve sur un GS. Si c'est le cas, on sauve le contenu de $C029 pour pouvoir le r{tablir et on met le bit5 @ 1 pour forcer le mode monochrome. - GS ou pas, on lit l'indicateur d'{tat de AN3, F sur GS HGR mono par BIT $C05E et bit5=1 sur $C029 HGR couleur par BIT $C05F et bit5=0 sur $C029 MONOCH fait tout cel@ pour vous. CALL768 - appelle la routine officielle d'identification des messages @ afficher et de faire BIT $C05F lorsque, la r{ponse attendue {tant obtenue, on souhaite r{tablir l'affichage en couleurs. En r{sum{: sur //e et //c HGR mono par BIT $C05E HGR couleur par BIT $C05s apparemment pas le seul @ ne pas avoir saisi les implications de ce paragraphe. Activer C05E lorsque l'on emploie le mode HGR force en fait le mode Monochrome sur les //e et //c. Il est de ce fait concevable de pr{voir un BIT $C05E chaque fois que l'on aC'est @ dire que toute image HGR simple sera affich{e en utilisant exclusivement Noir, Blanc , Violet ou Vert. Si l'image contenait du bleu ou de l'orange, ces couleurs seront converties en violet ou en vert.' Ce qui me console un peu, c'est que je ne suiM des DEVELOPPEURS, @ la fin de 'APPLE//e technote #3' j'ai trouv{ le paragraphe traduit ci-dessous: 'si AN3 est en position Off en pr{sence d'une carte 80cols {tendue (permettant l'affichage DHGR), le bit le plus significatif en HGR standard sera ignor{. nt de manipuler $C05E/$C05F alors que je n'avais jamais rencontr{ la moindre mention du r^ole de ces switches sur le mode HGR (en dehors de l'activation du mode DHGR). Je me suis replong{ dans mes archives et, surprise, bien au chaud dans le classeur FORUmme TEST.AUX.DRAW, il suffira d'ajouter la ligne 25 PRINT D$"-MONOCH" et d'ajouter, en fin de programme CALL771. Un point m'intriguait dans la r{ponse de M. Schott. On peut y lire que de nombreux programmes HGR //e {taient incomplets parce qu'ils omettaieTAN3 et est comment{ 'clear annunciator3' tandis que $C05F s'appelle CLRAN3 et est comment{ 'set annunciator3'). Vous trouverez ci-joint la routine MONOCH qui permet de forcer le mode monochrome et de r{tablir le mode initial si n{cessaire. Dans le progran lui demande de passer en monochrome, le tableau de bord met le bit5 @ 1. Pour que le mode HGR passe effectivement en monochrome, il faut {galement positionner AN3 sur OFF par un acc}s @ $C05E (attention, les labels APPLE sont curieux, $C05E s'appelle SEes infos dans le buffer THGR en $E12000) bit5=0 pour affichage hires couleur, =1 pour affichage monochrome bit4,3,2,1=0 IMPERATIVEMENT bit0= manipul{ par le moniteur (acc}s INTERDIT aux utilisateurs) Lorsqu'oode HGR. Le tableau de bord manipule l'octet $C029 (NEWVIDEO pour les intimes) dont la structure est la suivante: bit7=1 active le mode THGR (le nouveau mode sp{cifique au GS) bit6=1 'lin{arise' (indispensable pour envoyer ou r{cup{rer d{ un document tr}s clair permettant de r{gler le probl}me. Les possesseurs d'un GS savent qu'il leur est possible de s{lectionner le mode monochrome @ partir du tableau de bord. C@ marche parfaitement pour l'affichage DHGR mais c'est insuffisant pour le mnous