a$=wget$("https://raw.githubusercontent.com/lyzby/FOTS-demo/main/MMBLibrary/ALPHANUM.BAS")

wlog a$

{"name":"main","listCacheKey":"v0:1705260040.0","canEdit":false,"refType":"branch","currentOid":"5d64515a636724e7eaa6a823e021ba9065b4a725"},"tree":{"items":[{"name":"1WDS1820.bas","path":"MMBLibrary/1WDS1820.bas","contentType":"file"},{"name":"ALPHANUM.BAS","path":"MMBLibrary/ALPHANUM.BAS","contentType":"file"},{"name":"ASTROFIX.BAS","path":"MMBLibrary/ASTROFIX.BAS","contentType":"file"},{"name":"AUTOLOG.bas","path":"MMBLibrary/AUTOLOG.bas","contentType":"file"},{"name":"AUTORUN.BAS","path":"MMBLibrary/AUTORUN.BAS","contentType":"file"},{"name":"Astrofix Readme.txt","path":"MMBLibrary/Astrofix Readme.txt","contentType":"file"},{"name":"BATTERY.BAS","path":"MMBLibrary/BATTERY.BAS","contentType":"file"},

' getFiles.bas
crlf$=chr$(13)+chr$(10)
qt$=chr$(34)
source$="github" ' http dropbox onedrive blob
url$="192.168.1.82/files/"
url$="https://github.com/lyzby/FOTS-demo/tree/main/MMBLibrary"
getType$="folder"
serial2.mode 115200,16,18 ' tx,rx
'onserial2 getRequest
gosub getRequest
do
loop

getRequest:
'  pause 500 ' plenty of time to receive entire request
 if getType$="folder" then
   sRequest$="GETDIR "+url$
   sFiles$=""
   nFiles=0
   gosub getFiles
   if sFiles$<>"" then
     wlog sFiles$+"# files: "+str$(nFiles)
   endif
 endif
 return  
 
getFiles:
'  wlog sRequest$
 if mid$(sRequest$,1,6)="GETDIR" then
   i=0
   a$=wget$(mid$(sRequest$,8),80)
'    wlog "Returned :"+a$
   if source$="github" then
     j=instr(1,a$,"{""items""")
     if j>0 then
       j=instr(j,a$,"{""name""")
       jEnd=instr(j,a$,"}]")
     endif
     do while j>0
       j2=instr(j+9,a$,"""")
       if j2>0 then ' file name found
         b$=mid$(a$,j+9,j2-j-9)
         sFiles$=sFiles$+b$+crlf$
         nFiles=nFiles+1
'            gosub getObject
         j=instr(j2,a$,"{""name""") ' closing quote after file name
         if j>jEnd then ' past the end of the file names
           j=0
         endif
       else
         j=0 ' something went wrong
       endif
     loop
   else if source$="http" then
     j=instr(1,a$,"<li>")
     do while j>0
       j2=instr(j+4,a$,"</li>")
       if j2>0 then ' line found
         b$=mid$(a$,j+4,j2-j-4)
           gosub getObject
         j=instr(j2+5,a$,"<li>")
       else
         j=0 ' something went wrong
       endif
     loop
   endif
 endif
 return

getObject:
   k=instr(1,a$,"'/files/")
   do while k>0
     k=k+8
     l=instr(k,a$,"'")
     s$=mid$(a$,k,l-k)
     if s$<>"../" then
       sFiles$=sFiles$+s$+crlf$
       i=i+1
     endif
     k=instr(l+1,a$,"'/files/")
   loop
   wlog str$(i)+" files"+crlf$+sFiles$
   nFiles=i
 endif
return
 
oldgetFiles:
 i=0
 a$=wget$("192.168.1.82/files/",80)
 k=instr(1,a$,"'/files/")
 do while k>0
   k=k+8
   l=instr(k,a$,"'")
   s$=mid$(a$,k,l-k)
   if s$<>"../" then
     sFiles$=sFiles$+s$+crlf$
     i=i+1
   endif
   k=instr(l+1,a$,"'/files/")
 loop
 wlog str$(i)+" files"+crlf$+sFiles$
 nFiles=i
return

1WDS1820.bas
ALPHANUM.BAS
ASTROFIX.BAS
AUTOLOG.bas
AUTORUN.BAS
Astrofix Readme.txt
BATTERY.BAS
BATTERY.JPG
BATTERY2.BAS
...
Towers2.bas
Towers2.fnt
hexdump.bas
julia.bas
mndlbrot.bas
printer2.bas
# files: 79

function JSONVALUE$(Jstring$,jParam$) ' by MikeO
local a,c,s$,d$,b,json$
json$=jstring$
s$=":"
d$=","
'locate parameter
 a=instr(JSON$,jparam$)
'print "A is:";a
json$=replace$(json$,chr$(34),"")  'strip quotes
json$=replace$(json$,"}",",")  'replace closing curly brackets with comma
if a>0 then 'retrieve value
  'look for separator :
  b=instr(a,json$,s$)
  if b>0 then
    'look for deliminator
    c=instr(b,JSON$,d$)
    if c>0 then
      JSONVALUE$=mid$(JSON$,b+1,c-(b+1))
    endif
  endif
else
  JSONVALUE$="not found"
endif
end function

HH56d_a:\Heliblast\heliblast.bas,47800
HH56d_a:\Heliblast\gridarray.dat,63536
HH56d_a:\Heliblast\highscore.dat,800
HH56d_a:\Heliblast\assets\explosion.png,37311
HH56d_a:\Heliblast\assets\Drone2.png,294
HH56d_a:\Heliblast\assets\Title_8bit3.png,342493
HH56d_a:\Heliblast\assets\Blueprint1.png,108160
HH56d_a:\Heliblast\assets\stranger_-_run.mod,88210
HH56d_a:\Heliblast\assets\scrHighScore.bmp,768054
HH56d_a:\Heliblast\assets\scrPlayerSprites.bmp,768054
HH56d_a:\Heliblast\assets\scrEnemySprites.bmp,768054
HH56d_a:\Heliblast\assets\scrBlast.bmp,768054
HH56d_a:\Heliblast\assets\scrGroundSprites.bmp,768054
HH56d_a:\Heliblast\assets\scrUIElements.bmp,768054

' getFilesJSON.bas
dim itemName$(200)
dim itemType$(200)
crlf$=chr$(13)+chr$(10)
source$="github" ' http dropbox onedrive blob
url$="https://github.com/lyzby/FOTS-demo/tree/main/MMBLibrary"
nFiles=0
gosub getFilesjson
if nFiles>0 then
 for i=0 to nFiles-1
   wlog str$(i+1)+" "+itemName$(i)+" "+itemType$(i)
 next i
 wlog crlf$+str$(nFiles)+" found"
endif
do
loop

getFilesjson:
   i=0
   a$=wget$(url$,80)
'    wlog "Returned :"+a$
   if source$="github" then
     j=instr(1,a$,"""tree"":{""items""") ' find start of array of files
     jEnd=instr(j,a$,"}]")        ' find end of array of files
     if j>0 and jEnd > j then
       c$="{"+mid$(a$,j+8,jEnd-j-6)+"}"
'        wlog c$
'        wlog str$(j)+" "+str$(jEnd)
       for i=0 to 999
'          fname$=json$(c$,"items[i].name")
         fname$=json$(c$,"items.name["+str$(i)+"]")
         if fname$="not found" then
           exit for
         endif
         itemName$(nFiles)=fname$
'          fType$=json$(c$,"items[i].contentType")
         fType$=json$(c$,"items.contentType["+str$(i)+"]")
         if fType$="file" then
           itemType$(nFiles)="F"
         elseif fType$="not found"
           itemType$(nFiles)="?"
         else
           itemType$(nFiles)=ucase$(mid$(fType$,1,1))
         endif
         nFiles=nFiles+1
         if nFiles>199 then
           exit for
         endif
       next i
     endif
 return

1 ALPHANUM.BAS F
2 ASTROFIX.BAS F
3 AUTOLOG.bas F
4 AUTORUN.BAS F
5 Astrofix Readme.txt F
6 BATTERY.BAS F
...
74 Towers2.fnt F
75 hexdump.bas F
76 julia.bas F
77 mndlbrot.bas F
78 printer2.bas F

78 found