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 (Щ ߍ  GETSeð!% YAMlưưIOFUNCǰǰMSDOS)T21TAVISION' PRODOS: BASIC.SYSTEM&( 'STARTUP; (PREMIERS>D DATE@ްDISTANCESA >dLԡm#i㰼m#iЕOLԡȱfg hi !dLԡ憦  Ljmkm l y`2 Lԡ8(Je稽)ʈ@LLnSOS BOOT 1.1 SOS.KERNEL SOS KRNLI/O ERRORFILE 'SOS.KERNEL' NOT FOUND%INVALID KERNEL FILE: xةw,@  ȱlmi8#)!)? &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 NP(PT)(NNP(PT))UN0$ PTPT1F NP(PT1)(NNP(PT1))UN180S UN250h NTNT1:NP(NT)N~ HH6:H34H1: H:N; NN1 NTND160 23::3 :" (E)NCORE (M)ENU DISK (A)PPLESOFT: ";::R$ "R$"Z"R$((R$)32) ,=?"-";:= P22:"Combien en cherchons-nous (2 et +) ? ";N$S ZND(N$):ND200` dND280l nNP(ND) xNT1:NT=Nombre de premiers trouv{s NP(1)2:H5:8 I2N:NP(I)0: N3:D{part UN1:Vaut 1 ou 0 PT1:Pointeur NN :(21):2T$" NOMBRES PREMIERS "H((41(T$))2:T$P2:<" Un nombre est dit PREMIER s'il n'admet pas d'autre diviseur que lui-meme et 1. EXEMPLES: 1,2,3,5,7,11,13,etc." F21:1:I140:GET SPECIAL (Plus),GETS/GETS.BAS1O GET SPECIAL (Txt/Gr),GETS/GETS.BAS2s LANGAGE C (LIT.C),IOFUNC/LIT.C FACTURE (YVAN KOENIG),FACTUR/STARTUP  PRODOS.NDA (LIT.C),PRONDA/LIT.C CADRE (TURBO.BASIC),MSDOS ECRAN CHANGEANT (TURBO.BAS7Ģ17:"RETOURNEZ VOTRE DISQUETTE ";:RR$:a P0:LL(P$):I1LL:(P$,I,1)"/"PI:ILL :PPF$(P$,P1):P$(P$,P1):(4)"PREFIX"PF$ (4)"-"P$ :: DISTANCES (Perrot),DISTANCES/START GET SPECIAL (Nestor),GETS/GETS.BAS& :<---------------------";J x"LETTRE=RUN ESC=QUITTER OU FLECHES ";:R$b 22::R$(27)500 R$(10)R$(21)ė:V2:50 R$(8)R$(11)40 R$"Z"R$((R$)32) R$(NL64)R$"A"110 :I1(R$)64:P$,P$::II10 I6I :(21)::E:" * DISQUETTE TREMPLIN MICRO NUMERO 21 * ":O34,2_(N0:V2::i2NN1<P$,R$:P$"*"Į:NLN1:N0:110FVV1::V:1:(64N);:P3);P$;:41(R$):R$;ZV22NLN:110d50 n23:"-------------------LLwLLL) `8` ԠŬLLʮq$6,⨁ K6, VtI=v!gNVt Vt  lg~TR$"E"Ĭ+ 6R$"M"ĺ(4)"RUN STARTUP"< @R$"A"270B J kmarin international)" IV$" 2 "NR$" la longueur (PR) d'une portion de parall}le de 1 minute est {gale (en Km)":" @ 1.852 * COS (LA) -LA {tant la latitude du parall}le-."` IV$" 3 "NR$" sur une faible distance (quelques centaines de kilom}tres)EGHIJKLl permet de d{terminer les distances entre 46 villes de FRANCE (2 @ 2 )" 1403,10:"Le calcul est bas{ sur le fait que :" IV$" 1 "NR$" la longueur (MR) d'une portion de m{ridien de 1 minute d'angle est {gale":" @ 1,852 Km ({quivalent au mille ;d---------------( EXPLICATIONS )---------------------SiD$(4):D$"PR#3":knIV$(15):NR$(14)s"-Voici quelques explications concernant les programmes "IV$" MONDE "NR$" et "IV$" FRANCE "NR$x:IV$" PROGRAMME 'FRANCE' "NR$" :":J }"-I H$"2"ĺD$"RUN MONDE"8 H$"3"ĺD$"RUN FRANCE"g H$"4"ė:D$"PREFIX/T21":D$"RUN STARTUP"v 198:165BDe programme 'EXPLICATIONS'":R 1403,10:IV$" 2 "NR$" le programme 'MONDE'": 1403,10:IV$" 3 "NR$" le programme 'FRANCE'": 1403,10:IV$" 4 "NR$" abandonner les recherches": 19:"Votre choix ";:H$:H$ H$"1"ĺD$"RUN EXPLICATIONS"dD$(4):D$"PR#3"/iIV$(15):NR$(14)pxT$"Par Jean PERROT 27 Rue du Clos Beaumois 14000 CAEN":130y}135L(T$):1403,40L2:T$:::T$" M E N U D I S Q U E T T E "::130::"Voulez-vous :": 1403,10:IV$" 1 "NR$" lDISTANCESuHUSTON!' '%STARTCw A,EXPLICATIONSF" !A&FRANCEN !A%MONDET!A la distance":" entre 2 points est sensiblement l'hypot{nuse d'un triangle rectangle dont" " les 2 cot{s de l'angle droit sont :":"- 1 portion de parall}le (PR) {gale @ la diff{rence des longitudes des 2 points";; "- 1 portion de m{ridien (MR) {gale @ la diff{rence des latitudes des 2 points": "-Le th{or}me de PYTHAGORE permet le calcul de cette hypot{nuse" 23:1403,60:IV$" TOUCHE S.V.P. "NR$" ";:H$: IV$" PROGRAMME 'MONDE' "NR$" :" 1403,25:"-Ce programme d{termine V$:B1 A0B0355X A0:DN(LO(1)LO(2)):DP1.855DN(LA(1)PI10800)z DL(LA(1)LA(2)):DM1.852DL DS(DP2DM2):DS(DS) I130:BZ(49200): :"A vol d'oiseau, la distance entre ";IV$V1$NR$;" et ";IV$V2$NR$;" est de MOPQRd325 :l :"Nom de la premi}re ville DANS L'ORDRE ALPHABETIQUE (RETURN = FIN) ";V1$::V1$""ė: "Nom de la seconde : ";V2$:V2$V1$225 I14633 V$,LO,LA V$V1$LA(1)LA:LO(1)LO:V1$V$:A1 V$V2$LA(2)LA:LO(2)LO:V2$8d ----------( PROGRAMME VILLE.FRANCE )---------- PiD$(4):D$"PR#3":wnPI3.1415926535:R20000PI:A0:B0s:IV$(15):NR$(14)x320}:"Voulez-vous voir les villes concern{es ? (taper "IV$" O "NR$" pour OUI) ";:H$:H$ H$"O"(4)"RUN STARTUP"!998:265e supposee spherique (longueur d'un grand cercle --> 40000 Km)" 23:IV$" R "NR$" = Revoir explications "IV$" M "NR$" = MENU disquette "IV$" F "NR$" = Abandonner ";H$:H$:H$"R"ĬH$"M"ĺ(4)"RUN START"H$"F"ė:(4)"PREFIX/T21":angle sph{rique) et A, B et C, les angles di}dres oppos{s on a notamment la FORMULE suivante :":1403,15:"COS(c)=COS(a) * COS(b) + SIN(a) * SIN(b) * COS(C)"A:"-Les cotes du triangle spherique sont alors des portions de GRANDS CERCLES de laterrtriangle envisag{ est ici l'intersection du t{tra}dre dont le sommet est le""centre de la terre,et dont les ar}tes passent par le pole NORD de la terre et":"chacun des 2 points envisag{s."a:"Si a, b, c sont les faces du t{tra}dre (cot{s du tri nombre des villes du monde"v"entr{es en DATA. Il suffira de modifier la valeur de NV @ la ligne 50 de 'MONDE'"23:1403,60:IV$" TOUCHE S.V.P. "NR$" ";:H$:N"-Le principe du calcul est bas{ sur la r{solution des triangles sph{riques":"Le d'{t{ ou d'hiver qui":"peuvent exister dans d'autres pays que la FRANCE, mais il tient compte des dates";"en pr{cisant, @ la suite de chaque heure, s'il s'agit du jour J ou J-1 ou J+1."::" -L'utilisateur pourra, @ son gr{, augmenter le02 principales villes du monde, ainsi que les":" heures dans ces 2 villes (TU ou heure de PARIS)":"Il donne aussi l'heure dans l'une des villes lorsqu'on a l'heure dans l'autre."m:" -A noter que le programme ne tient pas compte des heurespoints de la terre, ainsi que les heures en ces 2":" points ( TU ou heure l{gale de PARIS) donn{s par longitudes et latitudes":IV$" 3 "NR$" On peut avoir la liste des 102 villes entr{es en DATAs":gIV$" 4 "NR$" les distances (2 @ 2) entre 1:" IV$" 1 "NR$" l'heure d'un lieu de la terre, soit par rapport au m{ridien de GREENWICH":" (temps universel TU), soit par rapport @ l'heure l{gale de PARIS (aussi" " bien heure d'{t{ que d'hiver).":IV$" 2 "NR$" la distance entre 2 : ";IV$;DS;NR$;" Km" 22:1403,1:IV$" C "NR$;" pour continuer ";IV$" M "NR$" pour MENU de disquette "IV$" F "NR$" = FIN ";:H$::H$"C"ė: H$"F"ė:(4)"PREFIX/T21":(4)"RUN STARTUP" H$"M"ĺ(4)"RUN START" H$(27)ė: 205 198::::IV$"J'AI DIT 'PAR ORDRE ALPHABETIQUE'...RECOMMENCEZ... TOUCHE S.V.P."NR$;" ";:198:H$:A0:B0:::135 198:"L'une des villes ne figure pas dans ma liste...RECOMMENCEZ....Touche S.V.P. ";:198:H$:1350 ANGEtre 0 et -90"Z"Longitude EST : entre 0 et +180 / Longitude OUEST : entre 0 et -180"c195w I1K:K12907IK:1403,45:"Latitude de ";V$(I);LA$(I):LA(I)(LA$(I)):LA$(I)"0"285LA(I)(LA(I))90Č198:270NLA(I):Z0;K$;" ";NR$;" ";:868:HG$:HG(HG$):HG$"0"ıLHGHG24Č198:225RrKH:V$(1)" A ":V$(2)" B ":"Les latitudes et longitudes sont exprim{es en DEGRES ou DEGRES.MINUTES":3"Latitude NORD : entre 0 et +90 / Latitude SUD : enE ou de l'heure d'hiver";:K$::K1$K$XK$"G"K$"(TU ou de GREENWICH)":CR0:220K$"E"K$"({t{ en FRANCE)":CR2:220K$"H"K$"(hiver en FRANCE)":CR1:220198:180--------( NE PAS EFFACER )-----------29:"Heure "IV$;" ""Votre choix : ";:H$:H(H$)3H1H6ĺ:170RH240,240,490,530,185,190g(4)"RUN START":(4)"PREFIX /T21":(4)"RUN STARTUP"(6:"Taper G,E OU H suivant qu'il s'agit de l'heure TU (de GREENWICH), de l'heure l{gale d'{t{ en FRANCste des villes du monde concern{es.":1403,1:IV$" 4 "NR$" Avoir la distance entre 2 villes et les heures dans ces 2 villes.":1403,1:IV$" 5 "NR$" Revenir au MENU de disquette.":1403,1:IV$" 6 "NR$" Abandonner le programme"19:1:SUVWXYZ[\]^_`abce-vous :"s:1403,1:IV$" 1 "NR$" Avoir l'heure en un lieu de la Terre par rapport au m{ridien de GREENWICH.":1403,1:IV$" 2 "NR$" Avoir la distance entre 2 points du monde,donn{s par latitudes/longitudes."&:1403,1:IV$" 3 "NR$" Voir la li4d===========(PROGRAMME MONDE )================LiD$(4):D$"PR#3":dnIV$(15):NR$(14)sPI3.1415926535:R20000PIxZ0:NV106: Nombre de villes en DATA }-----------( MENU )----------1403,35:IV$" M E N U "NR$:: "VoulH204T:23:"Touche SVP pour la suite.... ";EYH$:::320K^wc------( EN CAS D'ERREURS )------------hA0ĺ:IV$" ";V1$;" N'EST PAS SUR MA LISTE... "NR$" ";mB0ĺ::IV$" ";V2$;" N'EST PAS SUR MA LISTE... "NR$" ";r198:H$:OURG,465,2915C6TOULON,356,2588,TOULOUSE,88,2603,TOURS,42,2844\;VERSAILLES,128,2928@1403,14:IV$" DISTANCE A VOL D'OISEAU DE DEUX VILLES FRANCAISES "NR$:E:H1:V0:I146:V$,LO,LA:VV1JV:1403,H:V$:BZ(49200)OI17I34V0:HNANCY,370,2921,NANTES,90,2834,NICE,438,2622a"NIMES,259,2630,ORLEANS,115,2875,PARIS,140,2930'PERPIGNAN,174,2563,POITIERS,21,2791,REIMS,242,2955,RENNES,-102,2887,ROUBAIX,182,3041,ROUEN,65,29651ST-ETIENNE,262,2725,ST-QUENTIN,196,2990,STRASB,187,2747,DIJON,302,2960 W DUNKERQUE,142,3062,GRENOBLE,343,2711,LE HAVRE,10,2970LE MANS,12,2880,LILLE,181,3040,LIMOGES,76,2750LOURDES,1,2587,LYON,290,2744,MARSEILLE,325,2598MONACO,447,2623,MONTPELLIER,233,2616,MULHOUSE,440,2864-RS,-34,2850,AMIENS,154,3053,AVRANCHES,-82,2921h BASTIA,568,2563,BAYONNE,-90,2610,BESANCON,362,2834 BEZIERS,198,2600,BORDEAUX,-36,2650,BOURGES,144,2824 BREST,-270,2903,CAEN,-20,2951,CANNES,420,2433  CHERBOURG,-97,2980,CLERMONT-FERRAND:460:PA(I)PI2NRK"8IK:1403,45:K1ĺ"Longitude du lieu ";:300h'"Longitude de ";V$(I);,LO$(I):LO(I)(LO$(I)):LO$(I)"0"3101LO(I)(LO(I))180Č198:2906NLO(I):Z1:460:GO(I)NR:H(I)HGHL:H(I)(H(I)1000.5)100 ;H(I)H(I)CR!@:216,0:K2355SEH(1)23H(1)H(1)24:J$(1)"(jour J+1)":340JH(1)0H(1)H(1)24:J$(1)"(jour J-1)":340OJ$(1)"(jour J)"7T12:"S'il est "IV$" ";HG;" "NR$" heures ";K$;" le jour J, il est "IV$" "H(1);" "NR$" heures au lieure ";:L$:L$&L$"A"615+&198:q&ABIDJAN,-4.30,5.21,ADDIS-ABEBA,38.48,8.45,ALEXANDRIE,29.50,31.06&ALGER,3,36.38,AMSTERDAM,4.50,52.22,ANDORRE,1.30,42.30&ANKARA,32.47,39.56,ATHENES,23.45,38,BAGDAD,44.27,33.07/'BARCELONE,2.10,41.2124:J$(3K)"(jour J-1)":675Y%K(3K)23K(3K)K(3K)24:J$(3K)"(jour J+1)":675p%J$(3K)"(jour J)"%" alors il est ";IV$" ";K(3K);" ";NR$;" heures a ";V$(3K)1)J$(3K)&22:1403,11:"Taper "IV$" A "NR$" si on veut entrer une autre heu19:1403,611${K$:K(K$):958::K$"M"ĬB$K1K2615$21:958:"Si heure de ";V$(K);" = ";:" ";K(K):21:1403,15(V$(K)):IV$" ";K(K);" ";NR$;" ";"(jour J)";$K(K)0K(K)24645$K(3K)K(K)H(3K)H(K)%K(3K)0K(3K)K(3K)re d'un lieu (taper 1 pour le premier et 2 pour le second)"#l"on obtiendra l'heure de l'autre lieu..."IV$" M "NR$" revient au menu"#q22:"Si l'heure est en TU il faut ajouter 1 heure en HIVER et 2 en ETE pour avoir l'heure l{gale en FRANCE."$v0ĺIV$" "V$(1)" "NR$;" n'existe pas sur ma liste...RETURN SVP ";:605"XB0ĺIV$" "V$(2)" "NR$" n'existe pas sur ma liste...RETURN S.V.P. ";"]H$:"b------------------------------------------------------------=#g18:958:"-Si on donne l'heuR:H(2)HGHLCR:Z0:575 !:M!?V$(1)"CAEN"V$(1)"PARIS"H(1)H(1)CRz!DV$(2)"CAEN"V$(2)"PARIS"H(2)H(2)CR!IA1B1355!NA0B0ĺ"Ni "IV$" "V$(1)" "NR$" ni "IV$" "V$(2)" "NR$" ne figurent sur ma liste...RETURN S.V.P. ";:605H"SA32:14:IV$" P A T I E N C E "NR$E +A0:B0:S1NV:V$,LO,LA:Z0 0V$V$(1)LA(1)LA:NLA:I1:A1:460:PA(1)PI2NR:LO(1)LO:NLO:Z1::460:GO(1)NR:H(1)HGHLCR!5V$V$(2)LA(2)LA:NLA:I2:B1:460:PA(2)PI2NR:LO(2)LO:NLO:Z1::460:GO(2)N DU MONDE )----------------- +:195p"Nom de la premi}re ville dans l'ordre alphab{tique : ";V$(1):"Nom de la seconde : ";V$(2):V$(2)V$(1)510!"----------------------------------------------------------------------------"# &1403,I21I42I63I84V0:HH16E:I110:BZ(49200)::435:198:IV$" J'AI DIT..PAR ORDRE ALPHABETIQUE..."NR$;:198:" Touche S.V.P. ";:H$: ------( DISTANCES ET HEURES DES PRINCIPALES )------   ---------------( VILLES(27)Ā435<N1N:NN(N):MINN(N):MINMIN106WN(N)MIN:NRNPI180xNN(N1):NRNR(N1):Z0ıJ1212LO(I)7.5J15LO(I)7.5J15HLJ:::H1:V0:I1NV4:V$,LO,LA:VV1V:1403,H:V$:BZ(49200)$):615X============================================================== 23:1403,1:IV$" C "NR$" pour (C)ontinuer "IV$" M "NR$" pour retour au (M)enu de disquette ";:H$:958H$"C"ĬH$"M"ĺ(4)"RUN START" H$ J-1)":405?H(I)23H(I)H(I)24:J$(I)"(jour J+1)":405TJ$(I)"(jour J)"Z:"Il est ";IV$;" ";H(1);" ";NR$;" heures @ ";IV$;V$(1);NR$1)J$(1);"... et ";IV$;" ";H(2);" ";NR$;" heures @ ";IV$V$(2)NR$;1)J$(2)II130:BZ(49200)mC0THETAPI2:375<rS(1C2):TSC:THETA(T)TwC0THETATHETAPI|RT(RTHETA0.5):L(V$(1))(V$(2))2614:1403,40L2:"Distance entre "IV$V$(1)NR$" et "IV$V$(2)NR$;" -> ";RT;" Km" I12:H(I)0H(I)H(I)24:J$(I)"(jour":"de longitude "IV$" "LO(1);" "NR$;" degr{s ";J$(1)WYII120:BZ(49200)::435^ ============================================================== cDL(GO(1)GO(2)): DIFFERENCE DE LONGITUDEhC(PA(1))(PA(2))(PA(1))(PA(2))(DL,BASSETERRE,-61.20,16.36,BELGRADE,20.30,44.45m'BERLIN,13.25,52.32,BERNE,7.29,46.57,BEYROUTH,35.21,33.48'BIRMINGHAM,-1.53,52.27,BOGOTA,-73.48,4.22,BONN,7.05,50.45'BRAZZAVILLE,14.22,-4.12,BRUXELLES,4.19,50.50,BUCAREST,26.07,44.253(BUDAPEST,19.05,47.30,CAEN,-0.20,49.10,CARACAS,-66.52,10.39t(CAYENNE,-52.40,5,CHICAGO,-87.45,41.45,COPENHAGE,12.30,55.42(DAKAR,-17.30,14.35,DELHI,77.09,28.09,DETROIT,-83.02,42.20(DJAKARTA,106.49,-6.05,DJIBOUTI,43.09,11.59,DUBLIN,-6.16,53.18@)FORT D :(21):,(4)"BLOAD GETS.LM":3AI1879:"A";:X2039,193:1:868a768#:1:868:"Vous avez press{ la touche ";(T(6)128:T32ĺ"CTRL-";:TT64-(T)2(6)15530 71:"(1) ENCORE (2) APPLESOFT (3) MENU DISK ,,0 ,,H/,h/8L`      GETSuHUSTON!ð' 'GETS.LMfRððeGETS.BASgeð" e)GETS.BAS1@ ð# e)GETS.BAS2iư% e:.RTOKYO,139.37,35.41,TRIPOLI,13.09,32.47,TUNIS,9.03,36.40x.WTURIN,7.42,45.05,VARSOVIE,21,52.13,VIENNE,16.20,48.11.\WASHINGTON,-77,39.02,WELLINGTON,174.50,-41.23,YAOUNDE,11.37,3.49SALISBURY,31,-17.40,SAN FRANCISCO,-122.30,37.45,SANTIAGO,-70.40,-38.30-CSEOUL,127,37.30,SHANGAI,122,31,SINGAPOUR,104,1.22-HSOFIA,23.20,42.39,STOCKOLM,18.20,59.20,TAIPEH,121.30,25.MTANANARIVE,47.30,-18.57,TEHERAN,51.27,35.46,TIRANA,19.50,41.24=SLO,10.40,60,OTTAWA,-75.40,45.25,PAPEETE,-149,-17.30x,/PARIS,2.20,48.50,PEKIN,117.36,40,PORT AU PRINCE,-72.30,18.27,4PYONGYANG,125.45,39,QUEBEC,-71.50,47.18,RANGOON,96.44,16.26,9REYJKJAVIK,-22,64.05,ROME,12.25,41.53,SAINT-MARIN,12.30,43.55H->19.22E+MILAN,9.08,45.27,MONACO,7.25,43.43,MONTREAL,-73.30,45.30+MOSCOU,37.30,55.50,MUNICH,11.35,48.08,NANKIN,118.50,32 + NAPLES,14.18,40.50,NEW-YORK,-74,40.40,NICOSIE,33.20,35+%NOUMEA,167,-22.20,ODESSA,30.40,46.30,OSAKA,135.30,34.406,*O*LE CAIRE,31.50,30,LE CAP,18.30,-34,LENINGRAD,30.20,60|*LIMA,-77.23,-12.06,LISBONNE,-9.10,38.43,LONDRES,-0.10,51.30* LOS ANGELES,-118.15,34,LUXEMBOURG,6.07,49.39,MADRID,-3.40,40.27+MANILLE,120.54,14.50,MELBOURNE,145.02,-37.30,MEXICO,-99.10,E FRANCE,-61,14.40,GUADALAJARA,-102.44,20.50,HAMBOURG,10,53.32{)HANOI,105.47,21,HELSINKI,25,60.08,HONG KONG,114,22.10)HONOLULU,-157,21,HOUSTON,-95.33,29.20,ISTANBUL,28.50,41.03*JERUSALEM,35.12,31.45,KABOUL,69.15,34.30,LA HAVANE,-82.30,22.30; ":768 <R(6)176:R125- AR2ė:[ FR3ĺ(4)"PREFIX/T21":(4)"RUN STARTUP"c K55  29((105)(106)256)B(4)"BLOAD GETS.LM":6,193:...W:(21):::75a:AD01:768::01:868:"Vous avez press{ la touche ";#T(6)128:T32ĺ"CTRL-";:TT64((T)-(6)15525 201:"(1) ENCORE (2) APPLESOFT (3ZZUZUUZZZZDZZZZEw"" BwDDDGxLjwwwDZZUUUZUUUZUBUUUUZUUZUUZZEw"" BwDDDGxLjwwwΪw"" BwDDDGxLjwwwΪw"" BwDDDGxLjwwwΪw"" BwDwwwÈwwDDDBBwBwmopqrstuvwxyz{|}~"" BwDDDGxLjwwwDUZUUUUUZUZUUUUZUU ZUUZZZUDw"" BwDDDGxLjwwwDUUZZZUZUUUUZZZZZBZZZUEw"" BwDDDGxLjwwwD ZUZZZUZUUUUZZZUUZBZZZZEw"" BwDDDGxLjwwwD""" "" w"" w"" w"" w"" w"" w"" w"" BwDDDGxLjwwwΪw"" BwDDDGxLjwwwΪw"" BwDDDGxLjwwwΪw"" BwDDDGxLjwwwDZUªZEUUZêw"" BwDDDGxLjwwwDZZUªZFZêwYAMuHUSTON!ư'  '&IMYAMCn,(ư l#YAM$ư!@lK ":768! 7R(6)176:R125. <R2ė:\ AR3ĺ(4)"PREFIX/T21":(4)"RUN STARTUP"d F50 KAD((105)(106)256)29 PIADAD28:R:I,R: U Z165,6,201,32,176,2,9,128,162,2,72,138,32,71,248,104,160,39,145,38,136,16,251,232,224,24,14 29((105)(106)256)0:(21)::75P(4)"BLOAD GETS.LM":6,193Z:AD1:768::1:868:"Vous avez press{ la touche ";#T(6)128:T32ĺ"CTRL-";:TT64((T)-(6)15525 21:"(1) ENCORE (2) APPLESOFT (3) MENU DIS2,49:2273,48:2274,49:j Z:AD9,0:AD25,20:2150,50:2151,50:2161,50:2162,50:2273,50:2274,50: _165,6,201,32,176,2,9,128,162,2,72,138,32,71,248,104,160,39,145,38,136,16,251,232,224,24,144,238,96 hj) MENU DISK ":768+ 7R(6)176:R120: <R2ĉ::h AR3ĺ(4)"PREFIX/T21":(4)"RUN STARTUP"p F50 KAD((105)(106)256)29 P21:"TAPER <1> POUR MODE GRAPHIQUE ";:R$: UIADAD28:R:I,R::R$"1"Ĺ2150,48:2151,49:2161,48:216"" BwDwwwÈwwDD@DBBwBw"" BwDwwwÈwwDD@DBBwBw"" BwEDLFDDFȈwwD@@DBBwBw"" BwEDLFDB BDFȈwwD@@DBBwBw"" BwEDLFDB́ BDFȈwwD@@DBBwBw"" BwEDLFDB BDFȈwwD@@DDBBwBw"" BwEDLFDB BDFȈwwD@DDBBwBw"" BwEDLFDB BDFȈwwwEDLFDDFȈwBw"" BwEDLFD DFȈwBw"" BwEDLFD́  BDFȈwBw"" BwEDLFD  BDFȈwBw"" BwEDLFD  DFȈwBw"" BwED  DFȈwBw"" BwEDLFD  BDFȈwBw"" BwEDLFD̃  BDFȈwBw"" BwEDLFD̂ DFȈwBw"" BwEDLFDDFȈwBw"" BwDwwwÈwBw"" BFȈwBw"" BwEDLFDDFȈwBw"" BwDwwwÈwBw"" BwEDLFDDFȈwBw"" BwEDLFD́DFȈwBw"" BwEDLFD̃  BDFȈwBw"" BwEDLFD ̂  BDFȈwBw"" BwEDLF BDFȈwBw"" BwEDLFD BDFȈwBw"" BwEDLFD BDFȈwBw"" BwEDLFD BDFȈwBw"" BwEDLFD BDFȈwBw"" BwEDLFDB́ BDDLFD DFȈwBw"" BwEDLFD́ DFȈwBw"" BwEDLFDDFȈwBw"" BwDwwwÈwBw"" BwEDLFDDFȈwBw"" BwEDLFD BDFȈwBw"" BwEDLFD wBw"" BwEDLFD́ DFȈwBw"" BwEDLFD DFȈwBw"" BwEDLFD B DFȈwBw"" BwEDLFD DFȈwBw"" BwEDLFDB DFȈwBw"" BwEFȈwBw"" BwEDLFDB B BDFȈwBw"" BwEDLFDB ́ BDFȈwBw"" BwEDLFD DFȈwBw"" BwEDLFD BDFȈwBw"" BwDwwwÈwBw"" BwEDLFDDFȈ"" BwDwwwÈwBw"" BwEDLFDDFȈwBw"" BwEDLFD DFȈwBw"" BwEDLFDB ́ BDFȈwBw"" BwEDLFDB B BDFȈwBw"" BwEDLFDB B BD"" BwEDLFDF̂ DFȈwBw"" BwEDLFDF́ DFȈwBw"" BwEDLFDF̂ DFȈwBw"" BwEDLFD DFȈwBw"" BwEDLFD BDFȈwBwȈwBw"" BwEDLFDDFȈwBw"" BwDwwwÈwBw"" BwEDLFDDFȈwBw"" BwEDLFD FDFȈwBw"" BwEDLFDF̂ DFȈwBw"" BwEDLFDF̂ DFȈwBwD ́  BDFȈwBw"" BwEDLFD DFȈwBw"" BwEDLFD B DFȈwBw"" BwEDLFD ́  DFȈwBw"" BwEDLFD DFw"" BwEDLFD́  BDFȈwBw"" BwEDLFDDFȈwBw"" BwDwwwÈwBw"" BwEDLFDDFȈwBw"" BwEDLFD DFȈwBw"" BwEDLFD ́  DFȈwBw"" BwEDLFFȈwBw"" BwEDLFD́ BDFȈwBw"" BwEDLFD DFȈwBw"" BwEDLFD DFȈwBw"" BwEDLFD DFȈwBw"" BwEDLFD́ BDFȈwBDDDBBwBw"" BwEDLFDB́ BDFȈwwƪwBw"" BwEDLFD BDFȈwwƪwBw"" BwEDLFDDFȈwBw"" BwDwwwÈwBw"" BwEDLFDDFȈwBw"" BwEDLFD BDDLFDB  BDFȈwBw"" BwEDLFD́  BDFȈwBw"" BwEDLFD̂ DFȈwBw"" BwEDLFDDFȈwBw"" BwDwwwÈwBw"" BwEDLFDDFȈwBw"" BwEDLFD DFȈwBw"" BwEDLFD́  DFȈwBw"" BwEDLFD́ DFȈwBw"" BwEDLFD BDFȈwBw"" BwEDLFD DFȈwBw"" BwEDLFD wB3wwB3wwp""wp"B"Bw"" wB3wBws33DwB3wwwws33ww337wwp"","",E"D"F"wpB"33E"3"B"Bw"" ws337wwws33DwB3wBwB3ws33ww337wwp"""D","","""wp""#2#2"3"""""Bw"" ws337wBw33DwB3wBw3337ws37wwp""pBBw"" wwws3ws33wBw s37ws337ws337wBw"" wBwsE37w333wBws37wB37ws337wBw"" wsD3wsB37ws3wBws37wB37wB3wwpwpBBw"" wBws337wBws337BwsB3wBws37wB3wwB3wwp""wp"B"Bw"" wB3wBws337BwsB3wBws33""")"")"""wp"".."".".".".""Bw"" wwwB3Bws337wwsB3wBwB3wwB3wwB3wp""wp"B""""Bw"" wwwB37wwB37ww337wsB3wBws37wsB3wwB3wp""wp"B"Bw"" wwws3ww37sB3wBws37wsB3ws337wpwB37w3wB37wBwp"")"B""""" ")")")""w p""."."""""Bw"" wws337wB3ww33wwsB3wBwB3 wws337ws337wBw p""""""""")B"")""wp""...B"""B""Bw"" wwwB3Bws337wwsB3wBwB3 wws337ws337wBwp"""")wp""..""Bw"" www337w337w37wwws33wp"""")"")"")"")""w p""..""".".""".".""Bw"" wws337wB3w3ws337wBw33wp""""")"B")"B"w p"".".."""B"Bw"" wws337wB3ws337wsB3wBwBw"" w"" w"" wwpwpBBw"" wwp""wp"B"Bw"" wwp""wp"B"Bw"" wwws33Bws33wws7wwB3ww3ww337Bw337wwp""""F")D")E"wp"".F""""Bw"" www337w337w3wBws37sB37w37wp"""""""" ݂ Bwp""""""""wp"""**""**F"Bw"" Bw݂ ݂wp"") ")")""B"wpE"*B"""D"Bw"" Bwwp""wp"B"Bw"" Bwwp""wp"B"Bw"" BwwpwpBwpE"**"""E"Bw"" Bw݂ ݂Bwp""""""""wpE"*"***""**D"Bw"" Bw݂ ݂Bwp"""""""B"wp"""**""*D"Bw"" Bw݂  wp""wp"B"Bw"" Bw݂B ݂Bwp"B"""wpE"*"""Bw"" Bw݂ ݂Bwp"B"""wpE"**""Bw"" Bw݂ ݂Bwp"B"")""")")""́ DDFȈwBw"" BwEDLFD  DDFȈwBw"" BwEDLFDDFȈwBw"" BwDwwwÈwBw"" BwDwwwÈwBw"" w"" BwwpwpBBw"" Bwwp""wp"B"Bw"" BwD ́ DDFȈwBw"" BwEDLFD DDFȈwBw"" BwEDLFDBB BDDFȈwBw"" BwEDLFD B  DDFȈwBw"" BwEDLFD ́ DDFȈwBw"" BwEDLFD DDFȈwBw"" BwEDLFDDFȈwBw"" BwDwwwÈwBw"" BwEDLFDDFȈwBw"" BwEDLFD DDFȈwBw"" BwEDLF́ DDFȈwBw"" BwEDLFD DDFȈwBw"" BwEDLFDBBB BDDFȈwBw"" BwEDLFD  DDFȈwBw"" BwEDLFD DFȈwBw"" BwEDLFD DFȈwBw"" BwEDLFDDFȈwBw"" BwDwwwÈwBw"" BwEDLFDDFȈwBw"" BwEDLFD DDFȈwBw"" BwEDLFD B" ,""",",",B"wp""#2#2#3"#33""33"#23B"Bw"" ws3wws337wBw337BwsB37www3337wsB3w p"",""́","B" ,",,""""wp""#2#2"3""3""#2#2#3"Bw"" wBw3333wwBws37Bws3wwwB37wB3wsB37wBwp"""́",",",",,""""wp""#2#2"3""3""#332#2"Bw"" wwws3ws337wsD37ww3ws337wB37wBwp"""",",B"",",,""",""wp""#2#2"3""3#2#2""""Bw"" www37wwF37s37ws3ws337wB37wBw"p"",","""",","",",B"i :figure!4 * Validations des Figures *UNASIX>T(n,f%)>figure*Hi%=߁:des(i%)=f%T(n,f%)=T(n,f%)+R:T(n,f%)=figure \resultatFULLfT(n,f%)>figurepk=des():k1=k:j=#zi%=߁:des(i%)<>kk1=des(i%),i%oix des figures *FIGURE vevent%y%>߈y%<߈x%>߈x%<6passe'y%>߈y%<߈x%>߈x%<6quitte5f%=߁ :SetRect(r,*,+ *f%,v,+ *f%) _PtInRect(Pt@+ ,r)>-f%Choix#dc(i%)=:effdes():affdes(.) ChoixREPLACE&i%=߁:dc(i%)=:#0dc(i%)=:effdes(.):affdes()::JOUEDi%=߁:effdes():Ni%=߁:dc(i%)>b"Xdes(i%)=ߗߢ)*)+:affdes()b:c=c+:coupsl * Ch߈x%<쌉replace:figure/y%>߈y%<߈x%>߈x%<쌉replace:Choix'y%>߈y%<߈x%>߈x%<6quitte * Choix des d{s *4i%=߁:SetRect(r,+*i%,:,+*i%,P)%_PtInRect(Pt@+ ,r)=-deplace :choixDEPLACEdc(c=:h%=:v%= :sbc%=:n=h%=:sbc%=@nt>h%=h%-Jmsg(h%,v%,sbc%,sfc%,߻nt))Ynf(n)= passeCOUPS^c>replace:figure$h * Joue, Satisfait, Rechoisir *CHOIX revent$y%>߈y%<߈x%>߈x%߈y%<߈x%>OL"QDStartUp",q1%,q2%,q3%q1%prelude"tdfs/quickdraw.tdf"߄"tdfs/memory.tdf"߄"tdfs/misctool.tdf"߄"tdfs/event.tdf"PRELUDE%loadim::ShowCursor:debutDEBJEUNbreJo:affnom, * Jeu de 1 @ 3 coups *JEU,6: ****** YAM par Andr{ Brossaud (c) Mars 1988 ******2::@<erreur9Fpic!(*),imyam!(),event!(),msg!(),r(),b!()$Pt(, ),b( ),des(),dc():nt=ni=߁ :b(i):!x 1,2,3,4,5,6,20,30,40,50,1,1TObfUUm _ y_)?_ _ (_i _? (8`(` _`?UU ` ~ ~8``;$L ~)x12A w,p? A w,p A w,p( A w,p B?A w,p A w,p ?A w,pwp"""332#32"#3""33"#2"Bw"" wws3wBw337wwEw s37s37w337ws33wp""wp"#2""Bw"" wws37wws33wwB37Bw3w ws3ww3wws3Bw37wp""wp"B"Bw"" wwpwpBBw"" w"" w"" w"" w"" """ ^`[B?=߁:des(i%)<>k߈des(i%)<>k1figurei%=߁:k=des(i%)j=j+:j=߉j=figureT(n,)=:resultatCARREj=:T(n,)>figure"i%=߁:des(i%)=des()j=j+ :j>$i%=߁:des(i%)<>des()figureT(n,)=:resultatSUITET(n,)>figure i%=߁Bdes(i%-)>des(i%)j=des(i%):des(i%)=des(i%-):des(i%-)=j: :j=($i%=߁:des(i%)-des(i%-)<>j=j+.:j>figure8T(n,)=:resultatYAMBT(n, )>figure$Li%=߁:des()<>de͈debut,msg(,e,,,"Andr"+)+" Brossaud")'msg(,n,,,"et Tremplin Micro")#msg(,w,,,"(c) juin 1988")-i%=߁:des(i%)=ߗߢ)*)+:affdes():i=߁X:_Button() :i%=߁:effdes()::-i%=߁:efG͈msg(h%,v%,sbc%,sfc%,z$)B(msg!())=^z$:SetBackColor(sbc%):SetForeColor(sfc%)2MoveTo(h%,v%):DrawString(msg!())) ވmsgAFFNOM ͈affnom!msg(,,,,n1$):nj=msg(T,,,,n2$) ވaffnomDEBUT +)X$=})X$=X$)+)X$=\)X$=X$)+1)X$=@)X$=X$)+H)6 h%=h%+:i=i+:n$=n$+X$:msg(h1%+h%,v%,,,X$):*n$=""<4msg(h1%+h%,v%,,," "):I=I-:n$=n$,,i):h%=h%-:>n$="" HވcapteAFFMSn1$=n$ lnj=8vmsg(,n,,,"Votre Nom :"):capte(,n,):n2$=n$fen(,D,6,,) ވnbrejoCAPTURE&͈capte(h1%,v%,ca%):h%=:i=:n$=""%$X$:X$=X$)-):X$= )> X$=)*i>ca%X$={)X$=X$)nt!( )+event!( )* ވevent(/ * Nombre de Joueurs & leurs noms *NBREJO20͈nbrejo:msg(,R,,,"Nombre de joueurs: "):capte( ,R,):nj=n$)-0)Dnj<߉nj>msg((,R,,," ")::8bmsg(,b,,,"Votre Nom :"):capte(,b,):SetRect(r,+h%,:+v%,+h%,P+v%), SetSolidPenPat():PaintRect(r) ވeffdesEVENT h͈event+rFlushEvents(-,):Pt@=event!());|GetNextEvent(-,Pt@):event!()+event!()*=|;y%=event!( )+event!( )*:x%=eves:DE6) y%=v1%:x%=h1%:pts:y%=v3%:x%=h3%:pts) y%=v3%:x%=h1%:pts:y%=v1%:x%=h3%:pts- y%=v2%:x%=h1%:pts:y%=v2%:x%=h3%:pts:POINTS ͈pts5 SetRect(r,x%,y%,x%+,y%+):PaintRect(r) ވptsEFFDES ͈effdes(v%):h%=*i%+ %=h1%:pts:y%=v3%:x%=h3%:pts< y%=v2%:x%=h2%:pts:DE4)F y%=v1%:x%=h1%:pts:y%=v3%:x%=h3%:pts-Z y%=v3%:x%=h1%:pts:y%=v1%:x%=h3%:pts:DE5)n y%=v1%:x%=h1%:pts:y%=v3%:x%=h3%:pts) y%=v2%:x%=h2%:pts:y%=v3%:x%=h1%:pts y%=v1%:x%=h3%:ptPat():PaintRect(r):SetSolidPenPat()? v1%==+v%:v2%=D+v%:v3%=K+v%:h1%=+h%:h2%=+h%:h3%=+h%$ des(i%)de1,de2,de3,de4,de5,de6 ވaffdesDE1 y%=v2%:x%=h2%:pts:DE2- y%=v1%:x%=h1%:pts:y%=v3%:x%=h3%:pts:DE3)( y%=v1%:x(t i%=߁:j%=߁ :T(i%,j%)=:j%,i%/~ msg(,Z,,,"Les m"+)+"mes joueurs") reponse:l%=affnom:jeu debjeu * Affiche les d{s *AFFDES ͈affdes(v%):h%=*i%+ SetRect(r,+h%,:+v%,+h%,P+v%)C SetSolidPenejouer'y%>߈y%<߈x%>߈x%<6quitte fpartieQUITTE6msg(,Z,,,"En "+)+"tes vous s"+)+"r") reponse:l%= ClearMouse::` * Rejouer *REJOUER@j BlockMove(source@,dest@,long@):nt=:n=:nf()=:nf()=>ch%=h%-:4*s%>h%=h%-4msg(h%,v%, ,,߻s%))H * Joueur suivant *PASSERi%=߁:effdes():\n=n+:nfpartie pn=:jeuz * Fin de la partie *FPARTIE event'y%>߈y%<߈x%>߈x%<6r=j:resultat * Resultat * RESULTAT4nf(n)=nf(n)+:s%=b(f%)*T(n,f%):f%> s%=T(n,f%) h%=:v%=+ *f%:n=h%=s%>h%=h%-msg(h%,v%, ,,߻s%))2 s%=:i%=߁ :s%=s%+b(i%)*T(n,i%)::T(n,)=s%h%=:v%=:n=h%= s%s(i%)figureV:T(n, )=:resultatMINI`j=:T(n, )>figureji%=߁:j=j+des(i%):!tT(n, )>߈T(n, )<=jfigure~T(n, )=j:resultatMAXIj=:T(n, )>figurei%=߁:j=j+des(i%):!T(n, )>߈T(n, )>=jfigureT(n, )fdes()::fen(,D,6,,))msg(,N,,,"Voulez-vous lire la")*msg(,X,,,"R"+)+"gle du jeu") reponse:fen(,D,6,,) l%="2aide:@:BlockMove(source@,dest@,long@):ShowCursor "ވdebutFENETREp͈fen(h1%,v1%,h2%,v2%,ssp%)TzSetRect(r,h1%,v1%,h2%,v2%):SetSolidPenPat(ssp%):PaintRRect(r,,) ވfenREPONSE%͈reponse:SetSolidPenPat()6SetRect(r,,\,,e):PaintRRect(r,,)6SetRect(r,,\,,eIOFUNCuHUSTON!ǰ'  'IOFUNC.HCǰ (IOFUNC.C%ǰ 2+IOFUNC.ROOT*ǰ (TESTIO.COǰ +,TESTIO.SYS16ǰ (CTFNEW.C,,) (!ވbtnTON !͈btnO!SetRect(r,j,,,):SetSolidPenPat():PaintRRect(r, , )P !SetRect(r,l,,,):SetSolidPenPat():PaintRRect(r, , )"!msg(,,,,n$)*$!event:y%<߉y%>߉x%Ҋ$!&!fen(,,D msg(,L,,,"Si vous avez une figure avant la fin des")?N msg( ,V,,,"trois coups,ent "+)+" deux figures")Bmsg( ,,,,"donnant la somme des d"+)+"s mais l'une,")Umsg( ,,,,"MINIMUM, doit "+)+"tre inf"+)+"rieur "+)+" l'autre,")msg( ,,,,"MAXIMUM.") n$="SUITE":btnF msg(,$,,,"CliHmsg( ,d,,,"de 1, 2, ..., "+)+" 6, FULL (paire + triplet),")Pmsg( ,n,,,"CARRE (4 d"+)+"s "+)+"gaux), SUITE (12345, 23456),")8msg( ,x,,,"YAM (5 d"+)+"s "+)+"gaux).")Imsg(,,,,"On a droit "+)+"galemg( ,.,,,"partie est compos"+)+"e de vingt tours.")Emsg(,@,,,"On joue de un "+)+" trois coups par tour en")>msg( ,J,,,"gardant si on veut certains d"+)+"s.")?msg(,Z,,,"Le but est de former des figures, groupes")"" "߿)" @ la ligne ":lAIDE'@fen(,,@,,):fen(,,>,,)Jfen(,,<,,)T:ShowCursor2^msg(V,,,,"R"+)+"gles du jeu de Yam")Hhmsg(,$,,,"Ce jeu se joue "+)+" un ou deux joueurs et une")A|ms,ߒߓ#,l%:#;pic!():#&x(b!())=imyam!()):(b!())=5UnPackBytes(pic!()),l%,b!()),b!())).source@=imyam!()):dest@= :long@='BlockMove(source@,dest@,long@) ވloadimERREUR X::,b"Erreur n[):PaintRRect(r,,)1msg(,d,,,"Oui"):msg(,d,,,"Non") event)y%>\߈y%߈x%\߈y%߈x%<l%=:$$fen(,R,*,f,) .ވreponseLOADIMd͈loadim:l%=,()n"imyamc" Aǰ ,CTFNEW.SYS16(ǰ%LIT.Cǰ!Z /* Nom du fichier: IOFUNC.H Description: fichier Header des fonctions de IOFUNC.C (c) 1988 C. Maphaure, S. N. Cehef et Tremplin Micro Version IIGS, pour Compilateur C APWC 1.0 */ extern int inputString(); extern int ine gotoxy. */ *(_iobuffer+1)=_x; /* Stocke position X. */ *(_iobuffer+2)=_y; /* Stocke position Y. */ *(_iobuffer+3)=0; /* Fin de chaine C, Stocke 0. */ WriteCString(_iobuffer); /* Envoi de la s{que; { if(!_printerFlag) /* Teste si imprimante non s{lectionn{e, pour {cran seulement. */ { _x+=32; /* Position X + 32. */ _y+=32; /* Position Y + 32. */ *_iobuffer=0x1E; /* Code dole. */ clearScreen() { if(!_printerFlag) WriteChar(0x0C); /* Teste si imprimante non s{lectionn{e, pour {cran seulement. */ } /* Positionnement du curseur sur l'{cran. Voir code gotoxy de la carte 80 colonnes. */ gotoXY(_x,_y) char _x, _y if(_printerFlag) /* Teste si imprimante s{lectionn{e, sinon on passe. */ { SetOutputDevice(pascalType,_screenSlot); InitTextDev(output); _printerFlag=FALSE; } } /* Effacement de l'{cran. Envoi du caract}re de contrste si imprimante non s{lectionn{e, sinon on passe. */ { SetOutputDevice(basicType,_printerSlot); InitTextDev(output); _printerFlag=TRUE; } } /* S{lection de l'{cran. Devices Pascal pour l'{cran. */ selectScreen() { Device(pascalType,_screenSlot); InitTextDev(input); InitTextDev(output); InitTextDev(errorOutput); _printerFlag=FALSE; } /* S{lection de l'imprimante. Devices Basic pour l'imprimante. */ selectPrinter() { if(!_printerFlag) /* Te en place des masques de filtrages. */ initIO() { SetInGlobals(_andMask,_orMask); SetOutGlobals(_andMask,_orMask); SetErrGlobals(_andMask,_orMask); SetInputDevice(pascalType,_screenSlot); SetOutputDevice(pascalType,_screenSlot); SetError]={_carriageReturn,0x0A,0}; /* Structures utilis{es pour la conversion des nombres flottants. */ decimal _decStrConv; decform _decFrmConv; /* Initialisation des entr{es/sorties. Devices Pascal pour l'{cran et s{lection de l'{cran, miseefine _andMask 0x7F #define _orMask 0 /* Variables globales: - drapeau si s{lection imprimante. - buffer servant aux entr{es/sorties. - s{quence du retour chariot pour l'{cran. */ int _printerFlag; char _iobuffer[81]; char _crSeq[s, structures et fonctions utilis{es dans les fonctions. */ #include #include #include #include /* D{finitions internes. */ #define _carriageReturn 0x0D #define _printerSlot 1L #define _screenSlot 3L #d /* Nom du fichier: IOFUNC.C Description: Fonctions d'entr{es/sorties et de conversions. Copyright (c) 1988 par C. Mafaure, S.N. Cehef & TREMPLIN-MICRO Version IIGS, pour Compilateur C APWC 1.0 */ /* Inclut les d{finitionputInt(); extern long inputLong(); extern extended inputFlt(); nce de commande. */ } } /* Envoi un retour chariot sur le p{riph{rique courant. Teste le p{riph{rique pour connaitre le(s) code(s) @ envoyer. */ newLine() { if(_printerFlag) WriteChar(_carriageReturn); /* Teste si imprimante selectionn{e, envoi du code retour chariot. */ else WriteCString(_crSeq); /* Sinon, envoi d'une s{quence pour l'{cran. */ } /* Envoi d'une chaine de caract}res sur le p{riph{rique courant. */ printWord(_string) char *_string; { WriteCString(_string); } /* Uulement. */ { _length=inputLine(20); /* Lecture d'une chaine de 20 caract}res. */ /* Retourne le nombre entier long, apr}s conversion grace @ un appel Dec2Long. */ return(Dec2Long(_iobuffer,_length,1chaine C, stocke 0. */ WriteCString(_iobuffer); /* Envoi de la chaine de caract}res. */ } /* Entr{e d'un nombre entier long au clavier. */ long inputLong() { int _length; if(!_printerFlag) /* Teste si imprimante non s{lectionn{e, pour {cran sele p{riph{rique courant. */ printLong(_value,_just,_flag) long _value; int _just, _flag; { int _length; /* Appel de la fonction Long2Dec pour effectuer la conversion. */ Long2Dec(_value,_iobuffer,_just,_flag); *(_iobuffer+_just)=0; /* Fin de 'une chaine de 20 caract}res. */ /* Retourne le nombre entier, apr}s conversion grace @ un appel Dec2Int. */ return(Dec2Int(_iobuffer,_length,1)); } } /* Conversion puis envoi d'un nombre entier long sur * Envoi de la chaine de caract}res. */ } /* Entr{e d'un nombre entier au clavier. */ int inputInt() { int _length; if(!_printerFlag) /* Test si imprimante non s{lectionn{e, pour {cran seulement. */ { _length=inputLine(20); /* Lecture d,_just,_flag) int _value, _just, _flag; { int _length; /* Appel de la fonction Int2Dec pour effectuer la conversion. */ Int2Dec(_value,_iobuffer,_just,_flag); *(_iobuffer+_just)=0; /* Fin de chaine C, stocke 0. */ WriteCString(_iobuffer); /ount); } } /* Envoi d'une chaine de caract}res suivit d'un retour chariot. */ printLine(_string) char *_string; { WriteCString(_string); newLine(); } /* Conversion puis envoi d'un nombre entier sur le p{riph{rique courant. */ printInt(_valueie de la chaine de iobuffer dans _string. */ for(_i=0;_i<_count;_i++) *(_string+_i)=*(_iobuffer+_i); /* Fin de chaine C, stocke 0. */ *(_string+_count)=0; /* Retourne le nombre de caract}res recus. */ return(_c!_printerFlag) /* Teste si imprimante non s{lectionn{e, pour {cran seulement. */ { /* Appel de la fonction inputLine et r{cup{ration du nombre de caract}res recus. */ _count=inputLine(_length); /* Recopobuffer+_count)=0; /* Fin de chaine C, stocke 0. */ /* Retourne le nombre de caract}res recus. */ return(_count); } /* Entr{e d'une chaine de caract}res. */ int inputString(_string,_length) char *_string; int _length; { int _i, _count; if( ou que le code n'est pas celui de la touche Return. */ while((_count<_length)&&(_code!=_carriageReturn)); /* Teste si touche Return pour annulation des caract}res apr}s le curseur. */ if(_code==_carriageReturn) WriteChar(0x1D); *(_i else if((_code==0x08||_code==0x7F)&&(_count>0)) { /* Efface le dernier caract}re entre. */ WriteChar(0x08); --_count; } } /* Continue tant que le nombre maximal de caract}res n'est pas atteint 7F)) /* Teste si touche majuscule, minuscule ou chiffre. */ { /* Affichage et stockage du caract}re. */ WriteChar(_code); *(_iobuffer+_count++)=_code; } /* Teste si touche BackSpace ou Delete. */ tilisation interne de cette fonction. */ int inputLine(_length) int _length; { char _code; int _count; _count=0; do { _code=ReadChar(noEcho); /* Lecture d'un caract}re au clavier sans l'afficher. */ if((_code>0x1F)&&(_code<0x)); } } /* Conversion puis envoi d'un nombre flottant sur le p{riph{rique courant. */ printFlt(_value,_length,_vmin,_vmax,_virg) extended _value; int _length; extended _vmin, _vmax; int _virg; { extended _valabs; int _index, _jmove; char *_string; /* Si le nombre est {gal @ 0.0, on stocke "0.0" dans la chaine de caract}res. */ if(_value==0.0) { *_iobuffer='0'; *(_iobuffer+1)='.'; *(_iobuffer+2)='0'; *(_iobuffer+3)=0; } else { J,Dmain selectPrinter ;8[i _printerFlag2 "_toolErr "_toolErr _printerFlag{i+k"_toolErr "_toolErr "_toolErr "_toolErr _printerFlag{i+k,=main initIO ;8[i "_toolErr "_toolErr "_toolErr "_toolErr "_toolErr (0.0); } } *(_iobuffer+1)='0'; } /* Appel @ str2dec pour la conversion. */ str2dec(_iobuffer,&_ix,&_decStrConv,&_vp); /* Teste le drapeau d'erreur et traitement. */ if(_vp) return(dec2num(&_decStrConv)); else return { /* Flag de position dans la chaine */ _ix=0; /* Lecture d'une chaine de 30 caract}res. */ inputLine(30); /* Si chaine vide, mise en forme de la chaine. */ if(*_iobuffer==0) { *_iobuffer=1; } /* envoi de la chaine de caract}res. */ WriteCString(_iobuffer); } /* Entr{e d'un nombre flottant au clavier. */ extended inputFlt() { short _ix, _vp; if(!_printerFlag) /* Teste si imprimante non s{lectionn{e, pour {cran seulement. */ex+_jmove)=*(_iobuffer+_index); /* Remplacement de la zone de justification par des espaces. */ for(_index=_jmove-1;_index>=0;--_index) *(_iobuffer+_index)=' '; /* Fin de chaine C, stocke 0. */ *(_iobuffer+_length)=0; la valeur de d{placement pour la justification. */ _jmove=_length-_index; /* Si valeur de d{placement sup{rieure @ 0, justification du nombre. */ if(_jmove>0) { /* D{calage. */ for(;_index>=0;--_index) *(_iobuffer+_indons num2dec et dec2str pour les conversions. */ num2dec(&_decFrmConv,_value,&_decStrConv); dec2str(&_decFrmConv,&_decStrConv,_iobuffer); } /* Donne la longueur de la chaine dans _iobuffer. */ _length=strlen(_iobuffer); /* CalculeCIMAL; _decFrmConv.digits=_virg+1; } else { /* Entre les deux limites, notation scientifique. */ _decFrmConv.style=FIXEDDECIMAL; _decFrmConv.digits=_virg; } /* Appel aux foncti _valabs=fabs(_value); /* Valeur absolue. */ /* Teste les limites pour le passage en mode scientifique. */ if((_valabs>=_vmax)||(_valabs<_vmin)) { /* En dehors, notation d{cimale. */ _decFrmConv.style=FLOATDEG,Cmain selectScreen ;8[i _printerFlag/ "_toolErr "_toolErr _printerFlag{i+k+ ,@main printLine ;8[i "_toolErr"newLine{i+kH"_LADDh {i+k ,Bmain inputString ;8[i _printerFlag}" inputLinezd@ H _iobuffer _iobuffer"_LADDhHH"_LADD hh  8pI 8) )$8pI "_toolErr 8pI0 ) 5)  "_toolErr H _iobuffer _iobuffer"_LADDh {i+k%,@main inputLine ;8[idH ""_toolErrh )8TpIM)8pI0=)H "_toolErrH _iobuffer _iobuffer"_LADDh',@main printWord ;8[i "_toolErr{i+kC,>main newLine ;8[i _printerFlag "_toolErr_crSeq_crSeq "_toolErr{i+k _iobuffer "_toolErr{i+kv,=main gotoXY ;8[i _printerFlag^$)i )i   _iobuffer  _iobuffer  _iobuffer  _iobuffer  _iobuffer+,Bmain clearScreen ;8[i _printerFlag "_toolErr{i+ki ,?main printInt ;8[i _iobuffer _iobuffer &"_toolErr H _iobuffer _iobuffer"_LADDh  _iobuffer _iobuf,?main inputFlt ;8[i _printerFlagd" inputLinez _iobuffer)  _iobuffer 0  _iobuffer {iH _decStrConv _decStrConv & ȢH _iobuffer _iobuffer"_LADDhԆ֩  8pI0 H _iobuffer _iobuffer"_LADDhԆ֩  _iobuffer _iobuffer "_toolErr{i+kiobuffer"strlenzz8ȅƥ8pI0S ȢH _iobuffer _iobuffer"_LADD hԆ֧HƢHȢH _iobuffer _iobuffer"_LADDh"_LADD hԆh  8pI08StrConv  _decFrmConv _decFrmConv"num2dec ;i _iobuffer _iobuffer _decStrConv _decStrConv _decFrmConv _decFrmConv"dec2str;i  _iobuffer _zzzz"_PUSHFR {iH"_STEX80zzzzz"_FCPXp"_FCPX0 _decFrmConvi _decFrmConv  _decFrmConv _decFrmConv _decStrConv _dec',?main printFlt ;8[i"_FCMP/0  _iobuffer .  _iobuffer 0  _iobuffer  _iobuffer  "fabszC,@main inputLong ;8[i _printerFlag)" inputLinezH _iobuffer _iobuffer )"_toolErrh {i+kbuffer "_toolErr{i+kk ,@main printLong ;8[i _iobuffer _iobuffer '"_toolErr H _iobuffer _iobuffer"_LADDh  _iobuffer _ioA ,?main inputInt ;8[i _printerFlag'" inputLinezH _iobuffer _iobuffer ("_toolErrh {i+kfer "_toolErr{i+k{iH _iobuffer _iobuffer"str2dec ;i3 _decStrConv _decStrConv"dec2numzz"_PUSHFRh_15floath_15floath_15floath_15floath_15float_15float_15float0.h_15floath_15floath_15floath_15floath_15float_15float_15float {i+kearScreen(); gotoXY(25,10); printLine(" Test termin{, @ bientot..."); } ; printLong(l,12,1); newLine(); printWord(" 'd' est {gal @ : "); printFlt(d,12,1e-5,1e+5,5); newLine(); printWord(" 'c' est {gal @ : "); printLine(c); newLine(); selectScreen(); } else cld'une imprimante en slot 1, pr}te @ l'utilisation ?"); inputString(rp,1); if(rp[0]=='O'||rp[0]=='o') { selectPrinter(); printWord(" 'n' est {gal @ : "); printInt(n,5,1); newLine(); printWord(" 'l' est {gal @ : "){gal @ : "); printFlt(d,12,1e-5,1e+5,5); newLine(); newLine(); printWord("Entrez une chaine de carat}res : "); inputString(c,30); newLine(); printWord(" 'c' est {gal @ : "); printLine(c); newLine(); printWord("Disposez-vous d("Entrez un nombre entier long : "); l=inputLong(); newLine(); printWord(" 'l' est {gal @ : "); printLong(l,12,1); newLine(); newLine(); printWord("Entrez un nombre d{cimal : "); d=inputFlt(); newLine(); printWord(" 'd' est l; extended d=0; char c[31]; char rp[2]; main() { initIO(); clearScreen(); printWord("Entrez un nombre entier : "); n=inputInt(); newLine(); printWord(" 'n' est {gal @ : "); printInt(n,5,1); newLine(); newLine(); printWor /* Nom du fichier: TESTIO.C Description: Programme test des fonctions de IOFUNC.C (c) 1988 par C. Mafaure, S. N. Cehef et TREMPLIN MICRO Version IIGS, pour Compilateur C APWC 1.0 */ #include "iofunc.h" int n; longA,>~arrays ~arrays_crSeqC   _iobufferCQ _decStrConvC" _decFrmConvC_15floatC A,?~globals ~globals _printerFlagC ,@ main H H h ;8[iH"hHH "h " "H" zz"z z)  0  {iH{iH";i3"{zz"h8h:h<h>h@880.h8h:h<h>h@88{i+k;iH H H "zzk ;8[idЂSȢH"hԆ֧HƢHȢH"h"hԆh ȥ8pI08Ȁ&ȢH"hԆ֩ ȥ8pI0ͥH"hԆ֩  "{i+k ;8[i*d"60   ")zzzzz"{iH"z zzzzz"p"04i6 4644";i44"F;i "/zz8ȅƥ8pI0h{i+k ;8[i '"H"h  "{i+k ;8[i*)"6zH )"h{i+k ;8[i"/0  .  8pIH"h {i+k ;8[i ""{i+k ;8[i &"H"h  "{i+k ;8[i*'"6zH ("8) )$8pI "8pI0 ) 5)  "H"h {i+k ;8[i*}"6zd@H"hHH"hh {i+k ;8[i* " "{i+k ;8[i "{i+k ;8[idH ""h )8TpIM)8pI0=)H "H"h  "*{i+k ;8[i*/ " "*{i+k ;8[i* "{i+k ;8[i*^)i )i       "+k ;8[i " " " " " " " " "*{i+k ;8[i*2 "zzz)O)o"55"zz$H" zzz"HH"zz (&H"zzzz"[["zz@P?ŧGG# "H HHHH"x ;i""nn"zz"zz"""+ "Vzz"zz{i||"zz (&H"zzzz"""zz" ""z zzzzz""zz@P?ŧGG# "H HHHH"x ;i""""zz"[zzz""zz"zz""zz"[ "zz HH"TzzzH"z H"8H"zzH*h(, H(("zzzz{i+k ;8[i""+.."zz"$"II"zz$H" zzz""\\"zz"5 (&" B$iHih rr":zzzzzB B H H "h"z)^)"'))")"w8iH""ziHH몧"hh zu8iH""ziHH몧"hh ) )6i9kftʂiNd>hgv%y:.VlRUew}9lCHMdjׁl},Rv*/6!:Sfy K+T(D~*i8Bhz+k ;8[i8pIXHh )(8pI ؀{i+k ;8[iQ)&Hh ө pI) )iA8a5)3)){i+kH  8zzzz(k ;8[i "zzz{i+k")k;[[HH Z;[ȷȷ hh {i+k ;8[i)H"z{i+k ;8[iH H "h {i+k ;8[i)H)|)8apI)8zpI) )iA8aH)8apI)8zhh{i+k ;8[i{iH "{i+k ;8[i "{i+k ;8[i " )HiHihH"zzzzz)H"h ","sz88TVVpI0 VT"s{i+khphqhVhXhT"qHpk:Hk ;8[i{iH "hhhHFH"NzzHF  "D HHhF{i+k ;8[i{iH "hhhhh{i+k ;8[iVT$e9HHh'"5)H"h)/8 pIť8  RH"hHH"h8Hhh 8pI0HHFhHh6H((8P8k;iHi H "h6;i6H((8P8k ;[ȗȗ+k8k ;8[iiHih)H"$h{i+k ;8[iWHVThHhBR{iʆ & &H "hHh{i+k;8  Z;iH "k ;8[iA)Hh ٦H"$h8 {i+kcck;iHi H "h6;i䂕H" "iʆ & &H"zz 몧H hHh몧Q)DiHihHʆ & &H "hhHh8pI) x8iH""ziHH몧"hh ^8iH""ziH몧"h ) ) ?|E @,@ ~arrays Can't allocate SANE direct pageEntrer un nombre entier : 'n' est {gal @ : Entrer un nombre entier long : 'l' est {gal @ : Entrer un nombre d{cimal : 'd' est {gal @ : Entrer une chaine de carat}res : 'c' est {gal @ : Disposez-vous d'une imprimante en slot 1, pr}te @ l'utilisation ? 'n' est {gal @ : 'l' est {gal @ : 'd' est {gal @ : 'c' est {gal @ : Test termin{, @ bientot...======================== Celcius en Fahrenheit ======================*/ CelFahr() { extended Fahrenheit=0; extended Celsius=0; int d; AffichePres(); /* Efface l'{cran & inscrit la pr{sentation */ gotoXY(20,17); printWord("Conversion I"); printWord("I "); printWord(" I"); printWord("========================================"); printWord("========================================"); } /*==== printWord(" I"); printWord("I "); printWord(" I"); printWord("I "); printWord("(c) Emile SCHWARZ & TREMPLIN MICRO"); printWord(" (utilise IOFUNC)"); printWord(" I"); printWord("I "); printWord(" I"); printWord("I "); printWord("Octobre 1987 / Avril 1988");Word("Conversion Fahrenheit en Celsius"); printWord(" I"); printWord("I "); printWord(" I"); printWord("I "); printWord("Version 2.0 "); printWord("Conversion Celsius en Fahrenheit"); printWord(" I"); printWord("I "); printWord(" I"); printWord("I "); print============"); printWord("========================================"); printWord("I "); printWord(" I"); /* Ecrit la ligne 3 */ printWord("I nded d=0; char c[31]; char rp[2]; /*=================== En premier il faut tracer un cadre ==================*/ AffichePres() { clearScreen(); /* Efface l'{cran */ printWord("============================0) Rectifi{ les message d'attente dans les fonctions de conversion ===========================================================================*/ #include /* Variables utilis{es dans "IOFUNC" */ int choix; long l; exte8 (version 1.0) Rectifi{ erreur dans nom variables, ajout{ 1 x ({ ... }) pour lisibilit{ message z{ro absolu. 23 Avril 1988 (version 1.1) Remplac{ les printf, puts et scanf par utilisation de "IOFUNC" 16 Mai 1988 (version 2./*=========================================================================== Conversion Fahrenheit/Celsius Emile SCHWARZ 20 Octobre 1987 (version 0.0) Version publi{e. 4 Avril 198 8HS{BYTEWRKSL@5h!@hF{TF ,@ DIRECT  Celsius en Fahrenheit"); gotoXY(20,19); printWord("Nombre en Celsius: "); Celsius=inputFlt(); { if (Celsius <= -273.11) /* Dans ce cas, il y a une erreur! */ { /* */ gotoXY(20,21); printWord("> Z{ro absolu @ -273.11[ Celsius <"); } else /* Sinon, on transforme. */ { Fahrenheit = (Celsius / (5.0 / 9.0)) + 32.0; gotoXY(20,2 ".zz HH"+zzzH"z H"8H"wzzH*h(, H(("zzz{i+k ;8[i".."n zzWW"n zz"n zz"n zz"n zz"n zz  "n zz%! ,@ main H H h ;8[iH"hHH "h " "H"zz"z /* Ce n'est qu'un au revoir.... */ } > do*/ clearScreen(); /* Efface l'{cran */ gotoXY(35,12); /* Positionne le curseur en HTAB=35:VTAB=12 */ printWord("Bye bye..."); /* Et {crit... */ gotoXY(0,22); ur */ if (choix == 2) /* etc... */ FahrCel(); if (choix < 1 || choix > 3 ) choix = 0; } while (choix != 3); /* Tant que 'choix' est diff{rent de 3 -printWord("- Votre choix: "); choix=inputInt(); /* Input "";choix */ if (choix == 1) /* Tri du choix et ex{cution du */ CelFahr(); /* bon choix Madame, bon choix MonsiePres(); gotoXY(20,15); printWord("1 - Conversion Celsius en Fahrenheit"); gotoXY(20,17); printWord("2 - Conversion Fahrenheit en Celsius"); gotoXY(20,19); printWord("3 - Quitter"); gotoXY(22,21); tion*/ clearScreen(); /* Efface l'{cran */ do /* Ex{cution tant que le choix est */ { /* diff{rent de 3 */ Affiche; } } gotoXY(20,23); printWord("Pressez pour continuer: "); d=inputInt(); } /*============================= Programme principal =======================*/ main() { initIO(); /* Ecran texte = p{riph{rique de destinait <"); } else /* Sinon, on transforme. */ { Celsius = (5.0 / 9.0) * (Fahrenheit - 32.0); gotoXY(20,21); printWord("Valeur Celsius: "); printFlt(Celsius,12,1e-5,1e+5,2)nheit: "); Fahrenheit=inputFlt(); { if (Fahrenheit <= -459.6) /* Dans ce cas, il y a une erreur! */ { gotoXY(20,21); /* */ printWord("> Z{ro absolu @ -459.6[ Fahrenhe==*/ FahrCel() { extended Fahrenheit=0; extended Celsius=0; int d; AffichePres(); /* Efface l'{cran & inscrit la pr{sentation */ gotoXY(20,17); printWord("Conversion Fahrenheit en Celsius"); gotoXY(20,19); printWord("Nombre en Fahre1); printWord("Valeur Fahrenheit: "); printFlt(Fahrenheit,12,1e-5,1e+5,2); } } gotoXY(20,23); printWord("Pressez pour continuer: "); d=inputInt(); } /*============================ Fahrenheit en Celcius ====================%"n zzNN"n zzww"n zz"n zz"n zz"n zz"n zz"n zz66"n zzSS"n zzoo"n zz"n zz"n zz"n zz"n zz"n zz=="n zzff"n zz}}"n zz"n zz"n zz"nhh{i+k;iH H H "zzk ;8[id B$iHih "azzzzzB B H H "h"zͥH" hԆ֩  "{i+k ;8[i*d" z)  0  {iHaa{iH"7;i3aa"zz"Rhhhhh0.hhh";iaa"m;i "Vzz8ȅƥ8pI0SȢH" hԆ֧HƢHȢH" h" hԆh ȥ8pI08Ȁ&ȢH" hԆ֩ ȥ8pI0 )"h{i+k ;8[i"/0  .  0   "Pzzzzz"R{iH"zzzzz"p"0i aah  "{i+k ;8[i*'" zH ("h{i+k ;8[i '"H" h  "{i+k ;8[i*)" zH;8[i*}" zd@H" hHH" hh 8pIH" h {i+k ;8[i ""+ {i+k ;8[i &"H"  )8TpIM)8pI0=)H "H" h 8) )$8pI "8pI0 ) 5)  "H" h {i+k [i*^)i )i       "{i+k ;8[i* "   "{i+k ;8[i "{i+k ;8[idH ""h " " "*{i+k ;8[i*2 " "*{i+k ;8[i*/ " "*{i+k ;8[i* "{i+k ;8"$8pI$8 pI$$Q" #"zz"n zz"zz{i+k ;8[i " " " " " " zzHH"n zz@P?ŧGG# " ;i""zzYY"n zz" {i+k ;8[i"""T"zz{{"n zz"zz"n zz"zz"n zz"zz"n zz" $$"${iH"zzzzz"T"zz"n zz"zz  "n zz""R{iH"zzzzz"0"zz##"n zz@"@@"R"{iH"zzzzz"@@"R"R"{iH"zzzzz"zz"n zz@P?ŧGG# " ;i""zz"n zz" {i+k ;8[i{iH"zzzzz zz  "n zz44"n zz{i+k ;8[i{iH"zzzzz{iH"zzzzz"T"zz]]"n zz"zz~~"n zz""R{iH"zzzzzzG"0"zz"n zz@)^)"'))")"w8iH""ziHH몧" hh zu8iH""ziHH몧" hh ) )) x8iH""ziHH몧" hh ^8iHEՁ/691ng Ags'3?KWco{@XoSRjT<^z+TJYrOmd >dp| $0Ct  49,b8f 9X[} "%3:9O7  es4U\| ),4Hh ө {i+k~D`jv*6BNZfr~$-7CO[aer  Tfrx  :JVx 7;?IUamy 6td=FSp1Z`\u{V66{i+k ;8[ihHhBR{iHPhN'NN"\PN)HPN" h)/8 pIť8  RHPN" hHH" h8Hhh 8pI zzzzzk;iHi H "h6;i6H((8P8k;iHi H " zzzzzk ;[ȗȗ+k8k ;8[iiHih)H"Kh{i+k ;8[i~HH"Kh8 {i+k;iHi H " zzzzzkcck;iHi H "h6;i6H((8P8k;iH H "   zzzzzk;iH H "  iHihHʆ & &H " hhHh8pIʆ & &H " hHh{i+k;8  Z;iH "k ;8[iA)Hh ""ziH몧" h ) ) 䂕H" "iʆ & &H" zz 몧H hHh몧Q)DD @,@ ~globals D? @,@ ~arrays Can't allocate SANE direct page================================================================================I II Conversion Celsius en Fahrenheit II 222):ER8ė:22::" GLISSEZ UNE DISQUETTE PRODOS DANS LE SLOT ";S$;" DRIVE ";DR$;: " ERREUR ";ER;" - TOUCHE SVP ";:R$::216,0:125$;",T$B0,A$1000" 768u 22:"":958:24:"(R)ELECTURE (A)UTRE FICHIER (M)ENU DE DISQUETTE (F)IN ";:R$:"" (R$)82R$((R$)32) R$"R"175 R$"A"125 R$"M"ĺD$"PREFIX/T21":D$"RUN STARTUP" R$"F"ė: 180W ER(:D$"CATALOG,S"S$",D"DR$::R$:D D$;"PREFIX,S";S$;",D";DR$X D$"PREFIX":P$ ::24:"PREFIX (d{faut: "P$"): ";:"";PR$:PR$""PR$P$ D$"PREFIX";PR$ :D$"CATALOG,T$B0" :23:"FICHIER A LIRE: ";F$:F$""180 D$"BLOAD ";F,162,4,142,123,5,104,32,237,253,201,141,240,6,200,192,80,144,212,136,152,101,6,133,6,144,2,230,7,44,0,192,16,251,44,16,192,173,0,192,201,27,208,185,96 }::22:"SLOT (d{faut 6): ";S$:S$""S$"6" :22:"DRIVE (d{faut 1): ";DR$:DR$""DR$"1"% d::D$(4):D$"PR#3":'i215@nI768868:R:I,R:s32,88,252,169,16,133,7,24,109,201,190,133,9,173,200,190,133,8,169,0,133,6,168,145,8,133,8,133,9,160,0,177,6,240,65,9,128,192,0,208,22,230,8,208,2,230,9,166,8,72,165 x9,90,32,36,237,122BYTEWRKSL@5h!@hF ,@ DIRECT  absolu @ -459.6[ Fahrenheit <Valeur Celsius: Pressez pour continuer: 1 - Conversion Celsius en Fahrenheit2 - Conversion Fahrenheit en Celsius3 - Quitter- Votre choix: Bye bye... 8HS==================================================Conversion Celsius en FahrenheitNombre en Celsius: > Z{ro absolu @ -273.11[ Celsius <Valeur Fahrenheit: Pressez pour continuer: Conversion Fahrenheit en CelsiusNombre en Fahrenheit: > Z{ro II (c) Emile SCHWARZ & TREMPLIN MICRO II I============================== Version 2.0 (utilise IOFUNC) II II Octobre 1987 / Avril 1988 II II Conversion Fahrenheit en Celsius II II