' +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- ( D @ՠ@跻~!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 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(`F d ֠z# u`************0R* ROUTINE CLEARHGR,SON *TS******************************ZT:\ADR768856:CODE:ADR,CODE:: f169,32,133,7,169,0,133,6,162,64,160,0,145,6,136,208,251,230,7,202,208,244,96,169,32,133,7,169,0,133,6,169,255,162,64,160,0,)******************************E** RND (ECLATE) *i+******************************o,:4A(K)((((1)1000)8)X30):B(K)((((1)1000)14)Y30):A(K)1A(K)279820>B(K)1B(K)150820HP: Q******************79Y2:X,J::K120:X,YA(K),B(K)::306:Z******************************~* RND (ECRAN) *******************************: X((1)1000)4:Y((1)1000)5:X30X250780Y10Y80780 (:!:gA(30),B(30):768::768:3:I18:B13:U(16336)::780:J179Y2:X,J:I4āP120::740::P1800::768::P0:P18:B(16336)::K120:820:X,Y:IPOA(K),B(K):U12:B(16336)::U1((1)20)::*I3Ē0:J1v #AI(((1)1000)7);BI(((1)1000)4)A:PBIAI650`BI170650fP12000::P110:B(16336):::******************************* FEU D'ARTIFICES *******************************:580&A((120)100)16040B((120)100)20::D:768::1:22:" MENU":16368,0:J11000:590:855,AI:856,BI:834E(16368)127ĺG$:D$"RUN MENU"FN650XIAIBIbAI50,IlIPOBI50,IY3.14X2YY1100$:H******************************l* DESSIN ALEATOIRE *******************************:AI30:BI160:600:600Y130:Z90I1100550Y,ZIPOA,B700:72068::791:768^X5250X&h430=rOC1ēX,100100,YY|OC2ē104,Y:IPOX,102`X{OCOC1:700:OC3470350:******************************* CALCUL DES COORDONNEES *******************************: ****(6* SP.IPO ZZZ *L7******************************R8:z@I12000::I120:B(16336)::H:I******************************J* ART.GASTON AVEC &IPO TO *K******************************L:T:OC1:7 EFFACEMENT *: ******************************@ : "320::22:" BON... IL EST TEMPS D'EFFACER! ":G$;:210:250::G$G$G$:1:22::" ET MAINTENANT, PLACE A L'ART...GASTON ":320: ,340 4:5************************** */ ******************************5 :C 250:260m J16:I50150:IPOI60,IJ3::: 320:1:22:" IL PERMET DES PETITES ANIMATIONS " J16:I50150:IPOI60,I:: : ****************************** * $ * & IPO * H ******************************N :\ 210:220 J16:I50150:IPOI30,IJ2::: 320:1:22:" LE MECANISME EST SIMPLE... " : ****************************** * ANIME L *. ******************************4 :X J16:I50150:4I,IJ2:: 320:1:22::" & IPO ENTRE EN JEU "::320:834:1:22:"L'EFFET DIMENSIONNEL EST EVIDENT... " : ******************************PO.C":768::3:1:22:" ON TRACE DEUX RECTANGLES QUELCONQUES..." I110:80,80I150,80I::I110:70,100I170,100I: 320:1:22:"PUIS DES DROITES PARALELLES AVEC 'HPLOT'" : ****************************** * HPLOT NORMA/d DEMONSTRATION & IPO X,Y ET & IPO TO X,YIe (C) DOMINIQUE LUGATOf:tn::D$(4):G$(7):(21)::G$xT$": :"::11:10:T$:11:11:" DEMONSTRATION ":11:12:" &IPO &IPO TO ":11:13:T$::320:860B :D$"BRUN I     嬍 ̻占 ϻ ǻ額 ç占 û Ԯ堍 Ի占 򡍠Ѡ̳麠 ç占 û Ԯ堍 Ի占 i8i#H&ii&hif&i'`'i,&i,&iPII&if&HhH8HӰ hIiHӅхhЅhIi҄f8Ъх `8e҅ԥHHH a(hhhӰ `eЅԥeP` a aQ&&`Q&%0`,"&,`L``3`HH ` L#`IPO 4hh  a` a`Q&&` Q&%0`hh Ta`#0JI0`'0 I`0 I0ݩ()!%01&%0) &E%0e)j00',"&,ұӧҠ̩٠ĠˠӠ󡍍ϠϠϮéϠՠ٠ȠРΧ֍ҠΠǠҠٍ̩̩٠̠󮍠Ұ占Ӡ썍Ԡؠ Ҡ٠ȠРΧ֍ҠΠȍ֍ύϠҰ̠占ҠԠŠǍǠҰ占ҠԍȠԻ宍ɍϠàϧӠҠԻ占РñϠѠϻ麠ϠύҠӻؠ»򮍠󠦍ύԠРةٻ占ѠԻԍӠԠ٠占٠頳宍ѠӍҠԻ占̍Рϻɠ占ػύث󍍠һàҫ٠ҠԻΠՠƴӠՠƶ¹حȠ̍ǠҍԠàЍֻͮЍ֫Ѝ֫ӠΠ˧̠ՠҍˠՠԠՠ±㮍Ԡՠ·Ҡՠ¸宍ҰՠŴ֠ՠƵ򠦪ϠϠ堤Ƶؠՠɍ̠ՠ ՠȠՠ֠ՠ ұՠàᠧ     145,6,72,138p72,32,57,3,104,170,104,136,208,242,230,7,202,208,235,96,162,21,173,48,192,202,208,250,96,173,48,192,136,208,5,206,88,3,240,9,202,208,245,174,87,3,76,66,3,96,0,0208,251,230,7,202,208,244,96,169,32,133,7,169,0,133,6,169,255,162,64,160,J 2d:(12);(21):::D$(4):G$(7):V3:DV1SnI110:T$T$"----"::SP19]x370xN30:A$(N),B$(N):660N27R1N:A$(R),B$(R):" DISQUETTE DE TREMPLIN MICRO NUMERO 7 "T$:34,2 23:T$" UTILISEZ LES FLECHES - RETURN P      %% U( iT( i(٩i)%нHHH   :۩  iQ hhh` 010LEN08 X  : iQ% "`24)";:11:7681d:(4)"BLOADDUMP80":3RnI122:I:A$((I),1):J120:A$A$A$A$;:::x12::"ESSAI DE LIGNE EN MODE INVERSE - 12 12 12 12 - ":24:"ESSAI DE COPIE D'ECRAN 80 COLONNES (LIGNE 1 A LA LIGNE 24)";:11:7681 D$(4)::z12:"POUR UTILISER , CONSULTEZ"::"LE NUMERO 7 DE ":"AUX PAGES 35 ET 36"16368,0:16384,128,127:16368,0::D$"CATALOG"::"ENU DISQUETTE ASIC ";:16368,0:X$::X$"M"X$"m"ĺD$"RUN MENU"MĹ230,32:62450= 49236,0:49234,0:49239,0:49232,0:3I "M355p '24,1024,155279,155279,1024,10 ,IM30:IM,156IM,159:D1 1I5227922:DD1 6A154VF(D):A1154VF(D1) ;A1155A1154 @A155A154 E3:I,158I,156 J"EN VALEURS":DX1R$R$" REELLES":240= R$R$"/"(DX)P AD9039:170:V :z ****************************** * TRACE DU GRAPHIQUE * ****************************** : NDR$" SAISIR LES DONNEES ":365 M285  R0:DX1:CA$"8319857588319087835986158871912783998655"W PGDX999DXDX10:200e I1404z AB((CA$,I,4)) CH(PG(R(PG9))):CH(CHDX) CH$(CH):CH$((CH$" "),3):RR1 K13:AC((CH$,K,1))31:ADABK:160:K:I) R$***************** :F 8,AC:254,AD(AD256)256:255,(AD256)R 7073:n L(R$):ADAD(21L2) I1L:AC((R$,I,1))31 ADAD1:160:I: R$TI$:AD8191:170 I112:AC(("JFMAMJJASOND",I,1))31:AD8785(I3.125):160::d::(21)i163845nV(13),VF(13):D$(4)is GRAPH.LM:$1B58 (7000):GRAPH.IMP:$1C52 (7250) x GRAPH.F:$1D4C (7500) }805585: MENU:******************************* LES CHIFFRES ET LETTRES * *************         {"HЅNqȅN8!Oqe"O8#N$O"% "(ɠH(%h% "h($"% "(ɠУ!""#h"`Р占Р͠占àŠ堿:"TITRE:":::22:TI$;:1:"";R$:R$""TI$R$E20:958:TI$22:"<1> ENREGISTRER LES DONNEES <0> NON ";:198:R$!:R$"0"595&R$"1"540+6950:5******************************:* MENU *?12V(I)PGPGV(I)-V(I)PPPPV(I)3@DIPGPPZPG144CO144PG:P1uPG144COPG144:P2I112P500,505VF(I)(V(I)CO):515V(I)0515VF(I)(V(I)CO):ND1LECTLECT0:595 :220:********************:*::I0:M04II1JV$" ":I9V$""k3I:V$I". VALEUR -> "V(I);z15:"";V$V$"?"450V$"*"I1II2:400V$""V(I)(V$)3I:15:V(I)M1I12400PPV(1):PGPPI12:IM,A1I,A OIMI:% T2:7000D YI2615416:24,I278,I:R ^NG1:185d cM0:198:R$q h::595 m21:958:198:11::R$::I12000::595 r: w****************************** |* SAISIE DES DONNEES ***********占Р占Ӡ㍍Р占Р占Р͠占àŠ堿占٠Ƞ򠿍àŠ占àР占Р占Р͠占àŠ堿٠Ƞ占Р占֠썠Ҡ ̠ȍŠ̩٠占Р堿ŠϠ占٠鬠占占ӠŠΠà֠占Ҡ ̠ȍ占̩٠Š٠̠ȍ̩٠占Р堿ѠŠ頿占̩٠占֠占Р堿àΠàР占̫Íà͠占Ӡα٠̠占٠Ƞ占̫占РР占àα֍Ҡ ٠͍ΰ̠占ààȠ占Ӡΰ̫占ààҩ٠αàҠ婍ؠҫ٠ϠàҠŠР  àҫ󍪍Р̠占àҩٍÍ ՠò֍Ǡ̠ŠՠР占͠፠ؠ͠ȠՠҠРՠԠ͠ՠӠȠՠ̍֠ՠ̠̍ՠŠ̠ՠŠ͠ՠİЪӠΠŠŠŠ٠ԠҠՠ Ԡՠō     M1:450:2******************************V* FIN DE PROGRAMME *z ******************************::D$"RUN MENU"'51,0:59533 33333?333 33333 ?0 ?8p`xx``xx>33?3 333333>0 ~~ < <~b033?3333333333333333;33333?333? ?00003333?3?33333337;3333333333337;3333303? 333333333  c ` 80N >L010nT16Z Z G02808888866$$~$~$>> >B%$R! *,88888"6">~~`p83;?73  ?30 ?30038<63?00?03i:<  0  (e)e Jve I ɍ ɚJJ (М ` &%0) W :L`Diiȥi`M1:450:2******************************V* FIN DE PROGRAMME *z ******************************::20:"]GOTO10000":19:'51,0:595D$"WRITE"F$:TI$:I112:V(I)::D$"CLOSE"F$:5858:]****************************** * LECTURE D'UN FICHIER *******************************::LECT1:695D$"OPEN"F$:D$"READ"F$:TI$:I112:V(I)::D$"CLOSE"F$CHIER *.******************************4:20:958:"TITRE -> GRAPH0 (PAR DEFAUT)";:10:"";F$:F$(47)F$(58)F$"GRAPH"F$F$"?"ė:D$"CATALOG"::::695F$""F$"GRAPH0"20:10::F$:LECTı2D$"OPEN"F$:ESSION DU GRAPHIQUE *:******************************@:hNGR$" OPTION GRAPH S.V.P ":3656,1:7,1:253,0:254,2349236,0:49234,0:49239,0:49232,0:7250:::595:****************************** * ECRITURE DU FI::32,8:33,32:3XI1(M$)25:(M$,I,25)::D]32,0:33,40b:21:11::"OPTION CHOISIE: ";::27:198:"> <";:28:R$gR(R$)48:R1R5610lR$qR750,395,270,655,790v:{******************************* IMPR******************************$D:]IT$": :":TM$" M E N U "NM$"1. LECTURE DE FICHIER 2. SAISIE/CORRECTION 3. VOIR LE GRAPHIQUE 4. IMPRIMER LE GRAPHIQUE 5. FIN DE PROGRAMME"S:32,10:33,20:5::T$TM$T$!! GRIBOUILLE,PROCODE123:779,221:780,32:781,253:782,229:783,160:784,0:785,177:786,94:787,201 788,63:789,208:790,9:791,173:792,85:793,192:794,32:795,12:796,253:797,173:798,84:799,192:800,96:TEST ET AFFICHAGE INFOS ";:16368,0:X$:G$24X$"B"ė:D$"CATALOG":@>X$"R"ĬIH810:X2780`X1: :G$::"POUR UTILISATION, VOIR ARTICLE"::"& FICHIER(S) CORRESPONDANT(S)."*1:20:"ASIC ETOUR MENU ";:16368,0:X$:G$4X$"B"ė:D$"CATCHAQUE LI- GNE DU MENU RENVOIE A LA PAGE CORRESPON-DANTE DE TREMPLIN MICRO.":780: 198:16368,0:16384,128,127:16368,0X1: :G$::"POUR UTILISATION, VOIR ARTICLE"::"& FICHIER(S) CORRESPONDANT(S)."*1:20:"ASIC ETOUR MENUOUS POSSEDEZ UNE CARTE BLEUE, TELE-PHONEZ AU 49 93 66 66"a::11::"EXPEDITION IMMEDIATE":j780:12:" Cette disquette n'est pas PROTEGEE et il est prudent d'en faire IMMEDIATEMENT une bonne copie."S::" LE NUMERO PLACE AU DEBUT DE CILEMENT CE NUMERO ENLE DEMANDANT A L'ADRESSE SUIVANTE: * TREMPLIN MICRO LA PETITE MOTTE * SENILLE 86100 CHATELLERAULT"::" UTILISEZ LE BULLETIN DE COMMANDE DE VO-TRE DISQUETTE."9:" SI V,:::11:" BONJOUR ET MERCI! "::" CETTE DISQUETTE NE VOUS RENDRA VRAIMENTSERVICE QUE SI VOUS POUVEZ LIRE LES COM-MENTAIRES DE SES PROGRAMMES ET ROUTINES DANS LE NUMERO ";::NU;::" DE ";::"TREMPLIN MICRO"::" VOUS OBTIENDREZ FA768,32:769,190:770,222:771,32:772,123:773,221:774,32:775,253:776,229:777,133:778,96:779,160:780,0:781,177:782,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,96E D'UNE VARIABLE",*HX "57 - COURRIER: CADRE HGR DEMO",CADRE.HGR.DEMO|b"58 - COURRIER: FORMATAGE IMAGEWRITER",FORM.IWl "59 - COURRIER: GET TIME",GET.TIMEv"60 - COURRIER: MANETTES DE JEUX",MANETTES 61 - FICHE N[7,DUMP80.DEMO :CER,*'37 - VILLES DE FRANCE,VILLESZ&41 - COMPARAISON ENTRE DEUX CADRES,CADRE.DEMO043 - SONDAGE SUR 8 BITS,SONDAGE.BAS:47 - LE COUT DE VOTRE AUTOMOBILE,AUTO.COUTD "55 - COURRIER: MULTIPLIER PAR 16",*N "56 - COURRIER: ADRESS- COLOR.VALEURS,COLOR.VAL7 21 - COLOR.HGR,COLOR.HGRe  23 - NOUVEAU GRAPHE (NESTOR),GRAPH.TOUT 28 - RELOGER IMP.HGR1,GRAPH.AIDE 30 - GENERATEUR DE DATA,DATA.GENERATOR 33 - OU CATALOG DEVIENT CAT,CAT.DEMO 35 - RECHERCHER & REMPLAS DOUBLES (IMP ON!),CARAC.DBLET  14 - INVERSION DE FONTE (IMP ON!),CARAC.INVBAS  15 - CARACTERES INVERSES(IMP ON!),CARAC.INVDEMO  17 - MEMO.VISU (JEU VISUEL),MEMO.VISU 18 - LA PYRAMIDE,PYRAMIDE 20 - COLOR.DEMO,COLOR.DEMO  20 (A$(VDS),2))" "B$(VDS)5 cB$(VDS)"INFOS"690L dB$(VDS)"*"800h h23:(4)"RUN"B$(VDS)r r:: | PAGE INFOS GENERALES,INFOS " 3 - IPO.DEMO (GRAPHISME)",IPO.DEMO " 9 - PLUIE...DE CARACTERES",PLUIE.DEMO  13 - CARACTEREOMMANDE" K128270C "16368,0:V:A$(VSD):K141Ģ22:350j ,K136K139VV1:VDVD1:180 6K149K138VV1 @NSPS0VRD1VD1:SSP:190 JVND1SVD1:180 T260 ^35,24:34,21:22::T$;:"SELECTION -> PAGE "(OUR RUN";:V::35,22! R0:S0* V:8 S0230S RR1:A$(R):RSP210\ 240v RR1:A$(R):RN230 :31:11:"FIN=CTRL-C": 13:31:"COMMANDES:":14:31:"> CTRL-I <" V:768,A$(VSD) K(16384):K9ĺ:21:(4)"RUNC:800,96:TEST ET AFFICHAGE INFOS+PDZ GRIBOUILLE,PROCODE******************************$D:]IT$": :":TM$" M E N U "NM$"1. LECTURE DE FICHIER 2. SAISIE/CORRECTION 3. VOIR LE GRAPHIQUE 4. IMPRIMER LE GRAPHIQUE 5. FIN DE PROGRAMME"S:32,10:33,20:5::T$TM$T$:"TITRE:":::22:TI$;:1:"";R$:R$""TI$R$E20:958:TI$22:"<1> ENREGISTRER LES DONNEES <0> NON ";:198:R$!:R$"0"595&R$"1"540+6950:5******************************:* MENU *?12V(I)PGPGV(I)-V(I)PPPPV(I)3@DIPGPPZPG144CO144PG:P1uPG144COPG144:P2I112P500,505VF(I)(V(I)CO):515V(I)0515VF(I)(V(I)CO):ND1LECTLECT0:595 :220:********************:*::I0:M04II1JV$" ":I9V$""k3I:V$I". VALEUR -> "V(I);z15:"";V$V$"?"450V$"*"I1II2:400V$""V(I)(V$)3I:15:V(I)M1I12400PPV(1):PGPPI12:IM,A1I,A OIMI:% T2:7000D YI2615416:24,I278,I:R ^NG1:185d cM0:198:R$q h::595 m21:958:198:11::R$::I12000::595 r: w****************************** |* SAISIE DES DONNEES ***********MĹ230,32:62450= 49236,0:49234,0:49239,0:49232,0:3I "M355p '24,1024,155279,155279,1024,10 ,IM30:IM,156IM,159:D1 1I5227922:DD1 6A154VF(D):A1154VF(D1) ;A1155A1154 @A155A154 E3:I,158I,156 J"EN VALEURS":DX1R$R$" REELLES":240= R$R$"/"(DX)P AD9039:170:V :z ****************************** * TRACE DU GRAPHIQUE * ****************************** : NDR$" SAISIR LES DONNEES ":365 M285 堠 3,254:TRANSFERT PAGE 1 A 2<774,32:775,190:776,222:777,32:778,123:779,221:780,32:781,253:782,229:783,160:784,0:785,177:786,94:787,201%F788,63:789,208:790,9:791,173:792,85:793,192:794,32:795,12:796,253:797,173:798,84:799,192~?kPx<KPuPUP??vPVP8p`0sP<~Ç SP0p?tPTPrP>RP9pxP<XPiGIGpP>@+IbP~=<;:9876543210/.-,+*)('&%$#""n` &%0) :LDiiȥi`` re double format"2 "TITRE DOUBLE FORMAT":::H "tremplin micro"^ "TREMPLIN MICRO" (27)"$";(27)"A";(27)(34);(27)"<" (15) (4)"PR#0"d(4)"PR#1"n(27)"!"-x(27)"p"N(27)">":UNIDIRECTIONNELLEp(27)"T08":INTERLIGNE=8 PTS(27)"'":CARACTERES PERSONNALISES:"bonne annee":PARTIE SUPERIEURE"BONNE ANNEE":PARTIE INFERIEURE:: "tit  tttuvwxyz{|}}~ÎĎōČċŋƊljȉȈɇʇˆ˅̄ͅ΄σςρπ~}|{{|SLSMSNTOUPUQVRWSXTYUZV[V\V]V^V^W]X]Y]Z^[^\^]^^]_]`\a]b^b_c`daebfcgchcidjdkdldmcmblbkajaiah`g_f^e^f]g]h]i]j]k]l\m\n\o\p\q\r\s]s^s^t]u\u\v\w\x\y[z[{[|[}Z~ZZZYYYYXXXWWVUTUVWXXXWWXYZ[\]^_`abbcdefghijklmnopqrs\,[-Z-Y-X-X,W+V+V,U-T,S,R,R+Q+P+O,N-M.L-L,K+J*J)I(I'H&G'F'E(D(C'B(B)A)@)?)?*>*=)<);*:*9)8)7*6+5+4,4-4.4/5/6.7.8.8/9/:0918171615162829384746454556677788999:8;8<8=8>9?9@9@:A;B:C;D:E;EF?G>H>I=J=K=L>K?J?K@L@M@N@NANBMCNDOEPEQDRDSDTDUDVEUFTFSFRFQGRHSHTITJSK`3` ȱ WiiL `` ~}|{zyxwvutsrqpoopqrqpon m l!k!j!i h g f e dcba` ___^^^^]\[ZYXWWXXWWXYY Y!Z!["[#[$[%[&['[([)[*\+    u ."O 22:6:"<1> CONTINUER <2> CORRIGER --> ";:R$::R$"1"ė:` R$"2"210 BONNE DISQUETTE... OUVOUS NE POSSEDEZ PAS <"F$">":310g "IL Y A UNE ERREUR QUELQUE PART: CHERCHEZ" 10:" SI VOUS DESIREZ UTILISER LES FONTES: ou DU NUMERO 1 DE TREMPLIN REMPLACEZ , LIGNE 115 PAR o22:6::"VOS DEUX ROUTINES SONT AU POINT"::i :22:" RETURN S.V.P. ";:R$:R$(13)180q : :12:"PLACEZ MAINTENANT VOTRE DISQUETTE GRAPH DANS LE SLOT 1, PUIS PRESSEZ ":180::7 ::12:(222)6ĺ"OU CE N'EST PAS LAMPLIN MICRO 6> (OU CELLE SUR LAQUELLE FIGURE UNE COPIE DU PROGRAMME ) DANS LE SLOT 1"h 180z F$"IMP.HGR1" D$"BLOAD "F$",A7250" 190 7432,133:7433,28:7292,24:7293,29:7305,48:7306,29 D$"BSAVE GRAPH.IMP,A7250,L230"0 ad:(21):D$(4):!i205xn"PLACEZ DISKETTE DOS TOOL KIT DANS VOTRE SLOT 1, PUIS FRAPPEZ UN SIMPLE "s180:F$"FLOW.SET"x195}D$"BLOAD "F$",A7500"190D$"BSAVE GRAPH.F,A7500,L512"_ :"INSEREZ LA DISQUETTE H}9?HYI@HUSAHBH))CH99DH99EH)))9FHGH9) HHIH9999JH??KHǃ9LH????MHNHOH99PHQHyYCRH@-I H!H!!!"H#H$H))%Hc&HUm[_'H(Hǃ9})H}9*Hǫ+H灁,H??-H.H???/H?0H}}1H2H3 !#3H)))4H5H!)) 6Him 7H 8H))  d:(4)"BLOADDUMP80":3RnI122:I:A$((I),1):J120:A$A$A$A$;:::x12::"ESSAI DE LIGNE EN MODE INVERSE - 12 12 12 12 - ":24:"ESSAI DE COPIE D'ECRAN 80 COLONNES (LIGNE 1 A LA LIGNE 24)";:11:7681 ,117,GRENOBLE,181,106K< VALENCE,171,111,LE PUY,157,110,AURILLAC,139,112F RODEZ,140,122,CLERMONT-FERRAND,146,96,LYON,169,96P ANNECY,185,93,MACON,168,87,MOULINS,150,83Z NEVERS,148,74,AHORS,126,119 D  MONTAUBAN,124,128,TOULOUSE,126,136,FOIX,128,148~ PERPIGNAN,145,153,MONTPELLIER,158,136,NIMES,165,131 AVIGNON,172,129,MARSEILLE,180,139,TOULON,186,142( NICE,200,134,MONACO,205,131,DIGNE,185,1172 REIMS,148,31,GAP,18601,113,NIORT,102,86C POITIERS,112,81,BLOIS,125,63,TOURS,117,67u TROYES,158,51,CHAUMONT,172,53,VESOUL,184,61 BESANCON,184,69,DIJON,171,67,AUXERRE,153,59 ANGOULEME,110,98,PERIGUEUX,117,107,LIMOGES,125,96 PAU,102,141,AGEN,114,124,CF$M1:450:9******************************]* FIN DE PROGRAMME * ******************************::20:"]GOTO10000":19:'51,0:595EN"F$:D$"WRITE"F$:TI$:I112:V(I)::D$"CLOSE"F$:585?:d****************************** * LECTURE D'UN FICHIER *******************************::LECT1:695D$"OPEN"F$:D$"READ"F$:TI$:I112:V(I)::D$"CLOSE"E DU FICHIER *5******************************;:20:958:"TITRE -> GRAPH0 (PAR DEFAUT)";:10:"";F$:F$(47)F$(58)F$"GRAPH"F$F$"?"ė:D$"CATALOG"::::695F$""F$"GRAPH0"20:10::F$:LECTı9D$"OP UN APPLE ":L$ :(15)= "Minuscules deconseillees!"i E$"Y";E$"$";E$(34);(15);E$"<";E$"A"w D$"PR#0"xdD$(4):E$(27)9nT$E$"N"E$"X"E$"'"E$"!"Cx::SD$"PR#1":]T$:h(15)" VOICI UN TITRE "(14)" ET UN AUTRE ELARGI ":"On peut s'amuser:":E$"T09";E$">"L$" ":L$ " AVEC  IMPRESSION DU GRAPHIQUE *A******************************G:oNGR$" OPTION GRAPH S.V.P ":3656,1:7,1:253,0:254,2349236,0:49234,0:49239,0:49232,0:7250:::595:******************************* ECRITURT$TM$T$::32,8:33,32::XI1(M$)25:(M$,I,25)::K]32,0:33,40b:21:11::"OPTION CHOISIE: ";::27:198:"> <";:28:R$gR(R$)48:R1R5610lR$qR750,395,270,655,790v:{********************************%?******************************+D:dIT$": :":TM$" M E N U "NM$"1. LECTURE DE FICHIER 2. SAISIE/CORRECTION 3. VOIR LE GRAPHIQUE 4. IMPRIMER LE GRAPHIQUE 5. FIN DE PROGRAMME"S:32,10:33,20:5::20::"TITRE:":::22:TI$;:1:"";R$:R$""TI$R$L20:958:TI$22:"<1> ENREGISTRER LES DONNEES <0> NON ";:198:R$!:R$"0"595&R$"1"540+6950:5******************************:* MENU I112V(I)PGPGV(I)2V(I)PPPPV(I)8>:XPG144CO144PG:P1sPG144COPG144:P2I112P500,505VF(I)(V(I)CO):515V(I)0VF(I)0:515VF(I)(V(I)CO):ND1LECTLECT0:595 :9*************************:/::I0:M09II1OV$" ":I9V$""p3I:V$I". VALEUR -> "V(I);15:"";V$V$"?"450V$"*"I1II2:400V$""V(I)(V$)3I:15:V(I)M1I12400PPV(1):PGPP6 J2:IM,A1I,A OIMI:* T2:768I YI2615416:24,I278,I:W ^NG1:185i cM0:198:R$v h::595 m21:958:198:11::R$::I12000::595 r: w****************************** |* SAISIE DES DONNEES ******85 MĹ230,32:62450C 49236,0:49234,0:49239,0:49232,0:3O "M355v '24,1024,155279,155279,1024,10 ,IM30:IM,156IM,159:D1 1I5227922:DD1 6A154VF(D):A1154VF(D1) ;A1155A1154 @A155A154 E3:I,158I,15/ R$"EN VALEURS":DX1R$R$" REELLES":240C R$R$"/"(DX)V AD9039:170:\ : ****************************** * TRACE DU GRAPHIQUE * ****************************** : NDR$" SAISIR LES DONNEES ":365 M260:@ R0:DX1:CA$"8319857588319087835986158871912783998655"] PGDX999DXDX10:200k I1404 AB((CA$,I,4)) CH(PG(R(PG9))):CH(CHDX) CH$(CH):CH$((CH$" "),3):RR1 K13:AC((CH$,K,1))31:ADABK:160:K:I************************ :M 8,AC:254,AD(AD256)256:255,(AD256)X 830:t L(R$):ADAD(21L2) I1L:AC((R$,I,1))31 ADAD1:160:I: R$TI$:AD8191:170 I112:AC(("JFMAMJJASOND",I,1))31:AD8785(I3.125):1d::(21)i163845nV(13),VF(13):D$(4)YsD$"BLOAD GRAPH.F,A$1D4C":7500xD$"BLOAD GRAPH.LM":D$"BLOAD GRAPH.IMP,A7250"}595585: MENU:******************************* LES CHIFFRES ET LETTRES * ******         F$F$".INV"+ D$"BSAVE"F$",A16384,L"LD D$"RUN CARAC.CHARG""E d::nD$(4)9x12:"TITRE DE LA FONTE: ";F$C100]D$"BLOAD"F$",A16384"yL(43616)(43617)256PRODOS:48840 & 48841 SI LE BIT 0 DE VOS CARACTERES N'EST PAS A ZERO, UTILISEZ "CARAC.INV0"D$"BLOAD CARAC.INV":768  ON-SUR-MARNE,161,39,NANCY,183,42,COLMAR,199,53n MULHOUSE,199,61,CHARTRES,126,48,BREST,54,45,QUIMPER,59,54 BOULOGNE-SUR-MER,131,9,RENNES,88,53,LE MANS,111,56 ORLEANS,132,58,SAINT-NAZAIRE,81,67,NANTES,89,70 LA ROCHELLE,95,88,BORDEAUX,1 DUNKERQUE,137,3,CALAIS,130,5,ARRAS,143,14,LILLE,146,8 y AMIENS,137,22,LE HAVRE,113,28,ROUEN,122,30,BEAUVAIS,135,30 LAON,152,28,MEZIERES,165,24,METZ,183,35,STRASBOURG,202,42 CAEN,105,34,SAINT-LO,97,35,EVREUX,122,37,PARIS,137,41. CHAL DES SCORES::%T$T1$:3705T$T2$:370H7:"SCORES :"X"--------"`$12k.I1N8N$(I);:20:": ";SC(I)BLV22::"Une autre partie ? ";R$:(R$,1)"N"ı`R$"N"ıj(R$,1)"O"1110t1708~) RV$(V$,(V$)1) \750J f23:3:"La r{ponse {tait : ";AID$;V$S p920h z23:17:"EXACT"z SC(I)SC(I)P 21:28:"Score : ";SC(I) T11500: 0 WB1B1 A1,WA1,W   C10ı 580  AFFICHAGE WB2B2 A2,WA2,W$ 4 S$"":R$""[ 23:"Nom de la ville ? ";AID$;h S$;:S$z (S$)13810 (S$)127(S$)8Ģ23:1:958:750 R$R$S$:770 *23:1:958 4R$V$890 >P2870 HP(P2):AID$AID$(V$,1[";I;:" ? ";N$(I)  . I11000:4 &> 0 JEUG :250Q DCC1\ NI1Nb X{ b21:"Nom : ";N$(I); l28:"Score : ";SC(I) vP10:AID$"" H((1)72)1 V(H)1640 V(H)1  J1H V$,A,B  7 0(T$))2 T:T$ <  CHOIX DU NOMBRE DE JOUEURSG I14\ N$(I)"":SC(I)0d :{ T$T1$:370:T$T2$ 3:370 8:" Nombre de joueurs ? ";N$:N(N$) N1N4Ģ8:1:958:470 12 I1N " Nom du joueur n" 290 410 560& 1000I (4)"RUN MENU":ou HOME : ENDV DESSIN\ g 24576m  " PRESENTATION ,(21): 6250 @T$T1$:J1 J22:370 TT$T2$:23:370 ^I12000: h r FORMATAGE DES TITRES |T(4 d*************************?n** VILLES DE FRANCE **^x** PAR M. DEVAUX **}*************************:::(21):(4);"BLOAD VILLES.LM"26500:V(100)T1$"* VILLES DE FRANCE *" T2$" ----------------   5,6,197,25,144,202,96,165,6,166,7,164,8,32,17,244,177,38,37,48,41,127,96I:R$"3"Ā& R$"1"ĺ(4)"RUN MENU"8 R$"2"ė::A 180\ I768838:R:I,R:: 169,0,133,9,32,55,3,240,6,230,9,230,7,208,245,165,9,240,248,201,5,176,19,32,55,3,208,14,165,6,166,7,164,8,32,87,244H 230,7,208,238,96,169,0,133,7,230,6,16Id::(4)"PR#3"n2306x230,32:62450::3l20,0120,4070,5095,80255,1405,14040,7020,0X0:Y11:Y21406,Y1:7,X:8,0:25,Y22:PAR EXEMPLE768:19823:"<1> MENU DE DISQUETTE <2> LIST <3> FIN ";:R$ ::   A@)`I8* ɍ)ieiLvide'RL$(31):Remonte d'une ligne-D*****************************#u:-z:L0D$"OPEN AUTO.D,L52":D$"READ AUTO.D,R0":LF:I1LF:D$"READ AUTO.D,R"I:E$(I)::D$"CLOSE AUTO.D"I1LF:LL1:E$(I)L22L0:R$:16368,0:IR$:I110:V$V$" "::Ligne LOSE AUTO"JM12:"DESIREZ-VOUS LIRE LA LISTE ACTUELLE DES DEPENSES ?":R"ui ou on ? ";:198:R$::R$"O"R$"o"890WR$"N"R$"n"ĺRL$RL$:850\a:f******************************k* LECTURE AFFICHAGE FICHIER2 *p*UTO.D":*198:16368,0:16384,128,127:16368,0:::@/:d4******************************9* LECTURE DU FICHIER 1 *>******************************C: H:D$"OPEN AUTO":D$"READ AUTO":I05:S$(I)::I14:T(I)::LF:D$"C 1 *+******************************1::D$"OPEN AUTO":D$"WRITE AUTO":I05:S$(I)::I14:T(I)::LFE:D$"CLOSE AUTO" E0810%D$"OPEN AUTO.D,L52":D$"WRITE AUTO.D,R0":LFE:I1E:D$"WRITE AUTO.D,R"LFI:E$(I)::D$"CLOSE A(S$(3)):PERTE SUR CAPITAL 9DT0:I14:DTDTT(I):FDTDTAMlDKDTNK:DK((((DK100)100))):34,17::::"LE KILOMETRE ACTUEL COUTE:";::" ";DKR$(3)795:****************************** * ECRITURE DU FICHIER(E)(V$,10(MO$))MO$?34,7:1403,0:8:198:R$(3)735H575N:r******************************* COUT AU KILOMETRE *******************************:NK(S$(4))(S$(1)):KILOMETRES PARCOURUSAM(S$(2))E ";:R$:16368,0#R$(3)6803R$"C"680CR$"R"595]R$"S"ĺ(31);:655T(R)T(R)(MO$):EE1:E$(E)(R)" "D1$" "OB$(V$,26(OB$))P0:L(MO$):IL11:(MO$,I,1)"."PL1I:P3MO$MO$(V$,3P)E$(E)E$ DEUX DROITES POUR L'EPAISSEURZ 623:22:X" ":33:22:Y" ":ECRITURE DES COORDONNEES @AXX:AYY:170:ON CONSERVE X,Y POUR UN TRACE AX->X AY->Y1R@)`I8* ɍ)H h  eiLàǻ孍ǻ占à占ໍȻ***************** * TRACE AUX COORDS *D ********************J :n X(X):XMLXML:LIMITE ECRAN Y(Y):YMHYMH "DR0P0Ē0:AX,AY:3:X,Y:ON EFFACE LE POINTEUR LORS D'UN DEPLACEMENT ,DR1āI12:AXI,AYIXI,YI:I: TRACEC (16287)127ĺG$:S1:1:22:"BOUTON 2 ";::"POINT/TRACE": (16286)127ĺG$:1:22:"BOUTON 1 ";::"EFFACEMENT";::" "::DR0 S1DR(DR1):S0: INVERSEUR TRACE OU NON (BOUTON 2) (49152)155ĺD$"RUN MENU":ESC) : ****$d* MANETTES EN MODE GRAPHISME n::(21):::1:22:"ESC) RETOUR MENU":D$(4):G$(7):ML279:MH150:G$:MAX.ECRANx:********************* LECTURE PARAMET. *********************: X(0):Y(1):COORDONNEES MANETTE 625lD1$D1$(S$,10L)8qRL$;:1403,9:D1$:S$D1$kv1403,0:"OBJET: .........................";{1403,9:"";OB$OB$""ĺRL$;:6301403,0:"MONTANT: ";MO$MO$""(MO$)0ĺRL$;:6451403,0::"ORRECT EFAIRE UIT12(((T(I)))));T(I):T?::"CODE";::" (FIN/ERREUR SAISIE=CONTROLE-C) ";:R$eDR$(3)735IR(R$)48:R1R4ĺ:998:998:575N34,10S:X1403,0:"DATE: ";S$;]1403,9:"";D1$bD1$""D1$S$:625gL(D1$):L10嬍àȍРԍàǻ孍ǻ占à占ໍȻ占̻̠占⩬ٻ占àǻ孍ǻ占à占ໍȻ⩬٠占̻̍٠٠占٠ǻ򠿍àŻ頢ō٠٠㠱٠젰Ġ쮿ѠŠ麠РĻ㠸čѠōŠԻŠĠŻ堢󠱩Ԡ̻筭Šǻ嬍àǻ報٠Š⩬ٻҠƻà̠占РĻ٠򮮮⩬٠ĠƠ㠰ѠλﮮР報󩬍àŠΠӍ򮮮»婍嬍Ƞ卪Ԡ٠îӠǠ ՠȠՠǠՠ̠ՠ卪î֠٭ŠŠŠŠŠŠӠө堠     z#?#o?1,{{&Xͷ Үұ ҮҲиϠи ŮҠŮҮϠ ͮנ !ԮŠӠԱ  Ӡ Ӯ͠ !ϮԠ  ŮϠîͮӠ Ϡ  Įر!Įز" ŮӠ ϮĠ  Ҡ ԮǠԮϠ ԮӠ î͠ !ҮϠ" ȮԠ Ƞ ȮŠ Ȯ͠ Ȱ ŠϮՠ ҮҠ Ү̠ îà îŠ îŠŠ ŮàŮϠ Ϯà"î֮Ӡ î֠îְ îӠ îϠ ՠŠ ϮϠϮŠ Xͷ]ΠϠ堠Ϡ**** :700?!"1. STATION-SERVICE ";:I1:570j&"2. REVISIONS-REPARATIONS ";:I2:570+"3. VIGNETTE & ASSURANCE ";:I3:5700"4. AUTRES DEPENSES ";:I4:5705"----------------------------------------":575:(V$,P127S$(((S$)10)):(8);" "4S$"0"S$""BS$(SA)S$dP11P8ĴSA265,370,375,380P13S$""ĴSA375,380,385,395465:****************************** * GRANDS POSTES DE DEPENSES ***************************S & "JR" JOURS"0I322:1403,28:I:" "::Q33,0:32,35:33,44:3:36:i34,2:35,22::540o::V10(SA2):V:S$;:S$S$(SA)16368,0::V:1403,H:S$;:R$P(16384)(37)V1465P47P58(S$)6S$S$R$"(S$(SA))(S$(1))385J:SA5:V20:DA$"DATE ACTUELLE : ":S$S$(SA)S270Y:MR12MMM1:(ANAM1)0MRMR(12(ANAM1))JR(30JM)JJR29MRMR1:JRJR30:420ANAMMRMR12MR0JR039522:" ";::MR" MOI(S$,6,1)"."S$"":H16:270= ^SA5AN((S$(0),4))270S cS$(SA)S$:SA5ıg hAMAN:MMM:JMJm m: rSA1:S$"KILOMETRAGE : ":460 wSA2:S$"PRIX D'ACHAT : ":460 |SA3:S$"COTE ACTUELLE : ":460 SA4:S$"KILOMETRAGE : ":460$(57)Ĺ16368,0:2905 ;DS$DS$R$:R$;:HH1:290J @H16:DS$""335e E(DS$)10S$DS$:335 JS$DS$(S$,10(DS$)) O:V:1403,H:S$ TJ((S$,2)):M((S$,4,2)):AN((S$,4)) Y(J1J31)(M1M12)(AN1950AN1999)(S$,3,1)"."ACHAT : ":V10:H16/ S$""S$"00.00.1985"A :V:DA$S$;L DS$""f H18H21HH1:250 "H18H21HH1:DS$DS$"." '1403,H:R$:(R$(8)R$(11))(SA)H16:385 ,R$(13)320 1R$(127)H16HH1:250:285 6R$(48)RSITUATION") " ------------------"2 2658 :\ ****************************** * FICHE SIGNALETIQUE * ****************************** : L(DS$):L1DS$"": DS$(DS$,L1): : SA0:S$S$(SA):DA$"DATE D'9:" ";:# I113:" ";:> :37,1:36,3:2039,32D :` PROTECTION DE CE CADRE~ 34,2:35,23:32,2:33,74 : TITRE DE LA PAGE R$" COUT REEL DE MON AUTOMOBILE " ::(V$,(R$)):R$:(V$,(R$)): :" FICHE DE .d:D$(4):D$"PR#3"::1'i9201n120?s840:150Ox216,0:LF0U}:y******************************* TRACE DU CADRE *******************************:::I19:" ";: I223:1403,7      ŠŠŠӍ suffit. PRESSEZ UNE TOUCHE ------------------" (16368,0:16384,128,127:16368,0::768 2: <22:" NCORE ENU DE DISQUETTE IN ";:R$ F::R$"E"Ğ:20 PR$"M"ĺ(4)"RUN MENU" ZR ' ::(21):(4)"BLOAD PLUIE.C":32,10:33,20:8:": :";:" PLUIE DE LETTRES ";:": :":Y :"A utiliser pour net-toyer une page... etseulement quand on ale temps! Un CALL 768 &`*****************************#u:-z:L0D$"OPEN AUTO.D,L52":D$"READ AUTO.D,R0":LF:I1LF:D$"READ AUTO.D,R"I:E$(I)::D$"CLOSE AUTO.D"I1LF:LL1:E$(I)L22L0:R$:16368,0:IR$:I110:V$V$" "::Ligne LOSE AUTO"JM12:"DESIREZ-VOUS LIRE LA LISTE ACTUELLE DES DEPENSES ?":R"ui ou on ? ";:198:R$::R$"O"R$"o"890WR$"N"R$"n"ĺRL$RL$:850\a:f******************************k* LECTURE AFFICHAGE FICHIER2 *p*UTO.D":*198:16368,0:16384,128,127:16368,0:::@/:d4******************************9* LECTURE DU FICHIER 1 *>******************************C: H:D$"OPEN AUTO":D$"READ AUTO":I05:S$(I)::I14:T(I)::LF:D$"C 1 *+******************************1::D$"OPEN AUTO":D$"WRITE AUTO":I05:S$(I)::I14:T(I)::LFE:D$"CLOSE AUTO" E0810%D$"OPEN AUTO.D,L52":D$"WRITE AUTO.D,R0":LFE:I1E:D$"WRITE AUTO.D,R"LFI:E$(I)::D$"CLOSE A(S$(3)):PERTE SUR CAPITAL 9DT0:I14:DTDTT(I):FDTDTAMlDKDTNK:DK((((DK100)100))):34,17::::"LE KILOMETRE ACTUEL COUTE:";::" ";DKR$(3)795:****************************** * ECRITURE DU FICHIER(E)(V$,10(MO$))MO$?34,7:1403,0:8:198:R$(3)735H575N:r******************************* COUT AU KILOMETRE *******************************:NK(S$(4))(S$(1)):KILOMETRES PARCOURUSAM(S$(2))E ";:R$:16368,0#R$(3)6803R$"C"680CR$"R"595]R$"S"ĺ(31);:655T(R)T(R)(MO$):EE1:E$(E)(R)" "D1$" "OB$(V$,26(OB$))P0:L(MO$):IL11:(MO$,I,1)"."PL1I:P3MO$MO$(V$,3P)E$(E)E$625lD1$D1$(S$,10L)8qRL$;:1403,9:D1$:S$D1$kv1403,0:"OBJET: .........................";{1403,9:"";OB$OB$""ĺRL$;:6301403,0:"MONTANT: ";MO$MO$""(MO$)0ĺRL$;:6451403,0::"ORRECT EFAIRE UIT12(((T(I)))));T(I):T?::"CODE";::" (FIN/ERREUR SAISIE=CONTROLE-C) ";:R$eDR$(3)735IR(R$)48:R1R4ĺ:998:998:575N34,10S:X1403,0:"DATE: ";S$;]1403,9:"";D1$bD1$""D1$S$:625gL(D1$):L10$"F"60 * EXPLICATION *:*************************@:n:7::" GENERATEUR DE LIGNES DATA ":::"CE PROGRAMME PERMET DE GENERER AUTANT DELIGNES DE DATA QU'ON LE DESIRE... POURVUQU'ON NE DEPASSE PAS DIM (50)":" VALIDE CH13:12:1:15:12:2:17:12:3:uv13:14:"EXEC-EFFACEMENT":15:14:"AUTRE SAISIE":17:14:"FIN DE PROGRAMME"{22:10:"VOTRE CHOIX S.V.P. ";:R$:R(R$):R1745R2100R3635::*************************L$(I):BID$"OPEN F":D$"WRITE F":I1A:L$(I)::D$"CLOSE F"HN:gS*************************X* MICRO MENU *]*************************b:g::I1031:10:I:" ":20:I:" ":lI1119:I:10:" ";:31:" ":"q:S1:I0:155)L$(A)L$(A)L$S$:L$""CMC1MC0::6:958h:18:L$(A);:958:L(L$(A)):!1:37:868::L:&165+:0*************************5* FICHIER EXEC *:*************************?:D:I1A:):PP1:L$(Y)::<*************************[* DONNEE/LIGNE SUIVANTE *z*************************:L$(A)(L$(A),L1):580L$(A)(L$(A),L1):I0:155L1(L$S$):L1PH40Ģ4:958  L1L239L$(A)(L$(A),L1)604L$(A)(L$(A),H1)R$(L$(A),LH):HH1:365=370C:b************************** HEXA EN DECIMAL **************************:L$(("000"L$),4):P0:Y0K411:X((L$,K,1))48:X9XX7 YY(X16P)(L$(A),L):360BL$(A)(L$(A),H2)(L$(A),L1H):HH1:365XR%13L$"":315rR%8HL1HH1:370R%21HL1HH1:370R%9LHL$(A)(L$(A),H1)" "(L$(A),L1H):365R%32R%126370HLL$(A)L$(A)R$:LL1:3*************************9 Y* CORRECTION *X ^*************************^ c:w hHL1:MCČ958:MC0 m:18:L$(A)" ";:L(L$(A)) r:18:H:R$:R%(R$) wR%127400 |HLB1HLB1:370 HL1360HL1LL1:L$(ABKLB1; "L$(A)(L$(A),K1):(L$(A))LBL$(A)L$(A)S$U 'II2:L(L$(A)):330[ ,:| 1* NOMBRE DE DONNEES ? * 6: ;(L$(A),1)S$(L$(A))LBL$(A)L$(A)S$ @L(L$(A)):X0:K1L:(L$(A),K,1)S$XX1 E:IX J535 O: TE$:170 R%4LLB280. R%3I1360D L$""LLB170R R%6510a R%19515j 170p : ************************* * DEL DERNIERE DONNEE * ************************* : KL111:(L$(A),K,1)S$Ă KL198:170 HE190; R%13(L$)4ĝ:465:R%13:HE0P R%27İ725:MC1r G(R%13R%44)L$L$G$:G0 GI1R%32L$G$E$:G1:170 R%31R%127L$L$R$:170 L$""225 R%13520 R%127R%8L$(L$,1,(L$)1):1008:64000135* 1:1:958::"LIGNE "N$:4 NN1p NN1:N$(N):AA1:15:1:868::N::L10:LB(N$)4 L$(A)L$(A)N$DA$:S1S0:525 1:3::868:II1:I;:" > ";:PH((I))4 PH:4:L$;:R$:R%(R$) R%7HEL$""Ğ:HE1:d:(21):::685i:<n*************************[s* ROUTINE DE SAISIE **zx*************************}::S$(44):E$(32):DA$"DATA":G$(34):D$(4)1:1:198:"NUMERO DE LIGNE ";N$:N$""N$"1000" N(N$):N1N       ˠ*6ˠˠŭ$ˠˠݠ`eeíˠĭàĠРIJˠà ߪ @ L$iȱH"8hei ȑ"CATALOG̠΍$$8HIL,նh, ,`, ,`, , C,:/8`9LLLL`ª`LQLYLLLvide'RL$(31):Remonte d'une ligne-RN pour terminer."^:"CONVERTIR: Taper CTRL-G, puis la valeur ---------- HEXA (=<$FFFF)."d:2:23:"EXEC F":1:22:100,745CARACTERE ------- CTRL-D efface DERNIERE DONNEE CTRL-S = ligne suivante et CTRL-F = FIN CTRL-C = correction dans la ligne DATA RETURN = validation de la DONNEE saisie":"CORRECTION: DEL efface - TAB ou CTRL I ----------- ajoutent un espace - RETUASSAGE AUTOMATI-QUE A LA LIGNE SUIVANTE DES QUE L'ON AT-TEINT 239 CARACTERES.":" PERMET D'AFFICHER UN RESUME DU TA-BLEAU DES DIFFERENTES COMMANDES."16368,0:16384,128,127:16368,0::130:10:"SAISIE: DEL et <- effacent un AQUE DONNEE - POUR UNECORRECTION, TAPER CTRL-C, PUIS UTILISER LES TOUCHES POUR SUPPRIMER ET CTRL-I AVANT D'INSERER UN CARACTERE":"POUR EFFACER LA DERNIERE DONNEE: CTRL-D"N:"LES LIGNES VONT DE 1 EN 1 (DEPUIS LE NU-MERO DONNE AU DEPART). P ߪ @ L$ 78,96:779,160:780,0:781,177:782,94v783,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,208,250,132,37,141,247,7,96: 6I76876745:R:I,R:: @32,88,252,165,6,162,41,32,237,253,202,208,250,162,22,32,98,252,32,16,252,165,6,32,237,253,32,237,253,202,208,239,162,38,32,237,253,202,208,250,134,37,141,247,7,96 JI76876746:R:I,R::(4)"RUN MENU" R$"0"ī230& Z 162,0,160,3,134,58,132,59,169,21,32,99,254,96 u "I815828:R:I,R:: ,32,88,252,165,06,162,41,32,237,253,202,208,250,160,22,162,38,32,74,249,165,06,32,237,253,32,237,253,136,208,240,162,38,32,237,253,202 ADRESSES":340. 768:340:768:340::815 4:1403,35::"$51 (81) AU LIEU DE $29 (41)":16:1403,35:"$4E (78) AU LIEU DE $26 (38)"::350 (21):::1002 24:"<0> FIN <1> ENCORE <2> MENU DISQUETTE ";:R$: :R$"1"Ĭ R$"2"ĺ CADRE DE L'ENIGMATIQUE NESTOR":340:768d 12:8:"46 OCTETS...MAIS RAPIDE":340::768:340v :815:350: 774,81:801,78:MODIFICATIONS POUR 80 COLONNES 3:::12:4:"SUR 80 COLONNES, ON OBTIENT LES MEMES RESULTATS EN MODIFIANT DEUXqd:(21):0n6,32: ESPACE MODE INVERSEnx290:MINI-ROUTINE D'AFFICHAGE DES INSTRUCTIONS LM 12:310:" CADRE DE MONSIEUR BERNARD ANSELME":340:76812:8:"45 OCTETS...ET LENT":340:768:340:815:350:- 12:330:"  MENU" R$"E"100 220v 8192,0:A$"2001<2000.3FFEM D823G":I1(A$):511I,((A$,I,1))128::72,0:144 3: "22::14:" LA PYRAMIDE "::130:,BY:3:BX,BYAX,AYSX,SY) H1571602 120a 24:10:"PRESSEZ UNE TOUCHE SVP";:22:"" 198:16368,0:16384,128,127:16384,0 24:1:"ENU DE DISQUETTE NCORE ERMINE"; 19::198:R$:R$"T"ĉ:: R$"M"ĺ:(4)"RUN d:(21)::270anCXSX(H0.32):CYH0.66:BXSX(H0.14):BYH:AXSX(H0.45):AYH0.77:xSX,SYCX,CYBX,BYAX,AYSX,SYBX,BY:SX55:SY10:H115:110:120SX230:SY5:H95:110:120SX145:SY0:H1HH2:110 2:CX,CYBX  Ӎ @ T22:3:"PRESSEZ UNE TOUCHE QUELCONQUE SVP ";:198:R$::p ^198:16368,0:16384,128,127:16368,0:Iwghj ij`nވiiȱH"8hei ȑ"CATALOG占 û Ԯ堍 Ի占  @ T22:3:"PRESSEZ UNE TOUCHE QUELCONQUE SVP ";:198:R$::p ^198:16368,0:16384,128,127:16368,0:,208,250,132,37,141,247,7,96: 6I76876745:R:I,R:: @32,88,252,165,6,162,41,32,237,253,202,208,250,162,22,32,98,252,32,16,252,165,6,32,237,253,32,237,253,202,208,239,162,38,32,237,253,202,208,250,134,37,141,247,7,96 JI76876746:R:I,R::(4)"RUN MENU" R$"0"ī230& Z 162,0,160,3,134,58,132,59,169,21,32,99,254,96 u "I815828:R:I,R:: ,32,88,252,169,32,162,41,32,237,253,202,208,250,160,22,162,38,32,74,249,169,32,32,237,253,32,237,253,136,208,240,162,38,32,237,253,202 ADRESSES":340. 768:340:768:340::815 4:1403,35::"$51 (81) AU LIEU DE $29 (41)":16:1403,35:"$4E (78) AU LIEU DE $26 (38)"::350 (21):::1002 24:"<0> FIN <1> ENCORE <2> MENU DISQUETTE ";:R$: :R$"1"Ĭ R$"2"ĺ CADRE DE L'ENIGMATIQUE NESTOR":340:768d 12:8:"46 OCTETS...MAIS RAPIDE":340::768:340v :815:350: 774,81:801,78:MODIFICATIONS POUR 80 COLONNES 3:::12:4:"SUR 80 COLONNES, ON OBTIENT LES MEMES RESULTATS EN MODIFIANT DEUXqd:(21):0n6,32: ESPACE MODE INVERSEnx290:MINI-ROUTINE D'AFFICHAGE DES INSTRUCTIONS LM 12:310:" CADRE DE MONSIEUR BERNARD ANSELME":340:76812:8:"45 OCTETS...ET LENT":340:768:340:815:350:- 12:330:"TE <2> FIN DE TRAVAIL ";:R$< n:::R$"1"ĺD$"RUN MENU"M xR$"2"1000RAVAIL ";:R$ n:::R$"1"ĺD$"RUN/TM7/MENU" xR$"2"100D$"CATALOG"<R$::F12::" CATALOGUE AFFREUX, NON ? ";:198::" ";:R$::::80,90:R$:  D$(13)(4)::10:"LE TRAITEMENT EST FESABLE SOUS DOS 3.3"::"VOIR REVUE PAGE 33"::"LA DEMONSTRATION COMPLETE UTILISE"::"LE SYSTEME PRODOS ..."d::" ";:16368,0:R$n::D$"RUN MENU" d::23:"<1> MENU/DISQUET Ȼà占Ȼ宮塍̷٠ٍٻ堤ٍ٠󠴠󠿍Š̷宍̶嬠ٻ٠ǍŠ̶»占ààƻ占»٠占Ġ٠ƻ麠ٍ»占à占àǩ»Ȼ占à፠ȠȻà占Ȼç̵٠٠鬠ٻР󠿍Š̵卻ǠРŬٻ占Š̳٠٠٠Š̴٠堰堍»Ǎàᡍà򮮮»婮Ӡ쮍̱ໍŠ̲堰àȻ󬠫ȍ̲٠ᠸ̴͠ȩà̱ Р͠©à̱Ȼ䬠Р㍠Š̱ǠǠՠ堨⩮占ȍ̳ȻР𪠠ΠŠǢӠΠŠà ՠȠՠ婍4,128,127:16368,0:C |16304,0:16300,0:16297,0:16301,0:l I768781:D:I,D::232,0:233,3: 1,0,4,0,18,63,36,36,45,45,54,54,63,0d;F;, :" PRESSEZ UNE TOUCHE S.V.P"5 "370M ,16302,0:16299,0[ 6370:380 @::22:198:"<1> ENCORE <2> FIN <3> MENU DISQUETTE ";:R$ JR$"3"ĉ::(4)"RUN MENU" TR$"1"Ĭ ^R$"2"320 h:: r198:16368,0:1638 8((1)8)6 X32((1)215):Y32((1)127)Q 230,64:1X,Y:230,32\ 1X,Ym Z1100V: 1X,Y:FF1:FN170 380 22::"COMBIEN Y A-T-IL EU DE CARRES ?";: " ";R$ :22::(R$)Nĺ"EXACT!";:280 "FAUX: "d::(21):390&n::3:16:xxT$": :":32,10:33,20:12::T$;" COMPTEZ LES CARRES ";T$:::198:"VITESSE (1 A 4) -> ";:V$:V(V$):V1V4V1:16304,0:16300,0:16297,0:16302,0N12((1)12)    ,253:776,229:777,133:778,96:779,160:780,0:781,177:782,94783,41:784,63:785,32:786,237:787,253:788,200:789,196:790,96:791,144:792,244:793,32:794,251:795,218:796,96'AMPERSAND,GOTOAMPERSAND,48 - UTILISATION DE LA PAGE 2,PAGE1.2q50 - LA PHRASE CACHEE (LOGOGRILLE),LOGOGRILLE55 - AUTRES CADRES,CADRE.DEMO,56 - CADRE.HLINE,CADRE.LINE.DEMO:?768,32:769,190:770,222:771,32:772,123:773,221:774,32:77538 - EMPILEZ ET DEPILEZ,DEPILER,40 - DEPILER (AUTRE VERSION),DEPILER2| 41 - FICHE NUMERO 4 ,ECRAN.FICHE.DEMO 42 - INPUT PRATIQUE (FICHE 4),INPUT.FICHE 42 - INPUT DEMO,INPUT.DEMO>43 - OUVREZ UNE FENETRE,FENETRE,46 - GOTO PAR LECRAN,ADRECR.DEMO? J18 - DESASSEMBLAGE PRATIQUE,EXAROUT.DEMOp T23 - FONTE.DEMO (FONTE SPECIALE),FONTE.DEMO ^33 - EST-CE OU NON UNE ANAGRAMME ?,ANAGRAMME.DEMO h35 - ECHANGE (SWAP),ECHANGE.DEMO r 36 - CAT THEMATIQUE 80 COLONNES,CAT80E |  X% "v : ,  : ,ghji jLُ܈ȹREMPLACER: PAR: ͬЬ̬ìŬҬؠ堫魍 ЬҬؠ堨婍  堿Š칻占Ѡ类 ҬŬͬЬ̬ìŬҬؠ堫魍 ЬҬؠ堨婍占٠ƻ堿Š칻占Ѡ类 ҬŬͬЬ̬ìŬҬؠ堫魍 ЬҬؠ堨婍̸©ٻ占РƬٻŠ类젿٠٠٠Š츻̹٠占Ƭٻٻ퍠Р堿Š춻Р麠΍̶໊췻ᠰƫ썠àȻȍ̷٠ƻ᭭DZȻ퍠Р堿à춻»퍠Р堿à춻Ȼ堿Š촻堨Щ㍠»占ȍҠ占ҠؠƠ嬍̵ؠ報ؠػػŠ쵠ؠ绠ػ󮮮Š첻ؠ绠ؠ砨ƩѠ쳻鬠宮̴Ҡ̳٠費堢Һ費Ҡ⻠٠豠ٮ豻Ҡ堢ҺҠ̲ؠؽƠػ􍪠ǠҠ廠宮ֻ֠堰ҺȲՠȱҺӠՠİŠӠůӍԠՠ³٬Рՠñ ՠò֍ŠՠõΠՠĵû󠠠 ՠ婍ȠՠǠՠƻ֠ՠҠՠ堨ȱՠЪҠŠŠӠΠŠԠҠҠŠŠŠҠŠ     E ";:R$:16368,0#R$(3)6803R$"C"680CR$"R"595]R$"S"ĺ(31);:655T(R)T(R)(MO$):EE1:E$(E)(R)" "D1$" "OB$(V$,26(OB$))P0:L(MO$):IL11:(MO$,I,1)"."PL1I:P3MO$MO$(V$,3P)E$(E)E$625lD1$D1$(S$,10L)8qRL$;:1403,9:D1$:S$D1$kv1403,0:"OBJET: .........................";{1403,9:"";OB$OB$""ĺRL$;:6301403,0:"MONTANT: ";MO$MO$""(MO$)0ĺRL$;:6451403,0::"ORRECT EFAIRE UIT12(((T(I)))));T(I):T?::"CODE";::" (FIN/ERREUR SAISIE=CONTROLE-C) ";:R$eDR$(3)735IR(R$)48:R1R4ĺ:998:998:575N34,10S:X1403,0:"DATE: ";S$;]1403,9:"";D1$bD1$""D1$S$:625gL(D1$):L10**** :700?!"1. STATION-SERVICE ";:I1:570j&"2. REVISIONS-REPARATIONS ";:I2:570+"3. VIGNETTE & ASSURANCE ";:I3:5700"4. AUTRES DEPENSES ";:I4:5705"----------------------------------------":575:(V$,P127S$(((S$)10)):(8);" "4S$"0"S$""BS$(SA)S$dP11P8ĴSA265,370,375,380P13S$""ĴSA375,380,385,395465:****************************** * GRANDS POSTES DE DEPENSES ***************************S & "JR" JOURS"0I322:1403,28:I:" "::Q33,0:32,35:33,44:3:36:i34,2:35,22::540o::V10(SA2):V:S$;:S$S$(SA)16368,0::V:1403,H:S$;:R$P(16384)(37)V1465P47P58(S$)6S$S$R$"(S$(SA))(S$(1))385J:SA5:V20:DA$"DATE ACTUELLE : ":S$S$(SA)S270Y:MR12MMM1:(ANAM1)0MRMR(12(ANAM1))JR(30JM)JJR29MRMR1:JRJR30:420ANAMMRMR12MR0JR039522:" ";::MR" MOI(S$,6,1)"."S$"":H16:270= ^SA5AN((S$(0),4))270S cS$(SA)S$:SA5ıg hAMAN:MMM:JMJm m: rSA1:S$"KILOMETRAGE : ":460 wSA2:S$"PRIX D'ACHAT : ":460 |SA3:S$"COTE ACTUELLE : ":460 SA4:S$"KILOMETRAGE : ":460$(57)Ĺ16368,0:2905 ;DS$DS$R$:R$;:HH1:290J @H16:DS$""335e E(DS$)10S$DS$:335 JS$DS$(S$,10(DS$)) O:V:1403,H:S$ TJ((S$,2)):M((S$,4,2)):AN((S$,4)) Y(J1J31)(M1M12)(AN1950AN1999)(S$,3,1)"."ACHAT : ":V10:H16/ S$""S$"00.00.1985"A :V:DA$S$;L DS$""f H18H21HH1:250 "H18H21HH1:DS$DS$"." '1403,H:R$:(R$(8)R$(11))(SA)H16:385 ,R$(13)320 1R$(127)H16HH1:250:285 6R$(48)RSITUATION") " ------------------"2 2658 :\ ****************************** * FICHE SIGNALETIQUE * ****************************** : L(DS$):L1DS$"": DS$(DS$,L1): : SA0:S$S$(SA):DA$"DATE D'9:" ";:# I113:" ";:> :37,1:36,3:2039,32D :` PROTECTION DE CE CADRE~ 34,2:35,23:32,2:33,74 : TITRE DE LA PAGE R$" COUT REEL DE MON AUTOMOBILE " ::(V$,(R$)):R$:(V$,(R$)): :" FICHE DE 0 TRWP*  &&ɳ`.d:D$(4):D$"PR#3"::1'i9201n120?s840:150Ox216,0:LF0U}:y******************************* TRACE DU CADRE *******************************:::I19:" ";: I223:1403,7     E$"Vous prie de lui adresser la commande suivante:"l:I1LI:D(I)1ĺE$" - DISQUETTE N["I;:36,64:FDsI:I1LI:R(I)1ĺE$" - TREMPLIN MICRO N["I;:36,65:FR$I.:NU$""āI1(NU$):E$" - DEMO "DE$(((NU$,I,1)));:36,65:FX::"ALLUMEZ-LA ET POSITIONNEZ LE PAPIER":R$:p(4)"PR#1":(9)"080N":E$" ": 20 ESPACESE$(14)" BULLETIN DE COMMANDE":" "(E$,10)(T$,20):(15):E$I$;:36,48:"CODE CLIENT: "N$E$L$:E$V$:E$T$(T$,07)4::"O"TTID'NU$""TT((NU$)FX)GTFDN$""AB$"N"TTFE~:"MONTANT TOTAL DE VOTRE COMMANDE: ";::T" F":1180:(R$)950,430:940::"SLOT DE L'IMPRIMANTE (1 PAR DEFAUT) ";:R$:R$""R$"1":SL(R$):SL6950-:7804(NU$)1NU$"":780'>780YH(R$)0(R$)LD(NU$)LDNU$NU$R$:780vR:18:33::NU$::958\1180:(R$)870,760:860f34,10::I1LI:D(I)1TTFDpR(I)1TTFRzI:AB$"O"TTFACA$"O"TTCA ID$$R$"N"870"R$"O"730Q:::I1LD:DE$(I)::I;::" "DE$(I):18:"TAPER LE OU LES NUMEROS DESIRES":958:NU$"" :21:198:"-> "NU$;:R$774,R$:R$"?"780 (R$)127(R$)8840*(NU$)1NU$(NU$,(NU$)1):74,CA$&CA$:CA$"O"CA$"N"700D1180:(R$)715,700:714:::"DISQUETTE INDEX TREMPLIN MICRO -> ";:ID$:774,ID$ID$:ID$"O"ID$"N"7151180:(R$)730,700:720:::"DESIREZ-VOUS UNE DISQUETTE DEMO -> ";:R$:774,R1:650R$"N"600%ILI490H510:1180:(R$)670,600:660:::"DESIREZ-VOUS UN ABONNEMENT ? -> ";:AB$:774,AB$AB$:AB$"O"AB$"N"6701180:(R$)700,670:690:::">>MINIE<< LOGICIEL DE CLAUDE AUBRY -> ";:CA$:7:13:868:198:"DISQUETTE NUMERO "I" -> ";:R$>0774,R$]:R$:R$"E"I1II1:510uDR$"O"D(I)1:600NR$"N"550XR(I)0::15:868:198:"TREMPLIN MICRO NUMERO "I" -> ";:R$b774,R$lR$:R$"E"I1ī550vR$"O"R(I) :8:T$>::"REPONDEZ PAR OU "::34,11:12:t22:T$:3:" RAMENE A LA QUESTION PRECEDENTE"|I0II1510:550:18:868:J1ID(J)0Ğ:"D";::J" ";R(J)0Ğ:"R";::J" ";:"":2&:D(I)0 rI# |1180:(R$)390,290:380L 11:1:"FIN DE VOTRE ADRESSE":958 " - ";:657:L$"":X512767:(X)141L$L$((X)128):X 774,L$ 1180:(R$)430,390:420 34,3::N$;8)I$:V$""ĺV$:L$ 1180:(R$)450,170:440LE":" - 00000 ............................."R ,9:6:"";V$:N$""V$""430a 6V$""290m @774,V$~ J(V$)9290 TI15:AS((V$,I,1)):AS48AS57290 ^I:(V$,6,1)" "290 hI7(V$):AS((V$,I,1)):(AS65AS90)AS32290 I1(I$):AS((I$,I,1)):I2AS32270^ :::"NOM ET PRENOM SVP"::I12000::230| 1180:(R$)280,230:270 :N$""Ģ20:"Si vous n'avez pas chang{ d'adresse de- puis votre derni}re commande, c'est bon!"/ "8:1:"CODE POSTAL & VIL110:T$T$"----"::T$:34,3R 22:3::"SI VOUS LE CONNAISSEZ, BIEN SUR...": 4:1:"NUMERO DE CLIENT ";N$:N$""230 774,N$ I1(N$):AS((N$,I,1)):AS48AS57190 6:1:958:"NOM & PRENOM ";I$:I$""230 774,I$,FD105:FR36:FA180:FX25:FE10: TARIFDISQUETTE,NUMERO REVUE,ABONNEMENT,DISQUETTE DEMO,FRAIS ENVOI ID30:PRIX DISQUETTE INDEX TREMPLIN MICRO CA170: PRIX DE >>MINIE<< 1330:1190 T$"":::" PAGE D'INFORMATIONS EN TAPANT ":2:IEHd::(12);(21):::49234,0: ECRITURE MASQUEE DE LA PAGE INFOS n(103)(104)2563073Ĺ103,1:104,12:3072,0:(4)"RUN COMMANDE"xLI8: NOMBRE DE DISQUETTES POUVANT ETRE COMMANDEES A CE JOUR LD2: NOMBRE DE DISQUETTES DEMOe          *****************************#u:-z:L0D$"OPEN AUTO.D,L52":D$"READ AUTO.D,R0":LF:I1LF:D$"READ AUTO.D,R"I:E$(I)::D$"CLOSE AUTO.D"I1LF:LL1:E$(I)L22L0:R$:16368,0:IR$:I110:V$V$" "::Ligne LOSE AUTO"JM12:"DESIREZ-VOUS LIRE LA LISTE ACTUELLE DES DEPENSES ?":R"ui ou on ? ";:198:R$::R$"O"R$"o"890WR$"N"R$"n"ĺRL$RL$:850\a:f******************************k* LECTURE AFFICHAGE FICHIER2 *p*UTO.D":*198:16368,0:16384,128,127:16368,0:::@/:d4******************************9* LECTURE DU FICHIER 1 *>******************************C: H:D$"OPEN AUTO":D$"READ AUTO":I05:S$(I)::I14:T(I)::LF:D$"C 1 *+******************************1::D$"OPEN AUTO":D$"WRITE AUTO":I05:S$(I)::I14:T(I)::LFE:D$"CLOSE AUTO" E0810%D$"OPEN AUTO.D,L52":D$"WRITE AUTO.D,R0":LFE:I1E:D$"WRITE AUTO.D,R"LFI:E$(I)::D$"CLOSE A(S$(3)):PERTE SUR CAPITAL 9DT0:I14:DTDTT(I):FDTDTAMlDKDTNK:DK((((DK100)100))):34,17::::"LE KILOMETRE ACTUEL COUTE:";::" ";DKR$(3)795:****************************** * ECRITURE DU FICHIER(E)(V$,10(MO$))MO$?34,7:1403,0:8:198:R$(3)735H575N:r******************************* COUT AU KILOMETRE *******************************:NK(S$(4))(S$(1)):KILOMETRES PARCOURUSAM(S$(2))192,173,87,192,173,80,192,169,42,32,244,243,169,12,133,6,32,23,244,169,0,160,2,145,38,200,192,38,208,249,230,6,165,6,201,179,208,232,96 nI768815:R:I,R::dI :::100768G198:16368,0:16384,128,127:16368,0U(16301,0222:"<1> ENCORE <2> MENU DISQUETTE <3> FIN ";:198:R$:<R$"1"20FR$"2"ĺ(4)"RUN MENU"PR$"3"50Z:: d169,32,133,230,173,84,192,173,82,::"ABONNEMENT (1 AN)"::17:20:"180 F (5 NUMEROS)"b6::"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::2768,216:769,160:770,0:771,76:772,44:77 --------------"M" Pas de frais d'envoi pour les abon- n{s @ la revue.":"MARCHE A SUIVRE: Simplement r{pondre---------------- aux questions, puisallumer votre imprimante!":"FACE 1: DOS 3.3 FACE 2: ProDOS"6 16:20122:I:1:" ";2I1I22āJ239:J:" ";:C40:" "::a32,2:33,36:34,2:35,22m2:1:" Utilisez votre imprimante pour pas-ser votre prochaine commande de dis-quette a TREMPLIN MICRO:":"PRIX UNITAIRE: 105F + 10 F d'envoi disquette vierge gratuite.":E$T$(T$,7):E$"TREMPLIN MICRO - GUY HACHETTE":E$"La Petite Motte - Senill{ - 86100 CHATELLERAULT"(12):(4)"PR#0"::20:958:198:" <1> ON PEUT CONTINUER <2> ERREUR";:R$:16368,0:774,R$::I TOTAL DE MA COMMANDE: ";:36,64:T:E$" "(T$,28):n`:E$"MODE DE REGLEMENT: CHEQUE --- CARTE BLEUE"j:E$"CARTE BLEUE ..../.../.../.../ - VALIDITE: ../.."t:E$"Montant @ d{biter: Signature:"~D(3)1ĺ:E$"Vous recevrez uneI.8CA$"O"