' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]L L}BBL] 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` PP>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"_]` L/浍굺L  !"#$%&'()*+,-./0123456789:;<=>?  1#"""  (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0EB H  @H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`HIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   vLDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (  @ՠ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / X ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` ، d z  uP @A``DTX`0` dV`p@H P`L@q8P`@X0N` `A@"@`@2`Cq@0  $d  t `0@C00@@@ k@@sHnc@`@` 8 @ @0  &48 `pc8@7G@@LVL @`D0Z@@@~?0`PpH@H Ca`P0@~2h00`1x`0@p@&@` "pC`   ,l  0@d @c1 v `+p~ ?0@@82@  8`r @0`` dT`0`@@ ga`UPL@@HZG0 @p@L`qj@``8XpxGpX @ ET AFFICHAGE INFOS J GRIBOUILLE,MAX THE GLOBE TROTTER,PROCODET PAGE 1 A 2774,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 (1 AN)"::17:20:"150 F (5 NUMEROS)"Sj6::"DEMO:";::" 25 F par disquette"t60,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:TRANSFER-">B" Pas de frais d'envoi pour les abon- n{s @ la revue."L:"MARCHE A SUIVRE: Simplement r{pondre---------------- aux questions, puisallumer votre imprimante!"V:"FACE 1: DOS 3.3 FACE 2: ProDOS"'`16:20::"ABONNEMENT";#I1I22āJ239:J:" ";:440:" "::R32,2:33,36:34,2:35,22^$2:1:." Utilisez votre imprimante pour pas-ser votre prochaine commande de dis-quette a TREMPLIN MICRO:"8:"PRIX UNITAIRE: 105F + 10 F d'envoi -------------e disquette vierge gratuite.":E$T$(T$,7):E$"TREMPLIN MICRO - GUY HACHETTE":E$"La Petite Motte - Senill{ - 86100 CHATELLERAULT"0::20:958:198:" <1> ON PEUT CONTINUER <2> ERREUR";:R$:16368,0:774,R$::I122:I:1:" x 5t  X`H0134h 2`Lȅ0!  40 1 L`xHHH ;):060ޢhhhX@000000ãL1:7,X::36864 UNE IMAGE DEJA EN MEMOIRE= 19::(4)"BLOAD"F$",A"8192Xj X0:RI$"2"X4:PAGE 1 + 4 POUR PAGE 2 20:1:"<0> BLANC SUR NOIR - <1> NOIR SUR BLANC <2> DOUBLE BL/NOIR - <3> DOUBLE N/BLANC";:RI$::RI$(48)RI$(51)60050 XX(RI$):6,  D$(4)D$"OPEN SAV"2D$"WRITE SAV"F"LOAD IMP.GF0"Z"DEL 10,50020"q#"DEL 60070,60070"("SAVE IMPGF"-"LOAD IMP.GF0"2"HOME : GOTO 100"7:D$"CLOSE"@@ +8`@Ha8@+` @h@c0` Wp`8  &,`p@#D0"Cq`4 0p0  D 8 0d  @8p0P`H pCQf0@5 @> @@@@Ffp`8&@0 @@@LV@0`G`w@@ 0-`0@@@@ Ga`-80 p2(Fc08 <8`@  d4p``  &CqT  0L0 8D p 0@``P08[0C @2@ @pgq@``0dd >` 0` @@@H[@`AM{1@p`8@5@c0`@ G05  80",  8p: .ҠԍٍŠЍԠР͍ԠӍŠħ΍򍪠卪РՠɠЍøЫбàЫ؍ɠԍ٠ÍЩٍРŠб٠ЩٍРĶŠбЫī΍̍̍̍̍ΰŠԍԠ٠РǬٍʰΰؠĠР፪ō堵󍪠썪ԠؠɠӠ㍪ӠŠ̭čĠЩٍؠ΍٠ΰīؠīҠčӍΠؠؠРԠ Ҡؠԫ⍪٠ŻҠč٠Š占ҠĠ荪ŠŠōԠՠō̠ǠΠɠҠԠՠԠŠӍР⠠РՠҠōŠՠŠՠŠՠ͠ՠİԠӍԠՠŠҠΠՠԠՠĠ ԠŠӠԠӠŠ堪㠪堠 NOIR - <1> NOIR SUR BLANC <2> DOUBLE BL/NOIR - <3> DOUBLE N/BLANC";:RI$::RI$(48)RI$(51)60050 XX(RI$):6,1:7,X::36864 100:A SUPPRIMER OU A REMPLACER PAR RETURN, DANS UN PROGRAMME I$)Y ~20:958:"TITRE DE VOTRE FICHIER ";F$:F$"?"ė::(4)"CATALOG":R$:::60030 F$""60045:PERMET D'EDITER UNE IMAGE DEJA EN MEMOIRE 19::(4)"BLOAD"F$",A"8192X X0:RI$"2"X4:PAGE 1 + 4 POUR PAGE 2h 20:1:"<0> BLANC SUR0:: Pú:(4)"BLOAD GF"Y Z×:22:"REMPLACEZ TOOL KIT PAR VOTRE DISQUETTE ";:R$:| dú(4)"BSAVE IW1,A36864,L601": `::(4)"BLOAD IW1":36863 j20:"<1> PAGE GRAPHIQUE 1 <2> PAGE 2 (HGR2) ";:RI$::RI$(49)RI$(50)60010 tX(R0 d20:958::"<1> ESSAYER CETTE ROUTINE <2> LA SAUVER SUR DISQUETTE <3> FIN DE PROGRAMME ";:R$::R$(49)R$(51)100 nR$"1"ī60000 xR$"2"ė::(4)"EXEC SAV": :: 22:958:" PAS DE ROUTINE GF SUR DISQUETTE":U1200 2::50000,50020U <22:958:"PLACER TOOL KIT APPLE DANS LE DRIVE 1 ";:R$:_ F150j P50000 Z:"VOICI VOTRE PROGRAMME (IL PEUT ETRE SIMPLIFIE) ----------------------------------------------"::60000,6006 :(4)"PR#3"::Q19::" UTILISATION DE LA ROUTINE GF - DOS 3.3 ":]34,3: ("LE PROGRAMME SUIVANT RECUPERE LA ROUTINE SUR VOTRE DISQUETTE TOOL KIT APPLE,PUIS EN REECRIT UNE PARTIE SUR VOTRE PROPRE DISQUETTE, SOUS LE TITRE "     ٬ؠҠ卪ŠҍǠàãŠ卍?̠Р鍪ΠŠŠōɠ򮮮ɠ􍪍ӍԠؠӠàŠ卪άؠ卪頠Š卪ŠŠԍؠӍРӬؠ宮άؠ占ؠ󠿍̠Š卪РՠŠħō堨卪󮮮Ӭؠ؍àӬؠӬؠ󠿍Р堶ŠР卪ڠӬ؍ؠ󠶠裰頺Ԡ󍪍ؠӍŠՠàӬؠӬؠ󠿍Р堹àР卪󍪍Šՠō٠ŠҠčàԠ󠶰占Ԡ堿РŠР堺卪6-*- $$----2v-% >-6vm< $2v-%  3:-i  -->?7-->?7-->??Iw6.8Iw6? 166.8L : 566>N 66 <()6666M!$?2v- $;7-?$$2-V$$? )%166.- $;' -5:? <I 666?? $)%26)- ?-671.( ;2)- $?-166.I$$;' -66?I 66?166n  166.--166n $$$166n $ H6.66- $$;7166.`?%66mh$?)-8(8$$< -3-? )-366166- $$16`$$166. $$$1n  < -6?'-(8III--??  -R)%6>?`-66M!6? -.--)-5>N? I1 3--6R- ?',--I-޻.-? )-56 -? M8? @% ( "@(%i`ɠ`%e%e $80 LY@  @ iLh@ ](` 6 $ -3? -- I? ?u$ 1%MM5?  8,<I6I6     ̍Ԡ፪婮ԠӠƠӠ卍ԠЍɍݱ˻٠ƻݲ٠ŠݲؠŠݳàԻŠݱЍӍݳ堍፪宍Р堨欠塩Ơ宠ƍƩƠƠ卪婠򍪠宠󍪠󍪠宍鬠卪эРݱݴЍӍӭӠŠ㍪嬠占ЍŠݲؠ堨˻덠Ļ堿ɠݴ鍠àݳ㩠󍍠ؠ䍠ؠѻ󠿍Рݱ㩠ݳؠؠ嬠ѠѠѠĠðԠðҠРɍԠؠѻݱᩍݲؠ嬠䮠卪宍񠽠񠠽񠠽ݴˠ؍ŠݲàŠݱРӍŠŠŠ쪪Ǡ֠Ģ ΍ɠ ɠ 􍪍 ӍԠؠӠà ٬ 卪 ҍRMINE";:R$:* R$"M"ĺ(4)"RUN MENU"9 R$"E"40J R$"T"160T ::l 36,H:37,V:990:160 FA20ĉ:210:50( PA11Č998F ZA127:1008:A$" ":D1_ dA$;:D1D0:1008w nV(37):V19Č958 xH(36) A350 49236,0:49234,0:49239,0:49232,0:T0 16384:210:50 22:1:"(M)ENU DE DISQUETTE (E)NCORE (T)Em ::(21)*(4)"BLOAD FONTE.LM"8:::T121:"CTRL-T = TEXT - CTRL-F = FINI DE JOUER""CTRL-C = TERMINE ET LA PAGE HGR APPARAIT"" UTILISEZ LES QUATRE FLECHES DE L'APPLE "(1:1:T0T1::2102A$:A(A$) <A6Ĺ49235,0:   MA$(9)"S E P T E M B R E":MA$(3)" M A R S ":MA$(4)" A V R I L ":MA$(5)" M A I ":MA$(6)" J U I N ":MA$(8)" A O U T "/MA$(7)" J U I L L E T ":MA$(10)" O C T O B R E ":MA$(11)" N O V E M B R E ":MA$(12)@` 'P`PP45,70,85,90,200,225,345&TPP1:330{Y12:6:"CTRL-C POUR MENU DE DISQUETTE CTRL-F POUR TERMINER":285RRL-F POUR TERMINER":28524:1:"PRESSEZ UNE FLECHE <- OU -> POUR SUITE ";:R$:R(R$):16368,0_"R8PP1:305t'R21PP1:305,S1S0:1PP16S1S0:;R6ĉ::@R3Ģ22::(4)"RUN MENU"EP9P8JPQ285O:QP:3:958:P25,."[768,32:769,99:770,235:771,32:772,128:773,235:774,32:775,130:776,233:777,9622:2:198:"B = ";:R$:S1:R(R$):290 R$;:"";B$:B(R$B$):B34022:20:868:(B):260285:1:(41(T$))2::T$::34,2:3:KРԠ򠳠Рݱ፪婮ԠӠƠӠ卍ԠЍɍݱ˻٠ƻݲ٠ŠݲؠŠݳàԻŠݱЍӍݳRUN FICHE5.0" JR$"T"300$ TI E1180:E0:2:20:868P " CHR$ > ";:J1(C$):((C$,J,1))" ";:Jd ::(4)"PR#0"~ E1E0:2:20:868 :C$"":50 : ,22:"ENU DISQUETTE ICHE5.0 ERMINE ";:R$ 6:R$"M"ĺ(4)"RUN MENU" @R$"F"ĺ(4)"R$(13)C$""100= FR$(5)Ė20:"CTRL-EXPANSE":E1:50Y PR$(32)Ĺ16368,0:50r ZC$C$R$:(C$)850 d9::C$::NNB(C$) n34,22:23 x(4)"PR#1"::(27)"n";:(9)"80N" (15);:E1ĺ(14); (27)"G0240"; I1N:C$;:% :(21):3I110:T$T$"----"::T$:T$>NB240(12:"TAPER LES 8 CARACTERES CHOISIS"::"- CTRL-E pour EXPANSE"::"- RETURN pour FIN DE SAISIE"::"- ESCAPE pour terminer"22:1:"CODE ->  ";:9:C$;:R$:R$(27)210 <    `'` @P T    "PR#0":, 998:998:33::"=";::C$:O 250:270:230::240:230:: ,22:"ENU DISQUETTE ICHE5.1 ERMINE ";:R$ 6:R$"M"ĺ(4)"RUN MENU" @R$"F"ĺ(4)"RUN FICHE5.1" JR$"T"300 T0"VOTRE CHOIX -> ";:C$:XX1:C$:4:X:C$:C$(27)220E 18:18 (4)"PR#1":(27)"V0200"C$;:" avec "C$::(4)"PR#0" 180 ::300 198:16368,0:16384,128,127:16368,0: (4)"PR#1":(27)"n" (27)"V0576"C$ :(4) ":C$"x":280> "Puis = 2 grosses lignes ":C$"f":280r "Et enfin <8> = Trait tr}s {pais ":C$"8":280 :8:T$ 9:"FAITES DES ESSAIS AVEC DIVERS CARACTERES"T$:34,11 21:T$:" ESCAPE POUR TERMINER LA SERIE"9 :198:12:1: CQFD). Avec davantage de points, c'est plus FIN & ...PLUS LENT" d230::"Passons au CODE suivant: - H... qui donne deux traits fins":C$"H":280 n:"Code = trois traits fins":C$"I":280 x"Puis = Une grosse ligne CODE C$"[ F:"Ce code donne un trait fin, d'autres co- des autorisent des variantes."r P230::C$"@":240D Z:"La ligne est compl}te car l'imprimante a {t{ initialis{e avec ESCAPE N, ce qui donne 72 cpi par ligne et 576 points (72 x 8... ::(4)"PR#3":(21):I" DEMO IMAGE WRITER OU DMP APPLE"hI110:T$T$"----"::T$(::"Allumez l'imprimante":230234,4::240,250 <:"ESCAPE VnnnnC$ permet d'imprimer n fois la colonne de points sp{cifi{e dans le  00"(`0 `rcy00@`d` 0 & p0`8x@pL 0c /=`@@@@|@` 2Bq8@@ `@@`DV@c0@` lG0Vpx@@ j@8@@@Hcq+@ 0@HC0  hp` &,`@ 0ro  D 0d0 @@p8HP<` 7 @7u0@@@1p`&` `t`@@ "Ca`` 0@`@LZFc@8 `\ Z<0`+```@ ~C-@2h0Fp (P@ p  d4`p  >> 0  L  0D `10 `@pP0g8@0Br@@c@Uc1p@a D0` &Gp ` @8@Hj @ 8@|8 jh@ <`-8@0@5p@ @0 0"( \6t2@q,0`@ @``DT@` n0\``@0H 0`L`cqP0@ X`0@Ay`@Bb@@p@3@c`              BLOAD"F$",A"8192X 20:1:"<0> BLANC SUR NOIR - <1> NOIR SUR BLANC <2> DOUBLE BL/NOIR - <3> DOUBLE N/BLANC";:RI$::RI$(48)RI$(51)60032 XX(RI$):6,1:7,X::36864 R!`::(4)"BLOAD IW1":36863{j20:"<1> PAGE GRAPHIQUE 1 <2> PAGE 2 (HGR2) ";:RI$::RI$(49)RI$(50)60010tX(RI$)~20:958:"TITRE DE VOTRE FICHIER ";F$:F$"?"ė::(4)"CATALOG":R$:::60030F$""60045 19::(4)"  ԠҤĠШƩ̠̠ԠҤŠƢԠҤĠШƩŠϠ "PR#0":, 998:998:33::"=";::C$:O 250:270:230::240:230:: ,22:"ENU DISQUETTE ICHE5.1 ERMINE ";:R$ 6:R$"M"ĺ(4)"RUN MENU" @R$"F"ĺ(4)"RUN FICHE5.1" JR$"T"300 T06368,0:16384,128:16368,0:260 ::270F :23:"(D)EBUT (M)ENU DE DISQUETTE (T)ERMINE ";X R$:16368,0f R$"D"Ĭ R$"M"ĺ:(4)"RUN MENU" R$"T"210 I1(T$):(T$,I,1);:J15:X(49200):::: 23:10:"PRESSEZ UNE TOUCHE" 198:1UE A L'ADRESSE DESTINA- TRICE CORRESPONDANTE, COMME CECI:":260 :"*800<300.309F *303 - 2E (01) par exemple" :T$"Quand tout est exact, VERIFY n'affiche que l'ASTERISQUE *": x:T$"On utilise cette fois la routine VERIFY":260k :T$"S'il y a une erreur, VERIFY affiche:":260 :T$" - L'ADRESSE HEXADECIMALE OU SE SITUE LA DIFFERENCE":260 T$" - LA VALEUR ECRITE A CETTE ADRESSE":260D T$" - LA VALEUR LESTINATRICE NE DOITPAS ETRE COMPRIS ENTRE LES ADRESSES LI-MITES DE LA ZONE A COPIER (ICI:300.309)":260 F9:2::T$"800":260: PI12000::9:2:270 Z d"COMPARER les zones $300.309 & $800.809" n::"*800<300.309V (suivi de RETURN)"6 :(21);(12):G"TRANSFERT & COMPARAISON DE ZONES MEMOIRE";dI120:"--";:::34,3("DEPLACER la zone $300.309 en $800.809"2::"CALL-151 (suivi de RETURN)"::"*800<300.309M (suivi de RETURN) h <:::T$"LE DEBUT DE LA ZONE D  f  > W% ;Z ; ;> ;> : ` W ; ; ;L; (de $9D @ $A2 et de $A5 @ $AA)":"$E982 multiplie le contenu de l'accumu- lateur par celui de la zone allant de $A5 @ $AA, puis place le r{sul- tat dans l'accumulateur":"Comme on le voit, la routine {l}ve l'ar-gument au carr{..XEMPLE"::3T$"300 20 63 EB JSR $EB63303 20 80 EB JSR $EB80306 20 82 E9 JSR $E982309 60 RTS ":I1(T$)(T$)4:(T$,I,(T$)4)::"$EB63 recopie l'accumulateur en $A5-$AA":!"$EB80 d{termine les signes des nombres 38 SECONDES":"Temps avec: ----------- FOR I = 1 TO 5000:A=10: A = USR(A):NEXT 27 SECONDES"285 3:28::"AUTRE Easser parle programme de l'adresse $300, de cettemani}re:"v:"POKE 10,76: POKE 11,57: POKE 12,234: REM $4C 39 EA"+:"Temps avec: ----------- FOR I = 1 TO 5000:A=10: A = A * 10:NEXT ,768(12)256@n768,32:769,57:770,234:771,96: ROUTINE LMox22:2:198:"B = ";:R$:S1:R(R$):290R$;:"";B$:B(R$B$):B34022:20:868:(B):120:3:"Dans notre exemple, on pouvait acc{der @la routine $EA39 (MUL10) sans pLLE VALEUR de la fonction USR sera celle figurant dans l'accumulateur,au moment du RTS renvoyant au Basic."v P285 U"FAITES UN ESSAI AVEC CE PROGRAMME, EN DONNANT DES VALEURS DIFFERENTES A B:":100,140:285 Z100,140d10,76:12,768256:11` A:"Ensuite, si l'on tape un RUN 100, c'est le nombre ";::80;::" qui s'affichera.":285 F"La valeur de l'argument se trouve dans le registre accumulateur ($9D @ $A2), o|la routine en langage machine devra doncla r{cup{rer."m K::"La NOUVEe en langage machine soit charg{e d'afficher l'argument multipli{ par 10, comme ceci:" 7:"300 20 39 EA JSR $EA39 (FAC * 10) 303 60 RTS (Basic)" <:"POKE10,76:POKE12,768/256:POKE11,768-PEEK(12)*256 va initialiser la fonction USR"t un autre en assembleur, auquel elle transmet des param}tres avant de retour-ner au programme principal."t (285 -:"EXEMPLES:"::::"100 PRINT USR(8) (ARGUMENT=8) 500 X=2*USR(Y+1)"V 2:"Exemple absurde, supposons qu'une petiteroutinR De cette mani}re, un appel @ USR renver-ra automatiquement @ un sous-programme en langage machine d{butant @ l'adresse ADR."k #:"On sait que cette fonction permet d'{ta-blir un lien entre un programme en Basice|  ::(12);(21):$P1:QPP:T$" FONCTION USR (PAGE ZERO) ":280"POKE 10,76 ($0A)POKE 12,ADR/256 ($0C)POKE 11,ADR-PEEK(12)*256 ($0B)" :"Ces 3 POKES initialisent la fonction US         C (F)IN"0 16368,0:16384,128,127:16368,0X R(16384):R77ĺ:(4)"RUN MENU"v R69ĺ:(4)"RUN ETOILE" R70ĉ:: 160H9234,0:SUPPRIME LES 4 LIGNES DE TEXTE4 Z198:R$T d49235,0:RETABLIT LE TEXTE n:22:"MEME ROUTINE AVEC CADRE LANGAGE MACHINE" x768:49234,0:834:SS1:S1āI12000: S12120 49235,0 :22:"(M)ENU DE DISQUETTE (E)TOILE BASI :(12);(21):10:0,0:230,32:3082~"DEMONSTRATION AVEC ROUTINE LM -----------------------------"(::"67 OCTETS (CADRE) & 35 OCTETS (CADRE)"2(4)"BLOAD ETOILE.LM"<22:"ENFONCEZ UNE TOUCHE ";:R$F768& P4  ЍРɠݱؠѻݲЍàҍЍٍݳ٠占Šݳ˻덠ٍݴ٠占Š卍㬠ϱ􍪠ԠҠѮԠӠҠӠѠӠРӠˠðϠԠ٠ҍؠэϱӠϠΠϠ썪᩠᩠卪卪欠̭Ǡ̩ƠΠŠΠԠΠƬŠΠƬƍԠΠƬРΠōΠϠΠÍؠ٠Рύ͍΍ӠӠ卪󍪠򍪠ᬠ嬠堍㬠򍪠ͮ͠Ϡ󠠠堠ǠŬ骪          S"ĺ:(4)"BSAVE ETO,A$2000,L$2000"5 ^:R$"F"ĉ:> h230SL h230R40# R$"D"XCXC3:YCYC2:1203 R$"A"310< "230l ,198:16368,0:16384,128,127:16368,0: 622::958:"(F)IN (M)ENU DISQUETTE (S)AVE PAGE1 -> ";:R$:16368,0 @R$(27)Ĺ49234,0:300:220 JR$"M"ĺ:(4)"RUN MENU"# TR$"XC:V(V)R(B)YC Y H(1),V(1)H(3),V(3)H(5),V(5)H(2),V(2)H(4),V(4)H(1),V(1)f 49235,0 22::958:198:"(E)FFACER (C)OMPLETER (D)OUBLE (A)UTRE ";:R$:16368,0 R$(27)Ĺ49234,0:300:220 R$"E"Č3086:EFFACER R$"C"$""XC(XC$) ZXC0XCR5 dYC$""YC(YC$)D nYC0YCRs xXC0RXC279RYC0RYC191RČ198:60 :21:L$;XC;",";YC:868 49234,0 S5:PI3.1415926:PBPI2:CEPBS 3:V0 A0PBCE BA.313 VV1:H(V)R(B)? :(12);(21):10:0,0:230,32:30827(:22::868:"RAYON DE L'ETOILE = ";R$:(R$)96(R$)12R(R$)2R0310<L$"CENTRE DE L'* ("(0R)"-"(279R)","(0R)"-"(191R)") = "F21:958:L$;:"";XC$,YC$ PXC  ݠؠҠؠҠݠBLOAD"F$",A"8192X) X0:RI$"2"XX4 20:1:"<0> BLANC SUR NOIR - <1> NOIR SUR BLANC <2> DOUBLE BL/NOIR - <3> DOUBLE N/BLANC";:RI$::RI$(48)RI$(51)60032 XX(RI$):6,1:7,X:36864 R!`::(4)"BLOAD IW1":36863{j20:"<1> PAGE GRAPHIQUE 1 <2> PAGE 2 (HGR2) ";:RI$::RI$(49)RI$(50)60010tX(RI$)~20:958:"TITRE DE VOTRE FICHIER ";F$:F$"?"ė::(4)"CATALOG":R$:::60030F$""60045 19::(4)"E,A,SCALENE,D,EQUILATERAL,CZZ110:X(49200):1X(49152):X128530H49168,0:20:"":o&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$01 ( 1 255 1)",36900 O "SLURP SON $80,$06,$FE (128 06 254)",36909 ':20 110B "INDICATIF SON $67,$32,$82 (103 50 130)",36864w "MUSIQUE SON $10,$78,$01 ( 16 120 1)",36873 "PROMPT SON $01,$FF,$23 ( 1 255 35)",36882 "SIRENE SON $01,$FF,$FF ( 1 255 255)",36891  "TUUT SON $01,$FF,R", P36975:::"ETES-VOUS JEUNE ?"::F8z Z3:FF1:37013,F:7:958:"FREQUENCE = ";(511500(205F))" Hz":37014 dF290 n22:1:"(E)NCORE (M)ENU DE DISQUETTE (T)ERMINE ";:R$::R$"T"ė: xR$"M"ĺ:(4)"RUN MENU" R$"E"X0:Q* 36863::(21)::(4)"BLOAD SON.C"<:"SONO"::r22:"APPUYEZ SUR UNE TOUCHE APRES CHAQUE SON":3(A$:A$:CA:CA216368,0:16384,128:16368,0:<XX1:X640 F::"SIRENE"::22:"APPUYEZ SUR UNE TOUCHE POUR FAIRE CESSE    [ Ѕ p L> P P(``::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:470O 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"F480::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 < 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:" ":< E,A,SCALENE,D,EQUILATERAL,CZZ110:X(49200):1X(49152):X128530H49168,0:20:"":o&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"RUN MENU"R$"T"420#:B:XX1:("MRT",X,1);::R21: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) INEGAUX"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 COTES480~ 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$g2L:xL:#L:L:L:L:6789x89m79006(`x00PLvLv(`x0Δ(`$LŠݲؠŠݳàԻŠݱЍӍݳ  F(16384)12870" PA$:40I#  40::D$(4)1D$"BLOAD ECR.OUT"c(:3:5::"LECTURE D'UNE TABLE DE MASQUES":210:10:"NUMERO DU MASQUE ? ";A7AD8192: CORRESPOND A $2000, A DETERMINER SELON L'ADRESSE DE CHARGEMENT <6,(AD22A):7,(AD12A):768 ``[8@``  @@X@`@`|fCO:m9@0~@@p #`c@ @@; f @0@`A@@ @x`@`@@@@@@@@`@H@@@@@`pf@@"@@`0xAp`@G@P` `@@@@0@Fx$@B@h@@@x0x `q@@ `3`@@P@@@`?_Fj} @ ^Ax@<"0B@@@@  0n @ @@@ s@``@0@@@`@ 0` xt@8 0@`@@ |pC@L@ @"@ D$(4):G$(34)]D$"OPEN SAV":D$"WRITE SAV":"PRINT CHR$(4)"G$"LOAD IMP(GF)"G$"DEL 10,50020":"DEL 60070,60070"("PRINT CHR$(4)"G$"SAVE IMPGF"G$2"PRINT CHR$(4)"G$"LOAD IMP(GF)"G$:"HOME : GOTO 100"<:D$"CLOSE" )1:7,X::36864 NOIR - <1> NOIR SUR BLANC <2> DOUBLE BL/NOIR - <3> DOUBLE N/BLANC";:RI$::RI$(48)RI$(51)60050 XX(RI$):6,1:7,X::36864 100:A SUPPRIMER OU A REMPLACER PAR RETURN, DANS UN PROGRAMME ,128,127:16368,0::X1) 2130:::P <21:"La ligne 70 r{tablit les bons pointeurs ":70:130b F103,1:104,8s P::130:: Z:23:"<1> MENU DISQUETTE <2> FIN ";:R$:16368,0 dR$"1"ĺ:(4)"RUN MENU" nR$"2"90 x:: 198:16368,0:16384P ::(12);(21):::" RACCOURCIR UN PROGRAMME (AVEC DEF FN) "::34,1:lAD(X)(X)256(X1)"La ligne 40 va supprimer les lignes 1-40(ce qui augmentera la rapidit{ du pro- gramme restant)":20::40 (XAD(121)1:103,(X):104,(   g ( L=H ThL:  T(¥ T` ` ,`z ???Ӡ Π ˮР ήà ήϠ ήŠ Ҡ Ů͠α βîŠ î͠ îĠ îԠ ųӮҠΠ Ơ ױ ֠ ŮŠŮҠŮҮϮӠ ŮҮӠ Ϡ" ŵŵŮϠŮ͠Юư֠ ҮҠ ҮΠҮŠҮԠ Š Ů͠ Ů͠ ŠҮ͠ҠҠҮϠ Π ՠŮҸŮҠŮ͠ҮΠҮנ  ϠΠϠ٭Š!`::(4)"BLOAD IW1":36863{j20:"<1> PAGE GRAPHIQUE 1 <2> PAGE 2 (HGR2) ";:RI$::RI$(49)RI$(50)60010tX(RI$)~20:958:"TITRE DE VOTRE FICHIER ";F$:F$"?"ė::(4)"CATALOG":R$:::60030 F$""60045:PERMET D'EDITER::" LE NUMERO PLACE AU DEBUT DE CHAQUE LI- GNE DU MENU RENVOIE A LA PAGE CORRESPON-DANTE DE TREMPLIN MICRO.":670:198:16368,0:16384,128,127:16368,0:XX1:X2670X1:V DE VO-TRE DISQUETTE."]l:" SI VOUS POSSEDEZ UNE CARTE BLEUE, TELE-PHONEZ AU 49 93 66 66"v::11::"EXPEDITION IMMEDIATE":670:12:" Cette disquette n'est pas PROTEGEE et il est prudent d'en faire IMMEDIATEMENT une bonne copie."wMICRO":X:" VOUS OBTIENDREZ FACILEMENT CE NUMERO ENLE DEMANDANT A L'ADRESSE SUIVANTE: * TREMPLIN MICRO LA PETITE MOTTE * SENILLE 86100 CHATELLERAULT"b::" UTILISEZ LE BULLETIN DE COMMANDE793,32:794,251:795,218:796,96':PD:::11:" BONJOUR ET MERCI! "::N" 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 ECRANS AVEC DEF FN,DEFECRAN!:&768,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!0783,41:784,63:785,32:786,237:787,253:788,200:789,196:790,96:791,144:792,244:OS,RAME.COPIE:56 - UTILISER GF TOOL KIT APPLE,IMP.GF0j56 - CURSEUR-TIRET (COURRIER),CURSEUR.DEMO57 - DATA RESTORE (COURRIER),DATA58 - CHAIN.DEMO (PRODOS),CHAIN.DEMO58 - BSAVE & BLOAD ECRANS 80 COL,BSAVE.ECR8059 - ADRESSES-ECRANS (CREER),ECR.CREER,45 - STOCKAGE D'ECRANS (LIRE),ECR.LIREk46 - DEMONSTRATION CADRE HGR,CADRE.HGR49 - DESSINE-MOI DES ETOILES,ETOILE 50 - ETOILE ET CADRE LM,ETOILE.DEMOLM51 - MOVE ET VERIFY,ZONE.MEM 52 - RAM.COPIE SOUS PROD7 - LA PSEUDO PAGE 3 EXISTE,PAGE3T 30 - INDICATIF MUSICAL (J.SAUSSARD),MUSIC.IND  33 - CARACTERES FRANCAIS HGR (M.DEVAUX),FONTE.DEMO 36 - CALENDRIER IMAGE WRITER,CALENDRIER.IW,36 - CALENDRIER EPSON RX80,CALENDRIER.EPSON? 41 - STOCKAGE D'.HGR* J11 - CORRECTION AVANCEE,CORRIGER_ T14 - ROUTINES SON AVEC RICHARD THIBERT,SON.DEMO ^21 - FILETS IMAGE WRITER (FICHE 5.0),FICHE5.0 h22 - FILETS IMAGE WRITER (FICHE 5.1),FICHE5.1 r: |: 24 - USR...COMMENT CA MARCHE ?,USR! 2,21:22::T$;:"SELECTION -> PAGE "((A$(VDS),2))" "B$(VDS)\ B$(VDS)"INFOS"580x "23:(4)"RUN"B$(VDS) ,:: 6 PAGE INFOS GENERALES,INFOS @" 3 - WHAT TIME IS IT (CLAUDE AUBRY)",MOUSE.HEURE E" 8 - POKES POKE HGR-HGR2",POKESD)1 K(16384):K9ĺ:21:(4)"RUNCOMMANDE"@ K128190l 16368,0:V:A$(VSD):K141Ģ22:270 K136K139VV1:VDVD1:90 K149K138VV1 NSPS0VRD1VD1:SSP:100 VND1SVD1:90 180A 35,24:34S FLECHES - RETURN POUR RUN";:V::35,225 ZR0:S0> dV:L nS0140g xRR1:A$(R):RSP120p 150 RR1:A$(R):RN140 :31:V:"FIN=CTRL-C": 35,23 20:31::"COMMANDES:"::21:31:"> CTRL-I <":35,22 V:768,A$(VS " :(12);(21):::V3:DV1CNU5:NUMERO DE LA DISQUETTEdI110:T$T$"----"::SP19n300(N30:A$(N),B$(N):5502N26<R1N:A$(R),B$(R):F" DISQUETTE DE TREMPLIN MICRO NUMERO "NU" "T$:34,2) P23:T$" UTILISEZ LE     N DU CALENDRIER SUR ";NP;" PAGE";S$L:"NOMBRE D'EDITION DESIREE -> ";NEfNPNPNE:NP1S$"S":"CHARGER AU MOINS ";NP;" FEUILLE";S$20:1:"VALIDATION (O/N) ";:A$A$"O"A$"N"445A$A$"N"36080:VARI:"";U$:U(U$):U2000385*Uĉ::N:4:11::"POUR L'ANNEE ";U:8::"NOMBRE DE MOIS PAR LIGNE (1/2/4) -> ";:ML$:ML(ML$):ML1ML3ML4400ML$ML1NP6:S$"S":425ML2NP2:S$"S":425NP1:S$""#:"EDITIO4ĺ:^G:H:0:c:4h ENTREE DES DONNEES:m:rB$" E N T R E Z L'ANNEE CONSIDEREE "w:2:J110020:10::(B$,J,20):J|12:16:"-> ":12:20:"1900";:20NS UN PROGRAMME UNE IMAGE DEJA EN MEMOIRE= 19::(4)"BLOAD"F$",A"8192X 20:1:"<0> BLANC SUR NOIR - <1> NOIR SUR BLANC <2> DOUBLE BL/NOIR - <3> DOUBLE N/BLANC";:RI$::RI$(48)RI$(51)60050 XX(RI$):6,1:7,X::36864 0:: Pú:(4)"BLOAD GF"Y Z×:22:"REMPLACEZ TOOL KIT PAR VOTRE DISQUETTE ";:R$:| dú(4)"BSAVE IW1,A36864,L601": `::(4)"BLOAD IW1":36863 j20:"<1> PAGE GRAPHIQUE 1 <2> PAGE 2 (HGR2) ";:RI$::RI$(49)RI$(50)60010 tX(R0 d20:958::"<1> ESSAYER CETTE ROUTINE <2> LA SAUVER SUR DISQUETTE <3> FIN DE PROGRAMME ";:R$::R$(49)R$(51)100 nR$"1"ī60000 xR$"2"ė::(4)"EXEC SAV": :: 22:958:" PAS DE ROUTINE GF SUR DISQUETTE":U1200Ǡ֠Ģ ΍UTRE DEMO <3> FIN DE PROGRAMME --> ";:R$:::R$"3"ĀV R$"1"ĺ(4)"RUN MENU"d R$"2"Ĭm 120 `h ȱH &`LHI)ph`Y zii8` $ %i $ iPII)if Э$pI z$ I 0 zA z z z zD z z `l)` ) 8=5 +  z 1 zZ z z`  ȱXȱ Y  zN z)L5jjj) @ z zZ z z z zT z1 z6 z z> z )fb8&HH zG z0 z$ 5 z6 z8 2 z8 z0 z( z zhhhhHHt0%f$ I i   POKE 48984,0 QUI EVITE LA MENTION "NO BUFFERS AVAILABLE"f P1:49237,0:(4)"BLOAD ECRAN1": MEM AUX Z1:49236,0:(4)"BLOAD ECRAN2": MEM NORMALE d1:(4)"DELETE ECRAN1":(4)"DELETE ECRAN2" n:10,100: x:22:"<1> MENU DE DISQUETTE <2> Ao D$(4):D$"PR#3"::>J120:A$A$"AAAA"::J022IA$;:i((A$,79);:2039,193:1:""21:49237,0:(4)"BSAVE ECRAN1,A1024,L1016": MEM AUX<1:49236,0:(4)"BSAVE ECRAN2,A1024,L1016": MEM NORMALE8 F:AVEC PRODOS,AJOUTER UN  󠿍̠Š卪РՠŠħō堨卪󮮮Ӭؠ؍àӬؠӬؠ󠿍Р堶ŠР卪ڠӬ؍ؠ󠶠裰頺Ԡ󍪍ؠӍŠՠàӬؠӬؠ󠿍Р堹àР卪󍪍Šՠō٠ŠҠčàԠ󠶰占Ԡ堿РŠР堺卪ҠԍٍŠЍԠР͍ԠӍŠħ΍򍪠卪РՠɠЍøЫбàЫ؍ɠԍ٠ÍЩٍРŠб٠ЩٍРĶŠбЫī΍̍̍̍̍ΰŠԍԠ٠РǬٍ64:- Z16368,0:16384,128,127:16368,0f d:19:"<1> MENU DISQUETTE <2> FIN ";:R$:16368,0 nR$"1"ĺ:(4)"RUN MENU" xR$"2"100 :O ::(12);(21):4AD(X)(X)256(X1)\I2301:I1:1:I;4)AD(40);:p(32,10:33,30:2::" ADRESSES-ECRAN AVEC ":<:10,50FI20102039:A(("ENFONCEZ UNE TOUCHE QUELCONQUE",I2009,1)):A32A96 PI,AĠЮư̠̠ŠƍĠЮưŠϠ :805,17:806,244:807,169:808,12:809,162:810,1:811,164:812,6:813,32:814,58 815,245:816,230:817,6:818,165:819,6:820,201:821,181:822,208:823,230:824,96 ,173:776,82:777,192:778,173:779,87:780,192:781,173:782,80 783,192:784,169:785,85:786,32:787,244:788,243:789,169:790,10:791,133:792,6:793,162:794,0:795,32:796,236:797,246:798,162R 799,10:800,160:801,0:802,165:803,6:804,32E)NCORE M(ENU DE DISQUETTE T(ERMINE)":150I nR(16384)128:R6910e xR77ĺ:(4)"RUN MENU"z R84İ150:110 :: 198:16368,0:16384,128,127:16384,0:198:@ 768,169:769,32:770,133:771,230:772,173:773,84:774,192:775 :(21);(12)::160P12:"PROGRAMME EN BASIC (70 OCTETS)":::40,50Y150w(:49234,0:2:0,0:3082~20<I10180:10,I268,I:F150::P12:"PROGRAMME EN ASSEMBLEUR (57 OCTETS)":150Z768:150, d49235,0::22:"(   11)" N O V E M B R E ":MA$(12)" D E C E M B R E ":MA$(2)" F E V R I E R "W360MA$(1)" J A N V I E R ":MA$(9)"S E P T E M B R E":MA$(3)" M A R S ":MA$(4)" A V R I L ":MA$(5)" M A I ":MA$(6)" J U I N ":MA$(8)" A O U T "NMA$(7)" J U I L L E T ":MA$(10)" O C T O B R E ":MA$(ABLES DIVERSES:FM(12),A(12),C(12),MO$(12),MI$(12,12),MA$(12)B0:M(1)31:M(3)31:M(5)31:M(7)31:M(8)31:M(10)31:M(12)31:M(4)30:M(6)30:M(9)30:M(11)30:M(2)28:I1JO$"DI LU MA ME JE VE SA ":SO$"-------------------------- "N DU CALENDRIER SUR ";NP;" PAGE";S$L:"NOMBRE D'EDITION DESIREE -> ";NEfNPNPNE:NP1S$"S":"CHARGER AU MOINS ";NP;" FEUILLE";S$20:1:"VALIDATION (O/N) ";:A$A$"O"A$"N"445A$A$"N"36080:VARI:"";U$:U(U$):U2000385*Uĉ::N:4:11::"POUR L'ANNEE ";U:8::"NOMBRE DE MOIS PAR LIGNE (1/2/4) -> ";:ML$:ML(ML$):ML1ML3ML4400ML$ML1NP6:S$"S":425ML2NP2:S$"S":425NP1:S$""#:"EDITIO4ĺ:^G:H:0:c:4h ENTREE DES DONNEES:m:rB$" E N T R E Z L'ANNEE CONSIDEREE "w:2:J110020:10::(B$,J,20):J|12:16:"-> ":12:20:"1900";:20<;TA);:Z1ML:JO$;ES$;:Z::ML4ĺ(27)"r":(27)"f";x@TA):Z1ML:SO$;ES$;:Z::ML4ĺ(27)"r":(27)"f";ED16JTA);MI$(G,D);:ML1ĺ"":::345OES$;MI$(G1,D);:ML2ĺ""::345TES$;MI$(G2,D);ES$;MI$(G3,D):YD:ML14):300G7ĺ(12):205="TA11:ES23:E$" ":60:300j'TA10:ES16:E$" ":60:(27);"Q";(15);,TA);MA$(G);:ML1ĺ""::::TA8:ES$"":3151ES$;MA$(G1);:ML2ĺ""::TA6:ES12:60:3156ES$;MA$(G2);ES$;MA$(G3)::TA6:ES5:6064:- Z16368,0:16384,128,127:16368,0f d:19:"<1> MENU DISQUETTE <2> FIN ";:R$:16368,0 nR$"1"ĺ:(4)"RUN MENU" xR$"2"100 :" ::(12);(21):4AD(X)(X)256(X1)\I2301:I1:1:I;4)AD(40);:p(32,10:33,30:2::" ADRESSES-ECRAN AVEC ":<:10,50FI20102039:A(("ENFONCEZ UNE TOUCHE QUELCONQUE",I2009,1)):A32A96 PI,A MINE (EFFACER) ";:R$::R$"M"ĺ(4)"IN#0":(4)"PR#4":(0):(4)"PR#0":(4)"RUN MENU"k xR$"T"110 :12:"POUR ANNULER,TAPER UN CTRL-RESET,OU BIENUNCALL-1438 (LE PSEUDO RESET);" 16368,0:16384,128:16368,0: (4);"PR#0"4:::(4)"BRUN MOUSE.TIMER"]6:7:"PROGRAMME DE MISE A L'HEURE"(12:"Donnez l'heure sous la forme HHMMSS"217:17<I05FH$:H$"0"H$"9"70PH$;Z965I,(H$)d:Z n22:"ENU DISQUETTE ER  9 TRWPU   W  :ɵ`" D E C E M B R E ":MA$(2)" F E V R I E R "8360MA$(9)"S E P T E M B R E":MA$(3)" M A R S ":MA$(4)" A V R I L ":MA$(5)" M A I ":MA$(6)" J U I N ":MA$(8)" A O U T "/MA$(7)" J U I L L E T ":MA$(10)" O C T O B R E ":MA$(11)" N O V E M B R E ":MA$(12),A(12),C(12),MO$(12),MI$(12,12),MA$(12)B0:M(1)31:M(3)31:M(5)31:M(7)31:M(8)31:M(10)31:M(12)31:M(4)30:M(6)30:M(9)30:M(11)30:M(2)28:I1JO$"DI LU MA ME JE VE SA ":SO$"-------------------------- "MA$(1)" J A N V I E R ":";S$-:"NOMBRE D'EDITION DESIREE -> ";NEGNPNPNE:NP1S$"S"s:"CHARGER AU MOINS ";NP;" FEUILLE";S$20:1:"VALIDATION (O/N) ";:A$A$"O"A$"N"445A$A$"N"36080:VARIABLES DIVERSES:'M(12)Uĉ::/:4:11::"POUR L'ANNEE ";U:8::"NOMBRE DE MOIS PAR LIGNE (1/2/4) -> ";:ML$:ML(ML$):ML1ML3ML4400ML$ML1NP6:S$"S":425ML2NP2:S$"S":425NP1:S$"":"EDITION DU CALENDRIER SUR ";NP;" PAGE ENTREE DES DONNEESm:rB$" E N T R E Z L'ANNEE CONSIDEREE "w:2:J110020:10::(B$,J,20):J|12:16:"-> ":12:20:"1900";:20:"";U$:U(U$):U2000385 G3)::TA6:ES5:606;TA);:Z1ML:JO$;ES$;:Z:Y@TA):Z1ML:SO$;ES$;:Z:""dED16JTA);MI$(G,D);:ML1ĺ"":::345OES$;MI$(G1,D);:ML2ĺ""::345TES$;MI$(G2,D);ES$;MI$(G3,D):YD:ML4ĺ:^G:H:0:c:h:205:(27);"W";(1):3004G7ĺ(12):205:290\"TA11:ES23:E$" ":60:(18);:300'TA10:ES16:E$" ":60:(15);,TA);MA$(G);:ML1ĺ""::::TA8:ES$"":3151ES$;MA$(G1);:ML2ĺ""::TA6:ES12:60:3156ES$;MA$(G2);ES$;MA$(80:60:ES$:E (27);"W";(1);15);U$;(27);"W";(0)::ES$:::K Q :m EDITION DU CALENDRIERs : H1NE:H1ĺ(12) 205 G112ML:ML4295 ML2285 TA12:(27);"W";(1):(G2)(G2)0ĺ:::300G1ĺ(12) :' COUPURE DU MOIS EN SEMAINE- :k G112:P1:D16:MI$(G,D)(MO$(G),P,28):PP28:D:G:q : EDITION DE L'ANNEE : 1:(27);"@";(27);"G" U$(U):E$" ":U$(U$,1)E$(U$,2,1)E$(U$,3,1)E$(U$,1) E$"*":ES:E1$ES$ EE$" ":MO$(I)""F K1N:((K))1K$" "(K):145R K$(K)k MO$(I)MO$(I)K$EE$r K NM(MO$(I)E1$):ES168NM:E$" ":60:E2$ES$ MO$(I)E1$MO$(I)E2$ II1:YY(N28):Y7YY7 I13İ185:245:490 105W211:A(W)A(W1)M(W):C(W)Y(A(W1)((A(W1)7)7)):C(W)7C(W)C(W)7R _Wb dY0Y7Y{ iNM(I):I2B1N29 nPA$" PATIENTE " s:12:PA13010::15:(PA$,PA,10):: xY1E1$"":130 }ESY1:E$" ":60OUS PROGAMME D'ECRITURE DE CHAINES DE CARACTERES6 7:Y <ES$"":X1ES:ES$ES$E$:X:_ A: F CALCUL ET POSITION DU 1 JOUR K: PP(U1)100:Q(P4):M36((5(U1))4)(P)Q UYM(7(M7))1:(U4)U4B1:M(2)29K ZA(1)M(1):C(1)Y:9  ::(21);(12):H"****************************************"x"****** C A L E N D R I E R ******""****** P E R P E T U E L ******""****************************************"#I11500:I(485-:0 2 S     11)" N O V E M B R E ":MA$(12)" D E C E M B R E ":MA$(2)" F E V R I E R "W360MA$(1)" J A N V I E R ":MA$(9)"S E P T E M B R E":MA$(3)" M A R S ":MA$(4)" A V R I L ":MA$(5)" M A I ":MA$(6)" J U I N ":MA$(8)" A O U T "NMA$(7)" J U I L L E T ":MA$(10)" O C T O B R E ":MA$(ABLES DIVERSES:FM(12),A(12),C(12),MO$(12),MI$(12,12),MA$(12)B0:M(1)31:M(3)31:M(5)31:M(7)31:M(8)31:M(10)31:M(12)31:M(4)30:M(6)30:M(9)30:M(11)30:M(2)28:I1JO$"DI LU MA ME JE VE SA ":SO$"-------------------------- "N DU CALENDRIER SUR ";NP;" PAGE";S$L:"NOMBRE D'EDITION DESIREE -> ";NEfNPNPNE:NP1S$"S":"CHARGER AU MOINS ";NP;" FEUILLE";S$20:1:"VALIDATION (O/N) ";:A$A$"O"A$"N"445A$A$"N"36080:VARI:"";U$:U(U$):U2000385*Uĉ::N:4:11::"POUR L'ANNEE ";U:8::"NOMBRE DE MOIS PAR LIGNE (1/2/4) -> ";:ML$:ML(ML$):ML1ML3ML4400ML$ML1NP6:S$"S":425ML2NP2:S$"S":425NP1:S$""#:"EDITIO4ĺ:^G:H:0:c:4h ENTREE DES DONNEES:m:rB$" E N T R E Z L'ANNEE CONSIDEREE "w:2:J110020:10::(B$,J,20):J|12:16:"-> ":12:20:"1900";:20<;TA);:Z1ML:JO$;ES$;:Z::ML4ĺ(27)"r":(27)"f";x@TA):Z1ML:SO$;ES$;:Z::ML4ĺ(27)"r":(27)"f";ED16JTA);MI$(G,D);:ML1ĺ"":::345OES$;MI$(G1,D);:ML2ĺ""::345TES$;MI$(G2,D);ES$;MI$(G3,D):YD:ML14):300G7ĺ(12):205="TA11:ES23:E$" ":60:300j'TA10:ES16:E$" ":60:(27);"Q";(15);,TA);MA$(G);:ML1ĺ""::::TA8:ES$"":3151ES$;MA$(G1);:ML2ĺ""::TA6:ES12:60:3156ES$;MA$(G2);ES$;MA$(G3)::TA6:ES5:60:60:ES$:; (27);"N";(14);15);U$::(15);ES$:::A G :c EDITION DU CALENDRIERi : H1NE:H1ĺ(12) 205 G112ML:ML4295 ML2285 TA12:(27);"N";(14):(G2)(G2)0ĺ:::300G1ĺ(12):205:( :' COUPURE DU MOIS EN SEMAINE- :k G112:P1:D16:MI$(G,D)(MO$(G),P,28):PP28:D:G:q : EDITION DE L'ANNEE : 1:(27);"N";(15);(9);"136N" U$"":I13:U$U$((U),I,1)" "::U$U$((U),1) E$"*":ES80:E1$ES$ EE$" ":MO$(I)""F K1N:((K))1K$" "(K):145R K$(K)k MO$(I)MO$(I)K$EE$r K NM(MO$(I)E1$):ES168NM:E$" ":60:E2$ES$ MO$(I)E1$MO$(I)E2$ II1:YY(N28):Y7YY7 I13İ185:245:490 105W211:A(W)A(W1)M(W):C(W)Y(A(W1)((A(W1)7)7)):C(W)7C(W)C(W)7R _Wb dY0Y7Y{ iNM(I):I2B1N29 nPA$" PATIENTE " s:12:PA13010::15:(PA$,PA,10):: xY1E1$"":130 }ESY1:E$" ":60OUS PROGAMME D'ECRITURE DE CHAINES DE CARACTERES6 7:Y <ES$"":X1ES:ES$ES$E$:X:_ A: F CALCUL ET POSITION DU 1 JOUR K: PP(U1)100:Q(P4):M36((5(U1))4)(P)Q UYM(7(M7))1:(U4)U4B1:M(2)29K ZA(1)M(1):C(1)Y:X  ::(21);(12):H"****************************************"x"****** C A L E N D R I E R ******""****** P E R P E T U E L ******""****************************************"#I11500:I(485-:0 2 S     T TOTAL DE MA COMMANDE: ";:36,64:T:E$" "(T$,28):o:E$"MODE DE REGLEMENT: CHEQUE --- CARTE BLEUE":E$"CARTE BLEUE ..../.../.../.../ - VALIDITE: ../..":E$"Montant @ d{biter: Signature:"D(3)1ĺ:E$"Vous recevrez un N["I;:36,65:FRIb:NU$""āI1(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$" MONTAN,10)(T$,20):(15)::RE$I$;:36,48:"CODE CLIENT: "N$X\E$L$:E$V$:E$T$(T$,07)f::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 MICRO30:790J ::"SLOT DE L'IMPRIMANTE (1 PAR DEFAUT) ";:R$:R$""R$"1"c*:SL(R$):SL68004::"ALLUMEZ-LA ET POSITIONNEZ LE PAPIER":R$:>1:(9)"80N":E$" ":20 ESPACES HE$(14)" BULLETIN DE COMMANDE":" "(E$$::958'1010:(R$)730,620:720K34,10::I1LI:D(I)1TTFD^R(I)1TTFRuI:AB$"O"TTFANU$""TT((NU$)FX)TFDN$""AB$"N"TTFE :"MONTANT TOTAL DE VOTRE COMMANDE: ";::T" F":1010:(R$)800,3UMEROS DESIRES":958:NU$"";:21:198:"-> "NU$;:R$S774,R$:R$"?"640p(R$)127(R$)8700(NU$)1NU$(NU$,(NU$)1):640(NU$)1NU$"":640640(R$)0(R$)LD(NU$)LDNU$NU$R$:640 :18:33::NUNT ? -> ";:AB$:774,AB$8:AB$:AB$"O"AB$"N"560VD1010:(R$)590,560:580N:::"DESIREZ-VOUS UNE DISQUETTE DEMO -> ";:R$:774,R$XR$"N"730bR$"O"590l:::I1LD:DE$(I)::I;::" "DE$(I):v18:"TAPER LE OU LES N"D(I)1:490R$"N"440aR(I)0::15:868:198:"TREMPLIN MICRO NUMERO "I" -> ";:R$m774,R$R$:R$"E"I1ī440R$"O"R(I)1:540R$"N"490ILI390&1010:(R$)560,490:5500:::"DESIREZ-VOUS UN ABONNEMENE A LA QUESTION PRECEDENTE"$|I0.II1E:18:868:J1IcD(J)0Ğ:"D";::J" ";R(J)0Ğ:"R";::J" ";:"":D(I)0:13:868:198:"DISQUETTE NUMERO "I" -> ";:R$774,R$R$:R$"E"I1II1:400 R$"O ";:657:L$"":X512767:(X)141L$L$((X)128):XF6774,L$d@1010:(R$)330,290:320J34,3::N$;8)I$:V$""ĺV$:L$T1010:(R$)350,70:340^:8:T$h::"REPONDEZ PAR OU "::34,11:12:r22:T$:3:" RAMEV$""190774,V$'(V$)9190SI15:AS((V$,I,1)):AS48AS57190nI:(V$,6,1)" "190I7(V$):AS((V$,I,1)):(AS65AS90)AS32190I1010:(R$)290,190:280"11:1:"FIN DE VOTRE ADRESSE":958:," -::130%1010:(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 4:1:"NUMERO DE CLIENT ";N$:N$""1306d774,N$enI1(N$):AS((N$,I,1)):AS48AS5790kx6:1:958:"NOM & PRENOM ";I$:I$""130774,I$I1(I$):AS((I$,I,1)):I2AS32170:::"NOM ET PRENOM SVP"::I120005:FR30:FA150:FX25:FE10:TARIFDISQUETTE,NUMERO REVUE,ABONNEMENT,DISQUETTE DEMO,FRAIS ENVOIm <1160:1020 FT$"":::" PAGE D'INFORMATIONS EN TAPANT ":2:I110:T$T$"----"::T$:34,3 P22:3::"SI VOUS LE CONNAISSEZ, BIEN SUR...":*ZKH ::(12);(21):::49234,0: ECRITURE MASQUEE DE LA PAGE INFOS (103)(104)2563073Ĺ103,1:104,12:3072,0:(4)"RUN COMMANDE" LI5:NOMBRE DE DISQUETTES POUVANT ETRE COMMANDEES A CE JOUR (LD3:NOMBRE DE DISQUETTES DEMO] 2FD10          卪 卪 ԍؠ ӍРӬؠ 占άؠ 占ؠ ̠Р鍪 ōؠ ̠Š 卪Рՠ ħō 卪 卪 ά 卪 Ӭؠ ؍àӬؠ Ӭؠ 󍪍Р ŠР 卪 Ӭ؍ŠР 卪 Ԡ 󍪍ؠ ӍŠՠàӬؠ Ӭؠ Р àР ՠɠ 󍪍 ō٠Š ҠčàԠ 占Ԡ 卪РǍРǬٍҠԍٍŠЍԠР͍ԠӍ ħ΍ 卪РѰЍøЫбàЫ؍ɠԍ٠ÍЩٍРŠб٠ЩٍРĶŠбЫī΍̍̍̍̍ΰŠԍԠ٠έčӍΠؠΰؠĠР ፪ ō 썪Ԡؠ 荪ɠ Ӡ ㍪ čĠЩٍؠ΍٠ΰīؠīҠӍР ؠР Ԡ ؠԫ⍪٠Š Ҡč٠Š 占 ҠĠՠĠ ō ō ǠʠΠɠ ҠԠ Рՠ ōŠՠŠՠŠՠ͠ՠİ ӍԠՠŠ Πՠ Ԡ < ƍ       iijiHȱh :۠ `    L{   L{H h Lȩȩ `$%8 i(e$`67Lɉ?2`Ɏ2` ``h ȱH &`LHI)ph`Y zii8` $ %i $ iPII)if Э$pI z$ I 0 zA z z z zD z z `l)` ) 8=5 +  z 1 zZ z z`  ȱXȱ Y  zN z)L5jjj) @ z zZ z z z zT z1 z6 z z> z )fb8&HH zG z0 z$ 5 z6 z8 2 z8 z0 z( z zhhhhHHt0%f$ I iPOKE 48984,0 QUI EVITE LA MENTION "NO BUFFERS AVAILABLE"f P1:49237,0:(4)"BLOAD ECRAN1": MEM AUX Z1:49236,0:(4)"BLOAD ECRAN2": MEM NORMALE DORMALE 7,136:24758,208:24759,5:24760,206:24761,177:24762,96 <24763,240:24764,9:24765,202:24766,208:24767,245:24768,174:24769,176:24770,96:24771,76:24772,178:24773,96:24774,96: V- ::"DISQUETTE DIAGRAMME SVP ";:R$:j(4)"BLOAD DIA.LM,A$6000":(4)"BLOAD DIA.CARAC,A$6100"50::"DISQUETTE MUSIC SVP ";:R$:((4)"BSAVE MUSIC.DIATM,A$6000,L$400":9 224752,164:24753,255:24754,173:24755,48:24756,192:2475 QUATRE FLECHES DE L'APPLE"T UN SIMPLE ESSAI, ET CETTE VARIABLE DEVRA, PAR LA SUITE, PROVENIR D'UN FICHIER DIRECT DONT LES ENREGISTREMENTS NE DEPASSERONT PAS 4 LIGNES DE TEXTE. ALLONS-Y." rUE - CTRL- F: FIN CONTROLE- C POUR TERMINER" r|15:" UTILISEZ LES\ @(4)"BLOAD COR.LM":936:ROUTINE CORRIGER DE 768 A 835 ET ROUTINE INVERSE DE 936 A 968 J13:" UTILISEZ LES QUATRE FLECHES DE L'APPLE MAIS NE DEPASSEZ PAS LE POINT... FINAL" T22:" CTRL-E = TABLEAU DES COMMANDES" ^ hF$"CECI ES SUPPRIMER : DEL CTRL- A: D{but ligne CTRL- B: Fin ligne CTRL- D: D{but texte CTRL- F: Fin texte CTRL- C: Termin{ CTRL- E: D{pannage" 6198:16368,0:16384,128,127:16368,0:14::958:60TION < 2> FIN ";:R$:R$( R$"1"50} 198:22:1:"( E)NCORE ( M)ENU DE DISQUETTE ( T)ERMINE ";:R$::R$"T"ė: R$"E"Ģ22:868:230 R$"M"ĺ(4)"RUN MENU" 250 "14::958:I110:"____";:: ,"INSERER : CTRL- I V2(36)0A870+ VNA10Č922:70L VN(A10(36)39)A2170a A21Č1036:70m A870 A180,190,230,200,290,210,70,220 1:70 40:70 3:1:70 3:(24):70 1008:70 198:22:6:" < 1> SUITE CORREC X$"":(21)::::320NN6: 4 LIGNES DE TEXTE MAXIMUM (VTAB 3 A 6)^26,0:27,2m(360:X$F$|23:1:768<(27)1:(26)1FR$:A(R$):V(37)PA9Č815:50ZA127Č846:50dA31Č872:50nA11V2Č998:70 x     5:FR30:FA150:FX25:FE10:TARIFDISQUETTE,NUMERO REVUE,ABONNEMENT,DISQUETTE DEMO,FRAIS ENVOIm <1160:1020 FT$"":::" PAGE D'INFORMATIONS EN TAPANT ":2:I110:T$T$"----"::T$:34,3 P22:3::"SI VOUS LE CONNAISSEZ, BIEN SUR...":*ZKH ::(12);(21):::49234,0: ECRITURE MASQUEE DE LA PAGE INFOS (103)(104)2563073Ĺ103,1:104,12:3072,0:(4)"RUN COMMANDE" LI5:NOMBRE DE DISQUETTES POUVANT ETRE COMMANDEES A CE JOUR (LD3:NOMBRE DE DISQUETTES DEMO] 2FD10   7,67:788,132:789,66:790,32:791,44:792,254:793,96:I,221:774,32:775,253:776,229:777,133:778,96:779,160:780,0:781,177:782,940783,41:784,63:785,32:786,237:787,253:788,200:789,196:790,96:791,144:792,244:793,32:794,251:795,218:796,96:D:::11:" BONJOUR ET MERCI! "::Nf  > W% ;Z ; ;> ;> : ` W ; ; ;L;OL KIT APPLE,IMP.GF0D56 - CURSEUR-TIRET (COURRIER),CURSEUR.DEMOk57 - DATA RESTORE (COURRIER),DATA58 - CHAIN.DEMO (PRODOS),CHAIN.DEMO58 - BSAVE & BLOAD ECRANS 80 COL,BSAVE.ECR80:P&768,32:769,190:770,222:771,32:772,123:773>0>3>3333300>333>3?6>33>03333 00000333 3?+##333333333>33>003>063333>333 cckk>3 3333?0? ? 3333> 3?````````>33?3333333?33>3333?3333;33333?333? ?000033>33?3?33333337;3333333333337;3.333303? 33333333333 33333?333 33333 ?0 ?33 xx```xx8888866$, e (B'$r! *,888886w6~~~~`p83;?73  30?30038<63?00?0333?3 333333>0   ~~ 8  POUR SUITE ";:R$:R(R$):16368,0_"R8PP1:305t'R21PP1:305,S1S0:1PP16S1S0:;R6ĉ::@R13Ģ22::(4)"RUN MENU"EP9P8JPQ285O:QP:3:958:P2532,35,32,30,32,22,32,35,32,34,64,23,32,23,32,22,32,22,32,22,64` 45,16,35,16,30,16,22,32,0,0CHE !  35,32,34,32,30,32,30,32,30,32,30,32,26,64,30,32,34,32,30,32,30,32,35,32,40,32,45,64,35,32,34,32,30,32,30,32,30,32,22,32,23,64,26,32,26,32,30,64> 34,32,30,32,26,32,23,32,22,32,19,32,17,64,16,32,17,32,19,32,23,32,17,32,19,32,22,64,26,32,34,370.P120:W(49200):Y(16336)::M*************************i L'INDICATIF EST CELUI DE L'EMISSION  ALLEGRO MA NON TROPPO DIFFUSEE A 11H30 (!) SUR LES CHAINES DE FRANCE-CULTURE LE DIMAN420 ^420 h32,2:33,36:34,4:35,22::198:R$::7:440,490:I713:I:" "::32,0:33,40:34,0:35,24:3086:TR r20:10:198:"(E)NCORE (M)ENU (T)ERMINE ";:TR:R$ |R$"E"Į::40 R$"M"ĺ:D$"RUN MENU" R$"T"ĉ::IN,I:IO,60:IP:M1:2007 M1ĹIN,I:IO,26:IP:M0@ 200t :18:3:"VERSION BOURREE (SAOUL-MUSIC !)":TR I,J:J0350 N((1)30) "YY1 ,IN,I:IO,16:IP 6Y(N2)āTI1200:TI:420:Y0 @IN,IN:IO,IN:IP J270 T& :12:3:"VERSION ENROUEE !":TR8 I,J:J0190b L1(J16)2:IN,I:IO1,6:IP::170 :15:3:"VERSION JAZZ... CA SWINGUE PRESQUE !"::TR I,J:J0260 J32ĹIN,I:IO,90:IP:M0:200 J32ĹIN,I:IO,30:IP:M0:200 M0 ";::2039,32:2:12::" I N D I C A T I F "P ZTR:PAGE TEXT COPIEE EN HGR2s d6:3:"VERSION ORIGINALE":TR nI,J:J0130 xIN,I:IO,J:IP:110 :9:3:"VERSION MANDOLINE...":TR I,J:J0160 K1(J16):IN,I:IO,12:IP::1403: EFFACEMENT DE HGR2 F 2D$(4):TR24576:IN24752:IOIN1:IPIN2n <49239,0:49232,0:49237,0:49234,0 F1:11:T$" "::I13:11:T$::2:T$" ":T$;:31:T$. P24:I3911:" ";::I2321:I:1:" ";:40:"a% INDICATIF (RETROUVE D'OREILLE)"MUSIC.INIT" (D'APRES N.BREAUD-POULIQUEN, PSI) EST DISSIMULE DANS MUSIC.DIATM, A PARTIR DE L'ADRESSE 24752(4)"BLOAD MUSIC.DIATM":"DIA.LM + DIA.CARAC" DE "TREMPLIN MICRO 2" (:(21)::0:230,64:3086:   AIT: LE CURSEUR TIRET EST MAIN- TENANT EN PLACE (RESET POUR DESACTIVER"{ 220:"TAPEZ UN MOT QUELCONQUE > ";M$:M$""50 <22:"ENU DE DISQUETTE RRET DEFINITIF ";:R$ F:R$"M"ĺ(4)"RUN MENU" PR$"A"60 Z:1438: PSEUDO RESET $ :(21)::(4)"BRUN CURSEUR"10:"VOUS POURREZ APPELER CETTE ROUTINE PAR UN ";::"BRUN CURSEUR";::" OU BIEN: ";::"BLOAD CURSEUR"::"DANS CE CAS, VOUS ACTIVEREZ LA ROUTINE PAR LE ";::"CALL 768";::" BIEN CONNU."H (:"C'EST F T TOTAL DE MA COMMANDE: ";:36,64:T:E$" "(T$,28):o:E$"MODE DE REGLEMENT: CHEQUE --- CARTE BLEUE":E$"CARTE BLEUE ..../.../.../.../ - VALIDITE: ../..":E$"Montant @ d{biter: Signature:"D(3)1ĺ:E$"Vous recevrez un N["I;:36,65:FRIb:NU$""āI1(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$" MONTAN,10)(T$,20):(15)::RE$I$;:36,48:"CODE CLIENT: "N$X\E$L$:E$V$:E$T$(T$,07)f::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 MICRO30:790J ::"SLOT DE L'IMPRIMANTE (1 PAR DEFAUT) ";:R$:R$""R$"1"c*:SL(R$):SL68004::"ALLUMEZ-LA ET POSITIONNEZ LE PAPIER":R$:>1:(9)"80N":E$" ":20 ESPACES HE$(14)" BULLETIN DE COMMANDE":" "(E$$::958'1010:(R$)730,620:720K34,10::I1LI:D(I)1TTFD^R(I)1TTFRuI:AB$"O"TTFANU$""TT((NU$)FX)TFDN$""AB$"N"TTFE :"MONTANT TOTAL DE VOTRE COMMANDE: ";::T" F":1010:(R$)800,3UMEROS DESIRES":958:NU$"";:21:198:"-> "NU$;:R$S774,R$:R$"?"640p(R$)127(R$)8700(NU$)1NU$(NU$,(NU$)1):640(NU$)1NU$"":640640(R$)0(R$)LD(NU$)LDNU$NU$R$:640 :18:33::NUNT ? -> ";:AB$:774,AB$8:AB$:AB$"O"AB$"N"560VD1010:(R$)590,560:580N:::"DESIREZ-VOUS UNE DISQUETTE DEMO -> ";:R$:774,R$XR$"N"730bR$"O"590l:::I1LD:DE$(I)::I;::" "DE$(I):v18:"TAPER LE OU LES N"D(I)1:490R$"N"440aR(I)0::15:868:198:"TREMPLIN MICRO NUMERO "I" -> ";:R$m774,R$R$:R$"E"I1ī440R$"O"R(I)1:540R$"N"490ILI390&1010:(R$)560,490:5500:::"DESIREZ-VOUS UN ABONNEMENE A LA QUESTION PRECEDENTE"$|I0.II1E:18:868:J1IcD(J)0Ğ:"D";::J" ";R(J)0Ğ:"R";::J" ";:"":D(I)0:13:868:198:"DISQUETTE NUMERO "I" -> ";:R$774,R$R$:R$"E"I1II1:400 R$"Oa768,164:769,255:770,173:771,48:772,192:773,136:774,208:775,5:776,206:777,1:778,3779,240:780,9:781,202:782,208:783,245:784,174:785,0:786,3:787,76:788,2:789,3:790,96:3 E";:R$::3:958: R"LA MEMORISATION DE VOS LIGNES DE DONNEES----------------------------------------" :"Vous ne comprendrez cette routine qu'en lisant le courrier des Lecteurs de TREM-PLIN MICRO num{ro 5, pages 57 et 58." 18:" ENFONCEZ N'IMPORTE QUELLE TOUCH,11:# P"NUMERO ";N:N1N8120U Z125,AD(N)(AD(N)256)256:126,(AD(N)256)j dA$:" "N" - "A$r n80 x24:"ENU DE DISQUETTE IST ERMINE ";:3::R$:::R$"L"ļ20,25:30,110 yR$"T"Ā zR$"M"ĺ:(4)"RUN MENU" {120U  :(21):1302TOTO,TATA,LILI,DADALLULU,ZOZO,ERNEST,FIN4::31:"TAPER ZERO":5:31:"POUR FINIR"::3I18#I"-> ";(AD(I)(125)(126)256:AD(I);" ";2A$:A$;" -> LIGNE ";<(123)(124)256F K34   I$)Y ~20:958:"TITRE DE VOTRE FICHIER ";F$:F$"?"ė::(4)"CATALOG":R$:::60030 F$""60045:PERMET D'EDITER UNE IMAGE DEJA EN MEMOIRE 19::(4)"BLOAD"F$",A"8192X X0:RI$"2"X4:PAGE 1 + 4 POUR PAGE 2h 20:1:"<0> BLANC SUR ET AFFICHAGE INFOS J GRIBOUILLE,MAX THE GLOBE TROTTER,PROCODET PAGE 1 A 2774,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 (1 AN)"::17:20:"150 F (5 NUMEROS)"Sj6::"DEMO:";::" 25 F par disquette"t60,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:TRANSFER-">B" Pas de frais d'envoi pour les abon- n{s @ la revue."L:"MARCHE A SUIVRE: Simplement r{pondre---------------- aux questions, puisallumer votre imprimante!"V:"FACE 1: DOS 3.3 FACE 2: ProDOS"'`16:20::"ABONNEMENT";#I1I22āJ239:J:" ";:440:" "::R32,2:33,36:34,2:35,22^$2:1:." Utilisez votre imprimante pour pas-ser votre prochaine commande de dis-quette a TREMPLIN MICRO:"8:"PRIX UNITAIRE: 105F + 10 F d'envoi -------------7,67:788,132:789,66:790,32:791,44:792,254:793,96:I R$"M"ĺ:(4)"RUN MENU"- R$"E"ĬG "R$"T"ė:49234,0:Q ,:: 6768,160:769,0:770,132:771,60:772,169:773,96:774,133:775,61:776,169:777,255:778,133:779,62:780,1698 @781,127:782,133:783,63:784,169:785,64:786,133:7800:190A 198:16368,0:16384,128,127:16368,0:R(16384)O R27250U f J1400:: 0:I13:X32I:230,X:0,0:3082:::EFFACEMENT DES PAGES1.2.3 49236,0:49235,0:: 22:"(M)ENU DE DISQUETTE (E)NCORE (T)ERMINE ";:R$:10:49237,0:230:49236,0:230:IX :49235,0:22:"HGR2 VA EFFACER LA PAGE2":200: 49236,0::49235,0:22:"CALL 768 VA RECUPERER LA PAGE3":200:49234,0:49237,0:768 200:49236,0: PAGE1 200:49237,0: PAGE2 XX1:X8160 2ACE LA PAGE3: P3:1,1279,189:279,11,189:TRACE PAGE3 Z30,60:70,80:100,110:23::6:"PENSEZ A ESCAPE POUR TERMINER"::200 d49237,0:49232,0: PASSAGE EN MODE GRAPHIQUE PAGE2 n768:TRANSFERT PAGE2 x:(4)"BLOAD ETO,A$2000"" I19 ::(12);(21):F310: ROUTINE TRANSFERT PAGE3 VERS PAGE2o49234,0:MODE GRAPHIQUE PLEINE PAGE(240:::X02230,96: PERMET DE TRACER DANS UNE PSEUDO PAGE3<49236,0:49233,0: PASSAGE EN MODE TEXT PAGE1 F0:0,0:3082:EFF   64:- Z16368,0:16384,128,127:16368,0f d:19:"<1> MENU DISQUETTE <2> FIN ";:R$:16368,0 nR$"1"ĺ:(4)"RUN MENU" xR$"2"100 : ::(12);(21):4AD(X)(X)256(X1)\I2301:I1:1:I;4)AD(40);:p(32,10:33,30:2::" ADRESSES-ECRAN AVEC ":<:10,50FI20102039:A(("ENFONCEZ UNE TOUCHE QUELCONQUE",I2009,1)):A32A96 PI,A = := :. :. :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 :"ė:! R$"M"ĺ(4)"RUN MENU"/ R$"E"Ĭ8 180P 198:20:R$::::PAGE 1 SANS TEXTE n220< x49237,0:PAGE 2 SANS TEXTEE 220e 49236,0:PAGE 1 SANS TEXTEn 220 49235,0::22:"VOUS ETES PAGE 1, AVEC TEXTE" 220::100,140:::: 22:"ENU DE DISQUETTE NCORE ERMINE ";:R$::R$"TQ ::::(21)43:230,32:ECRITURE PAGE 1E0,0279,191b(230,64:ECRITURE PAGE 2s20,191279,0<10,50:220:70,80:220FPAGE1 AVEC TEXTEP49236,0:49235,0:49239,0:49232,0Z220:23:100:"SANS TEXTE";:220 d49234,0936v34,0:35,24::"INTROUVABLE !"::E110:198::30@------------------X&S/P ATTENTE TOUCHEq0------------------ :(16384)128570DA$:N------------------------XS/P EFFACE LIGN. 16 A 21b------------------------l34,15:35,21:%10:5:"NOMBRE DE MASQUES : ";N;12:490:22:490S22:E140:"_";::" : NON VALIDE ... : VALIDE";16:6E140:"_";::-----------------TRAITEMENT ERREUR-----------------(:10:12:C,1):1:B$;:C:300J::7T-------------------P^S/P AFFICHAGE ECRANih-------------------ur:1:8|"CREATION TABLE DE MASQUES"8:E125:"-";:5:1:490D(6)(7)25684482N8:5:"LONGUEUR DE LA TABLE : ";D---------------& POUR LE PLAISIR; --------------- "A$"ALORS SALUT... A LA PROCHAINE... ET BONJOUR CHEZ TOI...":B$""::10 ,C1(A$):D150:D:(16384)128330 6(B$)39B$B$(A$,C,1):40(B$):B$;:C@B$(B$,(B$)1)(A$,(8192E)(8193E)2562562N:H(V256):8192E,VH256:8193E,H:\ ----------------r SAUVEGARDE TABLE ---------------- D$"BSAVE";A$;",A$2000,L";D 620:6:"UNE AUTRE TABLE ?" 570:A$"O"Ĭ A$"N"290 198:230 UVEGARDE"::12:"(A)NNULATION"2 570:A$"A"ĬB A$"S"180Q 198:150s 620:6:"SOUS QUEL NOM? ";A$ ---------------- COMPACTAGE TABLE ---------------- 60,0:61,33:62,(6):63,(7):66,N2:67,32:865F E02N22:V;A$:216,0 Z6,B:7,C. d570:A$(27)30@ nA$(13)130O x198:100k |---------------------- }APPEL ROUTINE ET ~ET MISE A JOUR ADRESSE ---------------------- 768:NN1:AD,(6):AD1,(7):ADAD2:30 620:12:"(S)A 'F' POUR TERMINER "::16:6:"NOM DU MASQUE ? ";A$ (A$"C"ė:D$"CATALOG"::"TOUCHE QUELCONQUE POUR LA SUITE":570:30 2A$"F"140 <B(6):C(7) F530 J----------------- KCHARGEMENT MASQUE L----------------- PD$"BLOAD" 7 :D$(4):6,0:7,33:N0:AD8194:AD2,0:AD1,33O------------------gCHARGEMENT ROUTINE------------------D$"BLOAD ECR.IN" ---- MENU ----7 370:20::"ENTRER 'C' POUR LE CATALOGUE":6:"ENTRER