3,  3 2,"topaz.font",8,  2 81922 chemin_source$=1922 nom_source$=1922 chemin_target$=1922 nom_target$=192Ƃ 0,1,75,0,160,15,"Choose source",$10Ƃ 0,2,235,0,160,15,"Choose target",$10Ƃ 0,3,75,15,160,15,"Crypt",$10Ƃ 0,4,235,15,160,15,"Uncrypt",$10 0,0,14,480,105,$140e,"NCrypt v1.0 - A simple and dirty text file trasher",-1,-1Ǝ 0,0,  0 10,60݁ "Source :" 10,70݁ "Target :";Boucle principale du programme ev.l<>$200 ;On recupere les evenements qui se produisent dans la fenetre du logiciel ev.l=  0 ;Si on clique sur un bouton ev.l=64 ;Si on clique sur le bouton CHOOSE SOURCE =1 chemin_source$="" nom_source$="" source$="" source$=("Select SOURCE file",chemin_source$,nom_source$,0,14,320,256) nom_source$=""  80,60 ݁ "No file selected " nom_source$<>""  80,60 ݁ nom_source$+" " ;Si on clique sur le bouton CHOOSE TARGET =2 chemin_target$="" nom_target$="" target$="" target$=("Select TARGET file",chemin_target$,nom_target$,0,14,320,256) nom_target$=""  80,70 ݁ "No file selected " nom_target$<>""  80,70 ݁ nom_target$+" " ;Si on clique sur le bouton CRYPT =3 nom_source$<>"" B nom_target$<>"" B nom_source$<>nom_target$  30,80 ݁ "Crypting... "  target$ (0,source$)  0 (1,target$)  1 (0) ݁ ܆(܇()+1)  1  0  0  30,80 ݁ "OK " ;Si on clique sur le bouton UNCRYPT =4 nom_source$<>"" B nom_target$<>"" B nom_source$<>nom_target$  30,80 ݁ "Uncrypting... "  target$ (0,source$)  0 (1,target$)  1 (0) ݁ ܆(܇()-1)  1  0  0  30,80 ݁ "OK " Ɵ 0+  0