Z36869,(36869)2*d(31);(147);In"======================";vx" WISSEN EN BESCHERMEN VAN FILES""======================";:"ET DIT PROGRAMMA KUNT";"U FILES BESCHERMEN, ";"WISSEN OF VRIJGEVEN ";:"" 1 ISTEN ALLE FILES "B" 2 ESCHERMEN FILE "b" 3 RIJGEGEVEN FILE "" 4 ISSEN FILE "" 5 TOPPEN PROGRAMMA ""W KEUZE: ";X$: X$"" (X$)1 (X$)5 240X$; (X$)5  (X$)280,360,610,860 1003 *************U" LISTEN ALLE FILESi, *************t6(31)@FL1:1190J:"ERDER MET RETURN"T X$^FL0:h *************r BESCHERMEN VAN EEN FILE| ************* 15801190#GF1 460<"ERDER MET RETURN"KX$:2:15Qh15,"B-P";2;X322#2,X$:X$""X$(0)FT(X$)(FT 64)0 510"ILE IS AL BESCHERMD!"::430FT(FT 64)15,"B-P";2;X3222,(FT);15,"B-P";2;0(&15,"U2";2;0;TT;SS?:"ILE BESCHERMD!"XD"ERDER MET RETURN"aNX$;nX2:15:b *************l VRIJGEVEN VAN EEN FILEv *************15801190GF1 710"ERDER MET RETURN"X$:2:15 $15,"B-P";2;X322>#2,X$:X$""X$(0)KFT(X$)b(FT 64)64 760"ILE IS AL VRIJGEGEVEN":680FT(FT 25564)15,"B-P";2;X322 2,(FT);15,"B-P";2;0 15,"U2";2;0;TT;SS*2:15 4"ILE VRIJGEGEVEN !"&>"ERDER MET RETURN"/HX$;5RI\ *************nf WISSEN VAN EEN FILEp *************z15801190GF1 960"ERDER MET RETURN"X$:2:1515,"B-P";2;X322#2,X$:X$""X$(0)FT(X$))(FT 64)0 1040G"ET OP!ESCHERMDE FILE"j"RIJGEVEN & WISSEN? (J/N)" X$: X$"" X$"N" X$"J" 1020 X$"N"1170"EKER J/N" X$: X$"" X$"N" X$"J" 1050$ X$"N" 1170 .FT(FT 25564)$815,"B-P";2;X3222B2,(FT);DL15,"B-P";2;0[V15,"U2";2;0;TT;SSh`15,"IO"xj15,"S:"F$t"ILE GEWIST !"~"ERDER MET RETURN" X$2:15: ------------ ************  LEZEN/ZOEKEN VAN EEN FILE ************= 15,8,15,"IO": 2,8,2,"#"S15,"U1";2;0;18;0e15,"B-P";2;0{15,"U2";2;0;18;015,X1$ (X1$)26 1330"OOR HET GEBRUIK VAN ""DIT PROGRAMMA DE " "SCHRIJFBESCHERMING ""VERWIJDEREN !!" (2:15:02T18:S1:TT18:SS1E<15,"U1";2;0;T;SSATTT:SSSeF15,"B-P";2;0P#2,X$: X$"" X$(00)ZT(X$)d#2,X$: X$"" X$(00)nS(X$)x X0 715,"B-P";2;X322#2,X$: X$"" X$(00) (X$)0 1530FF$""& Y015?15,"B-P";2;X325Y\#2,X$: X$"" X$(00)s (X$)160 1500FF$FF$X$Y FLFF$:1530 F$FF$ GF1:1570X T013402:15 FL0"ILE NIET GEVONDEN": I1 1000:I"!, ************J6 INVOER VAN DE FILE NAAM]@ ************eJ:{T "ILENAAM :";F$^ (F$)161650h"ILENAAM TE LANG!": 1620rGF0:FL0|