'Program FIGLINKS.BAS (c) 1996 by J. C. Sprott
'This PowerBASIC program adds links to the figures in sabook.htm
cls
name "sabook.htm" as "sabook.bak"
defint a-z
open"sabook.bak" for input as #1
open"sabook.htm" for output as #2
while not eof(1)
input #1, a$
s=instr(a$,"Figure ")
t=instr(s+10,a$," ")
if s>0 and t-s>9 then
    if instr(a$,"<a href=") then exit if	'Link already present
    b$=mid$(a$,s,t-s)
    if right$(b$,1)="." then b$=left$(b$,len(b$)-1)
    c$=mid$(b$,8)
    if len(c$)<4 then c$=left$(c$,2)+"0"+right$(c$,1)
    replace b$ with "<a href="+chr$(34)+"/fractals/bookfigs/fig"+c$+".gif"+chr$(34)+">"+b$+"</a>" in a$
    print a$
end if
s=instr(a$,"Plate ")
t=instr(s+7,a$," ")
if s>0 and t-s>6 then
    if instr(a$,"<a href=") then exit if	'Link already present
    b$=mid$(a$,s,t-s)
    if right$(b$,1)=":" then b$=left$(b$,len(b$)-1)
    c$=mid$(b$,7)
    if len(c$)<2 then c$="0"+right$(c$,1)
    replace b$ with "<a href="+chr$(34)+"/fractals/bookfigs/plate"+c$+".gif"+chr$(34)+">"+b$+"</a>" in a$
    print a$
end if
print #2, a$
wend
beep