8L2C)pJJJJ IH(ȱH:=IH[H`@HcH  $ +   I/H`JLNGȄBȄF aK  haaFF  mJm# KKJ UJ )J ۈ) ;J3ȱJFȱJGJKaȄM  aaNNJFLGJL L ::(4)"RUNMENU" p  LMC[`DIAG ! TRANS80.BASIC)  TRANS80.LM.DEMO%  )DISSEQUER  !%ONERR! ! %TRUCS ! /LISTAGE.CONTROLP ! &PRODOS< ,BASIC.SYSTEM3(! TRANS80 ! ADDITIONE ! LISTAGESF ! HOMMEG ! PAIRALEAH ! JEUI ! CARAC.SOURIS ! TM2ST ' STARTUP ! $MENUk ! %INFOS.2 > ! MENUSB ! LISTE80C ! FICALEAD >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(8R3 "CECI EST LE PREMIER ENREGISTREMENT "ET VOICI LE DEUXIEME "VOUS POUVEZ CONTINUER ne fonctionne pas avec la carte s{rie." 2::"Dans la plupart des programmes, le signal sonore indique qu'il faut presser une touche (n'importe laquelle, sauf CTRL-C, en g{n{ral)." 7500 <:- A:"CATALOGUE DE LA DISQUETTE TREMPLIN MICRO 2 examiner les diff{rents"::" ";::" programmes. Placez Prodos et Basic.System sur votre copie." (::"Consultez le num{ro 2 de Tremplin Micro si vous d{sirez obtenir des {claircisse-ments sur les programmes."* -::"Notez que ";::"Liste80";::" :(4)"PR#3"::, (4)"PREFIX,D1":F$(20,4):"DISQUETTE D'ACCOMPAGNEMENT DE TREMPLIN MICRO N[2 -- FONCTIONNE SOUS PRODOS"I120:T$T$"----":::2:T$:c #8::" ";::" Faites une copie de cette disquette avant d'en 堳Ʈ䬠   쬠᭠P嬠P嬠    堠ŠԠ0  2064<  : o X`  ()     宠庠&    -  ";::"PREFIX/TM2":8 F2:T$E KLU185` PR$:(R$)47İ120:80 UR$"*"ćB:CD:I1B:DD1:F$(D,1): ZEC1:FD:LU1:140 xDD1:F$(D,1)R$:R$:F$(D,0)R$:R(R$) I1R:R$:F$(D,I1)R$:: : ::"SOUS-CATALOGUES:":- :I1C:1:(I64);S " - "(F$(I,1),2,(F$(I,1))2):s 5:25::"BASIC DIRECT:": :IEF:25:(64I)" - "F$(I,1):% 18:1:"TAPER LA LETTRE-CLE TAPER LA LETTRE-CLE POUR CONT  )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 *  !"#$%&'()*+,-./01n!o!p! k! iL X%>!L;!ΠΠҠ`}!!!"!!!l4"# G$YO!-q(qR9B}PBiBCe! 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 ANS80/,2,BASIC,LM.DEMO-/DIAG/,1,GRAMMEi*,5,CARAC.SOURIS,DISSEQUER,ONERR,TRUCS,LISTAGE.CONTROL 16368,0:R(16384):1/MENUS/,1,MENU.RUNF/LISTE80/,1,LMB`/FICALEA/,1,FICBASIC|/ADDITION/,1,BINDECHEX/LISTAGES/,3,FAITLIST,DEMO,LISTAGE/HOMME/,1,HOM.2C/PAIRALEA/,2,PAIRIMPAIR,PAIRIMPAIR. /JEU/,2,JEU,JEU./TRE POUR UN AUTRE"(500:R27ė:170RA8ĺ:"C'EST UN JEU EXEC":"VOUS L'OBTIENDREZ PAR:":"-/TM2/JEU/JEU, apr}s un NEW":190R481R48RB191(4)"PREFIX/TM2"F$(RA,1)(4)"RUN"F$(RA,R47)198:16368,0:16384,128,127:ENU POUR RUN PROGRAMME "I 32,50:33,29:34,4:35,22:5:c 500:R65RF64170n RR64 RCĺ(4)"RUN/TM2/"F$(R,1) ::F$(R,1)::::RB(F$(R,0)) I1RB:I" - "F$(R,I1)::RAR::"CHIFFRE-CLE POUR RUN":"OU ESCAPLg& 'L&8ei` ,$`ee` `<( '<( '` ' ' '`hh8`8`=(>(F(`}N(`e`H)hJJ'0JJ)` (< ( < *? ( < (? ( < (? ( <*? * **? *? *? ( < *? ( <ȱH΄`f8eHI ٰSB0% ؠ]#!F&dʈ pٌ`8m0k`,0H hi LٍȽ΄h]0GF𨍆8ylFmG ݰ ڰ`]0Q8`d*؅IFG ݐ`g()*g p8D`F` ilH)HFȍ&HG' ݰ$%d&e!8* J8` Lע )I '`8fi*F(G)`f*؅IH3H g( g )c'G ݰ%" ݰX)Im'F(G)** ݰ4 ֭ $H ݰ%HFFHGHG ݐ`R8`ͺͻ)` װ H+` /ٰR(*؅IHH++Ѝ+@`g8c ؐedc e* eIȱ@;ȱ@EGH>&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`j𪭄Б` Ґ L` א@>+)I38j%k@؍L3<>=?<>CAB@?A` / L  <>` ڢF]PL8i m L   4< L  BLRAM' hLDLHB-4F 1"aɿ LL@ Nϰ H  @h( L Lh  @`bLJCAB@=?,<ʆ>*=?BC8 é&'112` Wڭ01 E8`1ݖ0 iڰ$]0̩GF ݰ ڰ ڰ`12)1`0]`Ȏ]i 0U`)8`΄`] ېW }װG =۰A)H ]ʈh0)*FG'(`)\ \8ʈ` ۰0)i `8`]R ܍hRSg ݰN]FG ݰ< h0 FGLۮ]g0 SR8`a`H8` ܹ ,gR S 8h)ꭍJJJJ^ ^ȢvI ;ސh(8H N h(8Hh(`^@`@^ȱ@ ` אB@8Z+`a] qۮ]a`KHJ8`>ha?+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 ) . )xJwjIS@L;ެ^8NvNO 8} |vJLy`zRzʱLN.MOwxMEKP/zMEKzLCL-}M| Owx,vpyeNNO(`JNKO^L ;ް/  0P L8 | Zߠ^J`L@yȱ@z^ h)N$%^vywz LL⭦ L x L ;ް  0pzJ{ )@~NJOK ;ްiKKzzww xxIJ{ y zJФ̭xJwjHFIH ~HIG~xKE а((H hH h8`8y@ȭz) ) )cвHJ8` G^悔<F^f $ ӭ+v ;ސH^  @^h8` ߰] ^@`fc__f (^_ $c )8`)i п`  H  ^FG`BH T^FG`H ^hHBF  GxDE^0~0C а(`(8` L*J ^ :"L ݢH ^ : ^9` א@ P8`^_B8` ^$+JJJJIHIH IL9߅FHGI ѭxJwjHIH;7I^JJ Zߐ3HIHIL|ߩJKJK`FHIG ߰( ߬^ȢYvJLw)eKM`^)` J RJfw ߰$f0 ߰fJFJL8`JGBJ T(`(8`^@`M8`^8@tʈI^)Rw8RR xL|߹ Lߠ^C8`b)@ i^)Rx8RbzwJ x_ F Lr߹) +b&xJ(b .^FG/8` .xJRp qq]RS`]JJJJi LWݩH8`]r ݰ]rq0 ݰ ] o`q ݰq`r]uysitB0Hr0sFtG ݪh0`שB*xED~0C g` RS `]JJJJ`hH]hhn)gNhjNhjNhjnNh.p WݰHuh ݰ;h]r ݰ*nNpg qq`Z8` Wݰ#ppo o 5ݐ`noS .S .S .S8p*J)N8` @LL א=@ Aȹ]P8` 2i]` O0 AB O)( ȹ`8m8m@8` װG8`F  װ PI)@N8`+)@J Ay++)+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>` +>P8H  ): e: y8鰕:Jjjj<)yi8i;i(*=>hP8`;Zx3QTTSRWVUHEVhEhH)IWHPHHHAHHHLaVEWLӿLLՐ`BLڑL COPYRIGHT APPLE, 1983 h@ 0J @L:HUSTONLL`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ݰI:Y)`;R?AJ;<ȰY)`Y?)`ȐҰ ;HhHh=`Hh `Hh`DEiȍ018V%&8V)HV)hH)hHIhդD?DRIDQD); ?JDQD]`MY pY)p  p`FGV 8``ɍ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 ŠϠŠà͠ӠàԠŬ2456789:;<=>?@A[! !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 % $ɛ$pn + {pnI:L ؅30,3L]8^933LAAJL ةޘг uv $ 8LЌ Le p>?@`>?@`BQ8`e 矮K ⟩ 䟢 춼LK  z KK`JJJJ8`轚K)` 7#hhL"Jپھ pHJh` {!hgt}~p  `~t}p8n~ni}tpi~~tsLo8pinii>j?k̈́>~|p `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`8gS ?@$I0 U)VJ *T)`l8`a HbIJhjǾȾɾ p٭b=a 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}ԩ p`SW)0پȾھɾ p p 3LjÍ L I 9 1׾ؾ  p p 3 H h(`׾ؾ`  ߭׾t8퍼mؾŰ펼t폼 L8` ˌھپLp k V)@W0!XY aX6Y7` a YX`X:Y;τ<:: <`:8`'OV)Jj *f a  ԟ  ԟ ⟭ + +:ji  ԟɃ B , HOMMEuHUSTON! '  '&HOM.2C !G FP1FLISTAGESuHUSTON! '  'FAITLISTs ! F$DEMOug ! F'LISTAGEy  ! FLISTi FP 1 FPADDITIONuHUSTON! ' ')BINDECHEXd  ! E'NBR2.23o !KEDMP40l !EFICALEAuHUSTON! ' '(FICBASIC] ! DFIC < DTOTO  DLISTE80uHUSTON! ' '#LMBWj ! CLMC`!CLMCO`CESSAICMENUSuHUSTON! ' '(MENU.RUNK 4 BMENU.ST BMENUASCT~ T BMENUCOMP.CU BVMENU B pH h8`Ͼо־ǾҾ_` EӾ pW) |LC`C N `9V) ß ` V) y޾ p` y (8` 8`8`(W)`_V)Ij!؍Í`_ jЭW)з#Ͼ 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츾$-PAIRALEAuHUSTON! '  'PAIRIMP! !H*PAIRIMPAIR^ !H+PAIRIMPAIR. ! HPAIR.LM8 !H868:"NUMERO DE LIGNE A CORRIGER ? ";:C$:C$:C(C$)48:C1CLI260a LMLI:LIC:"":215g:********************************* ECRITURE EN MEMOIRE *********************************":'LM0:I1LI:(LI$(I))LMLM(LI$())1):240:LI$"/"LI1Ģ6LI:1:958:LILI1:250UL(LI$):L30L1215mLI$(LI)" "LI$"*"C0C0:LILM:250LI821022:1:"<1> LA SUITE <2> CORRIGER <3> ANNULER":145::R49R51250R48295,260,200I22:1: :TR$)34,6:LIGNE0:DE8283:U22:5:"/ POUR ARRETER AVANT 8 LIGNES"aLILI16LI::LI;::" ..............................";:LI$(LI)""Ė2:(LI$(LI),(LI$(LI))1); 3:"";LI$:LI$""LI$(LI)""Ģ6LI:2:(LI$(LI),(LI$(LI9200)::: :7 ******************************[ *** VOTRE MENU PERSONNEL *** ****************************** : :T$" FAITES VOTRE MENU PERSONNEL "::7:155:::T$"VOUS AVEZ DROIT A ":155::8;::T$" LIGNES MAXIMUM.":15512:1:"]GOTO 60";:I17:I1::("GOTO 60",I,1);::145:1008:("GOTO 60",I,1);::65 22:5:"ENFONCEZ N'IMPORTE QUELLE TOUCHE" 198:16368,0:16384,128,127:16368,0:R(16384):R27185 J1(T$):(T$,J,1);:I13:BUZZ(4*****************************C i*** SOUS-PROGRAMMES ***g n******************************m s: xA2((1)8):B2((1)13) }8239,A:8277,B:"-> POKE 8239,";::A;::" : POKE 8277,";::B: 22:7:"TOUCHE POUR TERMINER"^ ::" pour modifier VTAB ORIGINE"] -:::"POKE 8277,Y";::" pour modifier HTAB ORIGINE"h 2:TR$ 7:(4)"BLOAD MENU.":(4)"BLOAD MENUASC" <140 A8226 F145: KXX1:X80,80,85,90 P120 UA8:B10:125 ZX1:120 _: d*JLMNOPQROUPEMENT DES QUEVOTRE MENU DEFINITIF SERA MIS AU POINT.":155 #::T$"ATTENTION!"::155::T$" CHAQUE LIGNE DU MENU DOIT SE TERMINER PAR UN * ($AA) ET LA DERNIERE LIGNE PAR # ($A3), MAIS LE PROGRAMME SE CHARGE DE TOUT.":155::# (:"POKE 8239,X"; :(21):AES8:VT10: VTAB & HTAB DE BASE DANS "MENU"^I110:TR$TR$"____":T$"BASE MODIFIABLE D'UN MENU":8::155::? :T$"POUR FACILITER L'ADAPTATION DU PROGRAMMELA PARTIE EST MEMORISEE A PART, MAIS ILS VA Y AVOIR REGRJEUuHUSTON! '  'JEU.CRYPTB  IJEU.EXPLIC  I#JEUd I$JEU.d IJEU.OR  II)) ,B1ESPACE(41LM)2:T$"":IES13:T$T$(32)::3756I112:DEDE1:AS(("MENU DU JOUR",I,1)):AS32ĹDE,AS:320;DE,AS64@:DEDE1:DE,170EI1LI:DEDE1:DE,((I)):J1(LI$(I)):DEDE1:DE,((LI$(I),J,1))128::5JT$T$"REPONSE : ":375:DEDE1:DE,32:T$"*#":375VOVT10LI:8239,VT:8277,ES:\T:Y******************************^*** VOTRE MENU EST SAUVE ***c******************************h:-m22:1:958:"BSAVE VMENU,A8192,L"DE8191:22:VXYZ PARAMETRES **@ Z ******************************F d:S n(17): x10:1:"<1> ADRESSE DECIMALE <2> HEXA -> ";:G$:G$"1"170 G$"2"120 12:1:"ADRESSE HEXA -> $0000";:18:"";AD$ (AD$)4140 190( 12:1:"[ A$" "(4)"PR#3":::(4)"BLOAD LMC,A$8000"AO32768:AO$"8000":HD32816(327672(17)::430<:F ****************************** P ** (` '$ %` X % T \ ɪ %% T L7 ɣ L7 ` $ "`   1ŠϠ2ŠϠ3ŠϠ4ŠϠŠ $ "`   1ŠϠ2ŠϠ3ŠϠ4ŠϠŠ (` '$ %` X % T \ ɪ %% T L7 ɣ L7 `E----------------------------------------":145: THEN 424":155:=T$"]60 ON R GOTO 70,80,.....":155:rT$"]70 PRINT D$"G$"RUN PROGRAMME 1"G$:155:T$"]80 PRINT D$"G$"RUN PROGRAMME 2"G$:155:T$"]90 ETC...":155::3:"ATTENTION! PROGRAMME ";::"MENU";::" NON RELOGEABLHR$(13) + CHR$(4)":155:NT$"]20 PRINT D$"G$"BLOAD MENU"G$:155:lT$"]30 CALL 8226":155:T$"]40 CALL - 198 : POKE - 16368,0 : WAIT - 16384,128,127: POKE - 16368,0":155:T$"]50 R = PEEK (-16384)-48 : IF R < 1 OR R > ITEMSTRE PROGRAMME BASIC ***>******************************D:S:G$(34)T$" VOTRE PROGRAMME EN BASIC "::7:155:::T$"Il ressemblera a ces lignes:":155::"----------------------------"::T$"]10 TEXT: PRINT CHR$(21) : D$ = C(4)"BSAVE VMENU,A8192,L"DE8191:21:958Hr140:8226:145::380xwI1(T$):DEDE1:DE,((T$,I,1))128::|22:2:"<1> FIN <2> MODIFIER <3> REFAIRE ";:C$:C$"3"Ľ:10C$"2"185:********************************* VOADRESSE DECIMALE -> ";AD$:AD$""120D AD(AD$):AD65000170x 14:1:"NOMBRE DE LIGNES -> ";NL$:NL$""140 NL(NL$):6,(NL2):7,NL(NL2) 16:1:"TITRE EV.";TI$ : ** SI ADRESSE DECIMALE ** :) G$"1"Ĺ58,AD * CREATION DU FICHIER DIRECT *M  ******************************S :j D$"WRITE "F$",R0"q &0 0D$"CLOSE" :: D ****************************** N * PETIT MENU GENERAL * X ****************************** b:|:,  ******************************S  * NOMBRE D'ENREGISTREMENTS *z  ****************************** : 480 D$"OPEN "F$",L60" D$"READ "F$",R0" N 560 216,0 :  ******************************& CLOSE" R4ġ::620 & :M  ******************************t " * LECTURE DE FICHIER DIRECT * , ****************************** 6: @NSNLı JD$"OPEN "F$",L60" TD$"READ "F$",R"NS ^E$ hD$"CLOSE" rNLNS: \^_`ab1:198: :: ******************************a * ECRITURE DE FICHIER DIRECT * ****************************** : D$"OPEN "F$",L60" R4220 D$"WRITE "F$",R0" NN1:N D$"WRITE "F$",R"N G$E$ D$" ::(21):G$(34)%D$(4)2F$"FIC"M(I110:T$T$"----":V2430\<:F ******************************P * PETITES ROUTINES * Z ******************************d:n198:16384,128,127:16368,0: x޾,N0MHhHh p' ,N HCNh`M`M N `޾Lp yh־Ҿ,G0^W)TP) ecfdپھ׾ؾӾ p$c d pccddީ 8`ȾɾʾNfne`_ 2Ͼ pH h8`jGMоM  G):_`蹀:`V)8`MN; ;`;C N8` G)̀#:蹀:`V)R yIM$:(9)"81N":24,0ITI$""ĺ(27)"X";(14);TI$;(27)"Y";;(15):xHD:A$A$:A$:(24)23Ĺ24,((24)1):540&(4)"PR#0":(4)"PR#3":3600:: ** CECI CONCERNE CARTE MID **D:NIM$:(9)"T":49230(256((IM$,1))):360%X$:(27)"E":(27)"L010":(4)"PR#0":="":23:1:868C:j ** SI VOTRE INTERFACE FAIT ** ** DE LA COPIE D'ECRAN SUR ** ** 80 COLONNES : GOTO 590 **:::"PROGRAMME D'IMPRESSION NON ACTIVE SOUS PRODOS":360   ******************************N  ** EDITION DES LISTES **u  ******************************{ : 22:"COMMANDE DESACTIVEE AVEC PRODOS": 22:1:"SLOT DE L'IMPRIMANTE ? ";IM$:IM$""IM$"1" IM$(4)"PR#"IM$(IM*****. J ** LE MOMENT DU CHOIX **U T ******************************[ ^: h"":23:1:868:"<1> IMPRIMER <2> REFAIRE <3> MENU DE DISQUETTE <4> FIN ";:R$:R(R$)48:16368,0:R1R4360 mR2Č48888 rR460,110,600,630 |:'(AD256)256:59,(AD256):AO8:360/ :V  ** SI ADRESSE HEXADECIMALE **\ : "B$AO$":A9 "(AD$,2)" 85 3A A9 "(AD$,2)" 85 3B "AO$"G D823G" ,I1(B$):511I,((B$,I,1))128::72,0:144 6: @ *************************- l:"IL Y A "N" ENREGISTREMENTS DANS "F$5 vT$V "1. LIRE UN ENREGISTREMENT"| :"2. EFFACER UN ENREGISTREMENT" :"3. REMPLACER OU CORRIGER UNE DONNEE" :"4. AJOUTER UN ENREGISTREMENT" :"5. FIN DE PROGRAMME" 14:4:958:198:"CHOIX ? -> ";:R$%R$AR(R$)48:R1R5700R34,16::T$aR5ĉ::nR3920t: ******************************  * NUMERO A LIRE OU EFFACER * ****************************** : *22:120:"NUM;:J15:X(49200):::e198:16368,0:16384,128,127:16368,0:CH(16384):ES1CH27ı"":6,0:7,23:768:I11500::198:: ****************************** * PROBLEMES EN MODE GRAPHIQUE*! 67,113:1368,113:1369,112:1374,113:1375,116X 230:JEU0:BP0:VT0:TT0:TR0:270^ : ****************************** * PETITES ROUTINES * ****************************** :I1(T$):(T$,I,1) = 0 0 1 0"R 1800,49:1801,48:1807,50:230:1800,177:1801,176:1807,178x 17::"EXEMPLE";::" 0 1 1 1" " + 0 1 1 1" " ---------" " = 1 1 1 0"0 1454,48:1455,49:1456,49:1457,49:1463,55:1366,113:13T$"EN BINAIRE"::225:T$" LA BASE EST ":::225::2: :T$"Ainsi, quand on addi-tionne 1 et 1, on pose 0... et la retenue est 1.":225 ::"EXEMPLE";::" 0 0 0 1" " + 0 0 0 1" " ---------" " UNITES APRESLEQUEL VIENT L'UNITE D'ORDRE SUPERIEUR."D i225:230b n35,22:32,19:33,21:2: sT$"LA NUMERATION DECIMA-LE EST A BASE 10.":225 x::T$"LE SYSTEME HEXADECI- MAL EST A BASE 16.":225 }:4:15:10:7:16:16: 230< :9:cefghijklm"BINAIRE";:14:"DECI":* 2R1:B$"":6 7I015@ <R1RW A"$0"(HE$,I1,1);u FJ411:T(J)T(J)R:R0 KT(J)2T(J)0:R1 PB$(T(J))B$ UJ:7:B$;:B$"" Z15:((" "(I)),2) _6 d::"BASE DE NUMERATION";::T$" NOMBRE D'(12);(21)! :::590':S ****************************** * DEMO NOMBRES BIBAIRES 0-15 * ******************************#:(1::" APPRENDRE A COMPTER EN BINAIRE "::34,2 -:"HEXA";:6:EE INEXISTANTE"#jE$:R111501t110:690r~22:120:"OUI POUR "C$" CETTE DONNEE ";:"";O$:O$"O"690R3İ930:1180E$""NMN:NNS:180:NNM:690180:690O$"2"930!O$"1"990':N ******************************u * DESTINATION SUIV. REPONSE *$ ******************************.:822:1BR1100,1100,1100,1190L310V:"ENREGISTREMENT "NS:`E$""E$"DONN**** :R41100<19:1:958:I156:".";:U19:120:657:E$""X512767:(X)141E$E$((X)128):XE$""NL0:690(E$)5693019:1:958:E$22:120:"1. D'ACCORD -- 2. A REFAIRE -> ";:O$R3ıERO A ";*4C$"LIRE":R2C$"EFFACER"B>R3C$"REMPLACER"eHC$" ? -> ";:"";N$:N$""700RNS(N$):NS1NSN760\1080f:p ******************************z * SAISIE D'UNE DONNEE * ************************** ******************************( :T16304,0:16297,0:16302,0:16299,0t0:0,0:62454:3:JEUJEU1BP0āI1BP:TTTT18:23TT,140:AL12"N1((1)14)'AL2NDE(1)15290,3601DE(AL)N6AL%;VTVT10:TR117:192211TR,VT:TR:VTVT5<@NDE(1)DE(2):360KEER0335pJTTTT18:23TT,140:BPBP1:TT0OER0:TT0:VT0:VS0:240:BP12270TI17:I:J1BP:23J18,140::198:<Y(JEUBP)6ĉ::12:"VOUS AVEZ INTERET A REVOIR LA PAGEnpqr?.mI->????---??III5 --5???---5??N -5?7-5?7-5?7-5?7-5?I ? --???----5????7-m)->?--??--??----5????7----5????III I)--????.---->????NI)-???7--->??7---?----5????7----??IIIII?--??--??----5????7----5????wI-5?7-5?II?----5????7dB9x6DXRI --???----5??.mI->?.mI->?.mI->SOLUTION DES PETITES OPERA-TIONS BINAIRES, VOUS POURREZ REVOIR LA PAGE DE DEMONSTRATION EN UTILISANT CETTEMEME TOUCHE .":225:22:"VOUS ETES INVITE A PRESSER UNE TOUCHE":ES1:230:ES0::1) MAISPAS CELLE DES ECRANS "::225IT$"GRAPHIQUES"::225:::".":T$"IL VOUS SUFFIRA POUR CELA DE PRESSER LA TOUCHE APRES UN TINTEMENT DE LASONNETTE, COMME CELUI QUE VOUS ALLEZ SU-REMENT ENTENDRE.":225:198::T$"PENDANT LA RE: {:7 ******************************c * COURTE PRESENTATION * ******************************:&7:T$"VOUS POURREZ OBTENIR LA COPIE DE L'ECRAN":225:T$"TEXTE"::225:T$" SUR VOTRE IMPRIMANTE (SLOT :625:3DT,60:625::I1211:20DT,90:DTDT20:625:gI16:DTDT20:2DT,60:625:DTDT20::I16:20DT,90:DTDT40:625:lI16:DTDT40:3DT,60:625::DTDT20:I16:20DT,90:DTDT40:625::630qJ114:BZ(49200):J:v1:CHARGEMENT ET 010101010101 *JD ******************************PI:~NHEX$"0123456789ABCDEF":(4)"BLOADDMP40"S0:2:SH25000:3X:(4)"BLOAD NBR2.23,A"SH]232,SH(SH256)256:233,(SH256)<bI16:DTDT20:2DT,60:DTDT20BZ1:BZ530,535,540,545,550,555520DR,VP:560G2DR,VP:560Y2DR,VP:560k!3DR,VP:560}&3DR,VP:560+BZ0:4650ZZ110:Z(49200):21225,VT:22225,VT::5255:: ******************************? * ,0:465R$(T(J))495)ERER1HR$"0"R$"1"BZ0:525Q465j20DR,VP:DRDR15:p: ****************************** * REPONDRE PAR 0 OU 1 SVP * ******************************:" BZ**************< * REPONSE A LA QUESTION *h ******************************n:DRDR15:VPVT1220DR,VP:198:198:R$ (R$)27ĉ:198:16368,0:16384,128,127:16368,0:16304,0:16299,0:16297,0:16302I2DR15,VT:DRDR120:J411:T(J)T(J)R:R0QT(J)2T(J)0:R1fINVT105İ460INDRDR15:T(J)2DR,VTJINĔ(((((N)),1)))46200,VT:N9Ĕ(((N)))46185,VTINıI: **************** DEMO ----------------------------------------":240::40^::12:"<1> ENCORE UNE FOIS <2> C'EST TERMINE ";:R$:R$"1"ė:40c:hR1mVTVT30:DR25rT(1)0:T(2)0:T(3)0:T(4)0wI015|R1R:IN395DRDR15:18DR,VT----?7-m???7----????wI -5?----5????w---??III --->???---->???7-5?7---????.---->?7----5????w---??III-----5????7----5????wII->?--??--??-->?7-->?III --???----5?;?.-M-5?;?---5???-m)->??7-m)->????---??III- --???----5? POUR CREER ";::"LIST";::" ";:R$::34,22:10I 198:198:255f 216,0:(4)"CLOSE":10000::60 :"ATTENTION! SI LE NOMBRE DE LIGNES DE VO-TRE PROGRAMME DEPASSE 59999, VOUS DEVREZMODIFIER "(34)"FAITLIST"(34)", EN LUI DONNANT (PAREXEMPLE) LE NUMERO ZERO." 1:1::"0";::" " 198:198:2554 22:1:"ENFONCEZ UNE TOUCHENCEZ UNE TOUCHE S.V.P.";:R$:: :"* ENSUITE, AVANT D'UTILISER LE PROGRAMME ";::"LISTAGE";::" IL VOUS SUFFIRA DE TAPER:" :" - LOAD ...TITRE DU PROGRAMME A EDITER" :" - EXEC LIST"::" - RUN 60000"::" - RUN LISTAGE" I130tvw220, <(4)"OPENLIST":(4)"READLIST"4 FR$Z PL$(I)L$(I)R$:(L$(I))40II1b Z70{ dJ0I:J1:L$(J): n34,3:4 x:"C'EST LA LIGNE 20 DE CE PROGRAMME QUI VACREER VOTRE FICHIER "(34)"EXEC ";::"LIST";::(34)# :198:"ENFO:(21)::50) D$(4):G$(34)QD$"OPENLIST":D$"WRITELIST":33,30R$"60000D$=CHR$(4):PRINT:PRINTD$"G$"OPENP"G$":POKE33,30:PRINTD$"G$"WRITEP"G$":LIST0,59999:PRINTD$"G$"CLOSEP"G$":POKE33,40:END"(R$:D$"CLOSELIST"::: 2 D$(4):G$(34)>D$"OPENLIST":D$"WRITELIST":33,30R$"60000D$=CHR$(4):PRINT:PRINTD$"G$"OPENP"G$":POKE33,30:PRINTD$"G$"WRITEP"G$":LIST0,59999:PRINTD$"G$"CLOSEP"G$":POKE33,40:END"(R$:D$"CLOSELIST":LANE =========== -???----;7->7->II?II??---mii)>;7mII)n m nM sMm1w--?oII-II??---mii)>7mII)n m 3M)M1Mm1w--?oII?III5?7mI)>;??.--M)>7mI)ۛ-m)-????.M m1???7mi-;7-- 5;?MIII@@@@ MEMORY -????.---->????.m -5??.m -5??.m -5??.---->????.---???III ?---->???7---->???7-5?7---5???7---?7---->???7---->???III----->???7---->???7-5?7--->??7---;?.->?.->?VIII>I)mm5?.mm?mmNm->mm-w m޷II------5?????oIII )J ?-?.m -5????7----5????NI-5?----5????7----???III ?I)??---????-m -5??7-m -5?????.----5?????.-M)->?;?.-M)->?;?VIII o---????.---->????.m -?;7---????.m)-5??.---->????.---???III ? ---????----5????7--?7-5?7-??.---->????----???VII --M ::(21):605: SOUS-PROGRAMME DE TRAITEMENT DES ERREURS (PAUL MERRY)W620cL$(70)44452,11:44605,10: 10 LIGNES DE CATALOGB$(1):D$(4)#T$"":I110:T$T$"____":(I125:E$E$"----":-1:" ";:# 2" FICHIER;I1284:C$(K$,I,1):L%((K$,I1,3)):C$H$535L%C%M%Ģ15:1:958:"LONGUEUR MAXI AVEC "H$"=";::L%::470 H$"?"500C1I:C0Ģ15:1::"CODES IMPRIMANTE:";::" ";:I1284:(K$,I,1)"-"((K$,I1,3))" ";::"":470H$"?"ġ:G$"":1450C%(H$):H19:575hV11:V:1:"LARGEUR DE MARGE ";H$:H$""H$"10"xH$"?"470O$I$"L0"H$:M%(H$):H19:575V12:V:1:"CARACTERE IMPRIMANTE ";H$:H$""H$"E"H$"?"485P$I$H$:C0:H22:575 ******************************-:\I$(27):K$"n072N080E096q120Q136P160p144":35,24:21:"PARAMETRES PAR DEFAUT = L80 M010 E SLOT1 POUR REVENIR EN ARRIERE, TAPER UN ":35,18V10:V:1:"LONGUEUR DE LIGNE ";H$:H$""H$"80"5415:285BD$"PR#"D%:(14)" "I$"X"N$I$"Y"(15):::}B%0:A%P%āIP%1A%:B%B%1:L$(B%)L$(I):L$(I)"":A%B%FIN1S$"E"ġ:675: ****************************** * PARAMETRES DE L'IMPRIMANTE *')):355mP%64:P0P%618rA%P%B53B5285NwS$"E"İ415:285\|P0İ410PP1:D$"PR#"D%:I1P%:L$(I)::M$" PAGE "(P)" ":A(C%(M$))2:M$" "(E$,A)M$(E$,A):M$:(12)::D$"PR#0"I1P%:L$(I)"":FIN167,1)" "3350JK5L5K:L$(V$,L)L$:3457OKLTP%64:P0P%58vYL(L$):LC%A%A%1:L$(A%)L$:365^A%A%1:L$(A%)(L$,C%):L$(L$,LC%)cL(L$):L(C%5)A%A%1:L$(A%)V$L$:365 hA%A%1:L$(A%)V$(L$,C%5):L$(L$,L(C%5:D$"OPEN"J$+D$"READ"J$:L$""E"C$:V(C$):V13315Y#V32L$""290g'S%1305,V96V123C$(V32)1L$L$C$:(L$)2553156290;D$:B$L$:V$" ":L$""285@(49250)127ĺD$"CLOSE"::10EK15:(L$,KNTETE DU LISTAGE A EFFECTUER":35,24U 1:17:"=> ";N$:N$""(N$)38ĺ"":245~ 35,24:15:1:958:N$:T$:34,17: :  ******************************  * LECTURE DU FICHIER *  ******************************"E":C%80:G$"E"G$"":145/ G$"":140Z "<1> AVEC minuscules <0> SANS ";:155z G$"1"G$"0"G$"":145 S%0:G$"1"S%1 S$"E"Ĺ35,24::21:T$:" POMME FERMEE POUR ARRETER":35,20:19:280 S$"O"İ460& 15:1:"ES175,195,215# :G$;::R$6 (R$)13100E G$""145X S180,200,220} "TITRE DU FICHIER  ";:155 (G$)65(G$)90G$"":145 610 J$G$:G$"":140 "CRAN MPRIMANTE ";:155 G$"I"S$"O":210 S$RAMETRES *8 Z ******************************> _:T dR(R$):R31125a iR6690 nR0R3ĺ::D$"CATALOG,D"R:R$:::145 sR3S2145 xSS1:130 }G$G$R$:145 G$"":145 S0:S$"E" SS1 2S2:1:868 xz{|}~ --- LECTURE & IMPRESSION ":< 72:T$:34,3:20:T$p <22:"CTRL-A = CATALOG D1 CTRL-B = CATALOG D2" A23:"CTRL-C = CORRECTION CTRL-F = FIN-ERREUR" F3:35,18:135 K: P ****************************** U * SAISIE DES PAGV13:13:1:958:"SLOT DE L'IMPRIMANTE ";:H$:(H$)13H$"1"W!H$"?"520e&H22:575+D%(H$):D%3D%65400V2:1:"ALLUMEZ L'IMPRIMANTE":198:16368,0:16384,128:5D$"PR#"D%:(9)"160N";:P$;:O$:D$"PR#0":?V:H::H$::D:=I ******************************fN * TRAITEMENT DES ERREURS * S ******************************X:]768,104:769,168:770,104:771,166:772,223:773,154:774,72:775,152:776,72:777,96:b:D$"LOCK"G""(R$)65(R$)904209J1L:R$L$(J)470fK817:K:J2:" ":K::18:J2:R$:{L$(J)"":NLNL1J39022:868:I11500:: ****************************** * SUITE OU TERMINE *  TROUVER" hNLLB r20:"LE MOT A SECRET COMPTE "L" LETTRES"J |I0T II1 17:28:868::NL;::" LETTRE";:NL1ĺ"S" NL0II1:20:1:868:"CAGE OUVERTE EN ";::I;::" ESSAIS":490:22:1:868:"LETTRE PROPOSEE -> ";:R$:;::: 640: :A  ******************************h " * CHOIX DU MOT * , ****************************** 6: @M1((1)N): JI1M:M$:I TL(M$):I1L:L$(I)(M$,I,1): ^16:28:"ENCORE":18:28:"ACE DE LA "CAGE" *> ******************************D :L :t :22:10:"-*- PATIENCE SVP -*-": (27): I217:J224:I:J:"_":: (24) 1: I125:" ";:: I217:I:1:" ";:25:" ": I125:" ", le bonhomme setrouve... en cage, mais chaque BONNE RE-PONSE lui entrouvre la porte et, finale-ment, pour lui, c'est la LIBERTE!" x 22:"PRESSEZ UNE TOUCHE POUR LE PREMIER MOT ";:R$ : ****************************** * TRAe les gens, alors que leur seule faute est de ne pas trouver le MOT CACHE!"h Z:I48:I:" ":: d:"C'est pourquoi je vous propose une autreversion, plus pacifique, sinon plus amu-sante: le JEU DE L'HOMME LIBRE." n:"D'accord, pour commencer  17400'(4)"PR#3":(17)::3L$(15)N(N12: NOMBRE DE MOTSp29)"LE JEU DE L'HOMME LIBRE"<9)"-----------------------"FO P" Vous connaissez certainement le JEU DU PENDU. On ne peut pas dire que ce soit folichon de pendr 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}ȾȾ * FIN DE TRAVAIL *I ******************************O:b:D$"CLOSE"J$x"FICHIER LU"I12000:::$gD$"UNLOCK"G$:3l768:E(222):E53305GqE5FIN1:375{vE6Ģ6:1:"FICHIER INEXISTANT"::G$"":145{17:1:868:"ERREUR "E" LIGNE "(218)(219)256I12000:I:: ******************************! ******************************&:^&198:" <1> UNE AUTRE PARTIE <2> TERMINE ? ";:R$t0R$"1"İ650:320:R$"2"550D::N:X ******************************b * DEPLACEMENT DE LA "CAGE" * l ******************************v:MD1024:Z60:670:D2000:Z62:670:D16384:Z66:670:660D16384:Z60:670:D17360:Z62:670:D1024:Z66:670768,160:769,0:770,76:771,44:772,254:768:Z,D(D256)256:Z1,(D256):: ACCELERATEUR,ALIMENTA #N1((1)255)& (PN,1(PN)> -N2(N2)IMIM1D 2y 7IM$"I"ĺ(4)"PR#1":(27)"E";:(27)"L010":65 <(4)"PR#3" AI151:J16513 F36,J:((" "(IIN)),3)" = "(PIIN);:ININ51 KJ::IN0:I P" "IM" NUMEROS PAI 4010160"LE PROGRAMME GENERE 3000 NOMBRES ALEA- TOIRES, COMPRIS ENTRE 1 ET 255, ET COMP-TE CEUX QUI SE REVELENT PAIRS"::"TAPER POUR EDITER LES RESULTATS (IM-PRIMANTE DANS LE SLOT 1) -> ";:IM$:IM$ I13000"C'est toujours cela de pris!"- 240::] 198:16368,0:16384,128,127:16368,0:0";> "]20 A = 1 + INT ( RND (1) * 254) : CALL 768,A" "]30 NEXT I: PRINT PEEK (6) + PEEK (7) * 256: CALL - 198" 198 6,0:7,0:I12500 A1((1)254) 768,A I::(6)(7)256" EN 47 SECONDES A PEINE":198 60";::" SECONDES" d:"Bon, pas mal, mais voyons maintenant unepetite routine en langage machine, tenezcelle qui va s'afficher... par exemple. Pressez une touche s.v.p." n240 x2:958:787 : :"]10 POKE 6,0: POKE 7,0: FOR I = TO 250"]30 IF INT (N / 2) = N / 2 THEN A = A + 1":A$(4)"]40 NEXT I":A$(5)"]50 PRINT A"s <I15:A$(I): F::"FAITES UN RETURN...ET TOP CHRONO!"::240::198 PI12500::N1((1)255):(N2)N2AA1 ZI::A;:198:" EN ";::" :(21):)(4)"BLOAD PAIRIMP"]:" PAIR OU IMPAIR...AVEC QUELQUES OCTETS! ":("Soit le mini-programme suivant: -------------------------------":_ 2A$(1)"]10 FOR I = 1 TO 2500":A$(2)"]20 N = 1 + INT ( RND (1) * 255)":A$(3) j `:; c`TION,AUTOCHENILLE,BARAGOUINEUR,CHAMAILLERIE,DISTRACTION,INFORMATIQUE,RECONSTRUCTION,INVITATION,COURAGEUSEMENT,EXCENTRICITE,NEBULOSITERS" UIM$"I"ĺ(4)"PR#0"7 Z:165:160:T1125D _T2155 d"VOICI LE MEME PROGRAMME, MAIS AVEC LE NOMBRE ALEATOIRE GENERE PAR UNE ROUTINE EN LANGAGE MACHINE, ET LES NOMBRES PAIRSCOMPTES PAR CETTE MEME ROUTINE.":: iI768802:R:I,R: (` '$ %` X % T \ ɪ %% T L7 ɣ L7 `$ "`   12Πɪ3Πɪ45678ǪŠ L5LLL"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  桥j i i ϥɸ`54,160,14,24,106,176,10,230,6,165,6,201,0,208,2,230,7,24,165,8,105,1,133,8,165,9,105,0,133,9,201,11,208,207,165,8,201,184,208,201,96 ::198:23:1:"ENFONCEZ UNE TOUCHE ":16368,0:16384,128:: 32,174,239,160,14,169,0,32,127,233,230,161,165,161,133,10,170,254,160,14,24,106,176,10,230,6,165,6,201,0,208,2,230,7,9632,174,239,160,14,169,0,32,127,233,230,161,165,161,170,2EN LANGAGE MACHINE (ON NE RENVOIE PLUS LES NOMBRES ALEATOIRES AU BASIC, MAIS ON FAIT TOUJOURS LES TOTALI-SATIONS.": 165:768:121 ::"16 SECONDES... C'EST ENCORE MIEUX!":165:: :(21)::P3744:I37443999:I,0::I610:I,0::G n165:198 sI130001 x768:N(10):IR y:TT1:IM(6)(7)256:55y }::93;::" SECONDES EN BASIC": ::43;::" SECONDES AVEC LM ": I768823:R:I,R: 165:160y "POUR TERMINER, VOICI LE MEME PROGRAMME, ENTIEREMENT  :(21):+I110:T$T$"____":b1:2::" CRYPTER OU DECRYPTER UN FICHIER ":i(3B 2"La CLEF de notre JEU -------------------- consistait seulement en un petit boule- versement des voyelles du NT : PRUNT "CA NEMBRA AST CEMPRUS ANTRA ";: UNVARSA : PRUNT 1;: NERMOL : PRUNT " AT ";: UNVARSA : PRUNT 100: NERMOL 80 VTOB 10: HTOB 1: COLL - 868: UNPIT "VETRA NEMBRA -> ";N$ 90 X = VOL (N$): UF X = 0 THAN 80 100 UF X = N THAN R$ = " VEIS OVAZ GOGNA 10 TAXT : HEMA 20 PRUNT "VEILAZ-VEIS DAVUNAR IN NEMBRA CHEUSU POR L'ERDUNOTAIR ?" 30 VTOB 4: HTOB 1: UNPIT "EIU EI NEN ? ";R$ 40 UF R$ = "NEN" ER R$ = "N" THAN 160 50 UF R$ < > "EIU" OND R$ < > "E" THAN 30 60 N = 1 + UNT ( RND (1) * 100) 70 PRUTOUCHE SVP ";: GET R$: GOTO 10 160 PRINT : PRINT : PRINT "DOMMAGE, NOUS NOUS SERIONS BIEN AMUSES!" !": GOTO 120 110 R$ = "PERDU! TROP PETIT!": IF X > N THEN R$ = "PERDU! TROP GRAND!" 120 C = C + 1 130 VTAB 13: HTAB 1: CALL - 868: PRINT R$;" - ESSAI NUMERO ";: INVERSE : PRINT C: NORMAL 140 IF X < > N THEN 80 150 PRINT : PRINT : PRINT "PRESSEZ UNE NT : PRINT "CE NOMBRE EST COMPRIS ENTRE ";: INVERSE : PRINT 1;: NORMAL : PRINT " ET ";: INVERSE : PRINT 100: NORMAL 80 VTAB 10: HTAB 1: CALL - 868: INPUT "VOTRE NOMBRE -> ";N$ 90 X = VAL (N$): IF X = 0 THEN 80 100 IF X = N THEN R$ = " VOUS AVEZ GAGNE 10 TEXT : HOME 20 PRINT "VOULEZ-VOUS DEVINER UN NOMBRE CHOISI PAR L'ORDINATEUR ?" 30 VTAB 4: HTAB 1: INPUT "OUI OU NON ? ";R$ 40 IF R$ = "NON" OR R$ = "N" THEN 160 50 IF R$ < > "OUI" AND R$ < > "O" THEN 30 60 N = 1 + INT ( RND (1) * 100) 70 PRI: TREMPLIN MICRO." ZT$ d"Voici un petit programme qui peut POSER LE PROBLEME... ou au contraire en donnerLA SOLUTION..." n23:"PRESSEZ UNE TOUCHE POUR LE CHARGER, SVP":16368,0:16384,128 x:(4)"RUNJEU.CRYPT"programme, et rien de plus. Pas de quoi attraper une migraine!" <:" A E I O U devenaient donc: O A U E I (pauvre Y...)" FT$ P"Le fichier JEU contient le texte vrai etle fichier JEU. le texte paru dans votrelivre de chevet !": GETE 120 110 R$ = "PARDI! TREP PATUT!": UF X > N THAN R$ = "PARDI! TREP GROND!" 120 C = C + 1 130 VTOB 13: HTOB 1: COLL - 868: PRUNT R$;" - ASSOU NIMARE ";: UNVARSA : PRUNT C: NERMOL 140 UF X < > N THAN 80 150 PRUNT : PRUNT : PRUNT "PRASSAZ INA 868:"NOMBRE ";N$:N$""250& P:: ZL(N$):L970f dI1L:A((N$,I,1)):A47A58Ă:120n n70 xS(N$):N$(S):L(N$): I1L:DLI:N(I)(S10D):SS(N(I)10D) N(I)" "S :198 6:31::2: 32,20:33,20:: :(21)::B" DEUX METHODES POUR DISSEQUER UN NOMBRE "N34,5:(5:"1";:24:"2";:7::"MATHEMATIQUEMENT";:26:"AVEC "(34)"MID$"(34)2<" ESSAI AVEC LA METHODE 1 -----------------------" F198:9:1:NU" K:  (4)"PR#3":(17):(I64954:#VV2:H9:VN-JII3:HH10w2H:(24);J;"....";::(27);(J);:7J::I<(24)A22:"<1> MENU DE DISQUETTE <2> LISTE <3> FIN";:R$:R(R$)48:16368,0:R2ė:10,60:65 FR1ĺ(4)"RUNME c \$% $% (0  0 I@L@ \( ũ o$ %`qN08::"DOMMAGE, NOUS NOUS SERIONS BIEN AMUSES!"F 49041,A2(M7)S M8230i 49040,(M8)32J M8Ĺ49040,M32J 49043,H:49042,HM "VOTRE NOMBRE -> ";N$, ZX(N$):X080R dXNR$" VOUS AVEZ GAGNE !":120 nR$"PERDU! TROP PETIT!":XNR$"PERDU! TROP GRAND!" xCC1 13:1:868:R$;" - ESSAI NUMERO ";::C: XN80 ::"PRESSEZ UNE TOUCHE SVP ";:R$:101  :H"VOULEZ-VOUS DEVINER UN NOMBRE CHOISI PAR L'ORDINATEUR ?"g4:1:"OUI OU NON ? ";R$(R$"NON"R$"N"1602R$"OUI"R$"O"30<N1((1)100)F:"CE NOMBRE EST COMPRIS ENTRE ";::1;::" ET ";::100: P10:1:868:TEICHA SVP ";: GAT R$: GETE 10 160 PRUNT : PRUNT : PRUNT "DEMMOGA, NEIS NEIS SARUENS BUAN OMISAS!" : "VARIABLE$="N$:Q I1L:N(I)((N$,I,1)):S0:ILS((N$,LI))` N(I)" "Sl :198r :x 22:1:198:"<1> AUTRE ESSAI <2> MENU DISQUE <3> FIN";:R$ :R$"1"Ģ6:958:60 R$"2"ĺ(4)"RUN MENU" R$"3"2500:((49249))127ı! K:I:X I1(R$):J15:X(49200)::(R$,I,1);::"": 35,24:23:" APPUYEZ SUR N'IMPORTE QUELLE TOUCHE ":19:35,20:198:16368,0:16384,128,127:16368,0:35,24 23:" POMME OUVERTE ABREGERA VOTRE ATTENTE":1$:190:200:# n:R$:190:200| x23:" POUR MENU DE DISQUETTE POUR FIN ";:R$:16368,0:R$"M"R$"F"120 yR$"M"ĺ(4)"RUNMENU" z:: :::"QUESTION"::: :"REPONSE"::: I110:J110:X(49200):J K110 :(12);(21):7T$"":I110:T$T$"____":[10:"DES TRUCS POUR APPLE":T$l(21:T$:205v234,3<130:Q$:Q$::160F140:R$:190:R$:::190:200P130:Q$:Q$::160Z140:R$:190:R$::190:R$::190:200: d:R(21)::23:"]RUN/TM2/MENU":64098+]:Tb ** F I N ** Zl:iv(21)::6384,128,127:16368,0 MN:::10,10060% %NI11500::198X *N:5:13:"R$";::" ERR.: R$ AU LIEU DE (R$)" 4N18:"----------------------------------------":34,18: >N22:1:"ENFONCEZ UNE TOUCHE POUR ------------------------------" HN198:16368,0:1:(21):20000! 10020)R$3LR$9$'768,104:769,168:770,104:771,166:772,223:773,154:774,72:775,152:776,72:777,96.'ER(222)8'"ERREUR "ER" LIGNE "(218)(219)256B'"ADRESSE "(220)(221)256L'216,0:20 N "::9:35,20:I COMMENT EXECUTER UN INPUT (OU UN GET) ENMODE IMMEDIAT ? "EN LA FAISANT PRECEDER PAR POKE 118,0","]POKE 118,0:INPUT A$ ]POKE 118,0:GET A$" 6 "COMMENT PROTEGER (ASSEZ SOMMAIREMENT) UNPROGRAMME EN BASIC, EN TRANSFORMANT LES COMMANDES DE L'APPLE EN AUTANT DE RUN!" "TOUT SIMPLEMENT EN TAPANT SA PREMIERE LIGNE COMME CECI:","]0 POKE 214,255","APRES QUOI VOUS SEREZ VOUS-MEME PRIS AU PIEGE!"( "UN CALL-151,SUIVI DE *D6:00 RETABLIRAIT LA SITUATION, MAIS ON N;::: 640: :A  ******************************h " * CHOIX DU MOT * , ****************************** 6: @M1((1)N): JI1M:M$:I TL(M$):I1L:L$(I)(M$,I,1): ^16:28:"ENCORE":18:28:"ACE DE LA "CAGE" *> ******************************D :L :t :22:10:"-*- PATIENCE SVP -*-": (27): I217:J224:I:J:"_":: (24) 1: I125:" ";:: I217:I:1:" ";:25:" ": I125:" ", le bonhomme setrouve... en cage, mais chaque BONNE RE-PONSE lui entrouvre la porte et, finale-ment, pour lui, c'est la LIBERTE!" x 22:"PRESSEZ UNE TOUCHE POUR LE PREMIER MOT ";:R$ : ****************************** * TRA[: ;   c'! % c O! o`$%  U(8逑T(逑(`162,0,32,111,253,160,2,138,145,105,200,169,0,145,105,200,169,2,145,105,138,96"CLOSE"$ :D$"PR#0":A$::2502 ER(222)X ER6ĺ:"FICHIER INEXISTANT":70n ER5Ĺ216,0:200 ::20:"<1> AUTRE TITRE <2> MENU DISK <0> FIN ";:R$:16368,0:R(R$):R48R50250 R49Ĭ R50ĺ(4)"RUNMENU" ::O  $"?"ė::D$"CAT":F$:::70F Z((F$)65(F$)90)(F$)4770P d220d n:D$"VERIFY"F$ x:5:958:" POUR IMPRIMANTE ";I$ : I$"I"ĺD$"PR#1": 220 D$"OPEN"F$ D$"READ"F$ 768:T$(A$,1):T$ 170 D$) A$" ": INPUT OBLIGATOIRE LIGNE 105D$(4)J:(12);(21):(:"-* LECTURE-CONTROLE D'UN FICHIER *-"::34,22I768789:P:I,P:<22:"-------- POUR CATALOGUE ----------"F:3:"TITRE A LISTER ";F$:F$""250 PFE PEUT JUSTEMENT PAS FAIRE DE CALL..." "MORALITE: SI VOUS UTILISEZ CE STRATAGEME... SAUVEZ VOTRE PROGRAMME SUR DISQUETTEAVANT DE FAIRE UN PREMIER RUN!" TROUVER" hNLLB r20:"LE MOT A SECRET COMPTE "L" LETTRES"J |I0T II1 17:28:868::NL;::" LETTRE";:NL1ĺ"S" NL0II1:20:1:868:"CAGE OUVERTE EN ";::I;::" ESSAIS":490:22:1:868:"LETTRE PROPOSEE -> ";:R$:""(R$)65(R$)904209J1L:R$L$(J)470fK817:K:J2:" ":K::18:J2:R$:{L$(J)"":NLNL1J39022:868:I11500:: ****************************** * SUITE OU TERMINE *   6000 :(12);(21):2D$(4):1140M(I110:T$T$"____":2:"- SAISIE ASSISTEE D'UN PROGRAMME EN LM -":<LIGNES$"15361664179219201064119213201448157617041832196011041232" FI1279:2(I8)9:32:("ADRESSE DE DEPARTSVP ?"10 45 CAMEMBERT 1 41 CHEVRE 2 40 ROQUEFORT 3 36 GRUYERE 4 27 BRIE 5 19 REBLOCHON 7 18 CANTAL 6 16 MUNSTER 1 11 PONT-EVEQUE 2 3 AUTRES 3 LES FROMAGES PREFERES DES FRANCAIS D'APRES UNE ENQUETE DE LA SOFRES >0>3>3333300>333>3?6>33>03333 00000333 3?+##333333333>33>003>063333>333 cckk>3 3333?0? ? 3333> 3?````````>33?3333333?33>3333?3333;33333?333? ?000033>33?3?33333337;3333333333337;3.333303? 33333333333 33333?333 33333 ?0 ?33 xx```xx8888866$, e (B'$r! *,888886w6~~~~`p83;?73  30?30038<63?00?0333?3 333333>0   ~~ 8  UNE AUTRE PARTIE <2> TERMINE ? ";:R$t0R$"1"İ650:320:R$"2"550D::N:X ******************************b * DEPLACEMENT DE LA "CAGE" * l **********************,I,9)::198 P140:320# Z:G d******************************k n*** PRIORITE AUX GOSUB *** x****************************** : 18::958:T$ :21:868: 21:12::"RETURN POUR STOPPER":: SA$SA$S$(32):S$(V8)п5917,96W5918,165:5919,7:5920,166:5921,6:5922,32:5923,36:5924,237:5925,965926,32:5927,251:5928,218:5929,32:5930,147:5931,254:5932,32:5933,88:5934,252:5935,76:5936,208:5937,3C15900:C25918:**************4V*** ROUTINE ADDITION HEXA ***X`******************************^j:t5900,165:5901,6:5902,24:5903,105:5904,8:5905,133:5906,6:5907,170:5908,144 ~5909,2:5910,230:5911,7:5912,164:5913,7:5914,32:5915,64:5916,249:,0:16384,128,127:16368,0:14021:5:"<";::"I";::"> POUR IMPRESSION DE SAISIE ";:198:R$:R$"I"R$"i"1070$:D$"PR#1".G$AD$"."D2$" N1726G":I1(G$):511I,((G$,I,1))128::72,0:1448:B:L****************:21:D$"BSAVE"TI$",A$"AD$",L"L):3NN1x5904,N:D2$"":21:36,30:C1:I16461649:D2$D2$((I)128):~:********************************* IMPRESSION EVENTUELLE *********************************:#198:16398Ā f:.p******************************Rz*** ECRITURE DU FICHIER ***v******************************|:150:21:5:"TITRE DU FICHIER A CREER ? ";TI$:TI$""920(TI$)65(TI$)90920140:21:"BSAVE"TI$",A$"AD$",L"L#************2*** SAUVEGARDER HUIT LIGNES **V ******************************\*:4G$D1$":"SA$"ND823G":SA$"">I1(G$):511I,((G$,I,1))128::72,0:144HF1V8:520RN23LLI8:N8:920\N(N1)3:L(LI88)N:L0 LA SAISIE ";:198:R$:R$"C"R$"c"730GVV1:170:V15820P52021:5:"<";::"O";::"> POUR STOPPER VOTRE SAISIE ";:198:R$:R$"O"R$"o"690N1N23:LILI1:6,P6:7,P7:760170F1: ******************(I)128):*vV:1:N$;":"S$;:HN:R$@R(R$):R13690r(R47R58)(R64R71)NN1:R$:EE1:590N0(R60R8)NN1:EE1:570R21R62NN1:EE1:590NP1,176:620150.21:6:"<";::"C";::"> POUR CONTINUER 00 00 00 00 00 00":+H5:E1:LILI1;7:32:230KV8D1$N$f&P((LI$,V419,4))5~0S$S$(V7):N1:630:E0NN1:E2:N1N1:E1D630NE3NN1:E1:XN23N23:E2bN23Č198:198 lS$"":IPP22:S$S$(ND823G"> I1(G$):511I,((G$,I,1))128::72,0:144_ 5:32::N$;::" ":958e : ****************************** *** SAISIE D'UNE LIGNE *** ****************************** :140:160:V8:LI0:I18:S$(I)"00 00. |(R47R58)(R64R71)NN1:R$:330M N0(R60R8)NN1:330g R21R62NN1:330| N1615,176:330 21:12::"CONFIRMEZ";::" PAR SVP ";:198:R$:R$"O"R$"o"İ150:N1:370 AD$N$:G$"06:"(N$,2)" "(N$,2)" ***************************A "*** ADRESSE DE DEPART ***e ,******************************k 6: @N$"0000":N1:370 JN$"":I16161619:N$N$((I)128): TN5N5:198 ^N4370 h160 r20::N$" ";:N:R$:R(R$):R13420S$: :0 ******************************T *** PLUS HUIT OCTETS ***x ******************************~ : LI1260 P6(6):P7(7) C1:N$"":I18231826:N$N$((I)128)::N$(("000"N$),4) 8:32:C2: : ***8T0:I1N:C(I)(("1234576123",I,1)):TTZ(I):TI1N:A(I)Z(I)TPI:Z:~********************************* TRACE DU DIAGRAMME *********************************:0:0,0:3082:I1NABBBA(I)< r49237,0:49234,0:49239,0:49232,0:198:R$:::150` |TR0:I1N1:Z(I)Z(I1)400 TZ(I):Z(I)Z(I1):Z(I1)T:TC(I):C(I)C(I1):C(I1)T:T0:L$TE$(I):TE$(I)TE$(I1):TE$(I1)L$:L$"":TR1 :TR1380RM0ROPI4RO360PI:RM1(R$)361RO(R$):RM0" 150( ":L ,******************************p 6*** PREPARATION *** @****************************** J: TGH1380 ^22:1:" POUR EFFACER LE GRAPHIQUE ACTUEL ";:R$:R$"O"410 hR$"N"150DIAGuHUSTON! '  '&GRAMME ! LM !`%CARAC !a D1 !D2.P2  @1500::150? RE1510,1700,1920,340,240,1330,1420,230,270O X137:1260 21:1::"L";::"IGNES TRACANTES OU ";::"C";::"ODE ALPHABETIQUE ";:R$:R$"L"M1 R$"C"M2 150 21:13::"ROTATION";::" 1-360 > ";:"";R$:(R$)0R$):RE("?")ĺ::D$"CAT":R$::1108 RE482100W RERE48:RE1RE9ĺ:150 (RE6RE8)GH0Ģ22:10:198:"PAGE GRAPHIQUE VIERGE":I11500::150 N0Z(1)0220 RE4RE7Ģ22:3:198:"IL N'Y A PAS DE DONNEES EN MEMOIRE":I1*' Z******************************- d:Q n::T$" ":: xI35:I:12:T$::4:13:"CHIFFRES EN ROND": I110:REI:I9RE0 7I:9:T$:RE;". ";T$:: 19:958:198:13:"VOTRE CHOIX ";:2043,223:R$( RE(  25600!:(12);(21):UZ(12),TE$(12),C(12),X2(12),Y2(12),A(12),TI$(2)e(::D$(4)2R85:PI3.141593:M1:RO1:X1279R:Y1192R:CA24576:AD24703:AE24709:680<:F****************************** P*** M E N U **TRANS80uHUSTON! ' 'LMANS80.LMc ! %BASIC80.BASICG ! 'LM.DEMO.LM.DEMO ! 2:AD,X1:AD1,0:AD2,Y1+JAB0.015C(I)H&XX1R(JRO)[0YY1R(JRO):AD3,X(X256)256:AD4,(X256):AD5,Y:24709DNSI(AB)2ROXX2(I)X1R1.3(SI)bY2(I)Y1R1.3(SI)l:GOTO 760 FACULTATIFv:!******************************E*** TABLE DE CARACTERES ***i******************************o:}BL1760:D$"BLOAD LM,A"CAD$"BLOAD CARAC,A$6100"::BL1::********************************* AFFICHAGE DES TITREST$;:1:"";T$:T$""19600TI$(I)(T$,40)UJI2:5I2:1:868:TI$(I):cI21930l110r:********************************* TRAITEMENT D'ERREURS *********************************:24693:ER(222)pERS DONNEES"!:N12LINNN1+D17101N:UX******************************yb*** LECTURE DES TITRES ***l******************************v::I0II1:T$TI$(I):T$""T$".......................................":52:;L$:L$""1790&TE$(LI)(L$,12)c20:1:958:TE$(LI);15);Z(LI);:15:"";L$:L$""1860I1(L$):((L$,I,1))48((L$,I,1))571790IZ(LI)(L$)&NS101850 021:"LE DIAGRAMME N'ACCEPERA QUE LES DIX MEILLEURE**** :/I1N:V$" ":I9V$""?I3:V$;I;f4);TE$(I);26((Z(I))));Z(I):18:1:"LIGNE A CORRIGER (0 POUR FIN) ";LI$:LI$"0"110LI(LI$):LI1LI121740L$TE$(LI):L$""L$"..........."20:1:L$;:1:""(I)Z(I1):C(I)C(I1):TE$(I)TE$(I1)::NN1:N101610O^TE$(1)""150h21::958:"COMPLETER LES DONNEES (O/N) ? ";:R$:R$"O"150r:|********************************* DONNEES *****************************j,22::22:D$"OPEN"F$:D$"READ"F$:N:I1N:Z(I):TE$(I):C(I)::TI$(1):TI$(2):D$"CLOSE"F$:1600622::22:D$"OPEN"F$:D$"READ"F$:N:I1N:Z(I)::TI$(1):TI$(2):D$"CLOSE"F$@N111630JPP1:I2N:Z(I)Z(PP)PPI;TI:IPPN1:Z********.*** LECTURE D'UN FICHIER ***R******************************X::22:9:"FICHIER A LIRE ? ";F$:F$""150(F$,1)"H"FHF$"?"R$F$:160(F$)65(F$)901510204022:D$"VERIFY"F$"FH1590***********:D:22:9:"TITRE DU FICHIER ";F$:F$""150[F$"?"R$F$:160w(F$)65(F$)90140022::22:D$"OPEN"F$:D$"WRITE"F$:N:I1N:Z(I):TE$(I):C(I)::TI$(1):TI$(2):D$"CLOSE"F$:150: **********************222:13:"TITRE ? ";FG$:FG$""150A<FG$"?"R$FG$:160_F(FG$)65(FG$)901330PFG$FG$".P2":21::D$"BSAVE"FG$",A16384,L8192":150Z:d******************************n*** ECRITURE DE FICHIER *** x*************************************:;GH1:X(16384):X1281240I16368,0v RESERVE A VOTRE PROGRAMME D'IMPRESSION1::::110: ********************************* MEMO FICHIER PAGE2 *********************************(:(CODE ***0V******************************6`:Hj0:C(I)5Ē4TtK116}~X2(I)8,Y2(I)8KX2(I)8,Y2(I)8KK(JI):I:CVI:CA:********************************** EDITION ****************(****************************** .:?J("A")1:LI1N:c(JI)" = "TE$(I)rCV(37)1Y2(I)81:X2(I)71$Y2(I)(Y2(I)8)82.X2(I)(X2(I)7)738:B****************************** L*** EMPLACEMENT DU \5:YC20fI1N:K200*pJ1N<zY2(J)K920MY2(J)0920]KY2(J):LJfJ:Y2(L)0:TE$(L):YCYC163(TE$(L))7,YCX2(L),KI:24576:1240:********************************* LETTRES-CODES ** ***+******************************1:>:I12WI:(42(TI$(I)))2o TI$(I)::CA:::u: 6:M860,1010*:4******************************>*** AVEC LIGNES TRACANTES ***H****************************** R:6ĺD$"OPEN"F$:D$"CLOSE"F$:D$"DELETE"F$:21::958:"FICHIER INEXISTANT ":I11500::216,0:21:958:1510 L(218)(219)25622:1:958:"ERREUR NUMERO ";::ER;::" LIGNE ";::L:  * LIRE UN FICHIER,SAISIR DES DONNEES,MODIFIER LES TITRES,TRACER LE GRAPHIQUE,CHANGER DE MODE,MEMORISER LE GRAPHIQUE,MEMORISER LES DONNEES,IMPRIMER LE GRAPHIQUE,MODIFIER LA ROTATION,FIN DE TRAVAIL 4:: >51,0:110AB 22: CALL - 868: FOR I = 1 TO 1500: NEXT 500 : 510 REM ****************************** 520 REM * SUITE OU TERMINE * 530 REM ****************************** 540 : 550 CALL - 198: PRINT " <1> UNE AUTRE PARTIE <2> TERMINE ? "; < 65 OR ASC (R$) > 90 THEN 420 440 FOR J = 1 TO L: IF R$ < > L$(J) THEN 470 450 FOR K = 8 TO 17: VTAB K: HTAB J + 2: PRINT " ": NEXT K: INVERSE : VTAB 18: HTAB J + 2: PRINT R$: NORMAL 460 L$(J) = "":NL = NL - 1 470 NEXT J 480 GOTO 390 490 VT" 410 IF NL = 0 THEN I = I - 1: VTAB 20: HTAB 1: CALL - 868: PRINT "CAGE OUVERTE EN ";: INVERSE : PRINT I;: NORMAL : PRINT " ESSAIS": GOTO 490 420 PRINT : VTAB 22: HTAB 1: CALL - 868: PRINT "LETTRE PROPOSEE -> ";: GET R$: PRINT "" 430 IF ASC (R$)RINT "ENCORE": VTAB 18: HTAB 28: PRINT "A TROUVER" 360 NL = L 370 VTAB 20: PRINT "LE MOT A SECRET COMPTE "L" LETTRES" 380 I = 0 390 I = I + 1 400 VTAB 17: HTAB 28: CALL - 868: INVERSE : PRINT NL;: NORMAL : PRINT " LETTRE";: IF NL > 1 THEN PRINT "S * CHOIX DU MOT * 300 REM ****************************** 310 : 320 M = 1 + INT ( RND (1) * N): RESTORE 330 FOR I = 1 TO M: READ M$: NEXT I 340 L = LEN (M$): FOR I = 1 TO L:L$(I) = MID$ (M$,I,1): NEXT 350 VTAB 16: HTAB 28: P= 1 TO 25: PRINT " ";: NEXT : PRINT 240 FOR I = 2 TO 17: VTAB I: HTAB 1: PRINT " ";: HTAB 25: PRINT " ": NEXT 250 FOR I = 1 TO 25: PRINT " ";: NEXT : NORMAL : PRINT 260 GOSUB 640: TEXT 270 : 280 REM ****************************** 290 REM 190 PRINT : HOME 200 HOME : VTAB 22: HTAB 10: PRINT "-*- PATIENCE SVP -*-": HGR 205 PRINT CHR$ (27): INVERSE 210 FOR I = 2 TO 17: FOR J = 2 TO 24: VTAB I: HTAB J: PRINT "_": NEXT : NEXT 215 PRINT CHR$ (24) 220 VTAB 1: INVERSE 230 FOR I lui, c'est la LIBERTE!" 120 TEXT 130 VTAB 22: PRINT "PRESSEZ UNE TOUCHE POUR LE PREMIER MOT ";: GET R$ 140 : 150 REM ****************************** 160 REM * TRACE DE LA "CAGE" * 170 REM ****************************** 180 : rquoi je vous propose une autreversion, plus pacifique, sinon plus amu-sante: le JEU DE L'HOMME LIBRE." 110 PRINT : PRINT "D'accord, pour commencer, le bonhomme setrouve... en cage, mais chaque BONNE RE-PONSE lui entrouvre la porte et, finale-ment, pour z certainement le JEU DU PENDU. On ne peut pas dire que ce soit folichon de pendre les gens, alors que leur seule faute est de ne pas trouver le MOT CACHE!" 90 INVERSE : FOR I = 4 TO 8: VTAB I: PRINT " ": NEXT : NORMAL 100 PRINT : PRINT "C'est pou 10 LOMEM: 17400 20 PRINT CHR$ (4)"PR#3": PRINT CHR$ (17): HOME : HGR 30 DIM L$(15) 40 N = 12: REM NOMBRE DE MOTS 50 PRINT TAB( 9)"LE JEU DE L'HOMME LIBRE" 60 PRINT TAB( 9)"-----------------------" 70 PRINT 80 PRINT " Vous connaisse: GET R$ 560 IF R$ = "1" THEN GOSUB 650: GOTO 320 570 IF R$ < > "2" THEN 550 580 TEXT : HOME : END 590 : 600 REM ****************************** 610 REM * DEPLACEMENT DE LA "CAGE" * 620 REM ****************************** 630 : 640 D = 1024:Z = 60: GOSUB 670:D = 2000:Z = 62: GOSUB 670:D = 16384:Z = 66: GOSUB 670: GOTO 660 650 D = 16384:Z = 60: GOSUB 670:D = 17360:Z = 62: GOSUB 670:D = 1024:Z = 66: GOSUB 670 660 POKE 768,160: POKE 769,0: POKE 770,76: POKE 771,44: POKE 772,254: C 80 COLONNES:"160:280F198:16368,0:16384,128::I123:A$;: r:N |COPIE DE L'ECRAN 80 COLONNES EN MEMOIRE AUXILIAIRET :b 150:200h : FENETRE AU CENTRE DE LA PAGE : 8:N18:25:B$: : ATTENTE D'UNE TOUCHE : C$ :MEMOIRE AUXILIAIRE VERS ECRAN AUXILIAIRE ($400), SECONDE PARTIE* 6:q @16299,0:60,0:61,68:62,248:63,71:66,0:67,4:768:16300,0:w J: TECRAN DEMO REMPLI DE CHIFFRES POUR UN ESSAI DE TRANSFERT ^: hN18:A$A$"0123456789"::B$" ":16299,0:60,0:61,4:62,248:63,7:66,0:67,68:768:16300,0:H : MEMOIRE AUXILIAIRE ($4000) VERS MEMOIRE PRINCIPALE ($400), PREMIERE PARTIE : 60,0:61,64:62,248:63,67:66,0:67,4:768 ":$ ,MEMOIRE AUXILIAIRE ($4400) VERS MEMOIRE PRINCIPALE) :g COPIE DE L'ECRAN (MEMOIRE PRINCIPALE) A L'ADRESSE $4000 (MEMOIRE AUXILIAIRE)m : 60,0:61,4:62,248:63,7:66,0:67,64:768 : COPIE DE L'ECRAN (MEMOIRE AUXILIAIRE) A L'ADRESSE $4400 (MEMOIRE AUXILIAIRRE) :B TION DE LA ROUTINE $C311 (APPLE //e et //c)3 Z:X d769,32:770,17:771,195:772,96a n360g x: RETENUE (CARRY) MISE A 1 OU A 0 : 768,56::CARRY=1 (ECRITURE EN MEMOIRE AUXILIAIRE) 768,24::CARRY=0 (MEMOIRE AUXILIAIRE VERS MEMOIRE5 *********************************************i ***** EXEMPLE DE TRANSFERT D'UN ECRAN ***** ***** DE 80 COL EN MEMOIRE AUXILIAIRE *****( *********************************************2:<(4)"PR#3":(12)F:- P UTILISA8U DC ÍT @C `<=І>?B`U TD=G? T T@=C? `B<CІ>`BULOSITE ALL 768: RETURN 670 POKE Z,D - INT (D / 256) * 256: POKE Z + 1, INT (D / 256): RETURN 680 : 690 DATA ACCELERATEUR,ALIMENTATION,AUTOCHENILLE,BARAGOUINEUR,CHAMAILLERIE,DISTRACTION,INFORMATIQUE,RECONSTRUCTION,INVITATION,COURAGEUSEMENT,EXCENTRICITE,NE (4)"PR#3"::E8+(4)"BLOAD LM"OI1110:"AAAAAAAAAAAAAAAA";:h(768::MEMO ECRAN A2I1110:"BBBBBBBBBBBBBBBB";:::23::"CTRL-C POUR ARRETER";:<R$F150:768:170:MEMO ECRAN BP:"RETOUR ECRAN A ";:R$::23 Z7 "CES EXEMPLES SONT EGALEMENT UTILISABLES SOUS DOS 3.3 "ET N'UTILISENT PAS TOUTES LES RESSOURCES DU PRODOS "ESSAYEZ DE BIEN COMPRENDRE LE FONCTIONNEMENT DE CE... "...PETIT PROGRA - 20: GOSUB 625: NEXT 615 FOR I = 1 TO 6:DT = DT + 20: XDRAW 2 AT DT,60: GOSUB 625:DT = DT + 20: NEXT : FOR I = 1 TO 6: XDRAW 20 AT DT,90:DT = DT - 40: GOSUB 625: NEXT 620 FOR I = 1 TO 6:DT = DT + 40: XDRAW 3 AT DT,60: GOSUB 625: NEXT :DT = DT - 20: FCHR$ (4)"BLOAD NBR2.23,A"SH 605 POKE 232,SH - INT (SH / 256) * 256: POKE 233, INT (SH / 256) 610 FOR I = 1 TO 6:DT = DT + 20: DRAW 2 AT DT,60:DT = DT + 20: GOSUB 625: DRAW 3 AT DT,60: GOSUB 625: NEXT : FOR I = 12 TO 1 STEP - 1: DRAW 20 AT DT,90:DT = DT****************************** 575 REM * CHARGEMENT ET 010101010101 * 580 REM ****************************** 585 : 590 HEX$ = "0123456789ABCDEF": PRINT CHR$ (4)"BLOADDMP40" 595 ROT= 0: SCALE= 2:SH = 25000: HCOLOR= 3 600 PRINT : PRINT 2 AT DR,VP: GOTO 560 540 XDRAW 2 AT DR,VP: GOTO 560 545 DRAW 3 AT DR,VP: GOTO 560 550 XDRAW 3 AT DR,VP: GOTO 560 555 BZ = 0: GOTO 465 560 FOR ZZ = 1 TO 10:Z = PEEK (49200): XDRAW 21 AT 225,VT: DRAW 22 AT 225,VT: NEXT : GOTO 525 565 : 570 REM URN 500 : 505 REM ****************************** 510 REM * REPONDRE PAR 0 OU 1 SVP * 515 REM ****************************** 520 : 525 BZ = BZ + 1: ON BZ GOTO 530,535,540,545,550,555 530 XDRAW 20 AT DR,VP: GOTO 560 535 DRAW OKE - 16368,0: POKE - 16304,0: POKE - 16299,0: POKE - 16297,0: POKE - 16302,0: GOTO 465 475 IF R$ = STR$ (T(J)) THEN 495 480 ER = ER + 1 485 IF R$ < > "0" AND R$ < > "1" THEN BZ = 0: GOTO 525 490 GOTO 465 495 XDRAW 20 AT DR,VP:DR = DR + 15: RETEPONSE A LA QUESTION * 450 REM ****************************** 455 : 460 DR = DR - 15:VP = VT + 12 465 DRAW 20 AT DR,VP: CALL - 198: CALL - 198: GET R$ 470 IF ASC (R$) = 27 THEN TEXT : CALL - 198: POKE - 16368,0: WAIT - 16384,128,127: P415 NEXT J 420 IF I = N THEN DRAW ( ASC ( RIGHT$ (( STR$ (N)),1))) - 46 AT 200,VT: IF N > 9 THEN DRAW ( ASC ( STR$ (N))) - 46 AT 185,VT 425 IF I = N THEN RETURN 430 NEXT I 435 : 440 REM ****************************** 445 REM * R1,(841)E:845,(845)E:IN MICRO.":198:16368,0:16384,128:::H VALEURS POUR ECRAN B 776,(776)E:789,(789)E:823,(823)E:827,(827)E:841,(841)E:845,(845)E: RETABLISSEMENT DES VALEURS 776,(776)E:789,(789)E:823,(823)E:827,(827)E:84815:AFFICHE ECRAN A C dR$:::"RETOUR ECRAN B ";:R$::23g n150:815:170:AFFICHE ECRAN B| xR$:(R$)380. :12:"POUR BIEN COMPRENDRE LE FONCTIONNEMENT DE CES TRANSFERTS, LISEZ"::"LA FICHE NUMERO 2 INSEREE DANS LE NUMERO 2 DE TREMPLMME D'INITIATION, NOTAMMENT EN AJOUTANT.. "PUIS EN SUPPRIMANT DES ENREGISTREMENTS NUMEROTES... "OK "A VOUS DE JOUER! OR I = 1 TO 6: XDRAW 20 AT DT,90:DT = DT - 40: GOSUB 625: NEXT : GOTO 630 625 FOR J = 1 TO 14:BZ = PEEK (49200): NEXT J: RETURN 630 SCALE= 1: TEXT : HOME 635 : 640 REM ****************************** 645 REM * COURTE PRESENTATION 520 : 525 BZ = BZ + 1: ON BZ GOTO 530,535,540,545,550,555 530 XDRAW 20 AT DR,VP: GOTO 560 535 DRAW 2 AT DR,VP: GOTO 560 540 XDRAW 2 AT DR,VP: GOTO 560 545 DRAW 3 AT DR,VP: GOTO 560 550 XDRAW 3 AT DR,VP: GOTO 560 555 BZ = 0: GOTO 465 560 FOR:T$"PENDANT LA RESOLUTION DES PETITES OPERA-TIONS BINAIRES, VOUS POURREZ REVOIR LA PAGE DE DEMONSTRATION EN UTILISANT CETTEMEME TOUCHE .":225: 22:"VOUS ETES INVITE A PRESSER UNE TOUCHE":ES1:230:ES0::E IMPRIMANTE (SLOT 1) MAISPAS CELLE DES ECRANS "::225\ T$"GRAPHIQUES"::225:::"." :T$"IL VOUS SUFFIRA POUR CELA DE PRESSER LA TOUCHE APRES UN TINTEMENT DE LASONNETTE, COMME CELUI QUE VOUS ALLEZ SU-REMENT ENTENDRE.":225:198: 00):J: v1:: {:H  ******************************u  * COURTE PRESENTATION *  ****************************** :9 7:T$"VOUS POURREZ OBTENIR LA COPIE DE L'ECRAN":225:T$"TEXTE"::225:T$" SUR VOTR2DT,60:DTDT20:625:3DT,60:625::I1211:20DT,90:DTDT20:625: gI16:DTDT20:2DT,60:625:DTDT20::I16:20DT,90:DTDT40:625: lI16:DTDT40:3DT,60:625::DTDT20:I16:20DT,90:DTDT40:625::630 qJ114:BZ(492 D$(4)100,D$"OPENP"<L$"":C$""N:D$"READ P"c(C$:(C$)1365u2L$L$(C$,1)}<40A:F:L$::20PdD$"CLOSEP" ME : RETURN T$ = "PENDANT LA RESOLUTION DES PETITES OPERA-TIONS BINAIRES, VOUS POURREZ REVOIR LA PAGE DE DEMONSTRATION EN UTILISANT CETTEMEME TOUCHE .": GOSUB 225: PRINT 680 VTAB 22: PRINT "VOUS ETES INVITE A PRESSER UNE TOUCHE":ES = 1: GOSUB 230:ES = 0: HO "GRAPHIQUES": INVERSE : GOSUB 225: NORMAL :: PRINT "." 670 PRINT :T$ = "IL VOUS SUFFIRA POUR CELA DE PRESSER LA TOUCHE APRES UN TINTEMENT DE LASONNETTE, COMME CELUI QUE VOUS ALLEZ SU-REMENT ENTENDRE.": GOSUB 225: CALL - 198: PRINT 675 PRINT : * 650 REM ****************************** 655 : 660 VTAB 7:T$ = "VOUS POURREZ OBTENIR LA COPIE DE L'ECRAN": GOSUB 225:T$ = "TEXTE": INVERSE : GOSUB 225:T$ = " SUR VOTRE IMPRIMANTE (SLOT 1) MAISPAS CELLE DES ECRANS ": NORMAL : GOSUB 225 665 T$ = ZZ = 1 TO 10:Z = PEEK (49200): XDRAW 21 AT 225,VT: DRAW 22 AT 225,VT: NEXT : GOTO 525 565 : 570 REM ****************************** 575 REM * CHARGEMENT ET 010101010101 * 580 REM ****************************** 585 : 590LA RESOLUTION DES PETITES OPERA-TIONS BINAIRES, VOUS POURREZ REVOIR LA PAGE DE DEMONSTRATION EN UTILISANT CETTEMEME TOUCHE .":225:22:"VOUS ETES INVITE A PRESSER UNE TOUCHE":ES1:230:ES0::SANT CETTEMEME TOUCHE .": GOSUB 225: PRINT 680 VTAB 22: PRINT "VOUS ETES INVITE A PRESSER UNE TOUCHE":ES = 1: GOSUB 230:ES = 0: HOME : RETURN CHE APRES UN TINTEMENT DE LASONNETTE, COMME CELUI QUE VOUS ALLEZ SU-REMENT ENTENDRE.": GOSUB 225: CALL - 198: PRINT 675 PRINT :T$ = "PENDANT LA RESOLUTION DES PETITES OPERA-TIONS BINAIRES, VOUS POURREZ REVOIR LA PAGE DE DEMONSTRATION EN UTILI GOSUB 225:T$ = "TEXTE": INVERSE : GOSUB 225:T$ = " SUR VOTRE IMPRIMANTE (SLOT 1) MAISPAS CELLE DES ECRANS ": NORMAL : GOSUB 225 665 T$ = "GRAPHIQUES": INVERSE : GOSUB 225: NORMAL :: PRINT "." 670 PRINT :T$ = "IL VOUS SUFFIRA POUR CELA DE PRESSER LA TOU 630 SCALE= 1: TEXT : HOME 635 : 640 REM ****************************** 645 REM * COURTE PRESENTATION * 650 REM ****************************** 655 : 660 VTAB 7:T$ = "VOUS POURREZ OBTENIR LA COPIE DE L'ECRAN": AT DT,90:DT = DT - 40: GOSUB 625: NEXT 620 FOR I = 1 TO 6:DT = DT + 40: XDRAW 3 AT DT,60: GOSUB 625: NEXT :DT = DT - 20: FOR I = 1 TO 6: XDRAW 20 AT DT,90:DT = DT - 40: GOSUB 625: NEXT : GOTO 630 625 FOR J = 1 TO 14:BZ = PEEK (49200): NEXT J: RETURNW 2 AT DT,60:DT = DT + 20: GOSUB 625: DRAW 3 AT DT,60: GOSUB 625: NEXT : FOR I = 12 TO 1 STEP - 1: DRAW 20 AT DT,90:DT = DT - 20: GOSUB 625: NEXT 615 FOR I = 1 TO 6:DT = DT + 20: XDRAW 2 AT DT,60: GOSUB 625:DT = DT + 20: NEXT : FOR I = 1 TO 6: XDRAW 20 HEX$ = "0123456789ABCDEF": PRINT CHR$ (4)"BLOADDMP40" 595 ROT= 0: SCALE= 2:SH = 25000: HCOLOR= 3 600 PRINT : PRINT CHR$ (4)"BLOAD NBR2.23,A"SH 605 POKE 232,SH - INT (SH / 256) * 256: POKE 233, INT (SH / 256) 610 FOR I = 1 TO 6:DT = DT + 20: DRA