: SHOWASHTM.PRG
чист

размершрифт '2'
ако fparam(0)>0
пар fparam(1)
размершрифт ''+пар
крайако
цвяттекст '$D0D0D0'
цвятфон '0'
рамкацвят '$A0A000'
рамкадебелина '0'

exformat('textsize','htm','o',размершрифт)
exformat('textcolor','htm','o',цвяттекст)
exformat('backcolor','htm','o',цвятфон)
exformat('borderwidth','htm','o',рамкадебелина)
exformat('bordercolor','htm','o',рамкацвят)

тф cbasename(0)
дължина lenstr(тф)
тф1 scopy(тф,1,дължина-3)
файл_ тф1+'htm'
exformat(файл_,'htm','e','')

файл_ getwind('%C')+'\'+файл_

пътека_ '\Program Files\Internet Explorer'
линия пътека_+'\iexplore.exe '+файл_

изп @линия