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):D$"PR#3":4 D$"BLOAD PROTECT.RAM"<20JD$"PR#1"WROUT768`500y(ROUT:"Prot}ge HGR12500<ROUT3:"Prot}ge HGR1+HGR2F500PROUT6:"Prot}ge HGR1+HGR2+HGR3Z500dROUT9:"Prot}ge presque tout n%w- SOURISN2x!xTROISPAIRSs!s COQs !)BOITE.IMP+s!s&CERCLEPF! VAR w!GSw! RUN.LML! ECRITTP PHOR\G sPRO (MEM.VISU S!SPOLm o ORGUEs sTMCG ' &PRODOS<! ,BASIC.SYSTEM0(! 'STARTUP;G !5 DATE0?G 6$MENUA uP !CALENDRIERM >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(8R500# xROUT15:"Lib}re RAMdisk, 500T D$"BSAVE/RAM/BIDON1,A$2000,L$2000"] 500 D$"BSAVE/RAM/BIDON2,A$2000,L$2000" 500 D$"DELETE /RAM/BIDON2" D$"BSAVE /RAM/BIDON1,A$2000,L$4000" 500 ROUT15:"Lib}re le RAMdisk  Ϻثؠ٠ҠϺ؍ԬٍҠō ҠԍٍàϺثŠàϺث؍ŠҠԍϺج؍؍ؠ占àӍؠ ؍؍бͺЫͺЫͺЫԠ΍Ӎؠ孱Ϻج؍؍Ϻج؍؍̠ͺЍϺثͺбɠԠг؍ͺЫͺЫŠвв؍вͺЫͺЫŠббװؠ ؠ ŠƍؠͺЫ؍؍̠ōͺЫŠԠдؠ ؍ؠͺЫ؍؍̠ ԲРвԫ ԳРгԫ ԴРдԫ ƍŠРԫ̠ԫŠ؍Ų 捠ؠŰ  ͺРòΠðؠðΠðؠðԠĸōŠԠčǠԍԱРб Ԯ ϺؠԠLaLPL?L0Lw%+C 04? @` H…   h ``500 D$"PR#0" , D$"CAT /RAM"\ ROUT12:"R{cup}re table occupation volumef X$:l  Π ΍Ӎ䍍ԠӠҠܤİ İԠƍ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 آ <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 *  !"#$%&'()*+,-.n!o!p! k! iL X%>!L;!ΠΠҠ`}!!!"!!!l4"# G$YO!-q(qR9B}PBiB،h@ihAiȱ@JJJJq@)@1vȱ@Hȱ@Ah@Q@c1e J) LxL LxJiB LxJ) <ҩxNhHHHHL(  аƠx@BEOD  а(`( C)CJJJlBJ,~@~@}J@` ߩ%S @ ~`EhhhѺ0 h ѐ# ѐ ѐ ѐ 0 HϭэLпllllhh8` QSTV'PHIH 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*JFG'(`)\ \8ʈ` ۰0)i `8`]R ܍hRSg ݰN]FG ݰ< h0 FGLۮ]g0 SR8`a`H8` ܹ ,gR S 8h Wڭ01 E8`1ݖ0 iڰ$]0̩GF ݰ ڰ ڰ`12)1`0]`Ȏ]i 0U`)8`΄`] ېW }װG =۰A)H ]ʈh0)*ȱ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%kK@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 ) . )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ĠԠLL`BLLТТТТТТТТТТТТТТТCOPR. APPLE,1983LM Mh@8nЍLЭ 0J @,,L:,L$# {  { / 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>` +>P8H  ): e: y8鰕:Jjjj<)yi8i;i(*=>hP8`;Zx3QTTSRWVUHEVhEhH)IWHPHHHAHHHLaVEWLӿLLՐ`BLڑL COPYRIGHT APPLE, 1983 h@ 0J @L:HUSTON! !5).莀/ ! !!!!! !!$ ! "<" !!뭳!!!!ILYL 8!9!詍` ! !ՠî򠠠!STARTUP/p/123456789 > 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 ŠϠŠà͠ӠàԠŬ` Y)Y i ۹  ODH鹝h,PIN'ҍIxy lLsIx Oy OJpnoF l= lm lw)!,ZJYH)h****)  md87`\H[< Gh  l( G쳼󩭙Llid l`H) ZhJJJJ ɺi`  ` .8 `O`S  [AI-Ly !B C ⟩VW AUTRE PREFIX <2> APPLESOFT <3> MENU";:R1$:16368,0wR1$"3"Ģ22:(4)"RUN MENU"|R1$"2"420R1$"1"Č198:12:1:"NOUR$)127)295% ;R$"0"R$"9"300C @R$:A$A$R$:(A$)2300 E12:1:198:"HEURE ARRONDIE : ";R$:H(R$):R$""H12:12:18:H JH1R24325 O49041,(A$)2(M7) TM8Ĺ49040,M32(J$):350 Y49040,(M8)32(J$)^49043,H:4900MD31 MM1:M13M1[ 10:22:198:M$(AN$,M32,3):M$;:22:R$:16368,0q R(R$):R13295 R127R8MM2:M0M11 "270 'A$"" ,10:26:198:A$;:R$:16368,0 1R$(13)D20A$(D2):325 6A$""((R$)8(R$"1"225 370 J$""a 10:19:198:J$;:R$:16368,0:(R$)127J$""J$"":230 D10R$(13)J$(D1):265 J$""R$"3"230 R$"0"R$"9"230 J$""J$J$R$:230 (J$R$)1(J$R$)31230 R$:J$J$R$ D3)D22)8((49040)32)8 D30M$(AN$,D332,3)T "DATE DU SYSTEME : ";: (("0"(D1)),2)"-"M$;:M$""ĺ"..."; "-"(("0"(D2)),2) 20:TR$:22:"<1> CHANGER DE DATE <2> CONTINUER -> "; 198:R$:(R$)49(R$)50210 :<=> I110:TR$TR$"____":N I15:I:1:" ";:I1I5āJ239:" ";:J 40:" ":::3:7:"QUELLE EST LA DATE DU JOUR ?" 6:34,7 (4)"PREFIX"PR$ :"PREFIX";::PR$:: D1(49040)((49040)32)32:D2((49041)2):D3((49041d(4)"RESTOREDATE0"0i49041,D22(D37)>nD38120Vs49040,(D38)32D1pxD38Ĺ49040,D332D1}49043,12:49042,00::(4)"PREFIX":PR$:(4)"PREFIX"PR$:(12);(21):: AN$"JANFEVMARAVRMAIJUNJULAOUSEPOCTNOVDEC"@ʈ0 L /` w ٽ5TLy-T VV z$ZA@L8 `ǹ-U -W b WWѹ)ѹJJ zT$K 0IDK z z5K 0.)K z쭼󬮼XK`LyL)9VJ T)h*I/W) VV }>S ?@$I0 U)VJ *T)`l8`a HbIJhjǾȾɾ p٭b=a,AVERTISSEMENT,/TMC/HOR"&29 - HORLOGE DE FRANPAGE INFOS GENERALES,INFOS,/TMAO GS - COULEURS DE L'ECRAN,MENU.GS,/TMC/GS GS - DEPLACEMENT EN MEMOIRE,MENU.GS,/TMC/GS  " 3 - ECRITURE DOUBLE HTE RESOLUTION",DEMO.ECRIT.DHGR,/TMC/ECRIT 11 - BIT MAP (OCCUPATION D'UNE DISQU.),&, 14 - L270V r35,24:34,21:22::T$;:"SELECTION -> PAGE "((A$(VDS),2))" "B$(VDS)q |B$(VDS)"INFOS"720 B$(VDS)"*"860 B$(VDS)"&"840 B$(VDS)"#"850 23:D$"PREFIX"P$(VDS) 34,0:35,24 23:D$"-"B$(VDS)! , K(16384):K9ĺ:21:D$"-COMMANDE"D "K6ĉ::D$"CAT":S ,K128280 616368,0:V:A$(VSD):K141Ģ22:370 @K136K139VV1:VDVD1:200 JK149K138VV1 TNSPS0VRD1VD1:SSP:210 ^VND1SVD1:200 h@BCDEFGRNUMERO "NU" "T$:34,2Z 23:T$" UTILISEZ LES FLECHES - RETURN POUR RUN";:V::35,22f R0:S0o V:} S0250 RR1:A$(R):RSP230 260 RR1:A$(R):RN250 :31:3:"FIN=CTRL-F": V:768,A$(VSD): VERS MODE INVERSE16384,128,127:16368,0:XX1:X281024X1::> lH910:"UNIQUEMENT SOUS DOS 3.3 (FACE 1)":870R910:"LIRE L'ARTICLE DANS TREMPLIN MICRO":870\:G$::"POUR UTILISATION, VOIR ARTICLE"::"& FICHIER(S) CORRESPONDANT(S)."*f1:20:"ENU 400)):FEFEB. Z36,L1717:U" "FE;= _L:" ":KO d:(4)"PR#0" n:22:"ENU DE DISQUETTE ";:R$:::R$"M"ĺ(4)"RUN MENU"dS:"ALLUMEZ VOTRE IMPRIMANTE PUIS PRESSEZ UNE TOUCHE ";:R$:j ::(21);(12):(4)"PR#1":(27)"c";(9)"132N";(27)"Q"2U15993K1524L18TFE28:UU1 UB((U4)(U4))((U100)(U100))((U400)(U X . bz`yzDE DISQUETTE ";:R$:::R$"M"ĺ(4)"RUN MENU,D1" o 32,88,252,169,27,160,3,32,249,234,32,46,237,32,98,252,206,27,3,173,27,3,201,122,176,233,96,140,122,0,0,0I768799:R:I,R:768(23:"ENU DE DISQUETTE ";:R$:22::R$"M"ĺ(4)"-/TMC/MENU" KI$ XCI,YCA(I):XCA(I),YCID XCI,YCA(I):XCI,YCA(I)d XCI,YCA(I):XCA(I),YCIv XCA(I),YCI| ,198:16368,0:16384,128,127:16368,0:520 I768777:W:I,W:  104,168,104,166,223,154,72,152,72,96 : "OQVXYZ[ de ligne entre 7 et 191 * A$ : chaine de caract}res @ afficher * et qui peut contenir des caract}res de controle. * * Effet des caract}res de controle : * * CTRL B : prochain caract}re d{cal{ vers le bas. * CTRL E : prochain caract}re********************************** * * ECRITURE EN MODE DOUBLE HAUTE * RESOLUTION * * (C) R.JOST 1986 * * * APPEL PAR &PRINT A$ AT X,Y * ou &PRINT "chaine" AT X,Y. * * X : colonne du premier caract}re ( 025220(I),16320(I) @I B248,143248,140254,140254,143 D246,140246,138256,138256,140 F252,180 HI06.28.0 (4)"BLOAD FONTE.LM"3 (4)"BLOAD COQ.LM"Q(4)"BLOAD DICTIONNAIRE"` GOSUB h94p38y190JEU1İ308JEU2İ220362R$"O"22 424":$& DESSIN DE L'ECRAN (*:,114 .7 >ASIC ETOUR MENU ";:16368,0:X$:G$?pX$"B"K6:290ZzX$"R"Ľ:D$(4):110c870t:G$::2:),YCIXCA(I),YCI5 XCA(I),YCIXCA(I),YCI; D 520 ERREUR ";(218)(219)2563 " A(I)= ";A(I)u :22:"ENU DE DISQUETTE ";:R$:R$"M"ĺ:(4)"RUN MENU" :: XCR,YCXCR,YCXC,YCRXC,YCR 400 I1B:XCI,YCA(I)XCI,YCA(I) XCI,YCA(I)XCI,YCA(I) XCA(I en exposant. * CTRL F : prochain caract}re = GREC minuscule * CTRL G : prochain caract}re = GREC MAJUSCULE * CTRL I : prochain caract}re en indice. * CTRL O : prochain caract}re d{cal{ vers le haut. * CTRL P : impression en caract}res gras. * CTRL N^`abcdefghijklmnopqrstuvwxyz{|}~̠ՠûȠՠƻ̠ՠŻ̧Ƞՠ̠ՠō̠ՠƳ𠡍͠ՠȠՠؠŠ堠ȠՠĻ(90)::(24)# F2:1:34,2:d *** HORLOGE.BAS ***2D$(4):D$"PR#3"J1014,132:1015,144dD$;"BLOAD HORLOGE.C"o#37776(:2);"Date >";9);"Aucune";61);"Horloge >";2(27)::C079:(76);:::(24) <(27):1:1::(95);:18:(90);:59:(90);:80:HORuHUSTON!G '  'HORLOGE.BAS]%G s\'HORLOGE_4!eG G \)HORLOGE.CG G \AVERTISSEMENT3ss\nes . Dans ce cas LDX SCALE ; SCALE = 0. BEQ VID LDX #16 ; taille double = 16 lignes STX TAILLE ; (SCALE = 1). VID LDX INVFLAG CPX #$3F ; I(NVERSE ? BNE NORMAL LDX #$FF STX VIDEO BNE COORD NORMAL LDX #$00 ; non , NORMAL. STX VIDEO STX GRAon mem principale MEMAUXI EQU $C055 ; s{lection mem auxiliaire * * * ORG $4000 * * CMP #$BA ; est-ce bien PRINT ? BEQ PRINT ; si oui on continue ... RTS ; si non , retour au BASIC * PRINT LDX #08 ; taille normale STX TAILLE ; = 8 ligU $00B1 ; saisie d'un caract}re CHRGOT EQU $00B7 STRTXT EQU $DE81 ; {tablit le pointeur d'une chaine PTRGET EQU $DFE3 : recherche d'une variable GETBYTC EQU $E6F5 : saisie d'une valeur GETBYT EQU $E6F8 ; {value l'expression MEMPRINC EQU $C054 ; s{lectiILLE EQU $1C EXPO EQU $1D INVFLAG EQU $32 FACMO EQU $A0 FACLO EQU $A1 TABCAR EQU $CE SCALE EQU $E7 X1 EQU $EB Y1 EQU $ED Y2 EQU $EE VIDEO EQU $EF ROT EQU $F9 GRAS EQU $FA SAUVA EQU $FB LONGUEUR EQU $FC ADCHAIN EQU $FD * * SOUS-PROGRAMMES ROM * CHRGET EQ * * Il faut aussi revectoriser & par * POKE 1013,76: POKE 1014,0: POKE 1015,64 * * et afficher la page double haute r{solution * (voir le programme DEMO). * * * ADRESSES PAGE ZERO * INCREM EQU $06 X05 EQU $08 COMPT EQU $09 ARRIVEE EQU $1A TA * la DIRECTION d'affichage: * ROT = 0 : Horizontal * 0 < ROT < 8 : @ 45 [ vers le bas * ROT = 8 : Vertical, de haut en bas * 8 < ROT < 16: en oblique vers le haut * ROT = 16 : Vertical, de bas en haut : VIDEO NORMALE * CTRL Z : VIDEO INVERSE * * AVANT L'APPEL DE ECRIT.DHGR IL FAUT DEFINIR * le MODE d'affichage: * NORMAL ou INVERSE * l'ECHELLE: * SCALE = 0 -> Taille normale * SCALE = 2 -> Taille doubleՠ»ΠՠûߠߍŠՠĻߠԱՠư֠ՠàՠ»ɠҠԻ󍪍堺堦Ҡӻ٠Ȼ ŴŴŴ٠ŴߠߍҠԻŴ堺󍪠ōųų٠ųߠߍҠԻųƻ˻̍û占Ҡڻ占􍪠堺󍪠òбҠڻ»Ȼڠ˻孭󍪠堯堦卪ԠҠŻ卪ŠŠŠ󍪠ҠŻð報؍Ҡϻύ占ȻҠŻð堺堺卪àð報ҠϻϠ占Ȼ占ؠ٠󍪍ҠŠ卪堢ʯͯȺ͠ӢؠԠàؠбàʯͯȺ͠ӢӠؠƱñƱűƱűƱƱűƱűƍōűՠà墍ؠŲՠàȺ͠Ӣؠųՠà堠ؠŴՠàʯͯؠŵՠà䠨ϯΩؠ˱àò堤卻ȠՠԠՠРՠߠ堠ߍǠ󍪠̠ƍŠՠó̭Ƞ̭Ƞ̭ȍ٠ՠİûԠՠ³Ԡՠ»ɠ堼ŭž ՠòڠՠƠ堼þŠՠõŠՠƠՠɠ堼ŭžؠՠŻΠՠƻߠߍˠՠŠ͢ʯͯҠԱ͢٠б٠占٠͢ɠл頭٠Ļ̠͢л頭Ӭٻ٠堢ʢ占ҠԱ堢ʢббѠл頢ʢ卪٠󠢺Ⱥ͠Ӣɠ󠢺Ӭٻ占٠占占Ӭٻ卪Š堺卪٠Š˱ٻ˱٠°堤°Ӭٻ占٠̠Ż٠ӢвɠҠ̻占ɠРóб堢Ⱥ͠ӢРҠŻ卪Ա占бРû㠶̠в頢͢٠ӢҠԱ占бРû㠶ɠл頢ӻ٠ȢȺ͠ӢҠԱ堢ȢбР̠в頢Ȣ٠͢Ҡ堺󍪠ҠԻ󍪍堺卪ҠӠ˻̍û占Ҡڻ占Ȼ ŲŲŲ٠ŲߠߍҠԻŲҠڻ»Ȼڠ˻ōűű٠űߠߍҠԻűƻ卪堺󍪠óбгҠŻ卪ŠŠ󍪠󍪠卪ŠŠŠ􍪠堺􍪠ԍ٠ԻߠߍҠԻԍ堺堯堦􍪠ҠԻРòб堢ʯ̠ͯҠŻ卪ҠԻԍҠڻȻԻʢààбʢ̠̻頢ʢʢРɠҠ̻󠡍ɠŠеàð報ҠлРȻȻҠŻàð報؍ҠлЍԲРû堼žŠԳ٠٠ؠ؍ԍРеԳР°ɠ׻ٍؠ؍占РгԱРԻ堼ŭžŠԲ٠ٍؠ؍占РԻû報ֻҠڻؠ堳ԠؠȻؠ占٠נҠٻ堡Рƻ堼ŭžŠԱ٠Ż占ҠԱ占٠占٠ػ堿ɠԻ占Ӡ썪堺ԍԠ٠٠占ؠ占ؠػ堿ɠԱ占Ӡ썪à٠λԠ٠ֻҠ»ŻȻ堫ػҠû占Ӡ썪ڠؠλֻҠ»ԱؠȻŻ占ҠԱӠԱλ占ػҠڻ占Ӡ썪Բλ̍占ͻ占л占ȻԻ卪ԠҤҠԱ؍ؠԠػààλؠΠҍȻ٠λ占٠٠л٠ػ占٠ͻҠŻԻ占Ȼ򮮮占л宮占ͻ宮占ؠλ줵占Ż占ŻҠԲƻ占Ż占ŻҠԲ󍪍û썠Ż占ֻҠԱ占ֻҠԱ卪ō٠ؠ占Ӡ㍪堺ōŠ ԠҤҠԱȻȻҠŻ󍪍堲ֻҠڻ報ȻҠԱ퍠Р占̠׻°¹ɠ٠˱ٻ占ҠԱ٠占ؠ占ؠ占٠堍Ѡ̻٠Ѡ̻٠ᮮ婍Ѡһ占Ի젨ᠡ̠٠占Ӎ堺ЍР̍̍ȍİ̍Ӎ堠٠堢ؠؠآб占Ӡ썪堺ύϠ̍̍ȍİ̍ȫ˱ٍббؠŠı占٠占à˱ٻ٠٠٠썪堺ԱԱ፠б占ؠ報占àıббà˱ٻ頿Šһ٠卪٠򠢯ʯͯɠԬٻ٠堲堢ԬٻӠ썪堺ԍԠ٠Ҡ˱ٻ˱٠°堤°Ԭٻ٠٠占ƹ卪ҠԱʢٽбƹĩƹ占Ӡ̠̠占̠̠ƹ占ƹ堤ƹà卻б̠占ƹ􍪍ҠԱ젬͢ٽ婍б̮썠РԻ堨ΩΠӠ썪堺ԍԠ٠堢ʯͯҠԱҠڻؠ堵ؠȻ͠Ҡٻ占Рƻ堨ϩ頿Ѡλˠ΍РŻ堨ΩŠͻ堨Ω򮮮Ҡڻ占٠»堲٠Ȼŵų٠ŵųҠԻ占Ż報ֻҠ°堤°˱ٻ占٠٠頿Šӻ占Ӡ썪堺ōŠŻ報ֻؠ占Ի젨ᠡҠӠ썪堺ӍӠ٠٠Ӡ˱ٻ˱٠ΠՠŠՠƹԠՠŠՠƹŠՠԠՠРՠԠՠŻ卪ɠҠ˻󠢠堢ؠ󠶠󠿍̠в卪ҠӻРŠԻ頡ӫӬػ؍àӬػӬػ󠿍РŠһ占頬ӬػؠԻؠвàӬػӬػ󠿍Р堹àһ占頬卻ҠĻàԻ󠶰占Ի堿Р» à婍ŠԻ頬占Рöң堺ЍРՠɠ󍪍占ؠ٠٠Ż٠λߠߍҠԻû占ֻҠڻ占ȻҠٻӠ썪ҠҠŻҠ̻𠡍ûֻҠڻ占ȻλЫ頬占ī䠨λč̠占̠場̠̠ ΰ۠占٠û占ЩٻРŠб٠»占ЩٻРĶĶŠбˠؠ堷占лøøЫ祉бàЫ÷÷ؠɠһӻ򍪍Πؠΰؠ堨۠ĠР卪堺􍪠占Щٻؠλ٠ΰ۠īؠī占ҠĻ占Ӡ٠Ի占ҠĻɠӠ㍪堺čĠлؠлߠߍԻؠԫߠߍ٠ԻҠčРŠԻ٠㠢г˳ٻӬٻ٠٠̠гҠԻ卪Ԡؠ򠤴Π٠ÍԲð報ҠŻ占٠ð報؍Ҡō٠ؠԍ٠ԻߠߍҠԻԍҠԻ卪堲Ҡڻ報ȻҠԱб٠٠ʢʯͯҠŻ󩍪ҠԻ˱٠Ԡٍ堰Ҡڻ堸ȻԻ󩍠頢占бȠ٠͢ʯͯҠŻ󩍠頢͢占堢àббРɠии頭ڍби٠ʯͯҠŻҠԱ堢͢àб͢͢бРĻ̠͢з頬占РȻ卪з٠ʯͯҠԱ䍠àбʢʢ占à占àбʢʢɠжʢ𮍠Рٻʢʢ卪ж٠͢ʯ堢͢٠б٠Ӭٻ占٠堢ʢ堢ʢҠԱ堢ʢԠ٠еԬ٠Ԡ٠Ҡ°堤°˱ٻ٠̠е٠卪٠͢ʯͯҠԱ٠٠٠٠堢ؠآв占Ӡ썪堺ԍ占àIJввà˲ٻˠٍввؠŠIJ占٠占à˲ٻŠӬٻ占άػ占Ӡ򍪍堺ԲԲ፠в占ؠ報ҠԲв㍠Ż٠占ؠɠ󍪍ɠ򍪍堺Š٠򠿍Šд卪٠堳堢آ堢ؠآҠԲ򠱰鍻場堢آ󩍠вŻ卪占̠Բð報٠дӬٻ젿Ҡ°˲ٻ占٠󍪍Ӡ􍪍堺ōŠؠؠбббààɠб栬占ؠ̠ббàà報卻˱ٻ占٠占 JSR GETBYTC ; saisie de Y STX Y1 * LDY #00 ; initialisations.... STY FACMO STY INCREM STY EXPO LDY #$42 ; la table des caract}res STY TABCAR+1 ; commence en $4200. BALAYE LDY FACMO ; analyse de la chaine LDA (ADCHAIN),Y CMP #$1F ; recher LDA (FACMO),Y STA LONGUEUR ; Sauve la longueur INY LDA (FACMO),Y STA ADCHAIN ; Sauve l'adresse INY LDA (FACMO),Y STA ADCHAIN+1 JSR CHRGOT ; saisie du caract}re suivant CMP #$C5 ; est-ce 'AT' ? BEQ XY RTS XY JSR GETBYTC ; saisie de X STX X1 S COORD JSR CHRGET CMP #$22 ; est-ce un guillemet ? BNE CHAINE ; non c'est une variable JSR STRTXT ; saisit la chaine entre " " SEC BCS PARAMC ; CHAINE JSR PTRGET ; adresse de la chaine STA FACMO ; stockage temporaire STY FACLO ; PARAMC LDY #00 h8v0LD Nvv L: Nvvd0v lv lv l 2 $$m :  $$ `v8 0i dd`󠭭堡$ :۩ % $:$ LxHZ ;Hɺɶ ݭɲɴ ߔT U TI zhX@#` yy`mId NvwH Nv` Nv Nv i Nv `d mmm`v vydvydv`(B<=Ѕ>?`(B<CЅ>`x œ  X`HÓēh “`Lȅ0  ē ` X : % $#H 8!Ȅ"# Xh#h"h!h  `7 C` W`% "$ 0`% "$ 0` % $$$Z ɊzhhLɋzhhLɛzhhLɰ0ɺzd  耴`dId`% $$J :۩% $5$ hhL Ւ 2 $$m :  ɑ $$d2 :۩2 $$$ : m Œ Nv Nv<  Nv<0x :XL Ւd T @=C? U D=G? é% $$ zh` L% +% +Z 7_7 7 H!H"HȺ͠堠ʯͯ䠨ϯΩHZ8T n@C íU nDC íT ɑ $$d2% :۩2 $$$A : m Œ Nv0 wH Nvh8vx :XL卻?堢Ⱥ͢Ӡà卪򍪠Πà󠭭堡ؠǠ˱ٻ占Ӡ썪󍪠Ԡؠ˲à堢Ⱥ͢˳à堢ڠ頢вàche d'un BPL BALAYE1 ; caract}re de controle JSR ANALCOM ; c'en est un ,on le traite.. JMP BALAYE2 BALAYE1 CLC ADC INCREM STA TABCAR ; code ASCII. LDX X1 STX X05 ; l'abcisse est-elle CLC ROR X05 ; paire ou impaire ? LDA #00 ADC #00 BEQ PAIR ; si impaire, on affiche STA MEMPRINC ; en m{moire principale. BNE VERTIC PAIR STA MEMAUXI ; si paire, dans la VERTIC CLC ; mem. auxiliaire. LDA Y1 ADC TAILLE STA Y2 JSR ECRIT LDA ROT CMP #08 ; si ROT = 8 BNE VERTIC1 LDA Y1 ; affichage v SES DES LIGNES HGR. * TAB1L DFB $00,$80,$00,$80,$00,$80,$00,$80 DFB $28,$A8,$28,$A8,$28,$A8,$28,$A8 DFB $50,$D0,$50,$D0,$50,$D0,$50,$D0 TAB1H DFB $20,$20,$21,$21,$22,$22,$23,$23 DFB $20,$20,$21,$21,$22,$22,$23,$23 DFB $20,$20,$21,$21,$22,$22,$23,$23EM RTS CTRLN CMP #14 ; CTRL-N : la suite sera BNE CTRLZ ; affich{e en vid{o normale LDA #00 STA VIDEO STA GRAS RTS CTRLZ CMP #26 ; CTRL-Z : la suite sera LDA #$FF ; affich{e en vid{o inverse STA VIDEO RTS * * TABLES DE CALCUL DES ADRES DEC Y1 ; vers le haut. RTS CTRLP CMP #16 ; CTRL-P : le prochain BNE CTRLI ; caract}re sera imprim{ LDX #01 STX GRAS ; en caract}res gras. RTS CTRLI CMP #09 ; CTRL-I : le prochain BNE CTRLN ; caract}re sera {crit LDA #128 ; en indice. STA INCRtre LDA #64 ; grecque minuscule. STA INCREM RTS CTRLG CMP #07 ; CTRL G : le prochain BNE CTRLO ; caract}re sera une lettre LDA #192 ; grecque majuscule. STA INCREM RTS CTRLO CMP #15 ; CTRL-O : le prochain BNE CTRLP ; caract}re sera d{cal{ INC Y1 ; d'une ligne vers le bas. RTS CTRLE CMP #05 ; CTRL E : le prochain BNE CTRLF ; caract}re sera affich{ LDA #128 ; en exposant. STA INCREM LDA #02 STA EXPO RTS CTRLF CMP #06 ; CTRL F : le prochain BNE CTRLG ; caract}re sera une letn empile TXA ; calcul octet haut AND #$07 ASL A ASL A CLC ADC TAB1H,Y TAY ; octet haut dans Y PLA ; octet bas dans A RTS * * ANALYSE DES CARACTERES DE CONTROLE * ANALCOM CMP #02 ; CTRLB : le prochain BNE CTRLE ; caract}re sera d{cal{ INC TABCAR+1 M1 DEX BNE M0 CLC ADC EXPO BCC M2 INC TABCAR+1 M2 STA TABCAR LDA #00 STA INCREM STA EXPO RTS * * CALCULE L'ADRESSE D'UNE LIGNE * CALCADR TXA ; recherche octet bas LSR A ; divise par 8 LSR A LSR A TAY LDA TAB1L,Y PHA ; oY INX SUITE CPX Y2 BNE BOUCLE1 LDA #$42 ; octet haut table carac. STA TABCAR+1 RTS * MULT8 LDA TABCAR ; multiplication par 8 LDX #$07 ; l'adresse d'un caract}re M0 CLC ; de code ASCII = adresse ADC TABCAR ; d{but table + 8 * C. BCC M1 e l'abcisse et STA (ARRIVEE),Y ; poke en page HGR. STA FACLO ; sauve le caract}re LDA SCALE ; double hauteur ? BEQ SUITE ; non JSR CALCADR ; oui . On {crit deux fois STA ARRIVEE ; le m}me octet. STY ARRIVEE+1 LDA FACLO LDY X05 STA (ARRIVEE),ets LDA (TABCAR),Y ; d'1 caract}re de la table LDY GRAS ; caract}re gras ? CPY #01 BNE BVIDEO STA SAUVA ASL A ; d{cale d'un bit , @ gauche ORA SAUVA ; superpose les 2 octes BVIDEO EOR VIDEO ; {criture en INVERSE. INC COMPT LDY X05 ; on r{cup}r RTS ; Retour au BASIC * ECRIT JSR MULT8 ; calcul adresse caract}re LDA #$00 STA COMPT ; compteur de boucle LDX Y1 BOUCLE1 JSR CALCADR ; adresse en page hgr STA ARRIVEE ; en page graphique . STY ARRIVEE+1 INX LDY COMPT ; charge un des 8 octC ; affichage en oblique LDA Y1 ; vers le haut. SBC ROT CLC ADC #08 STA Y1 INC X1 BCC BALAYE2 APECRIS LDA Y1 ; si ROT <8 CLC ; affichage en oblique ADC ROT ; vers le bas. STA Y1 INC X1 BALAYE2 INC FACMO LDY FACMO CPY LONGUEUR BNE BALAYEertical, CLC ; vers le bas. ADC TAILLE STA Y1 BNE BALAYE2 VERTIC1 CMP #16 ; si ROT = 16 BNE APECRIT SEC ; affichage vertical, LDA Y1 ; de bas en haut. SBC TAILLE STA Y1 CLC BCC BALAYE2 APECRIT CMP #08 ; si ROT>8 et ROT<16 BMI APECRIS SE`>c""""?""?""?>k>?""">"" !?!   "c6**"""&*2""""""""?!!?""?""?6c"""""k*"">> >00000>*3,0: permet de stocker directement dans la page graphique auxiliaire (80STORE on)u 449156,0: D[connecte RAMWRT 649154,0: D{connecte RAMRD 849236,0: commute la m{moire principale ;: < On efface la page double haute r{solution =:* AH246,0: AN3 (Annunciator) offT *49232,0: s{lectionne le mode graphique (GR on) ,49239,0: selectionne la haute r{solution (HIRES on) .49165,0: s{lectionne le mode 80 colonnes (80 COL on) 049234,0: s{lectionne le mode pleine pageT 24915 TEST ECRIT.DHGR :YD$(4):D$"BLOAD ECRIT.DHGR":D$"BLOAD NEWSET2,A$4200"1013,76:1014,0:1015,64: Revectorise l'ampersand0:0":# On positionne les 'switches' de passage en double haute r{solution graphique$: (49    >*** *** >>>>>>6II6         "6*""  ""*6"*< $.<&( <*(6$ 0($ $1"$*$ "8$ $$ #)-*8  80,>  <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >> "><"""2, "><,  <"<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> ><< "><*< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> ": Efface la page graphique principaleb B49237,0: s{lectionne la page graphique auxiliaire C62450: efface la page HGR D49236,0: retour @ la page HGR principale E49234,0: pleine page graphique P36353,0 Z: [ DEMONSTRATION \:d d1::"ECRIT-DHGR"15,1:: Ce titre sera {crit en hauteur double et en noir sur fond blancm i500 nA$"permet d'{crire des textes en mode Double Haute R{solution.":0:A$5,20 s500. xA$"EN MODE INVERSE ou NORMAL":A$10,30: Il y a  V84:H(R5)70# HC(R)HC5 HC:225:345< JE 265] 49235,0::J0:PT0g JJ1 22:"QUEL A ETE LE CARRE NUMERO ";::J;::" ";:198:R$:R$ (J767)(R$)64Ģ24:868:PTPT1:"EXACT: NOTE = "PT;:190( 24:868:"INEYd(21)::16199,16149::Carte Chat Mauve, carac orange sur fond bleu turquoise bi235onA4:B65s230,32:3:0,0:3082x49236,0:49234,0:49239,0:49232,0}J18:R(767J)HC1((1)6):HC3130 R5H(R1)70:V8:145res."7 ~" EXEMPLE: DOCTE - DOUTE - ROUTE - ROULE."h "Ecrivez les mots de votre choix, mais en"; "sachant qu'APPLE les m{morise, et pourra"; "les r{utiliser @ un autre moment du jeu."; " EVITEZ DONC D'INVENTER DES MOTS!"::"D nREC(37911) p- r PRESENTATION E t" DU COQ A L'ANE "u v"________________________________________" x"Passez du Coq @ l'Ane, c'est-@-dire d'un"; z"mot @ l'autre, en changeant une letttre,"; |"mais en respectant l'ordre des 4 autIALISATION  `(21)1 bR116384:FONTE.LM _ dR220556:EFFACEMENT D'UNE PARTIE D'ECRAN| fR320624:ROUTINE JOUEUR hR421414:CE MOT FAIT-IL PARTI DU DICTIONNAIRE ? jR521513:APPLE JOUE lR620352:COMBIEN DE MOTS DANS LE DICTIONNAIRE ?5! J25218(I),16318(I)( LI? N198:23:1:958o P23:1:"Tapez le num{ro de votre choix : " R23:37:R$:R$"1"R$"2"82 T:JEU(R$) V16304,0:16300,0 X16297,0:16302,0 Z1:14:"Du coq @ l'ane" \R1 ^ INITSSTORE off,49236,0: LOWSCR:PAGE 2 off4:p24:"ENU DE DISQUETTE ISTER IN ";:R$:22:R$"M"ĺ(4)"RUN/TMC/MENU"R$"L"ĺ(4)"PR#3":::220R$"F"220: BOUCLE DE TEMPORISATIONT11000::**ibilit{s..."15,180.R$$:S on d{connecte la double haute r{solutionY:x49247,0: ANONCIATEUR off49164,0: CLR80VID : 80 COL off49233,0: TXTSET : MODE TEXTE 49238,0: LORES :LO-RES off 49152,0: CLR80COL : 80 y a un CTRL-I devant les caract}res @ mettre en indiceGA$5,150P500A$"Alphabet grec : y = Sx iy i - C(x,y)":A$5,170: Il y a un CTRL-G devant S , un CTRL-I devant chaque i et un CTRL-F devant C"@ vous d'utiliser toutes ces poss DOUBLE HAUTEUR":2:A$40,85:0A$"Formules math{matiques : Y = ax2 + bx3 + cx4":A$5,130: Il y a un CTRL-E avant les caract}res @ mettre en exposant5008A$"Equations chimiques : CH 3CH 2OH + CH 3COOH --> CH 3COOC 2H 5 + H 2O": il un CTRL-Z devant INVERSE et un CTRL-N apr}s.7 }500h A$" en caract}res GRAS : ABCDEFGHIJKL..."| A$20,50:500 A$"VERTICALEMENT":8:A$70,20:16:A$72,130 500 A$"EN OBLIQUE ":1:A$10,90:9:A$10,80:0 500#A$"enXACT - BONNE REPONSE: "((J767)64);; 21::J8170D 250o 22:958:"VOTRE SCORE EST ";::PT: 24:"(1) UNE AUTRE PARTIE - (0) TERMINE -> ";:250 R49100 R48205 :16200,16015:::Carte Chat Mauve:{cran noir,carac5 :/ *** CREATION DE LA POLICE ****5 :? CC1 1403,0:3:868:"CARACTERE";" NUMERO "C" - ASC "C31": "(C31) V10:H1:R$"" H13H13:198 H1H1:198 V10V10:198 V17V17:198 V:H:R$:V:H:d:(4)"PR#3"::"e17400,i160_n(4)"BLOAD POLICE.LM":(4)"BLOAD POLICE.HGR"s819: $4000 COS 42FF @ z{ro x20)"CREATION D'UNE POLICE GRAPHIQUE DE CARACTERES"}6,0:7,64:$4000, adresse de la fonte @ cr{er 330 30o o POLICE.DEMO1o o POLuHUSTON!m '  ',POLICE.CREERR m m POLICE.LMm m POLICE.HGRnm Cm 'ASCII.Fm @m 'ASCII.Gm @m POLICE.DEMO310::H  A$""4A$A$"** **"HA$A$"** **"\A$A$"** **"p A$A$"*******"%A$A$"** **"*A$A$"** **"/A$A$"** **"4:9310:*** "A$A$"** "0A$A$"** "DA$A$"** "J:U310:[:bGlA$""A$A$" ***** "A$A$"** **"A$A$"** "A$A$"** ***"A$A$"** **"A$A$"** **"A$A$" ***** ": ""]A$A$"*******",bA$A$"** "@gA$A$"** "TlA$A$"***** "hqA$A$"** "|vA$A$"** "{A$A$"*******":310::FA$""A$A$"*******"A$A$"** "A$A$"** "A$A$"**A$A$"** **"&A$A$" ***** ",:7 310:=:ED OA$""c!A$A$"****** "w&A$A$"** **"+A$A$"** **"0A$A$"** **"5A$A$"** **":A$A$"** **"?A$A$"****** "D:I310:N:S EXA$$"** **"!A$A$"** **"5A$A$"****** "IA$A$"** **"]A$A$"** **"qA$A$"****** "w:310::C A$""A$A$" ***** "A$A$"** **"A$A$"** "A$A$"** "A$A$"** "110:BZZZ(49200):: ^:& cA 0 hA$""D mA$A$" ** "X rA$A$" ** ** "l wA$A$"** **" |A$A$"** **" A$A$"*******" A$A$"** **" A$A$"** **" : 310: : B A$"" A$A$"****** " A$A40 I18:XXO70I:I4Y90:XXO70(I4)K 3:HC(I)6HC(I)5Ē7r I360,420,480,540,600,660,720,780x ~ ": ' ,: 1: 6ECRITURE DU TEXTE ;H07 @L17 E(A$,LH7,1)"*"ēXL,YH J: O: TESPACE  YBRt}res blancs sur fond noir: I0B:AH,VIBH,VI:@ Z I768775:I,I767: I07:R((1)7):T(768I):768I,(768R):768R,T: 198:16368,0:16384,128,127:16368,0:21::R(16384): : ABCDEFGH XO15:Y1R$: R(R$):R$""% R14103 R16490 R7A(6):B(7):22:868:17152::198:R$::6,A:7,B:49233,0:165 R86āIV16:H:I:"O"::190 R72ĖH:V:IH132:"O ";:::190 R118āIV16:H:I:"^"::190 R104ĖH$:< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> " @j ( H i h ٥i iX ЩЧ`i ,U(,TJ6i`@` @ ii  H,U(,ThȈ` ,Uȱ((ޑ( ,T` REVOIR: Ctrl-A","POLICE EXIST: Ctrl-P","REMPLACE CAR: Ctrl-R"Q51,0::120R(R256)256:7,(R256)+!198:1601&:+"DEPLACEMENTS: Fl}ches de l'Apple","MATERIALISER: Tab ou barre d'espacement"," SUPPRIMER: Delete"," TERMINE: Escape"," DEL GRILLE: Ctrl-E","LIGNE PLEINE: H ou V"," LIGNE VIDE: h ou v"@0"CAR A1901F$"?"Ĺ34,5::(4)"CATALOG":::490Z(4)"BLOAD"F$",A$4000":R1:P1:425`:*** UN CARAC POUR UN AUTRE *** :22:868:"Code ASCII du caract}re @ remplacer ";R$:R$""190C(R$)31:C1C96530R16376C8:6,465&(4)"BSAVE"T$",A$4000,L768"h22:868:"]GOTO 1000 POUR RETROUVER TOUTES LES DONNEES":21nt:**** CHARGEMENT DE POLICE ****:22:868:"NOM DE LA POLICE (CATALOGUE = ? ) ";F$34,5::34,0:330:305F$""22:868:"Quel est le caract}re @ rappeler (code ASCII) ";R$:R$""190^R(R$)31qR1R127410841,R:CR:160:***** TITRE DE LA POLICE *****:22:868:"TITRE DE VOTRE POLICE ? ";T$T$""445T$"0" UN CARACTERE TERMINE ****$ h: m22:868:"Bien d'accord pour m{moriser ce caract}re (oui/non) ";:R$::R$"o"R$"O"375 r165 w768 |R27C96445 P(C1)97RC1:425 135 : *** RAPPELER UN CARACTERE ****:O190 190 ":: '**** DESSIN DE LA GRILLE ****@ ,:Q 132,0:33,80~ 61403,0:10:I18:J17:"^ ";:::: ;: @***** COMMANDES DIVERSES ***** E: J:V9:I110:I5V10 OA$:1403,40:IV:A$ T Y ^: c****:V:IH132:"^ ";:::1902 R5İ310:165L R94R79HH2:170a R21HH2:170u R8HH2:175 R10VV1:185 R11VV1:180 R9R32R$"O":190 R127R$"^":190 R13R27365 R18530 R23Č913: <"<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> > <<"" "ORGUEuHUSTON!s '  'ORGUE.DEMOs s'ORGUE.Ss rORGUE.0s s (ORGUE.IMs @s  F07:768,(ADF)9 #L06:(249L)1ēXL,YFI (:::R$:| 2:22:"ENU DE DISQUETTE IST ";:R$:R$ 7R$"M"ĺ(4)"RUN/TMC/MENU" <R$"L"ė:10,40::50 A:!:(4)"BLOAD ASCII.G":50+X186 :3:I768785:R:I,R::32,245,230,138,160,0,10,162,6,10,148,249,54,249,202,16,248,96A$"Bonne et heureuse ann{e 1987 - G-H"V1(A$):XX8:Y100:C$(A$,V,1) ADRESSE16384((C$)32)8::20< 2:22:"ENU DE DISQUETTE IST ";:R$:R$\ 7R$"M"ĺ(4)"RUN/TMC/MENU"w <R$"L"ė:10,40::50 A:!:(4)"BLOAD ASCII.G":50, :3:I768785:R:I,R::32,245,230,138,160,0,10,162,6,10,148,249,54,249,202,16,248,9622:"X,Y,CARACTERE ";X,Y,C$ADRESSE16384((C$)32)8F07:768,(ADF)#L06:(249L)1ēXL,YF ( 0>3>33300>333>3?>633>03333  33 3?333333333333>33>00;>06333;6333 333?33 3333>0? ? 3?> 333;6 3?>66 >0>3> 33?3333333333333???3;3>333?333 00000333?3???333337;333333333333376333303? 33333333333 3333??333 3333 ?0 ?>>  3   >< 33 3376  000 ?? ?  0 3;733  30??003??003<33?0 333333>0    0 3  <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>"><"""2,"><*** ::(21):-49234,0:PAS DE TEXTEF(4)"BLOAD ORGUE.0"g((4)"BLOAD ORGUE.IM,A$2000"p2768x<:F22:"ENU DE DISQUETTE  ";:R$::R$"M"ĺ(4)"RUN /TMC/MENU"PT L   ``  0Ba D0@@A@@H$@` 0@` 0@ @0@` 0@`@H$@`p|p | ` #) E0DD8UBc #) E0DD@`q@Y*&H$~Ay?f`@ Sժ `P0,0L6[Q(frf-[QD<6V`L-fVy3l[Qs0+LH9@`(D& <"AIRSuHUSTON!s' 'MENAIRSssSONss%CLAIR.DE.LUNE3ss (DAGOBERT9ss FREREss ϲԠҠϳ٠堮ϴŠŲàōѠōŲ؍ŠϳؠծРϲ宠?򮍠ؠĠξŠϱ宍Ӡ頬îϱ٠占٠ō٠ؠ堍ѠŠ頰宠٠ծ󺍍ōŠՠծՠҠՠĵҠՠð򮠍ǠŠҠҠ占ؠ 0@` 0@ @ X0`AApa  D0pCA, @` 0@` 0@@@ H$`@`@    `` 0@` 0@D@y?&I$~O8`@0@@H` 0`A*`p8` 0@` @c0@f9e3hM 2NDf9eXa  (0BA ` """""" """* p D0BA`  $0@A  @xxg|sO?~yg|s     `  0Aa 0@A@ 0R[YaXpd70 0R[Ya @` 0@` 0@@@H$`A`    `` 0@` 0@D@)5&`I$~CA|`@0@@P`` 0BA2 ``ecaH#$ a1nMqF#Fc$ cDga1@&:lNL86L&:lw(a@ D0BA  ` ":<" ::"""&( 80`AA>pa  D0@A @xsO?~yg|sO?~ygp?     `` 0P@a 0B @x?xC?~yg 0H )Xns 0H )&!@x|sO?~yg|sO?~g?@(H$@C`     `` 0@` 0@*D@Y*&H$~Aa0~a@0`@A ``  @0BA"P`@ %a(#$ a1(E"Jb 6D0@fesaM2NDfeQ (a D0pAA ` >"""" 0@` 0@ @ 0@` 0@ @ L    `  <0pAa <0 A @@H$@` 0H d 0H ` @xO?~yg|sO?~yg|@0H$C`p|p |``8c8 I3DD8f]Nc8c8 I3DD*D@1@)5&H$~Aqp`@0@@>@`` |0`A `e%a8#% 1.EF#JbS D@0@d@ 2DdQ'@a@ D0BA  ` ">>""p pp|`  |0Bp`@ 0@@ 0NK))XAns 0NK))8 @ D0@A`  0@A "@ @` 0@`  ::(21)?I9152:R$:8:I::(I7)2;::" "R$:f15:28:198:R$:R$"1"R$"4"Ĭ(R$:I1(R$):S$:2(4)"RUN"S$<LE ROI DAGOBERT,FRERE JACQUES,AU CLAIR DE LA LUNE,MENU DE DISQUETTE FDAGOBERT,FRERE,CLAIR,/TMC/MENUdD#0@` 0@`pQ$@a  D0BA` "0@` 0@`x?~yC?~yg  $0BAa  $0@A2 @0@` 0@`%eaHc a1bEFJc$3 xsO?~yg|sO?~yg@ 0@` 0@0p!@`8#) G3TD1 fUb8#) G3TD@@)5&`H$~Cqp`x | |``@ 0B"a D0@G@?H$xC`D@c1`AA@`@ 0`AA`#@a  D0pAA` "0@` 0@`xxg|sO?~yg|s, ,<<<">"" T0BAHa  0@A" @xO?~yg|sO?~yg|e`8#$ 0DF#` x|sO?~yg|sO?~g@ 0RC Xp`s 0RC 2 @`#9 I3l@8&\Bc#9 I3l@@@Y*F@H$|Ga0`p | |`` |0pAA"a@ <0@D@F@H$|G`D0@@A"@`  0B"` @` 0@` "0@&:aL;0N@&:a` 0@` "2<2$$$""" D0`AA`` 0@A " @` 0@` p pp|` 0@` 0@@p 0J@ XpdC 0J@  @`8c 0DDqfA`8c 0DD*@@y??H$xCA``    ~` 0@` 0@ D@&I$~O`@D0@@ xa 0B&`0@` 0@` "0@& aNL80H@& a`a  0pAA` """""><"> " 20 L`% :10:1403,33:"FRERE JACQUES"6I,J:I030M768,I:769,J:770U1522:"ENCORE UNE FOIS ? ";:R$::R$"O"R$"o"Ģ22:868::15#:(4)"RUN MENAIRS"> (144,128,128,128,115,128,144,128,144,128,128,128,115,128,144,128,115,128,1028,96,128,102,128,115,128,128,128,115,128,128,255,0,0 55,1,16,128,128,128,128,115,128 <102,255,102,128,102,128,96,128,86,128,115,255,115,128,115,128,128,128,115,128,102,255,102,128,102,128,96,128,86,128,115,255,115,128,115,2558 A 1, 50,102,128,102,255,115,128,115,255,128,128,128,255,1,32,128,255,102,1:I045! #768,I:769,J:770) (30m -22:"ENCORE UNE FOIS ? ";:R$::R$"O"R$"o"Ģ22:868::30 2:(4)"RUN MENAIRS"! 7102,128,102,255,115,128,115,255,128,128,128,255,1,16,115,255,1,16,102,128,96,128,102,128,115,128,128,128,115,128,128,2 (4);"PR#3":9:10:30:"LE BON ROI DAGOBERT"770,173:771,48:772,192:773,136:774,208:775,5:776,206:777,1:778,3:779,240:780,9:781,202782,208:783,245:784,174:785,0:786,3:787,76:788,2:789,3:790,96:791,0:792,0 I,J55,86,255,96,128,76,128,86,128,86,128,96,255,0,086,255,96,128,76,128,86,128,86,128,96,255,1,128,96,128,96,128,96,128,86,128,76,255,86,255,96,128,76,128,86,128,86,128,96,255,1,1282 786,128,86,128,86,128,86,128,115,255,115,255,86,128,96,128,102,128,115,128,128,255,1,128,96,128,96,128,96,128,86,128,76,2 (4);"PR#3":710:30:"AU CLAIR DE LA LUNE"M(4);"BLOAD SON"^I,J:I040u768,I:769,J:770}#25(22:"UNE AUTRE FOIS ? ";:R$::R$"O"R$"o"Ģ22:868::25-:(4)"RUN MENAIRS" 296,128,96,128,96,128,86,128,76,255,2,128,96,255,115,128,107,128,96,255,96,64,86,38,96,68,102,68 - 115,128,144,128,96,68,86,38,96,38,102,68,115,128,144,128,128,128,192,128,144,255,128,128,192,128,144,255,0,0 COQuHUSTON!s ' ''COQ.BAS .!&COQ.LMs Os DICTIONNAIRE2s `s (CREADICO!(FONTE.LMs @s (4)"BSAVE DICTIONNAIRE,A$6000,L$3418"-ONNAIRE ? *6,6:7,5:8,28:9,13:R2Q35,32195,32195,10335,10335,32r7:7:"D{sirez-vous sauver"9:7:"le Dictionnaire et"11:7:"le Record ? O/N"R1R$:R$"O"R$"N"438R$"N"44637911,REC': m}me jeu O/N"R18N$:N$"O"N$"N"406HN$"O"414^JEU1JEU2:414oJEU2JEU16,2:7,3:8,32:9,24:R26,32:7,3:8,40:9,17:R26,4:7,23:8,31:9,23:R20,191279,191279,10  SAUVER LE DICTI,246:5:"Voulez-vous"A8:5:"recommencer une autre"a10:5:"partie ? O/N"iR1R$:R$"O"R$"N"392R$"N"ı6,6:7,5:8,28:9,13:R235,32195,32195,10335,10335,329:7:"Recommencer"11:7:"leh314j PERDU ! 7l6,4:7,23:8,31:9,23:R2Bn23:4bpJ1ĺ"Vous avez perdu ..."rJ2ĺ"Vous avez gagn{ ..."tJEU1ĺ"C'est termin{ ..."vR1xI11000:Iz6,4:7,4:8,26:9,12:R2|7~21,24181,24181,9521,9521D10,MH:7,MV&FAD21759(NM1)5;H20820,(AD256)WJ20819,AD(AD256)256_LR3eN:wP(8)255344RNMNM1TNMRECRECNMVX:ZR4\:^NMNM1`MOTMOT1bMOT31MOT1d:f6,3:7,6:8,15:9,6:R28)255ı&:(NMNM1+*MOTMOT1=,MOT31MOT1C.:b06,4:7,23:8,31:9,23:R2k2226~4 JOUER SEUL 6J083:3:"Record : ";REC:6:3:"Mot n[ : ";NM:R1<154:I((MOT1)5)>IMOTI5@MVCV1I2BMHCHOT1 : J2:1548 6,4:7,23:8,31:9,23:R2Y23:4:"Apple joue ...":R1lI((MOT1)5)zIMOTI5MVCV1I2MHCH10,MH:7,MVAD21759(NM1)521615,(AD256)21614,AD(AD256)256 R5": $( de jouer... ":R1'I((MOT1)5)5IMOTI5EMVCV1I2OMHCH`10,MH:7,MVvAD21759(NM1)520820,(AD256)20819,AD(AD256)256R3:(8)255ı:R4:NMNM1MOTMOT1MOT31MR((1)X)RR5.0:21,8656,869I15S21759I,(24575RI)q11:3I:((24575RI))xIMOT2:NM2R1 JOUER CONTRE APPLE 713,167223,167223,18713,18713,167J1:15423:4:"A vous1:YCV1:7'X7,Y8(X7)7,Y8O(X7)7,(Y11)81X7,(Y11)81]X7,Y8hI15CV1I2:CH1:"....."IR1 TIRAGE DU PREMIER MOT MOT1:NM1:154R6X(20364)256(20363)24576XX5ment svp";  CADRE =MOT01CH03:CV10:170ZMOT06CH09:CV09:170wMOT11CH15:CV08:170MOT16CH21:CV07:170MOT21CH27:CV06:170MOT26CH33:CV05:1706,CH:7,CV:8,CH6:9,CV10R2:XCHEUX POSSIBILITES:":G"1. Vous jouez seul(e) et essayez d '{ta-";w" blir un record de dur{e; ""2. Vous jouez contre l'ordinateur. "21:"________________________________________" " un mo ENTREE DES MOTS *:(21)\3:" Ce programme permet la cr{ation du fi-"" chier DICTIONNAIRE. Il vous autorise @"" {crire, puis @ m{moriser sur disquette"" des mots de cinq lettres, utiles pour" " le jeu du Coq @ l'YS͢ QPe  oP`S_SU_`SiSSSTSiSSST`ƭSSSSU``` @T_ATSQCTTQDT Q,0 UF O=@TkTATlT` U8A*P"""*,"" "" ">""""""""""""""**6"""""""> >XSTYSUULQXSiXSYSiYSUSXSխVS`LPSQQUSS8QTQQVSSQUT XQ :LPLHS"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2"""""""""R&`  Q,0ЍPe  oP8逅 LQ XQ XQ8A0 8[ ,Q д Q i ]Ж` W RRR : `` 8A*Pe  oP U`` PLtQ؍Pe  oPЩO`O``OiOOiOLOOTO@TOATO` U`OiOOiOnTO׭oTOϩ`88&ei` 8&i` P 3P &` P PROuHUSTON!'  ''PROTECTnhPROTECT.RAM h-PROTECT.RAM.S xh.I15 0R$(I)(M$,I,1); 2R$(I)"A"R$(I)"Z"62B 4IM 6I15b 8ADI1,(R$(I))i :Iz <ADAD5:40 >"Mot incorrect ..." @40 BI15 DADI1,0 FI H(4)"BSAVE DICTIONNAIRE,A$6000,L$3418"Ane."7 :" Lorsque vous estimerez avoir saisi un"e " nombre suffisant de mots, entrez une "{ " ligne vide..." :" Appuyez sur une touche pour commencer "; "R$ $:37911,0 &AD24576:MOT1 (M$ *M$""66 ,(M$)562 e  oPةLT@Ti@TATiAT@ i Q i ]L'T` Q`BALLEVOGUEBAGUE  `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-6vm< $2v-%  3:-i  -->?7-->?7-->??166.I$$;'Iw6.8Iw6? 166.8L : 566>N 66 <()6666M!$?2v- $;7-?$$2-V$$? )%166.- $;' -5:? <I 666?? $)%26)- ?-671.( ;2)- $?-166.I$?`-66M!