8L2C)pJJJJ IH(ȱH:=IH[H`@HcH  $ +   I/H`JLNGȄBȄF aK  haaFF  mJm# KKJ UJ )J ۈ) ;J3ȱJFȱJGJKaȄM  aaNNJFLGJL L. :(12);(21):(4)"BLOAD EXAROUT.LM":d:4:" LISTAGE COMMODE DES ROUTINES LM "::34,23:"ADRESSE -> ";AD$:AD$""60(998:20:"DEC=";2768,AD$ <23::24:"<1> SUITE <2> AUTRE <3> FIN DE TRAVAIL ";:R$:16368,0:R$"1"R$̪ !̪ 'PAGE1.2̪!̪ADRECR ! EXAROUT ! ANAGRAMME ! INPUT ! LOGO̪ !̪ CADRE̪ ! FONTE  ,POUR.7.RONDSNDS̪ !̪ &POMMES̪ !̪ *FONTE.LIRE̪ !̪ ,CHIFFRES.HGR ! FENV ! GOTOW !̪ &PRODOS3< ,BASIC.SYSTEM(! (COMMANDE< Pª ! ; GRAPHGƪ  TM4I ' /ECRAN.FICHE.DEM$+ ! $MENU( ! STARTUP:; ! $DATELe ! ,ECHANGE.DEMO/!PILEU >dLԡm#i㰼m#iЕOLԡȱfg hi !dLԡ憦  Ljmkm l y`2 Lԡ8(Je稽)ʈ@LLnSOS BOOT 1.1 SOS.KERNEL SOS KRNLI/O ERRORFILE 'SOS.KERNEL' NOT FOUND%INVALID KERNEL FILE: xةw,@  ȱlmi8#)!)? &PRODOS `DaElH$?EGvѶK+`L HHLy XP LM ŠϠĠӠS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8R"3"60! F:R$"1"ė:823:603 PR$"2"ė:30; Z: d22:" TAPER UN POUR MENU DE DISQUETTE ";:R$:R$"M"Ģ21:(4)"PREFIX,D1":(4)"RUN MENU" n { ȱ^i >?:; $ LcR$ :R$"1"20& R$"2"2207 R$"3"170H ::320::~ ::" ET AVEC UNE ROUTINE EN LANGAGE MACHINE ": 2:T$ :8:198:958 :"MOT-BASE";::" -> ";:768:(6)0170 :10:198:958 :"ANAGRAMME";::" -> " 198) Z"ANAGRAMME -> ";A$:A$""40: d(A$)L80T nI1L:A((A$,I,1))y xJ81928191L:A(J)ĹJ,0:140 J:150 I:160 :"CE N'EST PAS UNE ANAGRAMME":170 :"C'EST UNE ANAGRAMME" 22:1:"<1> BASIC <2> LM <3> FIN ";: ::(12);(21):300J::6:" VERIFICATION D'UNE ANAGRAMME ":rT$"":I110:T$T$"----"::2:T$(6:958:1982"MOT/LETTRES -> ";M$:M$""180<L(M$):I1L:A((M$,I,1)):(A65A90)A3240FI8191,A: P8:958:  HJ) h)i eH $ HhLA23:"ENFONCEZ N'IMPORTE QUELLE TOUCHE S.V.P.";:R$::: :170 Z1014,0:1015,3* d90::110F n,0,0::,10,0::,0,23O x170 :22:198:"1> MENU-DISQUETTE 2> A REFAIRE 3> FIN ";:R$:"":R$"1"R$"3"130 R$"1"Ģ22:(4)"PREFIX/TM4":(4)"RUN MENU" R$"2"ė:40 ::: 198:: ::(12);(21):0(4)"BLOAD ADRECR"j:" CONNAITRE UNE ADRESSE DE VOTRE ECRAN ? "::34,3(170:20:170:502768,0,0<170:70F768,10,0 P170:"OU ENCORE, AVEC L'AMPERSAND (&): -------------------------------"::90;:787 (7)1160! "150> ,:I768828:A:I,A:: 632,44,213,162,255,232,189,0,2,240,5,157,0,32,208,245,134,6,96,32,44,213,160,255,200,162,255,232,185,0,2,221,0,32,208,7,169,0,157,0,32,240,9,228,6,208,236,169,0,133,7,96,196,6,208,224,169,1,133,7,96o @22:" TAPER UN POUR MENU DE DISQUETTE ";:R$:R$"M"Ģ21:(4)"PREFIX,D1":(4)"RUN MENU"u J X HhH '$hH %(h(" $!# X`0', . /- ('L(127:16368,0:C 169,0,133,58,169,3,133,59,169,18,76,99,254 0 769,170:768 260> I806818:J:I,J:::806 23:"":24:"<1> ENCORE <2> MENU DISQUETTE <3> FIN ";:R$:R$"1"R$"3"245 :R$"1"120 R$"2"Ģ22::(4)"PREFIX/TM4":(4)"RUN MENU" :: 198:16368,0:16384,128,,d:(12);(21):(4)"BLOAD CADRE.LINE"gn::" ECRAN HLIN BASIC, PUIS LANGAGE MACHINE "::260{x:130,220:2601700,390:0,3946:0,460:0,4639:260:768260769,160:768260769,255:768 26 '(('` ,բ ` ,ՠȢ  ``   '(('` ߅ ,Յ  = {ڥL> ENCORE <2> MENU DISQUETTE <3> FIN ";:R$:16368,0:R$"1"R$"3"210\ :R$"1"160 R$"2"ĺ:(4)"PREFIX,D1":(4)"RUN MENU" :: 198:16368,0:16384,128,127:16368,0:ser 255 caract}- res, bien entendu."| :" Cette routine accepte les espaces commepremiers caract}res de la variable." 34,(37)1: 170,200:250: 768,A$:::A$: :"ET VOICI L'INPUT CLASSIQUE:": A$::A$J 23:"":24:"<1d:(12);(21):2n:(4)"BLOAD INPUT.LM"lx:" INPUT PAR LA ROUTINE $D52C "::34,2' " Vous pouvez tout saisir, sauf les guil-lemets. ATTENTION! CTRL-X annule ce qui pr{c}deet il ne faut pas d{pas68: ASTERISQUE"J n:"]BLOAD CADRE.ROUTINE, POUR UN ESSAI":998:998D CADRE.BLOQUE" P768Y Z"VOUS EVOLUEZ MAINTENANT":"A L'INTERIEUR DE VOTRE CADRE" d:"DANS UN PROGRAMME EN BASIC":"UTILISEZ PLUTOT CADRE.ROUTINE"::"POKE 6,32 : CALL 768: CADRE INVERSE":"POKE 6,160 : CALL 768: EFFACEMENT":"POKE 6,170 : CALL 7Y ::(12);(21)::::" CADRE NUMERO 1 --------------"p(4)"BLOAD CADRE"y768(3:4:198:"UNE TOUCHE SVP ";:R$:16368,023:"CADRE BLOQUE (NUMERO 2)":3:"-----------------------"<"" F(4)"BLOAf :::"VOICI LA VERSION EN BASIC (LONGUETTE)":"-------------------------------------":5:34,4y30,70:R$:::A$"":10964(I512767:(I)0A$A$((I)):2A$""70<JJ1:B$(J)A$:30F:I1J:B$(I)::R$:: P:::" :(12);(21):::V3:DV1CI110:T$T$"----"::SP19K50U(310v2N25:A$(N),B$(N),P$(N):550<N22FR1N:A$(R),B$(R),P$(R):P" DISQUETTE DE TREMPLIN MICRO NUMERO 4 "T$:34,2 Z23:T$" UTILISEZ LES FLECHES - RETURN1104,1232,1360,1488,1616,1744,1872,2000 ĺ:(4)"RUN MENU" T 1:1:198:16368,0:16384,128,127:16368,0::: 768,72:769,166:770,6:771,165:772,7:773,32:774,65:775,249:776,104:777,96:* 1024,1152,1280,1408,1536,1664,1792,1920,1064,1192,1320,1448,1576,1704,1832,1960,AT17,XS13:20T:XS13;:AT22,XS77:25T:XS77;:ATT27,XS141:30TT:XS141j :210 T2TT1:ST26::120 22:"":"<1> DEMO BIS <2> MENU DISQUETTE <4> FIN":210:R(16384):R49R51170 :R49Į:T0:S0:30 R50#%&T39T39::32,17:33,22:1:18::606 dT0:210 n"VALEUR DES CARACTERES A POKER:":2:"------------------------------": x:I13:A::X0 I416:I:1:XX1:A:A,XS:3:XS;:A5,XS64:8:XS64;:AT10,XS128:13T:XS128;_  ::(12);(21):!220VI122:36,((1)39):37,((1)23)::" "::b(R$::220:"VOICI LES ADRESSES":2:20:"24 LIGNES-ECRAN:"<I023:A:AAT:I1:1:I;4)A" - ";:6,A(A256)256:7,(A256):768FI23ĺP) Z32,61,231,32,123,218,165,135,164,136,133,184,132,185,76,183,0 ETTE <2> TERMINE ":200T 21::(16384)49ĺ:(4)"PREFIX,D1":(4)"RUN MENU"^ :: 198:16368,0:16384,128,127:16368,0:@ 32,190,222,32,227,223,133,133,132,134,165,184,164,185,133,135,132,136,32,44,213,133,13,133,14,200,32,237,227, "" & VOILA UNE VERSION EN LANGAGE MACHINE "::5:34,4O Z110,140:R$::l dI768813:R:I,R::I0x nII1: x768,A$(I) A$(I)""110 :J1I:A$(J): 198:16368,0:16384,128,127:16368,0: 200::22:"<1> MENU DE DISQU POUR RUN";:V::35,22% dR0:S0. nV:< xS0150W RR1:A$(R):RSP130` 160z RR1:A$(R):RN150 :31:V:"FIN=CTRL-C": 5:31:"COMMANDES:":6:31:"> CTRL-I <" V:768,A$(VSD) K(16384):K9ĺ:21:(4)"RUNCO')*+,-1.0150' :"ENVIRON 20 SECONDES":330/ X0y ::"PROGRAMME EN BASIC ------------------":: 220,240:330:198 T$A$(1):A$(1)A$(3):A$(3)T$ T$A$(3):A$(3)A$(2):A$(2)T$ XX1:X1000220 "ENVIRON 36 SECONd::(12);(21):1n340:1014,0:1015,3cxA$(1)"BERNADETTE":A$(2)"NADEGE":A$(3)"GUY""PROGRAMME EN LANGAGE MACHINE ----------------------------":::140,170:330198,A$(1),A$(2),A$(3),A$(2) XX1:X1000LEUE, TELE-PHONEZ AU 49 93 66 66"Kv::11::"EXPEDITION IMMEDIATE":T670: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 RDEMANDANT A L'ADRESSE SUIVANTE: * TREMPLIN MICRO LA PETITE MOTTE * SENILLE 86100 CHATELLERAULT"b::" UTILISEZ LE BULLETIN DE COMMANDE DE VO-TRE DISQUETTE."#l:" SI VOUS POSSEDEZ UNE CARTE BNJOUR ET MERCI! "::N" CETTE DISQUETTE NE VOUS RENDRA VRAIMENTSERVICE QUE SI VOUS POUVEZ LIRE LES COM-MENTAIRES DE SES PROGRAMMES ET ROUTINES DANS LE NUMERO ";::4;::" DE ";::"TREMPLIN MICRO":X:" VOUS OBTIENDREZ FACILEMENT CE NUMERO ENLE ,222:771,32:772,123:773,221:774,32:775,253:776,229:777,133:778,96:779,160:780,0:781,177:782,940783,41:784,63:785,32:786,237:787,253:788,200:789,196:790,96:791,144:792,244:793,32:794,251:795,218:796,96:D:::11:" BORSAND,/TM4/GOTO/C48 - UTILISATION DE LA PAGE 2,PAGE1.2,/TM4/50 - LA PHRASE CACHEE (LOGOGRILLE),LOGOGRILLE,/TM4/LOGO/55 - AUTRES CADRES,CADRE.DEMO,/TM4/CADRE/56 - CADRE.HLINE,CADRE.LINE.DEMO,/TM4/CADRE/:l&768,32:769,190:770/PILE/D41 - FICHE NUMERO 4 ,ECRAN.FICHE.DEM,/TM4/42 - INPUT PRATIQUE (FICHE 4),INPUT.FICHE,/TM4/INPUT/42 - INPUT DEMO,INPUT.DEMO,/TM4/INPUT/43 - OUVREZ UNE FENETRE,FENETRE,/TM4/FEN/46 - GOTO PAR L'AMPERSAND,GOTOAMPE.DEMO (FONTE SPECIALE),FONTE.DEMO,/TM4/FONTE/v 33 - EST-CE OU NON UNE ANAGRAMME ?,ANAGRAMME.DEMO,/TM4/ANAGRAMME/ 35 - ECHANGE (SWAP),ECHANGE.DEMO,/TM4/ 38 - EMPILEZ ET DEPILEZ,DEPILER,/TM4/PILE/40 - DEPILER (AUTRE VERSION),DEPILER2,/TM4S HGR,CHIFFRES.HGR,/TM4/N h13 - PLUS LOIN AVEC GRAPH.CAR,FONTE.LIRE,/TM4/{ r15 - POUR SEPT RONDS,POUR.7.RONDS,/TM4/ |17 - ADRESSES DE VOTRE ECRAN,ADRECR.DEMO,/TM4/ADRECR/ 18 - DESASSEMBLAGE PRATIQUE,EXAROUT.DEMO,/TM4/EXAROUT// 23 - FONTEA$(VDS),2))" "B$(VDS)6 B$(VDS)"INFOS"580U "23:(4)"PREFIX"P$(VDS)q ,23:(4)"RUN"B$(VDS){ 6:: @ PAGE INFOS GENERALES,INFOS,/TM4/ J" 3 - GRAPHIQUE",GRAPH,/TM4/GRAPH/ T11 - AUX POMMES!,POMMES,/TM4/  ^12 - CHIFFREMMANDE" K128190D 16368,0:V:A$(VSD):K141Ģ22:270k K136K139VV1:VDVD1:100 K149K138VV1 NSPS0VRD1VD1:SSP:110 VND1SVD1:100 180 35,24:34,21:22::T$;:"SELECTION -> PAGE "((DES":3308 :"SYNTAXE : &,C$,A$(8)... par exemple"A 330| :22:"<1> MENU DISQUETTE <2> A REFAIRE <3> FIN":330 "R(16384)48:R1Ģ21::(4)"RUN MENU" ,::R2X0:130 6R3280 @ J198:16368,0:16384,128,127:16368,0 ( < *? ( < (? ( < (? ( <*? * **? *? *? ( < *? ( <Lg& 'L&8ei` ,$`ee` `<( '<( '` ' ' '`hh8`8`=(>(F(`}N(`e`H)hJJ'0JJ)` (<  )1& ` (Xp< @1& )m1&1&.1&4& M1&i  ``rȱȱȱȱ0]cȱeem<(ȱ=(ȱ>(=(ȱF(=(ȱN( '<( z' #'Lg&`L' 'L& ' 8f ZHH)hh8JhJJJJJ '&H(&8H) 12 (j21 h!hH h %)Ђ12H)M0 h10200I20h2 9&`L#`)&!2"L  :8! ȱɈ 5   8 0 8 `0 / x X$$ $&$0`ŠӠ­ԠŠҬîʎ1DžϠ)&ʈ0  0ŠϠĠ͢Š͠͠ϠŠŠϠĠخ͠ YYZLYLYLY뿩 8@  *$ MNЩUM  LPN!-RB}PBiB ,m# m# J Qڨ)̰n]e мȱ ; ̀𩠙< iO P F V >Z SY ɘL` X _ [ V7 c L '0%O '8O JmO * 2456789PQRSXYjklmnopqrn!o!p! k! iL X%>!L;!ΠΠҠ`}!!!"!!!l4"# G$YO!-q(qR9B}PBiBCe! H$q!r! c&L*!M8tl # ) y!s!(&s!t! c&E )?  @ e!l!0 $l!0u!v! c&-) &ۍw!x! c&Эb)0I0 ( d!N)Gi/ h!4 ENVOIE A LA PAGE CORRESPON-DANTE DE TREMPLIN MICRO.":670:z198:16368,0:16384,128,127:16368,0:XX1:X2670X1:: TI768799:J:I,J:: ^32,190,222,32,227,223,133,133,132,134,32,190,222,32,227,223,160,2,177,133,72,177,131,145,133,104,145,131,136,16,243,96,<ʆ>*=?BC8 é&'112`HB-4F 1"aɿ LL@ Nϰ H  @h( L Lh  @`bLJCAB@=?E A LA QUESTION PRECEDENTE"%|I0/II1F:18:868:J1IdD(J)0Ğ:"D";::J" ";R(J)0Ğ:"R";::J" ";:"":D(I)0:13:868:198:"DISQUETTE NUMERO "I" -> ";:R$774,R$R$:R$"E"I1II1:400R$"O"";:657:L$"":X512767:(X)141L$L$((X)128):XG6774,L$e@1020:(R$)330,290:320J34,3::N$;8)I$:V$""ĺV$:L$T1020:(R$)350,70:340^:8:T$h::"REPONDEZ PAR OU "::34,11:12:r22:T$:3:" RAMENV$""190774,V$((V$)9190TI15:AS((V$,I,1)):AS48AS57190oI:(V$,6,1)" "190I7(V$):AS((V$,I,1)):(AS65AS90)AS32190I1020:(R$)290,190:280"11:1:"FIN DE VOTRE ADRESSE":958;," - :130&1020:(R$)180,130:170:N$""Ģ20:"Si vous n'avez pas chang{ d'adresse de- puis votre derni}re commande, c'est bon!"8:1:"CODE POSTAL & VILLE":" - 00000 ............................."9:6:"";V$:N$""V$""330 4:1:"NUMERO DE CLIENT ";N$:N$""1307d774,N$fnI1(N$):AS((N$,I,1)):AS48AS5790lx6:1:958:"NOM & PRENOM ";I$:I$""130774,I$I1(I$):AS((I$,I,1)):I2AS32170:::"NOM ET PRENOM SVP"::I12000:;=>?@ABCDEF:FR30:FA150:FX25:FE10:TARIFDISQUETTE,NUMERO REVUE,ABONNEMENT,DISQUETTE DEMO,FRAIS ENVOIn <1170:1030 FT$"":::" PAGE D'INFORMATIONS EN TAPANT ":2:I110:T$T$"----"::T$:34,3 P22:3::"SI VOUS LE CONNAISSEZ, BIEN SUR...":+ZH ::(12);(21):::49234,0: ECRITURE MASQUEE DE LA PAGE INFOS (103)(104)2563073Ĺ103,1:104,12:3072,0:(4)"RUN COMMANDE" LI5:NOMBRE DE DISQUETTES POUVANT ETRE COMMANDEES A CE JOUR (LD3:NOMBRE DE DISQUETTES DEMO^ 2FD105 :& (4)"PREFIX"::PR$:PR$9(4)"RUNDATE"d،h@ihAiȱ@JJJJq@)@1vȱ@Hȱ@Ah@Q@c1e J) LxL LxJiB LxJ) <ҩxNhHHHHL(  аƠx@BEOD  а(`( C)CJJJlBJ,~آ <B*IBGF08Lé'+8H <(h`@؍L3<>=?<>CAB@?A` / L  <>` ڢF]PL8i m L   4< L  BLRAM' hLDLD(I)1:490R$"N"440bR(I)0::15:868:198:"TREMPLIN MICRO NUMERO "I" -> ";:R$n774,R$R$:R$"E"I1ī440R$"O"R(I)1:540R$"N"490ILI390&1020:(R$)560,490:5500:::"DESIREZ-VOUS UN ABONNEMENT ? -> ";:AB$:774,AB$9:AB$:AB$"O"AB$"N"560WD1020:(R$)590,560:580N:::"DESIREZ-VOUS UNE DISQUETTE DEMO -> ";:R$:774,R$XR$"N"730bR$"O"590l:::I1LD:DE$(I)::I;::" "DE$(I):v18:"TAPER LE OU LES NUGRAPHuHUSTON!ƪ '  '%GRAPHI Cƪ !ƪ GGRAPH.MENƪ !ƪ G)GRAPH.CARƪ !`ƪ GGRD0G#GR0ƪ @ƪ GGRO4:799,192:800,96:TEST ET AFFICHAGE INFOS7 O GRIBOUILLE,PROCODE772,44:773,254:TRANSFERT PAGE 1 A 2774,32:775,190:776,222:777,32:778,123:779,221:780,32:781,253:782,229:783,160:784,0:785,177:786,94:787,2011 788,63:789,208:790,9:791,173:792,85:793,192:794,32:795,12:796,253:797,173:798,8j16:20::"ABONNEMENT (1 AN)"::17:20:"150 F (5 NUMEROS)"nt6::"DEMO:";::" 25 F par disquette"~60,0:61,4:62,255:63,7:66,0:67,8:768:TRANSFERT PAGE 1 A PAGE 2 34,0:32,0:33,40:35,24::'768,216:769,160:770,0:771,76: F d'envoi --------------"YL" Pas de frais d'envoi pour les abon- n{s @ la revue."V:"MARCHE A SUIVRE: Simplement r{pondre---------------- aux questions, puisallumer votre imprimante!"`:"FACE 1: DOS 3.3 FACE 2: ProDOS"B:I122:I:1:" ";>I1I22āJ239:J:" ";:O40:" "::m$32,2:33,36:34,2:35,22y.2:1:8" Utilisez votre imprimante pour pas-ser votre prochaine commande de dis-quette a TREMPLIN MICRO:"B:"PRIX UNITAIRE: 105F + 10cevrez une disquette vierge gratuite.":E$T$(T$,7):E$"TREMPLIN MICRO - GUY HACHETTE":E$"La Petite Motte - Senill{ - 86100 CHATELLERAULT"(12):(4)"PR#0"::20:958:198:" <1> ON PEUT CONTINUER <2> ERREUR";:R$:16368,0:774,R$: MONTANT TOTAL DE MA COMMANDE: ";:36,64:T:E$" "(T$,28):z:E$"MODE DE REGLEMENT: CHEQUE --- CARTE BLEUE":E$"CARTE BLEUE ..../.../.../.../ - VALIDITE: ../..":E$"Montant @ d{biter: Signature:"(D(3)1ĺ:E$"Vous reLIN MICRO N["I;:36,65:FR#Im:NU$""āI1(NU$):E$" - DEMO "DE$(((NU$,I,1)));:36,65:FX:IAB$"O"ĺ:E$" - ABONNEMENT A 5 NUMEROS DE T.MICRO";:36,64:FAN$""AB$"N"ĺE$" - FRAIS D'ENVOI FORFAITAIRES";:36,65:FEE:E$" " "(E$,10)(T$,20):(15):ERE$I$;:36,48:"CODE CLIENT: "N$c\E$L$:E$V$:E$T$(T$,07)f::E$"Vous prie de lui adresser la commande suivante:"p:I1LI:D(I)1ĺE$" - DISQUETTE N["I;:36,64:FDzI:I1LI:R(I)1ĺE$" - TREMP0:790K ::"SLOT DE L'IMPRIMANTE (1 PAR DEFAUT) ";:R$:R$""R$"1"d*:SL(R$):SL68004::"ALLUMEZ-LA ET POSITIONNEZ LE PAPIER":R$:>(4)"PR#1":(9)"080N":E$" ": 20 ESPACES HE$(14)" BULLETIN DE COMMANDE":::958(1020:(R$)730,620:720L34,10::I1LI:D(I)1TTFD_R(I)1TTFRvI:AB$"O"TTFANU$""TT((NU$)FX)TFDN$""AB$"N"TTFE :"MONTANT TOTAL DE VOTRE COMMANDE: ";::T" F":1020:(R$)800,33MEROS DESIRES":958:NU$""<:21:198:"-> "NU$;:R$T774,R$:R$"?"640q(R$)127(R$)8700(NU$)1NU$(NU$,(NU$)1):640(NU$)1NU$"":640640(R$)0(R$)LD(NU$)LDNU$NU$R$:640 :18:33::NU$G! ::(12);(21)::1:0:35V$(12,1),H(12)@1690a((4)"BLOAD GRAPH.MEN":11502TR$"":I110:TR$TR$"____":<:F******************************P** MENU EXPRESS **Z******************************d: n,1)"/"R$"/"R$,(4)"PREFIX"R$:70\216,0:(222)6Ģ14:"PREFIX INCONNU":400d:UTRE PREFIX <2) APPLESOFT <3> MENU";:R1$:16368,0X R1$"3"Ģ22:(4)"RUN MENU"i R1$"2"490 R1$"1"Č198:12:1:"NOUVEAU PREFIX : ";R$:R$""400 I1(R$):R((R$,I,1)):(R45R58)(R64R90)ĂI:450 420 480(R$$)127)300$ JR$"0"R$"9"310B TR$:A$A$R$:(A$)2310 ^12:1:198:"HEURE ARRONDIE : ";R$:H(R$):H1R24350 h49041,(A$)2(M7) rM8Ĺ49040,M32(J$):390 |49040,(M8)32(J$) 49043,H:49042,07 :22:198:"<1> A" (J$R$)1(J$R$)311903 R$:J$J$R$G MM1:M13M1| 10:22:198:(AN$,M32,3);:22:R$:16368,0 R(R$):R13300 R127R8MM2:M0M11 "250 ,A$"" 610:26:198:A$;:R$:16368,0 @A$""((R$)8(R:22:"<1> CHANGER DE DATE <2> CONTINUER -> ";V 198:R$:(R$)49(R$)50150f R$"1"180o 400y J$"" 10:19:198:J$;:R$:16368,0:(R$)127J$""J$"":190 J$""R$"3"190 R$"0"R$"9"190 J$""J$J$R$:190KMNO P:"PREFIX";::PR$::t ZD1(49040)((49040)32)32:D2((49041)2):D3((49041)D22)8((49040)32) dD30M$(AN$,D332,3) n"DATE DU SYSTEME : ";: x(("0"(D1)),2)"-"M$;:M$""ĺ"..."; "-"(("0"(D2)),2)1 20:TR$ :(12);(21)::GAN$"JANFEVMARAVRMAIJUNJULAOUSEPOCTNOVDEC"dI110:TR$TR$"____":(I15:I:1:" ";:I1I5āJ239:" ";:J240:" ":::3:7:"QUELLE EST LA DATE DU JOUR ?"<6:34,7 F(4)"PREFIX":PR$:(4)"PREFIX"PR$*** ":] ,:22:198:"DESIREZ-VOUS LIRE UN FICHIER (O/N) ";:R$:16368,0:R$"N"350p 6:R$"O"300y @230 J22:868:"TITRE A LIRE GRD0";:14:"";F$:F$""300 T21::(4)"OPEN"F$:(4)"READ"F$:N:I1N:V$(I,0):V$(I,1)::TI$:(4)(41(T$))2:T$::34,3::E 1:868:198:(41(T$))2:T$:i :(4)"CAT":::::20:TR$: 49232,0:49234,0:49237,0:49239,0: : ****************************** ** 1. SAISIE DES DONNEES ** ***************************HJTyz{|}~:768 x200:R1R6120$ G R300,870,1320,1410,1610,1740M :q ****************************** ** PETITES ROUTINES ** ****************************** : 16368,0:16384,128,127:16368,0:R(16384)48: ::@~@}J@` ߩ%S @ ~`EhhhѺ0 h ѐ# ѐ ѐ ѐ 0 HϭэLпllllhh8` QSTV'PGOTOuHUSTON! '  ')GOTOAMPERSANDts ! WFENuHUSTON! ' ''FENETRE[' ! VFENETRE.LM`B ! VPILEuHUSTON! ' ''DEPILERbF ! UDEPILER.LMej ! U(DEPILER2g ! UDEPILER2.LMi) ! UMENU<{  US VALEURS QUI SUIVAIENT."& |200: N0āI1N:5I:1:((" "(I)),2)". "V$(I,0);:25(V$(I,1)):V$(I,1)::SV1:590:630:SV0:660 23:T$" PAS PLUS DE 12 DONNEES S.V.P ":220 21:TR$:4:35,20 NMN:N0 NN14:1:868:N"CLOSE"F$. ^T$" SAISIE DES DONNEES ":210 h5:" RENVOIE AU MENU SANS CHANGER LE NOM- BRE DES DONNEES DEJA SAISIES"::" RENVOIE A L'ITEM PRECEDENT" r:" TERMINE UNE SAISIE NORMALE"::" ABREGE UNE SAISIE EN ELIMINANT LEQ8`d*؅IFG ݐ`g()*g p8D`F` ilH)HFȍ&HG' ݰ$%d&e!8* J8` Lע )I '`8fi*F(G)`f*؅IH3H g( g )c'G ݰ%" ݰX)Im'F(G)** ݰ4 ֭ $H ݰ%HFFHGHG ݐ`R8`ͺͻ)` װ H+` /ٰR(*؅IHH++Ѝ+@`g8c ؐedc e* eIȱ@;ȱ@EGH>&P'Q+)7+I0 ('*A ܰ7<=FG ݰ( ְLݩI* mIH` LI I%0(F)G ݰ ֬+H&F'G ݰ&FF@ 0 [ gLթK8` I8`FHGH ܪhGhF ݰբFF芝 ݰFG ݮI mIHHyHȘI ݰLԩ` ՠ @;@ C@Ю+)m+ʈ@i ]`^C8` @ x3N@) Wڎ ԭi`0 iڰ0GF ݰ#]0 ڰW,0 ] ۩.H hȑNWȮNW8`N΄0NN` װG8`j𪭄Б` Ґ L` א@>+)I38j%k785,((785))1:831,((831))1::420:785,((785))1:831,((831))1:12:"APRES AVOIR REGARDE CETTE DEMONSTRATIO0:KLES PARAMETRES DE LA FENETRE SONT POQUES EN PAGE 0 ($6 $7 $8 $9)n6,V1:7,VF1:8,HD1:9,HF:t807: POUR ROUTINE ->ECRAN768: ECRITURE ECRAN807: POUR RESTAURATION ->MEMMEMORISATION DU MENU A ETRE <2> FIN DE PROGRAMME":3808 ^:(16384)49Ĭ c:22:"<1> MENU DE DISQUETTE <0> FIN-EFFACER":380:(16384)49Ģ20::(4)"PREFIX,D1":(4)"RUN MENU" h r"ENFONCEZ UNE TOUCHE POUR EXECUTION"|198:16368,0:16384,128,127:16368,I:HD:T1$:T I1(M$)11:NN1:V1N2:HD1::(N64);::1)(M$,I,11):n "380:470:MEMO MENU ,420:RESTAURATION ECRAN 6380:490:RESTAURATION MENU @380:ESES1:ES5300 JEXEX1:EX2ES0::300" T:22:"<1> AUTRE FEN2::"APPLICATION"::380} M$"<.........><.........><.........><.........><.........><.........><.........><.........>" V4:VF20:HD5:HF19:400 T$"":I110:T$T$"****"::I123:I:T$: 768 T1$"":IHDHF:T1$T1$" "::IVVF:9 12:"RECUPERATION PAR ROUTINE EN BASIC"::370:R P(24):VVV:HD:VVo I81928192P1:PSPS1 ((I)128);:PSHF1HDĺ"":PS0:VVVV1:HD:VV 380: 12:"RECUPERATION PAR ROUTINE ASSEMBLEUR"::370: 410:380::1Z\]^_:958:"HTAB FIN -> ";HF7 dHFHDVF40Č198:90 nHF1HDHMĢ20:"MAXIMUM=255 OCTETS LIGNES DE "HM" CARACTERES":380:80 x400: IVVF:I:HD:("123456789123456789123456789123456789",HD,HF1HD): 768:380: ::(12);(21):!500U((806)(828))192ĺ:(4)"BLOAD FENETRE.LM"x(8:1:958:"VTAB DEB -> ";V210:1:958:"VTAB FIN -> ";VF<VFVVF23Č198:50FVTVF1V:HM(255VT)P12:1:958:"HTAB DEB -> ";HD Z14:1g` RS `]JJJJ`hH]hhn)gNhjNhjNhjnNh.p WݰHuh ݰ;h]r ݰ*nNpg qq`Z8` Wݰ#ppo o 5ݐ`noS .S .S .S8p*JFG'(`)\ \8ʈ` ۰0)i `8`]R ܍hRSg ݰN]FG ݰ< h0 FGLۮ]g0 SR8`a`H8` ܹ ,gR S 8h Wڭ01 E8`1ݖ0 iڰ$]0̩GF ݰ ڰ ڰ`12)1`0]`Ȏ]i 0U`)8`΄`] ېW }װG =۰A)H ]ʈh0)* uneFENETRE..."&:" ";:370: ( iL` H= h=` (fhBCDEFGHIJKLMNOPQRSTUVWXYZ"0 FR0::B$::90< P768,B$O Z100:198:80d dR$:RR1:R8ıv nXX1:X260 x809,169:810,0:811,133:812,58:813,169:814,3:815,133:816,59:817,169:818,21:819,32:820,99:821,254:822,96::809- :24:"A ::I768808:TT(I)::T5481ĺ(4)"BLOAD DEPILER2.LM"A$"-----------zyxwvutsrqponmlkjihgfedcba0987654321ZYXWVUTSRQPONMLKJIHGFEDCBA"A$:(768,A$2100:198:40 <B$"1234567890  tiordne'l @ siup ,srevne'l A  A X ; : " J% " oHHɍhh `ڠŠŠӠŠөR52ė: :160E 198:16368,0:16384,128,127:16368,0:foncez une touche S.V.P ":210) 768 21::1:"<1> RECOMMENCER <2> MENU DE DISQUETTE <3> AUTRE VERSION <4> FIN DE PROGRAMME":210 R(16384):R49150 R50Ģ21::(4)"PREFIX,D1":(4)"RUN MENU" R51Ģ22::(4)"RUN DEPILER2" T (affiche le caract}re dont le code ASCII est dans A) m x"- PHA (48) empile A et PLA (68) d{pile vers A 18:"FAITES UN ESSAI, PUIS EXAMINEZ LA ROUTINE EN LANGAGE MACHINE DANS TREMPLIN MICRO" :"Elle est relativement facile @ comprendre - Enacdet Y . F"- $FE84: R{tablit le mode normald P"- $F94A: Sort X blancs (nombre dans registre X) Z"- $FC22: Va @ la ligne sp{cifi{e dans CV (position verticale du curseur) d"- $FD6F: Une entr{e de GETLN sans affichage de prompt9 n"- $FDED: COU ::(4)"PR#3"::5(4)"BLOAD DEPILER.LM":"UTILISATION DE LA PILE POUR METTRE UN TEXTE A L'ENVERS -- (ROUTINE A$300,L$6A)":::("- $FC58: Home2"- $FE80: Mode inverse <"- $DB3A: Affiche une chaine dont l'adresse est dans A EXPLICATIONS DANS ";::"TREMPLIN MICRO";:W 198:16368,0:16384,128:16368,0 22::24:"<1> MENU DE DISQUETTE <0> FINI DE JOUER";:R$:16368,0:R$"1"Ģ22::(4)"PREFIX,D1":(4)"RUN MENU" d^i 8`L Ӑ L Ӱ )ܹ0 )p )@ )  ^$0&F'G ݰ ح()&'FG ׬^>?@ ; R+) R+ ְ^)%r ݰ`H@h`h`^ IhHIhH  i ` ܰ ii` )0CGHFHBFG ЪhFhG`@5^͔ M @B^i ׭` .^ @#^0 iڮ])`L@.^ 簪HIRH^  PLzEzʱNLMOwxMEKP%zMEKzL2 Owx,vy PveNNO \(` R  F .AxJRHISHI^ HIHI`  .` .A^ HR HS`@Nȱ@O^`^vY}RIR` tVYR t 3 tVR` ^` H  ^h)N@ N; L  ;ް$ )bJ`a f۰ ) H BhL ) . )xJwjIS@L;ެ^8NvNO 8} |vJLy`zRzʱLN.MOwxMEKP/zMEKzLCL-}M| Owx,vpyeNNO(`JNKO^L ;ް/  0P L8 | Zߠ^J`L@yȱ@z^ h)N$%^vywz LL⭦ L x L ;ް  0pzJ{ )@~NJOK ;ްiKKzzww xxIJ{ y zJФ̭xJwjHFIH ~HIG~xKE а((H hH h8`8y@ȭz) ) )cвHJ8` G^悔<F^f $ ӭ+v ;ސH^  @^h8` ߰] ^@`fc__f (^_ $c )8`)i п`  H  ^FG`BH T^FG`H ^hHBF  GxDE^0~0C а(`(8` L*J ^ :"L ݢH ^ : ^9` א@ P8`^_B8` ^$+JJJJIHIH IL9߅FHGI ѭxJwjHIH;7I^JJ Zߐ3HIHIL|ߩJKJK`FHIG ߰( ߬^ȢYvJLw)eKM`^)` J RJfw ߰$f0 ߰fJFJL8`JGBJ T(`(8`^@`M8`^8@tʈI^)Rw8RR xL|߹ Lߠ^C8`b)@ i^)Rx8RbzwJ x_ F Lr߹) +b&xJ(b .^FG/8` .xJRp qq]RS`]JJJJi LWݩH8`]r ݰ]rq0 ݰ ] o`q ݰq`r]uysitB0Hr0sFtG ݪh0`שB*xED~0C { ^H"hh^ =``N8`  ) N^ȢV@vVv^@ʈL\ 簞KIJH^Ȣv^vvw)xJn 8 ΐ^ nH8^ )ꭍJJJJ^ ^ȢvI ;ސh(8H N h(8Hh(`^@`@^ȱ@ ` אB@8Z+`a] qۮ]a`KHJ8`>ha?+JJJJ+)+@` װ%I -I) 0@+1":(4)"RUN MENU""TR$"1"Ĭ5^16368,0:330WhI10131015:M(I1012)(I):tr1013,76:1014,0:1015,3|768,32:769,123:770,221:771,32:772,82:773,231:774,32:775,26:776,214:777,144:778,3779,76:780,65:781,217:782,162:783,90n l'affiche encore une fois":420[ ,8::P$"- et X ne vaut pas 1, mais bien 2...":420 69::P$"- et maintenant 3... c'est la fin (END)":420 @400 J18::"<1> REFAIRE <2> MENU DISQUE <3> FIN ";:R$:R$"3"ĉ::OR$"2"ĺ:(4)"PREFIX,Dime":4202 13::P$"- GOTO 80 (8 * 10)":420 10::P$"- T$ est devenu "(34)"LILI"(34)" depuis la ligne 40":420 11::P$"- cette fois, c'est un GOTO 40":420 6::P$"- T$ y est toujours "(34)"LILI"(34):420# "7::P$"- et o)"TOTO"(34):420D 11::P$"- GOTO 40, tout simplement":420z 6::P$"- T$ y devient "(34)"LILI"(34):420 7::P$"- et on l'affiche":420 8::P$"- X vaut 2 ...& B = GOTO 100":420 12::P$"- "(34)"LIGNE 100"(34)" s'impr"LIGNE 100" n810& x34,2:410c 32,36:33,44:16:::P$"ESSAYONS DE COMPRENDRE":420:l 5: P$"- "(34)"& A"(34)" = GOTO 70 puisque A = 70":420 9: P$"- ici, X vaut donc 1":420 10: P$"- on affiche T$ = "(34suvwx = X + 1: IF X = 3 THEN END":" 80 PRINT T$"v " 90 & 40":"100 PRINT "(34)"LIGNE 100"(34):"110 & 8 * 10" "]RUN": 360 A70:B100 T$"TOTO" A (T$"LILI" 2T$ <X1XX1:B FXX1:X3120 PT$ Z40 d:(4)"PR#3"::\"GOTO ACROBATIQUE PAR LE TRUCHEMENT DE L'AMPERSAND (&)":2:410" 10 A = 70:B = 100":" 20 T$ = "(34)"TOTO"(34):" 30 & A"" 40 T$ = "(34)"LILI"(34):" 50 PRINT T$"0 " 60 IF X = 1 THEN X = X + 1: & B":" 70 X9X(K iXXK^ Ko`V8`no` 2 on iI9XX`)HJJJh`OeNeO࿰ i9XАO`@ȭ@` ON ONJKO`HHHHхFG ݐ ` }ͬ ݰFG ݐ` * }% L`FGLݮ 'ܰ8`FHGHi 'ܰihGhF`@Bɼ>K@J5 i`O WݰI**********12430)v19:"TITRE ";TI$;:SV1ĺ:F7:"";R$:R$""TI$R$V19:7:TI$35,24:T$" <1> SAISIE TERMINEE <2> CORRECTIONS "23:220200R1NMN:720R2680400PP(V$(1,1)):PG0:I1N:(V$(I,1))PGPG(V$(?"800)0V$""Ģ5N:958:NN1:6308:V$(N,1)V$AD780aNT0:K1N:TT(V$(K,1)):XI1N:P(((V$(I,1))10000)T):P$(P):(P$)3P$(("000"P$),3)bP$(P$,(P$)2)"."(P$,2)"%":33:5I:" ";:40(P$):P$::SV1ılN1ĺ"EX. JANVIER 12000"'780L5:"";V$:V$""V$(N,0)""510\V$"?"800|V$"/"N1İ780:NN1:510V$""560V$(N,0)V$78025(V$(N,1)):V$(N,1)""Ė18"";V$:V$""V$(N,1)""580V$"/"450&V$"(4)"PR#1":(9)"GE2"::(4)"PR#0":110/h:Sr******************************w|** TRAITEMENT DES ERREURS ********************************:948:ER(222)ER255V$"":560ER6ıER9Ģ21:958::12:"DISQUETTE PLEINE"::I12000:1103(4)"CLOSE":::B51,0:110 @`@ @0`?`@p<p%rI<I&I$I$I,I$I$I$KdI$Id` @ 0p%I%I&I$I$I,I4I$I$IdI$I$D  0@ `@12 DEC 7 8000 FEV 5000 MAR 12000 AVR 4000 MAI 10000 JUN 7000 JUL 3000 AOU 900 SEPT 400 OCT 13000 NOV 9000 DEC 6000 PREVISIONS POUR L'ANNEE 1986 M?7 n N-)3M:w -N--66vIM13M13M1s-N M13M13MN M13M1n >7Mq M1s  3MqM1s 6vI--.-uu 66N6 66N6--5??7--5??7--5??7--u I?7-5?7-5?I I:-5?7-M13--n N7-3M?7M13-u )36Ms-N-n1n1-u --n?76--N3--n?76NI-)36M5s-uIM13M1??n n N>-66-NNI166s-N Mn7 n N666-unM17 n n N?M13m1n)n N))3M13M1s-NR-3M?76NII)3M13 mN--3+in!/>M[i{ '8HZjvb-6R)3M5.M-N1w6-Ni)sI.-uN-->N-NqI> 3--v N--.-6s-N- -޻M:?n -N--6NI)3M?M1s-N)3M1?w *uI  X,% $ " %% `    1ŠӠ2Šՠ3Π4ϠӠ5Πՠ6ΠŠhhߚHH`@H` @@ >|~|p @@ D @ H@ l8p'I$I&I$M$O$I$I$I$YdI$sI$@   @@@@0<@@8@|@  @`x`@`@@`@@  H @$00(  `@?|@`0``@ @p 0 (x@@8@@ AHp@ DD@ 0|@|@@@DBA@@xp%I$rI&I$i$I$I$I$I$IdIdI$<@@H@p%i'I&idI$I,2I$I$I$RIdI$I$  @@H @$F0 @ H@?0p%I$I$I$I$I$I$I$I$ItI$I$`0@0 0@ DP D@@@) H@ D0@`@ @`@ p%I%I&I$I$I,I4I'IdIdI$I$L@@D@@@`8<@@<0 @0@@  H @$    H@  p@  `?8D@@``#F~x0`8@ 0D` @Tp%I$OfI$I/I$I$I$I$IgI'I$`@D@@D@@0D< @D` (@$p%I%I&I$I$I,I4I$I|IdI$I$0p%I$I'I$I$I$I$I$I$ItI$I$ @@ H@  LD`@`@@@`>|~|px`@@?"B $p%I%I&I.I$I,Y$I$I$2IdI$I$LOGOuHUSTON!̪ ' '*LOGO.BASIC\ ̪ !̪ LOGO.EGILOR̪ !`̪ LOGO.CAR̪ !`̪ IMPORTANT̪ !̪ 8@@A@@0 @  1 ` @?|~|```d`   0 @ @ | |0D8@ 0|A@`@x?@e@A0p%I%I&I$I$I,I&I$I$IdI$I$0  @D@p%I$y.I$I$I$I$I$I$IdM$I$@@!`@ D"B@ 0@`H@0@ 0X0 @TD`  @@peIdI&I$RI$I>I$I$I$MdI$i$x@@1  0 @8 8`@ @8 `|8 p0`|@ ``@?A~|xx`TD`0@  1@ x@A @@    `@`P@CADREuHUSTON!̪ ' 'CADRE.BLOQUE>  CADRE(  *CADRE.DEMOK  CADRE.ROUTINE  /CADRE.LINE.DEMOD  CADRE.LINE ET SANS PONCTUATION (ELLE SERAEN TOUT CAS ELIMINEE)."f:140:I113:912:J110:X(49200)::?13:1:958:I140:"....";:D13:1:"";:657:T$"":X512767:A(X):A141595IAA128:A64A91T$T$(A)NXS17::140AX2**********&:u+:32,11:33,20:::I13:" "::998:998:" LA PHRASE CACHEE "::926:0T$"":I110:T$T$"____":::T$85::T$"TAPEZ CI-DESSOUS UNE PHRASE (UN MESSAGE)D'ENVIRON 150 LETTRES, UNIQUEMENT EN MA-JUSCULES,0:SS19:I6I7SS3-:SS19:G7200N(4)"BLOAD LOGO.CAR,A"G:50I1011:((T$,I,1))S,50:SS19:I8I7SS3 :S0:255:460:********************************* SAISIE DE LA PHRASE *** !********************,G(G256)256:233,(G256):':K******************************o*** LOGOGRILLE *********************************:3:0:1(4)"BLOAD LOGO.EGILOR,A"G460:S40T$"4525263441":I110:((T$,I,1))S,51":(27)"n";:(27)"L020"CC0:I60006424:CC1:C26ĺ:C1XA(I):A0A32g(A);::w(4)"PR#0":::********************************* INSTALLATION FONT *********************************:!232 ***1 m******************************7 r:^ w:(4)"PR#1":(9)"G":(4)"PR#0"l |16301,0 ::22:"<1> IMPRESSION DE LA REPONSE <2> NON ";:R$ R$"1"R$"2"385:R$ R$"1"Ĺ16302,0:405 43016302,0::(4)"PR#MT:220 1A((T$,I,1))' 6AD,A6 ;SSLSLSE @TTLTLTX EA64S,T:205e JS8:T3 OI60006424:SSIN:S278S3:TTIN TA(I):A0A65((1)26) YA64S,T: ^: c****************************** h*** IMPRESSION S14T168TTL280* SSIN:2859 T168280I TTIN:285\ T14SLS280l TTIN:285z AL0:220 H(S8)IN:V(T8)IN:ADVLAH:AD5974AD "MS267MT3(ADLA)0170 'MS267MT168(ADLA)0170 ,(AD)0SMS:T5:HA17:I60005999(LAHA):I,0:9 I1:SSIN:285P II1:I(T$)330n NN1:N1ALDN0:220} AL0225 AL1((1)7):AL4ALAL3 SSL(((1)3)0)AL4 MSS:MTT AL240,250,260,270 S256280 SSIN:285*********/ *** PAGE GRAPHIQUE ***S ******************************Y :r MS0:MT0:::62450 I018711:0,I275,I: I027511:I,0I,187: 16297,0:16302,0:16300,0:16304,0 D3:IN11:TD:S8:SL0:TL0% LA2 d16385%i::(12);(21)::5nG6500:490;s:_x******************************}*** AFFICHAGE AVEC BRUIT *********************************:I1(T$):(T$,I,1);:J110:X(49200):::: *********************&  3:1:"<1> D'ACCORD <2> TOUT A REFAIRE -> ";:R$:R$"2"575R]R$"1"600[b175RN-----5?????7- ?.m?.m-5??.m-?.m?.mMI?????7-----5?????oIII -----5?????7- MI5?.m?.m?.mM-->??.mMI5?.mMI5?????7-----5?????oIII I--?.m?.m?.m?.m?.m?.m?.m>?oI--?.m?.m?.m?.m?.m?.mMI?????7-----5?????oIII -----5?? ::(12);(21):I"UTILISATION DE LA FONTE SPECIALE DE TM 2";nI110:T$T$"----"::T$:34,3z(50,1002AD24576:L4498: AD=ADRESSE FONTE - L=NOMBRE D'OCTETS<ADLF(4)"BLOAD FONTE.SPECIALE,A$6000"P232,0:233,96 Z:3FONTEuHUSTON! ' '*FONTE.DEMO ! .FONTE.SPECIALE  !` -V = Vider l'ECRANP8H  ): e: y8鰕:Jjjj<)yi8i;i(*=>hP8`;Zx3QTTSRWVUHEVhEhH)IWHPHHHAHHHLaVEWLӿLLՐ`BLڑL COPYRIGHT APPLE, 1983 h@ 0J @L:HUSTONLL`BLLТТТТТТТТТТТТТТТCOPR. APPLE,1983LM Mh@8nЍLЭ 0J @,,L:,LĠԠhhhhIL@Ae \{**ӂӹi|wWIJK,-NOPQRSuHUSTON!' @   !"#$Ԡ͠ˠ7mM7mMN--7m17m17mq)7m17m17-u -7m1??.>.NI)7m17- wmN-7m>?.M;.MN))-;.?N5--N--;.>.>.N m17m17m17-u m17m17mN mI7mM7mM N m1w  7mqJm17m?6N -->57--N&8J[k{0@Rct)-;.M;.-57mq -7m>?.M;.-uJ)757m7--N--7m7m--N--;.?757--N---;.?757uI))-;.M:7m17--Nm17m1??.M;.MN )-7575-u I575M53--N1m17m?. 7mq6575757--N) 7mM???7- MI5?.mMI5?.mMI5?.mMI5?.mMI5?.mMI5?????7-----5?????oIII -----5?????7- MI5?.mMI5?.mMI5????.m---5????.m -??.mM)??.mM ->??MIII:1:0y dF$"!"(34)"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~" n49233,0 x320 :"VOICI LES CARACTERES A TAPER, DANS LE MEME ORDRE QUE CEUX14:: PROTATION 16 A 64 (90, 180, 270, 360 DEGRES)s ZR48:X14:I18:1X,90:R:XX26:RR16:R80R16| d:0 nSCALE xX25:I13:I:150XI,115::1 170 ::( :I110:"____";:::"<1> MENU DE DISQUETTE <2> NON MERCI " 138 OCTETS POUR DEUX POMMES11:0:3:u::T$"139 OCTETS POUR DEUX POMMES":T$:I1(T$):"-";:::("ADRESSE DECIMALE DE LA TABLE ";AD2180:<X3:I110:1X,30:XX16:2X,30:XX10: FX3:I110:1X,50:XX12:2X,50:X::" "P: b:6 l******************************Z v** CENTRES DES SEPT RONDS **~ ****************************** : I12000::  70,144,60, 92,80,174,75,113,65,133,80,155,60,160 ";:560' R$;:(R$)PPİ590:5205 PPP:600> 660 :21:"<1> UN AUTRE TOUR <2> MENU <3> FIN ? ";:R$:R$"1"Ĭ R$"2"ĺ:(4)"RUN MENU" &:: 0R$:(R$)49(R$)55560 : D: N" ";::"EXACT":: X" ";::"FAUX";******************************F ** LA QUESTION EST POSEE **j ******************************p : :21:198:"RANG DE LA PLUS GRANDE --> ";:560 R$;:(R$)PGİ590:490 PPG:600 :22:1:198:"NUMERO DE LA PLUS PETITE -->RAR(R):FL0 1635,48R- I06.3ST? "XRAD(I)XCX ,Y(RAD4)(I).3YC{ 6X279X0Y191Y0FL0:340 @FLēX,Y:FL1 JX,Y T ^: hR(R)P1P1R(R):PGR rR(R)P0P0R(R):PPR |198 R7260 660 :" A(I): :2 ******************************V ** ET LE JEU PEUT COMMENCER **z ****************************** : 22:1:"Voici sept ellipses: Dites les NUMEROS de la plus grande et de la plus petite":1 P10:P080 YC:XC:RR1:d:(12);(21):%n:3:ST.1+x:O******************************s** CALCUL ALEATOIRE **** DES SEPT RAYONS ********************************: I17:A(I)55I2::I711:J((1)I1):R(I)A(J):A(J)Ы190 A$(3)3500 A$(32)HH7:190N I195:A$(F$,I,1)260Y :190v HH15:H263H0:VV20 V160đ 49232,0 "I1H,V ,190 @22:4:"PRESSEZ UNE TOUCHE POUR CONTINUER" J198:16368,0:16384,128,127:16368X DE LA FONTE" :F$:O ::"Pomme ouverte = &":"Pomme ferm{e = ~": "CTRL-F vous pour revoir cette page":"CTRL-C pour terminer" 320 H15:V15 21:958::22 198:"CATACTERE DESIRE ? -> ";:A$ A$(6)Ĺ49233,0:320:":170:(16384)49ĺ:(4)"RUN MENU"2 ::b 198:16368,0:16384,128,127:16368,0: 232,AD(AD256)256:233,(AD256) IADAD137:R:I,R:: PARAMETRES (2 FORMES, PREMIERE AU 8e OCTET, SECONDE AU 74e) 2,0,8,0,74,0,0,0 0( V16368,0:XX7:X289X9:YY78 `1130:1050V jD4D0:(R$)1X7,Y:k t(R$)1X7,Y: ~(41(T$))2:T$: T$"PROGRAMME DEMO D'ECRITURE":6:1150 :T$"EN PAGE GRAPHIQUE HGR OU HGR2":1150 :T$"AVEC DES CHIFFRES EN DATA::(12);(21):"1160.1240:E:3:1:1:X2:Y7c22:20::"CTRL-C=FIN":22:1:R$:R(R$):R3ė::$R11Y7YY7:1050.R10Y140YY7:10508R8X9XX7:1050BR21X282XX7:1050 LR4DR:105LMNOPQRSTUVWXYZ()<>*. ":CAAD(A$)1:YCA:X1(A$):YY1:Y,((A$,X,1))::8,CA(CA256)256:9,(CA256) CACA16:XCACA15:Y:X,Y:: 160,44,177,8,197,25,240,5,136,208,247,160,44,132,25,96128:16368,0::R ::(4)"BLOAD/TM4/GRAPH/GRAPH.CAR,A"AD:FONTE SANS ESPACE AD,44:AD88,95:NOMBRE DE FORMES PORTE DE 43 A 44 & ADRESSE DE L'ESPACE 6,AD(AD256)256:7,(AD256):232,(6):233,(7):1:0:3p A$"'0123456789ABCDEFGHIJK ":VV5:407 170::(4)"PR#3"::10,30:190,240S :170::30,120:170: 22:"<1> MENU DE DISQUETTE <2> FIN DE PROGRAMME":180:(16384)49Ģ20::(4)"RUN MENU" : 22:8::"PRESSEZ UNE TOUCHE S.V.P": 198:16368,0:16384,-?-0":40:SIGNES INCONNUS TRANSFORMES EN ESPACES_ PVV25:Y0:X3843:YY1:XY723,V:s ZA$"()<>*.":40 dA$"LA FONTE GRAPH.CAR NE COMPORTE PAS":40 nA$"L'ESPACE MAIS ELLE EST FACILEMENT":VV5:40 xA$"MODIFIABLE GRACE A SES VALEURS 00 (12);(21)HAD163851644: PROGRAMME + NOMBRE DE CARACTERESU190:50(H30:VV15:X1(A$):25,((A$,X,1)):CA:(25)(H7)(X7),V::2::A$"CARACTERES HGR (DEMO)":40<A$"ABCDEFGHIJKLMNOPQRSTUVWXYZ":403 FA$"(0123456789),73,17,63,255,46,45,245,219,223,19,45,13,13,45,21,223,59,255,27,110,73,73,241,223,219,27,110,73,73,254,219,219,110,73,73,169,223,219,219,110,73,73,241,223,255,115,109,41,78,9,0,64,192,64,192,64,192,64,8,0,25,0POMME FERMEE 105,73,17,63,255,46,45,245,219,223,19,45,13,13,45,21,63,63,63,63,63,46,45,45,45,45,30,63,63,63,63,46,45,45,45,53,63,63,63,63,46,45,45,45,45,21,63,63,63,63,55,45,45,45,45,245,63,63,63,119,109,41,78,9,0 POMME OUVERTE 73,73,105":1150= :T$"SE DEPLACER AVEC LES FLECHES APPLE":1150l T$"POUR EFFACER UN CHIFFRE:REVENIR":1150 T$"SUR LE CARACTERE, TAPER CTRL-D":1150 T$"PUIS LE CHIFFRE INCRIMINE":1150 198:16368,0:16384,128,127:16368,0:! 232,0:23,0 T ^::,173:792,85:793,192:794,32:795,12:796,253:797,173:798,84:799,192:800,96::TEST CTRL-I ET AFFICHAGE PAGE26 RESUME DES COMMANDES,Utilisez les FLECHES de l'APPLE,- CTRL-A = Mode NORMAL,- CTRL-B = Mode INVERSE,- CTRL-F = Fin de programme,- CTRL32,0:33,40:35,24::e 768,216:769,160:770,0:771,76:772,44:773,254:TRANSFERT PAGE 1 A 2 "774,32:775,190:776,222:777,32:778,123:779,221:780,32:781,253:782,229:783,160:784,0:785,177:786,94:787,201t ,788,09:789,208:790,9:791: 40:" "::3 32,2:33,36:34,2:35,22? 2:1:z :A$:A$::::A$:A$::::I14:A$:" "A$:: ::"ET PLACE A VOTRE GRANDE IMAGINATION!": 60,0:61,4:62,255:63,7:66,0:67,8:768:TRANSFERT PAGE 1 A PAGE 2  34,0:R6Ā^ R22Ĺ35,24:22:1::" POUR HOME ";::S$:"":S$"O"Ģ22:T$:1:35,21:R3j R22ėr 70 :20:958:198:" <1> ON PEUT CONTINUER <2> ERREUR";:R$:16368,0:774,R$: :I122:I:1:" "; I1I22āJ239:J:" ";10:T$T$"----"::T$:34,0:35,21+ <T FR$:774,R$:R(R$):R31R127ĺR$;v PR8(36)0Ĺ36,(36)1:70 ZR21(36)39Ĺ36,(36)1:70 dR11(37)0Ĺ37,(37)1:990:70 nR10(37)20Ĺ37,(37)1:990 xR2Ğ R1ĝ H ::(12);(21):::49234,0: ECRITURE MASQUEE DE LA PAGE INFOS (103)(104)2563073Ĺ103,1:104,12:3072,0:(4)"RUNPAGE1.2"C$"TAB":(637)255C$"CTRL-I"(280:190% 2T$""::23:" PAGE D'INFORMATIONS EN TAPANT "C$:22:I1git des lignes 375 @ 425."U 222:"<1> LOADER LE PROGRAMME <2> RUN <3> FIN";:R$z <R$"1"ĺ:(4)"LOAD LOGO.BASIC" FR$"2"ĺ:"CHR$(4)"O.BAS" P:d ::(12);(21)-:" IMPORTANT "::::"Si vous ne poss{dez pas d'imprimante... ou si celle-ci n'est pas {quip{e d'une interface-buffer de BIP ou d'ALPHA-SYS- TEMES, modifiez ou annuler la partie impression du programme." (:"Il s'a,12,54,174,55,62,0,56,39,44,45,245,170,54,23,63,28,4,0z 117,246,63,28,36,229,12,12,45,6,0,12,12,60,63,183,82,30,46,0 231,100,45,21,246,14,246,63,28,36,0,231,100,45,21,54,119,30,30,63,4,03,96:I2457624705:J:I,J::_ 10,0,22,0,36,0,44,0,54,0,66,0,76,0,88,0,99,0,108,0,119,0 12,37,28,63,23,54,46,30,14,45,44,36,4,0,36,188,150,18,45,28,36,0 101,228,63,23,150,241,46,45,37,0,12,12,60,63,183,146,21,45,12,228,7,08 58,39,12,12d<g2N[ivO}N*] O}6^EA w V * U  4 k  L } /\'Fq$L{ aaajRI->7->7->7->7->w?.5?VI- ->?NM1??I - ---????.MI5---5????.mI5?.---->???III5->7->7----????7-MI5;7-MI5;7-MI5;7----???III ---????.mI?.5?.mI?.---???VII II)>.>*--->???7-M 5?.mI5?.mI5?.---???VII ---????.mI5?.---5????.5?.---5???IIII-->??.5?.m:---????.mI5?.---5????.5?.---5???III- ---????.mI?.5?.mI?.---???N)oI II----????.mI5?.---5????.5?.---5???IIII----????.MI5---5????.mI5?.---->???III5-----5?????oIII I----????.mI5?.mI5?.mI5?.---???VI -??-VI -MI 5?.mII5?.m m)>?.m m)>?.m m)>?.m m)>????w-m)-۷III-MI5;7-MI5;7-MI?--5??-M);7-MI5;7-MI5;III I-MI5;7-MI5;7-MI5;7-MI?- ?7-5?7-5?II )---????7mI)?-?-?-?.mI;7----????VIIIIII:7m---????7-MI5;7-MI5??.---5????.mI->?.mI)>?.mI)>?VIII-)---????7mI ;.>.---????NI)5?.5?7----???III---->???w ->7->7->7->7->7->II-MI5;7-MI5;7-MI5;7-MI5;7-MI5;7-MI5;7----???IIII-MI5;7-MI5;7-MI5;7-MI5;7-MI5?;w-III-M-????7-MI5;7-MI5;7-MI5;7-MI5;7-MI5;7-MI5;III )---????7-MI5;7-MI5;7-MI5;7-MI5;7-MI5;7----???III)---????7-MI5;7-MI5;7-MI5????7----;7->7->III )---????7-MI5;7-MI5;7-MI5;7-MI5;7-Mm5??.---->???III-)w-M 5?.mI5?.mI5?VIIII->7->7->7->7->7->7->III->7->7->7->7->mI->7----???VII -M 5?.mI5?.m -??.--??7--??.m)?;7-M ->?VIII5->7->7->7->7->7->7---->???VII )-M-?????7-Mm 5;7-Mm 5;7-Mm 5;7-Mm 5;7-Mm 5;7-Mm 5;I--???III----????7-MI5;7-MI5;7-MI5;7-MI5;7-MI5;7----????VIII-)---5????7->7->7---5???7->7->7----5????VIII)---5????7->7->7---5???7->7->7->III I)---????7-MI?.5?.m -5??.mI)>?.mI)>?.----???IIIm)mI5?.mI5?.mI5?----5????I )---????7mI)5?.5?*--??757*>VII-Iw*--????.MI5---5????.mI5?.---->???IIII--???-M 5?.mI5?----->????w-M 5?.mI5?.mI5?VIII ---????.mI5?.mI5?.---????7-MI5;7-MI5;7----????VIII))---????7-MI5;7->7->7->7-MI5;7---?.5?.5?VII --???7-M)>;7-M)>;----????7-MI5;7-MI5;7----???III-)---????7-MI5;7-MI5;7----5????NI 5757----???IIIJ:7->J:7->IJ:7->J:7->woJ >-M????----5????->II---5???*--->???JIIJI7-????.----????NI-7??-?7->7----5????VIIII)---????7mI)5?.*--->???NI->7->;.----???III?II->?-->m)5?;mI->7----5????NI->7->I ))--->???75757----????NI)5?.5?7----???III)---????7mI ;.>.---????7mI)5?7mI)5?7----???III-----5????7-M ->7->-?-IIRIm)Mw--?----?--m)M۷IIJ 575----5????wI575II ->w1?Mo-->?JIJ:7->IIII5555555III )---????7-MI5;7-MI5;7-MI5;7-MI5;7-MI5;7----???III? ->?-->7->7->7->7->7->I))---????7-MI575*--?II ) m)>7m)>*---->????Nm)>*---->????Nm)>7m)>߷II II5*--5???7m57---???Nm5---???N)>VI))m 5;?7mm5??- 55m?m-->m)-?;VII II)5n- -?????m)m)7mI 7mII)>?;----??VIII7->w1?IR)>75757575757->V ?575757575??7---?.5?.5?.5?VII ---????.mI5?.mI5?.---5???wI 5ۛ----???oII ->7->7---????.mI5?.mI5?.mI5?.mI5?VIII>->*5?.5?.5?.5?.5?VI)5?->7->7->7->w5*-?M 5->7->7-M 5?;7-M-???.--??.m ->?.mI5?VIII7->7->7->7->7->7->7->I -m)?????.m)M5;?.m)M5;?.m)M5;?.m)M5;?VIII I ---????.mI5?.mI5?.mI5?.mI5?VIII ---????.mI5?.mI5?.mI5?.---???VII ---????.mI5?.mI5?.mI5????.---?.5?MII- ---5????.mI5?.mI5?.mI5????---575o --5???.5?.5?.5?.5?VII *L o % YZoY 3 NZ`rZLkZq8r7IZiZkk 8 s q | kн Z)*>>` @ $(,048<@DHLPTX\`dh 0ުlptx| . .V  JJJJH 8h Ei 8EX`'8`jWC)p> pCYY 轊( ( BV ( p0 \BkJ @i> i'j:ZH i@ioZZH h ȭnWǥBJ 8X>` +>INPUTuHUSTON! '  '*INPUT.DEMO ! INPUT.LM/ ! +INPUT.FICHE!A ! ANAGRAMMEuHUSTON! '  '.ANAGRAMME.DEMOv ! ANAGRAMME.LM= ! EXAROUTuHUSTON! '  'EXAROUT.DEMO ! EXAROUT.LM< ! EXAROUT.MENU'  ADRECRuHUSTON! '  '+ADRECR.DEMO ; ! ADRECR 3 ! ????.----->?????----??VIII-RII????7----5????7----5????7----5????7----5????7----5????III@@@@ MEMORY LANE =========== .mI5?.---5???wI 5ۛ----???oII *--->???.M)?-?-M?.---???III?I---????.mI5?.---5????.5?.---5???IIIRIw-M 5?.mI5?.mI5?.mI5?.---???VII RIw*--????.mI5?.---5????.5?.---5???IIIII)5?7-- -?????-----????7----?--???7mI7---???N ->7---??II >I?.5?--5??w)5?.5?.?7-5?VIM*mI5?.mI5?.mI5?.mI5?.---???VII *mI5?.mI5?.mI;w--?.5?VII*mI 5?.m)M5;?.m)M5;?.m)M5;?.----??III I*mI5?.mI;w-->?-M?.mI5?VIII*mI5?.mI5?0($ p,&"op8`kkV꽌ɪɖxl*k-kmMl 꽌ɪ`8` ZsDE8T8Wpq 7I꽌ɪ꽌ɭ蠪:VE:8`]V]H)]V])]T])] >8hUD` Y`> Hh݌(`HCJJJJ)*h`% ʽ  ٚ,S` w $݅3`(l8L"3L>(Ƀ,`3,G0]ɾ ` w`پ_پ p _پ׾`>( p۾m׾) W)ʩ@`ɾ>(O puȾ ɾ-O c־Jjjj 왻ɠ, XLޭBDEF޾ p 7 ޾ p($ذ (0 U( L?ԦʚLeةީ s +  L ,FL,DLE,C0!3 > Ɉ 3ɾL(3ɾ;Ƀ UB94 H06172839h` 97L75v^͘ ?/( ?LKLLɍ$?`? ɍɥAH93827160hH46576879h`,C Lޛ $0. ɍ  ,S0 ?@ L L ŠϠŠà͠ӠàԠŬ! !5).莀/ ! !!!!! !!$ ! "<" !!뭳!!!!ILYL 8!9!詍` ! !ՠî򠠠!STARTUP/p$# {  { / XXύX?klmnÍoL) !6L'!(0`670! = ***)<JJH !h穖tp% !Z/݀!!'  &@DEF   %LҠؠӠ΢ϠԩҠŠƠԠԠŠӢɯϠҠůȠԠĠ  ɘɉ ɈL :Lɍ)ې)ɮ۰ɺH h 'ĝL  LL L)'L L L'L  (L(L $ʩ $$ $L `ީ % XʩXύX X A %  % ɍNH hɛɘɉɈ $ Lc :Lcې)ɮ۰ɺ'Ɲ Lc  : X i % $ɛ$8V%&8V)HV)hH)hHIhդD?DRIDQD); ?JDQD]`MY pY)p  p`FGV 8``8L:HhHh VY>:Y)`;R?AJ;<ȰY)`Y?)`ȐҰ ;HhHh=`Hh `Hh`DEiȍ01`O>0O  矢POپھ p AH־Ǿh۰8L"־Jjjjɾ)Ⱦ8 + OL L$L>(F`־ؾپھ׾` Ʉ +KDEF L LK KɍKL"?`  L@3 @LtJ)s@J % `͘?s?,E30ɍФ3 +E3HD F3 Ʉ%h3 M +E  LthɍLL3`3,A0s0% IBT eօ ܬ L s򩣍S3 Ly B# e $L? L Y kimljn`  pg׾mȾXhؾmɾYtѮȾɾ YX`8gS ?@$I0 U)VJ *T)`l8`a HbIJhjǾȾɾ p٭b=a 5L壥>  5e>>?́?`>ȥj>>m>` T`m8injkiljo풼i>?Ek?>Q>;>:8o>oȑ>ppȑ>> :op` {KpnͶ @p;=po:i>?Ek?!>Q>>>̀ `` > ̀ `e>>?́?>?Emn(>e>ȱ>e?>Q>ؠ> ie>>?`|;}=:<~:<=;`||m}K`JJJJ8`轚K)` 7#hhL"Jپھ pHJh` {!hgt}~p  `~t}p8n~ni}tpi~~tsLo8pinii>j?k̈́>~|ppn + {pnI:L ؅30,3L]8^933LAAJL ةޘг uv $ 8LЌ Le p>?@`>?@`BQ8`e 矮K ⟩ 䟢 춼LK  z K"jÍgh I @8gȾhɾʾg׾hؾ  p hgͺ칾`L3V)jC mMjà Lp `VJJ°LyLp *)< LA * LAW)8VJưϥ3 ⟢켼 `F`4W)ɐ/XYjV) *8` h e`l׾ XYW0V):W׾ؾ_`)0%I0)3]8X^YȰ8` 8` p Ⱦɾʾ8`پھW)@%ZȾ pS[B?I>孓`仫6VtCicQĿUKqtVt Nʮq$6,⨁ K6, VtI=v!gNVt Vt  lg~TŠӠŠҠüϠž(+@ABCDEFGHIKLMNPSV     T[fouu~ՠٯ* PWN*]ĿNTz @n6VC/+A>@I5gN Oz @n[Dz @nd0,~z @`$仫@v$⩔,CTORENAMEBRUNLOCKCHAIN#FLUSHREADPOSITIONOMONPR#PREFIXCLOSEAPPENDx{[{0ǭ0hЫ}wA Xw­孶׭fl@@ -!S    !C- !ABELSDFRV@@ !$(19@E(8mȾȾmɾɾʾiʾ` Lpl8l:/[ҝƬƀ#(ZZV4D\-:% >M CgIY2m*b6>BSAVERIFYBLOADELETECATALOGOPENWRITEXECREATEFRES p` y־ǾҾ,G 8`׾ؾ  p жۥs׾tؾE` y ( о(־Ǿ,G 8`_`W)H־Jjjjh p̭ L;Ǿ ..8 ۭ }ȾȾI>Ie f`8` yP־ǾҾ,G0C =W)_``\"׾پӾؾھ pD`־ǾY׾ؾOW)ݩȾɾʾ pD`8`W)CB) ۵ 5W) )W)@! pZ}ȾȾ޾,N0MHhHh p' ,N HCNh`M`M N `޾Lp yh־Ҿ,G0^W)TP) ecfdپھ׾ؾӾ p$c d pccddީ 8`ȾɾʾNfne`_ 2Ͼ pH h8`jGMоM  G):_`蹀:`V)8`MN; ;`;C N8` G)̀#:蹀:`V)R y pH h8`Ͼо־ǾҾ_` EӾ pW) |LC`C N `9V) ß ` V) y޾ p` y (8` 8`8`(W)`_V)Ij!؍Í`_ jЭW)з#Ͼ p о־޾Ǿ` 8` 8`ɾ)ɾ̸ ɾɾ0miȾ p pY)ικ`lP y*,N!ǾȾɾʾ pǾ~H Uh8`8`,C U  8` 2ȾɾM$ mHݓǾ phϾ A ԟ ` ])Y 񩢍`Ⱦɾ0Ǿ p)莼 * 6 w= l& l8Hh l` 6Y׾ؾ+پھ p|پɾʾ`HV)jh츾$-ˌھپLp k V)@W0!XY aX6Y7` a YX`X:Y;τ<:: <`:8`'OV)Jj *f a  ԟ  ԟ ⟭ + +:ji  ԟɃ B , ԩ p`SW)0پȾھɾ p p 3LjÍ L I 9 1׾ؾ  p p 3 H h(`׾ؾ`  ߭׾t8퍼mؾŰ펼t폼 L8` L5LLL"L  KN)_ `@S8` ԠŬLL<