home *** CD-ROM | disk | FTP | other *** search
/ Acorn User 4 / AUCD4.iso / strong / strongmen / str_men111 / Convert (.txt) < prev   
RISC OS BBC BASIC V Source  |  1997-09-28  |  856b  |  47 lines
  1.  >Convert
  2. "fin% = 
  3.   "Inet:Files.Hotlist"
  4. fout%= 
  5.  "$.Antlist"
  6. $;" at line ";
  7. #fout%,"# StrongED$FoldParm1 = (_foldindent,,StartOfline)"
  8. #fout%,"# StrongED$Wrapwidth = 256"
  9. #fout%,""
  10. indent%=0
  11. #fin%
  12.   A$=
  13. #fin%
  14. A$,13)="<!-- %folder%" 
  15. $    indent%=(
  16. A$,A%+14,1)) + 1
  17. A$,4)="<h2>" 
  18.       B%=
  19. A$,"</h2>")
  20.       label$=
  21. A$,5,B%-5)
  22. )      
  23. #fout%,
  24. indent%-1,"  ")+label$
  25.         
  26.       A%=
  27. A$,"href=")
  28.       
  29.  A%>0 
  30.         B%=
  31. A$,""">",A%)
  32.         C%=
  33. A$,"</a>",B%)
  34. "        url$=
  35. A$,A%+6,B%-A%-6)
  36. $        label$=
  37. A$,B%+2,C%-B%-2)
  38. ;        
  39. #fout%,
  40. indent%,"  ")+label$+(
  41. 9)+"#url "+url$
  42.       
  43. !        
  44. #fin%
  45. #fout%
  46.   *SetType $.AntList text
  47.