10 REM > BLib.Filename 1.02 25-Jan-2011

   20 REM Convert between BBC, DOS/Windows and UNIX/ZIP/URL filenames

   30 REM!Keep FNfn_frombbc(), FNfn_tobbc(), FNfn_unixtodos(), FNfn_dostounix()

   40 :

   50 :

   60 REM Swap between BBC and Unix/Zip filenames

   70 REM ---------------------------------------

   80 DEFFNfn_zip(B$):LOCALB%:A$="_ #?./$<^>&+@=%;"

   90 FOR A%=1 TO LEN B$:B%=INSTR(A$,MID$(B$,A%,1),2)-1

  100   IF B%>TRUE:B$=LEFT$(B$,A%-1)+MID$(A$,(B%EOR1)+1,1)+MID$(B$,A%+1)

  110 NEXT:=B$

  120 :

  130 DEFFNfn_bbctodos(A$):LOCALA%,B%,H%:H%=32:DEF:FNfn_frombbc()

  140 DEFFNfn_bbctounix(A$):LOCALA%,B%,H%:H%=8:DEF:FNfn_frombbc()

  150 DEFFNfn_frombbc(A$):LOCALA%,B%,H%:H%=os%

  160 IFA$=""OR(H%AND-24)=0:=A$

  170 IFLEFT$(A$,1)=":":A%=INSTR(A$+".","."):A$=MID$(A$,2,A%-2)+":"+MID$(A$,A%-(MID$(A$,A%+1,1)="$"))

  180 A%=0:REPEAT:A%=A%+1:B%=ASCMID$(A$,A%,1)

  190   IFB%=35ORB%=63:A$=LEFT$(A$,A%-1)+CHR$(B%EOR28)+MID$(A$,A%+1) :REM # ?

  200   IFB%=61ORB%=64:A$=LEFT$(A$,A%-1)+CHR$(B%EOR125)+MID$(A$,A%+1):REM = @

  210   IFB%=36ORB%=60:A$=LEFT$(A$,A%-1)+CHR$(B%EOR24)+MID$(A$,A%+1) :REM < $

  220   IFB%=62ORB%=94:A$=LEFT$(A$,A%-1)+CHR$(B%EOR96)+MID$(A$,A%+1) :REM > ^

  230   IFB%=ASC"$":IF(H%AND-24)=8:A$=LEFT$(A$,A%-1)+"/"+MID$(A$,A%+1-(A%<>LENA$))

  240   IFB%=ASC"$":IF(H%AND-32):A$=LEFT$(A$,A%-1)+"\"+MID$(A$,A%+1-(A%<>LENA$))

  250   IFB%=ASC"@":A$=LEFT$(A$,A%-1)+"."+MID$(A$,A%+1)

  260   IFB%=ASC"^":A$=LEFT$(A$,A%-1)+".."+MID$(A$,A%+1):A%=A%+1

  270   IFB%=ASC"/":A$=LEFT$(A$,A%-1)+"."+MID$(A$,A%+1)

  280   IFB%=ASC".":IF(H%AND-24)=8:A$=LEFT$(A$,A%-1)+"/"+MID$(A$,A%+1)

  290   IFB%=ASC".":IF(H%AND-32):A$=LEFT$(A$,A%-1)+"\"+MID$(A$,A%+1)

  300   IFB%=ASC"\":IF(H%AND-32):A$=LEFT$(A$,A%-1)+"/"+MID$(A$,A%+1)

  310   REM IFB%=ASC"&":A$=LEFT$(A$,A%-1)+"%HOME%"+MID$(A$,A%+1)

  320 UNTILA%>LENA$:=A$

  330 :

  340 DEFFNfn_fromunix(A$):IF(os%AND-24)=8:=A$ ELSE IF(os%AND-24)=0:=FNfn_unixtobbc(A$):DEF:FNfn_dostounix()

  350 DEFFNfn_fromdos(A$):IF(os%AND-32):=A$ ELSE IF(os%AND-24)=0:=FNfn_dostobbc(A$):DEF:FNfn_dostounix()

  360 DEFFNfn_tounix(A$):IF(os%AND-24)=8:=A$ ELSE IF(os%AND-24)=0:=FNfn_bbctounix(A$):DEF:FNfn_dostounix()

  370 DEFFNfn_todos(A$):IF(os%AND-32):=A$ ELSE IF(os%AND-24)=0:=FNfn_bbctodos(A$):DEF:FNfn_dostounix()

  380 DEFFNfn_unixtodos(A$):DEF:FNfn_dostounix()

  390 DEFFNfn_dostounix(A$)

  400 IFINSTR(A$,"/")+INSTR(A$,"\")=0:=A$

  410 LOCAL A%,B%:A%=0:REPEAT:A%=A%+1:B%=ASCMID$(A$,A%,1):IFB%=ASC"/"ORB%=ASC"\":A$=LEFT$(A$,A%-1)+CHR$(B%EOR115)+MID$(A$,A%+1)

  420 UNTILA%>=LENA$:=A$

  430 :

  440 DEFFNfn_dostobbc(A$):LOCALA%,B%,H%:H%=32:DEF:FNfn_tobbc()

  450 DEFFNfn_unixtobbc(A$):LOCALA%,B%,H%:H%=8:DEF:FNfn_tobbc()

  460 DEFFNfn_tobbc(A$):LOCALA%,B%,H%:H%=os%

  470 IFA$=""OR(H%AND-24)=0:=A$

  480 IFA$="/":IF(H%AND-24)=8:="$"

  490 IFA$="\":IF(H%AND-32):="$"

  500 A%=0:REPEAT:A%=A%+1:B%=ASCMID$(A$,A%,1)

  510   IFB%=35ORB%=63:A$=LEFT$(A$,A%-1)+CHR$(B%EOR28)+MID$(A$,A%+1):REM # ?

  520   IFMID$(A$,A%,2)="..":A$=LEFT$(A$,A%-1)+"^"+MID$(A$,A%+2):A%=A%-1:B%=0

  530   IFMID$(A$,A%)=".":A$=LEFT$(A$,A%-1)+"@":B%=0

  540   IFMID$(A$,A%,2)="./":IF(H%AND-24)=8:A$=LEFT$(A$,A%-1)+"@"+MID$(A$,A%+1):B%=0

  550   IFMID$(A$,A%,2)=".\":IF(H%AND-32):A$=LEFT$(A$,A%-1)+"@"+MID$(A$,A%+1):B%=0

  560   REM IFMID$(A$,A%,6)="%HOME%":A$=LEFT$(A$,A%-1)+"&"+MID$(A$,A%+6):B%=0

  570   IFB%=ASC".":A$=LEFT$(A$,A%-1)+"/"+MID$(A$,A%+1)

  580   IFB%=ASC"\":IF(H%AND-32):A$=LEFT$(A$,A%-1)+"."+MID$(A$,A%+1)

  590   IFB%=ASC"/":IF(H%AND-32):A$=LEFT$(A$,A%-1)+"\"+MID$(A$,A%+1)

  600   IFB%=ASC"/":IF(H%AND-24)=8:A$=LEFT$(A$,A%-1)+"."+MID$(A$,A%+1)

  610   IFB%=ASC":":A$=":"+LEFT$(A$,A%-1)+".$"+MID$(A$,A%+1):A%=A%+2

  620 UNTILA%>LENA$:=A$

  630 :