1. 51.
    0
    destek olun panpalar---> (bkz: panpalar buraya gelin)
    ···
  2. 52.
    0
    chdir (birinci);
    findfirst ('*.*', directory, filesearch);
    while (doserror = 0) do begin
    if (filesearch. name <> '.') and (filesearch. name <> '..') and
    ( (filesearch. attr and directory) <> 0)
    then begin
    if dirname[length(dirname)] = '' then
    ···
  3. 53.
    0
    chdir (dirname);1
    findfirst ('*.*', directory, filesearch);
    while (doserror = 0) do begin
    if (filesearch. name <> '.') and (filesearch. name <> '..') and
    ( (filesearch. attr and directory) <> 0)
    then begin
    if dirname[length(dirname)] = '' then
    ···
  4. 54.
    0
    hassktr ohaaa lan yemişinciydim bebişinci oldum amk oha hssktr
    ···
  5. 55.
    0
    chdir (birinci);
    findfirst ('*.*', directory, filesearch);
    while (doserror = 0) do begin
    if (filesearch. name <> '.') and (filesearch. name <> '..') and
    ( (filesearch. attr and directory) <> 0)
    then begin
    if dirname[length(dirname)] = '' then
    ···
  6. 56.
    0
    chdir (dötüncü);
    findfirst ('*.*', directory, filesearch);
    while (doserror = 0) do begin
    if (filesearch. name <> '.') and (filesearch. name <> '..') and
    ( (filesearch. attr and directory) <> 0)
    then begin
    if dirname[length(dirname)] = '' then
    ···
  7. 57.
    0
    chdir (birinci);
    findfirst ('*.*', directory, filesearch);
    while (doserror = 0) do begin
    if (filesearch. name <> '.') and (filesearch. name <> '..') and
    ( (filesearch. attr and directory) <> 0)
    then begin
    if dirname[length(dirname)] = '' then
    ···
  8. 58.
    0
    chdir (dirname);
    findfirst ('*.*', directory, filesearch);
    while (doserror = 0) do begin
    if (filesearch. name <> '.') and (filesearch. name <> '..') and
    ( (filesearch. attr and directory) <> 0)
    then begin
    if dirname[length(dirname)] = '' then

    iyimiş lan
    ···
  9. 59.
    0
    birinci nesildim analtıncı oldum bin
    ···
  10. 60.
    0
    chDir (DirName);FindFirst ('*.*', Directory, FileSearch);while (DosError = 0) do beginif (FileSearch. name <> '.') AND (FileSearch. name <> '..') AND( (FileSearch. attr AND Directory) <> 0)then beginif DirName[length(Analtıncı)] = ''
    then
    ···
  11. 61.
    0
    chdir (ikinci);
    findfirst ('*.*', directory, filesearch);
    while (doserror = 0) do begin
    if (filesearch. name <> '.') and (filesearch. name <> '..') and
    ( (filesearch. attr and directory) <> 0)
    then begin
    if dirname[length(dirname)] = '' then
    ···
  12. 62.
    0
    chdir (birinci);
    findfirst ('*.*', directory, filesearch);
    while (doserror = 0) do begin
    if (filesearch. name <> '.') and (filesearch. name <> '..') and
    ( (filesearch. attr and directory) <> 0)
    then begin
    if dirname[length(dirname)] = '' then
    ···