1 clear 40,&hefff:a$="21b6ff36c323360c2336f0c9f5c5d5e53a15f43dfe00200f3e0dcd60083e0acd60082115f43601e1d1c1f1c9":fori=0to43:poke&hf000+i,val("&h"+mid$(a$,2*i+1,2)):next:defusr=&hf000:l=usr(0):input"Nbre de col.";c:poke&hf015,c
2 'Apres lancement et choix du nbr de col., sauvegardez en BINAIRE par BSAVE"FORMAT",&hf000,&hf02b,&hf000. Chargez avant chaque premier formatage par BLOAD"CAS:",R et apres "OK" faites LLIST.