Development of a program for automatic search for music and movies

[bplus]

yep! That worked! Good thinking, @bplus ! Your code finished in 4.66 seconds on my machine, simply building and sorting the array whereas Steve's took over 9 seconds to do it. Nice! See, in this case, with PowerShell, mine works faster because it is a huge directory. Mine wins against yours coming in at 3.15 seconds because the large process can be handled by PowerShell much quicker. Small folders, your code. Big folders, my code. I wish I had a way to figure out whether or not to use yours or mine in a program depending on the number of subdirectories..... Hmmm.... I could do a PowerShell call to return the number of subdirectories and if it was greater than 1000 then run mine. Less than, run yours

Well we'll see some better times I think when/if Steve can find still another fix for using the DirEntry.h method. I sure hope so because of cross platform potential but I bet we have some other issues to settle with Linux (at least) once we get Windows part working to it's full potential.

In meantime, what's 2-3 secs anyway? ;-))

[SpriggsySpriggs]

Well we'll see some better times I think when/if Steve can find still another fix for using the DirEntry.h method. I sure hope so because of cross platform potential but I bet we have some other issues to settle with Linux (at least) once we get Windows part working to it's full potential.

In meantime, what's 2-3 secs anyway? ;-))

Like I was telling Steve, PowerShell IS cross-platform now! I haven't had a chance to try it on Linux yet but I'll be sure to give it a whirl next week.

[bplus]

Like I was telling Steve, PowerShell IS cross-platform now! I haven't had a chance to try it on Linux yet but I'll be sure to give it a whirl next week.

Hey you have Linux? Do you have QB64 up and running in there?

[SpriggsySpriggs]

Hey you have Linux? Do you have QB64 up and running in there?

Yes, and yes, but it's a small laptop. It does, however, have a solid state drive so it might get good numbers.

[SpriggsySpriggs]

I get many failures trying to compile in Linux Ubuntu 18.04. Lots of "No such file or directory" Not sure how to get past that. Not a direntry issue, specifically. I'm not able to compile anything. Latest version of QB64 Linux from the website. Wait, I think I found the issue. Didn't run setup_lnx.sh. DURR!
Also, it looks like your ( @bplus ) program isn't displaying anything more than the first level of folders. It doesn't CHDIR to the next folder. Not sure if that is a Linux incompatibility with QB64. Trying Steve's next.... So I tried mine next and while I can use almost the exact same PowerShell command in Linux to get all directories (292 of them, so far), I can't get it to call PowerShell correctly from QB64. Not sure what the hang up is. So it seems like neither mine or bplus's code is compatible, just yet, which would probably mean that Steve's isn't either. I will check later this evening/tonight.

[bplus]

I know 2 things about Linux, it is case sensitive and it it is slash sensitive. I m sure we have been using the wrong slashes for it.

[SpriggsySpriggs]

@bplus But it does grab the first few directories from your program. So that can't be it. And my function for PowerShell works perfectly but not directly from QB64. This will take much investigation

[Petr]

Hi guys,

I did not sleep. I really continued to develop and I will continue to do so. I used BPlus' method to create a directory tree and then my own procedure to divide into file name / folder name. I am shocked, when found that even though the file on the disk is named track01.mp3, the listing will return it with the name from ID3 (I don't understand where DirEntry read it) but it is a valid file name, it is accessible for both QB64 and Windows Media Player. So the confusion is absolutely perfect :)

Here is another intermediate development stage, now with a known bug, the first file is not displayed in the file list (this happens during development). The program screen is a very rough preview of what I mean by that. At the top there will be icons for color settings, for print output settings and so on, in the right part of the screen there will be information read from files. For the scrolling speed, I set the condition in future version, that the file selection must take 0.3 seconds and only then the information for the file will be read.

Since last time, the program has gained for us a bit. It now creates a configuration INI file (which cannot be set otherwise yet), reads the locale code, and sets unicode characters relative to it. So you should all have legible file names in your national alphabet. What do we have next? Labels in the program. They will be adjustable according to your speech settings. The configuration already thinks about this setting. So instead of English labels you will be able to set any other, for example German, Italian and so on.

The current version does not retrieve any detailed information from the files, it only displays file names. The enter key starts the default player. There will be a lot of work to be done.

Code: QB64: [Select]

