**TI92P*ieditorRhelpZ(s,n) Prgm:Local h,i,t,l,l1,l2,l3,l4,l5,l6,l7,l8,l9,l10:If getType(#s)"LIST":Goto nope:CopyVar #s,h:11*(n-1)+1n:If n>dim(h) Then:"ERROR"t:Else:h[n]t:EndIf:For i,1,10:"l"&string(exact(i))l:Try:h[n+i]#l:Else:ClrErr:""#l:If i=1:"No help available for this topic"l1:EndTry:EndFor:Dialog:Title t:Text l1:Text l2:Text l3:Text l4:Text l5:Text l6:Text l7:Text l8:Text l9:Text l10:EndDlog:Return:Lbl nope:Text "Can't find file: "&s:EndPrgm,