Sourcepath$ = "http://" ~
+ "laughton.com/basic/programs"~
+ "/applications/" ~
+ "Secret Morse Reader/"

array.load Fname$[] ~
"secret morse reader.bas" ~
"screenshot.jpg"

! ^^^ You can change ^^^
! ||| path & filenames |||


array.length Num, Fname$[]

Destpath$="../source/Downloads/"
file.mkdir Destpath$

for i = 1 to Num
byte.open R, ftn, ~
Sourcepath$ + Fname$[i]
if right$(Fname$[i],4) = ".bas"
p$ = Destpath$
else
p$ = ""
endif
byte.copy ftn, ~
p$ + Fname$[i]
byte.close ftn
next

end