' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]L L}BBL] 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"_]` L/浍굺L  !"#$%&'()*+,-./0123456789:;<=>?  1#"""  (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0EB H  @H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`HIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   vLDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx ( - ՠ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / X ED / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(`i d .­z  uSSS-`******************************E ***** TRAITEMENT ERREURS *****i******************************o:|(P(222)2P5R$"PAS DE DONNEES "F$<P6R$"PAS DE FICHIER "F$F216,0:980:920:(13)(4)"BLOAD FAIRE.F1,A$6100":F24659,234:24660,234:24576LR:v*********************************** EDITION GRAPH ***********************************:49232,0D$"PR#1":(9)"G":D$"PR#0":870:!(16384)70ı::L768,160:769,0:770,76:771,44:772,254:768:D1024:Z60:240:D2000:Z62:240:DE:Z66:240:210DE:Z60:240:DE976:Z62:240:D1024:Z66:240:210Z,D(D256)256:Z1,(D256):1:220 190:3:958:12:"CE QUI PEUT DONNER A PEU PRES CECI: -----------------------------------"::"TAPER POUR FINIR" I11000: E16384:230:E17361:230:XX1:X5170 X0:160198:16368,0:16384,128,127:16368,0:,D-INT (D/256) * 256: POKE Z +1,INT (D/256): RETURN" :"Pour rappeler la page, il suffira d'in- verser les valeurs, comme ceci:" :"10000 D=16384:Z=60: GOSUB10020: D=17360: Z=62: GOSUB10020: D=1024: Z=66: GOSUB 10020" E1736 --------------- " d"10000 D=1024: Z=60: GOSUB 10020: D=2000: Z=62: GOSUB 10020: D=16384: Z=66: GOSUB 10020 n:"10010 POKE 768,160: POKE 769,0: POKE 770 ,76: POKE 771,44: POKE 772,254: CALL 768: END9 x:"10020 POKE Zn PAGE-0, exactement en 3C 3D 3E 3F (60 6162 63) et en 42 43 (66 67)." P::"D'OU LE PROGRAMME SUIVANT --> TOUCHE SVP":E16384:220:190:3:958 Z"SOIT A TRANSFERER UN ECRAN (1024-2000) AL'ADRESSE 16384 ($4000) ons pour cela la routine FE2C(CALL - 468), du Moniteur Auto Start (enm{moire morte)" <:"Elle d{place une zone pr{alablement d{- limit{e par A1L-A1H et A2L-A2H, vers la zone d'accueil d{butant en A4L-A4H."F F:"Il faut savoir que ces adresses sont e :(21):+G$(34):G1$G$"]"G$_:" DES OCTETS EN DEPLACEMENT ":("Ce petit programme autorise le transfertd'une zone m{moire dans une autre, pour-vu que les deux ne se chevauchent pas...bien entendu!"T 2:"Nous utilisER10ĺ"FICHIER VERROUILLE ";:R$:"":730]tER6ĺ"PAS DE FICHIER "F$" ";:R$:"":730~"PROBLEME IMPREVU ";:R$:"":73051,0::820:100:+$***********************************T.*** TRAITEMENT DES ERREURS ***}8***********************************B:L:ER(222)V460:ER4ĺ"DISQUETTE PROTEGEE ";:R$:"":730`ER9ĺ"DISQUETTE COMPLETE ";:R$:"":730,j6,76:787,3:788,3:789,96:PI63:LE40:1130:PI111:1130:PI141:1130:PI159:LE50:1130:REST100:1130:PI141:LE60:1130:PI159:LE255:1130:771,173:772,48:773,192:774,136:775,208:776,4:777,198:778,1:779,240780,8:781,202:782,208:783,246:784,166:785,0:78********:e16:A(64435):O(64448):A6(O223O240)T$"Vous disposez d'un Apple IIe":75A56A234T$"Vous disposez d'un Apple II ou II+":75A6O0T$"Vous disposez d'un Apple IIc":750,0:IIc":750,0:I8,3,96,169,3,160,46,32,217,3,960,1,96,1,0,17,15,251,183,0,64,0,0,1,0,254,96,1,169,5,133,34,169,20,133,35,32,88,252,169,2,133,34,169,24,133,35,96:********************************* Quel Apple travaille ? *************************I)C(4,I)I12L03756I,J:((1)2)1410dI112:ZC(2,I):C(2,I)C(3,I):C(3,I)Z:jp:*************************MINIMENU ******************************:525-:22:4::"1";::" EDITION "1((1)4):H3360:BONNE GRILLETmJ14:I112:L0:J(H)B(J,I)C(4,I):400r1((1)4)1390:MODIF DE CERTAINES LIGNESwB(J,I)1((1)9):B(J,I)C(4,I)B(J,I)1L1:395|B(J,I)C(4,I)B(J,I)B(J,I1)L1:395375 B(J,150:J18:X(49200)::XXX::445,6:K;*************************j@GRILLES ALEATOIRES *****E*************************J:OJ142:I112TP1((1)9):I1350YPC(J,I1)340^C(J,I)P:C(J1,13I)10PcI,J#hHA32SS2:285! A105SS15 I39T173:S0P A31S,T:A108SS2q A77A87A109A119SS2w  """:H$:O(H$):O49O52290 '525:22:7::O48Hĺ" BRAVO! VOUS AVEZ GAGNE! ":305 ," HELAS! VOUS AVEZ PERDU! "&1I****** : 16300,0 :? *************************_ TEXTE ET REPONSE ***** ~ ************************* : T$"Quelle grille du haut peut logiquementoccuper l'emplacement vide ?" T163:S7:I1(T$):SS7:A((T$,I,1)):801 N(N6)5:NN(64J)64:M81(I6):95N,M< K,J,Ih I112:J14:K19:NB(J,I):N0195 N(N6)5:NN(64J)64:M(I6)6:95N,M K,J,I : ************************* PAGE 1 VISIBLE *****  *******************(T$,I,1);:J1VI:X(49200):::0c:34,2:Eh32,5:33,35::*********************E:SJ22:"ENFONCEZ UNE TOUCHE POUR LA REPONSE SVP":345O22:"ET UNE AUTRE TOUCHE POUR TOUT SAVOIR...":345T22:" UNE TOUCHE POUR LA SUITE "Y198:16368,0:16384,128,127:16368,0:"^I1(T$):*********************:n22:"<1> REVOIR LE TOUT <2> MENU DE DISQUETTE":345:R(16384):R49ė::50"R50ĺ:(4)"RUN MENU"'R27ĉ::,2851:6******************************;** MINI SOUS-PROGRAMMES **@*********E ELEC"`(FIN)ı&j216,0::520AI1AN:J16:K01:C(I,J,K):K,J,I:(4)"CLOSE ELEC":1130B22:1:"PREMIERE ANNEE POUR INITIALISATION ";AN$:AN$""(AN$)41090LAN1:ND(AN$)V(4)"OPEN ELEC":(4)"WRITE ELEC":AN:ND:I1AN:J16:K01:C(I,J,K):K,J,I:(4)"CLOS":(9)"T":49230(2565)N198:16368,0:16384,128,127:16368,0::540T:x*********************************** INITIALISATION ***********************************$:.1090>8(4)"OPEN ELEC":(4)"READ ELEC":AN:ND:"G$";I;"G$","G$"PEEK(I);"G$":"G$";:NEXT... et RETURN"] F:"...ou, pour une ligne de DATA:" P:"]PRINT";G1$;";P;";G$;"DATA";G$;";:FORI=ATOB:PRINTPEEK(I);";G$;",";G$;";:NEXT ... et RETURN" Z16368,0:16384,128:: 16368,0:16384,128:: DIRECT, tr}s simplement, de la mani}re suivante (il faut {videmment connaitre l'adresse d{- cimale du programme et sa longueur):" 2:"A = ADRESSE DEBUT : B = FIN: P = NUMERO de la ligne de Pokes pr{vue"5 <:"]PRINT"G1$";P;:FORI=ATOB:PRINT"G$"POKE :(21):+G$(34):G1$G$"]"G$_:"POKEZ VOTRE PROGRAMME EN LANGAGE MACHINE"::"Parfois, il est int{ressant de transfor-mer en autant de Pokes les octets d'un court programme en langage machine." (:"Cela peut se faire en MODE   64,F:I128,EI128,F:I0I531359 I192,EI192,FD :Z74m 180,Z:1963,Z:20128,Z:21192,Zs : ************************* CASES NOIRES ***** ************************* : I112:J13:K19:NC(J,I):N01:EDI: UX,I53,I:64,I117,I:128,I181,I:192,I245,Ia Z0,E53,E:64,E117,E:128,E181,E~ _E88E153ē192,E245,E d i: nY72:FYD:ED sIX546 xI,XI,Y:I64,XI64,Y:I128,XI128,Y:I192,XI192,Y$ }I,EI,F:I64,EI  24577G53004:(21)::D$(13)(4)IC(4,12),B(4,12)R560]#::3f(335l-:2*************************7TRACE DES GRILLES *****<*************************A:F230,32:16299,0KX0:D87 PIX726A$""A$A$" *** "+A$A$" * "=A$A$" * "OA$A$" * "aA$A$" * "sA$A$" * "A$A$" *** ":590:"A$A$"* *"%A$A$"* *"7A$A$" *** "=:H590:N :VS `A$""r(A$A$" *** "2A$A$"* *"<A$A$"* "FA$A$" *** "PA$A$" *"ZA$A$"* *"dA$A$" *** "n:x590::I $D .A$""$8A$A$"**** "6BA$A$"* *"HLA$A$"* *"ZVA$A$"* *"l`A$A$"* *"~jA$A$"* *"tA$A$"**** "~:590::U A$""A$A$"* *"A$A$"* *"A$A$"* *"A$A$"* *$A$"**** "pA$A$"* *"0zA$A$"* *"BA$A$"**** "H:S590:Y:aC kA$""}A$A$" *** "A$A$"* *"A$A$"* "A$A$"* "A$A$"* "A$A$"* *"A$A$" *** ":590::):: :A A$""/A$A$" * "AA$A$" * * "SA$A$"* *"eA$A$"* *"wA$A$"*****"A$A$"* *" A$A$"* *": 590:*:4B >A$""HA$A$"**** "RA$A$"* *"\A$A$"* *" fAE & POMME  H012" &L116C 0(A$,LH16,1)"*"ēXL,YHM :::S D:k NECRITURE DU TEXTE v XS(0) bH07 lL15 v(A$,LH5,1)"*"ēXL,YH : BR110:BZZZ(49200):: : ESPACE BR110:BZZZ(49200 A$A$"*************** "9 A$A$"************** "V A$A$"************** "s A$A$"*************** " A$A$"****************" A$A$"****************" A$A$" ************** " A$A$" **** **** " : ECRITURE APPL * ** *"& @A$A$"* * *"C JA$A$"****************"I T:R ^540X h:d rPOMME n |A$"" A$A$" ** " A$A$" **** " A$A$" **** " A$A$" *** *** *** " A$A$" ***************" "! A$A$"* * "> A$A$"* ******* * "[ A$A$"* ******* * "x A$A$"* ******* * " A$A$"* ******* ******" A$A$"* ******* * ** *" "A$A$"* * *" ,A$A$"****************" 6A$A$"*  <: FABC DU BASIC ( PXO62:Y14> ZI112:XXO10Iy dI710,830,950,680,1070,1190,680,830,710,1310,1430,950 n x: APPLE & POMME Y14:X10 210 X233:380 : : APPLE A$"" A$A$"***********  ::255:(21):12:1:" CE PROGRAMME EST SEULEMENT DESTINE AUX AMATEURS DESIRANT MIEUX CONNAITRE LE PRINCIPE DE L'ECRITURE EN HGR2 (PAGE2) "16368,0:16384,128::3:(CADRE 263,10199,10:199,24:63,24:63,10     $"EXEMPLES"::350:::" - $0800 = $08 (8 DECI) et $00 (0 DECI) - $21FF = $21 (33 DEC) et $FF (ou 255)":355: ******************************** LE CHOIX ***********te fait le reste de la besogne..."::350:1:U******************************y** POKER UNE ADRESSE HEXA ? ********************************:340:12:958::T$"Pour poker une adresse HEXA en DECIMAL: ":350:I110:"----";::T355B12:958:60,0:61,8:62,55:63,8:64947::TR$:335T12:958::+T$"On a pok{ en 60-61 ($3C-$3D) et en 62-63($3E-$3F) l'adresse de d{part du DUMP enHEXA que l'on d{sirait effectuer. Un CALL 64947 (routine de l'Apple) a en-sui *** ******************************0 :P :"2":::360:998:998 "ET MAINTENANT ? ---------------": "]100 HOME" "]110 POKE 60,0: POKE 61,8: POKE 62 ,55: POKE 63,8: CALL 64947" 355:11:TR$:330-922":8:13:T$"CALL-1022"::350::17:12:T$" d{place le curseur versla gauche d'une division... d'o| ler{sultat." 350:"":355:20:TR$ I1319:I:1:""::340 : : ****************************** ** DEUXIEME PAGE 2: PRINT A$;: C ALL - 922: CALL - 1008 : NEXT" x:T$" La premi}re":350:7:13::T$"CALL-922":350::13:13:T$" fait passer le curseur@ la ligne suivante sans changementde colonne (htab + 1).":350 }:v T$" La seconde":350:7:13:"CALL ZI112:A$;:922:1008:+ _:TR$B d:335:34,2::: i"LA LIGNE 110 COMPORTE DEUX INSTRUCTIONS INTERESSANTES : - CALL-922 et - CALL-1008" n3602 s"]110 FOR I = 1 TO 1 PAGE **1 (******************************7 -:D 2:"1":M 7360o <"]100 A$ = "(34)"A"(34) A"]105 HTAB 12" F"]110 FOR I = 1 TO 12: PRINT A$;: CALL - 922: CALL - 1008: NEXT" K355:15:TR$:330 PA$"A": U12:4F  :(21):lVITESSE10:22:1:"VITESSE D'AFFICHAGE (1/9) ";:VI$:(VI$)48(VI$)50VI(VI$)::8::" QUE VA-T-IL SE PASSER ? "::I110:TR$TR$"____"::2:TR$:34,2:****************************** #** PREMIEREڠŠҠԠ٠ՠɠϠРᠠ堠頠ޠ``۠ߠݠܠ      .1 "`נؠà֠ Π㠠⠠` ѠӠĠƠǠȠʠˠ̠͠䠠栠砠蠠ꠠ렠젠ࠠ    lLdlLdlL lLdlLdlLdlLdlL lLdlLdlLdlLdlLdlL lL lLdlLdlLdlLdlLdlLdlLdlLdlLdlLdlLdlLdqLdqLdqLdqLdqLdqLdrLdrLdr LdrLdrLdrLdlkL lmL loLdltL lvL lxL lzL l|LdlLRXZnH@#- ? ?K @0@T@S@W@P@R25u6?_qLdqLdqLdqLdqLdqLdqLdqLdq p A n T` n  n  q L,l BLOAD CARAC,A l  Un a tp > p Ln # p On Q p > p Ln # Q`Lc @@@ `P @xTDP@.0"0:1ID$"BLOAD CARAC,A"G6N232,G(G256)256HS233,(G256)NXX49236,0:49234,0:49239,0:49232,0:-:L*************************k!FONTE L$633 *****&*************************+:00:15D$"BLOAD CARAC,A"G:232,G(G256)256?233,(G256)DD *********?:D:::D$"RUN MENU":;*************************ZEDITION *****y*************************:1(9)"GD":::::" GRILLE-REPONSE = "H:(12):0440: 49236,0:49235,0:49239,0:49232,0::';::"2";::" AUTRE JEU ";::"3";::" FIN"Z22:32:"";:H$:(H$)1(H$)3450c530z(H$)505,465,475525::22:"CONFIRMER EFFACEMENT DONNEES PAR  ";:H$:H$"O"440I14:J112:C(I,J)0:B(I,J)0:Q0:J,I:(32):35APPUYER SUR UNE TOUCHE SVP ";:CH$::3:F V:H:M$(SA):SAS450T SAS450 22:1:868:"<1> REVOIR LES MOTS <2> SAISIE <3> FIN ";:CHOIX$:"":(CH$)49(CH$)51490 (CH$)440,220,510 :):370 hM$(I)M$(I1):( rS502501 |1407 :V *************************u *** LISTE TRIEE *** ************************* : 3::V3:H2:SA0:H1 SASA1:VV1:V19H1V4:H20* V19H20V4:H1:22:1:868:"" -> ................"8 V:7:"";M$(0):M$(0)""270M "(M$(0))16270g ,M$(0)"/"SS1:140 6V:23:"1> OK 2> REFAIRE ";:CH$:A(CH$):A49A50310 @A50270 JV:23:" " TIS11 ^M$(0)M$(I1)M$(I)M$(0*************************9 *** SAISIE DES MOTS ***X *************************^ : 22:"50 MOTS MAXIMUM (PAS PLUS DE 16 LETTRES" 3::13::"FIN DE SAISIE=/": S0:V5 SS1:VV1:H2:V19V6 S9H1 V:H:868:S;d::M$(50),nI110:T$T$"----":]x"SAISIE DE MOTS, TRIES AU FUR ET A MESURE";zT$:34,2:20:T$:35,1922:1:868:" <1> SAISIE DES MOTS <2> MOTS TRIES ";:CHOIX$:"":(CH$)49(CH$)50140CH$"1"220440:     @pxxx (x08`xx x(0x8`ڠŠҠԠ٠ՠɠϠРݠܠ ,$` L( L5 LD 8 XL XLR XQHPH RPhPhQ8 XL.0'L+ LfLLLLL ꥪLYԨé L ,-` Leh8PhHQH`hbihciHHb\ȱb]`ߚl hhHHHH`L⥠`ʆ  hdheHdHHHH08  X Xhdhe + eHdHHHeHdH`   q% 0 L0`,wyywxzzx,Hyw wȄffȪ yw fh0`h&Hwyxzwy wy h Lh` ` ` ` 憅` ` ᥠQP` L  8e`LԩLcغh8uhHvH` L L L~ 憅 L ʊ8$!  W$Li)$` LY L   hPhQP 8ePQiHHš`hh PȱPʘHH`dmlL mnL mpL mrL mtL mvL mxL mzL m|L m~L mL mL mL 8  #r 8  hs 8tL 8tL 8tL 8tL LdlL mLdmLdm LdmLdmLdmL mLdm Ldm%Ldm*Ldm/Ldm4L m6L m8L m:Ldm?L mAL mCL mEL mGLdmLL mNLdmSLdmXLdm]LdmbLdmgL.7,789,5.56,10000.9 ,.96"# Z. dUS6:O nI16:N:(N)ĖUS:N:130e xUS(((N))):Nk 1234.23,243.7,789,5.56,10000.9,.76 22:21::"PRESSEZ UNE TOUCHE": 198:16368,0:16384,128,127:16368,0 :T,1);:J16:X(49200):J,I:""4 :"]100 US = 6"X ("]110 FOR I = 1 TO 6 : READ N" 2"]120 IF NOT INT (N) THEN HTAB US: PRINT N : GOTO 140" <"]130 HTAB US - LEN (STR$ (INT (N))) : P RINT N" F"]140 NEXT" P"]145 DATA 1234.23,243 :(21):-29::"PRINT USING"::T$"L'APPLESOFT ignore le PRINT USING (c'estd'ailleurs dommage!), mais il existe de nombreux moyens pour pallier cette lacu-ne, en fonction des besoins, naturelle- ment. EN VOICI UN:" I1(T$):(T$,I > >!!1.!!!>> .!!!>>!>!!. !!!! ! !%%%%!!!!!!!!!!>!!!. > !!!!"""))))6""9!! ? ? >!> !!!!>!>>! >!!1."">"" !!!<<!!!?????<9"!!!/!!!8!  !?!%%%%%!!!!!!!!!!! !!!!!!< !!!! >!!!!!!>!!!! %%))"""""??6!)>>??>!!1.@ 677> '':9!!! 00*6*>1 >1%#! ?? ?? "" !!!"$ $ $     堳Ʈ䬠   쬠᭠P嬠P1嬠  > >##3.'##>> .3##>>#>#3. '### ## ++++#########'>##3. >0####### ++++6# #3## ? ? >#> ####>#>># >##3.##?#####<<##???<33"##?### <  #?+++++##############<####88? #####>###&+++&# ### ? ?6!Y&>>6?6>##3.@ 677> ':9### 0 0 *6*> >+'#0 ??0 ?00##? ###> $ $ $   -T(J,0)(T(J,0)12):T(J,1)(T(J,1)12)E::C(J,I,1)09601403,H8(((T(J,0)))):T(J,0);:1403,H15(((T(J,1)))):T(J,1);:::**** ATTENTION! CARTE MID ****:22:R3Ĺ34,23:(4)"PR#5":(27)"q":(27)"L020fHJ2020:4I2@p1403,H8(((C(J,I,0)))):C(J,I,0);lz1403,H15(((C(J,I,1)))):C(J,I,1);T(J,0)T(J,0)C(J,I,0):T(J,1)T(J,1)C(J,I,1):I6960:TR$:1403,H8(((T(J,0)))):T(J,0);:1403,H15(((T(J,1)))):T(J,1);:A2(A2$):A1NDA2NDAN17700*A2A14770j4::2:1403,27:"CONSOMMATION D'ELECTRICITE":3:TR$>NEA2A11::I1NE:4:1403,I2010::A1I1::H5:1403,0:TR$RA1A11ND:A2A21ND:IA1A2:T(I,0)0:T(I,1)0:\I16:JA1A2****(***** TABLEAU ANNEES *****L******************************R:Z:n20:1403,0:T$22:1403,0:"ANNEES A AFFICHE ";::ND"-"NDAN1;::" (X,Y) -> ";A1$,A2$ A1$""A2$""770A1$"?"A2$""ė:540 A1(A1$):Six factures annuelles ----------------------"s21::"* pour corriger ? pour obtenir le MENU"15::868:"-> ";:R$:R(49152)48:R1R4670R$:R90,750,750,690FIN1:1110::::**************************DU TABLEAU <4> FIN DE PROGRAMME "QDI1(ME$)25:5(I24)252:1403,54dN(ME$,I,25):jX:b******************************l**** M E N U *****v******************************:332,52:33,29:1403,53:17::"ATION D'ELECTRICITE ET COUT ANNEES "ND;"-"ANND1:2:T$&4:1403,51:(T$,29):14:1403,51:(T$,29)0:I514:I:1403,51:" ";:1403,79:" "::&:ME$"<1> ENREGISTRER FACTURE <2> SIMPLE CONSULTATION <3> EDITION * 1403,14(((C(AN,I,1)))):C(AN,I,1)2 :8 :\ ****************************** ***** AFFICHAGE DU MENU ***** ****************************** : 650 I110:T$T$"________":TR$TR$"--------":U1403,0:1:"CONSOMM1(V$):AS((V$,I,1)):(AS48AS57)AS46ı; h:B1:A r:e |****************************** ***** AFFICHAGE DONNEES ***** ****************************** : I16 4I2:1403,3:868 1403,7((C(AN,I,0))):C(AN,I,0);20( CRANMA:420:N1:CR0:100:470W N6(N6)ANAN1:N0:NDND1:198:110` 150| ":V:1403,18::A$:: ,: 6****************************** @***** CONTROLE CHIFFRES ***** J****************************** T:/ ^B0:I00:420:160$ V$KW$:350:B160 21:1403,0:" MONTANT FACT.-> ";CN$:CN$""C(AN,N,1)0CN$(C(AN,N,1)):A$CN$:V21:290 CN$"?"C(AN,N,0)(KW$):420:650 CN$"*"160 V$CN$:350:B210 C(AN,N,0)(KW$):C(AN,N,1)(CN$):4NI1:140 1 :I16:4I2:I:::420; NN1 19:1403,0::N;::" CONSOMMATION -> ";KW$:KW$""C(AN,N,0)0KW$(C(AN,N,0)):A$KW$:V19:290 KW$"?"ī650 KW$"*"N1NN1:160 KW$"*"NAN1N6:MAAN:ANAN1:CR1:1' :(4)"PR#3":+C(10,6,1),T(4,1)51070;(:_2******************************<***** S A I S I E *****F******************************P:Z32,0:33,49dCRĞn4:1403,7:NDAN1:CRĝ: xI16:C(AN,I,0)0            `" $(*))+( iR``iR`ɀi@R`ɠ1)***H*) `P`h)O``IQ**+i+R`!#` X ( H`h`'(OPw6`7 `Ɇ Ɏ ɉ L2`L`?L` `    堠ŠԠ'>  2064<  : o X`  ()     宠庠*    -  :350J::?T198:16368,0:16384,128,127:16368,0:^(4)"PR#1":(27)"n":(27)"L020":(27)"!":(9)"40N":10 routine APPLESOFT qui af- fiche gentiment, la valeur DECIMALE de A,X"N T$^ (4)"PR#0" ":"1> DEBUT 2> PAGE-2 3> IMPRESSION 4> FIN"; ,:36,0:"1";:36,9:"2";:36,19:"3";:36,33:"4"::340:X(16384):X4910 6X50ė:120@X51ĺ00 (dans le bon ordre) "R :"*ED24G "t :"*2048 (Extra, hein ?)" :"EXPLICATION: A l'adresse $45, on sauve- ----------- garde l'ACCUMULATEUR, et en $46 le REGISTRE X"F "$ED24 est une "Q :"]PRINT PEEK(6) + PEEK(7) * 256 "x :"]2048... ET LE TOUR EST JOUE!" T$ 340: :"AUTRE MOYEN, A PARTIR DU MONITEUR:" T$: "]CALL-151 "! :"*45:08 ANT= $0800)" dT$:340! n:p x"Pour transformer de l'HEXA en DECIMAL, le processus est inverse.":T$: "]CALL-151 " :"*6:00 08 *CTRL-C <:"]POKE 6,N-INT(N/256) * 256 "_ F:"]POKE 7,INT(N/256) " P:"]CALL-151 " Z:"*6.7 *0006- 00 08 (EN INVERS ::(21):z"Pour convertir rapidement une valeur DE-CIMALE en valeur HEXADECIMALE, il existeun moyen simple."T$"":I110:T$T$"____"::T$:("Utilisez la formulation suivante:":2:"]N=2048 (par exemple) ".       ̭Š򠠠ӠӠ̭à򠠠󠠠̭Ӡ堠̭ 堠``̭ѠӺ -̭Ԡ̭Ơ蠠̭ǠƠű"`̭̠䠠̭̭Π젠̭נŠű -Πű`@̢           ̭ɠ堠 -Πű  01448157617041832196011041232136014881616174418722000":22:5::"1";::" CLEAR PAGE1 ";::"2";::" SUITE NORMALE ";:H$:A%(H$)A%1Ĺ230,32:62450850:::50,255:::22:"RIEN N'EST PERDU EN TAPANT GOTO 2000"E PROGRAMME ***=***********************************C:D$(13)(4):D$"BLOAD FAIRE.COM,A$4000":D$"BLOAD FAIRE.LM,A$6000":D$"BLOAD FAIRE.MEVEC":832T$"":I110:T$T$"____":6E$"0001024115212801408153616641792192010641192132$",A$6100":24751:Tp16304,0:16302,0:(16301K),0:16297,0:230,K32:24576z24659,234:24660,234: ON EFFACE (AVEC 17 ET 42,ON ECRIT SUR LES TEXTES OU TRAITS EXISTANTS):************************************** DEBUT D6,00:7,04:8,00:9,80:24793:F46,00:7,80:8,00:9,04:24793:>6,00:7,64:8,00:9,04:24793:16368,0:16384,128,127:16368,0:820H:RK1: HI-RES PAGE 1\:12:"FONT ";F$:F$""ı: CARACTERES GRAPHIQUESfD$(4):D$"BLOAD"F 51,128g820:460:"TAPER POUR LE CATALOGUE ";:R$:R$"C"ĉ:::D$"CATALOG":R$::740u820:100{:*********************************** *** DEPLACEMENT DES ECRANS ************************************** :!***+*** IMPRESSION DE LA PAGE GRAPH ***T***********************************Z: CES CODES SONT CEUX DE LA CARTE BUFFER DE BIP:(4)"PR#1":(27)"L005":(9)"GLED":720:(4)"PR#1":(27)"L005":(9)"GLE"(12):(4)"PR#0":(4)"BLOAD"F$",A1024":::1:1:888:1002&460g01:23:"TITRE DE L'ECRAN ";F$:F$""İ820:630p:820D1:"":34,23:50,128NXP(37):A(36):bP(37):P23630lv198::100:*********************************958:T$::8***********************************a**** SAVE TEXTE OU BSAVE PAGE 1 *************************************:550:(4)"BSAVE"F$",A1024,L1024"::1:110550:(4)"BSAVE"F$",A8192,L8192"::1:110)832:550:I040:L%(I)160:C|L((E$,(P1)4,4)):I039:L%(I)(IL):dI039:L%(I)160DI:410jI3901:L%(I)160FI:430BF1D:C(39B)2:D1CC1D37,P:36,0:868:IDF:ICL,L%(I): :810:21:1:exte)4 6A%23530:CTRL-W (Bsave {cran graphique)n @A%24İ810:710:100:CTRL-X (Impression HGR simple) JA%25İ810:700:100:CTRL-Y (Impression HGR double format) OA%32110 T600:P23A39Ĺ2039,(H$)128:110 ^H$;:110 h:rA%1Č998:926:110:CTRL-A (D{but de ligne en cours)w A%2Č998:926:1008:922:110:CTRL-B (Fin de ligne) A%11Č998:110:CTRL-K (Ligne au-dessus) "A%10İ610:922:110:CTRL-J (Ligne suivante) ,A%19520:CTRL-S (Save {cran tent confirm{)= A%21Č1036:110:CTRL-U (D{placement ->)q A%27İ810:1030:Sortie du programme avec ESC A%8Č1008:110:CTRL-H (D{placement <-) A%171030:CTRL-Q (Quitter) A%26Ģ23:1:110:CTRL-Z (D{but de derni}re ligne)8 sans effacement)X A%30Č24693:100:CTRL-FLEX (Cadre avec effacement de page texte) A%12540:CTRL-L (Load {ventuel {cran) A%5İ460:23:1:"==== VOUS EFFACEZ VRAIMENT (O/N) ? ";:R$:R$"O"İ820:90 A%5ĉ::100:CTRL-E (Effacem%14340M xA%7İ810:880:198:16368,0:16384,128,127:16368,0::100k A%13İ610:340: RETURN A%16İ810:830:100:CTRL-P (Page de fonctions) A%3İ600:370:340:CTRL-C (Centrage) A%20Ĺ36,0:37,0:24696:100:CTRL-T (Cadre   256501100-::255:(21):>(L%(41):960D2:m<***********************************F*** SAISIE D'UN ECRAN TEXTE ***P***********************************Z:d1:24751nH$:A%(H$):A%31340 sA%6A%9A               H7 V$(CH)V$:VB0400' 500- :Q ******************************v *** AFFICHAGE MODE INVERSE *** ****************************** : VE:14::VV$;::" ";: :V$::120 :: $::110 ************************* ? J*** DECIMALE VERS HEXA ***d T****************************** j ^:} hV$"":L5130 rI1L:AS((VV$,I,1)):AS48AS57130 | 490:"DECI->HEXA = "; VB(VA16):CHVA16VB48:VAVB CH57CHCEXA VERS DECIMALE *** = ****************************** C :U VA0:L4130p 490:"HEXA->DECI = "; I1L:AS((VV$,I,1))48 AS0AS10290 AS16AS23ASAS7:290 130 "VA16VAAS: ,V$(VA):500 6: @*********************** d:( n35,18:VE2@ xVEVE2:VE17VE4q VE:1:868:"VOTRE VALEUR ";V$:V$""510 L(V$)1:VV$((" "V$),L) (V$)72230 (V$)68VA(VV$):360 130 : ****************************** *** H  ::E:" CONVERSION DECIMALE-HEXA ET INVERSE "::34,3`I110:T$T$"____":l(19:T$221:" FAIRE PRECEDER LA VALEUR PAR OU "<:F******************************P** INPUT VALEUR A CONVERTIR ** Z************     (4)"PR#0"6N@(4)"PR#1":(27)"n":(27)"L016":(9)"40N":(27)G$A "PRINT CHR$ (4)"PR#1": PRINT CHR$ (27)"n": PRINT CHR$ (27)"L032": PRINT CHR$(9)"40N": PRINT CHR$(27) + G$"...AVEC CERTAINES CONFIGURATIONSJ"La formule "G$"A = INT (A * 100) / 100"G$" est efficace."L90:"]PRINT INT (A * 100) / 100;"G$" - "G$"; INT (B * 100) / 100;"G$" - "G$"; INT (C * 100) / 100":(A100)100;" - ";(B100)100;" - ";(C100)100"90:80:: ,G$"1 1 1"G$ 90W :" ]PRINT INT(A+0.5)"GE$"INT(B+0.5)"GE$"INT(C +0.5)" :" Affiche: "G$"1 2 2"G$" (arrondi correct)" 90:80 T$"PAS PLUS DE DEUX DECIMALES":70:: "EXEMPLES: A = 1.499 B = 1.501 C = 1.9999--------":Dzarrement avec les chiffres qui sont @droite de la virgule (pardon: du point)."W 80 T$"ARRONDIR AU FRANC SUPERIEUR":70:: "EXEMPLES: A = 1.499 B = 1.501 C = 1.999 --------" :" ]PRINT INT(A)"GE$"INT(B)"GE$"INT(C)" :" Affiche: "ro- bl}me de l'affichage de NOMBRES DECIMAUXvous a donn{ du fil @ retordre." x:"Votre ordinateur personnel ch{ri {limineles z{ros les plus @ gauche de la partieenti}re des nombres (0.49 = .49), ce quin'est pas trop grave";O ", et il se comporte bia poudre en concoctant quelque fade imitation de lo-giciels qui ont depuis longtemps prouv{ leur efficacit{: Visicalc et Magicalc."L n:"Pourtant, vous avez certainement pondu, et assur{ment avec un certain talent, depetits programmes dans lesquels le p'APPLE":70:100@ F:1:1:868:21(T$)2::T$::34,2:: P198:23:12::"PRESSEZ UNE TOUCHE"::16368,0:16384,128,127:16368,0:::: ZI110:"____";::"": d"Rares sont les amateurs de programmationqui cherchent @ r{inventer l :(21)::-G$(34):GE$G$" "G$IA1.499:B1.501:C1.999w(12:7::"METTRE LE CLAVIER EN AZERTY":2:7:" POUR IMPRIMER, TAPER UN I "::7:" (ET ALLUMER L'IMPRIMANTE) ":80:(16384)73ė::320 <T$"LES NOMBRES DECIMAUX ET L   ԺԢ˨˨̢˨˨>u?vHei A Wh W WۊH $ h Я`%$  d W W Wۆ  $  `G$ }  b``X506,A%55!':X516S1:),L1A1A(AD)(6)(7)256]6AD1Ĺ58,(6):59,(7)u;AD2A(2)A(1)S1{@E165,6,10,10,10,10,101,7,133,7,165,8,10,10,10,10,101,9,133,6,96J169,1,32,99,254,96********************<* ADRESSE HEXA MISE SUR 2 OCTETS *d**********************************j :S0:10951: MISE A ZERO DU BIT 7 DES CARACTERES DU BUFFER X512515:A%(X)A%47A%60ĹX506,A%48:295A%65A%70S1: "15):%NX0:NL60:TI$""NL604NL2:NXNX1:NXNLĺ(12):NX1:NL60n((58)(59)256)A(2)220(12):(4)"PR#0"50,255:22:868:"<1> AUTRE LISTAGE <2> FIN DE PROGRAMME ";:G$:"":G$"1"45:::**************ST-ELLE PRETE ? ";:G$:"":# :K **********************************s * EDITION SUR IMPRIMANTE APPLE * ********************************** : 34,22:50,128:(4)"PR#"SL%:(27)C$;:(27)M$TI$""ĺ(27)"X"(14)TI$(27)"Y"(:" A ";::A(2): 16:"TITRE DU PROGRAMME (OU RETURN) .........................":18:1:"";TI$ TI$"?"130 16:958:"TITRE ";::TI$;::"";:G$:"":G$"?"160 18::"L'IMPRIMANTE E n10:1:"DEBUT DE PROGRAMME EN HEXA = 0000";:30:657H sAD1:270V xA%6395c }S1110 12:1:"& FIN DE PROGRAMME EN HEXA = 0000";:30:657 AD2:270 A%63110 S1130 AD1130 14:1:"IMPRESSION DE ";::A(1);:YPE DE CARACTERE (nNEqQPp) = ";:G$:G$"?"75S UI1324:G$(PI$,I,1)Ă:80{ ZLM%((PI$,I1,3)):C$G$:C$"-"LM% _8:1:"LARGEUR DE LA MARGE (MAX="LM%40") = ";:"";G$:MA%(G$):MA%LM%4095 dM$"L"(("000"(MA%)),3) iG$"?"80: 7* SAISIE DES PARAMETRES *N <**********************************T A: F20:T$:22:1:" PERMET DE REVENIR A L'ITEM PRECEDENT":35,19 K4:1:"SLOT DE L'IMPRIMANTE = ";:G$:G$:SL%(G$)48:SL%1SL%7SL%6SL%375/ P6:1:"T  4350::(21):9L14320:L2L121:L3L25PIL1L3:R:I,R:wPI$"n072N080E096q120Q136P160p144"#:5:"LISTAGE DE N INSTRUCTIONS EN LM":(T$"":I110:T$T$"____"::T$:34,3-:2**********************************&      D$(4):G$(34)<D$"OPENADR":33,30:D$"WRITEADR""PRINT:PRINT";G$;"A";G$;"PEEK(43634)+PEEK(43635)*256";G$;", L";G$;"PEEK(43616)+PEEK(43617)*256"(D$"CLOSEADR":33,40`:H$:""" H$"1"ADAD128:1001 H$"2"40; ::D 140$):L5506 FI1L:AS((AD$,I,1)):AS48AS5950< PJ ZAD(AD$)o d6,AD(AD256)256:7,(AD256) n:21:TR$:5:1403,0:768 x5:874 5:938 23:1403,10:198:"<1> SUITE <2> AUTRE ADRESSE DE DEPART <3> FIN DE PROGRAMME ";:E :(4)"PR#3"::2(4)"BLOAD EXAMEM.LM"nT$"--* LA MEMOIRE DE VOTRE APPLE *--":1403,23::T$:I110:TR$TR$"________"::2:TR$:34,3(:21:TR$223:1403,24:198:"ADRESSE DECIMALE DE DEPART => ";AD$:AD$""140 <L(ADs chiffres ne sont pas des multiples de 4mLa France a adopt{ le calendrier gr{gorien depuis le 9 d{cembre 1582... qui fut suivi du lundi 20 d{cembre 1582. Le 1er Janvier 1583 {tait donc un samedi"<1> POUR UNE AUTRE DATE <2> POUR FINIR ";:R$:R$"1"ĉ::x^:22:"POMME OUVERTE POUR SAISIR UNE AUTRE DATE":95~c:)hEst bissextile toute ann{e dont le mill{sime est divisible par 4, sauf si elle est termin{e par deux 0 et que ses deux autreVJ((VJ7(VJ7))7.5)@1V2:1:"CE JOUR-LA ETAIT UN ";:O6VJ0VJ7g;(J$,(VJ8)7,8):m@:E***********************************J** ON RECOMMENCE OU ON ARRETE **O***********************************T:>Y:22:868:***********4 *** CALCUL DU JOUR ANNIVERSAIRE **] ***********************************c : AN((VD$,4)):MO((VD$,4,2)):JO((VD$,2)) MO3MOMO12:ANAN1 "VJVJJOAN 'VJVJ2MO(.6(MO1))(AN4)(AN100)(AN400)2, H1S51165* H2(VD$S$)31165< H4S49165[ H5((VD$,1)S$)12165m H8S53165v 230 H2H5S$S$"/":HH1 H6S$S$"1":HH1 VD$VD$S$ :S$: H10HH1:170 : ************************ H1:V14:VD$"":VJ0I V:H:"VOTRE DATE DE NAISSANCE : "XD$:170[ H1VD$"":p VD$(VD$,H1):x S$ V:26H:S$:S(S$) H1S8190 HH1:1729H,(1729H)128:155:(1729H)47175 170 S48S59170 40I,1):M2$(" DLMMJVS",I1,1):I3:1::M2$::I2:1:M1$B d40H ik nX(49249):TEST POMME OUVERTEy sX12895 x: }*********************************** ** DATE DE NAISSANCE ** *********************************** :** 7** ECRAN DE SAISIE **S <***********************************Y A:s FI1L8:(J$,I,8): K32,29:::4:B$:" QUEL JOUR ":" ETES-VOUS ":" NE(E) ? ":B$: P32,0 U12:T$:20:T$ Z350: _I18:M1$(" DLMMJVS", :(21):%XD$"00/00/1900"WT$"":I110:T$T$"____"::B$" "aT$:J$"DIMANCHELUNDI MARDI MERCREDIJEUDI VENDREDISAMEDI ":L(J$)#70(A120:BRUIT(49200)::-: 2**********************************     [Z`D$(4)::D$"OPEN LISTE":33,30:D$"WRITE LISTE":0,59999:D$"CLOSE LISTE":33,40:$* ADRESSES DES 24 LIGNES * C ******************************I : 1024,1152,1280,1408,1536,1664,1792,1920,1064,1192,1320,1448,1576,1704,1832,1960,1104,1232,1360,1488,1616,1744,1872,2000MRAN 80 COL. *1 P******************************7 Z:j d(4)"PR#1":(27)"E";:(27)"L015":(9)"80N"y nE023:L x788,L(L256)256:789,(L256) 768 M$: (4)"PR#0":(4)"PR#3": : ****************************** $ M$"X":VARIABLE LIGNE D'ECRANV(4)"PR#3":: ACTIVER LA CARTE 80 COLONNES1:"IMPRESSION D'UN ECRAN 80 COLONNES":2:I120:"____";:(34,3::34,23:(4)"BLOAD IMP.LM"2:<****************************** F* LECTURE DE L'EC Tapez pour continuer ";:H$W H$"O"ė:] 10h X1582((1)404):X": ";:XX1:JOX11582(X4)(X400)(X100):JOJO(JO7)7:J$(JO)::n w 150F ::"CE PROGRAMME DE DEMONSTRATION ne fonctionne qu'avec une carte 80 COL. source, pas vrai ?"! Pq Z" PREM = JOUR - INT(JOUR / 7) * 7 (Le 0 est dimanche, le 1 lundi, etc.)"w d n" EXEMPLES avec --------------" xI17:J18:I15:36,J10 <" JOUR = ANNEE + 1 - 1582 + INT (AN / 4) + INT (AN / 400) - INT (AN /100) Le premier et le dernier jour d'une ann{e normale sont identiques tandis que l'ann{e bissextile finit un jour plus "; F"tard. Ca coule de":" ^ 1000:::(4)"PR#3":]1:20::" QUEL JOUR TOMBE LE PREMIER JANVIER... ? ":::J$(0)"DIM":J$(1)"LUN":J$(2)"MAR":J$(3)"MER":J$(4)"JEU":J$(5)"VEN":J$(6)"SAM"(" ANNEE = 1984 - 1 (Quel jour tombait le 1er janvier 1984 ?)2    z Ҡ Ӡ Ų ԮϠԠŮîϮƱààҠîӠàà îӮϠ Š ŮϠ ű ɠ Ӡ Š à ԮǠ ɮϠ Ů  Ԯՠ ԠЮЮ͠ Юͮ͠͠͠ ήӠ ŠϮϮ͠ҮҮҮҮҠҿ ŮƲŮàŮàŮŲ ڠ ԠӮؠ ҮҠ Ů͠ Ӯؠ ŮΠ Ů͠ Ů͠ ŮƱ ՠŠŮͮϠŮ͠ӮԠҮϠΠϠ٭ŠϠ5??7--u@@@C?.- ??N -5?*m ->??w- -.- ??N -5?*m ->??w- -q-R-3M13-u -3M1??6MIRR-53M1??N n ;6vIR-.-5--N1-36-NM13M1smNM13MN 5MI3MM N MMq-M13M1?w >?oI----NI-3--.-u j n >mN- -3--.-uI??.-5??.-5??.-u --5??7--5??7--.-uR-6.-k ii*3--.-u .-n >.mNI??MI vRR-53M13- N66-3M13--NRR-6.-uII1*-n .-u-R-3--.-u 3?w6N R-53M1?w >?oI6-3M13Mq *56--N *566?MM6M.-3MN5566-N5Rmni1niq-3M13M3M?n3Mq6666-u) ni1ni1niq-3M13M13Mq)3M13M13-u -3M1??6vI )3M13 .mN -n1?7M13Mq)-n?N1--N--66vIMM13M13M13-u M13M13MN IMI3MM3MM N M1s  3MqJM13M?6N --.-u .3---u  >RMI>--5???--wNI --ޛ-- *I--???.--7NI )s N -53M13- N)-n .-53Mq -n1?7M13--NJ)36M3--N--n1n1--N--n?76--N--n?76NII)-n3M13--N3M13M1??n n N --66--N1 -6j1.-NM1 M:N)N- ? ??N >?wqI66R66.N566u --NN n:?w1VIM7R?RINIVI 5)3M13M13--Nm-66*-u))sI--N)sIw1s-N>M13M1??N 6N---n?wI-u )-n?7M1s-N--66N -)3M?M1s-N)3M1?w `3d (0ALS\bm#.BM^p '8IWiy 1<BQ`k|,6EP^k| s 66N nR>666nII666nNmwO 190 pour en avoir unepreuve tangible... Allez-y!"m18:I1(T$):(T$,I,1);:Z15:BZZZ(49200):::23:"]HOME:GOTO190":21::198:16368,0:16384,128,127:16360,0:,35: POKE 66,35: POKE 67,04: POKE 768,24: REM CARRY=0"v 240::22:"PRESSEZ UNE TOUCHE":240: 60,00:61,32:62,208:63,35:66,00:67,04:768,24:7683I11000::T$" Ceci est encore en MEMAUX: il suffit detaper HOME et GOT CARRY=1"n 60,00:61,04:62,208:63,07:66,00:67,32:768,56:769,32:770,17:771,195:772,96:768 :"VERS LA MEMOIRE PRINCIPALE --------------------------"J " 180 POKE 60,00: POKE 61,32: POKE 6 2,208: POKE 63-------------------" :" 130 POKE 769,32: POKE 770,17: POKE 771,195: POKE 772,96: REM ROU- TINE $C311" " 140 POKE 60,00: POKE 61,04: POKE 6 2,208: POKE 63,07: POKE 66,00: POKE 67,32: POKE 768,56: REM CLC)"{ P"SOIT: 0300- 38 SEC 0301- 20 11 C3 JSR $C311 0304- 60 RTS" Z19:19:"ou";:32:"ou";::22:"18";:35:"CLC"::23 d240:: n x"VERS LA MEMOIRE AUXILIAIRE -------n passant nonplus par la routine FE2C, mais bien par la routine C311 de l'APPLE IIe."[ < F:"ATTENTION! LA RETENUE (CARRY) EST MISE A - 1 pour ECRIRE en MEM AUXILIAIRE (SEC) - 0 pour TRANSF en MEM PRINCIPALE ( :(21):F:"TRANSFERT D'ECRANS EN MEMOIRE AUXILIAIRE"::T34,2::("Quand on dispose d'une carte 80 COLONNESet de 64K de MEMOIRE AUXILIAIRE, il est bon d'y stocker certaines pages d'infor-mations."U 2:"Rien de plus facile, mais e     EC (13)(4)"BLOAD RUNTIME"(13)(4)"BRUN LOGIC.GRILLES.O" O,OU EST LE STYLO?,WHO'S HE?,QUI EST-CE?,QUEL?/QUELLE?,WHAT?,QU'EST-CE QUE?,WHAT?,OU,WHERE,QUI?,WHO?bTO BE,ETRE,TO DO,FAIRE,TO READ,LIRE,TO TALK,PARLER,TI WALK,MARCHER,TO WRITE,ECRIRE'l WHAT'S THIS?,QU'EST-CE QUE C'EST?,WHAT'S HE DOING?,QUE FAIT-IL?,HE'S READING,IL LIT,WHERE'S THE PEN?SK,BUREAU,GOOD,BON,HE,IL,IT,IL/ELLE,MAGAZINE,REVUE,MORNING,MATIN,NEW,NOUVEAU,NEWSPAPER,JOURNAL,NOTEBOOK,CAHIER,ON,SUR,PEN,STYLO,PENCIL,CRAYON,TABLE,TABLE,TEACHER,PROFESSEUR<X CE/CET/CELLE,THAT,CELUI-LA,THAT,LE/LE/LES,THE,CE/CET/CELLE,THIS,CELUI-CI,THIS:12:(T$,I,15)::?6:23::" POUR RECOMMENCER"X180:(16384)13Ĭb::h:&****************************0**** QUESTION/REPONSES ****:****************************D:NA/AN,UN/UNE,BOOK,LIVRE,CHAIR,CHAISE,DE PHRASE ? ":I1(T$)10::(T$,I,10)::X 32,12:13::33,27:35,22w A$:ZZ2:1:Z1:A$:100 ZZ1:A$:110 4:"--> ";A$ Z19450 :120::12T$"C'EST TOUT POURCETTE FOIS! A LA PROCHAINE!":I1(T$)1517:Y:B$:B$""320+ JC$:17:Y:868N TB$C$::"?"::ERER1:360V ^C$e h25:Y:C$p r37:Y |B$C$ĺ"YES":400 "NO"D$ X32X33:270 260 :YV1:ZY:(1):(V)9 Y1:1:T$" QUE SIGNIFIE CETTEAUT DONNER LA TRADUCTION...", 110:110:@ A$:YY1:XX1t X18X27X33İ170:130:YV::YY2:X33420 X18ĺ" DONNEZ MAINTENANT LE MOT ANGLAIS !" "X27ĺ" DONNEZ MAINTENANT LE MOT FRANCAIS!" ,1:Y::X;: 64:A$:100 @11::"PRESSEZ UNE TOUCHE":M 198:16368,0:16384,128,127:16368,0:S :w ****************************** **** REVISION D'ANGLAIS **** ****************************** : :::"COMMENCONS PAR DES MOTS ANGLAIS DONT IL VOUS F:! dZZ15:BZZZ(49200):ZZ:6 nI110:100::a x23:8::" PRESSEZ UNE TOUCHE SVP ":~ 22:958::3:ER0160 ER1ĺ"1 MAUVAISE REPONSE - ";:160 :ER;::" MAUVAISES REPONSES - "; :X;::" QUESTIONS":I11500:: 23:(  :255::(21):A7::" PETITE REVISION D'ANGLAIS ":V4:YV:D$(7):TR$"":I110:TR$TR$"----"::TR$:34,2(2402:<******************************F**** PETITES ROUTINES ****P****************************** Z     1090U8D$"OPEN"F$:D$"WRITE"F$:N:I1N:A(I)::G$E$:G$C$:D$"CLOSE"F$:1090_B870hL910nV:`******************************j***** TEXTE EN HGR *****t******************************~::D$"BLOAD HISTO.LM"%********************8***** FICHIER *****\******************************b:34,21::22:8:"TITRE -> ";F$:F$""9101320$22:O41080.D$"OPEN"F$:D$"READ"F$:N:I1N:A(I)::E$:C$:D$"CLOSE"F$:D1:H0:760:1O9920>H0O8R$"PAS D'HISTOGRAMME PAGE 1":980:920D0(O2O4O6O7)R$"AUCUNE VALEUR EN MEMOIRE":980:920H1O7O10O350,350,1040,1040,560,710,610,1250,970,260::22:1:958:8:R$::**********tre 6. Autres commentaires 7. Voir l'histogramme 8. Imprimer l'histogramme9. Fin de travail "I122525:8:6(I24)25:(T$,I,25)::17:8:"_________________________":958 19:8:"Option choisie ? ";:O$:O(O$)48:O************************\:|fT$"' ' HISTOGRAMME ' '":::I15117:12:(T$,I,17):pmzT$"1. Saisir des valeurs 2. Corriger des valeurs 3. Lire un fichier 4. Enregistrer valeurs 5. Corriger un tiI)(A)AA(I)SSA(I):' MA10I1N:V(I)(A(I)M):V(I)1Ģ22:1:"LA VALEUR NUMERO "I" EST TROP PETITE":NI:400 I(I)(A(I)10000S)100*:4:>******************************H***** M E N U *****R******KK3!38K:I(I);:39:"%":619:1:958:C$p22:"Autre commentaire O/N ";:H$:H$""H$"N"74019:1:198:657:C$"":F512767:(F)141C$C$((F)128):F19:1:958:C$:H0:O68701180:140 A0:S0:I1N:A(O5910XD1:870b::l2:(41(E$))2::E$:JvA((A))5lI1N:5I:V$" ":I9V$""33A:V$I". ";31((A(I))):A(I)" ";:H$(I(I)):K(H$):I(I)(I(I))690(H$,K1,1)"."KK1:700(H$,K2,1)"."7000 H0:760 :8 ******************************] ***** TEXTE ***** ****************************** &: 022:1:958:"TITRE ..............................";:E$""Ė7:G$E$; :7:"";H$:H$""590 DH0:E$H$N"A(N);:15:657:A$"":F512767:(F)141A$A$((F)128):Fh A$""A(N)0ĢN8:15:A(N):490 A$"0"NN1:500 A$"*"N1NN1:400 L(A$):L11400 F1(A$):G((A$,F,1)):G48G57400 F A(N)(A$) N1239AISIE DES VALEURS ":: hB$"":I110:B$B$"____"::B$ r"Vous ne pouvez pas saisir plus de 12 va-leurs. Pour stopper, tapez <0> et un <*>pour corriger une valeur." |B$:N0EN:N0 NN1 N8:1:V$" ":N9V$""A V$N". VALEUR -> 140:XB,YXB5,Y5 I( 49232,0f 198:16368,0:16384,128,127:16368,0::H1:O10910o 870u "{ ,: 6****************************** @***** PARAMETRES ***** J****************************** T: ^::11::" S****** :- 1,11,140279,140279,11,18 I1NI C(5C):CT AV(I)d XB(I1)Br Y140BA J0B:XJ,140XJ,Y:J 3: CONTOURS POUR HCOLOR=2 X,YXB,YXB,140X,140X,Y ARRIERE X,YX5,Y5XB5,Y5XB5,  25600:C2:3::8D$(13)(4):G$(34)B(1160Y2A(12),V(12),I(12)|<B10: LARGEUR DES COLONNES FA(49233)P870Z:d******************************n***** PERSPECTIVE ***** x************************     r 1 r n   LG` X q L,kRUN MENU #k  n B }p  LLkGD Ik  L~k GRILLE-REPONSE = fk  dn a p   n BLii p A n T p A n T p A n T p A n T X` p A n T p A n T p A n T Lj j   q  n ( m q  o q Li k q  7kJjk k X Xq Lj&CONFIRMER EFFACEMENT DONNEES PAR  Yj   qLjO q 5 j Lii n r Eo   n r p   n \ n q n o n \ n uq n o n Cn 1  r n n # n Lhi n r p   n \ n q n n \ n q n \ o q o n \ o q n o 1 ` k X Xq  Eo  wLi1 i  sLi EDITION i  wLi2 i  sLi AUTRE JEU i  wLi3 i  sLi FIN i  Xq  n o n \ n sq m n \ Eo q m  m n \ n sq n $q LOh n mLh n \ n sq m n \ Eo q m  m n \ n sq m n |n \ n sq m q Lh n mLhLg n \ n uq n \ Eo q o n io $ m m n $q Lg 1 r 1 q (n $Lf n \ n q .n o n n m n Wo \ m q .n `o o 1 r 1 r n  n TLdBQuelle grille du haut peut logiquementoccuper l'emplacement vide ? \d q Yp n o n pn n r q    sn 3o pn q n  n 4  n m o $Le o n r p   n r o   n r }p   n \ n q m n $Lc m o c *o m o n m c o m n o o m jq  m  m 1 r 1 r 1 r n r p   n r Eo   n r }p   n \ n sq m n $L;d m o c *o Pp  m n Pp  m n  n n  :n n o  n n o  :n n Gp  n n Gp  :n n n  m n o (q Lb n Pp  n n Pp  :n 1 o n p  n  n q  aq  n q  n  n "q  n  n n  n +q  n n  n 4q  n n  n =q  n n o ( m n >p q Lza n  n Fq  n 1 o m m 7n m n m r Oq  o  n  m n  m n o  m n o  m n Gp  m n Gp  m n` t___qtt p Rn "q   X p  q Eo  q  q l o  f {o > n T p > n T n m o m m r 5p  o  m n n m  n +q  n n  n 4q  n n  n =q  n n  n Fq  n    ŠŠŠ ,խwqq膸 J즸 , hhlP,q`h8uhv] :  ڢ hgʆbcb KLf/q ߠ :۩q` S0 L,Hh*Mȱڦhwx%ȱH J hwУ8 ewwx𴰺 抦5?wtsʆwx8dedЕБt Z Z ,խvqq ", ȹ,ȹ ,W,qewix8 Z ZCBw U  yUUwyVxz`ЗПwyxz`ywzx`GH o8 UpVUVƠ UVUʆoph3]eФk ЮU 4Г U 5,wЅƩѤ wU! 5Bē唐\tsʆbc83o񁪥pTopȆbcĂbUVdf0Ѓe8oph0L8 MLh8HH`BUUȥViлh8HH`З{y SՠUEowyywxzzxwIy:e \`hH,Hops8otpf,k8UlV*U$f&łkUŁdbUȥcUUŭSVŮKsłEUŁ< UV0ЅUŕȱU喰!0UUdUV0+UiUVmVn̢͊wUV0ЦyyUUݤh.QP$  e LWHhL:5~    eȱeLaL LRwwxȆwxwHw Jhw`w5U,w`,hbhcbwȱbxcȘHH`wȄ wep`0CBe]Q=b`LicbbbE0`Ġ``MMLeڢD ! SL3LH h%LddЉ`?0 HH chh ޥ Yަ`н  eE   ࠰>Ffee0  &ߢEX$ƫv` ꥪLYDcbbwyȱbxz`ݥܦL+3UV UwȱUx`wUȥxU`Ncbbȱb`cbbȥb`cbbȱb8塅堅PEncbbȱbe HH`0S,,hdehUhVhhHHU hehHehUU HHk`UiȱUiuкe& & &eeHHqUȥqUeFdO݅܆`ycbbȱbƫ8pM䡥UȥUU +뺠ЧUV욥VHUHthhЁ HHf ㈱ۺQi e 纼 +뺊i  e HH`iiiHH`(bcbebbePE1b]  0  j=i<<=kbޙץ,,stHʈcbhH ʈpoophMm X RQtPsh`bhH   `u" $(*))+( iR``iR`ɀi@R`ɠ1)***H*) `P`h)O``IQ**+i+R`!#` 6368,0: SANS CETTE REMISE A ZERO, LE PROGRAMME UTILISERAIT LA TOUCHE FRAPPE A LA LIGNE 40i 2768:2:2 765:::::::35,55 <65:: A16368,0:16384,128:L :(21)::*(4)"BLOAD CADRE1"9768:2:2R65::::::15,30Z65r#(4)"BLOAD CADRE2"(22:"PRESSEZ UNE TOUCHE QUELCONQUE, PUIS, IM-MEDIATEMENT APRES LE TAPER SUR LATOUCHE CHOISIE POUR TRACER LE CADRE..."Z -65:1  PHT 6*Lh3U@6*LPRW I@` / X   ` (` '$ %` A``  SPRWI` 4 X    ` (` '$ %` P(222):216,0:P5ĺD$"DELETE"FI$:10015@ .'"AUTRE PROBLEME" DB:D$(13)(4) T(12)5 "FICHIER ";FI$CFI$""ĀR10000:10^'10025'D$"OPEN"FI$:D$"READ"FI$:RR::D$"CLOSE"FI$'"ATTENTION! LE FICHIER "FI$" EXISTE!": ETC.'10: VOTRE LIGNE HABITUELLE$': EVENTUELLEMENT* )'   (4)"BLOAD EFFACEMENT"-780,32:90>780,255:90N(780,91:90_2780,255:90q<XX1:X420F198:16368,0:16384,128P::Z768:I11000:: Is{."D 22:" <1> SUITE - <2> SOLUTION DU JEU ";:H$::H$"1"ıU H$"2"260 ::"ET VOICI LA LIGNE 120 CORRIGEE:"::"120 IN = AC * I:MO = RA + IN:C = C + IN: AC = AC ";::"-";::" RA" "260"TOTAL REMBOURSEMENTS ";C" D U1(US$):(US$,U,1)"."ıM U: "Un emprunt (E) est rembours{ en (V) an- nuit{s." "Le montant de chaque annuit{ est {gal @:" " - E/V + Montant des int{r^ets (T%) dus sur le capital non rembour-----------------" nK1VB xINACI:MORAIN:CCIN:ACACRAX V$" ":K9V$"" IN(IN100.5)100:US$(IN):210:H1U MO(MO100.5)100:US$(MO):210:H2U V$;K;:14H1:IN;:27H2:MO K "----------------------------"  :(21):12:230:>"MONTANT DE L'EMPRUNT ";Ee("NOMBRE DE VERSEMENTS ANNUELS ";V2"TAUX ANNUEL INTERET% ";I<F"----------------------------"PII.01:CE:ACE:RAEVZ"RANG INTERETS MONTANTS " d"-----------    *******************9{*** Routine en langage.mac *** ]******************************c:A768850:B:A,B:::B0160,2,165,105,133,6,165,106,133,7,169,240,145,6,200,169,14,145,6,200,169,64,145,6,173,233,183,141,47,3,173,234,183,141,4U$" - PATIENCE SVP!":O$" POUR OPTIONS":R$"DEBUT"pXT$"INSEREZ LA DISQUETTE DANS LE DRIVE "D$:10:75]T$"& PRESSEZ POUR "R$:12:75:K82615b(0)1İ690g21:P$:T$O$" "R$:23:75:35,20l150q:v*******************************80*** Affichage pr{liminaire ***\5******************************b::?:I$"":650:768:D$((816))DG49152:M16395:N16605:G149168:C$(105),C(105)IT(C)(41(T$))2:P1:B15N34,2:X110:P$P$"....":8S*************1*** Run - Exec ou Brun ***U******************************[ :145:23:C%0:C(F)6S$"RUN":545C(F)20S$"EXEC":545C(F)52S$"BLOAD"!34,23:T$S$U$:75:(13)(4);S$;C$(F):::&:+**********7140:23:" CATALOGUE RELANCER QUITTER"W130:K67K81K82480k140:K67ī575K81T$"MERCI":23:75:19:R$"RELANCER":RL1:D$"1":14:600:140T$"SYSTEME RELANCE":75:3::1370: *****************%16450C$C$(F):XX1%X2%>X,((C$,XX0%,1))::110e818,0:819,13:115:X3%,C(F):110V:3:C$:R%1:260:R%0:285:********************************* Autres options *********************************:V:3:62071:C$(F):62067:C%1530[145:T$"Installer nouveau Bonjour (O/N)":23:75sC%1:130:K79415K63290K78395V:3:C$(F):285145:T$"INSTALLATION"U$:23:75125:115X0%16500:X1%X0%1:X2%X0%30:X363290YK49360#^K50335[cT$"Quel est votre choix ?":C%1:145:23:75:365hT$"Indiquez le nouveau ":145:23:75m130:L%1(K21K8)İ20:365rK63290wK65KH365|FB(P1)K64:VK645:C$(F)C$365%335'K63475%,K8K213352120:28586:\;******************************@*** Changer le Bonjour ***E******************************J:OT$"<1> AUTRE "(34)"BONJOUR"(34)" <2> RUN/EXEC/BLOAD":23:75:130TKBONJOUR> ACTUEL: ";:Q(C$)11:((C$,Q,1))160C$(C$,Q):62071:C$:62067:275] Q Q3011:(C$,Q,1)" "C$(C$,Q1)::C$::280 R%1ı 4:P$:30 145:L%1335"T$"Suite catalogue: <- ou ->":145:23:75:130:K13Z(Y2):Z16ZZ128, Z4CC1:240I C(C)6:Z0C(C)20:235Z Z4C(C)52o C$(C)(I$,D,30) GHGH1:GH9C$(C)"":CC1 : L%CB:CL%L%L%1 CB(CB)L%L%1 125:120:C$(I$,104,30):145V 3:1:868:"<**************2 *** Lecture du catalogue ***V ******************************\ : 64600:T$"Lecture du catalogue"U$:23:75:GH0 X1511:819,X:120:D34 YMN35:DD35 Z(Y33):Z0245 CC1:(Y)255CC1:240 ***) d******************************/ i:? n826,2:120J s826,1[ x805:72,0:o }818,1:819,9: G,128:G1,0:K(G):K79C%1475 34,2:35,20:: 22:958: 130 K13620 RLı : **********************************************B <*** Affichage centr{ ***f A******************************l F: KT(C):(T$,8)"RELANCER"ĺ(T$,(T$)8);::"RELANCER":: PT$: U: Z****************************** _*** Petites routines S 62361:(21):64600:62071:" CATALOGUE UTILITAIRE GUY-HACHETTE ":62067a0,1:575{K21PP1:PL%P1K8PP1:P1PL%831#A(P1)B:X1B:JAX:JC45(:(64X);::" "C$(J):-H63X:5:868:2: 7     )$% "[ % f L$'L`*********-*** PRINT USING ***Q******************************W":u'L(U$):LPL2:LP0310,ULLP1:(U$,U,1)(46)3151U6UL1;100):295:17U:U$;:21:R$;:U$((ME100.5)100):295:35U:U$W I1I10İ110{ I9ĉ:125:H$:95:V10:105: I NA9ĉ:120:H$:"":H$"1"İ95::Q3:MEMS:215 :90:115:H$:(H$)27ė:  : *********************CHAGE ***/ ******************************5 :A 90:95U ININ100:MSME MAMEIN(1(1(1IN)NA)):VA(MA100.05)100:QQ1:R$(VA):135:160 V10:105 I1NA:AMMAMEIN:MEMEAM VV1:V:I;:3:A$;D U$((AM100.5) DE L'EMPRUNT":0 Q$"NOMBRE DES ANNUITES ":P Q$"TAUX DE L'INTERET ":p Q$"MONTANT DE L'ANNUITE": Q165,170,175,100 ME(R$):100 NA(R$):100 IN(R$):100 : ****************************** *** CALCUL & AFFI"RESTE= ":- nA$" = ":R$" = ":_ sQ$"FIN = - AUTRE CALCUL = TOUCHE":130 xQ$"<1> REVOIR LE DEBUT <2> SUITE":130 }Q$"ENFONCEZ UNE TOUCHE POUR LA SUITE" 23:1:868:Q$;:H(36)2: Q140,145,150,155 Q$"MONTANTH:198:"";R$! <R$""Q1160P AI1(R$):AS((R$,I,1)):AS47AS5875p FQ3(Q3AS46)Č198:55 K:160:Q350 P205 U: Z22:1:958: _32,2:33,37:34,10:35,20:3:: d3:1Q2:Q$" ";::R$:: iA$"AMORT.= ":R$ ::(21):bI1404:I:1:"____":21:I:"____":::I221:I:1:" ";:40:" "::h:********************************* SAISIE DES DONNEES ***#******************************(:-Q02QQ1:135:130 723:    L'``` %&8 %&Đ%& $w -`Ԯ ۠ߠߠ   ``*    .1 : ڠؠà֠ Π ' ࠠ#`O   `ѠӠĠƠǠȠʠˠ̠͠   ޠ2      * ADRESSES DES 24 LIGNES * G ******************************M : 1024,1152,1280,1408,1536,1664,1792,1920,1064,1192,1320,1448,1576,1704,1832,1960,1104,1232,1360,1488,1616,1744,1872,2000,1616,1744,1872,2000A********** Z: dE023:Ll nILLA:16299,0:M$(E)M$(E)((I)):16300,0:M$(E)M$(E)((I)):: x(4)"PR#1":(27)"E";:(27)"L015":(9)"80N" I023:M$(I):: (4)"PR#0":(4)"PR#3": : ******************************#2 (4)"PR#3":: ACTIVER LA CARTE 80 COLONNESCM$(23):A391:"IMPRESSION D'UN ECRAN 80 COLONNES":2:I120:"____";:(34,3::34,232:<******************************F* LECTURE DE L'ECRAN 80 COL. * P******************** Z CE CF D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 DA --------------------------------------"@" . - < > AE AD A0 BC BE"J(4)"PR#0"T350::^198:16368,0:16384,128,127:16368,0: C A H . G"& 350:::::X ":"VOICI LES VALEURS HEXA DES CARACTERES:": ," A B C D E F G H I J K L M C1 C2 C3 C4 C5 C6 C7 C8 C9 CA CB CC CD --------------------------------------"T6" N O P Q R S T U V W X Y ???/ "B3B3- C5 C8 CMP $C8N "B3B5- C3 ???"w "B3B6- C1 C8 CMP ($C8,X)" "B3B8- A0 AE LDY #$AE" "B3BA- C7 ???": "A0 C5 D4 D4 C5 C8 C3 C1 C8 A0 AE C7" " E T T E HN"O "]FORI=46010 TO 46000 STEP -1: M=M+1: POKEI,ASC(MID$(A$,M,1))+128:NEXT" :"Apr}s cette op{ration, si vous faites unCALL-151, puis B3AFL, vous obtiendrez:": "B3AF- A0 C5 LDY #$C5" "B3B1- D4 ??? "B3B2- D4 C5 CD D5 CC CF D6 A0 CB D3 C9 C4"L x" E M U L O V K S I D"Y 350:: :" Si vous d{sirez remplacer DISK VOLUME par G. HACHETTE, vous tapez seulement enmode direct:" G$(34)::"]A$="G$"G. HACHETTE"G$"... suivi d'un RETURD5 CC CMP $CCD5"4 2"B3B4- CF ???"Z <"B3B5- D6 A0 DEC $A0,Xy F"B3B7- CB ???" P"B3B8- D3 ???" Z"B3B9- C9 C4 CMP #$C4 d:"Seules ces lignes nous int{ressent. En effet:":" n"A0L(4)"PR#1":(27)"N";:(27)"L015";:(27)"!";:(27)"D61":(9)"40N"[ G$(34):"Entrez dans le MONITEUR par un:"::"]CALL-151... suivi de RETURN et de...":"*B3AFL... puis RETURN":"B3AF- A0 C5 LDY #$C5" ("B3B1- CD       D$(4)::L$(250)!809D$"OPEN LISTE":N0T(D$"READ LISTE,R"N:R${2(R$)13L$(L)L$:L$"":LL1:70<L$L$R$FNN1:40P216,0:D$"CLOSE"ZI1L:L$(I): DIU`ȍT`(ii>ji?F `P``P`144,5,173,245,183,133,12,96S ET APPELLE CELUI-CI **B ***********************************H : 169,0,141,235,183,165,9,141,233,183,165,8,141,234,183,165,6,141,236,183,165,7,141,237,183,165,227141,244,183,165,10,141,240,183,165,11,141,241,183,169,183,160,232,32,217,3, :22:958t " VOUS POUVEZ INITIALISER TOUTES VOS DISQUETTES (";::"VIERGES";::") AVEC VOTRE NOM!" 16368,0:16384,128 :: : *********************************** ** INITIALISE LA TABLE IOB ** ** DU RWT227,1:768:$E3 LECTURE = 01Q xX0:I837883671:XX1:I,((N$,X,1))128: }X0:I46010459991:XX1:I,((N$,X,1))128: 227,2:768:$E3 ECRITURE = 02 22:1:"<1> ECRIRE VOTRE NOM <2> TERMINE => ";:R$:R$"1"35 N$""1600B **/ Z***********************************5 _:[ d6,2:7,2:8,1:9,96:10,0:11,32 i$6:PISTE 02 - $7:SECTEUR 02 - $8:LECTEUR 1 - $9:SLOT 6 (*16) n$0A & $0B:ADRESSE DECIMALE DE LA MEMOIRE TAMPON ($2000, soit $0020 @ l'envers...$20=32)  s 2N$((N$" "),12)/ 78:5::N$:u <22:1:"<1> BON A ENREGISTRER <2> A REFAIRE => ";:R$:R$"2"35 AR$"1"60 F: K*********************************** P** TRANSMISSION DES DONNEES PAR ** U** DES POKE AUX ADRESSES $6-$ ::(21):+I768822:R:I,R:FI110:T$T$"____":z:" INSCRIRE SON NOM SUR UNE DISQUETTE ":5:"Pas plus de 11 caract}res!"#:20:T$:958(8:1:"NOM ........... ";:5:"";N$:N$""135-(N$)1140     E":6$198:16368,0:16384,128,127:16368,0::<.:a8 ******************************B ** L'AIR DU VAINQUEUR **L ******************************V:`1160:1150jRESTāX1REST::REST0:t0,255PI:1,LE:771:v~ 1050w:::I15614:9(I13)14:14:(" MAIS IL Y A LE H A S A R D! ",I,14):::"IL ARRIVE QUE L'APPLE ESCAMOTE UN ";::"ESPACE";:::" ET LE COUP EST PERDU POUR VOUS..."23:12::"PRESSER UNE TOUCHLA PHRASE EST TROP COURTE, ON ESTPENALISE ET ON EST EGALEMENT PENALISE SILE TEMPS MOYEN DE REFLEXION DEPASSE HUITSECONDES PAR COUP. S'IL EST PLUS COURT, IL Y A BONIFICATION...1::"L'ENVERS NE VAUT PAS VRAIMENT L'ENDROIT!":I14:" "T$(I)::N ELIMINANT UNE LETTREQU'IL FAUT DECOUVRIR DANS UN MINIMUM DE TEMPS."T$(3)"ON NE TAPE QUE DES LETTRES CAPITALES ETPAS DE PONCTUATION. UTILISER LES FLECHES<- ET -> POUR LES ESPACES ET LES CORREC-TIONS, LA TOUCHE POUR TERMINER."T$(4)"QUAND ** TEXTE DE PRESENTATION **P***********************************V:T$(1)"LE JOUEUR TAPE UN GROUPE DE MOTS (OU DELETTRES) DANS UNE FENETRE (24 LETTRES AUMAXIMUM)."ET$(2)"L'APPLE RESTITUE AUSSITOT LA LIGNE,MAISA L'ENVERS... ET EAUTRE TOUR/AUTRE PARTIE/FIN **H>***********************************NH:]R19:1:T$\21:1:"<1> SUITE <2> NOUVELLE PARTIE <3> FIN ";:R$f0,0:120p(R$)390,10,900z860:::***********************************'E:LTLTMH:SCGA10TJ8TTJ24LTn1:1:868:"VOUS AVEZ TAPE ";::LT;::" LETTRES - SCORE:";::SC: 3:1:"-TEMPS: ------PERDU: ------GAGNE: -"3::8:T;:23:PE;:38:GA: :************************************4** (***********************************.:A:14:1:868RE$"GAGNE!":GAGA1:XELGAGA1:PEPE1:RE$"PERDU!":720112014:8:"C'ETAIT UN";::1:RE$;:19:(EL)::*******ACTUALISATION DU SCORE **:#TJGAP(1)H):MHH-DHH1793:I11941193MHLNISUPL1:EL(H)64:610_XIPL,(H)128ibHH1plIv:14:1:"QUELLE LETTRE A ETE ESCAMOTEE ? ";:150:************************************* QUELLE LETTRE A ETE ESCAMOTEE **74:420 A32A21A96:4703 A65A90420< 140M H1793,A64a HH1:H25100j 420p : *********************************** ** LETTRE ELIMINEE ET AFFICHAGE ** *********************************** &:0SU1194(DE TEXTE **5 h***********************************; r:t |:10:33:"ESCAPE":11:33:"POUR":12:33:"FINIR"} 130 :H1:PL0 "........................ "; 7:H:"";:M$:A(M$) A27H15HH1:560 A8H1HH1:H1793,1I:" ";:30:" ":: 130/ DE1794:P278W IDE1819:X(49200):I,(IP)128] n P337PP1w "140 ,ARRET(49249):AR127380 6P337İ140:250 @260 J: T*********************************** ^** SAISIE DE LA LIGNE 16368,0:16384,127:16368,0:X(16384):X64X91690Q I:TT1:T::150W : *********************************** ** LIGNE ANNONCANT LE DEBUT ** *********************************** : 4:T1$:12:T1$ :I512:1:PROGRAMMES **9 P***********************************? Z: d:120::"ESCAPE SVP";::"";:M$:A(M$):A27HH1:120:560 n:100 x21:1:958: 32,2:33,26:34,6:35,10::35,7: S14:X(49200)::: 6:33::140:I125: ::(21):n"TAPEZ ICI UN TEXTE DE 24 SIGNES MAXIMUM - TOUCHE POMME OUVERTE POUR COMMENCER **** "I110:T$T$"____"::T1$(T$,30)((0)0Ĺ0,0:960-:2202:<*********************************** F** QUELQUES SOUS-