> ViewToHTML v0.12 ( Convert Extended View File to HTML ' v0.10 31-Oct-1999 Initial version (! v0.11 28-Sep-2000 TABs work 2@ v0.12 14-Oct-2000 create if target exists <: F exec%=*0 P6A$=GetEnv:debug%=:quit$="": err:exit(): Zs$="/":os%>31:s$="." d -<&2400: &87 nmx%=--1800+1800*(>&FFFF) xB ctrl%30,mem%mx%:data%=mem%+90:mx%=mx%-180:X%=ctrl%:Y%=X%256 exec%:"Exec _list" :: >"Input file: "in$:os%>31:in$,".")=0:in$=in$+".":s$=""  exec%: in$="":exit(0): 8 exec%=0 in$>2: exec%: in$,1)=".":in$=in$,2) 6in%=(in$): in%=0:"'"in$"' not found":exit(214) *out$="": exec%=0:"Output file: "out$ 6 out$="":out$=in$+s$+"htm": exec%:out$=out$,12)  in$=out$:#in%:in%=0 in% 
"+13)
"6link$="":code%=:tab%=0:nl%=0:iptr%=0:ext%=#in%:
,0num%=mx%: iptr%+num%>#in%:num%=#in%-iptr%
6!gbpb(3,in%,data%,num%,iptr%)
@=data%+num%
Jiptr%=iptr%+num%
T2 iptr%>=#in%:wr("
"+13) ^5#out%:out%=0:#in%:in%=0:"SetType "+out$+" FAF" h1 exec%:"Access "+out$+" R/R":"Stamp "+out$ r: exec%=0 |exit(0): : ݤerr::CloseAll::= : Aexit(A%):quit$=quit$:A$=quit$:quit$="": debug%:"Quit: "A$ &"FX1,"+(A%255): A$<>"":os(A$) A$=13:: : -os(A$): A$=42: A$ A$="": A$  : 3ݤGetEnv:A%=0:X%=1:os%=((&FFF4)&FF00)256:="" : CloseAll:*EXEC #in%=in%: in%:A%=in%:in%=0:#A% (out%=out%: out%:A%=out%:out%=0:#A% -test%=test%: test%:A%=test%:test%=0:#A% & 0: :Mgbpb(A%,C%,D%,N%,P%): <&FFFFF:?X%=C%:X%!1=D%:X%!5=N%:X%!9=P%:&FFD1: DA%=1A%=3:#C%=P%: N5A%=1A%=2:#C%,?D%:D%=D%+1 A%=3A%=4:?D%=#C% X+D%=D%+1:N%=N%-1:N%<1 (A%>2 #C%): b: lwr(A$): A%: A$="": v( A%=1 A$:#out%, A$,A%,1):: : conv(A%)  A%=32: tab%:tab%=0: tab%=0: A%=9:tab:  A%=13 A%=10:ctrl: nl%=0: A%=28:ul:  A%=29:hl:  "<>&""", A%):char: 9 A%<32:ctrl #out%,A%: link$<>"":link$=link$+A%  : tab:wr(32+9):tab%=1: : ul:ul%=ul%  1 ul%:wr(""):link$=0 wr(""):link   : *hl:A%=txt%?1:txt%=txt%+1 4 A%="Q":wr("

"): >J A%="q":wr("

"):txt%=txt%-(txt%?1=13)-(txt%?1=13 txt%?2=13): H A%="X":wr("

"): R2 A%="x":wr("

"):txt%=txt%-(txt%?1=13): \ A%="D":wr("

"): f2 A%="d":wr("

"):txt%=txt%-(txt%?1=13): p A%="E":wr(""): z A%="e":wr(""):  A%="I":wr(""):  A%="i":wr(""): " A%="B":wr(""):code%=: # A%="b":wr(""):code%=: > IF A%=ASC"B":PROCwr(""):code%=TRUE:ENDPROC A IF A%=ASC"b":PROCwr(""):code%=FALSE:ENDPROC  : ctrl: A%=10:A%=13 3 A%=13: 13;100*(iptr%+txt%-data%) ext%;"%"; 4 A%=13:nl%=nl%+1: nl%=3:nl%=0:wr("

"+13):  A%=13: code%:wr("
") 9 IF A%=13:IF txt%?1<33 AND txt%?1<>13:PROCwr("
")  A%=13:wr(13): wr( A%): : $ char . A%="<":wr("<"): 8 A%=">":wr(">"): B A%="&":wr("&"): L A%="""":wr("""): V `: j link ttext$=link$,2) ~7link$=link$,2):link$>63 link$="": link$="": !link$=(link$&DF)+link$,2) ,link$,4)="Unzi":link$="UnZi"+link$,5) Wlink$>3:link$,4,1)>"`":link$,3)="Zip":link$="Zip"+(link$,4)&DF)+link$,5) J link$,1)=")":link$=link$,2),1)+link$,link$-3) link$="1"+link$ link$=link$,2,1)+"."+link$ 'test%=(link$): test%=0:link$="": #test%:test%=0 .link$="../"+link$,1)+"/"+link$,3)+".htm" #out%=#out%-text$-4 2wr(""+text$+"") link$="":