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/TM8"<n:D$"PR#3":(17):G$(7)]xNU8:NUMERO DE LA DISQUETTExI110:T$T$"----":N30:A$(N),B$(N),P$(N):610V3:DV1:SP19:N20R1N:A$(R),B$(R),P$(R): 1:" DISQUETTE DE TREMPLIN MICRO NU#CAT  ! 'TOURNOI ! HISTOEXT!z DIMDEL!SDATE0 @ $DATEI ! RRANDaRT&MIROIRe ! TETEgSTRANSnc,VISUMEM.DEMO ! +MIXAGE.DEMO ! TM8C' $MENU_ ! (COMMANDE F ! BOITE VAR.DIMES.DIMG1R!SMASTERHRTDAMU >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(8RMERO "NU" "T$:34,2X 23:T$" UTILISEZ LES FLECHES - RETURN POUR RUN";:V::35,22d R0:S0m V:{ S0250 RR1:A$(R):RSP230 260 RR1:A$(R):RN250 :31:3:"FIN=CTRL-F": 20:31::"COMMANDES:"::21:31:"> C  '(H '(H h(( h(( é%` X i'(` ETOUR MENU ";:16368,0:X$:G$:X$"B"K6:300U X$"R"Ľ:D$(4):110^760UE LI- GNE DU MENU RENVOIE A LA PAGE CORRESPON-DANTE DE TREMPLIN MICRO.":730:150198:16368,0:16384,128,127:16368,0:XX1:X2730X1::G$::"POUR UTILISATION, VOIR ARTICLE"::"& FICHIER(S) CORRESPONDANT(S)."%1:20:"ASICPOSSEDEZ UNE CARTE BLEUE, TELE-PHONEZ AU 49 93 66 66"_::11::"EXPEDITION IMMEDIATE":h730:12:" Cette disquette n'est pas PROTEGEE et il est prudent d'en faire IMMEDIATEMENT une bonne copie."T::" LE NUMERO PLACE AU DEBUT DE CHAQMENT 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."7:" SI VOUS *:::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 FACILE,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,94l783,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,96v34 - CATALOGUE (GUY DESENFANT),CAT,/TM8d:37 - ORGANISATION D'UN TOURNOI (NESTOR),TOURNOI,/TM8D41 - GRAPHIQUES EN MODE "TEXT",HISTO.TEXT,/TM8/HISTON47 - DIMDEL (YVAN KOENIG),DIMDEL.DEMO,/TM8/DIMDELX00 - CHANGER DE DATE,DATE,/TM8}b768TE EN BAS (INITIATION),TETE.EN.BAS,/TM8/TETEe22 - TETE EN BAS VERSION.2,TETE.EN.BAS1,/TM8/TETE23 - TRANSLIST (DOMINIQUE LUGAT),TRANSLIST,/TM8/TRANS30 - VISUMEM (INITIATION),VISUMEM.DEMO,/TM8&32 - MIXAGE GRAPHIQUE,MIXAGE.DEMO,/TM8*0(MICHEL DEVAUX),MASTERMIND,/TM8/MASTER_ 13 - ECRAN DAMIER 40 COLONNES,DAMIER.BAS,/TM8/DAM 15 - ECRAN DAMIER 80 COLONNES,DAMIER.BAS80,/TM8/DAM 17 - UTILISATION DE AND (L.M.),AND.B,/TM8/AND 19 - MIROIR (INITIATION),MIROIR,/TM8.20 - TEENERALES,INFOS,/TM8U " 3 - BOITE AUX IDEES (NOTE A LIRE)",BOITE.NOTE,/TM8/BOITE " 3 - LA BOITE AUX IDEES",BOITE.BAS,/TM8/BOITE " 3 - BOITE //c ET 65C02",BOITE.BASC,/TM8/BOITE " 9 - VARIABLES DIMENSIONNEES",VAR.DIM,*( 10 - MASTERMIND D1VD1:SSP:2100 hVND1SVD1:2009 r280 |35,24:34,21:22::T$;:"SELECTION -> PAGE "((A$(VDS),2))" "B$(VDS) B$(VDS)"INFOS"640 P$(VDS)"*"750 23:D$"PREFIX"P$(VDS) 23:D$"-"B$(VDS) PAGE INFOS GTRL-I <";5 V:768,A$(VSD): VERS MODE INVERSE_ "K(16384):K9ĺ:21:D$"-COMMANDE"w ,K6ĉ::D$"CAT": 6K128290 @16368,0:V:A$(VSD):K141Ģ22:380 JK136K139VV1:VDVD1:200 TK149K138VV1 ^NSPS0VRHd::(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 FD"TTID'NU$""TT((NU$)FX)GTFDN$""AB$"N"TTFE~:"MONTANT TOTAL DE VOTRE COMMANDE: ";::T" F":1240:(R$)1000,440:990::"SLOT DE L'IMPRIMANTE (1 PAR DEFAUT) ";:R$:R$""R$"1":SL(R$):SL61000/:20\(NU$)1NU$"":820'f820Yp(R$)0(R$)LD(NU$)LDNU$NU$R$:820vz:18:33::NU$::9581240:(R$)910,800:90034,10::I1LI:D(I)1TTFDR(I)1TTFRI:AB$"O"TTFACA$"O"TTCA ID$"O R$"N"910"R$"O"770Q :::I1LD:DE$(I)::I;::" "DE$(I):*18:"TAPER LE OU LES NUMEROS DESIRES":958:NU$""4:21:198:"-> "NU$;:R$>774,R$:R$"?"820H(R$)127(R$)8880R(NU$)1NU$(NU$,(NU$)1):8,CA$&CA$:CA$"O"CA$"N"710D1240:(R$)740,710:730:::"DISQUETTE INDEX TREMPLIN MICRO -> ";:ID$:774,ID$ID$:ID$"O"ID$"N"7401240:(R$)770,710:760:::"DESIREZ-VOUS UNE DISQUETTE DEMO -> ";:R$:774,R$660R$"N"610%ILI500H520:1240:(R$)680,610:670:::"DESIREZ-VOUS UN ABONNEMENT ? -> ";:AB$:774,AB$AB$:AB$"O"AB$"N"6801240:(R$)710,680:700:::">>MINIE<< LOGICIEL DE CLAUDE AUBRY -> ";:CA$:77413:868:198:"DISQUETTE NUMERO "I" -> ";:R$>:774,R$]DR$:R$"E"I1II1:520uNR$"O"D(I)1:610XR$"N"560bR(I)0::15:868:198:"TREMPLIN MICRO NUMERO "I" -> ";:R$l774,R$vR$:R$"E"I1ī560R$"O"R(I)1::8:T$>::"REPONDEZ PAR OU "::34,11:12:t22:T$:3:" RAMENE A LA QUESTION PRECEDENTE"|I0II1520:560:18:868:J1ID(J)0Ğ:"D";::J" ";R(J)0Ğ:"R";::J" ";&:"":20:D(I)0:I# 1240:(R$)400,300:390L 11:1:"FIN DE VOTRE ADRESSE":958 " - ";:657:L$"":X512767:(X)141L$L$((X)128):X 774,L$ 1240:(R$)440,400:430 34,3::N$;8)I$:V$""ĺV$:L$ 1240:(R$)460,180:450 ":" - 00000 ............................."R 69:6:"";V$:N$""V$""440a @V$""300m J774,V$~ T(V$)9300 ^I15:AS((V$,I,1)):AS48AS57300 hI:(V$,6,1)" "300 rI7(V$):AS((V$,I,1)):(AS65AS90)AS32300 |I1(I$):AS((I$,I,1)):I2AS32280^ :::"NOM ET PRENOM SVP"::I12000::240| 1240:(R$)290,240:280 ":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$""240 774,N$ I1(N$):AS((N$,I,1)):AS48AS57200 6:1:958:"NOM & PRENOM ";I$:I$""240 774,I$, 105:FR36:FA180:FX25:FE10: TARIFDISQUETTE,NUMERO REVUE,ABONNEMENT,DISQUETTE DEMO,FRAIS ENVOI ID30:PRIX DISQUETTE INDEX TREMPLIN MICRO CA170: PRIX DE >>MINIE<< 1390:1250 T$"":::" PAGE D'INFORMATIONS EN TAPANT ":2:I1:"ALLUMEZ-LA ET POSITIONNEZ LE PAPIER":R$:r(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)6.::E$"Vous prie de lui adresser la commande suivante:"n8:I1LI:D(I)1ĺE$" - DISQUETTE N["I;:36,64:FDuBIL:I1LI:R(I)1ĺE$" - TREMPLIN MICRO N["I;:36,65:FRVI`:NU$""āI1(NU$):E$" - DEMO "DE$(((NU$,I,1)));:36,65:FX:3,254:TRANSFERT PAGE 1 A 2x774,32:775,190:776,222:777,32:778,123:779,221:780,32:781,253:782,229:783,160:784,0:785,177:786,94:787,201'788,63:789,208:790,9:791,173:792,85:793,192:794,32:795,12:796,253:797,173:798,84:799,192::"ABONNEMENT (1 AN)"::17:20:"180 F (5 NUMEROS)"dP6::"DEMO:";::" 25 F par disquette"Z60,0:61,4:62,255:63,7:66,0:67,8:768:TRANSFERT PAGE 1 A PAGE 2 d34,0:32,0:33,40:35,24::n768,216:769,160:770,0:771,76:772,44:77 --------------"O(" Pas de frais d'envoi pour les abon- n{s @ la revue."2:"MARCHE A SUIVRE: Simplement r{pondre---------------- aux questions, puisallumer votre imprimante!"<:"FACE 1: DOS 3.3 FACE 2: ProDOS"8F16:20BOITEuHUSTON!' ')BOITE.BASe ii%BOITE'/i|i*BOITE.BASCAY iiBOITE.NOTE ! :800,96:TEST ET AFFICHAGE INFOS-EGRIBOUILLE,PROCODE !"#$%20:T$T$"____"::1403 1403,40:V::V;::c V1:135:" SAISIE D'UNE... IDEE (GENIALE)" V2:135:" RECHERCHE D'UNE IDEE NON MOINS GENIALE" V3:135:" TERMINE POUR AUJOURD'HUI -> ";:198:R$: R(R$) T$:34,5:22:T$:35122:I:1:" ";4I1I22āJ239:J:" ";:E40:" "::c32,2:33,36:34,2:35,22o 2: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):p:E$"MODE DE REGLEMENT: CHEQUE --- CARTE BLEUE":E$"CARTE BLEUE ..../.../.../.../ - VALIDITE: ../..":E$"Montant @ d{biter: Signature:"D(3)1ĺ:E$"Vous recevrez uneI0jCA$"O"ĺ:E$" - >>MINIE<<";:36,64:CActID$"O"ĺ:E$" - DISQUETTE INDEX";:36,64:ID~AB$"O"ĺ:E$" - ABONNEMENT A 5 NUMEROS DE T.MICRO";:36,64:FAN$""AB$"N"ĺE$" - FRAIS D'ENVOI FORFAITAIRES";:36,65:FE;:E$" MONTANTE$"Vous prie de lui adresser la commande suivante:"n8:I1LI:D(I)1ĺE$" - DISQUETTE N["I;:36,64:FDuBIL:I1LI:R(I)1ĺE$" - TREMPLIN MICRO N["I;:36,65:FRVI`:NU$""āI1(NU$):E$" - DEMO "DE$(((NU$,I,1)));:36,65:FX:,21 R$(12)580 5 R210,520,700:150; :_ ****************************** * SAISIE DU TEXTE * ****************************** : :NN1::N: L$" " L(L$)1:HL1:L78Č198:L$(L$,L1):220 &()*+,-./0123456789:;<=>庠嬠229,253,168,76,38,3,165,6,164,7,32,58,219,169,13,32,237,253,76,8,3J:d::(4)"-/TM8/MENU"***********:.I768847:R:I,R::169,044,133,6,169,21,133,7,198,8,165,8,201,255,208,9,198,9,165,9,201,255,208,1,96,24,165,6,105,80,133,6,144,2,230,7,160,255,162,255,232,228,252D240,20,200,177,6,240,214,221,80,3,240,241,134,253,152,56,RERE1:585'lR3NMN:NRE:6300q580evL$"":IAD79AD1:R(I):R0L$(R128)L$p{:220~CO1:580CO1CO0:425150:******************************* ROUTINE DE RECHERCHE * *******************645$N7:868::RE::9:868\SAD(BA80)(RE80):6,AD(AD256)256:7,(AD256)jX8,0:9,0]833:SORTIE DE LA PHRASEb18:"SUITE = -- CORRECTION = -- AUTRE OPTION = ";R$:RE(R$)I:RE1REN *.******************************4:XAR848:STOCKAGE DU MOT CHERCHE{ 6:"VOTRE MOT-CLE EST -> ";M$M$""150L(M$):252,L:8,(N1)(N256)256:9,((N1)256):M0IARARL1:MM1:I,128((M$,M,1)):!:768:**************4* LECTURE DU FICHIER *X******************************^:h490(4)"BLOAD BOITE"L(48840)(48841)256NL80216,0:125:****************************** * RECHERCHE *****************:0L$" "NN1:210YAD(BA80)80N:ALADL:AFAD79:M0IADAL:MM1:I,128((L$,M,1)):IAL1AF:I,0:NMNNM:NM0:210LN80(4)"BSAVE BOITE,A"BA",L"L:****************CCORD <2> CORRECTION <3> ANNULATION <4> MENU GENERAL ";:198:R$:^ YR(R$):R1R4340u ^R395,230,215,355 cNMNNM:NM0: hNN1 m425:150 r: w****************************** |* ECRITURE DU FICHIER **************H1:L(L$)1 "230: 'R((L$,H1,1))HH1:230N ,R32R126230\ 1L77220 6L$(L$,H)R$(L$,L1H):HH1:L(L$)1:230 ;R127L0L$(L$,L):220 @R32R126230 EL77R$"" JL$L$R$:220 O::L$E T17:"<1> D'AH1LHL11 :9:1:L$;:958:1403,H:R$= R(R$)K R19275c R8H1HH1:230u R4H1:230 R6220 R5S$L$:215 R19L$S$:S$"":220 R13335 H1L315 R127295 H1L$(L$,H1)(L$,L1H):Ḩ嬠̧Χ嬠嬠嬠嬠̧嬠̧嬠컠̧̧̧嬠嬠廠 XiiL`H hɅɆɤAi)PiQL@@ ߩq<ȥq=@Ʌ Ljȱ(LᥛBC8m>mn?[ȥ@(RȱĠ8@ȱqBqCm>8@mn?n ,LȱҠΠŠӠŠӠҠӠӠԠɠԠà鬠ç嬠嬠嬠̧㬠嬠嬠嬠iie@ȱi<=nme@mȄn ө@&d26000:POUR 255 DONNEES ENVIRON\iL$"":R$"":R0:H0:VARIABLES LES PLUS UTILISEESxn::D$(4):D$"PR#3":sBA5500:ADRESSE DU FICHIER "BOITE"x680:465}:T$": :":1:T$:" LA BOITE AUX IDEES ":T$: T$"":I1 I15A$(I)$(I/2A$(1)5lR3NMN:NRE:630$q580YvL$"":IAD79AD1:R(I):R0L$(R128)L$d{:220rCO1:580CO1CO0:425150:******************************* ROUTINE DE RECHERCHE *******************************868::RE::9:868PSAD(BA80)(RE80):6,AD(AD256)256:7,(AD256)^X8,0:9,0|]833:SORTIE DE LA PHRASEb18:"SUITE = -- CORRECTION = -- AUTRE OPTION = ";R$:RE(R$)I:RE1REN645N7:******************************(:LAR848:STOCKAGE DU MOT CHERCHEo 6:"VOTRE MOT-CLE EST -> ";M$~M$""150L(M$):252,L:8,(N1)(N256)256:9,((N1)256):M0IARARL1:MM1:I,128((M$,M,1)):!:768:1980&19**(* LECTURE DU FICHIER *L******************************R:\490s(4)"BLOAD BOITE"L(48840)(48841)256NL80216,0:125:******************************* RECHERCHE *"***** :$L$" "NN1:210MAD(BA80)80N:ALADL:AFAD79:M0vIADAL:MM1:I,128((L$,M,1)):IAL1AF:I,0:NMNNM:NM0:210LN80(4)"BSAVE BOITE,A"BA",L"L:****************************RRECTION <3> ANNULATION <4> MENU GENERAL ";:198:R$:R YR(R$):R1R4340i ^R395,230,215,355} cNMNNM:NM0: hNN1 m425:150 r: w****************************** |* ECRITURE DU FICHIER **************************H1:L(L$)1 "230. 'R21HH1:225B ,R32R126230P 1L77220 6L$(L$,H)R$(L$,L1H):HH1:L(L$)1:230 ;R127L0L$(L$,L):220 @R32R126230 EL77R$"" JL$L$R$:220 O::L$9 T17:"<1> D'ACCORD <2> COH1LHL11 :9:1:L$;:958:1403,H:R$= R(R$)K R19275c R8H1HH1:230u R4H1:230 R6220 R5S$L$:215 R19L$S$:S$"":220 R13335 H1L315 R127295 H1L$(L$,H1)(L$,L1H):H,21 R$(12)580 5 R210,520,700:150; :_ ****************************** * SAISIE DU TEXTE * ****************************** : :NN1::N: L$" " L(L$)1:HL1:L78Č198:L$(L$,L1):220 @BCDEF20:T$T$"____"::1403 1403,40:V::V;::c V1:135:" SAISIE D'UNE... IDEE (GENIALE)" V2:135:" RECHERCHE D'UNE IDEE NON MOINS GENIALE" V3:135:" TERMINE POUR AUJOURD'HUI -> ";:198:R$: R(R$) T$:34,5:22:T$:35MASTERuHUSTON!R' '*MASTERMINDJv RTHMINDFORMOR3H(FONTE.LMQR@3H(9L^chptz----6666????$$$$  I-6?$ 666---?--???----???--?"de formes BIEN plac{es et MAL plac{es ."i198:23:"APPUYEZ SUR UNE TOUCHE POUR COMMENCER";:A$ouection de";"5 formes graphiques parmi les 24 propo-"I"s{es ."z:" Votre but ? D{couvrir cette s{lection""en un minimum de coups .":" A chaque coup, l'ordinateur vous indi-";"quera combien votre proposition comporte";-bF14F15Ĕ10X5,Y3<gF21F23F24Ĕ8X2,Y2\lF22F23F24Ĕ11X6,Y2|qF8āJXX8:J,YJ,Y8:Jv{:******* PRESENTATION *******::13::" MASTER.MIND ": :::" L'ordinateur choisit une s{lMES ***********5:1:F16Ĕ12X4,Y:630E?FO((F1)8)1QDFOX,YIF2F10F18F4F12F20F24F16Ĕ4X4,Y1NF3F11F19F4F12F20F24Ĕ5X1,Y4SF5F7Ĕ6X1,Y1XF6F7Ĕ9X7,Y1]F13F15Ĕ7X3,Y3 AD B5ī515! I154 X196(I1)12> Y167I FN(I)R 560X n 19:2:"Quitter" 22:2:"Rejouer" 16384 1:1:A$ A$"Q"A$"R"ī530 A$"R"Ĭ130 !::(4)"-/TM8/MENU" & +:0********* FORMM1:AA(J)1:NN(I)1 ' 3851 L:CN M0B0ĺ" Rien":430d "B.";B;" M.";Ml AD CO18B5ī320 22:11 B5ī470 "Vous avez GAGNE en ";CO;" coup"; CO1ĺ"s" CO1ĺ 475 "Vous avez perdu :"I)0: OI15! T1:1:A$N YA(I)(A$)64:A(I)1A(I)24ĺ(7):340c ^XC7(I1)124s cY(L2)82~ hFA(I) m560 rA(I)N(I)BB1:AA(I)1:NN(I)1 w |J0 JJ1:J6ī415 I15 AA(J)1NN(I)1ī405 A(J)N(I)1 I13 J16$ K15E (I1)7077(K1)12,J242P K,J,IV :} " ************ JEU ************** ': ,I15 1N(I)((1)241) 6 ;L1:C11:CO0 @LL3:L19L4:CC10 EB0:M0:COCO1 JI15:AA(I)0:NN(IKLMN 0,191279,191 - 19:"MIND"9 L1:C1E I124_ LL2:L17L3:CC3n C$(I64)| L:C:C$ XC7:Y(L1)81:FI 560 AD I12 J(I1)24141 3,J59,J59,J153,J153,J  65,865,19 1000$d18100:::(21):@i:(4)"BLOAD FONTE.LM"\n:(4)"BLOAD MINDFORM"ts232,0:233,3:1:1}x640}:********** ECRAN ***********:AD16384:16302,07I0720,I118,I162,I279,I % ( "@(%i`ɠ`%e%e $80 LY@  @ iLh@ ](` 6 $ -3? -- I? ?u$ 1%MM5?  8,<I6I6VX0"" I13:290:768:290::Y 12:2::" DAMIER EN LANGAGE MACHINE, VERSION 1 "d :290 :(4)"BLOAD DAMIER.1" I13:290:768:290:: 22:"<1> ENCORE <2> MENU DISQUETTE <3> FIN ";:R$: R$"1"Ĭ R$"2"ĺ(4)"-/TM8/MENUd:(21)::2En12:5::" DAMIER EN BASIC (BEAGLE BROS) ":Px290:X0392:Y1472:ZZ0:XZ,Y:Y,X:37,255290:::100:130:290:12:2::" DAMIER EN LANGAGE MACHINE, VERSION 0 ":290 :(4)"BLOAD DAMIER./R3UDAMIER.80.1`/R3UDAMuHUSTON!R' '*DAMIER.BASWMR3UDAMIER.0Y<R3UDAMIER.1Z'R3U,DAMIER.BAS80\1R3UDAMIER.80..^4R3UDAMIER.80._6-*- $$----2v-% >-6vm< $2v-%  3:-i  -->?7-->?7-->??Iw6.8Iw6? 166.8L : 566>N 66 <()6666M!$?2v- $;7-?$$2-V$$? )%166.- $;' -5:? <I 666?? $)%26)- ?-671.( ;2)- $?-166.I$$;' -66?I 66?166n  166.--166n $$$166n $ H6.66- $$;7166.`?%66mh$?)-8(8$$< -3-? )-366166- $$16`$$166. $$$1n  < -6?'-(8III--??  -R)%6>?`-66M!6? -.--)-5>N? I1 3--6R- ?',--I-޻.-? )-56 -? M8? " R$"3"240 :L "198:16368,0:16384,128,127:16368,0: X (U(ȍT(%%#(ݠ۩%` X %U((HiWTh(%%#ԩ%`1960,1104,1232,1360,1488,1616,1744,1872,2000,0<3> FIN-PROGRAMME EN MEMOIRE ";:R$:5 R$"1"ĬS R$"2"ĺ(4)"-/TM8/MENU"c "R$"3"ė:l ,260 6198:16368,0:16384,128,127:16368,0:: @37,18:958:0 J1024,1152,1280,1408,1536,1664,1792,1920,1064,1192,1320,1448,1576,1704,1832,[]320:190,210:310:768:3100 (17):310@ (18):310P (17):310{ 768:310:320:230,250:310:768:310 (18):768:310 (21):768:310 (4)"PR#3"::768:310' 320:::"<1> A REFAIRE <2> MENU GENERAL DE LA DISQUETTE d(4)"PR#3"::-nP(P1):49236P,0HxA:(A)Ĺ49236,0:150SBA39kIAB:I,32::110310:320:::" ET MAINTENANT PASSONS A LA ROUTINE EN LANGAGE MACHINE, EVIDEMMENT PLUS RAPIDE":310(4)"BLOAD DAMIER.80.."768:310 X ((%%#(%` X  L$H8$$hh%` X (Uȑ(ȍT'%%#(ݠ۩%`TETEuHUSTON!'  '+TETE.EN.BASi!Sg,TETE.EN.BAS1lF!6gdfETTE <3> FIN ";:198:R$:0 :R$"1"ī120L R$"2"ĺ(4)"RUN MENU"] R$"3"200c I76876833:R:I,R:: 162,23,138,32,193,251,160,0,177,40,72,200,192,40,208,248,160,0,104,145,40,200,192,40,208,248,202,16,229,169,255,133,37,96d:(21):n250#x1903I124:I;iI11ĺ" ";::" CONTROLE-C POUR INTERROMPRE ";:wI24ĺ""}1:768198:16368,0:16384,128,127:16368,0:170:58,0:59,3:418:R$: ::22:"<1> ENCORE <2> MENU DISQU X) L $ b !! X%:; cɠ)? (!% b " J  : X`IMPAIR OU NON AVEC AND( ::(21)::(4)"BLOAD AND.DEMO"1768p22:"<1> ENCORE <2> MENU DISQUETTE <3> FIN ";:198:R$:(R$"1"Č7682R$"2"ĺ(4)"RUN /TM8/MENU"<R$"3"30F ANDuHUSTON!R' 'AND.BbTaAND.DEMOc3ad:(21)::175i1450nE35:I124=sI;E)I;qxI9Ė8::" CONTROLE-C POUR STOPPER ";::EE1}I24ĺ""1:""170:768:135:22:198:"<1> ENCORE <2> MENU DISQUETTE <3> FIN ";:R$::R$"1"110 R$"2Od * TRANSLIST PRODOS-VERSION 2.1n * 19/01/86 (C)DOMINIQUE LUGAT x1490: TRAITEMENT ERREUR4 :12288::(21)::D$(4):R$(13):G$(7):T$": :"aSSnSOURCEAccnTRANSuHUSTON!'  ')TRANSLISTp|!Tn,LABELS.CREER.!DnLIT.LABELS!Dn+TRANSLIST.S!cn&LABELS5nEXEMPLE,193,251,138,105,193,160,39,145,40,136,16,251,232,224,23,208,237,96251,160,39,177,40,72,136,16,250,165,6,32,193,251,160,39,177,40,72,136,16,250,138,32,193,251,160,0,104,145,40 200,192,40,208,248,165,6,32,193,251,160,0,104,145,40,200,192,40,208,248,198,6,232,224,12,208,195,169,255,133,37,96E 32,88,252,162,0,138,32kmTTE ";:135:" FIN > ";:198:R$? 1:"":R$"1"X0:120] R$"2"ĺ(4)"-/TM8/MENU"n R$"3"145v : I768864:R:I,R:::LA ROUTINE "TETE.EN.BAS" NE COMPREND QUE LES 72 PREMIERS OCTETS (768 A 839)n 169,23,133,6,162,0,138,32,193,d:(21):i170#n140,s840ax24::"PRESSEZ UNE TOUCHE (CTRL-C POUR FIN)";:l}1:""198:16368,0:16384,128,127:16368,0:768:X(X1):130XX1::X;::XČ768# 24:X0:135:" ENCORE ";:135:" MENU DE DISQUE7,169,32,133,7,169,0,133,6,162,0,138,32,193,251,160,0,177,6,145,40,200,192,40,208,247,165,6,24,105,40,133,6,144,2,230,7,232,224,24,208,225,169,255,133,37,96hj"ĺ(4)"-/TM8/MENU"& R$"3"145, \ 198:16368,0:16384,128,127:16368,0:w I768852:R:I,R:: 169,0,133,6,169,32,133,7,162,23,138,32,193,251,160,0,177,40,145,6,200,192,40,208,247,165,6,24,105,40,133,6,144,2,230,7,202,16 22:13:1::T$:13:2:" TRANSLIST ":13:3:T$:t T$"":I139:T$T$"_"::PF$"TM8/TRANS":1560: CHARGE LM 30:1:"(C) D.LUGAT":30:3:"VERSION 2.1" 1:10:"NOM OBJET":11:13:"$300 <--> $3CF":3:22:"?/VOLUME (/SOUS-VOL) POUR CATALOGUoqrstuvwxyz{|}~: :.I1L: SUPPRIME LES DOUBLESHTA$(I)TA$(I1)1000`OO1:TA$(O)TA$(I)j:LOp:********************* LOCALISATION BRA.*********************:$::C:"********** CALCULS BRANCHEMENTS":.T1$(300)p: z********************:* REMPLACEMENTS *T********************Z:tJ1I1: NBR.LABELSK1LI:S3$(K)L1$(J)S3$(K)L2$(J):LL1:TA$(L)S3$(K)" EQU "L1$(J)" ;"CM$(J):".";:Z(16336): CALCUL DU LABEL CORRESPONDANT":870DHL1$(300),L2$(300),TA$(200),CM$(200): TABLEAUX LABELSRD$"OPEN"CM$:D$"READ"CM$: LECTURE FICHIER PRE-ENREGISTRE\I1300:L1$(I):L1$(I)"$"L1$(I):L2$(I):CM$(I):fD$"CLOSE"CM$::C:"<"I1"> LABELS EN STOCK"::"PATIENCE...";INC$(INC):19:(12(INC$)):INC;".";::ECRITURE A UNE TABULATION VARIABLE EN FONCTION DE LA LONGUEUR DU CHIFFRE.} :******************** * TRAITEMENT LABELS**********************4: >::C:"********** RECHERCHE LABELS SYSTEMEMN$"RTS"İ750:760:20::770:" *";LCPTCT830: SORTIE LECTUREsC1$"":C2$"":C3$"":750:LI:830750:MN$"DFB $"C1$:: 'HEX' EQUIVALANT @ 'DFB'(DIRECTIVE ASSEMBLEUR)AD$"":MN$"":OP$"":INCINC1:LILI1:ES$(LI)"*":w)128):: LIT OPERANDEa(OP$,1)" "OP$(OP$,1,(OP$)1):660: LES ESPACES SONT DE TROPMN$"???"İ740:660: ASCIIS, OU 65C02 NON DESASSEMBLE INCINC1:77017:MN$;:23:OP$;: SORTIE VIDEOS1$(LI)AD$:S2$(LI)MN$:S3$(LI)OP$+28)::I1415:C3$C3$((1872I)128):: LIT CODES[XC2$" "CX1:630: NBR.CODESsbC3$" "CX2:630|lCX3vCPTCPTCX: CUMUL CODES PAR INSTRUCTIONI2022:MN$MN$((1872I)128):: LIT MNEMONIQUEI2634:OP$OP$((1872IYSE LIGNE 22 **********************0::&830S0LI1LO:ES$(LI)" ":B: DESASSEMBLE UNE INSTRUCTION SUR 1,2 OU 3 OCTETSDI03:AD$AD$((1872I)128):: LIT ADR.7NI89:C1$C1$((1872I)128)::I1112:C2$C2$((1872I)1$,5)".OBJ0"NO$(NO$,(NO$)5)SC:1:12:"********** CREATION SOURCE BASE"11:14:"* "NO$:11:"*":30:14::"CTL-C FIN ";:30:"CTL-S PAUSE"::17:16:"ORG $"OG$:11:"*";1:21:T$;:1430:********************* ANALS1$(300),S2$(300),S3$(300),ES$(300)^ I(N$)11:CAR$(N$,I,1):CAR$"/"NO$NO$CAR$ CAR$"/"āI(NO$)11:NN$NN$(NO$,I,1)::NO$NN$:450 :NO$N$: CONSERVE NOM SANS DIRS (NO$,2)".0"(NO$,2)".C"NO$(NO$,(NO$)2)"(NO(CAR$(65)CAR$(90))260B @HI:V:CAR$;:PHR$PHR$CAR$:S JPHR$""250i TP1200::350: ^ZZ14:Z(16336)::: ZZZ! h: r******************** |* LECTURE ECRAN * ******************** :% ::34,1:35,20:LI1:.SAISIE *) ********************/ :E PHR$"":I0LO1f HI:V:16368,0:CAR$:350{ I0ĖH:V:LO) CAR$(27)250 "CAR$R$330 ,CAR$(127)I0ĺ(8);:" ";:(8);:II1:PHR$(PHR$,1,I):260 6(CAR$(33)CAR$(63))E"G 11:10:"/VOLUME/FICHIER":C:H11:V10:LO30::250::N$PHR$ (N$,1)"?"ė:D$"PR#3":D$"CATALOG"(N$,(N$)1):CT$"":1500: OG$"300":CM$"LABELS":LO300:410: CONSTANTES : ******************** * SP: TABLEAU LABELSe8I1LI: RECHERCHE BRANCHEMENTS INCONDITIONNELS ET APPELS DE SOUS-PROGRAMMESBS2$(I)"JSR"S2$(I)"JMP"S2$(I)"BRA"İ1110L:1150 VZ(16336):AD$S3$(I):J1LI:"$"S1$(J)AD$T1$(J)""LALA1:T1$(J)"SPG"(LA):S3$(I)T1$(J)::`"$"S1$(J)AD$T1$(J)""S3$(I)T1$(J):Bj:Ht:z~I1LI:RECHERCHE BRANCHEMENTS CONDITIONNELSS2$(I)"BEQ"S2$(I)"BNE"S2$(I)"BMI"S2$(I)"BPL"S2$(I)"BCS"S2$(I)"BCC"S2$(I)"BVS"S2$(I)"BVC"İ1180:1260aZ(B* CREER OU COMPLETER LABELS n:(21)::D$(4):CM$"LABELS":D$"OPEN"CM$:D$"READ"CM$:130xNB1300:L1$:L2$:L3$:D$"CLOSE"CM$:NBNB1: NB=NBR.LABELS POUR AJOUTS) :5:1::": CREER OU COMPLETER '00:::10:"*":10:"* FIN"s$G$:30:"enu asic ";:16368,0:X$:X$"M"X$"m"ĺD$"-/TM8/MENU"{$:):1770#J#I^#I1L:10:M1$(I);:20:"EQU";:29:M2$(I);:IM0Ĺ1403,40:ECRAN|#IM1Ĺ36,40: IMPRIMANTE#M3$(I):I:10:"*":20:"ORG $"OG$:10:"*"#:&$P13000::LT1LI:10:T1$(LT);:20:S2$(LT);:30:S3$(LT):P151L:J1(TA$(I)): RECONSTITUTION DES VARIABLES POUR TABULER"PA$(TA$(I),J,1):PA$" "M1$(I)(TA$(I),J):JJ4:M2$(I)(TA$(I),J):1730"J"I"I1L:J1(M2$(I)) #PA$(M2$(I),J,1):PA$";"M3$(I)(M2$(I),J1):M2$(I)(M2$(I),J1ON CRAN OU MPRIMANTE ";:16368,0:X$:X$"I"X$"i"IM1!IM0ĉ::D$"PR#3":::"Ctrl-S pour stopper le listing... un peu de patience, merci":!IM1ĺD$"PR#1":(9)"80N"!:10:"* FICHIER SOURCE "NO$:10:"*":M1$(100),M2$(100)A"I,6,141,116,47,173,48,192,136,240,9,202,208,250,174,115,47,76,86,47,238,115,47,208,239,206,116,47,208,234,96s T: ^---- PARTIE FACULTATIVE h: r******************** |* EDITION ECRAN * ******************** :A!G$::"DEMONSTRATI133,9,96,165,37,72,169,25,133,36,169,22,133,37,32,34,252,32,156,252,165,8,133,60,164,9,132,61,162,1,32,120,254,169,1,32,99,254,165,58,133,8,165,59,133,9,104,56,233,1,133,37,32,34,252,96m J 162,20,44,48,192,136,208,253,202,208,247,96,169,0,141,115,47,169***********:LA12032: TRANSMISSION AUTOMATIQUE DE L'IMPLANTATIONs"B12043:DESASSEMBLAGE D'UNE LIGNE,C12096: BIP PARAMETRABLE1D12108:SIRENE FIN TRAITEMENT6ADR1203212143:CODE:ADR,CODE::@173,185,190,133,8,173,186,190,RREURS SYSTEME *,********************2:nD$"CLOSE":::"ERREUR PRODOS N["(222);:I11200:::C:30:CT$:16368,0:16384,128,127:16368,0:: SP.SAISIE TOUCHE:********************* CHARGE L.M. * *********SUPPRIMER LA PARTIE FACULTATIVE DU PROGRAMME4d:Nn********************hx* CHARG.TYPE PROG. *********************:D$"BLOAD"N$",A$"OG$:A:CT(48840)(48841)256:: CT=LONG.FICHIER PRODOS:********************* E)(S3$(LT)""RE$RE$(32)S3$(LT)z2ES$(LI)"*"LTLI1360: SI RTS EN FIN DE PROGRAMME PAS D'ETOILE EN SUIVANT<RE$:RE$""FPD$"CLOSE":D.Z1690: OU CT$ = "": GOSUB 1500: CALL C: TEXT : HOME : END...ET DEL 1620,1820 POUR *** ENREGISTREMENT SOURCE"::1490C:D$"OPEN SOURCE":D$"CLOSE":D$"DELETE SOURCE":D$"OPEN SOURCE":D$"WRITE SOURCE":"* "NO$:"*":T1$(1)""T1$(1)"PROG"I1L:TA$(I): "*":" ORG $"OG$:"*"LT1LIRE$T1$(LT)ES$(LT)S2$(LT)16336):AD$S3$(I):J1LI:"$"S1$(J)AD$T1$(J)""LALA1:T1$(J)"BCL"(LA):S3$(I)T1$(J):"$"S1$(J)AD$T1$(J)""S3$(I)T1$(J):::********************* ENR.FICH.SOURCE *********************:%:"*******LABELS' :":1:8:"ADRESSE";::" $":p 1:11:"LABEL":1:14:"COMMENTAIRE"::1:16:";":30:6:"->"NB 11:8:"";AD$:AD$""160 AD$"*"ė:D$"CAT": 10:11:"";LA$:LA$""180 3:16:"";CO$:CO$""190- D$"APPEND"CM$:AD$: COMPTT BNE B2 ;Branch.si non =0 DEC COMPTT+1 ;D{cr{mente COMPTT+1 BNE B2 ;Branch.si non =0 RTS COMPTT DS 2,$00 ;Compteur temporisateur risateur LDA #10 ;Nbr.Temps STA COMPTT+1 ;Stocke en COMPTT+1 B1 LDA SPKR ;E/S HP B2 DEY ;D{cr.Y BEQ B3 ;Si Y=0 va en B3 DEX ;D{cr.X BNE B2 ;Si X<>0 va en B2 LDX COMPTT ;Charge contenu COMPTT JMP B1 ;Branch.inconditionnel B3 INC COMPTT ;Incr{mentele" le retour chariot SBC #1 ;en $FE63 et {vite des tabu- STA CV ;lations compliqu{es pour le JSR VTAB ;BASIC. RTS BIP LDX #20 BIT BIT $C030 ;Impultion. DECY DEY BNE DECY DEX BNE BIT RTS SIRENE LDA #$00 ;Charge 0 dans acc. STA COMPTT ;Compt.tempores, STY $3D ;passage d{licat du programme. LDX #1 JSR $FE78 ;Transfert 3C->3A 3D->3B LDA #1 ;Une instruction JSR $FE63 ;D{sassembl{e. LDA $3A ;Il est utile STA PB ;de conserver les LDA $3B ;adresses, pointeurs STA PH ;pour $FE63 PLA SEC ;"Annucation passag}re. LDA #25 ;Change les tabulations STA CH ;pour {diter le ligne de LDA #22 ,d{sassemblage. STA CV JSR VTAB JSR CLREOL ;On efface la fin de ligne LDA PB ;avant d'{crire une nouvelle STA $3C ;instruction. LDY PH ;Transfert des param}tU $FC22 ;Place curseur en CV CLREOL EQU $FC9C ORG $2F00 ;Sous-$3000 pour LOMEM. * POINTER LDA LENGTH ;On d{sassemblera automati- STA PB ;quement apr{s bload @ la LDA LENGTH+1 ;bonne adresse. STA PH RTS LISTER LDA CV ;Conserve CV pour PHA ;une modifi* ROUTINE DATAs BASIC-TRANSLIST2.1 (C) D.LUGAT * PB EQU $8 ;Partie basse D{sass. PH EQU $9 ; '''' haute '''' CH EQU $24 ;Position horizontale CV EQU $25 ; '''''' verticale LENGTH EQU $BEC8 ;Adresse PRODOS d{but Charge. SPKR EQU $C030 ;Active HP. VTAB EQ< * LITLAB } ::D$(4):D$"PR#3":D$"OPEN LABELS":D$"READ LABELS":30I1300:A$:B$:C$:1:I;:12:B$;:25:"EQU";:30:"$"A$;:40:"; "C$:J1200:J:ID$"CLOSE":dLA$:CO$:D$"CLOSE":NBNB1:32:6:NB:16006 INDEXB Adressage index{ 07 INDEXH Partie haute 08 VAR1 Variable(s) page 0 09 VAR2 * 19 VAR3 * 1A VAR4 * 1B VAR5 * 1C VAR6 * 1D VAR7 * 1E VAR8 * 1F VAR9 * 20 WNDLFT Marge gauche 21 WNDWDTH Largeur fen^etre 22 WNDTOP Haut de fen^etre 23 WNDBTM Bas de fen^:T$": :":T$:" V I S U M E M ":T$: :"IL SUFFIT DE TAPER CALL 768 POUR ACCEDERA LA ROUTINE VISUMEM."::"ENSUITE, APPUYER SUR UNE TOUCHE POUR VI-SUALISER CHAQUE LIGNE."::"ESCAPE POUR CHANGER D'ADRESSE, ET RETURNPOUR TERMINER."72,169,1,32,99,254,104,201,96,208,10,169,48,141,217,7,169,54,141,216,7,169,34,133,36,104,170,104,32,36,237,172,0,192,16,251,192,155,140,16,192,240,154,208 201,96,193,196,210,197,211,211,197,160,8,5,24,1,160,196,197,160,196,197,208,193,210,212,186 ; d:(21):)nI768895:R:I,R:x32,88,252,160,23,185,104,3,153,212,7,136,208,247,169,23,133,37,32,34,252,169,29,133,36,32,228,251,32,111,253,224,0,240,69,32,199,255,32,167,255,166,62,165,63,134,58,133,59,165,59 72,165,58,72,160,0,177,58,F65 MON Entr{e moniteur/bip! FF69 MONZ Entr{e moniteur FFA7 GETNUM D{code nombre/tampon FFAD NXTCHR Analyse du prochain carac. FFC7 ZMODE Mode analyse @ 0 FFF3 GETHEX R{cup}re chiff.hexad{cimal n FC62 CR Envoie retour chariot FCA8 WAIT Boucle d'attente (Acc) FD1B KEYIN Entr{e carac.avec {cho FD0C RDKEY Fait clignoter curseur FDDA PRBYTE Aff.acc.h{xa sur 2 octets FDED COUT Sortie accumulateur FE5E LIST Desassemble 20 instructions FF3A BELL Biiip FF45A PLOT Trac{ de point F53A HLINE Trac{ de droite FA62 RESET Ctrl-reset FBC1 BASCALC Calcul adresse {cran FBE4 BELL2 Bip FC10 BS Recule curseur FC1A VP Monte curseur FC22 VTAB D{place curseur en CV FC42 CLREOP Eff.jusque bas {cran FC58 HOME Efface l'{cragnes texte+graphique C054 TXTPAG1 Pour la page 1 hgr C055 TXTPAG2 Pour la page 2 hgr2 DB3A STROUT Affiche une chaine par Y A DB5C OUTDO Affiche l'accumulateur F3D8 HGR2 Effacement des pages F411 HPOSN Calcul HBASL (coord.point) F457 HPLOT Trace avec HPOSN Partie haute BEF5 GETBUFF Pages libres basic C000 KBD Saisie touche sans {cho C010 KBDSTRB Nettoie le bit 7 $C000 C030 SPKR Activation HP C050 TXTCLR Pour mode graphique C051 TXTSET Pour mode texte C052 MIXCLR Pour tout l'{cran graphique C053 MIXSET 4 linsmission param}tres 3F A2H Var.transmission param}tres B1 CHRGET Pour aqu{rir caract}re B7 CHRGOT Prochain caract}re 03D0 VECDOS Met le PRODOS en ligne 03EA INTDOS Reprise des E/Sorties 03F5 AMPER & Ampersand ($4C) 03F6 AMPERB & Partie basse 03F7 AMPERH &etre 24 CH Position curseur horizontale 25 CV Position curseur verticale 30 HMASK Masque bit/point 36 CSW Adresse routine sortie caracs 37 CSWH Partie haute sortie carac 38 KSW Adresse routine entr{e carac. 39 KSWH Partie haute entr{e carac. 3E A2L Var.tra :"ACCES DIRECT PAR L'AMPERSAND (&-RETURN) A CONDITION DE TAPER CES TROIS POKES:"::" - POKE 1013,76:POKE 1014,0:POKE1015,3" :"LE PROGRAMME VOUS DEMANDERA L'ADRESSE DEDEPART (HEXA), DESASSEMBLERA LA PREMIEREINSTRUCTION ET AFFICHERA SON ADRESSE DE-CIMALE."F :"ENFONCEZ UNE TOUCHE S.V.P. ";:198:R$::768 :22:"<1> ENCORE <2> MENU DISQUETTE <3> FIN ";:198:R$: :R$"1"150 R$"2"ĺ(4)"RUN MENU" R$"3"200ERTICAUX *0 ******************************6 :\ I120:I:1:"Z":I:80:"_":Ib : ****************************** * BCL.TRACE TRAITS HORIZONT. * ****************************** : 1:2:TR$:3:2:RT$:5:2:RT$:7:2:R**( * TRAITS HORIZONTAUX *L ******************************R : TR$"":I110:TR$TR$"LLLLLLLL"::TR$(TR$,78) RT$"":I110:RT$RT$"SSSSSSSS"::RT$(RT$,78) : ****************************** * BCL.TRACE TRAITS V-d:(21)::(4)"PR#3":(1):925:8703i:Wn******************************{s* ACTIVER CARACTERES SOURIS *x******************************}:I$(15):N$(14):M$(27):XM$(24)I$:M$: ****************************0,7,230,9,202,208,238,96368,0:X$::X$"M"X$"m"ĺD$"RUN MENU"A "X$"E"X$"e"110X ,X$"B"X$"b"ė:y 616368,0:4:19:X$:(7): @: JADR768802:CODE:ADR,CODE:: T169,32,133,7,169,64,133,9,169,0,133,6,133,8,162,32,160,0,177,6,17,8,145,8,200,208,247,23: ********************7 * DESSIN PAGE 2 *Q ********************W : 310::A10:B270:C155:A,AB,A:B,AB,C:B,CA,C:A,CA,A:310 : 768:VERS ROUTINE LM :* 310:::3:23:"NCORE ASIC ENU DISQUETTE ";:16 chaque arret"::18:4:"( )":310+ :E ********************_ * DESSIN PAGE 1 *y ******************** : :MA23:DI6:IN50:AA90:BB90:ST.5:I1MAST:A(((I)10)IIDI)IN40:B(((I)30)IIDI)IN:AA,BBA,B:AAA:BBB: dD$(4):G$(7):330:110n::3::(21):::10:8:": MIXAGE GRAPHIQUE :"::1:12:" Nous allons voir deux images,":% x" l'une en page 1, l'autre en page 2,"::" et enfin, leur mixage en page 2.":20:"Appuyez sur apr}sT$D 6:18:"Z":6:26:"Z":6:40:"Z":6:57:"Z":6:65:"Z"J :n ****************************** * BARRE VERTICALE CENTRALE * ****************************** : J820:J:40:"Z"::21:2:TR$ : ******************************0 * DESACTIVE CARACTERE SOURIS *T ******************************Z ":g 'N$:XM$m ,: 1****************************** 6* CURSEUR INVISIBLE * ;****************************** @: E2043,160 JA$"C A T A L O Wd:(21)::A%(190,1),B%(191,1):D$(4):T$"":I120:T$T$"----":V$V$" ":]n:wx********************* NOMBRE D'EQUIPES *********************:D$"PR#3":::"ORGANISATION D'UN TOURNOI (5 A 20 EQUIPES)":T$0 E0:4:22:864::;******************************_* TRAITEMENT ERREURS LM *******************************:216,0:768,104:769,168:770,104:771,166:772,223:773,154:774,72:775,152:776,72:777,96:22)7Ģ22:864:198:22:1:"Fichier non trouv{ ":A13000::22:864:610u(222)8Ģ22:864:198:23:1:"Erreur d' Entr{e/Sortie":A13000::22:864:610z(222)16Ģ22:864:198:22:1:"Erreur de syntaxe":A13000::22:864:610"9J40ĢJ19:3:FICHIER$(J)C>J39ĢJ32:42:FICHIER$(J)NCJIı]HJJ1:825cM:R******************************W* TRAITEMENT DES ERREURS *\******************************a:f768k(222)255ĬPp(222)6(223:1:"Pour la 2[ page appuyez sur une touche.":2043,160:R$:R$""775Y 23:864b6854:19:PFX$:4:75:BLOC$: ******************************%* AFFICHAGE DEUXIEME PAGE ********************************/:4J27* AFFICHAGE PREMIERE PAGE *H******************************N:VJ1x4:19:VOLUME$:4:75:BLOC$J14ĢJ7:3:FICHIER$(J)J13J27ĢJ6:42:FICHIER$(J)J26FLAGİ775:515JIFLAG0ıJJ1:750K198::,******************************P* ON EFFACE LA PAGE *t******************************z:J820J:2:37):J:41:37)4:19:37):4:75:" "22:******************************$******************]:>b22:2:"Nouveau PREFIX: ";PFX$Dg:hl******************************q* POUR LES ETOURDIS ! *v******************************{:(PFX$,1)"/"PFX$"/"PFX$(4)"PREFIX"PFX$685:36022:2:"<1> Nouveau PREFIX <2> Quitter":198:R$:(R$)49(R$)50565r:(FLAG1R$"1")Ģ22:2:40):610x?D(FLAG1R$"2")ė:(4)"-/TM8/MENU"I:N******************************S* ON PREND UN NOUVEAU PREFIX *X***************************************#:!FLAG1Ģ22:2:"<1> Page n[ 1 <2> Nouveau PREFIX <3> Quitter":198:R$:(R$)49(R$)51545&(FLAG1R$"1")Ģ22:2:70):685:740+(FLAG1R$"3")ė:0(FLAG1R$"2")Ģ22:2:70):610J5FLAG1Ģ$(BLOC$,15,3)"(4)"CLOSE"(:L******************************p* VERS SP. AFFICHAGE *******************************:74023: ******************************* MENU ****,TDIR"(4)"READ"PFX$)VOLUME$5TITRE$ABLANC$M23:I1v23:FICHIER$(I):FICHIER$(I)""465FICHIER$(I)(FICHIER$(I),20)" "(FICHIER$(I),31,9)23:FICHIER$(I)""II1:45023:I27FLAG1BLOC$BLOC*************3w* ON PREND LE PREFIX COURANT *W|******************************]:u(4)"PREFIX":PFX${:******************************* OUVERTURE FICHIER CATALOG *******************************:(4)"OPEN"PFX$"G U E":A(A$)+ O2:1403,(80A)2:A$a T4:3:"Nom du volume: ":4:60:"Blocs libres: " YB$"FICHIER":C$"TYPE":D$"DATE" ^6:3:B$:6:20:C$:6:32:D$:6:42:B$:6:59:C$:6:71:D$ c23 hFICHIER$(51) m:r*****************958:198:"NOMBRE D'EQUIPES ";N$:N$""600J N(N$):N5N20170T BN1n EEB:BB1:B0200 1:1403,53::E" RENCONTRES A ORGANISER:": : ******************** * REPARTITION * ******************** : 34,9X(X10):205 EXJ I112:M(I,0)V(I,0)CO:M(I,1)V(I,1)CO:P :y *********************************** ** TRACE DU GRAPHE ** *********************************** : I2H2:VL$(V$,5((E)))# L$(I)VL$MAUX : 455: :G ***********************************p ** + GRANDE DONNEE/COEFFICIENT ** *********************************** : X0:I112 V(I,0)XXV(I,0) V(I,1)XXV(I,1) COX20:EX:M9 X999d:(4)"PR#3"::8iM(12,1),L$(24),V(12,1):150>n:gs***********************************x** CARAC MOUSE OR NOT MOUSE **}***********************************:(27);:::CARACTERES SOURIS (24);:::CARACTERES NORHISTOEXTuHUSTON!' '*HISTO.TEXT .z )M2::PPP:P6350X$"E"X$"e"170600":<********************V* SP. DECALAGE *p********************v:M1A%(1,0)M2A%(1,1)M1A%(1,1)M2A%(1,0)M1A%(1,0):M2A%(1,1):I1Y1:A%(I,0)A%(I1,0):A%(I,1)A%(I1,1)::A%(Y,0)M1:A%(Y,1M480 &:V15ė:570( 0V:958V :I1Y:(64A%(I,0))"-"(64A%(I,1))" ";l DRR1:RNMR0:t N: X44:23:"NCORE ASIC ENU DISQUETTE ";:16368,0:X$:X$""470 b:X$"M"X$"m"ĺD$"RUN MENU" lX$"B"X$"b"ĉ::vE PATIENCE S'IL VOUS PLAIT!". X0:Fİ7006 F1I XX1:XM460| M1B%(X,0)M2B%(X,1)B%(X,0)0B%(X,1)0480 M1B%(X,1)M2B%(X,0)480 YY1:F0 A%(Y,0)B%(X,0):A%(Y,1)B%(X,1):B%(X,0)0:B%(X,1)0 M1A%(Y,0):M2A%(Y,1) YI1N" (64I)"-"(64J)" ";@ MM1:A%(M,0)I:A%(M,1)JJ ::X V(37)2 20:1::"MELANGE ALEATOIRE EN COURS"::198 IM11:A((1)I1):B%(I,0)A%(A,0):B%(I,1)A%(A,1):A%(A,0)A%(I,0):A%(A,1)A%(I,1): 198:20:"UN PEU D3::G 4:"NOMBRE MAXIMUM DE RENCONTRES PAR JOUR: ";N$:N$""280^ "NM(N$):NME280d ,:~ 6******************** @* TRAITEMENT * J******************** T: ^:M0:YM:RM:M1M:M2M hI1N1 rI1ĺ(V$,(I1)4); |J(E)" -_ ":I:1403,0:VL$E:L$""; L$(I1)" _ "] 135:7:I:"L_":8:I1:"_"r 140:E(X10M) E100E(((X10M),4)) MM1: TITRE$"RESULTATS COMPARES DES ANNEES "(A1)" ET "(A2) L$(1)(V$,(85(TI$))2)TI$:1:1::L$(1)% "23:1:L$(23);:1:. '135j ,L$(22)(V$,7):8:I172:22:"L";:L$(22)L$(22)"L":} 1I112:K2H 6ZH.5M(I,0):KZL$(K)L$(K)" ":320 ;1403,3I6:K:"WW";:L$(K)L$(K)"WW" @ZH.5M(I,1):KZL$(K)L$(K)" ":330:"::"]GOTO 10000":2-'51,0:150ITE"F$:A1:A2:I112:V(I,0):V(I,1)::(4)"CLOSE"F$:675D:768,104:769,168:770,104:771,166:772,223:773,154:774,72:775,152:776,72:777,96:768:515: 198:16368,0:16384,128,127:16368,0::"RIEN N'EST PERDU EN TAPANT*****************************H** MEMORISATION DONNEES **q***********************************w:22:958:"TITRE DE VOTRE FICHIER ";F$770R$"O"R$"o"705F$""(16286)127515>20::(4)"OPEN"F$:(4)"WR**********************************M** LECTURE D'UN FICHIER **v***********************************|:F$""(16286)127ı20::(4)"OPEN"F$:(4)"READ"F$:A1:A2:I112:V(I,0):V(I,1)::(4)"CLOSE"F$::*************************************J** PAS DE DONNEES: TERMINE! **s***********************************y:V(1,0)V(1,1)ė::198:12:" DESOLE MAIS IL N'Y A PAS DE DONNEES POUR TRACER UN QUELCONQUE GRAPHE ":::775:$*b(16286)127Č998:5804g(16287)127670ClR$""630YqV(I,1)(R$):575v:I12Ģ22:958:"PRECISER SI CORRECTION OU AFFICHAGE DU GRAPHE (CTRL-E) = ENREGISTREMENT ) ";:198:R$:19:"":R$(5)740{I12610:!****$I"."(V$,25);:12((V(I,0))):V(I,0);:25((V(I,1))):V(I,1);:pD1403,30:A1;:135:"U";:140:" ";R$I(16286)127I1II1:565N(16287)127670SR$""Č998:605XV(I,0)(R$):575]1403,45:A2;:135:"U";:140:" ";R$;AN$(16286)1275104(16287)127670\AN$""AN$AB$:998:1403,43:AN$u!(AN$,5,1)" "525&A1((AN$,4)):A2((AN$,4)):A11900A21900525+6:6:A1;:19:A20I1125VI$" ":I9VI$"":575:580F?7I:VI" pour affichage du graphe"t22::"DESIREZ-VOUS LIRE UN FICHIER (O/N) ? ";:198:R$:"":R$"O"R$"o"İ7406:958AB$"1985 1986":A1A2AB$(A1)(32)(A2) 22::"ANNEES CONCERNEES, SEPAREES PAR UN ESPACE: "AB$;:1403,43:198:""IFFRES **9***********************************?:{:"SAISIE DES DONNEES":135:"LLLLLLLLLLLLLLLLLL":1401403,16:"Taper un simple RETURN quand le chiffre est bon"1403,16:135:"@";:140:" en cas d'erreur -- ";:135:"A";:140:****************:9V$"":I120:V$V$" ":L$(23)" JANV FEVR MARS AVRI MAI JUIN JUIL AOUT SEPT OCTO NOVE DECE"H21:HAUTEUR MAXIMUM COLONNE:************************************* SAISIE DES CH$(I),J,1):L$"U"L$"_"L$"W"L$"L"L$"N"ĺ(27);(38);L$;(27);(36);:410ZL$;`h:x(4)"PR#0"(4)"PR#3":::180:************************************* INITIALISATION *********************TOUCHE POUR IMPRIMER CETTE PAGE (CTRL-C = A REFAIRE) ";::198:R$:1:"":R$(3)150kwR$(27)780z|:(21):(4)"PR#1"::(9)"80N":(27)">";(27)"T15";(27)"E";I123:I1I23ĺL$(I):415(L$(I),6);QJ7(L$(I)):L$(L- E1403,5I6:K:"NN";:L$(K)L$(K)"NN"H JI12L$(K)L$(K)" "P O:_ T140:22:e Y: ^*********************************** c** IMPRESSION ** h*********************************** m:Yr24:8::"PRESSER UNE DIMDELuHUSTON!' 'DIMDEL?E +DIMDEL.DEMOS+d:(4)"PREFIX":PR$:(4)"PREFIX"PR$Bi:(12);(21)::qnAN$"JANFEVMARAVRMAIJUNJULAOUSEPOCTNOVDEC"sI110:TR$TR$"____":xI15:I:1:" ";:I1I5āJ239:" ";:J}40:" ":::3:7:"QUELLE EST LA DATE DU JOUR ?" 6:34,iiPA$IT(ӕJ D1@D2,D3@RѕJϕMRPA͕H@ST@JANFEVMARAVRMAIJUNJULAOUSEPOCTNOVDEC860312________________________________________/TM8/ J1900::::I012:32:A(I):::250` (7);:2:21:" NCORE ASIC ENU DISQUETTE ";:X$z X$"E"X$"e"Ľ:100 X$"B"X$"b"ĉ:: X$"M"X$"m"ĺ:(4)"-/TM8/MENU" 190 (7);:30:24:" ";:16368,0:X$:30:24:8);: DIM A -"::250 A:NMAXNMAX1:A:NMAXNMAX1:4:I0NMAX:24:A(I)::250:2:21:"Le tableau A () est dimensionn{ @ 11.":240:4:12:10) 4:10::"& DEL A";::" ":250:A:A(20):1:2:"Initialiser / redimensionner un tableau" 4 +"::250:1:2:16):20:2:"et ajouter une valeur":250 A:NMAXNMAX1:A(NMAX)99:4:I0NMAX:21:A(I)::250:8:21:"99 appartient au tableau A()":250:240 1:2:" R{duire la dimension est aussi simple ":250::13:10:"-":4:12:"& ;d:(21)::(4)"BRUN DIMDEL,A"(175)256(176)::n6:2:"Prenons un tableau en exemple":4:10:"DIM A (12)":NMAX12:A(NMAX)xI0NMAX:A(I)I::4:I0NMAX:18:A(I)::240:1:2:"Il faut employer...";:15)= 250:4:10::"& DIM A76,38,3,165,6,164,7,32,58,219,169,13,32,237,253,76,8,3>:X::(4)"-/TM8/MENU":"I768847:R:I,R::169,044,133,6,169,21,133,7,198,8,165,8,201,255,208,9,198,9,165,9,201,255,208,1,96,24,165,6,105,80,133,6,144,2,230,7,160,255,162,255,232,228,2528240,20,200,177,6,240,214,221,80,3,240,241,134,253,152,56,229,253,168,7 (4)"PREFIX"PR$4 :"PREFIX";::PR$:: D1(49040)((49040)32)32:D2((49041)2):D3((49041)D22)8((49040)32) D30M$(AN$,D332,3) "DATE DU SYSTEME : ";: (("0"(D1)),2)"-"M$;:M$""ĺ"..."; "-"(("0"R (RENAME BOITE,BOITE1, par exemple)." (:"ENFONCEZ UNE TOUCHE POUR RETOURNER AU MENU DE DISQUETTE (STOP = CONTROLE-C) -> ";:R$ 2R$(3)ė: <:(4)"-/TM8/MENU"d :(4)"PR#3"::12:"LE FICHIER BOITE CONTIENT ENVIRON 150 PROVERBES ET VOUS POUVEZ DONC TESTER LE programme de RECHERCHE (avec minuscules).") :"Si vous d{sirez cr{er une BOITE sans effacer celle des proverbes, n'oubliez pas de la RENOMME"PREFIX"R$:70@|216,0:(222)6Ģ14:"PREFIX INCONNU":335H:<3> MENU";:R1$:16368,0<TR1$"3"Ģ22:(4)"RUN MENU"MYR1$"2"385^R1$"1"Č198:12:1:"NOUVEAU PREFIX : ";R$:R$""335cI1(R$):R((R$,I,1)):(R45R58)(R64R90)ĂI:365h350m380r(R$,1)"/"R$"/"R$w(4)24290! ,49041,(A$)2(M7)A 1M8Ĺ49040,M32(J$):315[ 649040,(M8)32(J$)q ;49043,H:49042,0 @D1(J$):D2(A$):I1(AN$)3:STST1:(AN$,I,3)M$Ă ED3ST J(4)"STORE DATE0"O:22:198:"<1> AUTRE PREFIX <2> APPLESOFT 35 A$""3 10:26:198:A$;:R$:16368,0U R$(13)D20A$(D2):290y A$""((R$)8(R$)127)260 R$"0"R$"9"265 R$:A$A$R$:(A$)2265 "12:1:198:"HEURE ARRONDIE : ";R$:H(R$):R$""H12:12:18:H 'H1R"3"195! R$"0"R$"9"195: J$""J$J$R$:195Z (J$R$)1(J$R$)31195k R$:J$J$R$} D30MD31 MM1:M13M1 10:22:198:(AN$,M32,3);:22:R$:16368,0 R(R$):R13260 R127R8MM2:M0M11 2(D2)),2)H 20:TR$:22:"<1> CHANGER DE DATE <2> CONTINUER -> ";m 198:R$:(R$)49(R$)50175} R$"1"190 335 J$"" 10:19:198:J$;:R$:16368,0:(R$)127J$""J$"":195 D10R$(13)J$(D1):230 J$""R$