IMD 1.18: 10/01/2016 17:18:30     TO&O_?XX3ņ4$XX:5ʀ?%'&?%4?5' ?4@Pm'?5@J*`4'&*%   '4 j&5 ʌ&&2cn &/+?094O?&?'z+ 'O?O? 2b9? (c) SM G3FLEX02SYS SPRINTSYS  SERRORSSYS &RPSERIESYSSPPARALSYSSSSPRINTSYSSCOPYCMD  RBACKUPCMD  SCATCMD  RLISTCMD  SBCUL)J(JJJCARACDURUT9$0000¤ $0 _ ~9'0 9 = OUINON=libres=Catalogue du lecteur Disque:  #JanFevMarAvrMaiJunJulAouSepOctNovDecO SBASICCMD VBUILDCMD   RLINKCMD   RCASSDAT  TCASSBAS TCASSBAC TPCMD   RSTARTUPTXT  TDATECMDUASSBACTASS T'   ;: I`Nf+++Comment ?Adresse d'execution ?Non trouveErreur disque #Disques non pretsGETMON;'d 999~W~g~Ͳ~ ~ ~~~~7~2~n~~Π~~~,~ѓ ~6~Y~{5 oZ&~ '0 4 5 $ o 9}' 4$ o&"''մ %&}&#_5$9  # ZXέ $ m5$9ن8vA֟i,֙ڇoՐݽ &9턮oo9' 99 & @%P$09 7 & 40~r~D5CE |(~͹(E nC:9}&n@o~gERRORSSYS~ ʵ99+0 ORUƹ& 0&0_+ˁnΠΠ@'~g@'  &'獹5oo ʆK4%.&.%(& ?'l##h?m'am*} '   ?9%C9"?m*8$/.9K+%4K5I% 0Z$-'_&]&9]'o0Z ? '0?940 &1 "=1 0Z&5BINTXTCMDBASSYSBA~~9~|~~o~"~~h~~N~Q~T(篟14L[&| }(&&Nn2ʁ '@ͼ| ,%̟D' ';&nR n~g UR#"!&$9D_# &m&m' m&0  &9&9 O_/0Z&9 $0Z&9 4$&0Z&9 T$y#~ "l":@\&9 &Uʀŀ& #:@9 9;+<'jս; 1%"' & #% ; M'9ڱ% '~٠9 "' l":@9$9 @l ~!~~G~Dž~Ǖ~ ;1}4&|4m'1;4 }')4@5oo"o;}')? ﭟ? }0'? |0909}&'&}' '4 <5 &?1 Ԇ + '"m'j~G0@&z~ '40~Ǿ &@gC~&nO4A_| 7 #_#m&Z*} $07aA_|2b97&9Date courante : ???JanvierFevrierMarsAvrilMaiJuinJuilletAoutSeptembreOctobreNovembreDecembre 19 >KSCRDATBACDIRPRTOUT%"&%4xyZ&5\ ߽$99G*** +99%܁9"҄4XIXIXI5ѐ\ ='&3. "=M'Ѝ ==Z& @'&2b& 9 &9r~5%m&94$2{oboc %P ޟ14 '1"&2boc'2e50'm7 N'e΀ĭ &\ 'P &n}!&'Զ' "} '4'Z&5| g c4'OYZ&594 }#&}&' }/'}$' Y  54Q ԿG& G!&l '4"5$ŀ'  9% %&945$9 0@9O9&ŀ&$\'ց \'  99Ǿ % & 5'7'2@& 45$9 9 ;+= &\;& $9]'' 94&  5%4 ; G+? ~r6809 FLEX DISK OPERATING SYSTEM COPYRIGHT (C) 1980 BY TECHNICAL SYSTEMS CONSULTANTS, INC. WEST LAFAYETTE, IN 47906 ˈ0>> FLEX GOUPIL <<< Version 3.02 du 3 mars 83@STARTUPTXTP0'-oec%'cb4'7'g757bld9mg&9.9@%P%9h`g_9 ޳ d'Zd';Z&b%9b9md9le md' bjd&97 7~7|L O_9L'~"ѓ'n\~4@,5%@ߎ@T%;9 '&n940 'c-&'XQ@m' &.8 n@ & JGGLo !'}n? o_|5̍n Π@ J?="&ɽ$&G9$o~}!& ") D|)4' )$Π|)54}"&}$' }&& 59JM섎̬ 0zM& =K%|K 4K&}J& }' # |J50 DDDD09#~70%9#A% Z#a%z#994 '   o;59 &"&4!5%}$  "9 O_E B '&"'Do?%*%&%" ~܂ @֟$~9 =:m9&9 m&l&lm' C%ݾ  %Ҿ @45& oooo 1?O l!&l _@0Z&CODE DE FONCTION FMS ILLEGAL LE FICHIER REQUIS EST DEJA UTILISE LE FICHIER SPECIFIE EXISTE DEJA LE FICHIER SPECIFIE N'A PAS ETE TROUVE  9G99 '?E~!?F& 0&?D'&9  %99ܘ% i%G$9ن%( %# ن% & %  9 95ؒ%*'$ $0Z&M% &օ`& U9 9 550z& & = 0Z& 9νؒ%& 99 i 9@֟$@&ŀ'    9%^  B9_4 4 A5@_"9 "& %0 }&D"/"1450Z&9 1"450Z&~֟ #}&1' "#7 #*ݽ%6#ݭ I8$'9 ' *ERREUR CATALOGUE SYSTEME - RECHARGEZ LE SYSTEME PLUS D'ESPACE DISQUE POUR LE CATALOGUE TOUT L'ESPACE DISQUE A ETE UTILISE FIN DE FICHIER RENCONTREE EN LECTURE  $ M~ ~5?9~9~A~A~A~I~4?9?'4'?59? ?9?99%Z &R`&Rׇ& '3  %, '%  ۧ%G9  9\<#L&7'L793%0 :&'9@8:5798 %ܡ ::51!@0Z&֟$~ %F O_ gY&993& /2149ׇ&% ]1!Z&9 % "9ׇ% ]1!Z&֟$~ /A%v$~ 9%=ؒ%8&ّ; }' &)%*@v'4 5% Z& _"9 4 59 m*ݽ$9%7ERREUR DE LECTURE SUR DISQUE ERREUR D'ECRITURE SUR DISQUE FICHIER OU DISQUE PROTEGE EN ECRITURE FICHIER PROTEGE - FICHIER NON EFFACE uӸӰӳӨӣӔxrpps??9?94}'?& 5 ӻ? ? 9? ~ ? 9?M9 ?L9~n4կj䊀nnn;<_o@0Z& 9 ' *~ݚ ڱ%F$o&9 'jݟ%O_m't  $,04LT'5'L 4 @E%>55 ev4J %<#"9 ol/ % r%U֟$~Ͼ 24G% oo;O"9(%oD%z"9 & ֟%9% #9%1' o~ &ۧ % m'   BLOC DE CONTROLE DE FICHIER ILLEGAL ADRESSE DISQUE ILLEGALE NUMERO D'UNITE DISQUE ILLEGAL UNITE DISQUE NON PRETE MAUVAIS-FICHIER.NE PEUT ETRE CHARGE RESUME ABSENT DU SOUS-PROGRAMME ERROR FACTEUR D'ECHELLE NON MODIFIABLE  FIN DE LIGNE ILLEGALE NUMERO DE LIGNE ILLEGAL (0) PARENTHESES NON BALANCEES REFERENCE ILLEGALE A UNE FONCTION  FICHIER DEJA OUVERT LE FICHIER DOIT ETRE OUVERT EN "NEW" OU "OLD" LE FICHIER N'A PAS ETE OUVERT ERREUR D'ETAT FICHIER - TYPE DE DONNEES NE CORRESPONDANT PAS HORS DONNEE DANS "READ" MAUVAIS ARGUMENT DANS UNE INSTRUCTION "ON" LE FICHIER EST PROTEGE - ACCES REFUSE VIOLATION DES ATTRIBUTS D'ACCES A UN FICHIER POINTEUR D'ACCES DIRECT ERRONE FMS INACTIF - RECHARGEZ LE SYSTEME - ERREUR DE TYPE DANS UN "PRINT USING" FORMAT ILLEGAL DANS UN "PRINT USING" -  DOUBLE GUILLEMET MANQUANT DANS UNE CONSTANTE CHAINE "THEN" MANQUANT DANS UNE INSTRUCTION "IF" - LIGNE NON TROUVEE  TAILLE TROP GRANDE DANS FIELD (>252) UN FICHIER SEQUENTIEL NE PEUT ETRE ETENDU NUMERO D'ENREGISTREMENT ILLEGAL (0)  - - - - SPECIFICATION FICHIER ILLEGALE ERREUR SYSTEME EN FERMETURE FICHIER DEBORDEMENT TABLE D'ALLOCATION - DISQUE TROP SEGMENTE NUMERO D'ENREGISTREMENT INEXISTANT EXPRESSION ILLEGALE ARGUMENT <0 OU >255 ARGUMENT >32767 TYPE DE VARIABLE ILLEGAL  RETURN SANS "CALL" OU SANS "GOSUB" ERREUR "FOR.NEXT" NE PEUT CONTINUER SOURCE ABSENT  - INSTRUCTION NON RECONNUE CARACTERE ILLEGAL DANS LA LIGNE ERREUR DE SYNTAXE  - - - ERREUR DE CANAL ERREUR NUMERO D'ENREGISTREMENT - FICHIER ENDOMMAGE ERREUR DE SYNTAXE COMMANDE - REDONNEZ LA COMMANDE COMMANDE NON AUTORISEE PENDANT L'IMPRESSION CONFIGURATION HARDWARE INSUFFISANTE    REFERENCE A UN TABLEAU HORS DIMENSION REFERENCE A UN TABLEAU NON DIMENSIONNE MAUVAIS ARGUMENT DANS UNE INSTRUCTION SWAP DEBORDEMENT MEMOIRE ! - - - -  ARGUMENT NEGATIF OU NUL POUR "LOG" ERREUR DE CONVERSION EN ENTIER DANS "INPUT" RACINE CARREE IMAGINAIRE ERREUR DE CONVERSION (NOMBRE TROP GRAND) - MAUVAISE LONGUEUR DE CHAINE SPECIFIEE REFERENCE MULTIPLE A UN TABLEAU VIRTUEL LIBERATION PAR CLEAR D'UN TABLEAU VIRTUEL NON FERME DEBORDEMENT TABLEAU DEBORDEMENT MEMOIRE PROGRAMME AVEC OVERLAY CHAINE TROP LONGUE - " NUMERO DE PORT IMPOSSIBLE - - -  DEBORDEMENT DANS UNE OPERATION ENTIERE NUMERO DE COULEUR ERRONE - - POSITION CURSEUR IMPOSSIBLE - - EXPRESSION TROP COMPLEXE CHAINE VIDE DANS "EXECUTE" CHAINE TROP LONGUE DANS "EXECUTE" - REDIMENSIONNEMENT D'UN TABLEAU # - - - ERREUR NON RECUPERABLE  - LIGNE VIDE DANS EDIT NO DE LIGNE ABSENT DANS EDIT - DEBORDEMENT VIRGULE FLOTTANTE ARGUMENT TROP GRAND DIVISION PAR ZERO REEL TROP GRAND POUR UNE CONVERSION EN ENTIER - FONCTION USR NON DEFINIE APPEL USR NON DEFINI -    $ecifie le facteur d'entrelacement utilise pour la recopie d'un disque dur (par defaut, I=10). }&Y?S@?'}AB PW'Q+' -'<& B5'Z i'v'p&JB'# A =&2%X]'QP ?&f @'& 0 7~N'90 Ծ&I'0 }' @&' & 9''~·~9 !_O&A_O&׎ &$~t!%9".' 4'' #Version 2.1 du 14 Decembre 1982o0&V@+,`#   ė%[& @o @-%1ė%C& o -%@m'Dm&~$> ?  $~@ }'ʽ$ | Z0 Version 2.3 JMV Inf./SMT du 20 Septembre 1983 4!?5 4O?'5}.+~~~ā$$`' 'M9s40'? 585 /94j'z''%A$D0' & 5959?904'? 594A'>B'e tA&59B&  $??G%?G9 4O?'5?9=@& f>&=%}=+  &1ȐC >+"=4+9\>$<'˶@0&Ȏ&$>*P#4@ÄO>%>1Ä'&L PZ&Ä>lZ&5@+0VO_TXZ AjH%R$M]'J9' ','5_]9 Copie OK. ---- Co֏pie terminee ---- Vers unite No Fichier inconnu! Fichier deja existant Original a effacer (O/N) ?  Etes-vous sur ? STARTUPTXT m&ަC'׾!$.' Ё9# o0Z&.' -% |'% 0Z* oC&{$&cm'e+m+ D}&,DA=='0=AM'Šġ&0A @ >%ļ C &~~$00o_9 C& ^59H& ~59K& ́a& @Db59e& }59u&y|{{59e&h{jj59c&W\YY59'], - . / 4x8/< = > (R(B!?9 4O?'5?9 'ı9_O9 0 + & !? p     --- Unites disques identiques.-- Parametre invalide.-- Secteur SIR illisible.-- Formats disques differents.-- Nombre de piNstes du disque cible insuffisant.-- Format  Version 3.0 du 8 Septembre 1983Syntaxe: BACKUP { +options} ou et sont les numeros des unites source et destination. Options: V annule la verificaĜtion de l'ecriture. I= sp .D. o_~9& 0Z&9 D00Z&9$@&~ˍ ~ ~m &@ 4 N 5 @&;m*~8'~D;@4455@m'l99qe '?E~PP!?F& 0&e?D'&톾qe9#9 #&@%P$9_ 4O?'5}&ہ&s9?9   disque inconnu.-- Memoire insuffisante.Disque cible dans le lecteur 0 ? Etes-vous sur ? -- Numero d'unite invalide.Commande interdite pendant l'imp?ression.-- Backup avorte.-- Facteur d'entrelacement illegal.57.<;?599999 4sH ~~~ ? ?| 9} '  Version 3.0 du 28 Avril 1983 ľٿ$@-$@~@ 3d'J!%H%-& H%ѿd'$+''$ '%_N& P& } ' o6 @'? 9"%@'  7Yk-@WFD@AC;9?O9~NH"{ !\.#$*,^-~~~D~D '4@j5Oʗ]+C ͎H |Lҿ J. LH"Fa _~Hv Oʗ͎ٗ ; &@'?~}'34} ' 6& | ³5}'490#5 &}'| $~" ''&}'@'s?u '9(|">_'' '#''秀\ š]'Z0 چ \(&"9$$>H_  teur Disque:  #JanFevMarAvrMaiJunJulAouSepOctNovDecO 'K'F01O_큧% Z&$.&1H% Z&$?NOS9@~&6lN&lMm+')mK�1'&Z&L1H'&Z&9&9 '9OKL ation du volume.-- Backup termine.-- Disque non pret. 1#'!'@? j_&254v3 4 1#'!'@@ j_&25}A'B 1#'Ȁ'ˆj_'ܦ椮!' @ ~@~ Z&94Ä'0J&5.zA& A|?-XR]4&X@ZRs]&Z=G?ľL0Î6П O& 'Ӂ?&~+&~䔆2~ &$BL0 N|&]  r&4?5Hn N ~-n'92b~́}'~ a''~FľH ͽA'&~'~_ ]'5Z& 9,'51_ 9 ~$ ~-_ ~9&9Titre? .00= Page ' .' !%9#0&0&lK&l9'$ -'_'9O mK' '2&koMoN4' mK'9mL&m' C*3l +m' &# $B%ClLO99@?~" Version 3.0 du 6 Decembre 198223+% $~O_$(&_&U0vCO40_92b0wD0qO9$09$$0090}_099O_~$$DS.JCU97#_N 'g2bo\RÄ:愾T}]& 'N Lz\&؎ę}]'Ķ R\>&_LR=" T0V%T9 õõõ 64Q                   1$+~%'1!1!* &\~l("U1!&'HnHn4뇮&t9t'覤}' "${%A'1! &L~1&~25~ ON~ -E.dl"ROE[$ #LK@!!Yd#^.Q|?(?TAcB)BoE $ 1NKILLRENAMEGETPUTFIELDLSETRSETEXECDPOKESUBLABELRECORDOLDNEWASUSINGERRORLINETHENELSETOSTEPPOINTABSATNCOSEXPINTLOGRNDSGNSINSQRTANPOSPEEKUSRFREDPEEKPDLPTRSPCTABXPENYPENPIERRERLASCLENVALHEXINSTRCVT$  ~ 94& 95~ Py F' y' _ _& y 06Ё$& %& 06N(&օ'@օ*ܫ턖 9 P~ P0N֦&,5O& 516  9T PZ&~ 6膢 9T+ ' L+&~ P ~ P 000'禀 'Z& 4 $3_50 $w˾H 'ˎ@P~ ^X PRET  4.ONm O' Z'6T++%""L+ݫ'N '}& &9763% ėM*d_c׉LMeM*9ͽGd~~~>B~9>B~ϖ&́}'J~dJK~oߎC&9~ξJ&~ +1$́''J~O [] ~&9~ ~F+ H ]9Oϗ|}~]& ZXT'V &~o~-?~ B5W$Dd ddd|BPaceH ROgٞ'@&oo00* |&oo $J_J݆%9P~ @"m' j+J9''" H ' "9&}9ܫH Y~ ̗y}&%CVT$FDATE$CHR$LEFT$RIGHT$MID$STR$INCH$CVT%$CVTF$RTRIM$LTRM$LTRIM$RTRM$STRING$NOTANDOR**<=>=<><>=^k/l*m+n-o ~,r;s(t)u#v?:{\| }GRTEXTCOLORHGRPLAYSETCOLORSETBLINKPLOTPORTCLEARTRONTROFFCURSORčDELETEOVERL 4N A &05 9 30N A '&N0 9J P 9~ '0L P P'0 9y&M94@ޭyT7'2' 00m* 000&7 T&m* m*0 5@O95@M9'yP 0 0A05瀜 &ooy'  %') ,c_g\ߞ' 4eߎc>~'}g&|ga'͎`~94~ ERREUR  A LA LIGNE N& N0%9#A% Z# a%z#_ oO94@ީ+7 '`#z" '覀*& _15@]9 ANO' Z'~ e~ t,'> ':"&~ ف''0 TVZXe~ STOPrs~ ́}'M*!ܫ/&۟4@ -5@' 6П N'_Ĺ~459 Z~́r'M9L0+'9.' *& *L9L96~ T+9L'0Lm'}m&9&y & oo 柒ܒ#my&~OߞܒOm'Ӓݔݐ*~ӻ|&#y&oo~P|$ݻ y'4@޻6&5@y&}m'#ܫ큖y&ܻݔ4@7&5@' 'Ӑ |&]9ӻݻ y&~4@7&5@~~oAYLOADBLOADLOCALCLRGMOVEDASHSYMBOLARCFILLDRAWMASKWINDOWPENSAVEEXITFLEXLISTNEWRUNCONTEDITPLISTBREAKONBRONBREAKOFFBROFF$)+~ 'ȁt&k*)& &!Sğ~%ooĦr'݁u'A~$W''vO=Ȏ 'ޭ5Z&ޒ91"1!+~'"M91!1!9~4'L*~ T{4{2%5{5]&У$RF9GOTOGOSUBRESUMEDIGITSREMLETPRINTCćINPUTEXECUTESWAPFORPOKELPRINTNEXTREADRETURNIFDIMONSETENDSTOPDATARESTORECALLOPENCLOSECHAI  r&~ P.&4 O5&~ e%'m& '~&! A &N ֽ'  9L~ P~~ 9d~ 3 P +t& u& *~ '٧|m96П r& =0E r'O r&Y''(& 2,&B'%'" 0'1'M''&~  H '.%"ݫ։4@5@& #9&94 43_50}"M'Ei"T4c# &&Em*?&+ 5'&~ 5M+!' &&= 怆 Z& ԅ &$1"+ '$ '%~ & &&&0ğ#9'4' '%55ym~R~ 2+''~ 'T&U>pTF%|a~oܻ 'L 09 'w' o? L9"#~$f ( 'w'đ &9#0 '~ ' 1$   )Ƚ%ooĦr'u'~ 'ʞy~v'O=Ȗv~4~ ']~ 5&]**螂!&ȎGy't&̽*b&'G&+'T뇽0 c~ 9뇽16Ȟ턖!45'0K'r&`~u&!k46y4@'0&~~ '<~ &L&&WĦ! &O5'&~56'~o&2 4=~ y'+044+e50 y&5y5 y&!ݒA '3&-'0 ߎ2'4 ̅s&B &æ~&1́2&'1!x&F wZ ~9T'GĽ́0' &D1!~ʁ'~;~+1'''${" &&1!1! ! ؖ' :~ ~d(' w'?"#(\}'9 O\}חؽ哞׿wؽ́-&4ʷ$L&~ ') =o銾0'ܽ+{$R1'Nr o1!ѷ#?2 ս銍#%?) ڽ&9銍 銍!?& ~ '?-~o !"9?'~o459?(~o?%~o1!逽;v?/TU~'\+O "?0+-~o;銽$L &~)(=&޽́r'  ''0 &9&9~t}]'@~ 9AW~ @;IM+4B5L+ݜ5M'&Ӻ]]&M+45L+ݚ#Ľ b&~D|b4Ȁ:5m4ߧj&5_M+45Lݫ ց&~445ӂ2yM+ y 54YʎG''444 y0 a44y\+)4~o&9t&ʁm& ʁu&~~ 'T~ 4_~ 5&]+y*b&ݮ!44!oo4 y+ʍr&1! y4 *~oa~o+'~`&!4 5ǁr&1! ݟ'%&''425'O"X4 VT4́3& 1! w ~ '95̞ZX4VT4ܾ4&~愮4~oT2x́3&1! ɎT ½$L& &90~5H~ ̗x!1#&Vb' 2 & Hx&HhTjVlXnZ-0-0h*$ " fdݾ~o2 >m~ h)mh* - 'js&~ &\&\G&~H&~$L', &Y'2% 2-F &˽G' 뇽~o# S& $ "1!~!O񗚗'L 4&ݚ'ݜ0 05'Z(~!U4# ʽ$)%|'U9~$  #% 1!#銽$銽%?5(&~o;#́r&2ʽ$W''Ͻ.˽16T#r&1!*%'?3~o?4 =L׊;銽$L &~)%=#'́r&1!ѷ'?6#%~o" %$   ?&~oo~ 16T'22ݎܵ턞&5 *. &'ӂ &&' 'L 000Ā: ΁''}'~'"&&0 ~H&90+.~%'00 ''(&0+ ~'%0 턞 3B@f|*T@S&7 @P~1!뇞oo99`~ m&&'샽 +ᮄ'~뇮00㞀0& ̆a~ U"4銽U'P"G5H Z#H~o~~ 'K *T+0銽BIӀݒ%ݢB~oz ^U~ ̽$L &~ ')M&]c&~oކ 6 # . ~ 'X~ ҽ+C/*`&嗨!&%逎ܽ1!u'r&Tܽvl+4T+4 '~C@T0T0܎ܽ>e& &U TU T!U TT4=5큟o&55턞ܒór&1!~!!~o1! &1"9& &&1&1!1!*1191 LZ*9}g'<+%{$1'&(d& '0 gd~9& '!g ~ 'B~ ʁ&+*&"!aȾa' ~oā{%a}g'~ ~ '́.'Ľ́"44U'*Zʁ'@'Z+ ȁr' 5Z'&k 2 4~ ׋y '@'4! '& p~ U"?8UT~0Bk~o}* &&&~o~n~Dvx́i&1!~$L֌' wD wx'0%$05Ȗ'5ZXVT9516 ȅ&'ҍ '~o '~D)&& ' '=ܒ5ޞ'+逽*(`&(%ܞ0sĮTv T* 0x5~'\~'\v'~ 'ʽU' " ~? ?! ?" ?# ?$~on~ $L '!)'!=ގ?@! ~ '́2& 1!<?,~o2+2&1!#%?+ ?* ڽT4銽7T5!9́r'?1~ПݚLݜ Nܫ' 4 5 ~om'O=&k46H444H1mZ&{?mOH"~- 7453@f54 @P5 L'ğ&~o~_&6П O& N"& @~P~ @&     $!Gן׿y堞׿wy׽**'&"D"_ '\ O*~oL~ Oڽ́/'׿y堞"g׿wy׽*!`' !' &!1$]'LZ&1! H~ '֍&"4DG5&x#&^  Gן#&I *+{$ r's&1!~"p~o4  1 Y X W VYI*U['u.Ā4T r&9[9r+ ['e~ I'~.0L' c'/t_[c[r.pd*~7O[ S0Lc'3M'/O[cˁr[jCGTUVWXYZd.pd**~7ކg~ 4TdVfXhZj5TUVWXYZ9ZbZXa`XV_^/kVT]\9O[4r[kd .-&&#jz Z& Z' j0m& '&+&&&'s}" '9G~ 'v_0m&\}+&#v&'05,[2-F~'~-F~ 'LZ&9Z~$'K-%0F'<9"60%20Z& +0;88>]1!I+H(n~ )I)N))))v)))EBB͎eT4$Wv5ݒ~&IML~ '4 %&#  &5 9?  'ھR'#R0#+Ħ+~%'00&0P9~ P'~"p PH R*&!& R~o~ '~F6Ё '56Ё ',&0'P9~ 6Ё '"''' ','0 0 ' ' # 2[d4` k'%l5`3_4`l=?4 $l'\5 & 5`[d5r[9O/49kd\%*iapg`_ne^]ld\%dlengpi Z Y X W V U T j i h g f e d k"' iaig`_ge^]0/ed\d dTUVWXYZ9rca_]Mt\TuTsT[9[ /9"'0%#F'j,M0F&򦄁 &T焞 F'* &>-': &0 ' &#&0 -'$&& %L-ĎF~.'0 9T+[T+1['''S&ST&MV&GX&AZ49&1O9['9섓T&!V&X&Z49* ,+U TZ&UU ܟ0x5 O_m'0 T+9S~ )۟F' ' &* 5~)4*c5'd%i#941!044*c'$5ݎ5~(@*'n& 1!*' O2e9~$+"T#`"~!9逽* u'~% Ӆ'с%;'~%| )&5TܞVޞXZ'5&>& 9-5 Q'4'ȫ&- =J&- 5J& 5➒. &J&.5 J&>B J&>Q J&>p >ww',Ɩw& ZXVT턖wħܒ큟9d~ ČG&~$0Ė&'&ݒVXZܒ'ĮT90 &O֢Z9,1銞T9,1ȖUT~o۽ȖU ƎGןO֗۷ IG9ۍ&~''c& 1! 'D)S 9'b&1!'*O)S ''妤d%݁i"'~*<1!45'(/ I~ %'$ļo& 1!'' n&1!'O' ݍ&';m& 1!'Ć 3O/Lru~.nTooooo'oM*CS)jXI*m*9T['%$@7/MTu1kTN'u*7ކ[~.nT* 0[' T9T9Toooooooo9T+['%P'*h~ ~1T'K%AP'G+M*P N&m' ]&'%CS ;NDVfff 09O90Lc'tȀtsu[&9T~.Ts~.~90L'c'['d$ \DV^_`-ab d&\u*$ A d c[TDVVWXYZ d&Tu+/W$ [FVVWXYZTtu~.nICGYbaYW`_WU^]UT\Ts$TUVWXYZd'7ޖtudT+.UVWXYZ'/U [& rd Z -!"1$J*11OH"'*0oo~~'%ݒ0Ğ& ݟ & ~+0' |\&~+֎'0m&'~+νL |l'q*N&'| | Z&(Z&]&Q||0 ]&Ajz~+C&+2'|~+\' *Ė&Xww#T057Į',O9&ݒVXZܒT4'w05Įw9H~ 4'ȅ&-0 ?54dXX(P:5# $ & % " ':~'(v~'TU~'\F"(R&~]5*~H41!%|'' I5(5~'\~$1<;:091 '' l&1! '' ܍'k&1! '' 9~$+N4$~%a%<& 1!$'~(x~$o&1!v:%'ˆ~' n' t')~'%81!1! T"~('~* v %w&&~%ܦt&ʽ$W&~%u& ʗ997~ 1!4 '" ( 15ČG'4v0Ħ+ ~%'1!1!59~'&/     4ff$N M&9*M * && ~1.DV M&9TT9T+ 1[' L FT JV L LO JOYIOYIOYI4O LO5 K JOYI4 M K L J5 L1T[55- [95#_5!~4}0 57ގFROLN~L*['Y' TTTM*PN= M A$}4 8>+1Iڢ!h€[''D9D.~:9~9܎40w05T)T9>/~-T)T9>/~-e~ \u&9H'6>/~.VWU=X]T=WW\U=WW$ VT\=V&X+TO9u* TCST9>mTs* CUSTsuM*CS\9\u g~ \'(O >-m'l77͎,.5-[O)(&[9f~ ;_A߈ Å+ڨ1!Cz8;)\8;)\T(T55-ǽ16TU (*CS()0(TT9['&%";7 [ nk(5-xŬbIgOL}.'^9:&9M655-ǽ7OTZ&L.n<-~0'M~61OrO6u6%7L.& L O07)E'e&@06M6Ё9"2L4R7R O7TUVWX 5+PN6T42{T5[#. N -0$45=.5 N 5TT}.2+~3=LT* J+wT-5#['NLN~3T*J+FN..P_M'*J 4+!' 5#J&T* T-5#*&5#~3O}L|~ 3?Ė[&~2T*T-5#N{}|+| B_ \$\ U TYI (&TUDVd~>T- .U99O9Ľ@-%9~ ~3~3*'$L 'ކ 94~ 4@&&5' & '9~&9 % #~  &]+ 06п䨿KB(~^++'  ?:,.ˎ5-ǎ4. <:,.ˎ5-ǖ)' ['TT9Iڢ!hIڢ!h‚Mb3#g%:,"/ITBT9!['+T*T7%K9Ƅ[4.;s['[74-ǽ77͎,.˖TT5- <['S'N* CS(9! (T()%. ()''79_ī77͎4.˽7()$,.˽7()&954TVXZ5i~ | IT+['% J([+ ([+7733,19++-033-ǽ77͎,ZZ-<.74.˽7:`:,. 9Y&[Z6O($U M*@7͗[5L[LMƸ[.nM*@ [*% O9 # '4 5 $H'6HH550 M*~.~.ˆe~ _ % \ 000%:$99 '09_+'-&S09u6$~75#TUVWX&Y+Z u*CS7T9j~ O/H%0Z L%0 L'l~ 4 64.N/M|+ M* *_ {N.@.5#M'8_5#L&}/&&!N'_5#~L|*{JTT['[TDVVWXYZ [&T}' 5,z&.5#44Ľ5,z*5}}.)+$.FL'R& \:(R$RR0 R40 Cā*'4~ ^1!$L 'ކ ́,&1!U #~庎FH'S0m&?@=_?@:_oZ&ooo-%׆3o^~o)~ }&@-%3&چ;0Ŀ_"~o˽́v&; ̽́v&. ̽ʽUv  @ǎ<[`"[.+ 8[;s['[74.=3Ď5-ǽ77͎,-<[`"[.74.˽7=:8-ǎ,.˽8-ǎ,.ˎ4.˽-)XXX=0- +' TTXE~+{~a{m}zۯd~7&mc8+ }=]^ =:#Ď4.˦'l-+XX:0-7O(*CT0:.ˎ4- I9$bȁ @]͂7TUk1r|Kܣ< ~ϙe`B4P9,-ǽ789<.5Z' 48- 9;k.˽7;:sTT4-ǽ74.˽7;C:,.ˎ;c-ǎ4 :YaW_U]T\O_TVXZ b=Y a=XX `=WW _=VV ^=UU ]=TT \=TT9X0Z2T,V.9X8Z:T4V69X@ZBT98X:Z47ğT6V9 Z&) Y&% X&! W& V& U&TL* [Ā4T9k~ T+['+[78u]'8P- 7TTTT0F' .' %]'?0}}/F '|~ 0F& 0 NL&R' 愧R&5#R}&)00 '.&4 0怟R '-& 05#L'E;NJ+M*@-5#6&"}& ' *- }90R瀟R 9O7:~5# Hz     D#(~ + r' {$ 1'~ '1!9׍9+~ '~@H'F0'9' '~~&*~ ׆&o?9~ מ׆o?'&׆ &ڦ$ L & #~w& " 45'm&m'45 ڽ& l?9, ~ &~w& 'm&m' Q&<*4%4vx&'&&&'&'*50椧 *&~oO\~   %|T+&&!U&  "̽؞׿w摗U~P~̽C&O ~ '逽$WT4F 4銽* 40銽* v(55/0T'd'g'L'T N'~ '9_C& (&N09F4oZ&*_9)Ƅv )ƀvT'Z& oZ&v&5v~B)%| %|'4$TZ&5$O~*ǁv& 嫖U'9~ 'O=55o'lҞܒ& ' T́i& KZ&~tצ+ ?׍/׆ ho9~t ~ T@'?&T@* 9401D0DZ&5 'B&9~/~ ݖm'.'+8mD&8 h_S'mG' \0 .,~ =4D4Fק7555: h ׆ H* 4$W5T+9O_'T$0 Tݢݢ}9:94`'"'1?&1$ 50' '4'9''O 99&'0 0怟9_9%|''2% 2-֣'4@FZ&5@֣O~* ֞2 E׽ 44׽55$)$W'0FÖU'\ "3H0'oo''m'P@뇽́r&1! ~o~~庮'(O뇞(O뇞(oo9*_ 4_ 45@ &~o~t!@-~3m*o9@fPr&ʽ!q-@ & ~ R';04&T,.0''%'4',.0( _TUoŏ~'\_T\ HH" SBASIC GRAPHIQUE V2.33 DU 01.09.83 ****** COPYRIGHT SIROS 1982 ****** } 'Hu@-%~4H&5O_H&Z&~ O1!U';T4% T T')FvX:܀턞'&m'C@m' ~o^,0~ T ֞VWV>ܞT0Ԟ'aD:Оe=:пi '9ԟT?m'lkii '9m&Ё& 95v~'\T ~ 't' 4ik4=5oo LhOj0@&׍~f&9~t́v&嫞'J&9m&m& ~~ '~废?צJ' J'&N 4G׆''&3 $0Z&&;lOj@;׽?9~t@p~@(~ ́v'~A嫞'AthD:Ѝ;4T&*ȆU턞U: I-J=:45- ~*ǽ6009JANFEVMARAVRMAIJUNJULAOUSEPOCTNOVDEC$L'H~ '&516T&U9J~ ' $L&օ&5~16' $L&'~0~5'$# &P~ ݢӒ턞 F '1TTU~01TT~0x16U' .FX:' ? і# ~~O_'&T~0xT+1 16T&$' 4`5`&T~0x[~ UH450nH LNEBC i%|UO~*Ǟoo~*tT'4)5'40>pT+Ah=4t'  S ~~B~i~%~no094@' 5& 94@˾ 49 5 5@: :' 45 ݍ4C5  $ $2~& &~C~:9& '=߁& _\m+~94D &m'Zm+]' P0DilZ&5@k~* ֽ%ٖ'Կnpir97nԟTpئ*~?ھrн?߆ ٽD Ƚ7͞צm&9B\B'~B6́r&ʽ*½KŽ ~o~ '|'"{́r& 1!EHĽ{"|~oI~ $)ӽ*K%4vx MЖUh%h" 5& 1!~A|-~ ~o~ 'T́,&ʽB% &➂TȞ/뇽́r94T=ܒT5&1! ''0' L9''~o B8ħ0' 9*B'֌&ݢ9~ '\~ ')ٞܢT+0B' ' J9$ݢ$&ӢN&Ӣ ܒܢ9Ӓ' ӢӒ&宄ݢ섞ܢ9?(Ľ@ƽ+{$1')&1!&0,-./AaAACaCAKcKCBeBEAeAECeCEHeHECiCIHiHICoCOAuAUCuCU4O 4Q 4S 4WL[5~0~1&9 4m'&54m'&55&090%940&59,'+\ ~3 R(B%,A%,L%,L1%) 630 A%((A%-100)/(L1%+2),(B%-1)/(L%+2))=1 640 IF INCH$(-1)=" " THEN STOP 650 NEXT B% 660 NEXT A% 670 REM 680 REM 690 REM ********** DESSINE LES BALLES ********** 700 REM 710 REM 720 FOR A%=0 TO BAL%:COLOR BAL%-A%:SYMBOL 10+10*A%,240,'"': ASC(INCH$(0))AND95):IF A$="O" THEN GOSUB 1740 340 REM 350 REM 360 REM ***** MENU No 2 ******** 370 REM 380 REM 390 COLOR 0:CLRG:COLOR 1 400 SYMBOL 10,155,"Largeur de la raquette 1,2 ou 3 " 410 SYMBOL 10,90,"Angle de la balle 1,2 ou 3 " 420 CALLIN(200, 10 REM 20 REM 30 REM ************************************** 40 REM ****** CASSE BRIQUE ****** 50 REM ** VERSION No 1 Du 18.02.84 ****** 60 REM ** MANUGUERRA Bruno ****** 70 REM ** 84000 AVIGNON ****** 80 REM ************************************** 9  Vm+9,ӆZ&~3~ NEXT A% 730 REM 740 REM 750 REM *********** DEBUT DE LA PARTIE ***** 760 REM 770 REM 780 COLOR 1:SYMBOL 80,245,"SCORE"+STR$(AA%(ANG%,ZZA%)) 790 A%=5:B%=RND(0)*6-3 800 PO%=100:X%=100:GOSUB 1360 810 COLOR F%:SYMBOL X%,A%-7,'"' 820 COLOR BA%:X%=X%+B%:A%=A 155,ZZA%):RAQ%=10*ZZA% 430 IF RAQ%=0 THEN RAQ%=20 440 IF RAQ%>30 OR RAQ%<10 THEN 420 450 CALLIN(185,90,ANG%) 460 IF ANG%=0 THEN ANG%=1 470 ANG%=5-ANG% 480 IF ANG%>4 OR ANG%<1 THEN 450 490 IF RAQ%=0 THEN ANG%=2 500 REM 510 REM 520 REM 530 REM **** DESSI 0 REM 100 ZA%=6 110 RAQ%=15:BAL%=7:RE%=238 120 REM 130 REM 140 REM *** OUVERTURE DU FICHIER ****** 150 REM 160 REM 170 REM 180 OPEN"0.CASS"AS 1:DIM#1,AA%(4,4) 190 DIM A%(21,21) 200 REM 210 REM 220 REM **** MENU No 1 ******* 230 REM 240 REM 250 COLOR " Version 2.0 du 21 Octobre 1982@-%\3')&Hz&Cz&;@ &,$ Ύo#'4@5& 'o ?~09_O9 =Effacement du fichier existant (O/N) ? Confirmez-vous ?       %+FA% 830 IF A% >240 THEN FA%=-FA%:A%=A%+FA% 840 IF A%+FA%<105 THEN 870 850 A0%=(A%-100)/(L1%+2):A1%=(X%-1)/(L%+2) 860 IF A%(A0%,A1%)=1 THEN GOSUB 930 870 SYMBOL X%,A%-7,'"' 880 IFA%<10 THENIFX%>=PO%-10 ANDX%<=PO%+RAQ%+5 THENGOSUB1270ELSE GOSUB1340 89  0:SYMBOL A%,B%,CHR$(127):C%=VAL(B$):RETURN 2020 COLOR 0:SYMBOL A%,B%,CHR$(127):COLOR 1 2030 SYMBOL A%,B%,A$:A%=A%+7 2040 B$=B$+A$ 2050 GOTO 1990 2060 IF B$="" THEN 2000 2070 COLOR0:SYMBOL A%,B%,CHR$(127):A%=A%-7 2080 SYMBOL A%,B%,RIGHT$(B$,1):COLOR 1  0,"au-dessu, chaque brique" 1800 SYMBOL 40,155,"va vous rapportez un nombre" 1810 SYMBOL 40,140,"de point variant de 30 a 90" 1820 SYMBOL 40,125,"suivant sa profondeur" 1830 SYMBOL 40,110,"vous demarez avec 7 balles" 1840 SYMBOL 40,95,"les fleches de d 1550 REM ***** MENU FINAL ********* 1560 REM 1570 REM 1580 CLOSE 1 1590 COLOR 1:CLRG 1600 COLOR 0:SYMBOL 5,245,STR$(CAR%)+" POINTS" 1610 COLOR 2:SYMBOL 5,120,"UNE AUTRE PARTIE ? ",2,5,1 1620 A$=INCH$(0):IF A$="O" OR A$="o" THEN CLEAR:GOTO 100 1630 IF A  PLOT 0,3 TO 255,3:COLOR 1:PLOT PO%,3 TO PO%+RAQ%,3 1210 RETURN 1220 REM 1230 REM 1240 REM ****** ANGLE DE LA BALLE ****** 1250 REM 1260 REM 1270 B%=INT((X%-(PO%+((RAQ%/2)-5)))/ANG%):FA%=ZA% 1280 RETURN 1290 REM 1300 REM 1310 REM **** BALLE SUIVANTE **  0 IF X% <5 OR X%>245 THEN B%=-B% 900 GOSUB 1120 910 IF B%=0 THEN B%=INT(RND(0)*2-1) 920 GOTO 810 930 A%(A0%,A1%)=0:FA%=-ZA% 940 CAR%=CAR%+(A0%*5):RE%=RE%-1:IF RE%=0 THEN 580 950 GOSUB 1460 960 COLOR 0:CALL CARR((A1%*(L%+2))+1,(A0%*(L1%+2))+100,L%,L1%)2090 SYMBOL A%,B%,CHR$(127) 2100 B$=LEFT$(B$,LEN(B$)-1) 2110 GOTO 2000  roite et de gauche" 1850 SYMBOL 40,80,"vous donne la direction de" 1860 SYMBOL 40,65,"la raquette la touche du centre" 1870 SYMBOL 40,50,"la stope et la touche blanche" 1880 SYMBOL 40,35,"envoi la balle" 1890 SYMBOL 40,5,"JE VOUS SOUHAITE BONNE CHANCE" $<>"n" AND A$<>"N" THEN 1620 1640 END 1650 CLOSE 1 1660 COLOR 0:CLRG:COLOR 7:PRINTCHR$(7)+CHR$(7)+CHR$(7); 1670 SYMBOL 10,200,"Vous venez de battre le score BRAVO !....." 1680 GOTO 1610 1690 REM 1700 REM 1710 REM ******* REGLE DU JEUX ********** 1720 R ******* 1320 REM 1330 REM 1340 BA%=BA%+1:BAL%=BAL%-1 1350 IF BAL%<1 THENIF MAX%>= CAR% THEN1580 ELSE AA%(ANG%,ZZA%)=CAR%:GOTO 1650 1360 IF INCH$(0)<>" " THEN 1360 1370 COLOR 0:SYMBOL 10*BAL%,240,'"' 1380 FA%=ZA% 1390 PRINTCHR$(7); 1400 RETURN 1410 REM   970 RETURN 980 REM 990 REM 1000 REM ******** SUB DE DESSIN D'UNE BRIQUE ** 1010 REM 1020 REM 1030 SUB CARR(X%,Y%,L%,L1%) 1040 PLOT X%,Y% TO X%+L%,Y%:PLOT TO X%+L%,Y%+L1%:PLOT TO X%,Y%+L1% 1050 PLOT TO X%,Y% 1060 RETURN 1070 REM 1080 REM 1090 REM *****> ~ }~ },~( ************************************** }(,~( ****** CASSE BRIQUE ****** }2,~( ** VERSION No 1 Du 18.02.84 ****** }<,~( ** MANUGUERRA Bruno ****** }F,~( ** 84000 AVIGNON ******  1900 A$=INCH$(0) 1910 RETURN 1920 REM 1930 REM 1940 REM **** SAISIE GRAPHIQUE *********** 1950 REM 1960 REM 1970 SUB IN(A%,B%,C%) 1980 LOCAL B$ 1990 COLOR 1:SYMBOL A%,B%,CHR$(127) 2000 A$=INCH$(0):IF A$=CHR$(8) THEN 2060 2010 IF A$=CHR$(13) THEN COLOR EM 1730 REM 1740 COLOR 4:CLRG:GR:COLOR 0 1750 SYMBOL 40,230,"Le but du jeux est de faire" 1760 SYMBOL 40,215,"rebondir la balle sur votre" 1770 SYMBOL 40,200,"raquette pour aller toucher" 1780 SYMBOL 40,185,"les briques qui se trouve" 1790 SYMBOL 40,17 1420 REM 1430 REM ****** AFFICHE LE SCORE ****** 1440 REM 1450 REM 1460 COLOR 0:SYMBOL 150,245,STR$(CAR1%)+" POINTS" 1470 COLOR 7 1480 SYMBOL 150,245,STR$(CAR%)+" POINTS" 1490 CAR1%=CAR% 1500 PRINTCHR$(7); 1510 GOSUB 1120 1520 RETURN 1530 REM 1540 REM   ** DIRECTION DE LA RAQUETTE *** 1100 REM 1110 REM 1120 TA%=ASC(INCH$(-1)) 1130 IF TA%=8 THEN RA%=-5 1140 IF TA%=12 THEN RA%=0 1150 IF TA%=29 THEN RA%=5 1160 PO%=PO%+RA% 1170 IF PO%<0 THEN PO%=0 1180 IF PO%>255-RAQ% THEN PO%=255-RAQ% 1190 COLOR 0 1200     }P,~( ************************************** }Z~ }d ~i6}n"~i15{i7{i238}x~ }~ },~( *** OUVERTURE DU FICHIER ****** }~ }~ }~ }.~"0.CASS",~1{v1rt4r4u}~~ ntt l2uo5uuulu{ i }~} ~ }~ }#~ **** BALLE SUIVANTE ********* }(~ }2~ }<~ Pin1{io1}F7~~g1~0~e~ ~0,~1~t_rui{~r}P~~[t0uf" "~0~P}Z'~&~0{&~  #i0~0~D}~~}K~&~0{~!tt mt n2uun1rt mt n2uund100r dr |u}~}~ }~ },~( ******** SUB DE DESSIN D'UNE BRIQUE ** }~ }~ }~'~ Zt rr r u}@~&~ r ~2~ n r {&~2~ " 10n 10mr240r'"'{~3}~ }~ }*~& *********** DEBUT DE LA PARTIE ***** }~ }~ } 7~&~1{&~P80r245r"SCORE"nZt#t'r+uu}$~Hi5{i;t0um6o3} ~id100{id100{~P}* ~&30~c~g 10~0~}~t185rZ90ru}~~Ii0~0~Ui1}~ai5op}~~zh4~c~g1~0~}~~i0~0~i2}~ }~ }~ }+~' **** DESSIN DES BRIQUES ******** }~ }&~ }0t21r21u}~ }~ }+~' **** MENU No 1 ******* }~ }~ }~&~4{&{&~1}7~&~1r150r "CASSE BRIQUES"r3r6r1}~&}R~&~2{&~ 10rd100r "VOULEZ VOUS LA REGLE DU JEUX ?"r10mr240r'"'}d ~dih}n ~Vt7us}x~}~ }~ }$~ ****** AFFICHE LE SCORE ****** }~ }~ }1~&~0{&~150r245rZtun " POINTS"} ~&~7}(~&~150r245rZtun " POINTS"} ~i/} ~ n &r *n {&~2~ 3r ;n ?}~&~2~ Hr L}$~}.~ }8~ }B*~& ******* DIRECTION DE LA RAQUETTE *** }L~ }V~ }`~iNt[to1uu}j~~ i8~0~io5}t~~ i 12~0~ i0}~~~ i29~0~ i5} ~ Zi 4n  ~{&~ ro7r'"'}4 ~&~={ 3i Tn{ 7i `n5}>(~~ d~h2400~ hio { si n }H~~ n gi105~0~f}R;~it od100ultNn2u{it Xo1ultfn2u}\~~;t r ui1~0~~}f~&~ r o7r~itru}:<~iA{i1{i 13{i5{i0{i1}D~fi1{&~\{&{&~u}N&~ ~~i142~2~235~3~Rn2}X5~~l3il@3.~0~in1{&~}b#~ ~i1~2~250~3~Gn2}l~2r2r1}"~&},*~&~0{&~ 10r30r "COPYRIGHT"}6(~&~ 10r15r"MANUGUERRA Bruno"}@$~&~ 10r1r "84000 AVIGNON"}J0~iVtNt[t0uub_95u{~i"O"~0~~}T~ }^~ }h+~' ***** MENU No 2 Vt7us}~~`}~}~ }~ } ~ ***** MENU FINAL ********* }~ }"~ }, ~~1}6 ~&~1{&}@/~&~0{&~5r245rZtJun " POINTS"}JF~&~2{&~5rx120r"UNE AUTRE PARTIE ? "r2r5r1}T3~i%}~~ 8g0~0~ Gi0}&~~ Sh255o ^0~ di255o p} ~&~0}F~&~0r3~2~255r3{&~1{&~ wr3~2~ n r3}~}~ }~ }&~" ****** ANGLE DE LA BALLE ****** }~ }~ }4~ i9tt ^ot '"'}p=~ "g 10~0 e o 10~b Fd Jnn5~01~<}z(~~ V~g5~c~ {h2450~ \io }~~`}+~~ i0~0~ i9t;t0um2o1u}~~*}~ t r ui0{ io9}5~i nt m5u{ei o1{~~trrru}v>~tt)od100ult1n2urt%o1ult-n2uui1}~~[to1ui" "~0~}~~Z}~~@}~ }~ }.~* ********** DESSINE LES BALLES ********** }~ }~ }H~ ~i0~2~[{&~o{&~ ******** }r~ }|~ }~&~0{&{&~1}9~&~ 10r155r ""Largeur de la raquette 1,2 ou 3 "}3~&~ 10rZ90r"Angle de la balle 1,2 ou 3 "}*~t200r155ru{Pi 10m}~~i0~0~i20}!~~h   [t0u{~Xi"O"~c~gi"o"~0~& {~d}^!~~tf"n"~b~f"N"~0~T}h~}r ~~1}|3~&~0{&{&~7{Vt7unVt7unVt7us}C~&~ 10r200r*,"Vous venez de battre le score BRAVO !....."}~~J}~ }~ }0 REM 100 ZA%=6 110 RAQ%=15:BAL%=7:RE%=238 120 REM 130 REM 140 REM *** OUVERTURE DU FICHIER ****** 150 REM 160 REM 170 REM 180 OPEN"0.CASS"AS 1:DIM#1,AA%(4,4) 190 DIM A%(21,21) 200 REM 210 REM 220 REM **** MENU No 1 ******* 230 REM 240 REM 250 COLOR#9 #&@%P$9_ 4O?'5}&ہ&s9?9,FPAB CARREPO@X wA0 _A1CAR bY TA ~~}kZAKRAQOBAL /REAA AbA[IN ZZAANGMAXgFABA 7L PL1 ndeur"}&3~&~(40rn110r"vous demarez avec 7 balles"}0:~&~(40r_95r"$"les fleches de droite et de gauche"}:2~&~(40rP80r"vous donne la direction de"}D7~&~(40rA65r!"la raquette la touche du centre"}N5~&~(40r25   155,ZZA%):RAQ%=10*ZZA% 430 IF RAQ%=0 THEN RAQ%=20 440 IF RAQ%>30 OR RAQ%<10 THEN 420 450 CALLIN(185,90,ANG%) 460 IF ANG%=0 THEN ANG%=1 470 ANG%=5-ANG% 480 IF ANG%>4 OR ANG%<1 THEN 450 490 IF RAQ%=0 THEN ANG%=2 500 REM 510 REM 520 REM 530 REM **** DESSIEM 1730 REM 1740 COLOR 4:CLRG:GR:COLOR 0 1750 SYMBOL 40,230,"Le but du jeux est de faire" 1760 SYMBOL 40,215,"rebondir la balle sur votre" 1770 SYMBOL 40,200,"raquette pour aller toucher" 1780 SYMBOL 40,185,"les briques qui se trouve" 1790 SYMBOL 40,17 1420 REM 1430 REM ****** AFFICHE LE SCORE ****** 1440 REM 1450 REM 1460 COLOR 0:SYMBOL 150,245,STR$(CAR1%)+" POINTS" 1470 COLOR 7 1480 SYMBOL 150,245,STR$(CAR%)+" POINTS" 1490 CAR1%=CAR% 1500 PRINTCHR$(7); 1510 GOSUB 1120 1520 RETURN 1530 REM 1540 REM  ** DIRECTION DE LA RAQUETTE *** 1100 REM 1110 REM 1120 TA%=ASC(INCH$(-1)) 1130 IF TA%=8 THEN RA%=-5 1140 IF TA%=12 THEN RA%=0 1150 IF TA%=29 THEN RA%=5 1160 PO%=PO%+RA% 1170 IF PO%<0 THEN PO%=0 1180 IF PO%>255-RAQ% THEN PO%=255-RAQ% 1190 COLOR 0 1200  %+FA% 830 IF A% >240 THEN FA%=-FA%:A%=A%+FA% 840 IF A%+FA%<105 THEN 870 850 A0%=(A%-100)/(L1%+2):A1%=(X%-1)/(L%+2) 860 IF A%(A0%,A1%)=1 THEN GOSUB 930 870 SYMBOL X%,A%-7,'"' 880 IFA%<10 THENIFX%>=PO%-10 ANDX%<=PO%+RAQ%+5 THENGOSUB1270ELSE GOSUB1340 89N DES BRIQUES ******** 540 REM 550 REM 560 MAX%=AA%(ANG%,ZZA%) 570 FA%=ZA%:BA%=1:L%=13:L1%=5:F%=0:P%=1 580 P%=1:COLOR F%:CLRG:COLOR P% 590 FOR A% =142 TO 235 STEP L1%+2 600 IF A%/3=A%/3. THEN P%=P%+1:COLOR P% 610 FOR B%=1 TO 250 STEP L%+2 620 CALL CAR0,"au-dessu, chaque brique" 1800 SYMBOL 40,155,"va vous rapportez un nombre" 1810 SYMBOL 40,140,"de point variant de 30 a 90" 1820 SYMBOL 40,125,"suivant sa profondeur" 1830 SYMBOL 40,110,"vous demarez avec 7 balles" 1840 SYMBOL 40,95,"les fleches de d 1550 REM ***** MENU FINAL ********* 1560 REM 1570 REM 1580 CLOSE 1 1590 COLOR 1:CLRG 1600 COLOR 0:SYMBOL 5,245,STR$(CAR%)+" POINTS" 1610 COLOR 2:SYMBOL 5,120,"UNE AUTRE PARTIE ? ",2,5,1 1620 A$=INCH$(0):IF A$="O" OR A$="o" THEN CLEAR:GOTO 100 1630 IF A PLOT 0,3 TO 255,3:COLOR 1:PLOT PO%,3 TO PO%+RAQ%,3 1210 RETURN 1220 REM 1230 REM 1240 REM ****** ANGLE DE LA BALLE ****** 1250 REM 1260 REM 1270 B%=INT((X%-(PO%+((RAQ%/2)-5)))/ANG%):FA%=ZA% 1280 RETURN 1290 REM 1300 REM 1310 REM **** BALLE SUIVANTE ** 0 IF X% <5 OR X%>245 THEN B%=-B% 900 GOSUB 1120 910 IF B%=0 THEN B%=INT(RND(0)*2-1) 920 GOTO 810 930 A%(A0%,A1%)=0:FA%=-ZA% 940 CAR%=CAR%+(A0%*5):RE%=RE%-1:IF RE%=0 THEN 580 950 GOSUB 1460 960 COLOR 0:CALL CARR((A1%*(L%+2))+1,(A0%*(L1%+2))+100,L%,L1%)R(B%,A%,L%,L1%) 630 A%((A%-100)/(L1%+2),(B%-1)/(L%+2))=1 640 IF INCH$(-1)=" " THEN STOP 650 NEXT B% 660 NEXT A% 670 REM 680 REM 690 REM ********** DESSINE LES BALLES ********** 700 REM 710 REM 720 FOR A%=0 TO BAL%:COLOR BAL%-A%:SYMBOL 10+10*A%,240,'"':roite et de gauche" 1850 SYMBOL 40,80,"vous donne la direction de" 1860 SYMBOL 40,65,"la raquette la touche du centre" 1870 SYMBOL 40,50,"la stope et la touche blanche" 1880 SYMBOL 40,35,"envoi la balle" 1890 SYMBOL 40,5,"JE VOUS SOUHAITE BONNE CHANCE"$<>"n" AND A$<>"N" THEN 1620 1640 END 1650 CLOSE 1 1660 COLOR 0:CLRG:COLOR 7:PRINTCHR$(7)+CHR$(7)+CHR$(7); 1670 SYMBOL 10,200,"Vous venez de battre le score BRAVO !....." 1680 GOTO 1610 1690 REM 1700 REM 1710 REM ******* REGLE DU JEUX ********** 1720 R ******* 1320 REM 1330 REM 1340 BA%=BA%+1:BAL%=BAL%-1 1350 IF BAL%<1 THENIF MAX%>= CAR% THEN1580 ELSE AA%(ANG%,ZZA%)=CAR%:GOTO 1650 1360 IF INCH$(0)<>" " THEN 1360 1370 COLOR 0:SYMBOL 10*BAL%,240,'"' 1380 FA%=ZA% 1390 PRINTCHR$(7); 1400 RETURN 1410 REM  970 RETURN 980 REM 990 REM 1000 REM ******** SUB DE DESSIN D'UNE BRIQUE ** 1010 REM 1020 REM 1030 SUB CARR(X%,Y%,L%,L1%) 1040 PLOT X%,Y% TO X%+L%,Y%:PLOT TO X%+L%,Y%+L1%:PLOT TO X%,Y%+L1% 1050 PLOT TO X%,Y% 1060 RETURN 1070 REM 1080 REM 1090 REM *****NEXT A% 730 REM 740 REM 750 REM *********** DEBUT DE LA PARTIE ***** 760 REM 770 REM 780 COLOR 1:SYMBOL 80,245,"SCORE"+STR$(AA%(ANG%,ZZA%)) 790 A%=5:B%=RND(0)*6-3 800 PO%=100:X%=100:GOSUB 1360 810 COLOR F%:SYMBOL X%,A%-7,'"' 820 COLOR BA%:X%=X%+B%:A%=A    1900 A$=INCH$(0) 1910 RETURN 1920 REM 1930 REM 1940 REM **** SAISIE GRAPHIQUE *********** 1950 REM 1960 REM 1970 SUB IN(A%,B%,C%) 1980 LOCAL B$ 1990 COLOR 1:SYMBOL A%,B%,CHR$(127) 2000 A$=INCH$(0):IF A$=CHR$(8) THEN 2060 2010 IF A$=CHR$(13) THEN COLOR   0:SYMBOL A%,B%,CHR$(127):C%=VAL(B$):RETURN 2020 COLOR 0:SYMBOL A%,B%,CHR$(127):COLOR 1 2030 SYMBOL A%,B%,A$:A%=A%+7 2040 B$=B$+A$ 2050 GOTO 1990 2060 IF B$="" THEN 2000 2070 COLOR0:SYMBOL A%,B%,CHR$(127):A%=A%-7 2080 SYMBOL A%,B%,RIGHT$(B$,1):COLOR 1   2090 SYMBOL A%,B%,CHR$(127) 2100 B$=LEFT$(B$,LEN(B$)-1) 2110 GOTO 2000                                                                                                                                  !    !   !!! ! !!!! ! !!"!! !!"   """ " """" " ""#"" ""#   ### # #### # ##$## ##$   $$$ $ $$$$ $ $$%$$ $$%   %%% % %%%% % %%&%% %%&   &&& & &&&& & &&'&& &&'   ''' ' '''' ' '''' ''