10 MEMORY &A4FF:DEFINT a-z
20 a$="39C0F3DD6601DD6E00010EF4AFED4901C0F6ED49ED790192F7ED49CD48A53821E630FE1020F57AE60F5FCD48A53812E630FE2020F57AE60F0F0F0F0FB3772318DA0182F7ED49FBC90145F6ED4906F4ED782F17D80149F6ED4906F4ED782F57E630FE30200237C9A7C9"
30 p=1:FOR i=&A500 TO &A560
40 POKE i,MID$(a$,p,2):p=p+2:NEXT
50 ' faire call&A500 pour recevoir le fichier