8L2C)pJJJJ IH(ȱH:=IH[H`@HcH  $ +   I/H`JLNGȄBȄF aK  haaFF  mJm# KKJ UJ )J ۈ) ;J3ȱJFȱJGJKaȄM  aaNNJFLGJL L( D$(4):PR$"TREMPLIN.MICRO1":130CI120:T$T$"____":UD$"PR#3"::_100tD$"PREFIX /"PR$}#150("Vous ne pouvez utiliser cette disquette que si votre Apple dispose du Syst}me Prodos."2 -:"Pour acc{der aux catalogues d ! HEXA ! CADRE ! +PRINT.USING ! EFFACEMENT ! ADRLM ! ADRJ  ELECX~ ~ LOGIC~ !~ ,ECRIRE.PAGE2 ~ !~ (TRI.DEMO~ !~ &QUE.VAF ~ !~ COPIE80 ! EXAMEMz! ,JOUR.ANNIVERp{ !{ .ENVERS.ENDROITv { !{ *LISTAGE.LM{ !} -REVIS.ANGLAIS( ~ !~ -AMORTISSEMENT~ !~ +ELECTRICITE K~ !~ TM1MPLIN.MICRO1' 'STARTUPw ! %INFOS.1 > ! &PRODOS< FAIRE.<{ !{ ,BASIC.SYSTEM/(! HISTOG >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(8Res fichiers DIR, vous devez changer de PREFIX." 222:1:"<1> CHANGER DE PREFIX <2> CATALOG DIR <3> PREFIX AVEC DIR <4> CATALOG <5> FIN" 7140:R(16384)48:R1R555 <21::958:R1R375 A22:"/"PR$"/";:2:"";P$:P$""P$PR$P Ce! H$q!r! c&L*!M8tl # ) y!s!(&s!t! c&E )?  @ e!l!0 $l!0u!v! c&-) &ۍw!x! c&Эb)0I0 ( d!N)Gi/ h!4 堳Ʈ䬠   쬠᭠P嬠P1嬠    堠ŠԠ'  2064<  : o X`  ()     宠庠*    -  ::D$"CATALOG":d :"DISQUETTE "PR$;:PR$"TREMPLIN.MICRO1"Ĺ1403,63:"GUY-HACHETTE-1985";u ::2:T$:IN.MICRO1"(34)" DANS UN SLOT DE VOTRE APPLE"C x216,0:140:20 768,104:769,168:770,104:771,166:772,223:773,154:774,72:775,152:776,72:777,96: 198:16368,0:16384,128,127:16368,0: ::D$"CATALOG /"PR$"/"P$:140:::150: R$P$:D$"PREFIX /"PR$3 F145:140:::150:50@ KR290x P22:"/"PR$"/";:3(PR$):"";P$:P$""İ141:50 ZR470 _:: dER(222) i768:ER6Ģ21::958:"ERREUR NUMERO "ER:140:50/ n198:22:"PLACEZ LA DISQUETTE ""TREMPLn!o!p! k! iL X%>!L;!ΠΠҠ`}!!!"!!!l4"# G$YO!-q(qR9B}PBiB !"#$%&'()*+,-@~@}J@` ߩ%S @ ~`EhhhѺ0 h ѐ# ѐ ѐ ѐ 0 HϭэLпllllhh8` QSTV'P،h@ihAiȱ@JJJJq@)@1vȱ@Hȱ@Ah@Q@c1e J) LxL LxJiB LxJ) <ҩxNhHHHHL(  аƠx@BEOD  а(`( C)CJJJlBJ,~آ <B*IBGF08Lé'+8H <(h`@؍L3<>=?<>CAB@?A` / L  <>` ڢF]PL8i m L   4< L  BLRAM' hLDLHB-4F 1"aɿ LL@ Nϰ H  @h( L Lh  @`bLJCAB@=?,<ʆ>*=?BC8 é&'112` ( < *? ( < (? ( < (? ( <*? * **? *? *? ( < *? ( <Lg& 'L&8ei` ,$`ee` `<( '<( '` ' ' '`hh8`8`=(>(F(`}N(`e`H)hJJ'0JJ)` (<  )1& ` (Xp< @1& )m1&1&.1&4& M1&i  ``rȱȱȱȱ0]cȱeem<(ȱ=(ȱ>(=(ȱF(=(ȱN( '<( z' #'Lg&`L' 'L& ' 8f ZHH)hh8JhJJJJJ '&H(&8H) 12 (j21 h!hH h %)Ђ12H)M0 h10200I20h2 9&`L#`)&!2"L  :8! ȱɈ 5   8 0 8 `0 / x X$$ $&$0`ŠӠ­ԠŠҬîʎ1DžϠ)&ʈ0  0ŠϠĠ͢Š͠͠ϠŠŠϠĠخ͠ YYZLYLYLY뿩 8@  *$ MNЩUM  LPN!-RB}PBiB ,m# m# J Qڨ)̰n]e мȱ ; ̀𩠙< iO P F V >Z SY ɘL` X _ [ V7 c L '0%O '8O JmO * 0ōҍJJJJ ɺi) ɺiL9Ҏ )?qr  Ұ Ӱ   |Ґ `l@Hȱ@IHXATjjȱH ɯȩj5H)/@a)_ .0 :A[8@`,j𪭄Б` Ґ L` א@>+)I38j%k&P'Q+)7+I0 ('*A ܰ7<=FG ݰ( ְLݩI* mIH` LI I%0(F)G ݰ ֬+H&F'G ݰ&FF@ 0 [ gLթK8` I8`FHGH ܪhGhF ݰբFF芝 ݰFG ݮI mIHHyHȘI ݰLԩ` ՠ @;@ C@Ю+)m+ʈ@i ]`^C8` @ x3N@) Wڎ ԭi`0 iڰ0GF ݰ#]0 ڰW,0 ] ۩.H hȑNWȮNW8`N΄0NN` װG8`h)N$%^vywz LL⭦ L x L ;ް  0pzJ{ )@~NJOK ;ްiKKzzww xxIJ{ y zJФ̭xJwjHFIH ~HIG~xKE а((H hH h8`8y@ȭz@L;ެ^8NvNO 8} |vJLy`zRzʱLN.MOwxMEKP/zMEKzLCL-}M| Owx,vpyeNNO(`JNKO^L ;ް/  0P L8 | Zߠ^J`L@yȱ@z^ LL`BLLТТТТТТТТТТТТТТТCOPR. APPLE,1983LM Mh@8nЍLЭ 0J @,,L:,LĠԠhhhhIL@Ae \{**ӂӹi|wWIJK,-NOPQRSuHUSTON!' @   !"#$Ԡ͠ˠ9X(K iXXK^ Ko`V8`no` 2 on iI9XX`)HJJJh`OeNeO࿰ i9XАO`@ȭ@` ON ONJKO`HHHHхFG ݐ ` }ͬ ݰFG ݐ` * }% L`FGLݮ 'ܰ8`FHGHi 'ܰihGhF`@Bɼ>K@J5 i`O WݰIha?+JJJJ+)+@` װ%I -I) 0@+`N8`  ) N^ȢV@vVv^@ʈL\ 簞KIJH^Ȣv^vvw)xJn 8 ΐ^ nH8^ ^i 8`L Ӑ L Ӱ )ܹ0 )p )@ )  ^$0&F'G ݰ ح()&'FG ׬^>?@ ; R+) R+ ְ^)%r ݰ`H@h`h`^ IhHIhH  i ` ܰ ii` )0CGHFHBFG ЪhFhG`@5^͔ M @B^i ׭` .^ @#^0 iڮ])`L@.^ 簪HIRH^  PLzEzʱNLMOwxMEKP%zMEKzL2 Owx,vy PveNNO \(` R  F .AxJRHISHI^ HIHI`  .` .A^ HR HS`@Nȱ@O^`^vY}RIR` tVYR t 3 tVR` ^` H  ^h)N@ N; L  ;ް$ )bJ`a f۰ ) H BhL ) . )xJwjISLLՐ`BLڑL COPYRIGHT APPLE, 1983 h@ 0J @L:HUSTONP8H  ): e: y8鰕:Jjjj<)yi8i;i(*=>hP8`;Zx3QTTSRWVUHEVhEhH)IWHPHHHAHHHLaVEWLӿ.0123456789:;! !5).莀/ ! !!!!! !!$ ! "<" !!뭳!!!!ILYL 8!9!詍` ! !ՠî򠠠!STARTUP/p$# {  { / XXύX?klmnÍoL) !6L'!(0`670! = ***)<JJH !h穖tp% !Z/݀!!'  &@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 pY)p  p`FGV 8``8L:HhHh VY>:Y)`;R?AJ;<ȰY)`Y?)`ȐҰ ;HhHh=`Hh `Hh`DEiȍ01ZsDE8T8Wpq 7I꽌ɪ꽌ɭ蠪:VE:8`]V]H)]V])]T])] >8hUD` Y`> Hh݌(`HCJJJJ)*h`0($ p,&"op8`kkV꽌ɪɖxl*k-kmMl 꽌ɪ`8` *L o % YZoY 3 NZ`rZLkZq8r7IZiZkk 8 s q | kн Z)*>>` @ $(,048<@DHLPTX\`dh 0ުlptx| . .V  JJJJH 8h Ei 8EX`'8`jWC)p> pCYY 轊( ( BV ( p0 \BkJ @i> i'j:ZH i@ioZZH h ȭnWǥBJ 8X>` +>ŠϠŠà͠ӠàԠŬ Gh  l( G쳼󩭙Llid l`H) ZhJJJJ ɺi`  ` .8 `O`S  [AI-Ly !B C ⟩VW 5L壥>  5e>>?́?`>ȥj>>m>` T`m8injkiljo풼i>?Ek?>Q>;>:8o>oȑ>ppȑ>> :op` {KpnͶ @p;=po:i>?Ek?!>Q>>>̀ `` > ̀ `e>>?́?>?Emn(>e>ȱ>e?>Q>ؠ> ie>>?`|;}=:<~:<=;`||m}K`JJJJ8`轚K)` 7#hhL"Jپھ pHJh` {!hgt}~p  `~t}p8n~ni}tpi~~tsLo8pinii>j?k̈́>~|ppn + {pnI:L ؅30,3L]8^933LAAJL ةޘг uv $ 8LЌ Le p>?@`>?@`BQ8`e 矮K ⟩ 䟢 춼LK  z KɍKL"?`  L@3 @LtJ)s@J % `͘?s?,E30ɍФ3 +E3HD F3 Ʉ%h3 M +E  LthɍLL3`3,A0s0% I`O>0O  矢POپھ p AH־Ǿh۰8L"־Jjjjɾ)Ⱦ8 + OL L$L>(F`־ؾپھ׾` Ʉ +KDEF L LK K% ʽ  ٚ,S` w $݅3`(l8L"3L>(Ƀ,`3,G0]ɾ ` w`پ_پ p _پ׾`>( p۾m׾) W)ʩ@`ɾ>(O puȾ ɾ-O c־Jjjj 왻ɠ, XLޭBDEF޾ p 7 ޾ p($ذ (0 U( L?ԦʚLeةީ s +  L ,FL,DLE,C0!3 > Ɉ 3ɾL(3ɾ;Ƀ UB94 H06172839h` 97L75v^͘ ?/( ?LKLLɍ$?`? ɍɥAH93827160hH46576879h`,C Lޛ $0. ɍ  ,S0 ?@ L L btR莪Ta 0a [HT ph(K,Lǧ/A5ʩJ _V zrTJ6LySLا [AJ w@V k38`J" zʩ @V zЧ z ( zЖabT)!J B8`@U)9VJ T)h*I/W) VV }>S ?@$I0 U)VJ *T)`l8`a HbIJhjǾȾɾ p٭b=a##3.'##>> .3##>>#>#3. '### ## ++++#########'>##3. >0####### ++++6# #3## ? ? >#> ####>#>>#>=? >##3.##?#####<<##???<33"##?### <  #?+++++##############<####88? #####>###&+++&# ### ? ?6!Y&>>6?6>##3. 677> ':9### 0 0 *6*> >+'#0 ??0 ?00##? ###> $ $ $ p{ !@z<%CARACV{ !z<)CARAC.DEMY{ !z<*TEXT.ES.2C\{ { <&HGR.ES_ { { <TEXT.ESp{ { <FAIRE.uHUSTON!{ ' '"F1A{ !@z<%ECRAND { !{ <#COMN{ !{ <LMP{ !`{ <"F2R{ !@z<MEVECTԩ p`SW)0پȾھɾ p p 3LjÍ L I 9 1׾ؾ  p p 3 H h(`׾ؾ`  ߭׾t8퍼mؾŰ펼t폼 L8` `F`4W)ɐ/XYjV) *8` h e`l׾ XYW0V):W׾ؾ_`)0%I0)3]8X^YȰ8` 8` p Ⱦɾʾ8`پھW)@%ZȾ pSɐ"jÍgh I @8gȾhɾʾg׾hؾ  p hgͺ칾`L3V)jC mMjà Lp `VJJ°LyLp *)< LA * LAW)8VJưϥ3 ⟢BT eօ ܬ L s򩣍S3 Ly B# e $L? L Y kimljn`  pg׾mȾXhؾmɾYtѮȾɾ YX`8g ':9### 0 0 *6*> >+'#0 ??0 ?00##? ###> $ $ $ ^H$;:110h:-rI040:L%(I)160:]|L((E$,(P1)4,4)):I039:L%(I)(IL):~I039:L%(I)160DI:410I3901:L%(I)160FI:430BF1D:C(39B)2:D1CC1D37,P:36,0:868:IDF:ICL,L%(I):20:CTRL-S (Save {cran texte)N 6A%23530:CTRL-W (Bsave {cran graphique) @A%24İ810:710:100:CTRL-X (Impression HGR simple) JA%25İ810:700:100:CTRL-Y (Impression HGR double format) OA%32110T600:P23A39Ĺ2039,(H$)128:110 de derni}re ligne)R A%1Č998:926:110:CTRL-A (D{but de ligne en cours) A%2Č998:926:1008:922:110:CTRL-B (Fin de ligne) A%11Č998:110:CTRL-K (Ligne au-dessus) "A%10İ610:922:110:CTRL-J (Ligne suivante) ,A%195::100:CTRL-E (Effacement confirm{)W A%21Č1036:110:CTRL-U (D{placement ->) A%27İ810:1030:Sortie du programme avec ESC A%8Č1008:110:CTRL-H (D{placement <-) A%171030:CTRL-Q (Quitter) A%26Ģ23:1:110:CTRL-Z (D{but696:100:CTRL-T (Cadre sans effacement)r A%30Č24693:100:CTRL-FLEX (Cadre avec effacement de page texte) A%12540:CTRL-L (Load {ventuel {cran) A%5İ460:23:1:"==== VOUS EFFACEZ VRAIMENT (O/N) ? ";:R$:R$"O"İ820:90' A%5ĉCEFGHIJKLĝ:110" sA%6A%9A%14340g xA%7İ810:880:198:16368,0:16384,128,127:16368,0::100 A%13İ610:340: RETURN A%16İ810:830:100:CTRL-P (Page de fonctions) A%3İ600:370:340:CTRL-C (Centrage)* A%20Ĺ36,0:37,0:24  256501100+:255:(21):<(L%(41):960B2:k<***********************************F*** SAISIE D'UN ECRAN TEXTE ***P***********************************Z:d1nH$:A%(H$):A%31340pA%9Ğ:110 qA%14 >##3.'##>> .3##>>#>#3. '### ## ++++#########'>##3. >0####### ++++6# #3## ? ? >#> ####>#>>#>@B >##3.##?#####<<##???<33"##?### <  #?+++++##############<####88? #####>###&+++&# ### ? ?6!Y&>>6?6>##3.#:810:21:1:958:T$:):R***********************************{**** SAVE TEXTE OU BSAVE PAGE 1 *************************************:550::(4)"BSAVE"F$",A1024,L1024"::1:110 550:(4)"BSAVE"F$",A8192,L8192"::1:110M832:550::(4)"BLOAD"F$",A$5000":::1:1:888:820:100V&46001:23:"TITRE DE L'ECRAN ";F$:F$""İ820:630:820D1:"":34,23:50,128NXP(37):A(36):bP(37):P23630lv198::100:&̭Ӡ堠̭ 堠``̭ѠӺ -̭ԠMO̭Ơ̭ǠƠű"`̭̠䠠̭̭Π젠̭נŠű -Πű`̢           ̭ɠ堠 -Πű05jER10ĺ"FICHIER VERROUILLE ";:R$:"":730ftER6ĺ"PAS DE FICHIER "F$" ";:R$:"":730~"PROBLEME IMPREVU ";:R$:"":73051,0::820:100 :4$***********************************].*** TRAITEMENT DES ERREURS ***8***********************************B:L:ER(222)V460:ER4ĺ"DISQUETTE PROTEGEE ";:R$:"":730`ER9ĺ"DISQUETTE COMPLETE ";:R$:"":73119213201448157617041832196011041232136014881616174418722000":22:5::"1";::" CLEAR PAGE1 ";::"2";::" SUITE NORMALE ";:H$:A%(H$)A%1Ĺ230,32:62450850:::50,255:::22:"RIEN N'EST PERDU EN TAPANT GOTO 2000"********3*** DEBUT DE PROGRAMME ***\***********************************b:D$(4)::D$"BLOAD COM,A$4000":D$"BLOAD LM,A$6000":D$"BLOAD MEVEC":832T$"":I110:T$T$"____":?E$"000102411521280140815361664179219201064IQUES2fD$(4):D$"BLOAD"F$",A$6100":24751:sp16304,0:16302,0:(16301K),0:16297,0:230,K32:24576z24659,234:24660,234: ON EFFACE (AVEC 17 ET 42,ON ECRIT SUR LES TEXTES OU TRAITS EXISTANTS): ********************************************** :@*6,00:7,04:8,00:9,80:24793:e46,00:7,80:8,00:9,04:24793:>6,00:7,64:8,00:9,04:24793:16368,0:16384,128,127:16368,0:820H:RK1: HI-RES PAGE 1\:12:"FONT ";F$:F$""ı: CARACTERES GRAPH(9)"GLE"%(12):(4)"PR#0":151,128820:460:"TAPEZ POUR LE CATALOG ";:R$:R$"C"ĉ:::D$"CAT":R$::740820:100:*********************************** *** DEPLACEMENT DES ECRANS ******************************************************O*** IMPRESSION DE LA PAGE GRAPH ***x***********************************~: CES CODES SONT CEUX DE LA CARTE BUFFER DE BIP:(4)"PR#1":(27)"L005":(9)"GLED":720 :(4)"PR#1":(27)"L005":̭Š򠠠ӠӠ̭à򠠠󠠠" $(*))+( iR``iR`ɀi@R`ɠ1)***H*) `P`h)O``IQ**+i+R`!#` X ( H`h`'(OPw6`7 `Ɇ Ɏ ɉ L2`L`?L` ```۠ߠݠܠUW      .1 "`נؠà֠ Π㠠⠠` ѠӠĠƠǠȠʠˠ̠͠䠠栠砠蠠ꠠ렠젠ࠠxxx (x08`xx x(0x8` >!!1.!!!>> .!!!>>!>!!. !!!! ! !%%%%!!!!!!!!!!>!!!. > !!!!"""))))6""9!! ? ? >!> !!!!>!>>!>QS >!!1."">"" !!!<<!!!?????<9"!!!/!!!8!  !?!%%%%%!!!!!!!!!!! !!!!!!< !!!! >!!!!!!>!!!! %%))"""""??6!)>>??>!!1. 677> '':9!!! 00*6*>1 >1%#! ?? ?? "" !!!"$ $ $  ڠŠҠԠ٠ՠɠϠРᠠ堠頠ޠѠӠĠƠǠȠʠˠ̠͠   ޠ2    *^`abcdefghijklmnŠӠҠ̭Ơ|kȠŠŠө      V (Ъ +>[]堯㠠堲󠸵 (RWUڠŠҠԠ٠ՠɠϠРݠܠ  ۠ߠߠ   ``XZ    .1 : ڠؠà֠ Π ' ࠠ#`O   `666###   666666 #?### #### 66666666666666666666666666666666666666666666##666666666666## ####### #66# +#666666666666666666666666666666666666666666666666666666666####  # ###### #####>#>>> >>>### >>>0>>***?#?? ??#< #?0?###?#< ##?#>. >## >>?>?+.***##8#  8# #******#8#### ####8*****************************************``***0##0************3 00####'' **+30#0*********************************************************#?8#  8# # ?8#### ###?8 * 7** ECRAN DE SAISIE **S <***********************************Y A:s FI1L8:(J$,I,8): K32,29:::4:B$:" QUEL JOUR ":" ETES-VOUS ":" NE(E) ? ":B$: P32,0 U12:T$:20:T$ Z350: _I18:M1$(" DLMMJVS",I,oqrst16368,0:16384,127:16368,0:X(16384):X64X91690Q I:TT1:T::150W : *********************************** ** LIGNE ANNONCANT LE DEBUT ** *********************************** : 4:T1$:12:T1$ :I512:1:I:uwxyz{|}~OGRAMMES **9 P***********************************? Z: d:120::"ESCAPE SVP";::"";:M$:A(M$):A27HH1:120:560 n:100 x21:1:958: 32,2:33,26:34,6:35,10::35,7: S14:X(49200)::: 6:33::140:I125: ::(21):n"TAPEZ ICI UN TEXTE DE 24 SIGNES MAXIMUM - TOUCHE POMME OUVERTE POUR COMMENCER **** "I110:T$T$"____"::T1$(T$,30)((0)0Ĺ0,0:960-:2202:<*********************************** F** QUELQUES SOUS-PRchiffres ne sont pas des multiples de 4mLa France a adopt{ le calendrier gr{gorien depuis le 9 d{cembre 1582... qui fut suivi du lundi 20 d{cembre 1582. Le 1er Janvier 1583 {tait donc un samedi1> POUR UNE AUTRE DATE <2> POUR FINIR ";:R$:R$"1"ĉ::x^:22:"POMME OUVERTE POUR SAISIR UNE AUTRE DATE":95~c:)hEst bissextile toute ann{e dont le mill{sime est divisible par 4, sauf si elle est termin{e par deux 0 et que ses deux autres ((VJ7(VJ7))7.5)@1V2:1:"CE JOUR-LA ETAIT UN ";:O6VJ0VJ7g;(J$,(VJ8)7,8):m@:E***********************************J** ON RECOMMENCE OU ON ARRETE **O***********************************T:>Y:22:868:"<*********4 *** CALCUL DU JOUR ANNIVERSAIRE **] ***********************************c : AN((VD$,4)):MO((VD$,4,2)):JO((VD$,2)) MO3MOMO12:ANAN1 "VJVJJOAN 'VJVJ2MO(.6(MO1))(AN4)(AN100)(AN400)2,VJH1S51165* H2(VD$S$)31165< H4S49165[ H5((VD$,1)S$)12165m H8S53165v 230 H2H5S$S$"/":HH1 H6S$S$"1":HH1 VD$VD$S$ :S$: H10HH1:170 : ************************** H1:V14:VD$"":VJ0I V:H:"VOTRE DATE DE NAISSANCE : "XD$:170[ H1VD$"":p VD$(VD$,H1):x S$ V:26H:S$:S(S$) H1S8190 HH1:1729H,(1729H)128:155:(1729H)47175 170 S48S59170 40 1):M2$(" DLMMJVS",I1,1):I3:1::M2$::I2:1:M1$B d40H ik nX(49249):TEST POMME OUVERTEy sX12895 x: }*********************************** ** DATE DE NAISSANCE ** *********************************** :" ";:30:" ":: 130/ DE1794:P278W IDE1819:X(49200):I,(IP)128] n P337PP1w "140 ,ARRET(49249):AR127380zVoьslx L*'&#t^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^vxx(v^^VT$7=%?1U00U84U8<1;2U00u TEXTE **5 h***********************************; r:t |:10:33:"ESCAPE":11:33:"POUR":12:33:"FINIR"} 130 :H1:PL0 "........................ "; 7:H:"";:M$:A(M$) A27H15HH1:560 A8H1HH1:H1793,174  4350::(21):9L14320:L2L121:L3L25PIL1L3:R:I,R:wPI$"n072N080E096q120Q136P160p144"#:5:"LISTAGE DE N INSTRUCTIONS EN LM":(T$"":I110:T$T$"____"::T$:34,3-:2**********************************& 776:787,3:788,3:789,96:63:LE40:1130:PI111:1130:PI141:1130:PI159:LE50:1130:REST100:1130:PI141:LE60:1130:PI159:LE255:1130:771,173:772,48:773,192:774,136:775,208:776,4:777,198:778,1:779,240780,8:781,202:782,208:783,246:784,166:785,0:786,:6$198:16368,0:16384,128,127:16368,0::<.:a8 ******************************B ** L'AIR DU VAINQUEUR **L ******************************V:`1160:1150jRESTāX1REST::REST0:t0,255PI:1,LE:771:v~PI1050w:::I15614:9(I13)14:14:(" MAIS IL Y A LE H A S A R D! ",I,14):::"IL ARRIVE QUE L'APPLE ESCAMOTE UN ";::"ESPACE";:::" ET LE COUP EST PERDU POUR VOUS..."23:12::"PRESSER UNE TOUCHE" PHRASE EST TROP COURTE, ON ESTPENALISE ET ON EST EGALEMENT PENALISE SILE TEMPS MOYEN DE REFLEXION DEPASSE HUITSECONDES PAR COUP. S'IL EST PLUS COURT, IL Y A BONIFICATION...1::"L'ENVERS NE VAUT PAS VRAIMENT L'ENDROIT!":I14:" "T$(I):: ELIMINANT UNE LETTREQU'IL FAUT DECOUVRIR DANS UN MINIMUM DE TEMPS."T$(3)"ON NE TAPE QUE DES LETTRES CAPITALES ETPAS DE PONCTUATION. UTILISER LES FLECHES<- ET -> POUR LES ESPACES ET LES CORREC-TIONS, LA TOUCHE POUR TERMINER."T$(4)"QUAND LA** TEXTE DE PRESENTATION **P***********************************V:T$(1)"LE JOUEUR TAPE UN GROUPE DE MOTS (OU DELETTRES) DANS UNE FENETRE (24 LETTRES AUMAXIMUM)."ET$(2)"L'APPLE RESTITUE AUSSITOT LA LIGNE,MAISA L'ENVERS... ET EN TRE TOUR/AUTRE PARTIE/FIN **H>***********************************NH:]R19:1:T$\21:1:"<1> SUITE <2> NOUVELLE PARTIE <3> FIN ";:R$f0,0:120p(R$)390,10,900z860:::***********************************'LTLTMH:SCGA10TJ8TTJ24LTn1:1:868:"VOUS AVEZ TAPE ";::LT;::" LETTRES - SCORE:";::SC: 3:1:"-TEMPS: ------PERDU: ------GAGNE: -"3::8:T;:23:PE;:38:GA: :************************************4** AU***********************************.:A:14:1:868RE$"GAGNE!":GAGA1:XELGAGA1:PEPE1:RE$"PERDU!":720112014:8:"C'ETAIT UN";::1:RE$;:19:(EL)::*******ACTUALISATION DU SCORE **:#TJGAPE:1)H):MHH-DHH1793:I11941193MHLNISUPL1:EL(H)64:610_XIPL,(H)128ibHH1plIv:14:1:"QUELLE LETTRE A ETE ESCAMOTEE ? ";:150:************************************* QUELLE LETTRE A ETE ESCAMOTEE **(:420 A32A21A96:4703 A65A90420< 140M H1793,A64a HH1:H25100j 420p : *********************************** ** LETTRE ELIMINEE ET AFFICHAGE ** *********************************** &:0SU1194((* SAISIE DES PARAMETRES *N <**********************************T A: F20:T$:22:1:" PERMET DE REVENIR A L'ITEM PRECEDENT":35,19 K4:1:"SLOT DE L'IMPRIMANTE = ";:G$:G$:SL%(G$)48:SL%1SL%7SL%6SL%375/ P6:1:"TYP1::"PRESSEZ UNE TOUCHE":M 198:16368,0:16384,128,127:16368,0:S :w ****************************** **** REVISION D'ANGLAIS **** ****************************** : :::"COMMENCONS PAR DES MOTS ANGLAIS DONT IL VOUS FAU! dZZ18:BZZZ(49200):ZZ:6 nI120:100::a x23:8::" PRESSEZ UNE TOUCHE SVP ":~ 22:958::3:ER0160 ER1ĺ"1 MAUVAISE REPONSE - ";:160 :ER;::" MAUVAISES REPONSES - "; :X;::" QUESTIONS":I11500:: 23:1 :255::(21):A7::" PETITE REVISION D'ANGLAIS ":V4:YV:D$(7):TR$"":I110:TR$TR$"----"::TR$:34,2(2402:<******************************F**** PETITES ROUTINES ****P****************************** Z:X516S1:,L1.1A(AD)(6)(7)256H6AD1P1(6):P2(7)`;AD2A(2)A(1)S1f@E165,6,10,10,10,10,101,7,133,7,165,8,10,10,10,10,101,9,133,6,96J169,1,32,99,254,96: :2**********************************Z* ADRESSE HEXA MISE SUR 2 OCTETS *********************************** :S0:10951X512515:A%(X)A%47A%60ĹX506,A%48:295A%65A%70S1:"X506,A%55':(27)"Y"(15):1NX0:NL60:TI$""NL604C58,P1:59,P2lL2:NXNX1:NXNLĺ(12):NX1:NL60((58)(59)256)A(2)220(12):(4)"PR#0"50,255:22:868:"<1> AUTRE LISTAGE <2> FIN DE PROGRAMME ";:G$:"":G$"1"70:-ELLE PRETE ? ";:G$:"":# :K **********************************s * EDITION SUR IMPRIMANTE APPLE * ********************************** : 34,22:50,128:(4)"PR#"SL%:(9):(27)C$;:(27)M$TI$""ĺ(9):(27)"X"(14)TI$" A ";::A(2): 16:"TITRE DU PROGRAMME (OU RETURN) .........................":18:1:"";TI$ TI$"?"130 16:958:"TITRE ";::TI$;::"";:G$:"":G$"?"160 18::"L'IMPRIMANTE EST10:1:"DEBUT DE PROGRAMME EN HEXA = 0000";:30:657H sAD1:270V xA%6395c }S1110 12:1:"& FIN DE PROGRAMME EN HEXA = 0000";:30:657 AD2:270 A%63110 S1130 AD1130 14:1:"IMPRESSION DE ";::A(1);::E DE CARACTERE (nNEqQPp) = ";:G$:G$"?"75S UI1324:G$(PI$,I,1)Ă:80{ ZLM%((PI$,I1,3)):C$G$:C$"-"LM% _8:1:"LARGEUR DE LA MARGE (MAX="LM%40") = ";:"";G$:MA%(G$):MA%LM%4095 dM$"L"(("000"(MA%)),3) iG$"?"80: nT DONNER LA TRADUCTION...", 110:110:@ A$:YY1:XX1t X18X27X33İ170:130:YV::YY2:X33420 X18ĺ" DONNEZ MAINTENANT LE MOT ANGLAIS !" "X27ĺ" DONNEZ MAINTENANT LE MOT FRANCAIS!" ,1:Y::X;: 64:A$:100 @17:Y:B$:B$""320+ JC$:17:Y:868N TB$C$::"?"::ERER1:360V ^C$e h25:Y:C$p r37:Y |B$C$ĺ"YES":400 "NO"D$ X32X33:270 260 :YV1:ZY:(1):(V)9 Y1:1:T$" QUE SIGNIFIE CETTE *******-*** PRINT USING ***Q******************************W":u'L(U$):LPL2:LP0310,ULLP1:(U$,U,1)(46)3151U6UL1;00):295:17U:U$;:21:R$;:U$((ME100.5)100):295:35U:U$W I1I10İ110{ I9ĉ:125:H$:95:V10:105: I NA9ĉ:120:H$:"":H$"1"İ95::Q3:MEMS:215 :90:115:H$:(H$)27ė:  : ***********************AGE ***/ ******************************5 :A 90:95U ININ100:MSME MAMEIN(1(1(1IN)NA)):VA(MA100.05)100:QQ1:R$(VA):135:160 V10:105 I1NA:AMMAMEIN:MEMEAM VV1:V:I;:3:A$;D U$((AM100.5)1E L'EMPRUNT":0 Q$"NOMBRE DES ANNUITES ":P Q$"TAUX DE L'INTERET ":p Q$"MONTANT DE L'ANNUITE": Q165,170,175,100 ME(R$):100 NA(R$):100 IN(R$):100 : ****************************** *** CALCUL & AFFICHRESTE= ":- nA$" = ":R$" = ":_ sQ$"FIN = - AUTRE CALCUL = TOUCHE":130 xQ$"<1> REVOIR LE DEBUT <2> SUITE":130 }Q$"ENFONCEZ UNE TOUCHE POUR LA SUITE" 23:1:868:Q$;:H(36)2: Q140,145,150,155 Q$"MONTANT D198:"";R$! <R$""Q1160P AI1(R$):AS((R$,I,1)):AS47AS5875p FQ3(Q3AS46)Č198:55 K:160:Q350 P205 U: Z22:1:958: _32,2:33,37:34,10:35,20:3:: d3:1Q2:Q$" ";::R$:: iA$"AMORT.= ":R$" ::(21):bI1404:I:1:"____":21:I:"____":::I221:I:1:" ";:40:" "::h:********************************* SAISIE DES DONNEES ***#******************************(:-Q02QQ1:135:130 723:H:U EST LE STYLO?,WHO'S HE?,QUI EST-CE?UEL?/QUELLE?,WHAT?,QU'EST-CE QUE?,WHAT?,OU,WHERE,QUI?,WHO?bTO BE,ETRE,TO DO,FAIRE,TO READ,LIRE,TO TALK,PARLER,TI WALK,MARCHER,TO WRITE,ECRIRE'l WHAT'S THIS?,QU'EST-CE QUE C'EST?,WHAT'S HE DOING?,QUE FAIT-IL?,HE'S READING,IL LIT,WHERE'S THE PEN?,O,BUREAU,GOOD,BON,HE,IL,IT,IL/ELLE,MAGAZINE,REVUE,MORNING,MATIN,NEW,NOUVEAU,NEWSPAPER,JOURNAL,NOTEBOOK,CAHIER,ON,SUR,PEN,STYLO,PENCIL,CRAYON,TABLE,TABLE,TEACHER,PROFESSEUR<X CE/CET/CELLE,THAT,CELUI-LA,THAT,LE/LE/LES,THE,CE/CET/CELLE,THIS,CELUI-CI,THIS,Q12:(T$,I,15)::?6:23::" POUR RECOMMENCER"X180:(16384)13Ĭb::h:&****************************0**** QUESTION/REPONSES ****:****************************D:NA/AN,UN/UNE,BOOK,LIVRE,CHAIR,CHAISE,DESK PHRASE ? ":I1(T$)10::(T$,I,10)::X 32,12:13::33,27:35,22w A$:ZZ2:1:Z1:A$:100 ZZ1:A$:110 4:"--> ";A$ Z19450 :120::12T$"C'EST TOUT POURCETTE FOIS! A LA PROCHAINE!":I1(T$)15: :(4)"PR#3":+C(10,6,1),T(4,1)51070;(:_2******************************<***** S A I S I E *****F******************************P:Z32,0:33,49dCRĞn4:1403,7:NDAN1:CRĝ: xI16:C(AN,I,0)0N#Ͼ p о־޾Ǿ` 8` 8`ɾ)ɾ̸ ɾɾ0miȾ p pY)ικ`lP y*,N!ǾȾɾʾ pǾ~H Uh8`8`,C U  8` 2ȾɾM$ mHݓǾ phϾ A ԟ ` ])Y 񩢍`Ⱦɾ0Ǿ p)莼 * 6 w= l& l8Hh l` 6Y׾ؾ+پھ p|پɾʾ`HV)jh츾$-ˌھپLp k V)@W0!XY aX6Y7` a YX`X:Y;τ<:: <`:8`'OV)Jj *f a  ԟ  ԟ ⟭ + +:ji  ԟɃ B , ***)***** TABLEAU ANNEES *****M******************************S:[:o20:1403,0:T$22:1403,0:"ANNEES A AFFICHE ";::ND"-"NDAN1;::" (X,Y) -> ";A1$,A2$ A1$""A2$""770A1$"?"A2$""ė:540  A1(A1$):Ax factures annuelles ----------------------"t21::"* pour corriger ? pour obtenir le MENU"15::868:"-> ";:R$:R(49152)48:R1R4670R$:R90,750,750,690FIN1:1110::::*************************** TABLEAU <4> FIN DE PROGRAMME "QDI1(ME$)25:5(I24)252:1403,54dN(ME$,I,25):jX:b******************************l**** M E N U *****v******************************:332,52:33,29:1403,53:17::"SiION D'ELECTRICITE ET COUT ANNEES "ND;"-"ANND1:2:T$&4:1403,51:(T$,29):14:1403,51:(T$,29)0:I514:I:1403,51:" ";:1403,79:" "::&:ME$"<1> ENREGISTRER FACTURE <2> SIMPLE CONSULTATION <3> EDITION DU1403,14(((C(AN,I,1)))):C(AN,I,1)2 :8 :\ ****************************** ***** AFFICHAGE DU MENU ***** ****************************** : 650 I110:T$T$"________":TR$TR$"--------":U1403,0:1:"CONSOMMAT(V$):AS((V$,I,1)):(AS48AS57)AS46ı; h:B1:A r:e |****************************** ***** AFFICHAGE DONNEES ***** ****************************** : I16 4I2:1403,3:868 1403,7((C(AN,I,0))):C(AN,I,0);* ( CRANMA:420:N1:CR0:100:470W N6(N6)ANAN1:N0:NDND1:198:110` 150| ":V:1403,18::A$:: ,: 6****************************** @***** CONTROLE CHIFFRES ***** J****************************** T:/ ^B0:I1:420:160$ V$KW$:350:B160 21:1403,0:" MONTANT FACT.-> ";CN$:CN$""C(AN,N,1)0CN$(C(AN,N,1)):A$CN$:V21:290 CN$"?"C(AN,N,0)(KW$):420:650 CN$"*"160 V$CN$:350:B210 C(AN,N,0)(KW$):C(AN,N,1)(CN$):420I1:140 1 :I16:4I2:I:::420; NN1 19:1403,0::N;::" CONSOMMATION -> ";KW$:KW$""C(AN,N,0)0KW$(C(AN,N,0)):A$KW$:V19:290 KW$"?"ī650 KW$"*"N1NN1:160 KW$"*"NAN1N6:MAAN:ANAN1:CR1:100 pH h8`Ͼо־ǾҾ_` EӾ pW) |LC`C N `9V) ß ` V) y޾ p` y (8` 8`8`(W)`_V)Ij!؍Í`_ jЭW)`_ 2Ͼ pH h8`jGMоM  G):_`蹀:`V)8`MN; ;`;C N8` G)̀#:蹀:`V)R yHISTOGuHUSTON!z' '&GRAMME z! HISTO.LMuz!`zHISTO.1zz(FAIRE.F1>z!@zHISTO.F1<zzN 80 COLONNES SUIVANT VOTRE IMPRIMANTE"^198:16368,0:16384,128,127:16368,0::540d:*********************************** INITIALISATION ***********************************$:.1090N8(4)"OPEN ELEC":(4)"READ .T(J,0)(T(J,0)12):T(J,1)(T(J,1)12)F::C(J,I,1)09601403,H8(((T(J,0)))):T(J,0);:1403,H15(((T(J,1)))):T(J,1);:::**** ATTENTION! CARTE MID ****:)22:R3Ģ22:868:"PARAMETRER LA COPIE D'ECRAN EfHJ2020:4I2Ap1403,H8(((C(J,I,0)))):C(J,I,0);mz1403,H15(((C(J,I,1)))):C(J,I,1);T(J,0)T(J,0)C(J,I,0):T(J,1)T(J,1)C(J,I,1):I6960:TR$:1403,H8(((T(J,0)))):T(J,0);:1403,H15(((T(J,1)))):T(J,1);:2(A2$):A1NDA2NDAN17701*A2A14770k4::2:1403,27:"CONSOMMATION D'ELECTRICITE":3:TR$>NEA2A11::I1NE:4:1403,I2010::A1I1::H5:1403,0:TR$RA1A11ND:A2A21ND:IA1A2:T(I,0)0:T(I,1)0:\I16:JA1A2L5LLL"L  KN)_ `@S8` ԠŬLL<[B?I>孓`仫6VtCicQĿUKqtVt Nʮq$6,⨁ K6, VtI=v!gNVt Vt  lg~TŠӠŠҠüϠž(+@ABCDEFGHIKLMNPSV     T[fouu~ՠٯ* PWN*]ĿNTz @n6VC/+A>@I5gN Oz @n[Dz @nd0,~z @`$仫@v$⩔,CTORENAMEBRUNLOCKCHAIN#FLUSHREADPOSITIONOMONPR#PREFIXCLOSEAPPENDx{[{0ǭ0hЫ}wA Xw­孶׭fl@@ -!S    !C- !ABELSDFRV@@ !$(19@E(8mȾȾmɾɾʾiʾ` Lpl8l:/[ҝƬƀ#(ZZV4D\-:% >M CgIY2m*b6>BSAVERIFYBLOADELETECATALOGOPENWRITEXECREATEFRES p` y־ǾҾ,G 8`׾ؾ  p жۥs׾tؾE` y ( о(־Ǿ,G 8`_`W)H־Jjjjh p̭ L;Ǿ ..8 ۭ }ȾȾI>Ie f`8` yP־ǾҾ,G0C =W)_``\"׾پӾؾھ pD`־ǾY׾ؾOW)ݩȾɾʾ pD`8`W)CB) ۵ 5W) )W)@! pZ}ȾȾ޾,N0MHhHh p' ,N HCNh`M`M N `޾Lp yh־Ҿ,G0^W)TP) ecfdپھ׾ؾӾ p$c d pccddީ 8`ȾɾʾNfne  25600:C2:3::2D$(4):G$(34)<(1160S2A(12),V(12),I(12)v<B10: LARGEUR DES COLONNES FA(49233)P870Z:d******************************n***** PERSPECTIVE ***** x******************************************2***** FICHIER *****V******************************\:34,21::22:8:"TITRE -> ";F$:F$""9101320$22:O41080.D$"OPEN"F$:D$"READ"F$:N:I1N:A(I)::E$:C$:D$"CLOSE"F$:D1:H0:760:1090O08H0O8R$"PAS D'HISTOGRAMME PAGE 1":980:920|D0(O2O4O6O7)R$"AUCUNE VALEUR EN MEMOIRE":980:920H1O7O10O350,350,1040,1040,560,710,610,1250,970,260::22:1:958:8:R$::******************6. Autres commentaires 7. Voir l'histogramme 8. Imprimer l'histogramme9. Fin de travail "I122525:8:6(I24)25:(T$,I,25)::17:8:"_________________________":95819:8:"Option choisie ? ";:O$:O(O$)48:O1O992****************\:vfT$"' ' HISTOGRAMME ' '":::I15117:12:(T$,I,17):|pgzT$"1. Saisir des valeurs 2. Corriger des valeurs 3. Lire un fichier 4. Enregistrer valeurs 5. Corriger un titre A(I)SSA(I):! MA10{I1N:V(I)(A(I)M):V(I)1Ģ22:1:"LA VALEUR NUMERO "I" EST TROP PETITE":NI:400 I(I)(A(I)10000S)100*:4:>******************************H***** M E N U *****R**************38K:I(I);:39:"%":019:1:958:C$j22:"Autre commentaire O/N ";:H$:H$""H$"N"74019:1:198:657:C$"":F512767:(F)141C$C$((F)128):F19:1:958:C$:H0:O68701180:140A0:S0:I1N:A(I)(A)AXD1:870b:4l2:(41(E$))2::E$:DvA((A))5fI1N:5I:V$" ":I9V$""z33A:V$I". ";31((A(I))):A(I)" ";:H$(I(I)):K(H$):I(I)(I(I))690(H$,K1,1)"."KK1:700(H$,K2,1)"."700KK30:760 :2 ******************************W ***** TEXTE ***** { ****************************** &: 022:1:958:"TITRE ..............................";:E$""Ė7:G$E$; :7:"";H$:H$""590 DH0:E$H$NO591015:657:A$"":F512767:(F)141A$A$((F)128):Fb A$""A(N)0ĢN8:15:A(N):490y A$"0"NN1:500 A$"*"N1NN1:400 L(A$):L11400 F1(A$):G((A$,F,1)):G48G57400 F A(N)(A$) N12390 HS VALEURS ":4 hB$"":I110:B$B$"____"::B$ r"Vous ne pouvez pas saisir plus de 12 va-leurs. Pour stopper, tapez <0> et un <*>pour corriger une valeur." |B$:N0EN:N0 NN1 N8:1:V$" ":N9V$""; V$N". VALEUR -> "A(N);:,YXB5,Y5 I" 49232,0` 198:16368,0:16384,128,127:16368,0::H1:O10910i 870o "u ,: 6****************************** @***** PARAMETRES ***** J****************************** T: ^::11::" SAISIE DE :' 1,11,140279,140279,11,12 I1NC C(5C):CN AV(I)^ XB(I1)Bl Y140BA J0B:XJ,140XJ,Y:J 3: CONTOURS POUR HCOLOR=2 X,YXB,YXB,140X,140X,Y ARRIERE X,YX5,Y5XB5,Y5XB5,140:XB8D$"OPEN"F$:D$"WRITE"F$:N:I1N:A(I)::G$E$:G$C$:D$"CLOSE"F$:1090YB870bL910hV:`******************************j***** TEXTE EN HGR *****t******************************~::D$"BLOAD HISTO.LM":(4)"BLOAD FAIRE.F1,A$6100"::24659,234:24660,234:24576@F:j*********************************** EDITION GRAPH ***********************************:49232,0D$"PR#1":(9)"G":D$"PR#0":870:*********** UX,I53,I:64,I117,I:128,I181,I:192,I245,I[ Z0,E53,E:64,E117,E:128,E181,Ex _E88E153ē192,E245,E~ d i: nY72:FYD:ED sIX546 xI,XI,Y:I64,XI64,Y:I128,XI128,Y:I192,XI192,Y }I,EI,F:I64,EI64,F:I  24577G5300.:(21)::D$(4)CC(4,12),B(4,12)L560W#::3`(335f-:2*************************7TRACE DES GRILLES *****<*************************A:F230,32:16299,0KX0:D87 PIX726:EDI4LOGICuHUSTON!~ ' ''GRILLES ~ !~ %CARAC3~ !`~ +RUN.GRILLESJ~ !~ 2 1981 100 1000 200 2000 150 1500 100 1000 90 900 115 1150 100 1000 0 0 0 0 0 0 0 0 0 0 K01:C(I,J,K):K,J,I:(4)"CLOSE ELEC"8`(FIN)ıJj216,0::520ELEC":AN:ND:I1AN:J16:K01:C(I,J,K):K,J,I:(4)"CLOSE ELEC":1130B22:1:"PREMIERE ANNEE POUR INITIALISATION ";AN$:AN$""(AN$)41090LAN1:ND(AN$):(4)"CLOSE ELEC"+V:(4)"OPEN ELEC":(4)"WRITE ELEC":AN:ND:I1AN:J16:12 33 33 33 78 89 112 111 222 67 67 122 222 " HISTOGRAMME SANS INTERET "Ces chiffres ne servent @ rien... mais prouvent que le programme fonctionne. MME ne servant vraiment @ rien " $(*))+( iR``iR`ɀi@R`ɠ1)***H*) `P`h)O``IQ**+i+R`!#`*******************9 ***** TRAITEMENT ERREURS *****]******************************c:(P(222):P5P613502P5R$"PAS DE DONNEES "F$<P6R$"PAS DE FICHIER "F$AD$"CLOSE"F$:D$"DELETE"F$F216,0:980:920128,EI128,F:I0I531353 I192,EI192,F> :Z74g 180,Z:1963,Z:20128,Z:21192,Zm : ************************* CASES NOIRES ***** ************************* : I112:J13:K19:NC(J,I):N0180+ N >RMI>--5???--wNI --ޛ-- *I--???.--7NI )s N -53M13- N)-n .-53Mq -n1?7M13--NJ)36M3--N--n1n1--N--n?76--N--n?76NII)-n3M13--N3M13M1??n n N --66--N1 -6j1.-NM13M:N)N- ? ??N >?wqI66R66.N566u --NN n:?w1VIM7R?RINIVI 5)3M13M13--Nm-66*-u))sI--N)sIw1s-N>M13M1??N 6N---n?wI-u )-n?7M1s-N--66N -)3M?M1s-N)3M1?w -u d (0ALS\bm#.BM^p '8IWiy 1<BQ`k|,6EP^k| s 66N nR>666nII666nNmw M9,0:49232,0::<49236,0:49234,0:49239,0:49232,0:B:a*************************!FONTE L$633 *****&*************************+:00:15D$"BLOAD CARAC,A"G:232,G(G256)256?233,(G256)D:'*************************FEDITION *****e*************************k:1: CONCERNE CARTE BUFFER DIFFUSEE PAR BIP(9)"GD":::::" GRILLE-REPONSE = "H:(12):0440: 49236,0:49235,0:4923;::" AUTRE JEU ";::"3";::" FIN"T22:32:"";:H$:(H$)1(H$)3450]530t(H$)505,465,475525::22:"CONFIRMER EFFACEMENT DONNEES PAR  ";:H$:H$"O"440I14:J112:C(I,J)0:B(I,J)0:Q0:J,I:(32):35::)I12L03750I,J:((1)2)1410^I112:ZC(2,I):C(2,I)C(3,I):C(3,I)Z:dj:*************************MINIMENU ******************************:525':22:4::"1";::" EDITION ";::"2")4):H3360:BONNE GRILLENmJ14:I112:L0:J(H)B(J,I)C(4,I):400r1((1)4)1390:MODIF DE CERTAINES LIGNESwB(J,I)1((1)9):B(J,I)C(4,I)B(J,I)1L1:395|B(J,I)C(4,I)B(J,I)B(J,I1)L1:395375B(J,I)C(4,I18:X(49200)::XXX::445&6:E;*************************d@GRILLES ALEATOIRES *****E*************************J:OJ142:I112TP1((1)9):I1350YPC(J,I1)340^C(J,I)P:C(J1,13I)10PcI,JhH1((1S2:285 A105SS1/ I39T173:S0J A31S,T:A108SS2k A77A87A109A119SS2q  """:H$:O(H$):O49O52290 '525:22:7::O48Hĺ" BRAVO! VOUS AVEZ GAGNE! ":305 ," HELAS! VOUS AVEZ PERDU! " 1I150:J : 16300,0 :9 *************************Y TEXTE ET REPONSE ***** x *************************~ : T$"Quelle grille du haut peut logiquementoccuper l'emplacement vide ?" T163:S7:I1(T$):SS7:A((T$,I,1)):A32S(N6)5:NN(64J)64:M81(I6):95N,M6 K,J,Ib I112:J14:K19:NB(J,I):N0195 N(N6)5:NN(64J)64:M(I6)6:95N,M K,J,I : ************************* PAGE 1 VISIBLE ***** *************************?n3Mq6666-u) ni1ni1niq-3M13M13Mq)3M13M13-u -3M1??6vI )3M13 .mN -n1?7M13Mq)-n?N1--N--66vIMM13M13M13-u M13M13MN IMI3MM3MM N M1s  3MqJM13M?6N --.-u .3--.-uR-6.-k ii*3--.-u .-n >.mNI??MI vRR-53M13- N66-3M13--NRR-6.-uII1*-n .-u-R-3--.-u 3?w6N R-53M1?w >?oI6-3M13Mq *56--N *566?MM6M.-3MN5566-N5Rmni1niq-3M13Mq- "! A$A$"* * "> A$A$"* ******* * "[ A$A$"* ******* * "x A$A$"* ******* * " A$A$"* ******* ******" A$A$"* ******* * ** *" "A$A$"* * *" ,A$A$"****************" 6A$A$"* <: FABC DU BASIC ( PXO62:Y14> ZI112:XXO10Iy dI710,830,950,680,1070,1190,680,830,710,1310,1430,950 n x: APPLE & POMME Y14:X10 210 X233:380 : : APPLE A$"" A$A$"***********  ::255:(21):12:1:" CE PROGRAMME EST SEULEMENT DESTINE AUX AMATEURS DESIRANT MIEUX CONNAITRE LE PRINCIPE DE L'ECRITURE EN HGR2 (PAGE2) "16368,0:16384,128::3:(CADRE 263,10199,10:199,24:63,24:63,10"PRESSEZ UNE TOUCHE  ";:R$H F:22:(4)"RUNGRILLES" QUI VOUSA ETE REMIS PAR VOTRE FOURNISSEUR." (:"NATURELLEMENT,SI VOUS NE POSSEDEZ PAS D'IMPRIMANTE GRAPHIQUE, LA REPRODUCTION DES PAGES HGR ET HGR2 EST IMPOSSIBLE." 2:"LE TRACE DE CHAQUE JEU EST RELATIVEMENT LONG (1 MINUTE). PATIENTEZ!", <: :(21):::"LE PROGRAMME EST CONCU POUR IMPRIMER LESGRILLES A PARTIR D'UNE CARTE-BUFFER BIP,AVEC UNE IMPRIMANTE DMP APPLE.". :"IL VOUS FAUT PARAMETRER VOTRE IMPRIMANTEEN FONCTION DE SON INTERFACE, DE SA MAR-QUE... ET DU PROGRAMME DE COPIE--u@@@C?.- ??N -5?*m ->??w- -R-3M13-u -3M1??6MIRR-53M1??N n ;6vIR-.-5--N1-36-NM13M1smNM13MN 5MI3MM N MMq-M13M1?w >?oI----NI-3--.-u j n >mN- -3--.-uI??.-5??.-5??.-u --5??7--5??7--5??7* ** *"& @A$A$"* * *"C JA$A$"****************"I T:R ^540X h:d rPOMME n |A$"" A$A$" ** " A$A$" **** " A$A$" **** " A$A$" *** *** *** " A$A$" ***************" A$A$"*************** "9 A$A$"************** "V A$A$"************** "s A$A$"*************** " A$A$"****************" A$A$"****************" A$A$" ************** " A$A$" **** **** " : ECRITURE APPLE PUYER SUR UNE TOUCHE SVP ";:CH$::3:F V:H:M$(SA):SAS450T SAS450 22:1:868:"<1> REVOIR LES MOTS <2> SAISIE <3> FIN ";:CHOIX$:"":(CH$)49(CH$)51490 (CH$)440,220,510 :370 hM$(I)M$(I1):( rS502501 |1407 :V *************************u *** LISTE TRIEE *** ************************* : 3::V3:H2:SA0:H1 SASA1:VV1:V19H1V4:H20* V19H20V4:H1:22:1:868:"AP-> ................"8 V:7:"";M$(0):M$(0)""270M "(M$(0))16270g ,M$(0)"/"SS1:140 6V:23:"1> OK 2> REFAIRE ";:CH$:A(CH$):A49A50310 @A50270 JV:23:" " TIS11 ^M$(0)M$(I1)M$(I)M$(0):************************9 *** SAISIE DES MOTS ***X *************************^ : 22:"50 MOTS MAXIMUM (PAS PLUS DE 16 LETTRES" 3::13::"FIN DE SAISIE=/": S0:V5 SS1:VV1:H2:V19V6 S9H1 V:H:868:S;" d::M$(50),nI110:T$T$"----":]x"SAISIE DE MOTS, TRIES AU FUR ET A MESURE";zT$:34,2:20:T$:35,1922:1:868:" <1> SAISIE DES MOTS <2> MOTS TRIES ";:CHOIX$:"":(CH$)49(CH$)50140CH$"1"220440: *A$""A$A$" *** "+A$A$" * "=A$A$" * "OA$A$" * "aA$A$" * "sA$A$" * "A$A$" *** ":590:A$A$"* *"%A$A$"* *"7A$A$" *** "=:H590:N :VS `A$""r(A$A$" *** "2A$A$"* *"<A$A$"* "FA$A$" *** "PA$A$" *"ZA$A$"* *"dA$A$" *** "n:x590::I $D .A$""$8A$A$"**** "6BA$A$"* *"HLA$A$"* *"ZVA$A$"* *"l`A$A$"* *"~jA$A$"* *"tA$A$"**** "~:590::U A$""A$A$"* *"A$A$"* *"A$A$"* *"A$A$"* *"A$"**** "pA$A$"* *"0zA$A$"* *"BA$A$"**** "H:S590:Y:aC kA$""}A$A$" *** "A$A$"* *"A$A$"* "A$A$"* "A$A$"* "A$A$"* *"A$A$" *** ":590::: :A A$""/A$A$" * "AA$A$" * * "SA$A$"* *"eA$A$"* *"wA$A$"*****"A$A$"* *" A$A$"* *": 590:*:4B >A$""HA$A$"**** "RA$A$"* *"\A$A$"* *" fA$& POMME  H012" &L116C 0(A$,LH16,1)"*"ēXL,YHM :::S D:k NECRITURE DU TEXTE v XS(0) bH07 lL15 v(A$,LH5,1)"*"ēXL,YH : BR110:BZZZ(49200):: : ESPACE BR110:BZZZ(49200): :(21):lVITESSE10:22:1:"VITESSE D'AFFICHAGE (1/9) ";:VI$:(VI$)48(VI$)50VI(VI$)::8::" QUE VA-T-IL SE PASSER ? "::I110:TR$TR$"____"::2:TR$:34,2:****************************** #** PREMIERE PCOPIE80uHUSTON! ' '&IMP.80 ! IMP.LMI ! (IMP.80LM ! $,I,1);:J1VI:X(49200):::0c:34,2:Eh32,5:33,35::*******************E:SJ22:"ENFONCEZ UNE TOUCHE POUR LA REPONSE SVP":345O22:"ET UNE AUTRE TOUCHE POUR TOUT SAVOIR...":345T22:" UNE TOUCHE POUR LA SUITE "Y198:16368,0:16384,128,127:16368,0:"^I1(T$):(T*******************:n22:"<1> REVOIR LE TOUT <2> MENU DE DISQUETTE":345:R(16384):R49ė::50"R50ĺ:(4)"RUN MENU"'R27ĉ::,2851:6******************************;** MINI SOUS-PROGRAMMES **@***********"EXEMPLES"::350:::" - $0800 = $08 (8 DECI) et $00 (0 DECI) - $21FF = $21 (33 DEC) et $FF (ou 255)":355: ******************************** LE CHOIX ************* fait le reste de la besogne..."::350:1:U******************************y** POKER UNE ADRESSE HEXA ? ********************************:340:12:958::T$"Pour poker une adresse HEXA en DECIMAL: ":350:I110:"----";::T$355B12:958:60,0:61,8:62,55:63,8:64947::TR$:335T12:958::+T$"On a pok{ en 60-61 ($3C-$3D) et en 62-63($3E-$3F) l'adresse de d{part du DUMP enHEXA que l'on d{sirait effectuer. Un CALL 64947 (routine de l'Apple) a en-suite *** ******************************0 :P :"2":::360:998:998 "ET MAINTENANT ? ---------------": "]100 HOME" "]110 POKE 60,0: POKE 61,8: POKE 62 ,55: POKE 63,8: CALL 64947" 355:11:TR$:33022":8:13:T$"CALL-1022"::350::17:12:T$" d{place le curseur versla gauche d'une division... d'o| ler{sultat." 350:"":355:20:TR$ I1319:I:1:""::340 : : ****************************** ** DEUXIEME PAGE PRINT A$;: C ALL - 922: CALL - 1008 : NEXT" x:T$" La premi}re":350:7:13::T$"CALL-922":350::13:13:T$" fait passer le curseur@ la ligne suivante sans changementde colonne (htab + 1).":350 }:v T$" La seconde":350:7:13:"CALL-9 ZI112:A$;:922:1008:+ _:TR$B d:335:34,2::: i"LA LIGNE 110 COMPORTE DEUX INSTRUCTIONS INTERESSANTES : - CALL-922 et - CALL-1008" n3602 s"]110 FOR I = 1 TO 12:AGE **1 (******************************7 -:D 2:"1":M 7360o <"]100 A$ = "(34)"A"(34) A"]105 HTAB 12" F"]110 FOR I = 1 TO 12: PRINT A$;: CALL - 922: CALL - 1008: NEXT" K355:15:TR$:330 PA$"A": U12:4 EXAMEMuHUSTON! ' '%BASICM> ! LMAMEM.LM !  ::E:" CONVERSION DECIMALE-HEXA ET INVERSE "::34,3`I110:T$T$"____":l(19:T$221:" FAIRE PRECEDER LA VALEUR PAR OU "<:F******************************P** INPUT VALEUR A CONVERTIR ** Z**************>u?vHei A Wh W WۊH $ h Я`%$  d W W Wۆ  $  `G$ }  b` H$"1"ADAD128:100* H$"2"404 ::= 1400/ FI1L:AS((AD$,I,1)):AS48AS59505 PC ZAD(AD$)h d6,AD(AD256)256:7,(AD256) n:21:TR$:5:1403,0:768 x5:874 5:938 23:1403,10:198:"<1> SUITE <2> AUTRE ADRESSE DE DEPART <3> FIN DE PROGRAMME ";:H$:"" :(4)"PR#3"::+(4)"BLOAD LM"gT$"--* LA MEMOIRE DE VOTRE APPLE *--":1403,23::T$:I110:TR$TR$"________"::2:TR$:34,3(:21:TR$223:1403,24:198:"ADRESSE DECIMALE DE DEPART => ";AD$:AD$""140 <L(AD$):L55CADREuHUSTON! '  'DEMOE.DEMO ! CADRE1/ ! CADRE24 ! ADRJ  ADRLM  HEXAuHUSTON! ' ')HEXA.DECI ! *HEXA.TRUCS ! **************** d:( n35,18:VE2@ xVEVE2:VE17VE4q VE:1:868:"VOTRE VALEUR ";V$:V$""510 L(V$)1:VV$((" "V$),L) (V$)72230 (V$)68VA(VV$):360 130 : ****************************** *** HEX350J::?T198:16368,0:16384,128,127:16368,0:^(4)"PR#1":(27)"n":(27)"L020":(27)"!":(9)"40N":10outine APPLESOFT qui af- fiche gentiment, la valeur DECIMALE de A,X"N T$^ (4)"PR#0" ":"1> DEBUT 2> PAGE-2 3> IMPRESSION 4> FIN"; ,:36,0:"1";:36,9:"2";:36,19:"3";:36,33:"4"::340:X(16384):X4910 6X50ė:120@X51ĺ: (dans le bon ordre) "R :"*ED24G "t :"*2048 (Extra, hein ?)" :"EXPLICATION: A l'adresse $45, on sauve- ----------- garde l'ACCUMULATEUR, et en $46 le REGISTRE X"F "$ED24 est une r "Q :"]PRINT PEEK(6) + PEEK(7) * 256 "x :"]2048... ET LE TOUR EST JOUE!" T$ 340: :"AUTRE MOYEN, A PARTIR DU MONITEUR:" T$: "]CALL-151 "! :"*45:08 00T= $0800)" dT$:340! n:p x"Pour transformer de l'HEXA en DECIMAL, le processus est inverse.":T$: "]CALL-151 " :"*6:00 08 *CTRL-C :"]POKE 6,N-INT(N/256) * 256 "_ F:"]POKE 7,INT(N/256) " P:"]CALL-151 " Z:"*6.7 *0006- 00 08 (EN INVERSAN ::(21):z"Pour convertir rapidement une valeur DE-CIMALE en valeur HEXADECIMALE, il existeun moyen simple."T$"":I110:T$T$"____"::T$:("Utilisez la formulation suivante:":2:"]N=2048 (par exemple) ". <7 V$(CH)V$:VB0400' 500- :Q ******************************v *** AFFICHAGE MODE INVERSE *** ****************************** : VE:14::VV$;::" ";: :V$::120 ::*********************** ? J*** DECIMALE VERS HEXA ***d T****************************** j ^:} hV$"":L5130 rI1L:AS((VV$,I,1)):AS48AS57130 | 490:"DECI->HEXA = "; VB(VA16):CHVA16VB48:VAVB CH57CHCHA VERS DECIMALE *** = ****************************** C :U VA0:L4130p 490:"HEXA->DECI = "; I1L:AS((VV$,I,1))48 AS0AS10290 AS16AS23ASAS7:290 130 "VA16VAAS: ,V$(VA):500 6: @*******2 (4)"PR#3":: ACTIVER LA CARTE 80 COLONNESCM$(23):A391:"IMPRESSION D'UN ECRAN 80 COLONNES":2:I120:"____";:(34,3::34,232:<******************************F* LECTURE DE L'ECRAN 80 COL. * P********************** :(21):-29::"PRINT USING"::T$"L'APPLESOFT ignore le PRINT USING (c'estd'ailleurs dommage!), mais il existe de nombreux moyens pour pallier cette lacu-ne, en fonction des besoins, naturelle- ment. EN VOICI UN:" I1(T$):(T$,I,1 ADRESSES DES 24 LIGNES * C ******************************I : 1024,1152,1280,1408,1536,1664,1792,1920,1064,1192,1320,1448,1576,1704,1832,1960,1104,1232,1360,1488,1616,1744,1872,2000N 80 COL. *1 P******************************7 Z:j d(4)"PR#1":(27)"E";:(27)"L015":(9)"81N"y nE023:L x788,L(L256)256:789,(L256) 768 M$: (4)"PR#0":(4)"PR#3": : ****************************** * $ M$"X":VARIABLE LIGNE D'ECRANV(4)"PR#3":: ACTIVER LA CARTE 80 COLONNES1:"IMPRESSION D'UN ECRAN 80 COLONNES":2:I120:"____";:(34,3::34,23:(4)"BLOAD IMP.LM"2:<****************************** F* LECTURE DE L'ECRAU`ȍT`(ii>ji?F `P`* ADRESSES DES 24 LIGNES * G ******************************M : 1024,1152,1280,1408,1536,1664,1792,1920,1064,1192,1320,1448,1576,1704,1832,1960,1104,1232,1360,1488,1616,1744,1872,2000******** Z: dE023:Ll nILLA:16299,0:M$(E)M$(E)((I)):16300,0:M$(E)M$(E)((I)):: x(4)"PR#1":(27)"E";:(27)"L015":(9)"81N" I023:M$(I):: (4)"PR#0":(4)"PR#3": : ******************************# );:J16:X(49200):J,I:""4 :"]100 US = 6"X ("]110 FOR I = 1 TO 6 : READ N" 2"]120 IF NOT INT (N) THEN HTAB US: PRINT N : GOTO 140" <"]130 HTAB US - LEN (STR$ (INT (N))) : P RINT N" F"]140 NEXT" P"]145 DATA 1234.23,243.7$% "[ % f L$'L`:(21):& (4)"BLOAD E.LM"6780,32:90G780,255:90W(780,91:90h2780,255:90z<XX1:X420F198:16368,0:16384,128P::Z768:I11000:: X    ` (` '$ %` X   ` (` '$ %`68,0: SANS CETTE REMISE A ZERO, LE PROGRAMME UTILISERAIT LA TOUCHE FRAPPE A LA LIGNE 40i 2768:2:2 765:::::::35,55 <65:: A16368,0:16384,128: :(21)::*(4)"BLOAD CADRE1"9768:2:2R65::::::15,30Z65r#(4)"BLOAD CADRE2"(22:"PRESSEZ UNE TOUCHE QUELCONQUE, PUIS, IM-MEDIATEMENT APRES LE TAPER SUR LATOUCHE CHOISIE POUR TRACER LE CADRE..."Z -65:163EFFACEMENTuHUSTON! '  'E.DEMOMENT.DEMO ! E.LMCEMENT) ! ,789,5.56,10000.9 ,.96"# Z. dUS6:O nI16:N:(N)ĖUS:N:130e xUS(((N))):Nk 1234.23,243.7,789,5.56,10000.9,.76 22:21::"PRESSEZ UNE TOUCHE": 198:16368,0:16384,128,127:16368,0 : :(4)"PR#3":12:"AVEC PRODOS, POUR CONNAITRE L'ADRESSE ET LA LONGUEUR DU PROGRAMME EN LANGAGE MA-CHINE QUI VIENT D'ETRE CHARGE, TAPER:"::"PRINT "(34)"ADRESSE: "(34)"PEEK(48825)+PEEK(48826)*256" (:"PRINT "(34)"LONGUEUR: "(34)"PEEK(48840)+PEEK(48841)*256" 2:"AU CONTRAIRE, DU DOS, ON NE PEUT PAS UTILISER CES DEUX LIGNES A PARTIR D'UN FI- CHIER "(34)"EXEC"(34)", CE QUI EST DOMMAGE." <198:16368,0:16384,128: :(4)"PR#3":12:"AVEC PRODOS, POUR CONNAITRE L'ADRESSE ET LA LONGUEUR DU PROGRAMME EN LANGAGE MA-CHINE QUI VIENT D'ETRE CHARGE, TAPER:"::"PRINT "(34)"ADRESSE: "(34)"PEEK(48825)+PEEK(48826)*256" (:"PRINT "(34)"LONGUEUR: "(34)"PPRINT:PRINT"A"PEEK(48825)+PEEK(48826)*256", L"PEEK(48840)+PEEK(48841)*256 PRINT:PRINT"A"PEEK(48825)+PEEK(48826)*256", L"PEEK(48840)+PEEK(48841)*256 EEK(48840)+PEEK(48841)*256" 2:"AU CONTRAIRE, DU DOS, ON NE PEUT PAS UTILISER CES DEUX LIGNES A PARTIR D'UN FI- CHIER "(34)"EXEC"(34)", CE QUI EST DOMMAGE." <198:16368,0:16384,128: