10 MODE 0 20 'CHAQUE LETTRE CORRESPOND AU NOMBRE QUI EST SON NUMERO D'ORDRE 25 POKE &A701,75:LOAD"j":FOR X=&B840 TO &B885:A=PEEK(X) XOR &65:POKE X,A:NEXT 30 'DANS L'ALPHBBET (A=1,B=2,C=3) 35 B=&B000:POKE &FF,&C9:POKE &50,&FF:POKE &51,&5F:POKE &52,&FF:POKE &53,&5F 40 'LA CINQUIEME LETTRE EST UN NOMBRE PREMIER ET SON TRIPLE REDONNE LA SECONDE LETTRE 45 FOR T=&470 TO &47A:POKE B,PEEK(t):B=B+1:NEXT:POKE &B866,&40:POKE &B867,&B8 50 'LA QUATRIEME LETTRE EST EGALE A LA SOMME DES SECONDES ET CINQUIEME 60 'LA TROISIEME LETTRE EST LE DOUBLE D'UN CARRE 65 POKE &B869,&0:POKE &B86A,&25:CALL &B865:POKE &B845,&24:POKE &B860,&F0:CALL &B840 70 'LA SECONDE ET PREMIERE,DANS CET ORDRE,SONT CONSECUTIVE 80 ' J'ESPERE QUE CES CONSEILS VOUS SATISFAIRONT ! HO LA FAUTE 90 ' A VOS CRAYON 100 CALL &BD16 110 |CPM 120 END

10 REM ********************************* 1 REM ** ** 20 REM ** programme ecrit par ** 2 REM ** ** 30 REM ** L A U R E N T B E N E S ** 3 REM ** ** 40 REM ** partition musicale de ** 4 REM ** ** 50 REM ** B E R N A R D V I A N E Y ** 5 REM ** ** 60 REM ** KEY JUIN 1986: C H I P ** 6 REM ** ** 70 REM *********************************