@L|}6CD l0C)HCC WhL/h `CmCDiD`  R@P1  Y0@R !L` D  C D     )16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD` D  C D     )16CS S)  C)D1 p p }0 C9DI pCDL~CiCDiD` DD˙` d J)L !}D L(( LL()  L| L( S LH 0p n  } CY?  q  L L  ` )} `A! d߰")-݆ "  $G@LLL&0") $G% }H0 3S8`G ȱG ȱG   Gȭ Gȭ GG}GHiH8(()) G$H% `(0 })8` d)L ݆ & LGȘ ݆LL d  ! LL d)N>Q  HH) }  hyhyB q L> Lm JJ  Ln*` dB%' }8  H H` 1 { LL   !L     Hh SY?  q  1L }  !? S   q 1 L   Ll  Lg E`L   !L)  q 1L}) `L0AM݊L݉ ML  N݆LLLNLMLHG!@}1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  q} L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF } G) *Gȩ GȽG GȌd q q G`  8   0G  `D}CEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`Y}`piH n0)բY? 08`0 }  0$L GGȽG L `8L`L}8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`}E8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE} H8EEȱEEȩEh J E8   . m  i`LI!)E1FR}1LJ舩9GIH`LJJ`HGHh l`} S gL   8 rii `дCDCG W  }C  Lq` X٨`DOS SYS IIIIIIIIIIIIIIIC`0 ߩ0}}}  |||DDOS DOSDOS SYS }}}} }6}CDOS SYS} 0`BDELV !B }`LVUQ   ]   TU J ]L!T  #      TU  } L ? .  t`GBJ V~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI   0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DELV䌚 !B y`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J V (` 9 V⪍ ઍ  -'}LLu DEHILV 9 .l 9 .l  `` s$B VBH(}I|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVL)}1u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2e*}1i1232435ޥ<<8}&ewC7fwK&&L&M&N& + 5J&&&© M2 -L*J&˜ ' 5&0& M2&,}& $+L*& & M2 H-ƅ& & M2 H- 1- *`RUNTIME ERROR AT LINE &&L*, ,L&-}` '' &L&PROGRAM STOPPED&&Ńł ȱ`iL 'HH Z*L/ * . M2 + Q. ..} @. M2 @. ' M2 + @. 'hhL@.ʥ`HHhh`8L'u/}`Huh` L*L' L*L' ) .. ( .. ' * @.L0}* ) .. ' :, ( .. ' + ' * ' + M2 :, @. *L* ) ' ' :, ( .. ' + ' * 1}' + M2 :, .. /( @. *L* ' Z* Q.L/` ) * ..L.. ) . .. + ' .. ' :,L' ) 2}' :, ' .. + 'L'K&L&M& ) M2 M2,M&eK&iL&`M&8LV& .. 3}Q.M&`ʔȱȱȱ Z*Șe惠 惨65*66* L*jem#6m$6 ..вH4}Hhh```L*ʱ` +⅄* &JL&J *HHl 5}JLw TO BOOT FOR DOS TO RERUNp B V8,` 3+ȱL*&&8#6$68凅刐S6}Jj)ee`ффiiLL+8LL+ LV&uuuL*87}` ,L*iL*豂Hȱh`p ,L*,H, BHI, 5 ?-N&h`8`8} :,L, :,#` :,0 :,0L, :,0` :,0L,L,`޵` `Ȕ`9}ʔ惥u`, BHI DEH 5 ?-HyN&N&hL* , ?-N&`,JJJJ`-:},- +- -0 -L* t-L*` -H t-h 0 -`L,8 0ƅ`66&L-HH` B VhH)Kh;})0 IJD-EB 5hL*S:,L*TUVL* -`,,L, ?-N&8ɰɅ ,`ʱȱȱ`ȵ<}ȵL*L* Q. @. @.ʥ @. .. Q. @.L3 Q. .. . . Z*uȱuȱu * Z* ..=}0 j,L3 ȱL* ~,L.ʵ`eeLV&HHhh`ؐHH Z*L>}/ *HH . .6 +i i .i i @.hh @. @. 'hh @.`HH Z*% *?}HH `2LQ/ Z* Q. LV& .6 + .. +` Z* Q.ޠ .. `2 +L/ L0H, B Vh`ҩ2ҵ ҵ@}  *L*H,BHI 5,h,LM2,DuEu *,IHKJBH 5hA} *L* -,H`B 5h`00LM2L*L* +`H *hLM21HZH eB}HHƆeiH Q.lꦆ M2Օ`0  L,`8`1-1- R- M201LM21C}01`K2 * Q.J2L2 M29 Ɔ채+K-J2L7280L2 .9K22K2LV& L2, Y2 . Y2 Y2 +D}, M2 +ƆеJ2 +`ʕ`66`HHH66666uuuhhhLE}* +愵 ' + 'I M2 380/66&&&`uuu` 3 3F}Ј 3 * +` 4B3C3 .A3B3A3B3C3 LV&ȥC3iA3B3 4`L$+3B3G} 3`LV&C38A3ƅ3 ȱC3A3B3` 3L33L3H 4 G3h`1+ %  H}88L 4 * *` * *`  * *` 4$' 4"0 40 4L, {4L, t4L,LI}M2LM25 M2 Q. .5555`H,? ,,HI5D55E5B 5H5h` VLV&5` J}45 M2555 M2L5 45LV&55, 555 M258e555 M2K2L1 K} 'L*hh iL* 5LD3 5L$+5B3&&ȱ0 6L5 6#6$6&& L5&&`L}i`K&&L&M&` 3+ȱ&&%8e慱HȱhױM&iK&iL&L*, BM}H Vh M2L*,&BH 5hN M2 *L M2ML*,%BNLMH 5hL*)*Z*w***`2`2+:,2+,,,j,YN},~,c,r,S,*$++++,,,1-.H----.`..0////D331000 1)&0001K0k04444{4t40&K'G(m(()0)])5555$155}1g1O}53%636&6661C"C "C"C"CZ&C_*Cd0Cn0Cs>CxSCCCCC%DMDuDDDDDDE, E1#E6)P}E@DEJTETdE^tEhxEmErEEEEEE E F$F=F&MF+bF0F5F:F?FXF]FbFgFlFqGvG{-GBGQ}bGfGfGjGGGGGGGGH HHH1H>HLHVH^HbHfHqHHHHHHHHIR}-IAIEITIIIII J'JAJQJ_JpJJJJJJJJJ K KKCKsKKK LLS}LL7L@LZL[LiLtLLLLLLLLLLLLLLLM MMM 4M8MLFMVPM``MjpT}MtvM~MMMMMMMMMMNN$N5NhNyNNNNN NNN(N2N<OF+OP0OZKOdfOU}nOxOOOOOOOOOOPPEP\PiPnPrP@}PEPJPTP^PhPrPwQ|QQQ%Q)QV}GQUQQQQQQQQQQQQ4Q>QCRH%RM)RR@RpRRu_RzlRyRRRRRRRRRW}RSSS 2S >S JS$ ZS& iS. mS8 }S= SB SD SG SL SQ SV S[ S` Te Tj Tl To /Tq HTt iTy yT~ T T T T X}T T T U U U &U 7U ]U iU }U U U U( U2 U< UF VP VZ $V +V :V IV XV gV nV xV V V V V VY} V V" VT VY V^ Vb Wc Wh :Wr DWw \Wx eW| fW fW pW yW zW zW W W W X >X gX X X X X !Y "Y PYZ} XY XY iY Y Y Y Y Y Z Z Z 7Z ?Z QZ kZ qZ zZ& Z' Z( Z) Z0 Z: ZD Z Z Z Z [ [ [ [ [}[ [ [ *[ 4[ F[G[G[U[f[[[[[[\\\\%\1\7\@\h\n\t\z\"\h\r\|\\}\\\\\\\\\]2]D]P]`]o]s]w]w]]]]]]] ^^"^4^5^5^F^Y^]}o^}^^^^^^^^__5_N_h_l_l_}______`f`g`h`k$`l6`mA`nI`oR`p^}S`zS`}````aaa aL1a'2a'2a$'2a.'2a3'ia4'{a8'aB'aL'a'a'a'a'b'0b(\b (b(b(b((3c2(c<(_}cF(cP(cU(cW(cZ( dd(#dn(=dx(Hd(Ld(Ld(^d(od(|d(d(d(d(d(d(d(d(d)e) e)9e")Ke,)ke6)ue@)eJ)eT)e^)`}eh)er)e|)e) f)f)!f)2f)6f)6f)?f)If)Mf)lf)f*f:*fD*fE*fG*fH*fI*fN*fX*fb*fl*'g*Pg*lg*|g*g*g*ga}*g*g*g*g*g*h*h*2h*Ah*Xh +Yh+]h +]h*+ch4+fh>+{hH+hR+h\+hf+hp+hz+ i+%i+Ei+[i+pi+vi+i+i+i+ib}+j+j,j,*j,.j,;j,Kj,Wj,fj.gj.gj.j.j/j/j&/j0k0k0"k2&k2+k2k2k2l2l2l2l2m2Vm2m2m2c}n2on2n2o3o3o3o3p3?p3p"3p'3q,3yq13q63q;3Sr@3rB3rE3r6r6r6[s6s6&t6t6t6)u6ju6u:u:uhBd}urBu|BuBuBuBuBuBvBvB)vB5vBOv0uPv:uPvDubvNukvXunvbuvluvvuvuvuvuvuvuvu wuwu*wu>wyIwy[wewe}f}'***LB R 3g} 33""" Vous avez les options suivantes:"Modifier/creh}er un masque...E"Changer les positions .....C "Charger le masque d'ecran .L "Sauver le masque i}d'ecran ..S"Retour au menu principal ..X"$Faire votre choix et taper OB'RB,*Eej} DCc DLl D *dSs DXx E4K:7UBy*XB6k}DEXB AZTEhazdEhtEr6"-UB64+ 333R"l}____________________" FILEWRITER"GESTION DU MASQUE"____________________+" TAPER m}[START] "POUR" CONTINUER "____________________y*[BF+5 3"n}____________________"PAS DE L'ECRAN"____________________" TAPER [START] "POURo} " CONTINUER "____________________0^BaBdB*"gBD*  G^Bp}2GdBmB(G.5GdB*GdB.5HsB(*/5H#5$5q} 1H.5>HvB(sB( sB( yB(*qHH*sB( yB(vB(*|Br}B NUMERIQUEA$5H|BB MONETAIREAvB(sB( vB( HdBsB(BmB(BA"IBs} I$BBE5-BI% "BD"ZONE #, LONG=vB(, TYPE: BD"%[K] SAISIE,[t}P] CALC PROG,[G] TOT GR..BI"y*jB6IjB k5K5  JBp5P5 'u}JB g5G5 AJB QJ_JyB( pJyB(JyB( "BFv}**BsB( *JBJB F../../..9JdBsB(vB(yB(*"w}gBDCK"Erreur- pas de la zonesK"Erreur- pas de nom de la zoneK"Erreur- format x}de date invalideK"Erreur- zone trop long L"(Erreur- vous disposez 50 zones seulement*+y}*pBB(7LBB@LP+*B-BZLB B+'iLjB+"jB6BLB z}"+BB*pBB-B+"gBD" zones accepte+2*K:7E:7{}3MB ABpBBBDBL"BDRS'BB`?y*XB6M|}   M`}MBTBBUMBMB'MB& "" "}} "`BB"(LIG: COL: " "~} " Taper pour les options"`B[B"gBD"Taper } pour suite"Taper pour "KOfOO}䮠O[BOx[BOOOBOBFLLL..* O}@^BLBBB&PB&"Taper pour continuer.y*jB6\P"gBD"}44dBPBP$PTyB(yB(PBP%PrLB44d"Pas des z}ones saisie definisLBB%QX*d6* 333"BD"%Curseur LIG:1 CO}L:1 pour le menuBT * *4K:7y*XB6p*Q4QHQ4QHQ}Q | *B RBXBT * *| *B@RBXBT * *-_RXB=lRXB}+yRXB*RXB+BAB"CmB( ( (BBEAmB(sB(P$BB E5BRB} BB-B-P%BmB(sB(gBDC """BDy*XB6 ZS BB}Bp* }SB  Sj LBSB B( SBB( S }*SB "gBFBBpB"BDLB/TB BHTBB (( iT} BE5yT  * T TBmB( TBsB((( Ty B }V BP$T sB(mB( UBP%+&UZ "gB'F"Reorganiser les zones }ϯ ?y*XB6O5o5 }U N5n5 U4d UBU$BvB(|ByB(BmB(Bs}B(BB UmB(U *2 BsB(mB(vB(yB(U%4dvB(vB(yB(yB(sB(}sB(mB(mB(LB+ P$BBE5BVB B  -C "-P%mB(sB(} T *V pBmB(B ( B(   " "  ""BBE5B}\WB "-+BBE5"-+BAyB(WBLABELAB yB(WBDATEABvB( y}B(WBNUMERICABvB( yB(XB MONETAIREABvB( yB(>XB CALC PROGABvB( yB(}gXB CALC PROGABvB( yB(XB TOTAL GENABvB( yB(XB TOTAL GENABvB( BAy}B(XBALPHAABvB( "BD" # =BD =+  CECI EST UNE COPI}E NON AUTORISEEy*  3 3"(堠@"Nom du fi}chier BBB0u*BD=Y+BD=Y hB*Z  *C(Z*BBDAf*7Z*BA+}C(4BD7B ABpBBBDB^B^BHIU$BHIBHIBHIBHImB(sB(}vB(yB(U%B ABpBBBDBU$BGAIBmB(sB(BDCU%4LB+BD : ABWCBBD}BBBD/.SCRB+U[X*d 33"(@"}Nom du fichier BBB0u*BD=[dBD=[hB*\ **?4BD7@?C}(U$BmB(BsB(BvB(ByB(U%\B\$BBmB(}sB(FABD\%4LBd*S \ 33" SAUVEGARDEZ"VOTRE" E}CRAN? O/N4K:7y*XB6Oo `]Nn o]d'   33"METTEZ" }FILEWRITER "DANS " LECTEUR # " TAPER [START]"POUR CONTINUERy*"^}y*4^+   33"ENLEVEZ" FILEWRITER "DU " LECTEUR # " }TAPER [START]"POUR CONTINUER 3  3"METTEZ"DISQUE D'APPLICATION "DAN}S " LECTEUR # " TAPER [START]"POUR CONTINUER   33"FICHIER D'ECRAN} BD/ "BD" NON SE TROUVE " SUR LECTEUR # " TAPER [START]"POUR CONTINUER}l?B4BD7@?BTB4+(B@'B@'B@OgB@B@B@(B@B(LI}G: COL: AB Taper pour les optionsAB.AB(BBBDBgB AgBOBgBgBDBBgBDAC&}C(C(C(C( +)B@(B@(B@rB@B@2mB&2sB&2vB&2yB&(B@)B@ B@':} a k  a g a BBa+*p* 3 3 3"}!" Vous avez les options suivantes:"!S.........Creer un masque d'ecra}n" A..........Creer une application " F............Formatter un disque"FPour creer un masque []} vous devez avoir 1 disque formatte et pret."KPour creer une application [] vous devez d'abord creer un masque} d'ecran"en selectionnant ."$Faire votre choix et taper OB%B(*cB `}{ dB A#dBB:*S=dBB4 FHd(F(4K:7y*XB6B"-}XB6dB(4+ B33 ANNULER MENU POUR LE FO}RMATTAGE"____________________" FORMATTAGE DU"DISQUE"____________________ueJ)}"ENLEVEZ FILEWRITER" DU LECTEUR  "METTEZ UN DISQUE "VIERGE DANS LECTEUR}y*[B f)f'!f(2fr)r)BD :ABWC0? "FORMATTAGE EN COURS}BD7B"FIN DU FORMATTAGEh) *}BD=f'4K:73 3R"}BD"(________________________________________"Est-ce bien votre ecran (o/n)?y*XB6Oo lg}*Nn |g:**BD/gBBD/g$BE5g%C(g*B D :MARKER.EXEABWC}C(f*g*C( C(C(.*B D:CODEGEN.EXEABBD.JERREUR DISQUE S'} 333"____________________" CONFIGURATION"DU"SYSTEME"}____________________ " NOMBRE DE " LECTEURS = - "____________________" PAR DEFAUT}" 1 LECTEUR:TAPER (1/2) POUR LES LECTEURS OU POUR CONTINUERy*i+BB}4K:7B[Bj+*j,*++ ;j+ By*B6} " -+  3 3 3" CHARGEMENT " DU GENERATEUR "DES APPLICATIONS}( Veuillez Patienter+"ERREUR # ^)R}S Cette option vous perme}t de creer ou de modifier les differents types de zones.4 Servez vous des fleches pour deplacer le curseur.QUt}ilisez la touche pour reculer, la touche pour aller `a la ligne et la touche pour} vous deplacer de 10 espaces vers la droite.9 Les noms des zones doivent etre de la forme suivante:} ͠  adresse ..........> Vous pouvez laisser des espaces entre les no}ms et les points.eLe nombre de points donne la longueur de la zone et pour les zones numeriques ou monetaire,}' la valeur maximum pour cette zone."Taper pour continuer. :*}B Quand vous aurez }termine tapez puis tapez pour lire.SOn vous demandera si chaque zone numerique ou monetaire est saisie a}u clavier ,I calculee par programme , ou total general (sur tout le fichier).e Un texte est un mot ou} une phrase sans aucun rapport avec les donnees. Vous pouvez le delimiterU en utilisent l'inversion video.Taper la }touche avant et apres votre titre. EXEMPLE: ɠԠΠ"Taper pour con}tinuer. :*}GSi vous souhaitez,vous pouvez definir une zone d'un de ces trois types:VPour indiquer une} zone numerique, remplacez le dernier point par le signe '#'. Exemple: Montant ....#VPour indiqu}er une zone monetaire, remplacez le dernier point par le signe '$'. Exemple: PRIX .....$T'#' et }'$' sont inclus dans la longueur de la zone (pour les zones saisie).VZones calculees par programme et total gen}eral doivent finir par lessignes '#' ou '$'.6Pour indiquer une date vous saisissez ceci '../../..' Exemp}le: DATE ../../.."Taper pour continuer. :*R+R}\Cette option vous permet de deplac}er les zones pour modifier la presentation de \votre masque.Pour changer la zone taper n'importe quellet}ouche sauf pour reculer.aQuand le curseur se trouve dans la zone a deplacer taper pour selectionne}r la zone.RMaintenant vous pouvez utiliser les touches fleches pour deplacer les zones.8Le programme evi}tera le chevauchement des zones.bQuand vous aurez deplace la zone a l'endroit desire, taper pour va}lider et aller a une autre zone$Vous pourrez taper pour le menu."Taper pour continuer. }:*R+y*u:+BD=u+BBD/U$jBBE50uB9AuBZavBz}vB`{)vjB B-CU%BD5ABD5Z OvB+BAB kvlu"BF"}K:7vu?y*jB6vBA v4@?+~vu z  vvuBB}-B-vuBBB .vuC [w++& ' 5&0& M2&d&UD7NK&&L&M&N& + 5J&&&© M2 -L*J&˜ ' 5&0& M2&}& $+L*& & M2 H-ƅ& & M2 H- 1- *`RUNTIME ERROR AT LINE &&L*, ,L&}` '' &L&PROGRAM STOPPED&&Ńł ȱ`iL 'HH Z*L/ * . M2 + Q. .} @. M2 @. ' M2 + @. 'hhL@.ʥ`HHhh`8L'u}`Huh` L*L' L*L' ) .. ( .. ' * @.L}* ) .. ' :, ( .. ' + ' * ' + M2 :, @. *L* ) ' ' :, ( .. ' + ' * }' + M2 :, .. /( @. *L* ' Z* Q.L/` ) * ..L.. ) . .. + ' .. ' :,L' ) }' :, ' .. + 'L'K&L&M& ) M2 M2,M&eK&iL&`M&8LV& .. }Q.M&`ʔȱȱȱ Z*Șe惠 惨65*66* L*jem#6m$6 ..вH}Hhh```L*ʱ` +⅄* &JL&J *HHl }JLw TO BOOT FOR DOS TO RERUNp B V8,` 3+ȱL*&&8#6$68凅刐S}Jj)ee`ффiiLL+8LL+ LV&uuuL*8}` ,L*iL*豂Hȱh`p ,L*,H, BHI, 5 ?-N&h`8`} :,L, :,#` :,0 :,0L, :,0` :,0L,L,`޵` `Ȕ`}ʔ惥u`, BHI DEH 5 ?-HyN&N&hL* , ?-N&`,JJJJ`-},- +- -0 -L* t-L*` -H t-h 0 -`L,8 0ƅ`66&L-HH` B VhH)Kh})0 IJD-EB 5hL*S:,L*TUVL* -`,,L, ?-N&8ɰɅ ,`ʱȱȱ`ȵ}ȵL*L* Q. @. @.ʥ @. .. Q. @.L3 Q. .. . . Z*uȱuȱu * Z* ..}0 j,L3 ȱL* ~,L.ʵ`eeLV&HHhh`ؐHH Z*L}/ *HH . .6 +i i .i i @.hh @. @. 'hh @.`HH Z*% *}HH `2LQ/ Z* Q. LV& .6 + .. +` Z* Q.ޠ .. `2 +L/ L0H, B Vh`ҩ2ҵ ҵ}  *L*H,BHI 5,h,LM2,DuEu *,IHKJBH 5h} *L* -,H`B 5h`00LM2L*L* +`H *hLM21HZH e}HHƆeiH Q.lꦆ M2Օ`0  L,`8`1-1- R- M201LM21}01`K2 * Q.J2L2 M29 Ɔ채+K-J2L7280L2 .9K22K2LV& L2, Y2 . Y2 Y2 +}, M2 +ƆеJ2 +`ʕ`66`HHH66666uuuhhhL}* +愵 ' + 'I M2 380/66&&&`uuu` 3 3}Ј 3 * +` 4B3C3 .A3B3A3B3C3 LV&ȥC3iA3B3 4`L$+3B3} 3`LV&C38A3ƅ3 ȱC3A3B3` 3L33L3H 4 G3h`1+ %  }88L 4 * *` * *`  * *` 4$' 4"0 40 4L, {4L, t4L,L}M2LM25 M2 Q. .5555`H,? ,,HI5D55E5B 5H5h` VLV&5` }45 M2555 M2L5 45LV&55, 555 M258e555 M2K2L1 } 'L*hh iL* 5LD3 5L$+5B3&&ȱ0 6L5 6#6$6&& L5&&`}i`K&&L&M&` 3+ȱ&&%8e慱HȱhױM&iK&iL&L*, B}H Vh M2L*,&BH 5hN M2 *L M2ML*,%BNLMH 5hL*)*Z*w***`2`2+:,2+,,,j,Y},~,c,r,S,*$++++,,,1-.H----.`..0////D331000 1)&0001K0k04444{4t40&K'G(m(()0)])5555$155}1g1}53%636&6661UDVDVD ZD^D^D#fD(~D-D2D7D<DZDdDiDkDnDoDpErEtEE#E+EVEYEY}EEEEEEE F&F?FOF qFFF&FNFSFXF]FbFgGl G8GTGhGGGGGGGG}GGGGG H9H=HKHKHKHKHeHHHHHHIIIVIII III J%J*=J/HJ4}VJ9eJJJJJ K`KgKyKKKLL#L1L4L SCSRTWT\&Tf@TwZTzlTpT}TTT T T T$ T. U U U U ?U mU U@ UJ UUU V7VSVrVVVVVVVVVW}HWqWWWWWXX"X5XWX aXiXXXX"X'Y,"Y19Y6zY;~Y@YhYrY|YYYYYY}YYYYYZZ)Z=ZEZ0PZ5PZ:UZDZNZXZ]Zb3[g\[i[j[l[n[o[p!\qx\v|\}\\\\}\\\ ]4]H]\]~]]]]^(^J^l^^^^^ ^^ ^*'_46_>I_\S_f__pi_zy____ }____$_.`8`B8`LM`V`V`V`Z```z`z````````a ,aSjHjjRj\jfjzjjk kk2koBoQo`ouozo ~o ~o o: oD oN p4!p>!pH!/pR!jp\!pf!pp!qz!8q!eq!q!q!q!q! }q!"r!:r!Jr!tr!r!r!r!r"r(#&s2#&s<#1sF#FsZ#[sd#sn#sx#s#2t#gt#gt#yt#t#t#u#>u#mu#u#u#v#Hv#~v }#~v$v$v$ w"$Kw,$rw6$vw;$w@$x$Lx%Lx&%]x'ax'ax$'rx.'vx8'x='xB'xG'xj')yo'Zyt'qyy'y~'y'y'y'y'y'z'/z }'Uz'hz'vz'z(z(z (z({(+{(C{*D{ +D{*+t{>u{>u{>{>{>{>{>{>{>|>(|>=|>H|>f|>p|>p|?| ?|?|? }|?|?| ?|*?|4?|>? }H?}R?9}\?L}f?P}p?Q}z?c}?k}?t}?}?}?}?}?}hB}jB}mBQ~wB~|BBBBBB3BhB }BB9BjPFpRFuUFZF_FGdFfFiFXnFpFsF܃xF}FF/F[FFFF F4F_FFFхF"FSNYNY }NlOvLOzVOz`OjOtO~OOOOOȆP͆P͆Pކ#P(P-P2P-7PFRq>\qIfqVpq0u:uDuNuXubuluvuԈu䈊uuuu-uFuUu_utuyy }"y } }Oy*PCuDSCiD$C(C(DPCYC(iD%\CPC} DP }C+K:7y*bC64DbC dEbC OEeC+NEeC+iy*bC  }   VE+"Taper pour continuereC*+RO4E:7hC@(kC@(nC }@)qC@)tC@wC@zC@wC.SCRAhC"-A}C@(C@C@(C@ChCDAChCDBC.AC(CDBCCDBC AC( }BCCDBCCC&C( C( FCtF$}C-BtF%C(FP*LO* }FP***4}CD7tCAVCVCHIC&C&YC&C&C&C&CCtF$CHCH }CHCHIC(C(YC(C(C(C(CC(YC( C( CYC(tF%C(C( }C@C BtF$tCGAIC(G`m*CC(C( tCDCtF%4}C}CD/ .PRGBCiD$C(C }( 9HCiD%}CD7503 PRINT CHR$(125) 333"Programme ecrit pa }r CCC0u* "d* " InCD/I  }505 POSITION 14,1:PRINThCD Program ecrithCD510 POSITION 19,2:PRINThCDparhCDC(nCD/   515 POS }ITION ,3:PRINThCDnCDhCD"Nom d'application CC C0u* "d }* " HJnCD=VJ>C(nCD/   520 POSITION ,5:PRINThCDnCDhCDC }C0J POSITION 2,:PRINThCD$Verifier totaux generaux ..........VhCDCC PO }SITION 2,:PRINThCD$Retour au BASIC ...................XhCDCDCUyKIF R$=hCDVhC }D THEN 15000:REM VERIFY DATAC}- "BDonnees et programme d'application sur la meme disque ? }d*#L_C1L_C*}- "!Nombre maximum d'enregistrements  "dans le fichier. " !}%Saisissez le nombre d'enregistrements "!que vous voulez dans le fichier? CC C$0u*nCD0;nCD::  "}MnCD,nCD, &MPCnCD,1 REM MAX ENREG. =2 REM LONG. FICH.=3 REM NOM FICH.=qCqCD/ #} F4 CLR :REM SET UP DIM ARRAYS6 ML=2:GOSUB 31000:POKE 752,18 PRINT CHR$(125);hCD En cours.. 10 $} GOSUB 90N'220 GOSUB 21100:REM CHANGE DISK MESSAGE#230 GOSUB 21500:IF NOT ERR THEN 220CNC %}|N$C(NC|N% C& tF$C1,C(tF%N#31,28,31,30,31,30,31,31,30,31,30,31 N &}}-"Voulez-vous les dates dans le "!format mericain : mm/jj/aa ou le "format uropeen : jj/mm/ '}aa ?CC C 0u*Hq*nCDA9nCDE9OCnCD5+85 DATA 31,28,31,30,31,30,31,31,30,31,30,31990 DI (}M MT(12):RES. 85:FOR I=1 TO 12:READ X:MT(I)=X:NEXT I90 REM}- "En cours. Veuillez Patienter1 )}00 REM DIM STATEMENTS95 NF=:MX=:NG=:RL=-105 DIM INDEX$(MX*8+3),KEYWORD$(40),LINE$(20)110 *} BUF=99:DIM LABEL$(),SP(),TYPE(),LRG$(40),SML$(40)115 DIM INFILE$( ),OUTFILE$(),PO( +}),PC(),PR(),PRT$(40),R$(40)/118 DIM DOT$(40),BLANK$(40),TI$(BUF),GLOBAL(NG)C<qCAC| ,}N$C(C(  RC|N%16000 REM GLOBAL ADJUSTMENTS16900 RETURN:REM END GLOBALSaR3 -}3 3'}젠|N$C(C( RztCCC(C( FA' .}}젠"=Quelle est la zone qui est cumulee dans ce total general"tC /}D."Saisissez de 1 a  ou 'l' pour"lister les zones. F..CCCnCA0u*nCDL=nC 0}Dl= SC>*nCD/T*?CnCD,@? &TC(@TC * C(ZTC * C 1}*C*|N%qCD/TqCDC@? **qCD/W/'TqCDqCAC qCD9TqCqCD/,BqCD 2}=TqCWAqCqCD/ DATA BqCqCD/WB+ " ?U& mU!Doit etre mo 3}netaire ou numerique.UErreur - doit etre numerique.U%Erreur - pas de saisie les zones T.G. " 4}Taper pour continuer.eC*+18000 REM PC CALCS AND GLOBALS18001 TRAP 1825218252 REM CALC P.C.'S 5}18800 GOSUB 16000:RETURNC|N$C(C( VC|N%VhB*C&tF$C(tF%R 6}333VCV$C(C(W')}堠 7}"Donner maintenant les calculs" pour zone ."CC(C( F"F=" 8}%[L] et [RETURN] pour lister les zonesC#CC0u*nCD=nCD= XHq*nCD?=5XhB*nCDL=nCDl= 9} WXC>*Ch*iXCJG F=nCnCD/ F IC=F:IL=YC(:GOSUB  :}C(X22400C(X22300 :INFILE$(C(,C( )=PRT$V%tF$C( 9Y6PF ;} F =VAL(INFILE$(C(,C( ))tF%@?CCC0*nCnCD/-B*Y+Y <}YC YC0*+*Y+Z ZC0*+)ZC =ZC =}0*+EZ+C0*+ "Z +ZErreur de syntaxeZParenthes >}es incorrectesZ Caractere ou fonction incorrecte3[1Les zones doivent etre numerique ou monetaire ?}\[Erreur - Zone Total General[4Erreur - Zone non definie precedemment "Taper @} pour continuer.@ (\eC*@ ( "%  "K A} @?+CCnCF =\?nCF-= B}\C+nCFF=\\nCF+=nCF-= \C+nCF*=nCF/= nCF^=  ]C+nCF0:nCF98nC C}F.= 4]nCF)=H]C+nCF(=\]C+nCFINT(=~]CC+nCFSQR(=]CC+nC D}FABS(=]CC+nCFEXP(=]CC+nCFLOG(=^CC+nCFSIN(=(^C E}C+nCFCOS(=J^CC+nCFATN(=l^CC+nCFSGN(=^CC+nCFCLOG( F}=^CC+C0CnCF0:nCF98nCF.= ^>?nCFE9^4CnCF+=nCF-= G} '_C$*a6_>@?C C+C0C$*i_C(y_C(_C( H}_C(_C(C C+C0C0C0C0nCF0;nCF9< `Cc+CnCF505 I} CnCF0;nCF9< 8`+C nCF505 C+PF*D 333R)} J}堠V$DC(` C(`zCAlphaAC(`zCDateAC(azC Numeriqu K}eAC(,azC MonetaireAC(IC THEN DD I U}F R$<>CD THEN DDCp**fV:fCVEfZf IF R$of IF IC V}nCD THEN DD SML$=nCE:LRG$=R$:GOSUB 22700:IF ICnCF0 THEN DD W} "Message d'erreur?CC C%0u*nCD=.gXnCD=AgPOS. 2,22:PRINT hCDnCDhCD X}: ERR=1:RETURND ERR=0:RETURNV%@nCF =gCzCDnCF<=gCnCF Y}==gCnCF>=hC h+nCF<>= hCnCF<==7hCnCF>==NhCVhnCD/dhX Z}nCnCD/ BnCD/ iD$nCnC  FCiD%nC CnCF< =hnC>=C"nCF= =hnC [}<>C"nCF> =inC<=C"nCF<>=,inC= CnCF<==JinC> CnCF>==hi \}nC< CCCC?nCF =iC DnCF0:nCF98inCF0:nCF98i ]}nCF.=nCF+= nCF-= jnCF'=j.C@?+? DiD$ DnCF/9Sj4D ^}DiD%?AjDnC F,DnC F,EjDnC F,DnC F,4DC$*DC  _} j jck  kC(kA2kDDDnCdWBnCdWBnC `}dWBnC hCDBnC/CnC/CnChCDCC@?D+C @?+C@?+@?D+C +B?nC a}hCDCCC nCF=k8CnCF'9l8@?nChCDBD+@? &l+ "[l"Erreur de syntaxe- b}Test incorrectel1Test est correcte pour les zones alpha seulementl1Test est correcte pour les numeri c}ques seulement m#Test utilise un nombre pour valider5mTest utilise une valeur alpha`mTyp d}es incorrecte pour validerm(Date incorrecte - le format corrige est Ammm/jj/aaEmjj/mm e}/aa mValeur incorrecte "Taper pour continuer.eC* D@}-33" f}Quelle zone est la cle."Saisissez de 1 a , ou 'L' pour "lister les zones FCCC0u g}*nCDL=nCDl= nC>*TnCD=nnCF0;nCF9<  oCnCD, $o C(C(  q}B'DOS SYSB+MENU EXEBCODEGEN EXEBMARKER EXEBFILEWRT BCONVERT BASB*SORT BASBAUTORUN SYSBADRESSE PRG>o: **D ( , )ADC(WCDC( WCD4!"Nombre de la zone incorrecteD "$D r}oit etre une zone saisie au clavier"Taper pour continuer.eC*T2260 KEYWORD$=INFILE$DD s}13120 IF OUTFILE$DD=INFILE$DD THEN 1316013140 KEYWORD$=INFILE$DD :GOSUB 20850CC(C(  t}!pC&C(C( 19020 POSITION  ,5:PRINT hCDCC(C( FhCD;19030 IR=5:IC= u}C(C( C(eq:IL=YC( :GOSUB 30000C(q:DIN=1:GOSUB 30000 19035 IF R$=CD OR R$ v}=CHR$(27) THEN RETURNC(q!19040 GOSUB 22500:C(q!#19040 GOSUB 22000:IF ERR THEN 19030 w}19050 GOSUB 22600:C(Jr!#19040 GOSUB 22100:IF ERR THEN 1903019050 GOSUB 22400:C(r!#19 x}040 GOSUB 22100:IF ERR THEN 1903019050 GOSUB 22300: KEYWORD$=PRT$19090 IF KEYWORD$<>INFILE$DD THEN 1 y}91401s#AFsnCmm/jj/aaAE[snCjj/mm/aaA2110 IF TYPE(N)=2 THEN PRINT hCDnCDhCD(12270 PRT$ z}=DOT$(1,IL):IF TY=2 THEN PRT$=hCDnCDhCDAs%22010 F2=VAL(R$(1,2)):F1=VAL(R$(4,5))E2t%22010 F1=VAL(R$ {}(1,2)):F2=VAL(R$(4,5))30530 IF DIN THEN PRT$=hCDnCDhCD:IL=8qC}C}CD/ FAqCD1C127 OPEN #1,4 |},0,hCDqCD.SCRhCD9400 TRAP 440:RESTORE 15500:TRAP 410:CLOSE #3:OPEN #3,4,0,hCDqCD.GLBhCD450 CLO }}SE #3:OPEN #3,4,0,hCDqCD.IDXhCD20030 OPEN #2,8,0,hCDqCD.DAThCD20510 CLOSE#2:OPEN #2,4,0,hCD ~}qCD.DAThCD20610 CLOSE#2:OPEN #2,12,0,hCDqCD.DAThCD21530 CLOSE#1:OPEN#1,4,0,hCDqCD.PRGh }CD26010 CLOSE#3:OPEN#3,8,0,hCDqCD.IDXhCD26505 CLOSE#3:OPEN#3,8,0,hCDqCD.GLBhCDCt }F$C(C(vCtF%13350 POS. 2,21:PRINT hCDSaisissez de 1 a  pour modifier, '?' pour hCD; }+13410IC=0:GOSUB 22150:IF ERR OR IC<1 OR IC> THEN 13600tF$C(C(rwCtF% 12065 PRIN }T hCDQUELLE ZONE POUR SELECTIONNER hCD:PRINT hCDDE 1 A ,hCD;:PRINT hCDOU '?' POUR LISTE? } hCD;'12100 TRAP 12140:X=VAL(R$):IF X<1 OR X> THEN 12140 GOTO 320004C( rxP*N*xP* }$'OhC@ ppp " | Chargement du programme .... |hC"-A "  } " "POKE 764,12:LOADhCD D:CONVERT.BAS"RUN'* O }CJ ERREUR DISQUE PROGRAMME ARRET A LIGNE 10120CJ:D@(=D@ @D@:DhJhhh }ȑh`A=D'hhhhhhh֑`A>zCD 2z$@D-C2z%FDj ID }LD=DD.JLD:DD./.JtF$ӖLD=DD.ӖӖJtF%  }tF$tF%otF$LD=DD.@DD.Ӗ< JtF%@`+}  "En cours. Patient }ez ...+}CC"DbCCtCZones saisie au clavierA%D(D>*{+{>tCZones calcu }l par programmeA%D(D>*|+tCZones total generalA%D(D>*=|+H|>" pour sortie }eC*+|p?*|+|p?*|+|?p?*|+ ?"tCDp?* |p?*|+tF$C(C( | }\?C(C( ' }p?* }P+"F"CC(C( FCU  tF%+CC }k}+?*t}+C}"D+"( pour continuer, pour sortieeC*}?C }}C+R}J Definir maintenant les calculs pour les zones calculees par programme.S } Les zones saisie sont referencees par 'F' suivis du numero de la zone.` Vous pouvez faire reference a u }ne zone precedemment calculee par programme par 'F' gsuivis du numero de la zone. Exemple, zone calcul } No.16 peut se referencer a la zone calcul No.15 par 'F15'."Taper pour continuer. eC* }}C Utiliser les operateurs +,-,*,/ pour les quatre operations.. Utiliser tout les fon }ctions du BASIC.3 Utiliser les parentheses si necessaire.6 Toutes les zones doivent etr }e numeriques ou ! monetaires.Un exemple de calcul serait: F9=(F1+F2)*F3/F4"Taper } pour continuer. eC*R+R}_ La question 'rejete si' vous permet d'effectuer differents tes }ts avant de valider les donneesZ dans votre fichier.Vous pouvez utiliser tous les tests que vous voulez pour chaque zon }e._ Pour chacun des tests definis, on vous demandera un message d'erreur approprie qui sera 4affiche si }les donnees saisies sont incorrectes.fUn message d'erreur standard sera affiche sur la derniere ligne si vous f }aites RETURN en response. TEST NUMERIQUE!ӠҠ Entiers seulement"Taper } pour continuer. eC*} TEST ALPHA$ҾPas plus de 6 caracteres% }ҼPas moins de 5 caracteres&ҽNe peut etre 10 caracteres%ҾDoit etre plus petit que 6 }%ҼDoit etre plus grand que 7%ŠDoit etre alphanumerique!ΠŠDoit etre numeriqu }e$ԠâNe peut contenir 'ABC' TESTS GENERALӠŠSaisie obligatoire } Ne peut etre egal a zeroF LES SIGNES <,>,<=,>=,= ET <> SONT INTERCHANGEABLE DANS LES TESTS" }Taper pour continuer. eC*R+qC D :MARKER.EXEAqCWCjOqC}CDAqCqCD/ .SCRBO?C4 }qCD7CTC4@?+ 3  3"METTEZ" FILEWRITER"DANS " LECTE }UR # " TAPER [START]"POUR CONTINUEReC 3  3"METTEZ"DISQUE D'APP }LICATION"DANS LECTEUR # " TAPER [START]"POUR CONTINUEReCtCD/+tCD/iD$t }CE59tCtCE5 -CiD%+nCD=I+nCD/tF$nCFa:nCFz8nCnCF5 -CtF%+nCA+D  }lu"CF"K:7vu?y*.D6nCA 4+~ }u-.D  z "  Fvu+DnC-B-vunCB+D .vu+1D } ++&&L&M&N& + 5J&&&© M2 -L*J&˜ ' 5&0& M2&THE LIBERTY BELL IS NOTTHE ONLY THING IN PHILIDELPHIATHAT'S CRACKED M2 -L*J&˜ ' 5&0& M2& FiMOVSCREERALINESEPOKTEMPMBASPL2BREAPRINTPEEK} @ }SAVE "D:AUTORUN.BAS;@I,+]A 'A9AKAR@]}@@AR@116.'hhhhhhh֑`%%6-F:@,%F:@,$AV(}/A(/6-?:C:,<<%@<A Y,2A@7 AP<&&;@@,;@,;@@,F-@}@#K#M6-@P-@@BU Z('@"P:'@,(6-@d 6. |6.| n}C-@# ,-@7@#1 C-@@#s_"@!-@#( :-@8@#A} M6-_-@@#x"4AEy:*-$@%@F@P6@6B2I: z4} A%}-@B:,0B2I$@%@F=7<,4 _22@} A5G%2@@@G2@@@@!-%@@#! 7<}, G%2G2@ 6. -@AP K}Ai'Ap9AqKAr6. D:MENU.EXEA-@PAU@+}B2I/ AB2wb +@-@@8 @ BIENVENUE AJ-@@b @ FILEWR}ITER.-@@. @ غ A 6-?:A6}$LIST "D:INTRO.LSTCONVERTED BY JOHN BLUME!!DYNATECH MICROSOFTWARE INC.;@%, AU  A}Up6-F:A,&@6-AV$+%@+%@++6-?:C:,<%@<%@}<A,II6-?:C:,<BBy<<AY<@F<B2w<@<A<,?%A?6-?:C:,<%A}<%A<A(,?%A@?6-?:C:,<%A@<%AA<A(,B2W@A#@}6-A((6-?:C:,:,7 $0,0,60,60,60,60,255,255y)6-F:@,&A(& )$"y@B7t$} D:FILEWRTBAS}SCREERALINESEPOKTEMPMBASPL2BREAPRINTPEEK@EF^^RPPCWDERERDISSNPOSPFFFFTYPEPRPCPRTLABELGLBCIDXCBLANKOUTFILERNIITIINDEXBUNMD}OTMDIMLENABLEINFILEGLBFFILTDIFOUNLRGSMLNOPCOLCOLSMEXSMLREXLRKEYLOGLOBALLKEYWORDMTLPAGFKESC}REELINMSCREEXLP@ @ } @@@} !"#$%&'()*+},-./0123456789:;}@<=>?@A@BCDEFGHIJ}KLMNOPSAVE "D:CONVERT.BAS.;@@,6-F:Ai,.6-F:Ap,$};@,$6. D :MARKER.EXEO67@<@,.=:,4-@F:AS,K67,.>:F:AS%,,O 67B:,&@},..PRG B! A()9 Bq B)-@@"9  Imprime ...*2-@!}6.2-@8+% 1!A'%6-&A(,67%@,.>:,-   3. / B B}0$x B(A'} B A :@%68@,-@:68@,-@-@}@@@@ 68,-68%@,-8,%%%68%@},-8,%@%&&68,-P:'@@,!!68,-&@&@@$8, -@@$$67}8,<8%@,&@,. @h6-6-|* 6. 67@@,.*67@,.$ 6. }67,.$67@,."A@I #BU A"@I@@ D:EXP.GLB}-@" A3@ 6-A:,6-8%@,&8,""8,&@B$B#$$67}8,<8%@,&@,. A5''678,<8%@,&@,.0X  A6-@5@}5@@ D:EXP.IDX@67,. 6-% A`56- A56-A:7$@}%@,, B* 6..67@@,.*67@,.$@ B` Be5 +}6-@+AR@5 B :-@@:( Vous avez les options suivantes:>-@@ }> $Creer un fichier(1 fois seulement).F>-@@>($Saisie les donnees ................E>-@@}>($Consultation ......................L!>-@@>($Recherche .........................S&>-@@}>($Mise a jour .......................U+>-@@>($Supprime ..........................D:>-@@>}($Faire un choix et taper le touche ?3-@@!3( pour retour au menu D16-@76-@'6-@'}1 B F4)4>:@',AH4FAI"AK4EA M4LB}O4SB Q4UB0S4DB@X4XA] A% B B% A} + A % D:LINK.BAS BFILE PREPERATION ROUTINEm +'0@@}A0@@[0@@@mAR@8-@@8 Cette option effacera tous }les1-@@1 enregistrements saisis.2-@@2 Pour commencer taper /-@@/} Pour sortir taper ?-@@? %Faire votre choix et taper RETURN ۠ 16-@26-@7'6-@}1 B 4CA4XA A5LVC >:A%,"-@@C Cela prendra} un peu temps...` Bot A##@@E:A `l (}-@}@8 Votre fichier est plein.J-@@l Taper pour continuer.#6- B# A#} 6- B }8AR#-@8BEGIN DISPLAY LOOP 8,!@A!0*/-8,8},/ 78,<8%@,&@,48,"A!0>((IF TYPE(N)=2 THEN PRINT "mm/jj/aa"H>8,@*8,}> 7@<8%@,&8,,R AR\6-aH-@@"H &@# enregs. dan}s le fichier f-@p''8, @)8,!@A!u8-@@#8 Taper pour reto}ur au menuz A4A#$$678,<8%@,&@,. 6-@ B BP}N-@@"+ Est-ce correct? 76-@"C6-@N6-@:O, B4A#!6-@}4N! B3(A#KEYWORD$=INFILE$(1,8)! BP B! B?-@@"? % =} imprimer = continuer,F:B2y,"@" @@, A"u F:B2y,@A"v6-%@ }A E@ A@B% 6-8," @)!@%$D= 6-8,'6-8,%8%@,&8,=6-8%@},&8,F'6-6-"@' BH 4$I BJ3!@3&@B B!B!}LAN!@* A%R A%@@$TAV''B%B&B$B#X}$YM OR L OPTION\ 6- -@B:,^?6-@:7,,9"@v)"@w)"A)"A ?6-`  }($bD7<,4m)7<,4MA6-A:78,<8%@,&@,,%D$d,)6-A:78,<8%@,&@,,&,$*LO}OKUP RECORD+9#@@E:/6-9 B + B(A+=-@@#= " } = imprimer, = sortir +-6-@ B-"@B@*+"@B@4+ @@PRINT SCREE}N>+ B B0.@ A.RECORD SCAN SUBR..##@@E:.6-@} B. @B%. 6.6.6-. }-@@.-- $Tous les enregs.(A) ou sele}ction(S)?.16-@6-@9'6-@21 B .4B%/4AB#p/4SB `/ B} / }-@@!/E+ #Quelle zone pour la selection(1-13,E ou '?' pour liste)? &/16-@6-@!}'6-@1 B0/4>:@',B%:/+ 4?6-! B0+ B `D/4 B!@6-A:,4 @})!@B!@N/6--@X/56-%@58, @)8,!@B! b/  B!Pl/4-}@@#* Š4 B v/"6-8%@,&8,"6-8,/!@6-@/4-@@}4 78,<8%@,&@,/ @B"p/*   *  La plus petite valeur ?/   7@<,}/  Inclus (O/N)? /'  '  La plus grande valeur ?/   7@<,/  Inclus (O/N)? /'6-@}6-@'6-@ / B#0/22PRT$=DOT$(1,IL):IF TY=2 THEN PRT$="mm/jj/aa"/-   -  La plus petite v}aleur ? 0""  Inclus (O/N)?  0+  +  La plus grande valeur ? 0""  Inclus (O/N)?  0!}6-@ 6-@0!6-*0 B'GET SMALL/04B%40 6-6.6->0+6-%@!@ +}6-%@@0 B'GET LARGEC04B%H0 6-6.6-R0-@&@W0 >:A%,\06}-@$6-&@f0 B Bp0"B%0u0"@B$qz0"@B$0$$6.}78,<8%@,&@,04B$@02)*4B%p04B%003)*4B%p0 B%00}$$6.78,<8%@,&@,04B$u0 6.6. B'6.0## )*"B%p04 }B%00 6.6. B'6.0## )*"B%p0 B%00''6-A:78,<8%@,&@ },,04B%0 )*"B%p04B%00!)*"B%p0 BPPRINT RECORD0f-@ }@"? % = imprimer, = continuer,Q-@@#f  = sortir16-@ B1-"@ } @@# B- B%@1"@6-1 $1@ A1! 6-6-"@! B1- }6-4)4*6-%@-$1+!@+&@B B!1B'1"@6-A:,1}B%B&B%1-6-%@6-#6-@2- B1 6-4N1 6.1$2UPDATE RECORD ROUT}INE2##@@E:2 BGET RECORD2(B1p2 B3EDIT RECORD2B12} 6. BP3e-@@"= # pour retour au menu, ou O-@@#e  pour continuer.3)6-} B)4B1p"3 B,3 B0@63 6-6-%@@3..IF OUTFILE$(1,8)=INFILE$(1,8) THEN 13}160J3 B `T3''KEYWORD$=INFILE$(1,8):GOSUB 20850h3 B Br3@ A3HANDY DANDY RECOR}D EDITOR3 6.6-4 BCALCULATE PC'S4 }4a0@@70@@Q}0@@@aSET UP SCREEN!4 BPPRINT INFILE$&400PRINT "Enter 1-?? to change field, '?' to"04,, #} liste,im(p)rime ou (s)auvegarde. :416-@#6-@4'6-@1 B?4 BD4 4S)4s6-@} $I4/4P)4p @@% B/ B3PN4 46-$X4+ 4?6-@! B0+ B3@b44}4GOSUB 22150:IF ERR OR IC<0 OR IC>?? THEN 13600l46--@v456-%@58, @)8,!@B}404 46-@4 A4 46-$4$$678,<8%@,&@,.4 B3  5*5V}-@@"@ %ϠŠ - taper L6-V B45 B3P6DELETE RECORD6##@}@E:6 BTO GET RECORD6(B@6d-@@#7 Etes-vous sure de detruire? }C6-@#O6-@6Z6-@:O,d B64N)4B@66-&@ B `66-6@6 B`}ADJUST GLOBALS7 6. 7@ A:VERIFY GLOBAL TOTALS:-@:68,-: : +}@@@:!!-@@$@:"@BQP:6-&@6-&@:1-@}@1 @LIRA ENREG. :E-@@E @+&@,'@ DE &@: #BU: B} B;-@; ";//68,-8,%A:78,<8%@,&@,,$; .; 8;3 +3 !ZONE  } TOTAL ANCIEN TOTAL NOUVEAUB; #BUL;-@V; "!@ BR0`;-@%@j; -@!}%@t;@% A:78,<8%@,&@,,9-@"%@@ 8,~;" 6-8,"6-8%@,&8,;""8,&@"}B$B#;$$678,<8%@,&@,.; ;J-@@"4 Taper pour continuer@6-@#}J B;6-@ A>GLOBAL ADJUSTMENTS> ( $> #BU>-@> ">1 B`p1$}6-A:78,<8%@,&@,,>556-&A:78,<8%@,&@,,>556-%A:78,<8%@%},&@,,>86-8%@,&8,88,&@B$B#>$$678,<8%@,&@,.> > B&}6-@$B$END GLOBALSB BBb-@@". Imprimante pas pret.@-@@#b Taper '} pour continuer.B+-@@"!6-+ BB B$8JRECORD SEARCH UTILITYBJ6-(} BDJ6-GJ(-@@!( Entrez la cle.oJ+-@@!+  qJ 6. B)}GET KEYtJ(B`~J! 6-6-%@! BJ BJ$$IF R$<>INFILE$(1,8) THEN 19140J BP*}PRINT INFILE$J--@@#- Est-ce correcte ? J06-@6-@#&6-@:N,0 BJ BJ +}4O$J" 6. B"GET NEXT RECJ B`JB }-@@B "Enreg. non trouve pas. = menuJ ,} F:B2y,@BpJ$ NFILE PREP ROUTINE*N# 6. 67,.#67@,.4N 6.6.9N@>-}NOPEN #2,8,0,"D:EXP.DAT"CN-@HN@RNBUILD INDEX\N6-P:'@',fN6-&$@'zN6.}-%@dN6-%@dN6-%@2N!@6-%@dN6.zzzzzN67B:,%@,.>:,N67B:/},%@,.>:,N67B:,%@,.>:,N67B:,%@,.N-@N''8,")8,!@BN$$0}6.78,<8%@,&@,N @N N1 }ENREG. NUMERO=1 LONG. INDEXE$=B:,O  TRACK/OCTET: 1}/O 6-@O@ B`O. 6.067,.$67@,.. BeO% B$%FILE PREP 2}FINISHEDO B6.$O.F:A,"Ab. }DISQUETTE PLEIN.)O3F:A,Ab3  }ERREUR No.F:A,3}.OV%  Taper pour continuer.16-=6-I6-S BV$LO!!SEARCH FOR RECORD IN INDEX$VO$ 64}-B:,!@$6-@`O/67%@,.!6-@/6-&@jO* @6-@'6-*$tOK65}-$@&@.37<%&@,:6-H6-%@K$~O"BO.6-P:+%,'@,.6-$@&6}@O/7<%&@,6-O&37<%&@,&6-%@O BPO6-$@&@O6-+47}7<%&@,,O6.7<%@,$OEND OF ROUTINEPINPUT FILEP&&CLOSE #2:OPEN #2,4,0,"D:EXP.DAT"#P# 6.8} 67,.#67@,.(P@FROM INDEX2P-@}C TRA/BYTEJQ6.7<,P1 P2 CALCOQ96-@:7@,,'6-@:7@,,96-@:7@,,YQ6-&@d6-&@d?}^Q!A(6-&@dcQ#6-+$@',%#6-&@2hQ$rQ!!INSERT NEW ENTRY INTO INDEX|Q6. 6.@}Q67@,.Q BBINARY CHOPQ6-@Q6. 6.Q//67@,.7$@&@<$@A},Q 6-6-%@Q6-$@Q& B @Q 6-&6.7&@,Q"67%@<%,." B B}Q/  6.7<&@,/67%@<,.Q67<,.$QEND OF INSERT INTO INDEXQDELETE FROM INDEX AT P1QC}6.7<,Q 67@<@,.zzzzzQ67@ ,.=:,R67,.7%@,R67@$&@,.R6-@D}$REND OF DELETE ROUTINElRA +@'0@@@A0@@@vR)-@@) E}@METTEZ{R4-@@4 @DISQUE DE DONNEESR0-@@0 @ DANS LECTEUR R0-@F}@0 @ TAPER R1-@@1 @POUR CONTINUERR6-@ B$RA +@G}'0@@@A0@@@R)-@@) @METTEZR7-@7 @H}DISQUE D'APPLICATIONR1-@@1 @DANS LECTEUR 1R B%SDISK CHECKT B5T"6I}-"DISK CHECK ERRORT CLOSE #1:OPEN #1,4,0,LINE$T@6-!@$T @ A)TJ} B$UDATE CHECK ROUTINEU6- B pU4)4$U76-A:7@<@,,76-A:7@K}<@,,V'6-A:7@<@,,' B V++)) B p V""P:,)P:,)P:,B pL}V30"@*"@)*P:'@,"'@3$V/ @)!@%6-@/ B "V. @)!+8,,$M}6-@. B ,V$6V)-@@") Date incorrecte;V B6-@$@V+-@@"+ MoinN}s incorrecte.EV$JV)-@@") Jour incorecte.OV$TVREAL NUMERIC CHECK^V6- B!PhV7-O}@@"7 Une reponse numerique SVPrV$VNUMERIC CHECKV 46-$V B!6-A:,V6-P} B$V6-@ B$WDOLLAR FORMATTING&W$$6-P:A$%?P,'A0W""6E)Q}EB#:W! 6.=:,6-B:,!6-@DW.-@7<,4..6-%@&NW SW 6.XW& %!6R}.#67%@,.&$bW67&@,.0.00lW67%@&&<&,.$vWK 6.*67&@,.+67@,.HS}67&@<&@,..K$WNUMBER FORMATTINGW""6E)EB$W 6.=:,6-B:,W6.7@T}<,W 6.67%@,.$W. 6.*67&@,.+67@,..$W6.7@<,W 6.67%@,.U}W$HXDATE FORMATMX 46. $RX0 6-A:,6-A:7@,,06-A:7@,,\XH6.=:%A,.67V}@,.=:%A,H67@,.=:%A,fXD67@<@,./567@<@,./D6.7@,pX$XW}DATE COMPAREX%6-6-% B'pX'6-A:7@,,'6-A:7@,,X 6-N:&,$X 6-A:,X}6-A:,X 6-N:&,$X'6-A:7@,,'6-A:7@,,X B6-N:&,$YTEST FOR NUMERIC IN AY}LPHAY!6-B:,"!$$Y8-@B:,,7<,10*7<,/986-@.Y   $tYSUBSTRING SEARCHZ}~Y!6-@6-B:,!6-B:,Y   $Y-&Y$7%@<%,4$6-Y   $YLIST FIEL[}DSY4 }AR@(6-46-@Y'6-@6-'6-Y!!6.Zones saisie au clavie\}rZ%6-@6-@% B3ZB1Z$$6.Zones calcul par programme(Z%6-@6-@% B3]}:, >:,w"Bpw&6-%m}@&7<,0/Bpw.6-%@$*@@1. Bpw) 6-6-&@)AR@w -%n} 7<,w"7<,4/"6-&@wD67%@,.'AR:*@@0D BpwCONSOL o}CONTROLSw!!CONSOLE KEY START ,CN = 1,6w!!CONSOLE KEY SELECT,CN = 2,5w!!CONSOLE KEY OPTION,CN = 3,3x!!CONSOLE KEY p}OPTION,CN = 4,?x LOOP x6-F:B2y,x"@*"@$x"@*"@$x"@*"@q}$x"@*"@$#x"@*"@$(x"@*"@$-x B%Px B Zx0O*r}0N*0Bdx$x.@.@@K:xAR@x -x)!@1* @s}) >:%A(,x' @2)!@' >:A`,x)@x"AUB x"@'6.$xt}!@1* @6-y'!@* A#'6-&@2y B y -6.>:, $y]@)0@u}@C0@@]0@@@"y$|y--@@"- 7@<@5,v}y$}"A" >:@(, }"AB" >:@(,}'BB '@}" B'Pw}"AR};@ ,}-@F:AS,}67,.>:F:AS%,, }\67B:,&@,..PRG" x}}4AR@F-@@X  Sauvegarde \} }-@#}PP G Pour lancer votre programmey},mettez le disque de donnees,maintenant(}>> 6 votre disque d'application dans le lecteur 1et taper:-}I2  RUNz} >:@4,D:7@,I6-F:@ ,%@`2}= = 2 BONNE CHANCE AVEC VOTRE NOUVEAU PROGRAMME.<}AR{}d}O-B2HB2Q#' 9B2w?(}E"O B#e} B$f} B# B|}!g}A +'0@@A0@@@h}B-B (}}堠i}?-@@? % FILEWRITER va generer le programmej}e-@@e K que vous avez cree.Cel~}a prendra quelques minutes.Le programme serak}>-@@> $ sauvegarde automatiquement sur lel};-@}@; ! disque de donnees avec le nom:m}/"-@!u&B:,'@@ / 7@,n}?-@@? %Votre }programme sera liste a l'ecran.p}MERGE GENERATED CODEq}&,~ 'INSERT DATA DISK' MESSAGE-~A +@'0@@}@A0@@@.~)-@@) @METTEZ/~7-@7 @DISQUE D'A}PPLICATION0~2-@@2 @ DANS LECTEUR 1~0-@@0 @ TAPER 2~1-@@}1 @POUR CONTINUER3~6-@ B4~$~~ B$~6-~+@+@@}~@6-!@~@~ B$l }-@@5 En cours.Attendez }SVPG-@@Z(Test memoire :lAR@%%6-F:A6,%AV$F:A7,!!6-F:,%AV$F:%@},6-F:%@,-@"@( 6-%"B `B'b B'R86-P:+%@,'AV,86}-%@&+$AV,R#%@A(7%@@CA@OAAR$ D:CONVERT.BA}SAAR$B!B"D( (zLABELGLBCIDXCBLANKOUTFILERNIITIINDEXBUNMDB0SCRIDXDATPNTINDEXSRLTRPRTREPNUDSFLLENGTTYPIGCASUDOWIPNFFLLOHIGMIEMARAD} }} !"#$%&SAVE "D:SORT.BASdPROSPECTIVE SORTn1) ENTER SORT P}ARMSx2) REQUEST DATA DISK3) READ IN INDEX$4) READ IN RECORDS5) SORT RECORDS6) CREATE .I## FILE}HOUSEKEEPINGpp;@,;@,;@,;@,;A@,;A$@B,;A,;@@,};@@,,STEP ONE6//@@D:SORTPARS.DAT@@@B@@}J@@K@@L6-!6- M 6-O:,N"@6-@}O"@6-@Q STEP TWO REQUEST DATA DISKRT 6.6-B:,%@^67&@,..IDXh }6.r67,.=:A%,|67<,.I5 A@5@@ B A +}@,-@@, @ METTEZ LE5-@@5 @DISQUE DES DONNEESG-@@}G @DANS LE LECTEUR #7@<@,0-@@0 @ TAPER 1-@@1 @}POUR CONTINUER F:B2y,@Ap + ASTEP THREE READ IN INDEX$ } A6-@@67,.6-%B:, A''6-P:B:,'@,$@%@- A06}--6-A:7,,&@! B!!A> }-@@> PAS DES ENREG. DANS LE FICHIER&}& STEP FOUR: READ IN RECORDS6 6. !67$+@%,,.067@,.66-" 6."67B:,&@},..DAT1 +-@@1AR@ LIRA ENREGISTREMENT:+@+@@}-@QQ6-@'$+@:7$@&@,,&@d,%@:7$@&@,,&@d96-@:7$@},,&@2+!A'96-&@d @-@ @* 467,.=:A%,>}AAAH67&%@<,.R6-%@%W-@"@ \ fpSTEP FIVE: SO}RTz"@AP,-@@, ENREGISTREMENT: 16-%@""-&@6@}6-%@6-&@,,6.7$%@<+%@,$&@,66/7$%@<+%@,$&@,*A}@6617$%@<+%@,$&@,*A@>.37$%@<$+%@,&@,*46-> A>}.27$%@<$+%@,&@,*46-> A "6- A 6-P:+%%@,'@,>.37}$%@<$+%@,&@,*46-> A `>.27$%@<$+%@,&@,*46-> A `6-&}@ A `06-$+&,0AV$P:'AV,"A $$6.7$%@<+%@,$,SS67$%@<$++}&@,%@,,.7$+%@,%@<$+%@,,$$67$%@<$+%@,,. -@"@ & }NUMBER TO STRING" A6-"6-A:,# B#6.0001.0000000000"$6-P:L:O:},,,6-O:,'@#46.=:A%,467@<@,.7@,( 6.=:,(67@<@%B:,,.!}$-@@ 67<,.>:@&@:7,,,   $DATE REFORMAT6.7@<@,(O}"@e/67@,.7@<@,O67@,.7@<@,2O"@i/67@,.7@<@,O67}@,.7@<@,< 6. $xSTRING STUFF} 6. ( $B:,"$-@B:,6}-@:7,,'!@* A#'6-&@267,.>:,   $$$6.7$%@<+%@,$,OO67$%@}<$%@,.7$+%@,%@<$+%@,%@,SS67$%@<$++&@,%@,,.7$+%@,%@}<$+%@,,$$67$%@<$+%@,,. A@  STEP SIX WRITE I## FILE  , 6.,67B}:,&@?@A@BCDEFGHIJ"}KLMNOPQMAX ENREG. =2LONG. FICH.=81NOM FICH.=ADRESSE"}SET UP DIM ARRAYS+6-@ B+AR@ >:A%, En cours.. @ A("})9 Bq B)-@@"9  Imprime ...*2-@!6.2-@8+% 1"}!A'%6-&A(,67%@,.>:,-   3. / B B0$Z_36-@6-@"}'6-36-@pdDIM STATEMENTSi00;$@%@,;@@,;@ ,nH6-@H;@,9@"},9@,;@@,;@@,sRR;@p,;@p,9@,9@,9@,;@@,;@@,v%"}%;@@,;@@,;,9,x B(A'} B A //@@D1:ADRESSE"}.SCR:@%68@,-@:68@,-@-@@@@"}@ 68,-68%@,-8,%%%68%@,-8,%@%&&68,-P:'@@,!!68,"}-&@&@@$8, -@@$$678,<8%@,&@,. @h6-"}6-|* 6. 67@@,.*67@,.$ 6. 67,.$67@,."A@X "} A@#BU! A,@X@@D1:ADRESSE.GLB-@" A3@"} 6-A:,6-8%@,&8,""8,&@B$B#$$678,<8%@,&@,. A5"}''678,<8%@,&@,.0X  A6-@:@:@@D1:ADRES"}SE.IDX@67,. 6-% A`56- A56-A:7$@%@,, B* 6"}..67@@,.*67@,.$@ B` Be5 +6-@+AR@"}5 B >:A%,'-@@'  Program ecrit-@@ par -@@ j"}ulien!-@@! adresse :-@@:( Vous avez les options suivantes:>-@@ > $Cre"}er un fichier(1 fois seulement).F>-@@>($Saisie les donnees ................E>-@@>($Cons"}PZ[\\RPPCWDERERDISSNPOSPFFFFTYPEPRPCPRTLABELGLBCIDXCBLANKOUTFILERNIITIINDEXBUNMD }