' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#07#0:"4<*55**5*%5)1)1)1)'#0/#0*5*75**5*:5/#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`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- (   Ϡ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*`******* ; ; SBR4 $0E SBR41 ($0B),Y #0 SBR42 ($5E),Y SBR43  $0D SBR42 $0E  $0E $0A SBR41 SBR43 $0E  ; ; TABLE 'GLR'  'MCH'  'PCH'  'PTR'  'REP'  'SCH'  'SKP'  00 ; ADSPG GLR;*************** ; ; SBR3 #$00 SBR31 ($0B),Y #$41 SBR32 #$5B SBR32   $0A SBR31 SBR32 ; ; ;*************** ;* * ;* SOUSPROG * ;* * ;* SBR4 * ;* * ;******** * ;* * ;*************** ; ; SBR2 ($0B),Y #$41 SBR21 #$5B SBR22 SBR21 $0A SBR2 SBR22 ; ; ;*************** ;* * ;* SOUSPROG * ;* * ;* SBR3 * ;* * $0A  $0B $E6BC $0B  $0A   ($8C),Y SBR0 SBR0 $E199 SBR0 ($8C),Y $0A  ($8C),Y $0B  ($8C),Y $0C   ; ;*************** ;* * ;* SOUSPROG * ;* * ;* SBR2 #$FF BON ($9E),Y ($5E),Y ID NEXT : $C0 ENCORE ; BON : $C0 RET ; ; ; ;*************** ;* * ;* SOUSPROG * ;* * ;* SBR1 * ;* * ;*************** ; ; SBR1  ; $0D  COMP ($0B),Y $9D TEST ENCORE $0A COMP IMPO : #$FF RET ; TEST : $C0   $0E IMPO $0A OK IMPO OK $C0 $0C  $0B $9E OK1  OK1 $9F $0E ID  0B  $0C  $8C $8D $E635 $DD7B $11 SUI $DD76 SUI : $E600 $0E  $0C  $0B  $0A  $0D $0E IMPO $0A IMPO $0E IMPO $0A  $0D $0E IMPO SUI2 : #0 ($5E),Y $9D $0A   $C0  $E3DD   $C0 GRL1A ; ; ;*************** ;* * ;* FONCTION * ;* * ;* PCH * ;* * ;*************** ; ; PCH SBR1 $DEBE   $0A  $$0D    $0A  $0D $0E SCH1   $0D $0A  SCH1 $0A $E3DD $8C $8D $E604   $0D  $5E $5F GRL1B SCHCH : $E600 $C0  $0D   $0C  $0B  $0A SBR4  * ;* SCH * ;* * ;*************** ; ; SCH SBR1 $DEBE $0A  $0B  $0C    $8C $8D $E635 $DD7B $11 SCHCH $E10C $A0 SCH1A SCHERR $E199 SCH1A $A1 SCHERR $0E  A  $0B  $0C  $DD7B $11 PTR11 $DD76 PTR11 $0C  $0B  $0A $E600 $0D   $0D PTR12 $0A PTR1 PTR12 SBR4 RET ; ; ;*************** ;* * ;* FONCTION * ;* * ;* FONCTION * ;* * ;* PTR * ;* * ;*************** ; ; PTR SBR1   $8C $8D $E635 #0 ($B8),Y #$29 PTR10   SBR2 PTR1 SBR3 PTR1 RET PTR10 $DEBE $0 $0A $E600 $0D   $0E SKP12 ($0B),Y #0 SKP13 ($5E),Y SKP14  $0D SKP13 $0E RET SKP14 $0E  $0E $0A SKP12 RET RET2 #$00 $11 $E301 $DEB8 ; ; ;*************** ;* * ;*************** ; ; SKP SBR1   $8C $8D $E635 #0 ($B8),Y #$29 SKP10   SBR2 RET SKP10 $DEBE $0A  $0B  $0C  $DD7B $11 SKP11 $DD76 SKP11 $0C  $0B  $0A $E3DD $8C $8D $E604    GRL1A $0B $0C GRL1B GRL2  GRL2 $5E $5F  $E5E6 ENTEX $E42A ; ; ;*************** ;* * ;* FONCTION * ;* * ;* SKP * ;* NIT,Y $0080,Y  CNB8 $DEB8 ; ; ;*************** ;* * ;* FONCTION * ;* * ;* GLR * ;* * ;*************** ; ; GLR SBR1   SBR2   #0 GRL1 SBR31 GRL1 "U"E25%13:E:G$!%(7)1%S1300:S7%% 269,85,269,100,269,115,269,130,269,145,269,160,255,160,215,160,195,160,175,160,155,160,135,160,115,160,95,160,75,160,55,160 ?& 55,130, 75,130, 95,130,115,130,135,130,155,130,175,130,1952:15:" ":G$A$:39404$22:25:" ":G$B$:3940Q$<10:10:" ":G$C$:3940n$F10:30:" ":G$D$:3940$P18:15:" ":G$E$:3940$Z18:25:" ":G$F$$dG$"B"E15$nG$"I"E17$xG$"S"E19$G$"C"E21$G$"R"E23%G$790 #E$(Z$,Z,1):ZZ1:3790=#B$(Z$,Z,1):ZZ1:3790Z#D$(Z$,Z,1):ZZ1:3790w#F$(Z$,Z,1):ZZ1:3790#3810#Z6Z1##2:15:A$#2:25:B$#10:10:C$#10:30:D$# 18:15:E$#18:25:F$#4020$(" PRESENTATION DU DEBUT%"2"$Z1426L".6:15:"*BIENVENUE*"^"88:19:"*A*"n"B12:Z:" "~"L14:Z:" ""VZ"`13:14:" ""j13:26:" ""tZ$"BISCRU""~Z((1)6)1"A$(Z$,Z,1):ZZ1:3790#C$(Z$,Z,1):ZZ1:3187!z 3:3M(G1),N(G1)!! J! ON EFFACE TOUT ON RECOMMENCE`! 49237,0:49234,0v! 49239,0:49232,0|! ! 0! Z159! M(Z),N(Z)! 3M(Z),N(Z)! Z! 1X,Y:2V,W! ZZ141,185:XX134,185! 6225,187:644,187"M(G),N(G)  PPPP14 M1Ē3:644,187:3370:S  M2Ē3:6225,187:3370:k MONTEE DE MUSIQUEz * Z52555 4 805,1:806,Z > 807 H Z R PP1Ē0:5150,11 \ PP2Ē0:5150,17 f PP3Ē0:5150,23:2730!p 0:644,187:6225, XX,ZZ 21XX,ZZ X$ _ 4130,15:150,29160,29:5150,23:5150,17:5150,11 715,25:824,25:933,25:1042,25 9123,0:7132,0:8141,0:10150,0 10231,25:9240,25:8249,25:7258,25  COUP MANQUE 0:352İ3170:3150$ X8İ3180:3150: X25İ3180:3150P& X26İ3180:3150f0 X43İ3180:3150|: X44İ3180:3150D 23XX,ZZN XX 3190b 22XX,ZZ:l 24XX,ZZ:v XX,ZZ:0,530,54 XX,ZZ:23XX,ZZ:21,5321,54 X15 h r TRACE DU DECORS+| :3:1:01 < X15G XX,ZZU 21XX,ZZ\ Xs XX,ZZ:24XX5,ZZ XX,ZZ:22XX1,ZZ X852 XX,ZZ X16İ3170:3150 X17İ3170:3150 X34İ3170:3150 X35İ3170:3150 X& :21:"VOULEZ-VOUS REJOUER ? O/N". A$H (A$)79QQ1::170\ (A$)78ĝ::f 2780 CHEMIN DES GATEAUX M(59):N(59) X159 M(X),N(X)" X, IMPLANTATION ROUTINE SON6 I807827@ JJ I,JT I^ ( COMPTABILITE POINT,2 ZZ20ī2660?< 0:ZZ141,185TF 3:ZZ1141,185`P ZZZZ1fZ yd 0:ZZ141,185n ZZZZ9x 3:ZZ141,185 0:XX134,185 3:XX1134,185 XXXX1  A$ (A$)272760 2730 :DESIRE?1,2 OU 3 "; A$& Z(A$)8 Z1Z32460O G0:AA0:EE0:FF0c BB((1)15)5s BB192500 CC((1)5)5 BBCC192520 JJ((1)5)5 (JJCC)BB182540 Z1CC1000 Z2JJ1000 MMBB:NNCC:IIJJ)272380B 2350L 4V NIVEAU DE DIFFICULTE:` @j Ft ~ :5:"1) LORSQUE LE DECORS SERA PLANTE , VOUS DEVREZ TAPEZ 'ESC' POUR COMMENCER." 8:"2) EN FIN DE PARTIE,'ESC' VOUS PERMET DE REJOUER." :21:"NIVEAU DE DIFFICULTE *"/"** Z ** ** > ** ** Z ** ** . **"a:"VOUS DEVEZ AIDER NOS DEUX AMIS A REMPLIR" "CORRECTEMENT LEUR MISSION." ::"ENOL"; :" VOUS Y AIDERA A TROIS REPRISES"$ 23:"APPUYER SUR 'ESC' POUR CONTINUER.". A$ 8 (A$DEUX CHEZ""::17:"BISCRU":I:7:"LEUR JOB CONSISTE A SAISIR"x:"LES GATEAUX ET A LES REMETTRE SUR LA ":"CHAINE A L'AIDE DES TOUCHES SUIVANTES":" APPLE II+ APLLE IIE":"** A ** ** + ** ** A ** ** ; *  MCH  PCH  PTR  REP  SCH  SKP ;  SKP ;  KPE$$18:25:F$$40208$(2:15:" ":G$A$:3940T$22:25:" ":G$B$:3940q$<10:10:" ":G$C$:3940$F10:30:" ":G$D$:3940$P18:15:" ":G$E$:3940$Z18:25:" ":G$F$$dG$"B"E15$nG$"I"E17$xG$"S"E19%G$"C:3790##C$(Z$,Z,1):ZZ1:3790@#E$(Z$,Z,1):ZZ1:3790]#B$(Z$,Z,1):ZZ1:3790z#D$(Z$,Z,1):ZZ1:3790#F$(Z$,Z,1):ZZ1:3790#3810#Z6Z1##2:15:A$#2:25:B$#10:10:C$#10:30:D$$ 18:15:,185" 6225,187:644,187#"?" PRESENTATION DU DEBUTE"R"$Z1426l".6:15:"*BIENVENUE*"~"88:19:"*A*""B12:Z:" ""L14:Z:" ""VZ"`13:14:" ""j13:26:" ""tZ$"BISCRU""~Z((1)6)1#A$(Z$,Z,1):ZZ13:2730#!p 2:644,187:6225,187;!z 3:3M(G1),N(G1)A! j! ON EFFACE TOUT ON RECOMMENCE! 49237,0:49234,0! 49239,0:49232,0! ! 2! Z159! M(Z),N(Z)! 3M(Z),N(Z)! Z! 1X,Y:2V,W" ZZ141,185:XX134  COUP MANQUE* 2:3M(G),N(G)6  PPPP1T M1Ē3:644,187:3370:s  M2Ē3:6225,187:3370: MONTEE DE MUSIQUE * Z52555 4 805,1:806,Z > 807 H Z R PP1Ē2:5150,11 \ PP2Ē2:5150,17!f PP3Ē2:5150,2XX,ZZ:21,5321,54 X15( XX,ZZ6 21XX,ZZ= XD  4130,15:150,29160,29:5150,23:5150,17:5150,11 714,25:825,25:936,25:1050,25 9122,0:7132,0:8141,0:10150,0 10230,25:9240,25:8249,25:7258,2550 X35İ3170:3150. X52İ3170:3150C X8İ3180:3150Y X25İ3180:3150o& X26İ3180:31500 X43İ3180:3150: X44İ3180:3150D 23XX,ZZN XX 3190b 22XX,ZZ:l 24XX,ZZ:v XX,ZZ:0,530,54 XX,ZZ:23h r TRACE DU DECORS*| :3:1:0J 2:X0191:0,X279,X::3P [ X15f XX,ZZt 21XX,ZZ{ X XX,ZZ:24XX5,ZZ XX,ZZ:22XX1,ZZ X852 XX,ZZ X16İ3170:3150 X17İ3170:3150 X34İ3170:31 :21:"VOULEZ-VOUS REJOUER ? O/N"- A$G (A$)79QQ1::170[ (A$)78ĝ::e 2780~ CHEMIN DES GATEAUX M(59):N(59) X159 M(X),N(X)" X, IMPLANTATION ROUTINE SON6 I807827@ JJ I,JT I^ ( COMPTABILITE POINT+2 ZZ20ī2660>< 2:ZZ141,185SF 3:ZZ1141,185_P ZZZZ1eZ xd 2:ZZ141,185n ZZZZ9x 3:ZZ141,185 2:XX134,185 3:XX1134,185 XXXX1  A$ (A$)272760 2730 :%ESIRE?1,2 OU 3 "; A$% Z(A$)7 Z1Z32460N G0:AA0:EE0:FF0b BB((1)15)5r BB192500 CC((1)5)5 BBCC192520 JJ((1)5)5 (JJCC)BB182540 Z1CC1000 Z2JJ1000 MMBB:NNCC:IIJJ )272380B 2350L 4V NIVEAU DE DIFFICULTE:` @j Ft ~ :5:"1) LORSQUE LE DECOR SERA PLANTE , VOUS DEVREZ TAPEZ 'ESC' POUR COMMENCER." 8:"2) EN FIN DE PARTIE,'ESC' VOUS PERMET DE REJOUER." :21:"NIVEAU DE DIFFICULTE D*"/"** Z ** ** > ** ** Z ** ** . **"a:"VOUS DEVEZ AIDER NOS DEUX AMIS A REMPLIR" "CORRECTEMENT LEUR MISSION." ::"ENOL"; :" VOUS Y AIDERA A TROIS REPRISES"$ 23:"APPUYER SUR 'ESC' POUR CONTINUER.". A$ 8 (A$DEUX CHEZ""::17:"BISCRU":I:7:"LEUR JOB CONSISTE A SAISIR"x:"LES GATEAUX ET A LES REMETTRE SUR LA ":"CHAINE A L'AIDE DES TOUCHES SUIVANTES":" APPLE II+ APLLE IIE":"** A ** ** + ** ** A ** ** ; * 173,48,192,136,208,05,206,37,03,240,9,202,208,246,174,38,03,76,39,03,96,130,215,130,215,100,195,100,175,100,155,100,135,100,115,100 & 95,100, 75,100, 55,100,55,70,75,70,95,70,115,70,135,70,155,70,175,70,195,70,215,70,215,40,195,40,175,40,155,40,135,40,115,40,95,40,75,40,55,40,15,40,1,40,1,55,1,70,1,85,1,100,1,115J'8,88,108,128,148,168,188<680,7,68,88,108,128,148,168,188a@100,7,68,88,108,128,148,168,188xJ120,3,108,128,148T140,3,108,128,148^10,3,108,10,1,128,10,2,148,10,3,30,3,108,10,4,128,10,5,148,10,6h50,7,68,10,7,88,10,8,108,10,9,128,1,1066,26,164,27,169,0,32,1,246,96 o 173,48,192,136,208,05,206,37,03,240,9,202,208,246,174,38,03,76,39,03,96 05,206,37,03,240,9,202,208,246,174,38,03,76,39,03,96 III807827SRI,SR%I+V 02,145,02,56,02,78,02,123,04,100  156,150,150,150,110,110,110,70,70,70 59,83,110,135,83,110,135,83,110,135  174,0,3,32,240,246,174,1,3,32,48,247,174,2,3,160,0,173,3,3,32,17,244,1D$(4): CTRL-D3D$;"BLOAD PARACHUTISTES.DESS" ***************** * ROUTINE DRAW * *****************I772804DRI,DRI ***************** * ROUTINE SON * ***************** 15175,50,1420,60:1490,40:14220,50?0,108279,108E **************** * * *INITIALISATION* * * ****************I09:XP(I):I09:YP(I):| *GRAPHIQUE 1&2 * ****************p0:10,4270,4:5,5275,5:0,6279,6:0,7279,7:0,8279,8Y915:0,Y279,Y:Y0,16279,16:0,17279,17:0,18279,18:5,19275,19:10,20270,203:1150,10:12120,10:13190,10 0:X60:Y140:6500^21:"ARRIVEREZ-VOUS A L'ARRETER OU VOUS CON-":"DUIRA-T-IL A LA TOMBE ?";::" QUI? ";::"A VOUS DE":"LE DECOUVRIR";cL$h  MARTEAU,L'EXPLOSIF,UNE PIERRE,UNE CORDE5@7:6000KJX250:Y100:6500`TX60:Y140:6500^21:"ARRIVEREZ-VOUS A L'ARRETER OU VOUS CON-":"DUIRA-T-IL A LA TOMBE ?";::" QUI? ";::"A VOUS DE":"LE DECOUVRIR";cL$h C0:Y100:6500TNT,L'AMOUR,LA VENGEANCE,LA FOLIE,POUR HERITER,SANS RAISON,LA RIVALITE,LEGITIME DEFENSEv LA CHAMBRE,LE SALON,LA CUISINE,LA SALLE DE BAIN,LE COULOIR,LA TERRASSE,LE JARDIN,LA CAVE,LE GRENIER,LE CELLIER( LE FUSIL,LE REVOLVER,LE POISON,LE POIGNARD,LEN,DR MALADE,MME GOURDE,PROF DUTILLEUL,ABBE RAY,M ROUGET,MR BLANCOb MR SAUCISSE,MME ROBERT,MELLE TRONIC,DR ELEC,MME SCAMBLE,MR STORM,MR TARAI,MR SECAM,MELLE PAL,DR TURBO,COL FROGGER,MR POMPIER,MME ALAIN,MR CENDIE,ME JOMASVl JALOUSIE,LA PEUR,L'ARGEX3,Y1X3,YX4,YX4,Y2X3,Y3X3,Y5X1,Y5X1,Y3X,Y1X,YnX2,Y5X2,Y6X1,Y6X1,Y8X3,Y8X3,Y6:X4,Y7X,Y7xAX MR LEGROS,MELLE JAUNATRE,ME MARTIN,MME DRUCKER,MR GROSVERT,MELLE BABLEU,MR BOUTEILLE,DR MIGNONNE,CAP FLACO64,2464,20:86,2096,2096,2486,2486,20t74,4070,4378,45140,47186,60194,72110,82106,88130,98250,10060,140170,140170,14260,142200,150212,150226,134214,134200,150:222,134222,126:219,129225,129:EdX,YX1,YX2,Y2:66,4066,3274,3274,40:48,2058,2058,2448,2448,20z55,1455,1059,1059,1255,12:62,1462,1066,1066,1262,12:66,1464,12:69,1069,1476,1072,1076,1472,14:79,1083,1083,1479,1479,10:86,1486,1090,1490,10+64,2080,2080,24,1,55,1,70,1,85,1,100,1,115j' 173,48,192,136,208,05,206,37,03,240,9,202,208,246,174,38,03,76,39,03,96,130,135,130,155,130,175,130,195,130,215,130,215,100,195,100,175,100,155,100,135,100,115,100 ' 95,100, 75,100, 55,100,55,70,75,70,95,70,115,70,135,70,155,70,175,70,195,70,215,70,215,40,195,40,175,40,155,40,135,40,115,40,95,40,75,40,55,40,15,40,1,40"E21%G$"R"E23(%G$"U"E257%13:E:G$A%(7)Q%S1300:SW%% 269,85,269,100,269,115,269,130,269,145,269,160,255,160,215,160,195,160,175,160,155,160,135,160,115,160,95,160,75,160,55,160 _& 55,130, 75,130, 95,130,115p@? &  !@@v` `0@  Lr֙XՙMԙ g&Lԍj<`hhHH:L`Lᢂ LE NOM D'UN MOT RESERVE. EX:"t8'"LA VARIABLE 'EN' PEUT ETRE CONFONDUE":"AVEC LE MOT RESERVE 'EN' (AT EN BASIC)"B'10500Wt':"VOUS POUVEZ OBTENIR LA LISTE DES ":"COMMANDES-DISQUE PAR UNE OPTION DU MENU":"EVITEZ D'INITIALISER UN DISQUE AVEC LE":"RESULTATS ETRANGES:MOTS NON RECONNUS,":"ERREUR DE SYNTAXE, ETC.. PAR EXEMPLE:"$'"UTILISER LES MOTS 'SI' POUR 'IF' ET":"EN MEME TEMPS 'SIN' POUR SINUS.".':"SOYEZ VIGILANT LORS DE L'ELABORATION":"DE VOS PROGRAMMES: UNE VARIABLE NE PEUT":"PORTERSPC(,THEN,AT,NOT,STEP,+,-,*,/,^,AND,OR,> ' =,<,SGN,INT,ABS,USR,FRE,SCRN(,PDL,POS,SQR,RND,LOG,EXP,COS,SIN,TAN,ATN,PEEK,LEN, STR$,VAL,ASC,CHR$,LEFT$,RIGHT$,MID$ '10500P':"UNE MODIFICATION INTEMPESTIVE DES":"MOTS FRANCAIS PEUT CONDUIRE A DES":LIMINER."!A$: H$ @  '@;`9UABLE:" :" 1 2 3" " * * 0 =>POSITION INITIALE." " 0 * * =>1 VA EN 3." !" 0 0 * =>2 PEUT ETRE E =================":"-IMPERATIF: AVANT LA PARTIE VOUS DEVEZ CHOISIR UN PION,PUIS L'ELI- MINER.":"***VOICI UN EXEMPLE DE COUP JOUABLE:":" 1 2 3" " * * 0 ==============="d"***BUT DU JEU: ==============":"VOUS DISPOSEZ DE 33 PIONS,IL S'AGIT QU'ALA FIN DE LA PARTIE IL EN RESTE LE MOINSPOSSIBLE A L'ECRAN.":"***COMMENT JOUER: ==============="$18:| "***APPUYEZ SUR 'O' POUR LES REGLES*** **** SUR ESPACE POUR COMMENCER **** "*4A(49152)>A$(A)HA$"O"İ2160::RA32ė:\49168,0f2100p&z" ***SOLITAIRE*** K" ***SOLITAIRE*** ==============="]::::::d5j"*** PATIENTEZ UN MOMENT ***":::5"***INITIALISATION***"1420 " ***SOLITAIRE*** 05N24,41,21,63,191,45,45,53,63,63,119,45,245,63,0LX24,24,24,24,24,24ob54,54,54,54,46,36,36,36,36,44l54,54,54,54,46,36,36,36,36,44v54,54,54,54,46,36,36,36,36,4454,54,54,54,46,36,36,36,36,4454,54,54,54,46,36,36,36,36,44,036,4,0#8,56,55,46,53,54,63,4,0A8,56,55,54,54,45,36,63,0\24,40,53,30,30,54,5,0{&39,44,53,54,54,63,36,36,0039,44,53,54,54,63,0:35,44,53,54,54,63,36,4,0D51,14,45,32,28,255,187,118,21,14,21,45,40,40,40,32,28,28,28,28,191,23,7,,1,12,2,3,3,3,2,2*1,1,3,3,3,1,151,2,1@1,2,113,0,28,0,34,0,45,0,54,0,63,0,72,0,81,0,89,0,98,0,105,0,114,0,138,0,155,03,32,49,54,54,5,024,40,53,62,55,54,45,4,0192,40,53,54,54,63,196,8,45,065,24,23,23,54,117,,148,1,1,168,1,2,188,1,3Yr70,7,68,1,4,88,1,5,108,1,6,128,1,7,148,1,8,168,1,9,188,2,10|90,7,68,2,1,88,2,2,108,2,3,128,2,4,148,2,5,168,2,6,188,2,7110,3,108,2,8,128,2,9,148,3,10130,3,108,3,1,128,3,2,148,3,31,2,1,1,2,11,1,3,3,3 |0&x`xF ~@<@@p80 0 `@ `F0 00``Fp`FaX@` p "``@1cH@@fp@@F&`px @'F1f0F1 @@@; #G88` 8|C@ F0"8@A @",080` 2p !pSp@`0@` 0:  0l`xLpA&`H@F`AC`@;`s@ca00 @d0 A ``>`Fp`FaH`9@p @60"`@1cx|@ l " p~B"`` @ ~q0F1L@@ @ `0 @!ps<pq```F"xa@ @"t `pa` ` p0cx8@~@@1`p@`"F0>@8`x>0L~0c@@f`G18  @ <>@F1 La@A`F?p`~aHqa@ b@"`@1cD @82@ |?p@"`` @ ~q0F1L@@p|@ `pp8`_y`@l " @"\~@`0F0 `B1`ap!p`@p@c 0`x@`@@<Dx~ 6@@@ x><8 @L1`~ @`@"`` @0 HF1f0F1 @@10`p``` S ` 88 &0| `2l6`@<~83``@@ @B0l@c7@p#0 @`C!`@y@`@p8p`@`D@x \@`8`~a`a`@0 F40x@Fp`Fa 6 c"@1" @0D`C`pp `"``60 @`0HF1f0F1 @a`` `^@ 8`d v 0 fAc?``8`qf```@ ``b0l1@ Ff`0`0`0A0@y|8`0`p`8:` D @`6`Fq?xG?|~Ax `?@0`H `0F 0P8`Fp`Fa NC<x>6"@1` @`d`fPp 0@"``@?c>8 @@`LFqxG?|~A A8p0` F0L8sx`0D`s `Nw@9`?8<             IODIVISION2PAR2ZERMODE2DIRECFAUTE2DE2TYPCHAINE2TROP2LONGUFORMULE2TROP2COMPLIQUEPO2OE2CONTINUEFPNCTION2NON2DEFINI2ERREUR2EN2 ARRETNLISRACAPTEFTABJUSQUFESPALORENOPAӫEOվSGINABUSLIECRMAPORAHALOEXFCOFSIFTAFATMEMLONCHVAASCARSCHGSCHDSCHIE2SEUINCORRECRETOUR2SANS2VAS/INFQUANTITE2ILLEGALHORS2CAPACITHORS2MEMOIRNO2LIGNE2ABSENINDICRESERVAT@FIREPETENCORDATENTROTRELIRGTEXTPRINLMS/CARRLIGLIGHGRHGRCLHPOINTRACETEINCONETROTECHSHPISTN-PISTNORMAINVERSCLIGCOULPOLIGNMMHMMBSIERRETERRCSTVITASVA-EFAISDBINFϦVA-S/RETOURESTOSELOATTCKSKDEMEMECRICO  !":.:ކLE+%,0 ` }  u +-ۦޝL\ۢ݅$܅% " \` `0:`8`4)EERAXNENTS (MENSUEL-TRIMESTRIEL)";:" DU MEILLEUR LOGICIEL PUBLIE."# :"CHAQUE SEMAINE, PLUS DE 20 PROGRAMMESݥ%ܥ!8݅i8!!#8ܥ܅% h Oޥeݦ!!$% " Ɉ8ɕ=ɍC&#ɠ)۰ܥ L@`LcإL@۰З  l Oߦޝ$ޢ #L{ڥHH J 'hh` uOPQ v3 X%$ "9 L<`ŠŠ ڦQPۢ݉, L*Lކک )# ޢS CB,,Lw ; " = ; ߅$0Т00߄$    膢 ȱ " <67 L  8ij v vo>>"FA$"<< FICHIER TROP GRAND >>":X0A$"<< 1 MOT INEXISTANT >>"u13:A$:16:"<< SAUVEGARDE IMPOSSIBLE >>"19:"<< APPUYEZ SUR (F) >>":22:26:A$:A$"F"5040T$(I)Z$3500+@D$;"PR#0":H7:34,0:33,40:32,0:35,24::H:ET$:J1X1:MEMLG,((T$(I),J,1)):LGLG1:JXMEMLG,128((T$(I),X,1)):LGLG1:IMEMLG,0:12:6:"<< OK  >>D$;"BSAVE BASIC.FR.OBJ,A$4000,L399"3500:7:"<< ATTENTION: ERREUR >>"10:"<< FICHIER INCOHERENT 5IE:12:" << TERMINE >>":14:" << APPUYEZ SUR (F) >>"i22:27:A$:A$"F"ĺ"":411012:6:"<< VERIFICATION >>":X0:I1107:W(T$(I))W0X0:5000XXW:X3995000ILG1:I1107:X(T$(I))X14570-4025A$"M"ī4050/18:1:"MOT?:";X$\(X$)1(X$)7ĺ"":18:1:868:406520:1:"OK (O/N)?:";:A$:A$"O"A$"N"4075A$"N"4025Z$T$(I):T$(I)X$:X0:W1107:XX(T$(W)):W:4:21:" ";:21:X:X3995000402ODIFICATION R)ECULE";::" < >";d1:7:"NUM:":10:"CLEF:":13:"MOT APPLE:":16:"MOT ACTUEL:"34,4:32,12:33,27:35,21:I1107:7:I:10:I127:13:MA$(I):16:T$(I)22:26:A$:A$"F"4500A$"S"4090A$"R"I1II1:";::A$:IM1ĺD$:D$;"PR#1". A$"F"3500BA$(32)3580K:IU<3500CT0:I1107:CTCT(T$(I)):I:34,0::10:"MODIFICATION DU FICHIER":10:"-----------------------"4:15:"NBRE DE CAR. (CT):";CT 22::"S)UITE F)IN M):"LISTE DU FICHIER":13:"----------------":3:" MOT FRANCAIS * MOT APPLE ":34,3w K1:I16:J120 K107J20:3570 (I1)20J;:5:T$(K);:18:"..... ";MA$(K):KK1 J D$;"PR#0"::10:24:"F =FIN ESPACE =SUITE"M"4000 A$"L"ĺ"":3501 :12:15:"LISTE DU FICHIER":15:"----------------":17:6:"E)... ECRAN I)... IMPRIMANTE" 20:25:"< >";:26:A$:26:A$:A$"E"A$"I"ĺ"":3525 IM0:D$;"PR#0":A$"I"ĺD$;"PR#1":IM1` 34,0::13L)... LISTE DU FICHIER BASIC":15:H:"M)... MODIFICATION DU BASIC":21:H:"F)... FIN":18:H:"D)... LISTE DES COMMANDES DISQUE" 23:25:"< >";:26:A$ A$"F"ĺA$:34,0:D$;"RUN BASIC FRANCAIS" A$"E"İ3014:3500 A$"D"11000 A$BLOAD BASIC.FR.OBJ,A$4000"3 I1120:T$(I)"":I; I1d & J1399:Y(MEMJ):Y0J399:3200 5 J19(J19)Ģ18:20:" ";:20:399J : T$(I)T$(I)(Y128(Y128)) D Y127II1 J 8000::H8:9:H:"E)... EXPLICATIONS":12:H:":"ATTENTION:LE FICHIER DOIT EXISTER AVANT TOUTE MANIPULATION.":::" TOUS LES MOTS DOIVENT ETRE DIFFERENTS":"ET NE PEUVENT COMMENCER PAR LES MEMES":" LETTRES DANS LE MEME ORDRE" 10000 :12:"<< PATIENCE: CHARGEMENT DU FICHIER... >>" D$;"RAMME PERMET DE MODIFIER LES MOTS DU BASIC EN FRANCAIS.LE NOMBRE DE MOTS EST 107 ET LE NOMBRE TOTAL DE CARACTERESEST LIMITE A 399."; "LE NOMBRE DE CARACTERES UTILISES EST PRECISE PAR CT.LE FICHIER MODIFIE EST SAUVEGARDE EN FIN DE MODIFICATIONS." Q17664:MA$(107),DO$(28,2):I1107:MA$(I)::I128:DO$(I,1):DO$(I,2): MAX120:CT0:D$(4):MEM16383:AD53456:T$(MAX):: ET$"******************************" BL$"* *" 3022 8000 :"CE PROG             ɍōĠӠԍ΍čˍɠōĠӠԍ΍ōٍčӍĠŠŠŠǍӍҍЍ EPROT,VERIFY,VERIF,WRITE,ECRIT I" On essaie encore,"CO$"FAIS "CO$:590E'#-------------------T(#ER19020i2#PP1:CO$IN$(P)r<#580F#"";C$:530:!!!!!'-- FIN DE LOGO --'::ER1ĺ"JE N'AI PAS TROUVE "C$:19203N::IAC%(C)\XIN$(I):IN$(I)"C'EST TOUT"ĺ:1920sb"";A$:A$""1910lIN$(I)A$:vII1:18809000:"-------------- Il reste de la place pour d'autres primitives"-------------------X$"/"K(CO$)X$(CO$,K,1):KK1:1790AY1((CO$,K))e630: ex{cution du d{placementz---------------C$"RIEN"9000!---------------&C$"MODI"19300(CO$,7)"MODIFIE"(CO$)9ER1:1920:C$(CO$,9):80"DEPAS((CO$,5)):1750>C$"PAS-"PASPAS((CO$,5)):1750gC$"PAS*"PASPAS((CO$,5)):1750C$"PAS/"PASPAS((CO$,5)):17501760PAS(N)PAS:9000-------------------C$"VA E"1820X1((CO$,6))K6:X$"".ERIFY"C$:1640J^790:216,0:C$" N'EST PAS SUR LA DISQUETTE":ER1:1680gh chargement apr}s verifrD$"OPEN"C$D$"READ"C$|NC$(DC)C$:AC%(DC)LIB:DCDC1200D$"CLOSE"9000:"------------------------------C$"PAS+"PASIN$(I):IN$(I)"C'EST TOUT"II1:1550;(4)"CLOSE"R"9000:"-----------g,C$"CHAR"1700w-C$(CO$,8).80:ER1ER0:15900"JE CONNAIS DEJA "C$::16906DC50ĺ"JE NE PEUX PLUS RIEN APPRENDRE":ER1:1690J1630TD$"VN$(I)"C'EST TOUT"II1:JJ1:1470<9000:"-----------QC$"SAUV"1580qC$(CO$,7):80: rechercheER1ĺ"IL FAUT DEFINIR UNE FONCTION AVANT DE VOULOIR LA SAUVER":1570IAC%(C)D$"OPEN"C$D$"DELETE"C$D$"OPEN"C$D$"WRITE"C$*-------$nCO$"VOCABULAIRE"1440<x::C0DC:NC$(C)YC(C20.01)2019ľA$`Cw9000:"-----------C$"LIST"1500C$(CO$,7):80:ER1ĺC$" N'EXISTE PAS":1490::IAC%(C):J0IN$(I):J(J20.01)2019ľA$%I 8192 8:Z:XI,Z:IW F#40286,105:40287,186: 141,139,192,141,139,192,76,60,212a P#8192 3T$:H:BL$:H:"* B A S I C F R A N C A I S *"K JH:BL$:H:BL$:H:ET$Q TW (# 3#(4)"BLOADBASIC.FR.OBJ,A$90D0":(4)"BLOAD MESS.ERR. BASIC.FR.OBJ":(4)"BLOADBASIC.LC.OBJ,A$2000" <#D$;"BLOAD MESS.ERR.DOS":D$;"BLOAD COMMAND.DOS" P#8192LOI" <23:36:"< >";:37:A$6 FA$"E"ĺA$:9000L PA$"X"ĺA$:9000x ZA$"M"ĺA$:D$;"RUN CREA.BASIC.FR.OBJ" dA$"F"ĺA$:D$"RUN HELLO" iA$"S"60 nA$:D$;"RUN BASIC FRANCAIS.SX"/ @D$;"PR#0":H7:34,0:33,40:32,0:35,24::H:E D$(4)6 ET$"******************************"_BL$"* *"g:q(8000 2H10:9:H:"E)... APPLE 2E":12:H:"S)... APPLE II+":15:H:"X)... APPLE II+ & CARTE 16K":21:H:"F)... FIN":18:H:"M)... MODE D'EMP  2,11,19,2,12,20,1,15,1,16,4,9,15,17,23,4,10,16,18,24,4,11,17,19,25,1,18,1,19 2,14,22,2,15,23,4,16,22,24,28,4,17,23,25,29,4,18,24,26,30,2,19,25,2,20,26,2,23,29,1,24,2,25,29,2,28,32,1,29,2,30,32 20,3,108,128,148"40,3,108,128,148,60,7,6(BUT)1nCS%(IN)1%xCS%(CI%)1+?:T1302:A:LT%24832YT1208aA%lT%,A%xT%T%1~232,0233,972,2,4,1,5,2,2,62,5,9,1,10,2,5,11L2,8,14,2,9,15,4,4,8,10,16,4,5,9,11,17,4,6,10,12,18,"DESIREZ-VOUS REJOUEZ ?";A$8 A$"O"A$"OUI"110>O:22:T1Vt(CA%A(T)BUTA(T):INB(T):1350z2<"COUP IMPOSSIBLE !!!":F:22PCS%(BUT)1ĺ"CASE D'ARRIVEE OCCUPEE!!!":ZCS%(IN)1ĺ"COUP IMPOSSIBLE!!!":dCS%FOAX%,AY%.LECT%LECT%1%8V,BT2L8VD`T133KjCVtV1C`~D(V)gVzCS%(T)11220V1CCS%(D(V))1ıVTT133CS%(T)1II1T95022:"IL RESTE : ";I;" PIONS"::pF2%2AY%AY%1*zF2%3AY%AY%1=F2%AX%2,AY%IAY%TR%PVWT]q:T1109:A:}LECT%1T17AY%NB%V1NB%AX%FO(CS%(LECT%)1)11(CS%(LECT%)1)12013AX%,AY%3 $31:0O53,4593,5163,5203,45203,115163,15593,15553,11553,45d:T1156:A:ToT17xAY% NBS%V1NBS% AX%*F1%4F2%>TR%AY%HF1%2AY%AY%1RF1%3AY%AY%1\F1%AX%3,AY%fAY%TR%CI%23A(1)9:B(1)16:A(2)31:B(2)28:A(3)21:B(3)22:A(4)25:B(4)24:1310CI%24A(1)10:B(1)17:A(2)32:B(2)29:A(3)22:B(3)23:A(4)26:B(4)25:1310CI%25A(1)11:B(1)18:A(2)33:B(2)30:A(3)23:B(3)24:A(4)27:B(4)26:1310)12:1310ZCI%16A(1)4:B(1)9:A(2)28:B(2)23:A(3)14:B(3)15:A(4)18:B(4)17:1310CI%17A(1)5:B(1)10:A(2)29:B(2)23:A(3)15:B(3)16:A(4)19:B(4)18:1310CI%18A(1)6:B(1)11:A(2)30:B(2)24:A(3)16:B(3)17:A(4)20:B(4)19:1310M)24:B(1)29:1310N XV4mbCI%9A(1)1:B(1)4:A(2)23:B(2)16:A(3)7:B(3)8:A(4)11:B(4)10:1310lCI%10A(1)2:B(1)5:A(2)24:B(2)17:A(3)8:B(3)9:A(4)12:B(4)11:1310 vCI%11A(1)3:B(1)6:A(2)25:B(2)18:A(3)9:B(3)10:A(4)13:B(4V1% CI%2A(1)10:B(1)5:1310F CI%5A(1)17:B(1)10:1310h CI%14A(1)16:B(1)15:1310 CI%15A(1)17:B(1)16:1310 &CI%19A(1)17:B(1)18:1310 0CI%20A(1)18:B(1)19:1310 :CI%29A(1)17:B(1)24:1310DCI%32A(1CI%31A(1)23:B(1)28:A(2)33:B(2)32:1310a CI%33A(1)25:B(1)30:A(2)31:B(2)32:1310 CI%30A(1)18:B(1)25:A(2)28:B(2)29:1310 CI%26A(1)12:B(1)19:A(2)24:B(2)25:1310 CI%27A(1)25:B(1)26:A(2)13:B(2)20:1310  13107 CI%12A(1)10:B(1)11:A(2)26:B(2)19:1310i CI%13A(1)11:B(1)12:A(2)27:B(2)20:1310 CI%21A(1)7:B(1)14:A(2)23:B(2)22:1310 CI%22A(1)8:B(1)15:A(2)24:B(2)23:1310 CI%28A(1)16:B(1)23:A(2)30:B(2)29:1310/ :B(1)2:A(2)9:B(2)4:1310I TCI%4A(1)6:B(1)5:A(2)16:B(2)9:1310x ^CI%7A(1)9:B(1)8:A(2)21:B(2)14:1310 hCI%8A(1)10:B(1)9:A(2)22:B(2)15:1310 rCI%3A(1)1:B(1)2:A(2)11:B(2)6:1310 |CI%6A(1)4:B(1)5:A(2)18:B(2)11::";A$:CI%(A$):CI%0CI%33230* 23k "N0 DE LA CASE D'ARRIVEE :";A$:CA%(A$):CA%0CA%33250 CS%(CI%)1ĺ"ERREUR,CASE DE DEPART VIDE,RECOMMENCEZ"::240 ID%(CI%)320,500,600 "1110 ,950 6230 @V2 JCI%1A(1)3o d25856'n::CS%(999),ID%(999)1x1940E:T1269:A:QT133]ID%(T)kCS%(T)1rT710:95022"N0 DU PION A ENLEVER :";A$:A(A$):A0A33190CS%(A)1950:22" "N0 DE LA CASE DE DEPART               000:"-----------) CO$"AU COIN"1340CCO%0:30:TR%01320ZCO%0:TR%1CO%7g#X,Y7,7(X7:Y7:Z0:CO%7:3029000:"-----------<F------------------PC$"NORD"1390ZCO%0:30:ZSQ:CO%7:30:9000d-----------L MANQUE UN 'REPETE' QUELQUE PART":ER1:1230P(CO$)CB%(NB)NBNB1:1230pCB%(NB)CB%(NB)1:PAB%(NB)9000:"-----------C$"OUBL"1290C$(CO$,8):80ER1ĺ"JE N'AI PAS TROUVE "C$:1280NC$(C)"":"J'AI OUBLIE "C$9`NN1:PR%(N)5jPASPAS(N):TR%TR%(N):AP%AP%(N)Lt9000:"-----------d~CO$"REPETE"1190N0ĺ"COMMANDE INTERDITE EN MODE IMMEDIAT":ER1:1180NBNB1:CB%(NB)1:AB%(NB)P9000:"-----------(CO$,4)"FOIS"1240-NB1ĺ"I"PAS="PAS((CO$,5)):PAS(N)PAS:90004 ------KC$"TEXT"ĉ:9000W------~CO$"IMAGE"ė:21:16304,0:9000------$CO$"EFFACE"1100.::130821B9000:"-----------LCO$"C'EST TOUT"1150VN0ER1:1140)2:9000------ACO$"N'ECRIS PAS"TR%0:TR%(N)0:9000M------CO$"APPARAIS"AP%1:AP%(N)1:CO%7:A16:XX(16336)::30:9000------CO$"DISPARAIS"AP%0:AP%(N)0:CO%0:A16:XX(16336)::40:9000------(C$n bas de l'{cranhfDC50ĺ"IL N'Y A PLUS DE PLACE EN MEMOIRE POUR UNE NOUVELLE PROCEDURE":ER1:970pNC$(DC)(CO$,6):AC%(DC)LIB:DCDC1z2009000:"-----------CO$"ECRIS"TR%1:TR%(N)1:9000------ CO$"GOMME"TR%2:TR%(NII- M)m -.mMi m???sIIIIIIۛI MIiI M mM M;?Smi-mMm?mIII m;??iIMI M Ji MIMiI MMiiJI MIJII MII?JIIMiIۛII --MI;SII -MIJIIiMI;IIII->?ۛIII -5??SII --;?JII--??SI MiJIMMIߛI mIIS -MIIJ MI??I-MII;S MIIJmm?S -MIIIIIIIIII?S --MIIIIIIIII?J ---MIIIIIIII??*---- -------------;???????????????I---- ----------m?????????????SI ---m-------mII?????????ۛII----M??????S)-------;??????? --------->???߿II?SII)mIIIIIIII;?SI --MIIIIIIII???SI -- --MIIIIII??*------m-----------????????????????I-----m---------M?????????????SI ---- -------MI;????????ۛRI-MIIIIIIIII?S -mIIIIIIIIII?SIII -mIIIIIII?SIII-mIIIIIII;?SII)---MIIIIII;????SI --MI MIIIII??????????????????------- ---------m??????????????SI----m--------mI;??????????JI -- -------mIIRIII-MIIIIIII?SII -mIIIIII)------ M)-----M???????????????SI -------------mI???????????JIIIiIIIIiI M;JII-----------mIۛIIIIIIIIIIIIۛIIIIIIIIIIIIۛIIIIIIIIIIIIۛIIIIIIIIIIIIۛIIII)mIIIIIII???SIIII)MIIImIIS -mII -mI-MIII??; mI-MIIIIIIII; mI)mIIIIIIII??W -mIIIIIIIIIIIIIIIIIIMIII;JIIIIII----MII;?????mIIII ---MI mI;???ۿ)-MII m -mII M;?;??????J3M -MI-m-mMi-mMi-m-m7 MMi -M-m3Mi-m M)- -mJIIIII)---MIII;??ۛIIII)MIII)MIISII -mIIII MII?JI mIIIIIIImI;?S)mIIIIIIII -m;J)-MIIIIIIIIISII-MIIIIIII-M?`u,7COZfr} Fiw--5*-3-5-5 --5M3 ?w-.--5M3-5.--5J1J1-5.-3-5-5.--5-5n1.--m-m-m-m-m.- M M -m-M*- -m-mM -mM -MI-m-m3-mi)m-mMI     )128 16368,0, XX21G1G11:3060D XX8G1G11:3060J m G116G116:XA130:G3:3090 G118G118:XA50:G9:3090 G117:XA90:G6 1 **************** *INITIALISATION* * PAGE * 155,10_ K1K d K10K110'n 06x K2219,10= 3L K1219,10R  ***************** * * *LECTURE-CLAVIER* * * ***************** (16384)128ı XX(16384 * * HIGHT-SCORE * ***************** H1(H100):H2((H(H1100))10):H3(H(H1100)(H210)) H10H110( H20H2102 H30H310< 0F H4145,10:H5150,10:H6155,10P 3Z H1145,10:H2150,10:H3:770,77:771,10:772:769,S5:770,82:771,10:772:769,S6:770,87:771,10:772 768,3:769,S1:770,77:771,10:772:769,S2:770,82:771,10:772:769,S3:770,87:771,10:772 @ ***************** * AFFICHAGE * * ************** * AFFICHAGE * * * * SCORE * ***************** S1(S100):S2((S(S1100))10):S3(S(S1100)(S210)) S10S110 S20S210 S30S310O 768,0:769,S40:J4KK1:K32120*:I01500:I3>120@HSHHSRM230,32:2655^NK0:S0oOI15000:IuR\I15:L,T:805,L:806,T:807:If::"UNE AUTRE PARTIE (O/N)";:A$:A$"O"Ĺ16304,0:120gA$"N"2150h::~ ***D0SS0:;DGSS1:SS1:805,01:806,50:807:2500bA(D)2Ē3:XXP(D):YYP(D):19X,Yi0CA70(D9)110(D6)150(D3) 21CA,140 3:G2X1,141:0:G1XA,14116300,0I50201:805,1:806,I:807:I J19:A(J)J0B1:PAB(J)*PA0PP20:11804PP19JXXP(PA):YYP(PA)s768,0:769,PP:770,X:771,Y:772:Jy *********** * * * FIN * * * *********** CC1 J3J6J9DJ:1060<A(J1)I:B(B)J1:BB1B$U.(1).3ī1100m8A(0)I:B(B)0:BB1|LC0ī1150VJ0C1:PAC(J)[PA0PP20:1130`PP19jXXP(PA):YYP(PA)t768,3:769,PP:770,X:771,Y:772:J~B0ī1195 * DEPLACEMENT * * * * PARACHUTISTES * ***************** I2:B0:C0:D0:J901 A(J)Iī1060 J0ī1040 A(J)0:C(C)J:CC1 B(B)((3)3)31:A(B(B))I:BB1:1060A(J)0:C(C)J:141:772:G2G1:X1XA, "16300,0:16302,08 '230,64B ,1100L 63000 @768,3:769,G3:770,X2:771,141:772:768,0:769,G1:770,XA:771,141:772:G3G1:X2XA BSS0330 E2540 GS4S1:S5S2:S6S3 J200g  ***************** **************** * * *DEBUT PROGRAMME* * * ***************** 16299,0:230,32 1000 2000 3000 768,3:769,G2:770,X1:771,141:772:768,0:769,G1:770,XA:771,175,58:171,54:180,54% G2X1,141= 16300,0:16302,0I 230,64\ 3:0,0:62454f 4000p 2540 S4S1:S5S2:S6S3 2620 H4H1:H5H2:H6H3:K2K1 0 199,49214,49 172,51:172,57:179,51 G3X2,141 *T:I U5000& Z(24576)21İ5500? d232,0:233,96:1:0 iG217:X190:G317:X290:G6:G117:XA90:K0:S0:H0:S410:S510:S610:SS0:K20 n: x230,32 3:0,0:62454 4000 2500 2580 0 184,49199,49 175,50:q ::4:10':"PARACHUTISTES"Q11:"VOUS DEVEZ PLACER VOTRE BARQUE"|(:"DE MANIERE A RECUPERER LE MAXIMUM"2:"DE PARACHUTISTES"<:"CECI GRACE AUX TOUCHES -> OU <-"F22:19:"BONNE CHANCE !..."PI15000:I QI15:L,     :Y100:X222:Y100:+X170:Y99:<X130:Y98:MX106:Y88:^X110:Y82:oX158:Y76:X194:Y72:X186:Y60:X140:Y47:X78:Y45:X74:Y40:8p:44,40100,40100,1644,1644,40:52,1652,892,892,16 ","TROUVE","=5"::"COMPLICE","TROUVE","=2"::"MOBILE","EXACT","=2"::"LIEU","EXACT","=1"::"ARME","TROUVE","=1"::"ATTENTION, LE NOMBRE INDIQUE DURANT LE JEU EST LE TOTAL DES HYPOTHESES EXACTES"::"TAPER UNE TOUCHE";:L$X250  :::"MOBILES":K210:32009 :::"LIEUX":3200W :::"ARMES":K28:3200y ::"TAPER UNE TOUCHE ";:L$ : K1K2:A$,A::A;:" ";A$,:  TABLEAU DES POINTS::"VALEURS DES HYPOTHESES"t:::"ASSASSIN HYPOTHESES EXACTES.":"CONSULTEZ LE TABLEAU POUR CONNAITRE SA SIGNIFICATION"}:"FRAPPER UNE TOUCHE QUELCONQUE ";:L$  TABLEAU RECAPITULATIF ::"SUSPECTS" K215:3200 :::"COMPLICES":3200 :"TAPER UNE TOUCHE";:L$":"CETTE VILLA. A VOUS DE DECOUVRIR L'AS-""SASSIN ET SON COMPLICE PARMI LES 30 IN-":"VITES DE LA MAISON, AINSI QUE LE MOBILE,";:"LE LIEU ET L'ARME ";P"DU CRIME"::"APRES VOS PROPOSITIONS, JE VOUS DONNERAIUN CHIFFRE CORRESPONDANT AU TOTAL DESL$"O"ī40:"AU REVOIR":3 NIVEAU DE JEU@I(J)0:NI(J)20:\I(J)50:jI(J)70:} REGLE DU JEU::(13):"REGLE DU JEU"+::"UN CADAVRE A ETE DECOUVERT PRES D'UNE":"MAISON.":"VISIBLEMENT IL A ETE TRANSPORTE DEPUIS AFFICHAGE DE LA SOLUTION+L$"N"170<L$"O"397100::4:AS;:5:QW$(AS):7:CO;:5:QW$(CO15):10:MO;:5:QW$(MO30)13:LI;:5:QW$(LI40):16:AR;:5:QW$(AR50)255:::"DESIREZ-VOUS FAIRE UNE AUTRE ENQUETE ?";:L$ 11ğ:21:"BRAVO";::"VOTRE ENQUETE A ABOUTIE INSPECTEUR ";K$(J):430or:(21)::"VOTRE HYPOTHESE VAUT ";H|:"VOULEZ-VOUS CONSULTER LE TAB. DES PTS?";:L$L$"O"İ4000:395L$"N"370J::"VOULEZ-VOUS LA SOLUTION ?":L$,":"L'ASSASSIN S'EST DEBARASSE DE VOUS...":K$(J)"DECEDE":"TAPER UNE TOUCHE ";:L$:395^H11I(J)110Ģ(21)::"BRAVO";::" VOUS AVEZ TROUVE A TEMPS, L'ASSASSIN A-VAIT DECIDE DE VOUS ELIMINER AU PROCHAIN TOUR":"TAPER UNE TOUCHE ";:L$:450FhH6000: DESSIN DU DECOR% 'H0İ5000c ,H5010,5020,5030,5040,5050,5060,5070,5080,5090,5100,5110 66500: DESSIN DU SUSPECT @X60I(J):Y140:I(J)110X212 J6500: DESSIN DE L'ENQUETEURYTI(J)110H11Ģ21:K$(J)", VOUS DEVENIEZ DANGEREUX (RE$(XX))1(RE$(XX))CS(XX)231+ XXk C(RE$(1)):D(RE$(2)):E(RE$(3)):F(RE$(4)):G(RE$(5)) CASHH5:I(J)I(J)20 DCOHH2:I(J)I(J)15 EMOHH2:I(J)I(J)10 FLIHH1:I(J)I(J)7 GARHH1:I(J)I(J)5 "CONSULTER LE TABLEAU RECAPI-";:"TULATIF ?";:L$G L$"O"İ3000:200X L$"N"160d H0:: ::K$(J);:" VOS HYPOTHESES, S.V.P." (7)::"ASSASSIN"::"COMPLICE"::"MOBILE"::"LIEU"::"ARME" :XX15# 2(XX1)7:15:RE$(XX): DESIREZ VOUS JOUER ?":"DEBUTANT","TAPEZ 1":"MOYEN","TAPEZ 2":"CHEVRONNE","TAPEZ 3":"FIN LIMIER","TAPEZ 4" RE$(1):Q(RE$(1)):Q1Q4140 Q500,510,520,530 J DEBUT DU JEU J1P1:K$(J)"DECEDE"ī3950 :"VOULEZ-VOUS IABLES 2AS((1)15)1. <CO((1)15)1B FMO((1)10)1V PLI((1)10)1i ZAR((1)8)1 d:"COMBIEN DE JOUEURS ETES-VOUS ?";RE$(1):P1(RE$(1)):P11P110100 nJ1P1:: x"PRENOM DU JOUEUR NO "J;:K$(J)n :"A QUEL NIVEAU 24576RRE$(5),CS(5),QW$(58):CS(1)15:CS(2)15:CS(3)10:CS(4)10:CS(5)8hI158:QW$(I):~8000: GENERIQUE 24:"DESIREZ-VOUS LA REGLE DU JEU ?";:L$L$"O"ĉ:2000:40#L$"N"10(: * INITIALISATION DES VAR         z#??? Š" ӠӠΠ ŮŠҠ  ĮӠӮҮӠ ҮŮŠҮŮʠ @ŮŮŠ ŮŮʠ! ɠϠ àӠ îҮʠ îîʠ îҮʠӮҮîҮʠîҮؠ àӮؠ ՠ!!ծӠ"ծ̠!ŠӠӮӠ Š ҠӠ ̠Ӡ ͠ӠӠӠ ̠Ӡ ӠԠӠϠҮʠŮҮŮǠ @ӮŮŠ!ӮŮʠӠՠӠՠ p<D`p` L `yuc ` `pc``p@ 0b 8|{0LC0~ p`q?xG?|c~q `GL`@0@`@0300La@8 xGp`Fa Pp0y @"``@?cd @@ADFq?xG?|~A ` @`s. d@pb FqxG?|~Axq@Da08a0p`c zF>``@"@1@ @@'0p< `p@1 @0  >`~dN`x~  ``g8xG?|c~q@`` @pr0 @n>xGp`Fa P@ x @ `"``@1c `@D @00 @f0$`0x0@@c0F1f0F1 @@Ap`y 20{|`@<@|`"@ @#8 100" D$;"BLOAD BASIC.FR.SX"U D$;"BLOAD MESS.ERR.DOS":D$;"BLOAD COMMAND.DOS"] ADT " "BASIC.FR.SX"/ ::25:"P.GLAJEAN"T 23:"APPUYEZ SUR UNE TOUCHE >";\ A$q AD37632:D$(4)y A$ :12:"<< ATTENTION: DOS MODIFIE >>"::"<< NE PAS INITIALISER DE DISQUE..>>" D$;"MON C,I,O" LD$;"BLOAD BASIC.FR.OBJ,A$9"POUR APPLE II SANS EXTENSION MEMOIRE"M x:"LA ZONE MEMOIRE $9100 A $95FF"{ "EST UTILISEE PAR LES ROUTINES SYSTEMES" :"LE BASIC EST LEGEREMENT PLUS LENT" :"LES MESSAGES D'ERREUR SONT EN ANGLAIS" :"LE PROGRAMME CHARGE BASIC.FR.OBJ E^ 37120 ' BASIC FRANCAIS< SANS EXTENSIONU( MEMOIRE (APPLE II)[2q< PIERRIC GLAJEANF C. 1983PZ::""_12:"BASIC FRANCAIS"a12:"--------------"::d"ROUTINE DE CHARGEMENT DU BASIC FRANCAIS"& n    )H$(11)::L11:K0:DH$"HIPPOCAMPE"FS1:UN1:V1:B27:B140N13 1:30:(8):(4);"BLOAD ";DH$",A$2000":DY1500:1000:2000 DY1500:1000:::800 :I111:H$(I)("HEBDOGICIEL",I,1): dI1L:JB1B2IKS:V:J:H$(נōΠՠŠӠōōŠōōנōΠՠŠӍŠԍΠōō؍ōàԍ΍ō΍ŭōɠΠӍӍō؍ŭōРڠˍčŠĠӍōӍӍŠ̠΍ӍŠ̠ЮîŠɍڍӍŠōӍԠή̠ɍĠħǍٍōӍحԠҮƮҍōԍçԠԍ:"POUR 8F, DANS TOUS LES KIOSQUES"w X::"HEBDOGICIEL";::":L'HEBDOMADAIRE DE ";::"VOTRE"::13:"INFORMATIQUE";}  :(8):(4);"CATALOG": :  DELAY : I1DY:(16384)1271030 I 16368,0: 16297,0:1630LS POUR LES ADAPTER SUR VOTRE MATERIEL." :"NOS LECTEURS FONT LE JOURNAL ENTIEREMENT";:"(REMUNERATION: DROITS D'AUTEUR)"::"CONCOURS PERMANENTS (MENSUEL-TRIMESTRIEL)";:" DU MEILLEUR LOGICIEL PUBLIE."# :"CHAQUE SEMAINE, PLUS DE 20 PROGRAMMES !"I);:JUN:" "::KK1: H6K :H:"-> DES PROGRAMMES POUR APPLE":z H:"-> DES CONSEILS ET DES ASTUCES ": H:"-> LES NOUVEAUX PRODUITS":( "DES PROGRAMMES POUR ORIC, TEXAS, THOMSON, HP, SHARP, ATARI, SINCLAIR, ETC... ET DES CONSEIINID->A->RUCHAINEFFACPRODEPROFERMLIEXEECRIPOSITIOOUVRAJOUCHGNOCATALOMONOMOPRINMAXFILEFINBA->BD->BFAIVERI!' ٓuʓ/p;Il~ )\ )@ @$($$($% "`ɠ)`((L$m%L" ɠ)$(` )@ @$(`,`" B Ȕ```` ʅL  d8` $L8 Nɛ` Lړ Ȕ mLړ $ % " 3LD $ BL'`LW N  $ 8 N`` $L8 $ ܤ$( L< N `LW `L` в  8% v Ȕ Nɛɠ ڕ̕E( v $ 8 L  Ȕ mLHH ܕHەH`hhL% $+ɢɠ W $L| ɢϩL8 $L8 $L͑3ލPQLɯ2ꍀʒ˒̒͒Β ְ L|٥PQÕ!••Õ׭,0  J0 ) ЅHhH h    ҍōԍçԠԍ4,0:16302,0:16300,0:q LANGAGE NON DISPONIBLHORS LIMITDISQUE PROTEGFIN DONNEEFICHIER ABSENVOLUME FAUERREUR D'E/D. PLEIFICH. PROTEGSYNTAX ERROPLUS DE BUFFERTYPE FICHIER FAUPROGRAMME TROP GRANCOMMANDE DIRECTE !!!$3>LWckx-E >"J1000:@23:10::"APPUYEZ SUR UNE TOUCHE"::A$:A LA FIN DE LA LIGNE.":"CTRL-X SORTIE SANS MODIFICATION.""CTRL-R RESTAURE LA LIGNE INITIALE":"RETURN VALIDE LA LIGNE ENTIERE"10006:12:"EDITEUR DE PROGRAMME":12:"--------------------":@8:"< LA FENETRE D'ECRAN DOIT ETRE NORMALS JUSQU'AU "" PREMIER 'A' EXCLUS"::"CTRL-I SUPPRIME UNE INSTRUCTION DANS":" UNE LIGNE QUI EN CONTIENT PLUS-":" -IEURS: EFFACE JUSQU'AU ':'":"CTRL-B COMPACTE LA LIGNE."::"CTRL-Q SORT DE L'EDITEUR EN EFFACANT":" 1000D :12:"EDITEUR DE PROGRAMME":12:"--------------------": "CTRL-Z SUPPRIME TOUS LES CARCTERES":" JUSQU'A LA PREMIERE OCCURENCE":" DE LA LETTRE TAPEE APRES.":" EX: (CTRL-Z, PUIS 'A' SUPPRIME":" -- TOUS LES CARACTERE:" SE PLACE SUR LA PREMIERE POS-":" ITION DE LA LETTRE TAPEE." " EX: (CTRL-T, PUIS 'A', PLACE LE":" -- CURSEUR SUR LE PREMIER 'A',ETC)":" FINIR EN TAPANT UNE LETTRE DIF-":" -FERENTE DE LA LETTRE CHERCHEE." <- RECULE LE CURSEUR":"CTRL-D DEBUT DE LIGNE."R "CTRL-F FIN DE LIGNE." "CTRL-A INSERTION (ESC)=FIN D'INSERTION" "CTRL-S SUPPRESSION (1 CARACTERE)" "CTRL-T SUPPRESSION (1 CARACTERE)"N "CTRL-T RECHERCHE DE TEXTE.LE CURSEUR"AGE":"(UNDEF'D STATEMENT ERROR) APPARAIT."G A(4)"BRUN EDITEUR.OBJ"Q d1000 n:12:"EDITEUR DE PROGRAMME":12:"--------------------" x:"UNE FOIS LA LIGNE LISTEE, ON DISPOSE ":"DES FONCTIONS SUIVANTES:"5 :"-> AVANCE LE CURSEUR":"DIRECTEMENT PAR :"::12:"'BRUN EDITEUR.OBJ'": ("UNE LIGNE EST EDITEE PAR '&NUM', PAR":"EXEMPLE '&200', SUIVI DE (RETURN)." 2:"LA LIGNE EST ALORS LISTEE, LE CURSEUR":"EST POSITIONNE EN DEBUT DE LIGNE."+ <:"SI LA LIGNE N'EXISTE PAS, LE MESSB? :12:"EDITEUR DE PROGRAMME":12:"--------------------":"CE PROGRAMME EN LANGAGE MACHINE EST UN":"EDITEUR DE LIGNES BASIC.IL PERMET UNE":"MISE AU POINT SIMPLE DES PROGRAMMES."0 :"IL S'UTILISE A PARTIR DE CE PROGRAMME":"EXPLICATIF OU        $C0 $0E MCH4A ; ; ; ENTEX #$29 #$00 ($B8),Y CNB5 $B1 CNB5 $DEBE #$30 CNB6 $0080,Y INIT,Y  CNB6 $DFE3 $85 $86 $11 CNB7 $DD76 CNB7 $0A $E301 $EB27 #$30 CNB8 I $5F $E635 #$00 ($5E),Y   ($5E),Y   ($5E),Y  $DD7B $DEB8 $11 MCHCH1 $DD76 MCHCH1 $E600 $A0 $A1 $A2  $5F  $5E  $0D  $0C  $0B  $0A  $C0  SBR4 $16 $A0 MCHERR $E3DD $C0 MCH4 $0B $0C $E5E2 MCH4 $A0 MCH5 $A1 $A2 $E5E2 MCH5 $0A  $16 MCH7  $0C $0B  $16 MCH6  MCH6  $E5E2 MCH7 $E42A MCHCH $A0 $A1 $5E $0B  $0A   $C0  $0E MCHERR $0A MCH3 MCH3   $C0 $0E  MCH3 $16 $A0 $A1 $5E $5F $E635 #$00 ($5E),Y $A0  ($5E),Y $A1  ($5E),Y $A2 MCH4A $0A  $0E $DEBE   $0A  $0B  $0C  $8C $8D $E635 $DD7B $DEBE $11 MCH0 MCHCH MCH0 $E10C $A0 MCH1 MCHERR $E199 MCH1 $A1  $DD7B $DEB8 $11 MCH2 $DD76 MCH2 $0E  $0C $0ALA CHAINE CH $E5E6DANS LA ZONE RESERVEE  REP2 $$E42AMET A JOUR LES DESCRIPTEURS ; ; ; ;*************** ;* * ;* FONCTION * ;* * ;* MCH * ;* * ;*************** ; ; MCH SBR1  VALEUR NU REP0 CALCULE NU FOIS REP1 LA LONGUEUR DE CH  $0A DE LA CHAINE A CREER REP0 $E199 SI >255 ERREUR "REP1 $E3DDFAIRE DE LA PLACE $8C $8D #$E604 LIBERE DESC SI NECESSAIRE $0BTRANSPORTE NU FOIS REP2 0    $E6F8       ADSPG+1,Y BRANCH1 ADSPG,Y BRANCH (BRANCH) ; ; ; FONCTION REP ; ------------ ; ; )REP $E6B9RECUPERATION DE CH ET NU ($8C),Y(Y=0) RECUPERE ET $0ASAUVE LONGUEUR DE CH $0BET FONCTION ; TROUVE : $B8  #3 $B8 FONC1 $B9 ; ; EVALUATION DES 2 PREMIERS ; ARGUMENTS DE LA FONCTION ; PUIS SAUT A LA ROUTINE ; DE LA FONCTION. FONC1 : TRAV   $DEBB $DD7B $DEBE $DD6C   $A1  $A#$FF ANALEX2 #$FF ANALEX3  TABLE,X ERR1  ($B8),Y ANALEX3 #$80 TROUVE TRAV TRAV   TRAV   ANALEX2 ; ERR1 : $DEC9 ; ; AJUSTE LE POINTEUR DE ; TEXTE (ON SAUTE LES ; 3 LETTRES DU NOM DE ; LA  #$DE EXEC  TRAV ^1 #$AF   ; ; SAUTE LE CODE & ; EXEC : $B8 ANALEX $B9 ; ; ANALYSE DU MOT SUIVANT ; LE &. SI MOT RECONNU, ; TRAV CONTIENT SON NUMERO ; SINON 'SYNTAX ERROR' ; ANALEX : #$0 TRAV #$30  #$D0 RTS1 ; ; ON A RENCONTRE LE CODE & ; MAIS IL Y A BRANCHEMENT ; UNIQUEMENT SI ON EST EN ; COURS D'EVALUATION D'UNE ; EXPRESSION ($DE66 DANS ; LA PILE).SINON,IGNORER ; LE SYMBOLE &. ; AMPER :  TRAV #$66 >1VTAB #0 BAFF MESAC,X MODIMM COUT  BAFF MODIMM $D43C EXECBAS ; #MESAC "&& FONCTIONS CHAINE &&" 878D8D00 ; ;NOUVELLE ROUTINE CHARGET ; ; ENTREE : #$AF AMPER #$3A RTS1 #$20 AUTRE $B1 AUTRE ;PATCH DE LA ROUTINE CHARGET ; #$4C $BA #ENTREE $BB #INIT $50 /ENTREE $BC $51 RSTHIMEM ; ; RETOUR AU BASIC ; (MODE PROG OU NON) ; $76  MODIM1 $33 #$DD EXECBAS MODIM1 : HOME #06 CV CH 0 ; ; * * FONC.CHAINE BASIC * ; ; ;  $9100  $800 ; ; CV $25 CH $24 ; HIMEM $73 BRANCH $C0 BRANCH1 $C1 TRAV $C2 ; COUT $FDED HOME $FC58 VTAB $FC22 RSTHIMEM $F28C ; INIT : ;          PA:X1XA(Z):Y1YA(Z);vX16X1272Y16Y1153650cCO$;" : HORS DE L'ECRAN":ER1:700xAP%1CO%0:30TR%1CO%7TR%2CO%0TR%0ĒCO%:X,YX1,Y1XX1:YY1:AP%1CO%7:309000:"-----------C$"TOUR"760"";C$C$"FIN"10000EN0:NB1:IN$(0)C$:IN$(1)"C'EST TOUT"M&P0^0 -- EXEC --r:ER0:CO$IN$(0)DERR9030N Recherche de l'instruc-tion et ex{cutionXC$(CO$,4)]-------------------bC$"AVAN"710lA((CO$,10))101 LIB3: premier pas de programme de libreJ SQ1.5708: PI/2=90[a  -- pour ONERR -- 790,104:791,168:792,104:793,166:794,223:795,154:796,72:797,152:798,72:799,96  ------------------  :130 :21:CO%7:30(50): proc{dures: TR%(25): emboitement des proc{dures ^PAS(25),TR%(25),AP%(25): PAS,MODE DE TRACE ET DRAPEAU D'APPARITION hAB%(50),CB%(50): adresses et compteurs des boucles rD$(13)(4) |TR%0:TR%(0)0:AP%1:AP%(0)1:PAS10:PAS(0)E"IN$(LI)C$:LILI1:200Y DCDC1:LIBAC%(DC):"J'AI OUBLIE "NC$(DC):NC$(DC)"":270p IN$(LI)C$:LILI1 :"OK.": :"--------------- , -- INITIALISATIONS -- 616384 @IN$(700): nb de pas de programmes possibles JNC$(50),AC%ԍΠōō؍ōàԍ΍ō΍ŭōɠΠӍӍō؍ŭōРڠӍӍŠ̠΍ӍŠ̠ЮîŠɍڍӍŠōӍԠή̠ɍĠħǍٍōӍحԠҮƮŹčӍӠŞ̌ōӍԠҮƮɠٍ̠̍ōӠŠ΍ӍҠōԠÍӍŠՠҠҮӍōŠɫ h h h h % ! 8 ^ ȱ ŝ Le  e Ȅ ^L3Lh h H HьL᱌ ȱ ȱ ` A[ ` A [ ` ^ Ȅ `GLMCPCPTRESCSK^۔VL pH 5) h  L ޥ H H H {$0Lvh h h h  L p ޥ H H HH 5 {$0? ᥠLᤡh hhh 8 e H 㥌 h e^_L h h h h Ȅ H hL p ފH H H H 5 {$0Lvh_h^h h h h h 8L)ѸL ޠ0 ߅$Lvݤ  '0L p H HȄ 㥌 hhe ^_ !L* pH 5)h L ޥ H H H {$0Lvh h h h ^ LȄ ȩ 㥌  L* p ފH H H H 5 { $Lϒ ᥠLᥡH { $0Lvhh h h he 8^_ 5^ȱ^ȱ^ 8e  奠 8H eȪh L*䥠^_ 5^Hȱ^Hȱ^H { $0Lv 慠LWPQ v3 X%$ "= L<`ӠŠɯ: L808`hfhHH8`湩¢Ƚו8ɀ¥ eªLޥi湥 H { lhHHH hHHH핅l 汌 e L     ŠŠŶŠŠ΍Ҡҍōōō΍ҠōōŠŠ΍ҠԍŠŠō΍Ҡҍҍōԍ΍çԠԍӍō٠ӠӍ̍Р؍؍؍؍vȘe湠ɯ Ѹ Ь ѸОLe`襹 u v `L  u v`L g `0 p LeĠӠ̠ӠŠӠŠӠƠӠŠ"2@M  ٠%!ȱLȱuWHILEWNDREPTUNTILELSE9V`e}  8 Lv` ĔL>L t8 `LĔ LvLޢLv`  ULPQL Ѹ  Lޘe湭 + , l `I jA tK1I:L18* ~A$(K,L)3 L,KN D$;"CLOSE FILEADRESS"T ADRESS"! VD$;"READ FILEADRESS"( `I/ jAA tK1I:L18N ~A$(K,L)W L,Kr D$;"CLOSE FILEADRESS"x re les archives.......","LA ADRESS"  "Sortir du programme.....","FIN" LD$;"OPEN FILEADRESS" VD$;"READ FILEADRESS" FICHIER.........","L ADRESS", "MODIFIER DES FICHES.....","M ADRESS", "ENLEVER DES FICHES......","S ADRESS"  "EFFACER LE FICHIER......","DEL ADRESS","LIRE LES ARCHIVES.......","LA ADRESS"  "SORTIR DU PROGRAMME.....","FIN" LD$;"OPEN FILEIN,A520" 520"L ADRESS"6 D$;"BLOAD CHAIN,A520"I 520"M ADRESS"d D$;"BLOAD CHAIN,A520"w 520"S ADRESS" D$;"RUN DEL ADRESS" D$;"BLOAD CHAIN,A520" 520"LA ADRESS" :l  "ENTREE DES FICHES.......","R ADRESS", "LIRE LE VOTRE CHOIX :";0 2OK$:(OK$)49(OK$)5550H <34,3::11::40)j A12:11:"*** CHARGEMENT ***"t B34,0 F13:40): PD$"" RD$ U(OK$)100,120,140,160,180,200,220 dD$;"BLOAD CHAIN,A520" n520"R ADRESS" xD$;"BLOAD CHAz7 A$(500,8):D$"":1100:AR$(A10,8):B1$(A10,8) :"FICHIER D'ADRESSES MENU":2:"________________________________________"G17:F$(G):P$(G):G8"QUE DESIREZ VOUS FAIRE :" (::G17:8:F$(G);G:G:24:"     MODIMM $FDED  BAFF MODIMM $D43C EXECBAS ; "MESAC "&& SAISIE FORMATEE &&"  00 ; ; ;ANALYSE DU FORMAT ; ; ;INPUT ET '(' ; ENTREE : #CODINPUT VFYCAR VFYPARD ; ;LONGUEUR DE ZONE ;NI 0, NI >248 ; RECNUM NUM$84 FLECHED $95 FLECHEG $88 RET $8D ;  $9300  $800 ; ; #ENTREE $3F6 $50 /ENTREE $3F7 $51 $F28C $76  MODIM1 $33 #$DD EXECBAS MODIM1 : $FC58 #06 CV CH $FC22 #0 BAFF MESAC,X FFICHE $DB3D BREAK $D863 RECFLP $EC4A ECRCH $DB3A PRLIGNE $D42A ; ;ADRESSES MONITEUR ; PRERR $FF2D PRA $FDD3 BIP $FBDD LIGNE $FC22 RDKEY $FD0C AMPER1 $3F6 AMPER2 $3F7 ; ;CONSTANTES ; CODINPUT LC $E1 ; ;ADRESSES INTERPRE. ; BUFFER $200 ALPHA $E07D COUT $DB5C ECRRET $DAFB CHARGET $B1 CHARGOT $B7 VFYCAR $DEC0 RECVAR $DFE3 VFYPARD $DEBB VFYPARG $DEB8 VFYVIRG $DEBE RECNUM $DA0C RECTEXT $DE81 AC1 $9D DESC2 $9E DESC3 $9F TYPEVAR $11 PNTR1 $AB HIMEM $73 NUMLIGNE $50 ; ;ADRESSES P-0 PROGRAMME ; TYPECAR $DA LONGUEUR $DB VTAB $DC HTAB $DD POINTEUR $DE ESC $DF POINT $E0 TEMP $E0 CTR ; ;PRERR :ECRIT 'ERR' ;PRA :ECRIT (A) ;BIP :EMET 1 BIP ;LIGNE :CALCULE VATB ;RDKEY :LIT LE CLAVIER ; ; ;ADRESSES P-0 SYSTEME ; CH $24 CV $25 WNDWTH $21 WNDBTM $23 ADSAUT $90 ADSAUT1 $91 ADSAUT2 $92 DESIFIE ',' ;VFYCAR :VERIFIE CARAC (A) ;BREAK :ROUTINE'STOP' BASIC $E000 ; ; ********************** * * * ADRESSES UTILES DU * * * * MONITEUR * * * ********************** ;VARIABLE ;RECNUM :LIRE 1 ENTIER ;RECFLP :LIRE 1 REEL ;RECTEXT:LIRE 1 CHAINE ;COUT :ECRIT 1 CARAC ;AFFICHE:ECRIRE CHAINE ;ECRCH :ECRIRE CHAINE ;ECRRET :SAUT DE LIGNE ;PRLIGNE:ECRIT 'IN #' ;VFYPARD:VERIFIE '(' ;VFYPARG:VERIFIE ')' ;VFYVIRG:VERm ********************** * * * ADRESSES UTILES DE * * * * L'INTERPRETEUR * * * ********************** ; ; ;CHARGET: LIT 1 CARACTERE ;CHARGOT:RELIT 1 CARACTERE ;RECVAR :CREER 1  jD$;"DELETE FILEADRESS"5 tD$;"OPEN FILEADRESS"P yD$;"WRITE FILEADRESS"W ~I^ Ai K1It M18 A$(K,M) M,K D$;"CLOSE FILEADRESS" 12:9::" SAUVEGARDE EFFECTUEE ":T12000:T:::....","M ADRESS", "ENLEVER DES FICHES......","S ADRESS"  "EFFACER LE FICHIER......","DEL ADRESS","LIRE LES ARCHIVES.......","LA ADRESS"  "SORTIR DU PROGRAMME.....","FIN" LWW0ı V:12:14::" SAUVEGARDE " `D$;"OPEN FILEADRESS" 520"M ADRESS". D$;"BLOAD CHAIN,A520"A 520"S ADRESS"Z D$;"RUN DEL ADRESS"u D$;"BLOAD CHAIN,A520" 520"LA ADRESS" 11008  "ENTRER DES FICHES.......","R ADRESS", "LIRE LE FICHIER.........","L ADRESS", "MODIFIER DES FICHES.34,3::11::40)4 A12:11:"*** CHARGEMENT ***"> B34,0N F13:40):Y PD$""a RD$ U(OK$)100,120,140,160,180,200,220 dD$;"BLOAD CHAIN,A520" n520"R ADRESS" xD$;"BLOAD CHAIN,A520" 520"L ADRESS" D$;"BLOAD CHAIN,A520"b :"FICHIER D'ADRESSES MENU":2:"________________________________________"~G17:F$(G):P$(G):G8"QUE DESIREZ VOUS FAIRE :"(::G17:8:F$(G);G:G:24:"VOTRE CHOIX :";2OK$:(OK$)49(OK$)5550 <    <1 ; OK1 : WNDBTM OK2 VTAB  TEMP VTAB ; ; OK2 : VTAB CV ; ; ;INITIALISE POINT POUR ;VARIABLES REELLES ; ; #$FF POINT ; ; ;NETTOIE LE BUFFER ET ;INITIALISE LE CURSEUR ; ; NET EMISSION ; #0 CALCULE ET SAUVE LA ;VALEUR DE VTAB.(IL ;PEUT Y AVOIR SCROLL) ; ; ; CH HTAB CV VTAB ; WNDWTH  HTAB TEMP ; LONGUEUR  #1  TEMP OK2 ; #0 TEMP ; VTAB ; ^1 TEMP WNDWTH OK1 WNDWTH ; SUITE : RECVAR $85 $86 TYPEVAR RAS TYPECAR #02 ERR5 ; ; ;PRISE EN COMPTE DES ;CARACTERES SPECIAUX ; ; RAS : #0 #0 ETAT RAS1 #$9B ; RAS1 ETAT+1 RAS2 #$83 ; RAS2 ESC CTRLC ; ; ; ; ; ;FIN FORMAT,';' ATTENDU ; ; EXECUTE : CHARGET #';' VFYCAR ; ;SI TEXTE, L'ECRIRE ; #'"' SUITE RECTEXT AFFICHE CHARGOT ; ;TEXTE SUIVI DE ';' ; #';' VFYCAR ; ; ;RECUPERE LA VARIABLE ;ET VERIFIE LES TYPES ; IS 'S','C', OU 'B' ;ORDRE QUELCONQUE ; VFYVIRG #0 #'S' NOTE  #'C' NOTE  #'B' ERR4 NOTE : ETAT,X ENCORE ; ; ;ENCORE DES ERREURS ! ; ; ERR3 : #3  2C ; ERR4 : #4  2C ERR5 : #5 GESTERRT : $DEC9 ; ; ;SAUVE TYPE DE ZONE ET ;INITIALISE ETAT DES ;CARACTERES SPECIAUX ; ; TROUVE : TYPECAR #$FF ETAT ETAT+1 ETAT+2 ; ENCORE : ; ;SI ')', FIN DE FORMAT ; CHARGET #')' EXECUTE ; ;DOIT ETRE UNE VIRGULE ;PULIGNE+1 ERR1 NUMLIGNE ERR1 #249 ERR1 LONGUEUR ; ;VERIFIE TYPE DE ZONE ; #3 COMP1 CAR,X TROUVE  COMP1 ; ; ;ROUTINE D'ERREUR ; ; ERR2 : #2  2C ERR1 : #1 GESTERR :  PRA PRLIGNE ; ; ERRSYNN3$:YY1:O3$O3$N3$:(O3$)22250A$(I,J)O1$"."O2$"."O3$:15:X:A$(I,J):O1$"":O2$"":O3$"":N1$"":N2$"":N3$""::12:8::"** RETOUR AU MONITOR **":D$D$;"BLOAD CHAIN,A520"520"ADRESS MENU 1"X:" ";::".";::" "AY:X:N1$:(N1$)48(N1$)572210kN1$:YY1:O1$O1$N1$:(O1$)32210uYY1Y:X:N2$:(N2$)48(N2$)572230N2$:YY1:O2$O2$N2$:(O2$)22230YY1Y:X:N3$:(N3$)48(N3$)572250%,J))12000, :25)::15:X:A$(I,J):P A$(I,J)(A$(I,J),(A$(I,J))1)V p 4Y15:Y:X::" " >Y:X:CP$:(CP$)48(CP$)572100 HCP$:YY1:CQ$CQ$CP$:(CQ$)5A$(I,J)CQ$:CQ$"": R2110Y15:Y:X::" ";::".";:$(I,J)"":Y15:Y:X::25). Y:X:N$:N$G (N$)8YY1:2006Q 2012 (A$(I,J))1A$(I,J)(A$(I,J),(A$(I,J))1):2002 A$(I,J)"":Y15:2002 YY1:A$(I,J)A$(I,J)N$:(A$(I,J))252015 (N$)132002 15:X (A$(I1000 WWWW1:40108 NU$:(NU$)48(NU$)57920F NU(NU$)~ NU5ė:12:B$(5):A$(I,5)"":X12:J5:2100::890 NU6ė:12:B$(6):A$(I,6)"":X12:JNU:2200::890 :12:B$(NU):A$(I,NU)"":X12:JNU:2000::890 II1:22 A:"VERRIFICATION"A K18:6K:K;:"...........";:A$(I,K):K 20:"CECI VOUS CONVIENT IL ?";:OK$:OK$:OK$"O"Ģ20:"QUE VOULEZ VOUS MODIFIER ?";:920 20:"Y A T IL D'AUTRES FICHES A TRAITER ?"; OK$:OK$"O"OK$"N"916 OK$"O"______________": 6:B$(1)::B$(2)::B$(3)::B$(4):` B$(5)::B$(6)::B$(7)::B$(8)r dX6:J1:2000 nX8:J2:2000 xX10:J3:2000 X12:J4:2000 X14:J5:2100 X16:J6:2200 X18:J7:2000 X20:J8:2000 z:14 X6:Y15II1-L18:B$(L):L "NOM :","PRENOM :","ADRESSE :","VILLE :","CODE POST. :","TELEPHONE :","PROFESSION :","MATERIEL :":"FICHIER D'ADRESSES":32:1:"PAGE ";:I 2:"__________________________      POINTEUR LONGUEUR RET1 #' ' NET2 EMISSION RET1 : ; ;ESC A 0 ; $FC62 #0 ESC POINTEUR BUFFER,X TYPEVAR NUM ; ;AFFECTE LA CHAINE A ;LA VARIABLE ; POINTEUR #BUFFER /BUFFER PNTR1 PNTR1+1 $E3D9CALPOS ; ESCAPE :  ; ; CONTROLC: #$03 BREAK ; ; ; ; RECULE : POINTEUR CARAC POINTEUR CALPOS ; ; AVANCE : POINTEUR LONGUEUR CARAC POINTEUR CALPOS ; ; RETURN : ; ;EFFACE FIN LIGNE ;SI NECESSAIRE ;; AUTRECAR: ; ;PAS DE CARACTERES DE ;CONTROLE (CTRL A, ETC) ; #$A0 CARAC #$7F  ; ;DERNIER INTERDIT ; POINTEUR LONGUEUR CARAC ; ;BRANCHEMENT ; TYPECAR   ADSPG,X ADSAUT1 ADSPG+1,X ADSAUT2  ADSAUT ANCHE SI ->, <-, ESC ;RETURN, OU CONTROLE C ; ; CARAC RDKEY ; ; #FLECHEG RECULE ; #FLECHED AVANCE ; #RET RETURN ; ESC ESCAPE ; CTRLC CONTROLC ; ; ;CARACTERE NORMAL ;ANALYSE EN FONCTION ;DU TYPE DEMANDE ;  POINTEUR ; ; ;CALCULE LA POSITION SUR ;L'ECRAN A PARTIR DE LA ;VALEUR DU CURSEUR ; ; CALPOS : POINTEUR  HTAB VTAB CALPOS1 WNDWTH CALPOS2 WNDWTH  CALPOS1 CALPOS2 CH CV LIGNE ; ; ;LECTURE D'UN CARACTERE ;BR520"ADRESS MENU 1"5:X::8):+(N3$)48(N3$)572210UN3$:YY1:O3$O3$N3$:(O3$)22250R$O1$"."O2$"."O3$:15:X:R$:O1$"":O2$"":O3$"":N1$"":N2$"":N3$"":20034,0::D$"":12:7::"*** RETOUR AU MONITOR ***":D$;"BLOAD CHAIN,A520"):!(N1$)48(N1$)572210KN1$:YY1:O1$O1$N1$:(O1$)22210UYY1Y:X:N2$:(N2$)13(R$)8Ė15:X::8):(N2$)48(N2$)572230N2$:YY1:O2$O2$N2$:(O2$)22230YY1 Y:X:N3$:(N3$)13(R$)8Ė1X:CP$:(CP$)13(R$)5Ė15:X::" ":LC(CP$)48(CP$)572110HCP$:YY1:CQ$CQ$CP$:(CQ$)5R$CQ$:CQ$""::200R2110R$"":Y15:Y:X::" ";::".";::" ";::".";::" "Y:X:N1$:(N1$)13(R$)8Ė15:X::8YY1:2006 20129 (R$)1R$(R$,(R$)1):2002N R$"":Y15:2002q YY1:R$R$N$:(R$)252015 (N$)132002 15:X :25)::15:X:R$: (R$)2R$(R$,(R$)1)::200  4R$"":Y15:Y:X::" ".>Y:$(Q,6);:(40(A$(Q,8))):A$(Q,8)Q "________________________________________"Z OK$a Q RQ1:RIĖ15:"C'EST TOUT":T11000:::R1:25 360 R$"":Y15:Y:X::25) Y:X:N$:N$:(N$)27ī4000 (N$)9349 (N$)8______" +OK$H ,RQ1:RIĖ15:"C'EST TOUT":T11000:::R1:25Q 6205W ]b ^QRI h:N$A$(Q,2)" "A$(Q,1) m(N$)1435 r(40(N$))2);N$ |(40(A$(Q,7)))2);A$(Q,7)  A$(Q,3):A$(Q,5);" ";A$(Q,4)! "TEL: ";ARI:A$(Q,J)R$250 Q* :QI300G :N$A$(Q,2)" "A$(Q,1)^ (40(N$))2);N$ (40(A$(Q,7)))2);A$(Q,7)  A$(Q,3):A$(Q,5);" ";A$(Q,4) "TEL: ";A$(Q,6);:(40(A$(Q,8))):A$(Q,8) ""__________________________________,3- 6:B$(1)::B$(2)::B$(3)::B$(4):S B$(5)::B$(6)::B$(7)::B$(8)e dX6:J1:2000w nX8:J2:2000 xX10:J3:2000 X12:J4:2000 X14:J5:2100 X16:J6:2200 X18:J7:2000 X20:J8:2000 100  Q  X6:Y15#L18:B$(L):L "NOM :","PRENOM :","ADRESSE :","VILLE :","CODE POST. :","TELEPHONE :","PROFESSION :","MATERIEL :" :"FICHIER D'ADRESSES":32:1:"LECTURE":"________________________________________":34      $E423 $DA7B ; ; NUM : ; ;TRANSFORME LA CHAINE ;EN NOMBRE ; $B8  $B9  #BUFFER-1 $B8 /BUFFER-1 $B9 $B1 RECFLP ; ;AFFECTE CE NOMBRE ;A LA VARIABLE ; $EB27  $B9  $B8  ; ; ;VERIFICATION P2$"":N3$"":MOD1;L :15:X:25):15:X::A$(Q,J)::IWWWWMOD34,0::D$"":12:7::"*** RETOUR AU MONITOR ***":D$""D$;"BLOAD CHAIN,A520"520"ADRESS MENU 1"D$;"BLOAD CHAIN,A520"520"ADRESS MENU 1"(N2$)48(N2$)572330B$ N2$:YY1:O2$O2$N2$:(O2$)22330L) YY1t. Y:X:N3$:(N3$)13(R$)823803 (N3$)48(N3$)5723108 N3$:YY1:O3$O3$N3$:(O3$)22350B R$O1$"."O2$"."O3$:A$(Q,J)R$:O1$"":O2$"":O3$"":N1$"":N":N3$"":200XR$"":Y15:Y:X::(A$(Q,J),2);".";(A$(Q,J),4,2);".";(A$(Q,J),2): Y:X:N1$:(N1$)13(R$)82380 (N1$)48(N1$)572310 N1$:YY1:O1$O1$N1$:(O1$)22310 YY1 Y:X:N2$:(N2$)13(R$)82380 )5722303N2$:YY1:O2$O2$N2$:(O2$)22230=YY1pY:X:N3$:(N3$)13(R$)8Ė15:X::8):(N3$)48(N3$)572210N3$:YY1:O3$O3$N3$:(O3$)22250 R$O1$"."O2$"."O3$:15:X:R$:O1$"":O2$"":O3$"":N1$"":N2$"15:Y:X::" ";::".";::" ";::".";::" "fY:X:N1$:(N1$)13(R$)8Ė15:X::8):(N1$)48(N1$)572210N1$:YY1:O1$O1$N1$:(O1$)22210YY1Y:X:N2$:(N2$)13(R$)8Ė15:X::8): (N2$)48(N2$Q$)5R$CQ$:CQ$""::200%R21104fR$"":Y15\pY:X:CP$:(CP$)13(R$)52190zu(CP$)48(CP$)572160zCP$:YY1:CQ$CQ$CP$:(CQ$)5R$CQ$:MOD1:A$(Q,J)R$:CQ$"":2190216015:X:25)::15:X:A$(Q,J):3R$"":Y(N$)13205215:X>R$(R$,(R$)1):A$(Q,J)R$:MOD1e :15:X:25)::15:X:A$(Q,J):k*4R$"":Y15:Y:X::" ">Y:X:CP$:(CP$)13(R$)5Ė15:X::" ":C(CP$)48(CP$)572110HCP$:YY1:CQ$CQ$CP$:(C:25)::15:X:R$:;(R$)2R$(R$,(R$)1)::200APR$"":Y15zY:X:N$:N$:(N$)13(R$)12080(N$)8YY1:20562062(R$)1R$(R$,(R$)1):2052 R$"":Y15:2052YY1:R$R$N$:(R$)252065 25 360) R$"":Y15:Y:X::25)K Y:X:N$:N$:(N$)27ī4000\ (N$)9349u (N$)8YY1:2006 2012 (R$)1R$(R$,(R$)1):2002 R$"":Y15:2002 YY1:R$R$N$:(R$)252015 (N$)132002 15:X(40(N$))2);N$3 |(40(A$(Q,7)))2);A$(Q,7)9 [ A$(Q,3):A$(Q,5);" ";A$(Q,4) "TEL: ";A$(Q,6);:(40(A$(Q,8))):A$(Q,8) "________________________________________" OK$ Q RQ1:RIĖ15:"C'EST TOUT":T11000:::R1:(Q,5):15:16:A$(Q,6):15:18:A$(Q,7):15:20:A$(Q,8)Z :24:12:"MODIFICATIONS ?";c OK$z OK$"O"XX2:100 ,RQ1:RIĖ15:"C'EST TOUT":T11000:::R1:25 6200 ] ^QRI h:N$A$(Q,2)" "A$(Q,1) m(N$)1435 r300 X18:J7:XX2000,20509 X20:J8:XX2000,2050I XX100,190V XX1:24x :K6202:15:K:25):K: QRI:A$(Q,J)R$250 Q :QI300 15:6:A$(Q,1):15:8:A$(Q,2):15:10:A$(Q,3):15:12:A$(Q,4)8 15:14:A$_____":34,3 = 6:B$(1)::B$(2)::B$(3)::B$(4):c B$(5)::B$(6)::B$(7)::B$(8)} dX6:J1:XX2000,2050 nX8:J2:XX2000,2050 xX10:J3:XX2000,2050 X12:J4:XX2000,2050 X14:J5:XX2100,2150 X16:J6:XX2200,2  X6:Y15:XX1(L18:B$(L):L "NOM :","PRENOM :","ADRESSE :","VILLE :","CODE POST. :","TELEPHONE :","PROFESSION :","MATERIEL :" :"FICHIER D'ADRESSES":28:1:"MODIFICATION":"___________________________________      RANGE ERR ; ;UN CHIFFRE OU '+','-' ;EN 1ERE POSITION ; ENTIER : CHIFFRE RANGE ; POINTEUR ERR ; SIGNE : #'+' RANGE #'-' ERR ; ;ON PEUT RANGER ; ALPHANUM: RANGE POINTEUR BUFFER,X POINTEUR COUT ; ;; ;ATTENTION, ON PEUT ;ECRIRE SUR LE POINT ; VERIF : POINTEUR POINT RANGE #$FF POINT RANGE ; ;BIP OU PAS BIP ? ; ERR : ETAT+2 ERRF BIP ERRF ; ;UNE LETTRE OU UN BLANC ; ALPHABET: ALPHA RANGE #' 'OUR REEL ;POINT = $FF :PAS DE POINT ;DANS LA ZONE, SINON POINT= ;POSITION DU POINT ; ; REEL : CHIFFRE VERIF #'.' SIGNE POINT  REEL1  POINTEUR ERR ; ;RANGE POSITION DU POINT ; REEL1 POINTEUR POINT RANGE D$;"BLOAD CHAIN,A520"/ 520"ADRESS MENU 1"M4600 0=D:8:L18:((40(AR$(A,L)))2):AR$(A,L):LED$_D$;"APPEND ARCHIVES"xD$;"WRITE ARCHIVES"L18AR$(A,L)LD$;"CLOSE ARCHIVES"34,0::D$"":12:7::"*** RETOUR AU MONITOR ***":D$""O2$N2$:(O2$)22230 YY1SY:X:N3$:(N3$)13(R$)8Ė15:X::8):q(N3$)48(N3$)572210N3$:YY1:O3$O3$N3$:(O3$)22250R$O1$"."O2$"."O3$:15:X:R$:O1$"":O2$"":O3$"":N1$"":N2$"":N3$"":200WWWWSUP:" ";::".";::" "IY:X:N1$:(N1$)13(R$)8Ė15:X::8):g(N1$)48(N1$)572210N1$:YY1:O1$O1$N1$:(O1$)22210YY1Y:X:N2$:(N2$)13(R$)8Ė15:X::8):(N2$)48(N2$)572230N2$:YY1:O2$R$(R$,(R$)1)::200=4R$"":Y15:Y:X::" "t>Y:X:CP$:(CP$)13(R$)5Ė15:X::" ":C(CP$)48(CP$)572110HCP$:YY1:CQ$CQ$CP$:(CQ$)5R$CQ$:CQ$""::200R2110R$"":Y15:Y:X::" ";::".";::25)'Y:X:N$:N$:(N$)27ī40008(N$)9349Q(N$)8YY1:2006[2012(R$)1R$(R$,(R$)1):2002R$"":Y15:2002YY1:R$R$N$:(R$)252015(N$)13200215:X:25)::15:X:R$:(R$)2 AR$(A,L)A$(Q,L) L2 & RESTRUCTURATION? 0MQI1J :L18` DA$(M,L)A$(M1,L)i NL,M SL18:A$(I,L)"":L:II1 X4400 b:10:5:"SUPPRESSION ET RESTRUCTURATION":12:15:"EFFECTUEES":DE13000::24R$"":Y15:Y:X::4)2 "TEL: ";A$(Q,6);:(40(A$(Q,8))):A$(Q,8)b "________________________________________"k OK$r Q RQ1:RIĖ15:"C'EST TOUT":T11000:::R1:25 360  MECANISME DE SUPPRESSION-ARCHIVAGE SUP1 AA1 L18N ?"; OK$! OK$"O"ī500Y ,RQ1:RIĖ15:"C'EST TOUT":T11000:::R1:25b 6200h ]s ^QRI h:N$A$(Q,2)" "A$(Q,1) m(N$)1435 r(40(N$))2);N$ |(40(A$(Q,7)))2);A$(Q,7)  A$(Q,3):A$(Q,5);" ";A$(Q,00$ :K6202:15:K:25):K:? QRI:A$(Q,J)R$250F QV :QI300 15:6:A$(Q,1):15:8:A$(Q,2):15:10:A$(Q,3):15:12:A$(Q,4) 15:14:A$(Q,5):15:16:A$(Q,6):15:18:A$(Q,7):15:20:A$(Q,8) :24:12:" SUPPRESSIO_____":34,3 = 6:B$(1)::B$(2)::B$(3)::B$(4):c B$(5)::B$(6)::B$(7)::B$(8)u dX6:J1:2000 nX8:J2:2000 xX10:J3:2000 X12:J4:2000 X14:J5:2100 X16:J6:2200 X18:J7:2000 X20:J8:2000 11  X6:Y15:XX1(L18:B$(L):L "NOM :","PRENOM :","ADRESSE :","VILLE :","CODE POST. :","TELEPHONE :","PROFESSION :","MATERIEL :" :"FICHIER D'ADRESSES":28:1:" SUPPRESSION":"___________________________________       ijlk ~󅟆nmLȱȱeȱe(ӊ0ȱ ie枦ş 0FȱAȱ<ȱȱŰ+H8oȑoȥpphei e枥`̄iq imo YMBOLES ;'S', 'C', 'B' DANS UN ;FORMAT. 0 SI PRESENT, ;$FF SINON. ; ; ETAT :  FF  FF  FF ;   ;C=0, SINON C=1 ; CHIFFRE : #'0' >1 #':' >1   ^1  ; ; DE BONNES ADRESSES ! ; ADSPG : ENTIER  REEL ALPHABET ALPHANUM ; ;UN PEU DE CARACTERES ; ; CAR :  'E'  'R'  'A'  'X' ; ;PRESENCE DES SMETTRE LA ZONE SUR ECRAN ; EMISSION: #0 HTAB CH VTAB CV LIGNE ; ^1 BUFFER,X COUT  LONGUEUR <1  ; ;BUFFER A BLANC ; NET #0 #' ' NET2 BUFFER,X  LONGUEUR NET2  ; ;SI A EST 1 CHIFFRE %.D$""+8D$;"RUN ADRESS MENU"1B3 FICHIER."K:"POUR ARRETER TOUT DE SUITE SON EXECUTION";"TAPEZ 'ESC'."t:"POUR EXECUTION, TAPEZ 'CTRL P'."24:"VOTRE DECISION ?";OK$:(OK$)27(OK$)161040(OK$)27ı$34,0:::12:7:"*** RETOUR AU MONITOR ***"D$;"WRITE FILEADRESS""I)A4K18AB$(0,K)HKcD$;"CLOSE FILEADRESS"12:10::"OPERATION EXECUTEE"K13000::1060 8:15:"ATTENTION !"::"CE PROGRAMME EFFACE ENTIEREMENT LES ":"INFORMATIONS QUE CONTIENT LE>D$""!HD$;"OPEN ARCHIVES";RD$;"DELETE ARCHIVES"S\D$;"OPEN ARCHIVES"l]D$;"WRITE ARCHIVES"w^K18_B$(0,K)`KfD$;"CLOSE ARCHIVES"pI0:A0zD$;"OPEN FILEADRESS"D$;"DELETE FILEADRESS"D$;"OPEN FILEADRESS" L1I M18# A$(L,M)* M1 LL D$;"CLOSE FILEADRESS" 12:10::"OPERATION EXECUTEE":K13000::1060 :40)::10:"ARCHIVES ET ADRESSES"::40): *1000 4:10:"EXECUTION EFFACEMENT":10:"ARCHIVES ET ADRESSES" :D$;"CLOSE ARCHIVES"0 DD$;"OPEN FILEADRESS"J ND$;"READ FILEADRESS"Q XIX bAh lA$(I15,8)s vL1I~ M18 A$(L,M) M L D$;"DELETE FILEADRESS" A0 D$;"OPEN FILEADRESS" D$;"WRITE FILEADRESS" I A3000::10604 :40)::16:"ARCHIVES"::40):> 1000p :10:"EXECUTION EFFACEMENT":16:"ARCHIVES"{ D$"" D$;"OPEN ARCHIVES" &D$;"DELETE ARCHIVES" 0D$;"OPEN ARCHIVES" 1D$;"WRITE ARCHIVES" 2K18 3B$(0,K) 4K LEADRESS"# D$;"READ FILEADRESS"* I1 AM D$;"DELETE FILEADRESS"U I0o "D$;"OPEN FILEADRESS" ,D$;"WRITE FILEADRESS" 6I @A BL18 DA$(0,L) FL JD$;"CLOSE FILEADRESS" T12:10::"OPERATION EXECUTEE" ^K1:"FICHIER D'ADRESSES EFFACEMENT":2:"________________________________________":34,3x P(R$)200,500,800 :40)::17:"ADRESSES"::40): : 1000 :10:"EXECUTION EFFACEMENT":16:"ADRESSES" D$"" D$;"OPEN FI2 5 :4:"*** EFFACEMENT DES FICHIERS ***":b8:"QUEL FICHIER VOULEZ VOUS EFFACER :"::15:"1..........ADRESSES"(15:"2..........ARCHIVES"-15:"3..........LES DEUX"2::"VOTRE CHOIX :";<R$:(R$)49(R$)5160a F     ԍΠōō؍ōàԍ΍ō΍ŭōɠΠӍӍō؍ŭōРڠӍӍŠ̠΍ӍŠ̠ЮîŠɍڍӍŠōӍԠή̠ɍĠħǍٍōӍحԠҮƮŰӍ֠ōӍԍś !": .:ކLC+%,0 ` }  s +-ۦޝL\ۢ݅$܅% " \` `0:`8`2'CERAXNENTS (MENSUEL-TRIMESTRIEL)";:" DU MEILLEUR LOGICIEL PUBLIE."# :"CHAQUE SEMAINE, PLUS DE 20 PROGRAMMESݥ%ܥ!8݅i8!!#8ܥ܅% f Mޥeݦ!!$% " Ɉ8ɕ=ɍC&#ɠ)۰ܥ  L@`LcإL@۰З j M bߦޝ$ޢ #L{ڥHH J 'hh` sOPQ v3 X%$ "9 L<`ŠŠ ڦQPۢ݇, L*Lކک )# ޢS CB,,Lw ; " = ; ߅$0Т00߄$  :12:17:"ENCORE ?";: OK$:OK$"O"OK$"N"3610Q $OK$"N"R0:349 34,0::D$"":12:7::"*** RETOUR AU MONITOR ***": WW04030 D$;"BLOAD CHAIN,A520" 520"ADRESS MENU 1" D$;"RUN ADRESS MENU")360 D$"") D$;"OPEN FILEADRESS"C D$;"READ FILEADRESS"J IQ Al D$;"CLOSE FILEADRESS"r $} D$"" D$;"OPEN ARCHIVES" D$;"READ ARCHIVES" K0A L18 B1$(K,L) L K D$;"CLOSE ARCHIVES"  |(40(B1$(Q,7)))2);B1$(Q,7)' L B1$(Q,3):B1$(Q,5);" ";B1$(Q,4) "TEL: ";B1$(Q,6);:(40(B1$(Q,8))):B1$(Q,8) "________________________________________" OK$ Q RQ1:(RA)Ė15:"C'EST TOUT":T11000:::R1:3600 0:8::"*** LECTURE ARCHIVES ***"::1000:3500@"FICHIER D'ADRESSES ARCHIVES":2:"________________________________________":34,3]^QRAh:N$B1$(Q,2)" "B1$(Q,1)m(N$)1435r(40(N$))2);N$!   ɍ΍ĠӠԍ΍ٍōT,CATALOG,CATALOG,CHAIN,CHAINE,CLOSE,FERME,DELETE,EFFACE,EXEC,EXEC,FP,FP,IN#,IN#,INIT,INIT,INT,INT,LOAD,D->A,LOCK,PROT,MAXFILES,MAXFILES,MON,MON,NOMON,NOMON,OPEN,OUVRE. POSITION,POSITION,PR#,PR#,READ,LIT,RENAME,CHGNOM,RUN,RUN,SAVE,A->D. UNLOCK,D"*";6+22:DO$(I14,1);:31:":";:33:DO$(I14,2)=+Im +:"CES COMMANDES NE SONT PAS MODIFIABLES."%+"LA COMMANDE 'D->A' (LOAD) PEUT SE LIRE":" 'DISQUE VERS APPLE', ETC..."*+10500:3500.APPEND,AJOUT,BLOAD,BD->A,BSAVE,BA->D,BRUN,BFAI':"<< UTILISEZ 'PR#6' >>":::`)::H:"APPUYEZ SUR UNE TOUCHE";:A$:*34,0::" COMMANDES DU DOS (ACCES AU DISQUE)"+" ----------------------------------"+I114:I3 +1:DO$(I,1);:9:":";:11:DO$(I,2);:20: VOTRE":"DISQUE EST INITIALISE AVEC LE DOS NORMAL";a'"SINON, CHANGEZ DE DISQUE, PUIS 'PR#6'"l'10500':"":12:"<< ATTENTION: RESET PEUT VOUS FAIRE >>"::"<< SORTIR DU BASIC FRANCAIS MAIS >>"::"<< NE REINITIALISE PAS LE DOS >>"4"DOS FRANCAIS.LORSQUE VOUS TRAVAILLEZ SUR";:"UN ANCIEN PROGRAMME,LES MOTS BASIC SONT"~'"AUTOMATIQUEMENT TRADUITS,MAIS VOUS DEVEZ MODIFIER LES COMMANDES D'ACCES AUX FICHIERS."4'"VOUS POUVEZ A TOUT MOMENT SORTIR DU":"BASIC FRANCAIS AVEC 'PR#6', SIG :10:"PROGRAMMATION STRUCTUREE":10:"------------------------""CE PROGRAMME EN LANGAGE MACHINE VOUS ":"PERMET D'UTILISER DANS VOS PROGRAMMES":"EN BASIC DES INSTRUCTIONS SOUPLES ET" "PUISSANTES QUI SONT PRECISEES DANS LE":"MANUEL.": HIVES"D INITIALISATION FICHIERS*D$""DD$;"OPEN FILEADRESS"_(D$;"WRITE FILEADRESS"m2"0":"0"<I18:"0":IFD$;"CLOSE FILEADRESS"PD$;"OPEN ARCHIVES"ZD$;"WRITE ARCHIVES"d"0":"0"nI18:"0":I xD$;"CLOSE ARC 420 GCC2100*199024CC0:GGNN:EENNO>G0G59G:G59İ2610XH420gRGJJ2150q\1990fJJ0:GGII:FFIIpG0GG59:G59İ2610z4201990 INSTRUCTIONS " NOEL ET LEON TRAVAILLE TOUS 60:R2P187I60:R31P174I60:R47a INTRODUCTION ALEATOIRE DES GATEAUXtGGAAEEFF1G59GG59((G118)(59))G59İ2610420GBB20501990BB0:GGMM:AAMM G0GG59:G59İ2610X26:D23:DX,Y,0:3M(G),N(G)@3:3M(G),N(G)I&DYDX00:DYX,Ye:X35:D1sD3:DX,Y|NDYDXbl A T-ON APPUYE SUR UNE TOUCHE? v(16384)128ıP(16384):16368,0P193I60:R1P218I GATEAU EST AU MILIEU A GAUCHE/|0:DYX,Y7D1H3:DX,Y30\0:3M(G),N(G)p3:3M(G),N(G)YY30:DYD0:DYX,YYY303:DX,YY40M1:3320 SI LE GATEAU EST EN HAUT A GAUCHE0:DYX,Y 3:EV,W%Y160M1:3320O SI LE GATEAU EST EN BAS A GAUCHE^0:DYX,YfD1w3:DX,Y30"0:3M(G),N(G),3:3M(G),N(G)6YY30:DYD@0:DYX,YJYY30T3:DX,Y^hY100M1:3320 r SI LE(G)FWW30:EWE"P0:EWV,W-ZWW30;d3:EV,WAnlx SI LE GATEAU EST EN HAUT A DROITEW70M2:33200:EWV,WE23:EV,W300:3M(G),N(G)3:3M(G),N(G)WW30:EWE0:EWV,WWW30 EV,W0:3M(G),N(G)-3:3M(G),N(G)6EWEE0:EWV,WSV235:E1a3:EV,WjEWEp SI LE GATEAU EST AU MILIEU A DROITE W130M2:33200:EWV,WE2(3:EV,W3020:3M(G),N(G)<3:3M(G),N50:EWV,WV226:E203:EV,WI29EWEEWWI2M$R5S.b80:EWV,WjBE2zL3:EV,WIVEWE`WWIjR5t~ SI LE GATEAU EST EN BAS A DROITEW160M2:33200:EWV,WV226:E23: W7010800:EWV,W) V235:E1;*3:EV,WI2D4EWEP>WWI2XHR5^Rm\0:DYX,YufD1p3:DX,YIzDYDYYIR50:DYX,YD13:DX,YIDYDYYIR50:ZZ141,18 l860. v ON VEUT DESCENDRE A GAUCHE; Y160ıD 930h  ON VEUT MONTER A DROITEt W70ı W1601010 0:EWV,W E2 3:EV,WI EWE WWI R5   ON VEUT DESCENDRE A DROITE W160ı 0,670,770,1970 510 B  SI LE GATEAU SE TROUVE EN BOUTQ G7İ1160a G16İ1520q G25İ1290 &G34İ1640 0G43İ1410 :G52İ1760 D N SI ON A APPUYE SUR LES TOUCHES X ON VEUT MONTER A GAUCHE bY40ıZZ141,185:XX134,1858 ^5150,23:5150,17:5150,11P h DEBUT DU CYCLE X rA$j |(A$)27400s 370} 1990  0:3M(G1),N(G1) G1Ē0:3M(59),N(59) (16336) 3:3M(G),N(G) (16336) 1910 R610,64INSTRUCTIONS. O/N"; A$. (A$)79ī250A (A$)78ī260J 210T 2210^ 2400d y QQ1İ3470:300 "2940 , INITIALISATIONS DES VARIABLES 63 @X35:Y160:V235:W160:DY1:EW1:ZZ11:XX11:PP0 J1X,Y:1V,W T(24576)24140$ Z232,0:233,96* dH n CHARGEMENT TABLE/FORMET xD$(4)n D$"BLOADBISCRU.DESS"t ~ 3600 (7) INSTRUCTIONS + NIVEAU DE DIFFICULTES :9:22:"NOEL ET LEON A L'USINE" 3:24:"VOULEZ-VOUS LES K *************** * * * B I S C R U * * * *************** TERMINE LE 01/01/1984.( AUTEUR ZENSS ROGER2<2820F ADRESSE DE LA TABLE DE FORME P               C%(C)1:NN1:N25ĺ"PLUS DE 25 PROCEDURES EMBOITEES":ER1:840>PAS(N)PAS(N1):PASPAS(N):TR%(N)TR%(N1):TR%TR%(N):AP%(N)AP%(N1):AP%AP%(N)H9000:"-----------RC$"POUR"980\16303,0: -Revient en mode texte sans mettre le curseur eA((CO$,10))57.29578Z3AP%1CO%0:30LZA:AP%1CO%7:30c9000:"-----------wC$"FAIS"850C$(CO$,6):C0C$""810 CDC810C$NC$(C)820 CC1:780*"JE NE CONNAIS PAS "C$:ER1:840@4R%(N)P:PAPA:X1XA(Z):Y1YA(Z);vX16X1272Y16Y1153650cCO$;" : HORS DE L'ECRAN":ER1:700xAP%1CO%0:30TR%1CO%7TR%2CO%0TR%0ĒCO%:X,YX1,Y1XX1:YY1:AP%1CO%7:309000:"-----------C$"TOUR"760"";C$C$"FIN"10000EN0:NB1:IN$(0)C$:IN$(1)"C'EST TOUT"M&P0^0 -- EXEC --r:ER0:CO$IN$(0)DERR9030N Recherche de l'instruc-tion et ex{cutionXC$(CO$,4)]-------------------bC$"AVAN"710lA((CO$,10))101 LIB3: premier pas de programme de libreJ SQ1.5708: PI/2=90[a  -- pour ONERR -- 790,104:791,168:792,104:793,166:794,223:795,154:796,72:797,152:798,72:799,96  ------------------  :130 :21:CO%7:30(50): proc{dures: TR%(25): emboitement des proc{dures ^PAS(25),TR%(25),AP%(25): PAS,MODE DE TRACE ET DRAPEAU D'APPARITION hAB%(50),CB%(50): adresses et compteurs des boucles rD$(13)(4) |TR%0:TR%(0)0:AP%1:AP%(0)1:PAS10:PAS(0)E"IN$(LI)C$:LILI1:200Y DCDC1:LIBAC%(DC):"J'AI OUBLIE "NC$(DC):NC$(DC)"":270p IN$(LI)C$:LILI1 :"OK.": :"--------------- , -- INITIALISATIONS -- 616384 @IN$(700): nb de pas de programmes possibles JNC$(50),AC% -- INIT DESSIN --< 7:0,0278,0278,1590,1590,0_ X7:Y7:Z0:CO%7:CO%(0)7:30v :"--------------- -Acquisition des ordres d'une proc{dure LIB700ĺ"TROP LONG!":ER1:240 "? ";C$ C$"C'EST TOUT"250 C$"OUBLI AP%0ı4 (CO%:XXX6(ZSQ):YYY6(ZSQ)o 2XX,YYX6(Z),Y6(Z)X6(ZSQ),Y6(ZSQ)XX,YYu < F -- recherche d'une proc{dure C$ -- PC0 ZC$NC$(C)120 dCDC1ER1:120 nCC1:90 x:"----------- *************************?* M I N I - L O G O *^* Par Joel GADRAT *}* SUR APPLE IIe ** Convient pour apple II** dot{ de 48 Ko ************************** 300 -- DESSINE LA TORTUE --! !!!!!!!!!      IJ3-I .-J--.-SI- -޻M?7M1s---IJWM)3M?M1s-)3M1?I*m-----n M????II------5ߛI Mi Mi:??????---------5 Mi Mi ?????????7-- M???JiIIMI????JImmII;JImmII?? ---;???-----????W----I)MII;?? ------???????MI߻)MWMMI -MI3MI߻ -MI??WM?WM;?MIMIWMWM;?MI)3M5.M-   ))sI M.-5--SIII---M????*MI) mm??????---m)m- 5???SIII)-m);?SII -M)m?;SII -M)m?;SII -M)m????ۛJ---;???-----????W----I --MII mIImMniIIMMIiIiII??ߛIiIiII?? mIImMn MI M??;?WiMIMiI:`2n2Om):J[lI)-mIII???J MII;?J MiIII;J)--mII????) mmmI ;?????7m- -M---???7m)-mIII??J-M)mII?;J-M)mII?;J-M)mII;???III --M???SIIIi M??SIIIi M;!! ! ! 420 GCC2100*199024CC0:GGNN:EENNO>G0G59G:G59İ2610XH420gRGJJ2150q\1990fJJ0:GGII:FFIIpG0GG59:G59İ2610z4201990 INSTRUCTIONS " NOEL ET LEON TRAVAILLE TOUS 60:R2P187I60:R31P174I60:R47a INTRODUCTION ALEATOIRE DES GATEAUXtGGAAEEFF1G59GG59((G118)(59))G59İ2610420GBB20501990BB0:GGMM:AAMM G0GG59:G59İ2610X26:D23:DX,Y,2:3M(G),N(G)@3:3M(G),N(G)I&DYDX02:DYX,Ye:X35:D1sD3:DX,Y|NDYDXbl A T-ON APPUYE SUR UNE TOUCHE? v(16384)128ıP(16384):16368,0P193I60:R1P218I GATEAU EST AU MILIEU A GAUCHE/|2:DYX,Y7D1H3:DX,Y30\2:3M(G),N(G)p3:3M(G),N(G)YY30:DYD2:DYX,YYY303:DX,YY40M1:3320 SI LE GATEAU EST EN HAUT A GAUCHE2:DYX,Y 3:EV,W%Y160M1:3320O SI LE GATEAU EST EN BAS A GAUCHE^2:DYX,YfD1w3:DX,Y30"2:3M(G),N(G),3:3M(G),N(G)6YY30:DYD@2:DYX,YJYY30T3:DX,Y^hY100M1:3320 r SI LE(G)FWW30:EWE"P2:EWV,W-ZWW30;d3:EV,WAnlx SI LE GATEAU EST EN HAUT A DROITEW70M2:33202:EWV,WE23:EV,W302:3M(G),N(G)3:3M(G),N(G)WW30:EWE2:EWV,WWW30 EV,W2:3M(G),N(G)-3:3M(G),N(G)6EWEE2:EWV,WSV235:E1a3:EV,WjEWEp SI LE GATEAU EST AU MILIEU A DROITE W130M2:33202:EWV,WE2(3:EV,W3022:3M(G),N(G)<3:3M(G),N52:EWV,WV226:E203:EV,WI29EWEEWWI2M$R5S.b82:EWV,WjBE2zL3:EV,WIVEWE`WWIjR5t~ SI LE GATEAU EST EN BAS A DROITEW160M2:33202:EWV,WV226:E23: W7010802:EWV,W) V235:E1;*3:EV,WI2D4EWEP>WWI2XHR5^Rm\2:DYX,YufD1p3:DX,YIzDYDYYIR52:DYX,YD13:DX,YIDYDYYIR52:ZZ141,18 l860. v ON VEUT DESCENDRE A GAUCHE; Y160ıD 930h  ON VEUT MONTER A DROITEt W70ı W1601010 2:EWV,W E2 3:EV,WI EWE WWI R5   ON VEUT DESCENDRE A DROITE W160ı 0,670,770,1970 510 B  SI LE GATEAU SE TROUVE EN BOUTQ G7İ1160a G16İ1520q G25İ1290 &G34İ1640 0G43İ1410 :G52İ1760 D N SI ON A APPUYE SUR LES TOUCHES X ON VEUT MONTER A GAUCHE bY40ıZZ141,185:XX134,1858 ^5150,23:5150,17:5150,11P h DEBUT DU CYCLE X rA$j |(A$)27400s 370} 1990  2:3M(G1),N(G1) G1Ē2:3M(59),N(59) (16336) 3:3M(G),N(G) (16336) 1910 R610,64INSTRUCTIONS. O/N"; A$. (A$)79ī250A (A$)78ī260J 210T 2210^ 2400d y QQ1İ3470:300 "2940 , INITIALISATIONS DES VARIABLES 63 @X35:Y160:V235:W160:DY1:EW1:ZZ11:XX11:PP0 J1X,Y:1V,W T(24576)24140$ Z232,0:233,96* dH n CHARGEMENT TABLE/FORMET xD$(4)n D$"BLOADBISCRU.DESS"t ~ 3600 (7) INSTRUCTIONS + NIVEAU DE DIFFICULTES :9:22:"NOEL ET LEON A L'USINE" 3:24:"VOULEZ-VOUS LES k *************** * * * B I S C R U * * * *************** TERMINE LE 01/01/1984.( AUTEUR ZENSS ROGER2<2820F ADRESSE DE LA TABLE DE FORME P"" " " " " """""""""