| 1 BORDER 0:MODE 1:FOR i=0 TO 3:INK 1,13:NEXT:adr=&C920:FOR i=1 TO 62:READ l$:FOR j=1 TO LEN(l$):POKE adr+j-1,VAL("&"+MID$(l$,j,1)+"0"):NEXT j:IF adr<&F800 THEN adr=adr+&800 ELSE adr=adr-&37B0
2 NEXT i:FOR i=1 TO 21:READ l$:FOR j=1 TO LEN(l$) STEP 2:POKE adr+INT(j+1)/2-1,VAL("&"+MID$(l$,j,2)):NEXT j:IF adr<&F800 THEN adr=adr+&800 ELSE adr=adr-&37B0 3 NEXT i:LOCATE 10,10:PEN 2:PRINT"COUCOU":LOCATE 5,15:PEN 3:PRINT"LA VOILA !!!":SPEED INK 50,75:INK 0,13:INK 1,26:INK 2,13,26:INK 3,26,13:WHILE INKEY$="":WEND:PEN 1:PRINT:PRINT"Il ne lui manque que la parole !!!":PRINT:END 4 DATA 0000000f8,000000307,000000660c,0000004900e,00000048011,000010d1fc,00001cd38f,000004c777dc,000300e7fff2,0018186daf7f,00113c6f1bfe1c,00223e7fff3e77,00543c7fffdf01,000830ffffefe,0011edfffffffe,0007FFFFE3FFFFC,00C07FFFFC3E7F7,039FFFFFFFC7BF1 5 DATA 0723FFFFF033DF,045FFFFFFFD9EFE,003FFFFFF0EDFFF,0047FFFFFE36FFF8,00BFFFFFFF9EFF7F,247FFFFFFFEFDFBA8,2451FFFFFFF7E7F8,4C40FFFF17F7FBFF,4C807FFF01F7EFCE8,4C83FFFF45F7EFE6,847BFFFFFFF7F7F3F,80FEFFFFFFFBFBFFC,84FFFFFFFFFBFFFFF8,04FFBFFFFFFBEFFF7 6 DATA 04C19FFF83FDF7E78,0CA0CFFFC8FDF9F9E,0CC04FF7067DFFFFC,0C1927EA497FFFFFC,0492A7D4D47FFBF3F8,04C8A7DDC6FFFBFCC8,01C96FDC29FFF77FE,0180EFED937FF7BF6,0021CFFC833FFF8F1,01278FFE7FFFFF87C,01859EFF1E7DFE53F,017D9EFFE337F255F,01FF9F7FFCDBE6D7B8 7 DATA 03FF3F7FFF7FE4D798,03FF3F7FFFFCEAEFE,03FF7FBFFFFCEBEFE,03FF7FBFFFFE6BEFE,03FEFFAFFFFE51EFE,03FEFF77FFFE72CFE,03DC7FF7FFDC572FE,03BC3E17FFFC575FC,03BE1DEDFFFCD75D,037FC1FEFFFCB7BE,036BFFE37FFCB76F8,0372EF7FBFFC4F748,036AFFFBDFFCCF2E,01757BEDA7FCD607 8 DATA 016D9EDF7FFCB002,01ABDBB6FFFCF,00A2A90A1FFCE,0000B6000000000070F0F0CFE6,0000DB801188FF0030F0F1D2CC,000056CB5977F887F070F0DA88,000054E57BB4B496F17871B588,000067E178D2B43CF17978B3,000022E17178B44AF17A78BF,000022E978DC3249F27A7BAA 9 DATA 000011BA3CD2342DF0F0B3AA,000011763CA56996B4E2FF,0000117734A5693CF0EEEE,000000BB32B46978F3EEEE,000000BB33A9D2F7FFDDCC,0000003311FFDDFFFFDD88,0000001199BB99FFFFBB,00000000CCFFBBFFFFEE,0000000044DD77FFFFCC,00000000660077FFFF,000000003300FFFFEE 10 DATA 0000000011FFFFFF88,0000000000AAFFFF,000000000033FFAA 20 REM Roux Patrick 63 route du chateau d'eau 38150 roussillon |