1. 'Tree builder recursive.bas  b+ Petr 2020-06-26  now with SMCNeill Fix!! add CHR$(0) to C string
2.  
3. $COLOR:32
4. _TITLE "Video and music detective V0.1 alpha"
5. DEFLNG A-Z
6. DECLARE CUSTOMTYPE LIBRARY ".\direntry"
7.     FUNCTION load_dir& (s AS STRING)
8.     FUNCTION has_next_entry& ()
9.     SUB close_dir ()
10.     SUB get_next_entry (s AS STRING, flags AS LONG, file_size AS LONG)
11. END DECLARE
12.  
13. REDIM SHARED Tree(0) AS STRING
14. REDIM mask(0) AS STRING
15. DIM SHARED ForegroundColor~&, BackgroundColor~&, UsedCOUNTRY AS STRING * 20
16. REDIM SHARED Label(0) AS STRING
17. mask$ = "AVI,MPG,MKV,MPG,MPEG,WAV,ACC,MP4,MP3,MP2,VOC,S3M,MOD,XM,TS,MOV,AC3,WMA,WMV,FLAC,M3U," '           on end must be comma!
18. ReturnMASK mask(), mask$
19. path$ = SelectDIR$
20. t = TIMER(0.001)
21. PRINT "Loading config..."
22. LoadINI SortStyle&, ViewStyle&
23. PRINT "Detecting country (for MAPUNICODE use)...";
24. IF WIN THEN COUNTRY = GetLCiD
25. PRINT "Dynamic Library output: "; COUNTRY
26. PRINT "Creating subdirectories + files list in "; path$
27. MakeTree path$
28. PRINT "Subdirectories + files list created in"; TIMER - t
29. PRINT "total records: "; UBOUND(tree) 'is match with real number files and folders
30.  
31. PRINT "Sorting files by mask:"
32.  
33. REDIM SHARED RealFiles(100) AS STRING
34. FOR m = LBOUND(mask) TO UBOUND(mask)
35.     FOR s = LBOUND(tree) TO UBOUND(tree)
36.         IF LCASE$(RIGHT$(Tree(s), 3)) = LCASE$(mask(m)) THEN
37.             RealFiles(RealCount) = Tree(s)
38.             RealCount = RealCount + 1
39.             IF RealCount > UBOUND(realfiles) THEN REDIM _PRESERVE RealFiles(RealCount + 100) AS STRING
40.         END IF
41.     NEXT s
42. NEXT m
43. REDIM _PRESERVE RealFiles(RealCount) AS STRING
44. PRINT "Valid files now writed to array RealFiles. Size: "; UBOUND(realfiles)
45. ERASE Tree
46. PRINT "Loading font arial.ttf..."
47. font = _LOADFONT("arial.ttf", 18, "bold")
48. my& = _NEWIMAGE(1920, 1080, 32)
49. _FONT font, my&
50. REDIM FileName(0) AS STRING
51. REDIM FolderName(0) AS STRING
52. PRINT "Sorting..."
53. SORT RealFiles(), SortStyle&
54. PRINT "Sort done, Separating name to file name, folder name and full path..."
55. SeparateFileName RealFiles(), FileName(), FolderName() 'RealFiles obsahuje plnou cestu k souboru.  FileName osahuje jen jmeno souboru. FolderName obsahuje jen jmeno prvniho nadrazeneho adresare. Indexy vsech se shoduji.
56. PRINT "Mapping characters by country..."
57.  
58. CountryA
59. SCREEN my&
60. _FULLSCREEN
61.  
62.  
63.  
64.  
65.  
66.  
67. DrawMyScreen ForegroundColor~&, BackgroundColor~& 'static draw
68. REDIM arr(0) AS STRING
69. CopyARR FileName(), arr()
70.  
71.  
72. '----------------------------------------------------------------------------------- file browsing init (now contains bug, first file in the list is not visible)
73. x = 25: Y = 120: Lenght = 112: Height = 40: NumDirs = 0: UseWheel = 1: first = 1
74. Lb = 0
75. Le = Lb + Height
76.  
77.  
78.  
79.  
80.  
81. DO UNTIL k$ = CHR$(27)
82.     ListColor& = Black '_RGB32(166, 244, 244)   nema ucinek
83.     InPosColor& = Red '_RGB32(67, 72, 238)
84.     DirColor& = Green '_RGB32(238, 22, 28)
85.  
86.     IF INSTR(1, _OS$, "WINDOWS") THEN sel$ = CHR$(92)
87.     IF INSTR(1, _OS$, "LINUX") THEN sel$ = "/"
88.     IF first = 0 THEN first = 1
89.  
90.     Up$ = CHR$(0) + CHR$(72)
91.     Dn$ = CHR$(0) + CHR$(80)
92.     PgUp$ = CHR$(0) + CHR$(73)
93.     PgDn$ = CHR$(0) + CHR$(81)
94.     Home$ = CHR$(0) + CHR$(71)
95.     End$ = CHR$(0) + CHR$(79)
96.     k$ = INKEY$
97.  
98.     oldposX = posX
99.     IF first = 1 THEN oldposX = -1 ': first = 0
100.  
101.  
102.     'mouse support ---
103.     WHILE _MOUSEINPUT
104.         MoX = _MOUSEX: MoY = _MOUSEY
105.         IF MoX > x AND MoX < x + ((Lenght + 4) * 8) AND MoY > Y AND MoY < Y + (Height * 20) + 40 THEN 'podle LINE
106.             Poloha = _CEIL((MoY - Y - 20) / 20) 'pro mys
107.             IF UseWheel THEN ' in function last parameter: 0 = use wheel, 1 = not use wheel
108.                 SELECT CASE SGN(_MOUSEWHEEL)
109.                     CASE -1: k$ = Up$
110.                     CASE 1: k$ = Dn$
111.                 END SELECT
112.  
113.             ELSE
114.  
115.  
116.                 IF Poloha < posX - Lb THEN k$ = Up$
117.                 IF Poloha > posX - Lb THEN k$ = Dn$
118.             END IF
119.             IF _MOUSEBUTTON(1) AND Poloha >= Lb AND Poloha <= Le THEN
120.                 IF MoX < (8 * Lenght) + x THEN K& = 13: _DELAY .1
121.  
122.             END IF
123.             IF _MOUSEBUTTON(1) AND MoX > (8 * Lenght) + x AND MoY < Y + 16 THEN 'mouse / up arrow
124.                 k$ = Up$
125.             END IF
126.             IF _MOUSEBUTTON(1) AND MoX > (8 * Lenght) + x AND MoY > Y + (Height * 20) + 24 THEN 'mouse / down arrow
127.                 k$ = Dn$
128.             END IF
129.         END IF
130.  
131.     WEND
132.  
133.     '------------------
134.  
135.  
136.     ' --- keyboard inputs
137.  
138.  
139.     SELECT CASE k$
140.         CASE IS = Up$: posX = posX - 1: GU = 1: GD = 0: act = 1 'marks: Go down disabled, go up enbabled, act = clear screen and print it again
141.         CASE IS = Dn$: posX = posX + 1: GU = 0: GD = 1: act = 1 'marks: Go down enabled, go up disabled
142.         CASE IS = End$: posX = UBOUND(arr) - 1: Le = UBOUND(arr): Lb = UBOUND(arr) - Height: act = 1
143.         CASE IS = Home$: posX = LBOUND(arr) + 1: Le = Height: Lb = LBOUND(arr): act = 1
144.         CASE IS = PgUp$: posX = posX - Height: Lb = Lb - Height: Le = Lb + Height: act = 1
145.         CASE IS = PgDn$: posX = posX + Height: Lb = Lb + Height: Le = Lb + Height: act = 1
146.  
147.  
148.         CASE IS = CHR$(13): command = posX
149.     END SELECT
150.     ' -------------------
151.  
152.     'if is link selected (not dir):
153.     IF UBOUND(arr) < 0 THEN PRINT "Invalid array size!!!": SLEEP 2: END
154.     'end of bug repair
155.  
156.     IF posX <= 0 THEN posX = 0 ': Lb = 0: Le = Lb + height
157.     IF posX > UBOUND(arr) THEN posX = UBOUND(arr)
158.     IF oldposX <> posX OR first THEN
159.         IF posX > Le AND GD THEN Lb = Lb + 1: Le = Le + 1
160.         IF GU AND posX < Lb THEN Lb = Lb - 1: Le = Le - 1
161.         textpos = 0
162.         IF Lb < LBOUND(arr) THEN Lb = LBOUND(arr)
163.  
164.         IF Lb > UBOUND(arr) - Height THEN Lb = UBOUND(arr) - Height
165.         IF Le > UBOUND(arr) THEN Le = UBOUND(arr)
166.         '   IF Le - Lb > height THEN Le = Lb + height
167.         REM     IF Lb > Le THEN EXIT FUNCTION
168.  
169.         IF first = 1 OR act THEN
170.             LINE (x + 1, Y + 1)-(x + 3 + (8 * Lenght) + 16, Y + 3 + (20 * Height) + 38), White, BF 'erase screen
171.             LINE (29, 1019)-(_WIDTH - 11, _HEIGHT - 11), White, BF
172.  
173.             rfs$ = RealFiles(posX)
174.             IF LEN(rfs$) > 200 THEN rfs$ = LEFT$(rfs$, 197) + "..."
175.             _PRINTSTRING (30, 1020), rfs$
176.  
177.             FOR V = Lb TO Le 'List Begin to List End
178.                 '  K& = _KEYHIT
179.  
180.                 textpos = textpos + 20 'row is 20 pixel height
181.                 IF V = posX THEN COLOR InPosColor&, ListColor&
182.                 text$ = arr(V)
183.                 IF LEN(text$) > Lenght - 20 THEN text$ = LEFT$(text$, Lenght - 20) + LTRIM$("...") ELSE text$ = text$ + SPACE$(Lenght - LEN(text$) - 1)
184.                 _PRINTSTRING (x + 10, Y + textpos), text$
185.                 COLOR ListColor&, Black '_RGB32(0, 0, 0)
186.  
187.  
188.                 possss = posX + 1
189.  
190.                 GOTO notthia
191.                 Posuvnik_V_Procentech! = (possss / UBOUND(arr))
192.  
193.                 '----------------------------------------------------------------------- extremne zpomaluje pri bezpodminecnem tisku
194.                 WindowHeight = (23 + Height * 20) - 40
195.                 OldGC = GC
196.                 GC = Y + WindowHeight * Posuvnik_V_Procentech!
197.  
198.                 COLOR Black '_RGB32(0, 0, 0)
199.                 _PRINTSTRING (x + 5 + Lenght * _PRINTWIDTH(STRING$(Lenght, "x")), OldGC + 22), CHR$(222)
200.                 COLOR Black '_RGB32(127, 127, 127)
201.                 _PRINTSTRING (x + 5 + Lenght * _FONTWIDTH, GC + 22), CHR$(222)
202.  
203.                 _PRINTSTRING (x + 5 + Lenght * _FONTWIDTH, Y + 7), CHR$(24)
204.                 _PRINTSTRING (x + 5 + Lenght * _FONTWIDTH, 3 + Y + 20 + Height * 20), CHR$(25)
205.                 '---------------------------------------------------------------------------
206.                 notthia:
207.             NEXT V
208.             act = 0
209.             k$ = ""
210.             first = 2
211.         END IF
212.  
213.     END IF
214.  
215.     LINE (x + 1, Y + 1)-(x + 3 + (8 * Lenght) + 16, Y + 3 + (20 * Height) + 38), , B
216.     LINE (x + 4, Y + 4)-(x + (8 * Lenght) + 16, Y + (20 * Height) + 38), , B
217.     Browse = posX
218.  
219.  
220.     IF command THEN
221.         SHELL _DONTWAIT RealFiles(command)
222.         _SCREENCLICK MoX, MoY 'aby okno bylo stale aktivni a neprebiral ho Windows media player (moznost toto nastavit)      For stay your program window still active
223.         command = 0
224.         _DELAY .3
225.     END IF
226.     _DISPLAY
227.     _LIMIT 100
228. LOOP
229.  
230.  
231.  
232. SUB DrawMyScreen (backgroundcolor~&, foregroundcolor~&)
233.     DIM B AS _UNSIGNED LONG, F AS _UNSIGNED LONG
234.     B = backgroundcolor~&
235.     F = foregroundcolor~&
236.     CLS , B
237.  
238.     LINE (10, 60)-(_WIDTH - 10, _HEIGHT - 10), F, B
239.     LINE (10, 60)-(_WIDTH / 2, _HEIGHT - 110), F, B
240.  
241.     'Labels. Labels in this program can be set to your own language, use SETUP icon in program for creating own language file. NOT IMPLANTED IN THIS ALPHA VERSION
242.     'index list:   (in english lng file)
243.     '0 = file list:
244.     '1 = file details:
245.     '2 = Full path to file:
246.  
247.     COLOR Black, White
248.     _PRINTMODE _KEEPBACKGROUND
249.     _PRINTSTRING (30, 80), Label(0) 'files list
250.     _PRINTSTRING (990, 80), Label(1) 'file details
251.     _PRINTSTRING (30, 990), Label(2) 'full path
252.  
253.  
254.  
255. END SUB
256.  
257.  
258.  
259.  
260.  
261.  
262.  
263.  
264. FUNCTION GetLCiD
265.     DECLARE DYNAMIC LIBRARY "Kernel32"
266.         FUNCTION GetUserDefaultLCID%
267.         FUNCTION GetSystemDefaultLangID%
268.         SUB GetTimeZoneInformation (a AS INTEGER)
269.     END DECLARE
270.     GetLCiD = GetUserDefaultLCID%
271.     IF GetUserDefaultLCID% = 0 AND GetSystemDefaultLangID% THEN GetLCiD = GetSystemDefaultLangID%
272.     IF GetUserDefaultLCID% = 0 AND GetSystemDefaultLangID% = 0 THEN GetLCiD = -1 'error finding LCID
273. END FUNCTION
274.  
275.  
276.  
277.  
278. SUB LoadINI (SortStyle&, ViewStyle&)
279.     ff = FREEFILE
280.  
281.     IF _FILEEXISTS("MaV.ini") THEN
282.         OPEN "MaV.ini" FOR BINARY AS ff
283.         GET ff, , SortStyle&
284.         GET ff, , ViewStyle&
285.         GET ff, , ForegroundColor~&
286.         GET ff, , BackgroundColor~&
287.         GET ff, , UsedCOUNTRY$
288.  
289.     ELSE
290.         OPEN "MaV.ini" FOR BINARY AS ff
291.         SortStyle& = 1
292.         ViewStyle& = 1
293.         PUT ff, , SortStyle&
294.         PUT ff, , ViewStyle&
295.         BackgroundColor~& = Black
296.         ForegroundColor~& = White
297.         PUT #ff, , ForegroundColor~&
298.         PUT #ff, , BackgroundColor~&
299.         UsedCOUNTRY$ = "english"
300.         PUT #ff, , UsedCOUNTRY$
301.     END IF
302.     CLOSE ff
303.     LoadNationalLabels "MaV-" + _TRIM$(UsedCOUNTRY$) + ".lng"
304.     REM  showarr Label()   'developing helper
305. END SUB
306.  
307.  
308.  
309. SUB showarr (s() AS STRING)
310.     FOR q = LBOUND(s) TO UBOUND(s)
311.         PRINT s(q)
312.         SLEEP
313.     NEXT
314. END SUB
315.  
316.  
317.  
318.  
319.  
320. SUB LoadNationalLabels (file AS STRING)
321.     IF _FILEEXISTS(file$) THEN
322.         ff = FREEFILE
323.         OPEN file$ FOR INPUT AS ff
324.         WHILE NOT EOF(ff)
325.             LINE INPUT #ff, Label$
326.             IF LEFT$(Label$, 2) <> "//" THEN
327.                 Label(i) = Label$
328.                 i = i + 1
329.                 REDIM _PRESERVE Label(i) AS STRING
330.             END IF
331.         WEND
332.     ELSE
333.         _AUTODISPLAY
334.         BEEP: PRINT file$; " - this language file not found. Starting in english!"
335.         SLEEP 2
336.         LoadNationalLabels "MaV-english.lng"
337.     END IF
338. END SUB
339.  
340.  
341.  
342.  
343.  
344.  
345. SUB SORT (arr() AS STRING, HOW AS _BYTE) ' If is HOW zero, sort descending, if is HOW <> 0, sort ascending (this is modified Eoredson method).
346.     DIM X AS LONG, Y AS LONG '
347.     U& = UBOUND(arr)
348.     DO UNTIL X = U&
349.         Y = X + 1
350.         DO UNTIL Y = U&
351.             IF HOW THEN
352.                 IF arr(X) > arr(Y) THEN SWAP arr(X), arr(Y)
353.             ELSE
354.                 IF arr(X) < arr(Y) THEN SWAP arr(X), arr(Y)
355.             END IF
356.             Y = Y + 1
357.         LOOP
358.         X = X + 1
359.     LOOP
360. END SUB
361.  
362. SUB ReturnMASK (mask() AS STRING, mask AS STRING)
363.     P = INSTR(mask$, ",")
364.     DO UNTIL P = 0
365.         f$ = MID$(mask$, 1, P - 1)
366.         mask$ = MID$(mask$, P + 1)
367.         REDIM _PRESERVE mask(i) AS STRING
368.         mask(i) = f$
369.         i = i + 1
370.         P = INSTR(mask$, ",")
371.     LOOP
372. END SUB
373.  
374. SUB SeparateFileName (SOURCEarr() AS STRING, DESTarrFileName() AS STRING, DESTarrFolderName() AS STRING) 'vse OK     (for case, when Folder name is album name and file name is soundtrack name)  Source is array with full path.
375.     $IF WIN THEN
376.         s$ = "\"
377.     $ELSE
378.         S$ = "/"
379.     $END IF
380.     REDIM DESTarrFileName(UBOUND(sourcearr)) AS STRING
381.     REDIM DESTarrFolderName(UBOUND(sourcearr)) AS STRING
382.     FOR sep = LBOUND(sourcearr) TO UBOUND(sourcearr)
383.         DESTarrFileName(sep) = MID$(SOURCEarr(sep), _INSTRREV(SOURCEarr(sep), s$) + 1, LEN(SOURCEarr(sep)) - _INSTRREV(SOURCEarr(sep), s$))
384.  
385.         '        PRINT "Full path: ";
386.         '        PRINT SOURCEarr(sep)
387.  
388.         '        PRINT "File name: ";
389.         '        PRINT DESTarrFileName(sep)
390.  
391.         Miss$ = LEFT$(SOURCEarr(sep), LEN(SOURCEarr(sep)) - 1 - LEN(DESTarrFileName(sep)))
392.         '        PRINT Miss$
393.         DESTarrFolderName(sep) = MID$(Miss$, _INSTRREV(Miss$, s$) + 1, LEN(Miss$) - _INSTRREV(Miss$, s$))
394.         '        PRINT "Folder name: ";
395.         '        PRINT DESTarrFolderName(sep)
396.         '        PRINT Miss(sep)
397.     NEXT
398. END SUB
399.  
400.  
401. FUNCTION SelectDIR$
402.     DECLARE CUSTOMTYPE LIBRARY
403.         FUNCTION FindWindow& (BYVAL ClassName AS _OFFSET, WindowName$)
404.     END DECLARE
405.     hwnd& = _WINDOWHANDLE
406.     TYPE BROWSEINFO '                    typedef struct _browseinfo 'Microsoft MSDN
407.         hwndOwner AS _OFFSET '           HWND
408.         pidlRoot AS _OFFSET '            PCIDLIST_ABSOLUTE
409.         pszDisplayName AS _OFFSET '      LPTSTR
410.         lpszTitle AS _OFFSET '           LPCTSTR
411.         ulFlags AS _UNSIGNED LONG '      UINT
412.         lpfn AS _OFFSET '                BFFCALLBACK
413.         lParam AS _OFFSET '              LPARAM
414.         iImage AS LONG '                 int
415.     END TYPE '                           BROWSEINFO, *PBROWSEINFO, *LPBROWSEINFO;
416.  
417.     DECLARE DYNAMIC LIBRARY "shell32"
418.         FUNCTION SHBrowseForFolder%& (x AS BROWSEINFO) '                           Microsoft MSDN
419.         SUB SHGetPathFromIDList (BYVAL lpItem AS _OFFSET, BYVAL szDir AS _OFFSET) 'Microsoft MSDN
420.     END DECLARE
421.  
422.     DIM b AS BROWSEINFO
423.     b.hwndOwner = hwnd
424.     DIM s AS STRING * 1024
425.     b.pszDisplayName = _OFFSET(s$)
426.     a$ = "Select folder for searching movies and music:" + CHR$(0)
427.     b.lpszTitle = _OFFSET(a$)
428.     DIM o AS _OFFSET
429.     '    _SCREENHIDE
430.     o = SHBrowseForFolder(b)
431.     '    _SCREENSHOW
432.     IF o THEN
433.         '   Path$ = LEFT$(s$, INSTR(s$, CHR$(0)) - 1)
434.         DIM s2 AS STRING * 1024
435.         SHGetPathFromIDList o, _OFFSET(s2$)
436.         SelectDIR$ = LEFT$(s2$, INSTR(s2$, CHR$(0)) - 1)
437.     ELSE
438.         PRINT "Directory not selected, using current directory"
439.         SelectDIR$ = _CWD$
440.     END IF
441. END FUNCTION
442.  
443.  
444. SUB sAppend (arr() AS STRING, addItem$)
445.     REDIM _PRESERVE arr(LBOUND(arr) TO UBOUND(arr) + 1) AS STRING
446.     arr(UBOUND(arr)) = addItem$
447. END SUB
448.  
449. SUB GetSubDirs (SearchDirectory AS STRING, DirList() AS STRING)
450.     CONST IS_DIR = 1
451.     DIM flags AS LONG, file_size AS LONG, length, nam$
452.     IF load_dir(SearchDirectory + CHR$(0)) THEN 'Steve's fix here with CHR$(0) for C call
453.         DO
454.             length = has_next_entry
455.             IF length > -1 THEN
456.                 nam$ = SPACE$(length)
457.                 get_next_entry nam$, flags, file_size
458.                 IF nam$ <> "." AND nam$ <> ".." THEN
459.                     'IF _DIREXISTS(SearchDirectory + "\" + nam$) THEN
460.                     DirCount = DirCount + 1
461.                     IF DirCount > UBOUND(DirList) THEN REDIM _PRESERVE DirList(UBOUND(DirList) + 100)
462.                     DirList(DirCount) = SearchDirectory + "\" + nam$
463.                     'END IF
464.                 END IF
465.             END IF
466.         LOOP UNTIL length = -1
467.     END IF
468.     close_dir 'Steve first fix that got navigator working
469.     REDIM _PRESERVE DirList(DirCount)
470. END SUB
471.  
472. SUB MakeTree (startDir AS STRING)
473.     copyStart$ = startDir
474.     REDIM D(100) AS STRING
475.     GetSubDirs copyStart$, D()
476.     FOR i = 1 TO UBOUND(D)
477.         sAppend Tree(), D(i)
478.         MakeTree D(i)
479.     NEXT
480. END SUB
481.  
482.  
483. 'nation.bm   my FIRST attempt for INTERNATIONAL QB64 language support.
484. 'function find code page need for correct text show on screen and set (if is right font used) unicode characters.
485.  
486.  
487.  
488. SUB CountryA
489.     IF WIN THEN
490.         SHELL _HIDE "powershell get-culture > nation.txt"
491.         IF _FILEEXISTS("nation.txt") THEN
492.             c = FREEFILE
493.             OPEN "nation.txt" FOR BINARY AS #c
494.             LINE$ = SPACE$(LOF(c))
495.             GET #c, , LINE$
496.             REM            IF lin = 4 THEN LCID_DECIMAL = VAL(LEFT$(LINE$, 4)): EXIT DO
497.             CLOSE c
498.  
499.  
500.             FOR numbers = 1 TO LEN(LINE$)
501.                 char = ASC(LINE$, numbers)
502.                 IF char >= 47 AND char <= 58 THEN nr$ = nr$ + CHR$(char)
503.             NEXT
504.  
505.             LCID_DECIMAL = VAL(nr$)
506.  
507.             PRINT "Alpha version developing: CountryA PowerShell output is: "; LCID_DECIMAL
508.  
509.         ELSE
510.             'try find with dynamic library:
511.             LCID_DECIMAL = GetLCiD
512.  
513.         END IF
514.     ELSE 'LINUX
515.         SHELL _HIDE ("echo $LANG |cut -c1,2,4,5 > nation.txt")
516.         ch = FREEFILE
517.         OPEN "nation.txt" FOR INPUT AS ch
518.         LINE INPUT #ch, nation$
519.         CLOSE ch
520.     END IF
521.  
522.     IF WIN THEN
523.         SELECT CASE LCID_DECIMAL
524.             '        language               code page
525.             REM        CASE 0: lang$ = "English"
526.             CASE 1078: lang$ = "Afrikaans": CP = 1252
527.             CASE 1052: lang$ = "Albanian": CP = 1250
528.             CASE 1118: lang$ = "Amharic": 'CP unknown
529.             CASE 5121: lang$ = "Arabic - Algeria": CP = 1401: CPW = 1256
530.             CASE 15361: lang$ = "Arabic - Bahrain": CP = 1256
531.             CASE 3073: lang$ = "Arabic - Egypt": CP = 1256
532.             CASE 2049: lang$ = "Arabic - Iraq": CP = 801: CPW = 1256
533.             CASE 11265: lang$ = "Arabic - Jordan": CP = 1256
534.             CASE 13313: lang$ = "Arabic - Kuwait": CP = 3401: CPW = 1256
535.             CASE 12289: lang$ = "Arabic - Lebanon": CP = 3001: CPW = 1256
536.             CASE 4097: lang$ = "Arabic - Libya": CP = 1001: CPW = 1256
537.             CASE 6145: lang$ = "Arabic - Morocco": CP = 1801: CPW = 1256
538.             CASE 8193: lang$ = "Arabic - Oman": CP = 2001: CP2 = 1256
539.             CASE 16385: lang$ = "Arabic - Qatar": CP = 4001: CP2 = 1256
540.             CASE 1025: lang$ = "Arabic - Saudi Arabia": CP = 401: CP2 = 1256
541.             CASE 10241: lang$ = "Arabic - Syria": CP = 2801: CP2 = 1256
542.             CASE 7169: lang$ = "Arabic - Tunisia": CP = 1256
543.             CASE 14337: lang$ = "Arabic - United Arab Emirates": CP = 3801: CP2 = 1256
544.             CASE 9217: lang$ = "Arabic - Yemen": CP = 2401: CP2 = 1256
545.             CASE 1067: lang$ = "Armenian" 'CP unknown
546.             CASE 1101: lang$ = "Assamese" 'CP uunknown
547.             CASE 2092: lang$ = "Azeri - Cyrillic": CP = 1251
548.             CASE 1068: lang$ = "Azeri - Latin": CP = 1254
549.             CASE 1069: lang$ = "Basque": CP = 1252
550.             CASE 1059: lang$ = "Belarusian": CP = 423: CP2 = 1251
551.             CASE 2117: lang$ = "Bengali - Bangladesh": CP = 2117: CP2 = 845
552.             CASE 1093: lang$ = "Bengali - India": CP = 445
553.             CASE 5146: lang$ = "Bosnian" 'CP unknown
554.             CASE 1026: lang$ = "Bulgarian": CP = 402: CP2 = 1251
555.             CASE 1109: lang$ = "Burmese": CP = 455
556.             CASE 1027: lang$ = "Catalan": CP = 403: CP2 = 1252
557.             CASE 2052: lang$ = "Chinese - China": CP = 804
558.             CASE 3076: lang$ = "Chinese - Hong Kong": 'CP unknown
559.             CASE 5124: lang$ = "Chinese - Macau": CP = 1404
560.             CASE 4100: lang$ = "Chinese - Singapore": CP = 1004
561.             CASE 1028: lang$ = "Chinese - Taiwan": CP = 404
562.             CASE 1050: lang$ = "Croatian": CP = 1250
563.             CASE 1029: lang$ = "Czech": CP = 405: CP2 = 1250
564.             CASE 1030: lang$ = "Danish": CP = 406: CP2 = 1252
565.                 'Divehi  Dhivehi Maldivian   dv  dv unknown code and CP
566.             CASE 2067: lang$ = "Dutch - Belgium": CP = 813: CP2 = 1252
567.             CASE 1043: lang$ = "Dutch - Netherlands": CP = 413: CP2 = 1252
568.             CASE 1126: lang$ = "Edo": CP = 466
569.             CASE 3081: lang$ = "English - Australia": CP = 1252
570.             CASE 10249: lang$ = "English - Belize": CP = 2809: CP2 = 1252
571.             CASE 4105: lang$ = "English - Canada": CP = 1009: CP2 = 1252
572.             CASE 9225: lang$ = "English - Caribbean": CP = 2409: CP2 = 1252
573.             CASE 2057: lang$ = "English - Great Britain": CP = 809: CP2 = 1252
574.             CASE 16393: lang$ = "English - India": CP = 4009
575.             CASE 6153: lang$ = "English - Ireland": CP = 1809: CP2 = 1252
576.             CASE 8201: lang$ = "English - Jamaica": CP = 2009: CP2 = 1252
577.             CASE 5129: lang$ = "English - New Zealand": CP = 1409: CP2 = 1252
578.             CASE 13321: lang$ = "English - Phillippines": CP = 3409: CP2 = 1252
579.             CASE 7177: lang$ = "English - Southern Africa": CP = 1252
580.             CASE 11273: lang$ = "English - Trinidad": CP = 1252
581.             CASE 1033: lang$ = "English - United States": CP = 409: CP2 = 1252
582.             CASE 12297: lang$ = "English - Zimbabwe": CP = 3009: CP2 = 1252
583.             CASE 1061: lang$ = "Estonian": CP = 425: CP2 = 1257
584.             CASE 1071: lang$ = "FYRO Macedonia": CP = 1251
585.             CASE 1080: lang$ = "Faroese": CP = 438: CP2 = 1252
586.             CASE 1065: lang$ = "Farsi - Persian": CP = 429: CP2 = 1256
587.             CASE 1124: lang$ = "Filipino": CP = 464
588.             CASE 1035: lang$ = "Finnish": CP = 1252
589.             CASE 2060: lang$ = "French - Belgium": CP = 1252
590.             CASE 11276: lang$ = "French - Cameron": 'unknown CP
591.             CASE 3084: lang$ = "French - Canada": CP = 1252
592.             CASE 9228: lang$ = "French - Congo": 'unknown CP
593.             CASE 12300: lang$ = "French - Cote d'Ivoire" 'unknown CP
594.             CASE 1036: lang$ = "French - France": CP = 1252
595.             CASE 5132: lang$ = "French - Luxembourg": CP = 1252
596.             CASE 13324: lang$ = "French - Mali" 'unknown CP
597.             CASE 6156: lang$ = "French - Monaco": CP = 1252
598.             CASE 14348: lang$ = "French - Morocco" 'cp unknown
599.             CASE 10252: lang$ = "French - Senegal" 'cp unknown
600.             CASE 4108: lang$ = "French - Switzerland": CP = 1252
601.             CASE 7180: lang$ = "French - West Indies" 'CP unknown
602.             CASE 1122: lang$ = "Frisian - Netherlands": CP = 462
603.             CASE 2108: lang$ = "Gaelic - Ireland" 'CP unknown
604.             CASE 1084: lang$ = "Gaelic - Scotland" 'CP unknown
605.             CASE 1110: lang$ = "Galician": CP = 456: CP2 = 1252
606.             CASE 1079: lang$ = "Georgian": CP = 437
607.             CASE 3079: lang$ = "German - Austria": CP = 1252
608.             CASE 1031: lang$ = "German - Germany": CP = 407: CP2 = 1252
609.             CASE 5127: lang$ = "German - Liechtenstein": CP = 1407: CP2 = 1252
610.             CASE 4103: lang$ = "German - Luxembourg": CP = 1007: CP2 = 1252
611.             CASE 2055: lang$ = "German - Switzerland": CP = 807: CP2 = 1252
612.             CASE 1032: lang$ = "Greek": CP = 408: CP2 = 1253
613.             CASE 1140: lang$ = "Guarani - Paraguay": CP = 474
614.             CASE 1095: lang$ = "Gujarati": CP = 447
615.             CASE 1279: lang$ = "HID (Human Interface Device)": CP = -1
616.             CASE 1037: lang$ = "Hebrew": CP = 1255
617.             CASE 1081: lang$ = "Hindi": CP = 439
618.             CASE 1038: lang$ = "Hungarian": CP = 1250
619.             CASE 1039: lang$ = "Icelandic": CP = 1252
620.             CASE 1136: lang$ = "Igbo - Nigeria": CP = 470
621.             CASE 1057: lang$ = "Indonesian": CP = 421: CP2 = 1252
622.             CASE 1040: lang$ = "Italian - Italy": CP = 410: CP2 = 1252
623.             CASE 2064: lang$ = "Italian - Switzerland": CP = 810: CP2 = 1252
624.             CASE 1041: lang$ = "Japanese ": CP = 411
625.             CASE 1099: lang$ = "Kannada" ' CP unknown
626.             CASE 1120: lang$ = "Kashmiri": CP = 460
627.             CASE 1087: lang$ = "Kazakh": CP = 1251
628.             CASE 1107: lang$ = "Khmer": CP = 453
629.             CASE 1111: lang$ = "Konkani": CP = 457
630.             CASE 1042: lang$ = "Korean": CP = 412
631.             CASE 1088: lang$ = "Kyrgyz - Cyrillic": CP = 440: CP2 = 1251
632.             CASE 1108: lang$ = "Lao": CP = 454
633.             CASE 1142: lang$ = "Latin": CP = 476
634.             CASE 1062: lang$ = "Latvian": CP = 426: CP2 = 1257
635.             CASE 1063: lang$ = "Lithuanian": CP = 427: CP2 = 1257
636.             CASE 2110: lang$ = "Malay - Brunei": CP = 1252
637.             CASE 1086: lang$ = "Malay - Malaysia": CP = 1252
638.             CASE 1100: lang$ = "Malayalam" 'unknown CP
639.             CASE 1082: lang$ = "Maltese" 'unknown CP
640.             CASE 1112: lang$ = "Manipuri": CP = 458
641.             CASE 1153: lang$ = "Maori": CP = 481
642.             CASE 1102: lang$ = "Marathi" 'unknown CP
643.             CASE 2128: lang$ = "Mongolian": CP = 850
644.             CASE 1104: lang$ = "Mongolian": CP = 450: CP2 = 1251
645.             CASE 1121: lang$ = "Nepali": CP = 461
646.             CASE 1044: lang$ = "Norwegian - Bokml": CP = 414: CP2 = 1252
647.             CASE 2068: lang$ = "Norwegian - Nynorsk": CP = 814: CP2 = 1252
648.             CASE 1096: lang$ = "Oriya": CP = 448
649.             CASE 1045: lang$ = "Polish": CP = 415: CP2 = 1250
650.             CASE 1046: lang$ = "Portuguese - Brazil": CP = 416: CP2 = 1252
651.             CASE 2070: lang$ = "Portuguese - Portugal": CP = 816: CP2 = 1252
652.             CASE 1094: lang$ = "Punjabi": CP = 446
653.             CASE 1047: lang$ = "Raeto-Romance": CP = 417
654.             CASE 2072: lang$ = "Romanian - Moldova": CP = 818
655.             CASE 1048: lang$ = "Romanian - Romania": CP = 418: CP2 = 1250
656.             CASE 1049: lang$ = "Russian": CP = 419: CP2 = 1251
657.             CASE 2073: lang$ = "Russian - Moldova": CP = 2073: CP2 = 819
658.             CASE 1083: lang$ = "Sami Lappish" 'CP unknown
659.             CASE 1103: lang$ = "Sanskrit" 'CP unknown
660.             CASE 3098: lang$ = "Serbian - Cyrillic": CP = 1251
661.             CASE 2074: lang$ = "Serbian - Latin": CP = 1250
662.             CASE 1072: lang$ = "Sesotho (Sutu)": CP = 430
663.             CASE 1074: lang$ = "Setsuana": CP = 432
664.             CASE 1113: lang$ = "Sindhi": CP = 459
665.             CASE 1115: lang$ = "Sinhala Sinhalese" ' cp unknown
666.             CASE 1051: lang$ = "Slovak": CP = 1250
667.             CASE 1060: lang$ = "Slovenian": CP = 424: CP2 = 1250
668.             CASE 1143: lang$ = "Somali": CP = 477
669.             CASE 1070: lang$ = "Sorbian" 'unknown CP
670.             CASE 11274: lang$ = "Spanish - Argentina": CP = 1252
671.             CASE 16394: lang$ = "Spanish - Bolivia": CP = 1252
672.             CASE 13322: lang$ = "Spanish - Chile": CP = 1252
673.             CASE 9226: lang$ = "Spanish - Colombia": CP = 1252
674.             CASE 5130: lang$ = "Spanish - Costa Rica": CP = 1252
675.             CASE 7178: lang$ = "Spanish - Dominican Republic": CP = 1252
676.             CASE 12298: lang$ = "Spanish - Ecuador": CP = 1252
677.             CASE 17418: lang$ = "Spanish - El Salvador": CP = 1252
678.             CASE 4106: lang$ = "Spanish - Guatemala": CP = 1252
679.             CASE 18442: lang$ = "Spanish - Honduras": CP = 1252
680.             CASE 2058: lang$ = "Spanish - Mexico": CP = 1252
681.             CASE 19466: lang$ = "Spanish - Nicaragua": CP = 1252
682.             CASE 6154: lang$ = "Spanish - Panama": CP = 1252
683.             CASE 15370: lang$ = "Spanish - Paraguay": CP = 1252
684.             CASE 10250: lang$ = "Spanish - Peru": CP = 1252
685.             CASE 20490: lang$ = "Spanish - Puerto Rico": CP = 1252
686.             CASE 1034: lang$ = "Spanish - Spain (Traditional)": CP = 1252
687.             CASE 14346: lang$ = "Spanish - Uruguay": CP = 1252
688.             CASE 8202: lang$ = "Spanish - Venezuela": CP = 1252
689.             CASE 1089: lang$ = "Swahili": CP = 441: CP2 = 1252
690.             CASE 2077: lang$ = "Swedish - Finland": CP = 1252
691.             CASE 1053: lang$ = "Swedish - Sweden": CP = 1252
692.             CASE 1114: lang$ = "Syriac" 'unknown CP
693.             CASE 1064: lang$ = "Tajik": CP = 428
694.             CASE 1097: lang$ = "Tamil": CP = 449
695.             CASE 1092: lang$ = "Tatar": CP = 444: CP2 = 1251
696.             CASE 1098: lang$ = "Telugu" 'CP unknown
697.             CASE 1054: lang$ = "Thai" 'CP unkown
698.             CASE 1105: lang$ = "Tibetan": CP = 451
699.             CASE 1073: lang$ = "Tsonga": CP = 431
700.             CASE 1055: lang$ = "Turkish": CP = 1254
701.             CASE 1090: lang$ = "Turkmen": CP = 442
702.             CASE 1058: lang$ = "Ukrainian": CP = 422: CP2 = 1251
703.             CASE 8: lang$ = "Unicode": CP = -2 '    UTF-8
704.             CASE 1056: lang$ = "Urdu": CP = 420: CP2 = 1256
705.             CASE 2115: lang$ = "Uzbek - Cyrillic": CP = 843: CP2 = 1251
706.             CASE 1091: lang$ = "Uzbek - Latin": CP = 443: CP2 = 1254
707.             CASE 1075: lang$ = "Venda": CP = 433
708.             CASE 1066: lang$ = "Vietnamese": CP = 1258
709.             CASE 1106: lang$ = "Welsh": CP = 452
710.             CASE 1076: lang$ = "Xhosa": CP = 434
711.             CASE 1085: lang$ = "Yiddish" 'unknown CP
712.             CASE 1077: lang$ = "Zulu": CP = 435
713.         END SELECT
714.     ELSE
715.         SELECT CASE LCASE$(nation$) '                     without warranty! Here are NOT all countries!
716.             CASE "af": lang$ = "Afrikaans": CP = 1252
717.             CASE "sq": lang$ = "Albanian": CP = 1250
718.             CASE "am": lang$ = "Amharic": 'CP unknown
719.             CASE "ardz": lang$ = "Arabic - Algeria": CP = 1401: CPW = 1256
720.             CASE "arbh": lang$ = "Arabic - Bahrain": CP = 1256
721.             CASE "areg": lang$ = "Arabic - Egypt": CP = 1256
722.             CASE "ariq": lang$ = "Arabic - Iraq": CP = 801: CPW = 1256
723.             CASE "arjo": lang$ = "Arabic - Jordan": CP = 1256
724.             CASE "arkw": lang$ = "Arabic - Kuwait": CP = 3401: CPW = 1256
725.             CASE "arlb": lang$ = "Arabic - Lebanon": CP = 3001: CPW = 1256
726.             CASE "arly": lang$ = "Arabic - Libya": CP = 1001: CPW = 1256
727.             CASE "arma": lang$ = "Arabic - Morocco": CP = 1801: CPW = 1256
728.             CASE "arom": lang$ = "Arabic - Oman": CP = 2001: CP2 = 1256
729.             CASE "arqa": lang$ = "Arabic - Qatar": CP = 4001: CP2 = 1256
730.             CASE "arsa": lang$ = "Arabic - Saudi Arabia": CP = 401: CP2 = 1256
731.             CASE "arsy": lang$ = "Arabic - Syria": CP = 2801: CP2 = 1256
732.             CASE "artn": lang$ = "Arabic - Tunisia": CP = 1256
733.             CASE "arae": lang$ = "Arabic - United Arab Emirates": CP = 3801: CP2 = 1256
734.             CASE "arye": lang$ = "Arabic - Yemen": CP = 2401: CP2 = 1256
735.             CASE "hy": lang$ = "Armenian" 'CP unknown
736.             CASE "as": lang$ = "Assamese" 'CP uunknown
737.             CASE "asaz": lang$ = "Azeri - Cyrillic": CP = 1251
738.             CASE "asaz": lang$ = "Azeri - Latin": CP = 1254
739.             CASE "eu": lang$ = "Basque": CP = 1252
740.             CASE "be": lang$ = "Belarusian": CP = 423: CP2 = 1251
741.             CASE "bn": lang$ = "Bengali - Bangladesh": CP = 2117: CP2 = 845
742.             CASE "bn": lang$ = "Bengali - India": CP = 445
743.             CASE "bs": lang$ = "Bosnian" 'CP unknown
744.             CASE "bg": lang$ = "Bulgarian": CP = 402: CP2 = 1251
745.             CASE "my": lang$ = "Burmese": CP = 455
746.             CASE "ca": lang$ = "Catalan": CP = 403: CP2 = 1252
747.             CASE "zhcn": lang$ = "Chinese - China": CP = 804
748.             CASE "zhhk": lang$ = "Chinese - Hong Kong": 'CP unknown
749.             CASE "zhmo": lang$ = "Chinese - Macau": CP = 1404
750.             CASE "zhsg": lang$ = "Chinese - Singapore": CP = 1004
751.             CASE "zhtw": lang$ = "Chinese - Taiwan": CP = 404
752.             CASE "hr": lang$ = "Croatian": CP = 1250
753.             CASE "cscz": lang$ = "Czech": CP = 405: CP2 = 1250
754.             CASE "da": lang$ = "Danish": CP = 406: CP2 = 1252
755.                 'Divehi  Dhivehi Maldivian   dv  dv unknown code and CP
756.             CASE "nlbe": lang$ = "Dutch - Belgium": CP = 813: CP2 = 1252
757.             CASE "nlnl": lang$ = "Dutch - Netherlands": CP = 413: CP2 = 1252
758.             CASE "": lang$ = "Edo": CP = 466
759.             CASE "enau": lang$ = "English - Australia": CP = 1252
760.             CASE "enbz": lang$ = "English - Belize": CP = 2809: CP2 = 1252
761.             CASE "enca": lang$ = "English - Canada": CP = 1009: CP2 = 1252
762.             CASE "encb": lang$ = "English - Caribbean": CP = 2409: CP2 = 1252
763.             CASE "engb": lang$ = "English - Great Britain": CP = 809: CP2 = 1252
764.             CASE "enin": lang$ = "English - India": CP = 4009
765.             CASE "enie": lang$ = "English - Ireland": CP = 1809: CP2 = 1252
766.             CASE "enjm": lang$ = "English - Jamaica": CP = 2009: CP2 = 1252
767.             CASE "ennz": lang$ = "English - New Zealand": CP = 1409: CP2 = 1252
768.             CASE "enph": lang$ = "English - Phillippines": CP = 3409: CP2 = 1252
769.             CASE "enza": lang$ = "English - Southern Africa": CP = 1252
770.             CASE "entt": lang$ = "English - Trinidad": CP = 1252
771.             CASE "enus": lang$ = "English - United States": CP = 409: CP2 = 1252
772.             CASE "": lang$ = "English - Zimbabwe": CP = 3009: CP2 = 1252
773.             CASE "et": lang$ = "Estonian": CP = 425: CP2 = 1257
774.             CASE "fo": lang$ = "Faroese": CP = 438: CP2 = 1252
775.             CASE "fa": lang$ = "Farsi - Persian": CP = 429: CP2 = 1256
776.             CASE "": lang$ = "Filipino": CP = 464
777.             CASE "fi": lang$ = "Finnish": CP = 1252
778.             CASE "frbe", "frca", "frfr", "frlu", "frch": lang$ = "French": CP = 1252
779.             CASE "mk": lang$ = "FYRO Macedonia": CP = 1251
780.             CASE "gdie": lang$ = "Gaelic - Ireland" 'CP unknown
781.             CASE "gd": lang$ = "Gaelic - Scotland" 'CP unknown
782.             CASE "gl": lang$ = "Galician": CP = 456: CP2 = 1252
783.             CASE "ka": lang$ = "Georgian": CP = 437
784.             CASE "deat", "dede", "deli", "delu", "dech": lang$ = "German": CP = 1252
785.             CASE "el": lang$ = "Greek": CP = 408: CP2 = 1253
786.             CASE "gn": lang$ = "Guarani - Paraguay": CP = 474
787.             CASE "gu": lang$ = "Gujarati": CP = 447
788.             CASE "he": lang$ = "Hebrew": CP = 1255
789.             CASE "hi": lang$ = "Hindi": CP = 439
790.             CASE "hu": lang$ = "Hungarian": CP = 1250
791.             CASE "is": lang$ = "Icelandic": CP = 1252
792.             CASE "id": lang$ = "Indonesian": CP = 421: CP2 = 1252
793.             CASE "itit": lang$ = "Italian - Italy": CP = 410: CP2 = 1252
794.             CASE "itch": lang$ = "Italian - Switzerland": CP = 810: CP2 = 1252
795.             CASE "ja": lang$ = "Japanese ": CP = 411
796.             CASE "kn": lang$ = "Kannada" ' CP unknown
797.             CASE "ks": lang$ = "Kashmiri": CP = 460
798.             CASE "kk": lang$ = "Kazakh": CP = 1251
799.             CASE "km": lang$ = "Khmer": CP = 453
800.             CASE "ko": lang$ = "Korean": CP = 412
801.             CASE "lo": lang$ = "Lao": CP = 454
802.             CASE "la": lang$ = "Latin": CP = 476
803.             CASE "lv": lang$ = "Latvian": CP = 426: CP2 = 1257
804.             CASE "lt": lang$ = "Lithuanian": CP = 427: CP2 = 1257
805.             CASE "msbn": lang$ = "Malay - Brunei": CP = 1252
806.             CASE "msmy": lang$ = "Malay - Malaysia": CP = 1252
807.             CASE "ml": lang$ = "Malayalam" 'unknown CP
808.             CASE "mt": lang$ = "Maltese" 'unknown CP
809.             CASE "mi": lang$ = "Maori": CP = 481
810.             CASE "mr": lang$ = "Marathi" 'unknown CP
811.             CASE "mn": lang$ = "Mongolian": CP = 450: CP2 = 1251
812.             CASE "ne": lang$ = "Nepali": CP = 461
813.             CASE "nono": lang$ = "Norwegian - Bokml": CP = 414: CP2 = 1252
814.             CASE "or": lang$ = "Oriya": CP = 448
815.             CASE "pl": lang$ = "Polish": CP = 415: CP2 = 1250
816.             CASE "ptbr": lang$ = "Portuguese - Brazil": CP = 416: CP2 = 1252
817.             CASE "ptpt": lang$ = "Portuguese - Portugal": CP = 816: CP2 = 1252
818.             CASE "pa": lang$ = "Punjabi": CP = 446
819.             CASE "rm": lang$ = "Raeto-Romance": CP = 417
820.             CASE "romo": lang$ = "Romanian - Moldova": CP = 818
821.             CASE "ro": lang$ = "Romanian - Romania": CP = 418: CP2 = 1250
822.             CASE "ru": lang$ = "Russian": CP = 419: CP2 = 1251
823.             CASE "rumo": lang$ = "Russian - Moldova": CP = 2073: CP2 = 819
824.             CASE "sa": lang$ = "Sanskrit" 'CP unknown
825.             CASE "srsp": lang$ = "Serbian - Cyrillic": CP = 1251
826.             CASE "tn": lang$ = "Setsuana": CP = 432
827.             CASE "sd": lang$ = "Sindhi": CP = 459
828.             CASE "si": lang$ = "Sinhala Sinhalese" ' cp unknown
829.             CASE "sk": lang$ = "Slovak": CP = 1250
830.             CASE "sl": lang$ = "Slovenian": CP = 424: CP2 = 1250
831.             CASE "so": lang$ = "Somali": CP = 477
832.             CASE "sb": lang$ = "Sorbian" 'unknown CP
833.             CASE "esar": lang$ = "Spanish - Argentina": CP = 1252
834.             CASE "esbo": lang$ = "Spanish - Bolivia": CP = 1252
835.             CASE "escl": lang$ = "Spanish - Chile": CP = 1252
836.             CASE "esco": lang$ = "Spanish - Colombia": CP = 1252
837.             CASE "escr": lang$ = "Spanish - Costa Rica": CP = 1252
838.             CASE "esdo": lang$ = "Spanish - Dominican Republic": CP = 1252
839.             CASE "esec": lang$ = "Spanish - Ecuador": CP = 1252
840.             CASE "essv": lang$ = "Spanish - El Salvador": CP = 1252
841.             CASE "esgt": lang$ = "Spanish - Guatemala": CP = 1252
842.             CASE "eshn": lang$ = "Spanish - Honduras": CP = 1252
843.             CASE "esmx": lang$ = "Spanish - Mexico": CP = 1252
844.             CASE "esni": lang$ = "Spanish - Nicaragua": CP = 1252
845.             CASE "espa": lang$ = "Spanish - Panama": CP = 1252
846.             CASE "espy": lang$ = "Spanish - Paraguay": CP = 1252
847.             CASE "espe": lang$ = "Spanish - Peru": CP = 1252
848.             CASE "espr": lang$ = "Spanish - Puerto Rico": CP = 1252
849.             CASE "eses": lang$ = "Spanish - Spain (Traditional)": CP = 1252
850.             CASE "esuy": lang$ = "Spanish - Uruguay": CP = 1252
851.             CASE "esve": lang$ = "Spanish - Venezuela": CP = 1252
852.             CASE "sw": lang$ = "Swahili": CP = 441: CP2 = 1252
853.             CASE "swfi": lang$ = "Swedish - Finland": CP = 1252
854.             CASE "svse": lang$ = "Swedish - Sweden": CP = 1252
855.             CASE "tg": lang$ = "Tajik": CP = 428
856.             CASE "ta": lang$ = "Tamil": CP = 449
857.             CASE "tr": lang$ = "Tatar": CP = 444: CP2 = 1251
858.             CASE "te": lang$ = "Telugu" 'CP unknown
859.             CASE "th": lang$ = "Thai" 'CP unkown
860.             CASE "bo": lang$ = "Tibetan": CP = 451
861.             CASE "ts": lang$ = "Tsonga": CP = 431
862.             CASE "tr": lang$ = "Turkish": CP = 1254
863.             CASE "tk": lang$ = "Turkmen": CP = 442
864.             CASE "uk": lang$ = "Ukrainian": CP = 422: CP2 = 1251
865.             CASE "utf8": lang$ = "Unicode": CP = -2 '    UTF-8
866.             CASE "ur": lang$ = "Urdu": CP = 420: CP2 = 1256
867.             CASE "uzuz": lang$ = "Uzbek - Cyrillic": CP = 843: CP2 = 1251
868.             CASE "vi": lang$ = "Vietnamese": CP = 1258
869.             CASE "cy": lang$ = "Welsh": CP = 452
870.             CASE "xh": lang$ = "Xhosa": CP = 434
871.             CASE "yi": lang$ = "Yiddish" 'unknown CP
872.             CASE "zu": lang$ = "Zulu": CP = 435
873.         END SELECT
874.     END IF
875.  
876.     IF CPW THEN CP2 = CPW
877.     IF CP2 THEN language = CP2 ELSE language = CP
878.     IF language = 0 THEN PRINT "Sorry, unknown Code Page for your country.": END
879.  
880.  
881.     REM _FONT _LOADFONT("cyberbit.ttf", 15, "monospace")
882.  
883.     SELECT CASE language '                                  set DATA READ to correct position (without it read READ first DATA block and ignore his name)
884.         CASE 437: RESTORE Microsoft_pc_cp437
885.         CASE 737: RESTORE Microsoft_pc_cp737
886.         CASE 775: RESTORE Microsoft_pc_cp775
887.         CASE 850: RESTORE Microsoft_pc_cp850
888.         CASE 852: RESTORE Microsoft_pc_cp852
889.         CASE 855: RESTORE Microsoft_pc_cp855
890.         CASE 857: RESTORE Microsoft_pc_cp857
891.         CASE 860: RESTORE Microsoft_pc_cp860
892.         CASE 861: RESTORE Microsoft_pc_cp861
893.         CASE 862: RESTORE Microsoft_pc_cp862
894.         CASE 863: RESTORE Microsoft_pc_cp863
895.         CASE 864: RESTORE Microsoft_pc_cp864
896.         CASE 865: RESTORE Microsoft_pc_cp865
897.         CASE 866: RESTORE Microsoft_pc_cp866
898.         CASE 869: RESTORE Microsoft_pc_cp869
899.         CASE 874: RESTORE Microsoft_pc_cp874
900.         CASE 1250: RESTORE Microsoft_windows_cp1250
901.         CASE 1251: RESTORE Microsoft_windows_cp1251
902.         CASE 1252: RESTORE Microsoft_windows_cp1252
903.         CASE 1253: RESTORE Microsoft_windows_cp1253
904.         CASE 1254: RESTORE Microsoft_windows_cp1254
905.         CASE 1255: RESTORE Microsoft_windows_cp1255
906.         CASE 1256: RESTORE Microsoft_windows_cp1256
907.         CASE 1257: RESTORE Microsoft_windows_cp1257
908.         CASE 1258: RESTORE Microsoft_windows_cp1258
909.     END SELECT
910.  
911.  
912.  
913.  
914.     FOR ASCIIcode = 128 TO 255
915.         SELECT CASE language
916.             CASE 437: READ Microsoft_pc_cp437: _MAPUNICODE Microsoft_pc_cp437 TO ASCIIcode
917.             CASE 737: READ Microsoft_pc_cp737: _MAPUNICODE Microsoft_pc_cp737 TO ASCIIcode
918.             CASE 775: READ Microsoft_pc_cp775: _MAPUNICODE Microsoft_pc_cp775 TO ASCIIcode
919.             CASE 850: READ Microsoft_pc_cp850: _MAPUNICODE Microsoft_pc_cp850 TO ASCIIcode
920.             CASE 852: READ Microsoft_pc_cp852: _MAPUNICODE Microsoft_pc_cp852 TO ASCIIcode
921.             CASE 855: READ Microsoft_pc_cp855: _MAPUNICODE Microsoft_pc_cp855 TO ASCIIcode
922.             CASE 857: READ Microsoft_pc_cp857: _MAPUNICODE Microsoft_pc_cp857 TO ASCIIcode
923.             CASE 860: READ Microsoft_pc_cp860: _MAPUNICODE Microsoft_pc_cp860 TO ASCIIcode
924.             CASE 861: READ Microsoft_pc_cp861: _MAPUNICODE Microsoft_pc_cp861 TO ASCIIcode
925.             CASE 862: READ Microsoft_pc_cp862: _MAPUNICODE Microsoft_pc_cp862 TO ASCIIcode
926.             CASE 863: READ Microsoft_pc_cp863: _MAPUNICODE Microsoft_pc_cp863 TO ASCIIcode
927.             CASE 864: READ Microsoft_pc_cp864: _MAPUNICODE Microsoft_pc_cp864 TO ASCIIcode
928.             CASE 865: READ Microsoft_pc_cp865: _MAPUNICODE Microsoft_pc_cp865 TO ASCIIcode
929.             CASE 866: READ Microsoft_pc_cp866: _MAPUNICODE Microsoft_pc_cp866 TO ASCIIcode
930.             CASE 869: READ Microsoft_pc_cp869: _MAPUNICODE Microsoft_pc_cp869 TO ASCIIcode
931.             CASE 874: READ Microsoft_pc_cp874: _MAPUNICODE Microsoft_pc_cp874 TO ASCIIcode
932.             CASE 1250: READ Microsoft_windows_cp1250: _MAPUNICODE Microsoft_windows_cp1250 TO ASCIIcode
933.             CASE 1251: READ Microsoft_windows_cp1251: _MAPUNICODE Microsoft_windows_cp1251 TO ASCIIcode
934.             CASE 1252: READ Microsoft_windows_cp1252: _MAPUNICODE Microsoft_windows_cp1252 TO ASCIIcode
935.             CASE 1253: READ Microsoft_windows_cp1253: _MAPUNICODE Microsoft_windows_cp1253 TO ASCIIcode
936.             CASE 1254: READ Microsoft_windows_cp1254: _MAPUNICODE Microsoft_windows_cp1254 TO ASCIIcode
937.             CASE 1255: READ Microsoft_windows_cp1255: _MAPUNICODE Microsoft_windows_cp1255 TO ASCIIcode
938.             CASE 1256: READ Microsoft_windows_cp1256: _MAPUNICODE Microsoft_windows_cp1256 TO ASCIIcode
939.             CASE 1257: READ Microsoft_windows_cp1257: _MAPUNICODE Microsoft_windows_cp1257 TO ASCIIcode
940.             CASE 1258: READ Microsoft_windows_cp1258: _MAPUNICODE Microsoft_windows_cp1258 TO ASCIIcode
941.         END SELECT
942.     NEXT
943.     KILL "nation.txt"
944.  
945.     PRINT "Detected nation:"; lang$; ", code pages: "; CP; ", "; CP2
946.     'INPUT "input text with your national characters, if is displayed wrong, try other font (set it in line 392):"; text$
947.  
948.  
949.     f2 = FREEFILE
950.     OPEN "test.txt" FOR INPUT AS #f2
951.     WHILE NOT EOF(f2)
952.         LINE INPUT #f2, text$
953.         PRINT text$
954.     WEND
955.     CLOSE f2
956.  
957.     Microsoft_pc_cp437:
958.     DATA 199,252,233,226,228,224,229,231,234,235,232,239,238,236,196,197
959.     DATA 201,230,198,244,246,242,251,249,255,214,220,162,163,165,8359,402
960.     DATA 225,237,243,250,241,209,170,186,191,8976,172,189,188,161,171,187
961.     DATA 9617,9618,9619,9474,9508,9569,9570,9558,9557,9571,9553,9559,9565,9564,9563,9488
962.     DATA 9492,9524,9516,9500,9472,9532,9566,9567,9562,9556,9577,9574,9568,9552,9580,9575
963.     DATA 9576,9572,9573,9561,9560,9554,9555,9579,9578,9496,9484,9608,9604,9612,9616,9600
964.     DATA 945,223,915,960,931,963,181,964,934,920,937,948,8734,966,949,8745
965.     DATA 8801,177,8805,8804,8992,8993,247,8776,176,8729,183,8730,8319,178,9632,160
966.  
967.     Microsoft_pc_cp737:
968.     DATA 913,914,915,916,917,918,919,920,921,922,923,924,925,926,927,928
969.     DATA 929,931,932,933,934,935,936,937,945,946,947,948,949,950,951,952
970.     DATA 953,954,955,956,957,958,959,960,961,963,962,964,965,966,967,968
971.     DATA 9617,9618,9619,9474,9508,9569,9570,9558,9557,9571,9553,9559,9565,9564,9563,9488
972.     DATA 9492,9524,9516,9500,9472,9532,9566,9567,9562,9556,9577,9574,9568,9552,9580,9575
973.     DATA 9576,9572,9573,9561,9560,9554,9555,9579,9578,9496,9484,9608,9604,9612,9616,9600
974.     DATA 969,940,941,942,970,943,972,973,971,974,902,904,905,906,908,910
975.     DATA 911,177,8805,8804,938,939,247,8776,176,8729,183,8730,8319,178,9632,160
976.  
977.     Microsoft_pc_cp775:
978.     DATA 262,252,233,257,228,291,229,263,322,275,342,343,299,377,196,197
979.     DATA 201,230,198,333,246,290,162,346,347,214,220,248,163,216,215,164
980.     DATA 256,298,243,379,380,378,8221,166,169,174,172,189,188,321,171,187
981.     DATA 9617,9618,9619,9474,9508,260,268,280,278,9571,9553,9559,9565,302,352,9488
982.     DATA 9492,9524,9516,9500,9472,9532,370,362,9562,9556,9577,9574,9568,9552,9580,381
983.     DATA 261,269,281,279,303,353,371,363,382,9496,9484,9608,9604,9612,9616,9600
984.     DATA 211,223,332,323,245,213,181,324,310,311,315,316,326,274,325,8217
985.     DATA 173,177,8220,190,182,167,247,8222,176,8729,183,185,179,178,9632,160
986.  
987.     Microsoft_pc_cp850:
988.     DATA 199,252,233,226,228,224,229,231,234,235,232,239,238,236,196,197
989.     DATA 201,230,198,244,246,242,251,249,255,214,220,248,163,216,215,402
990.     DATA 225,237,243,250,241,209,170,186,191,174,172,189,188,161,171,187
991.     DATA 9617,9618,9619,9474,9508,193,194,192,169,9571,9553,9559,9565,162,165,9488
992.     DATA 9492,9524,9516,9500,9472,9532,227,195,9562,9556,9577,9574,9568,9552,9580,164
993.     DATA 240,208,202,203,200,305,205,206,207,9496,9484,9608,9604,166,204,9600
994.     DATA 211,223,212,210,245,213,181,254,222,218,219,217,253,221,175,180
995.     DATA 173,177,8215,190,182,167,247,184,176,168,183,185,179,178,9632,160
996.  
997.     Microsoft_pc_cp852:
998.     DATA 199,252,233,226,228,367,263,231,322,235,336,337,238,377,196,262
999.     DATA 201,313,314,244,246,317,318,346,347,214,220,356,357,321,215,269
1000.     DATA 225,237,243,250,260,261,381,382,280,281,172,378,268,351,171,187
1001.     DATA 9617,9618,9619,9474,9508,193,194,282,350,9571,9553,9559,9565,379,380,9488
1002.     DATA 9492,9524,9516,9500,9472,9532,258,259,9562,9556,9577,9574,9568,9552,9580,164
1003.     DATA 273,272,270,203,271,327,205,206,283,9496,9484,9608,9604,354,366,9600
1004.     DATA 211,223,212,323,324,328,352,353,340,218,341,368,253,221,355,180
1005.     DATA 173,733,731,711,728,167,247,184,176,168,729,369,344,345,9632,160
1006.  
1007.     Microsoft_pc_cp855:
1008.     DATA 1106,1026,1107,1027,1105,1025,1108,1028,1109,1029,1110,1030,1111,1031,1112,1032
1009.     DATA 1113,1033,1114,1034,1115,1035,1116,1036,1118,1038,1119,1039,1102,1070,1098,1066
1010.     DATA 1072,1040,1073,1041,1094,1062,1076,1044,1077,1045,1092,1060,1075,1043,171,187
1011.     DATA 9617,9618,9619,9474,9508,1093,1061,1080,1048,9571,9553,9559,9565,1081,1049,9488
1012.     DATA 9492,9524,9516,9500,9472,9532,1082,1050,9562,9556,9577,9574,9568,9552,9580,164
1013.     DATA 1083,1051,1084,1052,1085,1053,1086,1054,1087,9496,9484,9608,9604,1055,1103,9600
1014.     DATA 1071,1088,1056,1089,1057,1090,1058,1091,1059,1078,1046,1074,1042,1100,1068,8470
1015.     DATA 173,1099,1067,1079,1047,1096,1064,1101,1069,1097,1065,1095,1063,167,9632,160
1016.  
1017.     Microsoft_pc_cp857:
1018.     DATA 199,252,233,226,228,224,229,231,234,235,232,239,238,305,196,197
1019.     DATA 201,230,198,244,246,242,251,249,304,214,220,248,163,216,350,351
1020.     DATA 225,237,243,250,241,209,286,287,191,174,172,189,188,161,171,187
1021.     DATA 9617,9618,9619,9474,9508,193,194,192,169,9571,9553,9559,9565,162,165,9488
1022.     DATA 9492,9524,9516,9500,9472,9532,227,195,9562,9556,9577,9574,9568,9552,9580,164
1023.     DATA 186,170,202,203,200,0,205,206,207,9496,9484,9608,9604,166,204,9600
1024.     DATA 211,223,212,210,245,213,181,0,215,218,219,217,236,255,175,180
1025.     DATA 173,177,0,190,182,167,247,184,176,168,183,185,179,178,9632,160
1026.  
1027.     Microsoft_pc_cp860:
1028.     DATA 199,252,233,226,227,224,193,231,234,202,232,205,212,236,195,194
1029.     DATA 201,192,200,244,245,242,218,249,204,213,220,162,163,217,8359,211
1030.     DATA 225,237,243,250,241,209,170,186,191,210,172,189,188,161,171,187
1031.     DATA 9617,9618,9619,9474,9508,9569,9570,9558,9557,9571,9553,9559,9565,9564,9563,9488
1032.     DATA 9492,9524,9516,9500,9472,9532,9566,9567,9562,9556,9577,9574,9568,9552,9580,9575
1033.     DATA 9576,9572,9573,9561,9560,9554,9555,9579,9578,9496,9484,9608,9604,9612,9616,9600
1034.     DATA 945,223,915,960,931,963,181,964,934,920,937,948,8734,966,949,8745
1035.     DATA 8801,177,8805,8804,8992,8993,247,8776,176,8729,183,8730,8319,178,9632,160
1036.  
1037.     Microsoft_pc_cp861:
1038.     DATA 199,252,233,226,228,224,229,231,234,235,232,208,240,222,196,197
1039.     DATA 201,230,198,244,246,254,251,221,253,214,220,248,163,216,8359,402
1040.     DATA 225,237,243,250,193,205,211,218,191,8976,172,189,188,161,171,187
1041.     DATA 9617,9618,9619,9474,9508,9569,9570,9558,9557,9571,9553,9559,9565,9564,9563,9488
1042.     DATA 9492,9524,9516,9500,9472,9532,9566,9567,9562,9556,9577,9574,9568,9552,9580,9575
1043.     DATA 9576,9572,9573,9561,9560,9554,9555,9579,9578,9496,9484,9608,9604,9612,9616,9600
1044.     DATA 945,223,915,960,931,963,181,964,934,920,937,948,8734,966,949,8745
1045.     DATA 8801,177,8805,8804,8992,8993,247,8776,176,8729,183,8730,8319,178,9632,160
1046.  
1047.     Microsoft_pc_cp862:
1048.     DATA 1488,1489,1490,1491,1492,1493,1494,1495,1496,1497,1498,1499,1500,1501,1502,1503
1049.     DATA 1504,1505,1506,1507,1508,1509,1510,1511,1512,1513,1514,162,163,165,8359,402
1050.     DATA 225,237,243,250,241,209,170,186,191,8976,172,189,188,161,171,187
1051.     DATA 9617,9618,9619,9474,9508,9569,9570,9558,9557,9571,9553,9559,9565,9564,9563,9488
1052.     DATA 9492,9524,9516,9500,9472,9532,9566,9567,9562,9556,9577,9574,9568,9552,9580,9575
1053.     DATA 9576,9572,9573,9561,9560,9554,9555,9579,9578,9496,9484,9608,9604,9612,9616,9600
1054.     DATA 945,223,915,960,931,963,181,964,934,920,937,948,8734,966,949,8745
1055.     DATA 8801,177,8805,8804,8992,8993,247,8776,176,8729,183,8730,8319,178,9632,160
1056.  
1057.     Microsoft_pc_cp863:
1058.     DATA 199,252,233,226,194,224,182,231,234,235,232,239,238,8215,192,167
1059.     DATA 201,200,202,244,203,207,251,249,164,212,220,162,163,217,219,402
1060.     DATA 166,180,243,250,168,184,179,175,206,8976,172,189,188,190,171,187
1061.     DATA 9617,9618,9619,9474,9508,9569,9570,9558,9557,9571,9553,9559,9565,9564,9563,9488
1062.     DATA 9492,9524,9516,9500,9472,9532,9566,9567,9562,9556,9577,9574,9568,9552,9580,9575
1063.     DATA 9576,9572,9573,9561,9560,9554,9555,9579,9578,9496,9484,9608,9604,9612,9616,9600
1064.     DATA 4023,945,223,915,960,931,963,181,964,934,920,937,948,8734,966,949,8745
1065.     DATA 8801,177,8805,8804,8992,8993,247,8776,176,8729,183,8730,8319,178,9632,160
1066.  
1067.     Microsoft_pc_cp864:
1068.     DATA 176,183,8729,8730,9618,9472,9474,9532,9508,9516,9500,9524,9488,9484,9492,9496
1069.     DATA 946,8734,966,177,189,188,8776,171,187,65271,65272,0,0,65275,65276,0
1070.     DATA 160,173,65154,163,164,65156,0,0,65166,65167,65173,65177,1548,65181,65185,65189
1071.     DATA 1632,1633,1634,1635,1636,1637,1638,1639,1640,1641,65233,1563,65201,65205,65209,1567
1072.     DATA 162,65152,65153,65155,65157,65226,65163,65165,65169,65171,65175,65179,65183,65187,65191,65193
1073.     DATA 65195,65197,65199,65203,65207,65211,65215,65217,65221,65227,65231,166,172,247,215,65225
1074.     DATA 1600,65235,65239,65243,65247,65251,65255,65259,65261,65263,65267,65213,65228,65230,65229,65249
1075.     DATA 65149,1617,65253,65257,65260,65264,65266,65232,65237,65269,65270,65245,65241,65265,9632,0
1076.  
1077.     Microsoft_pc_cp865:
1078.     DATA 199,252,233,226,228,224,229,231,234,235,232,239,238,236,196,197
1079.     DATA 201,230,198,244,246,242,251,249,255,214,220,248,163,216,8359,402
1080.     DATA 225,237,243,250,241,209,170,186,191,8976,172,189,188,161,171,164
1081.     DATA 9617,9618,9619,9474,9508,9569,9570,9558,9557,9571,9553,9559,9565,9564,9563,9488
1082.     DATA 9492,9524,9516,9500,9472,9532,9566,9567,9562,9556,9577,9574,9568,9552,9580,9575
1083.     DATA 9576,9572,9573,9561,9560,9554,9555,9579,9578,9496,9484,9608,9604,9612,9616,9600
1084.     DATA 945,223,915,960,931,963,181,964,934,920,937,948,8734,966,949,8745
1085.     DATA 8801,177,8805,8804,8992,8993,247,8776,176,8729,183,8730,8319,178,9632,160
1086.  
1087.     Microsoft_pc_cp866:
1088.     DATA 1040,1041,1042,1043,1044,1045,1046,1047,1048,1049,1050,1051,1052,1053,1054,1055
1089.     DATA 1056,1057,1058,1059,1060,1061,1062,1063,1064,1065,1066,1067,1068,1069,1070,1071
1090.     DATA 1072,1073,1074,1075,1076,1077,1078,1079,1080,1081,1082,1083,1084,1085,1086,1087
1091.     DATA 9617,9618,9619,9474,9508,9569,9570,9558,9557,9571,9553,9559,9565,9564,9563,9488
1092.     DATA 9492,9524,9516,9500,9472,9532,9566,9567,9562,9556,9577,9574,9568,9552,9580,9575
1093.     DATA 9576,9572,9573,9561,9560,9554,9555,9579,9578,9496,9484,9608,9604,9612,9616,9600
1094.     DATA 1088,1089,1090,1091,1092,1093,1094,1095,1096,1097,1098,1099,1100,1101,1102,1103
1095.     DATA 1025,1105,1028,1108,1031,1111,1038,1118,176,8729,183,8730,8470,164,9632,160
1096.  
1097.     Microsoft_pc_cp869:
1098.     DATA 0,0,0,0,0,0,902,0,183,172,166,8216,8217,904,8213,905
1099.     DATA 906,938,908,0,0,910,939,169,911,178,179,940,163,941,942,943
1100.     DATA 970,912,972,973,913,914,915,916,917,918,919,189,920,921,171,187
1101.     DATA 9617,9618,9619,9474,9508,922,923,924,925,9571,9553,9559,9565,926,927,9488
1102.     DATA 9492,9524,9516,9500,9472,9532,928,929,9562,9556,9577,9574,9568,9552,9580,931
1103.     DATA 932,933,934,935,936,937,945,946,947,9496,9484,9608,9604,948,949,9600
1104.     DATA 950,951,952,953,954,955,956,957,958,959,960,961,963,962,964,900
1105.     DATA 173,177,965,966,967,167,968,901,176,168,969,971,944,974,9632,160
1106.  
1107.     Microsoft_pc_cp874:
1108.     DATA 8364,0,0,0,0,8230,0,0,0,0,0,0,0,0,0,0
1109.     DATA 0,8216,8217,8220,8221,8226,8211,8212,0,0,0,0,0,0,0,0
1110.     DATA 160,3585,3586,3587,3588,3589,3590,3591,3592,3593,3594,3595,3596,3597,3598,3599
1111.     DATA 3600,3601,3602,3603,3604,3605,3606,3607,3608,3609,3610,3611,3612,3613,3614,3615
1112.     DATA 3616,3617,3618,3619,3620,3621,3622,3623,3624,3625,3626,3627,3628,3629,3630,3631
1113.     DATA 3632,3633,3634,3635,3636,3637,3638,3639,3640,3641,3642,0,0,0,0,3647
1114.     DATA 3648,3649,3650,3651,3652,3653,3654,3655,3656,3657,3658,3659,3660,3661,3662,3663
1115.     DATA 3664,3665,3666,3667,3668,3669,3670,3671,3672,3673,3674,3675,0,0,0,0
1116.  
1117.     Microsoft_windows_cp1250:
1118.     DATA 8364,0,8218,0,8222,8230,8224,8225,0,8240,352,8249,346,356,381,377
1119.     DATA 0,8216,8217,8220,8221,8226,8211,8212,0,8482,353,8250,347,357,382,378
1120.     DATA 160,711,728,321,164,260,166,167,168,169,350,171,172,173,174,379
1121.     DATA 176,177,731,322,180,181,182,183,184,261,351,187,317,733,318,380
1122.     DATA 340,193,194,258,196,313,262,199,268,201,280,203,282,205,206,270
1123.     DATA 272,323,327,211,212,336,214,215,344,366,218,368,220,221,354,223
1124.     DATA 341,225,226,259,228,314,263,231,269,233,281,235,283,237,238,271
1125.     DATA 273,324,328,243,244,337,246,247,345,367,250,369,252,253,355,729
1126.  
1127.     Microsoft_windows_cp1251:
1128.     DATA 1026,1027,8218,1107,8222,8230,8224,8225,8364,8240,1033,8249,1034,1036,1035,1039
1129.     DATA 1106,8216,8217,8220,8221,8226,8211,8212,0,8482,1113,8250,1114,1116,1115,1119
1130.     DATA 160,1038,1118,1032,164,1168,166,167,1025,169,1028,171,172,173,174,1031
1131.     DATA 176,177,1030,1110,1169,181,182,183,1105,8470,1108,187,1112,1029,1109,1111
1132.     DATA 1040,1041,1042,1043,1044,1045,1046,1047,1048,1049,1050,1051,1052,1053,1054,1055
1133.     DATA 1056,1057,1058,1059,1060,1061,1062,1063,1064,1065,1066,1067,1068,1069,1070,1071
1134.     DATA 1072,1073,1074,1075,1076,1077,1078,1079,1080,1081,1082,1083,1084,1085,1086,1087
1135.     DATA 1088,1089,1090,1091,1092,1093,1094,1095,1096,1097,1098,1099,1100,1101,1102,1103
1136.  
1137.     Microsoft_windows_cp1252:
1138.     DATA 8364,0,8218,402,8222,8230,8224,8225,710,8240,352,8249,338,0,381,0
1139.     DATA 0,8216,8217,8220,8221,8226,8211,8212,732,8482,353,8250,339,0,382,376
1140.     DATA 160,161,162,163,164,165,166,167,168,169,170,171,172,173,174,175
1141.     DATA 176,177,178,179,180,181,182,183,184,185,186,187,188,189,190,191
1142.     DATA 192,193,194,195,196,197,198,199,200,201,202,203,204,205,206,207
1143.     DATA 208,209,210,211,212,213,214,215,216,217,218,219,220,221,222,223
1144.     DATA 224,225,226,227,228,229,230,231,232,233,234,235,236,237,238,239
1145.     DATA 240,241,242,243,244,245,246,247,248,249,250,251,252,253,254,255
1146.  
1147.     Microsoft_windows_cp1253:
1148.     DATA 8364,0,8218,402,8222,8230,8224,8225,0,8240,0,8249,0,0,0,0
1149.     DATA 0,8216,8217,8220,8221,8226,8211,8212,0,8482,0,8250,0,0,0,0
1150.     DATA 160,901,902,163,164,165,166,167,168,169,0,171,172,173,174,8213
1151.     DATA 176,177,178,179,900,181,182,183,904,905,906,187,908,189,910,911
1152.     DATA 912,913,914,915,916,917,918,919,920,921,922,923,924,925,926,927
1153.     DATA 928,929,0,931,932,933,934,935,936,937,938,939,940,941,942,943
1154.     DATA 944,945,946,947,948,949,950,951,952,953,954,955,956,957,958,959
1155.     DATA 960,961,962,963,964,965,966,967,968,969,970,971,972,973,974,0
1156.  
1157.     Microsoft_windows_cp1254:
1158.     DATA 8364,0,8218,402,8222,8230,8224,8225,710,8240,352,8249,338,0,0,0
1159.     DATA 0,8216,8217,8220,8221,8226,8211,8212,732,8482,353,8250,339,0,0,376
1160.     DATA 160,161,162,163,164,165,166,167,168,169,170,171,172,173,174,175
1161.     DATA 176,177,178,179,180,181,182,183,184,185,186,187,188,189,190,191
1162.     DATA 192,193,194,195,196,197,198,199,200,201,202,203,204,205,206,207
1163.     DATA 286,209,210,211,212,213,214,215,216,217,218,219,220,304,350,223
1164.     DATA 224,225,226,227,228,229,230,231,232,233,234,235,236,237,238,239
1165.     DATA 287,241,242,243,244,245,246,247,248,249,250,251,252,305,351,255
1166.  
1167.     Microsoft_windows_cp1255:
1168.     DATA 8364,0,8218,402,8222,8230,8224,8225,710,8240,0,8249,0,0,0,0
1169.     DATA 0,8216,8217,8220,8221,8226,8211,8212,732,8482,0,8250,0,0,0,0
1170.     DATA 160,161,162,163,8362,165,166,167,168,169,215,171,172,173,174,175
1171.     DATA 176,177,178,179,180,181,182,183,184,185,247,187,188,189,190,191
1172.     DATA 1456,1457,1458,1459,1460,1461,1462,1463,1464,1465,0,1467,1468,1469,1470,1471
1173.     DATA 1472,1473,1474,1475,1520,1521,1522,1523,1524,0,0,0,0,0,0,0
1174.     DATA 1488,1489,1490,1491,1492,1493,1494,1495,1496,1497,1498,1499,1500,1501,1502,1503
1175.     DATA 1504,1505,1506,1507,1508,1509,1510,1511,1512,1513,1514,0,0,8206,8207,0
1176.  
1177.     Microsoft_windows_cp1256:
1178.     DATA 8364,1662,8218,402,8222,8230,8224,8225,710,8240,1657,8249,338,1670,1688,1672
1179.     DATA 1711,8216,8217,8220,8221,8226,8211,8212,1705,8482,1681,8250,339,8204,8205,1722
1180.     DATA 160,1548,162,163,164,165,166,167,168,169,1726,171,172,173,174,175
1181.     DATA 176,177,178,179,180,181,182,183,184,185,1563,187,188,189,190,1567
1182.     DATA 1729,1569,1570,1571,1572,1573,1574,1575,1576,1577,1578,1579,1580,1581,1582,1583
1183.     DATA 1584,1585,1586,1587,1588,1589,1590,215,1591,1592,1593,1594,1600,1601,1602,1603
1184.     DATA 224,1604,226,1605,1606,1607,1608,231,232,233,234,235,1609,1610,238,239
1185.     DATA 1611,1612,1613,1614,244,1615,1616,247,1617,249,1618,251,252,8206,8207,1746
1186.  
1187.     Microsoft_windows_cp1257:
1188.     DATA 8364,0,8218,0,8222,8230,8224,8225,0,8240,0,8249,0,168,711,184
1189.     DATA 0,8216,8217,8220,8221,8226,8211,8212,0,8482,0,8250,0,175,731,0
1190.     DATA 160,0,162,163,164,0,166,167,216,169,342,171,172,173,174,198
1191.     DATA 176,177,178,179,180,181,182,183,248,185,343,187,188,189,190,230
1192.     DATA 260,302,256,262,196,197,280,274,268,201,377,278,290,310,298,315
1193.     DATA 352,323,325,211,332,213,214,215,370,321,346,362,220,379,381,223
1194.     DATA 261,303,257,263,228,229,281,275,269,233,378,279,291,311,299,316
1195.     DATA 353,324,326,243,333,245,246,247,371,322,347,363,252,380,382,729
1196.  
1197.     Microsoft_windows_cp1258:
1198.     DATA 8364,0,8218,402,8222,8230,8224,8225,710,8240,0,8249,338,0,0,0
1199.     DATA 0,8216,8217,8220,8221,8226,8211,8212,732,8482,0,8250,339,0,0,376
1200.     DATA 160,161,162,163,164,165,166,167,168,169,170,171,172,173,174,175
1201.     DATA 176,177,178,179,180,181,182,183,184,185,186,187,188,189,190,191
1202.     DATA 192,193,194,258,196,197,198,199,200,201,202,203,768,205,206,207
1203.     DATA 272,209,777,211,212,416,214,215,216,217,218,219,220,431,771,223
1204.     DATA 224,225,226,259,228,229,230,231,232,233,234,235,769,237,238,239
1205.     DATA 273,241,803,243,244,417,246,247,248,249,250,251,252,432,8363,255
1206. END SUB
1207.  
1208. FUNCTION WIN
1209.     IF INSTR(_OS$, "WINDOWS") THEN WIN = 1 ELSE WIN = 0
1210. END FUNCTION
1211.  
1212. SUB CopyARR (s() AS STRING, d() AS STRING)
1213.     REDIM d(UBOUND(s)) AS STRING
1214.     start = LBOUND(s)
1215.     DO UNTIL start = UBOUND(s)
1216.         start = start + 1
1217.         d(start) = s(start)
1218.  
1219.     LOOP
1220. END SUB
1221.  
1222.  

