8L2C)pJJJJ IH(ȱH:=IH[H`@HcH  $ +   I/H`JLNGȄBȄF aK  haaFF  mJm# KKJ UJ )J ۈ) ;J3ȱJFȱJGJKaȄM  aaNNJFLGJL L(4)"PREFIX,D1":170< ::(12);(21)::V3:DV1F185bN19:A$(N),B$(N),P$(N)" DISQUETTE DE TREMPLIN MICRO NUMERO 3"(I110:T$T$"----"::2:T$:22:T$:23:"UTILISEZ LES FLECHES - RETURN POUR RUN":V+ 2R1N:A$(R),P$(R jª !ª &PRODOS< ,BASIC.SYSTEM(! OUVREZ  ! *PERSONNE.Xv B ! PETITECRAN ! SAISIE  ! SON ! VISU  ! (COMMANDE ! %INFOS> ! INPUT  ! JEU ! $MENU !ª MEV !)OUEST.ESTv ! TM3. ' BOUTABOUT!&CERCLEr6 ! )CREATEFIC  ! )DATAPOKESd ! $DATEe ! ECRANS >dLԡm#i㰼m#iЕOLԡȱfg hi !dLԡ憦  Ljmkm l y`2 Lԡ8(Je稽)ʈ@LLnSOS BOOT 1.1 SOS.KERNEL SOS KRNLI/O ERRORFILE 'SOS.KERNEL' NOT FOUND%INVALID KERNEL FILE: xةw,@  ȱlmi8#)!)? &PRODOS `DaElH$?EGvѶK+`L HHLy XP LM ŠϠĠӠS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8R),B$(R):A$(R)::V:31::"FIN=CTRL-C":Y 75:31:"COMMANDES:":6:31:"> CTRL-I <"m <V:768,A$(VD) FK(16384):K9ĺ:(4)"RUNCOMMANDE" KK12870 P16368,0::V:A$(VD):K141Ģ23:120 ZK136K139VV1:VDVD1 dK149K1 :(12);(21)::GAN$"JANFEVMARAVRMAIJUNJULAOUSEPOCTNOVDEC"dI110:TR$TR$"____":(I15:I:1:" ";:I1I5āJ239:" ";:J240:" ":::3:7:"QUELLE EST LA DATE DU JOUR ?"<6:34,7 F(4)"PREFIX":PR$:(4)"PREFIX"PR$  190003X$" ":VARIABLE A NE PAS DEPLACERPI120:TR$TR$"____":f(:(4)"PR#3"::2L$(24):LL837:ER915:MO910<(4)"BLOAD ECRANS.LM":F(4)"BLOADECRC1,A$2000":(4)"BLOADECRC2,A$2400":P768:90:150 Z34,2:35,23:3JEUuHUSTON! '  ')JEU.CRYPT^B ! *JEU.EXPLICb ! &JEU.ORe3 ! #JEUht $JEU.t OUVREZuHUSTON! ' ',OUVREZ.BASICkX ! .OUVREZ.L.OEIL.n ! OUVREZ.LMpG ! SAISIEuHUSTON! ' ')SAISIE.LM9  ! S1A ! INPUTuHUSTON! ' 'INPUT.DEMOY ! INPUT.LMZA ! INVAR.DEMO[ ! INVAR.LM\[ ! VISUuHUSTON! ' ')VISUFONTEC) !0 )VISUBLOCSG ! VIS.1W ! VIS.2X !  ! ECR.MEM2C/p !@ %EC2C11 ! %EC2C24 ! ECRANS.DEMO6q ! ECRANS.DEMO.T76 ! ECRANSuHUSTON! ' '*ECRANS.BAS } ! ECRANS.LM ! %ECRC1 ! %ECRC2  ! ,ECRANS.BAS2C# p ! ECRANS.LM2C. P:"PREFIX";::PR$::t ZD1(49040)((49040)32)32:D2((49041)2):D3((49041)D22)8((49040)32) dD30M$(AN$,D332,3) n"DATE DU SYSTEME : ";: x(("0"(D1)),2)"-"M$;:M$""ĺ"..."; "-"(("0"(D2)),2)1 20:TR$2,2:33,76: d:8 n******************************\ x** SAISIE DE VOTRE ECRAN ** ****************************** : :V3:H0 V3V3:198 V22V22:198 H0H72:VV1:160 H72H0:VV1:170 V:1403,H:"";******************8** CHARGER UN ECRAN **\******************************b:v1500:LT1:920F$""İ1580:1320 F1$F$"1":F2$F$"2"48984,0:LIBERER MEMOIRE16300,0:2:(4)"BLOAD"F1$",A$400":16299,0:(4)"BLO**(~** SAUVEGARDE EN FICHIER T **L******************************R:iNV:V0:F$"ECR.T"V23VV1:840:L$(V)T$:1190VN:2::(4)"OPEN"F$:(4)"WRITE"F$:23:I123:(34)L$(I)::(4)"CLOSE"F$200:************AN **-.******************************38:MB1500:LT0:920:1580bL1580:F$""150|VF1$F$"1":F2$F$"2"`:2:(4)"BSAVE"F1$",A$400,L1016":16299,0:(4)"BSAVE"F2$",A$400,L1016":16300,0:200j:t****************************TRE ";:R$:16368,0:R$"1"9200216,0:OER:216,0:(222)61790[LT0ı20:958::F$;::198:" N'EXISTE PAS - APPUYEZ SUR UNE TOUCHE SVP ";:R$:16368,0:920:****************************** $** SAUVEGARDE DE L'ECR OBTENIR LE MENU) ";:198:"";F$:F$""ı^F$"?"ė:(4)"CATALOG":R$:16368,0::920y(F$)65(F$)909301010G$F$"1":(4)"VERIFY"G$:LT1LT0:1000#20:958::F$;::198:" EXISTE -- 1> TITRE MAINTENU <2> AUTRE TILL20,L(L256)256:LL21,(L256):LL:T$(X$,1)I\L$(X$,5,73):Of:sp******************************z** TITRE D'UN FICHIER ********************************:::17:958::TR$,20:1403,0:"TITRE PROPOSE (? POUR1L:((L$,I,1))160Ă8:V:1403,0:868:ET1ĞbLL1I::H(74L)2:1403,H:(L$,L)r 216,0:200x: ********************************* LECTURE D'UNE LIGNE **4******************************>:H:I1V:L:5R v840-V:1403,H:" "(L$,H1,72H)6200<:`******************************** CENTRAGE D'UNE LIGNE ********************************:840:L(L$)1800((L$,L,1))160LL1:730L$(L$,L)I*********/** SUPPRESSION DE CARACTERE **S******************************Y:b&8400V:1403,H:(L$,H2)" ":200D:N******************************X** CARACTERE SUPPLEMENTAIRE **b******************************l:SEW R23İ1580:150:CTRL-W, RAPPEL DE L'ECRAN EN MEMOIRE AUXILIAIRE (DE DERNIER) R241380:CTRL-X,EDITION SUR IMPRIMANTE R26H72:V22:200 R30İ1500:1660:200:CTRL-FLEX, ECRAN DE COMMANDES 160 : *********************0:200:CTRL-I,NORMAL e R15H0:V:H0:1403,H::868:200:CTRL-O, EFFACER LA LIGNE EN COURS R16630:CTRL-P, LETTRE EN PLUS R191090: CTRL-S,BSAVE ECR1,ECR2 R201180:CTRL-7,SAVE FICHIER TEXT R22Ğ:ET1:200:CTRL-V,INVERH0:200. @R6İ1500:1730:CTRL-F, FIN | JR7İ1500::958:200:CTRL-G, EFFACEMENT A PARTIR ET SOUS LE CURSEUR TR8HH1:180 ^R9H72:200 hR10VV1:170 rR11VV1:160 |R12ī1270:CTRL-L,LOAD ECRAN  R14ĝ:ET:R$ R$""İ1500::80) R(R$)J R127550:DEL, SUPPRESSION{ R5R$" ":270:CTRL-E, ESPACE MATERIALISE R32280 R32R21HH1:190 R$:HH1:160 R14400 "R1H0:V3:200 ,R3710:CTRL-C,CENTRAGE 6R4AD"F2$",A$400":16300,0834,2:35,22:32,2:33,75E(90:150K2:o<******************************F** COPIE DE L'ECRAN 80 **P******************************Z:dNV:V0:nV23VV1:840:L$(V)T$:1390:x1500@(21)::(4)"PR#1":(27)"E":(27)"L010":(27)"!":(9)"81N"jI123:L$(I):::(12):(4)"PR#0"(4)"PR#3":::1580VN:200:******************************** TRANSFERT ECRAN MEM AUX ******************************* ҭ򠠠 CR-CR-򠠠:: ҭ à ҭ ҭ ҭ Q䠧ᠠ 򠠠 ӺŠŠŠҠӠ ׽ҭӠҭ̠ ` ɽ ź頧 TLLCR-֠CR-ŠTLXϠ ERND OMNE Ҡ̠CR- $P ŠŠΠSAEĠŸӠ `P 󠠠 TLCTLO䠧堠 88 ɨө堠  X L/ U T (`'$T b U % ǭYcZdUHȍTH(iiji`PH8 `hhߚHH`(222)" LIGNE "(218)(219)256" -- PRESSEZ UNE TOUCHE ";:198:R$:16368,0:g915:216,0:200|51,0:1580:20064,1792,1920,1064,1192,1320,1448,1576,1704,1832,1960,1104,1232,1360,1488,1616,1744,1872,2000h::n:******************************** AUTRES ERREURS ********************************:R:20:958:"ERREUR NUMERO "O,56: RETENUE A 1 G60,0:61,32:62,248:63,35:66,0:67,4:MOcMO,56: RETENUE A 1 16299,0:60,0:61,36:62,248:63,39:66,0:67,4:MO:16300,0198:16368,0:16384,128,127:16368,0:1580:^1024,1152,1280,1408,1536,16,MO,24:60,0:61,64:62,248:63,67:66,0:67,4:MO{616299,0:60,0:61,68:62,248:63,71:66,0:67,4:MO:16300,0@90J:T******************************^** AFFICHAGE ECRAN COMMANDES *h******************************r:|M* :?MO,56:60,0:61,4:62,248:63,7:66,0:67,64:MO16299,0:60,0:61,4:62,248:63,7:66,0:67,68:MO:16300,0:******************************** RECUPERATION DE L'ECRAN ********************************":7 CA ECMADSҠՠTL^ 򠠠$ ΠECP̠ԠŠ `!(L$,I,1))160Ă0:V:1403,0:868:ET1ĞZLL1I::H(74L)2:1403,H:(L$,L)j 216,0:200p: ********************************* LECTURE D'UNE LIGNE **4******************************>:H:I1V:L:-RLL20,L%V:1403,H:" "(L$,H1,72H).2004:X******************************|** CENTRAGE D'UNE LIGNE ********************************:840:L(L$)1800((L$,L,1))160LL1:730L$(L$,L)I1L:(*'** SUPPRESSION DE CARACTERE **K******************************Q:Z&840x0V:1403,H:(L$,H2)" ":200D:N******************************X** CARACTERE SUPPLEMENTAIRE **b******************************l:v840R23İ1580:150:CTRL-W, RAPPEL DE L'ECRAN EN MEMOIRE AUXILIAIRE (DE DERNIER)} R241380:CTRL-X,EDITION SUR IMPRIMANTE R26H72:V22:200 R30İ1500:1660:200:CTRL-FLEX, ECRAN DE COMMANDES 160 :*****************************15H0:V:H0:1403,H::868:200:CTRL-O, EFFACER LA LIGNE EN COURSo R16630:CTRL-P, LETTRE EN PLUS R191090: CTRL-S,BSAVE ECR1,ECR2 R201180:CTRL-7,SAVE FICHIER TEXT R21HH1:190 R22Ğ:ET1:200:CTRL-V,INVERSEO 0:CTRL-F, FIN _ JR7İ1500::958:200:CTRL-G, EFFACEMENT A PARTIR ET SOUS LE CURSEUR s TR8HH1:180 ^R9H73:200 hR10VV1:170 rR11VV1:160 |R12ī1270:CTRL-L,LOAD ECRAN R14ĝ:ET0:200:CTRL-I,NORMAL H R0 H73H0:VV1:1704 V:1403,H:"";:R$K R$""İ1500::80W R(R$)x R127550:DEL, SUPPRESSION R32280 R$:HH1:160 R14400 "R1H0:V3:200 ,R3710:CTRL-C,CENTRAGE 6R4H0:200 @R6İ1500:173"$%&'()*+,-00": P768:3:90:150< Z34,3:35,22:32,3:33,76:B d:f n****************************** x** SAISIE DE VOTRE ECRAN ** ****************************** : :V3:H0 V3V3:198 V22V22:198 H0H73:VV1:16  190003X$" ":VARIABLE A NE PAS DEPLACERPI120:TR$TR$"____":f(:(4)"PR#3"::2L$(24):LL807:ER914:MO9097M17744:M27800:(4)"BLOAD ECR.MEM2C"<(4)"BLOAD ECRANS.LM2C" F(4)"BLOADEC2C1,A$2000":(4)"BLOADEC2C2,A$24 ҭ䠧ᠠ Š Q ҭ頠 ҭ堠 1ԠĠŬɠ ҭ䠧ֽŠν` Π 2Ҡà CR-ĠTLSŠTLT֠ӠCR-Π(L256)256:LL21,(L256):LL:T$(X$,1)A\L$(X$,4,73):Gf:kp******************************z** TITRE D'UN FICHIER ********************************:::17:958::TR$$20:1403,0:"TITRE PROPOSE (? POUR OBTENIR LE MENU) ";:198:"";F$:F$""ıVF$"?"ė:(4)"CATALOG":R$:16368,0::920q(F$)65(F$)90930|1010G$F$"1":(4)"VERIFY"G$:LT1LT0:100020:958::F$;::198:" EXISTE -- 1> TITRE MAINTENU <2> AUTRE TITRE ";:xxx (x08`xx x(0x8` X   P` O$ %`;E<FU mȍT m(iiejif`0  0 I@LH`PH `hhߚHH` "(218)(219)256" -- PRESSEZ UNE TOUCHE ";:198:R$:16368,0:Z915:216,0:200o51,0:1580:2001064,1192,1320,1448,1576,1704,1832,1960,1104,1232,1360,1488,1616,1744,1872,2000[::a:******************************** AUTRES ERREURS ********************************:E:20:958:"ERREUR NUMERO "(222)" LIGNE260,0:61,32:62,248:63,35:66,0:67,4:MONMO,56: RETENUE A 1 16299,0:60,0:61,36:62,248:63,39:66,0:67,4:MO:16300,0M2198:16368,0:16384,128,127:16368,0:1580:Q1024,1152,1280,1408,1536,1664,1792,1920,8:63,67:66,0:67,4:MO^616299,0:60,0:61,68:62,248:63,71:66,0:67,4:MO:16300,0f@90lJ:T******************************^** AFFICHAGE ECRAN COMMANDES *h******************************r:|MO,56: RETENUE A 1 M166,0:67,64:MOT16299,0:60,0:61,4:62,248:63,7:66,0:67,68:MO:16300,0eIM1IM0:kq:******************************** RECUPERATION DE L'ECRAN ********************************":,MO,24:60,0:61,64:62,247)"!":(9)"81N"<I123:L$(I):::(12):(4)"PR#0"V(4)"PR#3":::1580cVN:200i:******************************** TRANSFERT ECRAN MEM AUX ********************************:MO,56:60,0:61,4:62,248:63,7:M2(90:1502:><******************************bF** COPIE DE L'ECRAN 80 **P******************************Z:dNV:V0:nV23VV1:840:L$(V)T$:1390xIM1:1580(21)::(4)"PR#1":(27)"E":(27)"L010":(2******* CHARGER UN ECRAN **N******************************T:h1500:LT1:920F$""İ1580:1320 F1$F$"1":F2$F$"2"M1:48984,016300,0:2:(4)"BLOAD"F1$",A$400":16299,0:(4)"BLOAD"F2$",A$400":16300,0VEGARDE EN FICHIER T **>******************************D:[NV:V0:F$"ECR.T"V23VV1:840:L$(V)T$:1190VN:2::(4)"OPEN"F$:(4)"WRITE"F$:23:I123:(34)L$(I)::(4)"CLOSE"F$200:**************************%.******************************+8:?B1500:LT0:920TL1580:F$""150nVF1$F$"1":F2$F$"2"`2::(4)"BSAVE"F1$",A$400,L1016":16299,0:(4)"BSAVE"F2$",A$400,L1016":16300,0:200j:t******************************~** SAUR$:16368,0:R$"1"920(216,0:GER:216,0:(222)61790SLT0ı20:958::F$;::198:" N'EXISTE PAS - APPUYEZ SUR UNE TOUCHE SVP ";:R$:16368,0:920:******************************$** SAUVEGARDE DE L'ECRAN ** 󠠠   䠧堠 8 ɨө堠 # F$"ECR.T": TITRE PAR DEFAUT7::(4)"PR#3"CL$(24)I(:2:(4)"OPEN"F$:(4)"READ"F$:N:I1N:L$(I)::(4)"CLOSE"F$<:F:I1N:I:L$(I):P1:1:R$Z:(4)"PR#0"::(4)"PR#1": d(27)"E":(27)"L010":(9)"81N" ::(4)"PR#3":a182:(4)"BLOAD ECRC1":16299,0:(4)"BLOAD ECRC2":16300,0:193o6:6:R$ ҭ䠧ᠠ Q ҭ頠 ҭ堠 1ԠĠŬɠ ҭ䠧ֽŠν` Π 2Ҡ󠠠 -Ġ Š ֠Ӡ-Π35   Ҡՠ  򠠠0 Π̠ԠŠ ` ҭ򠠠 --򠠠:: ҭ à ҭ ҭ 䠧ᠠ 򠠠 ӺŠŠŠҠӠ ׽ҭӠҭ̠ ` ɽ ź堠  -֠-Š Ϡ 02   Ҡ̠- / ŠŠΠĠŸӠ ` nI1N:L$(I):5 x:(4)"PR#0":(4)"PR#3":  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 ?"98,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:L**************%21:D$"BSAVE"TI$",A$"AD$",L"L+:5NN1z5904,N:D2$"":21:36,30:C1:I16461649:D2$D2$((I)128)::********************************* IMPRESSION EVENTUELLE *********************************:%198:163Ā f:.p******************************Rz*** ECRITURE DU FICHIER ***v******************************|:150:21:5:"TITRE DU FICHIER A CREER ? ";TI$:TI$""920(TI$)65(TI$)90920140:21:"A$"AD$",L"L" - FIN A ->"************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:L0 LA SAISIE ";:198:R$:R$"C"R$"c"730GVV1:170:V15820P52021:5:"<";::"O";::"> POUR STOPPER VOTRE SAISIE ";:198:R$:R$"O"R$"o"690N1N23:LILI1:6,P6:7,P7:760170F1: ******************(I)128):*vV:1:N$;":"S$;:HN:R$@R(R$):R13690r(R47R58)(R64R71)NN1:R$:EE1:590N0(R60R8)NN1:EE1:570R21R62NN1:EE1:590NP1,176:620150.21:6:"<";::"C";::"> POUR CONTINUER 00 00 00 00 00 00":+H5:E1:LILI1;7:32:230KV8D1$N$f&P((LI$,V419,4))5~0S$S$(V7):N1:630:E0NN1:E2:N1N1:E1D630NE3NN1:E1:XN23N23:E2bN23Č198:198 lS$"":IPP22:S$S$(ND823G"> I1(G$):511I,((G$,I,1))128::72,0:144_ 5:32::N$;::" ":958e : ****************************** *** SAISIE D'UNE LIGNE *** ****************************** :140:160:V8:LI0:I18:S$(I)"00 00. |(R47R58)(R64R71)NN1:R$:330M N0(R60R8)NN1:330g R21R62NN1:330| N1615,176:330 21:12::"CONFIRMEZ";::" PAR SVP ";:198:R$:R$"O"R$"o"İ150:N1:370 AD$N$:G$"06:"(N$,2)" "(N$,2)" ***************************A "*** ADRESSE DE DEPART ***e ,******************************k 6: @N$"0000":N1:370 JN$"":I16161619:N$N$((I)128): TN5N5:198 ^N4370 h160 r20::N$" ";:N:R$:R(R$):R13420S$: :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: : ***8:;<=>?@,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)****************6V*** ROUTINE ADDITION HEXA ***Z`******************************`j: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:5915,64:5916,249:5917,96Y5918,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:FHIJKLMNOPQRSTUVB18İ2120::310A xB63ė::D$"CATALOG":R$::R$""::310G M :r ****************************** *** BOUCLE D'ATTENTE *** ****************************** : E11500:E: : ******************************!  245802060:310!:E(******************************i2*** ATTENTE SANS CURSEUR ***<****************************** F:P198:16368,0:16384,128,127:16368,0:B(16384)ZB9Ĺ34,21:1990dB10Ĺ34,21:1980 n?.- ??N -5?*m ->??w- -??7 n N 666-uM17 n n NIM13m1n)n N )3M13M1s-N -3M?76NI )3M13 mN -3M?7 n N )3M:w -N --66vIMM13M13M1s-N M13M13MN IM13M1n >7MqM1s  3MqJM1s 6vI---.-uJ)>.>.>.>M@@C3M1?w *uIR >RMI>--5???--wNI --ޛ-- *I--???.--7NI )s N -53M1smN M13--n N -3M?7M13-u J)36Ms-N -n1n1-u J--n?76--NJ--n?76NII)36M5s-uJM13M1??n n N -66-N I166s-N MnBDE ?wqImmw M:N)N-n mN-6R 6N56N 5 --NN n:?w1VIM7R?RINIVI 5)3M5.M-Nm1w6-N)sI.-u-->N-N>I> 3--v 5--.-6s-N -޻M:?n -N.--6NI))3M?M1s-N.)d )/9BS^ent0;OZj| %7HVhy" 66N nR>i----nN> ? ?"3*** CONFIRMER LE CHOIX ***E ******************************K : "Confirmez votre choix par un "(34)"oui"(34): : ****************************** *** MENU GENERAL *** "****************************** ,: 6"Fin"NN1:15300PA$"*"N1NN2:1320NZA$"**"(N1A$"*")320pdA$""MO0A$A$(N,0):1410nA$""1330x(A$)12A$(A$,12)3N:7:868:A$;:25:"..........";:MO0Ė25:A$(N,1);198:25:"";B$:B$""MO0B$A$(80:B491300"B48ĺ:1270+ MONc22:T$:8:"Taper "(34)"fin"(34)" pour terminer"kN0(NN1:N12NN1:153023N:E$" ":N9E$""<868:E$N" -> ............";:MO0Ė7:A$(N,0);F198:7:"";A$:A$"FIN"A$"fin"A$*'******************************-:71110:1::" SAISIE DES DONNEES ";::"----------------------------------------"34,3:MO01::"MAXIMUM=12"::1170:22:"<0> MODIFICATIONS <1> NOUVELLES DONNEES":** L:V:`:<j******************************`t*** BRUIT DE BALLE ***~******************************:I030:J4920049230I:X(J):J,I::********************************* SAISIE DES DONNEES ********************************F*** EFFACEMENT HGR2 $4000 ***j******************************p:230,64:4:0,0:3082:HG0:$:.******************************8*** RETOUR MODE TEXT ***B****************************((C$,I,1))31:AC32HH6:9206ACH,VT:HH6<THG1:80:1110:340Z:~********************************* HGR2 SANS EFFACEMENT *********************************:X(49232)(49234)(49237)(49239)::"(B$,I,1))31:ASH,VT:HH6:O*O,WS1O6,WS5OS5,WS5OS1,WS1r4OS5,WS5OS5,W6OS1,W>SZZSHU1QSRK2VMVT\KN630fC$""930pL(C$):H(279L6)2:VTVM17zH,VT10HL6,VT10#I1L:AC********.*** LEGENDES DES BLOCS ***R******************************X:VTWS8:L(B$(K,0)):L(S7)6L(S7)6:B$(B$(K,0),L):770B$B$(K,0)DESL6:DEDEL6 O1HO2SDE:800H1SDE:H1H1  I1L:AS(K1NS((B$(K,2)))V:K1S35((B$(K1,2)))V165PP.10:VV.10:640l2:UU1:U1OOQP:W1U2WZ25:U0IWWS1.41:OS1,IO,I:7:KGSSOS7O,WO,WS1OS1,WS1OS1,WO,W: **********************:A$(I1,2)A$:F1"D:F1550KNT0:ST:XT:YG:I1N2:XX1:YY1XB$(I,0)A$(X,0):B$(I,2)A$(X,2):B$(I,1)A$(I,1):YNB$(I1,0)A$(Y,0):B$(I1,2)A$(Y,2):B$(I1,1)A$(I1,1)bTT(B$(I,2)):lVJT:K0:O10:P10:Q1:U0:W1:Z0vKН:1170:340!:3:19:958<G(N2):GN2GG1ZJ278:I1G1:JJ11.5:b&F00I1N1:(A$(I,1))(A$(I1,1))580:A$A$(I,1):A$(I,1)A$(I1,1):A$(I1,1)A$:A$A$(I,0):A$(I,0)A$(I1,0):A$(I1,0)A$:A$A$(I,2):A$(I,2)A$(I1,2)22:958::"PAGE GRAPHIQUE EFFACEE"::340< HG02230T 990:80:1110:340Z :~ ****************************** *** PAGE GRAPHIQUE (TRACE) *** ****************************** :N2Ģ20:5::"DONNEES TOTALEMENT INEXISTANTES"::"?";::"> POUR LE CATALOGUE"> |80:CB48:C1CM380 2(B48)2:38:"<-";::C::22:4:250:80:B("O")B("o")340 22:1:T$ 150::I37321:I:2C2:" ":::255 C1230,1760,440,430,1640,510,2230,2300- 1050:1:1110n @::1::" QUEL EST VOTRE CHOIX ? ";::"----------------------------------------" JI1M:1:2I2::I;::"> "(M$,I3029,30): TI1M:32:2I2:".........": ^958 hR1R0:420" r22:" * TAPER UN <";:N,1)B$""B$"*"1330~I1(B$):((B$,I,1))48((B$,I,1))57Ģ3N:24I::(B$,I,1)::198:198:190:141020:1:250:80:B("O")B("o")141020:86824:3N:868:2410(B$):B$:A$(N,0)A$:A$(N,1)B$:A$"":B$""'T0:I1N:TT(A$(I,1)):IdI1N:A$(I,2)(((A$(I,1))T10000)100)::A1A0:I1N:3I:35:868:38((((A$(I,2))))):A$(I,2):1320R1:164020:1:868:F$""T"TITRE DU FICHIER ";F$:F$""Ģ20:1::"C7 PROPORTION DE FEMMES CHEZ LES PLUS DE 60 ANS 60-64 532 65-69 554 70-74 580 75-79 615 80-84 660 85-89 738 90 & PLUS 788 SPORTS 2500 20::"PAGE 2 SAUVEGARDEE SUR DISQUETTE":190:216,0:340m&216,0:20:"ERREUR NUMERO "(222):190:340|&51,0:310&::20:"]GOTO2290 VOUS RENVOIE AU MENU":19:************************>%*** ENREGISTRER LA PAGE 2 ***c%****************************** i%:%HG0Ģ20:8::"PAGE GRAPHIQUE ENCORE VIERGE"::1170:340%20::"TITRE ";G$:G$""340%2280%20::D$"BSAVE"G$",A$4000,L8192"<&-------------- UN * RENVOIE A LA DONNEE PRECEDENTE ET ** RENVOIE AU MENU GENERAL, SANS POUR AUTANT ANNULER CE QUI A ETE SAISI."$f:"CTRL-R REAFFICHE CETTE PAGE DE FONCTIONS"$p1160:80:MB18MB0:$z:1890:$:%****** FIN DE TRAVAIL"##H::MBR:M8#R8:"CTRL-I PERMET D'EDITER LA PAGE GRAPHIQUE EN FORMAT SIMPLE CTRL-J PERMET DE REALISER CETTE EDITION EN FORMAT SIMPLE"$\:"PENDANT LA SAISIE DES DONNEES ---------------T$"____":("4O10:Z1:P10:D$(4)#>M$"CREER UN FICHIER DE DONNEES CHARGER UN FICHIER EXISTANT VOIR LA PAGE GRAPHIQUE EFFACER LA PAGE GRAPHIQUE CHANGER LE TITRE DE LA PAGE TRACER LA PAGE GRAPHIQUE ENREGISTRER LE GRAPHIQUE L020":(9)"GLE2",!:(4)"PR#0"::3402!:V!******************************z!*** INITIALISATION ***!******************************!:! :(12);(21)::!A$(13,2),B$(13,2)! C$"......................" "*I110:T$"BLOAD"F$",A"AD::DL1B 232,AD(AD256)256:233,(AD256):H :l ****************************** *** EDITION (DMP+CARTE BIP)*** ****************************** : :D$"PR#1":(27)"L005":(9)"GLED2":2000!:D$"PR#1":(27)"TE"F$:20:1:958::"FICHIER "F$" INEXISTANT"::1170:80N&216,0:1760T0:x:******************************D*** FONTE DE CARACTERES ***N******************************X:bDL1ılAD12288:0:1:F$"VISUFONTE" v21::D$$:F$"?"ĉ:::(4)"CATALOG":80::R1:C2:310BF$""310v:20:1:958::"CHARGEMENT DE "F$:::182018::D$"OPEN"F$:D$"READ"F$:N:C$:I1N:A$(I,0):A$(I,1)::D$"CLOSE"F$A1:1490:216,0D1:340=(222)5ĺ(4)"DELE:A$::22:1:250:80:B("O")B("o")1640NC$A$:A$"":R1R0:W310]:********************************* CHARGER UN FICHIER *********************************:320:1:958::"TITRE DU FICHIER";::" ";F***************5J*** TITRE DU FICHIER ***YT******************************_^:h1:20:958::"TITRE DU GRAPHIQUE":r22:4:I111:"....";::|22:1:"-> "C$;:22:4:"";A$:A$""R0:310(A$)441640320:1:958:ONFIRMEZ NON-ENREGISTREMENT PAR "(34)"NON"(34)::80:B("N")B("n")1540dF$""1580"20:1:868::"ENREGISTREMENT "F$::19:D$"OPEN"F$:D$"WRITE"F$:N:C$:I1N:A$(I,0):A$(I,1)::D$"CLOSE"F$,D1:3106:@***************10 TAUX DE CHOMAGE COMPARE (EN 1984) BELGIQUE 132 DANEMARK 102 FRANCE 92 GRECE 77 IRLANDE 157 ITALIE 100 LUXEMBOURG 15 PAYS-BAS 157 RFA 82 ROYAUME UNI 117 1$:216,0:260C 22:868:"PROBLEME NON PREVU AU PROGRAMME":e D$"PR#3":::I1L:L$(I): D$"OPEN"F2$:D$"WRITE"F2$:I1L:L$(I)::D$"CLOSE"F2$:: : " ****************************** , * DECRYPTER OU CRYPTER **]_` CA$ 768) CA(6):CA13180> L$L$(CA):140\ LL1:L$(L)L$:L$"":140b : ****************************** * ECRITURE DU FICHIER F2$ * ****************************** : (222)5ĺ:D$"CLOSE"F :(21):D$(4))L$(150)2(44082:b< ******************************F * LECTURE ET RE...CREATION *P ******************************Z:dL0:N0:L$""n240x:15:D$"OPEN"F1$ D$"READ"F1$ X% % oɍ "  % :ۥijȩȩ `MENU" ZH$"2"50 d (4)"BLOADINVAR.LM"'A$" ":0768H(H$:16368,0::A$k-22:"CONTROLE-C POUR ARRETER"2H$:16368,0:(H$)330<:10,50F22:"<1> MENU DE DISQUETTE <2> TERMINE --> ";:H$:16368,0 PH$"1"ĺ(4)"PREFIX,D1":(4)"RUN X% % oɍ " % :`  (4)"BLOADINPUT.LM")768CR$:16368,0::5,20(22:"<1> MENU DE DISQUETTE <2> TERMINE --> ";:R$:16368,0:R$"1"ĺ(4)"PREFIX,D1":(4)"RUN MENU" 6 ******************************0 @:c 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 rR3360 |::, R1F1$"JEU":F2$"JEU.":V$"AEIOUOAUEI":410U F2$"JEU":F1$"JEU.":V$"OAUEIAEIOU"z I797806:I,((V$,I796,1)): 6:"ON PART DE ";::F1$;::" POUR CREER ";::F2$: 100 I768796:R:I,R:::330A  173,0,2,201,13,208,2,240,10,1 10 TEXT : HOME 20 PRINT "VOULEZ-VOUS DEVINER UN NOMBRE CHOISI PAR L'ORDINATEUR ?" 30 VTAB 4: HTAB 1: INPUT "OUI OU NON ? ";R$ 40 IF R$ = "NON" OR R$ = "N" THEN 160 50 IF R$ < > "OUI" AND R$ < > "O" THEN 30 60 N = 1 + INT ( RND (1) * 100) ::"DOMMAGE, NOUS NOUS SERIONS BIEN AMUSES!" df"VOTRE NOMBRE -> ";N$, ZX(N$):X080R dXNR$" VOUS AVEZ GAGNE !":120 nR$"PERDU! TROP PETIT!":XNR$"PERDU! TROP GRAND!" xCC1 13:1:868:R$;" - ESSAI NUMERO ";::C: XN80 ::"PRESSEZ UNE TOUCHE SVP ";:R$:101  :H"VOULEZ-VOUS DEVINER UN NOMBRE CHOISI PAR L'ORDINATEUR ?"g4:1:"OUI OU NON ? ";R$(R$"NON"R$"N"1602R$"OUI"R$"O"30<N1((1)100)F:"CE NOMBRE EST COMPRIS ENTRE ";::1;::" ET ";::100: P10:1:868:: 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:(4)"RUNJEU.CRYPT"acprogramme, 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 chevet :(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 du 62,0,221,29,3,208,6,189,34,3,133,6,96,232,224,5,208,240,240,24670 PRINT : PRINT "CE NOMBRE EST COMPRIS ENTRE ";: INVERSE : PRINT 1;: NORMAL : PRINT " ET ";: INVERSE : PRINT 100: NORMAL 80 VTAB 10: HTAB 1: CALL - 868: INPUT "VOTRE NOMBRE -> ";N$ 90 X = VAL (N$): IF X = 0 THEN 80 100 IF X = N THEN R$ = " VOUS gi& 8:"ERREUR! C'EST LE NUMERO "X? :21:X8:X::220 :22::1;::" UN NOUVEAU TEST ? ";::2;::" MERCI! C'EST FINI":220 R190 R2170 :: : 198:16368,0:16384,128,127:16368,0:R(16384)48:moAGIT DE TROUVER":" QUEL EST LE PLUS PETIT."= P:220T ZX((1)4):7,X:c dXX1:768 n21:I8328:I::I8;::: x23:6:"QUEL EST LE PLUS PETIT CARRE ?":220 R1R4Ģ22::120 22:958:23::RXĖ15:"C'EST EXACT!":160 :(21):+(4)"BLOAD OUVREZ.LM"ET$" OUVREZ L'OEIL! "Y(32,12:33,28:2:I812:I:" ":<8:":";:16:":":10:T$:12:":";:16:":":2 F32,4:33,33:::"QUATRE CARRES VONT APPARAITRE SUR":"VOTRE ECRAN. IL S'8:16368,0:16384,128,127:16368,0:R(16384)48:W 1,0,4,0,33,63,54,45,28,01R4Ģ22::120E 22:958:23::RXĖ15:"C'EST EXACT!":160i 8:"ERREUR! C'EST LE NUMERO "X :21:X8:X::220 :22::1;::" UN NOUVEAU TEST ? ";::2;::" MERCI! C'EST FINI":220 R190 R2170 :: :8 19jl ECRAN. IL S'AGIT DE TROUVER":" QUEL EST LE PLUS PETIT."J P:220c ZX1((1)4):7,X:t d:3:0:Y64 iI14:55:IXę53 k1Y,76:I2:YY43: n21:I8328:I::I8;::: x23:6:"QUEL EST LE PLUS PETIT CARRE ?":220 R :(21):8I768777:R:I,R::232,0:233,03RT$" OUVREZ L'OEIL! "f(32,12:33,28:2:I812:I:" ":<8:":";:16:":":10:T$:12:":";:16:":":? F32,4:33,33:::"QUATRE CARRES VONT APPARAITRE SUR":"VOTRET "PRESSEZ UNE TOUCHE SVP ";: GET R$: GOTO 10 160 PRINT : PRINT : PRINT "DOMMAGE, NOUS NOUS SERIONS BIEN AMUSES!" AVEZ GAGNE !": GOTO 120 110 R$ = "PERDU! TROP PETIT!": IF X > N THEN R$ = "PERDU! TROP GRAND!" 120 C = C + 1 130 VTAB 13: HTAB 1: CALL - 868: PRINT R$;" - ESSAI NUMERO ";: INVERSE : PRINT C: NORMAL 140 IF X < > N THEN 80 150 PRINT : PRINT : PRIN @ i+ L 88A ]`!?6-16368,0:W(16384)48:" :F ******************************j * CHASSE AUX REPETITIONS * ****************************** : TR$"MOT DEJA UTILISE - A CHANGER" (S1$(S,S1))10(S2$(S,S2))10TR$"UN SYNONYME DE MOINS DE 11 Luwxyz{|}EMENTS":::8::2;::" ELEMENTS DU PROGRAMME"D n190:W1420\ xW2İ1160:S6:690e 110k : ****************************** * ATTENTE SANS CURSEUR * ****************************** : 198:16368,0:16384,128,127: :(21)::4S$(6),S1$(6,3),S2$(6,3):SB3OI110:T$T$"----":g(I119:V$V$" ":m2:<******************************F* SAISIE OU DONNEES EN DATA *P******************************Z:2 d8:8::1;::" SAISIE DES EL--> ";:R$:R$"1"Ĺ16368,0:(4)"RUNMENU"5 E DE LA CIRCONFERENCE ET DES RAYONS2 ^XCR,YC> hI1NDM rXXCCO(I)\ |YYCSI(I)f X,Y NSNS1:NSNDSNS0:XC,YCX,Y  NS0 198:16368,0:16384,128,127:16368,0:::NS0ı/ 22:"<1> MENU DE DISQUETTE <2> TERMINE IABLES :# :16302,0:NS0l ND180:DE CETTE VALEUR DEPEND LA RAPIDITE DU TRACAGE (90,180...360) SI(ND):CO(ND) "CALCUL DES COORDONNEES DE LA CIRCONFERENCE (* RAYON) ,I1ND 6APBNDI @CO(I)(A)R:SI(I)(A)R J% TTRACNNEES DE LA CIRCONFERENCE ) XR(A)T XCX,YCY:TRACE DE LA CIRCONFERENCEZ POUR COMMENCER LE TRACE HORIZONTALEMENT,IL SUFFIT D'INVERSER X & Y (X AVEC COSINUS & Y AVEC SINUS) NS1:430 : AUTRE METHODE, AVEC UTILISATION DE VARqst83185) " dCEPBS:S SECTEURSJ nXC140:YC94:COORDONNEES DU CENTREd xR90:RAYON DU CERCLE J0PBCE:C(I)J:II1: XC,YCXC,YC:I1:PREMIER RAYON TRACE A0PB0.01 AC(I)ēXC,YCXCX,YCY:II1 YR(A): CALCUL DES COORDO% ******************************I*** CERCLE PARTAGE EN 12 ***m******************************s(:2:16302,0:3:UTILISATION DE TOUT L'ECRAN<S12:NOMBRE DE SECTEURSFC(S)PPI3.1415926 ZPBPI2:ANGLE EN RADIANS (0 A 6.2ETTRES SVP":360/ I1S:J1SB:PR3320A SIS1J300] "S1$(S,S1)S1$(I,J)360y ,S1$(S,S1)S2$(I,J)360 6350 @SIS2J340 JS2$(S,S2)S2$(I,J)360 TS2$(S,S2)S1$(I,J)360 ^:: h:22:958:TR$::PR510,510,550 r:' |******************************K * S A I S I E *o ******************************u : S0:S10:S20 ::"LE SUJET";::" (UN SEUL MOT-6 SUJETS AU TOTAL)" 2:T$ S10:S20 SS1:PR1::4:958( :4::~70 PRUNT : PRUNT "CA NEMBRA AST CEMPRUS ANTRA ";: UNVARSA : PRUNT 1;: NERMOL : PRUNT " AT ";: UNVARSA : PRUNT 100: NERMOL 80 VTOB 10: HTOB 1: COLL - 868: UNPIT "VETRA NEMBRA -> ";N$ 90 X = VOL (N$): UF X = 0 THAN 80 100 UF X = N THAN R$ = " VEIS 10 TAXT : HEMA 20 PRUNT "VEILAZ-VEIS DAVUNAR IN NEMBRA CHEUSU POR L'ERDUNOTAIR ?" 30 VTOB 4: HTOB 1: UNPIT "EIU EI NEN ? ";R$ 40 UF R$ = "NEN" ER R$ = "N" THAN 160 50 UF R$ < > "EIU" OND R$ < > "E" THAN 30 60 N = 1 + UNT ( RND (1) * 100) ,CHRISTINE,GENTILLE,MEDECIN,POTELEE,ROUSSE,CURIEUSE,VELLEITAIREE,RAPIDE,BRUNE,ALBERTINE,MENTEUSE,FACETIEUSE,RIEUSE,PARISIENNE,RIDEE,TOUCHANTEANTOINETTE,BLONDE,GAIE,BELLE,SENSIBLE,AFFABLE,REVEUSE,EULALIE,PAUVRE,FAIBLE,DOUCE,GROSSE,ANGEVINE,MARIEEACOLETTE,OUBLIEUSE,INSENSIBLE,CORIACE,RANCUNIERE,EPICIERE,SECHEBR690,10,1100L::%V:I`******************************mj* POUR TOUS LES PARESSEUX *t******************************~:I16:S$(I):J13:S1$(I,J):J:K13:S2$(I,K):K:I:PLOUISE,TIMIDE,GRANDE,FERMIERE,POITEVIN90 :.******************************R* A SUIVRE OU FIN DE JEU *v******************************|$:.22::198::1;::" AUTRE VERSION ";::2;::" JEU COMPLET ";::3;::" TERMINE";:R$816368,0:R(R$)48:R1R31070 NON":ERER1~958::"CAR "S$(R)::"- EST: ";:I13:S1$(R,I)" ";::"":"- N'EST PAS: ";:I13:S2$(R,I)" ";::""23:"AVEC "ER" ERREUR";:ER1ĺ"S"190FIN11010ER6890FIN1:16:22:868::S$(Q1)::RQ1:9501,15::<16:"QUEL EST LE NOM DE ";::"X"::(T$,20)|I13:17I:1::I;:19:I3;::3:S$(I);:21:S$(I3):16:22::" ";::198:R$:16368,0:R(R$)48:R1R692016:22:RQ1Č198:"VOUS AVEZ GAGNE!":FIN1:950"HELAS!************>:H:IR8::" L A P E R S O N N E X "::T$\4::V$;:22:V$:14:V$;:22:V$:I513:I:1:" ";:19:" ";:22:" ";:40:" ":f6:3:"EST:";:24:"N'EST PAS:":pI13:6I2:3:S1$(0,I);:24:S2$(0,I): z34X0IPIP1:S1$(0,IP)S1$(I,Q2):780MICIC1:S2$(0,IC)S2$(I,Q2):780vX1ICIC1:S2$(0,IC)S1$(I,H):780IPIP1:S1$(0,IP)S2$(I,H) I: ******************************** IL S'AGIT DE L'IDENTIFIER *4******************:)******************************M* LA PERSONNE X PREND FORME *q******************************w:Q11((1)S):Q21((1)SB)X((1)2):ER0:ICER:IPER:FINERI1S:H1((1)SB)XX1:X2X0Q1I760(3C0:S25:20:198:S2" - ";:"";S2$(S,S2):S2$(S,S2)""560Q:250:610_DS23540lNS6450uX690b16368,0:22:868:198::"RETURN";::" POUR CONTINUER OU ESCAPE ";:R$:R(R$):R13ıl:R27ĺ:610v:PR470,510,550198:S;::" -> ";S$(S):S$(S)""4701 610` :4:958::(S$(S),13);::" EST:":PR2l S1S11 :S15:198:S1" - ";:"";S1$(S,S1):S1$(S,S1)""510 250:610 S13500 S2S21&:4:20::(S$(S),10);::" N'EST PAS:":PROVAZ GOGNA !": GETE 120 110 R$ = "PARDI! TREP PATUT!": UF X > N THAN R$ = "PARDI! TREP GROND!" 120 C = C + 1 130 VTOB 13: HTOB 1: COLL - 868: PRUNT R$;" - ASSOU NIMARE ";: UNVARSA : PRUNT C: NERMOL 140 UF X < > N THAN 80 150 PRUNT : PRUNT : PRUN/ gh`8gh`ghLf :?Ի鬠堍堨ԫ󡍠Рλűؠó堰ԻΫ欍à嬍ԫ占ӠĠŲ򠍠ԫűӠĠűλ屠à占à占ŠŰػ堰ìػؠؠ堸ŠŻӧԻ፠Űՠƻ堰ԩàՠԠՠΠՠƻΠՠĵؠנ塩ΠԠĠű̠ĠŲ̠ǠΪԠ٭ŠBOUTABOUTuHUSTON!'  ')BOUTABOUT!BOUTABOUT.C7!$DEMO ! T "PRASSAZ INA TEICHA SVP ";: GAT R$: GETE 10 160 PRUNT : PRUNT : PRUNT "DEMMOGA, NEIS NEIS SARUENS BUAN OMISAS!" :(12);(21):+D$(4):G$(34)7L$(25)wT$" CREATION D'UN PROGRAMME DE SAISIE ":1:21(T$)2:T$I110:TR$TR$"____"::2:TR$ 4:1:958:"DESIREZ-VOUS ENREGISTRER :":6:2:198:"<1> DES CHIFFRES <2> DES LETTRES ? ";:R$SONuHUSTON! ' 'FAITSON1 ! FAITSON2 ! FAITSON.LM' ! SONDIR MEVuHUSTON! '  ')MEV2.DEMOK ! MEV2F ! NTJ;:NORMAL:PRINT TAB(4);"V$"(J):V=V+2:NEXT:CALL-198:POKE-16368,0:WAIT-16384,128:POKE-16368,0:PRINT:HOME:I=I-1:GOTO80"NA1L$(15)"150 "V$"(I)=VAL(E$):E$="G$G$":IF ICHR$(38)THEN 150"L$(13)"130 HOME:R=I-8:IFR<1THENR=1"zL$(14)"140 V=4:FORJ=RTOI-1:VTABV:HTAB1:INVERSE:PRIORRECTION - *=TERMINE - &=8 DERNIERS"G$":POKE35,19"yL$(8)"80 I=I+1:VTAB5:HTAB1:CALL-958:INVERSE:PRINT I:NORMAL"L$(9)"90 VTAB7:HTAB1:INPUT "G$"--> "(7)G$";E$:IFE$="G$G$"THEN 90"EL$(10)"100 IF I>1 AND E$=CHR$(63)THEN I=I-1:VTAB5:H="G$TI$G$":N="NE$PL$(4)"40 FORI=1TO10:TR$=TR$+"G$"____"G$":NEXT"L$(5)"50 T$="G$"SAISIE DES VALEURS DE "G$"+F$"L$(6)"60 HTAB 21-(LEN(T$)/2):PRINT T$:PRINT TR$:POKE 34,3"8L$(7)"70 I=0:VTAB20:PRINT TR$:VTAB22:PRINT "G$"?=C****************************************Y n* PROGRAMME COMPLET DE SAISIE * x**************************************** : L$(1)"10 TEXT:PRINT CHR$(12);CHR$(21):HOME" L$(2)"20 ONERR GOTO 230"L$(3)"30 DIM"E$":D$=CHR$(4):F$N EN CAS DE DESACCORD":1360S "AUTORISES: CAPITALES, CHIFFRES ET POINT":1360 ("ATTENTION! LA MEMOIRE A DES LIMITES!":1360 2NE$""NE$"X" <E$V$"("NE$ FE$E$")": P198:16368,0:16384,128,127:16368,0:W(16384): Z:+ d(NE$):NE11190 1330U 3:958::"FICHIER ";::TI$;::" DIM ";::E$: :"* L'enregistrement ZERO sera le pointeur" R1:1280:W781190 1420 18:1:958:TR$ R1300,1310,1320,1005 :"O";::"UI OU ";::"N";::"O ~TI(TI$):TI01120g I1TI:A((TI$,I,1)):(A65A90)(A48A57)A(".")TI$"?":1130m  12:26::TI$::R1:1280:W781120 14:1:198:"NOMBRE D'ENREGISTREMENTS ? ";NE$ NE$"?"R3:1280:1190 NE$"*"1120 NE" $NA(R$)48:NA1NA21050; .V$"E":NA2V$"E$"G 8:R$:Q B1330 L10:1:"VOTRE VARIABLE EST DONC ";::E$: VR1:1280:W781050 `12:1:958:198:"TITRE DE VOTRE FICHIER ? ";TI$ jTI$"?"R2:1280:1120 tTI$"*"1050> D$(4):G$(34):D$"OPENSONDIR":33,33:D$"WRITESONDIR" "FORS=768TO786:POKES,VAL(MID$("G$"00173048192136208004198007240008202208246166006076000003096"G$",(S-767)*3,3)):NEXTS :FORU=10TO40STEP5:POKE6,U:POKE7,15:CALL768:NEXTU" D$"CLOSE":33RAN PLEIN DE LETTRES EST"F 11:7:"ACTUELLEMENT MEMORISE A UNE "q 12:7:"ADRESSE CONNUE: $2000 ET ON " 13:7:"PEUT L'ECRIRE SUR DISQUETTE." "":14:7:(4)"BSAVE ECRDEMO,A$2000,L$3C0" 240 :12:" APPUYER SUR UNE TOUCHE POUR LE-----"9 (22:" -*- APPUYEZ SUR UNE TOUCHE SVP -*-"B 2240w <I123:I:J139:(I64);::I23ĺ(I64): F1911,215: PI20002039:I,216: Z1:1:240 d768 nI814:I:5:" ": x10:7:"L'EC ::(12);(21)/(4)"BLOAD ECRANLM" "ECONOMISONS LES SECTEURS DE NOS DISQUET-TES EN NE MEMORISANT QUE LA PARTIE TEXTEDE NOS ECRANS (EN 40 COLONNES). COMMENT ? VOICI UNE SOLUTION: ----PETITECRANuHUSTON! ' ')ECRANDEMO ! ECRANLML ! FORS=768TO786:POKES,VAL(MID$("00173048192136208004198007240008202208246166006076000003096",(S-767)*3,3)):NEXTS :FORU=10TO40STEP5:POKE6,U:POKE7,15:CALL768:NEXTU 0(i`Y D$(4):G$(34):D$"OPENSONPRO":33,33:D$"WRITESONPRO":10000:D$"CLOSE":33,40:'S768786:S,(("00173048192136208004198007240008202208246166006076000003096",(S767)3,3)):S:U10405:6,U:7,15:768:U ,40 REVOIR":240 816:240# 12:"CELA EST POSSIBLE GRACE A UN PETIT PRO- GRAMME EN ASSEMBLEUR (76 OCTETS), QUI SECHARGE DES TRANSFERTS." :"IL FAUT EVIDEMMENT LE CHARGER EN MEMOIRE(A$300,L$4C), PUIS PREVOIR : - CALL 768 vers $2000 - BSAVE ECRAN,A$2000,L$3C0 - BLOAD ECRAN pour le relire - CALL816 pour l'afficher." 240:: 198:16368,0:16384,128,127:16368,0:l"v19::958:T$:22:Z630:"QUATRE VALEUR MAXIMUM POUR DE L'HEXA":670:630:G$(TI$,1)G$;:(TI$)1ĺ(TI$,(TI$)1);" EST INCORRECT":198:I12500::198:"HAUTEUR MAXIMUM: ";::HILA::670:L$(N)(L1N)L$(N)((I))S$:I:580G:L$(N)L$(N)C$(I)","((I))S$:IeDL$(N)(L$(N),(L$(N))1)}N:I1N:L$(I)::XTI$C$"EXEC"::"FICHIER EXEC CREE: ";::TI$:b:(4)"OPEN"TI$:33,33:(4)"WRITE"TI$:I1N:L$(I)::(4)"CLOSE":33,40420 :2 ******************************Y ** ECRITURE DATAS OU POKES ** ******************************:L(R$):AFADLA1:N1690IADAF:(L$(N))220L$(N)(L$(N),(L$(N))1):NN1:690&CH560,5700L$(:G$(34)% C$"DATA":S$",":CH1w :10:958:198::"D";::"ATAS - ";::"P";::"OKES ? ";:R$::R$"?"Ĭ R$"D"R$"P"420 R$"P"CH2:C$"POKE":S$":" :12:868:198:"NUMERO DE PREMIERE LIGNE = ";R$:R$""410R$"?" D823G" 68:20:868O @I1(R$):511I,((R$,I,1))128::72,0:144 JAD$"":I19391943:X(I)128:X48X59350 TAD$AD$(X) ^I hAD(AD$) r:(4)"BLOAD"TI$",A"AD:200 |AD6000ģAD1:400 AD2000ĤADLA1 L$(25)120 R$(50)220U 8:1:958:198:"NOUVELLE ADRESSE ? ";AD$:AD$""220h (AD$)36290 (AD$)LAHIİ630:680:250 360 "AD$(AD$,(AD$)1):LA(AD$):LA4İ640:250 ,R$"45:"(("00"(AD$,LA2)),2)" "(AD$,2)" N ED24G N16,07 630:" LE RENVOIE A L'ITEM PRECEDENT"m AD(48825)(48826)256:LA(48840)(48841)256 :6:"FICHIER INSTALLE: A";AD;", L";LA:670 630::1;::" ADRESSE CORRECTE - ";::2;::" A MODIFIER ";:R$::R$(49)380 R$"?"********************* d:R n:630:" POUR LE CATALOGUE DE LA DISQUETTE" x4:868:198:"TITRE DU PROGRAMME LM ? ";TI$ TI$"?"ė:(4)"CAT":R$::110 TI$""710 (TI$)65(TI$)90İ650:120 710 (4)"BLOAD"TI$ 2 :(12);(21):/HI(115)(116)256VT$" LIGNES DE POKES OU DE DATAS "n(:21(T$)2:T$:2T$"":I110:T$T$"____"::2:T$:34,3<:F ******************************P ** PARAMETRES ** Z ********* % ((i(i`( (%`0N10):CH1L$(N)L$(N)C$$c198:216,0:ER(222):630:"CE FICHIER EST INCONNU":12048984,0#(4)"BLOADMEV2"8 :(12);(21):i"TRANSFERT DE 4 ECRANS TEXTE EN D000-D7D0";T$"":I110:T$T$"____"::T$(10:50:210-:.ECRAN 1 EN $D000-D3D0 (MEV1) - ECRAN 2 EN $D000-D3D0 (MEV2)( /ECRAN 3 EN $D400-D7D0 쬠᭠`嬠`嬠   堠ŠԠ'  2064<  : o X`  ()     宠庠     -  ŠҠٸŠҠٸ<=Ѕ>?B܅C8 í`<܅=Ѕ>߅?BC í`<=Ѕ>?BЅC8 í`<Ѕ=Ѕ>Ӆ?BC í` !"#$%&'()*+,-./0123456789LLB B(8`;YLLLY6:822,219:& 814,220:822,223:I XX1:20:33::"ECRAN "X:: UR UNE TOUCHE POUR CONTINUER":16368,0:16384,128,127:16368,0:3:958: 198:22::"PRESSEZ UNE TOUCHE POUR LE REVOIR"::16368,0:16384,128,127:16368,0:3: 807,128:838,130: 814,208:822,211: 814,212:822,215: 814,21230:240:2254 230:240:806:RETOUR ECRAN 2 Q 220:180:230:245:225v 230:245:806:RETOUR ECRAN 3 220:190:230:250:225 230:250:806:RETOUR ECRAN 4 220: 769,129:772,129:803,130:255:N 198:22:"APPUYEZ S:768:TRANSFERT ECRAN 4 s:P tRAPPEL DES 4 ECRANS A L'ADRESSE $0400-07D0V u: x220:12:"RECUPERATION DES ECRANS 1 2 3 ET 4 ----------------------------------" 220:140:230:235:225 230:235:806:RETOUR ECRAN 1  220:160:(MEV1) - ECRAN 4 EN $D400-D7D0 (MEV2) . 0:Y 2210:795,208:768: TRANSFERT ECRAN 1o <220:10:70:210 F210:795,212:768:TRANSFERT ECRAN 2 P220:10:90:210 Z210:795,216:768:TRANSFERT ECRAN 3 d220:10:110:210 n210:795,220堳Ʈ䬠   -  3   ۴30:110/ 12:12:B$;::" "A$:FIN1230G 110:AA1:A8190~ A0:16:"Voulez-vous jouer avec moi: Oui - Non ?" 16:40:198:R$ (R$)79330 (R$)78ĺR$:" Dommage! ce sera pour une autre fois! ":= "":18:" OUVREZ MIEUX******* d:? nBZ1F:X(49200):(49249)128F5FIN1G x:Y I13000::_ : :::::****************************** :::::** AFFICHAGE DU TITRE ** :::::****************************** : 12:12:A$" ";::B$ F :(12);(21):N:I1014:10:I:" ";:I10I14āJ1129:" ";:_30:" "::(B$" O U E S T ":A$"E S T"2190<:F:::::******************************P:::::** SOUS-PROGRAMMES ** Z:::::***********************,1)"/"R$"/"R$,(4)"PREFIX"R$:70\216,0:(222)6Ģ14:"PREFIX INCONNU":400d:UTRE PREFIX <2) APPLESOFT <3> MENU";:R1$:16368,0X R1$"3"Ģ22:(4)"RUN MENU"i R1$"2"490 R1$"1"Č198:12:1:"NOUVEAU PREFIX : ";R$:R$""400 I1(R$):R((R$,I,1)):(R45R58)(R64R90)ĂI:450 420 480(R$$)127)300$ JR$"0"R$"9"310B TR$:A$A$R$:(A$)2310 ^12:1:198:"HEURE ARRONDIE : ";R$:H(R$):H1R24350 h49041,(A$)2(M7) rM8Ĺ49040,M32(J$):390 |49040,(M8)32(J$) 49043,H:49042,07 :22:198:"<1> A" (J$R$)1(J$R$)311903 R$:J$J$R$G MM1:M13M1| 10:22:198:(AN$,M32,3);:22:R$:16368,0 R(R$):R13300 R127R8MM2:M0M11 "250 ,A$"" 610:26:198:A$;:R$:16368,0 @A$""((R$)8(R:22:"<1> CHANGER DE DATE <2> CONTINUER -> ";V 198:R$:(R$)49(R$)50150f R$"1"180o 400y J$"" 10:19:198:J$;:R$:16368,0:(R$)127J$""J$"":190 J$""R$"3"190 R$"0"R$"9"190 J$""J$J$R$:190 LES YEUX S'IL VOUS PLAIT!":16:29::"O";:35:"N"::240C :l ":::::****************************** ,:::::** LA PARTIE ** 6:::::****************************** @: J:16:958 TT$"Le programme va successivement vous pro-poser 10 fois trois noms de villes... Cesera @ vous de d{signer la ville qui estapproximativement situ{e entre les deux autres, et les positions de celles-ci." ^F3:I1(T$):(T$,I,1);:110:I: hF20:I19:110:912:: SCROLL (D{roulement v1000,1710G$"1> ENREGISTRER - 2> DERNIER SAISI "G$";:GETR$:PRINTR$:IFR$=CHR$(49)THEN 170"L$(25)"250 I=I+1:E$=CHR$(63):GOTO100"17:D$"OPEN PROGRAMME1":33,33:D$"WRITE PROGRAMME1":I125:L$(I)::D$"CLOSE":33,40::(4)"EXEC PROGRAMME1"PRINT"G$"ET MAINTENANT, A VOUS DE JOUER!"G$whL$(22)"220 CALL-198:POKE-16368,0:WAIT-16384,128:POKE-16368,0:END"rL$(23)"230 I=I-1:IFPEEK(222)<>255THEN VTAB18:PRINT"G$"PROBLEME IMPREVU!"G$":END"T|L$(24)"240 VTAB18:CALL-868:CALL-198:PRINT""G$"RELECTURE DU FICHIER "G$";F$ :PRINT TR$:POKE34,3:PRINT:LIST200:GOTO 210"TL$(20)"200 PRINT D$;"G$"OPEN "TI$G$":PRINT D$;"G$"READ "TI$G$":INPUT I:FORE=1TOI:INPUT "V$"(E):NEXT:PRINT D$;"G$"CLOSE "G$0^L$(21)"210 PRINT:PRINT TR$:(16)"160 GOTO 240"6L$(17)"170 PRINT D$;"G$"OPEN "TI$G$":PRINT D$;"G$"WRITE "TI$G$":PRINT I:FORE=1TOI:PRINT "V$"(E):NEXT:PRINT D$;"G$"CLOSE "G$@L$(18)"180 TEXT:HOME:PRINT D$;"G$"CATALOG"G$RJL$(19)"190 GETR$:PRINT:HOME:PRINT ("00173048192136208004198007240008202208246166006076000003096",(S767)3,3)):S:U10405:6,U:7,15:768:UuIS,PERIGUEUX,BRIVE,AURILLAC,CAEN,LISIEUX,VERNON,BOURGES,NEVERS,AUTUN,CHATELLERAULT,CHATEAUROUX,VERNONDINAN,FOUGERES,ALENCON,ANGERS,TOURS,BLOIS,DAX,AUCH,CASTRES,MONTLUCON,VICHY,ROANNE,CHAUMONT,EPINAL,COLMAR,AUXERRE,VESOUL,BELFORToS768786:S,(":700+PT3ĺ"PEUT MIEUX FAIRE":700NPT1ĺ"DOIT MIEUX FAIRE":700"OUILLE! UN VRAI DESASTRE! A REFAIRE!":130::38022:1:"<1> JE RECOMMENCE <2> C'EST TERMINE ";:198:R$R$"1"690::gLE MANS,ORLEANS,MONTARG07N40:I13:8I2:2:868:9V(I)12:X$(I):JX255:130:620b60:"REPONSE EXACTE: + 1 POINT!":PTPT1:255:750lJEU10ė:380v::::PT" POINT";:PT1ĺ"S";::::PT8ĺ"TRES BON SCORE":700PT5ĺ"RESULTAT HONORABLER63X3X2:RX$(RX$,1):4701R1R3470>X1540^I1X1:(RX$,I,1)R$470iI:R$RX$RX$R$:8R2:2:868:9X12:X$(R)&X3XX1:470017:14:I13:V$(I)X$(((RX$,I,1))64)Ă:610D"REPONSE INEXACTE":1364);::" "X$(I)::;:20:958:I110:"____";::"TAPEZ LES LETTRES-CLES DANS L'ORDRE QUE VOUS ESTIMEZ ETRE LE BON"X1:RX$""17:1::"REPONSE:";::198:" "RX$;:R$:16368,0:R(R$)64R63X2X1:RX$"":470 ers le haut) r34,6:_ |JEUJEU1:8::"QUESTION "JEU;::15);PT;" POINT";:PT1ĺ"S";y 28)"ERREUR = Del": I13:V$(I): V(1)1((1)3):V(2)1((1)3):V(1)V(2)410 V(3)6V(1)V(2):I13:X$(I)V$(V(I)):I13::(I38VV1:VND1VD1! n60o x(4)"PREFIX":PR$:PR$("/"P$(VD)"/")P$PR$P$(VD):(4)"PREFIX"P$ y23:868:"CHOIX P "(A$(VD),2)" "B$(VD)" ";::"PREFIX";::" "P$ 23:(4)"RUN"B$(VD) ::r PAGE INFOS GENERALES,TM3,INFOSTOUR AU MENU <2> TERMINE -> ";:R$:16368,0:R$"1"Ģ21::100R PR$Ϻ270Z Z: d21:(4)"PREFIX,D1":(4)"RUN MENU" - BRUN BOUTABOUT - LOAD PROGRAMME1 puis CALL 790 - LOAD PROGRAMME2 puis CALL 804" 2:"Naturellement, les lignes des 2 morceauxdu programme doivent s'enchainer." <:"Pour finir, SAVE PROGRAMMEGENERAL"B F22:"<1> RE  :B:"METTRE DEUX PROGRAMMES BASIC BOUT A BOUT"::::"Tapez d'abord un NEW (attention! TOUT PROGRAMME se trouvant en MEMOIRE va ETRE EFFACE!"s (:"Ensuite, successivement et sans erreur: R30:FA150:FX25:FE10:TARIFDISQUETTE,NUMERO REVUE,ABONNEMENT,DISQUETTE DEMO,FRAIS ENVOIl <1170:1030 FT$"":::" PAGE D'INFORMATIONS EN TAPANT ":2:I110:T$T$"----"::T$:34,3 P22:3::"SI VOUS LE CONNAISSEZ, BIEN SUR...":) Z4H ::(12);(21):::49234,0: ECRITURE MASQUEE DE LA PAGE INFOS (103)(104)2563073Ĺ103,1:104,12:3072,0:(4)"RUN COMMANDE"LI4:NOMBRE DE DISQUETTES POUVANT ETRE COMMANDEES A CE JOUR(LD3:NOMBRE DE DISQUETTES DEMO\ 2FD105:F133: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::,CERCLE,48 - SAISIE LM ASSISTEE,SAISIE,SAISIE.LM 51 - QUELQUES NOTES,SON,FAITSON1,52 - OUVREZ L'OEIL,OUVREZ,OUVREZ.L.OEIL.,55 - LIGNES DE DATA-POKES,TM3,DATA-POKES.768,32:769,190:770,222:771,32:772,123:773,221:774,32:775,253:776,229:777, GENERATEUR DE PROGRAMMES,TM3,CREATEFIC,36 - ECRANS CONDENSES,PETITECRAN,ECRANDEMO,38 - OUEST-EST,TM3,OUEST.EST,43 - CARTE LANGAGE,MEV,MEV2.DEMO2 45 - SAISIE D'UN TEXTE,INPUT,INPUT.DEMO,46 - LES VARIABLES,INPUT,INVAR.DEMO,47 - DESSINE-MOI UN CERCLE,TM3," 3 - ECRANS 80 //E",ECRANS,ECRANS.BAS," 3 - ECRANS 80 //C",ECRANS,ECRANS.BAS2C,13 - CRYPTOTEXTE,JEU,JEU.EXPLIC 17 - LA PERSONNE X,TM3,PERSONNE.X,21 - VISUBLOCS,VISU,VISUBLOCS,30 - BOUTABOUT,BOUTABOUT,DEMO 31 - DATEZ VOS PROGRAMMES,TM3,DATE,33 -:1:"NUMERO DE CLIENT ";N$:N$""1305 d774,N$d nI1(N$):AS((N$,I,1)):AS48AS5790j x 6:1:958:"NOM & PRENOM ";I$:I$""130 774,I$ I1(I$):AS((I$,I,1)):I2AS32170 :::"NOM ET PRENOM SVP"::I12000::,R$:!:I122:I:1:" ";BI1I22āJ239:J:" ";:S40:" "::q$32,2:33,36:34,2:35,22}.2:1:8" Utilisez votre imprimante pour pas-ser votre prochaine commande de dis-quette a TREMPLIN MICRO:"!B:"PRIX UNITAIRE: 105F s recevrez une disquette vierge gratuite.":E$T$(T$,7):E$"TREMPLIN MICRO - GUY HACHETTE":E$"La Petite Motte - Senill{ - 86100 CHATELLERAULT"(12):(4)"PR#0"::20:958:198:" <1> ON PEUT CONTINUER <2> ERREUR";:R$:16368,0:774" MONTANT TOTAL DE MA COMMANDE: ";:36,64:T:E$" "(T$,28):~:E$"MODE DE REGLEMENT: CHEQUE --- CARTE BLEUE":E$"CARTE BLEUE ..../.../.../.../ - VALIDITE: ../..":E$"Montant @ d{biter: Signature:",D(3)1ĺ:E$"VouN MICRO N["I;:36,65:FR!Ik: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:FEI:E$ "(E$,10)(T$,20):(15):CRE$I$;:36,48:"CODE CLIENT: "N$a\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$" - TREMPLI790I ::"SLOT DE L'IMPRIMANTE (1 PAR DEFAUT) ";:R$:R$""R$"1"b*:SL(R$):SL68004::"ALLUMEZ-LA ET POSITIONNEZ LE PAPIER":R$:>(4)"PR#1":(9)"080N":E$" ": 20 ESPACESHE$(14)" BULLETIN DE COMMANDE":":958&1020:(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":1020:(R$)800,330:ROS DESIRES":958:NU$""::21:198:"-> "NU$;:R$R774,R$:R$"?"640o(R$)127(R$)8700(NU$)1NU$(NU$,(NU$)1):640(NU$)1NU$"":640640(R$)0(R$)LD(NU$)LDNU$NU$R$:640:18:33::NU$:? -> ";:AB$:774,AB$7:AB$:AB$"O"AB$"N"560UD1020:(R$)590,560:580N:::"DESIREZ-VOUS UNE DISQUETTE DEMO -> ";:R$:774,R$XR$"N"800bR$"O"590l:::I1LD:DE$(I)::I;::" "DE$(I):v18:"TAPER LE OU LES NUME(I)1:490R$"N"440`R(I)0::15:868:198:"TREMPLIN MICRO NUMERO "I" -> ";:R$l774,R$R$:R$"E"I1ī440R$"O"R(I)1:540R$"N"490ILI390&1020:(R$)560,490:5500:::"DESIREZ-VOUS UN ABONNEMENT A LA QUESTION PRECEDENTE"#|I0-II1D:18:868:J1IbD(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"D:657:L$"":X512767:(X)141L$L$((X)128):XE 6774,L$c @1020:(R$)330,290:320 J34,3::N$;8)I$:V$""ĺV$:L$ T1020:(R$)350,70:340 ^:8:T$ h::"REPONDEZ PAR OU "::34,11:12:r22:T$:3:" RAMENE ""190 774,V$& (V$)9190R I15:AS((V$,I,1)):AS48AS57190m I:(V$,6,1)" "190 I7(V$):AS((V$,I,1)):(AS65AS90)AS32190 I 1020:(R$)290,190:280 "11:1:"FIN DE VOTRE ADRESSE":9589 ," - ";130$ 1020:(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 V$+ 10 F d'envoi --------------"]L" Pas de frais d'envoi pour les abon- n{s @ la revue."V:"MARCHE A SUIVRE: Simplement r{pondre---------------- aux questions, puisallumer votre imprimante!"`:"FACE 1: DOS 3.3 FACE 2: ProDOS"Fj16:20::"ABONNEMENT (1 AN)"::17:20:"150 F (5 NUMEROS)"rt6::"DEMO:";::" 25 F par disquette"~60,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, ( < *? ( < (? ( < (? ( <*? * **? *? *? ( < *? ( <Lg& 'L&8ei` ,$`ee` `<( '<( '` ' ' '`hh8`8`=(>(F(`}N(`e`H)hJJ'0JJ)` (<  )1& ` (Xp< @1& )m1&1&.1&4& M1&i  ``rȱȱȱȱ0]cȱeem<(ȱ=(ȱ>(=(ȱF(=(ȱN( '<( z' #'Lg&`L' 'L& ' 8f ZHH)hh8JhJJJJJ '&H(&8H) 12 (j21 h!hH h %)Ђ12H)M0 h10200I20h2 9&`L#`)&!2"L  :8! ȱɈ 5   8 0 8 `0 / x X$$ $&$0`ŠӠ­ԠŠҬîʎ1DžϠ)&ʈ0  0ŠϠĠ͢Š͠͠ϠŠŠϠĠخ͠ YYZLYLYLY뿩 8@  *$ MNЩUM  LPN!-RB}PBiB ,m# m# J Qڨ)̰n]e мȱ ; ̀𩠙< iO P F V >Z SY ɘL` X _ [ V7 c L '0%O '8O JmO * n!o!p! k! iL X%>!L;!ΠΠҠ`}!!!"!!!l4"# G$YO!-q(qR9B}PBiBCe! H$q!r! c&L*!M8tl # ) y!s!(&s!t! c&E )?  @ e!l!0 $l!0u!v! c&-) &ۍw!x! c&Эb)0I0 ( d!N)Gi/ h!4 98,84:799,192:800,96:TEST ET AFFICHAGE INFOS;iGRIBOUILLE,MAX THE GLOBE TROTTER,PROCODE76:772,44:773,254:TRANSFERT 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,2015788,63:789,208:790,9:791,173:792,85:793,192:794,32:795,12:796,253:797,173:7,<ʆ>*=?BC8 é&'112`HB-4F 1"aɿ LL@ Nϰ H  @h( L Lh  @`bLJCAB@=?FG'(`)\ \8ʈ` ۰0)i `8`]R ܍hRSg ݰN]FG ݰ< h0 FGLۮ]g0 SR8`a`H8` ܹ ,gR S 8h Wڭ01 E8`1ݖ0 iڰ$]0̩GF ݰ ڰ ڰ`12)1`0]`Ȏ]i 0U`)8`΄`] ېW }װG =۰A)H ]ʈh0)*ȱH΄`f8eHI ٰSB0% ؠ]#!F&dʈ pٌ`8m0k`,0H hi LٍȽ΄h]0GF𨍆8ylFmG ݰ ڰ`]0Q8`d*؅IFG ݐ`g()*g p8D`F` ilH)HFȍ&HG' ݰ$%d&e!8* J8` Lע )I '`8fi*F(G)`f*؅IH3H g( g )c'G ݰ%" ݰX)Im'F(G)** ݰ4 ֭ $H ݰ%HFFHGHG ݐ`R8`ͺͻ)` װ H+` /ٰR(*؅IHH++Ѝ+@`g8c ؐedc e* eIȱ@;ȱ@EGH>&P'Q+)7+I0 ('*A ܰ7<=FG ݰ( ְLݩI* mIH` LI I%0(F)G ݰ ֬+H&F'G ݰ&FF@ 0 [ gLթK8` I8`FHGH ܪhGhF ݰբFF芝 ݰFG ݮI mIHHyHȘI ݰLԩ` ՠ @;@ C@Ю+)m+ʈ@i ]`^C8` @ x3N@) Wڎ ԭi`0 iڰ0GF ݰ#]0 ڰW,0 ] ۩.H hȑNWȮNW8`N΄0NN` װG8`j𪭄Б` Ґ L` א@>+)I38j%k@؍L3<>=?<>CAB@?A` / L  <>` ڢF]PL8i m L   4< L  BLRAM' hLDLg` RS `]JJJJ`hH]hhn)gNhjNhjNhjnNh.p WݰHuh ݰ;h]r ݰ*nNpg qq`Z8` Wݰ#ppo o 5ݐ`noS .S .S .S8p*JRp qq]RS`]JJJJi LWݩH8`]r ݰ]rq0 ݰ ] o`q ݰq`r]uysitB0Hr0sFtG ݪh0`שB*xED~0C +)+ha?+JJJJ+)+@` װ%I -I) 0@+`N8`  ) N^ȢV@vVv^@ʈL\ 簞KIJH^Ȣv^vvw)xJn 8 ΐ^ nH8^ ^i 8`L Ӑ L Ӱ )ܹ0 )p )@ )  ^$0&F'G ݰ ح()&'FG ׬^>?@ ; R+) R+ ְ^)%r ݰ`H@h`h`^ IhHIhH  i ` ܰ ii` )0CGHFHBFG ЪhFhG`@5^͔ M @B^i ׭` .^ @#^0 iڮ])`L@.^ 簪HIRH^  PLzEzʱNLMOwxMEKP%zMEKzL2 Owx,vy PveNNO \(` R  F .AxJRHISHI^ HIHI`  .` .A^ HR HS`@Nȱ@O^`^vY}RIR` tVYR t 3 tVR` ^` H  ^h)N@ N; L  ;ް$ )bJ`a f۰ ) H BhL ) . )xJwjIS@L;ެ^8NvNO 8} |vJLy`zRzʱLN.MOwxMEKP/zMEKzLCL-}M| Owx,vpyeNNO(`JNKO^L ;ް/  0P L8 | Zߠ^J`L@yȱ@z^ h)N$%^vywz LL⭦ L x L ;ް  0pzJ{ )@~NJOK ;ްiKKzzww xxIJ{ y zJФ̭xJwjHFIH ~HIG~xKE а((H hH h8`8y@ȭz) ) )cвHJ8` G^悔<F^f $ ӭ+v ;ސH^  @^h8` ߰] ^@`fc__f (^_ $c )8`)i п`  H  ^FG`BH T^FG`H ^hHBF  GxDE^0~0C а(`(8` L*J ^ :"L ݢH ^ : ^9` א@ P8`^_B8` ^$+JJJJIHIH IL9߅FHGI ѭxJwjHIH;7I^JJ Zߐ3HIHIL|ߩJKJK`FHIG ߰( ߬^ȢYvJLw)eKM`^)` J RJfw ߰$f0 ߰fJFJL8`JGBJ T(`(8`^@`M8`^8@tʈI^)Rw8RR xL|߹ Lߠ^C8`b)@ i^)Rx8RbzwJ x_ F Lr߹) +b&xJ(b .^FG/8` .xJ`O WݰIK@J5 i8V%&8V)HV)hH)hHIhդD?DRIDQD); ?JDQD]`MY pY)p  p`FGV 8``8L:HhHh VY>:Y)`;R?AJ;<ȰY)`Y?)`ȐҰ ;HhHh=`Hh `Hh`DEiȍ01ZsDE8T8Wpq 7I꽌ɪ꽌ɭ蠪:VE:8`]V]H)]V])]T])] >8hUD` Y`> Hh݌(`HCJJJJ)*h`0($ p,&"op8`kkV꽌ɪɖxl*k-kmMl 꽌ɪ`8` *L o % YZoY 3 NZ`rZLkZq8r7IZiZkk 8 s q | kн Z)*>>` @ $(,048<@DHLPTX\`dh 0ުlptx| . .V  JJJJH 8h Ei 8EX`'8`jWC)p> pCYY 轊( ( BV ( p0 \BkJ @i> i'j:ZH i@ioZZH h ȭnWǥBJ 8X>` +>P8H  ): e: y8鰕:Jjjj<)yi8i;i(*=>hP8`;Zx3QTTSRWVUHEVhEhH)IWHPHHHAHHHLaVEWLӿLLՐ`BLڑL COPYRIGHT APPLE, 1983 h@ 0J @L:HUSTONLL`BLLТТТТТТТТТТТТТТТCOPR. APPLE,1983LM Mh@8nЍLЭ 0J @,,L:,LĠԠhhhhIL@Ae \{**ӂӹi|wWIJK,-NOPQRSuHUSTON!' @   !"#$Ԡ͠ˠ9X(K iXXK^ Ko`V8`no` 2 on iI9XX`)HJJJh`OeNeO࿰ i9XАO`@ȭ@` ON ONJKO`HHHHх XʩXύX X A %  % ɍNH hɛɘɉɈ $ Lc :Lcې)ɮ۰ɺ'Ɲ Lc  : X i % $ɛ$ɘɉ ɈL :Lɍ)ې)ɮ۰ɺH h 'ĝL  LL L)'L L L'L  (L(L $ʩ $$ $L `ީ % K`JJJJ8`轚K)` 7#hhL"Jپھ pHJh` {!hgt}~p  `~t}p8n~ni}tpi~~tsLo8pinii>j?k̈́>~|ppn + {pnI:L ؅30,3L]8^933LAAJL ةޘг uv $ 8LЌ Le p>?@`>?@`BQ8`e 矮K ⟩ 䟢 춼LK  z KɍKL"?`  L@3 @LtJ)s@J % `͘?s?,E30ɍФ3 +E3HD F3 Ʉ%h3 M +E  LthɍLL3`3,A0s0% I`O>0O  矢POپھ p AH־Ǿh۰8L"־Jjjjɾ)Ⱦ8 + OL L$L>(F`־ؾپھ׾` Ʉ +KDEF L LK K% ʽ  ٚ,S` w $݅3`(l8L"3L>(Ƀ,`3,G0]ɾ ` w`پ_پ p _پ׾`>( p۾m׾) W)ʩ@`ɾ>(O puȾ ɾ-O c־Jjjj 왻ɠ, XLޭBDEF޾ p 7 ޾ p($ذ (0 U( L?ԦʚLeةީ s +  L ,FL,DLE,C0!3 > Ɉ 3ɾL(3ɾ;Ƀ UB94 H06172839h` 97L75v^͘ ?/( ?LKLLɍ$?`? ɍɥAH93827160hH46576879h`,C Lޛ $0. ɍ  ,S0 ?@ L L ŠϠŠà͠ӠàԠŬ! !5).莀/ ! !!!!! !!$ ! "<" !!뭳!!!!ILYL 8!9!詍` ! !ՠî򠠠!STARTUP/p$# {  { / XXύX?klmnÍoL) !6L'!(0`670! = ***)<JJH !h穖tp% !Z/݀!!'  &@DEF   %LҠؠӠ΢ϠԩҠŠƠԠԠŠӢɯϠҠůȠԠĠ  |Ii||̈́ ҡl 4 j `>i>?Ek?!>Q>>>̀ `` > ̀ `e>>?́?>?Emn(>e>ȱ>e?>Q>ؠ> ie>>?`|;}=:<~:<=;`||m};>:8o>oȑ>ppȑ>> :op` {KpnͶ @p;=po:S ?@$I0 U)VJ *T)`l8`a HbIJhjǾȾɾ p٭b=a 5L壥>  5e>>?́?`>ȥj>>m>` T`m8injkiljo풼i>?Ek?>Q> A ԟ ` ])Y 񩢍`Ⱦɾ0Ǿ p)莼 * 6 w= l& l8Hh l` 6Y׾ؾ+پھ p|پɾʾ`HV)jh츾$-#Ͼ p о־޾Ǿ` 8` 8`ɾ)ɾ̸ ɾɾ0miȾ p pY)ικ`lP y*,N!ǾȾɾʾ pǾ~H Uh8`8`,C U  8` 2ȾɾM$ mHݓǾ phϾL5LLL"L  KN)_ `@S8` ԠŬLL<[B?I>孓`仫6VtCicQĿUKqtVt Nʮq$6,⨁ K6, VtI=v!gNVt Vt  lg~TŠӠŠҠüϠž(+@ABCDEFGHIKLMNPSV     T[fouu~ՠٯ* PWN*]ĿNTz @n6VC/+A>@I5gN Oz @n[Dz @nd0,~z @`$仫@v$⩔,CTORENAMEBRUNLOCKCHAIN#FLUSHREADPOSITIONOMONPR#PREFIXCLOSEAPPENDx{[{0ǭ0hЫ}wA Xw­孶׭fl@@ -!S    !C- !ABELSDFRV@@ !$(19@E(8mȾȾmɾɾʾiʾ` Lpl8l:/[ҝƬƀ#(ZZV4D\-:% >M CgIY2m*b6>BSAVERIFYBLOADELETECATALOGOPENWRITEXECREATEFRES p` y־ǾҾ,G 8`׾ؾ  p жۥs׾tؾE` y ( о(־Ǿ,G 8`_`W)H־Jjjjh p̭ L;Ǿ ..8 ۭ }ȾȾI>Ie f`8` yP־ǾҾ,G0C =W)_``\"׾پӾؾھ pD`־ǾY׾ؾOW)ݩȾɾʾ pD`8`W)CB) ۵ 5W) )W)@! pZ}ȾȾ޾,N0MHhHh p' ,N HCNh`M`M N `޾Lp yh־Ҿ,G0^W)TP) ecfdپھ׾ؾӾ p$c d pccddީ 8`ȾɾʾNfne`_ 2Ͼ pH h8`jGMоM  G):_`蹀:`V)8`MN; ;`;C N8` G)̀#:蹀:`V)R y pH h8`Ͼо־ǾҾ_` EӾ pW) |LC`C N `9V) ß ` V) y޾ p` y (8` 8`8`(W)`_V)Ij!؍Í`_ jЭW)