Browse code

Dateimeister added

Lorenz Glaser authored onWed/Sep/2020 18:0:nd
Showing9 changed files
1 1
new file mode 100755
2 2
Binary files /dev/null and b/Dateimeister/Dateimeister differ
3 3
new file mode 100644
4 4
Binary files /dev/null and b/Dateimeister/Dateimeister.png differ
5 5
new file mode 100755
6 6
Binary files /dev/null and b/Dateimeister/bin/32/df differ
7 7
new file mode 100755
8 8
Binary files /dev/null and b/Dateimeister/bin/32/listdir differ
9 9
new file mode 100755
10 10
Binary files /dev/null and b/Dateimeister/bin/32/mountvolume differ
11 11
new file mode 100755
12 12
Binary files /dev/null and b/Dateimeister/bin/64/df differ
13 13
new file mode 100755
14 14
Binary files /dev/null and b/Dateimeister/bin/64/listdir differ
15 15
new file mode 100755
16 16
Binary files /dev/null and b/Dateimeister/bin/64/mountvolume differ
17 17
new file mode 100755
... ...
@@ -0,0 +1,1796 @@
1
+#!/boot/system/bin/yab
2
+
3
+dir_li$ = "/boot/home"
4
+dir_re$ = "/boot/home"
5
+REM ######Verzeichnis bestimmen######
6
+
7
+
8
+if(ready_to_compile=1)then
9
+        if (peek("isbound")) then
10
+                WorkDir$ = trim$(peek$("directory"))
11
+	print         WorkDir$      
12
+        else
13
+                WorkDir$ = trim$(system$("pwd"))    
14
+		print         WorkDir$      
15
+        fi
16
+else
17
+	   WorkDir$="/Share/Projekte/yab_hpkg/Dateimeister"
18
+            //WorkDir$="/boot/system/apps/Dateimeister"
19
+endif
20
+REM ######Verzeichnis bestimmen######
21
+
22
+start=1
23
+
24
+grafikverzeichnis$=WorkDir$+"/themes"
25
+
26
+errorsystem$=trim$(system$("sysinfo -platform"))
27
+print errorsystem$
28
+if (errorsystem$="IntelArchitecture") then
29
+        bin_Verzeichnis$=WorkDir$+"/bin/32/"
30
+elseif (instr(errorsystem$,"64",0)) then
31
+        bin_Verzeichnis$=WorkDir$+"/bin/64/"
32
+endif
33
+//bin_Verzeichnis$=WorkDir$+"/bin/"
34
+mountvolume$=bin_Verzeichnis$+"mountvolume"
35
+diskfree$=bin_Verzeichnis$+"df "
36
+listdir$=bin_Verzeichnis$+"listdir "
37
+//Localize
38
+
39
+REM ######Fenteraufbau######
40
+
41
+        ProgrammName$="DataCommander / Dateimeister"
42
+        Start_FensterName$="dateibrowser"
43
+        NameView$="dateibrowser"
44
+        
45
+        screenWidth = peek("desktopwidth")
46
+        screenHeight = peek("desktopheight")
47
+        if (screenWidth=800) then
48
+                WindowSize_x=800
49
+                WindowSize_y=600
50
+                window open ((screenWidth/2)-(WindowSize_x/2)), ((screenHeight/2)-(WindowSize_y/2)) to ((screenWidth/2)+(WindowSize_x/2)), ((screenHeight/2)+(WindowSize_y/2)), Start_FensterName$,ProgrammName$
51
+                window set  Start_FensterName$, "MinimumTo", 800,600
52
+                window set  Start_FensterName$, "MaximumTo", 800,600
53
+                window set Start_FensterName$, "look","modal"
54
+        else
55
+                WindowSize_x=screenWidth-200
56
+                WindowSize_y=screenHeight-100
57
+                window open ((screenWidth/2)-(WindowSize_x/2)), ((screenHeight/2)-(WindowSize_y/2)) to ((screenWidth/2)+(WindowSize_x/2)), ((screenHeight/2)+(WindowSize_y/2)), Start_FensterName$,ProgrammName$
58
+                window set  Start_FensterName$, "MinimumTo", 800,600
59
+                window set  Start_FensterName$, "MaximumTo", WindowSize_x,WindowSize_y
60
+        endif
61
+        
62
+        
63
+        
64
+        //window open ((screenWidth/2)-(WindowSize_x/2)), ((screenHeight/2)-(WindowSize_y/2)) to ((screenWidth/2)+(WindowSize_x/2)), ((screenHeight/2)+(WindowSize_y/2)), Start_FensterName$,ProgrammName$
65
+        //window set  Start_FensterName$, "MinimumTo", 800,600
66
+        //window set  Start_FensterName$, "MaximumTo", WindowSize_x,WindowSize_y, "modal"
67
+        
68
+        
69
+        
70
+        menu Translate$("Program"), Translate$("About"), "", "dateibrowser"
71
+        //menu Translate$("Program"),Translate$("Preferences"), "", "dateibrowser"
72
+        menu Translate$("Program"), Translate$("Quit"), "", "dateibrowser"
73
+        menu Translate$("Tools"), Translate$("Zip - File"), "", "dateibrowser"  
74
+        //menu Translate$("Tools"), Translate$("Zip - Folder as File"), "", "dateibrowser"      
75
+        menu Translate$("Tools"), Translate$("Zip - Unzip File"), "", "dateibrowser"    
76
+        //menu Translate$("Tools"), Translate$("Rar - File"), "", "dateibrowser"        
77
+        //menu Translate$("Tools"), Translate$("Rar - Unrar File"), "", "dateibrowser"
78
+        menu Translate$("Tools"), Translate$("Tar - File"), "", "dateibrowser"
79
+        menu Translate$("Tools"), Translate$("Tar - Untar File"), "", "dateibrowser"
80
+        //menu Translate$("Tools"), Translate$("create ISO Image"), "", "dateibrowser"
81
+        //menu Translate$("Tools"), Translate$("create BFS Image"), "", "dateibrowser"
82
+        menu Translate$("Tools"), Translate$("mount BFS Image"), "", "dateibrowser"
83
+        //menu "FTP",Translate$("FTP-Verbindung erstellen"), "", "dateibrowser"
84
+        //menu "FTP",Translate$("FTP-Verbindung ändern"), "", "dateibrowser"
85
+        
86
+        MENU SET Translate$("Tools"), "Zip - File", "Disable", "dateibrowser"
87
+        //MENU SET Translate$("Tools"), "Zip - Folder as File", "Disable", "dateibrowser"
88
+        MENU SET Translate$("Tools"), "Zip - Unzip File", "Disable", "dateibrowser"
89
+        //MENU SET Translate$("Tools"), "Rar - File", "Disable", "dateibrowser"
90
+        //MENU SET Translate$("Tools"), "Rar - Unrar File", "Disable", "dateibrowser"
91
+        MENU SET Translate$("Tools"), "Tar - File", "Disable", "dateibrowser"
92
+        MENU SET Translate$("Tools"), "Tar - Untar File", "Disable", "dateibrowser"
93
+                
94
+
95
+main(dir_li$,dir_re$,start)
96
+
97
+sub main(dir_li$,dir_re$,start)
98
+        
99
+//if (screenWidth>=800) then
100
+//      if (WindowSize_x>800 and WindowSize_x<screenWidth-200) then
101
+//              print "fdjlkgjgdlkjgwindow"
102
+//              WindowSize_x=WindowSize_x_result
103
+//              else
104
+//              WindowSize_x=800
105
+//      endif
106
+//else
107
+//WindowSize_x=800
108
+//endif
109
+//if (WindowSize_y>600 and WindowSize_y<screenHeight-100) then
110
+//      WindowSize_y=WindowSize_y_result
111
+//      else
112
+//      WindowSize_y=600
113
+//endif 
114
+                
115
+        aktu=0
116
+        
117
+        
118
+        dim part$(1)
119
+        dim mesg$(1)
120
+        dim mouse$(1)
121
+        dim ViewMouse$(1)
122
+        
123
+        first=1
124
+        inloop = 1
125
+        while(inloop)
126
+                
127
+                WindowSize_x_result = WINDOW GET "dateibrowser", "Width"
128
+                WindowSize_y_result = WINDOW GET "dateibrowser", "Height"
129
+                //print WindowSize_y_result     
130
+                //      print WindowSize_x_result
131
+                if (first=1) then
132
+                        SPLITVIEW 0,15 TO WindowSize_x,WindowSize_y, "horizontal", false, false, "dateibrowser"
133
+                        splitview set "horizontal", "MinimumSizes", WindowSize_y-126,126
134
+                        SPLITVIEW 0,0 TO WindowSize_x,WindowSize_y, "vertikal", true, true, "horizontal1" //-10
135
+                        SPLITVIEW SET "horizontal", "Divider", WindowSize_y/2 
136
+                        //splitview set "vertikal", "MinimumSizes", 0 ,WindowSize_x
137
+                        dateibrowserLinks(dir_li$, first)
138
+                        dateibrowserRechts(dir_re$)
139
+                        dateibrowser_menu()     
140
+                        laufwerke_li()
141
+                        laufwerke_re()
142
+                        first=0 
143
+                else
144
+                        //SPLITVIEW 0,15 TO WindowSize_x_result,WindowSize_y_result, "horizontal", false, false, "dateibrowser"
145
+                        //SPLITVIEW SET "horizontal", "Divider", 600
146
+                        splitview set "horizontal", "MinimumSizes", WindowSize_y_result-126,126
147
+                        //SPLITVIEW 0,0 TO WindowSize_x_result-10,WindowSize_y_result, "vertikal", true, true, "horizontal1"
148
+                        SPLITVIEW SET "horizontal", "Divider", WindowSize_y_result/2 
149
+                        
150
+                    if (WindowSize_x_result<>0) then
151
+                        splitview set "vertikal", "MinimumSizes", WindowSize_x_result/2 ,WindowSize_x_result
152
+                    else
153
+                        splitview set "vertikal", "MinimumSizes", 0 ,WindowSize_x
154
+                    endif
155
+                endif
156
+        
157
+                msg$ = message$
158
+                numSplit = split(msg$,mesg$(),"|")
159
+                for countMessages = 1 to numSplit
160
+                        msg$ = mesg$(countMessages) + "|"
161
+                        if (split(msg$, part$(), ":|") > 2) then
162
+                                PartOne$=part$(1)
163
+                                PartTwo$ = part$(2)
164
+                                PartThree$ = part$(3)
165
+                                //PartFour$ = part$(4)
166
+                        fi
167
+                        if (msg$ <> "") then
168
+                                //print msg$
169
+                        endif
170
+                        if (PartOne$="browserLi")then
171
+                                PartOneZipName$="browserLi"
172
+                                PartOneTarName$="browserLi"
173
+                                PartOneRarName$="browserLi"
174
+                                NameZip$ = columnbox get$ "browserLi", 2, val(PartThree$)
175
+                                NameTar$ = columnbox get$ "browserLi", 2, val(PartThree$)
176
+                                NameRar$ = columnbox get$ "browserLi", 2, val(PartThree$)
177
+                                
178
+                                
179
+                                MENU SET Translate$("Tools"), "Zip - File", "Enable", "dateibrowser"
180
+                                //MENU SET Translate$("Tools"), "Zip - Folder as File", "Enable", "dateibrowser"
181
+                                
182
+                                if (right$(NameZip$,4)=".zip") then
183
+                                        MENU SET Translate$("Tools"), "Zip - Unzip File", "Enable", "dateibrowser"
184
+                                else
185
+                                        MENU SET Translate$("Tools"), "Zip - Unzip File", "Disable", "dateibrowser"
186
+                                endif
187
+                                //MENU SET Translate$("Tools"), "Rar - File", "Enable", "dateibrowser"
188
+                                //MENU SET Translate$("Tools"), "Rar - Unrar File", "Enable", "dateibrowser"
189
+                                
190
+                                MENU SET Translate$("Tools"), "Tar - File", "Enable", "dateibrowser"
191
+                                
192
+                                if (right$(NameTar$,4)=".tar") then
193
+                                        MENU SET Translate$("Tools"), "Tar - Untar File", "Enable", "dateibrowser"
194
+                                else
195
+                                        MENU SET Translate$("Tools"), "Tar - Untar File", "Disable", "dateibrowser"
196
+                                endif
197
+                                MENU SET Translate$("Tools"), "mount BFS Image", "Enable", "dateibrowser"
198
+                        elseif (PartOne$="browserRe")then
199
+                                PartOneZipName$="browserRe"
200
+                                PartOneTarName$="browserRe"
201
+                                PartOneRarName$="browserRe"
202
+                                NameZip$ = columnbox get$ "browserRe", 2, val(PartThree$)
203
+                                NameTar$ = columnbox get$ "browserRe", 2, val(PartThree$)
204
+                                NameRar$ = columnbox get$ "browserRe", 2, val(PartThree$)
205
+                                MENU SET Translate$("Tools"), "Zip - File", "Disable", "dateibrowser"
206
+                                MENU SET Translate$("Tools"), "Zip - Folder as File", "Disable", "dateibrowser"
207
+                                
208
+                                if (right$(NameZip$,4)=".zip") then
209
+                                        MENU SET Translate$("Tools"), "Zip - Unzip File", "Enable", "dateibrowser"
210
+                                else
211
+                                        MENU SET Translate$("Tools"), "Zip - Unzip File", "Disable", "dateibrowser"
212
+                                endif
213
+                                
214
+                                //MENU SET Translate$("Tools"), "Rar - File", "Disable", "dateibrowser"
215
+                                //MENU SET Translate$("Tools"), "Rar - Unrar File", "Disable", "dateibrowser"
216
+                                
217
+                                MENU SET Translate$("Tools"), "Tar - File", "Disable", "dateibrowser"
218
+                                
219
+                                if (right$(NameTar$,4)=".tar") then
220
+                                        MENU SET Translate$("Tools"), "Tar - Untar File", "Enable", "dateibrowser"
221
+                                else
222
+                                        MENU SET Translate$("Tools"), "Tar - Untar File", "Disable", "dateibrowser"
223
+                                endif
224
+                                MENU SET Translate$("Tools"), "mount BFS Image", "Enable", "dateibrowser"
225
+                        else
226
+                                MENU SET Translate$("Tools"), "Zip - File", "Disable", "dateibrowser"
227
+                                //MENU SET Translate$("Tools"), "Zip - Folder as File", "Disable", "dateibrowser"
228
+                                MENU SET Translate$("Tools"), "Zip - Unzip File", "Disable", "dateibrowser"
229
+                                //MENU SET Translate$("Tools"), "Rar - File", "Disable", "dateibrowser"
230
+                                //MENU SET Translate$("Tools"), "Rar - Unrar File", "Disable", "dateibrowser"
231
+                                MENU SET Translate$("Tools"), "Tar - File", "Disable", "dateibrowser"
232
+                                MENU SET Translate$("Tools"), "Tar - Untar File", "Disable", "dateibrowser"
233
+                                MENU SET Translate$("Tools"), "mount BFS Image", "Disable", "dateibrowser"
234
+                        endif
235
+                        switch msg$
236
+                                case "_QuitRequested|"
237
+                                case "dateibrowser:_QuitRequested|"
238
+                                        window close "dateibrowser"
239
+                                break
240
+                                case "dateibrowser:Program:Quit|"
241
+                                case "dateibrowser:Programm:Beenden|"
242
+                                        window close "dateibrowser"
243
+                                break                                   
244
+                                case "dateibrowser:Program:About|"
245
+                                        about()
246
+                                break
247
+                                case "AboutClose|"
248
+                                        window close "View_About"
249
+                                break
250
+                                case "createbfs:_QuitRequested|"
251
+                                        window close "createbfs"
252
+                                break
253
+                                        
254
+                                case "dateibrowser:Tools:Zip - File|"
255
+                                        zipname(PartOne$)
256
+                                break
257
+                                case "button20|"
258
+                                        //print NameZip$
259
+                                        zipname1$ = TEXTCONTROL get$ "zipname"
260
+                                        if (PartOneZipName$="browserLi") then
261
+                                                Output$=system$("zip "+"\""+dir_li$+"/"+zipname1$+".zip"+"\""+" "+"\""+dir_li$+"/"+name$+"\"")
262
+                                                window close "zip"
263
+                                                if (dir_re$=dir_li$) then
264
+                                                        readfolder_li(dir_li$)
265
+                                                        readfolder_re(dir_re$)
266
+                                                else
267
+                                                        readfolder_li(dir_li$)
268
+                                                endif
269
+                                        elseif (PartOneZipName$="browserRe") then
270
+                                                Output$=system$("zip "+"\""+dir_re$+"/"+zipname1$+".zip"+"\""+" "+"\""+dir_re$+"/"+name$+"\"")
271
+                                                window close "zip"
272
+                                                if (dir_li$=dir_re$) then
273
+                                                        readfolder_li(dir_li$)
274
+                                                        readfolder_re(dir_re$)
275
+                                                else
276
+                                                        readfolder_re(dir_re$)
277
+                                                endif
278
+                                        endif
279
+                                break
280
+                                case "zip:_QuitRequested|"
281
+                                        window close "zip"
282
+                                break
283
+                                case "dateibrowser:Tools:Zip - Folder as File|"
284
+                                        NameZip$ = columnbox get$ "browserLi", 2, val(PartThree$)
285
+                                break
286
+                                case "dateibrowser:Tools:Zip - Unzip File|"
287
+                                        //print NameZip$
288
+                                        if (PartOneTarName$="browserLi") then
289
+                                                //Output$=system$("cd "+dir_li$+"; tar -xf "+NameTar$)
290
+                                                output$=system$("cd "+"\""+dir_li$+"\""+"; unzip -o "+"\""+NameZip$+"\"") 
291
+                                                if (dir_re$=dir_li$) then
292
+                                                        readfolder_li(dir_li$)
293
+                                                        readfolder_re(dir_re$)
294
+                                                else
295
+                                                        readfolder_li(dir_li$)
296
+                                                endif
297
+                                        elseif (PartOneTarName$="browserRe") then
298
+                                                output$=system$("cd "+"\""+dir_re$+"\""+"; unzip -o "+"\""+ NameZip$+"\"") 
299
+                                                if (dir_li$=dir_re$) then
300
+                                                        readfolder_li(dir_li$)
301
+                                                        readfolder_re(dir_re$)
302
+                                                else
303
+                                                        readfolder_re(dir_re$)
304
+                                                endif
305
+                                        endif   
306
+                                break
307
+                                case "dateibrowser:Tools:Tar - File|"
308
+                                        //print         PartOne$
309
+                                        tarname(PartOne$)
310
+                                        break
311
+                                case "button21|"
312
+                                        //print NameTar$
313
+                                        tarname1$ = TEXTCONTROL get$ "tarname"
314
+                                        //print tarname1$
315
+                                        if (PartOneTarName$="browserLi") then
316
+                                                Output$=system$("tar -cf "+"\""+dir_li$+"/"+tarname1$+".tar"+"\""+" -P "+"\""+dir_li$+"/"+name$+"\"")
317
+                                                
318
+                                                window close "tar"
319
+                                                if (dir_re$=dir_li$) then
320
+                                                        readfolder_li(dir_li$)
321
+                                                        readfolder_re(dir_re$)
322
+                                                else
323
+                                                        readfolder_li(dir_li$)
324
+                                                endif
325
+                                        elseif (PartOneTarName$="browserRe") then
326
+                                                window close "tar"
327
+                                                if (dir_li$=dir_re$) then
328
+                                                        readfolder_li(dir_li$)
329
+                                                        readfolder_re(dir_re$)
330
+                                                else
331
+                                                        readfolder_re(dir_re$)
332
+                                                endif
333
+                                        fi
334
+                                        break
335
+                                case "tar:_QuitRequested|"
336
+                                        window close "tar"
337
+                                        break
338
+                                case "dateibrowser:Tools:Tar - Untar File|"
339
+                                        if (PartOneTarName$="browserLi") then                                           
340
+                                                Output$=system$("cd "+"\""+dir_li$+"\""+"; tar -xf "+"\""+NameTar$+"\"")                                                
341
+                                                if (dir_re$=dir_li$) then
342
+                                                        readfolder_li(dir_li$)
343
+                                                        readfolder_re(dir_re$)
344
+                                                else
345
+                                                        readfolder_li(dir_li$)
346
+                                                endif
347
+                                        elseif (PartOneTarName$="browserRe") then
348
+                                                Output$=system$("cd "+"\""+dir_re$+"\""+"; tar -xf "+"\""+NameTar$+"\"")
349
+                                                        if (dir_li$=dir_re$) then
350
+                                                        readfolder_li(dir_li$)
351
+                                                        readfolder_re(dir_re$)
352
+                                                else
353
+                                                        readfolder_re(dir_re$)
354
+                                                endif
355
+                                        endif
356
+                                break
357
+                                case "dateibrowser:Tools:Rar - File|"
358
+                                        //print         PartOne$
359
+                                        rarname(PartOne$)
360
+                                        break
361
+                                case "button22|"
362
+                                        //print NameRar$
363
+                                        rarname1$ = TEXTCONTROL get$ "rarname"
364
+                                        //print rarname1$
365
+                                        if (PartOneRarName$="browserLi") then
366
+                                                Output$=system$("rar a "+dir_li$+"/"+rarname1$+".rar"+"  "+dir_li$+"/"+name$)
367
+                                                window close "rar"
368
+                                                if (dir_re$=dir_li$) then
369
+                                                        readfolder_li(dir_li$)
370
+                                                        readfolder_re(dir_re$)
371
+                                                else
372
+                                                        readfolder_li(dir_li$)
373
+                                                endif
374
+                                                elseif (PartOneRarName$="browserRe") then
375
+                                                Output$=system$("rar a "+dir_re$+"/"+tarname1$+".tar"+" -P "+dir_re$+"/"+name$)
376
+                                                window close "rar"
377
+                                                        if (dir_li$=dir_re$) then
378
+                                                        readfolder_li(dir_li$)
379
+                                                        readfolder_re(dir_re$)
380
+                                                else
381
+                                                        readfolder_re(dir_re$)
382
+                                                endif
383
+                                        fi
384
+                                        break
385
+                                case "rar:_QuitRequested|"
386
+                                        window close "rar"
387
+                                        break
388
+                                case "dateibrowser:Tools:create BFS Image|"
389
+                                        createbfs()
390
+                                        break
391
+                                case "left_folders:Apps|"
392
+                                        dir_li$="/boot/apps"
393
+                                        readfolder_li(dir_li$)
394
+                                        break
395
+                                case "left_folders:Home|"
396
+                                        dir_li$="/boot/home"
397
+                                        readfolder_li(dir_li$)
398
+                                        break
399
+                                case "left_folders:Desktop|"
400
+                                        dir_li$="/boot/home/Desktop"
401
+                                        readfolder_li(dir_li$)
402
+                                        break
403
+                                case "left_folders:FastLaunch|"
404
+                                        dir_li$="/boot/home/config/FastLaunch"
405
+                                        readfolder_li(dir_li$)
406
+                                        break
407
+                                case "left_folders:ZetaMenu|"
408
+                                        dir_li$="/boot/home/config/ZetaMenu"
409
+                                        readfolder_li(dir_li$)
410
+                                        break
411
+                                case "left_folders:Downloads|"
412
+                                        dir_li$="/boot/home/Downloads "
413
+                                        readfolder_li(dir_li$)
414
+                                        break
415
+                                case "left_folders:Config|"
416
+                                        dir_li$="/boot/home/config"
417
+                                        readfolder_li(dir_li$)
418
+                                        break
419
+                                case "left_folders:Trash|"
420
+                                        dir_li$="/boot/trash"
421
+                                        readfolder_li(dir_li$)
422
+                                        break
423
+                                case "right_folders:Apps|"
424
+                                        dir_re$="/boot/apps"
425
+                                        readfolder_re(dir_re$)
426
+                                        break
427
+                                case "right_folders:Home|"
428
+                                        dir_re$="/boot/home"
429
+                                        readfolder_re(dir_re$)
430
+                                        break
431
+                                case "right_folders:Desktop|"
432
+                                        dir_re$="/boot/home/Desktop"
433
+                                        readfolder_re(dir_re$)
434
+                                        break
435
+                                case "right_folders:FastLaunch|"
436
+                                        dir_re$="/boot/home/config/FastLaunch"
437
+                                        readfolder_re(dir_re$)
438
+                                        break
439
+                                case "right_folders:ZetaMenu|"
440
+                                        dir_re$="/boot/home/config/ZetaMenu"
441
+                                        readfolder_re(dir_re$)
442
+                                        break
443
+                                case "right_folders:Config|"
444
+                                        dir_re$="/boot/home/config"
445
+                                        readfolder_re(dir_re$)
446
+                                        break
447
+                                case "right_folders:Trash|"
448
+                                        dir_re$="/boot/trash"
449
+                                        readfolder_re(dir_re$)
450
+                                        break
451
+                                case "left_drives:"+PartTwo$+"|"
452
+                                        tli = dropbox get "left_drives"
453
+                                        print tli
454
+                                        name2_li$ = dropbox get$ "left_drives", tli+1
455
+                                        //print name2_li$                                       
456
+                                        if (name3_re$=name3_li$) then                                           
457
+                                        else                                            
458
+                                                if (tli=position_boot_li) then
459
+                                                else
460
+                                                name4_li$=system$("unmount \"/"+name3_li$+"\"")
461
+                                                endif                                   
462
+                                        endif
463
+                                        if (name2_li$=name3_li$) then                                   
464
+                                        else                                            
465
+                                                name3_li$=name2_li$                                                     
466
+                                                if (name3_re$=name3_li$) then                                           
467
+                                                else
468
+                                                        name_li$=system$("mountvolume \""+name2_li$+"\"")                                                       
469
+                                                        //print name_li$                                                                
470
+                                                endif                   
471
+                                        endif                           
472
+                                        
473
+                                        laufwerk_neu_li$=system$("cd /\""+name2_li$+"\"")
474
+                                        //print laufwerk_neu_li$
475
+                                        dir_li$="/"+name2_li$                                   
476
+                
477
+                                        readfolder_li(dir_li$)
478
+                                        break
479
+                                case "right_drives:"+PartTwo$+"|"
480
+                                        tre = dropbox get "right_drives"
481
+                                        //print tre
482
+                                        name2_re$ = dropbox get$ "right_drives", tre+1
483
+                                        //print name2_re$                                               
484
+                                        if (name3_re$=name3_li$) then                                           
485
+                                        else                            
486
+                                                name4_re$=system$("unmount \"/"+name3_re$+"\"")                                         
487
+                                        endif
488
+                                        if (name2_re$=name3_re$) then                                   
489
+                                        else                                            
490
+                                                name3_re$=name2_re$                                                     
491
+                                                if (name3_re$=name3_li$) then                                           
492
+                                                else
493
+                                                        name_re$=system$("mountvolume \""+name2_re$+"\"")                                                       
494
+                                                        //print name_re$                                                        
495
+                                                endif                   
496
+                                        endif   
497
+                                        laufwerk_neu_re$=system$("cd /\""+name2_re$+"\"")
498
+                                        //print laufwerk_neu_re$
499
+                                        dir_re$="/"+name2_re$
500
+                                        readfolder_re(dir_re$)
501
+                                        break                                   
502
+                                
503
+                                case "button1|"
504
+                                        if (PartOne$="browserLi") then
505
+                                                name1$ = columnbox get$ "browserLi", 2, val(PartThree$) 
506
+                                                dir_re$=dir_re$+"/"                                             
507
+                                                kopieren$=system$("cp -r "+"\""+dir_li$+"/"+name1$+"\""+" "+"\""+dir_re$+"\"")                                          
508
+                                                readfolder_re(dir_re$)
509
+                                        elseif (PartOne$="browserRe") then
510
+                                                name1$ = columnbox get$ "browserRe", 2, val(PartThree$)
511
+                                                dir_li$=dir_li$+"/"                                             
512
+                                                kopieren$=system$("cp -r "+"\""+dir_re$+"/"+name1$+"\""+" "+"\""+dir_li$+"\"")                                          
513
+                                                readfolder_li(dir_li$)
514
+                                        endif
515
+                                        break
516
+                                case "button2|"
517
+                                        if (PartOne$="browserLi") then
518
+                                                name1$ = columnbox get$ "browserLi", 2, val(PartThree$)
519
+                                                dir_re$=dir_re$+"/"
520
+                                                kopieren$=system$("mv "+"\""+dir_li$+"/"+name1$+"\""+" "+"\""+dir_re$+"\"")
521
+                                                readfolder_li(dir_li$)
522
+                                                readfolder_re(dir_re$)
523
+                                        elseif (PartOne$="browserRe") then
524
+                                                name1$ = columnbox get$ "browserRe", 2, val(PartThree$)
525
+                                                dir_li$=dir_li$+"/"
526
+                                                kopieren$=system$("mv "+"\""+dir_re$+"/"+name1$+"\""+" "+"\""+dir_li$+"\"")
527
+                                                readfolder_re(dir_re$)
528
+                                                readfolder_li(dir_li$)
529
+                                        endif
530
+                                        break
531
+                                case "button3|"
532
+                                        if (PartOne$="dateibrowser") then
533
+                                        else
534
+                                                makedir(PartOne$)
535
+                                        endif
536
+                                        break
537
+                                case "button4|"
538
+                                        if (PartOne$="dateibrowser") then
539
+                                        else
540
+                                                attribute_setzen(PartOne$)
541
+                                        endif
542
+                                        break
543
+                                case "button5|"
544
+                                        if (PartOne$="browserLi") then
545
+                                                oeffnen$=system$("open "+"\""+dir_li$+"/"+name$+"\"")
546
+                                        elseif (PartOne$="browserRe") then
547
+                                                oeffnen$=system$("open "+"\""+dir_re$+"/"+name$+"\"")
548
+                                        endif
549
+                                        break
550
+                                case "button6|"
551
+                                        //print PartOne$
552
+                                        if (PartOne$="browserLi") then
553
+                                                name2$ = columnbox get$ "browserLi", 2, val(PartThree$)
554
+                                                //print dir_re$
555
+                                                //dir_re$=dir_re$+"/"
556
+                                                //print "link "+"ln -s "+"\""+dir_li$+"/"+name2$+"\""+" "+"\""+dir_re$+"\""
557
+                                                if (name2$="/boot/home" or dir_re$="/boot") then
558
+                                                        //print "sicherheitsabfrage geht"
559
+                                                else
560
+                                                        verknuepfen$=system$("ln -s "+"\""+dir_li$+"/"+name2$+"\""+" "+"\""+dir_re$+"\"")
561
+                                                endif
562
+                                                readfolder_re(dir_re$)  
563
+                                                readfolder_li(dir_li$)
564
+                                        elseif (PartOne$="browserRe") then
565
+                                                name2$ = columnbox get$ "browserRe", 2, val(PartThree$)
566
+                                                //dir_li$=dir_li$+"/"
567
+                                                if (name2$="/boot/home" or dir_li$="/boot") then
568
+                                                        //print "sicherheitsabfrage geht"
569
+                                                else
570
+                                                        verknuepfen$=system$("ln -s "+"\""+dir_re$+"/"+name2$+"\""+" "+"\""+dir_li$+"\"")
571
+                                                endif
572
+                                                readfolder_re(dir_re$)
573
+                                                readfolder_li(dir_li$)
574
+                                        endif
575
+                                        
576
+                                        break
577
+                                case "button7|"
578
+                                        
579
+                                        if(PartOne$="dateibrowser")then
580
+                                        else
581
+                                                copyas(PartOne$)
582
+                                                
583
+                                        endif
584
+                                        break
585
+                                case "button8|"
586
+                                        if(PartOne$="dateibrowser")then
587
+                                        else
588
+                                                rmname_typ$ = columnbox get$ PartOne$, 9, val(PartThree$)
589
+                                                rm(PartOne$)
590
+                                        endif
591
+                                        break
592
+                                case "button9|"
593
+                                        if(PartOne$="dateibrowser")then
594
+                                        else
595
+                                                rename(PartOne$)
596
+                                        endif
597
+                                break
598
+                                case "rm_ja|"
599
+                                        
600
+                                        if (PartOneRM$="browserLi") then
601
+                                                if(rmname_typ$="l")then
602
+                                                        found=instr(rmname$,">")
603
+                                                        rmname$=left$(rmname$,found-2)
604
+                                                        rm$=system$("unlink "+"\""+dir_li$+"/"+rmname$+"\"")
605
+                                                else
606
+                                                        //print "cd "+"\""+dir_li$+"\""+"; rm -r "+"\""+rmname$+"\""
607
+                                                        rm$=system$("cd "+"\""+dir_li$+"\""+"; rm -r "+"\""+rmname$+"\"") 
608
+                                                endif
609
+                                                readfolder_li(dir_li$)
610
+                                                readfolder_re(dir_re$)
611
+                                        elseif (PartOneRM$="browserRe") then
612
+                                                if(rmname_typ$="l")then
613
+                                                        found=instr(rmname$,">")
614
+                                                        rmname$=left$(rmname$,found-2)
615
+                                                        rm$=system$("unlink "+"\""+dir_re$+"/"+rmname$+"\"")
616
+                                                else
617
+                                                        rm$=system$("cd "+"\""+dir_re$+"\""+"; rm -r "+"\""+rmname$+"\"")  //cd "+dir_li$+";
618
+                                                endif
619
+                                                readfolder_re(dir_re$)
620
+                                                readfolder_li(dir_li$)
621
+                                        endif
622
+                                        
623
+                                        window close "remove"
624
+                                break
625
+                                case "rm_nein|"
626
+                                        window close "remove"
627
+                                        break
628
+                                case "remove:_QuitRequested|"
629
+                                        window close "remove"
630
+                                        break                                   
631
+                                case "button10|"
632
+                                        
633
+                                        break
634
+                                case "button12|"
635
+                                        if(PartOne$="dateibrowser")then
636
+                                        else
637
+                                                linkas(PartOne$)
638
+                                        endif
639
+                                        break
640
+                                case "makedir|"
641
+                                        makefolder$=textcontrol get$ "dirname"
642
+                                        if (PartOneMakeDir$="browserLi") then
643
+                                                mkdir$=system$("mkdir "+"\""+dir_li$+"/"+makefolder$+"\"")
644
+                                                if (dir_re$=dir_li$) then
645
+                                                        readfolder_li(dir_li$)
646
+                                                        readfolder_re(dir_re$)
647
+                                                else
648
+                                                        readfolder_li(dir_li$)
649
+                                                endif
650
+                                                
651
+                                        elseif (PartOneMakeDir$="browserRe") then
652
+                                                mkdir$=system$("mkdir "+"\""+dir_re$+"/"+makefolder$+"\"")
653
+                                                if (dir_li$=dir_re$) then
654
+                                                        readfolder_li(dir_li$)
655
+                                                        readfolder_re(dir_re$)
656
+                                                else
657
+                                                        readfolder_re(dir_re$)
658
+                                                endif
659
+                                        endif
660
+                                        window close "makefolder"
661
+                                        break
662
+                                case "makefolder:_QuitRequested|"
663
+                                        window close "makefolder"
664
+                                        break
665
+                                case "copyas|"
666
+                                        copyname$=textcontrol get$ "copyname"
667
+                                        //print PartOneCopyAs$
668
+                                        //print "name"+copyname$
669
+                                        if (PartOneCopyAs$="browserLi") then
670
+                                                copyas$=system$("cd "+"\""+dir_li$+"\""+"; cp -r "+"\""+dir_li$+"/"+name$+"\""+" "+"\""+dir_re$+"/"+copyname$+"\"")
671
+                                                if (dir_re$=dir_li$) then
672
+                                                        readfolder_li(dir_li$)
673
+                                                        readfolder_re(dir_re$)
674
+                                                else
675
+                                                        readfolder_li(dir_li$)
676
+                                                        readfolder_re(dir_re$)
677
+                                                endif
678
+                                        elseif (PartOneCopyAs$="browserRe") then
679
+                                                copyas$=system$("cd "+"\""+dir_re$+"\""+"; cp -r "+"\""+dir_re$+"/"+name$+"\""+" "+"\""+dir_li$+"/"+copyname$+"\"")
680
+                                                if (dir_li$=dir_re$) then
681
+                                                        readfolder_li(dir_li$)
682
+                                                        readfolder_re(dir_re$)
683
+                                                else
684
+                                                        readfolder_re(dir_re$)
685
+                                                        readfolder_li(dir_li$)
686
+                                                endif
687
+                                        endif
688
+                                        window close "copyas"
689
+                                        break
690
+                                case "copyas:_QuitRequested|"
691
+                                        window close "copyas"
692
+                                        break
693
+                                case "rename|"
694
+                                        renamename$=textcontrol get$ "renamename"
695
+                                        //print PartOneRename$
696
+                                        if (PartOneRename$="browserLi") then
697
+                                                found=instr(renamename$,">")
698
+                                                if(found)then
699
+                                                        found=instr(renamename$,">")
700
+                                                        renamename$=left$(renamename$,found-2)
701
+                                                        found=instr(name$,">")
702
+                                                        name$=left$(name$,found-2)
703
+                                                        renameas$=system$("mv "+"\""+dir_li$+"/"+name$+"\""+" "+"\""+dir_li$+"/"+renamename$+"\"")
704
+                                                else
705
+                                                        renameas$=system$("mv "+"\""+dir_li$+"/"+name$+"\""+" "+"\""+dir_li$+"/"+renamename$+"\"")
706
+                                                endif
707
+                                                if (dir_re$=dir_li$) then
708
+                                                        readfolder_li(dir_li$)
709
+                                                        readfolder_re(dir_re$)
710
+                                                else
711
+                                                        readfolder_li(dir_li$)
712
+                                                endif                                   
713
+                                        elseif (PartOneRename$="browserRe") then
714
+                                                found=instr(renamename$,">")
715
+                                                if(found)then
716
+                                                        found=instr(renamename$,">")
717
+                                                        renamename$=left$(renamename$,found-2)
718
+                                                        found=instr(name$,">")
719
+                                                        name$=left$(name$,found-2)
720
+                                                        renameas$=system$("mv "+dir_re$+"/"+"\""+name$+"\""+" "+dir_re$+"/"+"\""+renamename$+"\"")
721
+                                                else
722
+                                                        renameas$=system$("mv "+dir_re$+"/"+"\""+name$+"\""+" "+dir_re$+"/"+"\""+renamename$+"\"")
723
+                                                endif
724
+                                                if (dir_re$=dir_li$) then
725
+                                                        readfolder_li(dir_li$)
726
+                                                        readfolder_re(dir_re$)
727
+                                                else
728
+                                                        readfolder_re(dir_re$)
729
+                                                endif
730
+                                        endif
731
+                                        window close "rename"
732
+                                        break
733
+                                case "rename:_QuitRequested|"
734
+                                        window close "rename"
735
+                                        break
736
+                                case "linkas|"
737
+                                        linkname$=textcontrol get$ "linkname"
738
+                                        if (PartOneLinkAs$="browserLi") then
739
+                                                linkas$=system$("ln -s  "+"\""+dir_li$+"/"+name$+"\""+" "+"\""+dir_re$+"/"+linkname$+"\"")
740
+                                                readfolder_re(dir_re$)
741
+                                                readfolder_li(dir_li$)
742
+                                        elseif (PartOneLinkAs$="browserRe") then
743
+                                                linkas$=system$("ln -s  "+"\""+dir_re$+"/"+name$+"\""+" "+"\""+dir_li$+"/"+linkname$+"\"")
744
+                                                readfolder_re(dir_re$)
745
+                                                readfolder_li(dir_li$)
746
+                                        endif
747
+                                        window close "linkas"
748
+                                        break
749
+                                case "linkas:_QuitRequested|"
750
+                                        window close "linkas"
751
+                                        break
752
+                                case "savebfs|"
753
+                                        bfssize$=textcontrol get$ "bfssize"
754
+                                        bfsname$=textcontrol get$ "bfsname"
755
+                                        Output$=system$("/boot/beos/bin/dd if=/dev/zero of="+bfsimage$+" bs=1024 count="+bfssize$)
756
+                                        Output$=system$("mkbfs 2048 "+bfsimage$+"; sync")
757
+                                        window close "createbfs"
758
+                                        break
759
+                                case "attribute:_QuitRequested|"
760
+                                        window close "attribute"
761
+                                break
762
+                                        case "read1:ON|"
763
+                                                nummer1=400
764
+                                        break
765
+                                        case "write1:ON|"
766
+                                                nummer2=200
767
+                                        break
768
+                                        case "run1:ON|"
769
+                                                nummer3=100
770
+                                        break
771
+                                        case "read2:ON|"
772
+                                                nummer4=40
773
+                                        break
774
+                                        case "write2:ON|"
775
+                                                nummer5=20
776
+                                        break
777
+                                        case "run2:ON|"
778
+                                                nummer6=10
779
+                                        break
780
+                                        case "read3:ON|"
781
+                                                nummer7=4
782
+                                        break
783
+                                        case "write3:ON|"
784
+                                                nummer8=2
785
+                                        break
786
+                                        case "run3:ON|"
787
+                                                nummer9=1
788
+                                        break
789
+                                        case "read1:OFF|"
790
+                                                nummer1=0
791
+                                        break
792
+                                        case "write1:OFF|"
793
+                                                nummer2=0
794
+                                        break
795
+                                        case "run1:OFF|"
796
+                                                nummer3=0
797
+                                        break
798
+                                        case "read2:OFF|"
799
+                                                nummer4=0
800
+                                        break
801
+                                        case "write2:OFF|"
802
+                                                nummer5=0
803
+                                        break
804
+                                        case "run2:OFF|"
805
+                                                nummer6=0
806
+                                        break
807
+                                        case "read3:OFF|"
808
+                                                nummer7=0
809
+                                        break
810
+                                        case "write3:OFF|"
811
+                                                nummer8=0
812
+                                        break
813
+                                        case "run3:OFF|"
814
+                                                nummer9=0
815
+                                        break
816
+                                case "attributeOK|"
817
+                                        nummer=nummer1+nummer2+nummer3+nummer4+nummer5+nummer6+nummer7+nummer8+nummer9
818
+                                        
819
+                                        if (PartOneATTR$="browserLi")then
820
+                                                Output$=system$("chmod "+str$(nummer)+" "+dir_li$+"/"+"\""+name$+"\"")
821
+                                                readfolder_li(dir_li$)
822
+                                        elseif (PartOneATTR$="browserRe")then
823
+                                                Output$=system$("chmod -c "+str$(nummer)+" "+dir_re$+"/"+"\""+name$+"\"")
824
+                                                readfolder_re(dir_re$)
825
+                                        fi
826
+                                        window close "attribute"
827
+                                break
828
+                                case "browserLi:_Select:"+PartThree$+"|"
829
+                                        name$ = COLUMNBOX GET$ "browserLi", 2, val(PartThree$)                                  
830
+                                break
831
+                                case "browserLi:_Invoke:"+PartThree$+"|"
832
+                                        name$ = columnbox get$ "browserLi", 2, val(PartThree$)                                  
833
+                                        directory1$ = columnbox get$ "browserLi", 9, val(PartThree$)
834
+                                        //print directory1$
835
+                                        if (directory1$="d") then
836
+                                                if (name$=".")then
837
+                                                        dir_li$="/boot"
838
+                                                        readfolder_li(dir_li$)
839
+                                                        elseif (name$="..")then
840
+                                                        for cf = len(dir_li$) to 1 step -1
841
+                                                                if(mid$(dir_li$,cf,1) = "/") then
842
+                                                                        dir_back$ = left$(dir_li$,cf-1)
843
+                                                                        break
844
+                                                                fi
845
+                                                        next cf
846
+                                                        if (dir_back$="")then
847
+                                                                dir_li$="/"
848
+                                                                readfolder_li(dir_li$)
849
+                                                        else
850
+                                                                //print "hier1: "+dir_back$
851
+                                                                dir_li$=dir_back$
852
+                                                                readfolder_li(dir_li$)
853
+                                                        fi
854
+                                                else
855
+                                                        dir_li$=dir_li$+"/"+name$
856
+                                                        readfolder_li(dir_li$)
857
+                                                endif
858
+                                        else
859
+                                                name$="\""+name$+"\""
860
+                                        fi
861
+                                        break
862
+                                case "browserRe:_Select:"+PartThree$+"|"
863
+                                        name$ = columnbox get$ "browserRe", 2, val(PartThree$)
864
+                                        //name$="\""+name$+"\""
865
+                                        break
866
+                                case "browserRe:_Invoke:"+PartThree$+"|"
867
+                                        name$ = COLUMNBOX GET$ "browserRe", 2, val(PartThree$)
868
+                                        directory1$ = columnbox get$ "browserRe", 9, val(PartThree$)
869
+                                        if (directory1$="d") then
870
+                                                if (name$=".")then
871
+                                                        dir_re$="/boot"
872
+                                                        readfolder_re(dir_re$)
873
+                                                        elseif (name$="..")then
874
+                                                        for cf = len(dir_re$) to 1 step -1
875
+                                                                if(mid$(dir_re$,cf,1) = "/") then
876
+                                                                        dir_back$ = left$(dir_re$,cf-1)
877
+                                                                        break
878
+                                                                fi
879
+                                                        next cf
880
+                                                        if (dir_back$="")then
881
+                                                                dir_re$="/"
882
+                                                                readfolder_re(dir_re$)
883
+                                                        else
884
+                                                                //print "hier1: "+dir_back$
885
+                                                                dir_re$=dir_back$
886
+                                                                readfolder_re(dir_re$)
887
+                                                        fi
888
+                                                else
889
+                                                        dir_re$=dir_re$+"/"+name$
890
+                                                        readfolder_re(dir_re$)
891
+                                                fi
892
+                                        else
893
+                                                name$="\""+name$+"\""
894
+                                        fi
895
+                                        break
896
+                                case "ftp_settings:_QuitRequested|"
897
+                                        window close "ftp_settings"
898
+                                        break
899
+                                case "ftp_change:_QuitRequested|"
900
+                                        window close "ftp_change"
901
+                                        break
902
+                                case "dateibrowser:FTP:FTP-Verbindung erstellen|"
903
+                                        ftp_settings()
904
+                                        break
905
+                                case "dateibrowser:FTP:FTP-Verbindung ändern|"
906
+                                        ftp_change()
907
+                                        break
908
+                                case "FTP-Verbindung Erstellen|"
909
+                                        ftp_name$=textcontrol get$ "ftp_name"
910
+                                        ftp_ip_name$=textcontrol get$ "ftp_ip_name"
911
+                                        ftp_user$=textcontrol get$ "ftp_user"
912
+                                        ftp_passwort$=textcontrol get$ "ftp_passwort"
913
+                                        ftp_Startverzeichnis$=textcontrol get$ "Startverzeichnis"
914
+                                        ftp_verbindung_speichern(ftp_name$,ftp_ip_name$,ftp_Startverzeichnis$,ftp_user$,ftp_passwort$)
915
+                                        window close "ftp_settings"
916
+                                        break
917
+                                
918
+                                default:
919
+                                break                           
920
+                        end switch
921
+                        if(window count<1) inloop = false
922
+                        sleep 0.001
923
+                next countMessages
924
+                        mmsg$ = MOUSE MESSAGE$
925
+                        if (mmsg$<>"" and mmsg$<>old_mmsg$) then
926
+                                //print mmsg$
927
+                                //old_mmsg$= mmsg$ 
928
+                                nx = split(mmsg$, mouse$(), ":")
929
+                                Viewname$=mouse$(1)
930
+                                //print Viewname$
931
+                                Xmouse  = val(mouse$(2))
932
+                                Ymouse  = val(mouse$(3))
933
+                                BLmouse= val(mouse$(4))
934
+                                BCmouse= val(mouse$(5))
935
+                                BRmouse= val(mouse$(6))
936
+                                casestring$=Viewname$+":"+mouse$(4)+":"+mouse$(5)+":"+mouse$(6)
937
+                                //print casestring$
938
+                        endif
939
+        //print tt= VIEW GET Viewname$, "Focused"
940
+                switch (casestring$)
941
+                                
942
+                case "browserLi:0:0:1"
943
+                        Selected_li$ = POPUPMENU Xmouse ,Ymouse, "copy|copy as|move||link|Attribute|Make Folder||Rename||Delete" , "vertikal1"
944
+                        //print Selected_li$
945
+                        if (Selected_li$="copy") then
946
+                                name1$ = columnbox get$ "browserLi", 2, val(PartThree$) 
947
+                                //print name1$
948
+                                dir_re$=dir_re$+"/"                                             
949
+                                kopieren$=system$("cp -r "+"\""+dir_li$+"/"+name1$+"\""+" "+"\""+dir_re$+"\"")                                          
950
+                                readfolder_re(dir_re$)
951
+                        elseif (Selected_li$="copy as") then
952
+                                //name1$ = columnbox get$ "browserLi", 2, val(PartThree$)
953
+                                //print PartOne$+"PartOne$"
954
+                                ///     print PartTwo$+"PartTwo$"                               
955
+                                copyas(PartOne$) //"dateibrowser")
956
+                                
957
+                        elseif (Selected_li$="move") then
958
+                                name1$ = columnbox get$ "browserLi", 2, val(PartThree$)
959
+                                dir_re$=dir_re$+"/"
960
+                                kopieren$=system$("mv "+"\""+dir_li$+"/"+name1$+"\""+" "+"\""+dir_re$+"\"")
961
+                                readfolder_li(dir_li$)
962
+                                readfolder_re(dir_re$)
963
+                        elseif (Selected_li$="move as") then
964
+                                //name1$ = columnbox get$ "browserLi", 2, val(PartThree$)       
965
+                                move_as("browserLi")
966
+                        elseif (Selected_li$="Delete") then
967
+                                rmname_typ$ = columnbox get$ PartOne$, 9, val(PartThree$)
968
+                                rm(PartOne$)
969
+                        elseif (Selected_li$="Make Folder") then        
970
+                                if(PartOne$="dateibrowser")then
971
+                                else
972
+                                        makedir(PartOne$)
973
+                                endif
974
+                        elseif (Selected_li$="link") then       
975
+                                //print PartOne$
976
+                                if (PartOne$="browserLi") then
977
+                                        name2$ = columnbox get$ "browserLi", 2, val(PartThree$)
978
+                                        if (name2$="/boot/home" or dir_re$="/boot") then
979
+                                                //print "sicherheitsabfrage geht"
980
+                                        else
981
+                                                verknuepfen$=system$("ln -s "+"\""+dir_li$+"/"+name2$+"\""+" "+"\""+dir_re$+"\"")
982
+                                        endif
983
+                                        readfolder_re(dir_re$)
984
+                                        readfolder_li(dir_li$)
985
+                                else
986
+                                endif                           
987
+                        elseif (Selected_li$="Attribute") then
988
+                                if(PartOne$="dateibrowser")then
989
+                                else
990
+                                        attribute_setzen(PartOne$)
991
+                                endif
992
+                        elseif (Selected_li$="Rename") then
993
+                                        //name$ = columnbox get$ "browserRe", 2, val(PartThree$)        
994
+                                        //rename(name$)
995
+                                        rename("browserLi")     
996
+                        endif
997
+                        
998
+                break
999
+                case "browserRe:0:0:1"
1000
+                        Selected_re$ = POPUPMENU Xmouse,Ymouse,"copy|copy as|move||link|Attribute|Make Folder|Rename||Delete" , "vertikal2"
1001
+                        //print Selected_re$
1002
+                        if (Selected_re$="")then
1003
+                        else    
1004
+                                if (Selected_re$="copy") then
1005
+                                        name2$ = columnbox get$ "browserRe", 2, val(PartThree$) 
1006
+                                        dir_li$=dir_li$+"/"                                             
1007
+                                        kopieren$=system$("cp -r "+"\""+dir_re$+"/"+name2$+"\""+" "+"\""+dir_li$+"\"")                                          
1008
+                                        readfolder_li(dir_li$)
1009
+                                elseif (Selected_re$="copy as") then                            
1010
+                                        copyas(PartOne$) //"dateibrowser")
1011
+                                elseif (Selected_re$="move") then
1012
+                                        name2$ = columnbox get$ "browserRe", 2, val(PartThree$)
1013
+                                        dir_li$=dir_li$+"/"
1014
+                                        kopieren$=system$("mv "+"\""+dir_re$+"/"+name2$+"\""+" "+"\""+dir_li$+"\"")
1015
+                                        readfolder_li(dir_li$)
1016
+                                        readfolder_re(dir_re$)
1017
+                                elseif (Selected_re$="move as") then
1018
+                                        //name1$ = columnbox get$ "browserLi", 2, val(PartThree$)       
1019
+                                        move_as("browserRe")                    
1020
+                                elseif (Selected_re$="Make Folder") then
1021
+                                        makedir("browserRe")
1022
+                                elseif (Selected_re$="Rename") then
1023
+                                        //name$ = columnbox get$ "browserRe", 2, val(PartThree$)        
1024
+                                        //rename(name$)
1025
+                                        rename("browserRe")                                     
1026
+                                elseif (Selected_re$="Delete") then
1027
+                                        rmname_typ$ = columnbox get$  "browserRe", 2, val(PartThree$)
1028
+                                        rm(PartOne$)
1029
+                                elseif (Selected_re$="Attribute")
1030
+                                        //name$ = columnbox get$ "browserRe", 2, val(PartThree$)        
1031
+                                        //attribute(name$)
1032
+                                        //attribute("browserRe")
1033
+                                elseif (Selected_re$="link") then
1034
+                                        if (PartOne$="browserRe") then
1035
+                                                name2$ = columnbox get$ "browserRe", 2, val(PartThree$)
1036
+                                                //dir_li$=dir_li$+"/"
1037
+                                                if (name2$="/boot/home" or dir_re$="/boot") then
1038
+                                                        //print "sicherheitsabfrage geht"
1039
+                                                else
1040
+                                                        print "ln -s "+"\""+dir_re$+"/"+name2$+"\""+" "+"\""+dir_li$+"\""
1041
+                                                        verknuepfen$=system$("ln -s "+"\""+dir_re$+"/"+name2$+"\""+" "+"\""+dir_li$+"\"")
1042
+                                                endif
1043
+                                                readfolder_re(dir_re$)
1044
+                                                readfolder_li(dir_li$)
1045
+                                        else
1046
+                                        endif
1047
+                                endif
1048
+                                
1049
+                        endif                   
1050
+                break
1051
+                                default:
1052
+                                break
1053
+                        end switch
1054
+                        
1055
+                        
1056
+        wend
1057
+        
1058
+
1059
+end sub
1060
+sub dateibrowserLinks(dir_li$, first)
1061
+        browserLi$="browserLi"
1062
+        err = draw image 0,4, grafikverzeichnis$+"themes/marble/backgrounds/top.png", "vertikal1"
1063
+        
1064
+        Y_Dropbox_li=20
1065
+        Y_Dropbox_ende_li=Y_Dropbox_li+20
1066
+        Y_Columnbox_start_li=Y_Dropbox_ende_li+20
1067
+        X_Drives_ende_li=115    
1068
+        layout "left-top", "vertikal1"  
1069
+        dropbox 15,20 to X_Drives_ende_li, Y_Dropbox_ende_li, "left_drives", "", "vertikal1"
1070
+                
1071
+        dropbox X_Drives_ende_li+20,Y_Dropbox_li to X_Drives_ende_li+120,Y_Dropbox_ende_li, "left_folders", "", "vertikal1"
1072
+        dropbox add "left_folders", "Folder"
1073
+        dropbox add "left_folders", "Apps"
1074
+        dropbox add "left_folders", "Home"
1075
+        dropbox add "left_folders", "Desktop"
1076
+        dropbox add "left_folders", "FastLaunch"
1077
+        //dropbox add "left_folders", "ZetaMenu"
1078
+        dropbox add "left_folders", "Downloads"
1079
+        dropbox add "left_folders", "Config"
1080
+        dropbox add "left_folders", "Trash"
1081
+        layout "default", "vertikal1"
1082
+        spalten_option$="align-left"
1083
+        
1084
+        COLUMNBOX 20,Y_Columnbox_start_li TO WindowSize_x_result/2-10-20,WindowSize_y_result-130-60, browserLi$, true, "resizable, movable, popup, removable", "vertikal1"
1085
+        COLUMNBOX COLUMN browserLi$, "", 1, 32, 32, 32,spalten_option$
1086
+        COLUMNBOX COLUMN browserLi$, "Name", 2, 200, 150, 150,spalten_option$
1087
+        COLUMNBOX COLUMN browserLi$, "Permissions", 3, 50, 50, 50,spalten_option$
1088
+        COLUMNBOX COLUMN browserLi$, "M.D (ddmmyyyy)", 4, 120, 120, 120, spalten_option$
1089
+        COLUMNBOX COLUMN browserLi$, "M.T (hhmmss)", 5, 105, 105, 105, spalten_option$
1090
+        COLUMNBOX COLUMN browserLi$, "Size / Items", 6, 200, 100, 200, spalten_option$  
1091
+        COLUMNBOX COLUMN browserLi$, "C.D (ddmmyyyy)", 7, 100, 100, 100, spalten_option$
1092
+        COLUMNBOX COLUMN browserLi$, "C.T (hhmmss)", 8, 100, 100, 100, spalten_option$
1093
+        COLUMNBOX COLUMN browserLi$, "Directory", 9, 20, 20, 20, spalten_option$
1094
+        COLUMNBOX COLUMN browserLi$, "Directory", 10, 80, 80, 80, spalten_option$
1095
+        columnbox color browserLi$, "Selection-Active", 220,220,250
1096
+        columnbox color browserLi$, "Row-Divider", 255,255,255
1097
+        layout "left-bottom-right", "vertikal1"
1098
+        textcontrol 14,WindowSize_y_result-130-40 to WindowSize_x_result/2-10-20,WindowSize_y_result-130-20, "pfad_li", "","","vertikal1"
1099
+        layout "right-top", "vertikal1"
1100
+        STATUSBAR WindowSize_x_result/2-130, 10 to WindowSize_x_result/2-30,Y_Dropbox_ende_li, "Full_li", "","", "vertikal1"
1101
+        
1102
+        readfolder_li(dir_li$)
1103
+end sub
1104
+
1105
+sub dateibrowserRechts(dir_re$)
1106
+        browserRe$="browserRe"
1107
+        err = draw image 0,4, grafikverzeichnis$+"themes/marble/backgrounds/top.png", "vertikal2"       
1108
+        Y_Dropbox_re=20
1109
+        Y_Dropbox_ende_re=Y_Dropbox_re+20
1110
+        Y_Columnbox_start_re=Y_Dropbox_ende_re+20
1111
+        X_Drives_ende_re=115    
1112
+        layout "left-top", "vertikal2"  
1113
+        dropbox 15,20 to X_Drives_ende_re,Y_Dropbox_ende_re, "right_drives", "", "vertikal2"
1114
+        
1115
+        err = draw image 0,4, grafikverzeichnis$+"themes/marble/backgrounds/top.png", "vertikal1"
1116
+                        
1117
+        dropbox X_Drives_ende_re+20,Y_Dropbox_re to X_Drives_ende_re+120,Y_Dropbox_ende_re, "right_folders", "", "vertikal2"
1118
+        dropbox add "right_folders", "Folder"
1119
+        dropbox add "right_folders", "Apps"
1120
+        dropbox add "right_folders", "Home"
1121
+        dropbox add "right_folders", "Desktop"
1122
+        dropbox add "right_folders", "FastLaunch"
1123
+        dropbox add "right_folders", "Downloads"
1124
+        dropbox add "right_folders", "Config"
1125
+        dropbox add "right_folders", "Trash"
1126
+        layout "default", "vertikal2"
1127
+        spalten_option$="align-left"
1128
+        COLUMNBOX 20,Y_Columnbox_start_re TO WindowSize_x/2-10-20,WindowSize_y-130-60, browserRe$, true, "resizable, movable, popup, removable", "vertikal2"
1129
+        COLUMNBOX COLUMN browserRe$, "", 1, 32, 32, 32,spalten_option$
1130
+        COLUMNBOX COLUMN browserRe$, "Name", 2, 200, 150, 150,spalten_option$
1131
+        COLUMNBOX COLUMN browserRe$, "Permissions", 3, 50, 50, 50,spalten_option$
1132
+        COLUMNBOX COLUMN browserRe$, "M.D (ddmmyyyy)", 4, 120, 120, 120, spalten_option$
1133
+        COLUMNBOX COLUMN browserRe$, "M.T (hhmmss)", 5, 105, 105, 105, spalten_option$
1134
+        COLUMNBOX COLUMN browserRe$, "Size / Items", 6, 200, 100, 200, spalten_option$  
1135
+        COLUMNBOX COLUMN browserRe$, "C.D (ddmmyyyy)", 7, 100, 100, 100, spalten_option$
1136
+        COLUMNBOX COLUMN browserRe$, "C.T (hhmmss)", 8, 100, 100, 100, spalten_option$
1137
+        COLUMNBOX COLUMN browserRe$, "Directory", 9, 20, 20, 20, spalten_option$
1138
+        COLUMNBOX COLUMN browserRe$, "Directory", 10, 80, 80, 80, spalten_option$
1139
+        
1140
+        columnbox color browserRe$, "Selection-Active", 220,220,250
1141
+        columnbox color browserRe$, "Row-Divider", 255,255,255  
1142
+        layout "left-bottom-right", "vertikal2"
1143
+        textcontrol 14,WindowSize_y-130-40 to WindowSize_x/2-10-20,WindowSize_y-130-20, "pfad_re", "","","vertikal2"    
1144
+        layout "right-top", "vertikal2"
1145
+        STATUSBAR WindowSize_x/2-130, 10 to WindowSize_x/2-30,Y_Dropbox_ende_re, "Full_re", "","", "vertikal2"
1146
+        layout "default", "vertikal2"
1147
+        readfolder_re(dir_re$+"/")
1148
+end sub
1149
+sub dateibrowser_menu()
1150
+        err = draw image 0,0, grafikverzeichnis$+"themes/marble/backgrounds/bottom.png", "horizontal2"
1151
+        BUTTON 20,20 TO 120,40, "button1", "Copy", "horizontal2"
1152
+        BUTTON 130,20 TO 230,40, "button2", "Move", "horizontal2"
1153
+        BUTTON 240,20 TO 340,40, "button3", "New Directory", "horizontal2"
1154
+        BUTTON 460,60 TO 560,80, "button4", "Change Permission", "horizontal2"
1155
+        BUTTON 460,20 TO 560,40, "button5", "Open", "horizontal2"
1156
+        BUTTON 350,20 TO 450,40, "button6", "Link", "horizontal2"
1157
+        BUTTON 20,60 TO 120,80, "button7", "Copy as", "horizontal2"
1158
+        BUTTON 130,60 TO 230,80, "button8", "Delete", "horizontal2"
1159
+        BUTTON 240,60 TO 340,80, "button9", "Rename", "horizontal2"
1160
+        //BUTTON 350,60 TO 450,80, "button10", "Burn CD", "horizontal2"
1161
+        //BUTTON 460,60 TO 560,80, "button11", "mark all", "horizontal2"
1162
+        BUTTON 350,60 TO 450,80, "button12", "Link as", "horizontal2"
1163
+end sub
1164
+sub readfolder_li(dir_li$)
1165
+                        STATUSBAR SET "Full_li", "", "", 0
1166
+        laufwerk_fuelle_LI(dir_li$)
1167
+        
1168
+//Creates a statusbar with ID$ and label(s) on View$.
1169
+//Label1$ is on the left side above the actual bar and so is Label2$ on the right.
1170
+        STATUSBAR SET "Full_li", "", "", belegt_li
1171
+//  Sets Statusbar ID$ to State and changes the Labels to specified ones.
1172
+        PartOne$=""                      
1173
+        
1174
+        TEXTCONTROL CLEAR "pfad_li"
1175
+        TEXTCONTROL SET "pfad_li", dir_li$      
1176
+        COLUMNBOX CLEAR browserLi$
1177
+        //print "Dir_Li$ "+dir_li$
1178
+        verzeichnisinhalt_li$=system$(listdir$+"\""+dir_li$+"\"")
1179
+        //verzeichnisinhalt_li$=system$("ls -allQ "+"\""+dir_li$+"\"")
1180
+        i=0
1181
+        b_li$="\""
1182
+        dim splitdir_li$(1)
1183
+        n = split(verzeichnisinhalt_li$, splitdir_li$(), "\n")
1184
+        for i = 1 to n-1
1185
+        
1186
+                posname_li=instr(splitdir_li$(i),b_li$,0)
1187
+                posname_ende_li=instr(splitdir_li$(i),b_li$,2)
1188
+                dateiname_ohne_li$=mid$(splitdir_li$(i),posname_li+1,posname_ende_li-2)
1189
+                        
1190
+                if (instr(splitdir_li$(i),"B",posname_ende_li+2)) then
1191
+                        attribute_li$=trim$(mid$(splitdir_li$(i),instr(splitdir_li$(i),"B",posname_ende_li+3)+3,3))
1192
+                elseif(instr(splitdir_li$(i),"s",posname_ende_li+2))
1193
+                        attribute_li$=trim$(mid$(splitdir_li$(i),instr(splitdir_li$(i),"s",posname_ende_li+2)+3,4))
1194
+                endif
1195
+                
1196
+                directory_li$=mid$(splitdir_li$(i),instr(splitdir_li$(i),"d",len(splitdir_li$(i))-10),1)
1197
+                permission_long_li$=trim$(right$(splitdir_li$(i),9))
1198
+                                
1199
+                if (instr(splitdir_li$(i),"B",posname_ende_li+2)) then
1200
+                        groesse_pos_li_start=instr(splitdir_li$(i),"B",posname_ende_li+2)
1201
+                        dateigroesse_li$=trim$(mid$(splitdir_li$(i),posname_ende_li+2,groesse_pos_li_start-posname_ende_li))
1202
+                else
1203
+                        groesse_pos_li_start=instr(splitdir_li$(i),"items",posname_ende_li)     
1204
+                        dateigroesse_li$=trim$(mid$(splitdir_li$(i),posname_ende_li+2,groesse_pos_li_start-posname_ende_li+3))  
1205
+                endif
1206
+                
1207
+                datei_lastchange_datum_li$=trim$(mid$(splitdir_li$(i),instr(splitdir_li$(i),"@",1)-10,10))
1208
+                datei_lastchange_time_li$=trim$(mid$(splitdir_li$(i),instr(splitdir_li$(i),"@",1)+1,10))
1209
+                
1210
+                if (mid$(splitdir_li$(i),instr(splitdir_li$(i),"d",len(splitdir_li$(i))-10),1)="d") then
1211
+                        datei_creation_date_li$=trim$(mid$(splitdir_li$(i),instr(splitdir_li$(i),"d",len(splitdir_li$(i))-20)-22,10))
1212
+                        //print datei_creation_date_li$
1213
+                        datei_creation_time_li$=trim$(mid$(splitdir_li$(i),instr(splitdir_li$(i),"d",len(splitdir_li$(i))-10)-11,10))
1214
+                elseif (mid$(splitdir_li$(i),instr(splitdir_li$(i),"f",len(splitdir_li$(i))-10),1)="f") then
1215
+                        datei_creation_date_li$=trim$(mid$(splitdir_li$(i),instr(splitdir_li$(i),"f",len(splitdir_li$(i))-20)-22,10))
1216
+                        //print datei_creation_date_li$
1217
+                        datei_creation_time_li$=trim$(mid$(splitdir_li$(i),instr(splitdir_li$(i),"f",len(splitdir_li$(i))-10)-11,10))
1218
+                endif
1219
+                
1220
+                //lastchange_pos_li=len(datei_datum_li$)
1221
+                                
1222
+                columnbox add browserLi$, 1, i, 32, "__Path__="+dir_li$+"/"+dateiname_ohne_li$
1223
+                columnbox add browserLi$, 2, i, 15, dateiname_ohne_li$
1224
+                columnbox add browserLi$, 3, i, 15, attribute_li$
1225
+                columnbox add browserLi$, 4, i, 15, datei_lastchange_datum_li$
1226
+                columnbox add browserLi$, 5, i, 15, datei_lastchange_time_li$
1227
+                columnbox add browserLi$, 6, i, 15,  dateigroesse_li$
1228
+                columnbox add browserLi$, 7, i, 10, datei_creation_date_li$
1229
+                columnbox add browserLi$, 8, i, 10, datei_creation_time_li$
1230
+                columnbox add browserLi$, 9, i, 10, directory_li$
1231
+                columnbox add browserLi$, 10, i, 10, permission_long_li$
1232
+        next i
1233
+        columnbox select browserLi$, 1
1234
+        if (dir_li$="/Volumes") then
1235
+        else
1236
+        //      COLUMNBOX REMOVE browserLi$, 1
1237
+        fi
1238
+end sub
1239
+sub readfolder_re(dir_re$)
1240
+        
1241
+        STATUSBAR SET "Full_re", "", "", 0
1242
+        laufwerk_fuelle_RE(dir_re$)
1243
+        
1244
+//Creates a statusbar with ID$ and label(s) on View$.
1245
+//Label1$ is on the left side above the actual bar and so is Label2$ on the right.
1246
+        STATUSBAR SET "Full_re", "", "", belegt_re
1247
+//  Sets Statusbar ID$ to State and changes the Labels to specified ones.
1248
+        PartOne$=""                      
1249
+        TEXTCONTROL CLEAR "pfad_re"
1250
+        TEXTCONTROL SET "pfad_re", dir_re$      
1251
+        COLUMNBOX CLEAR browserRe$
1252
+        
1253
+        verzeichnisinhalt_re$=system$(listdir$+"\""+dir_re$+"\"")
1254
+        //verzeichnisinhalt_re$=system$("ls -allQ "+"\""+dir_li$+"\"")
1255
+        ii=0
1256
+        b_re$="\""
1257
+        dim splitdir_re$(1)
1258
+        nn = split(verzeichnisinhalt_re$, splitdir_re$(), "\n")
1259
+        for ii = 1 to nn-1
1260
+        
1261
+                posname_re=instr(splitdir_re$(ii),b_re$,0)
1262
+                posname_ende_re=instr(splitdir_re$(ii),b_re$,2)
1263
+                dateiname_ohne_re$=mid$(splitdir_re$(ii),posname_re+1,posname_ende_re-2)
1264
+                        
1265
+                if (instr(splitdir_re$(ii),"B",posname_ende_re+2)) then
1266
+                        attribute_re$=trim$(mid$(splitdir_re$(ii),instr(splitdir_re$(ii),"B",posname_ende_re+3)+3,3))
1267
+                elseif(instr(splitdir_re$(ii),"s",posname_ende_re+2))
1268
+                        attribute_re$=trim$(mid$(splitdir_re$(ii),instr(splitdir_re$(ii),"s",posname_ende_re+2)+3,4))
1269
+                endif
1270
+                
1271
+                directory_re$=mid$(splitdir_re$(ii),instr(splitdir_re$(ii),"d",len(splitdir_re$(ii))-10),1)
1272
+                permission_long_re$=trim$(right$(splitdir_re$(ii),9))
1273
+                                
1274
+                if (instr(splitdir_re$(ii),"B",posname_ende_re+2)) then
1275
+                        groesse_pos_re_start=instr(splitdir_re$(ii),"B",posname_ende_re+2)
1276
+                        dateigroesse_re$=trim$(mid$(splitdir_re$(ii),posname_ende_re+2,groesse_pos_re_start-posname_ende_re))
1277
+                else
1278
+                        groesse_pos_re_start=instr(splitdir_re$(ii),"items",posname_ende_re)    
1279
+                        dateigroesse_re$=trim$(mid$(splitdir_re$(ii),posname_ende_re+2,groesse_pos_re_start-posname_ende_re+3)) 
1280
+                endif
1281
+                
1282
+                datei_lastchange_datum_re$=trim$(mid$(splitdir_re$(ii),instr(splitdir_re$(ii),"@",1)-10,10))
1283
+                datei_lastchange_time_re$=trim$(mid$(splitdir_re$(ii),instr(splitdir_re$(ii),"@",1)+1,10))
1284
+                
1285
+                if (mid$(splitdir_re$(ii),instr(splitdir_re$(ii),"d",len(splitdir_re$(ii))-10),1)="d") then
1286
+                        datei_creation_date_re$=trim$(mid$(splitdir_re$(ii),instr(splitdir_re$(ii),"d",len(splitdir_re$(ii))-20)-22,10))
1287
+                        //print datei_creation_date_re$
1288
+                        datei_creation_time_re$=trim$(mid$(splitdir_re$(ii),instr(splitdir_re$(ii),"d",len(splitdir_re$(ii))-10)-11,10))
1289
+                elseif (mid$(splitdir_re$(ii),instr(splitdir_re$(ii),"f",len(splitdir_re$(ii))-10),1)="f") then
1290
+                        datei_creation_date_re$=trim$(mid$(splitdir_re$(ii),instr(splitdir_re$(ii),"f",len(splitdir_re$(ii))-20)-22,10))
1291
+                        //print datei_creation_date_re$
1292
+                        datei_creation_time_re$=trim$(mid$(splitdir_re$(ii),instr(splitdir_re$(ii),"f",len(splitdir_re$(ii))-10)-11,10))
1293
+                endif
1294
+                
1295
+                //lastchange_pos_li=len(datei_datum_li$)
1296
+                                
1297
+                columnbox add browserRe$, 1, ii, 32, "__Path__="+dir_re$+"/"+dateiname_ohne_re$
1298
+                columnbox add browserRe$, 2, ii, 15, dateiname_ohne_re$
1299
+                columnbox add browserRe$, 3, ii, 15, attribute_re$
1300
+                columnbox add browserRe$, 4, ii, 15, datei_lastchange_datum_re$
1301
+                columnbox add browserRe$, 5, ii, 15, datei_lastchange_time_re$
1302
+                columnbox add browserRe$, 6, ii, 15,  dateigroesse_re$
1303
+                columnbox add browserRe$, 7, ii, 10, datei_creation_date_re$
1304
+                columnbox add browserRe$, 8, ii, 10, datei_creation_time_re$
1305
+                columnbox add browserRe$, 9, ii, 10, directory_re$
1306
+                columnbox add browserRe$, 10, ii, 10, permission_long_re$
1307
+        next ii
1308
+        columnbox select browserRe$, 1
1309
+        if (dir_re$="/Volumes") then
1310
+        else
1311
+        //      COLUMNBOX REMOVE browserRe$, 1
1312
+        fi
1313
+end sub
1314
+sub createbfs()
1315
+        window open ((screenWidth/2)-170), ((screenHeight/2)-80) to ((screenWidth/2)+170), ((screenHeight/2)+80), "createbfs", "create BFS Image"
1316
+        window set  "createbfs", "MinimumTo", 340,160
1317
+        window set  "createbfs", "MaximumTo", 340,160
1318
+        err = draw image 0,0, grafikverzeichnis$+"themes/marble/backgrounds/top.png", "createbfs"
1319
+        draw text 20, 40, "Size from the Imagefile:", "createbfs"
1320
+        textcontrol 150,25 to 270,60, "bfssize", "","","createbfs"
1321
+        draw text 275, 40, "MB", "createbfs"
1322
+        draw text 20, 65, "Name from the Imagefile:", "createbfs"
1323
+        textcontrol 150,50 to 270,65, "bfsname", "","","createbfs"
1324
+        draw text 275, 65, ".image", "createbfs"
1325
+        button 120,110 to 220,130, "savebfs", "Create", "createbfs"
1326
+end sub
1327
+sub zipname(PartOne$)
1328
+        window open ((screenWidth/2)-170), ((screenHeight/2)-80) to ((screenWidth/2)+170), ((screenHeight/2)+80), "zip", "Create ZIP FILE"
1329
+        window set  "zip", "MinimumTo", 340,160
1330
+        window set  "zip", "MaximumTo", 340,160
1331
+        err = draw image 0,0, grafikverzeichnis$+"themes/marble/backgrounds/top.png", "zip"
1332
+        draw text 22, 20, "Give a name for the ZIP File,", "zip"
1333
+        draw text 22, 40, "or let the name so?", "zip"
1334
+        draw text 22, 60, "The Extension .zip put automaticly on the end", "zip"
1335
+        textcontrol 15,80 to 310,90, "zipname", "",name$,"zip"
1336
+        button 120,120 to 220,140, "button20", "Create", "zip"
1337
+end sub
1338
+sub tarname(PartOne$)
1339
+        window open ((screenWidth/2)-170), ((screenHeight/2)-80) to ((screenWidth/2)+170), ((screenHeight/2)+80), "tar", "Create Tar FILE"
1340
+        window set  "tar", "MinimumTo", 340,160
1341
+        window set  "tar", "MaximumTo", 340,160
1342
+        err = draw image 0,0, grafikverzeichnis$+"themes/marble/backgrounds/top.png", "tar"
1343
+        draw text 22, 20, "Geben Sie einen Namen für die TAR Datei an,", "tar"
1344
+        draw text 22, 40, "oder möchten Sie die Datei vom Namen her so lassen?", "tar"
1345
+        draw text 22, 60, "Die Dateiendung .tar wird automatisch angehängt", "tar"
1346
+        textcontrol 15,80 to 310,90, "tarname", "",name$,"tar"
1347
+        button 120,120 to 220,140, "button21", "Create", "tar"
1348
+end sub
1349
+sub rarname(PartOne$)
1350
+        window open ((screenWidth/2)-170), ((screenHeight/2)-80) to ((screenWidth/2)+170), ((screenHeight/2)+80), "rar", "Create Rar FILE"
1351
+        window set  "rar", "MinimumTo", 340,160
1352
+        window set  "rar", "MaximumTo", 340,160
1353
+        err = draw image 0,0, grafikverzeichnis$+"themes/marble/backgrounds/top.png", "rar"
1354
+        draw text 22, 20, "Geben Sie einen Namen für die RAR Datei an,", "rar"
1355
+        draw text 22, 40, "oder möchten Sie die Datei vom Namen her so lassen?", "rar"
1356
+        draw text 22, 60, "Die Dateiendung .rar wird automatisch angehängt", "rar"
1357
+        textcontrol 15,80 to 310,90, "rarname", "",name$,"rar"
1358
+        button 120,120 to 220,140, "button22", "Create", "rar"
1359
+end sub
1360
+sub makedir(PartOne$)
1361
+        window open ((screenWidth/2)-170), ((screenHeight/2)-80) to ((screenWidth/2)+170), ((screenHeight/2)+80), "makefolder", "Create Folder"
1362
+        window set  "makefolder", "MinimumTo", 340,160
1363
+        window set  "makefolder", "MaximumTo", 340,160
1364
+        err = draw image 0,0, grafikverzeichnis$+"themes/marble/backgrounds/top.png", "makefolder"
1365
+        draw text 20, 40, "Type a name for folder:", "makefolder"
1366
+        textcontrol 15,55 to 310,65, "dirname", "","","makefolder"
1367
+        button 120,110 to 220,130, "makedir", "Create", "makefolder"
1368
+        PartOneMakeDir$=PartOne$
1369
+end sub
1370
+sub copyas(PartOne$)
1371
+        window open ((screenWidth/2)-170), ((screenHeight/2)-80) to ((screenWidth/2)+170), ((screenHeight/2)+80), "copyas", "Copy as..."
1372
+        window set  "copyas", "MinimumTo", 340,160
1373
+        window set  "copyas", "MaximumTo", 340,160
1374
+        err = draw image 0,0, grafikverzeichnis$+"themes/marble/backgrounds/top.png", "copyas"
1375
+        draw text 20, 40, "Type a name for the new copy:", "copyas"
1376
+        textcontrol 15,55 to 310,65, "copyname", "",name$,"copyas"
1377
+        button 120,110 to 220,130, "copyas", "Create", "copyas"
1378
+        PartOneCopyAs$=PartOne$
1379
+end sub
1380
+sub rename(PartOne$)
1381
+        window open ((screenWidth/2)-170), ((screenHeight/2)-80) to ((screenWidth/2)+170), ((screenHeight/2)+80), "rename", "Rename"
1382
+        window set  "rename", "MinimumTo", 340,160
1383
+        window set  "rename", "MaximumTo", 340,160
1384
+        err = draw image 0,0, grafikverzeichnis$+"themes/marble/backgrounds/top.png", "rename"
1385
+        draw text 20, 40, "Type a new name:", "rename"
1386
+        textcontrol 15,55 to 310,65, "renamename", "",name$,"rename"
1387
+        button 120,110 to 220,130, "rename", "Rename", "rename"
1388
+        PartOneRename$=PartOne$
1389
+end sub
1390
+sub renameAll(PartOne$)
1391
+        window open ((screenWidth/2)-170), ((screenHeight/2)-80) to ((screenWidth/2)+170), ((screenHeight/2)+80), "rename", "renameAll"
1392
+        window set  "renameAll", "MinimumTo", 340,160
1393
+        window set  "renameAll", "MaximumTo", 340,160
1394
+        err = draw image 0,0, grafikverzeichnis$+"themes/marble/backgrounds/top.png", "renameAll"
1395
+        draw text 20, 40, "Type a new name Pattern:", "renameAll"
1396
+        spincontrol 40,40, "Number", "Pattern", 0, 10000000000000, 1, "renameAll"
1397
+        
1398
+        //SPINCONTROL x,y , ID$, Label$ , Min, Max , Step, View$
1399
+        textcontrol 15,55 to 310,65, "renamename", "",name$,"renameAll"
1400
+        button 120,110 to 220,130, "rename", "Rename", "renameAll"
1401
+        PartOneRename$=PartOne$
1402
+end sub
1403
+sub link_it(PartOne$)
1404
+
1405
+                                        
1406
+end sub
1407
+sub linkas(PartOne$)
1408
+        window open ((screenWidth/2)-170), ((screenHeight/2)-80) to ((screenWidth/2)+170), ((screenHeight/2)+80), "linkas","link as..."
1409
+        window set  "linkas", "MinimumTo", 340,160
1410
+        window set  "linkas", "MaximumTo", 340,160
1411
+        err = draw image 0,0, grafikverzeichnis$+"themes/marble/backgrounds/top.png", "linkas"
1412
+        draw text 20, 40, "Type a name for the link:", "linkas"
1413
+        textcontrol 15,55 to 310,65, "linkname", "",name$,"linkas"
1414
+        button 120,110 to 220,130, "linkas", "create", "linkas"
1415
+        PartOneLinkAs$=PartOne$
1416
+end sub
1417
+sub rm(PartOne$)
1418
+        
1419
+        window open ((screenWidth/2)-170), ((screenHeight/2)-80) to ((screenWidth/2)+170), ((screenHeight/2)+80), "remove", "Delete"
1420
+        window set  "remove", "MinimumTo", 340,160
1421
+        window set  "remove", "MaximumTo", 340,160
1422
+        err = draw image 0,0, grafikverzeichnis$+"themes/marble/backgrounds/top.png", "remove"
1423
+        draw text 20, 40, "Do you realy want to delete File, Link or Directory ", "remove"
1424
+        draw text 20, 60, ""+name$+" ?", "remove"
1425
+        button 60,110 to 160,130, "rm_ja", "yes", "remove"
1426
+        button 180,110 to 280,130, "rm_nein", "no", "remove"
1427
+        PartOneRM$=PartOne$
1428
+        rmname$=name$
1429
+        //print PartOneRM$
1430
+end sub
1431
+sub attribute_setzen(PartOne$)
1432
+        //print PartOne$
1433
+        window open ((screenWidth/2)-225), ((screenHeight/2)-80) to ((screenWidth/2)+225), ((screenHeight/2)+80), "attribute", "Change Permission"
1434
+        window set  "attribute", "MinimumTo", 450,160
1435
+        window set  "attribute", "MaximumTo", 450,160
1436
+        err = draw image 0,0, grafikverzeichnis$+"themes/marble/backgrounds/top.png", "attribute"
1437
+        benutzer$="baron"
1438
+        gruppe$="zetauser"
1439
+        draw text 20, 20, "Please set the permission for "+name$, "attribute"
1440
+        draw text 100, 40, "User", "attribute"
1441
+        draw text 160, 40, "Group", "attribute"
1442
+        draw text 220, 40, "Other", "attribute"
1443
+        draw text 300, 40, "Username", "attribute"
1444
+        textcontrol 290,45 to 420,60, "benutzer", "",benutzer$,"attribute"
1445
+        draw text 300, 85, "Groupname", "attribute"
1446
+        textcontrol 290,90 to 420,105, "gruppe", "",gruppe$,"attribute"
1447
+        draw text 20, 70, "read", "attribute"
1448
+        draw text 20, 90, "write", "attribute"
1449
+        draw text 20, 110, "execute", "attribute"
1450
+        checkbox 120,50, "read1", "", read1, "attribute"
1451
+        checkbox 120,70, "write1", "", write1, "attribute"
1452
+        checkbox 120,90, "run1", "", run1, "attribute"
1453
+        checkbox 180,50, "read2", "", read2, "attribute"
1454
+        checkbox 180,70, "write2", "", write2, "attribute"
1455
+        checkbox 180,90, "run2", "", run2, "attribute"
1456
+        checkbox 240,50, "read3", "", read3, "attribute"
1457
+        checkbox 240,70, "write3", "", write3, "attribute"
1458
+        checkbox 240,90, "run3", "", run3, "attribute"
1459
+        attribute1$ = columnbox get$ PartOne$, 10, val(PartThree$)
1460
+        
1461
+        if (mid$(attribute1$,1,1)="r") then
1462
+                CHECKBOX SET "read1", 1
1463
+                nummer1=400
1464
+        else
1465
+                CHECKBOX SET "read1", 0
1466
+        fi
1467
+        if (mid$(attribute1$,2,1)="w") then
1468
+                CHECKBOX SET "write1", 1
1469
+                nummer2=200
1470
+        else
1471
+                CHECKBOX SET "write1", 0
1472
+        fi
1473
+        if (mid$(attribute1$,3,1)="x") then
1474
+                nummer3=100
1475
+                CHECKBOX SET "run1", 1
1476
+        else
1477
+                CHECKBOX SET "run1", 0
1478
+        fi
1479
+        if (mid$(attribute1$,4,1)="r") then
1480
+                CHECKBOX SET "read2", 1
1481
+                nummer4=40
1482
+        else
1483
+                CHECKBOX SET "read2", 0
1484
+        fi
1485
+        if (mid$(attribute1$,5,1)="w") then
1486
+                CHECKBOX SET "write2", 1
1487
+                nummer5=20
1488
+        else
1489
+                CHECKBOX SET "write2", 0
1490
+        fi
1491
+        if (mid$(attribute1$,6,1)="x") then
1492
+                nummer6=10
1493
+                CHECKBOX SET "run2", 1
1494
+        else
1495
+                CHECKBOX SET "run2", 0
1496
+        fi
1497
+        if (mid$(attribute1$,7,1)="r") then
1498
+                nummer7=4
1499
+                CHECKBOX SET "read3", 1
1500
+        else
1501
+                CHECKBOX SET "read3", 0
1502
+        fi
1503
+        if (mid$(attribute1$,8,1)="w") then
1504
+                nummer8=2
1505
+                CHECKBOX SET "write3", 1
1506
+        else
1507
+                CHECKBOX SET "write3", 0
1508
+        fi
1509
+        if (mid$(attribute1$,9,1)="x") then
1510
+                nummer9=1
1511
+                CHECKBOX SET "run3", 1
1512
+        else
1513
+                CHECKBOX SET "run3", 0
1514
+        fi
1515
+
1516
+        button 180,120 to 260,140, "attributeOK|", "OK", "attribute"
1517
+        PartOneATTR$=PartOne$
1518
+end sub
1519
+
1520
+sub link(PartOne$)
1521
+if (PartOne$="browserLi") then
1522
+                                                name2$ = columnbox get$ "browserLi", 2, val(PartThree$)
1523
+                                                dir_re$=dir_re$+"/"
1524
+                                                //print "link"+"ln -s "+"\""+dir_li$+"/"+name2$+"\""+" "+"\""+dir_re$+"\""
1525
+                                                verknuepfen$=system$("ln -s "+"\""+dir_li$+"/"+name2$+"\""+" "+"\""+dir_re$+"\"")
1526
+                                                readfolder_re(dir_re$)
1527
+                                                readfolder_li(dir_li$)
1528
+                                        elseif (PartOne$="browserRe") then
1529
+                                                name2$ = columnbox get$ "browserRe", 2, val(PartThree$)
1530
+                                                dir_li$=dir_li$+"/"
1531
+                                                verknuepfen$=system$("ln -s "+"\""+dir_re$+"/"+name2$+"\""+" "+"\""+dir_li$+"\"")
1532
+                                                readfolder_re(dir_re$)
1533
+                                                readfolder_li(dir_li$)
1534
+                                        endif
1535
+end sub
1536
+
1537
+sub laufwerke_li()
1538
+        
1539
+        laufwerk_li$=system$("ls -Q1p / | grep /")
1540
+        i=0
1541
+        dim laufwerksliste_li$(1)
1542
+        dim noentry_li$(8)
1543
+        noentry_li$(0)="bin"
1544
+        noentry_li$(1)="dev"
1545
+        noentry_li$(2)="etc"
1546
+        noentry_li$(3)="pipe"
1547
+        noentry_li$(4)="system"
1548
+        noentry_li$(5)="tmp"
1549
+        noentry_li$(6)="usr"
1550
+        noentry_li$(7)="var"
1551
+        nli = split(laufwerk_li$, laufwerksliste_li$(), "\n")
1552
+        layout "all", "vertikal1"
1553
+        //dropbox 15,20 to 165,30, "left_drives", "", "vertikal1"
1554
+        
1555
+        dropbox add "left_drives", "Volumes"
1556
+                
1557
+        HDli=0
1558
+        volumes_li$=system$(mountvolume$+" -lh")        
1559
+        dim festplatten_li$(1)
1560
+        dim HDS_li$(1)  
1561
+//print volumes_li$
1562
+        
1563
+        fli = split(volumes_li$, festplatten_li$(), "\n")       
1564
+
1565
+        for HDli = 1 to fli     
1566
+                
1567
+                HD_posname_li=instr(festplatten_li$(HDli),":",3)                
1568
+                //print HD_posname_li
1569
+                Laufwerkliste_li$=ltrim$(mid$(festplatten_li$(HDli),0,HD_posname_li))           
1570
+                Laufwerkliste_li$=rtrim$(Laufwerkliste_li$)                     
1571
+        if(Laufwerkliste_li$="") then
1572
+        else                    
1573
+                 dropbox add "left_drives", Laufwerkliste_li$    
1574
+        endif
1575
+        next HDli       
1576
+        layout "default", "vertikal1"   
1577
+
1578
+
1579
+end sub
1580
+sub laufwerke_re()
1581
+        laufwerk_re$=system$("ls -Q1p / | grep /")
1582
+        i=0
1583
+        dim laufwerksliste_re$(1)
1584
+        dim noentry_re$(8)
1585
+        noentry_re$(0)="bin"
1586
+        noentry_re$(1)="dev"
1587
+        noentry_re$(2)="etc"
1588
+        noentry_re$(3)="pipe"
1589
+        noentry_re$(4)="system"
1590
+        noentry_re$(5)="tmp"
1591
+        noentry_re$(6)="usr"
1592
+        noentry_re$(7)="var"
1593
+        nre = split(laufwerk_re$, laufwerksliste_re$(), "\n")
1594
+        
1595
+        dropbox add "right_drives", "Volumes"
1596
+                
1597
+        HDre=0
1598
+        volumes_re$=system$(mountvolume$+" -lh")        
1599
+        dim festplatten_re$(1)
1600
+        dim HDS_re$(1)  
1601
+        //print volumes_re$
1602
+        
1603
+        fre = split(volumes_re$, festplatten_re$(), "\n")       
1604
+
1605
+        for HDre = 1 to fre     
1606
+                HD_posname_re=instr(festplatten_re$(HDre),":",3)                
1607
+                //print HD_posname_re
1608
+                Laufwerkliste_re$=ltrim$(mid$(festplatten_re$(HDre),0,HD_posname_re))           
1609
+                Laufwerkliste_re$=rtrim$(Laufwerkliste_re$)                     
1610
+                                
1611
+        if(Laufwerkliste_re$="") then
1612
+        else    
1613
+                
1614
+                 dropbox add "right_drives", Laufwerkliste_re$   
1615
+        endif
1616
+        next HDre       
1617
+
1618
+
1619
+        layout "default", "vertikal2"
1620
+end sub
1621
+sub ftp_settings()
1622
+        window open ((screenWidth/2)-250), ((screenHeight/2)-150) to ((screenWidth/2)+250), ((screenHeight/2)+150), "ftp_settings", "FTP-Einstellungen"
1623
+        window set  "ftp_settings", "MinimumTo", 500,300
1624
+        window set  "ftp_settings", "MaximumTo", 500,300
1625
+        err = draw image 0,0, grafikverzeichnis$+"themes/marble/backgrounds/top.png", "ftp_settings"
1626
+        draw text 20, 40, "Name der FTP-Verbindung:", "ftp_settings"
1627
+        textcontrol 150,25 to 270,60, "ftp_name", "","","ftp_settings"
1628
+        draw text 20, 65, "Name des Webserver's oder die IP-Adresse:", "ftp_settings"
1629
+        textcontrol 230,50 to 320,65, "ftp_ip_name", "","","ftp_settings"
1630
+        draw text 20, 90, "Startverzeichnis:", "ftp_settings"
1631
+        textcontrol 230,75 to 320,90, "Startverzeichnis", "","/","ftp_settings"
1632
+        draw text 20, 115, "FTP User:", "ftp_settings"
1633
+        textcontrol 230,100 to 320,115, "ftp_user", "","","ftp_settings"
1634
+        draw text 20, 140, "FTP Passwort:", "ftp_settings"
1635
+        textcontrol 230,125 to 320,140, "ftp_passwort", "","","ftp_settings"
1636
+        button 120,200 to 220,230, "FTP-Verbindung Erstellen", "ftp-erstellen", "ftp_settings"
1637
+end sub
1638
+sub ftp_change()
1639
+        //print "funkt"
1640
+end sub
1641
+sub ftp_verbindung_speichern(ftp_name$,ftp_ip_name$,ftp_Startverzeichnis$,ftp_user$,ftp_passwort$)
1642
+        verzeichnis$="/boot/apps/YAB/yab-0.2.4/programme/diskmaster"
1643
+        //print verzeichnis$
1644
+        filewrite$=verzeichnis$+"/ftp-verbindungen/ftp-verbindung.csv"
1645
+        handle=1
1646
+        handle = open(filewrite$, "a")
1647
+        //print #handle ftp_name$+";"+ftp_ip_name$+";"+ftp_Startverzeichnis$+";"+ftp_user$+";"+ftp_passwort$
1648
+        close(handle)
1649
+        aktu=1
1650
+        ftp_verbindungen_auslesen(aktu)
1651
+end sub
1652
+sub ftp_verbindungen_auslesen(aktu)
1653
+        if (aktu=1) then
1654
+                DROPBOX CLEAR "ftp_verbindungen"
1655
+        fi
1656
+        local x
1657
+        local d
1658
+        local i
1659
+        x=0
1660
+        f=0
1661
+        i=0
1662
+        layout "left-top", "vertikal2"
1663
+        dropbox 185,10 to 300,20, "ftp_verbindungen","", "vertikal2"
1664
+        dropbox add "ftp_verbindungen","FTP_Verbindungen"
1665
+        verzeichnis$="/boot/home/Projekte/yab/Dateimeister"
1666
+        fileload$=verzeichnis$+"/ftp-verbindungen/ftp-verbindung.csv"
1667
+        auslesen=open(fileload$, "r")
1668
+        while (not EOF(auslesen))
1669
+                line input #auslesen b$
1670
+                dim elements$(1)
1671
+                numElements = split(b$, elements$(),";")
1672
+                for i = 1 to numElements
1673
+                        x=x+1
1674
+                        dim d$(x)
1675
+                        d$(x) = elements$(i)
1676
+                next i
1677
+        wend
1678
+        close(auslesen)
1679
+        anzahlspalten=numElements
1680
+        anzahlzeilen=x/anzahlspalten
1681
+        //print anzahlspalten
1682
+        if (anzahlspalten>0) then
1683
+                for a = 1 to anzahlzeilen
1684
+                        //print d$(a+f)
1685
+                        dropbox add "ftp_verbindungen", d$(a+f)
1686
+                        for b = 1 to anzahlspalten
1687
+                        next b
1688
+                        f=f+4
1689
+                next a
1690
+        else
1691
+                dropbox add "ftp_verbindungen","Keine Verbindung"
1692
+        fi
1693
+        layout "default", "vertikal2"
1694
+end sub
1695
+sub about()
1696
+        window open ((screenWidth/2)-200), ((screenHeight/2)-150) to ((screenWidth/2)+200), ((screenHeight/2)+150), "View_About", "About"
1697
+        window set  "View_About", "MinimumTo", 400,300
1698
+        window set  "View_About", "MaximumTo", 400,300
1699
+        window set "View_About", "flags", "not-resizable, Not-Zoomable"         
1700
+        window set "View_About", "look", "Bordered"             
1701
+        //draw set  "Bgcolor",0,0,0,"View_About"        
1702
+        //DRAW SET "HighColor",222,222,222,  "View_About"
1703
+        //Draw Set "lowColor",0,0,0, "View_About"       
1704
+        
1705
+        DRAW SET "system-bold", "View_About"
1706
+        DRAW TEXT 10,30, "BeSly Software Solutions", "View_About"
1707
+        VIEW 0,50 TO 400,300, "View_About_Info", "View_About"
1708
+        DRAW LINE 0,1 TO 400,1, "View_About_Info" 
1709
+         
1710
+        VIEW 0,2 TO 150,165, "View_About_Title", "View_About_Info"
1711
+        //DRAW SET "BGColor", 255,255,255, "View_About_Title"
1712
+        
1713
+        //draw set  "Bgcolor",150,150,150,"View_About_Title"    
1714
+        //DRAW SET "HighColor",222,222,222,  "View_About_Title"
1715
+        //Draw Set "lowColor",0,0,0, "View_About_Title" 
1716
+        DRAW TEXT 10,30, "Name:", "View_About_Title"
1717
+        DRAW TEXT 10,50, "Version / Build:", "View_About_Title"
1718
+        DRAW TEXT 10,70, "Version Status:", "View_About_Title"
1719
+        DRAW TEXT 10,90, "Developers:", "View_About_Title"
1720
+        //DRAW TEXT 10,90, "Graphics:", "View_About_Title"
1721
+        //DRAW TEXT 10,110, "Levels:", "View_About_Title"
1722
+        DRAW TEXT 10,130, "Contact:", "View_About_Title"
1723
+        DRAW TEXT 10,150, "Website:", "View_About_Title"
1724
+        //DRAW Text 10,170, "Thanks", "View_About_Title"
1725
+        
1726
+        //draw set  "Bgcolor",0,0,0,"View_About_Info"   
1727
+        //DRAW SET "HighColor",222,222,222,  "View_About_Info"
1728
+        //Draw Set "lowColor",0,0,0, "View_About_Info"  
1729
+        
1730
+        VIEW 170,2 TO 400,165, "View_About_Entry", "View_About_Info"
1731
+        //DRAW SET "BGColor", 255,255,255, "View_About_Entry"
1732
+        //draw set  "Bgcolor",0,0,0,"View_About_Entry"  
1733
+        //DRAW SET "HighColor",222,222,222,  "View_About_Entry"
1734
+        //Draw Set "lowColor",0,0,0, "View_About_Entry" 
1735
+        DRAW TEXT 10,30, ProgrammName$, "View_About_Entry"
1736
+        DRAW TEXT 10,50, "0.3.2/ 21.11.2018", "View_About_Entry"
1737
+        DRAW TEXT 10,70, "Alpha", "View_About_Entry"
1738
+        DRAW TEXT 10,90, "Lorglas", "View_About_Entry"
1739
+        
1740
+        //DRAW TEXT 10,110, "Lorglas, Lelldorin",  "View_About_Entry"
1741
+        TEXTURL 10,122, "email", "webmaster@besly.de", "webmaster@besly.de", "View_About_Entry"         
1742
+        TEXTURL 10,142, "website", "http://www.besly.de", "http://www.besly.de", "View_About_Entry"     
1743
+        BUTTON 150,200 TO 250,220, "AboutClose", "OK", "View_About_Info"
1744
+end sub
1745
+sub laufwerk_fuelle_RE(dir_re$)
1746
+                                
1747
+        s=instr(dir_re$,"/",2)  
1748
+        dir_RE$=mid$(dir_re$,0,s-1)     
1749
+        //print dir_RE$
1750
+        full_re$=system$(diskfree$+"-b "+dir_re$)
1751
+        dim platten_re$(1)
1752
+        pre = split(full_re$, platten_re$(), "\n")      
1753
+
1754
+        for DH_re = 1 to pre    
1755
+                DH_posname_re1=instr(platten_re$(DH_re),"(",0)                          
1756
+                DH_posname_re2=instr(platten_re$(DH_re),")",0)  
1757
+                        Laufwerk_re$=ltrim$(mid$(platten_re$(DH_re),DH_posname_re1+1,200))              
1758
+                Laufwerk_re$=left$(Laufwerk_re$,len(Laufwerk_re$)-8)                    
1759
+                if (DH_re = 1) then                             
1760
+                gesamt_re=val(Laufwerk_re$)                             
1761
+                elseif(DH_re=2) then    
1762
+                frei_re=val(Laufwerk_re$)                               
1763
+                endif   
1764
+        next DH_re                      
1765
+        //print gesamt_re       
1766
+        //print frei_re
1767
+        belegt_re=(frei_re*100)/gesamt_re       
1768
+        //print belegt_re       
1769
+        return belegt_re
1770
+end sub
1771
+sub laufwerk_fuelle_LI(dir_li$)
1772
+        local s                 
1773
+        s=instr(dir_li$,"/",2)  
1774
+        dir_LI$=mid$(dir_li$,0,s-1)     
1775
+        //print dir_RE$
1776
+        full_li$=system$(diskfree$+"-b "+dir_li$)
1777
+        dim platten_li$(1)
1778
+        pli = split(full_li$, platten_li$(), "\n")      
1779
+
1780
+        for DH_li = 1 to pli    
1781
+                DH_posname_li1=instr(platten_li$(DH_li),"(",0)                          
1782
+                DH_posname_li2=instr(platten_li$(DH_li),")",0)  
1783
+                        Laufwerk_li$=ltrim$(mid$(platten_li$(DH_li),DH_posname_li1+1,200))              
1784
+                Laufwerk_li$=left$(Laufwerk_li$,len(Laufwerk_li$)-8)                    
1785
+                if (DH_li = 1) then                             
1786
+                gesamt_li=val(Laufwerk_li$)                             
1787
+                elseif(DH_li=2) then    
1788
+                frei_li=val(Laufwerk_li$)                               
1789
+                endif   
1790
+        next DH_li                      
1791
+        //print gesamt_re       
1792
+        //print frei_re
1793
+        belegt_li=(frei_li*100)/gesamt_li       
1794
+        //print belegt_re       
1795
+        return belegt_li
1796
+end sub