[SpriggsySpriggs]

Hey guys! So I made up some code using my API functions I've been working on that might come in handy with this project for a program that keeps track of movies and such.

Here is a screenshot of the demo app working:
 

And here is the source code for the demo:

Code: QB64: [Select]

1. $SCREENHIDE
2. $CONSOLE
3.  
4. _SCREENHIDE
5. _TITLE "OMDB API - Poster"
6. _CONSOLETITLE "OMDB API - Movie Info"
7.  
8. DIM omdb AS STRING
9. DIM poster AS STRING
10. DIM URL AS STRING
11. URL = "http://www.omdbapi.com/?apikey=a6984482&t="
12. DIM movietitle AS STRING
13.  
14. _DEST _CONSOLE
15. LINE INPUT "Title of Movie: ", movietitle
16. CLS
17. _DEST 0
18.  
19. omdb = API_request(URL + FormatAsHTTP(movietitle), "omdbreq")
20. poster = GetKey(omdb, "Poster")
21. DIM i&
22. i& = OnlineImage(poster, "testposter")
23. IF i& <> -1 AND i& <> 0 THEN
24.     SCREEN i&
25.     _SCREENSHOW
26. END IF
27. _DEST _CONSOLE
28.  
29. PRINT "Movie:        "; GetKey(omdb, "Title")
30. PRINT "Release Date: "; GetKey(omdb, "Released")
31. PRINT GetKey(omdb, "Plot")
32.  
33.  
34. DO
35.  
36. LOOP UNTIL INKEY$ <> ""
37. SYSTEM
38.  
39. DECLARE DYNAMIC LIBRARY "urlmon"
40.     FUNCTION URLDownloadToFileA (BYVAL pCaller AS LONG, szURL AS STRING, szFileName AS STRING, BYVAL dwReserved AS LONG, BYVAL lpfnCB AS LONG)
41. END DECLARE
42.  
43. FUNCTION OnlineImage& (URL AS STRING, File AS STRING)
44.     DIM apireq AS STRING
45.     DIM a%
46.     DIM i&
47.     a% = URLDownloadToFileA(0, URL + CHR$(0), File + CHR$(0), 0, 0)
48.     DIM U AS INTEGER
49.     U = FREEFILE
50.     OPEN File FOR BINARY AS #U
51.     IF LOF(U) <> 0 THEN
52.         CLOSE #U
53.         i& = _LOADIMAGE(File, 32)
54.         KILL File
55.     ELSE
56.         i& = 0
57.         CLOSE #U
58.         KILL File
59.     END IF
60.     OnlineImage = i&
61. END FUNCTION
62.  
63. FUNCTION API_request$ (URL AS STRING, File AS STRING)
64.     DIM apireq AS STRING
65.     DIM a%
66.     a% = URLDownloadToFileA(0, URL + CHR$(0), File + CHR$(0), 0, 0)
67.     DIM U AS INTEGER
68.     U = FREEFILE
69.     OPEN File FOR BINARY AS #U
70.     IF LOF(U) <> 0 THEN
71.         apireq = SPACE$(LOF(U))
72.         GET #U, , apireq
73.         CLOSE #U
74.         KILL File
75.     ELSE
76.         CLOSE #U
77.         KILL File
78.         API_request = ""
79.         EXIT FUNCTION
80.     END IF
81.     API_request = apireq
82. END FUNCTION
83.  
84. 'FUNCTION CURL$ (URL AS STRING, File AS STRING)
85. '    DIM curlrequest AS STRING
86. '    SHELL _HIDE "curl " + CHR$(34) + URL + CHR$(34) + " -o " + CHR$(34) + File + CHR$(34)
87. '    DIM U AS INTEGER
88. '    U = FREEFILE
89. '    OPEN File FOR BINARY AS #U
90. '    IF LOF(U) <> 0 THEN
91. '        curlrequest = SPACE$(LOF(U))
92. '        GET #U, , curlrequest
93. '        CLOSE #U
94. '        KILL File
95. '    ELSE
96. '        CLOSE #U
97. '        KILL File
98. '        CURL = ""
99. '        EXIT FUNCTION
100. '    END IF
101. '    CURL = curlrequest
102. 'END FUNCTION
103.  
104. FUNCTION GetKey$ (JSON AS STRING, keyname AS STRING)
105.     DIM jkey AS STRING
106.     jkey = JSON
107.     IF INSTR(jkey, CHR$(34) + keyname + CHR$(34)) THEN
108.         jkey = MID$(jkey, INSTR(jkey, CHR$(34) + keyname + CHR$(34)) + LEN(keyname))
109.         jkey = MID$(jkey, INSTR(jkey, ":") + 1)
110.         jkey = String.Replace(jkey, "\" + CHR$(34), "'")
111.         IF MID$(jkey, 1, 1) = CHR$(34) THEN
112.             jkey = MID$(jkey, 2)
113.         END IF
114.         jkey = MID$(jkey, 1, INSTR(jkey, CHR$(34)) - 1)
115.         IF RIGHT$(jkey, 1) = "," THEN
116.             jkey = MID$(jkey, 1, LEN(jkey) - 1)
117.         END IF
118.     ELSE
119.         GetKey = ""
120.     END IF
121.     GetKey = jkey
122. END FUNCTION
123.  
124. SUB GetAllKey (JSON AS STRING, keyname AS STRING, ParseKey() AS STRING)
125.     DIM unchangejson AS STRING
126.     DIM jkey AS STRING
127.     DIM x
128.     unchangejson = JSON
129.     DO
130.         IF INSTR(unchangejson, CHR$(34) + keyname + CHR$(34)) THEN
131.             x = x + 1
132.             REDIM _PRESERVE ParseKey(x) AS STRING
133.             unchangejson = MID$(unchangejson, INSTR(unchangejson, CHR$(34) + keyname + CHR$(34)) + LEN(keyname))
134.             jkey = unchangejson
135.             jkey = MID$(jkey, INSTR(jkey, ":") + 1)
136.             jkey = String.Replace(jkey, "\" + CHR$(34), "'")
137.             IF MID$(jkey, 1, 1) = CHR$(34) THEN
138.                 jkey = MID$(jkey, 2)
139.             END IF
140.             jkey = MID$(jkey, 1, INSTR(jkey, CHR$(34)) - 1)
141.             IF RIGHT$(jkey, 1) = "," THEN
142.                 jkey = MID$(jkey, 1, LEN(jkey) - 1)
143.             END IF
144.             ParseKey(x) = jkey
145.         END IF
146.     LOOP UNTIL INSTR(unchangejson, CHR$(34) + keyname + CHR$(34)) = 0
147. END SUB
148.  
149. FUNCTION String.Replace$ (a AS STRING, b AS STRING, c AS STRING)
150.     DIM j
151.     DIM r
152.     DIM r$
153.     j = INSTR(a, b)
154.     IF j > 0 THEN
155.         r$ = LEFT$(a, j - 1) + c + String.Replace(RIGHT$(a, LEN(a) - j + 1 - LEN(b)), b, c)
156.     ELSE
157.         r$ = a
158.     END IF
159.     String.Replace = r$
160. END FUNCTION
161.  
162. FUNCTION FormatAsHTTP$ (paramater AS STRING)
163.     DIM Request AS STRING
164.     Request = paramater
165.     DIM start%
166.     DIM position%
167.     start% = 1
168.     DO
169.         position% = INSTR(start%, Request, " ")
170.         IF position% THEN
171.             MID$(Request, position%, 1) = "+"
172.             start% = position% + 1
173.         END IF
174.     LOOP UNTIL position% = 0
175.     Request = String.Replace(Request, "'", "%27")
176.     FormatAsHTTP = Request
177. END FUNCTION