8L2C)pJJJJ IH(ȱH:=IH[H`@HcH  $ +   I/H`JLNGȄBȄF aK  haaFF  mJm# KKJ UJ )J ۈ) ;J3ȱJFȱJGJKaȄM  aaNNJFLGJL LdD$(4):D$"PREFIX/TM7"<n:D$"PR#3":(17):G$(7)_xNU7: NUMERO DE LA DISQUETTEzI110:T$T$"----":N30:A$(N),B$(N),P$(N):650V3:DV1:SP19:N28R1N:A$(R),B$(R),P$(R): 1:" DISQUETTE DE TREMPLIN MICRO 0F*CADRE.DEMOz03(PYRAMIDE00)MEMO.VISU00.DATA.GENERATOR 00'GRIMP.000COURRIER.LECS0FICHE70GRAPHR0CATo0RECy0SONDAGE0VILLES0AUTO0TM71,͘??/' $MENU =00(COMMANDE E/JIPO0CARAC,0PLUIE>0COLORJ >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(8RNUMERO "NU" "T$:34,2Z 23:T$" UTILISEZ LES FLECHES - RETURN POUR RUN";:V::35,22f R0:S0o V:} S0250 RR1:A$(R):RSP230 260 RR1:A$(R):RN250 :31:13:"FIN=CTRL-F": 17:31::"COMMANDES:"::18:31:" Hd::(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 FD9 93 66 66"5::11::"EXPEDITION IMMEDIATE":>770:12:" Cette disquette n'est pas PROTEGEE et il est prudent d'en faire IMMEDIATEMENT une bonne copie."*::" LE NUMERO PLACE AU DEBUT DE CHAQUE LI- GNE DU MENU RENVOIE A LA PAGE CORRESUIVANTE: * TREMPLIN MICRO LA PETITE MOTTE * SENILLE 86100 CHATELLERAULT"::" UTILISEZ LE BULLETIN DE COMMANDE DE VO-TRE DISQUETTE." :" SI VOUS POSSEDEZ UNE CARTE BLEUE, TELE-PHONEZ AU 4" 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 FACILEMENT CE NUMERO ENLE DEMANDANT A L'ADRESSE 3,221:774,32:775,253:776,229:777,133:778,96:779,160:780,0:781,177:782,94783,234:784,234:785,32:786,237:787,253:788,200:789,196:790,96:791,144:792,244:793,32:794,251:795,218:796,96:::11:" BONJOUR ET MERCI! "::,FORM.IW,/TM7/COURRIER.LECSXg"59 - COURRIER: GET.TIME",GET.TIME,/TM7/COURRIER.LECSl"60 - COURRIER: MANETTES DE JEUX",MANETTES,/TM7/COURRIER.LECSv"61 - FICHE N[7",DUMP80.DEMO,/TM7/FICHE7:S768,32:769,190:770,222:771,32:772,123:77OUT,/TM7/AUTO/5N 52 - UTILISATION DE GRAF.0,*,*^S"55 - COURRIER: MULTIPLICATION",*,*V"56 - COURRIER: ADRESSE D'UNE VARIABLE",*,*X"57 - COURRIER: CADRE HGR DEMO",CADRE.HGR.DEMO,/TM7/COURRIER.LECSb"58 - COURRIER: FORMATAGE IMAGEWRITER"AT/6&35 - RECHERCHER & REMPLACER,REC.B,/TM7/REC/e037 - VILLES DE FRANCE,VILLES,/TM7/VILLES/540 - COMPARAISON ENTRE DEUX CADRES,CADRE.DEMO,/TM7/:43 - SONDAGE SUR 8 BITS,SONDAGE.BAS,/TM7/SONDAGE/D47 - LE COUT DE VOTRE AUTOMOBILE,AUTO.C7/COLOR/421 - COLOR.HGR,COLOR.HGR,/TM7/COLOR/n23 - NOUVEAU GRAPHE (NESTOR),GRAPH.TOUT,/TM7/GRAPH/  28 - RELOGER IMP.HGR1,GRAPH.AIDE,/TM7/GRAPH30 - GENERATEUR DE DATA,DATA.GENERATOR,/TM7/33 - OU CATALOG DEVIENT CAT,CAT.DEMO,/TM7/CAC.INVBAS,/TM7/CARACZ  15 - CARACTERES INVERSES (IMP ON!),CARAC.INVDEMO,/TM7/CARAC/ 17 - MEMO.VISU (JEU VISUEL),MEMO.VISU,/TM7/ 18 - LA PYRAMIDE,PYRAMIDE,/TM7/ 20 - COLOR.DEMO,COLOR.DEMO,/TM7/COLOR/ 20 - COLOR.VALEURS,COLOR.VAL,/TMPAGE INFOS GENERALES,INFOS,/TM7/Z  " 3 - IPO.DEMO (GRAPHISME)",IPO.DEMO,/TM7/IPO/  " 9 - PLUIE...DE CARACTERES",PLUIE.DEMO,/TM7/PLUIE/  13 - CARACTERES DOUBLES (IMP ON!),CARAC.DBLE,/TM7/CARAC/  14 - INVERSION DE FONTE (IMP ON!),CARNSPS0VRD1VD1:SSP:210> hVND1SVD1:200G r280 |35,24:34,21:22::T$;:"SELECTION -> PAGE "((A$(VDS),2))" "B$(VDS) B$(VDS)"INFOS"680 P$(VDS)"*"ī800 23:D$"PREFIX"P$(VDS) 23:D$"-"B$(VDS)% > CTRL-I <";8 V:768,A$(VSD): VERS MODE INVERSEb "K(16384):K9ĺ:21:D$"-COMMANDE" ,K6ĉ::(18):D$"CATALOG": 6K128290 @16368,0:V:A$(VSD):K141Ģ22:380 JK136K139VV1:VDVD1:200 TK149K138VV1$ ^105: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:I1$"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:I"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::E"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-::804(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$"OR$"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):7,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,R$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$:77413: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)1::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:I# |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:440 ":" - 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 rI1(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 & VILLE10: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$, .8CA$"O"ĺ:E$" - >>MINIE<<";:36,64:CAa=ID$"O"ĺ:E$" - DISQUETTE INDEX";:36,64:IDBAB$"O"ĺ:E$" - ABONNEMENT A 5 NUMEROS DE T.MICRO";:36,64:FALN$""AB$"N"ĺE$" - FRAIS D'ENVOI FORFAITAIRES";:36,65:FE9V:E$" MONTANT 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 une d */ ******************************5 :C 250:260m J16:I50150:IPOI60,IJ3::: 320:1:22:" IL PERMET DES PETITES ANIMATIONS " J16:I50150:IPOI60,I:: : ****************************** * E* & IPO * H ******************************N :\ 210:220 J16:I50150:IPOI30,IJ2::: 320:1:22:" LE MECANISME EST SIMPLE... " : ****************************** * ANIME *. ******************************4 :X J16:I50150:4I,IJ2:: 320:1:22::" & IPO ENTRE EN JEU "::320:834:1:22:"L'EFFET DIMENSIONNEL EST EVIDENT... " : ******************************$  !"#$.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 NORMAL /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 IPOIPOuHUSTON!' '(IPO.DEMO 00*IPO.SOURCE&00IPO.C+0`0254: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::"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:773,--------------"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:20:22: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 isquette 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$::I1FFACEMENT *: ******************************@ : "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******************************(6* SP.IPO ZZZ *L7******************************R8:z@I12000::I120:B(16336)::H:I******************************J* ART.GASTON AVEC &IPO TO *K******************************L:T:OC1:768 HPOSN EQU $F411;Calcul position point HFNS EQU $F6B9;Transpose X-> XH XL ORG $6000;Apr}s les pages HGR * Vectorisation & DEBUT LDA #$4C ;JMP STA AMPERV;sur le programme LM. LDA #IPOAMP STA AMPERV+2 RTS ;Retour de BRUN %'()*K' HBASL EQU $26 ;Adresse du point HGR HMASK EQU $30;Octet masque bit/point CHRGET EQU $B1;Pour acqu{rir prochain carac. CHRGOT EQU $B7;au curseur. TXTPTR EQU $B8;Adresse du dernier caract}re. HCOLOR0 EQU $E4 ;Code couleur point AMPERV EQU $3F5;Vecteur &* & IPO (TO avec code de $6071 @ $61F5) INDEX EQU $6;Pour codes ASCII VARCOUL EQU $8 ;Variable Couleur POSHB EQU $19 ;Coor.horrizontale POSHH EQU $1A ;avec d{passement 256->279 POSV EQU $1B ;Coor.verticale HCOLOR1 EQU $1C ;Var.en fonction de la 'HMAS145,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,0************2R* ROUTINE CLEARHGR,SON *VS******************************\T:\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,)******************************G** RND (ECLATE) *k+******************************q,: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)::328:\******************************* RND (ECRAN) *******************************: X((1)1000)4:Y((1)1000)5:X30X250780Y10Y80780 (:#:iA(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)C:RBIAI650bBI170650hP12000::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$"-/TM7/MENU"FN650XIAIBIbAI50,IlIPOBI50,I3.14X2YY1100$:H******************************l* DESSIN ALEATOIRE *******************************:AI30:BI160:600:600Y130:Z90I1100550Y,ZIPOA,B700:720:::791:768^X5250X&h430=rOC1ēX,100100,YY|OC2ē104,Y:IPOX,102`X{OCOC1:700:OC3470350:******************************* CALCUL DES COORDONNEES *******************************: You CALL IPOAMP LDA #ASCIPO STA INDEX+1 * Conserver les pointeurs LDA TXTPTR;Pour revenir @ l'interpr{teur PHA ;BASIC au bon endroit. LDA TXTPTR+1 PHA LDY #0 JSR CHRGOT;Lecture du caract}re apr{s & * Test de l'instruction & IPO TEST CMP (INDEX),Y;Comparons-le avec la table BEQ SUIT;...c'est bon -> SUIT RTS ;Ce n'est pas pour nous. SUIT INY ;Pour passer @ la lettre CPY #3;suivante sauf si 3e. BEQ PARAMS JSR CHRGET;Lecture du code JMP-----------------------------------------* LDA #$05; Adresse du premier... STA ADRB; ...trait{ (partie basse) LDA #$40; Adresse de ce caract}re, STA ADRH ; mais partie haute *-----------------------------------------------------* DEBUT LDY #$0; 0 dans -/012nt) avec CARAC.INVBAS * ******************************************************* ORG $300 ADRB EQU $06; Pointeur adresse caract}re ADRH EQU $07; Partie haute meme adresse LONG EQU $08 ; Longueur du caract}re VAL EQU $09; Stockage temporaire *------------******************************************************* * CARAC.INV GUY-HACHETTE 15 DECEMBRE 85 * * (INVERSE UNE FONTE DE CARACTERES PERSONNALISES) * *-----------------------------------------------------* * Fonctionne (automatiqueme0@0,CARAC.DBLE:00,,CARAC.DOUBLE<0@0,CARACuHUSTON!' '+CARAC.INV.S.T00,CARAC.INV3R00,CARAC.INV04A00,CARAC.INVBAS5E00,CARAC.INVDEMO6x00,)CARAC.INC8i8i#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',"&, ;On calcule l'adresse en fonction LDA HCOLOR1 ;des coordonn{es 'POS'. EOR (HBASL),Y ;Masque de couleur AND HMASK ;Masque du bit/point RTS ;bas les masques! * & IPO TO (voir codes IPO.C) IPOTO EQU * ?ANG EOR (HBASL),Y STA (HBASL),Y ;Dessin du point apr}s masques LDA VARCOUL ;successifs. STA HCOLOR0 ;R{tablir la couleur d'entr{e RTS ;Retour principal ADRPLOT LDX POSHB ;Coordonn{es {cran HGR pour LDY POSHH ;le SP 'HPOSN' LDA POSV JSR HPOSN POSHH STA POSV * & IPO IPO LDA HCOLOR0 ;Il faut conserver la couleur STA VARCOUL ;pour la restituer en cas de JSR ADRPLOT ;changement BNE NOCHANG CHANG LDA #0 ;Couleur noire pour tracer STA HCOLOR0 ;sur une zone d{j@ dessin{e JSR ADRPLOT NOCH TEST;et compare encore. * Table ASCII ASCIPO ASC 'IPO' * Param}tres fonctions PARAMS JSR CHRGET;Lecture du code CMP #$C1;est-ce TO ? BEQ IPOTO;Oui: fonction & IPO TO PLA PLA JSR HFNS;Il faut lire les param}tres STX POSHB;et les transf{rer. STYle registre Y pour... LDA (Adrb),Y ; ...lecture adres. indirect AND #$1F ; Avec 00011111, $41/$61=$01 BEQ FIN; Si le r{sultat est z{ro... CMP #$11; ...ou d{passe 16 (points), BCC SUITE ; c'est la fin FIN RTS *-----------------------------------------------------* SUITE STA LONG; La longueur est sauv{e, INC LONG; est incr{ment{e de 1 LDY #$01; Boucle de lecture BCLE LDA (Adrb),Y; Premier octet EOR #$FF; Inversion de la valeur SEC ; Retenue forc{e @ 1... ROL ; ...pour une rotation gauche CMP #$0D; -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))9HN APPLE ":L$ :(15)= "Minuscules deconseillees!"i E$"Y";E$"$";E$(34);(15);E$"<";E$"A"w D$"PR#0"dD$(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 UF$F$".INV"+ D$"BSAVE"F$",A16384,L"LD D$"RUN CARAC.CHARG" 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 @)`I8* ɍ)ieiL@)`I8* ɍ)H h  eiLeut y avoir une retenue, ADC #$00; et il faut aussi y penser STA ADRH JMP DEBUT ? mettre LDA VAL; le contenu de VAL dans le STA (Adrb),Y; premier octet du caract}re INC LONG; Ne pas oublier la case conte- LDA LONG; nant le code du caract}re CLC ; avant de calculer l'adresse ADC ADRB; du caract}re suivant STA ADRB LDA ADRH; Il per l'octet STA (Adrb),Y ; pr{c{dent @ l'adr. actuelle PLA ; R{cup{ration sur la pile et STA VAL; sauvegarde dans VAL INY ; Un de plus pour Y de boucle CPY LONG; Est-ce la bonne longueur ? BCC BCLE; Si "non": goto BCLE LDY #$01; Y charg{ avec 1 pourY a-t-il 0D dans l'accumul.? BEQ TRAITE ; Si oui: vers traitement CMP #$8D; Pareil avec 8D BEQ TRAITE BNE FAIT; Saut au-dessus du traitement TRAITE AND #$FE; Masque "11111110" (moins 1) FAIT PHA ; On empile provisoirement A, LDA VAL; le temps de charg!)):H333;H33H}9?HYI@HUSAHBH))CH99DH99EH)))9FHGH9) HHIH9999JH??KHǃ9LH????MHNHOH99PHQHyYCRHɉ79******************************************************** * LETTRES EN PLUIE * PROGRAMME CLAUDE AUBRY SEPT 1985 * ******************************************************** * POINTEUR EQU $06 ; Dans la rom pour NB al{atoire WNDLFT EQU $20 ; Marge GAUCHE WNDWPLUIEuHUSTON!' '%PLUIE@\ 00>PLUIE.CF{00>*PLUIE.DEMOH 00>~?kPx<KP;=uPUP??vPVP8p`0sP<~Ç SP0p?tPTPrP>RP9pxP<XPiGIGpP>PP+IbP~":UNIDIRECTIONNELLEp(27)"T08":INTERLIGNE=8 PTS(27)"'":CARACTERES PERSONNALISES:"bonne annee":PARTIE SUPERIEURE"BONNE ANNEE":PARTIE INFERIEURE:: "titre}mHnHoHwwpHqHχrHsHGWWtHw7uHvHLJ??wHxHw''wyHLJzHw7Ggw{HWSE|H}HUSG~H#SH!)) THUH??VH??WH߁XH99YHZH9 !19[H\Hǃ;]HUU^H_H`HUUUUaHWWbHwwcHww'dHwweHWWGfHgHχhHiH jH??kHߏ'wlHDTH EQU $21 ; LARGEUR fenetre WNDTOP EQU $22 ; HAUT de la fenetre WNDBTM EQU $23 ; BAS de la fenetre CH EQU $24 ; Curseur HORIZONTAL CV EQU $25 ; Curseur VERTICAL BASL EQU $28 ; Adresse de la LIGNE courante RNDL EQU $4E ; Nombre al{atoire ROM EQU $D000 ; P?ABCDE' ::(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 s"HЅNqȅN8!Oqe"O8#N$O"% "(ɠH(%h% "h($"% "(ɠУ!""#h"`termin{, on r{cup}re STA WNDTOP ; ...position de haut de fenetre RTS ; Retour au Basic ?r{mente CPY WNDWDTH ; = @ la largeur ? BCC CHERCHE ; Non: on continue la recherche INC WNDTOP ; Termin{ pour haut de fenetre LDA WNDTOP ; R{cup}re haut de fenetre CMP WNDBTM ; Compare haut et bas de fenetre BCC ESPACE ; < on continue ? PLA ; Sinon STY CH ; On recherche un caract}re LDA WNDTOP ; Haut de fenetre STA CV ; En curseur vertical JSR VTAB ; Positionne BASL BASH CHERCHE LDA (BASL),Y ; Prend caract}re CMP #" " ; Est-ce un espace ? BNE INCPO ; Non: prochain al{atoire INY ; Oui, on inc suivante PLA ; Sauve le num{ro de ligne BCS ESPACE ; On va en premi}re colonne FINECRAN INC CV ; Ligne suivante JSR VTAB ; Positionne BASL BASH PLA ; R{cup}re le caract}re STA (BASL),Y ; On l'{crit une ligne plus bas ESPACE LDY #$00; D{but de ligneL BASH LDA (BASL),Y ; Caract}re CMP #" " ; Un espace ? BEQ ESPACE ; Oui ? PHA ; On sauve le caract}re LDA #" " ; On l'efface de l'{cran STA (BASL),Y ; ...en {crivant espace LDA CV ; Ligne CMP #$17 ; La derni}re ? BCC FINECRAN ; Oui on passe ligne ADC WNDTOP ; ...haut de fenetre STA RNDL+1 ; stock{ SEC SBC WNDBTM ; dans fenetre BCS AGAIN1 ; Non ? LDY RNDL ; R{cup}re STY CH ; ...colonne LDA RNDL+1 ; ligne CMP WNDTOP ; dans la fenetre BCC AGAIN1 ; Non ? STA CV JSR VTAB ; Oui positionne BASNY ; ...avec val prises en ROM AGAIN0 STA RNDL ; Stocke SEC ; ...avant soustraction SBC WNDWDTH ; dans la fenetre BCS AGAIN0 ; Non: on soustrait LDA RNDL+1 ; ...deuxi}me al{atoire CLC ; Avant addition ADC (POINTEUR),Y AGAIN1 CLC ; Avant addition uv{es STA POINTEUR ; serviront de nbre al{atoire) STX POINTEUR+1 * LDY #$00 INCPO INC POINTEUR ; Incr{mente le pointeur BNE LOOP ; HSB et LSB des nombres INC POINTEUR+1; ...al{atoires * LOOP LDA RNDL ; Cr{ation du nombre al{atoire ADC (POINTEUR),Y Iremi}re adresse BASIC VTAB EQU $FC22 ; D{place le curseur en CV * ORG $300 ; Appel{ par CALL 768 * PLUIE EQU * LDA WNDTOP ; On sauve le haut de fenetre PHA ; ...en l'empilant LDA #ROM ; ...rom les valeurs trouffit. 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)"-/TM7/MENU" ZRGI d::Jn:21:958:"ESC)FIN NUMERO DE COULEUR (0-7) -> ";:CH$bxCH$(27)ĉ::240xC(CH$):C7110:I0C:C$,H$,B$::C:23:C$" "H$" "B$" ";C1C3C5C7180X0:X150:P0:P150:P$" COLONNES PAIRES":1900 XOUGE,$AA,10101010,BLEU,$D5,11010101,BLANC,$FF,11111111k 22:"<1> MENU DE DISQUETTE <2> TERMINE ";:R$ R$::R$"1"ĺ(4)"-/TM7/MENU" R$"2"140 d:[n"VALEUR DES DIFFERENTES COULEURS: --------------------------------":xI07:I:C$,H$,B$::I;::" "C$;10)H$;" "B$" ";(228)::8 NOIR,$00,00000000,VERT,$2A,00101010,VIOLET,$55,01010101,BLANC,$7F,01111111,NOIR,$80,10000000,R5,6,197,25,144,202,96,165,6,166,7,164,8,32,17,244,177,38,37,48,41,127,96KMR$"3"Ā( R$"1"ĺ(4)"-/TM7/MENU": R$"2"ė::C 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,244J 230,7,208,238,96,169,0,133,7,230,6,16d::(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$ :::COLORuHUSTON!' ')COLOR.HGRLK00JCOLOR.VALN00J*COLOR.DEMOP00J$"F"60 50:X1100:P51:P1100:P$" COLONNES IMPAIRES"W I130:X,PX1,P1:XX1:X1X11:x C0C3C4C7ĺP$" "; I1119:I,0I100,100: 198:R$:110C NOIR,$00,00000000,VERT,$2A,00101010,VIOLET,$55,01010101,BLANC,$7F,01111111,NOIR,$80OQ******************:*::I0:M04II1JV$" ":I9V$""k3I:V$I". VALEUR -> "V(I);z15:"";V$V$"?"450V$"*"I1II2:400V$""V(I)(V$)3I:15:V(I)M1I12400PPV(1):PGPPI11: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 J2EN 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$"SUVWXYZ[\]^_*************** :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 * ***************GRAPHuHUSTON!' '*GRAPH.TOUTT 00R%GRAPHa 00R*GRAPH.AIDEja00RGRAPH.LMmn00RGRAPH0np00R,10000000,ROUGE,$AA,10101010,BLEU,$D5,11010101,BLANC,$FF,11111111 :198:22:"<1> MENU DISQUETTE <2> ENCORE < > FIN ";:R$ R$"1"ĺ:(4)"-/TM7/MENU" R$"2"Ĭ :2V(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::"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 *?**3?3 333333>0 ~~ < <~b033?3333333333333333;33333?333? ?00003333?3?33333337;3333333333337;3333303? 33333333333  c ` 80N >L010nT16Z Z G02808888866$$~$~$>> >B%$R! *,88888"6">~~`p83;?73  ?30 ?30038<63?00?033i:<  0  (e)e Jve I ɍ ɚJJ (М ` &%0) W :L`Diiȥi`1:450:2******************************V* FIN DE PROGRAMME *z ******************************::20:"]GOTO10000":19:'51,0:595"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$MIER *.******************************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$:D$SION 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 FICH: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:{******************************* IMPRES****************************$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$: 33333?333 33333 ?0 ?8p`xx``xx>d::(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 * ********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$"OPEN 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:******************************* ECRITURE 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::T$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):PGPP 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 ******** 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,156R$"EN VALEURS":DX1R$R$" REELLES":240C R$R$"/"(DX)V AD9039:170:\ : ****************************** * TRACE DU GRAPHIQUE * ****************************** : NDR$" SAISIR LES DONNEES ":365 M285:@ 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/ `bcdefgh********************** :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):160"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"F$M1:450:9******************************]* FIN DE PROGRAMME * ******************************::20:"]GOTO10000":19:'51,0:595CATuHUSTON!'  'CAT.ALOGpw00oCAT.DEMOq00o%CAT.Ss\ 00oVENTE MENSUELLE DE GUILIGUILIS 343000 255000 365000 111000 180000 200000 70000 19000 320000 10000 170000 444000 ` &%0) :LDiiȥi`."O 22:6:"<1> CONTINUER <2> CORRIGER --> ";:R$::R$"1"ė:` R$"2"210ONNE 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 ou 22: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 LA BiklLIN 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 d:(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 de 0, suite LDA INDEXB; On a trouv{ "CATALOG CLC ; Pas d'addition sans cela! ADC #$08; On ajuste le pointeur... STA INDEXB; qui n'a pas te)...Saut RTS ; ...ou fin de travail. * * BCL1 INC INDEXB; + 1 pour pointeur AdrB BNE BCL2; Si diff{rent de 0: saut, INC INDEXH; ou alors, + 1 pour AdrH BCL2 LDY #$08; On a 8 caract}res BCL4 LDA ($06),Yar{e @ LOMEM (AdrH) BCC BCL1; Si A plus petit, saut. LDA INDEXB ; Adresse basse dans A... CMP $69; compar{e @ LOMEM (AdrB) BCC BCL1; Si A plus petit, saut. LDA INDEXH; Plus grand, alors on fait CMP $6A; un nouveau test avec BNE BCL1; Lomem (AdrHaurtuvwx * ORG $300 * * PROG EQU * LDA $67; D{but du programme (Ab)... STA INDEXB LDA $68; et Adresse haute STA INDEXH BCL3 LDA INDEXH; Adresse haute dans A... CMP $6A; comp* ELIMINATION DE "ALOG" DANS UN PROGRAMME BASIC * * --------------------------------------------- * * * INDEXB EQU $06 ; Adressage index{ (AdrBas) INDEXH EQU $07 ; Idem (AdrHaute) * 768::90:R$:# ZD$"CATALOG"^ d::23:"<1> MENU/DISQUETTE <2> FIN DE TRAVAIL ";:R$ n:::R$"1"ĺD$"-/TM7/MENU" xR$"2"100 :(21):0D$(4):D$"BLOAD CAT.ALOG""UNE COURTE ROUTINE VA REMPLACER TOUS LES PAR UN NOMBRE EGAL DE ..."(34,42D$"CATALOG"<R$::F12::" CATALOGUE AFFREUX, NON ? ";:198::" ";:R$::::80,90:R$: Ptour! BEQ BCL3; Oui: retour case d{part. * * DFB '"; C'est ce que l'on cherche DFB 'C; pour le transformer en un DFB 'A; simple CAT... suivi de DFB 'T; 4 espaces (dont notre DFB 'A; Apple ador{ n'a que faire, DFB 'L; mais dont il se moque DFB 'O; {perdument. DFB 'G; Au revoir et Merci! ?on refait comme plus haut JSR Strout; et le mot s'affiche JSR Inlin; Input...X = $FF en sortie, BCL5 INX ; on lui ajoute 1 et X = 0 LDA Buffer,X; Voir plus haut: c'est STA $03A0,X; explications, mais le mot BNE Bcl5 ; est stock{ ailleurs CPX Long; du mot dans le buffer STA $0390,X; Stock{ l@ ou ailleurs... BNE Bcl2; Si A n'est pas @ z{ro STX Long; X est sauv{ dans Long ($FF) BEQ Bcl3; Ici, on passe... BCL4 JSR Vp; sans remont{e de curseur BCL3 LDY #>Ch2; Pour affichage de "PAR: ", LDA #Ch1 ; Partie haute dans Y... LDA #, CONSULTEZ"::"LE NUMERO 7 DE ":"AUX PAGES 35 ET 36"16368,0:16384,128,127:16368,0::D$"CAT":"ENU DISQUETTE ASIC ";:16368,0:X$::X$"M"X$"m"ĺD$"-/TM7/MENU" *-----------------------------------------------------* ? celui qui doit disparaitre CPY $FF; La longueur est atteinte ? BNE Bcl9; Non: on continue BEQ Spg1; Retour @ la case d{part DFB 'R,'E,'M,'P,'L,'A,'C,'E,'R,': HEX 2000; Un espace + un z{ro obli- DFB 'P,'A,'R,': HEX 2000 ; gatoire (fin de chaine) tion de la longueur BCL8 LDA (IndexB),Y; Lecture CMP $038F,Y; Comparaison BNE Spg1; In{gal ? retour case d{part DEY ; Y = Y - 1 BNE Bcl8; Pas z{ro ? encore un tour! BCL9 INY ; Maintenant, on va {crire LDA $039F,Y; le mot qui remplace sur STA ($06),Y; est-on {gal @ Lomem CMP $6A; partie haute ? BNE Bcl6; Non: on continue vraiment... JMP Vecdos; Oui: retour au Dos. FIN BCL6 INC IndexB; Plus un pour l'index BNE Bcl7; Si l'on a 0 ($FF+1), il INC IndexH; faut incr{menter IndexH BCL7 LDY $FF; R{cup{ra&+ : 5"8 "QUESTION 1 QUESTION 2 0=NON 1= OUI"N :"FIN = ESCAPE"a 32,0:33,25:t QQ1:::Q: RE$"" :6:"SEXE ";:R$:R$(48)R$(49)160 R$:RE$RE$R$ :8:"AGE ";:R$:R$(49)R$(53)170 R$ I15Ă  "#256)17:48840-41 SOUS PRODOS *r110Qw(222)6Q0:IREAD:I,0::110|169,0,162,0,24,126,17,3,42,232,224,8,208,246,133,6,965:" hommes - ";QPE;" femmes"7 J32,0:33,40::T$R OQQ1:8191Q,0:QQ16y T:(4)"BSAVE SONDAGE,A 8176,L"Q: YPE(REP)(REP1)256:PE;: ^I768784:R:I,R: cAD8191:RE8176 h375!m(4)"BLOAD SONDAGE":Q((43616)(43617):% ":P2:345:" de 18-24 ans"C 'P4:345:" de 25-34 ans"a ,P6:345:" de 35-49 ans" 1P8:345:" de 50-64 ans" 6P10:345:" de 65 ans &+" ;:"QUESTION 1 = ";:P12:345:" OUI" @:"QUESTION 2 = ";:P14:345:" OUI" E::P0:34R$(27)245) R$(48)R$(49)225G R$:(R$)1155,245:275b I18:V((RE$,I,1))p J(I2)2 P(REJ)V:P256P0:REJ1,(REJ1)V REJ,P I784,V: 768:ADQ,(6) R$(27)150  :Q" QUESTIONNAIRES": I(R$)RE$RE$"1":195/ RE$RE$"0"5 j :10:"QUESTION 1 ";:R$:R$(48)R$(49)200} R$:RE$RE$R$ :12:"QUESTION 2 ";:R$:R$(48)R$(49)210 R$:RE$RE$R$ ::RE$: :22:"<1> SUITE <0> ANNULE ";:R$ ȎĂ䕂́ĄÃZZZZZZZZ,ZZZZZZZZZZZZZZZZX ZZZZZZZZZZZZZZZZXXZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ100DATAZEZEZEZE,ZEZEZEZE,ZEZEZEZEZEZZZZZZZZZZZZZ,100DATAZEZXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 100DATAZEZEZEZE,ZEZEZEZE,ZEZEZEZEZEZZZZZZZZZZZZZ,ZZZZZZZZZZZZZZZZX,100DATAZEZEZEZE,ZEZEZEZE,ZEZEZEZEZEZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ100DATAZEZEZEZE,ZEZEZEZE,ZEZEZEZEZEZZZZZZZZZZZZZ,ZZZZZZZZZZZZZZZZX,XXXXXXXXXXXXXXXX,100DATAZEZEZEZE,ZEZEZEZE,ZEZEZEZEZEZZZZZZZZZZZZZ,ZZZZZZZZZZZZZZZZX,XXXXXXXXXXXXXXXX XXXXXXXXXXXXZZZZZZZZZZZZZZZZZZ,100DATAZEZEZEZE,ZEZEZEZE,ZEZEZEZEZEZZZZZZZZZZZZZ,ZZZZZZZZZZZZZZZZX,XXXXXXXXXXXXXXXX,ZZZZZZZZZZZZZZZZZZZ ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTT100DATAZEZEZEZE,ZEZEZEZE,ZEZEZEZEZEZZZZZZZZZZZZZ,ZZZZZZZZZZZZZZZZX,XXXXXXXXXXXXXXXX,ZȠЇ؃EZEZE,ZEZEZEZE,ZEZEZEZEZEZZZZZZZZZZZZZ ZEZEZEZEZEZZZZZZZZZZZZZZZEZEZEZEZEZZZZZZZZZZZZZZEZEZEZEZEZZZZZZZZZZZZZEZEZEZEZEZZZZZZZZZZZZEZEZEZEZEZZZZZZZZZZZEZEZEZEZEZZZZZZZZZZEZEZEZEZEZZZZZZZZZEZEZEZEZEZZZZZZZZEZEZEZEZEZZZZZZZEZEZEZEZEZZZZZZEZEZEZEZEZZZZZEZEZEZEZEZZZZEZEZEZEZEZZZEZEZEZEZEEZEZEZEZEZZZEZEZEZEEZEZEZEZZZEZEZEEZEZEZZZEZEEZEZZZEEZZ100DATAZEZEZEZE,ZEZEZEZE,100DATAZEZEZEZE,ZEZEZEZE ZEZEZEZEEZEZEZEZZZEZEZEEZEZEZZZEZEEZEZZZEEZZ100DATAZEZEZEZE,100DATAZEZEZEZE ZEZEZEZEEZEZEZEZZZEZEZEEZEZEZZZEZEEZEZZZEEZZ100D1DATA0,ZAZAZA,AZAZAZ,AZAZAZ,AZAZAZA AZAZAZAAAZAZAZZAZAZAAAZAZZAZAAAZZAA101DATA0,ZAZAZA,AZAZAZ,AZAZAZ,101DATA0,ZAZAZA,AZAZAZ,AZAZAZ AZAZAZZAZAZAAAZAZZAZAAAZZAA101DATA0,ZAZAZA,AZAZAZ,101DATA0,ZAZAZA,AZAZAZ AZAZAZZAZAZAAAZAZZAZAAAZZAA101DATA0,ZAZAZA,101DATA0,EZEZEZE,101DATA0,ZAZAZA,AZAZAZ,AZAZAZ,AZAZAZA,AZAZA,ZEZEZEZE ZEZEZEZEEZEZEZEZZZEZEZEEZEZEZZZEZEEZEZZZEEZZ 101DATA0,ZAZAZA,AZAZAZ,AZAZAZ,AZAZAZA,AZAZA,101DATA0,ZAZAZA,AZAZAZ,AZAZAZ,AZAZAZA,AZAZA AZAZAAAZAZZAZAAAZZAA101DATA0,ZAZAZA,AZAZAZ,AZAZAZ,AZAZAZA,10ZAZA,ZEZEZEZE,ZEZEZE,ZEZEZEZ ZEZEZEZZZEZEZEEZEZEZZZEZEEZEZZZEEZZ101DATA0,ZAZAZA,AZAZAZ,AZAZAZ,AZAZAZA,AZAZA,ZEZEZEZE,ZEZEZE,101DATA0,ZAZAZA,AZAZAZ,AZAZAZ,AZAZAZA,AZAZA,ZEZEZEZE,ZEZEZE ZEZEZEEZEZEZZZEZEEZEZZZEEZZ101DATA0,ZAZAZA,AZAZAZ,AZAZAZ,AZAZAZA,AZAZA,ZAZAZAZA,AZAZA,ZEZEZEZE,ZEZEZE,ZEZEZEZ,ZEZEZE,101DATA0,ZAZAZA,AZAZAZ,AZAZAZ,AZAZAZA,AZAZA,ZEZEZEZE,ZEZEZE,ZEZEZEZ,ZEZEZE ZEZEZEEZEZEZZZEZEEZEZZZEEZZ 101DATA0,ZAZAZA,AZAZAZ,AZAZAZ,AZAZAZA,AZAZA,ZEZEZEZE,ZEZEZE,ZEZEZEZ,101DATA0,ZAZAZA,AZAZAZ,AZAZAZ,AZAZAZA,A,ZEZ ZEZZZEEZZ101DATA0,ZAZAZA,AZAZAZ,AZAZAZ,AZAZAZA,AZAZA,ZEZEZEZE,ZEZEZE,ZEZEZEZ,ZEZEZE,ZEZEZEZE,101DATA0,ZAZAZA,AZAZAZ,AZAZAZ,AZAZAZA,AZAZA,ZEZEZEZE,ZEZEZE,ZEZEZEZ,ZEZEZE,ZEZEZEZE ZEZEZEZEEZEZEZEZZZEZEZEEZEZEZZZEZEEZEZZZEEZZ101DATA0,ZAZAZA,AZAZAZ,AZAZAZ,EZE,ZEZEZEZ,ZEZEZE,ZEZEZEZE,ZEZ,ZEZEZEZE ZEZEZEZEEZEZEZEZZZEZEZEEZEZEZZZEZEEZEZZZEEZZ101DATA0,ZAZAZA,AZAZAZ,AZAZAZ,AZAZAZA,AZAZA,ZEZEZEZE,ZEZEZE,ZEZEZEZ,ZEZEZE,ZEZEZEZE,ZEZ,101DATA0,ZAZAZA,AZAZAZ,AZAZAZ,AZAZAZA,AZAZA,ZEZEZEZE,ZEZEZE,ZEZEZEZ,ZEZEZE,ZEZEZEZEZA,AZAZAZ,AZAZAZ,AZAZAZA,AZAZA,ZEZEZEZE,ZEZEZE,ZEZEZEZ,ZEZEZE,ZEZEZEZE,ZEZ,ZEZEZEZE,EZEZ EZEZZEZEEEZZEE101DATA0,ZAZAZA,AZAZAZ,AZAZAZ,AZAZAZA,AZAZA,ZEZEZEZE,ZEZEZE,ZEZEZEZ,ZEZEZE,ZEZEZEZE,ZEZ,ZEZEZEZE,101DATA0,ZAZAZA,AZAZAZ,AZAZAZ,AZAZAZA,AZAZA,ZEZEZEZE,ZEZE,EZEZ,EZEZE,101DATA0,ZAZAZA,AZAZAZ,AZAZAZ,AZAZAZA,AZAZA,ZEZEZEZE,ZEZEZE,ZEZEZEZ,ZEZEZE,ZEZEZEZE,ZEZ,ZEZEZEZE,EZEZ,EZEZE EZEZEEEZEZZEZEEEZZEE101DATA0,ZAZAZA,AZAZAZ,AZAZAZ,AZAZAZA,AZAZA,ZEZEZEZE,ZEZEZE,ZEZEZEZ,ZEZEZE,ZEZEZEZE,ZEZ,ZEZEZEZE,EZEZ,101DATA0,ZAZAZEZE,ZEZ,ZEZEZEZE,EZEZ,EZEZE,ZEZE,101DATA0,ZAZAZA,AZAZAZ,AZAZAZ,AZAZAZA,AZAZA,ZEZEZEZE,ZEZEZE,ZEZEZEZ,ZEZEZE,ZEZEZEZE,ZEZ,ZEZEZEZE,EZEZ,EZEZE,ZEZE ZEZEEZEZZZEEZZ101DATA0,ZAZAZA,AZAZAZ,AZAZAZ,AZAZAZA,AZAZA,ZEZEZEZE,ZEZEZE,ZEZEZEZ,ZEZEZE,ZEZEZEZE,ZEZ,ZEZEZEZ101DATA0,ZAZAZA,AZAZAZ,AZAZAZ,AZAZAZA,AZAZA,ZEZEZEZE,ZEZEZE,ZEZEZEZ,ZEZEZE,ZEZEZEZE,ZEZ,ZEZEZEZE,EZEZ,EZEZE,ZEZE,ZEZEZEZEZ ZEZEZEZEZZZEZEZEZEEZEZEZEZZZEZEZEEZEZEZZZEZEEZEZZZEEZZ101DATA0,ZAZAZA,AZAZAZ,AZAZAZ,AZAZAZA,AZAZA,ZEZEZEZE,ZEZEZE,ZEZEZEZ,ZEZEZE,ZEZEDATA0,ZAZAZA,AZAZAZ,AZAZAZ,AZAZAZA,AZAZA,ZEZEZEZE,ZEZEZE,ZEZEZEZ,ZEZEZE,ZEZEZEZE,ZEZ,ZEZEZEZE,EZEZ,EZEZE,ZEZE,ZEZEZEZEZ,EZE EZEEEZZEE101DATA0,ZAZAZA,AZAZAZ,AZAZAZ,AZAZAZA,AZAZA,ZEZEZEZE,ZEZEZE,ZEZEZEZ,ZEZEZE,ZEZEZEZE,ZEZ,ZEZEZEZE,EZEZ,EZEZE,ZEZE,ZEZEZEZEZ,ZEZEZEZE,ZEZEZE,ZEZEZEZ,ZEZEZE,ZEZEZEZE,ZEZ,ZEZEZEZE,EZEZ,EZEZE,ZEZE,ZEZEZEZEZ,EZE,EZEZEZE EZEZEZEEEZEZEZZEZEZEEEZEZZEZEEEZZEE101DATA0,ZAZAZA,AZAZAZ,AZAZAZ,AZAZAZA,AZAZA,ZEZEZEZE,ZEZEZE,ZEZEZEZ,ZEZEZE,ZEZEZEZE,ZEZ,ZEZEZEZE,EZEZ,EZEZE,ZEZE,ZEZEZEZEZ,EZE,101[P23------------------------32101DATA0,ZAZAZA,AZAZAZ,AZAZAZ,AZAZAZA,AZAZA,ZEZEZEZE,ZEZEZE,ZEZEZEZ,ZEZEZE,ZEZEZEZE,ZEZ,ZEZEZEZE,EZEZ,EZEZE,ZEZE,ZEZEZEZEZ,EZE,EZEZEZE,101DATA0,ZAZAZA,AZAZAZ,AZAZAZ,AZAZAZA,AZAZA,ATA100100100" ,,F,AHHɓ4ɛ0ɐ,Ƀ ɘ9 LKFhh`n8©é0nLً, :/8Р|̃m9&GVHNNggԠƌPZAZAZA ZAZAZAAZAZAZZZAZAAZAZZZAAZZ101DATA0,101DATA000000000000 101DATA101101000000 101DATASDSDSDSDSDSDSDSD,ZEZEZE,ZEZEZ,ZEZ,AZAZAZ,AZ,FGFGFGF,RTRTRT, ZAZEZJJNSJSJSJSJ,89044,SDSDSDSD,101DATASDSDSDSDSDSDSDSD,ZEZEZE,ZEZEZ,ZEZ,AZAZAZ,AZ,FGFGFGF,RTRTRT, ZAZEZJJNSJSJSJSJ,89044,SDSDSDSD SDSDSDSDDSDSDSDSSSDSDSDDSDSDSSSDSDDSDSSSDDSS 101DATASDSDSDSDSDSDSDSD,ZEZEZE,ZEZEZ,ZEZ,AZAZAZ,AZ,FGFGFGF,RTRTRT, ZAZEZJJNSJSJSJSJ,89044,101DATASDSDSDSDSDSDSDSD,ZEZEZE,ZEZEZ,ZEZ,AZAZAZ,AZ,FGFGFGF,RTRTRT, ZAZEZJJNSJSJSJSJ,890448 A2,WA2,W ' S$"":R$""N 23:"Nom de la ville ? ";AID$;[ S$;:S$m (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) RV$(V$,(I)  ! I11000:' &1 0 JEU: :250D DCC1O NI1NU Xn 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 WB2B2T:T$ /  CHOIX DU NOMBRE DE JOUEURS: I14O N$(I)"":SC(I)0W :n T$T1$:370:T$T2$z 3:370 8:" Nombre de joueurs ? ";N$:N(N$) N1N4Ģ8:1:958:470 12 I1N " Nom du joueur n[";I;:" ? ";N$ 290 410 560& 1000< (4)"-/TM7/MENU"I DESSINO Z 24576` s " PRESENTATION ,(21): 6250 @T$T1$:J1 J22:370 TT$T2$:23:370 ^I12000: h r FORMATAGE DES TITRES |T(40(T$))2  d*************************?n** VILLES DE FRANCE **^x** PAR M. DEVAUX **}*************************:::(21):(4);"BLOAD VILLES.LM"26500:V(100)T1$"* VILLES DE FRANCE *" T2$" ---------------- "VILLESuHUSTON!'  '&VILLES 00)VILLES.LM0`0JSJ101DATASDSDSDSDSDSDSDSD,ZEZEZE,ZEZEZ,ZEZ,AZAZAZ,AZ,FGFGFGF,RTRTRT, ZAZEZJJNSJ101DATASDSDSDSDSDSDSDSD,ZEZEZE,ZEZEZ,ZEZ,AZAZAZ,AZ,FGFGFGF,RTRTRT, ZAZEZJJNSJ101DATASDSDSDSDSDSDSDSD,ZEZEZE,ZEZEZ,ZEZ,TRT, ZAZEZJJNSJSJJ101DATASDSDSDSDSDSDSDSD,ZEZEZE,ZEZEZ,ZEZ,AZAZAZ,AZ,FGFGFGF,RTRTRT, ZAZEZJJNSJS101DATASDSDSDSDSDSDSDSD,ZEZEZE,ZEZEZ,ZEZ,AZAZAZ,AZ,FGFGFGF,RTRTRT, ZAZEZJJNSJS101DATASDSDSDSDSDSDSDSD,ZEZEZE,ZEZEZ,ZEZ,AZAZAZ,AZ,FGFGFGF,RTRTRT, ZAZEZJJNSJSFGF,RTRTRT, ZAZEZJJNSJSJSJSS101DATASDSDSDSDSDSDSDSD,ZEZEZE,ZEZEZ,ZEZ,AZAZAZ,AZ,FGFGFGF,RTRTRT, ZAZEZJJNSJSJSJJ101DATASDSDSDSDSDSDSDSD,ZEZEZE,ZEZEZ,ZEZ,AZAZAZ,AZ,FGFGFGF,RTRTRT, ZAZEZJJNSJSJSS101DATASDSDSDSDSDSDSDSD,ZEZEZE,ZEZEZ,ZEZ,AZAZAZ,AZ,FGFGFGF,RTR9044KQSK000KQSKKKQSKKKQSSKQQKK101DATASDSDSDSDSDSDSDSD,ZEZEZE,ZEZEZ,ZEZ,AZAZAZ,AZ,FGFGFGF,RTRTRT, ZAZEZJJNSJSJSJSJ, 101DATASDSDSDSDSDSDSDSD,ZEZEZE,ZEZEZ,ZEZ,AZAZAZ,AZ,FGFGFGF,RTRTRT, ZAZEZJJNSJSJSJSJJ101DATASDSDSDSDSDSDSDSD,ZEZEZE,ZEZEZ,ZEZ,AZAZAZ,AZ,FGFG(V$)1) \750= f23:3:"La r{ponse {tait : ";AID$;V$F p920[ z23:17:"EXACT"m SC(I)SC(I)P 21:28:"Score : ";SC(I) T11500: 0 WB1B1 A1,WA1,W   C10ı 580  AFFICHAGE DES SCORES::T$T1$:370(T$T2$:370;7:"SCORES :"K"--------"S$12^.I1N8N$(I);:20:": ";SC(I)BLV22::"Une autre partie ? ";R$:(R$,1)"N"ı`R$"N"ĺ(4)"-/TM7/MENU"j(R$,1)"O"1110t170;~AUTOuHUSTON!'  ')AUTO.COUT .00AUTOAUTO.Df00!!!!! !!!! !  {{{zzyxwvuttsrqpooonmlkjjjjihgfedccba``_^]\[ZYXWVUTSSSSTTUUVWXXXWVUTSRQPONMLKJIHGFEDCBAAA@??@@@?>=<;:9876543210/.-,+*)('&%$#"""!tuvwxyz{|}}~ÎĎōČċŋƊljȉȈɇʇˆ˅̄ͅ΄σςρπ~}|{{||{SNTOUPUQVRWSXTYUZV[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[\]^_`abbcdefghijklmnopqrsttZ-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@NANBMCNDOEPEQDRDSDTDUDVEUFTFSFRFQGRHSHTITJSKSLSM3` ȱ WiiL `` ~}|{zyxwvutsrqpoopqrqpon m l!k!j!i h g f e dcba` ___^^^^]\[ZYXWWXXWWXYY Y!Z!["[#[$[%[&['[([)[*\+\,[-6,117,GRENOBLE,181,106N< 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,CAHORS,126,119 G  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,18101,113,NIORT,102,86F POITIERS,112,81,BLOIS,125,63,TOURS,117,67x 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,LON-SUR-MARNE,161,39,NANCY,183,42,COLMAR,199,53q 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, DUNKERQUE,137,3,CALAIS,130,5,ARRAS,143,14,LILLE,146,8 | 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,411 CHAd:D$(4):D$"PR#3"::1'i9201n120?s840:150Ox216,0:LF0U}:y******************************* TRACE DU CADRE *******************************:::I19:" ";: I223:1403,79:";: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$(E5lD1$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 UITE (((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$):L1062** :700?!"1. STATION-SERVICE ";:I1:570j&"2. REVISIONS-REPARATIONS ";:I2:570+"3. VIGNETTE & ASSURANCE ";:I3:5700"4. AUTRES DEPENSES ";:I4:5705"----------------------------------------":575:(V$,12127S$(((S$)10)):(8);" "4S$"0"S$""BS$(SA)S$dP11P8ĴSA265,370,375,380P13S$""ĴSA375,380,385,395465:****************************** * GRANDS POSTES DE DEPENSES *****************************& "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$"P(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" MOIS 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)"."(HAT : ":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)R$TUATION") " ------------------"2 2658 :\ ****************************** * FICHE SIGNALETIQUE * ****************************** : L(DS$):L1DS$"": DS$(DS$,L1): : SA0:S$S$(SA):DA$"DATE D'AC" ";:# 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 SI)(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))(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 1ODIFIANT DEUX 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):: 24:"<0> FIN <1> ENCORE <2> MENU DISQUETTE ";:R$: :R$"1"Ĭ R330:" CADRE DE L'ENIGMATIQUE NESTOR":340:768l 12:8:"46 OCTETS...MAIS RAPIDE":340::768:340~ :815:350: 774,81:801,78:MODIFICATIONS POUR 80 COLONNES D$"PR#3":::12:4:"SUR 80 COLONNES, ON OBTIENT LES MEMES RESULTATS EN Md:(21)::D$(4)8n6,32: ESPACE MODE INVERSEvx290: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:5 12: ߪ @ L$&`de'RL$(31):Remonte d'une ligne-***************************#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 viSE 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***O.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$"CLO *+******************************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 AUT$"2"ĺ(4)"RUN MENU") R$"0"ī230/ c 162,0,160,3,134,58,132,59,169,21,32,99,254,96 ~ "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,208,250,132,37,141,247,7,96C 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: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$):N1N64128,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,0;, :" 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:16384,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: ";Fd::(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) NU" 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 "::130Y: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 MEd:(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,BI,R::I T22:3:"PRESSEZ UNE TOUCHE QUELCONQUE SVP ";:198:R$::y ^198:16368,0:16384,128,127:16368,0:000135* 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:1SAGE 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:958:10:"SAISIE: DEL et <- effacentUE 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). PAS* 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 CHAQ3: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::*************************$(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:" ":"q11: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:LPP1: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):S4L$(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:360************************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$(A)KLB1; "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: T*$:170 R%4LLB280. R%3I1360D L$""LLB170R R%6510a R%19515j 170p : ************************* * DEL DERNIERE DONNEE * ************************* : KL111:(L$(A),K,1)S$Ă KLB98: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:E un CARACTERE ------- 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 - RETURN pour terminer."d:"CONVERTIR: Taper CTRL-G, puis la valeur ---------- HEXA (=<$FFFF)."j:2:23:"EXEC F":1:22:100,745l :(21):::" FORMATAGE IMAGEWRITER (APPLE //E //C) "::"---------- PAR CLAUDE RIVIERE ----------"6:"L'IMPRIMANTE EST-ELLE BRANCHEE (O/N) ?";:R$:R$R$"O"R$"o"50% (R$"N"R$"n"Ģ9:10:"ALORS, BRANCHEZ LA!":12:"ET FRAPPEZ UNE192,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::d :::100768G198:16368,0:16384,128,127:16368,0U(16301,0222:"<1> ENCORE <2> MENU DISQUETTE <3> FIN ";:198:R$:<R$"1"20FR$"2"ĺ(4)"-/TM7/MENU"PR$"3"50Z:: d169,32,133,230,173,84,192,173,82, TRWP*  &&ɳ`00ADRVAR.OPER100ADRVAR.OPER2 00COURRIER.LECSuHUSTON!' 'CADRE.HGR000CADRE.HGR.DEMO00'FORM.IW00(GET.TIME>00(MANETTES00MULT16BLES (LA MEME OPERATION DOIT ETRE PREVUE POUR QUITTER LE DIT PROGRAMME...EN DIRECTION DE "GRIMP.0" D$"CHAINGRAPHE,@1635":RETOUR AU PROGRAMME GRAPHE"domme 1)"D :198:"CHOIX MODE -> ";:R$::R$"0"R$"3"60080] 7,(R$)4((P$)2)o 38636:38156 :A ELIMINER POUR UTILISER LA SUITEd UNE LIGNE COMME LA LIGNE 60140 PEUT VOUS RENVOYER AU PROGRAMME BASIC EN COURS, SANS PERDRE LES VARIA:198:"-> ";TI$:TI$"?"ĺD$"CAT":R$::60060H (TI$)60140 198::"HGR 1 OU 2 ? -> ";:P$:P$"1"P$"2"60060 :D$"BLOAD"TI$",A$"20002000((P$)2) :"MODE (0=Simple blanc sur noir 1=Noir surblanc 2=Double blanc sur noir 3=C;`UTILISE GRAF.0 DE LA DISQUETTE TOOL KIT PRODOS APPLEJj::36864VtD$(4){~IM1:SLOT DE VOTRE IMPRIMANTE D$"BLOAD GRAF.0"6,IM:252,16IM:"NOM DE VOTRE IMAGE (? POUR CATALOGUE) : ---------------------------------------"5 TOUCHE POUR CONTINUER...";:W$:50- -20 23:15:SL$" 1":"CARTE SERIE DANS LE CONNECTEUR N["SL$;:1008:"";R$:R$""R$SL$ <SL(R$):18:PR$"LONGUEUR DU PAPIER UTILISE :":340:10:"11 OU 12 POUCES ? ";LP$:LP$"11"LP$"12"60 FLP$"11$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 MANETTEC!...":7 G$G$:10:20:"TEMPS LIMITE, TROP TARD!"= 336)::P1CYCLES::".";:SS1:SNS200T (16384)127140:TOUCHE PRESSEE?Z :t ******************** * SAISIE IMMEDIATE * ******************** : CAR$:G$:12:20 CAR$"B"CAR$"b"ĺ"EN EFFET.":210 "REPONSE FAUSSEE CHINE (C)":4:11:"VOUS AVEZ 8 SECONDES POUR REPONDRE"~ 16:14::"A";::",";::"B";::" ou ";::"C"::G$:20 : ********************* * "CHRONO SECONDES" * ********************* :, CC1:C30(C30)āZ13:B(16d* GET.TIME n:(21)::D$(4):R$(13):G$(7):NS8:CYCLES70: NBR.SECONDE ET CYCLES SELON LE MICROPROCESSEUR (EXP.65C02) x4:"LE MOT ";::"AUTOMATE";::" VIENT...":4:4:"....D'ARABIE (A)":4:6:"....DE GRECE (B)"> }4:8:"....DMATAGE TERMINE"::340:J6:PR$"FAITES MAINTENANT :":340:10:PR$"PR#N[SLOT,":340:12:PR$"LOAD NOM.PROGRAMME,":340:14:PR$"LIST,":340:TW((40(PR$))2):W:PR$::CENTRAGE TITRES**********:$(67);(64);p"I112:(64);:: REGLAGE NOMBRE DE LIGNES BLANCHES POUR SAUT DE PAGEv,:- ********************. * DEPART FEUILLE S.*/ ********************0:6(65);(64);(30)@:(4)"PR#0":2:PR$"FOR"Q":(9)"132N": :4 ********************O * DEP.HAUT FEUILLE *j ********************p : (29);(65);(64); I1LP:(64);:: REGLAGE LONG.FEUILLE :  ********************  * ARRET BAS FEUIL. *  **********(4)"PR#"SL:CH160,170,180,190,200,210,220,230:250R (27)"n":(9)"72N":m (27)"N":(9)"80N": (27)"E":(9)"96N": (27)"p":(9)"96N": (27)"P":(9)"100N": (27)"e":(9)"107N": (27)"q":(9)"120N": (27) ELITE PROPORTIONNEL (100 COL)........5":"- 1/2 CONDENSE (13,4 CAR/IN, 107 COL)..6" "- CONDENSE (15 CAR/IN, 120 COL)........7":"- ULTRA-CONDENSE (17 CAR/IN, 132 COL)..8" 22:10:"VOTRE CHOIX (1 -> 8) ? ";:CH$:CH$:CH(CH$):CH1CH81407 "LP104:90 PLP128? Z:2:12::"MODE D'IMPRESSION": d5:"- ETENDU (9 CAR/IN, 72 COL)............1":"- PICA (10 CAR/IN, 80 COL).............2" n"- ELITE (12 CAR/IN, 96 COL)............3":"- PICA PROPORTIONNEL (96 COL)..........4"V x"- (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$"-/TM7/MENU": ESC) : ***$"B"ė:D$"CATALOG":3>X$"R"Ľ:D$(4):110<H810SPON-DANTE DE TREMPLIN MICRO.":770:150g198:16368,0:16384,128,127:16368,0:XX1:X2770q X1: :G$::"POUR UTILISATION, VOIR ARTICLE"::"& FICHIER(S) CORRESPONDANT(S)."*1:20:"ASIC ETOUR MENU ";:16368,0:X$:G$4X ߪ @ L$ %% U( iT( i(٩i)%нHHH   :۩  iQ hhh` 010LEN08 X  : iQ% "`&d:(4)"BLOADDUMP80":(4)"PR#3"[nI122: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:7681FICHE7uHUSTON!' 'DUMP80.DEMO00DUMP8000E DEUX DROITES POUR L'EPAISSEUR] 623:22:X" ":33:22:Y" ":ECRITURE DES COORDONNEES @AXX:AYY:170:ON CONSERVE X,Y POUR UN TRACE AX->X AY->Y*****************- * TRACE AUX COORDS *G ********************M :q 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: TRAC800,96:TEST ET AFFICHAGE INFOS+PDZ GRIBOUILLE,PROCODE