' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췭ⷍ㷍JJJJx뷍췍  ة6789 L 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,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>? 24?949:4<  %%&&'''))*++++,,----...////23334556667777999:::;;;;<<====>>>????,,(8,01,(8,01,(8,,1*( ,,1*( 1,,*" 1,,*" 11,,"&&'(((())***,,.000011112223444556 88889 : << >PbYK$@@CLIbH %64z66000:4:030+J@_(jP80^݌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`   LDcpq` [` ~  L8 9L89͍ōčύӍ  -N 췬   LM Ll   eL MEM/DOS MEMSOFT S.A. NICE - FRANCE (C)1984  #": $ """""" @ ]թ` :LG :LР941(L:LLL1L LLб``:Lɶɷ ɬɪ:`H :L :LH :LТ` P鷮 LLLL`ª`LQLYELXLeLee` P鷮  췢J귭 뷭𷩷L `kk񷭇k췭k kk kk#``x (`(8`I`B` ` `ܐ` t`ttt ݐ` K ސ ްbwT b ׍8`b ݐ s עb M߭ ߰` ް owT)hh` K ȱߍzȱߍ{ȱߍkȱߍj)`ߍQȱߍRȱߍ`R) mRRR0  ^٥ۥܭZ  s٥& ߍ;; oL+֭[  L oϰ|}`ͭ8߭ͅLTߍ ְ8r߭ͱ߈```    L֍ ٭* . R ` o)r& `) r. -`8` rȥȥᭂ)@ɀ`᥄` 8` 3 ' ݢ ȭl劑 `QȭRȭȭ)  `(ȭt0  ֊ȥi0ȩ)` ٭)lm) ct u =Nߢd բ i0 ծLRՎ\\ Hi0 h`8\L#k)@ Պ)+ Պ) * Պ)'; խ`;cc  i0 Պ)? Պ): խ`" L% Պ)Е/ LRլ` u Lo LT` K o`߅ȱiߐ "ܠ "ܥߑȥ`ׅ`&Ω y bRb = ͩک= TL ܭ)lrm` P& o(;! rr o  xL omr rL`ꭱ`) j> L` 3 K ٠ Q o KL o rL ٭~Zj[+Q`P`` H oh` Ա7 Ԇձ Ԋ``  oצեɩd`) ՠ) ՠߍ`)N$ Պ) LRլ`A΢  i00Z ۭts$1Lۦɤʥ˅ɥ̅ʆ˄̥ߠ0 ڰeׅر ڰ8آװi i0٠01-נ00.Ȫ8- ߠeȑeȑ` ܥi2ɥiʥid˩e̠0`Θee` ߅ mCmCC80mCCL` `Ͱ ֱ `0:`8`A[` ٩߅Յ  o[ өLӤ " L`ӭ[ ӊ ӥ ӥ ө߅LӭZ LӠ`LT Q`Q֭P`[Z[`ɥ ܠӄs ԑԤԌs` +0-`2dm˭i  ٌs0ͩ0ˈ0 ͑`LH /چ -+ 8΍s /چע Kڭst ۭr8΍s KڦL. 80 `LH ۱ ڰر ڰee =Ӑ 4Ӑ֩ $ӰZ =Ӑ 4Ӑ$% $Ӱ@ Ӡ!X $Ӱ/ L=Ҡ  өX $Ӱ/ X) BX LVҭC߭X`)᪭CCߊߍL4+X @X  X;)X`? *X)L: ޢC 4Ӑ%`/LH $Ӱ' 4Ӱ C L   o LLlת :;)./))-).) 0:` s8`ݎdގeێf܎g`dݮeޮfۮg`ީݭzܭ{`  L L`8`hzi{jjkk`. Oss0ss L<Hh`hN&&ѦN`њבͻݫͫݩD89` yѩ L<m8n9` ٠ [ 4 o`Z ѩV o V [VLѠ߈ۑ߈ܑ`C֩X $Ӑ `LH` =Ӱ $Ӱ `` 8b ^P  ^ o _^ _^L sLlI rb ^٥ۅӥ܅ o! HHӅۥԅ܊ hhLSؠP  sLlcLlLlb ٭P  oL` ٰ6b A[i uc  ~)? `)?`)? @` ^  ,,)^ `)  @`jk`ɧ 8؅ۥܥ)'Ow iXې`8`(PiۥiLХ)(P 8X۰ݦۦ`LJL:LIh,(,  L׭ B` o R `ץl H h Lנ  x̓` u` ^ ` o )` rآl^ r sLl^ Ll׮l^ oLs^`c Ll H h LlL`Т0 Т      XH hLӠ㠠 (C 198 MEMSOF L0stl lLf "AIIE 80COLMEMSOFT ސ`O LP LV ` LԠFЎ  wRLNLALUL BLLWLDLEL)0LLr` ` `;-:,:10-0 &:"00s eemsL8``@ y #L 8߅נ'ץ؈ע( T =ϩhiׅ hۑȭiܑȥۑȥܑɩ 'ih Ơhȭiȭhȭiϩۅ 'ԭe iߥi`$`  H H) )8qύ  ( ׭ ȑȭ  תȭ LZmnLy@ /`Y L)% xx  ׅ`!L>GLs> UrLV`+w w*xQVLLHQw*L TIO LLwX`눩w wC `LDIT  T  4 ߅ Livߥi iiL8Ʌ٠ɥʅڈ 8ccceم٠ɩeڈɅceم٠ɩeڈɅiِeɅߥeʅ8נɥ؈`e L ߥɨ߈ߠȩ LթL,e  H8ȹ9 7h` : L : 4H h` i i>ha  ״LfL@ ~   ~ ` i0x누tuw ɪL LH#LF) a`M`$L?L=`ୁߩcIՠש=vFiͥi 9 !ȭ ׭ȑע( e ש ש ȩɠ = L 4΍Vՠ ɭcɅީ܅ݩ ~ܠ D  ۠ȩV=Lr LLנɪȱɠ%׈`?LILWLkL렂L9렄 LWW$:842XX%(99):842WW$(XX%(99)):842XX%(99)(WW$""):842: iߐ`حL讬خL׎؎` ]H[d]ղ ݠ>:62. * &"Q o` ܄ o  x" ͑L ѐ LT υȱυ ` Lש 'ԥٍcڍbۅ 'ԥb qcِjٍ ȱٍ   Ҡ ȭ ͭ   y i РLx׍؍׭ؠ`׭׭ ꎢP T S , Ά ` 4 :L\΢ ]L: ] :L1         `    `,  = `LHȑȑiT mTmTTmT`ih S)`h  )8`)S TiJJJ TT hU`~`` sy/` ٭y/ ٰB` ѥ߅ ťп DӠ lP `eׅߥi`8בץȑ` ٠ `m   d  iܭ i fL֩b o2ߍ 0BA mbb ` L @?8`?@& LɶɬL y# k 쥽`y$@/߅ij ۭwɬL5L.gi<hi>L۠ߪȱ`LkɷL y@L 쥽`ﭢ$hgLBR]\߭wɷ(`(ijL^_L RQ9R`mLL[l TL = o`ߍ 2Lȱ߅ȱ߅ȱߍC 0%eiejlk 4L% Lekelnm 4L% ፇ}LLȱȱ·ȱ PL?@em L L ` 4hhL%iߥi`x80 `GR ᭱i߭iLGR` : L  j ܥߍ` $`PR L$ jwD8RFLح 쥽3 "HL@#ɝ`u`<>u#`#ɝ` :hh`مڎ;%إeڅڥeمFfff;`مڎ;&&&٥f&;`ސf8&ܥ8ޅڥ݅L` : 4L : L<3l#֭ꭅmR $CL wI RMFLHwO3 G B 쥽RM G ߍ`N IлRMдRMVG L LT ` wI ߥLP y@ 쥽` 쥽FLH L L QȭR`Lii` ٠  ~  o` 5k M 3 1 8ԍ9L4 0`H h L:89L48Hh`\8ێ9 4L󢢎:@<`:@<` L { )`#ɝ` HUr`rh % @i % @S  i0鈊i0`/` Lw> 썵` QwC&Q$ $L80~LLDLkR&Q$ x Q L0wLDQR LLFQx  L GMR mc(c,b` IХ, LLL) ɀ) CB)A`C&b`Dfg`a `1ߍߍC 0`Cmaa oLLCa` = b@ o,=B̭ˠ˥) Wl1hL L Hhሥ`C h #ʊ Ș`hT U .L 1 /  LTo8օpnm`op`ୁ`TJS) iU)hJJJJJ iiT l H~  h `Dȭfg z ְ LH@ȩRI z ְ= , &ӌDͅΥgfLјe` !=&  = LL c b=ORc΍b , )Ɂ$LH) 0C`BAO +መA`ܭBeLLȄ ֑  ЩХLP   ۍ?܍@Lɀ @? )? @8@ܥ?۰LP LB?Έ@@e`H~lP0`m``v K eQ vR wL(`i׭iح``LDתeׅ׊e؅`ׅ٥؅ K eFLL wLL K e8$ "Qv kLF L wL`H $B $?@0 $?@h` $@L t oL ޭ)! 8i᥄jȥ LEkץlإmnv ( ii8klLg  ݦ `鍊ꍋ ܢ#ȑ` ܢ#魋ꭎ#/y[Ax  LHsmsir8s`$ii` `ޭݠeׅȱe؅ܠސݰۑmm8ۍ܍`MLLi}i|e׍ȱ׍)e L+iߥiˑ߅˥e׍ȱe؍׍Qd 5 ݩe 8܈ ` k Q  dL5ٍ[ڍZ`ٍ]ڍ\`Zح[׭]ͭ\`ɅȱɅL'ԱυȱυL'Ԡבإΐװ`^ȱ ȱ͏ b 9LM b M֠( ȭ ȭ`(׍ ȱ׍ ȱ׍` ȭ ȭ` Ԯ )𨍧͍ ȱ͍ ȱ͍ȱ͍` ֮ )ۭ ܩ 'Ԡٍ ȱٍ ۭ`ۍ܍` LH Q LT LL d ȩ$ ۅLЭڍVٍWͭ ) 'eׅ͈e؅ ߥυߥЅ 0  Lݠ $׈׍׍ ׍ L kݩL`ݠ ޠ iِ ՠ ][\ZJZjqϠϭZqϠ 8 HL H H H͍ ȱ͍ ȱ͍ HH H hhh h h Lˠ˩ˠ`DHH b֠ Ϣ8me͊ͅe΅8 8ըȅhh`jhh`HH L b֠ϰ  9 M HϬȪ ֊Lyխ 9ȱ R ~ڭа 8ܩ` H謧ȭLܭeLVحW`L\Lܥׅ؅LܘH 9h  ȑȑ j Ց̈́`L Ց̈́`˅̅ ȱ ȱj j` ]ձ̈́` )  ! = ȊLΣ Ԡ LiɈi`HHܠqυ܈qυ&e܅٥eۅiِhh`ii LTݰݠݠLԠiȱi`Ʌeمަ`LH ȱ ȱ  ՠ ȭ ȭ Lՠ נ ׈L``ׅ  ! 8͠ !͠ȑɠ נ$ = Ю T FR` R jlm`Hi-i h` ۱` ۈȊ` ) !L Lܩe ! ] 뭓 Մ 8 *͍` i  ` iLXLӭHHq׍ȥq׍ ehhL 'ԭd '̐ е˰HH8 e hh8ȱ ҭ ԥυɥЅʠ Ԡ LԥυɥЅʠ ԭ ۍ ܍ ` ՠ L L٭ LLL٢ml R`HG`HG`  ѠɅȱɅ  L`` iՠ 8Յձ8լͭLՠ*H׈H ׈H  b֩ȑ 譑Lڠϰ H謧hhhͩ `` ȱ`i舱i` ` ީ ~ڍ e܅܈eۅ۠ ɐȱܰ f ֭ `ȭ` 8 ȱ 'ȱ  Ӡˈ yҭ و ` LҠˍ ȱˍ ` ȭ `  Ԡ͍ȱEFȑ`ׅ؅ Ho8ՠ͑Ր * iL ۅ ȭȭ`  аl` Qڰ ѐ< ձ6 ~ڭ  뭓 L٩ Lj` CL  ѐ 'ڐL Tȥɐ Qڰ ѐ Fڠ 8` ; eejf L ҥ PJH ? ߐ`8`ȥ$ _  ɐȱ ` ΩL ѥͩՍml j L R`ɅȱɅ` ! 8 'S(L ٩ ꩤ ~ڠׅ뺎  L ѐЦ T EȱFHH ؠ ! ٥í  ۩ׅ뭩 hh% ʠȊ *ͩ jL < 0 *ҩ ЩHHLGL <٩eɅȱɅ    *$"ȱ  ! ߐ` !,HH hhՊe߅ߐe L L ;ڠߍbc 'ڭb߭cL Fڭe8`8ͥΩթlm Ω j F 5 H a 8L שLiߥiqׅȥqׅ⭔`@e߅i`QV Q ׍؍ ߐZ$RRXY  LT  ۠  d 5נq׍q׍XRYVQL L    ׅͥ؅` 80  ` ̈́` ̈́` L:H hhɬ"A[:L<wƹ湩{8ݍ9 4$0LH r^t_u <>bHHL<lL ALTES,C BANUYLS,D COSTIERES DU GARD,E CLAIRETTE DE B.,F COTE. LANGUEDOC,G FAUGERES,H ST CHINIAN,I MINERVOIS,J CORBIERES,K BLANQUETTE LIMOUX,L FITOU,M MUSCATDN A MUSCADET,B GROS PLANT,C SAUMUR CHAMPIGNY,D ANJOU,E LAYON & Q.CHAUME,F SAVENNIERES,G B  """""""99999999999999GM$>A A A A  A @!A "A @#R  f" """"""""""""99999EM0A A A A A @R  f9999iCM>A A A A A @A A @R  f"   """""""""""9999999999DMjaA A  A  A  A @ A  A @A A @A A @A R h f"  """""  """""""""999999999999FM"A A A R  f" AMSC ?C C ?C C ?C C gC Z!gZ!Z!g     "8 - ,,,,,,,,,,,, gMBMSR R R R R *R R *R R * R  R *     "9     999999999     """""""""""9999999999HMpaA $A %A &A ' A @(A )A @*A +A @,A -A @.A /R h f"    """""""""""" """"99999IM(>A 0A 1A 2A 3A @4A 5A @6R  f"     """""" """""9999999999KM0EA 7A 8A 9A :A @;A R @ f"     """ """""""""999999999LM/EA ?A @A AA BA @CA DA @EA FR @ f"   """"""""""""999999999MMaA GA HA IA JA @KA LA MA @NA OA hPA QA hRR  f"     """""""""      """"""""""99NMzhA SA TA UA VA @WA XA @YA ZA @[A \A @]A ^A h_R  f"     """""""99999999999999GM$>A A A A  A @!A "A @#R  f"     """""""""""9999999999HMpaA $A %A &A 'A @(A )A @*A +A @,A -A @.A /R h f"    """"""""""""""""99999IM(>A 0A 1A 2A 3A @4A 5A @6R  f"     """""" """""9999999999KM0EA 7A 8A 9A :A @;A R @ f"     """v  PG HELLO  (104)8:"AIIE 80COL 3::"#C,$% 2214,255? F"#O,A,M,CAVE":"C,A J P"CAVE {78"DISQUETTE DE MAINTENANCE 9:<"Pour acceder aux utilitaires MEMDOS" F"mettez la disquette UTILITAIRES et tapez@0?00@ "詐"R gH@ "m" h@ "s" Kd" "]" e" "e"` 1igih `_gh` ]` + X L `ϭӠΠōé̠ȅ0 J ٥ ȭ`ٴ`8` L$ ?LL L L LL L? L 0L\LG 8` H] 8],V&YZ][ 0 YZ ]](h),L`^ H^݈ `\ 8 ,V[^ YoGN A COTE ROTIE,B CONDRIEU,C ST JOSEPH,D CROZES HERMITAGE,E HERMITAGE,F CORNAS,G ST PERAY,H COTES DU RHONE,I COTE.DU TRICASTIN,J RASTEAU,K BEAUMES DE VENISE,L GIGONDAS,M COTE.DU VENTOUX,N CHATEAUNEUF DU PAPE,O TAVEL,P LIRACG#^ ERR EURGaXX(222):XX77ė:"OPERATION IMPOSSIBLE... MEMOIRE SATUREE":25040HaXX51ė:"OPERATION IMPOSSIBLE...DISQUETTE PLEINE":25040"HaXX4926000fHaXX255Ĺ214,255:34,0:B$(255):"B,1":MI%99:"B,1,2":3:800Ha:"OPERATION IMPOSSIBL SE... ERREUR SYSTEME N[ ";XXHaLL(219)256(218):"A LA LIGNE N[: ";LL: """""""99999EM0A A A A A @R  f"  """""""""999999999999FM"A A A R  f" """""""""999999999LM/EA ?A @A AA BA @CA DA @EA FR @ f "   """"""""""""999999999MMaA GA HA  2079:"HELLO"::::::::L 8`,0(PljkJ5J2J/J J)J&J#/JJJ$JJJ,08``,0%$ iYېܥۥܰΥiمۥiܐ$ 8駅ۥܰۥL3 L  L 3ĥ и @` LS CL LS m 1 Q 5 5 ) `5 @ `   `0w1 }|2 ~`6 K6 oL ߦ` LH ` K֠3LHߝ o}|m}|i~ K֠)4߮3б}ȱ} o`((((PPPP ? )`L` L L#L۠uvw` H hHq qqh`hH,a @,b q`L_{|}`q`Hh)@`)?`h)?` `p, `p,p a{8 `{E}E\C@A|۩U׭, `VV NQE!" <B=C 'Ij<Fi=<i>=i?(  `  \[  m\\[i[ \m F[iG`ZXYNZ\mYY[mXXnXnYnZ߭Y[Z\` L) L) L 8nL  ` N L  췩`` B$`  0  `   ` B B CLN 1DEFGfF` xЍԍ؍I0<0'0"*L*hGL@GL GLGͼͽ;Ϳ8ͼ LͽL;LͿ(L1   8L~G@} XQ L=LIŠΠŠΠŠÍՠΠŠŠɍħŠŠӮG@ dG " #   oL jkPlACEuPvRwT{|`}a$% c- "詒"  OLR   fOURGUEIL,H CHINON,I VOUVRAY MONTLOUIS,J JASNIERES,K REUILLY QUINCY,L SANCERRE,M POUILLY FUMEuEN A COTE DE PROVENCE,B COT.D'AIX EN P,C COT.DES BAUX DE P,D COTEAUX VAROIS,E PALETTE,F CASSIS,G BANDOL,H COTES DU LUBERON,I BELLETEN J CORSE PATRIMONIOFCAVE  k!$'I B!Mb!"#I*-a  B!a R!A!C!%P!,3ҡ: SS PROGnWT$T$"Choisir avec les f6,󠡠,"," gC Z!gZ!Z!g     "8 - ,,,,,,,,,, ,K CAP CORSE,L COT.D'AJACCIO,M SARTENE,N FIGARI,O PORTO VECCHIO,P AUTRES VINS CORSEFN A BERGERAC,B MONTRAVEL,C PECHARMANT,D MONBAZILLAC,E COTE DE DURAS,F COTE DE BUZET,G CAHORS,H GAILLAC,I BEARN,J MADIRAN,K PACHERENC,L JURANCON,M TURSAN,N IROULEGU FCAVE GCAVE MCAVE PAIIE 80COL  PCAVE PHELLO  FCAVE  GCAVE GCAVE PFORMAT  MFORMAT  GCAVE  MCAVE  PCAVE """""""""""""""""9999OMvhP P P P P @P P @P P @ P  P @ P  P h R  f"    """""""""""""""""9999PM}P P P P P @P P @P P @P P @P P hP P hP R h f"    """"""""""""""""""""9QMoP P P  P !P @"P #P @$P %P @&P 'P @(P )P h*P +R h f" - """"""""""""""""""999RM}P ,P -P .P /P @0P 1P @2P 3P @4P 5P @6P 7P h8P 9P h:P ;R h f"     """"""""""""""""""""9VMM PM PM PM PM (PM PM (PM PM (P M P M (P M P M PP M PM PPM PM PPM PM PP BNNNNNNNNNNNNNNNNNNWML0A!gP!C! g g XM7R1 A1/o ?P! /C)o qҭ q}",     , ,    : ,,    : , , , ,   : , ,      : , ,,,   㠺,,     : ,,      : , YM}hR!!*A!)P!$ɥ ҅ … R!A!P! ɥ " %҅… N +&@ $  堼堼 0젺 ,#  F B캠 F V ZM W!P0aM]     "򠉍ړ8 - ,,堼 ,堼 ,堼 ,堼 ,堼 ,堼 , w䠒젷󠠔젨bMP嬠O䬠宼堡Í宠S堆嬠嬠堼P堀䧉ꀠ堼RVꀠ堲堼S堡ncMVPO堧O󧬠堼O嬠򠒅堼O堡A=      E  嬠嬠 E    嬠򮠐!-          堡󮟼F  堼OdMf9嬠   嬠9 9 򠒅 宠9嬠 宠9嬠 堠  󠒅 򠅓󮠼  鬠宠99eM}",",,򠅓,",, ,嬠 ,嬠,宠,",,堒堼, ,㠼,", ,堼,U .        . 8頦䠒젷󠠔젨 젨  PG CAVE DR WALUSINSKI 02/88 VERSION 1.9.1:116,90:768,90:"#C,$": 3:"/?,W,48,223":"#C,$":250000"#O,^,G,0,CAVE":"#O,1,F,0,CAVE":B$"Z10":"R,1":CO%NA%CA$(8),RE$(11),AP$(95),MA$(19),PA$(59):Z Z$"I IMPRIMER PAR APPELLATION":Z2$"K IMPRIMER TOUTE LA CAVE":Z1$"J IMPRIMER PAR REGIONT$">>>> ":"/G,+,3,63":"/G,+,1,1)I18:CA$(I)::I111:RE$(I)::I195:AP$(I)::I159:PA$(I):J21:"":"C,a":"G":120:800Pc:qd  SS PROGnWT$T$"Choisir avec les fl}ches puis RET, ou tapez LA lettre, CTRL/A = abandon !":"O,Z": sWT$T$"Choisissez avec les fl}ches puis RET, CTRL/A = abandon !":"O,Z":^xWT$T$"Tapez une touche pour continuer !":"O,Z" :"/k":r|WT$"":"O,Z":WT$T$"Compl}tez les rubriques et validez = ESC, CTRL/A = abandon, ? = aide !":"O,Z":L0:L(RE$):RE$(RE$,3,(L2)):L(AP$):AP$(AP$,3,(L2)):w34,1::3:"Appellation";:36,32:"Mil";:36,36:"Nom de propri{t{";:36,72:"Ach";:36,77:"CavNB0:LL1:34,3: :WT$">>>> Nombre total de bouteilles en cave : "(NB):"O,Z":M19LL:K1M:"":K^WT$T$"Fin de la liste, tapez une touche pour continuer !":"O,Z":"/k":34,0:"O,W":LLLL1:NBNBNR%:24:"":LL19LL1:24:"":120:124WT$T$"Il n'y a pas de ces crus en cave, tapez une touche !":"O,Z":"G":"/k":8004MI%0:AP$"":RE$"":PP$"":CO$"":NA%0:NR%0:^,1:(27)"N"(9)"132N"(27)"L""008":6"P,Y":"?,A"::"?,B"::"?,C"::"?,E":"?,C"::LL0:1:(27)"E"(9)"132N"(27)"L""005":"P,Y":::"?,H"::"?,K"::LL0:1:(27)"Q"(9)"132N":11000,11999:3:+XWT2İ150:BZWT10İ400:410:SbWT2İ180:dWT10:"O,Y":"?,G":LLLL1:NB%NB%NR%:LL57ĺ(12):410flWT2İ170:800nWT10ĺ:"O,Y":"?,I":(12):3:800 : :  DEBUT PROG  "C,a":"G":120:% MENU GENERAL 34,0:110:"C,A":"/M,A,N,1,11,2,1,N,""A""B""C""D""E""F""G""H""I""J""K""?*WTWS:WT0İ200:NA%CO%:B$"Z10":"U,1":"HELLO/WT12:"C,c":120:8004WT1000,1000,1000,13000,14000,1000,1000,1000,1000,1000,6000:. MENU REGIONAP$"":RE$"":110:"C,B":"/M,B,N,1,11,2,1,N,""A""B""C""D""E""F""G""H""I""J""?"(8)(21)WUWS:WU0800WU11:"C,d":120:1000WU12WU13800WU2000,2200,2400,2800,3000,3200,3400,3600,3800,4000 K:GB$"A":RE$RE$(1):U17:WT211000WWT107000"C,C":"/M,C,N,1,8,2,1,N,""A""B""C""D""E""F""G""?"(8)(21)WXWS:WX01000WX1WX2WX3WX4WX5WX6WX7B$B$(9WX):AP$AP$(WX):10000 WX8:"C,d":120:20003*WX9WX1010009:`B$"B":RE$RE$(2):U22:WT211000pWT107000"C,D":"/M,D,N,1,13,2,1,N,""A""B""C""D""E""F""G""H""I""J""K""L""?"(8)(21)WXWS:WX01000LWX1WX2WX3WX4WX5WX6WX7WX8WX9WX10WX11WX12B$B$(9WX):AP$AP$(WX7):10000jWX13:"C,d":120:2200WX14WX151000:` RE$RE$(3):WT211200e WT1011200j "C,E":"/M,E,N,1,6,2,1,N,""A""B""C""D""E""?"(8)(21) o WXWS:WX01000't WX6:"C,d":120:2400;v WX7WX81000\x WX2550,2600,2650,2700,2750b : B$"C":"C,F":"/M,F,N,1,4,2,1,N,""A""B""C""?"(8)(21) WXWS:WX01000 WX1WX2WX3AP$AP$(WX25):B$B$(WX9):10000 WX4:"C,d":120:2550" WX5WX61000( :z( B$"D":"C,G":"/M,G,N,1,8,2,1,N,""A""B""C""D""E""F""G""?"(8)(21)2 WXWS:WX010007 WX1WX2WX3WX4WX5WX6WX7AP$AP$(WX28):B$B$(WX9):10000< WX8:"C,d":120:2600 A WX9WX101000 F :z Z B$"E":"C,H": "/M,H,N,1,13,2,1,N,""A""B""C""D""E""F""G""H""I""J""K""L""?"(8)(21) d WXWS:WX01000 i WX1WX2WX3WX4WX5WX6WX7WX8WX9WX10WX11WX12AP$AP$(WX35):B$B$(WX9):10000!n WX13:"C,d":120:2650+!s WX14W X1510001!x :! B$"F":"C,I":"/M,I,N,1,8,2,1,N,""A""B""C""D""E""F""G""?"(8)(21)! WXWS:WX01000! WX1WX2WX3WX4WX5WX6WX7AP$AP$(WX47):B$B$(WX9):10000" WX8:"C,d":120:2700" WX9WX101000" :v " B$"G":"C,K":"/M,K,N,1,9,2,1,N,""A""B""C""D""E""F""G""H""I""?"(8)(21)" WXWS:WX01000" WX1WX2WX3WX4WX5WX6WX7WX8AP$AP$(WX54):B$B$(WX9):10000" WX9:"C,d":120:2750# WX10WX111000# :<#  B$"H":RE$RE$(4):U18:WT211000L# WT107000# "C,L":"/M,L,N,1,9,2,1,N,""A""B""C""D""E""F""G""H""?"(8)(21)# WXWS:WX01000$ WX1WX2WX3WX4WX5WX6WX7WX8B$B$(9WX):AP$AP$(WX62):10000$ WX9:"C,d": 120:28005$ WX10WX111000;$! :b$ B$"I":RE$RE$(5):U22:WT211000q$ WT27000$ "C,M":"/M,M,N,1,13,2,1,N,""A""B""C""D""E""F""G""H""I""J""K""L""?"(8)(21)$ WXWS:WX01000N% WX1WX2WX3WX4WX5WX6WX7WX8WX9WX10WX11WX12B$B$(9WX):AP$AP$(WX70):10000l% WX13:"C,d":120:3000% WX14WX151000% B$"J":RE$RE$(6):U23:WT211000% WT107000& "C,N":"/M,N,N,1,14,2,1,N,""A""B""C""D""E""F""G""H""I""J""K""L""M""?"(8)(21)2& WXWS:WX01000& WX1WX2WX3WX4WX5WX6WX7WX8WX9WX10WX11WX12WX13B$B$(9WX):AP$AP$(WX82):10000& WX14:"C,d":120:3200& WX15WX161000&H B$"K":RE$RE$(7):U23:WT211000 'M WT107000o'R "C,O":"/M,O,N,1,14,2,1,N,""A""B""C""D""E""F""G""H""I""J""K""L""M""?"(8)(21)'W WXWS:WX01000'\ WX1WX2WX3WX4WX5WX6WX7WX8WX9WX10WX11WX12WX13B$B$(9WX):AP$PA$(WX):10000 (f WX14:"C,d":120:3400#(p WX15WX161000)(y :P(B$"L":RE$RE$(8):U26:WT211000`(WT107000("C,P":"/M,P,N,1,17,2,1,N,""A""B""C""D""E""F""G""H""I""J""K""L""M""N""O""P""?"(8)(21)(WXWS:WX01000e)$WX1WX2WX3WX4WX5WX6WX7WX8WX9WX10WX11WX12WX13WX14WX15WX16B$B$(9WX):AP$PA$(WX13):10000).WX17:"C,d":120:3600)8WX18WX191000)A:)B$"M":RE$RE$(9):U25:WT211000)WT107000>*"C,Q":"/M,Q,N,1,15,2,1,N,""A""B""C""D""E""F""G""H""I""J""K""L""M""N""?"(8)(21)S*WXWS:WX01000*WX1WX2WX3WX4WX5WX6WX7WX8WX9WX10WX11WX12WX13WX14B$B$(9WX):AP$PA$(WX29):10000*WX15:"C,d":120:3800*WX16WX171000#+B$"N":RE$RE$(11):U26:WT2110003+WT107000+"C,R":"/M,R,N,1,17,2,1,N,""A""B""C""D""E""F""G""H""I""J""K""L""M""N""O""P""?"(8)(21)+WXWS:WX010008,WX1WX2WX3WX4WX5WX6WX7WX8WX9WX10WX11WX12WX13WX14WX15WX16B$B$(9WX):AP$PA$(WX43):10000V,WX17:"C,d":120:4000l,WX18WX191000r,:, EDIT PAR APPELLATION,"R,1":WS190,"B,1":300:310:NB%0:5140, "N,1":WSĺ:"O,Y":"?,F":(12):3:800)-"O,Y":"?,D":LLLL1:NB%NB%NR%:LL50ĺ(12):3103-5130M-p IMPRIMER TOUTE CAVE-NB%0:400:410:B$"W10":"B,1":B$"A10":"R,1":WS6130-6140-"N,1":WSĺ:"O,Y":"?,I":(12):3:800-"O,Y":"?,G":LLLL1:NB%NB%NR%:LL57ĺ(12):410.6130K.XNB%0:C$B$:B$"W10":"B,1":I10U:B$C$(I):"R,1":WSĂI:190_.l400:410:7040.v"N,1":WSĺ:"O,Y":"?,I":(12):3:800.{(B$,1)C$ĺ:"O,Y":"?,I":(12):3:800."O,Y":"?,G":LLLL1:NB%NB%NR%:LL57ĺ(12):410/7030/': /':/' TRI-/'WT1İ130:10100=/$'WT312000L/)'WT95000f/.'WT6WT7WT815000l/s':/t' ENTRER UNE FICHE/~'PP$"":CO$"":NA%0:NR%0:MI%0:140/'"P,X":"/I,X,1,7/'WS11000/'WS3:"C,e": 120:101120'MI%1:"G":"/I,X,3,1":10115:0'PP$"":"G":"/I,X,4,1":10115u0'(CO$"R"CO$"O"CO$"B"):"G":"/I,X,5,1":101150'NA%0:"G":"/I,X,6,1":10115!1'NR%NA%:"G":WT$T$"Erreur, nombre de bouteilles en cave plus gra nd que celui de l'achat !":"O,Z":"/k":130:"/I,X,7,1":101151<("A,1":CO%CO%1:CO%20CO%1:B$(255):"B,1":MI%100:"B,1,2":34,1::WT$T$"Quelques instants SVP... je trie le fichier !":"O,Z":"#R,11F(8001*:1* RECHERCHE PAR REGION 2+C$B$:B$"W10":"B,1":I10U:B$C$(I):"R,1":WSĂI:190-2 +150:11040F2+"N,1":WSİ170:800a2+(B$,1)C$İ170:800q2 +180:11030w2*+:2+600:C$"C":B$"W10":"B,1":I1014:B$C$(I):"R,1":WSĂI:113002+112402+"N,1":WS 113002+(B$,1)C$113003+610:11230K3$,C$"D":B$"W10":"B,1":I1017:B$C$(I):"R,1":WSĂI:11400V38,11340k3B,"N,1":WS114003G,(B$,1)C$114003L,610:113303,C$"E":B$"W10":"B,1":I1023:B$C$(I):"R,1":WSĂI:11500 3,114403,"N,1":WS11500 4,(B$,1)C$115004,610:11430a4,C$"F":B$"W10":"B,1":I1017:B$C$(I):"R,1":WSĂI:11600l4-115404 -"N,1":WS116004-(B$,1)C$116004-610:115304P-C$"G":B$"W10":"B,1":I1017:B$C$(I):"R,1":WSĂI:1904d-11640 5n-"N,1":WSī6205s-(B$,1)C$ī620/5x-610:1163055.:W5. RECHERCHE PAR APPELLATIONj5."R,1":WS1905."B,1":150:120405."N,1":WSİ170:8005/180:1203052:52 RECHERCHE PAR MILLESIME62200:34,1::WT$T$"Indiquez le mill{sime recherch{ !":"O,Z362"P,X":"/I,X,3,1":WS1800Q62WS3:"C,e":120:13020f6,3"R,1,2":WS190663"B,1,2":150:131306@3"N,1,2":WSİ170:8006J3180:1312066:66 LISTAGE COMPLET 66150:B$"W10":"B,1":B$"A10":"R,1":WS140307614040!76"N,1":WSİ170:800176180:1403077::p7: MODIF NB BOUTEILLES / FICHE / DETRUIRE FICHE7:"R,1":WS1907:"B,1":150:150407:"N,1":WS151007:"O,W":LLLL1:24:"":LL19153007:150308:M20LL:I1M:24:""::"#C,{":"#I,{,M,/TEMPO":"T,VB8;115:"/M,V,N,1,"(LL1)",2,1P8$;WS080088;WS1WS2WS3WS4WS5WS6WS7WS8WS9WS10WS11WS12WS13WS14WS15WS16WS17WS18152008L;WS19LL1:23:629:124:150309`;MC$MA$(WS):"R,1":15240 9t;"N,1\9;MB$(MI%)" "PP$:C(MB$):ME$(MC$,33,C):ME$MB$Ĺ34,1::"P,X":16000g9;152209;AP$"RETURN ICI POUR LA SUITE":MI%0:PP$"":CO$"":NA%0:NR%0:"O,W":24:""9;"#C,{":"#I,{,M,/TEMPO":"T,V":115:"/M,V,N,1,19,2,1":15140:~>:":> TRI DES MODIF / DESTRUC2:>WT616500B:>WT716050R:>WT817000X:>:k:> MODIF FICHE:>WT$T$"Modifier puis ESC, CTRL/A = abandon, ? = aide !":"O,Z":"/I,X,4,4:>WS1800:>WS3:"C,e":120:"P,X":16050; ?PP$"":"G":"/I,X,4,1":16100M;4?(CO$"R"CO$"O"CO$"B"):"G":"/I,X,5,1":16100q;H?NA%0:"G":"/I,X,6,1":16100;\?NR%NA%:"G":WT$T$"Erreur, nombre de bouteilles en cave plus grand que celui de l'achat !":"O,Z":"/k":130:"/I,X,7,1":16100 M A ENTRER UN ACHAT,B RECHERCHE PAR REGION, C RECHERCHE PAR APPELLATION,D RECHERCHE PAR MILLESIME,E VOIR TOUTE LA CAVE,F MODIFIER NOMBRE DE BOUTEILLES,G MODIFIER UNE FICHE,H EFFACER UNE FICHE,? N A ALSACE,B BORDEAUX,C BOURGOGNE,D CHAMPAGNE,E JURA ALPES,F LANGUEDOC,G LOIRE,H PROVENCE SUD-EST,I SUD-OUEST,? = AIDE,J VALLEE DU RHONE?*NA EDELZWICKER,B GEWURTZTRAMINER,C MUSCAT,D PINOT,E RIESLING,F SYLVANER,G TOKAY@4N A ST ESTEPHE,B PAUILLAC,C ST J ULIEN,D MARGAUX,E MEDOC,F HAUT-MEDOC,G GRAVES,H SAUTERNES,I POMEROL,J ST EMILION,K BOURG BLAYE,L ENTRE-DEUX-MERSh@>N A CHABLIS,B COTE DE NUITS,C COTE DE BEAUNE,D CHALON & MACON,,E BEAUJOLAIS AHN A CHABLIS GD CRU,B CHABLIS 1ER CRU,C CHABLIS,A FIXI N,B GEVREY CHAMBERTIN,C MOREY ST DENIS,D CHAMBOLLE MUSIGNY,E VOUGEOT,F VOSNE ROMANEE,G NUITS ST GEORGESARN A ALOXE CORTON,B PERNAND VERGELES,C SAVIGNY LES B,D BEAUNE & LADOIS,E POMMARD,F VOLNAY,G MONTHELIE,H MEURSAULT,I AUXEY DURESSE,J PULIGNY M ,K CHASSAGNE M,L SANTENAYB\N A RULLY,B MERCUREY,C GIVRY,D MONTAGNY,E MACON,F POUILLY FUISSE,G ST VERANgBfN A ST AMOUR,B JULIENAS,C CHENAS,D MOULIN A VENT,E FLEURIE,F CHIROUBLES,G MORGON,H BROUILLYBN A BRUT OU SEC,B DEMI-SEC,C BLANC DE BLANC,D CREMANT,E ROSE,F BOUZY ROUGE,G COTE. CHAMPENOIS,H ROSE DES RICEYSuCN A COTES DU JURA,B ARBOIS,C CHATEAU CHALON,D L'ETOILE,E VIN DE PAILLE,F VIN JAUNE,G CREPY,H SEYSSEL,I CHIGNIN,J ABYMES,K APREMONT,L AUTRES DE SAVOIE2DN A COTES ROUSSILLON,B RIVES IA JA @KA LA MA @NA OA hPA QA hRR  f"     """""""""      """"""""""99NMzhA SA TA UA VA @WA XA @YA ZA @[A \A @]A ^A h_R  f"   """""""""""""""""9999OMvhP P P P P @P P @P P @ P  P @ P  P h R  f"    """"""""""YGCAVE MCAVE PAIIE 80COL  PCAVE PHELLO  PCAVE PAGENDA PPATCH Z10A10@64 PARAMETRES ETIQIMDEVBLFACTREGL@?p`pHELLOMEMO0`͆QTVA:T1,T2,T3,T4Z10A10YALSACE EDELZWICKERRJHJH PMB.CRETAB PMB.MOPA PMB.SUPFIC PMB.UTIL PMENU MEMO MOPTIONS PCALL PHELLO PINIT GENE GET PMB.COPETA  PMB.COPFIC PMB.COPIE PMB.CREAT  PMB.CRECAT @64 PARAMETRES ETIQ MMB.M00IMDEVBLFACTREGL  MMB.M02  MMB.M03  MMB.M04 MMB.M05 MMB.M06 @@BCALL BINDGET?p`pHELLOMEMO MMB.C02  MMB.C0`͆QTVA:T1,T2,T3,T4"""""""9999PM}P P P P P @P P @P P @P P @P P hP P hP R h f"    """"""""""""""""""""9QMoP P P  P !P @"P #P @$P %P @&P 'P @(P )P h*P +R h f" - """"""""""""""""""999RM}P ,P -P .P /P @0P 1P @2P 3P @4P 5P @6P 7P h8P 9P h:P ;R h f"     """"""""""""""""""""9VMM PM PM PM PM (PM PM (PM PM (P M P M (P M P M PP M PM PPM PM PPM PM PPBNNNNNNNNNNNNNNNNNNWML0A!gP!C! g g XM7R1 A1/o ?P! /C)o qҭ q}",     , ,   : ,,    : , , , ,   : , ,      : , ,,,   㠺,,     : ,,      : , YM}hR!!*A!)P!$ɥ ҅ … R!A!P! ɥ " %҅… N +&@ $  堼堼 0젺 ,#  F B캠 F V ZM W!P0aM]     "򠉍ړ8 - ,,堼 ,堼 ,堼 ,堼 ,堼 , 堼 , w䠒젷󠠔젨bMP嬠O䬠宼堡Í 宠S堆嬠嬠堼P堀䧉ꀠ堼RVꀠ堲堼S堡ncMVPO堧O󧬠堼O嬠򠒅堼O 堡A=      E  嬠嬠 E    嬠򮠐!-          堡 󮟼F  堼OdMf9嬠   嬠9 9 򠒅 宠9嬠 宠9嬠 堠  󠒅 򠅓󮠼  鬠宠99eM}",",,򠅓,",, ,嬠 , 嬠,宠,",,堒堼, ,㠼,", ,堼, 6,󠡠,","0(CH$)6)2007(WC)440Ah3000:2:7)"RETIREZ VOS DISQUETTES"::7)"ET RANGEZ-LES AVEC SOIN."6:17:"* * *":10"POUR COMMENCER UN AUTRE TRAVAIL, INSERER":"UNE DISQUETTE $  214,0 "HELLOdX>#XT(2)09228r>#XT(1)0XT(2)09290>#TS0:0:72:">"TZ$(13)"GOTO9212":"!":>#:0::TS1ZJ%0İ125>#:0:72:">"ZW$(13)"GOTO9215":"!": ?#:0::ZI0XT(0):XE$(ZI)"S"XZ%(ZI)09225 20:"RETURN POUR RETOUR AU MENU. ";:OK$440/ UTILITAIRES< AD12,8U CH$"":"P,O":"I,O"dN AD12,255j  CH$"C":"0:MB.COPFIC CH$"D":"0:MB.SUPFIC CH$"T":"0:MB.COPETAH CH$"P":"0:MB.MOPA C (TR%(2)):9530&D%9650VD%ZA$ZQ$:ZB$"":"O,2":50:ZB$"O"WS9530sD%ZA$"":"O,2":145:9530yD%D&199:250D&ZA$"FICHIER ASSOCIE NON TROUVE":"O,1":2505D&2500)092900>#OK1:(TC$(ZJ))OK0:0:72:">"TC$(ZJ)(13)"GOTO9 ":6000, :10:"REMETTEZ LA DISQUETTE-PROGRAMME ";OK$:11309  NOTICEi :4:"POUR CONSULTER L'INDEX DE REFERENCE" :"PRENDRE LE POINT 3 DU MENU." :"PUIS METTRE LA DISQUETTE-DEMONSTRATION" :"ET DEMANDER L'APPLICATION 'HELP'. :ZB$"P"96902Cl%ZB$"M"9695lCv%ZA$"MODIFICATION":"G":"O,2":WNZDZC%1ZDTR%(1)}C%50:WS9530C%(WC)2WNWN(WNZDZC%1):9600C%(WC)69640C%WNC%ZA$VA$:WNZDTR%(1)2:"O,2"C%50:ZB$"N"9590D%ZB$"O":"U,B," SIBLE":6000F jCH$"2":">ZD$="G$ZD$G$":GOTO20":"0:MB.CRECAT":"#C,$$":1230P ~1000 ME$"METTEZ LA DISQUETTE. CONFIRMER (O/N)":"O,N":18:39:OK$:OK$"O"1000 CH$"1"OK$"O":CH$"2":"#C,$$":"#F,0":WSĺ"FORMATTAGE IMPOSSIBLE "C,2"QB0%"R,B,"(TR%(2)):WSZA$"N'EXISTE PAS":90:9540B:%ZA$"->)SUIVANT M)ODIF P)HOTOCOPIE Q)UIT"BD%ZB$"":"O,2"BN%WA13,21:WNZDTR%(1)2:50:(WC)3:"N,B,"(TR%(2)):WSZA$"FIN DU FICHIER "TR$(ZA)CX%(WC)39540Cb%WA13,255 $"1"CH$"2"1000# .CH$"1"ZD$"0"1200l LCH$"1"DD1ME$"FORMATTAGE INTERDIT...":"O,N":18:35:OK$:1000 VCH$"1"ME$"CONFIRMER L'OPERATION 1 (O/N)":"O,N":18:35:OK$ `CH$"1"OK$"O":CH$"2":"#F,"ZD$:WSĺ"FORMATTAGE IMPOS R$*AO$XT1İ196aAT$ZI%ZI%1:ZJ%ZJ%1:XT1İ192:"O,5":"?-4":9160A^$XT2ZKZK1:0:72:">"ZE$(ZK)":GOTO9320":"!":Ah$35:ZK(XE$(1))ZK0:196:"O,5":ZI1XT(0)1:"?-"(ZI)::ZQāZI1ZQ:"?-%":A|$9160B%ZOOMB&%WL$"2": TY$(13)"GOTO9228":"!":f@ $:0:72:">"ZT$(13)"GOTO9230":"!":@$35:ZI0XT(0):(XE$(ZI)"T"XE$(ZI)"S")XZ%(ZI)09280@"$TV%(XZ%(ZI))5:"="V$(ZI)"+"(Z(ZI)):V$(ZI)WW$:9280@,$V(ZI)V(ZI)Z(ZI)A@$ZIAJ$ZH4:"D,A,"Z 50:WS2500X8Z#ZI%0:ZJ%0p8^#XT(1)0XT190598_#ZI0XT(0):(XE$(ZI)"T"XE$(ZI)"S")XZ%(ZI)090588`#TV%(XZ%(ZI))5V$(ZI)"":90588a#V(ZI)08b#ZI8c#ZJ1:ZB$"" 9d#(TC$(ZJ))İ6009e#(WC)390709h#ZA$VC$" "(ZJ):ZB$" $(13)"GOTO9212":"!":T?#35:TS1ZJ%0İ125}?#72:">"ZW$(13)"GOTO9215":"!":?#35:ZI0XT(0):XE$(ZI)"S"XZ%(ZI)09225?$TV%(XZ%(ZI))5:"="W$(ZI)"+"(X(ZI)):W$(ZI)WW$:9225@$W(ZI)W(ZI)X(ZI) @ $ZI9@ $:0:72:">" R,A":ZA$"....OPERATION TERMINEE.":25007(# EDITION SELECTIVE7-#TM$(1)""ZA$"PAS D'ETAT DISPONIBLE":250572#ZA$"BORNE INFERIEURE":90:"O,1:7<#WNZRZD:50:WS25008F#72:71:"+GOTO9040":"!":H8P#:0::ZA$"BORNE SUPERIEURE":"O,1": C,1":25059>#2500W>#SELECTION/CALCUL/EDITION}>#(TC$(ZJ))XT(1)0XT(2)09290>#OK1:(TC$(ZJ))OK0:0:72:">"TC$(ZJ)(13)"GOTO9208":"!":>#35:OK0:196:9160>#XT(2)09228 ?#XT(1)0XT(2)09290:?#TS0:0:72:">"TZ 9920_6b(T2$(0))25006lWNZD:72:78:")M":"+GOTO7030":"!":6v:0::")":25006@ REORG6ZB$"":ZA$"CONFIRMER PAR 'O' POUR REORGANISER.":"O,1":50:ZB$"O"250097 ZA$"REORGANISATION EN COURS SUR UNITE...":ZB$ZU$:"O,1"i7: "# :(WE)09200_=#XT2ZK0ZK(XE$(1))1:90:9310=#XT1:"?-2":XT(2):"?-6":"?-2"=#XT1XT(1)İ127:"?-5":"?-2"=#ZH4ZA$(ZI%)" ENREGISTREMENTS DETRUITS"=#XT1ĺZA$/>#:0::"#C,A":"#O,A,F,"ZU$":MBA/"ZN$:90:ZH4:" :">X"(ZR)UA$(TV%(ZR))"=ZY"UA$(TV%(ZR))":GOTO5920":"!":5 35:23905p JUMP PROG PERSO 6TM$(0)""ZA$"ON LANCE "TM$(0)"? (O/N)":ZB$"":"O,1":50:ZB$"O":98:""TM$(0)56ZB$"O"ZA$TM$(0)" INEXISTANT":2505?62500J6X R<#72:70:"+GOTO9130"(13):"!":f<#35:XT182,172x<#XT(2)1İ165<#ZK0:ZL,0:ZQ(XE$(2))XT(0)1:ZH49140<#ZA$"":ZB$((972)):WNZFZD1:"O,1":50:WS9190<#196:"P,5":XT1İ195=#"R,A,"ZR$:(WE)092007=#:"N,A,"ZR$ 0)""(TR$(1))(975)ZA$"PAS DE ZOOM DISPONIBLE":"O,1":25054"O,1"4WNTR%(0)ZD:50:WS(WC)62500*572:">ZY"UA$(TV%(ZR))"=X"(ZR)UA$(TV%(ZR))":"TR$(ZA2)"="TV$(TR%(ZA))(13)"GOTO5900":"!":;5 :0::991059500:72 DECLENCHEMENT DU SOUS-TOTAL: ZONE?":ZB$ZR$:"O,1":50:ZA$"":TD(ZB$):TDXT(2)0:WS2500;#ZH4ZA$"CONFIRMER LA DESTRUCTION (O/N)":ZB$"":"O,1":50:ZA$"":ZB$"O"2500<#TV%(ZR)4X1$""X2$""X3$""X4$""X5$""9125,<#"B,A,"ZR$ ":40053TC$"E"TC$"N"TC$"C"TG$"6":4005325003DESTRUCTION3ZA$"OK POUR DESTRUCTION? (O/N)":1003ZB$"N"25004"D,A,"ZR$:WSZA$"DESTRUCTION IMPOSSIBLE":250542500)4 ZOOM4ZA$"RETURN POUR VALIDER":TR$( 5]:x#ZA$"ETAT "ZG$TM$(ZI)ZG$:ZB$""s:y#(TM$(ZI))9075:#"O,1":WA13,21:50:WA13,255:WS2500:#(WC)39100:#ZB$""ZEZI:9110:#9090:#:9075:#180;#XN$TM$(ZE):"R,X":WSZA$"ETAT NON CREE":9090;#XT(2)1ZA$" HIER "ZN$:2505o2 25002"P,I":TG$"1":40102"G"2"I,I,"TG$2TN940052TP66TP72TP0TG$"2":40052TP$"O"TP$"N"TG$"3":4005*3TA$"E"TA$"N"TA$"C"TG$"4":4005X3TE$"E"TE$"N"TE$"C"TG$"5 ":WNZDZF2:"O,1":WA13,21:50:WA13,255:(WC)3ZJZJ1:WC,0:90609i#ZB$"M"ZA$TC$(ZJ):"O,1":WNWN1:50:TC$(ZJ)ZA$:"U,C,"ZS$:90649j#(WC)6ZJ0:90709k#WS2500:l#(ZB$)9070 :m#9064:n#ZH4XT(0)06:s#WNZFZD2:ZI1 ":"I,H":"C,1":25201 ZB$"S"60001 ZB$"Q"ZH0:2001 (ZB$)25021 (ZB$)0(ZB$)ZC:"G":25081 ZR(ZB$):ZR$ZB$:"R,A,"ZR$:25052( "P,1":WNZFZD2:50:WS410!2 2200.2 SUIVANTe2 "N,A,"ZR$:(WE)ZA$"FIN DU FIC ZB$"I"4000|0 ZB$"C"22000 ZB$"X"70000 ZB$"Z"58000 ZB$"G"80000 ZB$"P"İ150:2500>1 ZB$"O":"%"ZU$:ZA$"OCCUPATION DISQUETTE: "(((35(WE))35100))" % SUR UNITE":ZB$ZU$:"O,1":50:2500n1 (WC)5:ZB$"":"P,H ZX$"FICHIER NON REPERTORIE":969(TD$(TU):TB$TV$(TC%):TZ%TZ:ZC%TV%(0):TF$ZN$:"R,C,2"O)"#C,2":"#C,B":"#O,B,F,"TD$":MBA/"TR$:"#O,2,M,"TD$":MBA/"TR$:WSZX$"ERREUR DE FICHIER ASSOCIE":969)TR$(0)TR$:TR$(1)TD$:TR$(2)TB$:TR%( 90:2501x/ "O,1":97/ WNZFZD2:50:99/ ZH0:ZB$"C"ĹWA13,21:2200/ (WC)33000/ (WC)1410/ ZB$"A"ZH1:10000 ZB$"R"ZH3:10000 ZB$"M"ZH2:1000.0 ZB$"E"9000F0 ZB$"V"ZH4:9000X0 ZB$"D"5600j0 O2)3(ZO3)'50:WSWNZNZD:995'(WC)2WNWN(WNZV):970'(WC)6974'WNWN1:WNZW2970(ZO$"":ZX$VA$:"O,S":WNZW:50:WS9950(ZO$"N"969A(ZO$"O"980J(974a(60:65:ZO1990(TF$TR$:"R^^,C,2":WS SULTATION"."O,1":WNZRZD:50:WS2500.V (WC)3:"R,A,"ZR$:(WE)3100.[ (WC)32502.` "R,A,"ZR$:(WE)ZA$"N'EXISTE PAS.":2505/ 9900/ WL$"1":"C,1"J/ ZA$"ACDEGIMOPQRSVXZ ?=AIDE VOTRE CHOIX?":ZB0i/ ZB$"":WL$"1"İ 1TX$"N"&ZO$"":ZX$"NUMERO DE LA PARTIE A MODIFIER? (1-4)":"O,S":WNZW:97:50:99&ZO$"P"İ155:963'(WC)3ZNZFZNZN1:9555'(WC)4ZN1ZNZN1:955E'ZO$""995b'ZO(ZO$):ZO1ZO4963'"O,S":WNZV2(ZO1)2(Z EUR DE DONNEES":2508-ZH11000-2500-MODIF-"U,A,"ZR$:WSZA$"MODIFICATION IMPOSSIBLE":2505-2500-ZH2:"R,A,"ZR$.2500.CONSULTATIONR.WL$"1":90:ZC1ZA$"RECHERCHE PAR "TI$(ZR):ZB$ZR$o.ZC1ZA$"CON TR$(2):TC%TR%(2):TD$TR$(1):TZ%TR%(1)%Z0$T0$(ZN):Z1$T1$(ZN):Z2$T2$(ZN)%ZK$"":ZNZCZK$"CLEF"&TV%(ZN)4ZK$ZK$" ALPHA";&TV%(ZN)3ZK$ZK$" NUMERIQUE"&TI$TI$(ZN):TI%TI%(ZN):TV$TV$(ZN):ZV$ZV$(TV%(ZN)):TX$"O":TX%(ZN) ZH1ZA$VA$,(ZH2ZA$"OK POUR MODIFIER? (O/N)",2ZH3ZA$"OK POUR RAJOUTER? (O/N)",<100:WS2500,FZB$"N"1110,ZZH214509-xTX$(0)"N":"W,A":(WE)ZA$"HOMONYME EXISTANT":2508N-TX$(0)"N"1000~-"A,A":(WE)ZA$"ERR $180:98:"V,5":"#C,5":"#N,5,M,@"ZD$",MBE/"TM$(ZE):96$(WE)405$410$ SPECIF SAISIE%WNZDWNZFZDı+%WL$"S":"C,S":ZNWNZD%TR$"":TR%0:TB$"":TC%0:TD$"":TZ%0:TR$(0)""TR%(0)ZNTR$TR$(0):TR%(TR$(1)):TB$ 50:(WE)2500+(WC)1İ950:1200+(WC)2WNWN(WNZD(ZH2)(ZC1)):1201+Z0$(WNZD)""WR1,WR1Z1$(WNZD)""İ72:75:"+GOTO76":"!":),WR1:"G":1201;,(WC)61300W,WNWN1:WNZDZF1190g,VALIDATIONy, # #R MAJ MASQUE DE SAISIE#\98:"V,1":"#C,1":"#N,1,M,@"(TU)":MBA/"ZN$:96$f(WE):"#O,1,M,"(TU)":MBA/"ZN$:405"$p410<$MAJ MASQUE D'EDITION$ZC$"":ZM$"NUMERO DE L'ETAT IMPRIME?":"O,P":WNZP:50:ZE(ZC$):ZE0410 NREGISTREMENT"*`ZH2ZA$"MODIFICATION D'UN ENREGISTREMENT":"G"*jZH3ZA$"RAJOUT D'UN ENREGISTREMENT"+tZB$"":"O,1":WNZDZC(ZH2)1"+~ZH2WNZDZC11200P+T2$(WNZD)""İ72:78:"+GOTO80":"!":g+TX%(WNZD)01250+WR0: :2500"vZB$"":600" MAJ PARAMETRES"99:WN816"50:WS405"(WC)6730#(WC)2WNWN2(WN8)#H#ZC$"":ZM$VA$:"O,P":WNZP:50:ZC$"O"405[#TX%(0)TX$"O"k#"U,C,"ZS$#ZM$"MODIFICATION EFFECTUEE":410 0)ZN:TR%(1)TZ%:TR%(2)TC%:TR%(3)ZC%)TI$(ZN)TI$:TI%(ZN)TI%:T0$(ZN)Z0$:T1$(ZN)Z1$:T2$(ZN)Z2$:TX%(ZN)TX$"N":"U^^,C,"ZS$*963&*:WNZNZD:WL$"1":"P,1":/*950J* SAISIE/MODIF/RESTITX*LZH1İ90*VZH1ZA$"SAISIE D'UN E $"E"850!ZC$"I"900!ZC$"P"İ160:410!ZC$"Q"(ZC$)ė:2500!420A"XZA$"AUTRE "VC$:WNZDZF2:"O,1":WA13,21:50:WA13,255:(WC)3ġ:9070"bZB$""ZA$"":ZB$(ZJ):WNWN1:"O,1":50:TC$(ZJ)ZA$:"U,C,"ZS$:"lWSġ TX%(0)7000 2500  PARAM APPLIC ZM$"ABANDON...":ZC$"":418!ZB$"":ZC$"":ZI%0:TX$"N":TX%(0)1TX$"O"H!ZM$"E)CRAN I)MPRIMES M)ODIF P)HOTOCOPIES!"P,P"u!WL$"P":WNZP:50:(WE)2500!ZM$""!ZC$"M"700!ZC $"RECOPIE DE CET ECRAN? (O/N)":VA$"VALIDATION (O/N)"VC$"CONDITION COMPLEMENTAIRE":***POINT D'ENTREE SI RETOUR***IZ11:Z210|ZV7:ZW16:ZP18: NB FENETRES MASQUES U03/U01 96">":"@,2"XX$" -> : SUIVANT. ? : CATALOG (I42)"="TV$(TR%(I42)):ZN1TZ:T0$(ZN)""Z0$(ZN)""::400Z0$T0$(ZN):61:* ZN1TZ:T1$(ZN)""Z1$(ZN)""::402@ Z1$T1$(ZN):66: 90:ZCTV%(0):ZFTZ:TR$TR$(ZA):TR%TR%(ZA):ZD2:ZR1:ZC%TR%(3):ZR$"":ZC1ZR$"1" 0":UB$(7)"0"WZ26:Z0$(WZ),Z1$(WZ),Z(WZ),V(WZ),V$(WZ),W(WZ),W$(WZ),X(WZ) hI18:ZJ$ZJ$((961I))::(964)47Ą"INITIALISATION MAUVAISE ";ZJ$:210ZP$((980)):ZD$((ZP$)(16((ZP$)15)))"#C,$":"#O,G,G,0:MB.U0ZQ (58):ZZ$ZZ$"GOTO95" I074:TR$(I)""(TR$(I1))(975)398:OUVRIR FICH ASSOCIES YM$(I42):YF$(I466):"#C,"YM$:"#C,"YF$:"#O,"YM$",M,"TR$(I1)":MBA/"TR$(I):"#O,"YF$",F,"TR$(I1)":MBA/"TR$(I)YR$(I4)TR$ "N":TC$"N":Z309900<ZG$(34):ZV$(1)"A":ZV$(2)"D":ZV$(3)"C":ZV$(4)"F":ZV$(5)"$":ZV$(6)"E":ZV$(7)"B"UA$(1)"$":UA$(2)"$":UA$(3)"$":UA$(6)"%":UA$(7)"%":UB$(1)ZG$ZG$:UB$(2)UB$(1):UB$(3)UB$(1):UB$(4)"0":UB$(5)"0":UB$(6)" ZN$:"#O,A,F,"ZU$":MBA/"ZN$:(WE)WI0TU0:WI1:381 (WE)WI1TUTU1:TU(975)381=(WE)XX$"MASQUE OU FICHIER INEXISTANT":280VZT1:APPLIC TROUVEEpTX$(0)""TX$(0)"O"ZZ$"":ZI1TZ:ZZ$ZZ$TV$(ZI)"="UB$(TV%(ZI)) FIEZ VOTRE DISQUETTE! ";ZB$:ZA$"RETOUR AU MENU GENERAL? (O/N)":100$ZB$"N"250w"#C,$$":98:"0:MENU MEMO"::10:"REMETTEZ LA DISQUETTE-PROGRAMME.";ZB$:210::255::WE189:WCWA5:ZI0:ZL947:TN(972):TP66:TP$"N":TA$"N":TE$ y(WC)3:"N,C,2":WSXX$"PAS D'AUTRE APPLICATION DISPONIBLE":290z(WC)3ZN$TF$:290P{TF$ZN$:"R^^,C,2":(WE)XX$"APPLICATION INEXISTANTE":290p|ZS$"2":TU(975)TUTU1~}ZU$(TU)~"#C,1":"#C,A":"#O,1,M,"ZU$":MBA/" "Z("(ZI)")="TV$(XZ%(ZI))":"ZI:(ZL)60ı"?-2"6"?":TP72āZI16:"?-%":ZI^ZL,0:"?-1":"?-2":"?-3":"?-2"::TN:(979)ĺ((979));"132N";:1656TS,132:TN::"#C,$$":10:"ERREUR "(222);:". VERI LICATIONS":120h"N^^,C":(WE)370mTF%,TF$:360%r120:" APPLICATION NUMERO? ";ZZ$:(ZZ$)ZN$"":250DtZZ(ZZ$):ZZ1ZZTF%370wTF%ZZ:"R^^,C,1":(WE)XX$"NUMERO D'APPLICATION INEXISTANT":"C,0":290xZN$TF$:ZS$"1":381 WSZA$"MASQUE INEXISTANT"::WL$"1":"C,1":2508 &ZE$"":ZI0:XT(3)0185IZI0XT(0):XC$(ZI)""Ă:185gZE$ZE$XC$(ZI)(13):ZIZT$"":XT(1)0XT(2)0ıZI0XT(0):(XE$(ZI)"T"XE$(ZI)"S")XZ%(ZI)0190ZT$ZT$ ":"#C,C":"#O,C,F,"ZD$":MB.CAT.01":WSZD$((ZD$)1):330IV"#C,X":"#O,X,F,"ZD$":MB.CAT.02":WSXX$"CATALOGUE DES ETATS INEXISTANT":290iW(WC)3TF$ZN$:"R^^,C,2"Y(ZN$)ZZ(ZN$):375^(WC)5377c:" CATALOGUE DES APP "X("(ZI)")="TV$(XZ%(ZI))":"ZI:ZI110:ZE$(ZI)"":9ZK1(XE$(1)):ZI0XT(0)XZ%(ZI)0ZE$(ZK)ZE$(ZK)"Y"(ZK)UA$(TV%(XZ%(ZI)))"("(ZI1)")="TV$(XZ%(ZI))":"ZI:ZK:"#C,5":"#O,5,M,"ZD$":MBE/"TM$(ZE): UE."WL$"0":WN1:"C,0"""O,0":50:(WC)3(WC)5330 ,WSZT210(6WSZTWL$"1":"C,1":200c@ZN$""XX$"ENTREZ AU MOINS UN CARACTERE":"O,0":290J(ZD$)(975)1XX$"CATALOGUE MEMOBASE INEXISTANT":ZD$"0":290T"#C,$$ ZM$ZQ$:ZC$"":"O,P":50:ZC$"O"WSġ:4106ZM$"":ZC$"":WNZP1:"O,P":50:WSġ:405A145:ZW$"":TY$"TT$=MID$("TV$(TD)",Z1,Z2)":TZ$"IFMID$("TV$(TD)",Z1,Z2)<>TT$THENTS=1"ZI0XT(0):XE$(ZI)"S"XZ%(ZI)0169ZW$ZW$ :84:118:"?-*":119:86:0:!ZA$ZQ$:100:ZB$"O"WSġ:2500UZA$"":ZB$"":"O,1":WNZFZD1:50:WSġ:2500`145:ZX$ZQ$:ZO$"":"O,S":50:ZO$"O"WSġ:ZO$"":963ZX$"":ZO$"":WNZW1:"O,S":50:WSġ:963145: TT(773)256(774)ijE +(TT)(WL$)TTTT(TT3)256(TT2):43d ,(TT1)77(TT1)71ijj - 2 ***POINT D'ENTREE*** 3(TT)(WL$)İ40 47WN(TT5)256(TT4)ij 5TT7WN1,(TT7WN1)16:"I-"WL$ 7TT7WN1,(T -2":"?-6":"?-2"Z31İ194:135Z30135<ZI1Z3:"?-%":(ZL)59İ194:135YZI:"?-2":"?-3":"?-2"ZJ%0:ZI0XT(0):(XE$(ZI)"T"XE$(ZI)"S")XZ%(ZI)0138TV%(XZ%(ZI))5W$(ZI)"":138W(ZI)0ZI:115 PG:MB.UTIL# -29/06/83< V20.6-MR-09/04/84-G9900S770,50q WA(116)256(115)516WB(768)256(769)"!":#:0::9920$( ***** AUTOMASQUE IMAGOL*****)TTWB292: ADRESSE DEBUT BUFFERS  * H0TD$(1)ZJ$:"U,C,"ZS$:ZM1 n-sTN:(979)ĺ((979))"80N":Ct1656TN,80:TN:v((978))((973(TE$"E")977(TE$"N")974(TE$"C")));:w((978))((977));:xI139:"-";::"":}XT1ı~196:192:"O,5":"? HIER A DETRUIRE INEXISTANT":270A :"DESTRUCTION DU FICHIER TERMINEE... d ::"ON CONTINUE? (O/N) ";OK$t OK$"O"10 ,"#C,$$":"0:MENU MEMO 6"METTEZ UNE DISQUETTE PROGRAMME EN 0 ";OK$ @300)ZV$:2750 Z6$Z6$"<"(XB$,1,T 72:">"ZE$:"!":_0::`WA15,16:WA14,18AaWA11,63:WA12,8:WA13,21:[bWA15,255:WA14,255cWA13,255:WA12,255:WA11,255:dZB$"":"O,1":WNZFZD2:50:WSġ:1500fZB$"O"ZB$"N":"G":100iZM0ZB$"O"Z GUE.":I11500::10* "D,1":WSĺ"ERREUR..."V "SUPPRESSION DU CATALOGUE EFFECTUEE...\ "#D,M,"(TU)":MBA/"N1$:WSĺ"MASQUE A DETRUIRE INEXISTANT":250 "DESTRUCTION DU MASQUE TERMINEE... "#D,F,"(TU)":MBA/"N1$:WSĺ"FIC 33,1: I:0::"O,1":49207 K">"Z0$(WNZD)(13)Z1$(WNZD)(13):G L:0::1206c N">"T2$(WNZD)(13):z O:0::"O,1":1250 P:0::"O,1":1200 R1656(972),80: T U875,188: V875,192: Z72:">"ZZ$:"!": [ $)3006 :"LE CATALOGUE EST SUR L'UNITE NUMERO: ";D1$R 2::"OK? (O/N) ";OK$:c <OK$"O": d"#O,1,F,"D1$":MB.CAT.01":WSĺ"CATALOGUE MEMOBASE INEXISTANT SUR ";D1$;:"";O$:10 TF$N1$:"R,1,2":WSĺ:"CE NOM NE FIGURE PAS AU CATALO $,ZS,ZIZS)"AND":ZSZI2S D(Z1$,ZI,2)""Z1$(ZN)Z1$(ZN)TV$(ZN)(Z1$,ZS,ZIZS)"THENWR=1":[ E: F">"TV$(ZR)"=""Y"ZR$UA$(TV%(ZR))":": G">Y"ZR$UA$(TV%(ZR))"="TV$(ZR)":"TV$(ZR)"="UB$(TV%(ZR))":": H1:54,88:55,255:  PG:MB.SUPFIC( V1.5-30/10/83? V1.4-21/09/83K770,50_ "#C,$":"#C,$$:5)"DESTRUCTION D'UNE APPLICATION":I139:"=";::"=" 2);::" METTEZ VOS DISQUETTES EN PLACE. "::::"NOM DE L'APPLICATION: ";N1$:(N1 (Z0$,ZI,2)""Z0$(ZN)Z0$(ZN)TV$(ZN)(Z0$,ZS,ZIZS)"THENWR=0":? @:X AZ1$""Z1$(ZN)"": BZ1$(ZN)"IF":ZS1:ZI1WZ:(Z1$,ZI,2)"OU"Z1$(ZN)Z1$(ZN)TV$(ZN)(Z1$,ZS,ZIZS)"OR":ZSZI2 C(Z1$,ZI,2)"ET"Z1$(ZN)Z1$(ZN)TV$(ZN)(Z1 PG:MB.MOPA' MR/24/06/83-SO@ MAJ V1.3/24/11/83J 900nd"#C^^,$":S189:RP$(25),RP(12)n"#O,F,F,0:DATAxDA%2:"R,F":(S)900"#O,M,M,MB.M03 "P,M":"I,M":(S)900"U,F":"0:MENU MEMO V% T7WN1)16:# : *****FIN ROUTINE*****< <Z0$""Z0$(ZN)"": =Z0$(ZN)"IF":ZS1:ZI1WZ:(Z0$,ZI,2)"OU"Z0$(ZN)Z0$(ZN)TV$(ZN)(Z0$,ZS,ZIZS)"OR":ZSZI2 >(Z0$,ZI,2)"ET"Z0$(ZN)Z0$(ZN)TV$(ZN)(Z0$,ZS,ZIZS)"AND":ZSZI27 ? 0 0u190:WSĺ"MISE A JOUR DU CATALOGUE IMPOSSIBLE"4000 ETIQUETTESB ZT9ZA$"TROP DE ZONES A EDITER":"O,M":1220 OK$"":ZI$"":ZP(1)1:ZP(2)9:ZP(3)3:ZP(4)35:ZP(5)2: PARAMETRES PAR DEFAUT ZI15:(XE$(ZI))(XE$ I%(XZ%(ZI))2)">"ZV$ ZI: DECROCHER ETAT DETRUIT ZI15:TM$(ZI)XN$TNZI: ZI:  NUMERO ACCROCHAGE+ 0 ZI15C : TM$(ZI)""TNZI:Q D :TNZI:^  SORTIE ">ZN$="ZG$TF$ZG$":GOTO220" "0:MB.UTIL":190:410W$d(37)21Ė1:21:"VALIDATION: ";::"ESC";::" ABANDON: ";::"CTRL/A":ci(37)22Ė1:"TABLEAU TROP GRAND, PRESSER RETURN. ";:"";OK$:"C,M":1200n23:"FICHIER: "TF$" ETAT: "XN$xWA15,255:WA14,255:WA11,255:"#N,I,M,"ZD$ZW$ZW$ZG$"ZJ%*"ZG$:2650P TV%(XZ%(ZI))5ZW$ZW$ZG$"W$;"(ZI)"+"ZG$:26500U ZW$ZW$ZG$"W"ZU$(TV%(XZ%(ZI)))";"(ZI)ZG$8Z ZID Z6$ZV$ ZI0ZT:XE$(ZI)"S"Z6$Z6$(XB$,1,TI%(XZ%(ZI)))ZV$:2750 Z6$Z6$"<"(XB$,1,T3";:160'2"4";::ZI0ZT:ZV$;"<"(TI%(XZ%(ZI))2)(TI%(XZ%(ZI))2))">";::ZV$;::"4";:150?<:ZE$;:ZL140ĺ""YAXT(1)0XT(2)01380zF:"5";::Z5$;::"5";:150P:ZT$UXT(2)01380Z:"6";::Z6$;::"6";:150_:ZZG$ZI: LIGNE 5 (TOTAUX) Z5$ZV$+ ZI0ZT:XE$(ZI)"T"XE$(ZI)"S"Z5$Z5$(XB$,1,TI%(XZ%(ZI)))ZV$:2550[ Z5$Z5$"<"(XB$,1,TI%(XZ%(ZI))2)">"ZV$e ZI:v( SOUS-TOTAUX< ZI0ZT:XE$(ZI)"S"2650A XZ%(ZI)0T(2)İ2600:::"1";::ZL12(ZL12))" LE <"6)">";::"1";:160;#"2";::ZI1ZL:ZH$;:::"2";:160("3";::ZI0ZT:ZV$;(TI$(XZ%(ZI)),1,TI%(XZ%(ZI)));:TI%(XZ%(ZI))(TI$(XZ%(ZI)))ĺTI%(XZ%(ZI))(TI$(XZ%(ZI))));-:ZV$;::" ĺ""ZI::ZE$1380 NOMS VARIABLES TOTAUXZI0ZT:XE$(ZI)"T"XE$(ZI)"S"2050?XZ%(ZI)0ZT$ZT$ZG$"ZI%*"ZG$:2050yTV%(XZ%(ZI))5ZT$ZT$ZG$"V$;"(ZI)"+"ZG$:2050ZT$ZT$ZG$"V"ZU$(TV%(XZ%(ZI)))";"(ZI)2(3WN(ZB13)(ZB6))2:50:WNWN1:50 ZA$"":1260ZE$ZG$"ZJ$*"ZG$TZI0ZT:XZ%(ZI)0ZE$ZE$ZG$"ZI%*"ZG$:1303ZE$ZE$ZG$TV$(XZ%(ZI))ZU$(TV%(XZ%(ZI)))ZG$Z5$"":Z6$"":ZW$"":ZT$"":XT(1)XT(2)İ2000:2500:X (XZ%(ZI)))";"(ZI1)ZG$:ZJ:ZI?ZLZP(3)ZP(1)(ZP(3)ZP(4))D"C,M":300l::ZI1ZT1Xv:ZI;::ZJ1ZP(1):ZP(3))"<"ZP(4)2)">"ZP(5));:ZJq:ZI;:ZP(1)31930(ZT4ZP(4)20ZP(1)3)(ZT6ZP(1)2)(ZT11ZP(1)1)NTAXE INCORRECTE":"O,M":1240ZI300ZB$"N"1300ZY$""kZX$"NUMERO DE ZONE A MODIFIER?":ZB$"":WN2123:"O,M":50:(WE)1200(ZY$)ZX$"":1200ZB(ZY$):WNZB:ZB13WNWN7:ZB201260ZB6WNWN7WN (ZI))0XE$(ZI)(ZP(ZI)) ZI"P,N":"I,N,"ZI$:WS:"P,M":1240OK$"O"ZI$"6":1806;ZI15:ZP(ZI)(XE$(ZI)):D223dZE$"":ZI0ZT:ZJ1ZP(1)&XZ%(ZI)0ZE$ZE$ZG$"ZA$"ZG$:18500ZE$ZE$ZG$"Y"(ZJ)UA$(TV%1800WZI0ZT:(XE$(ZI)"T"XE$(ZI)"S")TV%(((ZZ$(ZI))))4ZZ$(ZI)"0"ZA$"NE PAS TOTALISER UNE ZONE ALPHA":"O,M":1240xXE$(ZI)"S"XT(2)1:XT(1)1XE$(ZI)"T"XT(1)1XE$(ZI)""XE$(ZI)"T"XE$(ZI)"N"XE$(ZI)"S"ZA$"SY @"U,C,"ZS$:WSĺ"MISE A JOUR DU CATALOGUE IMPOSSIBLE"4000 ETIQUETTESB ZT9ZA$"TROP DE ZONES A EDITER":"O,M":1220 OK$"":ZI$"":ZP(1)1:ZP(2)9:ZP(3)3:ZP(4)35:ZP(5)2: PARAMETRES PAR DEFAUT ZI15:(XE$(ZI))(XE$ARGEUR ZONE "ZY$" INSUFFISANTE":1262ZIZTZI1:WNWN1JWA11,63:50:WA11,255:WS(WC)21220(WC)5ZA$"EXEMPLE: N;T;N;T (T=TOTAL) E=ETIQ":"O,M":1240XT1:XT(0)ZT:XT(1)0:XT(2)0:XE$(0)"E"(XE$(0),1,3)"ETI"XT2: ":MBE""/"XN$WA15,16:WA14,18:(WE)ZA$"MASQUE NON CREE.":"C,M":1200XA$(0)TF$R"W,E":WSZA$"ERREUR DE CREATION":"C,M":1200X|"CREATION OK SUR UNITE "ZD$"."TN6TM$(TN)XN$XT2āZI15:XE$(ZI)(ZP(ZI)): TYPE: 0;2;4;1;16;12; ETC...":ZZ$(0)"":"O,M":1220jZI0TM:XZ%(ZI)(ZZ$(ZI)):XZ%(ZI)TZZA$"NUMERO DE ZONE INEXISTANT":"O,M":1220XZ%(ZI)0(ZZ$(ZI1))0ZZ$(ZI)"0"1238ZLZLTI%(XZ%(ZI))1:TI%(XZ%(ZI))3ZY$(XZ%(ZI)):ZA$"L50:ZY$"O":"D,E":"#D,M,"ZD$":MBE/"XN$:3000$TN0İ31007ZY$XN$1182ZX$"NOM DE L'ETAT IMPRIME:":ZY$XN$:ZA$"TAPER '?' POUR CONNAITRE LA SYNTAXE":"O,M"ZL1:WN2124:WA11,63:50:WS(WC)21182(WC)5ZA$"SYNTAXE  PG:MB.CRETAB MR-13/08/836 V5.8-11/01/84- D"#C^^,$"`TM30: NB MAX COLONNESl30000 XZ%(TM),ZZ$(99),XE$(99),TI$(TM),TI%(TM),TR$(TM),TR%(TM) WA(116)256(115)516:WCWA5WB(768)256(769)1000 ( ***M DE L'ETAT IMPRIME?":ZY$""1"O,M":WN2123:WA11,255:50:(WE)1120`ZY$""ZA$"DONNEZ UN NOM A L'ETAT":1185sXN$ZY$:"R,E"(WE)āZI0XT(0):ZZ$(ZI)(XZ%(ZI)):ZI(WE)ZX$"ETAT EXISTANT A DETRUIRE? O/N":ZY$"":"O,M":"#N,B,F,"ZD$":MB.CAT.02"L FWSĺ"CREATION DE CAT.02 NON EFFECTUEE.":I12000:p d::20:"...TERMINEE.":"#C,$" nZD$"0"ĺ:"REMETTEZ LA DISQUETTE-PROGRAMME ";OK$ x"#C,$$":I11500::"0:MENU MEMO":110(ZG)"ZA$?:"(ZG)(ZG)"ZBy"#C,E":"#O,E,F,"ZD$":MB.CAT.02":WSZX$"CATALOGUE DES ETATS INEXISTANT":1122d~(ZN$)TF%(ZN$):"R,C":WS1175(ZN$)ZN$TF$:ZS$"1":1182TF$ZN$:"R,C,2":WSZA$"APPLICATION INEXISTANTE":1122ZS$"2"3100ZX$"NO,TI$;,TI%/;,TR$;,TR%/;,TM$;,TM%/;,TX$;,TX;,TX%/;,TC$;,TC;,TD$*;,T0$;,T1$;,T2$;"i :10:"INSTALLATION..." "#N,A,F,"ZD$":MB.CAT.01 (WSĺ"CREATION DE CAT.01 NON EFFECTUEE.":I12000: 2">XN$012=XA$;,XZ%;,XC$;,XE$;,XP$;,XS;,XT;,XT < :MB.C06" L"#C,$$"A `NL$"M":WN1:"C,M":WA12,255:WA13,255:WA11,255:1125L b"O,M"T e50a jWS4000 o(ZD$)(975)ZX$"PAS DE CATALOGUE MEMOBASE ":ZD$"0":1122 t"#C,C":"#O,C,F,"ZD$":MB.CAT.01":WSZD$((ZD$)1):1135= PG:MB.CRECAT) V2.1-17/01/844"!":L:(975)1ZD$"0""#C,$":"#O,M,M,0:MB.C07":ZD$"0"ME$"INTRODUISEZ VOTRE DISQUETTE-FICHIER.":"#C,$$""P,M":"I,M"WSOK$"O"120L ">""TF%&TF$012=TF%,TF$,TU,TZ,TV$;,TV%/; ZH$"-":ZV$"!":ZG$(34):WE189:XB$" " ZP$((980)):ZD$((ZP$)(16((ZP$)15))) 770,30 ZU$(2)"*":ZU$(5)"*":ZU$(6)"*" "#O,M,M,0:MB.C05":"#O,N,M,0D$(1)ZJ$:!,TV$(0)"ZI%":TI%(0)5!0"W,C":WSĺ"ERREUR DANS LA MISE AU CATALOGUE.":":">ZN$="(ZG)ZN$(ZG)":GOTO220">"l"0:MB.UTIL":(WE)İ190:1900H"1900" :"#C,$$":10:"VERIFIEZ VOTRE DISQUETTE! ";:"";OK$:600MM$"OUI" 4 UA$(1)"$":UA$(2)"$*":UA$(3)"$":UA$(6)"%":UA$(7)"%": ,ZA$"LARGEUR DU TABLEAU = "(ZL)" OK? (O/N)":ZB$"":"O,M":WN2127:50:(WE)ġ:1200 6(WC)2WNWN2::1240 @  CREATION MASQUE D'EDITION "#C,$":"#C,$$"i ION FICHIER AUTO :10:"CREATION DU FICHIER... ""ZW$ "#C,A"/!"#N,A,F,"ZU$":MBA""/"ZN$:(WE)XX$"ERREUR DE CREATION":705Y!&:"...TERMINEE SUR LE DISQUE "ZU$"."!+TF%TF%1:TF$ZN$:TU(ZU$):TZZZZX:TV%(0)ZX:TD$(0)ZJ$:T 256(TT4)ij0 PTT7WN1,(TT7WN1)16:"I-"NL$Q ZTT7WN1,(TT7WN1)16:m _ *****FIN ROUTINE***** dI139:"-";::"": ZL78ĺ"" ZL110ZL78ĺ"" :"#C,$$":10:"REMETTEZ LA DISQUETTE PROGRAMME ";KO$:JZI1ZX^ZW$ZW$XX$(ZI):X(ZI)1ZW$ZW$(ZL(ZI))hZIZXZW$ZW$"&"rZI, ZW$ZW$"=": DEF VARIABLES ENREGISTREMENTU ZX1āZI1ZX:ZW$ZW$XX$(ZI)",":b ZI1ZZ ZW$ZW$ZZ$(ZI):ZIZZZW$ZW$"," ZI  CREAT ** AUTOMASQUE IMAGOL*****B )TTWB292: ADRESSE DEBUT BUFFERS ^ *TT(773)256(774)ij +(TT)(NL$)TTTT(TT3)256(TT2):43 ,(TT1)77(TT1)71ij - 2 ***POINT D'ENTREE*** <(TT)(NL$)İ40 F7WN(TT5)$?:"(ZG)">(>)";IFLEN (ZM$) > 80 THEN VTAB 19: PRINT ZM$: GOTO 1195 ZP:1:ZM$"#C,S"D"#N,S,M,"ZU$":MBA""/"ZN$:(WE)800\WA15,16:WA14,18y CREATION DICTIONNAIRE@ZW$">":ZX0ZW$ZW$"@X1%":1700(((ZM$)1)40):ZIZNZXZVZPMM$"N"ĺ:" *** PLUS DE PLACE SUR L'ECRAN ***"::"PRESSER RETURN. UTILISER LE MODE MANUEL";OK$:800^(37)20MM$"O"āI139:ZS$;::ZS$v23:I140:ZS$;:24:"<"20)(ZG)"ZA$?:"(ZG)(ZG)"ZB CREATION MASQUE AUTO+IJ64:IK64:IL64:ZM$(ZG)"ZR$?"(ZG)(ZG)"ZJ$?"(ZG):ZE$""PZI15:X$(ZI)""ZXZI1:1050hX$(ZI)"A"X(ZI)1X$(ZI)"D"X(ZI)2X$(ZI)"C"X(ZI)3X$(ZI)"F"X(ZI)4X$(ZI)"$"X(ZI(ZI))11ZB1ZVZV1:"":1:ZB0 :T$(Z(ZI));::" <"(ZZ(Z(ZI))2)(ZZ(Z(ZI))2))">";TZZZX14ZZ(Z(ZI))12ZB0Ė21:ZVZV1:ZIZI1:ZB1:ZZ(Z(ZI))01176{ZZ(Z(ZI))11ZB1ZVZV1::1186ZZZX10ZVZV1""2ZP22WN13:50:(WE)600(WC)2900(WC)5:"P,4":"I,4":"P,2":9107MM$"N":OK$"M"MM$"O"ROK$"A"OK$"M"910kII1ZM:Z$(II)"":II1(ZZ$):Z$(II)(ZZ$,II,1):(ZZ$)X$(1)""XX$"FICHIER MAL DEFINI":900ĺ"VOUS DEVEZ DESSINER "ZZZX" ZONES:":ZX$:1187~ZI1ZXTI%(ZI)ZL(ZI)H(ZIZN1):"CLEF "ZI" "T$(X(ZI))" <"(ZL(ZI)2)(ZL(ZI)2))">":jZXZN2:I139:ZS$;::ZS$ZI1ZZ:(ZIZNZXZV):1:ZB0:TI%(ZXZI)ZZ(Z(ZI))ZZ(ZWI)"A"WNWN1,2WI0ĭZL(WN2)20XX$"LONGUEUR MAXIMUM: 20 CARACT.":"O,2":"G":80594ESC900?HfWN11:OK$"":"O,2":50:(WE)600(WC)5:"P,4":"I,4":"P,2":900(WC)2800XX$"A)UTOMATIQUE M)ANUEL ?=AIDE":"O,2": 1:ZV2:ZX$"(":ZI1ZX:ZX$ZX$X$(ZI)","::ZI1ZZ:ZX$ZX$Z$(ZI)","::ZX$ZX$")"3j:WA14,255:WA13,255:WA11,255flZN:"> ";::"FICHIER "ZN$;::33:"< >"{nZZZX8ZNZN1tZN1:I139:ZS$;::ZS$yMM$"O"MM$"OUI"(WN1):805((WC)5:"P,4":"I,4":"P,2":800*ESC900!+WS600/,WI0818K-X$(WI)""WNWN1:805.X$(WI)"A"X$(WI)"D"X$(WI)"F"X$(WI)"$"X$(WI)"E"X$(WI)"B"XX$"TYPE DE VARIABLE INADMIS":"O,2":"G":805/X$( ZI))@Z(ZI)4Z(ZI)7XF$"*" ATV$(ZIZX)(ZZ$(ZI),1,2):TV%(ZIZX)Z(ZI)1BZM$ZM$(ZG)ZZ$(ZI)XF$"?"(ZG)UDZE$ZE$(ZG)ZZ$(ZI)XF$(ZG)hGXF$""::1120LZZZXZMXX$"MAXIMUM 25 ZONES":900V DESSIN DE L'ECRAN `ZN(ZN$)705TF$ZN$:"R,C,2":(WE)7995XX$"CETTE APPLICATION EXISTE DEJA.":705>150] OK$"":WA14,18:WA11,63""C,2":NL$"2":WN110:XX$"":"O,2"%50:WI0:WN2(WN2)WI(WN1)2'(WC)2WN2(WN2)0WNWN2 "$"Z(ZI)5 Z$(ZI)"E"Z(ZI)6!Z$(ZI)"B"Z(ZI)7.$Z(ZI)0XX$"VERIFIEZ LES CODES SAISIS...":900[.Z(ZI)4IJIJ1:ZZ$(ZI)(IJ)V$(Z(ZI))3Z(ZI)4Z(ZI)5IKIK1:ZZ$(ZI)(IK)V$(Z(ZI))8Z(ZI)5ILIL1:ZZ$(ZI)(IL)V$(Z(((ZD$)1):768(WC)5:"N,C,1":(WE)795"(WC)5772K:"CATALOGUE DES APPLICATIONS":100c "N,C,1":(WE)790uTF%,TF$:780100:"NOM DE VOTRE APPLICATION: ";ZN$(ZN$)XX$"LE NOM COMMENCE PAR UN CHIFFRE":705 ZM$(ZG)XX$(ZI)XF$"?"(ZG)ZE$ZE$(ZG)XX$(ZI)XF$(ZG)XF$""::ZX5QZI1ZM:Z(ZI)0:Z$(ZI)""Z$(ZI1)""ZZZI1:1100iZ$(ZI)"A"Z(ZI)1Z$(ZI)"D"Z(ZI)2Z$(ZI)"C"Z(ZI)3Z$(ZI)"F"Z(ZI)4Z$(ZI)WN2(ZN$)XX$"ENTREZ AU MOINS UN CARACTERE":720)XX$"":WNZZP$((980)):ZD$((ZP$)(16((ZP$)15)))(ZD$)(975)1XX$"CATALOGUE MEMOBASE INEXISTANT.":ZN$"":710"#C,$$":"#C,C":"#O,C,F,"ZD$":MB.CAT.01":(WE)ZD$ )5X$(ZI)"E"X(ZI)6X$(ZI)"B"X(ZI)7XX$(ZI)"X"(ZI)V$(X(ZI))T ZL(ZI)0X(ZI)1ZL(ZI)10:LONG PAR DEFAUT CLEF ALPHAs ZL(ZI)0ZL(ZI)ZZ(X(ZI))X(ZI)4X(ZI)7XF$"*"TV$(ZI)(XX$(ZI),1,3):TV%(ZI)X(ZI)ZM$2"O,1":50:WS200\WN1((ZU$)(975)1((ZU$)0(ZU$"0"ZU$"C")))XX$"NUMERO DE DRIVE INTERDIT":720{(WC)2WNWN(WN1):720(WC)5765ESC768WS200WN2(ZN$)XX$"LE NOM COMMENCE PAR UN CHIFFRE":720TV$(ZM5),TI%(ZM5),TI$(ZM5),TV%(ZM5),TX%(ZM5),TC$(ZM5)HX***POINT D'ENTREE SI RETOUR***nbZG34:IJ64:IK64:IL64:II0:ZV2lZM$"":ZE$"":ZV$"":ZG$"M":ZS$"-":ZI$"*"NL$"1":XX$"?: CATALOGUE CTRL/A: ABANDON"C,1"WN1ENU MEMO U(222)%850*:810R800V\U49MA$"*** ERREUR DE DONNEES ***":"G":"G":201pMA$"* REMETTEZ VOTRE DISQUE-PROGRAMME *"u"#C,$$"z"G":"G":201 DEC=HEXAA$",$":B(X256):1007BX256(X256)7:V$(I): I17:T$(I):  $,$*,$,,,%,%/s  " ALPHA "," DATE "," ALPHA ",FLOTTANT," FRANCS "," ENTIER ","BINAIRE " &ZZ(1)30:ZZ(2)8:ZZ(3)10:ZZ(4)10:ZZ(5)10:ZZ(6)6:ZZ(7)3: LONGUEURS TYPES$0ZM25:Z$(ZM1),ZZ$(ZM),Z(ZM),","(S0)A$8 E$"ECRITURE PISTES: "(C0)" A "(C06(C034)(C00))E "O,M,O" "$"(D2)",2,"(MM)","(C0)","(T0)","(S0)A$ C0(CC) T0(TT) S0(SS) (S)0410 MA$"COPIE OK." 200 XXX b:"0:M189:ZG34:255::::TM30% 6WA11,63:WA15,255 @I18:ZJ$ZJ$((961I))::(964)47Ą"INITIALISATION MAUVAISE. ";OK$:OK$"O":210 JI18:961I,((ZJ$,I,1)): "#C,$":"#O,1,M,0:MB.C01":"#O,2,M:MB.C02":"#O,4,M:MB.C04" I1D2)L h"#C,N":"#O,N,M,"(D1)":"DA$:(S)0MA$"DISQUETTE MEMOBASE NON COPIABLE":200_ C00:T00:S00r AD,16:AD1,0 E$"LECTURE PISTES: "(C0)" A "(C06(C034)(C00)) "O,M,O" "$"(D1)",1,"(MM)","(C0)","(T0) $(I)"":TM%(I)0:TX$(I)"":TX(I)0:TD$(I)"":I:c :"#C,$$":10:"REMETTEZ LA DISQUETTE PROGRAMME ";KO$: :10:"ON RETOURNE AU MENU GENERAL? (O/N) ";:OK$:OK$"O"OK$"N"200 OK$"O":"#C,$$":"0:MENU MEMO":190:210 700 ,WEER":"G":N0:200 O"#C,$$":342+ RN2N0:342A S34,15:35,19:16 T"*,"(D2)",F":(S)0MA$"CONFIRMER SA DESTRUCTION":E$"DISQUETTE DEJA FORMATTEE":F$"":N2:"G":205 V:800 YE$"FORMATTAGE DE: "(D2):"O,M,O" ^"#F,"( 1 ZTT7WN1,(TT7WN1)16* \(WE)WS10 ^L _ *****FIN ROUTINE*****f dI139:"-";::"": I0TM:TV%(I)0:TV$(I)"":TI%(I)0:TI$(I)"":TX%(I)0:TC(I)0:TC$(I)"":T0$(I)"":T1$(I)"":T2$(I)"":I& I06:TR$(I)"":TR%(I)0:TM1:"G":MA$"COPIE ERRONEE":2004 (MCD1)(MCD2)300P (MTD1)(MTD2)300l (MSD1)(MSD2)300u 310 ,"G":MA$"LES DRIVES SONT DIFFERENTS":200 6 CALCUL PLACE @MM((XXX)256)16 JMM1MA$"PAS DE PLACE POUR COPI T)(NL$)TTTT(TT3)256(TT2):43D ,(TT1)77(TT1)71ijJ -f 2 ***POINT D'ENTREE*** <WS0:(TT)(NL$)İ40 F7WN(TT5)256(TT4)ij PTT7WN1,(TT7WN1)16:"I-"NL$:ESC0:(16384)27ESC1 U(16384)1WSDA$"MB.C01" D10:D21) E$"":F$""4 "C,M"L "O,M":MA$"":F$""_ "I,M,"(N1)m (S)600 F$"O"N0:200 D1D2N0:"G":MA$"DRIVES IDENTIQUES":200 D10D15N0:"G":MA$"ORIGINE ERRONEE":200 D20D25N  PG:MB.CREAT MR-28/06/836 V6.3 03/02/83B770,30h WA(116)256(115)516:WCWA5WB(768)256(769)300( ***** AUTOMASQUE IMAGOL*****)TTWB292: ADRESSE DEBUT BUFFERS *TT(773)256(774)ij% +(TPG:MB.COPIE& V2.5 31/10/83?ZXX(116)256(115)]_X((6168)9)256:1000ddXvn"#C,$":S189x"#O,M,M,0:MB.M05"}800DD777CC778TT779SS780OO781MC784MT790MS796AD782  ^:1007:A(B16):1050AB(B16)16+AA48:A57AA7<$A$A$(A): 0ddXvn"#C,$":S189x"#O,M,M,0:MB.M05"}800DD777CC778TT779SS780OO781MC784MT790MS796AD782 1REUR DE DONNEES...":"G":"G":"G":Z1:25S AU CATALOGUE "D1$:Z1:25^ XX$"TRANSFERT EN COURS...":"O,M" TF%N2%:TF$N2$:"W,"FC$",2":WS(WE)XX$"ERREUR DE RECOPIE DANS LE CATALOGUE":25 EP$"N"D1$D2$260,"#O,X,F,"D1$":M:ZX$"":"P,M":"I,M,7":500NNNN1:"ENREGISTREMENT "NN%"A,G":JJJJ1[JJKKKKKKJJ:JJ0:"REORGANISATION...":"#R,G"d400"#C,$$":"0:MENU MEMO XX$"REMETTEZ LA DISQUETTE-PROGRAMME EN 0.":"P,M":"I,M,7":500XX$"ERD2$)1)% TF%1:"R,"FC$",1":WS(WE)200. 162U "N,"FC$:WS(WE)TF%TF%1:200 TF$N2$(XX$,18)"CE NOM EXISTE DEJA"XX$"ON RECOPIE SEULEMENT LE FICHIER (O/N)":"O,M":"I,M,7":ZX$"O"295 TF$N2$XX$"CE NOM EXISTE DEJA ATE DEJA SUR "D2$:"P,M":"#O,G,F,"D2$":MBA/"N2$Y,ER$"N"XX$"COPIE D'APPLICATION TERMINEE.":ZX$"":"P,M":"I,M,7":500~6:"RECOPIE DU FICHIER "N1$".":@JJ0:KK20"N,F":WS(189)XX$"COPIE TERMINEE. ("(NN)" ENREGISTREMENTS)"REPONDEZ PAR 'O' OU 'N'":Z6:30z d"#C,1":"#O,1,F,"D1$":MB.CAT.01":WSXX$"CATALOGUE MEMOBASE INEXISTANT SUR "D1$:Z3:25 xD1$D2$:"#C,2":"#O,2,F,"D2$":MB.CAT.01":WSXX$"CATALOGUE MEMOBASE INEXISTANT SUR "D2$:Z4:25 FC$((D1$V,A":"#N,B,M,/"D2$":MBA/"N2$:WS(WE)XX$"RECOPIE DU MASQUE NON EFFECTUEE":"O,M"'"#O,F,F,"D1$":MBA/"N1$:WS(WE)XX$N1$" INEXISTANT SUR "D1$:"P,M":"I,M,7":"#C,$$":295 *"E,F":"#N,G,F,"D2$":MBA/"N2$:WS(WE)XX$N2$" EXIS(N1$):"G":XX$"DONNER LE NOM D'UNE APPLICATION":Z1:30 <(D1$)(975)(D2$)(975)D1$""D2$""XX$"NUMERO D'UNITE INTERDIT":"G":Z3:30 FEP$"O"EP$"N":"G":XX$"REPONDEZ PAR 'O' OU 'N'":Z5:30 PER$"O"ER$"N":"G":XX$" "TM$(E):WS(WE)XX$"LE MASQUE "TM$(E)" EXISTE DEJA SUR "D2$:"O,M"@TM$(E1)""250aDEBUT TRANSFERT APPLICATION""#O,A,M,"D1$":MBA/"N1$:WS(WE)XX$"MASQUE INEXISTANT. CHANGEZ LA DISQUETTE":"O,M":"I,M,7":"#C,$$":2904$" PG:MB.COPFIC( V2.5 13/03/84=770,50:G$(34)H1000h "#C,$":"#C,$$":Z1:WE189XX$"METTEZ VOS DISQUETTES EN PLACE""#O,M,M,0:MB.M04"#C,$$":ZX$"""P,M":"I,M,"(Z):WS(WE)500((N2$)N2$N1$7 2 "D1$:Z5:25F"W,Y":WS(WE)XX$"L'ETAT "TM$(E)" EXISTE DEJA SUR "D2$:"G":"P,M":255"#C,1":"#O,1,M,"D1$":MBE/"TM$(E):WS(WE)XX$"MASQUE "TM$(E)" INEXISTANT SUR "D1$:"G":"P,M":255*"#C,2":"V,1":"#N,2,M,/"D2$":MBE/xM$"TRANSFERT TERMINE.":30- ,"#C,$$":"0:MENU MEMO ] 6"METTEZ UNE DISQUETTE PROGRAMME EN 0 ";OK$f @300I,1)):~ POKE 976,0 TEST IMPRIMANTE :10:"VERIFIEZ VOTRE IMPRIMANTE..."  PR# PEEK (972): PRINT CHR$  B.CAT.02":WSXX$"CATALOGUE DES ETATS INEXISTANT SUR "D1$:Z5:25D1$D2$:"#O,Y,F,"D2$":MB.CAT.02":WS(WE)XX$"CATALOGUE DES ETATS INEXISTANT SUR "D2$:Z5:25EE1:XN$TM$(E):"R,X":WS(WE)XX$"L'ETAT "TM$(E)" N'EXISTE PAS SUR1":WSM$"ETAT INEXISTANT":30U "W,2":WSM$"CE NOM EXISTE DEJA AU CATALOGUE "D2$:30 "#O,A,M,"D1$":MBE/"XN$:WSM$"MASQUE INEXISTANT SUR "D1$:30 "V,A":"#N,B,M,/"D2$":MBE/"XN$:WSė:M$"LE MASQUE EXISTE DEJA SUR "D2$:30  7 "R,1,2":WS(WE)XX$"CE NOM N'EXISTE PAS AU CATALOGUE "D1$:Z1:25^ XX$"TRANSFERT EN COURS...":"O,M" TF%N2%:TF$N2$:"W,"FC$",2":WS(WE)XX$"ERREUR DE RECOPIE DANS LE CATALOGUE":25 EP$"N"D1$D2$260,"#O,X,F,"D1$":M D'UNITE INTERDIT":304 2D1$(D1):D2$(D2):"#C,$$" d"#C,1":"#O,1,F,"D1$":MB.CAT.02":WSM$"CATALOGUE DES ETATS INEXISTANT SUR "D1$:30 x"#C,2":"#O,2,F,"D2$":MB.CAT.02":WSM$"CATALOGUE DES ETATS INEXISTANT SUR "D2$:30 "R^^, U CATALOGUE "D2$:Z2:25 160 FOR I = 0 TO 50:TV%(I) = 0:TV$(I) = "":TI%(I) = 0:TI$(I) = "":TR%(I) = 0:TR$(I) = "":TX%(I) = 0:TX$(I) = "":TX(I) = 0:TC(I) = 0:TC$(I) = "":TD$ = "":T0$(I) = "":T1$(I) = "":T2$(I) = "": NEXT TF$N1$:N2%TF%" PG:MB.COPETA -31/10/83-MR8 V1.3 16/11/83D770,30X "#C,$":"#C,$$(975)1ė:10:"UTILISATION IMPOSSIBLE SANS 2 FLOPPY ";:OK$:300"#O,M,M,0:MB.M06""P,M":"I,M":M$"":WS300 (D1(975)1D2(975)M$"NUMERO; "HIMEM A "(116)256(115);:" ";OK$6/01/84Z HELLO SUR DISQUETTEd 900} AD(116)256(115)(892)(893)256AD4516ADAD516:50AD516AAD4169:"HEXA"(A1$,A):AAD:"HEXA"(A2$,A) "MEMOBASI(AJ):AAIJ:I9II7&H$H$(I48):JJ16:J11020,c "HIMEM A "(116)256(115);:" ";OK$(892)(893)256AD4516ADAD516:50 768,(768)2:ADAD2256:"#C,$"AD516 AAD4169:"HEXA"(A:103(222)49ĺ"DISQUETTE VERROUILLEE. PRESSER RETURN ";:"";OK$:n"ERREUR NUMERO ";(222);". FAITES RETURN ";:"";OK$:"HEXA"(H$HI,J)H$"$":J4096I(HJ):HHIJ:I9II7H$H$(I48):JJ16:J110201b"P,M":"I,M":(S)Ĭ.gDD1RP(9)RP(9)16:RP(10)RP(10)16;l"U,F":AK:10(222)49ĺ"DISQUETTE VERROUILLEE. PRESSER RETURN ";:"";OK$:"ERREUR NUMERO ";(222);". FAITES RETURN ";:"";OK$:H$"$":J4096 ( PEEK (977)): PR# 05 0MP$RP$(16(959)):"0:MENU "RP$((959))J X"#O,M,M,OPTIONS} ]RP(9)15RP(9)RP(9)16:RP(10)RP(10)16:DD1 b"P,M":"I,M":(S)Ĭ gDD1RP(9)RP(9)16:RP(10)RP(10)16 l"U,F": (222)16:"CALL 76,0 TEST IMPRIMANTE0 :10:"VERIFIEZ VOTRE IMPRIMANTE..."6 l PR# PEEK (972): PRINT CHR$( PEEK (977)): PR# 0 MP$RP$(16(959)):"0:MENU "RP$((959))  X"#O,M,M,OPTIONS ]RP(9)15RP(9)RP(9)16:RP(10)RP(10)16:DD I MP$RP$(16(959)):"0:"RP$(0)C N$X$" ":970,(N$):971,((N$,2))m (ZZ$)āI18:961I,((ZZ$,I,1)):~ POKE 976,0 TEST IMPRIMANTE :10:"VERIFIEZ VOTRE IMPRIMANTE..."  PR# PEEK (972): PRINT CHR$ ER LA DATE DU JOUR":120/ 21:31:I110:M$:M$(13)140A M$(16)600S M$(18)120e MP$MP$M$:I MP$RP$(16(959)):"0:"RP$(0) N$X$" ":970,(N$):971,((N$,2)) (ZZ$)āI18:961I,((ZZ$,I,1)): POKE 9 :975,RP(11). t(964)47āI962969:ZZ$ZZ$((I)):> vRP(5):"Z^ w"#O,1,M,INIT-"RP$((959)) x"P,1":"I,1":MA$" ":(S):"0:"RP$(0) (WC)1600 21:31:I110:M$:M$(13)140 M$(16)600 MP$MP$M$:970,RP(3):971,RP(4):I610:971I,RP(I)::975,RP(11)X t(964)47āI962969:ZZ$ZZ$((I)):h vRP(5):"Z w"#O,1,M,INIT-"RP$((959)) x"P,1":"I,1":MA$" ":MP$"":(S):"0:"RP$(0) }(WC)1600 ZZ$""MA$"INDIQU 7:ESC F959,7 PRP(12),RP$(25)U ZRP(0)1:RP(1)29:RP(2)31:RP(6)30:RP(8)9:WCAD5p d"#C,$":"#C,$$":S189 n"#O,F,F,0:DATA" pDA%2:"R,F":(S):"W,F  s972,RP(0):974,RP(1):973,RP(2):970,RP(3):971,RP(4):I610:971I,RP(I):->  6 <- 7 ? ) 8TA5,27:ESC4 F959,7H PRP(12),RP$(25) ZRP(0)1:RP(1)29:RP(2)31:RP(6)30:RP(8)9:WCAD5 d"#C,$":"#C,$$":S189 n"#O,F,F,0:DATA" pDA%2:"R,F":(S):"W,F , s972,RP(0):974,RP(1):973,RP(2): E BY MAXIME RATIE, ""A1$","A2$",INDGET"^ AD(21625)1,(892):AD(21625)2,(893) I((AD4)256):JAD4I256 (892,J:893,I 2TAAD15 3TA,16: CTRL/P 4TA1,18:CTRL/R 5 -> 6 <- 7 ? 8TA5,2H$:AAD:1000:A2$H$0 "MEMOBASE BY MAXIME RATIEN ""A1$","A2$",INDGET" AD(21625)1,(892):AD(21625)2,(893) I((AD4)256):JAD4I256 (892,J:893,I 2TAAD15 3TA,16: CTRL/P 4 CTRL/R (TA+1,18) 5  !PG:INIT GENE CARTE 16K/20K@ V2.4/MR/15/6/83-06/01/84Z HELLO SUR DISQUETTEd 900} AD(116)256(115)(892)(893)256AD4516ADAD516:50AD516AAD4169:"HEXA"(A1$,A):AAD:"HEXA"(A2$,A) "MEMOBAS!PG:INIT GENE CARTE 16K/20KB V2.6/MR/15/6/83-20/03/84\ HELLO SUR DISQUETTEf 900 AD(116)256(115) (892)(893)256AD4516ADAD516:50 768,(768)2:ADAD2256:"#C,$"AD516 AAD4169:1000:A1$GA 103,1:104,22:5632,0:"$1000,$1600,CALL":4096:"HELLO":  (*        *%**%**     **%**    **%**- '' %$%%2%%$%%3%%$%%  %    %>N! N! D!MD!ME!uE!uX1'Z)      1'**' 'Q8:- -%      %      (#&#$##$####$####$####$####$## SRP$RP$RP$RPRPLRPRPDDuRP RP RPu       :    R  O!          V                   p  $   ':  $&"$         p FҠŠծҠҠՠՠ̩ )D1D2X! O!vM9%&$&$    '  '  :$$    ' .:$@Z1!C)M9$ΠħŠŠŠ̠%     '   % V1ŠŠԠŠŠŠծW2ŠŠԠŠͯӠԠӠڠΠ [       : *. ^H%"%%   % V1ŠŠԠŠŠŠծW2ŠŠԠŠͯӠԠӠڠΠ4%%$%%5 %%$%%->%%$%%  ?%%%%& 2  U)D19D29F)E1R$M9$)  (*        *%**%**     **%**    **%***  C)T%&%$%%%%$%%&%$%%0%%$%%1%%$%%2%%$%%3%%$%%q##$##<- ##$##$##$##$##   ?####&   :    : 0ɴT0*ɴ2T08 ɴ@ T0FҴNZ1(Z1F Z0'cX0Q'cZ1%Z9   '  : k C)T(#&#$##$####$####$####$##?##$##&]Z1 T0ɴ T0ɴT0ɴ&T0ɴT0ɴT0ɴT0ɴ T0 ɴ T0ɴ&T0ɴT0 ɴ T0ɴT0*ɴ2T08 ɴ@ T0FɴNT0ɴT0 ɴ TZ1M1$O)''ΠՠŧԠ)ŠŠҠӠӮ*'O&\' ɴ@ T0FɴNT0ɴT0 ɴ T$  Z   !   /$ $      $         345  $u X)c        '    $  0X X *X *X 3X =O)'   '   '  '1.    2 R##%## ##%#  # 4' ##%#  # ## ## ##%##-2-       ##%########%####$##    :    : HaX8ZLX8ZLX8ZLX8<ZLCX8ZLZ1/X1O9####%##-1-    ( )##%## ## ## 죠     '   ()   % % %     ETNTPZN$Z1Z1 T1$T1 õT1 ɵT1Z1Z1Z1gZ1%Z9 +-%+!          !! %!!      !+-%+1    :Z1Z9 X9  Z  4 0)5(#  SMvZ1 Z ,- )#   %  #  /       .#  SMvZ1 Z Z) =            = )*123)) Z e M9!  ! % %    ()         %    % 2.8%   ?(/)%  :       ?(/)%   %  :% HM #      )%  :       ?(/)%   %  :% HMT0CT06T1T0T0 T0f T0 T0f T0 Z1$Z9% % :   :       :    :  :    %      %  %  %     3  '    / 6502 % %    (1983) PM+Z1 Z1TU TTZF;ִL T!T!MT!MT!MZ1Z2Z3  %   %     %    %     0MZ9 X9"'Z     :'2   :  :'3         :  :  :4   : E'IM*ETNTPMȘ (HH HsiAtih hh`LɌh <LCɼhLhhh RS ILWPXQ 5P%Q3 5^Pȱ^Q^i^_^^_^ɀL)_  I  kL/W^:/= # ******************* * * * MEMOBASE * * * * Copyright 1984 * * * * MEMSOFT SA * * * *******************          Pi Pj $I2$(D2):"#C,$$" "#C1":vv  v/DIWS CAPCAVE   "B!a R!A!C!%P!,3ҡ: ^٥ۥܭZ  s٥& ߍ;; oL+֭[  L oϰ|}`ͭ8߭ͅLTߍ ְ8r߭ͱ߈```    L֍ ٭* . R ` o)r& `) r. -`8` rȥȥᭂ)@ɀ`᥄` 8` 3 ' ݢ ȭl劑 `QȭRȭȭ)  `(ȭt0  ֊ȥi0ȩ)` ٭)lm) ct u =Nߢd բ i0 ծLRՎ\\ Hi0 h`8\L#k)@ Պ)+ Պ) * Պ)'; խ`;cc  i0 Պ)? Պ): խ`" L% Պ)Е/ LRլ` u Lo LT` K o`߅ȱiߐ "ܠ "ܥߑȥ`ׅ`&Ω y bRb = ͩک= TL ܭ)lrm` P& o(;! rr o  xL omr rL`ꭱ`) j> L` 3 K ٠ Q o KL o rL ٭~Zj[+Q`P`` H oh` Ա7 Ԇձ Ԋ``  oצեɩd`) ՠ) ՠߍ`)N$ Պ) LRլ`A΢  i00Z ۭts$1Lۦɤʥ˅ɥ̅ʆ˄̥ߠ0 ڰeׅر ڰ8آװi i0٠01-נ00.Ȫ8- ߠeȑeȑ` ܥi2ɥiʥid˩e̠0`Θee` ߅ mCmCC80mCCL` `Ͱ ֱ `0:`8`A[` ٩߅Յ  o[ өLӤ " L`ӭ[ ӊ ӥ ӥ ө߅LӭZ LӠ`LT Q`Q֭P`[Z[`ɥ ܠӄs ԑԤԌs` +0-`2dm˭i  ٌs0ͩ0ˈ0 ͑`LH /چ -+ 8΍s /چע Kڭst ۭr8΍s KڦL. 80 `LH ۱ ڰر ڰee =Ӑ 4Ӑ֩ $ӰZ =Ӑ 4Ӑ$% $Ӱ@ Ӡ!X $Ӱ/ L=Ҡ  өX $Ӱ/ X) BX LVҭC߭X`)᪭CCߊߍL4+X @X  X;)X`? *X)L: ޢC 4Ӑ%`/LH $Ӱ' 4Ӱ C L   o LLlת :;)./))-).) 0:` s8`ݎdގeێf܎g`dݮeޮfۮg`ީݭzܭ{`  L L`8`hzi{jjkk`. Oss0ss L<Hh`hN&&ѦN`њבͻݫͫݩD89` yѩ L<m8n9` ٠ [ 4 o`Z ѩV o V [VLѠ߈ۑ߈ܑ`C֩X $Ӑ `LH` =Ӱ $Ӱ `` 8b ^P  ^ o _^ _^L sLlI rb ^٥ۅӥ܅ o! HHӅۥԅ܊ hhLSؠP  sLlcLlLlb ٭P  oL` ٰ6b A[i uc  ~)? `)?`)? @` ^  ,,)^ `)  @`jk`ɧ 8؅ۥܥ)'Ow iXې`8`(PiۥiLХ)(P 8X۰ݦۦ`LJL:LIh,(,  L׭ B` o R `ץl H h Lנ  x̓` u` ^ ` o )` rآl^ r sLl^ Ll׮l^ oLs^`c Ll H h LlL`Т0 Т      XH hLMEMOBAS V2. (C 198 MEMSOF L0stl lLf  "MEMOBASE (C)MEMSOFT