Russ's XFD to ATR Converter

[rcamp48]

I have successfully written an XFD to ATR converter for the PC for those Atari 8 Bit XFD files. The program is fairly fast , it will convert 180 programs in under 10 seconds. I am including both the zip file and the code, the zip file has the executable and source code, and the two directories that were used.

 

Russ's XFD To ATR Converter.ZIP

Code: QB64: [Select]

1. Dim temp$(92160)
2. Dim TEMP2$(92176)
3. Dim HEADER$(16)
4. Dim file$(50)
5. Dim file2$(50)
6. Dim path1$(120)
7. Dim path2$(120)
8. _FullScreen
9. Screen 12
10. Cls
11. Color 1, 6
12. start:
13. Cls
14. Print
15. Print "Quick and easy XFD to ATR Converter"
16. Print "Written by Russ Campbell"
17. Print "Copyright (c) 2022"
18. Print
19. Print "When entering your paths below"
20. Print "Don't forget your drive [c:\XFD\]"
21. Print "And don't forget proper ':' and  '\s' as above"
22. Print
23. Input "Please Enter your path for XFDs : ", path1$
24. If Mid$(path1$, 2, 1) <> ":" Then
25.     Print "Missing the ':' Character, try again."
26.     Print "Press any key..."
27.     Do While InKey$ = ""
28.     Loop
29.     GoTo start
30. End If
31. If Mid$(path1$, 3, 1) <> "\" Or Mid$(path1$, (Len(path1$))) <> "\" Then
32.     Print "Missing the '\' Character, try again."
33.     Print "Press any key..."
34.     Do While InKey$ = ""
35.     Loop
36.     GoTo start
37. End If
38.  
39. Input "Please Enter your path for ATRs : ", path2$
40. If Mid$(path2$, 2, 1) <> ":" Then
41.     Print "Missing the ':' Character, try again."
42.     Print "Press any key"
43.     Do While InKey$ = ""
44.     Loop
45.     GoTo start
46. End If
47. If Mid$(path2$, 3, 1) <> "\" Or Mid$(path2$, (Len(path2$))) <> "\" Then
48.     Print "Missing the '\' Character, try again."
49.     Print "Press any key"
50.     Do While InKey$ = ""
51.     Loop
52.     GoTo start
53. End If
54.  
55. header$ = "0000000000000000"
56. For i = 1 To 16
57.     Read x
58.     Mid$(header$, i, 1) = Chr$(x)
59. Next i
60. Data 150,2,128,22,128,0,0,0,0,0,0,0,0,0,0,0
61. Shell _Hide Chr$(34) + "dir /b " + path1$ + "*.xfd >directory.txt" + Chr$(34)
62. Close #2
63. Open "directory.txt" For Input As #1
64. Do Until EOF(1)
65.  
66.  
67.  
68.     Input #1, a$
69.     file$ = a$
70.     'On Error GoTo FINISH
71.  
72.     Open path1$ + file$ For Binary As #2
73.     temp$ = Space$(LOF(2)) 'set temp$ to be the size of the file, if you want to get the whole thing at once.
74.     Get #2, , temp$ 'get the whole array
75.     Close #2
76.     temp2$ = header$ + temp$
77.     file2$ = file$
78.  
79.     Mid$(file2$, (Len(file2$) - 3), 4) = ".atr"
80.     Print "Header added to "; path1$; file$
81.     Print "Saved as       "; path2$; file2$
82.     Print "Length of "; file2$; " = "; Len(temp2$)
83.     Open path2$ + file2$ For Binary As #2
84.     Put #2, , temp2$
85.  
86.  
87.     Close #2
88. Loop
89.  
90. FINISH:
91. Print
92. Print "Program finished, if you reached this in error "
93. Print "Check your xfd and atr paths."
94. Print
95. Close #1
96. Shell _Hide Chr$(34) + "erase directory.txt" + Chr$(34)
97.  
98. End
99.