> Wiper 1.01 : + ctrl% 31,name% 127:X%=ctrl%:Y%=X%256 ( "Directory to wipe: "fn$ 2$at$="": file("@",5)=2:at$="@." <path$="":conf%=:A%=delete F P: Z ݤdelete d empty%,access% n; "Delete ";path$;fn$;:conf%=yna(conf%): conf%>0::= x3type%=file(at$+fn$,5):access%=X%?14:empty%=: 5 type%=2: "Dir "+at$+fn$:empty%=wipe: "Dir ^" , empty%: access%8: "Access "+at$+fn$ empty%: "Delete "+at$+fn$ =empty% : ݤwipe path$=path$+fn$+".":empty%=  fn$,idx%,oldidx%  +oldidx%=idx%:fn$=gbpb8(idx%):idx%=X%!9 F fn$<>"":done%=delete:empty%=empty% done%: done%:idx%=oldidx% fn$="" 5path$=path$,path$-1):path$,1)="." path$=""  =empty% : ݤyna(A%):A%=0:=0 ", "? (Y/N/A)";::A%="YAN",(&DF)):A% ,+7,127);"YesAllNo ",A%*3-2,3);:=A%-2 6Bݤfile(A$,A%):$name%=A$:?X%=name%:X%?1=name%256:=(&FFDD)&FF @Eݤgbpb8(ptr%):X%!1=name%:X%!5=1:X%!9=ptr%:A%=8:&FFD1:X%!5=1:="" J7A%=name%+1:A%!(A%?-1)=&D20:A%?($A%," ")-1)=13:=$A%