' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]L L}BBL] 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>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  u`T0 0<p%RI$I$I$I$I$I$2I$RI$I$I$I$@ @ `@`@8 @@d @`@8a @@`||@  @`@~x |p@?T ``@L @@0| $D@ @D 0@@0 D @ @@@?xx?|`@?!0p%I$I$I$I$i$I<I$I&I$I$I$@@!0p%IdI$I$I$I$RI$I$I$I$I$I$p%I$I$I$I$I$I$I$I$I$I$I$ `H`@lp%I$I$I$I$I$I$K$I$I$I$I$0@ @h``@p <@` 8@@D@``E PLEINE"::I12000: 110*::951,0:110F110T^:(4)"PR#1":(9)"GE2"::(4)"PR#0":1103h:Wr******************************{|** TRAITEMENT DES ERREURS ********************************:948:ER(222)ER255V$"":560ER6ıER9Ģ21:958::12:"DISQUETT"CE FICHIER VA ETRE ECRASE (O/N) ";:R$:16378,0:R$"N"1500RR$"O"1530n21::(4)"DELETE"F$:t:"******************************,** 5. IMPRESSION DU GRAPH **6******************************@:JG1110T240-********************8** SAISIE-CONTROLE TITRE FIC *\******************************b::198:22:1:868:"TITRE: "FB$;:8:"";F$:F$""ġ:110F$"?"ė:230:1500(F$)65(F$)901500@21:(4)"UNLOCK"F$:22:958:198:***********************;d** 4. MEMO FIC DE DONNEES **_n******************************ex:rN0110FB$"GRD0":150021::(4)"OPEN"F$:(4)"WRITE"F$:N:I1N:V$(I,0):V$(I,1)::TI$:(4)"CLOSE"F$1350:********** 1260RX7,Y"XX7:(:L******************************p ** 3. MEMORISATION DU GRAPH ********************************:(G11102FB$"GR0":1500<21::(4)"BSAVE"F$",A16384,L8184"F110P:Z******************/ *** PAGE GRAPHIQUE ***S ******************************Y :r MS0:MT0:::62450 I018711:0,I275,I: I027511:I,0I,187: 16297,0:16302,0:16300,0:16304,0 D3:IN11:TD:S8:SL0:TL0% LA7 d16385%i::(12);(21)::5nG6500:490;s:_x******************************}*** AFFICHAGE AVEC BRUIT *********************************:I1(T$):(T$,I,1);:J110:X(49200):::: ******************* --?????.----->?????----??VIII-RII????7----5????7----5????7----5????7----5????7----5????III@@@@ MEMORY LANE =========== 55?.mI5?.---5???wI 5ۛ----???oII *--->???.M)?-?-M?.---???III?I---????.mI5?.---5????.5?.---5???IIIRIw-M 5?.mI5?.mI5?.mI5?.---???VII RIw*--????.mI5?.---5????.5?.---5???IIIII)5?7-- -?????-----????7-- --???7mI7---???N ->7---??II >I?.5?--5??w)5?.5?.?7-5?VIM*mI5?.mI5?.mI5?.mI5?.---???VII *mI5?.mI5?.mI;w--?.5?VII*mI 5?.m)M5;?.m)M5;?.m)M5;?.----??III I*mI5?.mI;w-->?-M?.mI5?VIII*mI5?.mIm)?????.m)M5;?.m)M5;?.m)M5;?.m)M5;?VIII I ---????.mI5?.mI5?.mI5?.mI5?VIII ---????.mI5?.mI5?.mI5?.---???VII ---????.mI5?.mI5?.mI5????.---?.5?MII- ---5????.mI5?.mI5?.mI5????---575o --5???.5?.5?.5?.5?VII΍֍ҍҍɍ΍̍ՍЍԍ֍ÍҠɠӠ80@0 08@ L  @`@~``?|@DA8@<  @| D0x 0`8D@ @x` D0p%I&I$I$I$I$I&I$I4I$I$Id   ``@Tp5I$I$I$I$I$I$I/I$I$I$I$0` @DAD@ @` @ @8 |@@`@@$$@@@$! @0@?~`` @`@@G`8  2H @D @ p`x@ @<x @$ 8p%I$I$I$I$I$I$Y$I$I$I$I$  @ $p%Y$I$I$I$K$IdI$i$I$I$I$ @$" @@$!@` @@@ @$0p'I$I$I$I$I$I$I$I$I$I$I$! D `@ D 0RH@@  0 0@ p%IdI$_$I$I$M$I$I$I$y%I$@A@0 D|  ( @@$$@@@$8!| 0@@@$@`88p`@ `@ 0p| 0D  x@0` pxpeI$I$I$I$I$I$I5I$I$I$I$  DD   0 0@ xx?|`@ D1 0  @@@ @$ D@D@"0 @@@p%K$I$I$y$I$I$I$M$I$I$I$@p%I<I$I'I$Idi$I$I$I$I$rI$D x    p           ON ***1 m******************************7 r:K w:1:(9)"G":0Y |16301,0 ::22:"<1> IMPRESSION DE LA REPONSE <2> NON ";:R$ R$"1"R$"2"385:R$ R$"1"Ĺ16302,0:405 43016302,0::1:(27)"n";:(27)"L020":TMT:220 1A((T$,I,1))' 6AD,A6 ;SSLSLSE @TTLTLTX EA64S,T:205e JS8:T3 OI60006424:SSIN:S278S3:TTIN TA(I):A0A65((1)26) YA64S,T: ^: c****************************** h*** IMPRESSI5 S14T168TTL280* SSIN:2859 T168280I TTIN:285\ T14SLS280l TTIN:285z AL0:220 H(S8)IN:V(T8)IN:ADVLAH:AD5974AD "MS267MT3(ADLA)0170 'MS267MT168(ADLA)0170 ,(AD)0SMS25:HA17:I60005999(LAHA):I,0:9 I1:SSIN:285P II1:I(T$)330n NN1:N1ALDN0:220} AL0225 AL1((1)7):AL4ALAL3 SSL(((1)3)0)AL4 MSS:MTT AL240,250,260,270 S256280 SSIN:28TRL-V = Vider l'ECRAN 791,173:792,85:793,192:794,32:795,12:796,253:797,173:798,84:799,192:800,96::TEST CTRL-I ET AFFICHAGE PAGE26 RESUME DES COMMANDES,Utilisez les FLECHES de l'APPLE,- CTRL-A = Mode NORMAL,- CTRL-B = Mode INVERSE,- CTRL-F = Fin de programme,- C,0:32,0:33,40:35,24::f768,216:769,160:770,0:771,76:772,44:773,254:TRANSFERT PAGE 1 A 2"774,32:775,190:776,222:777,32:778,123:779,221:780,32:781,253:782,229:783,160:784,0:785,177:786,94:787,201u,788,09:789,208:790,9: ";:40:" "::432,2:33,36:34,2:35,22@2:1:{:A$:A$::::A$:A$::::I14:A$:" "A$::::"ET PLACE A VOTRE GRANDE IMAGINATION!":60,0:61,4:62,255:63,7:66,0:67,8:768:TRANSFERT PAGE 1 A PAGE 2 34R6Ā_R22Ĺ35,24:22:1::" POUR HOME ";::S$:"":S$"O"Ģ22:T$:1:35,21:R3kR22ės70:20:958:198:" <1> ON PEUT CONTINUER <2> ERREUR";:R$:16368,0:774,R$::I122:I:1:" ";I1I22āJ239:J:"I110:T$T$"----"::T$:34,0:35,21, <U FR$:774,R$:R(R$):R31R127ĺR$;w PR8(36)0Ĺ36,(36)1:70 ZR21(36)39Ĺ36,(36)1:70 dR11(37)0Ĺ37,(37)1:990:70 nR10(37)20Ĺ37,(37)1:990 xR2Ğ R1ĝ H ::(12);(21):::49234,0: ECRITURE MASQUEE DE LA PAGE INFOS (103)(104)2563073Ĺ103,1:104,12:3072,0:(4)"RUN PAGE1.2" C$"TAB":(637)255C$"CTRL-I" (280:190& 2T$""::23:" PAGE D'INFORMATIONS EN TAPANT "C$:22:  -3M?7 n N-)3M:w -N--66vIM13M13M1s-N M13M13MN M13M1n >7Mq M1s  3MqM1s 6vI--.-uu 66N6 66N6--5??7--5??7--5??7--u I?7-5?7-5?I I:-5?7- M13--n N7-3M?7M13-u )36Ms-N-n1n1-u --n?76--N3--n?76NI-)36M5s-uIM13M1??n n N>-66-NNI166s-N Mn7 n N666-unM17 n n N?M13m1n)n N))3M13M1s-NR-3M?76NII)3M13 mN-`+in!/>M[i{ '8HZjvb-6R)3M5.M-N1w6-Ni)sI.-uN-->N-NqI> 3--v N--.-6s-N- -޻M:?n -N--6NI)3M?M1s-N)3M1?w *uI  0:::I13:" "::998:998:" LA PHRASE CACHEE "::926:w0T$"":I110:T$T$"____":::T$5::T$"TAPEZ CI-DESSOUS UNE PHRASE (UN MESSAGE)D'ENVIRON 150 LETTRES, UNIQUEMENT EN MA-JUSCULES, ET SANS PONCTUATION (ELLE SERAEN T9:G7200)(4)"BLOAD LOGO.CAR,A"G:50aI1011:((T$,I,1))S,50:SS19:I8I7SS3u :S0:255:460{:********************************* SAISIE DE LA PHRASE ***!******************************&:P+:32,11:33,2:&******************************J*** LOGOGRILLE ***n******************************t:3:0:1(4)"BLOAD LOGO.EGILOR,A"G460:S40T$"4525263441":I110:((T$,I,1))S,50:SS19:I6I7SS3:SS1'C0:I60006424:CC1:C26ĺ:C1<A(I):A0A32K(A);::R0\::b:********************************* INSTALLATION FONT *********************************:232,G(G256)256:233,(G256):"TOTO":490$"LIGNE 100":4900"LILI"D:32,36::440:I,M(I1012)::2I110:"________";::"":kI1(P$):(P$,I,1);:J110:BUZZ(49200):::""RRRR1:RR4RR7RR9RR11RR14450198:16368,0:16384,128,127:16368,0:AFAF1:32,0:AF16:1::AF460,480,470,480,480,0:330)hI10131015:M(I1012)(I):Fr1013,76:1014,0:1015,3|768,32:769,123:770,221:771,32:772,82:773,231:774,32:775,26:776,214:777,144:778,3779,76:780,65:781,217:782,162:783,90:784,76:785,18:786,212:I10131015 on l'affiche encore une fois":420[ ,8::P$"- et X ne vaut pas 1, mais bien 2...":420 69::P$"- et maintenant 3... c'est la fin (END)":420 @400 J18::"<1> TOUT RECOMMENCER <2> FIN (HOME) ";:R$:R$"2"ĉ:: TR$"1"Ĭ^16368prime":4202 13::P$"- GOTO 80 (8 * 10)":420 10::P$"- T$ est devenu "(34)"LILI"(34)" depuis la ligne 40":420 11::P$"- cette fois, c'est un GOTO 40":420 6::P$"- T$ y est toujours "(34)"LILI"(34):420# "7::P$"- et34)"TOTO"(34):420D 11::P$"- GOTO 40, tout simplement":420z 6::P$"- T$ y devient "(34)"LILI"(34):420 7::P$"- et on l'affiche":420 8::P$"- X vaut 2 ...& B = GOTO 100":420 12::P$"- "(34)"LIGNE 100"(34)" s'im"LIGNE 100" n810& x34,2:410c 32,36:33,44:16:::P$"ESSAYONS DE COMPRENDRE":420:l 5: P$"- "(34)"& A"(34)" = GOTO 70 puisque A = 70":420 9: P$"- ici, X vaut donc 1":420 10: P$"- on affiche T$ = "( X = X + 1: IF X = 3 THEN END":" 80 PRINT T$"v " 90 & 40":"100 PRINT "(34)"LIGNE 100"(34):"110 & 8 * 10" "]RUN": 360 A70:B100 T$"TOTO" A (T$"LILI" 2T$ <X1XX1:B FXX1:X3120 PT$ Z40 dE:(4)"PR#3"::\"GOTO ACROBATIQUE PAR LE TRUCHEMENT DE L'AMPERSAND (&)":2:410" 10 A = 70:B = 100":" 20 T$ = "(34)"TOTO"(34):" 30 & A"" 40 T$ = "(34)"LILI"(34):" 50 PRINT T$"0 " 60 IF X = 1 THEN X = X + 1: & B":" 70     X,% $ " %% `    1ŠӠ2Šՠ3Π4ϠӠ5Πՠ6ΠŠhhߚHH`:.~(4)"BLOAD GRAPH.CAR":232,0:233,96:GX2:Y7:TI$""1070kL(TI$):X37((249L7)2):Y7I1L:R((TI$,I,1)):1200:1070R64R91RR53:1250R47R58RR46:1250R39R1:1250R40R41RR2:12500 $11602.:198:200:G1:(16384)91610;8110B48:V$(V$(X,0),3):K(V$)11:(((V$,K,1))53)I2,178(K7):K:0:L:V******************************`** GRAPH.CAR (A$6000,L762) **j******************************t1(V$):K1(V$)48Ĕ435,I3:1010Z((V$,K,1))46(K7)5,I3::VPG(E(I10))`DN1:I35274(239D):XX1:J148H(X)2:I,J:42I3,H(X)4:1090X1ēM,H(X1)I,JMI::XNXN:M,H(X1)I,H(X):42I3,H(X)4:1099,3:2314,3:DI1000:940OPG999Ĕ142,3:169,3:2516,3:3123,3:DI100eE(PGPP)13:VPG35,0274,0274,14935,14935,0I1814810:32,I35,I:J372723:J,I:I148VPPV$((VDI)):V$"0"V$V$(((VDI)),2,2)&K**************************>H** 2. TRACE DU GRAPHIQUE **bR******************************h\:ufN0110pX0:G1910z5:22:"EFFACER GRAPH ACTUEL (O/N) ";:R$:16368,0:R$"O"910240:1070DI1:PG9999Ĕ242,3:20(V$(I,1)),(V$(I,1))PPPP(V$(I,1))2SFOURCHETTEPG1PP:FOFO130I1N:H(I)((V$(I,1))PP)FO:H(I)149H(I):110 5N:1:868:N10Ė2N". ";V$(N,0);25(V$(N,1)));V$(N,1);: NMNNNM*7204:>****lN12430-v19:"TITRE ";TI$;:SV1ĺ:J7:"";R$:R$""TI$R$Z19:7:TI$35,24:T$" <1> SAISIE TERMINEE <2> CORRECTIONS "23:220200R1NMN:720R2680400 PP(V$(1,1)):PG0:I1N:(V$(I,1))PGPGV$"?"800-0V$""Ģ5N:958:NN1:630<:V$(N,1)V$ED780eNT0:K1N:TT(V$(K,1)):XI1N:P(((V$(I,1))10000)T):P$(P):(P$)3P$(("000"P$),3)bP$(P$,(P$)2)"."(P$,2)"%":33:5I:" ";:40(P$):P$::SV1ı 868:N1ĺ"EX. JANVIER 12000"+780P5:"";V$:V$""V$(N,0)""510`V$"?"800V$"/"N1İ780:NN1:510V$""560V$(N,0)V$78025(V$(N,1)):V$(N,1)""Ė18"";V$:V$""V$(N,1)""580V$"/"450 & LES VALEURS QUI SUIVAIENT."* |200: N0āI1N:5I:1:((" "(I)),2)". "V$(I,0);:25(V$(I,1)):V$(I,1)::SV1:590:630:SV0:660 23:T$" PAS PLUS DE 12 DONNEES S.V.P ":220 21:TR$:4:35,20 NMN:N0 NN1"4:1::(4)"CLOSE"F$2 ^T$" SAISIE DES DONNEES ":210 h5:" RENVOIE AU MENU SANS CHANGER LE NOM- BRE DES DONNEES DEJA SAISIES"::" RENVOIE A L'ITEM PRECEDENT" r:" TERMINE UNE SAISIE NORMALE"::" ABREGE UNE SAISIE EN ELIMINANT ********* ":a ,:22:198:"DESIREZ-VOUS LIRE UN FICHIER (O/N) ";:R$:16368,0:R$"N"350t 6:R$"O"300} @230 J22:868:"TITRE A LIRE GRD0";:14:"";F$:F$""300 T21::(4)"OPEN"F$:(4)"READ"F$:N:I1N:V$(I,0):V$(I,1)::TI$:(41(T$))2:T$::34,3::E 1:868:198:(41(T$))2:T$:m :(4)"CATALOG":::::20:TR$: 49232,0:49234,0:49237,0:49239,0: : ****************************** ** 1. SAISIE DES DONNEES ** *********************n:768 x200:R1R6120$ G R300,870,1320,1410,1610,1740M :q ****************************** ** PETITES ROUTINES ** ****************************** : 16368,0:16384,128,127:16368,0:R(16384)48: ::! ::(12);(21)::1:0:35V$(12,1),H(12)@1690a((4)"BLOAD GRAPH.MEN":11502TR$"":I110:TR$TR$"____":<:F******************************P** MENU EXPRESS **Z******************************d:          -5?????7- MI5?.mMI5?.mMI5?.mMI5?.mMI5?.mMI5?????7-----5?????oIII -----5?????7- MI5?.mMI5?.mMI5????.m---5????.m -??.mM)??.mM ->??MIII-`RN-----5?????7- ?.m?.m-5??.m-?.m?.mMI?????7-----5?????oIII -----5?????7- MI5?.m?.m?.mM-->??.mMI5?.mMI5?????7-----5?????oIII I--?.m?.m?.m?.m?.m?.m?.m>?oI--?.m?.m?.m?.m?.m?.mMI?????7-----5?????oIII ----FAIRE -> ";:R$:R$"2"575-]R$"1"6006b175 OUT CAS ELIMINEE)."A:140:I113:912:J110:X(49200)::e?13:1:958:I140:"....";:D13:1:"";:657:T$"":X512767:A(X):A141595IAA128:A64A91T$T$(A)NXS17::140X23:1:"<1> D'ACCORD <2> TOUT A REB ( iL` H= h=` ( ONTANT TOTAL DE MA COMMANDE: ";:36,64:T:E$" "(T$,28):t:E$"MODE DE REGLEMENT: CHEQUE --- CARTE BLEUE":E$"CARTE BLEUE ..../.../.../.../ - VALIDITE: ../..":E$"Montant @ d{biter: Signature:""D(3)1ĺ:E$"Vous recevrN["I;:36,65:FRIa:NU$""āI1(NU$):E$" - DEMO "DE$(((NU$,I,1)));:36,65:FX:IAB$"O"ĺ:E$" - ABONNEMENT A 5 NUMEROS DE T.MICRO";:36,64:FATFDN$""AB$"N"ĺE$" - FRAIS D'ENVOI FORFAITAIRES";:36,65:FE?:E$" M10)(T$,20):(15):9RE$I$;:36,48:"CODE CLIENT: "N$W\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 MICRO 0:790I ::"SLOT DE L'IMPRIMANTE (1 PAR DEFAUT) ";:R$:R$""R$"1"b*: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:720J34,10::I1LI:D(I)1TTFD]R(I)1TTFRtI:AB$"O"TTFANU$""TT((NU$)FX)TFDN$""AB$"N"TTFE :"MONTANT TOTAL DE VOTRE COMMANDE: ";::T" F":1010:(R$)800,33:" ";:370:vement les instructions du programme dans TREMPLIN MICRO, et ne NE-GLIGEZ PAS la courte routine en langage machine:":"il est probable que vous l'utiliserez unjour ou l'autre, dans l'un de vos petitsprogrammes, pour ouvrir et fermer... uneFENETRE..."L785,((785))1:831,((831))1::768:785,((785))1:831,((831))1:tRECUPERATION DU MENU 785,((785))1:831,((831))1::420:785,((785))1:831,((831))1:t12:"APRES AVOIR REGARDE CETTE DEMONSTRATION,lisez attentiRAMETRES DE LA FENETRE SONT POQUES EN PAGE 0 ($6 $7 $8 $9)]6,V1:7,VF1:8,HD1:9,HF:c807: POUR ROUTINE ->ECRAN768: ECRITURE ECRAN807: POUR RESTAURATION ->MEMMEMORISATION DU MENU A PARTIR DE $2100ENETRE <2> FIN DE PROGRAMME":3808 ^:(16384)49Ĭ c:22:"<1> MENU DE DISQUETTE <0> FIN-EFFACER":380:(16384)49Ģ20::(4)"RUN MENU" h r"ENFONCEZ UNE TOUCHE POUR EXECUTION" |198:16368,0:16384,128,127:16368,0::LES PA:I:HD:T1$:T I1(M$)11:NN1:V1N2:HD1::(N64);::1)(M$,I,11):n "380:470:MEMO MENU ,420:RESTAURATION ECRAN 6380:490:RESTAURATION MENU @380:ESES1:ES5300 JEXEX1:EX2ES0::300" T:22:"<1> AUTRE F12::"APPLICATION"::380} M$"<.........><.........><.........><.........><.........><.........><.........><.........>" V4:VF20:HD5:HF19:400 T$"":I110:T$T$"****"::I123:I:T$: 768 T1$"":IHDHF:T1$T1$" "::IVVF0:9 12:"RECUPERATION PAR ROUTINE EN BASIC"::370:R P(24):VVV:HD:VVo I81928192P1:PSPS1 ((I)128);:PSHF1HDĺ"":PS0:VVVV1:HD:VV 380: 12:"RECUPERATION PAR ROUTINE ASSEMBLEUR"::370: 410:380::1:958:"HTAB FIN -> ";HF7 dHFHDVF40Č198:90 nHF1HDHMĢ20:"MAXIMUM=255 OCTETS LIGNES DE "HM" CARACTERES":380:80 x400: IVVF:I:HD:("123456789123456789123456789123456789",HD,HF1HD): 768:38  ::(12);(21):!500U((806)(828))192ĺ:(4)"BLOAD FENETRE.LM"x(8:1:958:"VTAB DEB -> ";V210:1:958:"VTAB FIN -> ";VF<VFVVF23Č198:50FVTVF1V:HM(255VT)P12:1:958:"HTAB DEB -> ";HD Z14:     4,213,133,13,133,14,200,32,237,227,32,61,231,32,123,218,165,135,164,136,133,184,132,185,76,183,0R183,0:" & VOILA UNE VERSION EN LANGAGE MACHINE "::5:34,4O Z110,140:R$::l dI768813:R:I,R::I0x nII1: x768,A$(I) A$(I)""110 :J1I:A$(J):` 32,190,222,32,227,223,133,133,132,134,165,184,164,185,133,135,132,136,32,4af :::"VOICI LA VERSION EN BASIC (LONGUETTE)":"-------------------------------------":5:34,4y30,70:R$:::A$"":10964(I512767:(I)0A$A$((I)):2A$""70<JJ1:B$(J)A$:30F:I1J:B$(I)::R$:: P::    ET AFFICHAGE INFOS J GRIBOUILLE,MAX THE GLOBE TROTTER,PROCODEDET 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:" 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            ) { ^H"hh^ =` "EXPLICATIONS DANS ";::"TREMPLIN MICRO";:W 198:16368,0:16384,128:16368,0 22::24:"<1> MENU DE DISQUETTE <0> FINI DE JOUER";:R$:16368,0:R$"1"Ģ22::(4)"RUN MENU" dndroit  0987654321"0 FR0::B$::90< P768,B$O Z100:198:80d dR$:RR1:R8ıv nXX1:X260 x809,169:810,0:811,133:812,58:813,169:814,3:815,133:816,59:817,169:818,21:819,32:820,99:821,254:822,96::809- :24:A ::I768808:TT(I)::T5481ĺ(4)"BLOAD DEPILER2.LM"A$"-----------zyxwvutsrqponmlkjihgfedcba0987654321ZYXWVUTSRQPONMLKJIHGFEDCBA"A$:(768,A$2100:198:40 <B$"ZYXWVUTSRQPONMLKJIHGFEDCBA  A l'envers, puis @ l'e   MENU RENVOIE A LA PAGE CORRESPON-DANTE DE TREMPLIN MICRO.":590:~N198:16368,0:16384,128,127:16368,0:XX1:X2590XX1:j X ; : " J% " oHHɍhh `ڠŠŠӠŠө ARTE BLEUE, TELE-PHONEZ AU 49 93 66 66"O&::11::"EXPEDITION IMMEDIATE":X0590::12:" Cette disquette n'est pas PROTEGEE et il est prudent d'en faire IMMEDIATEMENT une bonne copie."AD::" LE NUMERO PLACE AU DEBUT DE CHAQUE LI- GNE DU ENLE DEMANDANT A L'ADRESSE SUIVANTE: * TREMPLIN MICRO LA PETITE MOTTE * SENILLE 86100 CHATELLERAULT"::" UTILISEZ LE BULLETIN DE COMMANDE DE VO-TRE DISQUETTE."':" SI VOUS POSSEDEZ UNE C:" BONJOUR ET MERCI! "::" CETTE DISQUETTE NE VOUS RENDRA VRAIMENTSERVICE QUE SI VOUS POUVEZ LIRE LES COM-MENTAIRES DE SES PROGRAMMES ET ROUTINES DANS LE NUMERO ";::4;::" DE ";::"TREMPLIN MICRO"::" VOUS OBTIENDREZ FACILEMENT CE NUMERO1604 198:16368,0:16384,128,127:16368,0:Enfoncez une touche S.V.P ":210) 768 21::1:"<1> RECOMMENCER <2> MENU DE DISQUETTE <3> AUTRE VERSION <4> FIN DE PROGRAMME":210 R(16384):R49150 R50Ģ22::(4)"RUN MENU" R51Ģ22::(4)"RUN DEPILER2" R52ė: :OUT (affiche le caract}re dont le code ASCII est dans A) m x"- PHA (48) empile A et PLA (68) d{pile vers A 18:"FAITES UN ESSAI, PUIS EXAMINEZ LA ROUTINE EN LANGAGE MACHINE DANS TREMPLIN MICRO" :"Elle est relativement facile @ comprendre - A et Y . F"- $FE84: R{tablit le mode normald P"- $F94A: Sort X blancs (nombre dans registre X) Z"- $FC22: Va @ la ligne sp{cifi{e dans CV (position verticale du curseur) d"- $FD6F: Une entr{e de GETLN sans affichage de prompt9 n"- $FDED: C5 ::(4)"PR#3"::5(4)"BLOAD DEPILER.LM":"UTILISATION DE LA PILE POUR METTRE UN TEXTE A L'ENVERS -- (ROUTINE A$300,L$6A)":::("- $FC58: Home2"- $FE80: Mode inverse <"- $DB3A: Affiche une chaine dont l'adresse est dans      z ??? Ԯ͠ ӠŮŠ Š ŮŠ ŮŮϠŮŠ ήŮϠԮϠ Ů͠ Ġ  űŠ ϮҠϮҠ ŮϠ ŮϠҠҮ͠Ҳ Ҳ͠ ԮŠ Š  ԮϠԮ͠Ը ŮϠŮŠŮϠŮ͠ ıӠӮҠŮŠҠԠӠҮϠҠ  Šՠ ȠȮΠȮҠҰ!ΠϠ٭ŠϠ 05,73,17,63,255,46,45,245,219,223,19,45,13,13,45,21,223,59,255,27,110,73,73,241,223,219,27,110,73,73,254,219,219,110,73,73,169,223,219,219,110,73,73,241,223,255,115,109,41,78,9,0,64,192,64,192,64,192,64,8,0,25,0T POMME FERMEE 105,73,17,63,255,46,45,245,219,223,19,45,13,13,45,21,63,63,63,63,63,46,45,45,45,45,30,63,63,63,63,46,45,45,45,53,63,63,63,63,46,45,45,45,45,21,63,63,63,63,55,45,45,45,45,245,63,63,63,119,109,41,78,9,0 POMME OUVERTE 73,73,1I ":170:(16384)49ĺ:(4)"RUN MENU"2 ::b 198:16368,0:16384,128,127:16368,0: 232,AD(AD256)256:233,(AD256) IADAD137:R:I,R:: PARAMETRES (2 FORMES, PREMIERE AU 8e OCTET, SECONDE AU 74e) 2,0,8,0,74,0,0,0:XX14:: PROTATION 16 A 64 (90, 180, 270, 360 DEGRES)s ZR48:X14:I18:1X,90:R:XX26:RR16:R80R16| d:0 nSCALE xX25:I13:I:150XI,115::1 170 ::( :I110:"____";:::"<1> MENU DE DISQUETTE <2> NON MERC" 138 OCTETS POUR DEUX POMMES11:0:3:u::T$"139 OCTETS POUR DEUX POMMES":T$:I1(T$):"-";:::("ADRESSE DECIMALE DE LA TABLE ";AD2180:<X3:I110:1X,30:XX16:2X,30:XX10: FX3:I110:1X,50:XX12:2X,500: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,94783,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:::1143 - OUVREZ UNE FENETRE,FENETRE,46 - GOTO PAR L'AMPERSAND,GOTOAMPERSAND,48 - UTILISATION DE LA PAGE 2,PAGE1.250 - LA PHRASE CACHEE (LOGOGRILLE),LOGOGRILLE55 - AUTRES CADRES,CADRE.DEMO,56 - CADRE.HLINE,CADRE.LINE.DEMO:p768,32:769,19DEMO* |35 - ECHANGE (SWAP),ECHANGE.DEMOv  38 - EMPILEZ ET DEPILEZ,DEPILER,40 - DEPILER (AUTRE VERSION),DEPILER2 41 - FICHE NUMERO 4 ,ECRAN.FICHE.DEMO 42 - INPUT PRATIQUE (FICHE 4),INPUT.FICHE 42 - INPUT DEMO,INPUT.DEMOoOUR SEPT RONDS< J17 - ADRESSES DE VOTRE ECRAN,ADRECR.DEMOj T18 - DESASSEMBLAGE PRATIQUE,EXAROUT.DEMO ^ 19 - CATALOGUE THEMATIQUE 80 COLONNES,CAT80 h23 - FONTE.DEMO (FONTE SPECIALE),FONTE.DEMO r33 - EST-CE OU NON UNE ANAGRAMME ?,ANAGRAMME.DS) B$(VDS)"INFOS"500< 23:(4)"RUN"B$(VDS)F "::g , PAGE INFOS GENERALES,INFOS 6 " 3 - GRAPHIQUE",GRAPH,11 - AUX POMMES!,POMMES,12 - CHIFFRES HGR,CHIFFRES.HGR,13 - PLUS LOIN AVEC GRAPH.CAR,FONTE.LIRE @15 - POUR SEPT RONDS,P1800 16368,0:V:A$(VSD):K141Ģ22:260V K136K139VV1:VDVD1:90m K149K138VV1 NSPS0VRD1VD1:SSP:100 VND1SVD1:90 170 35,24:34,21:22::T$;:"SELECTION -> PAGE "((A$(VDS),2))" "B$(V35,22 ZR0:S0 dV:( nS0140C xRR1:A$(R):RSP120L 150f RR1:A$(R):RN140 :31:V:"FIN=CTRL-C": 5:31:"COMMANDES:":6:31:"> CTRL-I <" V:768,A$(VSD) K(16384):K9ĺ:21:(4)"RUNCOMMANDE" K128 " :(12);(21):::V3:DV1CI110:T$T$"----"::SP19M290h(N25:A$(N),B$(N):470q2N23<R1N:A$(R),B$(R):F" DISQUETTE DE TREMPLIN MICRO NUMERO 4 "T$:34,2 P23:T$" UTILISEZ LES FLECHES - RETURN POUR RUN";:V::      7mM7mM7mMN--7m17m17mq)7m17m17-u -7m1??.>.NI)7m17- wmN-7m>?.M;.MN))-;.?N5--N--;.>.>.N m17m17m17-u m17m17mN mI7mM7mM N m1w  7mqJm17m?6N -->57--N`&8J[k{0@Rct)-;.M;.-57mq -7m>?.M;.-uJ)757m7--N--7m7m--N--;.?757--N---;.?757uI))-;.M:7m17--Nm17m1??.M;.MN )-7575-u I575M53--N1m17m?. 7mq6575757--N) R$:R$"1"Ģ21::(4)"RUN MENU"& ,12,12,12,54,174,55,62,0,56,39,44,45,245,170,54,23,63,28,4,0~ 117,246,63,28,36,229,12,12,45,6,0,12,12,60,63,183,82,30,46,0 231,100,45,21,246,14,246,63,28,36,0,231,100,45,21,54,119,30,30,63,4,0 22:"<1> MENU DE DISQUETTE <2> FINI DE JOUER";:,0:233,96:I2457624705:J:I,J::c 10,0,22,0,36,0,44,0,54,0,66,0,76,0,88,0,99,0,108,0,119,0 12,37,28,63,23,54,46,30,14,45,44,36,4,0,36,188,150,18,45,28,36,0 101,228,63,23,150,241,46,45,37,0,12,12,60,63,183,146,21,45,12,228,7,0< 58,39N DATA":1150A :T$"SE DEPLACER AVEC LES FLECHES APPLE":1150p T$"POUR EFFACER UN CHIFFRE:REVENIR":1150 T$"SUR LE CARACTERE, TAPER CTRL-D":1150 T$"PUIS LE CHIFFRE INCRIMINE":1150 198:16368,0:16384,128,127:16368,0:% 232R:1050, V16368,0:XX7:X289X9:YY7< `1130:1050Z jD4D0:(R$)1X7,Y:o t(R$)1X7,Y: ~(41(T$))2:T$: T$"PROGRAMME DEMO D'ECRITURE":6:1150 :T$"EN PAGE GRAPHIQUE HGR OU HGR2":1150 :T$"AVEC DES CHIFFRES E'::(12);(21):"1160.1240:E:3:1:1:X2:Y7c22:20::"CTRL-C=FIN":22:1:R$:R(R$):R3ė::2000$R11Y7YY7:1050.R10Y140YY7:10508R8X9XX7:1050BR21X282XX7:1050 LR4D     768: ASTERISQUE"J n:"]BLOAD CADRE.ROUTINE, POUR UN ESSAI":998:998ROAD CADRE.BLOQUE" P768Y Z"VOUS EVOLUEZ MAINTENANT":"A L'INTERIEUR DE VOTRE CADRE" d:"DANS UN PROGRAMME EN BASIC":"UTILISEZ PLUTOT CADRE.ROUTINE"::"POKE 6,32 : CALL 768: CADRE INVERSE":"POKE 6,160 : CALL 768: EFFACEMENT":"POKE 6,170 : CALLKY ::(12);(21)::::" CADRE NUMERO 1 --------------"p(4)"BLOAD CADRE"y768(3:4:198:"UNE TOUCHE SVP ";:R$:16368,023:"CADRE BLOQUE (NUMERO 2)":3:"-----------------------"<"" F(4)"BLSTUVWXYZ()<>*. ":CAAD(A$)1:YCA:X1(A$):YY1:Y,((A$,X,1))::8,CA(CA256)256:9,(CA256) CACA16:XCACA15:Y:X,Y:: 160,44,177,8,197,25,240,5,136,208,247,160,44,132,25,96A4,128:16368,0::I ::(4)"BLOADGRAPH.CAR,A"AD:FONTE SANS ESPACE AD,44:AD88,95:NOMBRE DE FORMES PORTE DE 43 A 44 & ADRESSE DE L'ESPACE 6,AD(AD256)256:7,(AD256):232,(6):233,(7):1:0:3g A$"'0123456789ABCDEFGHIJKLMNOPQR00 ":VV5:407 170::(4)"PR#3"::10,30:190,240S :170::30,120:170: 22:"<1> MENU DE DISQUETTE <2> FIN DE PROGRAMME":180:(16384)49Ģ20::(4)"RUN MENU" : 22:8::"PRESSEZ UNE TOUCHE S.V.P": 198:16368,0:16389)-?-0":40:SIGNES INCONNUS TRANSFORMES EN ESPACES_ PVV25:Y0:X3843:YY1:XY723,V:s ZA$"()<>*.":40 dA$"LA FONTE GRAPH.CAR NE COMPORTE PAS":40 nA$"L'ESPACE MAIS ELLE EST FACILEMENT":VV5:40 xA$"MODIFIABLE GRACE A SES VALEURS  (12);(21)HAD163851644: PROGRAMME + NOMBRE DE CARACTERESU190:50(H30:VV15:X1(A$):25,((A$,X,1)):CA:(25)(H7)(X7),V::2::A$"CARACTERES HGR (DEMO)":40<A$"ABCDEFGHIJKLMNOPQRSTUVWXYZ":403 FA$"(012345678    > X HhH '$hH %(h(" $!# X`";::" "P: b:6 l******************************Z v** CENTRES DES SEPT RONDS **~ ****************************** : I12000::  70,144,60, 92,80,174,75,113,65,133,80,155,60,160 -> ";:560' R$;:(R$)PPİ590:5205 PPP:600> 660 :21:"<1> UN AUTRE TOUR <2> MENU <3> FIN ? ";:R$:R$"1"Ĭ R$"2"ĺ:(4)"RUN MENU" &:: 0R$:(R$)49(R$)55560 : D: N" ";::"EXACT":: X" ";::"FAUX ******************************F ** LA QUESTION EST POSEE **j ******************************p : :21:198:"RANG DE LA PLUS GRANDE --> ";:560 R$;:(R$)PGİ590:490 PPG:600 :22:1:198:"NUMERO DE LA PLUS PETITE -1:RAR(R):FL0 1635,48R- I06.3ST? "XRAD(I)XCX ,Y(RAD4)(I).3YC{ 6X279X0Y191Y0FL0:340 @FLēX,Y:FL1 JX,Y T ^: hR(R)P1P1R(R):PGR rR(R)P0P0R(R):PPR |198 R7260 660 :")A(I): :2 ******************************V ** ET LE JEU PEUT COMMENCER **z ****************************** : 22:1:"Voici sept ellipses: Dites les NUMEROS de la plus grande et de la plus petite":1 P10:P080 YC:XC:RRd:(12);(21):%n:3:ST.1+x:O******************************s** CALCUL ALEATOIRE **** DES SEPT RAYONS ********************************: I17:A(I)55I2::I711:J((1)I1):R(I)A(J):A(J     (   '(('`` IMPORTE QUELLE TOUCHE S.V.P.";:R$:::90:170 Z1014,0:1015,3* d90::110F n,0,0::,10,0::,0,23O x170 :22:198:"1> MENU-DISQUETTE 2> A REFAIRE 3> FIN ";:R$:"":R$"1"R$"3"130 R$"1"Ģ22:(4)"RUN MENU" R$"2"ė:40 ::( 198::23:"ENFONCEZ N') ::(12);(21):0(4)"BLOAD ADRECR"j:" CONNAITRE UNE ADRESSE DE VOTRE ECRAN ? "::34,3(170:20:170:502768,0,0<170:70F768,10,0 P170:"OU ENCORE, AVEC L'AMPERSAND (&): -------------------------------"::  768: ASTERISQUE"J n:"]BLOAD CADRE.ROUTINE, POUR UN ESSAI":998:998ROAD CADRE.BLOQUE" P768Y Z"VOUS EVOLUEZ MAINTENANT":"A L'INTERIEUR DE VOTRE CADRE" d:"DANS UN PROGRAMME EN BASIC":"UTILISEZ PLUTOT CADRE.ROUTINE"::"POKE 6,32 : CALL 768: CADRE INVERSE":"POKE 6,160 : CALL 768: EFFACEMENT":"POKE 6,170 : CALLKY ::(12);(21)::::" CADRE NUMERO 1 --------------"p(4)"BLOAD CADRE"y768(3:4:198:"UNE TOUCHE SVP ";:R$:16368,023:"CADRE BLOQUE (NUMERO 2)":3:"-----------------------"<"" F(4)"BL   3  HJ) h)i eH $ HhLA`A` '(('`` $"3"60! F:R$"1"ė:823:603 PR$"2"ė:30= Z::>. :(12);(21):(4)"BLOAD EXAROUT.LM":d:4:" LISTAGE COMMODE DES ROUTINES LM "::34,23:"ADRESSE -> ";AD$:AD$""60(998:20:"DEC=";2768,AD$ <23::24:"<1> SUITE <2> AUTRE <3> FIN DE TRAVAIL ";:R$:16368,0:R$"1"R 1 169,0,133,58,169,3,133,59,169,18,76,99,254 M260 769,170:768 260> I806818:J:I,J:::806 23:"":24:"<1> ENCORE <2> MENU DISQUETTE <3> FIN ";:R$:R$"1"R$"3"245 :R$"1"120 R$"2"Ģ22::(4)"RUN MENU" :: 198:16368,0:16384,128,127:16368,0:2,d:(12);(21):(4)"BLOAD CADRE.LINE"gn::" ECRAN HLIN BASIC, PUIS LANGAGE MACHINE "::260{x:130,220:2601700,390:0,3946:0,460:0,4639:260:768260769,160:768260769,255:768    < { ȱ^i >?:; $ Lc&0', . /- ('L(32,237,253,200,196,96,144,234,96C60,0,152,145,131,9632,190,222,32,123,221,32,253,229,133,96,160,0,177,94,201,65,144,6,201,90,176,2,144,2,9,128,32,237,253,200,196,96,144,234,96N,131,96 32,190,222,32,123,221,32,253,229,133,96,160,0,177,94,201,65,144,6,201,90,176,2,144,2,9,128,,202,221,198,180,240,250,232,138,72,56,237,156,179 233,3,32,221,227,168,104,170,136,202,189,198,180,41,127,145,158,152,208,244,165,157,145,131,200,165,158,145,131,200,165,159,145,131,24,165,131,105,3,133,131,144,2,230,132,32,48,178,144,176,176,167,1:R$ @(R$)18İ220:3000 JR$:R$"D"110@ TR$"A"Ĭ20Q ^R$"F"300[ h::a r: |I768905:R:I,R::1014,0:1015,3:432,227,223,32,247,175,24,32,17,176,176,84,162,0,142,156,179,189,198,180,240,74,48,65,32,48,178,169,160,202,202n RUN, tapez un Ctrl-R, puis le titre choisi (qui doit {videmment correspondre @ un programme {crit en BASIC)": ,22:1403,0:198:" LE CATALOGUE DE DISQUETTE COMPTE ";::I1;::" RUBRIQUES -- "; 6R$"D{but Fin Autre --> ":870,R$:1406,40S1N:C$(S)RP$Ģ21::250l S:216,0:22:868:198::"CE PROGRAMME N'EXISTE PAS ";::R$:R$:110v 370 (4)"RUN"RP$ 21:1403,0:TI$: :12::"PATIENCE SVP: LECTURE ET TRI":q "::"Si vous d{sirez lancer un programme par u3:H27:180# H27V3:H54:180; 210::V3:H0:270J 1403,H:V^ V$(C$(I),20)i :300 22:1403,0:"ENFONCEZ UNE TOUCHE POUR CONTINUER ";:R$:16368,0:(R$)18ı :22:868:"TITRE DU PROGRAMME A LANCER : ";RP$:RP$""ı I)C$(K)C$(K1)C$(K):. ZC$(K1)C$(I):50 d::"CATALOGUE COMPLET DE LA DISQUETTE ";::I120:TI$TI$"----"::(TI$,46):34,2 nV2:H0::270 xI1N V$" - ":(C$(I),3)(C$(I1),3)V$"":V2VV1 VV1:V20180 H0VЕ  380):(4)"PR#3":::C$(107)}"INSERER LA DISQUETTE, ET RETURN":198:16368,0:16384,128:16368,0::280(C$(0):N0:I02II1:C$(I)""100<(C$(I),2,1)(8)50FNN1:C$(I)C$(N1)C$(N)C$(I):50 PKN111:C$(     0,1104,1232,1360,1488,1616,1744,1872,2000 I50ĺ:(4)"RUN MENU" T 1:1:198:16368,0:16384,128,127:16368,0::: 768,72:769,166:770,6:771,165:772,7:773,32:774,65:775,249:776,104:777,96:* 1024,1152,1280,1408,1536,1664,1792,1920,1064,1192,1320,1448,1576,1704,1832,196AT17,XS13:20T:XS13;:AT22,XS77:25T:XS77;:ATT27,XS141:30TT:XS141j :210 T2TT1:ST26::120 22:"":"<1> DEMO BIS <2> MENU DISQUETTE <4> FIN":210:R(16384):R49R51170 :R49Į:T0:S0:30 RT39T39::32,17:33,22:1:18::606 dT0:210 n"VALEUR DES CARACTERES A POKER:":2:"------------------------------": x:I13:A::X0 I416:I:1:XX1:A:A,XS:3:XS;:A5,XS64:8:XS64;:AT10,XS128:13T:XS128;_ + ::(12);(21):!220VI122:36,((1)39):37,((1)23)::" "::b(R$::220:"VOICI LES ADRESSES":2:20:"24 LIGNES-ECRAN:"<I023:A:AAT:I1:1:I;4)A" - ";:6,A(A256)256:7,(A256):768FI23ĺP) Z68,0 T ^::0:190 A$(3)3500 A$(32)HH7:190N I195:A$(F$,I,1)260Y :190v HH15:H263H0:VV20 V160đ 49232,0 "I1H,V ,190 @22:4:"PRESSEZ UNE TOUCHE POUR CONTINUER" J198:16368,0:16384,128,127:163EUX DE LA FONTE" :F$:O ::"Pomme ouverte = &":"Pomme ferm{e = ~": "CTRL-F vous pour revoir cette page":"CTRL-C pour terminer" 320 H15:V15 21:958::22 198:"CATACTERE DESIRE ? -> ";:A$ A$(6)Ĺ49233,0:323:1:0y dF$"!"(34)"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~" n49233,0 x320 :"VOICI LES CARACTERES A TAPER, DANS LE MEME ORDRE QUE C ::(12);(21):I"UTILISATION DE LA FONTE SPECIALE DE TM 2";nI110:T$T$"----"::T$:34,3z(50,1002AD24576:L4498: AD=ADRESSE FONTE - L=NOMBRE D'OCTETS<ADLF(4)"BLOAD FONTE.SPECIALE,A$6000"P232,0:233,96 Z:    ?.m:??7---?.5?.5?.5?VII ---????.mI5?.mI5?.---5???wI 5ۛ----???oII ->7->7---????.mI5?.mI5?.mI5?.mI5?VIII>->*5?.5?.5?.5?.5?VI)5?->7->7->7->w5*-?M 5->7->7-M 5?;7-M-???.--??.m ->?.mI5?VIII7->7->7->7->7->7->7->I -??VII - ---????.MI5---5????.mI5?.---->???III5->7->7----????7-MI5;7-MI5;7-MI5;7----???III ---????.mI?.5?.mI?.---???VII II)>.>*--->???7-M 5?.mI5?.mI5?.---???VII ---????.mI5?.---5????.5?.---5???IIII-->??.5m---????.mI5?.---5????.5?.---5???III- ---????.mI?.5?.mI?.---???N)oI II----????.mI5?.---5????.5?.---5???IIII----????.MI5---5????.mI5?.---->???III5-----5?????oIII I----????.mI5?.mI5?.mI5?.---?;w- -??-VI -MI 5?.mII5?.m m)>?.m m)>?.m m)>?.m m)>????w-m)-۷III-MI5;7-MI5;7-MI?--5??-M);7-MI5;7-MI5;III I-MI5;7-MI5;7-MI5;7-MI?- ?7-5?7-5?II )---????7mI)?-?-?-?.mI;7----????VIIIIII:7-)---????7-MI5;7-MI5??.---5????.mI->?.mI)>?.mI)>?VIII-)---????7mI ;.>.---????NI)5?.5?7----???III---->???w ->7->7->7->7->7->II-MI5;7-MI5;7-MI5;7-MI5;7-MI5;7-MI5;7----???IIII-MI5;7-MI5;7-MI5;7-MI5;7-MI5?;IIII-M-????7-MI5;7-MI5;7-MI5;7-MI5;7-MI5;7-MI5;III )---????7-MI5;7-MI5;7-MI5;7-MI5;7-MI5;7----???III)---????7-MI5;7-MI5;7-MI5????7----;7->7->III )---????7-MI5;7-MI5;7-MI5;7-MI5;7-Mm5??.---->???III????w-M 5?.mI5?.mI5?VIIII->7->7->7->7->7->7->III->7->7->7->7->mI->7----???VII -M 5?.mI5?.m -??.--??7--??.m)?;7-M ->?VIII5->7->7->7->7->7->7---->???VII )-M-?????7-Mm 5;7-Mm 5;7-Mm 5;7-Mm 5;7-Mm 5;7-Mm 5;7----???III----????7-MI5;7-MI5;7-MI5;7-MI5;7-MI5;7----????VIII-)---5????7->7->7---5???7->7->7----5????VIII)---5????7->7->7---5???7->7->7->III I)---????7-MI?.5?.m -5??.mI)>?.mI)>?.----???IIIm)mI5?.mI5?.mI5?----5I-7I )---????7mI)5?.5?*--??757*>VII-Iw*--????.MI5---5????.mI5?.---->???IIII--???-M 5?.mI5?----->????w-M 5?.mI5?.mI5?VIII ---????.mI5?.mI5?.---????7-MI5;7-MI5;7----????VIII))---????7-MI5;7->7->7->7-MI5-?-?.5?.5?VII --???7-M)>;7-M)>;----????7-MI5;7-MI5;7----???III-)---????7-MI5;7-MI5;7----5????NI 5757----???IIIJ:7->J:7->IJ:7->J:7->woJ >-M????----5????->II---5???*--->???JIIJI7-????.----????N--???-?7->7----5????VIIII)---????7mI)5?.*--->???NI->7->;.----???III?II->?-->m)5?;mI->7----5????NI->7->I ))--->???75757----????NI)5?.5?7----???III)---????7mI ;.>.---????7mI)5?7mI)5?7----???III-----5????7-M ->7->575-IIRIm)Mw--?----?--m)M۷IIJ 575----5????wI575II ->w1?Mo-->?JIJ:7->IIII5555555III )---????7-MI5;7-MI5;7-MI5;7-MI5;7-MI5;7----???III? ->?-->7->7->7->7->7->I))---????7-MI575*?II ) m)>7m)>*---->????Nm)>*---->????Nm)>7m)>߷II II5*--5???7m57---???Nm5---???N)>VI))m 5;?7mm5??- 55m?m-->m)-?;VII II)5n- -?????m)m)7mI 7mII)>?;----??VIII7->w1?IR)>75757575757->V ?575757`d<g2N[ivO}N*] O}6^EA w V * U  4 k  L } /\'Fq$L{ aaajRI->7->7->7->7->w?.5?VI- ->?NM1?     <1> ENCORE <2> MENU DISQUETTE <3> FIN ";:R$:16368,0:R$"1"R$"3"210\ :R$"1"160z R$"2"ĺ:(4)"RUN MENU" :: 198:16368,0:16384,128,127:16368,0: asser 255 caract}- res, bien entendu."| :" Cette routine accepte les espaces commepremiers caract}res de la variable." 34,(37)1: 170,200:250: 768,A$:::A$: :"ET VOICI L'INPUT CLASSIQUE:": A$::A$J 23:"":24:"d:(12);(21):2n:(4)"BLOAD INPUT.LM"lx:" INPUT PAR LA ROUTINE $D52C "::34,2' " Vous pouvez tout saisir, sauf les guil-lemets. ATTENTION! CTRL-X annule ce qui pr{c}deet il ne faut pas d{p967 (7)1160 "1507 ,:I768828:A:I,A:: 632,44,213,162,255,232,189,0,2,240,5,157,0,32,208,245,134,6,96,32,44,213,160,255,200,162,255,232,185,0,2,221,0,32,208,7,169,0,157,0,32,240,9,228,6,208,236,169,0,133,7,96,196,6,208,224,169,1,133,7,;:R$ :R$"1"20& R$"2"2207 R$"3"170A ::w ::" ET AVEC UNE ROUTINE EN LANGAGE MACHINE ": 2:T$ :8:198:958 :"MOT-BASE";::" -> ";:768:(6)0170 :10:198:958 :"ANAGRAMME";::" -> ";:78198) Z"ANAGRAMME -> ";A$:A$""40: d(A$)L80T nI1L:A((A$,I,1))y xJ81928191L:A(J)ĹJ,0:140 J:150 I:160 :"CE N'EST PAS UNE ANAGRAMME":170 :"C'EST UNE ANAGRAMME" 22:1:"<1> BASIC <2> LM <3> FIN " ::(12);(21):300J::6:" VERIFICATION D'UNE ANAGRAMME ":rT$"":I110:T$T$"----"::2:T$(6:958:1982"MOT/LETTRES -> ";M$:M$""180<L(M$):I1L:A((M$,I,1)):(A65A90)A3240FI8191,A: P8:958:     / ߅ ,Յ  = {ڥL = ,բ ` ,ՠȢ  `` -  3   ۴U堳Ʈ䬠   쬠᭠`嬠`嬠񠠠   堠ŠԠ'> 2064<  : o `  ()     宠庠     -  ,0: TI768799:J:I,J:: ^32,190,222,32,227,223,133,133,132,134,32,190,222,32,227,223,160,2,177,133,72,177,131,145,133,104,145,131,136,16,243,96ONDES":3308 :"SYNTAXE : &,C$,A$(8)... par exemple"A 330| :22:"<1> MENU DISQUETTE <2> A REFAIRE <3> FIN":330 "R(16384)48:R1Ģ21::(4)"RUN MENU" ,::R2X0:130 6R3280 @ J198:16368,0:16384,128,127:163680150' :"ENVIRON 20 SECONDES":330/ X0y ::"PROGRAMME EN BASIC ------------------":: 220,240:330:198 T$A$(1):A$(1)A$(3):A$(3)T$ T$A$(3):A$(3)A$(2):A$(2)T$ XX1:X1000220 "ENVIRON 36 SECd::(12);(21):1n340:1014,0:1015,3cxA$(1)"BERNADETTE":A$(2)"NADEGE":A$(3)"GUY""PROGRAMME EN LANGAGE MACHINE ----------------------------":::140,170:330198,A$(1),A$(2),A$(3),A$(2) XX1:X100