' +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 / / ]ƴ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`MS THEN 424":155:=T$"]60 ON R GOTO 70,80,.....":155:rT$"]70 PRINT D$"G$"RUN PROGRAMME 1"G$:155:T$"]80 PRINT D$"G$"RUN PROGRAMME 2"G$:155:T$"]90 ETC...":155::3:"ATTENTION! PROGRAMME ";::"MENU";::" NON RELOGEA CHR$(13) + CHR$(4)":155:NT$"]20 PRINT D$"G$"BLOAD MENU"G$:155:lT$"]30 CALL 8226":155:T$"]40 CALL - 198 : POKE - 16368,0 : WAIT - 16384,128,127: POKE - 16368,0":155:T$"]50 R = PEEK (-16384)-48 : IF R < 1 OR R > ITEVOTRE PROGRAMME BASIC ***>******************************D:S:G$(34)T$" VOTRE PROGRAMME EN BASIC "::7:155:::T$"Il ressemblera a ces lignes:":155::"----------------------------"::T$"]10 TEXT: PRINT CHR$(21) : D$ =2:(4)"BSAVE VMENU,A8192,L"DE8191:21:958Hr140:8226:145::380xwI1(T$):DEDE1:DE,((T$,I,1))128::|22:2:"<1> FIN <2> MODIFIER <3> REFAIRE ";:C$:C$"3"Ľ:10C$"2"185:********************************* JT$T$"REPONSE : ":375:DEDE1:DE,32:T$"*#":375VOVT10LI:8239,VT:8277,ES:\T:Y******************************^*** VOTRE MENU EST SAUVE ***c******************************h:-m22:1:958:"BSAVE VMENU,A8192,L"DE8191:2$(I)) ,B1ESPACE(41LM)2:T$"":IES13:T$T$(32)::3756I112:DEDE1:AS(("MENU DU JOUR",I,1)):AS32ĹDE,AS:320;DE,AS64@:DEDE1:DE,170EI1LI:DEDE1:DE,((I)):J1(LI$(I)):DEDE1:DE,((LI$(I),J,1))128::5868:"NUMERO DE LIGNE A CORRIGER ? ";:C$:C$:C(C$)48:C1CLI260a LMLI:LIC:"":215g:********************************* ECRITURE EN MEMOIRE *********************************":'LM0:I1LI:(LI$(I))LMLM(LILI))1):240:LI$"/"LI1Ģ6LI:1:958:LILI1:250UL(LI$):L30L1215mLI$(LI)" "LI$"*"C0C0:LILM:250LI821022:1:"<1> LA SUITE <2> CORRIGER <3> ANNULER":145::R49R51250R48295,260,200I22:1:55 :TR$)34,6:LIGNE0:DE8283:U22:5:"/ POUR ARRETER AVANT 8 LIGNES"aLILI16LI::LI;::" ..............................";:LI$(LI)""Ė2:(LI$(LI),(LI$(LI))1); 3:"";LI$:LI$""LI$(LI)""Ģ6LI:2:(LI$(LI),(LI$((49200)::: :7 ******************************[ *** VOTRE MENU PERSONNEL *** ****************************** : :T$" FAITES VOTRE MENU PERSONNEL "::7:155:::T$"VOUS AVEZ DROIT A ":155::8;::T$" LIGNES MAXIMUM.":1 12:1:"]GOTO 60";:I17:I1::("GOTO 60",I,1);::145:1008:("GOTO 60",I,1);::65 22:5:"ENFONCEZ N'IMPORTE QUELLE TOUCHE" 198:16368,0:16384,128,127:16368,0:R(16384):R27185 J1(T$):(T$,J,1);:I13:BUZZ******************************C i*** SOUS-PROGRAMMES ***g n******************************m s: xA2((1)8):B2((1)13) }8239,A:8277,B:"-> POKE 8239,";::A;::" : POKE 8277,";::B: 22:7:"TOUCHE POUR TERMINER"^";::" pour modifier VTAB ORIGINE"] -:::"POKE 8277,Y";::" pour modifier HTAB ORIGINE"h 2:TR$ 7:(4)"BLOAD MENU.":(4)"BLOAD MENUASC" <140 A8226 F145: KXX1:X80,80,85,90 P120 UA8:B10:125 ZX1:120 _: dGROUPEMENT DES QUEVOTRE MENU DEFINITIF SERA MIS AU POINT.":155 #::T$"ATTENTION!"::155::T$" CHAQUE LIGNE DU MENU DOIT SE TERMINER PAR UN * ($AA) ET LA DERNIERE LIGNE PAR # ($A3), MAIS LE PROGRAMME SE CHARGE DE TOUT.":155::# (:"POKE 8239,X4 :(21):AES8:VT10: VTAB & HTAB DE BASE DANS "MENU"^I110:TR$TR$"____":T$"BASE MODIFIABLE D'UN MENU":8::155::? :T$"POUR FACILITER L'ADAPTATION DU PROGRAMMELA PARTIE EST MEMORISEE A PART, MAIS ILS VA Y AVOIR RE     "Vous disposez d'un Apple IIe":170`A56A234T$"Vous disposez d'un Apple II ou II+":170A6O0T$"Vous disposez d'un Apple IIc":1700,0:S,6,173,233,183,141,47,3,173,234,183,141,48,3,96,169,3,160,46,32,217,3,96x0,1,96,1,0,17,15,251,183,0,64,0,0,1,0,254,96,1,169,5,133,34,169,20,133,35,32,88,252,169,2,133,34,169,24,133,35,96::#16:A(64435):O(64448):A6(O223O240)T$170< T$"& PRESSEZ POUR "R$:12:170:K821310N(0)1İ1460w21:P$:T$O$" "R$:23:170:35,20(3202:Z:dA768850:B:A,B:::B0Hn160,2,165,105,133,6,165,106,133,7,169,240,145,6,200,169,14,145,6,200,169,64,145:1380:768:D$((816))LG49152:M16395:N16605:I49168:C$(105),C(105)mT(C)(41(T$))2:P1:B1534,2:X110:P$P$"....":U$" - PATIENCE SVP!":O$" POUR OPTIONS":R$"DEBUT"T$"INSEREZ LA DISQUETTE DANS LE DRIVE "D$:10:$"RUN":1150*jC(F)20S$"EXEC":1150BtC(F)52S$"BLOAD"t~34,23:T$S$U$:170:(13)(4);S$;C$(F)::C(F)52Ģ10:"PROGRAMME ";::C$(F);:::"INSTALLE : A";(43634)(43635)256", L"(43616)(43617)256:::I$"" CATALOGUE RELANCER QUITTER"I280:K67K81K821020^300:K67ī1230K81T$"MERCI":23:170:19:R$"RELANCER":R1:D$"1":14:1280:300$T$"SYSTEME RELANCE":170:3::1370.:V: `310:23:C%0:C(F)6S:C$(F):6103z310:T$"INSTALLATION"U$:23:170A270:250hX%16500:A%X%1:B%X%30:D%16450~C$C$(F):XA%B%X,((C$,XX%,1))::240818,0:819,13:250:D%,C(F):240V:3:C$:R%1:560:R%0:610::(300:23:"4:VK645:C$(F)C$770Y*I(C$(F))11:((C$(F),I,1))160C$(F)(C$(F),I):830`4I>V:3:62071:C$(F):62067:C%11120H310:T$"Installer nouveau Bonjour (O/N)":23:170RC%1:280:K79890\K63620fK78850 pV:3OAD":23:170:280 K63620.K49760=K50710vT$"Quel est votre choix ?":C%1:310:23:170:770T$"Indiquez le nouveau ":310:23:170280:L%1(K21K8)İ30:770 K63620K65KH770 FB(P1)K6"Vous disposez d'un Apple IIe":170`A56A234T$"Vous disposez d'un Apple II ou II+":170A6O0T$"Vous disposez d'un Apple IIc":1700,0:I,6,173,233,183,141,47,3,173,234,183,141,48,3,96,169,3,160,46,32,217,3,96x0,1,96,1,0,17,15,251,183,0,64,0,0,1,0,254,96,1,169,5,133,34,169,20,133,35,32,88,252,169,2,133,34,169,24,133,35,96::#16:A(64435):O(64448):A6(O223O240)T$170< T$"& PRESSEZ POUR "R$:12:170:K821310N(0)1İ1460w21:P$:T$O$" "R$:23:170:35,20(3202:Z:dA768850:B:A,B:::B0Hn160,2,165,105,133,6,165,106,133,7,169,240,145,6,200,169,14,145,6,200,169,64,145:1380:768:D$((816))LG49152:M16395:N16605:I49168:C$(105),C(105)mT(C)(41(T$))2:P1:B1534,2:X110:P$P$"....":U$" - PATIENCE SVP!":O$" POUR OPTIONS":R$"DEBUT"T$"INSEREZ LA DISQUETTE DANS LE DRIVE "D$:10:$"RUN":1150*jC(F)20S$"EXEC":1150BtC(F)52S$"BLOAD"t~34,23:T$S$U$:170:(13)(4);S$;C$(F)::C(F)52Ģ10:"PROGRAMME ";::C$(F);:::"INSTALLE : A";(43634)(43635)256", L"(43616)(43617)256:::I$"" CATALOGUE RELANCER QUITTER"I280:K67K81K821020^300:K67ī1230K81T$"MERCI":23:170:19:R$"RELANCER":R1:D$"1":14:1280:300$T$"SYSTEME RELANCE":170:3::1370.:V: `310:23:C%0:C(F)6S:C$(F):6103z310:T$"INSTALLATION"U$:23:170A270:250hX%16500:A%X%1:B%X%30:D%16450~C$C$(F):XA%B%X,((C$,XX%,1))::240818,0:819,13:250:D%,C(F):240V:3:C$:R%1:560:R%0:610::(300:23:"4:VK645:C$(F)C$770Y*I(C$(F))11:((C$(F),I,1))160C$(F)(C$(F),I):830`4I>V:3:62071:C$(F):62067:C%11120H310:T$"Installer nouveau Bonjour (O/N)":23:170RC%1:280:K79890\K63620fK78850 pV:3OAD":23:170:280 K63620.K49760=K50710vT$"Quel est votre choix ?":C%1:310:23:170:770T$"Indiquez le nouveau ":310:23:170280:L%1(K21K8)İ30:770 K63620K65KH770 FB(P1)K6C$(C$,Q1)::C$::600% NR%1ı4 X4:P$:50G b310:L%1710 lT$"Suite catalogue: <- ou ->":310:23:170:280:K13710 vK631010 K8K21710 30:610 : :T$"<1> AUTRE "(34)"BONJOUR"(34)" <2> RUN/EXEC/BL------------------" :4 L%CB:CL%L%L%1L CB(CB)L%L%1o &270:260:C$(I$,104,30):310 03:1:868:" ACTUEL: ";:Q(C$)11:((C$,Q,1))160C$(C$,Q):62071:C$:62067:590 :Q DQ3011:(C$,Q,1)" "YMN35:DD35( Z(Y33):Z0530G CC1:(Y)255CC1:520b Z(Y2):Z16ZZ128v Z4CC1:520 C(C)6:Z0C(C)20:490 Z4C(C)52 C$(C)(I$,D,30) LL1:L9C$(C)"":CC1:520 ((C$(C),10,1))173C$(C)"-- 805:72,0:% 818,1:819,9:M G,128:I,0:K(G):K79C%11010S "h ,34,2:35,20::x 622:958: @280 JK131320 TRı ^: : 64600:T$"Lecture du catalogue"U$:23:170:L0 X1511:819,X:260:D34 ; P"": ZH63X:5:868| dC$" TAPER O POUR OPTIONS "::E1459:8E9:32:(C$,E,9):: n x: : T(C):(T$,8)"RELANCER"ĺ(T$,(T$)8);::"RELANCER":: T$: : : 826,2:260 826,1S 62361:(21):64600:62071:" CATALOGUE UTILITAIRE GUY-HACHETTE ":62067b0,1:1230|K21PP1:PL%P1(K8PP1:P1PL%2831<A(P1)B:X1B:JAX:JC90 F:(64X);::" "C$(J);:C(J)20(C$(J),1)"-"Ė23:"T"     TRAVAIL *9 ******************************?:W"FICHIER LU"rD$"CLOSE"J$:D$"PR#0"I12000:::DCK"G$:#l768:E(222):E533057qE5FIN1:375kvE6Ģ6:1:"FICHIER INEXISTANT"::G$"":145{17:1:868:"ERREUR "E" LIGNE "(218)(219)256I12000:I:: ****************************** * FIN DETITES OPERA-TIONS BINAIRES, VOUS POURREZ REVOIR LA PAGE DE DEMONSTRATION EN UTILISANT CETTEMEME TOUCHE .":225:22:"VOUS ETES INVITE A PRESSER UNE TOUCHE":ES1:230:ES0::UCHE":ES1:230:ES0::HE DES ECRANS "::2258T$"GRAPHIQUES"::225:::".":T$"IL VOUS SUFFIRA POUR CELA DE PRESSER LA TOUCHE APRES UN TINTEMENT DE LASONNETTE, COMME CELUI QUE VOUS ALLEZ SU-REMENT ENTENDRE.":225:198:y:T$"PENDANT LA RESOLUTION DES PE ******************************R * COURTE PRESENTATION *~ ******************************:7:T$"VOUS POURREZ OBTENIR LA COPIE DE L'ECRAN":225:T$"TEXTE"::225:T$" SUR VOTRE IMPRIMANTE (SLOT 1) MAISPAS CELL625::I1211:20DT,90:DTDT20:625:ygI16:DTDT20:2DT,60:625:DTDT20::I16:20DT,90:DTDT40:625:lI16:DTDT40:3DT,60:625::DTDT20:I16:20DT,90:DTDT40:625::630qJ114:BZ(49200):J:v1::{:&BLE----------------------------------------":145:--":145::155:T$"]70 PRINT D$"G$"RUN PROGRAMME 1"G$:155:T$"]80 PRINT D$"G$"RUN PROGRAMME 2"G$:155:T$"]90 ETC...":155::@:"ATTENTION! PROGRAMME ";::"MENU";::)S$: :0 ******************************T *** PLUS HUIT OCTETS ***x ******************************~ : LI1260 P6(6):P7(7) C1:N$"":I18231826:N$N$((I)128)::N$(("000"N$),4) 8:32:C2: : *?",I,9)::198 P140:320# Z:G d******************************k n*** PRIORITE AUX GOSUB *** x****************************** : 18::958:T$ :21:868: 21:12::"RETURN POUR STOPPER":: SA$SA$S$(32):S$(V8  6000 :(12);(21):2D$(4):1140M(I110:T$T$"____":2:"- SAISIE ASSISTEE D'UN PROGRAMME EN LM -":<LIGNES$"15361664179219201064119213201448157617041832196011041232" FI1279:2(I8)9:32:("ADRESSE DE DEPARTSVP       FICHIER,SAISIR DES DONNEES,MODIFIER LES TITRES,TRACER LE GRAPHIQUE,CHANGER DE MODE,MEMORISER LE GRAPHIQUE,MEMORISER LES DONNEES,IMPRIMER LE GRAPHIQUE,MODIFIER LA ROTATION,FIN DE TRAVAIL 4:: >51,0:110*** :24693:ER(222)ER6ĺD$"OPEN"F$:D$"CLOSE"F$:D$"DELETE"F$:21::958:"FICHIER INEXISTANT":I11500::21:958:216,0:1510 L(218)(219)25622:1:958:"ERREUR NUMERO ";::ER;::" LIGNE ";::L:  * LIRE UN........................."A:52:T$;:1:"";T$:T$""1960UTI$(I)(T$,40)zJI2:5I2:1:868:TI$(I):I21930110:********************************* TRAITEMENT D'ERREURS ******************************CEPERA QUE LES DIX MEILLEURES DONNEES"F:N12LINNN1PD1710VN:zX******************************b*** LECTURE DES TITRES ***l******************************v::I0II1:T$TI$(I):T$""T$"..............L$"..........."620:1:L$;:1:"";L$:L$""1790KTE$(LI)(L$,12)20:1:958:TE$(LI);15);Z(LI);:15:"";L$:L$""1860I1(L$):((L$,I,1))48((L$,I,1))571790IZ(LI)(L$)&NS1018501021:"LE DIAGRAMME N'AC ***+******************************1:7TI1N:V$" ":I9V$""dI3:V$;I;4);TE$(I);26((Z(I))));Z(I):18:1:"LIGNE A CORRIGER (0 POUR FIN) ";LI$:LI$"0"110LI(LI$):LI1LI121740L$TE$(LI):L$""2N:Z(I)Z(PP)PPI`TI:IPPN1:Z(I)Z(I1):C(I)C(I1):TE$(I)TE$(I1)::NN1:N101610t^TE$(1)""150h21::958:"COMPLETER LES DONNEES (O/N) ? ";:R$:R$"O"150r:|********************************* DONNEES .RUN,LIST80.LMB,FICHIER.DIRECT,BINDECHEX,LISTAGE.DEMO,LISTAGE,HOMME.LIBRE,HOMME.LIBRE.2C,PAIRIMPAIR,CARACTERES.SOURIS,DISSEQUER,ONERR,TRUCS,LISTAGE.CONTROLE,DIAGRAMME,TRANS80.BASIC,TRANS80.LM.DEMODEMOI:I117:R$:V$" ":I9V$""; I3:V$I" "(R$,16):R :32,0:33,40:21i I110:"____";: 23:1::"NUMERO";::" DEMANDE (OU 0 POUR FIN) ";:"";R$:R$"0"ĉ:: R(R$):R1R17180 :I1R:R$::21:(4)"RUN"R$ MENUquette":"avant d'en utiliser":"les programmes."w d:"N'oubliez pas qu'ils":"fonctionnent sous":"DOS 3.3 normal." n:"Description":"dans le NUMERO 2":"de TREMPLIN MICRO" x32,21:33,19: 4:1::" PROGRAMMES ":4:" EN BASIC "::  :(21)::-"********************H"* *c("* TREMPLIN MICRO *~2"* GUY-HACHETTE 85 *<"* NUMERO 2 *F"* *P"********************1 Z::"UN CONSEIL:";::" Copiez":"cette dis   HAMAILLERIE,DISTRACTION,INFORMATIQUE,RECONSTRUCTION,INVITATION,COURAGEUSEMENT,EXCENTRICITE,NEBULOSITE670:D2000:Z62:670:D16384:Z66:670:660dD16384:Z60:670:D17360:Z62:670:D1024:Z66:670768,160:769,0:770,76:771,44:772,254:768:Z,D(D256)256:Z1,(D256)::e ACCELERATEUR,ALIMENTATION,AUTOCHENILLE,BARAGOUINEUR,C:<&198:" <1> UNE AUTRE PARTIE <2> TERMINE ? ";:R$R0R$"1"İ650:320c:R$"2"550mD::sN:X ******************************b * DEPLACEMENT DE LA "CAGE" *l ******************************v:+D1024:Z60:J1L:R$L$(J)470DK817:K:J2:" ":K::18:J2:R$:YL$(J)"":NLNL1`Ji39022:868:I11500:: ****************************** * SUITE OU TERMINE * ******************************MOT A SECRET COMPTE "L" LETTRES"( |I02 II1d 17:28:868::NL;::" LETTRE";:NL1ĺ"S" NL0II1:20:1:868:"CAGE OUVERTE EN ";::I;::" ESSAIS":490 :22:1:868:"LETTRE PROPOSEE -> ";:R$:"" (R$)65(R$)90420 ******************************F " * CHOIX DU MOT *m , ******************************s 6: @M1((1)N): JI1M:M$:I TL(M$):I1L:L$(I)(M$,I,1): ^16:28:"ENCORE":18:28:"A TROUVER" hNLL r20:"LE "CAGE" *4 ******************************: :B :j :22:10:"-*- PATIENCE SVP -*-": I217:J224:I:J:"|":: 1: I125:" ";:: I217:I:1:" ";:25:" ": I125:" ";::: 640: :  homme setrouve... en cage, mais chaque BONNE RE-PONSE lui entrouvre la porte et, finale-ment, pour lui, c'est la LIBERTE!" x 22:"PRESSEZ UNE TOUCHE POUR LE PREMIER MOT ";:R$ : ****************************** * TRACE DE LAns, alors que leur seule faute est de ne pas trouver le MOT CACHE!"^ Z:I48:I:" ":: d:"C'est pourquoi je vous propose une autreversion, plus pacifique, sinon plus amu-sante: le JEU DE L'HOMME LIBRE."z n:"D'accord, pour commencer, le bonf  17400:(21)::)L$(15)D(N12: NOMBRE DE MOTSf29)"LE JEU DE L'HOMME LIBRE"<9)"-----------------------"FE P" Vous connaissez certainement le JEU DU PENDU. On ne peut pas dire que ce soit folichon de pendre les ge     HAMAILLERIE,DISTRACTION,INFORMATIQUE,RECONSTRUCTION,INVITATION,COURAGEUSEMENT,EXCENTRICITE,NEBULOSITE670:D2000:Z62:670:D16384:Z66:670:660dD16384:Z60:670:D17360:Z62:670:D1024:Z66:670768,160:769,0:770,76:771,44:772,254:768:Z,D(D256)256:Z1,(D256)::e ACCELERATEUR,ALIMENTATION,AUTOCHENILLE,BARAGOUINEUR,C:<&198:" <1> UNE AUTRE PARTIE <2> TERMINE ? ";:R$R0R$"1"İ650:320c:R$"2"550mD::sN:X ******************************b * DEPLACEMENT DE LA "CAGE" *l ******************************v:+D1024:Z60:J1L:R$L$(J)470DK817:K:J2:" ":K::18:J2:R$:YL$(J)"":NLNL1`Ji39022:868:I11500:: ****************************** * SUITE OU TERMINE * ******************************MOT A SECRET COMPTE "L" LETTRES"( |I02 II1d 17:28:868::NL;::" LETTRE";:NL1ĺ"S" NL0II1:20:1:868:"CAGE OUVERTE EN ";::I;::" ESSAIS":490 :22:1:868:"LETTRE PROPOSEE -> ";:R$:"" (R$)65(R$)90420 ******************************F " * CHOIX DU MOT *m , ******************************s 6: @M1((1)N): JI1M:M$:I TL(M$):I1L:L$(I)(M$,I,1): ^16:28:"ENCORE":18:28:"A TROUVER" hNLL r20:"LE "CAGE" *4 ******************************: :B :j :22:10:"-*- PATIENCE SVP -*-": I217:J224:I:J:"|":: 1: I125:" ";:: I217:I:1:" ";:25:" ": I125:" ";::: 640: :  homme setrouve... en cage, mais chaque BONNE RE-PONSE lui entrouvre la porte et, finale-ment, pour lui, c'est la LIBERTE!" x 22:"PRESSEZ UNE TOUCHE POUR LE PREMIER MOT ";:R$ : ****************************** * TRACE DE LAns, alors que leur seule faute est de ne pas trouver le MOT CACHE!"^ Z:I48:I:" ":: d:"C'est pourquoi je vous propose une autreversion, plus pacifique, sinon plus amu-sante: le JEU DE L'HOMME LIBRE."z n:"D'accord, pour commencer, le bonf  17400:(21)::)L$(15)D(N12: NOMBRE DE MOTSf29)"LE JEU DE L'HOMME LIBRE"<9)"-----------------------"FE P" Vous connaissez certainement le JEU DU PENDU. On ne peut pas dire que ce soit folichon de pendre les ge     7:16368,0:140m21:5:"<";::"I";::"> POUR IMPRESSION DE SAISIE ";:198:R$:R$"I"R$"i"1070}$:D$"PR#1".G$D1$"."D2$" N1726G":I1(G$):511I,((G$,I,1))128::72,0:1448:B:L******************************!$"NOMON C,I,O":50,255 NN1e772,N:D2$"":21:36,30:768:I16461649:D2$D2$((I)128):k:********************************* IMPRESSION EVENTUELLE *********************************:198:16398,0:16384,128,12*************1z*** ECRITURE DU FICHIER ***U******************************[:150:21:5:"TITRE DU FICHIER A CREER ? ";TI$:TI$""920(TI$)65(TI$)90920D$"MONC,I,O"140:21:D$"BSAVE"TI$",A$"AD$",L"L:50,128DHAMAILLERIE,DISTRACTION,INFORMATIQUE,RECONSTRUCTION,INVITATION,COURAGEUSEMENT,EXCENTRICITE,NEBULOSITE^670:D2000:Z62:670:D16384:Z66:670:660dD16384:Z60:670:D17360:Z62:670:D1024:Z66:670768,160:769,0:770,76:771,44:772,254:768:Z,D(D256)256:Z1,(D256)::e ACCELERATEUR,ALIMENTATION,AUTOCHENILLE,BARAGOUINEUR,C:<&198:" <1> UNE AUTRE PARTIE <2> TERMINE ? ";:R$R0R$"1"İ650:320c:R$"2"550mD::sN:X ******************************b * DEPLACEMENT DE LA "CAGE" *l ******************************v:+D1024:Z60:J1L:R$L$(J)470DK817:K:J2:" ":K::18:J2:R$:YL$(J)"":NLNL1`Ji39022:868:I11500:: ****************************** * SUITE OU TERMINE * ******************************MOT A SECRET COMPTE "L" LETTRES"( |I02 II1d 17:28:868::NL;::" LETTRE";:NL1ĺ"S" NL0II1:20:1:868:"CAGE OUVERTE EN ";::I;::" ESSAIS":490 :22:1:868:"LETTRE PROPOSEE -> ";:R$:"" (R$)65(R$)90420 ******************************F " * CHOIX DU MOT *m , ******************************s 6: @M1((1)N): JI1M:M$:I TL(M$):I1L:L$(I)(M$,I,1): ^16:28:"ENCORE":18:28:"A TROUVER" hNLL r20:"LE "CAGE" *4 ******************************: :B :j :22:10:"-*- PATIENCE SVP -*-": I217:J224:I:J:"|":: 1: I125:" ";:: I217:I:1:" ";:25:" ": I125:" ";::: 640: :  homme setrouve... en cage, mais chaque BONNE RE-PONSE lui entrouvre la porte et, finale-ment, pour lui, c'est la LIBERTE!" x 22:"PRESSEZ UNE TOUCHE POUR LE PREMIER MOT ";:R$ : ****************************** * TRACE DE LAns, alors que leur seule faute est de ne pas trouver le MOT CACHE!"^ Z:I48:I:" ":: d:"C'est pourquoi je vous propose une autreversion, plus pacifique, sinon plus amu-sante: le JEU DE L'HOMME LIBRE."z n:"D'accord, pour commencer, le bonf  17400:(21)::)L$(15)D(N12: NOMBRE DE MOTSf29)"LE JEU DE L'HOMME LIBRE"<9)"-----------------------"FE P" Vous connaissez certainement le JEU DU PENDU. On ne peut pas dire que ce soit folichon de pendre les ge      8  桥j i i ϥɸ` 4,160,14,24,106,176,10,230,6,165,6,201,0,208,2,230,7,24,165,8,105,1,133,8,165,9,105,0,133,9,201,11,208,207,165,8,201,184,208,201,966::198:23:1:"ENFONCEZ UNE TOUCHE ":16368,0:16384,128:: 32,174,239,160,14,169,0,32,127,233,230,161,165,161,133,10,170,254,160,14,24,106,176,10,230,6,165,6,201,0,208,2,230,7,9632,174,239,160,14,169,0,32,127,233,230,161,165,161,170,25T EN LANGAGE MACHINE (ON NE RENVOIE PLUS LES NOMBRES ALEATOIRES AU BASIC, MAIS ON FAIT TOUJOURS LES TOTALI-SATIONS.": 165:768:121 :"16 SECONDES... C'EST ENCORE MIEUX!":165:: :(21)::P3744:I37443999:I,0::I610:I,0::D  n165:198 sI130001 x768:N(10):IR y:TT1:IM(6)(7)256:55y }::93;::" SECONDES EN BASIC": ::43;::" SECONDES AVEC LM ": I768823:R:I,R: 165:160y "POUR TERMINER, VOICI LE MEME PROGRAMME, ENTIEREMENAIRS" UIM$"I"ĺ(4)"PR#0"7 Z:165:160:T1125D _T2155 d"VOICI LE MEME PROGRAMME, MAIS AVEC LE NOMBRE ALEATOIRE GENERE PAR UNE ROUTINE EN LANGAGE MACHINE, ET LES NOMBRES PAIRSCOMPTES PAR CETTE MEME ROUTINE.":: iI768802:R:I,R:ΡŠŠԠբ̠ԠΠŭ Šԍōԍōō΍̍ҍԭōӍӠӠӠӠӍħӠŠŠŠӍ Ϡ ԠԤݷԠĤǤΠŠǤ ԠԤݸԠĤǤΠŠǤ ԠԤݹî ԠԠԠԠΠԤݳ̠ ԠԤݴ̠ŠԠŠ ԠԤݵҠˠƠҠҠҠӠΠ ԠԤݶΠҠǠ󺢺 ԠԠԠԠԤݱԺԠҤĤҤҤ ԠԤݲԠĤǤĠբǤ Ԡ͠͠ŠŠà͠ŠǤҤԤŠŠΠàŠ  ̠ԠԠԤ챴ŠϠҠɠϠΠԤŠŠŠŬàĤԤɬԠΠ  ԠΠҠŇԠäƠäΠҠϠƠäΠŠՠԠŠ͠  ̠ԠŠլ̢Š ԠҤŠլ̢Š ̠ ̠ ŠŠŬàĤɤɩʬԠԠԤԤŠ ŠŠŠŬԤ ԠɺŠԺŠӺԠ͠͠ҠɠϠŠŠӠàĤՠՠҢɬƠӠΠŠŬӺϠŠŬӠԠŠŠŠŬҠɠϠɺŠŠŠŬàҤɩҠʠϠΠɤɩŠŠΠŠ͠͠ҠɠϠɺƠΠɤɩ͠Π͠ΠɤɩԠŠͩԤҠɠӠϠԤԤҤԠ >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```xxa8888866$, e (B'$r! *,888886w6~~~~`p83;?73  30?30038<63?00?0333?3 333333>0   ~~ 8  r49237,0:49234,0:49239,0:49232,0:198:R$:::150b |TR0:I1N1:Z(I)Z(I1)400 TZ(I):Z(I)Z(I1):Z(I1)T:TC(I):C(I)C(I1):C(I1)T:T0:L$TE$(I):TE$(I)TE$(I1):TE$(I1)L$:L$"":TR1 :TR1380RM0ROPI4RO360PI:)0(R$)361RO(R$):RM0$ 150* ":N ,******************************r 6*** PREPARATION *** @****************************** J: TGH1380 ^22:1:" POUR EFFACER LE GRAPHIQUE ACTUEL ";:R$:R$"O"410 hR$"N"827)E:841,(841)E:845,(845)E: DE TREMPLIN MICRO.":198:16368,0:16384,128:::P VALEURS POUR ECRAN B 776,(776)E:789,(789)E:823,(823)E:827,(827)E:841,(841)E:845,(845)E: RETABLISSEMENT DES VALEURS$ 776,(776)E:789,(789)E:823,(823)E:827,(:23! Z815:AFFICHE ECRAN A K dR$:::"RETOUR ECRAN B ";:R$::23o n150:815:170:AFFICHE ECRAN B xR$:(R$)3806 :12:"POUR BIEN COMPRENDRE LE FONCTIONNEMENT DE CES TRANSFERTS, LISEZ"::"LA FICHE NUMERO 2 INSEREE DANS LE NUMERO 2% (4)"PR#3"::E83(4)"BLOAD TRANS80.LM"WI1110:"AAAAAAAAAAAAAAAA";:p(768::MEMO ECRAN A2I1110:"BBBBBBBBBBBBBBBB";:::23::"CTRL-C POUR ARRETER";:<R$F150:768:170:MEMO ECRAN B P:"RETOUR ECRAN A ";:R$:    J1L:R$L$(J)470DK817:K:J2:" ":K::18:J2:R$:YL$(J)"":NLNL1`Ji39022:868:I11500:: ****************************** * SUITE OU TERMINE * ******************************MOT A SECRET COMPTE "L" LETTRES"( |I02 II1d 17:28:868::NL;::" LETTRE";:NL1ĺ"S" NL0II1:20:1:868:"CAGE OUVERTE EN ";::I;::" ESSAIS":490 :22:1:868:"LETTRE PROPOSEE -> ";:R$:"" (R$)65(R$)90420 ******************************F " * CHOIX DU MOT *m , ******************************s 6: @M1((1)N): JI1M:M$:I TL(M$):I1L:L$(I)(M$,I,1): ^16:28:"ENCORE":18:28:"A TROUVER" hNLL r20:"LE "CAGE" *4 ******************************: :B :j :22:10:"-*- PATIENCE SVP -*-": I217:J224:I:J:"|":: 1: I125:" ";:: I217:I:1:" ";:25:" ": I125:" ";::: 640: :  homme setrouve... en cage, mais chaque BONNE RE-PONSE lui entrouvre la porte et, finale-ment, pour lui, c'est la LIBERTE!" x 22:"PRESSEZ UNE TOUCHE POUR LE PREMIER MOT ";:R$ : ****************************** * TRACE DE LAns, alors que leur seule faute est de ne pas trouver le MOT CACHE!"^ Z:I48:I:" ":: d:"C'est pourquoi je vous propose une autreversion, plus pacifique, sinon plus amu-sante: le JEU DE L'HOMME LIBRE."z n:"D'accord, pour commencer, le bonf  17400:(21)::)L$(15)D(N12: NOMBRE DE MOTSf29)"LE JEU DE L'HOMME LIBRE"<9)"-----------------------"FE P" Vous connaissez certainement le JEU DU PENDU. On ne peut pas dire que ce soit folichon de pendre les ge   N 80 COLONNES:!160:280C198:16368,0:16384,128:N:I123:A$;: r:M |COPIE DE L'ECRAN 80 COLONNES EN MEMOIRE AUXILIAIRES :a 150:200g : FENETRE AU CENTRE DE LA PAGE : 8:N18:25:B$: : ATTENTE D'UNE TOUCHE : C$ : MEMOIRE AUXILIAIRE VERS ECRAE AUXILIAIRE ($400), SECONDE PARTIE) 6:p @16299,0:60,0:61,68:62,248:63,71:66,0:67,4:768:16300,0:v J: TECRAN DEMO REMPLI DE CHIFFRES POUR UN ESSAI DE TRANSFERT ^: hN18:A$A$"0123456789"::B$" "16299,0:60,0:61,4:62,248:63,7:66,0:67,68:768:16300,0:G : MEMOIRE AUXILIAIRE ($4000) VERS MEMOIRE PRINCIPALE ($400), PREMIERE PARTIE : 60,0:61,64:62,248:63,67:66,0:67,4:768 ":# ,MEMOIRE AUXILIAIRE ($4400) VERS MEMOIRRE PRINCIPALE) :f COPIE DE L'ECRAN (MEMOIRE PRINCIPALE) A L'ADRESSE $4000 (MEMOIRE AUXILIAIRE)l : 60,0:61,4:62,248:63,7:66,0:67,64:768 : COPIE DE L'ECRAN (MEMOIRE AUXILIAIRE) A L'ADRESSE $4400 (MEMOIRE AUXILIAIRRE) :A CLOSE"! :D$"PR#0":A$::250/ ER(222)U ER6ĺ:"FICHIER INEXISTANT":70k ER5Ĺ216,0:200u ::  162,0,32,111,253,160,2,138,145,105,200,169,0,145,105,200,169,2,145,105,138,96MF$"?"ė::D$"CATALOG":F$:::70> Z(F$)65(F$)9070H d220\ n:D$"VERIFY"F$ x:5:958:" POUR IMPRIMANTE ";I$ : I$"I"ĺD$"PR#1": 220 D$"OPEN"F$",D1" D$"READ"F$ 768:T$(A$,1):T$ 170 D$") A$" ": INPUT OBLIGATOIRE LIGNE 105D$(4)J:(12);(21):(:"-* LECTURE-CONTROLE D'UN FICHIER *-"::34,22I768789:P:I,P:<22:"-------- POUR CATALOGUE ----------"F:3:"TITRE A LISTER ";F$:F$""250$ P   ĤҤԺĤТųĤТ԰ĤТųčD:-I ******************************VN * TRAITEMENT DES ERREURS * ~S ******************************X:]768,104:769,168:770,104:771,166:772,223:773,154:774,72:775,152:776,72:777,96:b:D$"LOCK"G$gD$"UNLO1:958:"SLOT DE L'IMPRIMANTE ";:H$:(H$)13H$"1"G!H$"?"520U&H22:575q+D%(H$):D%3D%65400V2:1:"ALLUMEZ L'IMPRIMANTE":198:16368,0:16384,128:5D$"PR#"D%:(9)"160N";:P$;:O$:D$"PR#0":?V:H::H$:::C$(K$,I,1):L%((K$,I1,3)):C$H$535pL%C%M%Ģ15:1:958:"LONGUEUR MAXI AVEC "H$"=";::L%::470 H$"?"500C1I:C0Ģ15:1::"CODES IMPRIMANTE:";::" ";:I1284:(K$,I,1)"-"((K$,I1,3))" ";::"":4707V13:13:$"":145 C%(H$):H19:575XV11:V:1:"LARGEUR DE MARGE ";H$:H$""H$"10"hH$"?"470O$I$"L0"H$:M%(H$):H19:575V12:V:1:"CARACTERE IMPRIMANTE ";H$:H$""H$"E"H$"?"485P$I$H$:C0:H22:575+I1284***********************:LI$(27):K$"n072N080E096q120Q136P160p144":35,24:21:"PARAMETRES PAR DEFAUT = L80 M010 E SLOT1 POUR REVENIR EN ARRIERE, TAPER UN ":35,18V10:V:1:"LONGUEUR DE LIGNE ";H$:H$""H$"80" H$"?"ġ:G52D$"PR#"D%:(14)" "I$"X"N$I$"Y"(15):::mB%0:A%P%āIP%1A%:B%B%1:L$(B%)L$(I):L$(I)"":wA%B%FIN1S$"E"ġ:675: ****************************** * PARAMETRES DE L'IMPRIMANTE * *******P%64:P0P%61*rA%P%B53B5285@wS$"E"İ415:285N|P0İ410vPP1:D$"PR#"D%:I1P%:L$(I)::M$" PAGE "(P)" ":A(C%(M$))2:M$" "(E$,A)M$(E$,A):M$:(12):D$"PR#0"I1P%:L$(I)"":FIN1675415:28"JK5L5K:L$(V$,L)L$:345)OK>TP%64:P0P%58hYL(L$):LC%A%A%1:L$(A%)L$:365^A%A%1:L$(A%)(L$,C%):L$(L$,LC%)cL(L$):L(C%5)A%A%1:L$(A%)V$L$:365hA%A%1:L$(A%)V$(L$,C%5):L$(L$,L(C%5)):355m***** :D$"OPEN"J$1D$"READ"J$:L$""K"C$:V(C$):V13315Y'S%1305t,V96V123C$(V32)1L$L$C$:(L$)2553156290;D$:B$L$:V$" ":L$""285@(49250)127ĺD$"CLOSE"::10EK15:(L$,K,1)" "3355:1:"ENTETE DU LISTAGE A EFFECTUER":35,24[ 1:17:"=> ";N$:N$""(N$)38ĺ"":245 35,24:15:1:958:N$:T$:34,17: :  ******************************  * LECTURE DU FICHIER * *************************0& S$"E":C%80:G$"E"G$"":1455 G$"":140` "<1> AVEC minuscules <0> SANS ";:155 G$"1"G$"0"G$"":145 S%0:G$"1"S%1 S$"E"Ĺ35,24::21:T$:" POMME FERMEE POUR ARRETER":35,20:19:280 S$"O"İ460, 1868 S175,195,215) :G$;::R$< (R$)13100K G$""145^ S180,200,220 "TITRE DU FICHIER  ";:155 (G$)65(G$)90G$"":145 610 J$G$:G$"":140 "CRAN MPRIMANTE ";:155 G$"I"S$"O":21E DES PARAMETRES *> Z ******************************D _:Z dR(R$):R31125g iR6690 nR0R3ĺ::D$"CATALOG,D"R:R$:::145 sR3S2145 xSS1:130 }G$G$R$:145 G$"":145 S0:S$"E" SS1 2S2:1: FICHIER --- LECTURE & IMPRESSION ":B 72:T$:34,3:20:T$v <22:"CTRL-A = CATALOG D1 CTRL-B = CATALOG D2" A23:"CTRL-C = CORRECTION CTRL-F = FIN-ERREUR" F3:35,18:135 K: P ****************************** U * SAISIM ::(21):605: SOUS-PROGRAMME DE TRAITEMENT DES ERREURS (PAUL MERRY)W620cL$(70)44452,11:44605,10: 10 LIGNES DE CATALOGB$(1):D$(13)(4)#T$"":I110:T$T$"____":(I125:E$E$"----":-1:" ";:) 2"       SATION DE LA ROUTINE $C311 (APPLE //e et //c)3 Z:X d769,32:770,17:771,195:772,96a n360g x: RETENUE (CARRY) MISE A 1 OU A 0 : 768,56::CARRY=1 (ECRITURE EN MEMOIRE AUXILIAIRE) 768,24::CARRY=0 (MEMOIRE AUXILIAIRE VERS MEMOID5 *********************************************i ***** EXEMPLE DE TRANSFERT D'UN ECRAN ***** ***** DE 80 COL EN MEMOIRE AUXILIAIRE *****( *********************************************2:<(4)"PR#3":(12)F:- P UTILI R DISQUETTEAVANT DE FAIRE UN PREMIER RUN!"CI:","]0 POKE 214,255","APRES QUOI VOUS SEREZ VOUS-MEME PRIS AU PIEGE!" "UN CALL-151,SUIVI DE *D6:00 RETABLIRAIT LA SITUATION, MAIS ON NE PEUT JUSTEMENT PAS FAIRE DE CALL..."* "MORALITE: SI VOUS UTILISEZ CE STRATAGEME... SAUVEZ VOTRE PROGRAMME SU18,0","]POKE 118,0:INPUT A$ ]POKE 118,0:GET A$" "COMMENT PROTEGER (ASSEZ SOMMAIREMENT) UNPROGRAMME EN BASIC, EN TRANSFORMANT LES COMMANDES DE L'APPLE EN AUTANT DE RUN!"G "TOUT SIMPLEMENT EN TAPANT SA PREMIERE LIGNE COMME CESUR N'IMPORTE QUELLE TOUCHE ":19:35,20:198:16368,0:16384,128,127:16368,0:35,24 23:" POMME OUVERTE ABREGERA VOTRE ATTENTE":19:35,20: COMMENT EXECUTER UN INPUT (OU UN GET) ENMODE IMMEDIAT ?C "EN LA FAISANT PRECEDER PAR POKE 1R$:190:200:# n:R$:190:200- x::I :::"QUESTION":::` :"REPONSE"::: I110:J110:X(49200):J K1100:((49249))127ı K:I: I1(R$):J15:X(49200)::(R$,I,1);::"":Y 35,24:23:" APPUYEZ + :(12);(21):7T$"":I110:T$T$"____":[10:"DES TRUCS POUR APPLE":T$l(21:T$:205v234,3<130:Q$:Q$::160F140:R$:190:R$:::190:200P130:Q$:Q$::160Z140:R$:190:R$::190:R$::190:200: d:OUR CREER ";::"LIST";::" ";:R$::34,22:10E 198:198:255b 216,0:(4)"CLOSE":100D::60 :"ATTENTION! SI LE NOMBRE DE LIGNES DE VO-TRE PROGRAMME DEPASSE 59999, VOUS DEVREZMODIFIER "(34)"FAITLIST"(34)", EN LUI DONNANT (PAREXEMPLE) LE NUMERO ZERO." 1:1::"0";::" " 198:198:2550 22:1:"ENFONCEZ UNE TOUCHE PEZ UNE TOUCHE S.V.P.";:R$:: :"* ENSUITE, AVANT D'UTILISER LE PROGRAMME ";::"LISTAGE";::" IL VOUS SUFFIRA DE TAPER:" :" - LOAD ...TITRE DU PROGRAMME A EDITER" :" - EXEC LIST"::" - RUN 60000"::" - RUN LISTAGE" I13000220( <(4)"OPENLIST":(4)"READLIST"0 FR$V PL$(I)L$(I)R$:(L$(I))40II1^ Z70w dJ0I:J1:L$(J): n34,3:4 x:"C'EST LA LIGNE 20 DE CE PROGRAMME QUI VACREER VOTRE FICHIER "(34)"EXEC ";::"LIST";::(34) :198:"ENFONCc:(21)::50) D$(4):G$(34)QD$"OPENLIST":D$"WRITELIST":33,30R$"60000D$=CHR$(4):PRINT:PRINTD$"G$"OPENP"G$":POKE33,30:PRINTD$"G$"WRITEP"G$":LIST0,59999:PRINTD$"G$"CLOSEP"G$":POKE33,40:END"(R$:D$"CLOSELIST": 2    z ????x ՠ ĠӸ͠Ӹà ӸͮϠ  Ҡ Ӡ ŮŠŠ ͠ à ı ŮŮà РҠ Үͫ ҫ ӮӠҠ ҲдŮԠŮϠŠԠŮŠ  ծծϱ ӠԸ  ԸàҮԠ ؠ ՠծΠծàЮàՠΠϠ٭ŠϠ*******************9{*** Routine en langage.mac *** ]******************************c:A768850:B:A,B:::B0160,2,165,105,133,6,165,106,133,7,169,240,145,6,200,169,14,145,6,200,169,64,145,6,173,233,183,141,47,3,173,234,183,141,4U$" - PATIENCE SVP!":O$" POUR OPTIONS":R$"DEBUT"pXT$"INSEREZ LA DISQUETTE DANS LE DRIVE "D$:10:75]T$"& PRESSEZ POUR "R$:12:75:K82615b(0)1İ690g21:P$:T$O$" "R$:23:75:35,20l150q:v***********15,64:5916,249:5917,96e5918,165:5919,7:5920,166:5921,6:5922,32:5923,36:5924,237:5925,965926,32:5927,251:5928,218:5929,32:5930,147:5931,254:5932,32:5933,88:5934,252:5935,76:5936,208:5937,3C15900:C25918:******************************BV*** ROUTINE ADDITION HEXA ***f`******************************lj:t5900,165:5901,6:5902,24:5903,105:5904,8:5905,133:5906,6:5907,170:5908,144~5909,2:5910,230:5911,7:5912,164:5913,7:5914,32:59198:16398,0:16384,128,127:16368,0:14021:5:"<";::"I";::"> POUR IMPRESSION DE SAISIE ";:198:R$:R$"I"R$"i"1070$:D$"PR#1".G$AD$"."D2$" N1726G":I1(G$):511I,((G$,I,1))128::72,0:1448:B:LE"TI$",A$"AD$",L"L:50,1287D$"NOMON C,I,O":50,255ANN15904,N:D2$"":21:36,30:C1:I16461649:D2$D2$((I)128)::********************************* IMPRESSION EVENTUELLE *********************************:10Ā f:.p******************************Rz*** ECRITURE DU FICHIER ***v******************************|:150:21:5:"TITRE DU FICHIER A CREER ? ";TI$:TI$""920(TI$)65(TI$)90920D$"MONC,I,O"140:21:D$"BSAV**************2*** SAUVEGARDER HUIT LIGNES **V ******************************\*:4G$D1$":"SA$"ND823G":SA$"">I1(G$):511I,((G$,I,1))128::72,0:144HF1V8:520RN23LLI8:N8:920\N(N1)3:L(LI88)N:LѠ堳Ʈ䬠   쬠᭠P嬠P嬠񠠠   堠ŠԠ0>  2064<  : o X`  ()     宠庠&    -       T (` '$ %` X % T \ ɪ %% T L7 ɣ L7 ` $ "`G$"RUN PROGRAMME 1"G$:155:T$"]80 PRINT D$"G$"RUN PROGRAMME 2"G$:155:T$"]90 ETC...":155::@:"ATTENTION! PROGRAMME ";::"MENU";::TATION,AUTOCHENILLE,BARAGOUINEUR,CHAMAILLERIE,DISTRACTION,INFORMATIQUE,RECONSTRUCTION,INVITATION,COURAGEUSEMENT,EXCENTRICITE,NEBULOSITE"**********v:MD1024:Z60:670:D2000:Z62:670:D16384:Z66:670:660D16384:Z60:670:D17360:Z62:670:D1024:Z66:670768,160:769,0:770,76:771,44:772,254:768:Z,D(D256)256:Z1,(D256):: ACCELERATEUR,ALIMEN ******************************&:^&198:" <1> UNE AUTRE PARTIE <2> TERMINE ? ";:R$t0R$"1"İ650:320:R$"2"550D::N:X ******************************b * DEPLACEMENT DE LA "CAGE" * l ********************:""(R$)65(R$)904209J1L:R$L$(J)470fK817:K:J2:" ":K::18:J2:R$:{L$(J)"":NLNL1J39022:868:I11500:: ****************************** * SUITE OU TERMINE *  "A TROUVER" hNLLB r20:"LE MOT A SECRET COMPTE "L" LETTRES"J |I0T II1 17:28:868::NL;::" LETTRE";:NL1ĺ"S" NL0II1:20:1:868:"CAGE OUVERTE EN ";::I;::" ESSAIS":490:22:1:868:"LETTRE PROPOSEE -> ";:R$ ";::: 640: :A  ******************************h " * CHOIX DU MOT * , ****************************** 6: @M1((1)N): JI1M:M$:I TL(M$):I1L:L$(I)(M$,I,1): ^16:28:"ENCORE":18:28:堳Ʈ䬠   嬠P嬠ŠԠ0쬠᭠P  ()     宠庠&    -     堠     T ~ $ "`   1ŠϠ2ŠϠ3ŠϠ4ŠϠŠ T$"]80 PRINT D$"G$"RUN PROGRAMME 2"G$:155:T$"]90 ETC...":155::@:"ATTENTION! PROGRAMME ";::"MENU";:: (4)"PR#3":(17):(I64954:#VV2:H9:VN-JII3:HH10w2H:(24);J;"....";::(27);(J);:7J::I<(24) I (` '$ %` X % T \ ɪ %% T L7 ɣ L7 ` $ "`   1ŠϠ2ŠϠ3ŠϠ4ŠϠŠ Ӎɠà֠ՠՠ **********v:MD1024:Z60:670:D2000:Z62:670:D16384:Z66:670:660D16384:Z60:670:D17360:Z62:670:D1024:Z66:670768,160:769,0:770,76:771,44:772,254:768:Z,D(D256)256:Z1,(D256):: ACCELERATEUR,ALIMEN ******************************&:^&198:" <1> UNE AUTRE PARTIE <2> TERMINE ? ";:R$t0R$"1"İ650:320:R$"2"550D::N:X ******************************b * DEPLACEMENT DE LA "CAGE" * l ********************:""(R$)65(R$)904209J1L:R$L$(J)470fK817:K:J2:" ":K::18:J2:R$:{L$(J)"":NLNL1J39022:868:I11500:: ****************************** * SUITE OU TERMINE *  :I123:A$;: r:M |COPIE DE L'ECRAN 80 COLONNES EN MEMOIRE AUXILIAIRES :a 150:200g : FENETRE AU CENTRE DE LA PAGE : 8:N18:25:B$: : ATTENTE D'UNE TOUCHE : C$ : MEMOIRE AUXILIAIRE VERS ECRA堳Ʈ䬠   嬠P1嬠ŠԠ'쬠᭠P  ()     宠庠*    -     堠ŠРԠҤϠԠԠԠŬӠӠӠΠӡϠҤաРԡƠؠΠΠҤաРġàà  ̠ԠҤɠϠŠԠú̠ƠؠΠΠԠԠԠڠŠԠԠŠŠԠӠŠŠԠ̠ԠԠŠԠ̠  ̠ԠŠŠΤؠ̠ΤƠؠΠƠؠΠΠҤӠڠōԠŠԠڭӠҠΠŠɠҠ̧Ҡ  ԠɠՠΠҤƠҤ΢ҠҤ΢ΠƠҤɢĠҤϢΠΠԠĠ    (` '$ %` X % T \ ɪ %% T L7 ɣ L7 `$ "`   1Š2Ū3Ū4Ū5Ū6Ū7Ū8ůŠ Ū7Ū8ŪŠ РԠҤŠԠԠԠӠӠӠΠӡŠҤɡРԡƠؠΠΠҤɡРġàà  ̠ԠҤՠŠԠú̠ƠؠΠΠԠԠԠڠԠԠԠӠԠ̠ԠԠԠ̠  ̠ԠΤؠ̠ΤƠؠΠƠؠΠΠҤӠڠԠԠڭӠҠΠՠҠ̧Ҡ  ԠՠɠΠҤƠҤ΢ҠҤ΢ΠƠҤբĠҤŢΠΠԠĠ    c8U DC ÍT @C `<=І>?B`U TD=G? T T@=C? `B<CІ>`4,160,14,24,106,176,10,230,6,165,6,201,0,208,2,230,7,24,165,8,105,1,133,8,165,9,105,0,133,9,201,11,208,207,165,8,201,184,208,201,96::198:23:1:"ENFONCEZ UNE TOUCHE ":16368,0:16384,128:: 32,174,239,160,14,169,0,32,127,233,230,161,165,161,133,10,170,254,160,14,24,106,176,10,230,6,165,6,201,0,208,2,230,7,9632,174,239,160,14,169,0,32,127,233,230,161,165,161,170,25T EN LANGAGE MACHINE (ON NE RENVOIE PLUS LES NOMBRES ALEATOIRES AU BASIC, MAIS ON FAIT TOUJOURS LES TOTALI-SATIONS.": 165:768:121 :"16 SECONDES... C'EST ENCORE MIEUX!":165:: :(21)::P3744:I37443999:I,0::I610:I,0::D  n165:198 sI130001 x768:N(10):IR y:TT1:IM(6)(7)256:55y }::93;::" SECONDES EN BASIC": ::43;::" SECONDES AVEC LM ": I768823:R:I,R: 165:160y "POUR TERMINER, VOICI LE MEME PROGRAMME, ENTIEREMENAIRS" UIM$"I"ĺ(4)"PR#0"7 Z:165:160:T1125D _T2155 d"VOICI LE MEME PROGRAMME, MAIS AVEC LE NOMBRE ALEATOIRE GENERE PAR UNE ROUTINE EN LANGAGE MACHINE, ET LES NOMBRES PAIRSCOMPTES PAR CETTE MEME ROUTINE.":: iI768802:R:I,R: #N1((1)255)& (PN,1(PN)> -N2(N2)IMIM1D 2y 7IM$"I"ĺ(4)"PR#1":(27)"E";:(27)"L010":65 <(4)"PR#3" AI151:J16513 F36,J:((" "(IIN)),3)" = "(PIIN);:ININ51 KJ::IN0:I P" "IM" NUMEROS P 4010160"LE PROGRAMME GENERE 3000 NOMBRES ALEA- TOIRES, COMPRIS ENTRE 1 ET 255, ET COMP-TE CEUX QUI SE REVELENT PAIRS"::"TAPER POUR EDITER LES RESULTATS (IM-PRIMANTE DANS LE SLOT 1) -> ";:IM$:IM$ I13000 et: TREMPLIN MICRO." ZT$ d"Voici un petit programme qui peut POSER LE PROBLEME... ou au contraire en donnerLA SOLUTION..." n23:"PRESSEZ UNE TOUCHE POUR LE CHARGER, SVP":16368,0:16384,128 x:(13)(4)"RUNJEU.CRYPT" Iu programme, et rien de plus. Pas de quoi attraper une migraine!" <:" A E I O U devenaient donc: O A U E I (pauvre Y...)" FT$ P"Le fichier JEU contient le texte vrai etle fichier JEU. le texte paru dans votrelivre de chev :(21):+I110:T$T$"____":b1:2::" CRYPTER OU DECRYPTER UN FICHIER ":i(3B 2"La CLEF de notre JEU -------------------- consistait seulement en un petit boule- versement des voyelles d   @8888866$, e (B'$r! *,888886w6~~~~`p83;?73  30?30038<63?00?0333?3 333333>0   ~~ 8  "]20 A = 1 + INT ( RND (1) * 254) : CALL 768,A" "]30 NEXT I: PRINT PEEK (6) + PEEK (7) * 256: CALL - 198" 198 6,0:7,0:I12500 A1((1)254) 768,A I::(6)(7)256" EN 47 SECONDES A PEINE":198 ܺ"60";::" SECONDES" d:"Bon, pas mal, mais voyons maintenant unepetite routine en langage machine, tenezcelle qui va s'afficher... par exemple. Pressez une touche s.v.p." n240 x2:958:787 : :"]10 POKE 6,0: POKE 7,0: FOR I = TO 2)"]30 IF INT (N / 2) = N / 2 THEN A = A + 1":A$(4)"]40 NEXT I":A$(5)"]50 PRINT A"s <I15:A$(I): F::"FAITES UN RETURN...ET TOP CHRONO!"::240::198 PI12500::N1((1)255):(N2)N2AA1 ZI::A;:198:" EN ";::^ :(21):)(4)"BLOAD PAIRIMP"]:" PAIR OU IMPAIR...AVEC QUELQUES OCTETS! ":("Soit le mini-programme suivant: -------------------------------":_ 2A$(1)"]10 FOR I = 1 TO 2500":A$(2)"]20 N = 1 + INT ( RND (1) * 255)":A$(3 173,0,2,201,19,208,2,240,10,162,0,221,29,3,208,6,189,34,3,133,6,96,232,224,5,208,240,240,246 |::D$"RUNMENU"H R1F1$"JEU":F2$"JEU.":V$"AEIOUOAUEI":410q F2$"JEU":F1$"JEU.":V$"OAUEIAEIOU" I797806:I,((V$,I796,1)): 6:"ON PART DE ";::F1$;::" POUR CREER ";::F2$: 100 I768796:R:I,R:::330] R OU CRYPTER *; 6 ******************************A @:t J:" CRYPTER OU DECRYPTER UN FICHIER ": TI110:T$T$"____": ^20:T$ h22:2:"<1> CRYPTER <2> DECRYPTER <3> FIN ";:R$:R$:R(R$)48:R1R2390 rR336022)5ĺ:D$"CLOSE"F1$:216,0:260T 22:868:"PROBLEME NON PREVU AU PROGRAMME":v D$"PR#3":::I1L:L$(I): D$"OPEN"F2$:D$"WRITE"F2$:I1L:L$(I)::D$"CLOSE"F2$:: : " ****************************** , * DECRYPTE D$"READ"F1$",R"N:CA$# 768: CA(6):CA13180O L$L$(CA):130m LL1:L$(L)L$:L$"":130s : ****************************** * ECRITURE DU FICHIER F2$ * ****************************** :! (2^ :(21):"D$(13)(4)/L$(150)8(440>2:h< ******************************F * LECTURE ET RE...CREATION *P ******************************Z:dL0:N0:L$""n240x:15:D$"OPEN"F1$NN1      ";::: 640: :A  ******************************h " * CHOIX DU MOT * , ****************************** 6: @M1((1)N): JI1M:M$:I TL(M$):I1L:L$(I)(M$,I,1): ^16:28:"ENCORE":18:28:RACE DE LA "CAGE" *> ******************************D :L :t :22:10:"-*- PATIENCE SVP -*-": (27): I217:J224:I:J:"_":: (24) 1: I125:" ";:: I217:I:1:" ";:25:" ": I125:"er, le bonhomme setrouve... en cage, mais chaque BONNE RE-PONSE lui entrouvre la porte et, finale-ment, pour lui, c'est la LIBERTE!" x 22:"PRESSEZ UNE TOUCHE POUR LE PREMIER MOT ";:R$ : ****************************** * Tdre les gens, alors que leur seule faute est de ne pas trouver le MOT CACHE!"h Z:I48:I:" ":: d:"C'est pourquoi je vous propose une autreversion, plus pacifique, sinon plus amu-sante: le JEU DE L'HOMME LIBRE." n:"D'accord, pour commenc  17400'(4)"PR#3":(17)::3L$(15)N(N12: NOMBRE DE MOTSp29)"LE JEU DE L'HOMME LIBRE"<9)"-----------------------"FO P" Vous connaissez certainement le JEU DU PENDU. On ne peut pas dire que ce soit folichon de pen    :540&&(4)"PR#0":(4)"PR#3":360,0:S: ** CECI CONCERNE CARTE MID **YD:NIM$:(9)"T":49230(256((IM$,1))):360X:(4)"RUN MENU"]:b ** F I N ** l:v(21)::D:A$A$:A$:(24)23Ĺ24,68:1002:5 ** SI VOTRE INTERFACE FAIT **\ ** DE LA COPIE D'ECRAN SUR ** ** 80 COLONNES : GOTO 590 **:IM$:(9)"81N":24,0TI$""ĺ(27)"X";(14);TI$;(27)"Y";;(15):HD:A$A$:A$:(24)23Ĺ24,((24)1)********************;  ** EDITION DES LISTES **b  ******************************h : 22:1:"SLOT DE L'IMPRIMANTE ? ";IM$:IM$""IM$"1" IM$(4)"PR#"IM$ IM$:(27)"E":(27)"L010":(4)"PR#0":1002:"":23:1:8**************5 J ** LE MOMENT DU CHOIX **\ T ******************************b ^: h"":23:1:868:"<1> IMPRIMER <2> REFAIRE <3> MENU DE DISQUETTE <4> FIN ";:R$:R(R$)48:R1R4360 rR460,110,600,630 |:  **********1"Ĺ58,AD(AD256)256:59,(AD256):AO8:3606 :]  ** SI ADRESSE HEXADECIMALE **c : "B$AO$":A9 "(AD$,2)" 85 3A A9 "(AD$,2)" 85 3B "AO$"G D823G" ,I1(B$):511I,((B$,I,1))128::72,0:144 6: @ ****************12:1:"ADRESSE DECIMALE -> ";AD$:AD$""120K AD(AD$):AD65000170 14:1:"NOMBRE DE LIGNES -> ";NL$:NL$""140 NL(NL$):6,(NL2):7,NL(NL2) 16:1:"TITRE EV.";TI$ : ** SI ADRESSE DECIMALE ** :0 G$" ** PARAMETRES **G Z ******************************M d:Z n(17): x10:1:"<1> ADRESSE DECIMALE <2> HEXA -> ";:G$:G$"1"170 G$"2"120 12:1:"ADRESSE HEXA -> $0000";:18:"";AD$ (AD$)4140 190/ [ A$" "(4)"PR#3":::(4)"BLOAD LIST80.LMC,A$8000"AO32768:AO$"8000":HD32816(327672(17)::430<:F ****************************** P      >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```xxTATION,AUTOCHENILLE,BARAGOUINEUR,CHAMAILLERIE,DISTRACTION,INFORMATIQUE,RECONSTRUCTION,INVITATION,COURAGEUSEMENT,EXCENTRICITE,NEBULOSITE**********v:MD1024:Z60:670:D2000:Z62:670:D16384:Z66:670:660D16384:Z60:670:D17360:Z62:670:D1024:Z66:670768,160:769,0:770,76:771,44:772,254:768:Z,D(D256)256:Z1,(D256):: ACCELERATEUR,ALIMEN ******************************&:^&198:" <1> UNE AUTRE PARTIE <2> TERMINE ? ";:R$t0R$"1"İ650:320:R$"2"550D::N:X ******************************b * DEPLACEMENT DE LA "CAGE" * l ********************:""(R$)65(R$)904209J1L:R$L$(J)470fK817:K:J2:" ":K::18:J2:R$:{L$(J)"":NLNL1J39022:868:I11500:: ****************************** * SUITE OU TERMINE *  "A TROUVER" hNLLB r20:"LE MOT A SECRET COMPTE "L" LETTRES"J |I0T II1 17:28:868::NL;::" LETTRE";:NL1ĺ"S" NL0II1:20:1:868:"CAGE OUVERTE EN ";::I;::" ESSAIS":490:22:1:868:"LETTRE PROPOSEE -> ";:R$`: ;   c'! % c O! `$%  U(8逑T(逑(`(`(4)"PR#"IM$:(9)"T":49230(256(IM$)):360l:v ** F I N ** :(21)::&HD:A$A$:A$:(24)23Ĺ24, 1:868:"NOMBRE ";N$:N$""250& P:: ZL(N$):L970f dI1L:A((N$,I,1)):A47A58Ă:120n n70 xS(N$):N$(S):L(N$): I1L:DLI:N(I)(S10D):SS(N(I)10D) N(I)" "S :198 6:31::2: 32,20:33,20::  :(21)::B" DEUX METHODES POUR DISSEQUER UN NOMBRE "N34,5:(5:"1";:24:"2";:7::"MATHEMATIQUEMENT";:26:"AVEC "(34)"MID$"(34)2<" ESSAI AVEC LA METHODE 1 -----------------------" F198:9: E$"DONNEE INEXISTANTE")jE$:R111507t110:690x~22:120:"OUI POUR "C$" CETTE DONNEE ";:"";O$:O$"O"690R3İ930:1180E$""NMN:NNS:180:NNM:690180:690R3ıO$"2"930'O$"1"990-:T ******************************{ * DESTINATION SUIV. REPONSE *$ ******************************.:822:1BR1100,1100,1100,1190L310V:"ENREGISTREMENT "NS:`E$""************:!R41100B19:1:958:I156:".";:[19:120:657:E$""X512767:(X)141E$E$((X)128):XE$""NL0:690(E$)5693019:1:958:E$22:120:"1. D'ACCORD -- 2. A REFAIRE -> ";:O$20:"NUMERO A ";04C$"LIRE":R2C$"EFFACER"H>R3C$"REMPLACER"kHC$" ? -> ";:"";N$:N$""700RNS(N$):NS1NSN760\1080f:p ******************************z * SAISIE D'UNE DONNEE *  ******************:4:958:198:"CHOIX ? -> ";:R$+R$GR(R$)48:R1R5700X34,16::T$gR5ĉ::tR3920z: ******************************  * NUMERO A LIRE OU EFFACER * ****************************** :*22:1* b:3 l:"IL Y A "N" ENREGISTREMENTS DANS "F$; vT$\ "1. LIRE UN ENREGISTREMENT" :"2. EFFACER UN ENREGISTREMENT" :"3. REMPLACER OU CORRIGER UNE DONNEE" :"4. AJOUTER UN ENREGISTREMENT" :"5. FIN DE PROGRAMME" #14*****,  * CREATION DU FICHIER DIRECT *S  ******************************Y :p D$"WRITE "F$",R0"w &0 0D$"CLOSE" :: D ****************************** N * PETIT MENU GENERAL * X *****************************NS: |:2  ******************************Y  * NOMBRE D'ENREGISTREMENTS *  ****************************** : 480 D$"OPEN "F$",L60" D$"READ "F$",R0" N 560 216,0 :  ************************* D$"CLOSE" R4ġ::620& , :S  ******************************z " * LECTURE DE FICHIER DIRECT * , ****************************** 6: @NSNLı JD$"OPEN "F$",L60" TD$"READ "F$",R"NS ^E$ hD$"CLOSE" rNL,0: x1:198: :@ ******************************g * ECRITURE DE FICHIER DIRECT * ****************************** : D$"OPEN "F$",L60" R4220 D$"WRITE "F$",R0" NN1:N D$"WRITE "F$",R"N G$E$  ::(21):G$(34)+D$(13)(4)8F$"FIC"S(I110:T$T$"----":\2430b<:F ******************************P * PETITES ROUTINES * Z ******************************d: n198:16384,128,127:16368     10101010101 *9D ******************************?I:mNHEX$"0123456789ABCDEF":(4)"BLOADDMP40"S0:2:SH25000:3X:(4)"BLOAD NBR2-23,A"SH]232,SH(SH256)256:233,(SH256)+bI16:DTDT20:2DT,60:DTDT20:625:3DT,60:5,540,545,550,555$20DR,VP:56062DR,VP:560H2DR,VP:560Z!3DR,VP:560l&3DR,VP:560z+BZ0:4650ZZ110:Z(49200):21225,VT:22225,VT::5255:: ****************************** ? * CHARGEMENT ET 0(T(J))495ERER17R$"0"R$"1"BZ0:525@465Y20DR,VP:DRDR15:_: ****************************** * REPONDRE PAR 0 OU 1 SVP * ******************************: BZBZ1:BZ530,53+ * REPONSE A LA QUESTION *W ******************************]:sDRDR15:VPVT1220DR,VP:198:198:R$(R$)27ĉ:198:16368,0:16384,128,127:16368,0:16304,0:16299,0:16297,0:16302,0:465 R$T:DRDR120)J411:T(J)T(J)R:R0@T(J)2T(J)0:R1UINVT105İ460uINDRDR15:T(J)2DR,VT|JINĔ(((((N)),1)))46200,VT:N9Ĕ(((N)))46185,VTINıI: ******************************-------------------------------":240::40u^::12:"<1> ENCORE UNE FOIS <2> C'EST TERMINE ";:R$:R$"1"ė:40}c:hR1mVTVT30:DR25rT(1)0:T(2)0:T(3)0:T(4)0wI015|R1R:IN395DRDR15:18DR,VT I2DR15,V11TR,VT:TR:VTVT5+@NDE(1)DE(2):360:EER0335_JTTTT18:23TT,140:BPBP1:TT0OER0:TT0:VT0:VS0:240:BP12270TI17:I:J1BP:23J18,140::198:+Y(JEUBP)6ĉ::12:"VOUS AVEZ INTERET A REVOIR LA PAGE DEMO ---------**************** :C16304,0:16297,0:16302,0:16299,0c0:0,0:62454:3:JEUJEU1BP0āI1BP:TTTT18:23TT,140:AL12"N1((1)14)'AL2NDE(1)15290,3601DE(AL)N6AL;VTVT10:TR117:1922200):::T198:16368,0:16384,128,127:16368,0:CH(16384):ES1CH27ın"":6,0:7,23:768:I11500::198:: ****************************** * PROBLEMES EN MODE GRAPHIQUE* **************3:1369,112:1374,113:1375,116G 230:JEU0:BP0:VT0:TT0:TR0:270M :y ****************************** * PETITES ROUTINES * ****************************** : I1(T$):(T$,I,1);:J15:X(49A 1800,49:1801,48:1807,50:230:1800,177:1801,176:1807,178g 17::"EXEMPLE";::" 0 1 1 1" " + 0 1 1 1" " ---------" " = 1 1 1 0" 1454,48:1455,49:1456,49:1457,49:1463,55:1366,113:1367,113:1368,11::225:T$" LA BASE EST ":::225::2: :T$"Ainsi, quand on addi-tionne 1 et 1, on pose 0... et la retenue est 1.":225 ::"EXEMPLE";::" 0 0 0 1" " + 0 0 0 1" " ---------" " = 0 0 1 0"UEL VIENT L'UNITE D'ORDRE SUPERIEUR."3 i225:230Q n35,22:32,19:33,21:2: sT$"LA NUMERATION DECIMA-LE EST A BASE 10.":225 x::T$"LE SYSTEME HEXADECI- MAL EST A BASE 16.":225 }:4:15:10:7:16:16: 230+ :9:T$"EN BINAIRE""DECI": 2R1:B$"":% 7I015/ <R1RF A"$0"(HE$,I1,1);d FJ411:T(J)T(J)R:R0{ KT(J)2T(J)0:R1 PB$(T(J))B$ UJ:7:B$;:B$"" Z15:((" "(I)),2) _% d::"BASE DE NUMERATION";::T$" NOMBRE D'UNITES APRESLEQ :::590:B ******************************n * DEMO NOMBRES BINAIRES 0-15 * ******************************#:(1::" APPRENDRE A COMPTER EN BINAIRE "::34,2 -:"HEXA";:6:"BINAIRE";:14:        150> r49237,0:49234,0:49239,0:49232,0:198:R$:::150b |TR0:I1N1:Z(I)Z(I1)400 TZ(I):Z(I)Z(I1):Z(I1)T:TC(I):C(I)C(I1):C(I1)T:T0:L$TE$(I):TE$(I)TE$(I1):TE$(I1)L$:L$"":TR1 :TR1380RM0ROPI4RO360PI:)0(R$)361RO(R$):RM0$ 150* ":N ,******************************r 6*** PREPARATION *** @****************************** J: TGH1380 ^22:1:" POUR EFFACER LE GRAPHIQUE ACTUEL ";:R$:R$"O"410 hR$"N"āI11500::150A RE1510,1700,1920,340,240,1330,1420,230,270Q X137:1260 21:1::"L";::"IGNES TRACANTES OU ";::"C";::"ODE ALPHABETIQUE ";:R$:R$"L"M1 R$"C"M2 150 21:13::"ROTATION";::" 1-360 > ";:"";R$:(R$R$):RE("?")ĺ::D$"CATALOG":R$::110: RE482100Y RERE48:RE1RE9ĺ:150 (RE6RE8)GH0Ģ22:10:198:"PAGE GRAPHIQUE VIERGE":I11500::150 N0Z(1)0220 RE4RE7Ģ22:3:198:"IL N'Y A PAS DE DONNEES EN MEMOIRE":***' Z******************************- d:O n:T$" ":: xI35:I:12:T$::4:13:"CHIFFRES EN ROND": I110:REI:I9RE0 7I:9:T$:RE;". ";T$:: 19:958:198:13:"VOTRE CHOIX ";:2043,223:R$* RE(  25600!:(12);(21):UZ(12),TE$(12),C(12),X2(12),Y2(12),A(12),TI$(2)e(::D$(4)2R85:PI3.141593:M1:RO1:X1279R:Y1192R:CA24576:AD24703:AE24709:680<:F****************************** P*** M E N U       : "VARIABLE$="N$:Q I1L:N(I)((N$,I,1)):S0:ILS((N$,LI))` N(I)" "Sl :198r :x 22:1:198:"<1> AUTRE ESSAI <2> MENU DISQUE <3> FIN";:R$ :R$"1"Ģ6:958:60 R$"2"ĺ(4)"RUN MENU" R$"3"25ORY LANE =========== ?--???----;7->7->II?II??---mii)>;7mII)n m nM sMm1w--?oII-II??---mii)>7mII)n m 3M)M1Mm1w--?oII?III5?7mI)>;??.--M)>7mI)ۛ-m)-????.M m1???7mi-;7-- 5;?MIII@@@@ MEM ---????.---->????.m -5??.m -5??.m -5??.---->????.---???III ?---->???7---->???7-5?7---5???7---?7---->???7---->???III----->???7---->???7-5?7--->??7---;?.->?.->?VIII>I)mm5?.mm?mmNm->mm-w m޷II------5?????oIII )J -5??.m -5????7----5????NI-5?----5????7----???III ?I)??---????-m -5??7-m -5?????.----5?????.-M)->?;?.-M)->?;?VIII o---????.---->????.m -?;7---????.m)-5??.---->????.---???III ? ---????----5????7--?7-5?7-??.---->????----???VII ???7----?7-m???7----????wI -5?----5????w---??III --->???---->???7-5?7---????.---->?7----5????w---??III-----5????7----5????wII->?--??--??-->?7-->?III --???----5?;?.-M-5?;?---5???-m)->??7-m)->????---??III- --???---I->?.mI->????---??III5 --5???---5??N -5?7-5?7-5?7-5?7-5?I ? --???----5????7-m)->?--??--??----5????7----5????III I)--????.---->????NI)-???7--->??7---?----5????7----??IIIII?--??--??----5????7----5????wI-5?7-5?II?----5?KdB9x6DXRI --???----5??.mI->?.mI->?.m     ):C(I)C(I1):TE$(I)TE$(I1)::NN1:N101610D^TE$(1)""150h21::958:"COMPLETER LES DONNEES (O/N) ? ";:R$:R$"O"150r:|********************************* DONNEES *********************************:22:D$"OPEN"F$:D$"READ"F$:N:I1N:Z(I):TE$(I):C(I)::TI$(1):TI$(2):D$"CLOSE"F$:1600622::22:D$"OPEN"F$:D$"READ"F$:N:I1N:Z(I)::TI$(1):TI$(2):D$"CLOSE"F$@N111630JPP1:I2N:Z(I)Z(PP)PPI0TI:IPPN1:Z(I)Z(I1#*** LECTURE D'UN FICHIER ***G******************************M:~:22:9:"FICHIER A LIRE ? ";F$:F$""150(F$,1)"H"FHF$"?"R$F$:160(F$)65(F$)901510204022:D$"VERIFY"F$"FH1590_,22:**:9:22:9:"TITRE DU FICHIER ";F$:F$""150PF$"?"R$F$:160l(F$)65(F$)90140022::22:D$"OPEN"F$:D$"WRITE"F$:N:I1N:Z(I):TE$(I):C(I)::TI$(1):TI$(2):D$"CLOSE"F$:150:******************************:"TITRE ? ";FG$:FG$""1506<FG$"?"R$FG$:160TF(FG$)65(FG$)901330PFG$FG$".P2":21::D$"BSAVE"FG$",A16384,L8192":150Z:d******************************n*** ECRITURE DE FICHIER *** x**********************************************************$:EGH1:X(16384):X1281240S16368,0pX137Ċ1:(9)"G2"::0|0:110: ********************************* MEMO FICHIER PAGE2 *********************************(:222:13LACEMENT DU CODE ***:V******************************@`:Rj0:C(I)5Ē4^tK116~X2(I)8,Y2(I)8KX2(I)8,Y2(I)8KK(JI):I:CVI:CA:********************************** EDITION ***CODES ***2****************************** 8:IJ("A")1:VI1N:m(JI)" = "TE$(I)|CV(37)1Y2(I)81:X2(I)71$Y2(I)(Y2(I)8)82.X2(I)(X2(I)7)738:B******************************L*** EMP**** R:\5:YC20)fI1N:K2004pJ1NFzY2(J)K920WY2(J)0920gKY2(J):LJpJ:Y2(L)0:TE$(L):YCYC163(TE$(L))7,YCX2(L),KI:24576:1240:****************************** *** LETTRES-E DES TITRES ***5******************************;:H:I12aI:(42(TI$(I)))2y TI$(I)::CA:::: 6:M860,1010*:4******************************>*** AVEC LIGNES TRACANTES ***H**************************$******************************H*** TABLE DE CARACTERES ***l******************************r:BL1760:D$"BLOAD DIA.LM,A"CAD$"BLOAD DIA.CARAC,A$6100":BL1::********************************* AFFICHAG(I)2:AD,X1:AD1,0:AD2,Y1-JAB0.017C(I)J&XX1R(JRO)]0YY1R(JRO):AD3,X(X256)256:AD4,(X256):AD5,Y:24709DNSI(AB)2ROXX2(I)X1R1.3(SI)bY2(I)Y1R1.3(SI)l: FACULTATIF:GOTO760v:RM1:T0:I1N:C(I)(("1234576123",I,1)):TTZ(I):VI1N:A(I)Z(I)TPI:\:********************************* TRACE DU DIAGRAMME *********************************:0:0,0:3082:I1NABBBA0 "::`l c \$% $% (0  0 I@L@ \( ũ $ %`qN08,TRACER LE GRAPHIQUE,CHANGER DE MODE,MEMORISER LE GRAPHIQUE,MEMORISER LES DONNEES,IMPRIMER LE GRAPHIQUE,MODIFIER LA ROTATION,FIN DE TRAVAIL 4:: >51,0:110IEN"F$:D$"CLOSE"F$:D$"DELETE"F$:21::958:"FICHIER INEXISTANT":I11500::21:958:216,0:1510} L(218)(219)25622:1:958:"ERREUR NUMERO ";::ER;::" LIGNE ";::L:  * LIRE UN FICHIER,SAISIR DES DONNEES,MODIFIER LES TITRES"";T$:T$""1960&TI$(I)(T$,40)KJI2:5I2:1:868:TI$(I):YI21930b110h:********************************* TRAITEMENT D'ERREURS *********************************:24693:ER(222)eER6ĺD$"OPS":N12LINNN1!D1710'N:KX******************************ob*** LECTURE DES TITRES ***l******************************v::I0II1:T$TI$(I):T$""T$".......................................":52:T$;:1:"1790TE$(LI)(L$,12)X20:1:958:TE$(LI);15);Z(LI);:15:"";L$:L$""1860I1(L$):((L$,I,1))48((L$,I,1))571790IZ(LI)(L$)&NS101850021:"LE DIAGRAMME N'ACCEPTERA QUE LES DIX MEILLEURES DONNEE:$I1N:V$" ":I9V$""4I3:V$;I;[4);TE$(I);26((Z(I))));Z(I):18:1:"LIGNE A CORRIGER (0 POUR FIN) ";LI$:LI$"0"110LI(LI$):LI1LI121740L$TE$(LI):L$""L$"..........."20:1:L$;:1:"";L$:L$"16384,128,127:16368,0 MN:: N::10,10060% %NI11500::198X *N:5:13:"R$";::" ERR.: R$ AU LIEU DE (R$)" 4N18:"----------------------------------------":34,18: >N22:1:"ENFONCEZ UNE TOUCHE POUR ------------------------------" HN198:16368,0:!:(21):20000! 10020)R$3LR$9$'768,104:769,168:770,104:771,166:772,223:773,154:774,72:775,152:776,72:777,96.'ER(222)8'"ERREUR "ER" LIGNE "(218)(219)256B'"ADRESSE "(220)(221)256L'216,0:20     D$(4):G$(34)>D$"OPENLIST":D$"WRITELIST":33,30R$"60000D$=CHR$(4):PRINT:PRINTD$"G$"OPENP"G$":POKE33,30:PRINTD$"G$"WRITEP"G$":LIST0,59999:PRINTD$"G$"CLOSEP"G$":POKE33,40:END"(R$:D$"CLOSELIST":