8L2C)pJJJJ IH(ȱH:=IH[H`@HcH  $ +   I/H`JLNGȄBȄF aK  haaFF  mJm# KKJ UJ )J ۈ) ;J3ȱJFȱJGJKaȄM  aaNNJFLGJL LӠӠ頠堸ϠРՠ̠c?CONFIGc !c IMP.NOTE d !֬IMP.HGR2  ! (HGR.HGR2 k ! DATEPROg !g "{g &CATPRO ~!~ECRAN|!g PROTYP~ ! IMPN~ g +CARAC.FTOOL!b )MENU.TYPEHc !c IMPRO80Hv g ,CARAC.SOURISz!z +SOND.FEMMES,z !z MM?w g MM2w g HISTOz !z ECRAN.SOURCE:t!t #TRI~u !u ROTu!~ )COP80.IW2v !x (COP80.IWv !x *CERCLE.ECO'x !x STRAM80:w g &FICPRO\p !p FENETREcq!s )QUESTIONSop !s CLEARks !s 'SPIRALESs t!t+SECRET.DEMOw !w 'MEMOIREzg !g $MENUN =p ! BOUTEog &POMMESRq!s &MODREGUp !p (PLEINECRXp !p &OCTEN2=_p !p TM9o' "TOTOd֬INVHGRg g 'STARTUPIp !֬DATE0;p ft֬$DATECIp !w&INVHGRR' >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(8RՠŠՠ ՠƹȠՠҠՠ ϠՠÍ͠ՠčŠՠōҠՠƍàՠŶƵԠՠŶƸŠՠŲà Ѡ±ҠÍР̳ ō±ƫ堍ÍàЫҠԠūÍàūҠԠ򍪪占ōЫٍ̲̩Р宮Ѡčٍ٠Š̲Ġ٠ū堍̳٠ūٍ̩Р󿮮ѠàōōōŠ󮮮ō ҠÍ٠ٍ̱̩Р宮ŠǍٍ٠Š̱àōōŠ Ǡ٠ūύ̠ύؠύİ؍Ѝİ؍ЫӍӯРҠŠ󮮮ūЫūƫРàððҠԍҠŠàҠðҠĠ占ðӍРϠРàðƫÍà͍ӠαРŠαЫЫҠԍðҠԠ宮ÍàūРàβРŠ塍βūūؠūؠūҠԍҠà宮؍ؠà³РгؠƫؠƫҠԍð㠱ҠЍҠԠ宮͍ð堪²ð㠲ðؠҍت̠؍ 򮮮ư؍ȍư؍Ҡà宮Ԫð㠱ҠЍҠĠç額Ҡ٠󿍠ѠΠ鬠򮮮ҍİȍΠð占Ӎ塍àҠð占Ӎ±ҠԠؠϠ؍Ҡ·٭忍в鮮堪Р 򮮮ư؍ЫȍҠԠ󮮮ūҠԍƫҠԍЫҠԍūҠĠ쿍堪ؠҠ򿍠ŠƠ鮮Ҡ̠ӍƠð㠲ؠت̠؍ưؠ宠占Ǡ󠪍ҍİȍà堦ԮƵԠƶԠƷӍԠб堪ŠŠҠ͠РŠԠҠÍŠ٠ٍ٠̩٠占ؠŠ墿ŠŲ󮮮Р͠頭忍Šű󮮮àҠ頭ҍРŴű占墮ŠŠd:(21):%n(4)"BRUN DATE"Sx198:16368,0:16384,128,127:16368,0:24:"<1> ENCORE <2> MENU DISQUETTE <3> FIN ";:198:R$::R$(49)ĬR$(50)ĺ(4)"-/TM9/MENU"R$(51)130̠̍̍Ӎ?̱СÍ̲̳àŠ̳àŠ̲ðٍŠ̱ӍàҠĠ̫Ġàñàƍñ̠̍ԠؠЬة堍àР占ŠԱᠰ宮àЫԱӍӯР򠪍̠٠ð忍ŠİàŠ宮ŠƠР󿍠ŠĠӍӯР堪占Ҡ占墮Šōij͠Ĵ̩٠堍͠占٠Š٠堠墮ؠŠōı͍РĴIJҠԠ占Р͠忍ŠĴ占ҠԠҍРѠij骪Ġؠؠ͍؍ؠōРōĠҠÍŠ٠İؠŠ忍ŠIJ占àҠŠı頰占ؠ٠ҠōӍ堪Ġ󮮮Ыūūƫ堪¬ة͍à ŠԱàȍԱӍԲ򠪍ŠҠ̍ðӍӯР占Š墿ŠŵҠ頭ҍҠԍŵӍӯР堪ԠؠȍؠƍѠԲؠ墠ŠųҠԠŴ٠Š٠忍Š٠占àŠ頭占ŠƠР忍ŠԠ墮Ҡ宮ҠԠҠ占宮ҠҍРųŲР͠忍ŠųؠؠŠ d:"i(4)"BLOAD IMP.HGR"Un12:"IMP.HGR INSTALLE A L'ADRESSE 768 ($300)"s:"POKE 7,1 pour HGR - POKE 7,2 pour HGR2"x:"POKE 6,0 = Noir sur Blanc"}"POKE 5,1 = Blanc dans Noir" :"POKE 253,0 : POKE 254,24 (de la  R$"N"910"R$"O"770Q :::I1LD:DE$(I)::I;::" "DE$(I):*18:"TAPER LE OU LES NUMEROS DESIRES":958:NU$""4:21:198:"-> "NU$;:R$>774,R$:R$"?"820H(R$)127(R$)8880R(NU$)1NU$(NU$,(NU$)1):8,CA$&CA$:CA$"O"CA$"N"710D1240:(R$)740,710:730:::"DISQUETTE INDEX TREMPLIN MICRO -> ";:ID$:774,ID$ID$:ID$"O"ID$"N"7401240:(R$)770,710:760:::"DESIREZ-VOUS UNE DISQUETTE DEMO -> ";:R$:774,R$660R$"N"610%ILI500H520:1240:(R$)680,610:670:::"DESIREZ-VOUS UN ABONNEMENT ? -> ";:AB$:774,AB$AB$:AB$"O"AB$"N"6801240:(R$)710,680:700:::">>MINIE<< LOGICIEL DE CLAUDE AUBRY -> ";:CA$:77413:868:198:"DISQUETTE NUMERO "I" -> ";:R$>:774,R$]DR$:R$"E"I1II1:520uNR$"O"D(I)1:610XR$"N"560bR(I)0::15:868:198:"TREMPLIN MICRO NUMERO "I" -> ";:R$l774,R$vR$:R$"E"I1ī560R$"O"R(I)1::8:T$>::"REPONDEZ PAR OU "::34,11:12:t22:T$:3:" RAMENE A LA QUESTION PRECEDENTE"|I0II1520:560:18:868:J1ID(J)0Ğ:"D";::J" ";R(J)0Ğ:"R";::J" ";&:"":20:D(I)0:"PREFIX"R$:70@|216,0:(222)6Ģ14:"PREFIX INCONNU":335H:<3> MENU";:R1$:16368,0<TR1$"3"Ģ22:(4)"RUN MENU"MYR1$"2"385^R1$"1"Č198:12:1:"NOUVEAU PREFIX : ";R$:R$""335cI1(R$):R((R$,I,1)):(R45R58)(R64R90)ĂI:365h350m380r(R$,1)"/"R$"/"R$w(4)24290! ,49041,(A$)2(M7)A 1M8Ĺ49040,M32(J$):315[ 649040,(M8)32(J$)q ;49043,H:49042,0 @D1(J$):D2(A$):I1(AN$)3:STST1:(AN$,I,3)M$Ă ED3ST J(4)"STORE DATE0"O:22:198:"<1> AUTRE PREFIX <2> APPLESOFT 35 A$""3 10:26:198:A$;:R$:16368,0U R$(13)D20A$(D2):290y A$""((R$)8(R$)127)260 R$"0"R$"9"265 R$:A$A$R$:(A$)2265 "12:1:198:"HEURE ARRONDIE : ";R$:H(R$):R$""H12:12:18:H 'H1R"3"195! R$"0"R$"9"195: J$""J$J$R$:195Z (J$R$)1(J$R$)31195k R$:J$J$R$} D30MD31 MM1:M13M1 10:22:198:(AN$,M32,3);:22:R$:16368,0 R(R$):R13260 R127R8MM2:M0M11 2(D2)),2)H 20:TR$:22:"<1> CHANGER DE DATE <2> CONTINUER -> ";m 198:R$:(R$)49(R$)50175} R$"1"190 335 J$"" 10:19:198:J$;:R$:16368,0:(R$)127J$""J$"":195 D10R$(13)J$(D1):230 J$""R$:ligne 1 @ la ligne 24)"I :"LISEZ AUSSI LA FICHE DE TREMPLIN MICRO"c 16368,0:16384,12820\(NU$)1NU$"":820'f820Yp(R$)0(R$)LD(NU$)LDNU$NU$R$:820vz:18:33::NU$::9581240:(R$)910,800:90034,10::I1LI:D(I)1TTFDR(I)1TTFRI:AB$"O"TTFACA$"O"TTCA ID$"O"TTID'NU$""TT((NU$)FX)GTFDN$""AB$"N"TTFE~:"MONTANT TOTAL DE VOTRE COMMANDE: ";::T" F":1240:(R$)1000,440:990::"SLOT DE L'IMPRIMANTE (1 PAR DEFAUT) ";:R$:R$""R$"1":SL(R$):SL61000/:&("IMAGE (?=CATALOG) ";I$:I$"?"ĺ(4)"CAT":210:170@ 220a (4)"BLOAD"I$",A$2000":110 198:16368,0:16384,128,127:16368,0:: :22:"<1> MENU DE DISQUETTE <2> APPLESOFT ";:R$ R$"1"ĺ(4)"RUN MENU" R$"2"ī220 :dI768794:V:I,V:#nPG1Tx16304,0:16302,0:(16301PG),0:16297,0l791,(PG1)32:768169,32,133,28,169,0,133,27,168,177,27,73,255,145,27,200,208,247,230,28,165,28,201,64,208,239,96210(21):::100,1406 22::800,96:TEST ET AFFICHAGE INFOS-EGRIBOUILLE,PROCODE3,254:TRANSFERT PAGE 1 A 2x774,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::"ABONNEMENT (1 AN)"::17:20:"180 F (5 NUMEROS)"dP6::"DEMO:";::" 25 F par disquette"Z60,0:61,4:62,255:63,7:66,0:67,8:768:TRANSFERT PAGE 1 A PAGE 2 d34,0:32,0:33,40:35,24::n768,216:769,160:770,0:771,76:772,44:77 --------------"O(" Pas de frais d'envoi pour les abon- n{s @ la revue."2:"MARCHE A SUIVRE: Simplement r{pondre---------------- aux questions, puisallumer votre imprimante!"<:"FACE 1: DOS 3.3 FACE 2: ProDOS"8F16:20122:I:1:" ";4I1I22āJ239:J:" ";:E40:" "::c32,2:33,36:34,2:35,22o 2:1:" Utilisez votre imprimante pour pas-ser votre prochaine commande de dis-quette a TREMPLIN MICRO:":"PRIX UNITAIRE: 105F + 10 F d'envoi disquette vierge gratuite.":E$T$(T$,7):E$"TREMPLIN MICRO - GUY HACHETTE":E$"La Petite Motte - Senill{ - 86100 CHATELLERAULT"(12):(4)"PR#0"::20:958:198:" <1> ON PEUT CONTINUER <2> ERREUR";:R$:16368,0:774,R$::I TOTAL DE MA COMMANDE: ";:36,64:T:E$" "(T$,28):p:E$"MODE DE REGLEMENT: CHEQUE --- CARTE BLEUE":E$"CARTE BLEUE ..../.../.../.../ - VALIDITE: ../..":E$"Montant @ d{biter: Signature:"D(3)1ĺ:E$"Vous recevrez uneI0jCA$"O"ĺ:E$" - >>MINIE<<";:36,64:CActID$"O"ĺ:E$" - DISQUETTE INDEX";:36,64:ID~AB$"O"ĺ:E$" - ABONNEMENT A 5 NUMEROS DE T.MICRO";:36,64:FAN$""AB$"N"ĺE$" - FRAIS D'ENVOI FORFAITAIRES";:36,65:FE;:E$" MONTANTE$"Vous prie de lui adresser la commande suivante:"n8:I1LI:D(I)1ĺE$" - DISQUETTE N["I;:36,64:FDuBIL:I1LI:R(I)1ĺE$" - TREMPLIN MICRO N["I;:36,65:FRVI`:NU$""āI1(NU$):E$" - DEMO "DE$(((NU$,I,1)));:36,65:FX::"ALLUMEZ-LA ET POSITIONNEZ LE PAPIER":R$:r(4)"PR#1":(9)"080N":E$" ": 20 ESPACESE$(14)" BULLETIN DE COMMANDE":" "(E$,10)(T$,20):(15):E$I$;:36,48:"CODE CLIENT: "N$$E$L$:E$V$:E$T$(T$,07)6.:: 鸍긍$I2 U)VJ зT)`l8`a HbIJhjǾȾɾ p٭b=aSL/id /`H) hJJJJ ɺi` M  ` ת.8 `O`S  AI-L9 ᪰B C VW>m>` _m8injkiljo풼i>?Ek?>Q>> L> \/ e>>?́?ޱ>ȥpnG @p;G=po:Q>>>̀ `` \> ̀ `e>>?́?>?Emn(>e>ȱ>e?>Q>ؠ> ie>>?`|;}=:<~:<=;`||m};>:8o>oȑ>ppȑ>> :op`G DKJپھ pHJh` D!hgt}~p `~t}p8n~ni}tpi~~tso8pinii>j?k̈́>~|p|Ii||̈́ l - `>i>L8933LΞAAJL ةޘг uv $ 8LƞaЌ>?@`>?@`B8` K  춼LK ҟ ҟ ( KK`HJJJJ8`HK)` #hhL𚾤3 @LtJ)s@J b  l`a?sa?,E30ɍФ3 E3HD F3 Ʉ%h3 bM E  lLthɍLL3`3,A0s0% Ipn DpnI:L ؅303پھ p H־Ǿh۰8L־Jjjjɾ)Ⱦ8 ѱ OLӜ ĤLLX>(F`־ؾپھ׾` bɄ KDEF vLl v lL bKɍKL?` w  vLl@$݅3`(l8L3LX>(Ƀ,`3,G0]ɾ g` H`پ_پ p _پ׾`>( p۾m׾) W)ʩ@`ɾ>(O puȾ ɾ-O ]c־Jjjj `O>0O l PO VV :$ZA@L8 `u-U -W b WW)JJ :T$K \0IDK : :5K 0.)K :쭼󬮼XK`L9L^ :K mY ܩ 8jK` J,, ( 5̪ ` J, ̪ ` J, `)a)_ͩ`0:8 `)H"H ת תh}I תhm8`0 :AG8 `) ת `..`SI-SRRX)sƬƀ#(ZZV4G_0=( A P FjL\5p-e9ABSAVERIFYBLOADELETEBYECATALOGOPENWRITEXECREATEFRESTORENAMEBRUNLOCKCHAIN#FLUSHREADPOSITIONOMONPR#PREFIXCLOSEAPPEND6D(!쫂8 ( 8о(־Ǿ,G 8`_`W)H־Jjjjh p̭ fLᶢǾ ת..8 ۭ (8mȾȾmɾɾʾiʾ` Lpl8l:/,s`\"׾پӾؾھ pD`־ǾY׾ؾOW)ݩȾɾʾ pD`8`W)CB) 5W) =)W)@! pZ}ȾȾ󰹩 p` ־ǾҾ,G 8`׾ؾ f p vۥs׾tؾE` `޾Lp h־Ҿ,G0^W)TP) ecfdپھ׾ؾӾ p$c d pccddީ 8`ȾɾʾNfne}ȾȾI>Ie f`8` P־ǾҾ,G0C f=W)_`:_`蹀:`V)8`MN; b;`;C b N8` G)̀#:蹀:`V)R ޾,N0MHhHh p' L,N HCNh`M`M N N `9V) ` V) ޾ p`  (8` 8`8`(W)`_V)Ij!؍Í`_ FjЭW)`_ Ͼ pH Lh8`jGMоM  G)p pY)ικ`lP *,N!ǾȾɾʾ pǾ~H h8`8`,C  8` ȾɾM$ mHݓǾ phϾ pH Lh8`Ͼо־ǾҾ_` 볩Ӿ pW) "LEC`C )莼 з l6 7= /& /8Hh /` 6Y׾ؾ+پھ p|پɾʾ`HV)jh츾$-#Ͼ p о־޾Ǿ` 8` 8`ɾ)ɾ̸ ɾɾ0miȾ ;τ<:: <`:8` e eվ'OV)Jj зf Ja l + ѱ:ji Ĥ Ƀ B ,  簰 ` l])Y 񩢍`Ⱦɾ0Ǿ p1׾ؾ  p p ٷ H rh(`׾ؾ` : ߭׾t8퍼mؾŰ펼t폼 L28` ˌھپLp k V)@W0!XY X6Y7` YX`X:Y) F з8` # `l׾ XYW0V)4W׾ؾ_`)0%I0)3]8X^YȰ8` 8` p Ⱦɾʾ8`پھW)@%ZȾ pSԩ p`S pLjÍ FN I 9 : ׾hؾ  p hgͺ칾`LٷV)jC mMjà Lp `VJJ°L9Lp з)< L з L緭W)8VJưϥ3 켼 `F`4W)ɐ/XYjV  kimljn` pg׾mȾXhؾmɾYtѮȾɾ aYX`8g@I5gN Oz @n[Dz @nd0,~z @`$仫@v$⩔,C[B?I>孓`仫6VtCicQĿUKqtVt NdD$(4):D$"PREFIX/TM9"<n:D$"PR#3":(17):G$(7)^xNU9: NUMERO DE LA DISQUETTEyI110:T$T$"----":N35:A$(N),B$(N),P$(N):750V3:DV1:SP19:N31R1N:A$(R),B$(R),P$(R): 1:" DISQUETTE DE TREMPLIN MICRO N15:772,133:773,7:774,165:775,6:776,74:777,74:778,74:779,74:780,133:781,8:782,96:<>QUETTE <3> FIN ";:198:R$::1 R$(49)ĬO R$(50)ĺ(4)"RUN MENU"b R$(51)130h 783,169:784,0:785,133:786,58:787,169:788,3:789,133:790,59:791,169:792,10:793,32:794,99:795,254:796,96^ 768,165:769,6:770,41:771,d:(21)::155Gi:"AND & LSR POUR COUPER UN OCTET EN DEUX":wn783:::"*6.8":"0006- AB 0B":"0008- 0A"s:"MEMOIRE $06 ALIMENTEE PAR:":120x6,171:768}198:16368,0:16384,128,127:16368,0! :24:"<1> ENCORE <2> MENU DIStH`STJANFEVMARAVRMAIJUNJULAOUSEPOCTNOVDEC862214ppuP+uA$tI T(uJ D10D2,D3MuRtJtM@RPAtH`STJANFEVMARAVRMAIJUNJULAOUSEPOppuP+uA$tI T(uJ D10D2,D3MuRtJtM@RPAtH`STJANFEVMARAVRMAIJUNJULAOUSEPOCTNOVDEC862214ppuP+uA$tI T(uJ D10D2,D3MuRtJtM@RPA7 (4)"PREFIX"PR$4 :"PREFIX";::PR$:: D1(49040)((49040)32)32:D2((49041)2):D3((49041)D22)8((49040)32) D30M$(AN$,D332,3) "DATE DU SYSTEME : ";: (("0"(D1)),2)"-"M$;:M$""ĺ"..."; "-"(("0"+d:(4)"PREFIX":PR$:(4)"PREFIX"PR$Bi:(12);(21)::qnAN$"JANFEVMARAVRMAIJUNJULAOUSEPOCTNOVDEC"sI110:TR$TR$"____":xI15:I:1:" ";:I1I5āJ239:" ";:J}40:" ":::3:7:"QUELLE EST LA DATE DU JOUR ?" 6:34,LLwLLL) `8` ԠŬLLʮq$6,⨁ K6, VtI=v!gNVt Vt  lg~TUMERO "NU" "T$:34,2Y 23:T$" UTILISEZ LES FLECHES - RETURN POUR RUN";:V::35,22e R0:S0n V:| S0250 RR1:A$(R):RSP230 260 RR1:A$(R):RN250 :31:3:"FIN=CTRL-F": V:768,A$(VSD): VERS MODE INVERSE+d:(4)"PREFIX":PR$:(4)"PREFIX"PR$Bi:(12);(21)::qnAN$"JANFEVMARAVRMAIJUNJULAOUSEPOCTNOVDEC"sI110:TR$TR$"____":xI15:I:1:" ";:I1I5āJ239:" ";:J}40:" ":::3:7:"QUELLE EST LA DATE DU JOUR ?" 6:34,J L) P'( H  h`l'` LOɠK g ʎNJJJJ)   옭و֭穠$`ɘN `ɍ/N *mm  ;`LrH  h{HzHɠȰɍX Q ʩPQɠȰɍ wLiɬH) j(hɺ# Ȑ wɍ ``hhL)PQ` gPhQ Η ˜ `έ "͍%& д  `ɍɀɠ)?H&h @hl%H  ;h#JLLԠLLLKLl;73-)# &B7 mBA bi ĩƧeեi8LRȩPQSTUƧ ŠŠӮԠՠĠӭҮŠŠӮΠՠĶŠŠӠՠҍΠΩǠҠŠҠՠԍұԠŠŮŠ̮ħΠàΠŠŠӠҠũԠŠ̠ɠΠϩҠՠԬŠӠӮҠՠΠҠӠŠŮŠՠƹŠŠ"3"195! R$"0"R$"9"195: J$""J$J$R$:195Z (J$R$)1(J$R$)31195k R$:J$J$R$} D30MD31 MM1:M13M1 10:22:198:(AN$,M32,3);:22:R$:16368,0 R(R$):R13260 R127R8MM2:M0M11 2(D2)),2)H 20:TR$:22:"<1> CHANGER DE DATE <2> CONTINUER -> ";m 198:R$:(R$)49(R$)50175} R$"1"190 335 J$"" 10:19:198:J$;:R$:16368,0:(R$)127J$""J$"":195 D10R$(13)J$(D1):230 J$""R$@D^_AΠɠ/HELPSCREENS̠Š̠̠Ԡà ՠؠű͠ ΠϠάϠ͠à̳ŠϠɠŠӠŠΰĠ٠ŠΠƠϠԠ Šնՠ̠̠ŠϠ̠Ӡ̠   `Ɋ L HHHH"hhhh0% X R`ԠҧӠԠΠԠŠҬl0 `L` ΠűŠ7 (4)"PREFIX"PR$4 :"PREFIX";::PR$:: D1(49040)((49040)32)32:D2((49041)2):D3((49041)D22)8((49040)32) D30M$(AN$,D332,3) "DATE DU SYSTEME : ";: (("0"(D1)),2)"-"M$;:M$""ĺ"..."; "-"(("0" `L) ghנC6 Ȑ  f "ML)PkȥQk,ȰТ ghȱTȱPȱQȱ3ɲȱ  :  fȩ /ikm  L" 8寅P尅Q Η ˜ `ɍQɤRɭȩPQɰ9ɺ5 3.ȹɍ䥥ɭQIQPIiPQ Η `L)Ȣ0ȹɍ" ɰɺѝȹɍIHh Q)QQ P )P+ "K(16384):K9ĺ:21:D$"-COMMANDE"C ,K6ĉ::D$"CAT":R 6K128290~ @16368,0:V:A$(VSD):K141Ģ22:380 JK136K139VV1:VDVD1:200 TK149K138VV1 ^NSPS0VRD1VD1:SSP:210 hVND1SVD1:200 r?OPZ`ab9h'h(`7H6H%6&7h%h&`L #%.#%4=HQZ=c4=qu}INVALIPROGRALENGTH I BYTESAVENHOLD FILIN USDUPLICATLINE NUMBEINCREMENTOO LARGCONTINUEINTERLEAVED OLINTOO LONON HOL0$: PQ hh `ȱ0:8`` `8喨嗪ʘ ^8^Ɯ8^ƚ`ikjlkmln`kP ȱkQ`keׅklץnlmkeׅmnsmtn`8u`H hHH-UH h hh` `l09H8H'8( Q*P*QP . .ePPeQQ )ePPQ`QP*,QP . .ePPeQQ )ePPQiQ`PQPQ.u0؈` kNJJJJ) 옭ۭ` 옩 옩 옦PQ A ``ı`8iׅkjl 2 ɠ ߩ = $iH!)hi)h!  ׈PQ ׈k nLmL `g^h_^1^ hh`8e^^e_ȑ^^_^_ː؈^e^^_`Hȱkhk ” j k ” j $% ”( r k k`ML)HHHhhh`0: A[`8`mnRikeׅjli1 ᕰ ׈k ⥜ۥklЪ`k`׈Hkhkȱ ٥st )ȑ gL5 a  LF ~  `L) ץgh`stopijkmln` ”Ƀ ɲ r` ”: Qք "" QLꔌ`H hXkȱjsmg ˓ȱLԓ ˓ȱPȱQ f kPȱkQP ˓Q ˓ȱ ˓Hhk 헢  f kPȱkQ kȌȹNJJJJ)  ) ˓ۈح,В ˓La L` ˓ghPQLȱPPȱQQ `PPQ ,ȱPȱQPQPťQ妰ƠΥghiFH 헦  f kPȱkQPٶQɬкɠ# ` d'smtnML)gms )8minj8sit ũ媰 L)d ץPQ TȥћȥH ML)kȑkȥkȥk `eeimjn`ikũ媰MghLIȱPȱQPQjPũQ媰PťQ妰, H h`sog^⥙ )LLϐљ,љ#ȱ ȱȱȱȱ ůДL5st / ^ikm` PLtL)g `  gh^_sŖt嗐ML) )s8t& `L)  ` ^_ML) ghIEљ%/Qљ(!P$ 0 ȱ ȱ $  280U |35,24:34,21:22::T$;:"SELECTION -> PAGE "((A$(VDS),2))" "B$(VDS)p B$(VDS)"INFOS"780 P$(VDS)"*"890 23:D$"PREFIX"P$(VDS) 23:D$"-"B$(VDS) PAGE INFOS GENERALES,INFOS,/TM8 " 3 - FENETRE SUR 80 COL.6502",FENETRE6502,/TM9/FENETREU " 3 - FENETRE SPECIAL 65C02",FENETRE,/TM9/FENETRE " 6 - UTILISATION DE CLEAR",CLEAR,/TM9 " 7 - MOTS EN SPIRALE",SPIRALE,/TM9 11 - INCURSION DANS LA MEMOIRE,MEMOIRE,/TM9 13 - ROTATION MODE GRAPHIQUE,ROTAi:(21)::210:190:205@s768:205:(16384)27115K:799T205:24:"<1> ENCORE <2> MENU DISQUETTE <3> FIN ";:198:R$::R$(49)ĬR$(50)ĺ(4)"RUN MENU"R$(51)165V 799,169:800,0:801,133:802,5:24:"<1> ENCORE <2> MENU DISQUETTE <3> FIN ";:198:R$::O R$(49)Ĭm R$(50)ĺ(4)"RUN MENU" R$(51)160 TV::"* ";::"CTRL-E RETURN";::" et on obtient:"a " A=AB X=06 Y=FE P=04 S=05 par exemple"{ ::"POUR MODIFIER:" :"*:01 02 03 00 00 ";::"CTRL-E RETURN": " A=01 X=02 Y=03 P=00 S=00 " 198:16368,0:16384,128,127:16368,0? d::(21):<i"MODIFICATION DIRECTE DES REGISTRES"fn"----------------------------------"lsx"Entrer dans le Moniteur par:"::"]CALL-151 ";::"RETURN":}"* ... voici l'ASTERISQUE":4 :"Pour afficher le contenu des REGISTRES:",169:789,3:790,133:791,59:792,169:793,7:794,32:795,99:796,254:797,96U 198:16368,0:16384,128,127:16368,0: 22:"ESCAPE POUR BRULER LES ETAPES": I768800:R:I,R::X0 :(27):1:768::205:: (16384)27X R$(50)2152 R$(51)ĺ(4)"RUN MENU"E R$(52)160K 768,169:769,64:770,32:771,246:772,253:773,174:774,246:775,7:776,224:777,160:778,240:779,246:780,141:781,247:782,7:783,96O 784,169:785,0:786,133:787,58:788QStUN ESSAI AVEC "AF$:210:X0:769,64:771,P:205:105~ ::"REVENONS A $FDF6 (COUTZ)":210:X0:769,64:771,246:205:105 (21):205 :(4)"PR#3"::24:"<1> ENCORE <2> 80 COLONNES <3> MENU DE DISQUETTE <4> FIN ";:198:R$:: R$(49)Ĭ d190#i:(4)"PR#3":(17)Cn:(27):1:768::205::us(16384)27XX1:X32Ĺ769,(769)1:110x(24)}:787ESES1:ES135,140,150,155AF$"$FDED (COUT)":P237:145AF$"$FDF0 (COUT1)":P240:1456 ::"FAITES TION.DEMO,/TM9/ROTI 17 - CLAVIER SECRET POUR APPLE,SECRET.DEMO,/TM9{ 19 - COPIE D'ECRAN 80 COLONNES,COP80.IW,/TM9 20 - COPIE IMAGEWRITER2,COP80.IW2,/TM9 21 - CARACTERES SOURIS IW,CARAC.SOURIS,/TM9 23 - MODIF HISTO SANS SOURIS,NOTE,/T8:803,169:804,3:805,133:806,59:807,169:808,13:809,32:810,99:811,254:812,96 768,32:769,88:770,252:771,32:772,53:773,253:774,201:775,161:776,144:777,13:778,32:779,246:780,253:781,174:782,246g 783,7:784,224:785,160:786,240:WY<3> MENU";:R1$:16368,0<TR1$"3"Ģ22:(4)"RUN MENU"MYR1$"2"385^R1$"1"Č198:12:1:"NOUVEAU PREFIX : ";R$:R$""335cI1(R$):R((R$,I,1)):(R45R58)(R64R90)ĂI:365h350m380r(R$,1)"/"R$"/"R$w(4)24290! ,49041,(A$)2(M7)A 1M8Ĺ49040,M32(J$):315[ 649040,(M8)32(J$)q ;49043,H:49042,0 @D1(J$):D2(A$):I1(AN$)3:STST1:(AN$,I,3)M$Ă ED3ST J(4)"STORE DATE0"O:22:198:"<1> AUTRE PREFIX <2> APPLESOFT 35 A$""3 10:26:198:A$;:R$:16368,0U R$(13)D20A$(D2):290y A$""((R$)8(R$)127)260 R$"0"R$"9"265 R$:A$A$R$:(A$)2265 "12:1:198:"HEURE ARRONDIE : ";R$:H(R$):R$""H12:12:18:H 'H1R:24:"<1> ENCORE <2> MENU DISQUETTE <3> FIN ";:198:R$::R R$(49)Ĭp R$(50)ĺ(4)"RUN MENU" R$(51)225 [] I14:N$(I)""::N$"". D$"OPEN NOM"@ D$"READ NOM"T I15:N$(I):g D$"CLOSE NOM"{ I15:N$(I): D$"STORE NM" I15:N$(I)""::N$"" D$"RESTORE NM" I15:N$(I): 198:16368,0:16384,128,127:16368,0B d::D$(4)iI141n"NOM -> ";N$(I)7svxD$"OPEN NOM":D$"CLOSE NOM":D$"DELETE NOM":D$"OPEN NOM"}D$"WRITE NOM"J1I1N$(J)D$"CLOSE NOM""NOM EN PLUS ";N$D$"APPEND NOM"N$ D$"CLOSE NOM"DAGE 8 BITS (COURRIER/SUITE),SOND.FEMMES,/TM9cX"46 - Q: CURSEUR & MID$ ABREGE",QUESTIONS,/TM9b48 - ECRAN POMMES,POMMES,/TM9l50 - CERCLE ECONOMIQUE,CERCLE.ECO,/TM9v51 - TRANSFERT FONTE IMP-GRAPHIQUE,CARAC.FTOOL,/TM9$53 - CONFIGURATIOM9/HISTOB&25 - ECRANS CONDENSES (M.CHAVELLI),NOTE,/TM9/ECRANv029 - CATALOG PRODOS (BENJAMIN ANE),CATPRO,/TM9:31 - PRO.TYPC (YVAN KOENIG),PRO.TYPC.DEMO,/TM9/PROTYPD39 - DATE SOUS PRODOS (MARCEL COTTINI),DATE.NOTE,/TM9/DATEPRO/N44 - SON787,246:788,141:789,247:790,7:791,169:792,0:793,133:794,37:795,32:796,98:797,252:798,96: 198:16368,0:16384,128,127:16368,0: 22:"PRESSER UNE TOUCHE (FIN=ESCAPE)":"PREFIX"R$:70@|216,0:(222)6Ģ14:"PREFIX INCONNU":335H:N APPLE IIC (L.MOREAU),CONFIG,/TM9Y54 - MENU.TYPE (BERNARD DELAMOT),MENU.TYPE,/TM957 - OPEN CLOSE STORE RESTORE...,FICPRO,/TM958 - PLEIN ECRAN (COURRIER),PLEINECR,/TM958 - MODIFICATION DES REGISTRES,MODREG,/TM958 - OCTET COUPE 3d(4)"BLOAD FEN6502":ROUTINE POUR APPLE 6502ji(4)"BLOAD FENMEMO":TRANSFERT 80 COL (FICHE TM2)n:(4)"PR#3"::240s1x:}DIMENSIONS DE FENETRE **::21:1403,42:"LARGEUR DE LA FENETRE (10-40) ";L$:L$""220 L(,7,224,160,240,246,162,80,134,33,32,246,253,32,246,253,96 OU FIN ** :B 215:852:8239:RECUPERATION DE L'ECRANK 135{ 198:16368,0:16384,128,127:16368,0: :: : REMPLISSAGE DE L'ECRAN ** : 33,40:I867892:R:I,R::867:= 32,88,252,169,212,32,246,253,174,226df:L10L40135T :22:1403,42:"HAUTEUR DE LA FENETRE (10-23) ";H$:H$""220o H(H$):H10H23145u : TRANSMISSION PARAM. LM ** : 6,L:7,H1 8192:EXEMPLE DE MEMORISATION (FICHE TM2) 768 : AUTRE FENETRE0d(4)"BLOAD FEN":ROUTINE POUR APPLE 65C02gi(4)"BLOAD FENMEMO":TRANSFERT 80 COL (FICHE TM2)n:(4)"PR#3"::240s1x:}DIMENSIONS DE FENETRE **::21:1403,42:"LARGEUR DE LA FENETRE (10-40) ";L$:L$""220 L(L$)cq!qcFENETREuHUSTON!q' ''FENETREe>p !s c+FENETRE6502hAp !s cFENMEMOjcq! qcTOTOo@s s cFENlcq!qcFEN6502mNEZ AU 49 93 66 66"=>::11::"EXPEDITION IMMEDIATE":FH870R:12:" Cette disquette n'est pas PROTEGEE et il est prudent d'en faire IMMEDIATEMENT une bonne copie."2\::" LE NUMERO PLACE AU DEBUT DE CHAQUE LI- GNE DU MENU RENVOIE A LA PAADRESSE SUIVANTE: * TREMPLIN MICRO LA PETITE MOTTE * SENILLE 86100 CHATELLERAULT"*::" UTILISEZ LE BULLETIN DE COMMANDE DE VO-TRE DISQUETTE."4:" SI VOUS POSSEDEZ UNE CARTE BLEUE, TELE-PHO "::" 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 OBTIENDREZ FACILEMENT CE NUMERO ENLE DEMANDANT A L',123:773,221:774,32:775,253:776,229:777,133:778,96:779,160:780,0:781,177:782,94783,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:796,96 :::11:" BONJOUR ET MERCI!EN DEUX,OCTEN2,/TM9A59 - TRI SUR INDEX (COURRIER),TRI,/TM9l60 - COPIE HGR EN HGR2,HGR.HGR2,/TM9 60 - INVERSION D'IMAGE HGR.HGR2,INVHGR,/TM961 - FICHE COPIE IMP.HGR (IW.DMP),IMP.NOT,/TM9:[768,32:769,190:770,222:771,32:772L$):L10L40135W :22:1403,42:"HAUTEUR DE LA FENETRE (10-23) ";H$:H$""220r H(H$):H10H23145x : TRANSMISSION PARAM. LM ** : 6,L:7,H1 8192:EXEMPLE DE MEMORISATION (FICHE TM2) 768 : AUTRE FENEginqC d22:"<1> ENCORE <2> SUITE ";:198:R$::R$"1"R$"2"100Q nR$"1"ĬY x: :"QUESTION:";::" MID$... ABREGE":"------------------------"::"Voir aussi TREMPLIN MICRO":: "]D$="G$"ABCDEFGHIJ"G$:"]PRINT MID$ (D$,5)":"EFGHIJ":"]P::(21)>:"QUESTION:";::" OU EST LE CURSEUR ?"c"-----------------------------"34,3:10,50:70,90:200 6:"TOTO";80(10:I145:"E";:280<100FPH(36): H=PEEK(1403) EN 80 COLONNES Z:H:!#ʆ X#?2 % ʆ$  %2%$" 8!# "` "P!#`!#ʆ X#?2 % ʆ$  %2%$" 8!# "` "P!#`(106)256% Z(115)(116)256:w d22:"<1> ENCORE <2> MENU DISQUETTE <3> FIN ";:198:R$::R$"1"R$"3"100 nR$"1"Ĭ x:R$"2"ĺ(4)"RUN MENU":(21):X"UTILISATION DE CLEAR ____________________"::c10,90198:16368,0:16384,128,127:16368,0 ::10000:30000A10:A:B$"EXISTE":B$80(2A:B$<80F"TOTO":100 P(105)8U  DC ÍT  @C `<=І>?B`U T D=G? T T @=C? `B<CІ>`,226,7,224,160,240,246,162,80,134,33,32,237,253,32,237,253,96 TRE OU FIN ** :E 215:852:8239:RECUPERATION DE L'ECRANN 135~ 198:16368,0:16384,128,127:16368,0: :: : REMPLISSAGE DE L'ECRAN ** : 33,40:I867892:R:I,R::867:@ 32,88,252,169,212,32,237,253,174d:(21)::195=i"CLAVIER SECRET":"--------------"Gn34,3s"TAPEZ LES DEUX CARACTERES SECRETS (CTRL SI VOUS LE DESIREZ)"xNN1}8N2:198:A$:A$" "İ185:140A$" "İ190:140A$V(N)(A$)128 N212018:" <1> BLANC AU DEBUT <2> BLANC A LA FIN ";:198:R$:"":R%(R$):i^R$(V$,D%L%):R%360,365rc345hB$R$B$:395mB$B$R$r:w******************************|* EDITION CHIFFRES ******************************%" X "C%::35,22:6P 1M(C%,C%):Y%(C%2.5):X%Y%:A%1:B%0:D%C%C%:R%0p 6I1C%:R%(R%1):R%320y ;V%2 @J12:Z%B%:V%V%1:B%V%:B%2B%0 EK1I:M(Y%,X%)A% JA%D%340 OA%A%1:Y%Y%B%:X%X%Z%::: TA%L%395JY8:16368,0:R$) R$"O"R$"o"IM1/ :S ******************************w * CALCULS SPIRALES * ****************************** ": 'CI(L%):C%(CI):C%C%L%C%C%1 ,34,4::24:3::L%" LETTRES - DANS UN CARRE DE "CH%1:165 V%:H%:C$( L%465` I1(T$):C$(T$,I,1):C$(64)C$(91)B$B$C$f p :B$ :8:23:"<1> D'ACCORD <2> A REFAIRE ";:198:R$ R$"1"260 R$"2"140 240 :8:23:"EDITION SUR IMPRIMANTE O/N ";:19)C$(91)L%L%1/ T$(T$,R%):C$(T$,1)Z 9:1:L%1ĺL%" CARACTERES UTILES "i L%81215 V%:H%:958:C$; C$:C%(C$): C%64C%91L%L%1:210 C%127205 H%1H%H%1:150 140 C%13220 T$T$C$:H%X1:X32Ĺ769,(769)1:220@ (24):796,8:787:205:160 169,64,32,246,253,174,246,7,224,160,240,246,32,246,253,141,247,7,96,169,0,133,58,169,3,133,59,169,7,32,99,254,96ruvwxuation {ventuelle":34,8:" s:F x******************************j }* SAISIE LETTRES * ****************************** : T$"":V%11:L%0:H%0::B$"":V%:1:180 165 R%(T$)1:R%Č958:175 C$(T$,1):C$(64dd:(21)::V$": :":32,14:33,26::1::V$:" SPIRALES ":V$::32,0:33,40:34,3i:I110:V$V$" "::D$(4) n1:5:958:"Tapez une phrase comptant 81 caract}res maximum. Il ne sera pas tenu compte des espaces et de la ponctRINT MID$ (D$,7)":"GHIJ"C "]PRINT MID$ (D$,1)":"ABCDEFGHIJ" 22:"<1> DEBUT <2> FIN <3> MENU DISQUETTE ";:198:R$::R$"1"R$"3"160 R$"1"Ĭ :R$"3"ĺ(4)"RUN MENU" 198:16368,0:16384,128,127:16368,0: 768,V(2):769,V(1)( I12000:1 :7| 58,02:59,03:795,169:796,11:797,32:798,99:799,254:800,96:795: 770 6:"0300- ";:801,174:802,0:803,03:804,32:805,68:806,249:807,96:801:" ";:802,01:801 210 :"CTRL-"* :835,24::R%18(C%2):32,R%:33,40R%::LIMĺ:D$"PR#1"{I1C%:J1C%:36,J4:M(I,J);:J:::I32,0:33,40:IM1ĺ:44535,24:23:958:11:"PRESSEZ UNE TOUCHE ";:198:R$::******************************$* EDITION LETTRES *H******************************N:vR%18(C%1.5):32,R%:33,40R%::I1C%:J1C%:36,(J3):(B$,M(I,J),1);:J:::IIM1Ģ5:958::D$"PR#0"32,0:33,40$4:23:" NCORE ASIC ENCORE <2> MENU DISQUETTE <3> FIN ";:R$:: R$"1"Ĭ R$"2"ĺ(4)"RUN MENU"} et c'est tout l'avantage de ce TRI..."Z x:"Le tri commence quand retentit le BIP" }:"ENFONCEZ UNE TOUCHE SVP ";:R$: N40 M$(N),IN%(N) I1N:J16:M$(I)M$(I)(65((1)26)):: 198 I1N:IN%(I)I: I1N1 d:(21):Vi"ESSAI DE TRI PAR INDEX ----------------------"n:"ESSAYEZ avec N=40, puis avec N=100"::"Vous constaterez des DIFFERENCES, mais"+ s"celles-ci resteraient les MEMES si le fichier comportait plusieurs ELEMENTS:"ADRESSE DECIMALE DE DEPART ? ";R$:D(R$):135r 123:"ADRESSE HEXADECIMALE DE DEPART ? $";A$:A$""A$"0" 6X0:D0:L(A$) ;L4ĺ:A$;" C'EST TROP LONG!":310 @IL11:H$(A$,LI1,1) E(H$)64(H$)71X(H$)55:335JX(H$),V:DD16:N0:140 :> ******************************b ** ADRESSE DE REFERENCE ** ****************************** ": '20:958::"ADRESSE ";::"D";::"ECIMALE OU ";::"H";::"EXADECIMALE ? ";:R$:N0::12:R$"H"3053 ,23***) ** MODIFICATION **M ******************************S : 22::958:"ADRESSE DECIMALE ? ";R$:AD(R$):AD(D16)ADD7205 22::958:"NOUVELLE VALEUR ? ";(AD);:19:"";V$:V$""205 V(V$):V0V255255 AD6I4);(V%(I));% I:38);"ASC"? NN1:N3DD8:140E 22::958:"AUTRE ADRESSE (A) SUITE (S) MODIF (M) ";:R$::R$(27)370 R$"A"295 R$"S"R$(13)DD8:N0::140 R$"M"205 : ***************************y{| = $";:11,0:ED:D32767E(65536D)C E32768ĺ"8000":155R X(E)::f "DEC:";:11,11 I07:V%(I)(DI):6I4);V%(I);: 38)"DECHEX: "; I07:X(V%(I)):" ";: 38)"HEXASC: "; I07:V%(I)4V%(I)134190 d::(21)::415ai50,63:"ADR +0 +1 +2 +3 +4 +5 +6 +7 ADR":50,255:34,2:295gn:s******************************x** AFFICHAGE DES MEMOIRES **}******************************:( ::" ";::" ADRESSE = ";D;">ETOUR MENU ";:198:16368,0:R$;R$"E"R$"e"105TR$"B"R$"b"ĉ::uR$"R"R$"r"ĺD$"RUN MENU"~465ROTuHUSTON!u'  '*ROTATION.S uuROTATIONgu`u-ROTATION.DEMO>u ~ *CONTROLEURw w Šԍ̍̍Š̍Ҡƴ٠Íٍٍ٠ԍٍà̍àԍԍРŠōĠÍƍŠÍ̍ҠōÍÍàÍРƍŠō͍ÍàÍàōŠōÍà΍ŠŠŠì̠ŶŠŠŠԍōŠÍàōàԍŠōÍҲōƍؠؠ٠٠ٍũٍٍŠٍààƍ؍Š؍ÍÍÍ͍ƍōōŠŠŠҠ,165,161,32,218,253,96,200,196,96,144,244,32,251,218,96"|::R$"2"ĺ(4)"RUN MENU"(.:R******************************v** ROUTINE USR ********************************:I768796:R:I,R:10,76:12,3:932,12,225,166,161,165,160,32,65,249,96,32,12,225ODDX(16(I1)): T135&Y:J^******************************nc** VERS MENU DE DISQUETTE **h******************************m:r:21::958:"<1> ENCORE <2> MENU DISQUETTE <3> FIN ";:198:R$::R$"1"R$"3"370wR$"1"Ĭՠō̠ՠ̠ՠԠՠڠՠ̠ՠҠՠōƠՠƍŠՠōŠՠÍàՠƍ͠ՠĶƠՠķȠՠȠՠŠΠŠŠΠéĠàǠàՠà̍̍ԍҍԠ٠ԍٍڍ̍Íà̍֠ҠڍàҍÍàōŠƍ̍Ҡƴ٠Íٍƍٍà̍̍؍؍Р̍Š֍àԍҍÍàҍҍРŠԍӍŠΠŠӠӠd::D$(4):D$"PR#3"::En290:ROUTINE LM 80 COLONNES 6502txLD1:LF24:LIGNE DE DEBUT ET LIGNE FINALEA$"RAPIDE COPIE D'ECRAN (80 COLONNES)"I2411:I:1403,((I2)35):A$;(50)255Ĺ50,63:17050,255: 203939,198/ 800,LF1:DERNIERE LIGNE A EDITERH D$"PR#1":(9)"80N"W LD:768: D$"PR#A$C307":RETOUR EN 80 COLONNES 198:16368,0:16384,128,127:16368,0 21::958:14:"<1> MENU DE DISQUETTE <2> TERMINE ";:A$ ::A$"1"ĺ(d::D$(4):D$"PR#3"::En260:ROUTINE LM 80 COLONNES 6502zxLD5:LF20:PREMIERE ET DERNIERE LIGNES A EDITERA$"RAPIDE COPIE D'ECRAN (80 COLONNES)"I2411:I:1403,((I2)35):A$;(50)255Ĺ50,63:17050,255 ::20I40I,40I:20I,30I230I,30I180I,120I20I,30I::0 X$"B"X$"b"ĉ::A "X$"M"X$"m"ĺ(4)"-/TM9/MENU"J ,260P 6:t @****************************** J* DESSIN EN HAUTE RESOLUTION * T****************************** ^: h:3= rI15:40I,40I200I,40I200I,150I40I,150T14:4 ROTATIONS. 24589,F:LARGEUR h C=COLONE GAUCHE (0 A 39) L=PREMIERE LIGNE (0 A 190)~ 24577,C:24583,L 24576:UNE ROTATION T,F 16301,0 G$;:1:22:"ENCORE ASIC ENU DISQUETTE ";:X$: X$"E"X$"e"12.d:(21)::D$(4):G$(7):360: DESSINTnD$"BLOAD ROTATION":ROUTINE L.M.Z:~******************************* ROTATIONS PARAMETREES *******************************:C0:16302,0F14102:CC8:L50:G$; e eօ e eօe @ &  ץ& ИЅ` sυ֩΅ @ @ e eυץυ g`iօs  &H&h p   piF &&ʊ eɀ`Φʆ8eש٠ƍƍٍàȍà̍àԍԍРŠҍà̍ōР̍ŠàڍōРڍŠӍ?à͍̍ԍĠÍà̍àԍŠčÍà͍ȍÍÍàڍȍԍҠŶȍҠƴ٠ȍٍƍŶ̍ҠƴΠÍÍōōؠō؍ؠҍڍ̍ҍÍàڍ̍ ̍ÍàÍƍԍàÍà̍àԍŠÍÍ,1983 D$"PR#1":(9)"81N":DMP/IW=81N:IW2=80N@ ILDLFL I:768l :SUIVANT VOTRE IMPRIMANTEt : D$"PR#A$C307":RETOUR EN 80 COLONNES 198:16368,0:16384,128,127:16368,0 21::958:14:"<1> MENU DE DISQUETTE <2> TERMId:(4)"PR#3"::HnXC140:YC94:Positions Hor & Vert du centrebxR90:Rayon du cercleND180:Nombre de points SI(ND2),CO(ND2)PB3.14159262:PNPBNDI1ND2APNICO(I)(A)R:SI(I)(A)R :16302,0:E"D1`2U*@@a3 U*<``"D}L3fLyg"D?p];wn@;w"D"D"D"D"D"Dh"D1T*`0 @a3f"t@gL3fL0`"D"D"D"D"D~"D1`@@ @0 ``pL3@Oyxp`NE ";:A$+ ::A$"1"ĺ(4)"RUN MENU"1 L "I768810:R:I,R:: ,160,0,141,85,192,177,40,141,84,192,32,30,3,32,237,253,177,40,32,30,3,32,237,253,200,192,40,208,229,96,201,128,176,2,9,128,201,160,176,2,9,64,963 198 XCR,YC) I1ND2A XCCO(I),YCSI(I)G U I1ND2m XCCO(I),YCSI(I)s  "198:R$:::16301,0 ,22:18:"<1> ENCORE <2> BASIC <3> MENU DE DISQUETTE -> ";:198:R$::: 6(R$)320,330,340:300 @204)"RUN MENU" / I768828:R:I,R:: 160,0,141,85,192,177,40,141,84,192,32,48,3,32,237,253,177,40,32,48,3,32,237,253,200,192,40,208,229,165,37,201,23,176,12,169,141,32,237,253,230,37,32,34,252,208,209,96,201,128,176,2,9,128,201,160,176,2,9,64(A$):: "ESPACE": 768,0:769,0:770,162:771,2:772,44:773,16:774,192:775,44:776,0:777,192:778,16:779,251:780,173:781,0 782,192:783,221:784,255:785,2:786,208:787,240:788,202:789,208:790,237:791,173:792,16:793,192:794,pȮîŠӠŠŠΠŮŠҠΠŠŠîӠŠҍŠŠŠŠōԠŠɠҠŠӮӺԺʯͯʠҬŠҠӍЮҠŠ̮ԮՠԮԠؠŠŠŠجӠҲػŠӠӠɮѠŠŠӠîҠҠԠԠΠҠ̧ήؠثŠӠE (IMAGE WRITER) ";:R$:K D$"PR#1":ES$"N":(9)"80N":(15);(9)"Z"_ 768:ES$"D 0";p D$:ES$"'"; I6495:(I);:I70ĺ" "; : XX1:X2ĺ(14):165 (15);ES$"$"::D$"PR#0" :12:"VOTRE FONTE ";::F$;::" EST INSTd::(21):(iD$(4):ES$(27)1n235ls48840,37:48841,1:DOS43616 ET 43617 (LONGUEUR FONTE)rx:}******************************* CHARGER ET IMPRIMER *******************************: 12:"ALLUMEZ L'IMPRIMANT"D"D~"D1@,@@a30`|gy"D"D"D1,` @0f"Dxp;G"D"D"D"D"D"Dh"D"D"Db"D1@@@a3 `SxL3~`3f|3f@00p@/`"D"D"Dx"D1`@@@a3 `~L3~G"4`0U*0@i3 U* `G"3fL3f`Gb?@wn]{@o="D"D"D"D"D"DbG"4T*0@i3fG1@3fL3fL3fLpyx3fL``G"DG"4`<`H0@ 0 `G"<sp;wn="D"D"D"D"D"DbG"4~ U*`G"43fwns ~0wn`G"<~]{n];wo="D"D"D"D"D"DbG"D"Dx"D"D~G"4@,@@ 0 ``OyyG"D~G"4,0@ 0fG0"t"D"D"D"D"D"DbG"D"D"DG"4@h@i3 h`G3fLyxL?xLy<ppp&`G"D"DbG"4`@@@i3 `p3fL`@`,9696 K 21::"<1> ENCORE <2> MENU DISQUETTE <3> FIN ";:198:R$:Y R$"1"Ĭw :R$"2"ĺ(4)"RUN MENU" R$"3"210 73,42,28,8,86,71,170,85,170,85,170,85,170,87,71,85,170,85,170,85,170,8588,71,252,130,130,130,130,130,132,89,71,132,132,132,132,132,132,248,90,71,0,0,0,0,0,0,255,91,71,8,28,62,127,62,28,8,92,71,129,129,129,129,129,129,129,93,71,20,20,119,0,119,20,20?0 J100,280:& T(4)"RUN MENU"71,32,112,248,32,32,32,63,78,71,255,255,255,255,255,255,255,79,71,129,137,156,190,127,136,136,80,71,136,136,127,190,156,137,129,81,71,8,24,56,126,56,24,203I 82,71,16,24,28,126,28,24,211,83,71,8,8,8,8,8,8,8,84,71,255,128,128,128,128,128,128,85,71,8,8,8,,129,68,71,8,16,96,16,8,4,2,69,71,247,231,159,239,247,251,253 70,71,88,196,68,84,125,127,23,71,103,20,20,52,98,130,128,128,72,71,8,28,42,73,8,8,8,73,103,0,128,0,128,0,128,0,74,71,16,32,64,255,64,32,16,75,71,8,4,2,255,2,4,8 76,71,1,1,1,1,1,1,1,77,ԠŠӠԠάΠōα؍̠ҍɠРŠɠŠԠōӠŠԠӠŠŠŠӠӮβؠѠαؠѠαŠԠΠŮŠҠΠՠҠŠӠŠӠӠɺŠԠŠҠōàԠάΠŮРԭŠŠΠՠҠŠӠōӠӠɺŠҠŠŠӠԠӠΠŮҠҬؠŠΠŠՠҍĠƠԠŠŠԠŬؠŠՠԬРԭŠŠѠβɬΠŮРԭŠΠŠάŠҠΠԍ͠ӬŠҠӍΠŠҠԍŬŠҠӍؠح®ŠŠîؠŠɠŠԠԠŻŠԠŮŠҬŮԠ******************* :> I1638416676:R:I,R:TTR:s T26935Č198:"ERREUR DANS LA FONTE SOURIS": 27,43,27,73? 64,71,56,252,252,122,253,252,72,65,71,56,196,132,2,133,180,72,66,71,0,252,120,48,96,64,128,67,71,129,195,165,217,165,195ALLEE"? 198:16368,0:16384,128,127:16368,0:::195x 12:"<1> MENU DISK <2> PROGRAMME <3> FIN ";:R$:R$ R$"1"ĺD$"RUN MENU" R$"2"ė: : ****************************** * CARACTERES SOURIS * ***********94,71,129,129,153,153,129,129,255,95,71,255,0,0,0,0,0,0,4E:i******************************"* CARAC.CHARG (TM NUMERO 6 *'******************************,:1T0:I768818:R:I,R:TTR:6T5939Č198:"ERREUR DANS ROUTINE CARAC.CHARG":;T0:@169,255,133,6,169,63,133,7,173,200,190,133,8,173,201,190,133,9,230,6,165,6,208,2,230,7,198,8,165,8,201,255,208,6,165,9,240,12,198,9,160,0,177,6,32,237,253,76,18,3,96 G"tG"4``H@@@ 00wn0``G" MENU DE DISQUETTE <2> BASIC ";:R$:2: AND #%01000000+%00000010"J Z"0314: F0 06 14 BEQ PLUS"u _"0316: E6 08 15 INC COUNT" d"0318: D0 02 16 BNE PLUS" i"031A: E6 09 17 INC COUNT+1" n"031C: C8 18 PLUS INY" s"031D: D0 ED LDA #>$2000"? A"030A: 85 07 9 STA PTR+1"l F"030C: B1 06 10 LOOP LDA (PTR),Y" K"030E: F0 13 11 BEQ FINI ; Fin de table" P"0310: 30 0A 12 BMI PLUS ; C'est un homme" U"0312: 29 42 13 2 COUNT = $8"> #" 3 ORG $300"f ("0300: A0 00 4 LDY #0" -"0302: 84 06 5 STY PTR" 2"0304: 84 08 6 STY COUNT" 7"0306: 84 09 7 STY COUNT+1" <"0308: A9 20 8  (4)"PR#3"::"DESASSEMBLAGE DE LA ROUTINE D'YVAN KOENIG (SONDAGE SUR 8 BITS) - LIRE PAGE 44--------------------------------------------------------------------------------"3" 1 PTR = $6" " G"4`?U* `@ 0U* `Gb3fL3f@`G"4 U*0@ 0@xG @3fL3fLy<<`>@3f ``"D"D"D~"D1p@ @0 P`3xL3?fL3~?0@ `"D"D"D"D"D}"D1x@@@0 `xL3~yG"4U*`G"4|?wo?<x@?0wnp`G"wn];w"D"D"D"D"D"Dh"D1`2T*p@0 U*@@`"D1`L3fL`"D?~];wnC;w"D"D"D"D"D"Dh"D"D"D1@,p@0px"DpO"Db"D1x<@3 `@a3`0`"D=xpn];O"D"D"D"D"D"Dh"D"D"Dq"D1@@0 `@yxL3 CAT <2> MENU DISQUETTE <3> FIN ";:198:R$::Z R$(49)ė:(4)"CAT":140} R$(50)ĺ(4)"RUN /TM9/MENU" R$(51)150 ðƫÍà͍ӠαРŠαЫЫҠԍðҠԠ宮ÍàūРàβРŠ塍βūūððҠԍҠŠàҠðҠĠ占ðӍРϠРà占Ҡ占墮Šōij͠Ĵ̩٠堍͠占٠Š٠堠墮ؠŠōı͍РĴIJҠԠ占Р͠忍ŠĴ占ҠԠҍРѠij骪Ġؠؠ͍؍ؠōРōĠҠÍŠ٠İؠŠ忍ŠIJ占àҠŠı頰占ؠ٠ҠōӍ堪Ġ󮮮Ыūūƫ堪¬ة͍à ŠԱàȍԱӍԲ򠪍ŠҠ̍ðӍӯР占Š墿ŠŵҠ頭ҍҠԍŵӍӯР堪ԠؠȍؠƍѠԲؠ墠ŠųҠԠŴ٠Š٠忍Š٠占àŠ頭占ŠƠР忍ŠԠ墮Ҡ宮ҠԠҠ占宮ҠҍРųŲР͠忍ŠųؠؠŠؠŠ墿ŠŲ󮮮Р͠頭忍Šű󮮮àҠ頭ҍРŴű占墮ŠŠ堪ŠŠҠ͠РŠԠҠÍŠ٠ٍ٠̩٠占̠Ѡ±ҠÍР̳ ō±ƫ堍ÍàЫҠԠūÍàūҠԠ򍪪占ōЫٍ̲̩Р宮Ѡčٍ٠Š̲Ġ٠ū堍̳٠ūٍ̩Р󿮮ѠàōōōŠ󮮮ō ҠÍ٠ٍ̱̩Р宮ŠǍٍ٠Š̱àōōŠ Ǡ٠ūύ̠ύؠύİ؍Ѝİ؍ЫӍӯРҠŠ󮮮ūЫūƫР忍ŠİàŠ宮ŠƠР󿍠ŠĠӍӯР堪ԠؠЬة堍àР占ŠԱᠰ宮àЫԱӍӯР򠪍̠٠ð ````(ГؓL (ɠ (ꌡ덚(ɠ(Г(ɠ Lbؓ8횓 哭Г8 哩 (LΓH 哩hL˓ ¥ ` `hhhh oL`> o`ʊ  d* d` d# dX `  `  採* Lؓ` 哭 dؓ8L# 哭 dm)LГXHh | | E3| | E4| | E5| | )ECR.TABLEm| `| NOTE:| | ECRANuHUSTON!|'  '(ECRAN.LM||+ECRAN.CREER|| ECR.DEMOCP||ECR.DEMOLB|| 'ECRAN.S"g {E2DRESSE#  -------------------Q NN1:AD2N,(249):AD12N,(250):12g  --------------}  MENU DE SORTIE  -------------- 70:12:"(S)AUVEGARDE"::12:"(A)NNULATION" 65:A$"A"7 A$"S"34 !37999:31 "70:6:12 A$"F"30,  -----------------E  CHARGEMENT MASQUE^  ----------------- 48984,0:D$"BLOAD";A$:216,0 65:A$(27)12 A$"M"Č37661:26 A$"F"Č37682:26 37999:19  -------------------  MISE A JOUR A-- MENU# ----K 37999: PETITE MUSIQUE POUR ERREUR 50:20::"ENTRER 'C' POUR LE CATALOGUE":6:"ENTRER 'F' POUR TERMINER "::16:6:"NOM DU MASQUE ? ";A$ A$"C"ė:D$"CATALOG"::"TOUCHE QUELCONQUE POUR LA SUITE":65: ---------------/ INITIALISATIONSF ---------------z23552::(21):D$(4):D$"BLOADECRAN.LM":11AA24576:ADRESSE DEFINITIVEAD24576:ADRESSE DE STOCKAGE249,0:250,(AD256)1:N0:AD,0:AD1,(250):12  --̠̍̍Ӎ?̱СÍ̲̳àŠ̳àŠ̲ðٍŠ̱ӍàҠĠ̫Ġàñàƍñ̠̍` ,`#*(X` LR d d((``8Hh0`HJ) )h)i( ((`hier est verrouill{. Le signe / devant le type pr{cise que le fichier est du dernier s/cat DIR cit{." _"Le signe s devant le type indique un sous fichier du dernier s/cat DIR cit{...."h d:"Vous pouvez visualiser jusqu'@ 92 fichiers, ce qui est d{j@:F$;:64:" * M E N U * "< F5:" INFORMATIONS...";: P" Avec ce programme vous listerez catalogues & s/catalogues,"22)"et vous pourrez lancer le programme BASic de votre choix.":g Z"Le signe * devant le nom du fichier vous indique que le ficA UTILITAIRE PRODOS __ par An{ Benjamin __ F$" U T I L I T A I R E - C A P T U R E D E C A T A L O G U E "D$(4):D$"PR#3"::FP$(93):900(    PRESENTATION    2I192:FP$(I)""::X1:RE$"" <::28160 16368,0::1 (16384)128170A 16368,0:d:(21):i235524n(4)"BRUN ECRAN.LM"Ls16247,0:16247,0mx(4)"BLOADECR.TABLE,A$6000"s}C14:C:170:5,8,13:170C311:C:170:Y10X2202:YY1:5,X,Y:170:C110::170: (16384)1:(4)"RUN ECRAN.CREER"O 1:F$"E"(N):"":(4)"BSAVE"F$",A1024,L1024":d:(21):8iNN1:L$"":I120:L$L$(64N):QnI120:L$L$(N):gsI123:I:L$;:yx140:N4105}::8:"................":16:"................":I816:I:".";:16:"."::NN1:140 :12:"J'APPELLE ECRAN.CREER":E140:"_";::,>------------------D?S/P ATTENTE TOUCHE]@------------------ sA(16384)12865}BA$:C------------------------DS/P EFFACE LIGN. 16 A 21E------------------------F34,15:35,21:936::16:TION TABLE DE MASQUES"/48:E125:"-";:=55:1:61`6D(249)(250)256AD2562N78:5:"LONGUEUR DE LA TABLE : ";D810:5:"NOMBRE DE MASQUES : ";N912:61:22:61::" ";;16:6<= (----------------. )SAUVEGARDE TABLEE *---------------- f +D$"BSAVE";A$;",A";AD;",L";D ,70:6:"UNE AUTRE TABLE ?" -65:A$"O"7 .: /------------------- 0S/P AFFICHAGE ECRAN 1------------------- 2:1:83"CREA"SOUS QUEL NOM? ";A$, #----------------B $COMPACTAGE TABLEX %---------------- &60,0:61,(AD1):62,(249):63,(250):66,N2:67,(AD1)1:368641027 'E02N22:V(ADE)(AD1E)2562562NAAAD:H(V256):ADE,VH256:AD1E,H: fort honorable!. Le maximun est... autant de K que votre disquette peut en contenir; vous imaginez !" n200)"ESCAPE pour revenir @ ce MENU" x16:I14::" ";I;" ":::I:16, 5:"volume du drive n[1"::5:"volume du drive n[2"::5:"volume virtuel /RAM"::5:"quitter l'utilitaire"R 20:45:"VOTRE CHOIX...1 TO 4 ";m Z$:Z$"1"Z$"4"150 Z(Z$):Z180,190,200,170 :: D$;"PREFIX,S6,D1":210 D$;"PREFIX,S6,D2":210 D$;"PREFIX,S3,D2" D$"PREFIX":PX$$ 1:PROTYPuHUSTON!~ '  '-PRO.TYPC.DEMO~ !~ PRO.TYPC~ !7`~ *PRO.TYPC.Sr~ ! ~ TYPETXT: TURE"5:" presser une touche ";:Z$:400~________________________________________________________________BEN.    ONERR GOTO    9(222)5FP$(X)"":280]32,40:33,35:34,16:35,22::32,41:33,33:34,17:35,21::(222)8ĺ39)"VERIFIER VOTRE LECTEUR"(222)3ĺ39)"VERIFIER INSTALLATION."(222)107ĺ39)"DESOLE! JE SUIS SA40*     VOTRE CHOIX    W*FI$(FP$(CH),2,15):PF$(FP$(CH),29,49)w4V:1403,H::"<";FI$;">":>34,23::33:"ES-CE CORRECT...O/N ";:Z$:HZ$"O"VP$PF$FI$:D$;"RUN";VP$RZ$"N"400\(Z$)2750f830 (Y$)2750((Y$)52(Y$)577001Y$;PZ$:(Z$)48(Z$)57740xZ$;:CH$Y$Z$:CH(CH$):CH47700(FP$(CH),18,3)"BAS"700CH63V(CH42):H2:810CH79V(CH58):H29:810 CH93V(CH74):H56:8101008:7(CH12):H29:8103CH47V(CH28):H56:810W    TABLEAU 2    n5:I4762:430:5:I6378:28:430:5:I7992:55:430:20:55::" fl}che gauche < RETOUR ":22:78:" ";:78:Y$:(Y$)08ė:400 n[XX du programme BASic choisi ? ";>0Y$:(Y$)21ė:660O:(Y$)2750jD(Y$)48(Y$)52560sNY$;XZ$:(Z$)48(Z$)57600bZ$:CH$Y$Z$:CH(CH$):CH1550g(FP$(CH),18,3)"BAS"550lCH17V(CH4):H2:810vCH33V    TABLEAU 1    >5:I19::"0";:430:V14:I1016:430:q5:I1732:28:430:5:I3346:55:430:20:55::" fl}che droite > SUITE..":34,21:Z3ĺD$;"CATALOG/RAM"34,22:%&22:RE$;:45:"AD";PP$:XX1:3107    AFFICHAGE    W:::40(PX$)2:PX$::I13:" ";(ET$,6);(ET$,16,15);::34,3::470FP$(I)""FP$(I)" ............... ... ..":(I);:(FP$(I),20);(FP$(I),26,3):!(Y$,18,11)PP$)9cD$;"PREFIX";PE$:D$;"PREFIX":P3$nhD$"OPEN";P3$",T DIR":D$"READ";P3$:LP$,ET$,LV$mXX1:Y$:FP$(X)(Y$,16):20:67:X1;rFP$(X)""FP$(X)(FP$(X)C$(Y$,18,11)P3$):365wD$"CLOSE";P3$:D$;"PREFIX";PP$|D$;"RE(Y$,16):20:67:X1;2;(Y$,18,3)"DIR"345j@FP$(X)""FP$(X)(FP$(X)E$(Y$,18,11)PP$):310ED$"CLOSE";PP$:D$;"PREFIX/"JD$;"PREFIX":PX$:D$"READ";PX$:LV$O255T:YB$(FP$(X),2,15):PE$PP$B$:C$"s"^FP$(X)(FP$(X)C$""FP$(X)FP$(X)PX$/Y$""XX1:2558RE$bD$"CLOSE";PX$:D$"PREFIX,S6,D1":400h:"A$(FP$(X),2,15):PR$PX$A$:E$"/",D$;"PREFIX";PR$:D$;"PREFIX":PP$1D$"OPEN";PP$",T DIR":D$"READ";PP$:LP$,ET$,LV$6XX1:Y$:FP$(X)Ж64::" ";:64:PX$K 20:45:" travail en cours... ":n    LECTURES    D$"OPEN";PX$",T DIR":D$"READ";PX$:LP$,ET$,LV$ Y$:FP$(X)(Y$,28):20:67:X1; (FP$(X),18,3)"DIR"FP$(X)FP$(X)PX$:290 Y$  (21)&::"DEMO PRO.TYPC"u5:"PRO.TYPC met en place une commande qui comble une lacune de ProDOS."("TYPC nomfichier <,Dnumdrive> <,Snumslot>permet de lire tout fichier TEXT sans enconnaitre la structure." 2:"Si le fichier contien :(21):8"VOUS NE POUVEZ UTILISER CES PROGRAMMES SANS AVOIR LU TREMPLIN MICRO NUMERO 9. COMMENCEZ DE PREFERENCE PAR UNE SOLIDE DEMONSTRATION AVEC:"::16::"ECR.DEMOC": (198:16368,0:163& .. .. .. .. .. .. .. ..&& ``$aa>b&s suffit d'activer le mode d'affi-chage voulu."E :"Au revoir." 22:"<1> ON ARRETE ICI <2> MENU DISQUETTE ";:R$:: R$"2"ĺD$"-/TM9/MENU" R$"1"190 s auriez pu provoquer une pause en frappant une touche. Une seconde frappe aurait relan\{ le listage." "Taper ctrl C provoque un arr}t d{finitif du listage"1 "Cette d{mo est succinte mais vous pouvezTYPCr en 80 colonnes ou sur imprimante, il vouOPEN TYPETXT":D$"WRITE TYPETXT"m d"Ce fichier d{mo contient un backspace ("(8)") et un Gling ("(7)")" nD$"CLOSE TYPETXT" x(768)255ĺD$"BRUN PRO.TYPC":768,255:"pour {viter les chargements r{p{titifs D$"TYPC TYPETXT"j :"Vout des caract}res de controle, ceux-ci b{n{ficieront d'un":"traitement particulier pour {viter les fac{ties classiques des imprimantes." <:"ctrl X sera remplac{ par le triplet " F:"PATIENCE, je cr{e un petit fichier TXT" PD$(4)" ZD$"84,128,127:16368,08 2::::"]RUN ECR.DEMOC":17d ` LC=aa?ةB8Ca< / `a? `a?L,<ȩa<<ȩa<