8L2C)pJJJJ IH(ȱH:=IH[H`@HcH  $ +   I/H`JLNGȄBȄF aK  haaFF  mJm# KKJ UJ )J ۈ) ;J3ȱJFȱJGJKaȄM  aaNNJFLGJL LC! $ " " &#M8nf $ ) L! " " &J, )7(P0  ( @p !"0 *%"0"" &/) )"" &ЭL!)0I0 (Щ ߍ  FONTESnQDPICSGSB.HELLO(LISEZMOI!T20' PRODOS: BASIC.SYSTEM&( STARTUP:Q!DUEL; VERU BASICf? &PRODOS `DaElH$?EGvѶK+`L HHLy XP LM ŠϠĠӠS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8R)f 8'  )ɀ)4,- U JNT)  !N)Gi/ "4 "" " " iL X%!L!ΠΠҠ`  !"#$@~@}J@` ߩ%S @ ~`E hhhߺ0 h ߐ# ߐ ߐ ߐ 0 HϭߍLпllllhh8` QSTV،h@ihAiȱ@JJJJq@)@evȱ@Hȱ@Ah@@cee J) LxL LxJiB LxJ) GxNhHHHHL(  ްƠx@BEOD  ް(`( C)CJJJlBJ,~آ <B*IBGF08Lé'+8H <(h`@ڍL3<>=?<>CAB@?A` 1 L  <>` ڢF]PL8i m L   6< L  BLRAM' hLDLHB-9F 3"aɿ LLB Nϰ H  @h( L Lj  @`bLJCAB@=?,<ʆ>*=?BC8 é&'112`݁(݉(`}(`e`H)hJJ?(0JJ)` (< ( < *? ( < (? ( < (? ( <*? * **? *? *? ( < *? ( <((ȱ( Y'( ' f'L&`L' 'L' Y' L& Y'L'8ei` ,$`ee` `( '( (` *( ' (`hh8`8`(l&j"L  <8# ȱ)ɀ  )t& ` (Xp< @t& )mt&t&.t&w& Mt&i  ``rȱȱȱȱ0]cȱeem(ȱ(ȱ((ȱԠŠҬîʎ1DžϠl&8f ZHH)hh8JhJJJJJ j&Hk&8H) 12 (j21 h!hH h %)Ђ12H)M0 h10200I20h2 |&`L($_뿩 8!@8` MNЩUMܩ  L 5   8 0 8 `0 / x X$$%&%0`ŠӠЭ[ V7 c L '0%O '8O JmO * ʈ0  0ŠϠĠ͢Š͠͠ϠŠŠϠĠخ͠ ͍B B(8`;YYZLYLYLY"7"Y"/"ll"*# HQ$WON!-PB}OBiB ,m# m# J Qڨ)̰n]e мȱ ; ̀𩠙< iO P F V >Z SY ɘL` X _ 'P0ōҍJJJJ ɺi) ɺiLD )?      `l@Hȱ@IױHXATȱH ɯȩ׍̞5H)/@a)_ .0 :A[8@`,뎞׮Б` L` @>_)I38Ypqם`K8`@Nȱ@O@ IiNȽבN)/ȩ/N`@[ WHJjjjhA <'KI؍_JJJJح}) ) )в|J8` GpF $ ᭔ع+ؠ HH  Jh8` 䮑ٽ ٬ؠ@` ( X )8`)i пJGBJ a FإG`BH aFإG`H hHB؅F  ؅GxDE؍00C ް(`(8` L7J  G"L H  G 9ؙ` @ P8`B8` X؈ ;JHIH ILFFHGI ѭJjHIH;7IؙJJ g3HIHILJKJK`FHIG ( Ȣ؝؈JL)eKM`)` J Jͫ $0 ΚJFJL8`0C ް(`(8`ؑ@`M8`8@ؐʈI묒)8 L LةC8`؍)@ i)8zJ _ ؅F L) +&J(b ;FإGؐ/8`*J۩ ٰ`JJJJi LdH8`ͦ ٍ0  ` `ٍyٍiB0H0FG h0`שB5xED "8`  `ٽJJJJ`H͜hn)NjNjNjN. dH͜ ;٭ *Nۙ۰ڙک `Z8` d# B` . . .8۰0٭)ܝ٭*ܝ٥F٥G٭'ܝ٭(ܝ`) 8ʈ` )0ٝ)i `8`R "ꍜ NمFمG < Μ0 FGL鮑0 ٭٭ٽ8`H8`  ,0 d01 E8`100 v$0ʩGF 밽 谸 谳`12)1`0`Ȏi 0U`)8`θ` )W G JA)H ܝʈh٭ )ȱHθ`Κ8QeHI SBF0Y ٙWٙUFZSʈ {猺`8m0`,0H hi L荸Ƚθhٍ0GF8yאFG  `* ΙQ8`5IF܅G 됾`\܍]^ {8D`F` tlH)HFȍZHG[ $%܍&܍!ܢ8* J8` L ܝJ)I 'ܝF`R8i^F\G]`R5IH3H (  밯ZF[G 밠S%܈P" X)Im'܅F(܅G)܍^*܍Q 4 䭐 $H %HFFHGHG 됨`R8`)` QH_` :R(5IHH__Ѝ_@`8 e ͙_ʈ@}ȱ@oȱ@y{|rZ[_)7_I0ܢܽ \'Q*ܩu 7pqFG (ST L܅I^ mQIH` } }Y0\F]G Q_HZF[G` G8`F@ 0 e LK8`F GI8`FHGH hGhF܌ բFܽܕF芝ܝ 밶FFGG H܅I mIIHHyHȘI Lܝ` @o@ w@Ю׍_)m0JHi 뎑`C8` @ 3N@) d莽 ⭺i`0 v0GF #0 W,0 ).H hȑNWȮّNW8`ٍّNθ0NN` H h)N$% LL L L H  :pJ덯 )@፲NJOK HiKKήή IJί JФ̭JjHFIH HIGxKE ް((H hH h8`8@ȭ@LH쬒8NNO 8 ؍JL`RήʱLN.MOMEKP/MEKήLML-M O,p莭eNNO(`JNKOL H/  :P L8 gؑJ`L@ȱ@LL`BLLޢޢޢޢޢޢޢޢޢޢޢޢޢޢޢCOPR. APPLE,1983LM Mh@8nЍLޭ 0J @,,L:,L@   !"#$Ԡ͠ˠĠԠhhhhILhH),dx8 (8`@Ae f!55s+aIJK,-NOPQRSuHUSTON!' J5 s9X(K sXXK تKo`V8`no` < on sI9XX`)HJJJh`OeNeO࿰ s9XАO`@ȭ@` ON YNJKO`HHHHх܅F݅G ` ͬ 밽܅F݅G ` * % L`FGL 4܍ݍ8`FHGH 4ܙhGhF`@Bɼ>K@yٙ٩`O dIpFqG :%&N  # 4܅F܅G `J HH hh` 0 @ L\L# [Tܝ ݝ0ȩFG  0` רם__)׍_pFqG 밍 hPם8`;Zx3QTTSRWVUHEVhEhH)IWHPHHHAHHHLaVEWLӿ ְ& .Vӈ  JJJJH 8h Ei 8EX`'8`jӍWӥC)p> pӥCYӍY 轊( ( ӈBV ( ӭp0 \BkJ ՠ@iӦ> Ӑi'j:ZH i@ioZZH h ѐȭnWǥBJ Ӱ8XӦ>` Ր+>YL 8!9 詍` "  à4"/pŠϠŠà͠ӠàԠŬ%'()*+,-./0123456789JJH !h穖tp% ;"Z/݀>">"' 1" 7"5).莀/ ;" " 6" >" 1"6"$ "g"" !"""""IzLLG ASTARTUP$#   / XXύX?klmnÍoL) "6L'?"(0`6708" = ***)< &@DEF   %LҠؠӠ΢ϠԩҠŠƠԠԠŠӢɯϠҠůȠԠĠ ƠϠ ɘɉ ɈL :Lɍ)ې)ɮ۰ɺH h 'ĝL  LL L)'L L L'L  (L(L $ʩ $$ $L `ީ % XʩXύX X A %  % ɍNH hɛɘɉɈ $ Lc :Lcې)ɮ۰ɺ'Ɲ Lc  : X i % $ɛ$8V%֌&8V֌֠)HV)hH)hHIhդD?DRIDQD)҅; ?JDQD]ՎՎՎ`MY pӭY)p  ӭp`C)`BFGV 8``8LխӅ:HhHh Ո թ թ ՘VYҪҦ>:Y)Ң`;R?AJ;<ȰY)Ң`Y?)Ң`ȐҰ ;HhHh=Ң`Hh `Hh`DEiȍ0֌1֍ZԍsԍԍԍԥDEԌ8TԌ8WpԌqԠ 7I꽌ɪ꽌ɭ蠪:љVE:8`]ѾV]H)]ѾV]ҙ)]ѾT]ҙ)] >8hUD` ԝY`> Hh݌(`HCJJJJ)*h`0($ p,&"op8`kkV꽌ɪɖxlӽ*kӽ-kәmMlӈ 꽌ɪ`8` *L o % ԽYӍZӭoӝY 3Ѡ шNZ`rZLkӭZӍq8r7IZӐiZkӐk 8 ѹs ӭq ѹ| kн Z)*>>` @ $(,048<@DHLPTX\`dh 0ުlptx| H06172839h` v97L75v^a ?/( va?LLLɍ$?`?a ɍɥAH93827160hH46576879h`,C bL ɍ b w,S0 @ lLޭB 鸍긍$I2 U)VJ зT)`l8`a HbIJhjǾȾɾ p٭b=aSL/id /`H) hJJJJ ɺi` M  ` ת.8 `O`S  AI-L9 ᪰B C VW>m>` _m8injkiljo풼i>?Ek?>Q>> L> \/ e>>?́?ޱ>ȥpnG @p;G=po:Q>>>̀ `` \> ̀ `e>>?́?>?Emn(>e>ȱ>e?>Q>ؠ> ie>>?`|;}=:<~:<=;`||m};>:8o>oȑ>ppȑ>> :op`G DKJپھ pHJh` D!hgt}~p `~t}p8n~ni}tpi~~tso8pinii>j?k̈́>~|p|Ii||̈́ l - `>i>L8933LΞAAJL ةޘг uv $ 8LƞaЌ>?@`>?@`B8` K  춼LK ҟ ҟ ( KK`HJJJJ8`HK)` #hhL𚾤3 @LtJ)s@J b  l`a?sa?,E30ɍФ3 E3HD F3 Ʉ%h3 bM E  lLthɍLL3`3,A0s0% Ipn DpnI:L ؅303پھ p H־Ǿh۰8L־Jjjjɾ)Ⱦ8 ѱ OLӜ ĤLLX>(F`־ؾپھ׾` bɄ KDEF vLl v lL bKɍKL?` w  vLl@$݅3`(l8L3LX>(Ƀ,`3,G0]ɾ g` H`پ_پ p _پ׾`>( p۾m׾) W)ʩ@`ɾ>(O puȾ ɾ-O ]c־Jjjj `O>0O l PODEF޾ p ޾ p($ذ v (0 ( L?ԦʚLeةީa s  lL b,FLg,DL,C0$3 >@ Ɉ 3ɾꩈL(3ɾ;Ƀ B94 l% bʽ  ՚,S` H Eо VV :$ZA@L8 `u-U -W b WW)JJ :T$K \0IDK : :5K 0.)K :쭼󬮼XK`L9L^ :K mY ܩ 8jK` J,, ( 5̪ ` J, ̪ ` J, `)a)_ͩ`0:8 `)H"H ת תh}I תhm8`0 :AG8 `) ת `..`SI-SRRX)sƬƀ#(ZZV4G_0=( A P FjL\5p-e9ABSAVERIFYBLOADELETEBYECATALOGOPENWRITEXECREATEFRESTORENAMEBRUNLOCKCHAIN#FLUSHREADPOSITIONOMONPR#PREFIXCLOSEAPPEND6D(!쫂8 ( 8о(־Ǿ,G 8`_`W)H־Jjjjh p̭ fLᶢǾ ת..8 ۭ (8mȾȾmɾɾʾiʾ` Lpl8l:/,s`\"׾پӾؾھ pD`־ǾY׾ؾOW)ݩȾɾʾ pD`8`W)CB) 5W) =)W)@! pZ}ȾȾ󰹩 p` ־ǾҾ,G 8`׾ؾ f p vۥs׾tؾE` `޾Lp h־Ҿ,G0^W)TP) ecfdپھ׾ؾӾ p$c d pccddީ 8`ȾɾʾNfne}ȾȾI>Ie f`8` P־ǾҾ,G0C f=W)_`:_`蹀:`V)8`MN; b;`;C b N8` G)̀#:蹀:`V)R ޾,N0MHhHh p' L,N HCNh`M`M N N `9V) ` V) ޾ p`  (8` 8`8`(W)`_V)Ij!؍Í`_ FjЭW)`_ Ͼ pH Lh8`jGMоM  G)p pY)ικ`lP *,N!ǾȾɾʾ pǾ~H h8`8`,C  8` ȾɾM$ mHݓǾ phϾ pH Lh8`Ͼо־ǾҾ_` 볩Ӿ pW) "LEC`C )莼 з l6 7= /& /8Hh /` 6Y׾ؾ+پھ p|پɾʾ`HV)jh츾$-#Ͼ p о־޾Ǿ` 8` 8`ɾ)ɾ̸ ɾɾ0miȾ ;τ<:: <`:8` e eվ'OV)Jj зf Ja l + ѱ:ji Ĥ Ƀ B ,  簰 ` l])Y 񩢍`Ⱦɾ0Ǿ p1׾ؾ  p p ٷ H rh(`׾ؾ` : ߭׾t8퍼mؾŰ펼t폼 L28` ˌھپLp k V)@W0!XY X6Y7` YX`X:Y) F з8` # `l׾ XYW0V)4W׾ؾ_`)0%I0)3]8X^YȰ8` 8` p Ⱦɾʾ8`پھW)@%ZȾ pSԩ p`S pLjÍ FN I 9 : ׾hؾ  p hgͺ칾`LٷV)jC mMjà Lp `VJJ°L9Lp з)< L з L緭W)8VJưϥ3 켼 `F`4W)ɐ/XYjV  kimljn` pg׾mȾXhؾmɾYtѮȾɾ aYX`8g@I5gN Oz @n[Dz @nd0,~z @`$仫@v$⩔,C[B?I>孓`仫6VtCicQĿUKqtVt N87,87,89A J102,103,105,132,105,103,101,102,83,91,91,93,96,96| O99,102,102,99,100,96,93,87,87,85,81,80,83,90,96,99,93 T: Y208,212,215,206,204,209,203,208,206,200,203,202,194,188 ^191,193,194,197,204,188,185,182,183,184,186,189,190,180 ; c* ,27,29,16,30,16,25,31,16,15,32,16,230 1:h 658,54,51,60,62,57,63,58,60,66,63,64,72,78,75,73,72 ;69,62,78,81,84,83,82,80,77,76,86,86,82,84,89,83 @80,84,87,89,89,84,84,72,75,78,81,74,67,66,64,60 E60,63,66,70,67,78,84,84,87,87,81,87,91,91,90:3:495 505) 0:485:3:4807 I120:K 0:495:3:490Q  22:1:"Appuyer 'R' pour avoir la REGLE du JEU " 4:"Une autre touche relance le duel "; H$::H$"R"ė::515 ":225 '21,16,12,25,0,0,27,16,29,29,26,31<>?@ABCDEFT14* I1320:F(I)87T,55:TT10I II110:Z(49200):II:IU 2:T14w I2124:F(I)90T,80:TT20 II110:Z(49200):II:I J12 I197:X(I)::420 J J110 500 0:480:3:485 I120: 0:4d(17):.i232,0:233,96:F(24),X(97)Cn(4)"BLOAD SON"\s(4)"BLOAD FONTE.G"bxn}3:8,1x1:0385I124:F(I):T14::769,5I112F(I)0170F(I)66T,40II15:Z(49200):TT10 DUELuHUSTON!' '*LANCE.DUEL= !|;$DUELH ,!;SONP!|;PION3Q!b|;'FONTE.GS!`|;gue: ";S$ PS$""ī208 Z(S$,1)"/"P$P$S$:25G _SC$S$:40O d:  :(21):D$(4):"1000P$"/T20";SC$P$MD$"PREFIX"P$_(:D$"CAT"SC$220:"Faire pr{c{der de / pour NOUVEAU PREFIX"72:21::"CTRL-C POUR ARRETER":<21:"________________________________________" F23:"Sous-cataloLLwLLL) `8` ԠŬLLʮq$6,⨁ K6, VtI=v!gNVt Vt  lg~T180,184,182,179,183,186,182,179,177,177,182,182,194,191x h188,185,192,199,200,202,206,206,203,200,196,199,188,182 m 182,179,179,185,179,175,175,179,179,177,164,163,161,134 r161,163,165,164,173,175,175,173,170,170,167,164,164,167 -w166,170,173,179,179,181,185,186,183,176,170,167,1733|50,2014,9014,10020,1581,1581,1278,1278,158259,158265,100265,90228,2014,1001,951,8514,90:278,95265,100265,90278,851,153,15:X327030:410::274,15278,151,158278d ----- DUEL -----/s(4)"BLOAD SON"Hx(4)"BLOAD FONTE.G"_}(4)"BLOAD PION3"v(4)"PR#3":(17)|C(121),D(8)IV$(15):NR$(14) ===== INITIALISATION =====795:12:"TIRAGE AU SORT"::"Je lance un C...X,Y,Z,-,|,."p{::"PION3";::" (A$62F8,L159) qui contient 1 pion noir, 1 pion blanc et 1 carr{ blanc"15:22::"RETURN POUR COMMENCER";:H$::::10:8:"B O N N E C H A N C E !":22(4)"RUN DUEL"g:"LANCE.DUEL";::" lance le prog.princip. ";::"DUEL":tl:2:"Trois programmes L.M. sont utilis{s :":q:"SON";::" (A$300,L24)":v:"FONTE.G";::" Tableau de formes (A$6000,L$2F2) qui contient,dans l'ordre : ,0,1,2...9 puis A,B,ombre de 2 chiffres dont le chiffre de gauche est le num{ro de la ligne et celui de droite le num{ro de la colonne"S:" Si on entre 0 on va directement @ la fin du jeu"X28:22:" -->";]H$:b:7:"RENSEIGNEMENTS TECHNIQUES"::@se d{placer."aD:" Il est interdit a un pion de jouer sur une case d{truite ou occup{e"I:" APPLE tient les comptes et indique le nombre de coups qu'il aura fallu pourimmobiliser l'adversaire"uN:" POUR DEPLACER UN PION :entrer le nACER SON PION"D+5::"(B)";::" DETRUIRE UNE CASE INOCCUPEE"0:" Un pion ne peut pas jouer sur une case occup{e ou d{truite"528:" -->";:H$:?1::" BUT DU JEU ":::" Entourer l'adversaire pour qu'il nepuisse plus le pion noir etAPPLE avec le blanc":" Un pion ne peut se d{placer que d'une seule case tout autour de lui (@ la maniere du ROI aux {checs)"!:" Celui qui joue devra accomplir deuxtaches successives :"&5::"(A)";::" DEPL768,17:769,15:770:K ----------- REGLE DU JEU -------------X:(17)s:15:" D U E L ":: " Ce duel est un combat singulier entre 2 PIONS {voluant dans le cadre""d'une grille 9 x 9"&:" Le joueur joue avec89),107KX(90),109X(91),109X(92),111X(93),113X(94),109X(95),112dX(96),110X(97),107j105,122132,112105,120:105,122134,126105,120:161,122134,112161,120:161,122132,126161,120:768,14:769,30:770:117X(65),125X(66),131X(67),125X(68),128X(69),122X(70),112X(71),120X(72),122X(73),119X(74),121X(75),125X(76),122 X(77),115X(78),113X(79),114X(80),112X(81),113X(82),110X(83),108X(84),110X(85),104X(86),102X(87),107X(88),104X((40),135X(41),132X(42),125X(43),122X(44),116X(45),118X(46),122X(47),120X(48),125X(49),126X(50),128X(51),129X(52),126X(53),124X(54),123X(55),122X(56),135X(57),128X(58),125X(59),117X(60),116X(61),113X(62),115X(63),122X(64),X(16),135X(17),132X(18),137X(19),144X(20),140X(21),142X(22),144X(23),146X(24),145X(25),143X(26),153X(27),156X(28),156X(29),154X(30),153X(31),150X(32),148X(33),146X(34),143X(35),150<X(36),146X(37),143X(38),140X(39),132X,158 dX,16X2,17X8,18X10,19X13,20X17,20X20,19X22,18X24,17X28,16X30,16jX(1),147X(2),152X(3),154X(4),158X(5),157X(6),153X(7),152X(8),147X(9),142X(10),147X(11),152)X(12),148X(13),144X(14),140X(15),137DE et si j'obtiens un :'L:IV$" 1 "NR$" c'est vous qui comencerez..."n:IV$" 2 "NR$" c'est moi..."~I12000::I1012:I:18:" "::I120:K((1)2)119:11:KJ112:Z(49200):J,I15K1ĺ"C'EST DONCGIJKLMNO9,9,9,9,9+a 1,12,11,10,-1,-12,-11,-100,0,0,0,0,0,9+4 9,0,0,0,0,0,0,0,0,0,9G9 9,0,0,0,0,0,0,0,0,0,9c> 9,0,0,0,0,0,0,0,0,0,9C 9,0,0,0,0,0,0,0,0,0,9H 9,0,0,0,0,0,0,0,0,0,9M 9,0,0,0,0,0,0,0,0,0,9R 9,0,0,0,0,0,0,0,0,0,9W 9,0,0,0,0,0,0,0,0,0,9 \ 9,9,9,9,9,9,3XD,YD1C(ND)5#?768,255:769,80:770:[768,100:769,60:770::21:198:"ERREUR !... RECOMMENCEZ !...": I12000::I1121:C(I): I18:D(I):%* 9,9,9,9,9,9,9,9,9,9,9/ 9,0,0,0,67:Y15L15"NNN(N10)1(=NNN(N11)1:OI((1)8)1cEE1:E50610C(NND(I))5C(NND(I))9700NNND(I)((NND(I))11)1:E0: === EFFACEMENT CASE DETRUITE === K1İ765K2İ7703A;" COUPS"YK2ĺ"DESOLE !.. Je suis le plus fort !..":"J'ai gagne en ";B;" coups"20:"UNE AUTRE PARTIE ? (O/N) ";:H$:H$H$"O"Ĭ:::(4)"RUN /T20/STARTUP" === TRAITEMENT DES CASES ===L(N10):CN10LX15C)5C(NND(I))9380XI,]K2:610Hb === FIN DE PARTIE ===~g:22:"C'EST FINI !..LA PARTIE EST TERMINEE !.."l23:" pour obtenir le score";qJ13:765:770:vH$::{12:3 K1ĺ"BRAVO !.. Vous avez gagne en ";NM:670:X1X:Y1Y:N1NN60:2X1,Y1:C(N1)0<:N!NM:685:700g&670:X2X:Y2Y:N2NN}+3:2X,Y:C(N2)507,N:BB1:7705N(6):685:700:670:XDX:YDY:NDNN?730D:IN(6):NNN(N10)1NI18SC(NND(I)9CD1CD9C(NN)5İ775:450(730L === TEST DE FIN DE PARTIE ===fN(7):NNN(N10)1qI18C(NND(I))5C(NND(I))9510IK1:610 === JEU DU MICRO ===K2:22:"Je joue... Patience !..."; M(7)L2)1(C1C2)1C(N2)5İ775:390BL21L29C21C29390Z3:1X2,Y2:C(N2)5n6,N:AA1:765 --- CASE A DETRUIRE ---::22:"CASE @ detruire..Laquelle ";M:M0610NM:670:LDL:CDC:XDX:YDY:NDNN:LD1LDULEMENT DU JEU ---5 ======< LE JOUEUR >=======gK1::22:"A vous de jouer... Quelle case ";rM(6)NM:670:X1X:Y1Y:L1L:C1C:N1NNM2:M206100:1X1,Y1:C(N1)0NM2:670:X2X:Y2Y:L2L:C2C:N2NNA0430%(L1le case ";EN=J670:L1L9C1C9İ775:198:320QO6,N:AA1:765dT1X,Y:C(NN)5xYK2:I12000:~^:cN55:670hC(NN)5L4:C((1)3)4:N40C:NNN(N10)1:670m:r7,N:BB1:770w2X,Y:C(NN)5| --- DERO200)  I196I270I15,14:Z(49200)UI270,15I14:Z(49200)[b2z"1515,40:3215,70'1615,100:2315,130,11232,248:233,986 -- POSE DES PIONS ==;K2345 @:22:"Posez votre pion...Dans quel VOUS QUI COMMENCEZ">K2ĺ"C'EST DONC MOI QUI COMMENCE"t21:"PATIENTEZ QUELQUES INSTANTS...":I12000: ====== LE CADRE ======1:0232,0:233,96:3I181531580,I215,I:Z(49200)62I,1862I,153:Z(490 L`VXYZ[\]^_`a" 2 "NR$" Voir un exemple du tableau final ?":` IV$" 3 "NR$" Commencer imm{diatement ?": IV$" 4 "NR$" Quitter le programme ?" :1403,33:"VOTRE CHOIX : "; H$:H(H$):HH1H4155 H580,670,175,165 6,0::::(4)"RUN START&d:ND(30),ND$(30),NC(10),NC$(10)FiIV$(15):NR$(14):D$(4)ln(4)"PR#3"::ND0:NC0:SB0:SC0sD$"BLOAD SIRENE"x5:1403,35:IV$" MENU "NR$}8:1403,33:"Voulez-vous :":IV$" 1 "NR$" Consulter les instructions ?":1 IV$VERuHUSTON!' ',VERIF.COMPTEW !}USIRENEbT!}U(SIRENE.Sd1|U5566>>?-'$$$<--55>>?? <$$$%-5566>6>?/.... <45-%%<>?<$$$%-55--%%$$<??$$-4&?$$/--5-'$,%6<'$<---6 -%%$?7,-6>>?<$$$%-55!$$$46.--$$6666 -'$$$,?$65-%%$$$!$$$46.,,,,7777....)--4??'$$$$$$$$56565&,$,$,6666!$$$,65.65.$$$$ <$$$%-(RVkw,=Ncs -ASbtAA <$$$%-5566>>?$,,,$I)=$$$$777)--??'%%%%%<645-%%<<'%%%???I $4.=??$%,$%45-%%$'?7'$,--6$%-55>>?<$$$%-55!%%%?-=,,$??7 <$%-%%<65-55>>?45-%%$$<65KI)-,%,$<$?7>6.6-I)-,=???,---,????'----%????'----= ";ND(I):560 ND(Iprogramme est de v{rifier qu'aucune erreur n'a {t{ commise":"ni par vous-meme ni par la banque":g" Il suffira d'entrer successivement :"l"-1 les montants des retraits non d{bit{s par la banque" q"-2 les montants des versements non cd'un compte":"bancaire . Le solde du relev{ envoy{ par la banque ne coincide jamais, h{las! avec le solde que vous avez calcul2."]" En effet, il y a toujours des ch}ques non d{bit{s et des versements non cr{dit{s"db" Le but de ce 0)::4? -------------------------------------`D --------- INSTRUCTIONS ------------I -------------------------------------NS1403,33:IV$" INSTRUCTIONS "NR$:X" Chacun sait combien il est p{nible de verifier la gestion 70AA67510AA68Ĭ. AA67ė:285=AA70165C:[P(P100.5)100:x!J110:"--------";::&J121:J:1403,H:"!"::+J418:J:1403,15:"!"::0II130:ZZ(49200)::5II12:781:::II120:BZ(4920oSOSBĢ18:1403,52:"DIFFERENCE --> ";(SOSB):20:1403,53:IV$" IL Y A UN PROBLEME "NR$:570:570:57022:4:IV$" D "NR$" =DEBUT"10)IV$" C "NR$" = CORRIGER (noter les num{ros)"9)IV$" F "NR$" = FIN"AA(16384):16368,0AA68AA$;" --> -";:1403,74(NC$):NCF11:1403,68:"__________"z13:1403,54:"TOTAL -->";:1403,74(SO$):SO16:1403,47:"SOLDE REL.BANC. -->";:1403,74(SB$):SBH79:550SOSBĢ20:1403,55:IV$"TOUT EST CORRECT"NR$:565:5055 ============= VERIFICATION ==============i =============================================6:1403,47:"SOLDE CARNET -->";:1403,74(SC$):SC8:1403,51:IV$" R "NR$;" --> +";:1403,74(ND$):ND'10:1403,51:IV$" V "NR,12:NDH29:550$I1C1V(I3):1403,30:I;:1403,40(NC$(I)):NC(I)\SOSCNDNC:SO$((SO)):PSO:540:SOP20:1403,30:IV$" V "NR$;:1403,37(NC$(I)):NCH45:550 ============================================= Tw2:5:"RETRAITS NON DEBITES";:32:"VERS.NON CRED.";:1403,57:"VERIFICATION"a|I1D1I16ĢI3:2:I;:1403,10(ND$(I)):ND(I):395I15Ģ(I12):1403,16:I;:1403,24(ND$(I)):ND(I)555 20:1403,2:IV$" R "NR$;:1403H$"O"295LY ======================================================= ^ ======= AFFICHAGE DES RESULTATS ET CONCLUSION =======c =======================================================hm1:545:3:545:19:545:21:545rH0:550"B"3101"Num{ro ? ";N96"Nouveau montant ? ";MOu;Z$"R"NZND(N):ND(N)MO:NDNDNZND(N):PND:540:NDP@Z$"V"NZNC(N):NC(N)MO:NCNCNZNC(N):PNC:540:NCPEZ$"C"SCMOJZ$"B"SBMOO:"AUTRE CORRECTION ? (O/N) ":H$ T: H$"O"350N :"Taper pour un retrait pour un versement" "" pour corriger le solde du carnet pour le relev{ bancaire" ':1403,25:IV$" R "NR$" ou "IV$" V "NR$" OU "IV$" C "NR$" ou "IV$" B "NR$" ":Z$ ,Z$"C"Z$Ы250  545( PNC:540:NCP. :w :"Solde de mon carnet :";SC:SC$((SC)):PSC:540:SCP:560:998 1403,40:"Solde du relev{ bancaire :";SB:SB$((SB)):PSB:540:SBP:560 :9:"Voulez-vous modifier quelque chose ? (O/N)";:H$)0DI:205  5450 PND:540:NDP6 :k "Sommes non cr{dit{es (taper '0' pour ARRETER)" I110:NC(I):PNC(I):540:NC(I)P:NCNCNC(I) NC$(I)((NC(I))):NC$((NC)) 998:" Num{ro ";I;" --> ";NC(I):560 NC(I)0CI:r{dit{s"Uv"-3 le solde que vous avez calcul{ (par vous-meme ou par ordinateur)"{{"-4 le solde du relev{ bancaire"!:" Le programme permet de corriger les erreurs soit @ la fin de la SAISIE":"soit apr}s l'affichage du tableau final. Dans un cas comme dans l'autre il"]"faut bien noter les NUMEROS des sommes enregistr{es."22:1403,40:IV$" T.S.V.P. --> "NR$H$:120 ======== EXEMPLE ========I120:ND(I):ND$(I)((ND(I)))NDNDND(I):PND:540d:(17):iN(45)Mn:" ** LE PLUS GRAND NOMBRE D'UNE SERIE ** "Vs:3bxI145}N(I)1((1)998):SP2:I10SP3I;SP);N(I),:I245N(I)N(CHERCHE)150CHERCHEI20::N(CH);: " est le plus graBASICuHUSTON!' 'RANGg!}"f$ALEAi2!f&TOTAUXlz!}-f labels SKIP 1 SKIP 1 CHR 173 REP 45 SKIP 1 ceY $031C STX $031D LDA #$00 STA $031E PHP SEI L032F LDX $031D L0332 LDA $031E ADC $031C STA $031E TAY L033C DEY BNE L033C LDA $C030 TXA TAY L0344 DEY BNE L0344 LDA $C030 DEX BNE L0332 DEC $031B BNE L032F PLP RTS SKIP 1 * D{claration des SKIP 1 * D{sassembl{ par Mandrake.V.1 SKIP 1 ; SIRENE.S SKIP 1 ORG $0300 SKIP 1 LDA #$01 LDX #$FF LDY #$FF JMP L031F LDA #$01 LDX #$FF LDY #$01 JMP L031F LDA #$80 LDX #$06 LDY #$FF JMP L031F BRK DFB $1F STA $8D42,X DFB $1B DFB $03 STLLLBxm00(`61,1281.75,1500,264.25,32.3,385.65,53.25,2763.51 693.37,259.2,82.9,164.15,281.5,390.27,345.67,289.34,1200,876.36,872.5 12953.67,795.36,410.2,343.51,2512.7350H$:H(H$)::HH1H3155:NDP:DI"ND$((ND))GI15:NC(I):NC$(I)((NC(I)))lNCNCNC(I):PNC(I):540:NC(I)Pv:CINC$((NC))SB2440.49:SB$((SB))SC7341.85:SC$((SC))SOSCNDSC:PSO:540:SOP:SO$((SO))2 123.5,254.nd - position: ";::CH:Q 22:"PRESSEZ UNE TOUCHE ";:R$:2:958:120,160 :22:"(E)ncore (B)asic (S)tartup disquette: ";:R$ R$"E"R$"e"Ĭ R$"B"R$"b"ė: R$"S"R$"s"ĺ(4);"RUN /T20/STARTUP" 170dd:(17):3iNOMBRE24:NBASE(NO),NMELE(NO)en:" ** LE MELANGE ALEATOIRE D'UNE SERIE ** "ns:3xI1NO:NBASE(I)I:}INOMBRE11MELE1((1)I)NMELE(I)NBASE(MELE)NBASE(MELE)NBASE(I):Attention! liste de base d{trui :(21):D$(4)U(116)150ĺD$"-PRO.FP":"Supprime toute commande externehPA$"FONTSOFT"~(D$"-"PA$"/FLOAD"2D$"-"PA$"/ESSAI"dFONTESuHUSTON!' 'STARTUPo!u.nPRO.FPp!nFONTSOFTqnFAPLnFONTGSBnup disquette: ";:R$, R$"E"R$"e"ĬC R$"B"R$"b"ė:o R$"S"R$"s"ĺ(4);"RUN /T20/STARTUP"x 170dkmLE(I,J);8 T(I)T(I)TABLE(I,J):V(J)V(J)TABLE(I,J)U :V(COL1)V(COL1)T(I){ " > ";((" "(T(I))),7): I110:"----";: I1COL1:AF$((" "(V(I))),7):ICOL1ĺ" > "; AF$;:: :22:"(E)ncore (B)asic (S)tartd:(17):JiLIGNES15:COL4:TABLE(LIGNES,COL),T(LIGNES),V(COL1)|n:" ** DOUBLE TOTALISATION D'UNE TABLE ** "s:3:NALEA99998: Nbre maximum-1 xI1LIGNES}J1COLTABLE(I,J)1((1)NA) (J7)1((TABLE(I,J))):TAB$"S"R$"s"ĺ(4);"RUN /T20/STARTUP"0170dhjte ,I1NOMBRE:E$" ":I9E$""YE$;::I;::" "NMELE(I),:I3(I3)ĺ_22:"PRESSEZ UNE TOUCHE ";:R$:2:958:120,160:22:"(E)ncore (B)asic (S)tartup disquette: ";:R$R$"E"R$"e"ĬR$"B"R$"b"ė:'R hgʎX?kύX! "&#Í' / XI `x A`ctϾ p&о־޾Ǿ pʾ Ⱦƭɾ H gch8`ȾپɾھnmȌؾ׾ p gcc cccVc ci^c6H7HɅ c ~c깣b oc oc Ⱦ ɾb ocɅh7h6`޾LpxH ~ch(`uwa a >? , a`l<ȥ<<ȥ<c?ƅcةB8C< ȱ<ȱ<ɿ  ac? "@ A B C D E F G H I J K L M N O P Q R S T U V V W X Y Z [ \ ] ^ _" " a b c d e f g h i j k l m n o p q r s t u v w x y z { | }" " ! "(162)" # $ % & ' ( ) * + , - . / 1 2 3 4 5 6 7 8 9 0 : ; < = > ?" drtETIC":90 PI ZD$"FLOAD"PA$"/"FT$",A1":"Charge la fonte en slot1W dD$"PR#1" n"Essai de caract}res personnalis{s "FT$ xFT$"FONETIC"FT$"COUNT"ĺES$"Q"; ES$"!"ES$"'";:170:ES$"$"ES$(34) ES$"E" D$"PR# A$C307" E ********** ESSAI */********* \ (21):::D$(4):ES$(27):D$"PR#3":xPA$"/TM20/FONTES/FAPL""Impression Fontes (O/N) ? ";FT$:FT$"O"FT$"o"Ā(FT$"COUNT":902FT$"EPSDROITE":90<FT$"ITALEPS":90 FFT$"FONFONTSOFTuHUSTON!' n'%ESSAIsu.q%FLOADvG`Dq)K.FLOAD.SyJ \$ q)RELOPRO.S2q'FLOAD.S\" qccL 232NZ Z ZD Ġ謠 ˮĮ Ϯ Į ~ ̩ Ԡƍ 썪 𱍪 𲍪 𱱍ҠҍԍԠύԍԠčԍϠˍ֠č΍ 卪 ΍ ¬ ɍ ɍ 卪 򧍪 쫨 𱍪 𲍪 썪 𽱶 ¬ɧ 􍪍 卪 ˠĠ ō  㪪Ӡ Ӡ Š Š Ԡ ή ЮЮ̮Ů xz{|} ͠ Ǎ͍ǫǭ 占ǭ̭č̭īĠ Ϯ ۹ōҫ 占 占Ҡ Ӡ 卍΍ ī 占ؠī 占ؠī 썪 卪 對Ġ 卍Ϡōؠī ؠī就           Š      àč٠ĭϭϬٍҠԍٍ̠РٍϠؠĬ֠ Χ ŢčǠԭͯҠҠ ㍻ŰĠ٫ҠƵɠưРƵ ҍ´ ԠĠ ŠŲà ̯ȭ ̯ȩ ̯ȍԠǠĠà Š ō ōҠĠō Ӎ٠ 㰲 占ϠōīōӠ΍ÍàǠ Ԡ ፠ àǫ 󧍠ԫ㱠٠٠占Р Šɍٍ٠占Šɠ ɍ Į Ҡҍà򠽠 ٍĠ؍Í̠ҍ؍̠̍ЬٍЬٍ؍؍ؠàӍҠӠ卍͠ ōР ፠ōӠ ΍ǫÍàԍؠ 占Íàԭͯ 卺ҍҍҬٍٍӍŠ٠ ث ٠ Ҡ؍̠ōӍԠϠàٍà䠻 􍍠ٍǍРٍٍǫàٍӠ䠻 ýٍٍàԠ占٠ 占ٍٍàԫ ç ԿčРٍٍī­Ġ īҠōҠԍϠԍЍōӍ΍РҩԿؠ 占Ҡōà㲠 卍ϠӍà ōӠ ΍ϠӍà ōӠ ΍ӭ ӭ㲠 ٽҠؠà ٠ ٽҠԿ٠ ٽ ؽ ҠŠ à㱠 Ҡ Ҡ Š 卻 Ġ ؠ ؽ ٠  ɠ٠٠占Ġ ٠ 占Ҡ ïҠ ï؍Ŭؠ ٍɠ堻 ٍٍРɍŠɍ٠ؠ ҠŠ ɍ Š堻 卍 ɍ 򺍻 ٠ȠנĠĠ РƠ ͠Ԡ·̠Ġ Šٍ٠čҠĠ 卪ōРӠ΍ ō̽׍׫Ϡ̍豠ñ 占Р Š ٠àō̍̍̍̍ÍàР占Ӡ 卺卪΍ō 􍍠ð 󍍪Ϡ̍ī򫲍豫貫̍̍̍̍ 󰍠Íƫԫ٠īčѠ㍠٠ 卺٠ ٠򫱍ȍ 占Ҡ͍ӠҍҠ 占ӠҠ 򍍠ƫŠӠ ƍРƫàà덍ӠĠ ȍҠҠōÍӍƍ٠ƫ ø ΍Ҡ͠ 占ӠҠ ͠ 屍͍͍͠ 捠ı ƍҠ͠ čР ŠӍؠ ӫ̠堻 𩍍Ҡ 占ĠѠ堻 ؍ؠ􍍺٠ͫ 卍Š ōؠà   ҍÍӍԠύô ύҠ͠ ӠҠ ӍĪčӠ Ҡ à堻 ΍Ыàī ˬ ýà ذ ӠԠ 奱Ӡ 占ӫ Ӭ ččҍԍԠ ç čҫÍӍԍѠԍŠؠ 卍Šؠĭōέ؍ĠƍҠŭ؍ÍŠԍ؍Šؠ͠ ؽĭŭ 姍΍Ġ ٠РōčԠР΍ԠРӍ٠Šԍ٠ŬٍҠԍٍ٠ĭūàҠ٠䍺䭤ٍҠԍٍŠ썍 ō٠ٍҠԍàŠ沍à򫱍àȍ沠Рƍȍàƫà썍 ō٠䍺䭤ٍҠԍٍŠ썍Ϡ̍負ñ 占Р Š ΍ +I K!K@"K#Kk$K$b#%KA"D"A &K0BH"P'K(K8D)K@ *K (+K( ,k P -K.K@ @ /K@ 0K8BA!1K@bF2K@`PH3K FAPLuHUSTON!' n''ITALEPS@t %COUNT@t )EPSDROITE@t 'FONETIC@t İ͠ĶķĸԠĹ͠ōԠčӠƵ ōԠƍҠŵŵΠŵ͠ŵӠŵŵӠŵŵҠŵŵ͠ŷΠŹōϠ´Ġ¸͠÷ƠøùƠŠƍ͠ŭ΍Ӡ 䠻ŠàĢĠà 𾢍ĠؠčԠ̠ΠؽӠ 䠻Ϡō ìħ ؠčōӠ 䍪ō ì  ì ͍ ì 􍪭΍Ӡؠč àΧ Ϡō ìڧ  ìڧ ҍ ӍĠؠñ٠ 占ؠ򫱍ؠī ٠ Рñ 卍ǍӍ٠ٍōԠññ ɠð Ӡ΍ЍԽŠ͍à ōР͍ԠЍɍϠ̍٠ٍ٠Ơ ōҠčð 卪ōРӠ΍׫׍ӍAIM24Kb5K AA!6K0HHH07K@! 8K0FAA19K@  :K@(D(;k T"K@ ?K@@K PQP8@AK@ BK`FHH1CK8DAA!DK`F@ EK`CAAFK`GAEK14K5K'@@@@96K0HJHH07KA 8K6IIII69K @) :Kll;kvKA"?KP@K PQP8@AKxxBKA>AAA6CK>AAAA"DKA>AAA"EKIIIAFK G+I K!KO"K#Kk$K$**%K@#b`&K2HR H'K(K"A)KA"*K**+K>,k0p-K.K``/K@ 0K"AA"1KB@2KB`PHF3K!mHx| x xnHx||xoH8||DD8ph""qh""rHx||sH(LTTd(tH?D$uH<||@@<vH <|@0 wH<`<`|<xHl||lyh~zHdt|\LD{H8|~UTH|H<|yB@<}H8|}VTH~HSH&O]]y2THUH?@@?VH?x8WH?`?`?XHwwYHxxZHaqyOGC[H\h""]HJUUU(^H_h`HaH8DD<|xbH?DD8cH8||DD(dH8DD?eH8||TTHfH~ gh|hHpiH}}}jH@}kHvlH&II>:H;hvwc=Hlllll>H~<?HQ__@H8|E>|xAH~~BHII6CH>AA"DHAA>EH>IIAFH~ GH>AQ2HHIHJH @?KHwLH@@@MH~~~NH~~OH>AA>PH QH>AARH v-I H!Hoo"H#H$H&o{2%HF&db&H0~IV PH'H(H>wc)Hcw>*H**+H|,hp-H.H``/H@ 0H~AA?1H2Hbq_F@3H"AI64H5H/K{{{36H>II27Hay8H6II69H`oK0H@$pk8   qk$"rK`sK@@@ tK0LDuK0L@@0LvK| wKp  `xK@$ HykH zK@dTL{K0H@@|K0LA@0L}K0HA@~K[K\k""b"]K UUU(^K_k`KaK PPP$XbK`GD$cK0@@@dK0@@`eK0HDDfKdgkbhK`diK@dDjKdkK` HlK@0FmKd`dnKdK8DAI HK``IK@aGJK0@@ KK`"@LK`F@@MK` bNK``OK0LAA PK` QK8BQ!PRK`(ASK FII1TKaUK0L@@0 VK WK`#`XK@!$@YKdZK@ QIEK>AAAA:HKIKAAJK0@AA>KK"ALK@@@@MKNK OK>AAAA>PK QK>AAA ^RK  FSK&IIII2TKUK?@@@@?VK @ WK?@   @?XKA""AYKpZKA QE Nouvelle valeur de 'OR'7<#;E$"Z ");: Pas de LF si ligne pleine9F#;E$"l1";: Pas de CR avant LF et FF,P#;E$"Z"));: Pas de LF apr}s CR,Z#;E$"Z")" ";: 8[ bit reconnuBOUCLE1dA%=߁^:   DEMO.CAR.PERSODEBUT3 fin: A toutes fins utiles...: ,:E$=):"D{monstration des caract}res personalis{s #@[\]{|}~"8(".PRINTER",ߓ#: Ouvre le port imprimante?2setoutglobals(,): FONTGSBuHUSTON!' n'.DEMO.CAR.PERSO b /CARAC.PERSO.GSB bA@mH||xnH|xoH|DDD8ph"""qh"""rH|sHTTTT tH?DDuH4L@@L4vH @ wH<@  @<xHD((Dyh>|zHDdTLD{H6AA|H``}HAA6~HFSH>III>THUH4L@@0 VH @ WH>AA"XH>AA"ѦYHxZH2JMI0[H\H  @@ ]H^H_h`haH$TT(TTXbHDDDD8cH8DDDDdH8DDDDeH8TTTfH~ gh|hHxiHD|DjH@}kH(DlHH $:Hll;hvHA"?HQ @H AH TTT8@BHIIII6CH>AAAA"DHAAA"EH PTT4FH GhBbHH~IHAAJHRPKHQULh! MH|xNH|xOH(DDD8PHQH>AAQ!^RH )-I H!HO"H#H$H%H&H'H(H,hp-H.H``/H@ 0H>QIE>1HB@2HBaQIIF3HDTTT(D4HD}@D5H<@@ |D6H0TTT87H(DDD8D8H8DD(|D9HxoK8DDDD8pk"""qk"""rK|sKTTTT tK?@@@uK<@@@<@vK @ wK<@  @<xKD((DykP zKD DDD{K8DDED|K<A@<@}K8DEDD~KA[K\k""b"]K UUU(^K_k`KaK PPP8@bKDDD8cK8DDDDdK8DDDeK8DDDDfKv gk"""~hKxiKD}@jK}kK(DlKA@mKxxxnK| Boucle de lecture/nC%:#;C%);4x: {criture des datas0#;E$"D ");: LF si ligne pleine9#;E$"l0";: Ajoute CR avant LF et FF+#;E$"D")" ";: 8[ bit ignor{rge le fichier7#: Ferme le fichierRFonte!()<>߈Fonte!()<>+߉Fonte!()<>-߈Fonte!()<>߈Fonte!()<>Ifin/EIWII: A tout hasard/".PRINTER",ߓ#: Ouvre l'impriFonte$):ߍx%erreur: Si x% = 0: fichier inconnu/Fonte$,ߒߓ#: Nous ouvrons le fichier6y%=߰):y%>fin: Fichier trop grand --> fin9Fonte!():Fonte!(y%): Dimensionne le tableau:#,y%,;Fonte!(): ChaOUNT":,a:P$"EPSDROITE")d ,a:P$"FONETIC": ,a:P$"ITALEPS":n,a:"(c) Avril 1988 Tremplin Micro & Emile Schwarz"s5xEPRODOS: Si erreur ProDOS...<:"Nom ProDOS COMPLET de la fonte @ charger: ";Fonte$:x%= Ctrl-I Z plus reconnu5(presente: Trace un cadre 2, :E<"Utilitaire de chargement de fontes de caract}res personalis{s";F:6P,a:"Fontes pr{sentes sur la disquette /TM20/ :"'Z,a:P$"C C CARAC.PERSO.GSB Charge une fonte et l'envoie @ l'imprimante( E$=):a=:P$="TM20/FONTES/FAPL/"6Fonte!(): Faux tableau...Dtdf: V{rifie la pr{sence du fichier texttool.tdf<#CtrlIZOff: harg{ alors...:"Un instant SVP, ";4"je charge le fichier /gsb/tdfs/texttool.tdf":߄"/gsb/tdfs/texttool.tdf"0".PRINTER",-:".PRINTER",: Pas d'auto LF ވtdf2------------------------------------------------------------&< Proc{duresAF------------------------------------------------------------TDF ͈tdf "SetOutGlobals",o1%,f2%,x3%7o1%: Si le fichier a d{j@ {t{ c3,072,000,000,008,054,065,065,000,000CAR7- 124,072,000,000,000,000,127,000,000,000CAR8- 125,072,000,000,065,065,054,008,000,000CAR9- 126,072,002,001,001,002,002,001,000,000EPIL  0043 (c) Avril 1988 Tremplin Micro & Emile SCHWARZAT 035,072,020,127,020,020,127,020,000,000CAR2-^ 064,072,028,034,065,008,085,000,085,014CAR3-h 091,072,000,000,000,127,065,065,000,000CAR4-r 092,072,000,001,002,004,008,016,032,064CAR5-| 093,072,000,000,000,065,065,127,000,000CAR6- 12est termin{!. ---------------------------------------- PROL pour Prologue,," CAR1 @ CAR9 pour chaque caract}re,, EPIL pour Epilogue.6.@ ----------------------------------------PROLJ 027,045,027,073CAR1- caract}res gras #;E$"'";"#@[\]{|}~";E$"$";5#;E$");: Fin des caract}res gras1#;"": Passe @ la ligneFINAsetoutglobals(,): Fixe les valeurs standards-#:: C'1#;"": Passe @ la ligne5#: Ferme provisoirement9".PRINTER",ߓ#: Pour le rouvrir aussitot!3#;"D{monstration des caract}res: #@[\]{|}~ ";:#;E$"!": D{but desmanteJsetoutglobals(,): Fixe la nouvelle valeur 'OR'=#;E$"Z ");: Pas de LF si ligne pleine?#;E$"l1";: Pas de CR avant LF et FF2#;E$"Z"));: Pas de LF apr}s CR2#;E$"Z")" ";: 8[ bit reconnu5i%=߁y%-: Envoie la fonte"#;Fonte!(i%));,86#;E$"D ");: LF si ligne compl}te?@#;E$"l0";: Ajoute CR avant LF et FF+) hވrecup--RECUP ͈recup6"a%,b%: Ce sont des variables locales4,a%=:b%=: qui ne servent qu'ici! 6b%<>8@b%=Fonte$,"/",a%+): Recherche la pr{sence de "/"Jb%a%,b%T*^#;"Test de la fonte ";Fonte$,a%ort s{rie --IZOFF<͈CtrlIZoff: Supprime la reconnaissance du Ctrl-I "Z"),: par le port s{rie ߵ)>&".PRINTER",ߓ#:#;)"Z";:#ވCtrlIZoffD -- R{cup}re le nom de la fonte et l'envoie sur l'imprimante met la reconnaissance du CHR$(9)"Z" par le port s{rie --IZON=0͈CtrlIZon: R{tablit la reconnaissance du Ctrl-I "Z"*:CtrlIZ%=ߵ): par le port s{rieD,CtrlIZ%-NވCtrlIZonD -- Inhibe la reconnaissance du CHR$(9)"Z" par le pPRINTER",-:".PRINTER",: Pas d'auto LF ވtdfD -- Affiche un rectangle de pr{sentation @ l'{cran -- PRESENTE(͈presente2::"-",P)"!"; : Retour au traitement d'erreur standard!,!::)"Nom incorrect": i%=߁4: Boucle d'attente(EIWII=hoix: ";:$x$:x$:x=x$)-))Dx>߉x pour CATALOG "::"<2> pour Continuer"&:"<3> pour Fin " 0:"Votre Cct}res perso.;#;E$");: Fin des caract}res gras,#;E$"E";: Elite8#;"": Retour @ la ligne<EIWII: Le programme est finiF -------0 1 2 3 4 5 6 7 8 9 : ; < = > ?",#;"@ A B C D E F G H I J K L M N O P";*#;" Q R S T U V W X Y Z [ \ ] ^ _ `"*#;" a b c d e f g h i j k l m n o";(#;" p q r s t u v w x y z { | } ~"@#;E$"$";: Fin des caraHR$(9)"Z"Br#;E$"!";: On passe en caract}res gras4|Fonte$,"EPS")#;E$"q";: Compress{ si 'EPS'B#;E$"'";: D{but des caract}res perso.,#;" ! "")" # $ % & ' ( ) * + , -";.#;" . / 7J#;E$"D")" ";: Huiti}me bit ignor{?T#;"": Retour en d{but de ligneYF^ -------------- Ecrit la fonte personnalis{e --------------------c=hCtrlIZon:recup: Active la reconnaissance du CQDuHUSTON!'  '+QD.DEMO.GSB N@Z (QD.DEMO1K52(QD.DEMO2K59 ECTb͈framrect(c%,y%,x%,v%,h%)crect(y%,x%,v%,h%)dsetsolidpenpat(c%)eframerect(ptr@)fވframrect PINTOVALl͈pintoval(c%,y%,x%,v%,h%)mrect(y%,x%,v%,h%)nsetsolidpenpat(c%)opaintoval(ptr@)pވpintoval FވmsgINVERTN͈invrect(y%,x%,v%,h%)Orect(y%,x%,v%,h%)Pinvertrect(ptr@) QވinvrectCORECTX͈rect(y%,x%,v%,h%)Y(rect!(),)=y%Z(rect!(),)=x%[(rect!(),)=v%\(rect!(),)=h%]ptr@=rect!()) ^ވrect FRAMER(y%+,x%+v%-)8moveto(y%+h%-,x%+) 9lineto(y%+h%-,x%+v%-) :ވboiteMSGD͈msg(y%,x%,sfc%,sbc%,a$)E(msg!())=^a$Fsetforecolor(sfc%)Gsetbackcolor(sbc%)Hmoveto(y%,x%)Idrawstring(msg!())) J------------------------------------------------BOITE0͈boite(y%,x%,v%,h%)1moveto(y%,x%)2lineto(y%+h%-,x%) 3lineto(y%+h%-,x%+v%-)4lineto(y%,x%+v%-)5lineto(y%,x%)6moveto(y%+,x%+)7lineto},,,,"paintarc"):msg(&,,,,c$)Dinvrect(,,,@) N$x$:finERREUR$X:"?"߿)" error in line "FINb:?-----------------------------------------------------------&. Proc{dures?/----------(,d,,,"frameRrect")pintoval(,x, ,,n)msg(,,,,"paintoval")framoval(,x,,,6) msg(,,, ,"frameoval")BOUCLE4 i%=߁ "pintarc(j%,P,n,,,k%,)"j%=j%+:k%=k%+:k%>ഌk%=-k%&0msg(,"paintarc")!framarc(, ,P,,,,)msg(,(,, ,"framearc")framrect(, ,",,6) msg(,(,, ,"framerect")#pintRrect(,7, ,Z,n,,)!msg( ,d,,,"paintRrect")$framRrect( ,7,,Z,6,,)!msg(,,,h)6msg(&,g,,,c$)@$x$IMAGE2 J@:6Tsetsolidpenpat(): Couleur du crayon: Blanc^boite(,,,@)hpintrect(, , ,,)rmsg(,(,,,"paintrect")#|pintarc(, ,P,,,-Z,-Z)msg(d,(,,)BOUCLE2i=߁߇-msg(3,,,i,a$)msg(.,,,i,b$)'msg(f,g,i,,"(c) 2 Mars 1988")BOUCLE3 A&=߁invrect(,,,@)invrect(,,,)invrect(d,,,@)invrect(,,d,@)",invrect Z߄"/GSB/TDFS/quickdraw.tdf"SAUTE d@:IMAGE1ny%=:x%=:v%=:h%=@BOUCLE1 xI%=߁framrect(i%,y%,x%,v%,h%)'y%=y%+ :x%=x%+ :v%=v%- :h%=h%- msg(3,,,,a$)msg(.,,,,b$)pintrect(,[,[,m, QUICKDRAW.GSBDEBUT :erreur *b$=" Tremplin Micro et Emile Schwarz "*(c$="Pressez une touche pour continuer"-2a$=" IIGS Basic: Quick DrawII Demo ":j%=<msg!(),rect!()F"QdStartUp",q1%,q2%,q3%Pq1%sauteRAMOVALv͈framoval(c%,y%,x%,v%,h%)wrect(y%,x%,v%,h%)xsetsolidpenpat(c%)yframeoval(ptr@)zވframovalPINTARC%͈pintarc(c%,y%,x%,v%,h%,ad%,va%)rect(y%,x%,v%,h%)setsolidpenpat(c%)paintarc(ptr@,ad%,va%) ވpintarc PINTRECT͈pintrect(c%,y%,x%,v%,h%)rect(y%,x%,v%,h%)setsolidpenpat(c%)paintrect(ptr@)ވpintrect PINTRRECT'͈pintrrect(c%,y%,x%,v%,h%,lo%,ho%)rect(y%,x%,v%,h%)setsolidpenpat(c%)!paide l'{criture: Noir2FDrawString(msg!())): Ecrit le message4P$A$:: Attente clavier, puis finZ |͈outil"QDStartUp",o1%,f2%,x3% o1% ߄"/gsb/tdfs/quickdraw.tdf" ވoutilcherI((msg!())=^a$: Stocke la chaine a$ @ la Pascal: 1[ octet = longueurC-MoveTo( , ): D{but de l'{criture en 10,10=2SetBackColor(): Couleur du fond: BlancB<SetForeColor(): Couleur  QD.DEMO2; msg!(): Nombre de caract}res maximumBoutil: Charge {ventuellement quickdraw.tdf<@:: 320 points/ligne + affichage {cran SHGR4a$="Vive le GS Basic!": Chaine @ affi Attente frappe clavier, puis fin |͈outil"QDStartUp",o1%,f2%,x3% o1% ߄"/gsb/tdfs/quickdraw.tdf" ވoutilrticale, h% = position horizontale=Pptr@=rect!()): ptr@ = adresse de la table rect!(0):::"Un instant, je sauve le contenu des tableaux"H:"PICS.256.F2",ߒߓ#,R:#,,;menu1!()\:#,,;menu2!()f:#,,;menu3!()p:#,,;message!()z:#,,;msg1!():#,,;dtitle!():#,,;w1title!(),d%-(e%+))):c%=c%+:testDONEGtop@=dest@+l%-:x%=DHpk@=dest@߁top@ Hz%=t!(x%) Ipk@,z% pIx%=x%+IDOZERO8Jdoset%=l% Jއdoset%)=b%TEST!@Ge%=vstr$,"\\",d%+):f%=f%+EGe%h%=d%:suiteJG(t!(c%))=vstr$,d%+)%OGl%=vstr$)-(߻b%))+)*f%:doneSUITETGd%=vstr$,"\",e%+)B^Ge%>(h%+)a$=vstr$,h%+,e%-(h%+)):(t!(c%))=A$:c%=c%+A$)6|G(t!(c%))=vstr$,e%+x%=vstr$=vstr$))+vstr$Fvstr$=vstr$+)BSTR+Gl%=vstr$):(t!())=*vstr$),l%:doneFRENCH"Gvstr$=vstr$,)+)'Gc%=vstr$,"\\",),G(t!())=vstr$,,c%-)1Gd%=vstr$,"\",c%+)!6Gb%=vstr$,c%+,(d%-c%-)));G(t!(c%-)tr$=߻vstr$))2Cx%doint,doint,dbl,doint,bstr,xstr,xstr,doint"\D(t!(),)=vstr$):l%=:doneDBL"D(t!(),)=vstr$):l%=:doneDOINT'$Evstr$,,)="0"vstr$=߻vstr$))#Et&=vstr$):l%=x%:t&=dozeroE(t!(),x%)=t&:doneXSTR!PF DEFDOSETA͇doset%(dest@,vstr$)"Ba%,b%,c%,d%,e%,f%,h%,l%,x%,a$GOBBLE.hBvstr$,,)=" "vstr$=vstr$,):gobble!Bx%="!%#@$^*&",vstr$,,))Ba%="\",vstr$,,))Ba%߈x%french0Cx%vstr$=vstr$,)'Cvstr$,,)="0"vs"WindStartUp",q1%,q2%,q3%4q1%="6/quickdraw.tdf"please.wait "PICS.256.F2",ߒߓ#,` #,,;menu1!() #,,;menu2!()( #,,;menu3!() #,,;message!() #,,;msg1!()T #,,;dtitle!() DOODDDDDDOOOOODOOOOOODOOO_U__U_U____U_U_ __U______F*OOOOOOOODDOOODDU_UUUU_U_UU__U_UU _UF*OODDOOOODOODOOOOODDOOOOU__U_U_UUF*OODDODOOOOOOODOOOOODOOODDDOU_UUUU_U_)B#,N,;w4pb!():#,N,;slinfo!()t#,N,;SrcRect!()~#-msg("'Nother 'Nother Moment Please ...") #,,;w1title!() #,,;w2title!() #,,;w3title!() #,,;w4title!() #% msg("'Nother Moment Please ...")H "PICS.78.F3",ߒߓ#,N& #,N,;dpb!():#,N,;w1pb!()'#,N,;w2pb!():#,N,;w3pb!()GSB.HELLOuHUSTON!'  ')GSB.HELLOCT ROGRAMMATION!"^ F:"* Une copie de la premi}re face figure sur la seconde (prot{g{e)." P:"PRESSEZ UNE TOUCHE: ";:R$:(4)"RUN STARTUP" ui sont en Applesoft peuvent natu-rellement etre transf{r{s sous DOS 3.3 au moyen des utilitaires habituels." <:"Le programme en C de la revue ne figure pas sur la disquette: c'est une applica-tion que Claude Aubry vous propose commeexercice. BONNE P :(21)-:" A T T E N T I O N ! "5:("Cette disquette ne pr{sente d'int{ret que si elle est accompagn{e du num{ro 20de TREMPLIN MICRO. Certains programmes ne fonctionnent qu'en GSBasic. Tous sontpr{sent{s sous PRODOS."p 2:"Ceux qsetoutglobals(,): Valeurs standards des masques.FINerreur: Branchement sur ERREUR s'il y a lieu...".PRINTER",ߓ#:#9setoutglobals(,): Fixe les masques AND et OR%)"D")): Z{ros barr{s.#ERREUR:: R{tablit le mode standard de traitement d'erreur>or.tdf"P߄"6/memory.tdf"Z߄"6/misctool.tdf"d߄"6/quickdraw.tdf"n߄"6/desk.tdf"x߄"6/event.tdf"߄"6/scheduler.tdf"߄"6/sound.tdf"߄"6/adb.tdf"߄"6/sane.tdf"߄"6/intmath.tdf"߄"6/texttool.tdf"8  GSB.HELLO am{lior{!DEBUT&".PRINTER",-: Supprime .PRINTER3".PRINTER",: Installe .PRINTER sans AUTO-LF,(: R{serve $FFFF de m{moire2,"/gsb/tdfs"2<"Un instant SVP, je charge les fichiers .tdf"F"6/locat